1 Load Libraries

library(knitr)
library(readxl)
library(readr)
library(openxlsx)
library(dplyr)
library(tidyr)
library(DescTools)
library(DT)
library(sf)
library(geodata)
library(rnaturalearth)
library(rnaturalearthhires) #GitHub: ropensci/rnaturalearthhires
library(ggplot2)
library(ggspatial)
library(leaflet)

LibrariesVersions <- data.frame(
  Library = c("knitr", "readxl", "readr", "openxlsx", "dplyr", "tidyr", "DescTools", "DT", 
              "sf", "geodata", "rnaturalearth", "rnaturalearthhires", "ggplot2", "ggspatial", "leaflet"), 
  Version = c(as.character(packageVersion("knitr")), as.character(packageVersion("readxl")), 
              as.character(packageVersion("readr")), as.character(packageVersion("openxlsx")),
              as.character(packageVersion("dplyr")), as.character(packageVersion("tidyr")),
              as.character(packageVersion("DescTools")), as.character(packageVersion("DT")),
              as.character(packageVersion("sf")), as.character(packageVersion("geodata")),
              as.character(packageVersion("rnaturalearth")), as.character(packageVersion("rnaturalearthhires")),
              as.character(packageVersion("ggplot2")), as.character(packageVersion("ggspatial")),
              as.character(packageVersion("leaflet"))))
datatable(LibrariesVersions, options = list(scrollX = TRUE, autoWidth = TRUE), 
          caption = paste("Libraries Versions | R", 
                          gsub("^R version\\s*|\\s*\\(\\d{4}-\\d{2}-\\d{2} ucrt\\)", "", R.version.string)),
          style = "bootstrap", rownames = FALSE) %>% 
  formatStyle(columns = 1, textAlign = "left") %>% formatStyle(columns = 2, textAlign = "center")

2 ISO 3166-1 and M49 Codes

ISO 3166-1 is an international standard from International Organization for Standardization (ISO), with 3 codes:

  • Alpha-2 Code (ISO2)
  • Alpha-3 Code (ISO3)
  • Numeric Code

Numeric Code \(\equiv\) M49 Code from United Nations Statistic Division (UNSD). ISO 3166-1 is available for autonomous countries or territories, while M49 is also available for world or continents.

How to obtain a code? Be a United Nations (UN) or a UN Specialized Agencies (FAO | World Bank | WHO | …) Member State.

There are more Numeric/M49 Code (249) than countries in UN (198).

3 International Migrant Stock Data

Data are taken from UN | Population Division. Estimates of the number (or “stock”) of international migrants (1990-2020) are available for 235 countries/areas of the world. The international migrant population corresponds to the total number of migrants present in a given country at a given moment in time (foreign-born). Tourists are not counted among migrants.

Data are organized on the basis of Residence-Birth pairs according to certain classifications or countries/areas:

  • 6 Continental Regions with 22 Sub-Regions and Intermediate Regions:
    • Africa
    • Asia
    • Europe
    • Latin America and the Caribbean
    • Northern America
    • Oceania
  • 8 Geographic Regions based on the Sustainable Development Goals (SDG) Classification from UN:
    • Australia and New Zealand
    • Central and Southern Asia
    • Eastern and South-Eastern Asia
    • Europe and Northern America
    • Latin America and the Caribbean
    • Northern Africa and Western Asia
    • Oceania (Australia and New Zealand excluded)
    • Sub-Saharan Africa
  • 2 Development Levels:
    • More Developed Regions:
      • Australia and New Zealand and Japan
      • Europe
      • Northern America
    • Less Developed Regions:
      • Africa
      • Asia (Japan excluded)
      • Latin America and the Caribbean
      • Oceania (Australia and New Zealand excluded)
  • 3 Development Levels (137/232) from OHRLLS:
    • Least Developed Countries (LDC | 47)
    • Land-Locked Developing Countries (LLDC | 32)
    • Small Island Developing States (SIDS | 58)
  • 3/4 Income Levels based on Gross National Income (GNI | World Bank 2020):
    • High-Income Countries
    • Middle-Income Countries
      • Upper-Middle-Income Countries
      • Lower-Middle-Income Countries
    • Low-Income Countries

Remark: Income Levels are not available for all countries/areas.

In our Data Exploration Application, we would like to make countries/areas choice thanks to a click on a map. We would like to be able to visualize all Residence that are in International Migrant Stock Data.

#Load XLSX File
iMIGRANT_Stock.DATA.SHAREs <- read_excel("UI_and_SERVER/CLIMINET/Données/ims_sex_residence_and_birth_with_shares_2020.xlsx")

#Residence(s) in XLSX
Residences_in_iMIGRANT_Stock <- unique(iMIGRANT_Stock.DATA.SHAREs[c("Residence", "ResidenceCode")])
Residences_in_iMIGRANT_Stock <- Residences_in_iMIGRANT_Stock[Residences_in_iMIGRANT_Stock$ResidenceCode < 900, ]
datatable(Residences_in_iMIGRANT_Stock, options = list(scrollX = TRUE, autoWidth = TRUE), 
          caption = "Residences in International Migrant Stock Data", 
          style = "bootstrap", rownames = FALSE) %>%
  # formatStyle(columns = 1, textAlign = "left", `text-transform` = "uppercase") %>%
  formatStyle(columns = 1, textAlign = "left") %>% formatStyle(columns = 2, textAlign = "center")

There are 235 Residence.

We will need World Administrative Boundaries to build maps.

4 World Administrative Boundaries

World Administrative Boundaries are available from various sources.

We would like to have most accurate one with a reasonable size for our Data Exploration Application (DEA).

4.1 Goals

  • Visualize all residences (235) in International Migrant Stock Data
  • Complete Geospatial Data (GeoDATA):
  • Geometries as accurate as possible, since we will use Geospatial Data to retrieve Climate Data
  • Reasonable size in R (5-10MB) \(\Rightarrow\) FLUIDITY in DEA
  • Geospatial Data as neutral as possible in Geopolitical Terms
  • Reproducible/Traceable (Sources)

SIZE and ACCURACY are linked, and this influences FLUIDITY in DEA. More ACCURACY increases SIZE and vice-versa.

4.2 Sources

  • Global Administrative Areas (GADM):
    • File: GeoPackage (Version 4.1 was released on 2022-07-16 | Next release will be in Fall 2023)
    • License: Available for academic and non-commercial uses
    • Size in R: 2.75GB with all levels | 581.50MB with level 0
    • Level: Several Administrative Levels are available (Level 0 is for countries)
    • Areas: 263 Countries/Territories
    • We will use GEODATA for a lower resolution (Version 4.1 | Size in R: 91.50MB | Level 0).

Latin America Team uses Global Administrative Areas (GADM) \(\Rightarrow\) HIGH ACCURACY but no FLUIDITY in DEA.

  • Natural Earth:
    • Countries:
      • File: Shapefile (Version 5.1.1 | Level 0)
      • License: Available for all uses
      • Size in R: 10MB
      • Areas: 258 Countries/Territories
      • Resolution: 1:10m
    • Claimed Areas:
      • File: Shapefile (Version 5.1.1 | Level 0)
      • License: Available for all uses
      • Size in R: 475KB
      • Areas: 99 Territories
      • Resolution: 1:10m
  • World Bank Official Boundaries:
    • File: Shapefile (2020-03-19 | Level 0)
    • License: Creative Commons Attribution 4.0
    • Size in R: 9.50MB
    • Areas: 251 Countries/Territories
    • Resolution: 10m
################################
##### Load GeoDATA File(s) #####
################################

##### COORDINATE REFERENCE SYSTEM (CRS) #####

#WORLD GEODETIC SYSTEM (1984) [PROJ4]
EPSG_4326 <- "+proj=longlat +datum=WGS84 +no_defs +type=crs"

#WORLD WINKEL-TRIPEL (WINKEL III) - (1921) [PROJ4]
ESRI_54042 <- "+proj=wintri +lon_0=0 +lat_1=50.467 +x_0=0 +y_0=0 +datum=WGS84 +units=m +no_defs +type=crs"

##### Global Administrative Areas #####
# GeoDATA_from_GADM_all_levels <- st_read("../Données/Geo/Global Administrative Areas/adm_areas_410.gpkg")
# GeoDATA_from_GADM_level_0 <- st_read(
#   "../Données/Geo/Global Administrative Areas/adm_areas_410-levels.gpkg", layer = "ADM_0")

#ISO3 from GeoDATA_from_GADM_all_levels
# ISO3 <- unique(GeoDATA_from_GADM_all_levels$GID_0)

#Global Administrative Areas (GADM) - Level 0
# N <- 0
# GeoDATA_from_GADM_level_0_low_resolution <- st_sf(geometry = st_sfc(), crs = EPSG_4326)
# for (CODE in ISO3[c(1:44, 48:107, 113:179, 181:263)]) {
#   #PROGRESSION
#   N <- N + 1
#   print(paste0("PROGRESSION: ", N, "/", length(ISO3[c(1:44, 48:107, 113:179, 181:263)])))
#   #GeoDATA
#   Geo <- st_as_sf(gadm(country = CODE, level = 0, path = tempdir(), version = "4.1", resolution = 2))
#   GeoDATA_from_GADM_level_0_low_resolution <- rbind(GeoDATA_from_GADM_level_0_low_resolution, Geo)}
# GeoDATA_from_GADM_level_0_low_resolution <- GeoDATA_from_GADM_level_0_low_resolution %>% rename(ISO3 = 1)
#NORTHERN CYPRUS is not available...

#INFORMATION from GeoDATA_from_GADM_all_levels
# DATA_from_GADM_all_levels <- GeoDATA_from_GADM_all_levels %>% st_drop_geometry()
# DATA_from_GADM_all_levels <- DATA_from_GADM_all_levels[ , c(2:3, 46:47, 50:52)]
# DATA_from_GADM_all_levels <- DATA_from_GADM_all_levels %>% group_by(GID_0) %>%
#   summarise_all(funs(MODE = names(sort(table(.), decreasing = TRUE)[1]))) %>%
#   rename(ISO3 = 1, NAME = 2, SOVRN = 3, Claimed = 4, COUNTRY = 5, CONTINENT = 6, SIREGION = 7)

#Combine GeoDATA_from_GADM_level_0_low_resolution with DATA_from_GADM_all_levels
# GeoDATA_from_GADM_level_0_low_resolution <- left_join(
#   GeoDATA_from_GADM_level_0_low_resolution, DATA_from_GADM_all_levels, by = c("ISO3", "COUNTRY")) %>% select(1, 4:6, 2, 7:8)

#Columns: NAME | SOVRN | Claimed | COUNTRY
# GeoDATA_from_GADM_level_0_low_resolution <- GeoDATA_from_GADM_level_0_low_resolution %>%
#   mutate_if(is.character, ~case_when(
#     . == "China, Philippines, Taiwan, Mala" ~ "China, Philippines, Taiwan, Malaysia, Vietnam, and Brunei",
#     . == "Saint Helena, Ascension and Tris" ~ "Saint Helena, Ascension and Tristan da Cunha",
#     . == "South Georgia and the South Sand" ~ "South Georgia and the South Sandwich Islands",
#     . == "United States Minor Outlying Isl" ~ "", TRUE ~ .))

#Save GeoDATA_from_GADM_level_0_low_resolution as a GeoJSON File
# st_write(GeoDATA_from_GADM_level_0_low_resolution, 
#          "../Données/Geo/Global Administrative Areas/adm_areas_410_level_0_low_resolution.geojson", 
#          driver = "GeoJSON")

#Load GeoJSON File
GeoDATA_from_GADM_level_0_low_resolution <- read_sf(
  "../Données/Geo/Global Administrative Areas/adm_areas_410_level_0_low_resolution.geojson")

##### Natural Earth #####
GeoDATA_from_Natural_Earth <- st_read(
  "../Données/Geo/Natural Earth/COUNTRIEs/natural_earth_countries_admin_0_10m.shp") %>%
  select(4:5, 8, 10:11, 13:14, 16:17, 19:23, 26, 29:32, 45, 47, 49, 53, 56:57, 91:96, 112) %>%
  rename(SOVRN = 1, SOVRN_A3 = 2, ADMIN_A3 = 5, GEO = 6, GEO_A3 = 7, sGEO = 8, sGEO_A3 = 9, 
         FUll_NAME = 11, BRK_GEO = 14, Formal_NAME = 15, NOTE = 16, Name = 18, ALTERNATIVE_NAME = 19, 
         ISO2 = 20, ISO3 = 21, ISO_NUMERIC = 22, ADMIN_ISO = 25, ADMIN_ONU_A3 = 26, ADMIN_WB_A3 = 27, 
         REGION = 29, SIREGION = 30, WB_REGION = 31, UK_NAME = 32)
Claimed_Areas_from_Natural_Earth <- st_read(
  "../Données/Geo/Natural Earth/Claimed Areas/natural_earth_claimed_areas_admin_0_10m.shp") %>%
  select(4:5, 8, 10:11, 13:14, 16:17, 19:23, 26, 29:32, 45, 47, 49, 53, 56:57, 91:96, 112) %>%
  rename(SOVRN = 1, SOVRN_A3 = 2, ADMIN_A3 = 5, GEO = 6, GEO_A3 = 7, sGEO = 8, sGEO_A3 = 9, 
         FUll_NAME = 11, BRK_GEO = 14, Formal_NAME = 15, NOTE = 16, Name = 18, ALTERNATIVE_NAME = 19, 
         ISO2 = 20, ISO3 = 21, ISO_NUMERIC = 22, ADMIN_ISO = 25, ADMIN_ONU_A3 = 26, ADMIN_WB_A3 = 27, 
         REGION = 29, SIREGION = 30, WB_REGION = 31, UK_NAME = 32)

##### World Bank Official Boundaries ##### 
GeoDATA_from_World_Bank <- st_read("../Données/Geo/World Bank/world_bank_countries_admin_0_10m.shp") %>%
  select(4:5, 16:17, 19:26, 30, 48:49) %>% 
  rename(Formal_NAME = 2, ISO2 = 3, ISO3 = 4, ISO_NUMERIC = 5, 
         M49_CODE = 6, REGION = 10, SIREGION = 11, WB_REGION = 12, NAME = 13)

We would like World Administrative Boundaries to come from same source as International Migrant Stock Data.

################################
##### Load GeoDATA File(s) #####
################################

##### GeoHUB #####
GeoDATA_from_GeoHUB <- read_sf("../Données/Geo/ONU/GeoHUB/GeoDATA_low_resolution.geojson") %>% 
  select(3:4, 6:15, 23) %>% 
  rename(ISO3 = 1, M49_CODE = 2, NAME = 3, Label = 4, CONTINENT = 5, CONTINENT_CODE = 6, Name = 7, 
         SREGION_CODE = 8, IREGION_CODE = 9, SREGION = 10, IREGION = 11, ISO2 = 12, STATUS_CODE = 13) %>%
  filter((!is.na(STATUS_CODE) | Name == "Caspian Sea"))

##### World Health OrGanization (WHO) #####
GeoDATA_from_WHO <- read_sf("../Données/Geo/ONU/WHO/WHO_Admin_0_Boundaries.geojson") %>% 
  select(2:4, 9:12, 14:15, 21, 30, 33) %>% 
  rename(ISO2 = 2, NAME = 3, ISO3 = 4, SOVRN = 6, 
         ALTERNATIVE_NAME = 7, M49_CODE = 9, VISUALIZATION_NAME = 10, CONTINENT = 11)
Claimed_Areas_from_WHO <- read_sf("../Données/Geo/ONU/WHO/WHO_Claimed_Areas_Boundaries.geojson") %>% 
  select(2) %>% filter(!grepl("Lake|Sea", NAME, ignore.case = TRUE))

##### Food and AGriculture OrGanization (FAO) #####
COUNTRIEs_CODEs_FEATUREs <- read_excel(
  "../Données/Geo/ONU/FAO/Global_Admin_2015_FEATUREs/International_COUNTRIEs_CODEs_FEATUREs.xls") %>% 
  select(1, 4, 6:9, 11:12) %>% rename(NAME = 1, M49_CODE = 2, ISO2 = 3, SIREGION = 8)
M49_CODEs <- read_excel("../Données/Geo/ONU/FAO/Global_Admin_2015_FEATUREs/M49_CODEs.xls") %>% 
  select(3:5) %>% rename(M49_CODE = 1, NAME = 2, CODE = 3) %>% distinct(NAME, .keep_all = TRUE) %>%
  filter(!NAME %in% c("Unspecified", "Others (adjustment)"))
TERRITORIEs <- read_excel("../Données/Geo/ONU/FAO/Global_Admin_2015_FEATUREs/TERRITORIEs.xls", sheet = 1)
TERRITORIEs <- rbind(
  TERRITORIEs, read_excel("../Données/Geo/ONU/FAO/Global_Admin_2015_FEATUREs/TERRITORIEs.xls", sheet = 2)) 
TERRITORIEs <- TERRITORIEs %>% rename(CODE = 1, NAME = 2, CLAIMED_AREA = 4, COUNTRY = 5, COUNTRY_CODE = 6)
CODEs_Global_Admin_2015 <- read_csv("../Données/Geo/ONU/FAO/CODEs_Global_Admin_2015.csv") %>% 
  select(6:9) %>% rename(CLAIMED_AREA = 2, CODE = 3, NAME = 4) %>% distinct(NAME, .keep_all = TRUE)
FAO_M49_CODE <- read_csv("../Données/Geo/ONU/FAO/FAO_M49_CODE.csv") %>% 
  select(1:2) %>% rename(M49_CODE = 1, NAME = 2) %>% filter(!NAME == "---") %>% distinct(NAME, .keep_all = TRUE)
# ```{r, fig.width=8}
#Interactive WorldM+
leaflet() %>%
  addTiles(options = tileOptions(minZoom = 1, maxZoom = 10, maxNativeZoom = 18)) %>%
  addScaleBar(position = "bottomleft") %>%
  addPolygons(data = GeoDATA_from_GeoHUB, group = "GeoHUB",
              stroke = TRUE, color = "#0000FF", weight = 1.5, opacity = 0.75,
              fill = TRUE, fillOpacity = 0.25, label = ~toupper(NAME),
              highlightOptions = highlightOptions(
                stroke = TRUE, color = "#99FF66", weight = 1.5, opacity = 0.75,
                fill = TRUE, fillColor = "#99FF66", fillOpacity = 0.25)) %>%
  addPolygons(data = GeoDATA_from_WHO, group = "World Health ORGANIZATION - Countries",
              stroke = TRUE, color = "#0000FF", weight = 1.5, opacity = 0.75,
              fill = TRUE, fillOpacity = 0.25, label = ~NAME,
              highlightOptions = highlightOptions(
                stroke = TRUE, color = "#99FF66", weight = 1.5, opacity = 0.75,
                fill = TRUE, fillColor = "#99FF66", fillOpacity = 0.25)) %>%
  addPolygons(data = Claimed_Areas_from_WHO, group = "World Health ORGANIZATION - Claimed Areas",
              stroke = TRUE, color = "#FF0000", weight = 1.5, opacity = 0.75,
              fill = TRUE, fillOpacity = 0.25, label = ~toupper(NAME),
              highlightOptions = highlightOptions(
                stroke = TRUE, color = "#99FF66", weight = 1.5, opacity = 0.75,
                fill = TRUE, fillColor = "#99FF66", fillOpacity = 0.25)) %>%
  addPolygons(data = GeoDATA_from_GADM_level_0_low_resolution, group = "Global Administrative Areas (GADM)",
              stroke = TRUE, color = "#0000FF", weight = 1.5, opacity = 0.75,
              fill = TRUE, fillOpacity = 0.25, label = ~toupper(NAME),
              highlightOptions = highlightOptions(
                stroke = TRUE, color = "#99FF66", weight = 1.5, opacity = 0.75,
                fill = TRUE, fillColor = "#99FF66", fillOpacity = 0.25)) %>%
  addPolygons(data = GeoDATA_from_Natural_Earth, group = "Natural Earth - Countries",
              stroke = TRUE, color = "#0000FF", weight = 1.5, opacity = 0.75,
              fill = TRUE, fillOpacity = 0.25, label = ~toupper(BRK_NAME),
              highlightOptions = highlightOptions(
                stroke = TRUE, color = "#99FF66", weight = 1.5, opacity = 0.75,
                fill = TRUE, fillColor = "#99FF66", fillOpacity = 0.25)) %>%
  addPolygons(data = Claimed_Areas_from_Natural_Earth, group = "Natural Earth - Claimed Areas",
              stroke = TRUE, color = "#FF0000", weight = 1.5, opacity = 0.75,
              fill = TRUE, fillOpacity = 0.25, label = ~toupper(BRK_NAME),
              highlightOptions = highlightOptions(
                stroke = TRUE, color = "#99FF66", weight = 1.5, opacity = 0.75,
                fill = TRUE, fillColor = "#99FF66", fillOpacity = 0.25)) %>%
  addPolygons(data = GeoDATA_from_World_Bank, group = "World Bank Official Boundaries",
              stroke = TRUE, color = "#0000FF", weight = 1.5, opacity = 0.75,
              fill = TRUE, fillOpacity = 0.25, label = ~toupper(WB_NAME),
              highlightOptions = highlightOptions(
                stroke = TRUE, color = "#99FF66", weight = 1.5, opacity = 0.75,
                fill = TRUE, fillColor = "#99FF66", fillOpacity = 0.25)) %>%
  addLayersControl(overlayGroups = c(
    "GeoHUB",
    "World Health ORGANIZATION - Countries", "World Health ORGANIZATION - Claimed Areas",
    "Global Administrative Areas (GADM)",
    "Natural Earth - Countries", "Natural Earth - Claimed Areas", "World Bank Official Boundaries"),
    position = "bottomright", options = layersControlOptions(collapsed = FALSE)) %>%
  hideGroup(c("World Health ORGANIZATION - Countries", "World Health ORGANIZATION - Claimed Areas",
              "Global Administrative Areas (GADM)",
              "Natural Earth - Countries", "Natural Earth - Claimed Areas",
              "World Bank Official Boundaries"))

Remarks:

  • Leaflet Interactive World Map uses World Geodetic System (1984) as Coordinate Reference System (CRS)
  • We would like \(\Rightarrow\) CRS \(=\) World Winkel-Tripel (Winkel III) - (1921) [ESRI:54042] in DEA
  • Tiles in World Winkel-Tripel (Winkel III) - (1921) in DEA
  • World Winkel-Tripel (Winkel III) - (1921) is not supported in Leaflet

4.3 Build Our Geospatial Data

  1. Choice between GeoHUB and World Health Organization (WHO) Geospatial Data
  2. Check that all countries/territories in International Migrant Stock Data are in selected Geospatial Data
  3. Check that all countries/territories in not selected Geospatial Data are in selected Geospatial Data
  4. Combine information from all sources
  5. Retrieve information for our Data Exploration Application from UN | Statistics Division and World Bank

For countries/territories not included in selected Geospatial Data:

  1. Choose Geometries from all sources (Conditions: Correct ACCURACY and Reasonable SIZE)
  2. Create our own Geometries (Conditions: Small Areas | Simple Boundaries [Lines])

For claimed areas between countries, we create our own Geometries and at least entire boundaries between these countries.

Geometries Creation:

  • RSHINY Application from Coordinates.R file (OSM Tiles) and POLYGON function
  • Google Maps (Condition: Boundaries not shown on OSM Tiles)

We also create our own Geometries:

  • To reduce Geospatial Data size in R
  • To increase chances of climate data to be located within POLYGON*

*1 atoll \(=\) several islands (1 island \(=\) 1 POLYGON) \(\Rightarrow\) POLYGON Creation (1 atoll \(=\) 1 POLYGON).

#POLYGON Function
POLYGON <- function(LATITUDE, LONGITUDE, CRS) {
  COORDINATEs <- data.frame(LATITUDE = c(LATITUDE, LATITUDE[1]), LONGITUDE = c(LONGITUDE, LONGITUDE[1]))
  Geo <- st_as_sf(COORDINATEs, coords = c("LONGITUDE", "LATITUDE"), crs = CRS)
  Geo <- st_polygon(list(st_coordinates(Geo)))
  Geo <- st_sf(geometry = st_sfc(Geo, crs = CRS))
  return(Geo)}

#Coordinates Function
Coordinates <- function(VALUEs) {
  for (i in seq_along(VALUEs)) {
    if (i > 1) {
      if (i %% 10 == 1) {cat(", \n  ")} else {cat(", ")}}
    cat(round(VALUEs[i], 5))}}

#Reverse Coordinates Function
Reverse_Coordinates <- function(VALUEs) {
  for (i in rev(seq_along(VALUEs))) {
    if (i < length(VALUEs)) {
      if ((length(VALUEs) - i + 1) %% 10 == 1) {cat(", \n  ")} else {cat(", ")}}
    cat(round(VALUEs[i], 5))}}

4.4 Columns in Our Geospatial Data

  • NAME \(\Rightarrow\) The country/territory name in uppercase letters
  • VISUALIZATION_NAME \(\Rightarrow\) The country/territory name in lowercase letter
  • ISO2 \(\Rightarrow\) Alpha-2 code for the country/territory from International Organization for Standardization (ISO)
  • ISO3 \(\Rightarrow\) Alpha-3 code for the country/territory from International Organization for Standardization (ISO)
  • M49_CODE \(\Rightarrow\) Numeric code for the country/territory:
  • SOVRN \(\Rightarrow\) The sovereign country/territory of the area (NAME)
  • Claimed \(\Rightarrow\) The names of the countries/territories that have claimed an area (NAME)
  • COUNTRY \(\Rightarrow\) The country/territory name where an area (NAME) is located on its land
  • CONTINENT \(\Rightarrow\) The location of the country/terrritory based on its continental landmass (Continental Affiliation):
  • CONTINENT_CODE \(\Rightarrow\) Numeric code for the continent (M49_CODE) from United Nations Statistic Division (UNSD)
  • SREGION \(\Rightarrow\) The location of the country/terrritory based on its sub-region affiliation:
  • SREGION_CODE \(\Rightarrow\) Numeric code for the sub-region (M49_CODE) from United Nations Statistic Division (UNSD)
  • IREGION \(\Rightarrow\) The location of the country/terrritory based on its intermediate region affiliation:
  • IREGION_CODE \(\Rightarrow\) Numeric code for the intermediate region (M49_CODE) from United Nations Statistic Division (UNSD)
  • SIREGION \(\Rightarrow\) The location of the country/terrritory based on its sub-region and intermediate region affiliation:
  • SIREGION_CODE \(\Rightarrow\) Numeric code for the sub-region and intermediate region (M49_CODE) from UNSD
  • LDC \(\Rightarrow\) Indicates whether an area is listed as Least Developed Countries (LDC) by OHRLLS:
  • LLDC \(\Rightarrow\) Indicates whether an area is listed as Land-Locked Developing Countries (LLDC) by OHRLLS:
  • SIDS \(\Rightarrow\) Indicates whether an area is listed as Small Island Developing States (SIDS) by OHRLLS:
  • IncomeLevel \(\Rightarrow\) Indicates the income level of the country based on Gross National Income (GNI):
  • ContinentalREGION \(\Rightarrow\) The location of the country/terrritory based on its continental landmass (Continental Affiliation):
  • GeoREGION \(\Rightarrow\) The location of the country/terrritory based on Sustainable Development Goals (SDG) Classification:
  • MoreLess \(\Rightarrow\) The development level of the country/territory based on International Migrant Stock Data (2020):
  • MoreLessLeast \(\Rightarrow\) The development level of the country/territory based on International Migrant Stock Data (2020):
  • DevLevel \(\Rightarrow\) The development level of the country/territory based on OHRLLS Classifications:
  • Label \(\Rightarrow\) The hover text of the country/territory used on an interactive world map in our DEA:
    • Main information about a country/territory: NAME | ISO2 | ISO3 | M49_CODE
  • CLRCode \(\Rightarrow\) The color code for the country/territory
  • AREA \(\Rightarrow\) The total area of the country’s/territory’s Geometries in km\(^2\)
  • BBOX_AREA \(\Rightarrow\) The area of the country’s/territory’s bounding box in km\(^2\)
  • Centroid_X | Centroid_Y \(\Rightarrow\) The centroid coordinates of the country’s/territory’s Geometries
  • Centroid_of_LARGEST_POLYGON_X | Centroid_of_LARGEST_POLYGON_X:
    • The centroid coordinates of the largest (sub)polygon of the country/territory
  • BBOX_Centroid_X| BBOX_Centroid_Y \(\Rightarrow\) The centroid coordinates of the country’s/territory’s bounding box
  • SOURCE \(\Rightarrow\) The source(s) of the Geometries

5 World Admin. Boundaries (contd.)

Choice between GeoHUB and World Health Organization (WHO) Geospatial Data:

  • World Administrative Boundaries from WHO \(\Rightarrow\) More Accurate
  • Fewer countries in WHO than in GeoHUB \(\Rightarrow\) Combine
  • GeoHUB Size \(<\) WHO Size (link with Geometries’ Precision)
  • WHO Size \(<\) Alternative Sources Sizes \(\Rightarrow\) BETTER FLUIDITY in DEA
  • More Recent Version \(\Rightarrow\) WHO

We choose World Administrative Boundaries from World Health Organization (WHO).

5.1 From World Health Organization

We introduce a new variable in GeoDATA_from_WHO and Claimed_Areas_from_WHO, called SOURCE.

#New Variable => SOURCE
GeoDATA_from_WHO <- GeoDATA_from_WHO %>% 
  mutate(SOURCE = "World Health OrGanization (WHO) - Countries") %>% select(1:12, 14, 13)
Claimed_Areas_from_WHO <- Claimed_Areas_from_WHO %>% 
  mutate(SOURCE = "World Health OrGanization (WHO) - Claimed Areas") %>% select(1, 3, 2) %>% 
  mutate_if(is.character, ~case_when(
    . == "Jammu and Kashmir" ~ "Jammu and Kashmir (Princely State)", . == "Abyei" ~ "Abyei Area", TRUE ~ .))

5.1.1 Countries

Data Manipulations on GeoDATA_from_WHO:

  • Remove some columns (WHO_REGION | WHO_CODE | ALTERNATIVE_NAME | WHO_STATUS | CODE [\(=\) ISO3])
  • M49_CODE \(\Rightarrow\) Replace \(0\) by Numeric Code from International Organization for Standardization (ISO) or by NA
  • M49_CODE \(\Rightarrow\) \(1\) To \(001\) and \(10\) To \(010\) (Numeric To Character)
  • NAME in GeoDATA_from_WHO \(=\) Residence from Residences_in_iMIGRANT_Stock
  • CONTINENT\(\Rightarrow\) “NORTH AMERICA” and “SOUTH AMERICA” by “AMERICAS” | “AUSTRALIA” by “OCEANIA”
#Remove Columns
GeoDATA_from_WHO <- GeoDATA_from_WHO %>% select(3, 10, 2, 4, 9, 6, 11, 13)

#Replace "0" in M49_CODE
GeoDATA_from_WHO <- GeoDATA_from_WHO %>% 
  mutate(
    M49_CODE = case_when(
      ISO3 == "CXR" & M49_CODE == 0 ~ 162, ISO3 == "CCK" & M49_CODE == 0 ~ 166, 
      NAME == "GREENLAND" & M49_CODE == 0 ~ 304, NAME == "GUERNSEY" & M49_CODE == 0 ~ 831, 
      NAME == "JERSEY" & M49_CODE == 0 ~ 832, NAME == "MAYOTTE" & M49_CODE == 0 ~ 175,
      NAME == "MONTENEGRO" & M49_CODE == 0 ~ 499, ISO3 == "PSE" & M49_CODE == 0 ~ 275, 
      NAME == "SERBIA" & M49_CODE == 0 ~ 688, NAME == "SUDAN" & M49_CODE == 0 ~ 729, 
      M49_CODE == 0 ~ NA, TRUE ~ M49_CODE),
    NAME = case_when(NAME == "MIDWAY ISLANDS" ~ "MIDWAY ATOLL", TRUE ~ NAME),
    VISUALIZATION_NAME = case_when(
      VISUALIZATION_NAME == "Midway Islands" ~ "Midway Atoll", TRUE ~ VISUALIZATION_NAME),
    ISO2 = case_when(NAME == "MIDWAY ATOLL" ~ "MI", TRUE ~ ISO2))

#M49_CODE From NUMERIC TO CHARACTER
GeoDATA_from_WHO <- GeoDATA_from_WHO %>% 
  mutate(
    M49_CODE = case_when(
      nchar(M49_CODE) == 1 ~ paste0("00", M49_CODE), 
      nchar(M49_CODE) == 2 ~ paste0("0", M49_CODE), TRUE ~ as.character(M49_CODE)))
Residences_in_iMIGRANT_Stock <- Residences_in_iMIGRANT_Stock %>% 
  mutate(
    ResidenceCode = case_when(
      nchar(ResidenceCode) == 1 ~ paste0("00", ResidenceCode), 
      nchar(ResidenceCode) == 2 ~ paste0("0", ResidenceCode), TRUE ~ as.character(ResidenceCode)))

#NAME in GeoDATA_from_WHO = Residence from Residences_in_iMIGRANT_Stock
GeoDATA_from_WHO <- left_join(GeoDATA_from_WHO, Residences_in_iMIGRANT_Stock, by = c("M49_CODE" = "ResidenceCode")) %>% 
  mutate_if(is.character, ~case_when(
    . == "Pitcairn Islands" ~ "Pitcairn", 
    . == "Svalbard and Jan Mayen Islands" ~ "Svalbard and Jan Mayen", TRUE ~ .)) %>% 
  mutate(
    VISUALIZATION_NAME = if_else(
      !is.na(Residence) & VISUALIZATION_NAME != Residence, Residence, VISUALIZATION_NAME), 
    NAME = toupper(VISUALIZATION_NAME),
    SOVRN = if_else(!(SOVRN %in% VISUALIZATION_NAME), VISUALIZATION_NAME, SOVRN)) %>% select(1:9)

#Replace Values in CONTINENT
GeoDATA_from_WHO <- GeoDATA_from_WHO %>% 
  mutate(
    CONTINENT = case_when(
      CONTINENT == "NORTH AMERICA" | CONTINENT == "SOUTH AMERICA" ~ "AMERICAS", 
      CONTINENT == "AUSTRALIA" ~ "OCEANIA", NAME %in% c("ARMENIA", "AZERBAIJAN") ~ "ASIA", 
      NAME %in% c("VANUATU", "GUAM", "MICRONESIA", "NORTHERN MARIANA ISLANDS", "PALAU", "PITCAIRN") ~ "OCEANIA", 
      TRUE ~ CONTINENT))

5.1.2 Claimed Areas

We will include claimed areas from WHO (Claimed_Areas_from_WHO) into countries file from WHO (GeoDATA_from_WHO).

#Claimed Areas (WHO)
datatable(Claimed_Areas_from_WHO %>% st_drop_geometry(), 
          options = list(scrollX = TRUE, autoWidth = TRUE), 
          caption = "Claimed Areas from WHO", style = "bootstrap", rownames = FALSE) %>% 
  formatStyle(columns = 1, `text-transform` = "uppercase")

JAMMU AND KASHMIR (PRINCELY STATE) [1846-1952] is an area divided between INDIA and PAKISTAN in GeoDATA_from_WHO.

JAMMU AND KASHMIR (PRINCELY STATE) contains 5 areas:

  • AZAD KASHMIR a Pakistan Administered Area (claimed by INDIA)
  • GILGIT-BALTISTAN a Pakistan Administered Area (claimed by INDIA)
  • JAMMU AND KASHMIR an Indian Union Territory (claimed by PAKISTAN)
  • LADAKH an Indian Union Territory (claimed by PAKISTAN)
  • SIACHEN GLACIER an area claimed by INDIA and by PAKISTAN (could also be included in LADAKH)

SIACHEN GLACIER has been controlled by INDIA since 1984 (Operation Meghdoot).

No suitable Geometries in available sources (Geospatial Data). We create our own Geometries for all.

##### AZAD KASHMIR #####
LATITUDE_VALUEs <- c(
  34.68156, 34.6774, 34.6733, 34.68121, 34.706, 34.73772, 34.76202, 34.76993, 34.77976, 34.77075, 
  34.77157, 34.78167, 34.78249, 34.77321, 34.7852, 34.78712, 34.77894, 34.72679, 34.68884, 34.67999, 
  34.67766, 34.67081, 34.66502, 34.6641, 34.65867, 34.65824, 34.6605, 34.66079, 34.65895, 34.66559, 
  34.67984, 34.67999, 34.66947, 34.66885, 34.67121, 34.6692, 34.67083, 34.67079, 34.67217, 34.674, 
  34.67238, 34.67287, 34.674, 34.68042, 34.68322, 34.68174, 34.68127, 34.68346, 34.68459, 34.6842, 
  34.68233, 34.68311, 34.68593, 34.68727, 34.6872, 34.68614, 34.68285, 34.67548, 34.67093, 34.66895, 
  34.66733, 34.66564, 34.66373, 34.66062, 34.65805, 34.65519, 34.65438, 34.65169, 34.64922, 34.64585, 
  34.64133, 34.61488, 34.60849, 34.60312, 34.59775, 34.59584, 34.58291, 34.58199, 34.56934, 34.56634, 
  34.52795, 34.51904, 34.5142, 34.51151, 34.51359, 34.5132, 34.49973, 34.4929, 34.4848, 34.48364, 
  34.47462, 34.4652, 34.45289, 34.45328, 34.43081, 34.4333, 34.43512, 34.43277, 34.42709, 34.42606, 
  34.42646, 34.426, 34.42758, 34.42705, 34.42612, 34.42295, 34.41863, 34.39834, 34.39494, 34.38665, 
  34.38492, 34.38545, 34.3846, 34.38173, 34.3809, 34.37916, 34.37865, 34.37672, 34.37106, 34.35472, 
  34.3499, 34.34398, 34.3454, 34.33225, 34.33502, 34.33817, 34.34154, 34.34276, 34.34362, 34.34494, 
  34.34545, 34.34387, 34.34518, 34.34637, 34.34674, 34.34507, 34.34171, 34.33735, 34.33703, 34.33636, 
  34.33232, 34.33043, 34.32667, 34.32228, 34.32135, 34.32405, 34.33447, 34.33303, 34.33778, 34.34356, 
  34.35153, 34.35125, 34.34133, 34.33658, 34.31272, 34.30509, 34.31118, 34.31212, 34.31143, 34.29884, 
  34.29562, 34.28321, 34.283, 34.27576, 34.27459, 34.27047, 34.25905, 34.23284, 34.22858, 34.22287, 
  34.2091, 34.19888, 34.19526, 34.19558, 34.19075, 34.19071, 34.18596, 34.18127, 34.17584, 34.17712, 
  34.17513, 34.17215, 34.17382, 34.17254, 34.16941, 34.16924, 34.1725, 34.16707, 34.16057, 34.15919, 
  34.15272, 34.15187, 34.14793, 34.14246, 34.14129, 34.13596, 34.13475, 34.1274, 34.11521, 34.10334, 
  34.10675, 34.08888, 34.08258, 34.07498, 34.07348, 34.0599, 34.05016, 34.03594, 34.02439, 34.0108, 
  34.02133, 34.03961, 34.03663, 34.0303, 34.03058, 34.03485, 34.03755, 34.04665, 34.04609, 34.03878, 
  34.02704, 34.02903, 34.03163, 34.03252, 34.02469, 34.0232, 34.01637, 34.01662, 34.0185, 34.0201, 
  34.02284, 34.02565, 34.02597, 34.02355, 34.02366, 34.01227, 34.00491, 33.9995, 33.98662, 33.9784, 
  33.97492, 33.96933, 33.9531, 33.94334, 33.93526, 33.92864, 33.89249, 33.88592, 33.83895, 33.82492, 
  33.82804, 33.82391, 33.77598, 33.75857, 33.74158, 33.74117, 33.73767, 33.7341, 33.72354, 33.71661, 
  33.70698, 33.70669, 33.68812, 33.68398, 33.67434, 33.65405, 33.65484, 33.63976, 33.59529, 33.57841, 
  33.57583, 33.58448, 33.58475, 33.57106, 33.57476, 33.57508, 33.55518, 33.53279, 33.51255, 33.47883, 
  33.46874, 33.47096, 33.41244, 33.40857, 33.38485, 33.37138, 33.37253, 33.35009, 33.33768, 33.33324, 
  33.32657, 33.32284, 33.30304, 33.29989, 33.28353, 33.2864, 33.28381, 33.27901, 33.27937, 33.28618, 
  33.2841, 33.27879, 33.27068, 33.26466, 33.27032, 33.26415, 33.26086, 33.25472, 33.25037, 33.23652, 
  33.20521, 33.19702, 33.20241, 33.20141, 33.19451, 33.19789, 33.19444, 33.17548, 33.16614, 33.16786, 
  33.1555, 33.12251, 33.11101, 33.10253, 33.09771, 33.08808, 33.08095, 33.07362, 33.06858, 33.04605, 
  33.03031, 33.03218, 33.03182, 33.03096, 33.02758, 33.02189, 33.00253, 33.00037, 32.95289, 32.936, 
  32.9285, 32.919, 32.92183, 32.91835, 32.91893, 32.91579, 32.91446, 32.91554, 32.91514, 32.91468, 
  32.91385, 32.90996, 32.90459, 32.90095, 32.90196, 32.90192, 32.89846, 32.89443, 32.89344, 32.88527, 
  32.86962, 32.85095, 32.83934, 32.82412, 32.81273, 32.80285, 32.79859, 32.79358, 32.78867, 32.78456, 
  32.78124, 32.77665,
  32.77937, 32.77507, 32.77016, 32.77175, 32.78705, 32.80119, 32.80191, 32.77536, 32.783, 32.78957,
  32.80364, 32.82067, 32.8338, 32.83408, 32.83884, 32.83664, 32.8463, 32.84771, 32.87424, 32.88929,
  32.89924, 32.90608, 32.9089, 32.91495, 32.91942, 32.92158, 32.9344, 32.93671, 32.92965, 32.93613,
  32.94303, 32.93237, 32.9292, 32.9341, 32.92744, 32.92801, 32.93378, 32.92859, 32.94415, 32.93608,
  32.94184, 32.94645, 32.94156, 32.94674, 32.9502, 32.95625, 32.96374, 32.98217, 32.9839, 32.99398,
  33.01663, 33.02037, 33.03793, 33.04915, 33.06383, 33.06354, 33.07361, 33.07131, 33.07764, 33.10551,
  33.12247, 33.13541, 33.1541, 33.15841, 33.1957, 33.20489, 33.21408, 33.21466, 33.20949, 33.22299,
  33.22471, 33.23189, 33.23706, 33.25027, 33.25515, 33.28392, 33.29109, 33.30142, 33.32438, 33.32811,
  33.33929, 33.32638, 33.33845, 33.3558, 33.3558, 33.37171, 33.37834, 33.38364, 33.39325, 33.3964,
  33.40393, 33.41955, 33.42456, 33.42299, 33.42628, 33.4327, 33.43671, 33.43929, 33.43714, 33.44058,
  33.44946, 33.44817, 33.4622, 33.46493, 33.47581, 33.47839, 33.47609, 33.47209, 33.47266, 33.48325,
  33.48454, 33.49728, 33.50244, 33.49728, 33.49786, 33.51188, 33.51561, 33.51475, 33.52497, 33.52511,
  33.53427, 33.53484, 33.54171, 33.54786, 33.54977, 33.55278, 33.56293, 33.56937, 33.58456, 33.58628,
  33.59094, 33.59473, 33.59723, 33.60052, 33.6041, 33.60495, 33.59981, 33.59952, 33.60074, 33.61175,
  33.61733, 33.61547, 33.61768, 33.61911, 33.6393, 33.65864, 33.66593, 33.67583, 33.68754, 33.69054,
  33.70145, 33.72572, 33.73332, 33.74174, 33.74981, 33.76294, 33.78129, 33.84214, 33.86087, 33.8727,
  33.87669, 33.88452, 33.88723, 33.90436, 33.91533, 33.92644, 33.93571, 33.94062, 33.96787, 33.97099,
  33.97341, 33.97725, 33.98961, 34.00136, 34.03704, 34.07175, 34.09483, 34.10109, 34.1109, 34.12694,
  34.12978, 34.13184, 34.13646, 34.14004, 34.14352, 34.15524, 34.15985, 34.1652, 34.17294, 34.18313,
  34.19333, 34.19695, 34.20206, 34.20455, 34.20888, 34.2189, 34.23301, 34.25359, 34.26111, 34.27019,
  34.27449, 34.28116, 34.28612, 34.28967, 34.28882, 34.28088, 34.27804, 34.27378, 34.27364, 34.27761,
  34.27974, 34.27832, 34.29024, 34.30243, 34.30612, 34.32121, 34.32351, 34.33159, 34.34038, 34.34363,
  34.34292, 34.34986, 34.34717, 34.34589, 34.36049, 34.37521, 34.38258, 34.40669, 34.43784, 34.47505,
  34.55514, 34.56362, 34.57211, 34.57239, 34.58492, 34.58746, 34.5804, 34.57022, 34.564, 34.56457,
  34.57305, 34.63534, 34.66048, 34.68448, 34.69464, 34.71797, 34.73688, 34.76701, 34.78787, 34.79971,
  34.80337, 34.81042, 34.82536, 34.82874, 34.82523, 34.85116, 34.86459, 34.90486, 34.95521, 34.996,
  35.016, 35.02893, 35.06098, 35.07531, 35.11709,
  35.11635, 35.11492, 35.1127, 35.1076, 35.10492, 35.10192, 35.09923, 35.0956, 35.08689, 35.07676,
  35.07834, 35.08125, 35.08227, 35.08132, 35.08297, 35.09038, 35.08691, 35.08684, 35.07813, 35.07142,
  35.06819, 35.06464, 35.06571, 35.06768, 35.06675, 35.0531, 35.05013, 35.04952, 35.03793, 35.03766,
  35.04974, 35.05631, 35.06109, 35.06509, 35.05712, 35.05782, 35.06063, 35.07426, 35.08301, 35.08497,
  35.09575, 35.10207, 35.11682, 35.12679, 35.13142, 35.13283, 35.13254, 35.12868, 35.11584, 35.10602,
  35.10997, 35.1111, 35.10197, 35.09604, 35.09491, 35.09214, 35.08575, 35.0829, 35.06882, 35.06355,
  35.05378, 35.05104, 35.03762, 35.02114, 35.01102, 35.01425, 35.0151, 34.99938, 34.98683, 34.98156,
  34.97375, 34.96914, 34.96753, 34.93576, 34.92605, 34.92232, 34.90849, 34.90381, 34.89945, 34.91659,
  34.89642, 34.89786, 34.90008, 34.90325, 34.89925, 34.89551, 34.88956, 34.8891, 34.88665, 34.88081,
  34.87755, 34.87671, 34.87334, 34.86898, 34.87144, 34.87146, 34.86954, 34.85766, 34.85542, 34.85361,
  34.85509, 34.85928, 34.85882, 34.84785, 34.8423, 34.83998, 34.82878, 34.83135, 34.82927, 34.82328,
  34.8234, 34.81238, 34.80119, 34.783, 34.77391, 34.77398, 34.78505, 34.78674, 34.76897, 34.76813,
  34.75032, 34.745, 34.73974, 34.73131, 34.7256, 34.72722, 34.72645, 34.72031, 34.71488, 34.69978,
  34.69554)
LONGITUDE_VALUEs <- c(
  74.87288, 74.84405, 74.84182, 74.73015, 74.65014, 74.6037, 74.58076, 74.50371, 74.47913, 74.47447, 
  74.46683, 74.46019, 74.44723, 74.43427, 74.39538, 74.34293, 74.30504, 74.24161, 74.15787, 74.15497, 
  74.14948, 74.1445, 74.1439, 74.14681, 74.14681, 74.14355, 74.14227, 74.13094, 74.12802, 74.11326, 
  74.10803, 74.10391, 74.09231, 74.08995, 74.08356, 74.07206, 74.06863, 74.06124, 74.05472, 74.05408, 
  74.04721, 74.04588, 74.04605, 74.03116, 74.02983, 74.02678, 74.01708, 74.01399, 74.00923, 74.00374, 
  73.99773, 73.98134, 73.97194, 73.97142, 73.97078, 73.96907, 73.96806, 73.96078, 73.95305, 73.95331, 
  73.95606, 73.9564, 73.95473, 73.95022, 73.94833, 73.94752, 73.94795, 73.95271, 73.95352, 73.93472, 
  73.9319, 73.93341, 73.9283, 73.92847, 73.95289, 73.95409, 73.95217, 73.96015, 73.95148, 73.95654, 
  73.90499, 73.91169, 73.90615, 73.90014, 73.89881, 73.89671, 73.89075, 73.89199, 73.8862, 73.88242, 
  73.88184, 73.88866, 73.88775, 73.87998, 73.84813, 73.84631, 73.843, 73.84034, 73.84296, 73.84079, 
  73.81392, 73.81224, 73.80561, 73.80468, 73.80399, 73.80423, 73.80183, 73.77527, 73.77247, 73.76891, 
  73.76612, 73.76239, 73.75934, 73.75826, 73.75592, 73.75603, 73.75751, 73.75758, 73.75098, 73.75279, 
  73.75043, 73.75005, 73.75769, 73.77442, 73.7903, 73.79893, 73.79778, 73.79805, 73.80016, 73.80052, 
  73.8107, 73.81168, 73.81421, 73.81451, 73.81492, 73.81522, 73.81423, 73.8096, 73.80964, 73.81232, 
  73.81481, 73.83908, 73.84955, 73.85196, 73.85384, 73.85908, 73.86526, 73.8875, 73.89072, 73.90283, 
  73.90484, 73.91545, 73.9233, 73.93896, 73.92158, 73.93172, 73.93194, 73.93775, 73.94256, 73.94292, 
  73.93631, 73.93545, 73.94094, 73.94567, 73.97515, 73.99052, 73.98965, 74.00571, 74.00532, 74.00918, 
  73.99806, 73.9991, 74.00892, 74.01377, 74.00867, 74.00373, 74.00038, 73.99914, 73.98978, 73.97966, 
  73.97914, 73.97133, 73.96982, 73.96798, 73.96763, 73.9633, 73.96244, 73.95806, 73.95858, 73.96652, 
  73.96489, 73.95184, 73.95348, 73.94489, 73.94777, 73.94734, 73.94048, 73.9267, 73.92914, 73.92656, 
  73.90596, 73.90103, 73.90768, 73.90502, 73.90064, 73.89584, 73.89996, 73.92185, 73.9244, 73.96947, 
  74.00518, 74.01633, 74.04011, 74.0499, 74.05565, 74.06131, 74.1074, 74.1304, 74.14027, 74.15396, 
  74.16333, 74.17367, 74.17453, 74.17526, 74.18221, 74.18131, 74.2047, 74.21478, 74.21753, 74.21766, 
  74.21319, 74.21495, 74.22303, 74.22637, 74.23349, 74.23873, 74.25607, 74.25581, 74.26624, 74.26135, 
  74.26409, 74.2774, 74.26701, 74.27967, 74.28195, 74.27624, 74.27654, 74.25211, 74.18936, 74.1159, 
  74.08815, 74.06033, 74.00936, 74.01125, 74.00146, 73.98664, 73.98183, 73.98208, 73.96122, 73.96088, 
  73.9662, 73.9814, 73.98346, 73.99042, 73.98338, 73.99333, 73.98355, 73.98209, 74.02516, 74.03151, 
  74.05557, 74.06338, 74.08119, 74.09666, 74.10538, 74.10714, 74.14242, 74.15967, 74.15672, 74.19246, 
  74.18972, 74.1819, 74.1789, 74.18852, 74.18671, 74.1801, 74.17366, 74.16611, 74.16637, 74.15418, 
  74.15547, 74.14551, 74.12594, 74.10654, 74.09023, 74.08646, 74.06817, 74.0564, 74.05417, 74.04936, 
  74.04473, 74.04404, 74.02731, 74.02482, 74.01795, 74.01254, 74.01583, 74.0154, 74.00671, 74.00027, 
  74.01702, 74.03572, 74.04594, 74.05015, 74.05161, 74.06251, 74.07024, 74.0844, 74.1001, 74.10954, 
  74.13324, 74.16354, 74.15976, 74.16636, 74.17873, 74.18161, 74.17023, 74.17006, 74.20894, 74.24935, 
  74.31271, 74.3188, 74.32335, 74.32473, 74.32438, 74.31897, 74.32121, 74.32559, 74.33928, 74.31207, 
  74.31442, 74.3286, 74.34929, 74.36314, 74.37284, 74.37825, 74.37799, 74.37572, 74.37258, 74.37228, 
  74.37293, 74.39228, 74.39636, 74.40408, 74.40477, 74.40602, 74.41382, 74.41786, 74.41707, 74.42, 
  74.41373, 74.42042, 74.41931, 74.43725, 74.43777, 74.44679, 74.44652, 74.44828, 74.46004, 74.46159, 
  74.45897, 74.4638,
  74.45398, 74.43627, 74.42751, 74.40845, 74.39918, 74.39729, 74.37909, 74.35643, 74.32742, 74.32622,
  74.31795, 74.31469, 74.28618, 74.28103, 74.27142, 74.26167, 74.25343, 74.23666, 74.16747, 74.15315,
  74.13512, 74.11007, 74.08632, 74.07036, 74.06778, 74.0592, 74.0604, 74.05113, 74.03722, 74.01679,
  74.00801, 73.98723, 73.96697, 73.96371, 73.90965, 73.8317, 73.82243, 73.8135, 73.80423, 73.79255,
  73.78843, 73.77195, 73.7637, 73.75478, 73.77092, 73.78019, 73.78431, 73.77401, 73.76714, 73.76061,
  73.76077, 73.75527, 73.74429, 73.75115, 73.73536, 73.72334, 73.69964, 73.69174, 73.65569, 73.63522,
  73.63797, 73.62973, 73.63797, 73.6627, 73.67521, 73.67178, 73.65117, 73.64602, 73.63847, 73.63022,
  73.63915, 73.63572, 73.62095, 73.61477, 73.61752, 73.60684, 73.612, 73.5986, 73.59586, 73.60204,
  73.59483, 73.58075, 73.57167, 73.58506, 73.57355, 73.56634, 73.57378, 73.57069, 73.57464, 73.5822,
  73.58113, 73.60225, 73.60208, 73.58868, 73.58834, 73.59667, 73.59564, 73.59976, 73.60492, 73.6135,
  73.61882, 73.6305, 73.63256, 73.62003, 73.62144, 73.61834, 73.61474, 73.61371, 73.60976, 73.61045,
  73.60547, 73.60238, 73.60633, 73.61594, 73.618, 73.61045, 73.61354, 73.6192, 73.62836, 73.63935,
  73.63832, 73.62836, 73.62269, 73.62355, 73.62718, 73.62529, 73.62546, 73.62889, 73.61353, 73.60734,
  73.60546, 73.60692, 73.61036, 73.61113, 73.6095, 73.60598, 73.60177, 73.59842, 73.59636, 73.59038,
  73.583, 73.57682, 73.56832, 73.56772, 73.57824, 73.56824, 73.56686, 73.57249, 73.58382, 73.58966,
  73.59996, 73.60665, 73.60122, 73.59865, 73.59816, 73.57576, 73.55959, 73.57785, 73.58886, 73.588,
  73.59366, 73.59246, 73.59383, 73.58537, 73.56923, 73.56133, 73.55047, 73.54609, 73.53547, 73.53237,
  73.53194, 73.53322, 73.52718, 73.51363, 73.50896, 73.49866, 73.50046, 73.49537, 73.49675, 73.49081,
  73.49674, 73.49759, 73.49227, 73.4908, 73.49424, 73.49029, 73.49278, 73.49029, 73.49252, 73.49031,
  73.49519, 73.49502, 73.49244, 73.49648, 73.49691, 73.49136, 73.48014, 73.47275, 73.47327, 73.4834,
  73.48571, 73.48159, 73.48227, 73.47729, 73.47335, 73.47266, 73.46373, 73.46356, 73.45704, 73.45326,
  73.45446, 73.4591, 73.4591, 73.44244, 73.44794, 73.44341, 73.43377, 73.42724, 73.42587, 73.4294,
  73.41807, 73.41137, 73.41051, 73.40639, 73.4033, 73.39028, 73.39836, 73.40117, 73.41388, 73.43108,
  73.44238, 73.44856, 73.46504, 73.51896, 73.56037, 73.58338, 73.59987, 73.61086, 73.62494, 73.63661,
  73.64657, 73.67251, 73.67423, 73.66117, 73.66392, 73.69844, 73.71114, 73.72056, 73.74012, 73.76038,
  73.79816, 73.81258, 73.82941, 73.84452, 73.89988, 73.94109, 73.97873, 74.0038, 74.05163, 74.0554,
  74.08367, 74.08676, 74.06169, 74.06031, 74.11644,
  74.11818, 74.12544, 74.13162, 74.13514, 74.13584, 74.13464, 74.13486, 74.14247, 74.14297, 74.16414,
  74.17573, 74.18114, 74.19333, 74.19972, 74.20234, 74.20645, 74.2098, 74.21233, 74.21345, 74.21182,
  74.21427, 74.21401, 74.22972, 74.23446, 74.23678, 74.23689, 74.23483, 74.23474, 74.24636, 74.26227,
  74.28349, 74.28538, 74.2919, 74.29379, 74.34729, 74.36533, 74.37253, 74.38563, 74.38823, 74.394,
  74.40335, 74.41983, 74.42995, 74.43321, 74.43673, 74.44351, 74.44763, 74.45183, 74.4544, 74.46376,
  74.46794, 74.47543, 74.50246, 74.50963, 74.51521, 74.51568, 74.51165, 74.51178, 74.53581, 74.53941,
  74.54036, 74.53628, 74.53096, 74.5408, 74.56315, 74.56744, 74.57782, 74.58634, 74.57237, 74.57486,
  74.57302, 74.56907, 74.5649, 74.57101, 74.56509, 74.57194, 74.57151, 74.57323, 74.57714, 74.60319,
  74.64808, 74.65511, 74.65954, 74.6625, 74.66704, 74.66745, 74.67223, 74.67502, 74.67781, 74.67515,
  74.67841, 74.68408, 74.68863, 74.68905, 74.69388, 74.69807, 74.70096, 74.70459, 74.70438, 74.71005,
  74.7164, 74.72094, 74.72605, 74.73294, 74.73068, 74.73133, 74.74532, 74.75219, 74.76039, 74.76725,
  74.79334, 74.80173, 74.80353, 74.79984, 74.80275, 74.80516, 74.82258, 74.83872, 74.88484, 74.92398,
  74.9266, 74.93569, 74.93531, 74.92592, 74.91184, 74.90686, 74.8957, 74.88618, 74.88043, 74.88103,
  74.87647)
Claimed_Area_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Claimed_Area_1 <- Claimed_Area_1 %>% 
  mutate(NAME = "AZAD KASHMIR", VISUALIZATION_NAME = "Azad Kashmir", 
         ISO2 = NA, ISO3 = NA, M49_CODE = NA, SOVRN = "Pakistan", CONTINENT = "ASIA", 
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

##### GILGIT-BALTISTAN #####
LATITUDE_VALUEs <- c(
  37.03085, 37.03007, 37.02971, 37.03018, 37.02961, 37.02971, 37.03093, 37.03057, 37.03364, 37.03485, 
  37.03619, 37.03614, 37.0372, 37.03732, 37.04004, 37.03967, 37.04212, 37.04176, 37.04445, 37.04484, 
  37.04729, 37.05981, 37.06636, 37.06951, 37.06945, 37.07628, 37.07902, 37.08245, 37.08408, 37.08398, 
  37.08235, 37.07693, 37.07454, 37.06868, 37.06543, 37.05711, 37.04121, 37.03727, 37.03467, 37.02943, 
  37.02422, 37.02162, 37.02484, 37.02199, 37.02206, 37.0258, 37.02754, 37.02792, 37.03121, 37.04166, 
  37.04467, 37.05204, 37.05876, 37.05856, 37.05712, 37.04282, 37.02905, 37.01757, 37.00264, 36.9659, 
  36.96048, 36.95314, 36.94669, 36.9364, 36.93366, 36.93462, 36.92968, 36.92975, 36.93331, 36.93386, 
  36.93818, 36.94443, 36.94594, 36.94544, 36.94647, 36.95494, 36.95892, 36.97291, 36.97751, 36.9785, 
  36.97943, 36.98546, 36.98741, 36.98889, 36.98789, 36.99026, 36.99537, 36.99687, 36.99722, 36.99646, 
  36.99019, 36.98944, 36.99098, 37.00123, 37.0002, 37.00318, 37.01158, 37.01627, 37.0135, 37.00757, 
  37.00208, 37.00219, 37.00767, 37.01106, 37.00796, 37.00677, 37.01004, 37.01137, 37.01257, 37.0245, 
  37.02645, 37.02693, 37.02556, 37.01819, 37.01576, 37.01661, 37.01274, 37.00969, 37.0051, 37.00054, 
  36.99797, 36.993, 36.99002, 36.98577, 36.98611, 36.98153, 36.97728, 36.97426, 36.97652, 36.97179, 
  36.96665, 36.95911, 36.95888, 36.96746, 36.97216, 36.97449, 36.97432, 36.97236, 36.96512, 36.9691, 
  36.96979, 36.96761, 36.96516, 36.96002, 36.95677, 36.9469, 36.94709, 36.95021, 36.95227, 36.95446, 
  36.95505, 36.95505, 36.95371, 36.95117, 36.94558, 36.9366, 36.93334, 36.92967, 36.92754, 36.92586, 
  36.92129, 36.91556, 36.90335, 36.88948, 36.88811, 36.88629, 36.88125, 36.8786, 36.87465, 36.8683, 
  36.85519, 36.85069, 36.85007, 36.84994, 36.84798, 36.84341, 36.83616, 36.8351, 36.80085, 36.79048, 
  36.77336, 36.74677, 36.72435, 36.71586, 36.72377, 36.73904, 36.72384, 36.72061, 36.7215, 36.7334, 
  36.74316, 36.75647, 36.76259, 36.77012, 36.77146, 36.77077, 36.77455, 36.77397, 36.76891, 36.76658, 
  36.77029, 36.76493, 36.74677, 36.74732, 36.75214, 36.66824, 36.63844, 36.62921, 36.60083, 36.60283, 
  36.60007, 36.59797, 36.59256, 36.58126, 36.57299, 36.5683, 36.56462, 36.55594, 36.53725, 36.53601, 
  36.5309, 36.52256, 36.47018, 36.41756, 36.40913, 36.38088, 36.35606, 36.35302, 36.35015, 36.34161, 
  36.32986, 36.32419, 36.30746, 36.30033, 36.2694, 36.2458, 36.23867, 36.22739, 36.22372, 36.22413, 
  36.22898, 36.23438, 36.23632, 36.23611, 36.2339, 36.17268, 36.1627, 36.16367, 36.15868, 36.14926, 
  36.13553, 36.12694, 36.11917, 36.11141, 36.10762, 36.10495, 36.10045, 36.09324, 36.08783, 36.08228, 
  36.07839, 36.07604, 36.07354, 36.07049, 36.0666, 36.0653, 36.06458, 36.06159, 36.04592, 36.01677, 
  36.02427, 36.02246, 36.01607, 36.01149, 36.00906, 35.99733, 35.96802, 35.95663, 35.91674, 35.89115, 
  35.86445, 35.84984, 35.83745, 35.82262, 35.82102, 35.82422, 35.82398, 35.8293, 35.8413, 35.84231, 
  35.84288, 35.83237, 35.83696, 35.83696, 35.83021, 35.82833, 35.83132, 35.85449, 35.8636, 35.85261, 
  35.86764, 35.8764, 35.88871, 35.89083, 35.89131, 35.89058, 35.88801, 35.88961, 35.88829, 35.88628, 
  35.88169, 35.89733, 35.9006, 35.90279, 35.90741, 35.92486, 35.9284, 35.92719, 35.92215, 35.92517, 
  35.91964, 35.91624, 35.91064, 35.90021, 35.87647, 35.87091, 35.86806, 35.86333, 35.84332, 35.82255, 
  35.81966, 35.81347, 35.80708, 35.80438, 35.79873, 35.78253, 35.77863, 35.77549, 35.77145, 35.76143, 
  35.76818, 35.77034, 35.76985, 35.76547, 35.76201, 35.76031, 35.75794, 35.75613, 35.75505, 35.75557, 
  35.75491, 35.75167, 35.74868, 35.74544, 35.74025, 35.73363, 35.72969, 35.72471, 35.72492, 35.70987, 
  35.70025, 35.70011, 35.69816, 35.69342, 35.68826, 35.68686, 35.68509, 35.68157, 35.67473, 35.668, 
  35.66232, 35.65964, 35.66014, 35.65805, 
  35.65165, 35.64251, 35.63902, 35.63979, 35.62954, 35.60609, 35.58816, 35.58292, 35.57901, 35.57678, 
  35.57898, 35.5626, 35.5552, 35.55143, 35.54501, 35.53872, 35.53547, 35.52901, 35.5254, 35.51838, 
  35.51574, 35.51846, 35.51693, 35.49681, 35.45487, 35.45469, 35.44288, 35.43011, 35.42071, 35.40591, 
  35.39955, 35.38968, 35.3859, 35.38964, 35.4014, 35.39696, 35.39297, 35.38275, 35.37778, 35.36274, 
  35.3591, 35.36008, 35.35651, 35.35028, 35.34496, 35.33641, 35.32738, 35.32129, 35.31989, 35.31632, 
  35.31239, 35.31127, 35.29551, 35.2946, 35.28991, 35.25137, 35.23847, 35.23244, 35.21056, 35.183, 
  35.18237, 35.16918, 35.16781, 35.14153, 35.13544, 35.1297, 35.12581, 35.12201, 35.11654, 35.11145, 
  35.10485, 35.09797, 35.08914, 35.06689, 35.06506, 35.05758, 35.05345, 
  35.04887, 35.04542, 35.04335, 35.0463, 35.05255, 35.0547, 35.05464, 35.05069, 35.05083, 35.05291, 
  35.05145, 35.03808, 35.03632, 35.0248, 35.01657, 35.01861, 35.01763, 35.01232, 35.00884, 35.00965, 
  35.00466, 34.98739, 34.97614, 34.97059, 34.94575, 34.94463, 34.93379, 34.92591, 34.93344, 34.95012, 
  34.95381, 34.9307, 34.92035, 34.91324, 34.89973, 34.89192, 34.88832, 34.82606, 34.81845, 34.80549, 
  34.79569, 34.7505, 34.73371, 34.74817, 34.75219, 34.76242, 34.76425, 34.76146, 34.74553, 34.7512, 
  34.75593, 34.75903, 34.76002, 34.7584, 34.76432, 34.7651, 34.76164, 34.76644, 34.783, 34.78625, 
  34.7947, 34.79379, 34.79597, 34.76446, 34.75068, 34.7468, 34.73765, 34.74165, 34.73308, 34.7196, 
  34.72229, 34.72109, 34.71706, 34.6984, 34.69697, 34.69717, 34.68425, 34.67629, 34.67501, 34.67321, 
  34.67469, 34.67425, 34.66124, 34.66138, 34.64712, 34.63271, 34.63713, 34.63413, 34.63836, 34.63932, 
  34.64528, 34.64783, 34.6611, 34.66491, 34.67183, 34.68771, 34.68573, 34.68418, 34.65016, 34.63935, 
  34.64098, 34.63236, 34.62551, 34.58242, 34.55591, 34.51366, 34.52586, 34.53378, 34.54022, 34.53916, 
  34.55584, 34.54736, 34.53739, 34.53477, 34.54107, 34.54517, 34.55301, 34.5587, 34.55238, 34.54651, 
  34.54778, 34.5381, 
  34.53792, 34.54001, 34.54108, 34.56286, 34.56897, 34.56482, 34.58771, 34.58749, 34.58936, 34.59554, 
  34.59471, 34.59856, 34.6023, 34.60294, 34.6004, 34.59902, 34.60096, 34.60349, 34.61548, 34.61884, 
  34.61876, 34.6171, 34.61767, 34.62067, 34.63215, 34.63829, 34.63767, 34.64867, 34.64804, 34.64437, 
  34.64394, 34.64825, 34.65665, 34.6551, 34.65136, 34.65362, 34.64775, 34.65072, 34.64959, 34.65489, 
  34.64712, 34.63483, 34.63737, 34.62911, 34.63942, 34.64373, 34.65227, 34.6521, 34.64758, 34.64687, 
  34.64956, 34.66149, 34.67268, 34.67363, 34.6731, 34.67476, 
  34.68156, 34.69554, 34.69978, 34.71488, 34.72031, 34.72645, 34.72722, 34.7256, 34.73131, 34.73974, 
  34.745, 34.75032, 34.76813, 34.76897, 34.78674, 34.78505, 34.77398, 34.77391, 34.783, 34.80119, 
  34.81238, 34.8234, 34.82328, 34.82927, 34.83135, 34.82878, 34.83998, 34.8423, 34.84785, 34.85882, 
  34.85928, 34.85509, 34.85361, 34.85542, 34.85766, 34.86954, 34.87146, 34.87144, 34.86898, 34.87334, 
  34.87671, 34.87755, 34.88081, 34.88665, 34.8891, 34.88956, 34.89551, 34.89925, 34.90325, 34.90008, 
  34.89786, 34.89642, 34.91659, 34.89945, 34.90381, 34.90849, 34.92232, 34.92605, 34.93576, 34.96753, 
  34.96914, 34.97375, 34.98156, 34.98683, 34.99938, 35.0151, 35.01425, 35.01102, 35.02114, 35.03762, 
  35.05104, 35.05378, 35.06355, 35.06882, 35.0829, 35.08575, 35.09214, 35.09491, 35.09604, 35.10197,
  35.1111, 35.10997, 35.10602, 35.11584, 35.12868, 35.13254, 35.13283, 35.13142, 35.12679, 35.11682, 
  35.10207, 35.09575, 35.08497, 35.08301, 35.07426, 35.06063, 35.05782, 35.05712, 35.06509, 35.06109,
  35.05631, 35.04974, 35.03766, 35.03793, 35.04952, 35.05013, 35.0531, 35.06675, 35.06768, 35.06571,
  35.06464, 35.06819, 35.07142, 35.07813, 35.08684, 35.08691, 35.09038, 35.08297, 35.08132, 35.08227,
  35.08125, 35.07834, 35.07676, 35.08689, 35.0956, 35.09923, 35.10192, 35.10492, 35.1076, 35.1127,
  35.11492, 35.11635, 35.11709, 
  35.12001, 35.12431, 35.1295, 35.13688, 35.14474, 35.14699, 35.14348, 35.14011, 35.13818, 35.13814, 
  35.14109, 35.14376, 35.15148, 35.15064, 35.14629, 35.14516, 35.14797, 35.14502, 35.16199, 35.16578, 
  35.18009, 35.18206, 35.17897, 35.18163, 35.17426, 35.16865, 35.16626, 35.16696, 35.18552, 35.19997, 
  35.21091, 35.20888, 35.21183, 35.20285, 35.20593, 35.22375, 35.22417, 35.23861, 35.23548, 35.22033, 
  35.21767, 35.22216, 35.22805, 35.22945, 35.23351, 35.23436, 35.26705, 35.28499, 35.2957, 35.30901, 
  35.32694, 35.33311, 35.33746, 35.3411, 35.35118, 35.35594, 35.36462, 35.3837, 35.39378, 35.40161, 
  35.41759, 35.42025, 35.44347, 35.45769, 35.47432, 35.49524, 35.51788, 35.5183, 35.5292, 35.53199, 
  35.53213, 35.52487, 35.53547, 35.54762, 35.53923, 35.53783, 35.52637, 35.5437, 35.5342, 35.53126, 
  35.54076, 35.53923, 35.53553, 35.51625, 35.52301, 35.53865, 35.54326, 35.55532, 35.55665, 35.56705, 
  35.58394, 35.59679, 35.60648, 35.61122, 35.6129, 35.62141, 35.63481, 35.63746, 35.65079, 35.65804, 
  35.66069, 35.65651, 35.66041, 35.67073, 35.65818, 35.66794, 35.66613, 35.67326, 35.68595, 35.71414, 
  35.71414, 35.7232, 35.75318, 35.76001, 35.76029, 35.7707, 35.77934, 35.78714, 35.79953, 35.80974, 
  35.81753, 35.8398, 35.85497, 35.85469, 35.84934, 35.84273, 35.8369, 35.84316, 35.87293, 35.85652, 
  35.8586, 35.84789, 35.83908, 35.8388, 35.83198, 35.82502, 35.8246, 35.82613, 35.83017, 35.83393, 
  35.83267, 35.8358, 35.83232, 35.83291, 35.82873, 35.82609, 35.82692, 35.82163, 35.81356, 35.81342, 
  35.81648, 35.83792, 35.84293, 35.84821, 35.85378, 35.85876, 35.86766, 35.86752, 35.87128, 35.88366, 
  35.86168, 35.85667, 35.84832, 35.83952, 35.83723, 35.82902, 35.8247, 35.8277, 35.82394, 35.82665, 
  35.81706, 35.81385, 35.82415, 35.83487, 35.83668, 35.8371, 35.84072, 35.85174, 35.8541, 35.855, 
  35.85243, 35.85952, 35.85076, 35.85069, 35.83963, 35.83809, 35.83942, 35.84518, 35.85196, 35.85557, 
  35.86141, 35.85995, 35.85626, 35.85668, 35.87394, 35.87547, 35.87421, 35.87728, 35.87846, 35.87707, 
  35.8802, 35.88069, 35.88632, 35.88869, 35.89258, 35.89161, 35.89603, 35.91246, 35.91844, 35.96634, 
  36.02425, 36.04549, 36.04799, 36.0688, 36.10056, 36.12275, 36.1355, 36.16572, 36.1732, 36.1987, 
  36.20513, 36.21372, 36.25193, 36.2691, 36.26411, 36.25304, 36.25719, 36.26301, 36.27353, 36.27334, 
  36.2988, 36.29742, 36.32634, 36.32828, 36.34349, 36.35898, 36.36423, 36.37372, 36.38395, 36.38478, 
  36.39058, 36.41158, 36.42622, 36.43865, 36.45943, 36.45308, 36.46012, 36.45708, 36.45487, 36.4546, 
  36.45998, 36.47944, 36.48564, 36.49061, 36.49475, 36.4982, 36.49944, 36.50123, 36.51255, 36.52234, 
  36.53117, 36.52979, 36.53241, 36.55053, 36.5679, 36.57135, 36.58535, 36.5932, 36.60685, 36.60946, 
  36.62145, 36.63455, 36.64089, 36.64654, 36.65921, 36.67945, 36.68262, 36.68211, 36.68569, 36.69857, 
  36.70848, 36.71976, 36.7265, 36.71215, 36.71228, 36.70871, 36.70326, 36.70877, 36.72057, 36.728, 
  36.7324, 36.73681, 36.73928, 36.73341, 36.73286, 36.7213, 36.73613, 36.73682, 36.71363, 36.72615, 
  36.72656, 36.71487, 36.7139, 36.71624, 36.72439, 36.695, 36.69074, 36.71355, 36.7145, 36.70666, 
  36.70941, 36.69991, 36.70545, 36.7115, 36.70861, 36.70022, 36.70338, 36.72829, 36.73063, 36.736, 
  36.75433, 36.76946, 36.77909, 36.79187, 36.79792, 36.79435, 36.79504, 36.81967, 36.81472, 36.83535, 
  36.83521, 36.90879, 36.91573, 36.90502, 36.9031, 36.91216, 36.90528, 36.90528, 36.89896, 36.89732, 
  36.90116, 36.89677, 36.89073, 36.89073, 36.90116, 36.91379, 36.92532, 36.92394, 36.91928, 36.91315, 
  36.89942, 36.88707, 36.8791, 36.86921, 36.87526, 36.86453, 36.86055, 36.85917, 36.85643, 36.85258, 
  36.84271, 36.84243, 36.839, 36.83007, 36.83721, 36.83069, 36.82726, 36.82904, 36.82629, 36.84147, 
  36.83872, 36.84229, 36.84119, 36.83886, 36.83803, 36.84956, 36.84956, 36.85368, 36.86055, 36.87401, 
  36.88472, 36.88307, 36.88664, 36.8935, 36.89809, 36.90372, 36.91182, 36.91662, 36.91662, 36.90976, 
  36.91147, 36.90433, 36.90735, 36.89692, 36.89541, 36.89898, 36.90008, 36.90461, 36.91243, 36.91225, 
  36.91911, 36.9387, 36.94515, 36.95064, 36.96244, 36.96411, 36.97371, 36.97522, 36.9888, 36.99346, 
  36.99949, 37.00607, 37.01114, 37.00744, 37.00196, 37.00415, 36.99038, 36.98654, 36.98819, 36.98106, 
  36.96625, 36.95722, 36.96545, 36.97272, 36.97999, 36.98685, 37.01084, 37.01742, 37.02278, 37.02566, 
  37.02497, 37.03045, 37.02969)
LONGITUDE_VALUEs <- c(
  74.56462, 74.56537, 74.56747, 74.56955, 74.57176, 74.57296, 74.57432, 74.58011, 74.58563, 74.5918, 
  74.59412, 74.59717, 74.59925, 74.60225, 74.60545, 74.60721, 74.61084, 74.61517, 74.61858, 74.62019, 
  74.62431, 74.6224, 74.63571, 74.64592, 74.6515, 74.65566, 74.65909, 74.66798, 74.69057, 74.69748, 
  74.70199, 74.70617, 74.70699, 74.70562, 74.7072, 74.72145, 74.71664, 74.71742, 74.72325, 74.72454, 
  74.73107, 74.73926, 74.76368, 74.77145, 74.77415, 74.77771, 74.78123, 74.78882, 74.7944, 74.79101, 
  74.79226, 74.80147, 74.83676, 74.83917, 74.84106, 74.84108, 74.84614, 74.83987, 74.85762, 74.88363, 
  74.88019, 74.88113, 74.88577, 74.8837, 74.88826, 74.89856, 74.90611, 74.91015, 74.91333, 74.92045, 
  74.92105, 74.91633, 74.91607, 74.93188, 74.93235, 74.92995, 74.92471, 74.92103, 74.91699, 74.91703, 
  74.9287, 74.93888, 74.94394, 74.95146, 74.95802, 74.96648, 74.97115, 74.9736, 74.97596, 74.9775, 
  74.98154, 74.98467, 74.99223, 75.00484, 75.0099, 75.0148, 75.02119, 75.02926, 75.04325, 75.0436, 
  75.0605, 75.0714, 75.08046, 75.10552, 75.1103, 75.11456, 75.11495, 75.11697, 75.12551, 75.13436, 
  75.1377, 75.1435, 75.14651, 75.15204, 75.15204, 75.16114, 75.16624, 75.16805, 75.16569, 75.15942, 
  75.1583, 75.15809, 75.15938, 75.16942, 75.17341, 75.17544, 75.18179, 75.19502, 75.19845, 75.21631, 
  75.21614, 75.23347, 75.23615, 75.26778, 75.27074, 75.28537, 75.2934, 75.29833, 75.30743, 75.31359, 
  75.31577, 75.31856, 75.32018, 75.32202, 75.35895, 75.37535, 75.38541, 75.39404, 75.39326, 75.39395, 
  75.39623, 75.39949, 75.40172, 75.40232, 75.40957, 75.40588, 75.39412, 75.38837, 75.38704, 75.38721, 
  75.39009, 75.39065, 75.38558, 75.42026, 75.42189, 75.42262, 75.41945, 75.42, 75.42279, 75.42284, 
  75.42558, 75.42726, 75.42819, 75.4293, 75.42938, 75.42679, 75.42833, 75.43185, 75.42178, 75.42685, 
  75.41964, 75.44354, 75.45161, 75.46933, 75.47491, 75.49938, 75.51491, 75.53028, 75.5326, 75.5374, 
  75.53669, 75.52733, 75.53381, 75.53313, 75.5339, 75.54987, 75.56712, 75.56815, 75.5685, 75.57383, 
  75.6406, 75.6734, 75.69828, 75.71236, 75.7206, 75.86692, 75.88848, 75.91098, 75.93637, 75.94503, 
  75.94237, 75.93945, 75.94032, 75.93466, 75.92538, 75.92384, 75.92578, 75.9396, 75.95265, 75.95762, 
  75.96355, 75.9644, 76.00919, 76.02828, 76.03532, 76.00314, 75.99438, 75.98671, 75.98452, 75.98516, 
  75.99344, 75.99532, 75.99507, 76.01721, 76.02682, 76.05755, 76.05781, 76.06176, 76.05618, 76.04759, 
  76.03446, 76.03282, 76.02784, 76.01273, 76.00647, 76.01332, 75.98963, 75.96954, 75.96387, 75.96782, 
  75.93264, 75.93195, 75.9462, 75.94895, 75.9398, 75.93736, 75.94259, 75.94534, 75.94379, 75.95324, 
  75.95444, 75.94379, 75.94173, 75.94208, 75.95221, 75.95345, 75.95182, 75.94924, 75.957, 76.00473, 
  76.0473, 76.08629, 76.10106, 76.10355, 76.09805, 76.09794, 76.11391, 76.13398, 76.15923, 76.14859, 
  76.15288, 76.14086, 76.14481, 76.16484, 76.17085, 76.1778, 76.20159, 76.21961, 76.22163, 76.22459, 
  76.29897, 76.30852, 76.31625, 76.3219, 76.34053, 76.35934, 76.35667, 76.35144, 76.36645, 76.42714, 
  76.44559, 76.44908, 76.46379, 76.46856, 76.47277, 76.47728, 76.48127, 76.49322, 76.50387, 76.50928, 
  76.51246, 76.53134, 76.5371, 76.54573, 76.54281, 76.54388, 76.54787, 76.55589, 76.56156, 76.56663, 
  76.58306, 76.58533, 76.584, 76.59885, 76.58052, 76.57236, 76.57322, 76.58292, 76.58757, 76.56109, 
  76.5659, 76.56521, 76.57013, 76.57837, 76.57785, 76.59116, 76.58489, 76.58653, 76.60241, 76.61545, 
  76.62575, 76.63347, 76.64223, 76.64867, 76.64727, 76.64819, 76.65188, 76.6577, 76.66434, 76.67155, 
  76.67859, 76.68696, 76.6913, 76.69409, 76.69692, 76.69344, 76.69546, 76.69623, 76.7031, 76.72695, 
  76.73115, 76.73476, 76.73931, 76.7436, 76.74523, 76.75034, 76.75369, 76.75687, 76.75451, 76.75532, 
  76.75992, 76.76683, 76.77209, 76.776, 
  76.77922, 76.78197, 76.77467, 76.76283, 76.75511, 76.77888, 76.79364, 76.79408, 76.79215, 76.78559, 
  76.77641, 76.76618, 76.7497, 76.74884, 76.75013, 76.74785, 76.75347, 76.75299, 76.75819, 76.75879, 
  76.77442, 76.78918, 76.7963, 76.79098, 76.8212, 76.82558, 76.83833, 76.84146, 76.83146, 76.84685, 
  76.84728, 76.86257, 76.88471, 76.90824, 76.91892, 76.93964, 76.94762, 76.95448, 76.95045, 76.95844, 
  76.96856, 76.98298, 76.98658, 76.98504, 76.9778, 76.98702, 76.99011, 76.98805, 76.98359, 76.98402, 
  76.98908, 76.99856, 77.0216, 77.00646, 77.00122, 76.97478, 77.00064, 77.00407, 76.99085, 77.01744, 
  77.04335, 77.08541, 77.087, 77.08199, 77.06933, 77.0718, 77.07, 77.07193, 77.08176, 77.08146, 
  77.0782, 77.08266, 77.11133, 77.11833, 77.12039, 77.11718, 77.11674, 
  77.11041, 77.09106, 77.08806, 77.0828, 77.07829, 77.07778, 77.07722, 77.07242, 77.07003, 77.06712, 
  77.0468, 77.03732, 77.01656, 77.00934, 76.98059, 76.97278, 76.96086, 76.95733, 76.94819, 76.94442, 
  76.93346, 76.94093, 76.92772, 76.93106, 76.91578, 76.90823, 76.90548, 76.89768, 76.88172, 76.84995, 
  76.79224, 76.7634, 76.75734, 76.75665, 76.7618, 76.74798, 76.74532, 76.74232, 76.73185, 76.73656, 
  76.70164, 76.69666, 76.64242, 76.63838, 76.63177, 76.63589, 76.63366, 76.62246, 76.61019, 76.57958, 
  76.5777, 76.57867, 76.57455, 76.56631, 76.56184, 76.55952, 76.55262, 76.52944, 76.51739, 76.52048, 
  76.49722, 76.49275, 76.48657, 76.44309, 76.44318, 76.4307, 76.4194, 76.41345, 76.36023, 76.32855, 
  76.309, 76.26735, 76.25775, 76.26997, 76.266, 76.25817, 76.24945, 76.25027, 76.2522, 76.25261, 
  76.2443, 76.24061, 76.20308, 76.19389, 76.17097, 76.16328, 76.14487, 76.13912, 76.13423, 76.11591, 
  76.11041, 76.10068, 76.10068, 76.08884, 76.08635, 76.06308, 76.0339, 76.02943, 75.99614, 75.99296, 
  75.97553, 75.95047, 75.94553, 75.89288, 75.83539, 75.78503, 75.69883, 75.67419, 75.67032, 75.54072, 
  75.51316, 75.49265, 75.48811, 75.46278, 75.45232, 75.42587, 75.42124, 75.40343, 75.40186, 75.3931, 
  75.39035, 75.36639, 
  75.36509, 75.36102, 75.36175, 75.34419, 75.32814, 75.3199, 75.29856, 75.29522, 75.28956, 75.28606, 
  75.28042, 75.26797, 75.26587, 75.26385, 75.26149, 75.25446, 75.24853, 75.24772, 75.25239, 75.25471, 
  75.25578, 75.25664, 75.26269, 75.26788, 75.26887, 75.26608, 75.25542, 75.1838, 75.1802, 75.17857, 
  75.17591, 75.17634, 75.16278, 75.14175, 75.1384, 75.1263, 75.12021, 75.10743, 75.09703, 75.08682, 
  75.07926, 75.04827, 75.03335, 75.02519, 75.01331, 75.00052, 74.99615, 74.99482, 74.99181, 74.98074, 
  74.98284, 74.96187, 74.93569, 74.92642, 74.90677, 74.8896, 
  74.87288, 74.87647, 74.88103, 74.88043, 74.88618, 74.8957, 74.90686, 74.91184, 74.92592, 74.93531, 
  74.93569, 74.9266, 74.92398, 74.88484, 74.83872, 74.82258, 74.80516, 74.80275, 74.79984, 74.80353, 
  74.80173, 74.79334, 74.76725, 74.76039, 74.75219, 74.74532, 74.73133, 74.73068, 74.73294, 74.72605, 
  74.72094, 74.7164, 74.71005, 74.70438, 74.70459, 74.70096, 74.69807, 74.69388, 74.68905, 74.68863, 
  74.68408, 74.67841, 74.67515, 74.67781, 74.67502, 74.67223, 74.66745, 74.66704, 74.6625, 74.65954, 
  74.65511, 74.64808, 74.60319, 74.57714, 74.57323, 74.57151, 74.57194, 74.56509, 74.57101, 74.5649, 
  74.56907, 74.57302, 74.57486, 74.57237, 74.58634, 74.57782, 74.56744, 74.56315, 74.5408, 74.53096, 
  74.53628, 74.54036, 74.53941, 74.53581, 74.51178, 74.51165, 74.51568, 74.51521, 74.50963, 74.50246,
  74.47543, 74.46794, 74.46376, 74.4544, 74.45183, 74.44763, 74.44351, 74.43673, 74.43321, 74.42995, 
  74.41983, 74.40335, 74.394, 74.38823, 74.38563, 74.37253, 74.36533, 74.34729, 74.29379, 74.2919, 
  74.28538, 74.28349, 74.26227, 74.24636, 74.23474, 74.23483, 74.23689, 74.23678, 74.23446, 74.22972,
  74.21401, 74.21427, 74.21182, 74.21345, 74.21233, 74.2098, 74.20645, 74.20234, 74.19972, 74.19333, 
  74.18114, 74.17573, 74.16414, 74.14297, 74.14247, 74.13486, 74.13464, 74.13584, 74.13514, 74.13162, 
  74.12544, 74.11818, 74.11644, 
  74.11374, 74.10566, 74.10713, 74.11243, 74.11243, 74.10694, 74.10128, 74.10008, 74.09761, 74.09322, 
  74.09013, 74.08996, 74.07245, 74.06662, 74.06525, 74.05014, 74.04139, 74.0311, 74.01699, 74.00583, 
  74.0044, 74.00137, 73.99657, 73.98061, 73.96365, 73.96142, 73.95679, 73.95198, 73.94147, 73.92723, 
  73.92002, 73.90342, 73.8933, 73.86687, 73.85726, 73.84508, 73.83255, 73.80801, 73.78463, 73.77228, 
  73.74585, 73.7447, 73.74573, 73.74195, 73.74298, 73.73646, 73.72782, 73.70294, 73.70716, 73.70133, 
  73.68417, 73.68654, 73.69203, 73.69323, 73.69117, 73.69786, 73.69495, 73.70856, 73.70564, 73.71508, 
  73.72058, 73.73362, 73.75267, 73.74789, 73.77397, 73.78971, 73.78954, 73.73977, 73.736, 73.72793, 
  73.70717, 73.6689, 73.63543, 73.61775, 73.5944, 73.57655, 73.55545, 73.52456, 73.51632, 73.49573, 
  73.48252, 73.47274, 73.46963, 73.40185, 73.39794, 73.4, 73.39828, 73.39999, 73.39716, 73.39632, 
  73.39838, 73.3613, 73.35564, 73.35581, 73.35306, 73.35186, 73.34499, 73.33778, 73.33044, 73.33181, 
  73.32306, 73.30898, 73.29353, 73.28049, 73.23637, 73.22607, 73.2156, 73.19437, 73.18321, 73.14358, 
  73.12933, 73.12092, 73.12212, 73.12916, 73.16195, 73.16679, 73.16507, 73.16868, 73.19357, 73.19418, 
  73.20139, 73.18611, 73.17204, 73.16431, 73.1571, 73.1565, 73.14693, 73.12376, 73.08599, 73.07072, 
  73.05046, 73.04737, 73.02481, 73.01416, 73.01279, 73.00627, 73.00112, 72.99305, 72.98824, 72.98738, 
  72.98138, 72.96402, 72.95424, 72.9493, 72.93316, 72.93179, 72.92818, 72.91857, 72.91222, 72.90003, 
  72.89436, 72.88818, 72.882, 72.88286, 72.88029, 72.86148, 72.84758, 72.84311, 72.84174, 72.82423, 
  72.81908, 72.82217, 72.81136, 72.81155, 72.80442, 72.80374, 72.79859, 72.79524, 72.78382, 72.77395, 
  72.75909, 72.74176, 72.72974, 72.73369, 72.73146, 72.72648, 72.72219, 72.72713, 72.72309, 72.70785, 
  72.70262, 72.69781, 72.68777, 72.68502, 72.6785, 72.67215, 72.65764, 72.62701, 72.62997, 72.61505, 
  72.60552, 72.59059, 72.58389, 72.58132, 72.57333, 72.56981, 72.55505, 72.5528, 72.5407, 72.53469, 
  72.53057, 72.52534, 72.52568, 72.52912, 72.52697, 72.51873, 72.5106, 72.50971, 72.50593, 72.55222, 
  72.58592, 72.56632, 72.53955, 72.51964, 72.51922, 72.53466, 72.55766, 72.54816, 72.53649, 72.54987, 
  72.54557, 72.56479, 72.57817, 72.60906, 72.64235, 72.67427, 72.67942, 72.67393, 72.68594, 72.7066, 
  72.73509, 72.75705, 72.79056, 72.8012, 72.80497, 72.82282, 72.85405, 72.85557, 72.86586, 72.87136, 
  72.87547, 72.86655, 72.882, 72.87856, 72.90422, 72.92602, 72.94094, 72.966, 72.96858, 72.97252, 
  72.98213, 72.98436, 72.97619, 72.97379, 72.97464, 72.97911, 72.98597, 72.98631, 72.98013, 73.01717, 
  73.03415, 73.04874, 73.05097, 73.04985, 73.0586, 73.07611, 73.07568, 73.07945, 73.09661, 73.09627, 
  73.07585, 73.07068, 73.07514, 73.07085, 73.07409, 73.06912, 73.07152, 73.09105, 73.10856, 73.1274, 
  73.15692, 73.17408, 73.1739, 73.22598, 73.23216, 73.23353, 73.30823, 73.30892, 73.34627, 73.34987, 
  73.34352, 73.34335, 73.36223, 73.37092, 73.41451, 73.44368, 73.4578, 73.46501, 73.49965, 73.51732, 
  73.52281, 73.52298, 73.53465, 73.56297, 73.57941, 73.59485, 73.68992, 73.70882, 73.72409, 73.74434, 
  73.75429, 73.79874, 73.80577, 73.82396, 73.84095, 73.85725, 73.88248, 73.88883, 73.88042, 73.87613, 
  73.88962, 73.88157, 73.85548, 73.84776, 73.81018, 73.80572, 73.79937, 73.7953, 73.76407, 73.7237, 
  73.70499, 73.65408, 73.69144, 73.71564, 73.73486, 73.75254, 73.75705, 73.77147, 73.7725, 73.78074, 
  73.78966, 73.79927, 73.79927, 73.8154, 73.82742, 73.82536, 73.83497, 73.84801, 73.84904, 73.88994, 
  73.90744, 73.90436, 73.89166, 73.91259, 73.93113, 73.94814, 73.94762, 73.95586, 73.95758, 73.95415, 
  73.95687, 73.96649, 73.96683, 73.99446, 74.00578, 74.02308, 74.02686, 74.03219, 74.04712, 74.06515, 
  74.09192, 74.09621, 74.10462, 74.10599, 74.12075, 74.12467, 74.13257, 74.13429, 74.12845, 74.13772, 
  74.15145, 74.15419, 74.15968, 74.15248, 74.15304, 74.17208, 74.17208, 74.17603, 74.18049, 74.19079, 
  74.19906, 74.2042, 74.21381, 74.2248, 74.2423, 74.24488, 74.2574, 74.26598, 74.27096, 74.29443, 
  74.30953, 74.31625, 74.33273, 74.33307, 74.34972, 74.38789, 74.39579, 74.41501, 74.42067, 74.41366, 
  74.41761, 74.41744, 74.4267, 74.42859, 74.44867, 74.45571, 74.47186, 74.48644, 74.49039, 74.49983, 
  74.50618, 74.53316, 74.54259, 74.54362, 74.53522, 74.53882, 74.51687, 74.5191, 74.53348, 74.53536, 
  74.54772, 74.55544, 74.56029)
Claimed_Area_2 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Claimed_Area_2 <- Claimed_Area_2 %>% 
  mutate(NAME = "GILGIT-BALTISTAN", VISUALIZATION_NAME = "Gilgit-Baltistan", 
         ISO2 = NA, ISO3 = NA, M49_CODE = NA, SOVRN = "Pakistan", CONTINENT = "ASIA", 
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

##### JAMMU AND KASHMIR #####
LATITUDE_VALUEs <- c(
  33.24991, 33.24865, 33.24829, 33.24873, 33.25016, 33.25438, 33.25669, 33.25932, 33.26108, 33.26643, 
  33.26911, 33.27483, 33.27784, 33.28191, 33.28358, 33.30159, 33.33289, 33.32813, 33.32856, 33.32698, 
  33.32535, 33.32513, 33.32585, 33.32721, 33.33073, 33.34182, 33.34243, 33.34688, 33.35093, 33.35258, 
  33.35254, 33.40916, 33.41461, 33.42449, 33.43674, 33.43868, 33.42374, 33.42413, 33.42772, 33.4515, 
  33.45139, 33.46478, 33.46224, 33.46427, 33.4701, 33.47173, 33.48192, 33.48294, 33.49335, 33.49443, 
  33.51759, 33.51565, 33.51851, 33.52713, 33.5261, 33.53461, 33.54491, 33.55081, 33.56419, 33.56161, 
  33.54759, 33.54573, 33.54199, 33.53798, 33.53741, 33.55196, 33.56753, 33.57556, 33.57849, 33.57942, 
  33.58969, 33.5937, 33.60385, 33.61006, 33.60573, 33.60366, 33.60355, 33.60916, 33.60923, 33.59833, 
  33.57196, 33.56666, 33.5658, 33.54978, 33.54745, 33.54688, 33.55215, 33.57039, 33.57289, 33.57632, 
  33.58726, 33.59827, 33.6007, 33.60263, 33.60278, 33.60764, 33.61707, 33.62686, 33.63022, 33.64522, 
  33.66169, 33.68019, 33.68401, 33.69083, 33.71425, 33.73053, 33.73324, 33.74701, 33.75962, 33.76091, 
  33.76831, 33.77138, 33.7747, 33.78679, 33.79979, 33.79993, 33.79799, 33.79975, 33.80926, 33.81796, 
  33.87616, 33.90286, 33.91846, 33.92286, 33.93134, 33.93427, 33.94751, 33.96432, 33.97655, 33.98206, 
  33.97708, 33.97466, 33.97587, 33.97128, 33.95451, 33.96893, 33.9616, 33.96192, 33.95387, 33.95281, 
  33.9569, 33.95612, 33.96594, 33.98545, 33.99037, 33.99577, 33.99677, 34.00602, 34.00858, 34.04322, 
  34.0531, 34.05975, 34.07286, 34.0861, 34.10316, 34.10884, 34.12443, 34.14412, 34.15446, 34.15823, 
  34.17017, 34.19584, 34.20176, 34.19921, 34.21211, 34.21034, 34.19507, 34.19976, 34.21377, 34.21048, 
  34.21133, 34.22283, 34.22817, 34.22658, 34.23328, 34.23357, 34.24006, 34.25499, 34.26554, 34.27488, 
  34.28005, 34.27932, 34.27987, 34.28538, 34.28171, 34.28483, 34.29625, 34.31541, 34.3175, 34.32007, 
  34.3237, 34.32393, 34.3247, 34.3281, 34.33604, 34.34136, 34.34288, 34.35029, 34.35833, 34.36616, 
  34.37105, 34.38667, 34.39099, 34.39552, 34.40696, 34.43943, 34.46923, 34.48874, 34.51747, 34.51969, 
  34.52156, 34.52209, 34.52146, 34.52436, 34.52778, 34.53215, 34.53473, 
  34.5381, 34.53792, 34.54001, 34.54108, 34.56286, 34.56897, 34.56482, 34.58771, 34.58749, 34.58936, 
  34.59554, 34.59471, 34.59856, 34.6023, 34.60294, 34.6004, 34.59902, 34.60096, 34.60349, 34.61548, 
  34.61884, 34.61876, 34.6171, 34.61767, 34.62067, 34.63215, 34.63829, 34.63767, 34.64867, 34.64804, 
  34.64437, 34.64394, 34.64825, 34.65665, 34.6551, 34.65136, 34.65362, 34.64775, 34.65072, 34.64959, 
  34.65489, 34.64712, 34.63483, 34.63737, 34.62911, 34.63942, 34.64373, 34.65227, 34.6521, 34.64758, 
  34.64687, 34.64956, 34.66149, 34.67268, 34.67363, 34.6731, 34.67476, 34.68156, 
  34.6774, 34.6733, 34.68121, 34.706, 34.73772, 34.76202, 34.76993, 34.77976, 34.77075, 34.77157, 
  34.78167, 34.78249, 34.77321, 34.7852, 34.78712, 34.77894, 34.72679, 34.68884, 34.67999, 34.67766, 
  34.67081, 34.66502, 34.6641, 34.65867, 34.65824, 34.6605, 34.66079, 34.65895, 34.66559, 34.67984, 
  34.67999, 34.66947, 34.66885, 34.67121, 34.6692, 34.67083, 34.67079, 34.67217, 34.674, 34.67238, 
  34.67287, 34.674, 34.68042, 34.68322, 34.68174, 34.68127, 34.68346, 34.68459, 34.6842, 34.68233, 
  34.68311, 34.68593, 34.68727, 34.6872, 34.68614, 34.68285, 34.67548, 34.67093, 34.66895, 34.66733, 
  34.66564, 34.66373, 34.66062, 34.65805, 34.65519, 34.65438, 34.65169, 34.64922, 34.64585, 34.64133, 
  34.61488, 34.60849, 34.60312, 34.59775, 34.59584, 34.58291, 34.58199, 34.56934, 34.56634, 34.52795, 
  34.51904, 34.5142, 34.51151, 34.51359, 34.5132, 34.49973, 34.4929, 34.4848, 34.48364, 34.47462, 
  34.4652, 34.45289, 34.45328, 34.43081, 34.4333, 34.43512, 34.43277, 34.42709, 34.42606, 34.42646, 
  34.426, 34.42758, 34.42705, 34.42612, 34.42295, 34.41863, 34.39834, 34.39494, 34.38665, 34.38492, 
  34.38545, 34.3846, 34.38173, 34.3809, 34.37916, 34.37865, 34.37672, 34.37106, 34.35472, 34.3499, 
  34.34398, 34.3454, 34.33225, 34.33502, 34.33817, 34.34154, 34.34276, 34.34362, 34.34494, 34.34545, 
  34.34387, 34.34518, 34.34637, 34.34674, 34.34507, 34.34171, 34.33735, 34.33703, 34.33636, 34.33232, 
  34.33043, 34.32667, 34.32228, 34.32135, 34.32405, 34.33447, 34.33303, 34.33778, 34.34356, 34.35153, 
  34.35125, 34.34133, 34.33658, 34.31272, 34.30509, 34.31118, 34.31212, 34.31143, 34.29884, 34.29562, 
  34.28321, 34.283, 34.27576, 34.27459, 34.27047, 34.25905, 34.23284, 34.22858, 34.22287, 34.2091, 
  34.19888, 34.19526, 34.19558, 34.19075, 34.19071, 34.18596, 34.18127, 34.17584, 34.17712, 34.17513, 
  34.17215, 34.17382, 34.17254, 34.16941, 34.16924, 34.1725, 34.16707, 34.16057, 34.15919, 34.15272, 
  34.15187, 34.14793, 34.14246, 34.14129, 34.13596, 34.13475, 34.1274, 34.11521, 34.10334, 34.10675, 
  34.08888, 34.08258, 34.07498, 34.07348, 34.0599, 34.05016, 34.03594, 34.02439, 34.0108, 34.02133, 
  34.03961, 34.03663, 34.0303, 34.03058, 34.03485, 34.03755, 34.04665, 34.04609, 34.03878, 34.02704, 
  34.02903, 34.03163, 34.03252, 34.02469, 34.0232, 34.01637, 34.01662, 34.0185, 34.0201, 34.02284, 
  34.02565, 34.02597, 34.02355, 34.02366, 34.01227, 34.00491, 33.9995, 33.98662, 33.9784, 33.97492, 
  33.96933, 33.9531, 33.94334, 33.93526, 33.92864, 33.89249, 33.88592, 33.83895, 33.82492, 33.82804, 
  33.82391, 33.77598, 33.75857, 33.74158, 33.74117, 33.73767, 33.7341, 33.72354, 33.71661, 33.70698, 
  33.70669, 33.68812, 33.68398, 33.67434, 33.65405, 33.65484, 33.63976, 33.59529, 33.57841, 33.57583, 
  33.58448, 33.58475, 33.57106, 33.57476, 33.57508, 33.55518, 33.53279, 33.51255, 33.47883, 33.46874, 
  33.47096, 33.41244, 33.40857, 33.38485, 33.37138, 33.37253, 33.35009, 33.33768, 33.33324, 33.32657, 
  33.32284, 33.30304, 33.29989, 33.28353, 33.2864, 33.28381, 33.27901, 33.27937, 33.28618, 33.2841, 
  33.27879, 33.27068, 33.26466, 33.27032, 33.26415, 33.26086, 33.25472, 33.25037, 33.23652, 33.20521, 
  33.19702, 33.20241, 33.20141, 33.19451, 33.19789, 33.19444, 33.17548, 33.16614, 33.16786, 33.1555, 
  33.12251, 33.11101, 33.10253, 33.09771, 33.08808, 33.08095, 33.07362, 33.06858, 33.04605, 33.03031, 
  33.03218, 33.03182, 33.03096, 33.02758, 33.02189, 33.00253, 33.00037, 32.95289, 32.936, 32.9285, 
  32.919, 32.92183, 32.91835, 32.91893, 32.91579, 32.91446, 32.91554, 32.91514, 32.91468, 32.91385, 
  32.90996, 32.90459, 32.90095, 32.90196, 32.90192, 32.89846, 32.89443, 32.89344, 32.88527, 32.86962, 
  32.85095, 32.83934, 32.82412, 32.81273, 32.80285, 32.79859, 32.79358, 32.78867, 32.78456, 32.78124, 
  32.77665, 
  32.77604, 32.77616, 32.77581, 32.77598, 32.7686, 32.76523, 32.76653, 32.7644, 32.76324, 32.76084, 
  32.75967, 32.75951, 32.75655, 32.75505, 32.75418, 32.75182, 32.7515, 32.75102, 32.75162, 32.75165, 
  32.75085, 32.74982, 32.74727, 32.74581, 32.74423, 32.74512, 32.74835, 32.74837, 32.7454, 32.74519, 
  32.74677, 32.74815, 32.74908, 32.75006, 32.74961, 32.74966, 32.74995, 32.75005, 32.75135, 32.75144, 
  32.75061, 32.7487, 32.74512, 32.74502, 32.74547, 32.74577, 32.74691, 32.75049, 32.75261, 32.75389, 
  32.75866, 32.75785, 32.76008, 32.7601, 32.75597, 32.75274, 32.75141, 32.75036, 32.75096, 32.75054, 
  32.75014, 32.74943, 32.75341, 32.75372, 32.75064, 32.75164, 32.75593, 32.75797, 32.75803, 32.75951, 
  32.76138, 32.76046, 32.75753, 32.75726, 32.75648, 32.75501, 32.7515, 32.75148, 32.7575, 32.76366, 
  32.76944, 32.77652, 32.78237, 32.7813, 32.78738, 32.79839, 32.80893, 32.81901, 32.82963, 32.82987, 
  32.8241, 32.83672, 32.84076, 32.84206, 32.81724, 32.81132, 32.80433, 32.78802, 32.77676, 32.77063, 
  32.76255, 32.74898, 32.74791, 32.73724, 32.73477, 32.72918, 32.72569, 32.7059, 32.69765, 32.67619, 
  32.67318, 32.67061, 32.66602, 32.66062, 32.65145, 32.64613, 32.63842, 32.63567, 32.63714, 32.63145, 
  32.63072, 32.61686, 32.61466, 32.5998, 32.59667, 32.5908, 32.58924, 32.58273, 32.58091, 32.56317, 
  32.56894, 32.55244, 32.55402, 32.54569, 32.53429, 32.52349, 32.51006, 32.50765, 32.49947, 32.49287, 
  32.49017, 32.48724, 32.48686, 32.49301, 32.49286, 32.48777, 32.47876, 32.47605, 32.48116, 32.47853, 
  32.48304, 32.48168, 32.48288, 32.47701, 32.47971, 32.48279, 32.48024, 32.4996, 32.49029, 32.49449, 
  32.48519, 32.49397, 32.49074, 32.4785, 32.4671, 32.47318, 32.46507, 32.4713, 32.47153, 32.46815, 
  32.45936, 32.45246, 32.44652, 32.45336, 32.45951, 32.45171, 32.45636, 32.4683, 32.4722, 32.47768, 
  32.49742, 32.48141, 32.4693, 32.47833, 32.47446, 32.46039, 32.45523, 32.44348, 32.42839, 32.42632, 
  32.42594, 32.41767, 32.41548, 32.40902, 32.42115, 32.42606, 32.41522, 32.40967, 32.41122, 32.40102, 
  32.39472, 32.40268, 32.39841, 32.39553, 32.38491, 32.39094, 32.3886, 32.37735, 32.37231, 32.37347, 
  32.37634, 32.36996, 32.36144, 32.35582, 32.35332, 32.35042, 32.34658, 32.34382, 32.34427, 32.34357, 
  32.34371, 32.33978, 32.32807, 32.32671, 
  32.32872, 32.32957, 32.33312, 32.33579, 32.33554, 32.33641, 32.33705, 32.33772, 32.3398, 32.34136, 
  32.34532, 32.3454, 32.34478, 32.34495, 32.3448, 32.33951, 32.33668, 32.3359, 32.33562, 32.33349, 
  32.33329, 32.33382, 32.33506, 32.33706, 32.33757, 32.33719, 32.33543, 32.33499, 32.3345, 32.33092, 
  32.32746, 32.32761, 32.33055, 32.33022, 32.3277, 32.32748, 32.3287, 32.31983, 32.31864, 32.31568, 
  32.31556, 32.3158, 32.31686, 32.3171, 32.31833, 32.32086, 32.32167, 32.32435, 32.3255, 32.32466, 
  32.32625, 32.32676, 32.32669, 32.32582, 32.32593, 32.32647, 32.32706, 32.32827, 32.32924, 32.32996, 
  32.33052, 32.33292, 32.33368, 32.33431, 32.33781, 32.33851, 32.33946, 32.33902, 32.34261, 32.34436, 
  32.34551, 32.34441, 32.343, 32.34097, 32.33869, 32.33709, 32.33532, 32.33349, 32.33271, 32.3303, 
  32.32622, 32.32382, 32.32275, 32.32063, 32.31738, 32.3167, 32.31153, 32.31238, 32.31222, 32.30913, 
  32.30741, 32.30407, 32.29691, 32.29247, 32.28804, 32.28403, 32.28274, 32.28057, 32.27692, 32.27636, 
  32.27668, 32.27777, 32.27739, 32.2785, 32.30132, 32.30574, 32.32134, 32.3266, 32.33376, 32.34204, 
  32.358, 32.37782, 32.37779, 32.38054, 32.38587, 32.3908, 32.39364, 32.38978, 32.38943, 32.3904, 
  32.39484, 32.39893, 32.40444, 32.41, 32.40969, 32.40665, 32.40529, 32.40877, 32.41446, 32.42176, 
  32.42359, 32.42793, 32.43037, 32.43232, 32.4326, 32.43001, 32.42976, 32.43038, 32.43177, 32.43299, 
  32.43801, 32.43866, 32.4396, 32.44501, 32.44711, 32.45144, 32.4531, 32.45461, 32.45443, 32.45608, 
  32.45912, 32.45979, 32.45926, 32.46223, 32.48551, 32.4909, 32.49507, 32.49865, 32.50028, 32.50234, 
  32.50339, 32.50274, 32.50293, 32.50398, 32.50501, 32.50833, 32.50949, 32.51027, 32.51029, 32.51371, 
  32.51494, 32.51383, 32.51825, 32.52272, 32.52686, 32.53265, 32.54611, 32.55352, 32.56052, 32.56322, 
  32.56803, 32.58146, 32.58515, 32.58674, 32.59052, 32.58954, 32.5883, 32.58855, 32.59874, 32.59833, 
  32.60191, 32.60521, 32.60757, 32.61054, 32.61425, 32.61485, 32.61704, 32.61882, 32.62096, 32.6263, 
  32.62811, 32.62948, 32.6296, 32.62991, 32.63138, 32.63286, 32.63388, 32.63495, 32.63673, 32.63673, 
  32.631, 32.63067, 32.63121, 32.63206, 32.63798, 32.64, 32.64139, 32.64651, 32.64747, 32.64593, 
  32.6428, 32.64179, 32.64331, 32.64369, 32.64317, 32.6464, 32.64924, 32.65328, 32.65738, 32.65782, 
  32.65681, 32.65381, 32.65448, 32.65204, 32.64855, 32.64826, 32.64965, 32.65195, 32.65532, 32.66089, 
  32.66367, 32.66593, 32.66847, 32.67172, 32.67359, 32.67819, 32.68711, 32.69195, 32.69513, 32.69705, 
  32.70263, 32.71844, 32.72754, 32.73515, 32.73696, 32.74411, 32.74703, 32.76367, 32.76706, 32.776, 
  32.78524, 32.79087, 32.81164, 32.81359, 32.8203, 32.83589, 32.83649, 32.83609, 32.8406, 32.84417, 
  32.846, 32.86296, 32.86938, 32.87684, 32.88419, 32.89434, 32.90761, 32.91968, 32.92332, 32.92772, 
  32.92841, 32.92331, 32.92411, 32.91942, 32.91921, 32.9052, 32.88764, 32.87344, 32.92007, 32.92562, 
  32.93001, 32.93426, 32.94288, 32.9517, 32.95551, 32.96127, 32.96279, 32.98482, 32.99087, 33.00444, 
  33.00894, 33.00577, 33.01995, 33.01592, 33.02254, 33.02002, 33.03204, 33.03894, 33.04787, 33.05269, 
  33.05966, 33.0683, 33.06945, 33.08477, 33.10519, 33.18489, 33.17921, 33.19422, 33.19896, 33.20895, 
  33.20571, 33.20256, 33.19121, 33.18876, 33.18884, 33.18654, 33.17231, 33.16563, 33.16534, 33.16154, 
  33.16168, 33.16764, 33.1716, 33.17289, 33.17677, 33.18029, 33.18151, 33.17734, 33.17892, 33.1902, 
  33.19552, 33.23487, 33.23896, 33.2422, 33.24435)
LONGITUDE_VALUEs <- c(
  76.77168, 76.76841, 76.7645, 76.75293, 76.74954, 76.74669, 76.74437, 76.74076, 76.73701, 76.73872, 
  76.73854, 76.73403, 76.73314, 76.73475, 76.72752, 76.73099, 76.71649, 76.70508, 76.70077, 76.69635, 
  76.69457, 76.69133, 76.68976, 76.6892, 76.69057, 76.66821, 76.66963, 76.67117, 76.66898, 76.66598, 
  76.66259, 76.63199, 76.63639, 76.62944, 76.62687, 76.61606, 76.59272, 76.58256, 76.57779, 76.57706, 
  76.5747, 76.56993, 76.56281, 76.55048, 76.54419, 76.54018, 76.53484, 76.52869, 76.52311, 76.51389, 
  76.50078, 76.49459, 76.48806, 76.48026, 76.47103, 76.45742, 76.4645, 76.46253, 76.44768, 76.44446, 
  76.43957, 76.43742, 76.43554, 76.42824, 76.42319, 76.38108, 76.37524, 76.38073, 76.38039, 76.37692, 
  76.36332, 76.36048, 76.35868, 76.33524, 76.33181, 76.3261, 76.32206, 76.31425, 76.30679, 76.29945, 
  76.30958, 76.29958, 76.26104, 76.24989, 76.2468, 76.2298, 76.2211, 76.20513, 76.20521, 76.22195, 
  76.23131, 76.22496, 76.22496, 76.22736, 76.23904, 76.24093, 76.23818, 76.22942, 76.22942, 76.27173, 
  76.28413, 76.26585, 76.26903, 76.26482, 76.2637, 76.2704, 76.26628, 76.264, 76.23568, 76.21217, 
  76.2107, 76.20796, 76.19984, 76.19796, 76.18426, 76.17933, 76.16654, 76.16362, 76.15959, 76.1635, 
  76.13698, 76.08754, 76.03209, 76.03381, 76.04651, 76.04681, 76.03613, 76.03313, 76.02514, 76.02437, 
  76.0202, 76.00724, 75.99973, 75.97784, 75.9669, 75.89287, 75.87365, 75.85283, 75.84528, 75.84069, 
  75.83485, 75.83163, 75.82245, 75.83417, 75.83374, 75.83752, 75.84181, 75.84215, 75.81974, 75.76765, 
  75.76859, 75.73769, 75.74374, 75.72551, 75.71898, 75.70473, 75.69645, 75.67287, 75.68398, 75.69298, 
  75.68315, 75.69242, 75.68977, 75.6634, 75.65005, 75.63925, 75.60525, 75.59297, 75.58023, 75.5687, 
  75.55445, 75.54002, 75.52371, 75.51505, 75.50475, 75.49556, 75.49573, 75.48213, 75.48232, 75.47678, 
  75.46949, 75.46513, 75.4579, 75.45438, 75.41944, 75.40304, 75.39299, 75.4008, 75.39404, 75.39145, 
  75.39372, 75.38986, 75.38756, 75.38471, 75.38377, 75.37643, 75.37647, 75.386, 75.38068, 75.38488, 
  75.37471, 75.37724, 75.36711, 75.36596, 75.37862, 75.32698, 75.35283, 75.34278, 75.35249, 75.35429, 
  75.35798, 75.36407, 75.36583, 75.36626, 75.36398, 75.36503, 75.36626, 
  75.36639, 75.36509, 75.36102, 75.36175, 75.34419, 75.32814, 75.3199, 75.29856, 75.29522, 75.28956, 
  75.28606, 75.28042, 75.26797, 75.26587, 75.26385, 75.26149, 75.25446, 75.24853, 75.24772, 75.25239, 
  75.25471, 75.25578, 75.25664, 75.26269, 75.26788, 75.26887, 75.26608, 75.25542, 75.1838, 75.1802, 
  75.17857, 75.17591, 75.17634, 75.16278, 75.14175, 75.1384, 75.1263, 75.12021, 75.10743, 75.09703, 
  75.08682, 75.07926, 75.04827, 75.03335, 75.02519, 75.01331, 75.00052, 74.99615, 74.99482, 74.99181, 
  74.98074, 74.98284, 74.96187, 74.93569, 74.92642, 74.90677, 74.8896, 74.87288, 
  74.84405, 74.84182, 74.73015, 74.65014, 74.6037, 74.58076, 74.50371, 74.47913, 74.47447, 74.46683, 
  74.46019, 74.44723, 74.43427, 74.39538, 74.34293, 74.30504, 74.24161, 74.15787, 74.15497, 74.14948, 
  74.1445, 74.1439, 74.14681, 74.14681, 74.14355, 74.14227, 74.13094, 74.12802, 74.11326, 74.10803, 
  74.10391, 74.09231, 74.08995, 74.08356, 74.07206, 74.06863, 74.06124, 74.05472, 74.05408, 74.04721, 
  74.04588, 74.04605, 74.03116, 74.02983, 74.02678, 74.01708, 74.01399, 74.00923, 74.00374, 73.99773, 
  73.98134, 73.97194, 73.97142, 73.97078, 73.96907, 73.96806, 73.96078, 73.95305, 73.95331, 73.95606, 
  73.9564, 73.95473, 73.95022, 73.94833, 73.94752, 73.94795, 73.95271, 73.95352, 73.93472, 73.9319, 
  73.93341, 73.9283, 73.92847, 73.95289, 73.95409, 73.95217, 73.96015, 73.95148, 73.95654, 73.90499, 
  73.91169, 73.90615, 73.90014, 73.89881, 73.89671, 73.89075, 73.89199, 73.8862, 73.88242, 73.88184, 
  73.88866, 73.88775, 73.87998, 73.84813, 73.84631, 73.843, 73.84034, 73.84296, 73.84079, 73.81392, 
  73.81224, 73.80561, 73.80468, 73.80399, 73.80423, 73.80183, 73.77527, 73.77247, 73.76891, 73.76612, 
  73.76239, 73.75934, 73.75826, 73.75592, 73.75603, 73.75751, 73.75758, 73.75098, 73.75279, 73.75043, 
  73.75005, 73.75769, 73.77442, 73.7903, 73.79893, 73.79778, 73.79805, 73.80016, 73.80052, 73.8107, 
  73.81168, 73.81421, 73.81451, 73.81492, 73.81522, 73.81423, 73.8096, 73.80964, 73.81232, 73.81481, 
  73.83908, 73.84955, 73.85196, 73.85384, 73.85908, 73.86526, 73.8875, 73.89072, 73.90283, 73.90484, 
  73.91545, 73.9233, 73.93896, 73.92158, 73.93172, 73.93194, 73.93775, 73.94256, 73.94292, 73.93631, 
  73.93545, 73.94094, 73.94567, 73.97515, 73.99052, 73.98965, 74.00571, 74.00532, 74.00918, 73.99806, 
  73.9991, 74.00892, 74.01377, 74.00867, 74.00373, 74.00038, 73.99914, 73.98978, 73.97966, 73.97914, 
  73.97133, 73.96982, 73.96798, 73.96763, 73.9633, 73.96244, 73.95806, 73.95858, 73.96652, 73.96489, 
  73.95184, 73.95348, 73.94489, 73.94777, 73.94734, 73.94048, 73.9267, 73.92914, 73.92656, 73.90596, 
  73.90103, 73.90768, 73.90502, 73.90064, 73.89584, 73.89996, 73.92185, 73.9244, 73.96947, 74.00518, 
  74.01633, 74.04011, 74.0499, 74.05565, 74.06131, 74.1074, 74.1304, 74.14027, 74.15396, 74.16333, 
  74.17367, 74.17453, 74.17526, 74.18221, 74.18131, 74.2047, 74.21478, 74.21753, 74.21766, 74.21319, 
  74.21495, 74.22303, 74.22637, 74.23349, 74.23873, 74.25607, 74.25581, 74.26624, 74.26135, 74.26409, 
  74.2774, 74.26701, 74.27967, 74.28195, 74.27624, 74.27654, 74.25211, 74.18936, 74.1159, 74.08815, 
  74.06033, 74.00936, 74.01125, 74.00146, 73.98664, 73.98183, 73.98208, 73.96122, 73.96088, 73.9662, 
  73.9814, 73.98346, 73.99042, 73.98338, 73.99333, 73.98355, 73.98209, 74.02516, 74.03151, 74.05557, 
  74.06338, 74.08119, 74.09666, 74.10538, 74.10714, 74.14242, 74.15967, 74.15672, 74.19246, 74.18972, 
  74.1819, 74.1789, 74.18852, 74.18671, 74.1801, 74.17366, 74.16611, 74.16637, 74.15418, 74.15547, 
  74.14551, 74.12594, 74.10654, 74.09023, 74.08646, 74.06817, 74.0564, 74.05417, 74.04936, 74.04473, 
  74.04404, 74.02731, 74.02482, 74.01795, 74.01254, 74.01583, 74.0154, 74.00671, 74.00027, 74.01702, 
  74.03572, 74.04594, 74.05015, 74.05161, 74.06251, 74.07024, 74.0844, 74.1001, 74.10954, 74.13324, 
  74.16354, 74.15976, 74.16636, 74.17873, 74.18161, 74.17023, 74.17006, 74.20894, 74.24935, 74.31271, 
  74.3188, 74.32335, 74.32473, 74.32438, 74.31897, 74.32121, 74.32559, 74.33928, 74.31207, 74.31442, 
  74.3286, 74.34929, 74.36314, 74.37284, 74.37825, 74.37799, 74.37572, 74.37258, 74.37228, 74.37293, 
  74.39228, 74.39636, 74.40408, 74.40477, 74.40602, 74.41382, 74.41786, 74.41707, 74.42, 74.41373, 
  74.42042, 74.41931, 74.43725, 74.43777, 74.44679, 74.44652, 74.44828, 74.46004, 74.46159, 74.45897, 
  74.4638, 
  74.46711, 74.47059, 74.47384, 74.4752, 74.485, 74.48466, 74.50733, 74.51115, 74.50944, 74.51153, 
  74.51146, 74.51401, 74.51526, 74.51367, 74.51468, 74.51315, 74.51186, 74.51097, 74.51096, 74.50969, 
  74.50967, 74.51052, 74.50989, 74.51116, 74.5143, 74.51645, 74.5186, 74.52524, 74.53075, 74.53258, 
  74.53669, 74.53768, 74.53687, 74.53669, 74.53921, 74.5412, 74.54128, 74.54177, 74.54201, 74.54297, 
  74.54272, 74.5453, 74.54386, 74.54472, 74.54501, 74.54732, 74.548, 74.5483, 74.54974, 74.55226, 
  74.55556, 74.5569, 74.56614, 74.56926, 74.57562, 74.57562, 74.57481, 74.57583, 74.57661, 74.57759, 
  74.5773, 74.57957, 74.58229, 74.58373, 74.5887, 74.59099, 74.59378, 74.60558, 74.61299, 74.6132, 
  74.61751, 74.62123, 74.62387, 74.6244, 74.62402, 74.62794, 74.63333, 74.63764, 74.63903, 74.63271, 
  74.63052, 74.63234, 74.63967, 74.65405, 74.65844, 74.63958, 74.6328, 74.64076, 74.65652, 74.65853, 
  74.66557, 74.68248, 74.69415, 74.7053, 74.70471, 74.69586, 74.69629, 74.68514, 74.68136, 74.67741, 
  74.67698, 74.66848, 74.66559, 74.66177, 74.66024, 74.65447, 74.66405, 74.65686, 74.65305, 74.66633, 
  74.68112, 74.68133, 74.69615, 74.69506, 74.68841, 74.67175, 74.66968, 74.66303, 74.65476, 74.65323, 
  74.65672, 74.65595, 74.63842, 74.64081, 74.659, 74.65498, 74.64942, 74.64953, 74.65516, 74.65167, 
  74.67259, 74.67249, 74.66119, 74.66208, 74.69029, 74.69028, 74.68237, 74.68619, 74.68548, 74.68157, 
  74.68655, 74.68779, 74.69411, 74.70239, 74.71031, 74.71423, 74.71209, 74.72713, 74.72935, 74.75267, 
  74.75525, 74.76468, 74.76824, 74.79631, 74.80067, 74.80148, 74.8126, 74.81963, 74.84855, 74.85576, 
  74.86777, 74.87703, 74.88451, 74.87711, 74.90043, 74.90524, 74.91983, 74.92926, 74.93931, 74.93638, 
  74.94332, 74.94296, 74.95177, 74.95675, 74.97019, 74.98372, 75.00107, 75.01976, 75.01451, 75.01549, 
  75.02697, 75.05604, 75.09122, 75.09994, 75.10896, 75.10896, 75.12088, 75.11921, 75.1345, 75.13313, 
  75.12854, 75.12746, 75.13251, 75.13313, 75.15362, 75.19154, 75.20179, 75.19857, 75.19215, 75.19276, 
  75.20898, 75.21315, 75.22412, 75.22326, 75.24543, 75.25098, 75.25716, 75.25502, 75.25865, 75.27033, 
  75.27277, 75.2896, 75.28689, 75.28921, 75.29955, 75.30002, 75.29891, 75.30741, 75.31419, 75.31623, 
  75.32198, 75.32492, 75.32655, 75.33197, 
  75.33552, 75.33624, 75.33599, 75.33685, 75.34035, 75.34146, 75.34175, 75.34163, 75.33915, 75.33881, 
  75.34147, 75.34236, 75.34542, 75.34807, 75.34881, 75.35479, 75.35646, 75.3616, 75.36206, 75.36226, 
  75.36307, 75.37114, 75.37284, 75.37371, 75.37475, 75.37526, 75.37577, 75.37615, 75.38055, 75.38605, 
  75.39365, 75.39509, 75.39972, 75.4015, 75.40392, 75.40506, 75.41145, 75.41903, 75.42552, 75.42929, 
  75.43101, 75.43154, 75.4318, 75.43817, 75.4408, 75.44334, 75.44541, 75.44695, 75.44812, 75.4503, 
  75.45689, 75.46257, 75.46377, 75.46653, 75.46765, 75.46839, 75.46867, 75.46809, 75.46657, 75.46653, 
  75.46686, 75.47128, 75.47133, 75.47055, 75.46889, 75.46901, 75.47432, 75.47775, 75.48572, 75.48692, 
  75.48933, 75.49131, 75.49285, 75.49435, 75.48706, 75.48629, 75.48189, 75.48062, 75.48045, 75.48258, 
  75.48372, 75.48563, 75.4852, 75.4826, 75.48574, 75.49041, 75.50237, 75.50389, 75.5053, 75.51065, 
  75.51183, 75.51099, 75.50563, 75.50427, 75.50567, 75.50908, 75.51518, 75.51854, 75.52063, 75.52196, 
  75.52541, 75.52689, 75.53374, 75.53517, 75.53999, 75.54273, 75.54179, 75.5369, 75.53801, 75.54312, 
  75.56084, 75.59646, 75.62105, 75.63556, 75.64345, 75.65766, 75.67503, 75.67703, 75.68006, 75.68635, 
  75.69304, 75.6995, 75.70338, 75.7083, 75.71065, 75.71424, 75.72147, 75.72198, 75.72499, 75.73048, 
  75.72999, 75.72651, 75.72627, 75.72696, 75.72747, 75.73349, 75.73882, 75.74128, 75.74187, 75.74096, 
  75.73477, 75.72948, 75.72838, 75.72625, 75.72718, 75.72664, 75.72814, 75.74228, 75.74666, 75.75256, 
  75.75567, 75.75758, 75.75936, 75.76979, 75.7995, 75.8167, 75.82104, 75.82293, 75.82207, 75.82256, 
  75.82371, 75.82828, 75.83008, 75.83108, 75.83132, 75.83075, 75.82974, 75.83069, 75.83234, 75.83123, 
  75.83288, 75.84011, 75.83977, 75.84206, 75.84974, 75.85406, 75.87204, 75.87416, 75.86309, 75.86616, 
  75.87862, 75.88013, 75.87803, 75.87841, 75.88502, 75.88783, 75.88914, 75.8918, 75.90406, 75.90571, 
  75.90646, 75.90541, 75.90548, 75.90867, 75.91591, 75.91634, 75.91608, 75.91793, 75.91892, 75.91604, 
  75.91575, 75.91763, 75.91887, 75.91947, 75.91835, 75.91866, 75.91813, 75.92128, 75.92353, 75.92473, 
  75.928, 75.92934, 75.93083, 75.93159, 75.9287, 75.92917, 75.93326, 75.93438, 75.93337, 75.92871, 
  75.92425, 75.92159, 75.92036, 75.91738, 75.91603, 75.91352, 75.91532, 75.91496, 75.90884, 75.9056, 
  75.90208, 75.89957, 75.89786, 75.89732, 75.89421, 75.89314, 75.88758, 75.88408, 75.88996, 75.89249, 
  75.89226, 75.89324, 75.89643, 75.89806, 75.89837, 75.89728, 75.89837, 75.90052, 75.90056, 75.89816, 
  75.90026, 75.91006, 75.91877, 75.91873, 75.92092, 75.92318, 75.92172, 75.90559, 75.8983, 75.89472, 
  75.88235, 75.88553, 75.87935, 75.8657, 75.86553, 75.8511, 75.84968, 75.84582, 75.84142, 75.84024, 
  75.83046, 75.81036, 75.80899, 75.80543, 75.79676, 75.81516, 75.81908, 75.83067, 75.8317, 75.83779, 
  75.84561, 75.86562, 75.87326, 75.87859, 75.88305, 75.91963, 75.93042, 75.94982, 76.03377, 76.03248, 
  76.03471, 76.04003, 76.06374, 76.06964, 76.08269, 76.08295, 76.09188, 76.10544, 76.1038, 76.10674, 
  76.12379, 76.15968, 76.1808, 76.20663, 76.22414, 76.24267, 76.25623, 76.2753, 76.2746, 76.27735, 
  76.28971, 76.28808, 76.28207, 76.28104, 76.28988, 76.40393, 76.47966, 76.50848, 76.54781, 76.56069, 
  76.59595, 76.59932, 76.59784, 76.60102, 76.60926, 76.61201, 76.61209, 76.62171, 76.62789, 76.6344, 
  76.64351, 76.66025, 76.66454, 76.69671, 76.70753, 76.70908, 76.72092, 76.72934, 76.74744, 76.74933, 
  76.75903, 76.78023, 76.77989, 76.77351, 76.77343)
Claimed_Area_3 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Claimed_Area_3 <- Claimed_Area_3 %>% 
  mutate(NAME = "JAMMU AND KASHMIR", VISUALIZATION_NAME = "Jammu and Kashmir", 
         ISO2 = NA, ISO3 = NA, M49_CODE = NA, SOVRN = "India", CONTINENT = "ASIA", 
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

##### LADAKH #####
LATITUDE_VALUEs <- c(35.49069, 
  35.50009, 35.50026, 35.49076, 35.48692, 35.47961, 35.47965, 35.47423, 35.47423, 35.46605, 35.46518, 
  35.4628, 35.4621, 35.46373, 35.4653, 35.46895, 35.47399, 35.47703, 35.47797, 35.48367, 35.48838, 
  35.49059, 35.49722, 35.49097, 35.48412, 35.47863, 35.48377, 35.48112, 35.48124, 35.48267, 35.48748, 
  35.49576, 35.49317, 35.49142, 35.49115, 35.48971, 35.49132, 35.49425, 35.49221, 35.489, 35.48424, 
  35.46836, 35.47053, 35.46979, 35.47423, 35.47601, 35.48873, 35.4995, 35.49324, 35.49247, 35.48978, 
  35.47011, 35.43494, 35.39969, 35.35882, 35.23945, 35.23889, 35.22886, 35.22943, 35.17788, 35.17577, 
  35.16616, 35.11977, 35.07033, 35.0359, 35.01088, 34.99316, 34.98332, 34.97234, 34.95476, 34.93802, 
  34.90212, 34.89684, 34.89135, 34.8891, 34.88076, 34.86741, 34.85255, 34.83917, 34.81113, 34.80492, 
  34.77236, 34.76968, 34.73555, 34.72031, 34.70126, 34.67614, 34.66117, 34.63476, 34.61527, 34.60354, 
  34.60721, 34.59054, 34.57075, 34.56058, 34.54184, 34.54347, 34.56899, 34.56814, 34.58008, 34.58418, 
  34.57351, 34.57726, 34.57181, 34.57153, 34.54008, 34.51172, 34.50443, 34.50719, 34.51851, 34.52806, 
  34.53986, 34.53795, 34.54389, 34.52671, 34.52767, 34.52516, 34.50054, 34.48187, 34.48038, 34.47883, 
  34.46595, 34.4593, 34.45632, 34.43934, 34.44273, 34.43566, 34.41796, 34.41781, 34.39544, 34.39076, 
  34.37922, 34.37079, 34.3586, 34.3535, 34.3654, 34.36533, 34.37996, 34.38928, 34.38673, 34.3715, 
  34.35477, 34.35392, 34.33592, 34.3338, 34.32515, 34.31664, 34.31523, 34.29864, 34.28048, 34.23522, 
  34.22486, 34.15358, 34.14932, 34.14292, 34.14108, 34.14775, 34.14811, 34.16558, 34.16565, 34.14157, 
  34.14243, 34.13497, 34.12843, 34.12474, 34.13781, 34.08963, 34.09489, 34.08892, 34.08394, 34.07954, 
  34.0919, 34.0747, 34.06503, 34.06077, 34.05579, 34.03147, 34.01496, 34.00016, 33.921, 33.91445, 
  33.88951, 33.88502, 33.83535, 33.78428, 33.77358, 33.75903, 33.74518, 33.71963, 33.67807, 33.66507, 
  33.6635, 33.63978, 33.62248, 33.62763, 33.62334, 33.56886, 33.5049, 33.48321, 33.47534, 33.42514, 
  33.41024, 33.37139, 33.34214, 33.32465, 33.3245, 33.26051, 33.245, 33.23553, 33.19963, 33.20049, 
  33.17147, 33.16026, 33.13468, 33.10535, 33.01507, 33.0135, 33.01363, 33.01302, 33.01048, 33.0074, 
  33.00352, 32.99873, 32.99679, 32.99481, 32.99153, 32.98678, 32.98415, 32.98289, 32.98736, 32.98707, 
  32.98286, 32.98066, 32.97915, 32.97256, 32.96954, 32.96716, 32.96594, 32.96161, 32.96129, 32.96226, 
  32.96532, 32.96752, 32.96961, 32.97101, 32.9717, 32.97468, 32.97512, 32.97479, 32.97368, 32.97076, 
  32.96662, 32.96212, 32.96179, 32.96201, 32.96392, 32.96493, 32.96471, 32.96678, 32.96597, 32.96311, 
  32.96277, 32.95747, 32.95583, 32.95407, 32.95006, 32.94307, 32.94019, 32.93612, 32.93345, 32.93075, 
  32.9279, 32.9269, 32.92531, 32.92326, 32.92084, 32.91767, 32.91159, 32.90445, 32.90031, 32.89782, 
  32.89602, 32.89216, 32.88838, 32.88561, 32.8847, 32.88607, 32.8846, 32.88125, 32.87115, 32.85219, 
  32.85226, 32.85165, 32.84992, 32.84563, 32.84239, 32.84213, 32.84058, 32.82814, 32.79189, 32.78598, 
  32.7431, 32.74238, 32.74419, 32.74144, 32.73625, 32.73444, 32.73487, 32.72751, 32.72347, 32.71769, 
  32.70989, 32.70332, 32.69934, 32.6906, 32.68793, 32.67955, 32.63966, 32.63395, 32.61812, 32.60149, 
  32.56569, 32.56135, 32.56128, 32.53813, 32.53348, 32.52695, 32.52348, 32.52011, 32.51897, 32.52002, 
  32.52326, 32.52585, 32.52594, 32.52433, 32.53249, 32.53205, 32.52655, 32.539, 32.54269, 32.54978, 
  32.55256, 32.55427, 32.55879, 32.56537, 32.56367, 32.55976, 32.55846, 32.56009, 32.55665, 32.55112, 
  32.55011, 32.54828, 32.54629, 32.54546, 32.54292, 32.53941, 32.54245, 32.54623, 32.54725, 32.55005, 
  32.55134, 32.55602, 32.54515, 32.53856, 32.53603, 32.53762, 32.52677, 32.52141, 32.51667, 32.51859, 
  32.52467, 32.52239, 32.50965, 32.51599, 32.51085, 32.49767, 32.49423, 32.49673, 32.4946, 32.48812, 
  32.47689, 32.48088, 32.47711, 32.4749, 32.4711, 32.46944, 32.46625, 32.4614, 32.45886, 32.45553, 
  32.45452, 32.44771, 32.43793, 32.43474, 32.42167, 32.4191, 32.41736, 32.39493, 32.37351, 32.36996, 
  32.37235, 32.37953, 32.38721, 32.37982, 32.3833, 32.37126, 32.33762, 32.33575, 32.36343, 32.36815, 
  32.38112, 32.38641, 32.38938, 32.39457, 32.39493, 32.39801, 32.40047, 32.39823, 32.40185, 32.41353, 
  32.41442, 32.41062, 32.41743, 32.4279, 32.42879, 32.44154, 32.47573, 32.47906, 32.51684, 32.56718, 
  32.57942, 32.5813, 32.61644, 32.61912, 32.63047, 32.64131, 32.64637, 32.65533, 32.66321, 32.6679, 
  32.67144, 32.68069, 32.68662, 32.69088, 32.69586, 32.69377, 32.67419, 32.66783, 32.65555, 32.64456, 
  32.64297, 32.63589, 32.6304, 32.61034, 32.60492, 32.60373, 32.60008, 32.60105, 32.61587, 32.61718, 
  32.62122, 32.62419, 32.62397, 32.61587, 32.61587, 32.62195, 32.62334, 32.61711, 32.61886, 32.61355, 
  32.61414, 32.61257, 32.61226, 32.61376, 32.61154, 32.61523, 32.6179, 32.61806, 32.61792, 32.61631, 
  32.61543, 32.6136, 32.61356, 32.61485, 32.61367, 32.61232, 32.60599, 32.60294, 32.60077, 32.60086, 
  32.59346, 32.58453, 32.58326, 32.58315, 32.58522, 32.57744, 32.57625, 32.57654, 32.58127, 32.57965, 
  32.58127, 32.57632, 32.57397, 32.57241, 32.57042, 32.56898, 32.5663, 32.5595, 32.55498, 32.55484, 
  32.54764, 32.54156, 32.54076, 32.53809, 32.53701, 32.53538, 32.53303, 32.53241, 32.53118, 32.53051, 
  32.52565, 32.52247, 32.52053, 32.51883, 32.51763, 32.51598, 32.51456, 32.51437, 32.51363, 32.51268, 
  32.5112, 32.51042, 32.50963, 32.50809, 32.50587, 32.50057, 32.49856, 32.49478, 32.49349, 32.48955, 
  32.48629, 32.48394, 32.47961, 32.47802, 32.47432, 32.47295, 32.46958, 32.46395, 32.46283, 32.46453, 
  32.46057, 32.45445, 32.45043, 32.44449, 32.44369, 32.44438, 32.44369, 32.447, 32.45269, 32.45363, 
  32.45365, 32.45658, 32.46207, 32.46346, 32.46296, 32.46917, 32.47035, 32.47192, 32.47314, 32.47487, 
  32.4767, 32.47834, 32.48144, 32.48281, 32.48499, 32.48665, 32.48995, 32.49916, 32.51197, 32.51823, 
  32.52691, 32.53867, 32.54348, 32.54547, 32.54985, 32.55271, 32.56692, 32.5777, 32.57871, 32.58982, 
  32.59025, 32.59383, 32.59806, 32.60457, 32.60829, 32.6101, 32.61494, 32.61971, 32.62405, 32.62673, 
  32.62846, 32.63186, 32.66142, 32.67081, 32.71567, 32.72895, 32.75523, 32.75307, 32.75711, 32.74902, 
  32.74361, 32.73661, 32.73365, 32.71805, 32.70101, 32.70346, 32.67189, 32.66264, 32.67536, 32.68259, 
  32.68172, 32.67247, 32.6539, 32.65296, 32.66033, 32.66207, 32.64667, 32.63735, 32.62933, 32.62918, 
  32.62485, 32.63099, 32.62839, 32.62933, 32.64537, 32.62781, 32.62376, 32.62015, 32.62586, 32.62528, 
  32.62748, 32.6315, 32.63413, 32.63952, 32.64172, 32.64281, 32.64704, 32.65347, 32.65751, 32.65777, 
  32.66106, 32.66517, 32.67352, 32.68212, 32.68273, 32.68649, 32.69039, 32.69172, 32.69674, 32.70017, 
  32.70848, 32.72357, 32.7265, 32.73264, 32.73415, 32.73495, 32.73592, 32.73711, 32.73787, 32.76119, 
  32.76447, 32.77172, 32.77421, 32.7723, 32.78792, 32.79803, 32.80409, 32.81895, 32.83972, 32.84204, 
  32.84037, 32.83638, 32.83568, 32.83586, 32.84846, 32.85962, 32.86672, 32.88377, 32.88517, 32.88921, 
  32.89321, 32.89361, 32.90045, 32.90546, 32.90748, 32.91277, 32.92054, 32.94199, 32.94624, 32.95049, 
  32.95481, 32.96914, 32.97418, 32.9695, 32.96928, 32.97663, 32.98268, 32.98016, 32.98808, 32.98923, 
  32.98431, 32.97569, 32.97004, 32.96858, 32.96583, 32.96091, 32.95845, 32.95917, 32.95778, 32.94671, 
  32.94206, 32.94336, 32.94256, 32.92828, 32.92783, 32.92493, 32.9249, 32.91852, 32.91443, 32.91465, 
  32.91335, 32.88824, 32.88658, 32.88685, 32.87899, 32.87797, 32.88534, 32.87032, 32.86189, 32.85944, 
  32.8585, 32.86416, 32.87177, 32.87472, 32.87933, 32.87465, 32.88096, 32.88391, 32.88337, 32.88452, 
  32.87606, 32.86402, 32.86265, 32.85587, 32.85248, 32.84437, 32.83928, 32.83669, 32.83335, 32.83032, 
  32.82504, 32.82362, 32.82179, 32.81593, 32.81716, 32.81765, 32.81707, 32.81764, 32.81936, 32.82552, 
  32.82627, 32.83171, 32.84942, 32.85252, 32.85169, 32.8492, 32.85594, 32.86546, 32.86683, 32.86913, 
  32.87058, 32.87389, 32.86917, 32.86542, 32.8638, 32.86438, 32.87036, 32.87288, 32.89242, 32.90388, 
  32.9046, 32.91281, 32.92808, 32.92463, 32.91245, 32.91106, 32.91099, 32.9124, 32.91238, 32.91211, 
  32.91227, 32.91245, 32.91297, 32.91519, 32.91603, 32.91807, 32.92711, 32.93569, 32.93625, 32.93745, 
  32.93813, 32.93989, 32.94073, 32.94321, 32.94789, 32.95007, 32.95351, 32.95601, 32.96044, 32.96565, 
  32.97772, 32.9808, 32.9807, 32.97983, 32.98088, 32.98458, 32.97499, 32.9708, 32.97576, 32.98232, 
  32.98415, 32.98826, 32.98844, 32.99491, 32.99815, 32.99747, 32.99016, 32.9907, 32.98836, 32.98914, 
  32.99173, 32.99364, 32.99562, 32.99871, 33.00231, 33.00064, 33.01647, 33.01813, 33.02738, 33.0282, 
  33.03198, 33.03763, 33.07723, 33.07759, 33.08183, 33.08485, 33.08985, 33.09273, 33.0946, 33.09658, 
  33.09873, 33.10204, 33.10495, 33.11178, 33.12203, 33.11987, 33.11329, 33.1134, 33.11663, 33.11757, 
  33.12052, 33.12328, 33.12519, 33.13071, 33.1308, 33.13374, 33.13599, 33.13814, 33.14062, 33.14073, 
  33.14319, 33.15042, 33.15929, 33.16597, 33.17183, 33.17732, 33.17887, 33.18336, 33.18666, 33.19453, 
  33.19848, 33.20128, 33.20329, 33.20512, 33.21187, 33.21489, 33.21815, 33.22257, 33.23316, 33.23578, 
  33.24059, 33.24228, 33.24594, 33.24806, 33.24816, 33.2478, 33.24366, 33.23546, 33.23395, 33.23318, 
  33.23519, 33.24095, 33.24542, 33.24962, 33.25109, 33.25567, 33.25563, 33.2549, 33.25476, 33.25299, 
  33.2533, 33.2526, 33.2528, 33.25239, 33.25077, 
  33.24991, 33.24865, 33.24829, 33.24873, 33.25016, 33.25438, 33.25669, 33.25932, 33.26108, 33.26643, 
  33.26911, 33.27483, 33.27784, 33.28191, 33.28358, 33.30159, 33.33289, 33.32813, 33.32856, 33.32698, 
  33.32535, 33.32513, 33.32585, 33.32721, 33.33073, 33.34182, 33.34243, 33.34688, 33.35093, 33.35258, 
  33.35254, 33.40916, 33.41461, 33.42449, 33.43674, 33.43868, 33.42374, 33.42413, 33.42772, 33.4515, 
  33.45139, 33.46478, 33.46224, 33.46427, 33.4701, 33.47173, 33.48192, 33.48294, 33.49335, 33.49443, 
  33.51759, 33.51565, 33.51851, 33.52713, 33.5261, 33.53461, 33.54491, 33.55081, 33.56419, 33.56161, 
  33.54759, 33.54573, 33.54199, 33.53798, 33.53741, 33.55196, 33.56753, 33.57556, 33.57849, 33.57942, 
  33.58969, 33.5937, 33.60385, 33.61006, 33.60573, 33.60366, 33.60355, 33.60916, 33.60923, 33.59833, 
  33.57196, 33.56666, 33.5658, 33.54978, 33.54745, 33.54688, 33.55215, 33.57039, 33.57289, 33.57632, 
  33.58726, 33.59827, 33.6007, 33.60263, 33.60278, 33.60764, 33.61707, 33.62686, 33.63022, 33.64522, 
  33.66169, 33.68019, 33.68401, 33.69083, 33.71425, 33.73053, 33.73324, 33.74701, 33.75962, 33.76091, 
  33.76831, 33.77138, 33.7747, 33.78679, 33.79979, 33.79993, 33.79799, 33.79975, 33.80926, 33.81796, 
  33.87616, 33.90286, 33.91846, 33.92286, 33.93134, 33.93427, 33.94751, 33.96432, 33.97655, 33.98206, 
  33.97708, 33.97466, 33.97587, 33.97128, 33.95451, 33.96893, 33.9616, 33.96192, 33.95387, 33.95281, 
  33.9569, 33.95612, 33.96594, 33.98545, 33.99037, 33.99577, 33.99677, 34.00602, 34.00858, 34.04322, 
  34.0531, 34.05975, 34.07286, 34.0861, 34.10316, 34.10884, 34.12443, 34.14412, 34.15446, 34.15823, 
  34.17017, 34.19584, 34.20176, 34.19921, 34.21211, 34.21034, 34.19507, 34.19976, 34.21377, 34.21048, 
  34.21133, 34.22283, 34.22817, 34.22658, 34.23328, 34.23357, 34.24006, 34.25499, 34.26554, 34.27488, 
  34.28005, 34.27932, 34.27987, 34.28538, 34.28171, 34.28483, 34.29625, 34.31541, 34.3175, 34.32007, 
  34.3237, 34.32393, 34.3247, 34.3281, 34.33604, 34.34136, 34.34288, 34.35029, 34.35833, 34.36616, 
  34.37105, 34.38667, 34.39099, 34.39552, 34.40696, 34.43943, 34.46923, 34.48874, 34.51747, 34.51969, 
  34.52156, 34.52209, 34.52146, 34.52436, 34.52778, 34.53215, 34.53473, 
  34.5381, 34.54778, 34.54651, 34.55238, 34.5587, 34.55301, 34.54517, 34.54107, 34.53477, 34.53739, 
  34.54736, 34.55584, 34.53916, 34.54022, 34.53378, 34.52586, 34.51366, 34.55591, 34.58242, 34.62551, 
  34.63236, 34.64098, 34.63935, 34.65016, 34.68418, 34.68573, 34.68771, 34.67183, 34.66491, 34.6611, 
  34.64783, 34.64528, 34.63932, 34.63836, 34.63413, 34.63713, 34.63271, 34.64712, 34.66138, 34.66124, 
  34.67425, 34.67469, 34.67321, 34.67501, 34.67629, 34.68425, 34.69717, 34.69697, 34.6984, 34.71706, 
  34.72109, 34.72229, 34.7196, 34.73308, 34.74165, 34.73765, 34.7468, 34.75068, 34.76446, 34.79597, 
  34.79379, 34.7947, 34.78625, 34.783, 34.76644, 34.76164, 34.7651, 34.76432, 34.7584, 34.76002, 
  34.75903, 34.75593, 34.7512, 34.74553, 34.76146, 34.76425, 34.76242, 34.75219, 34.74817, 34.73371, 
  34.7505, 34.79569, 34.80549, 34.81845, 34.82606, 34.88832, 34.89192, 34.89973, 34.91324, 34.92035, 
  34.9307, 34.95381, 34.95012, 34.93344, 34.92591, 34.93379, 34.94463, 34.94575, 34.97059, 34.97614, 
  34.98739, 35.00466, 35.00965, 35.00884, 35.01232, 35.01763, 35.01861, 35.01657, 35.0248, 35.03632, 
  35.03808, 35.05145, 35.05291, 35.05083, 35.05069, 35.05464, 35.0547, 35.05255, 35.0463, 35.04335, 
  35.04542, 35.04887, 35.05345)
LONGITUDE_VALUEs <- c(77.85357, 
  77.86001, 77.86259, 77.87649, 77.87593, 77.8822, 77.88892, 77.8934, 77.8967, 77.90129, 77.90606, 
  77.90875, 77.91098, 77.91267, 77.91207, 77.91358, 77.91799, 77.91898, 77.91829, 77.92147, 77.91735, 
  77.91821, 77.92404, 77.93563, 77.93953, 77.94767, 77.95546, 77.964, 77.9666, 77.96825, 77.96768, 
  77.96893, 77.98704, 77.98696, 77.9921, 77.99472, 77.99807, 78.0006, 78.00434, 78.00717, 78.00797, 
  78.02498, 78.02905, 78.03343, 78.03609, 78.0345, 78.03978, 78.09819, 78.13591, 78.13716, 78.13677, 
  78.11028, 78.10414, 78.05401, 78.02287, 78.00303, 78.00767, 78.00535, 78.01088, 78.05498, 78.08813, 
  78.10432, 78.10305, 78.14631, 78.11421, 78.14288, 78.15215, 78.18305, 78.20142, 78.20193, 78.17343, 
  78.20759, 78.20314, 78.20314, 78.22537, 78.23584, 78.23589, 78.22817, 78.23452, 78.22559, 78.23162, 
  78.22698, 78.21256, 78.20192, 78.20862, 78.27196, 78.27797, 78.26198, 78.26938, 78.28981, 78.35694, 
  78.38407, 78.42941, 78.43124, 78.42644, 78.43562, 78.44618, 78.45931, 78.47493, 78.4836, 78.49819, 
  78.51347, 78.53158, 78.54247, 78.55201, 78.56042, 78.55947, 78.57999, 78.58832, 78.59381, 78.59149, 
  78.61398, 78.62504, 78.63389, 78.68727, 78.70461, 78.7101, 78.71783, 78.76144, 78.76213, 78.75723, 
  78.75697, 78.73851, 78.73843, 78.76566, 78.78317, 78.80583, 78.82438, 78.846, 78.87759, 78.87851, 
  78.86726, 78.87232, 78.8882, 78.90529, 78.90632, 78.92639, 78.9324, 78.94721, 78.9651, 78.9636, 
  78.98674, 78.99791, 79.03053, 79.03963, 79.0453, 79.02882, 78.97987, 78.98519, 78.96943, 78.95878, 
  78.94351, 78.92307, 78.90812, 78.90881, 78.90452, 78.89936, 78.89018, 78.87189, 78.8621, 78.85353, 
  78.84185, 78.83498, 78.83524, 78.82606, 78.79465, 78.74386, 78.70746, 78.69217, 78.69578, 78.68118, 
  78.66933, 78.65697, 78.66918, 78.66969, 78.65355, 78.6563, 78.72052, 78.74249, 78.72978, 78.76247, 
  78.76144, 78.75122, 78.76516, 78.75434, 78.7643, 78.76326, 78.77631, 78.76309, 78.74301, 78.72498, 
  78.71278, 78.69595, 78.71828, 78.75073, 78.75777, 78.73287, 78.7853, 78.81474, 78.81002, 78.83708, 
  78.90232, 78.95415, 78.96067, 78.99551, 79.02024, 79.04466, 79.07969, 79.0663, 79.10749, 79.12947, 
  79.16519, 79.1518, 79.15864, 79.14285, 79.16045, 79.16128, 79.16221, 79.16427, 79.16809, 79.16925, 
  79.16822, 79.16938, 79.17178, 79.17573, 79.17642, 79.17466, 79.17646, 79.17951, 79.18698, 79.18916, 
  79.19337, 79.20032, 79.20238, 79.20277, 79.20157, 79.20255, 79.21032, 79.21478, 79.21706, 79.22006, 
  79.22337, 79.22405, 79.22362, 79.22474, 79.2283, 79.23272, 79.23513, 79.23744, 79.23912, 79.24019, 
  79.24354, 79.24362, 79.24435, 79.24534, 79.24727, 79.25049, 79.25324, 79.25806, 79.26357, 79.26538, 
  79.26926, 79.27379, 79.27617, 79.28224, 79.28507, 79.28559, 79.28465, 79.28555, 79.29096, 79.29469, 
  79.30632, 79.30757, 79.30778, 79.30662, 79.3022, 79.30117, 79.3022, 79.31181, 79.31392, 79.31203, 
  79.30671, 79.30284, 79.30211, 79.30349, 79.30838, 79.31456, 79.3192, 79.32181, 79.32194, 79.34186, 
  79.34679, 79.34898, 79.35065, 79.35185, 79.35533, 79.35803, 79.361, 79.36949, 79.39086, 79.40683, 
  79.42371, 79.42233, 79.41967, 79.41538, 79.41478, 79.41658, 79.42319, 79.44027, 79.4413, 79.45177, 
  79.46061, 79.45915, 79.45667, 79.4468, 79.44009, 79.43322, 79.41384, 79.41641, 79.40319, 79.39933, 
  79.39916, 79.40422, 79.41203, 79.41358, 79.41781, 79.41794, 79.41322, 79.41339, 79.40903, 79.40465, 
  79.40311, 79.39953, 79.3974, 79.39384, 79.36706, 79.36139, 79.35589, 79.33666, 79.33375, 79.33443, 
  79.33975, 79.33992, 79.33348, 79.33121, 79.32627, 79.3237, 79.31829, 79.31112, 79.30778, 79.30808, 
  79.30421, 79.30338, 79.29994, 79.29913, 79.29842, 79.29247, 79.29048, 79.28295, 79.28239, 79.28342, 
  79.28252, 79.27606, 79.26913, 79.2675, 79.26166, 79.25779, 79.25101, 79.25247, 79.24809, 79.23465, 
  79.22332, 79.2207, 79.22096, 79.18827, 79.18251, 79.18346, 79.16435, 79.15955, 79.15551, 79.15085, 
  79.14896, 79.13153, 79.12904, 79.12955, 79.13208, 79.13204, 79.12809, 79.12759, 79.11952, 79.11943, 
  79.11737, 79.12098, 79.11724, 79.12222, 79.12638, 79.12501, 79.11376, 79.10007, 79.10373, 79.09866, 
  79.08673, 79.08132, 79.06011, 79.02864, 79.02298, 78.99052, 78.97197, 78.96827, 78.92932, 78.91319, 
  78.90211, 78.90215, 78.90545, 78.90215, 78.89553, 78.89489, 78.89232, 78.88202, 78.87671, 78.86864, 
  78.85455, 78.84356, 78.83343, 78.8321, 78.82388, 78.80662, 78.79475, 78.77934, 78.7794, 78.75749, 
  78.76181, 78.77023, 78.7813, 78.77392, 78.7704, 78.75126, 78.75186, 78.74225, 78.74062, 78.74423, 
  78.7438, 78.74594, 78.74981, 78.748, 78.73942, 78.73667, 78.72302, 78.7104, 78.65572, 78.63942, 
  78.63307, 78.63041, 78.6348, 78.64064, 78.63133, 78.61446, 78.61, 78.59716, 78.58879, 78.5818, 
  78.57961, 78.5742, 78.57094, 78.5688, 78.56334, 78.56141, 78.55872, 78.5561, 78.54651, 78.54599, 
  78.54325, 78.54194, 78.53853, 78.53297, 78.52717, 78.5261, 78.52606, 78.52552, 78.52501, 78.52482, 
  78.52256, 78.52153, 78.51893, 78.517, 78.51578, 78.5155, 78.51806, 78.51711, 78.51546, 78.51374, 
  78.50709, 78.50211, 78.49996, 78.49781, 78.49241, 78.48279, 78.4788, 78.47464, 78.46657, 78.46439, 
  78.45365, 78.45168, 78.44859, 78.43404, 78.43159, 78.41928, 78.41473, 78.41259, 78.40752, 78.40533, 
  78.40507, 78.39688, 78.39417, 78.39228, 78.39289, 78.39285, 78.3947, 78.3947, 78.3951, 78.39507, 
  78.39749, 78.39804, 78.39744, 78.39575, 78.39548, 78.394, 78.39111, 78.38758, 78.3858, 78.38426, 
  78.38327, 78.38203, 78.37964, 78.37764, 78.37601, 78.36564, 78.36549, 78.36809, 78.36794, 78.36536, 
  78.36652, 78.36528, 78.35735, 78.34942, 78.34839, 78.34877, 78.35216, 78.34777, 78.33951, 78.32803, 
  78.32565, 78.32749, 78.33392, 78.33049, 78.3292, 78.32161, 78.31934, 78.31015, 78.30535, 78.30374, 
  78.30149, 78.29885, 78.29749, 78.29164, 78.28742, 78.28425, 78.28442, 78.2856, 78.28852, 78.29016, 
  78.29013, 78.28938, 78.2864, 78.28604, 78.28911, 78.29055, 78.2919, 78.29139, 78.30609, 78.30347, 
  78.30751, 78.30678, 78.30845, 78.31261, 78.31437, 78.31197, 78.3118, 78.33154, 78.34214, 78.34956, 
  78.36313, 78.36562, 78.37797, 78.37913, 78.38239, 78.38874, 78.39089, 78.40351, 78.40918, 78.40875, 
  78.4042, 78.39261, 78.37793, 78.37802, 78.3866, 78.38429, 78.38755, 78.36565, 78.35612, 78.32318, 
  78.31236, 78.31038, 78.3042, 78.31407, 78.29262, 78.26068, 78.24498, 78.19313, 78.18671, 78.1673, 
  78.14283, 78.14722, 78.14696, 78.12696, 78.12, 78.11039, 78.09356, 78.09847, 78.0977, 78.09332, 
  78.08748, 78.07357, 78.06945, 78.06, 78.04671, 78.02551, 78.02877, 78.01632, 78.01014, 78.00191, 
  77.99534, 77.99104, 77.99001, 77.98448, 77.98371, 77.97886, 77.97079, 77.97203, 77.96624, 77.95766, 
  77.94547, 77.94186, 77.94084, 77.93392, 77.93058, 77.92659, 77.91925, 77.91843, 77.91869, 77.92212, 
  77.92195, 77.92839, 77.93427, 77.93075, 77.92671, 77.92607, 77.92616, 77.92787, 77.93049, 77.93238, 
  77.92814, 77.92539, 77.91461, 77.90375, 77.88329, 77.88707, 77.88149, 77.87874, 77.84664, 77.83872, 
  77.8343, 77.83196, 77.82983, 77.82777, 77.8143, 77.78686, 77.78102, 77.78501, 77.7884, 77.78883, 
  77.79368, 77.80303, 77.81136, 77.81248, 77.81123, 77.80011, 77.79552, 77.76553, 77.7657, 77.76133, 
  77.75137, 77.74107, 77.73094, 77.72467, 77.72029, 77.71386, 77.71352, 77.69961, 77.68913, 77.68304, 
  77.68055, 77.68158, 77.67888, 77.67527, 77.67347, 77.67392, 77.66527, 77.65935, 77.65531, 77.64214, 
  77.61395, 77.60369, 77.6012, 77.59659, 77.59386, 77.59155, 77.59022, 77.58399, 77.57172, 77.56584, 
  77.56331, 77.5406, 77.53758, 77.53449, 77.52282, 77.51423, 77.50099, 77.47997, 77.47448, 77.47113, 
  77.46804, 77.45086, 77.44619, 77.44662, 77.44353, 77.42911, 77.41619, 77.41353, 77.41164, 77.40495, 
  77.39542, 77.38796, 77.38264, 77.37461, 77.37465, 77.37963, 77.37912, 77.37624, 77.37669, 77.375, 
  77.37433, 77.37347, 77.37042, 77.3498, 77.34643, 77.3436, 77.33931, 77.33764, 77.33676, 77.33585, 
  77.33279, 77.32742, 77.32414, 77.32084, 77.30916, 77.30392, 77.29132, 77.28763, 77.28848, 77.28745, 
  77.27913, 77.27406, 77.26616, 77.26325, 77.25943, 77.25414, 77.25316, 77.24317, 77.23724, 77.21922, 
  77.20917, 77.19476, 77.18763, 77.17922, 77.17235, 77.1701, 77.16514, 77.15956, 77.15852, 77.15745, 
  77.15725, 77.15738, 77.15992, 77.16103, 77.16225, 77.16345, 77.16244, 77.15908, 77.15914, 77.16226, 
  77.16265, 77.16177, 77.159, 77.15907, 77.16218, 77.16248, 77.16072, 77.1484, 77.14883, 77.14722, 
  77.14954, 77.14243, 77.13814, 77.13636, 77.12643, 77.11587, 77.11085, 77.09442, 77.08188, 77.08068, 
  77.07099, 77.06502, 77.06081, 77.05412, 77.04815, 77.03926, 77.03236, 77.02021, 77.01257, 77.00929, 
  77.00631, 77.00109, 76.99949, 76.99504, 76.99391, 76.97073, 76.95721, 76.95026, 76.94159, 76.93412, 
  76.9288, 76.92597, 76.91126, 76.90748, 76.90507, 76.90585, 76.91095, 76.91091, 76.90941, 76.90511, 
  76.89765, 76.89726, 76.89447, 76.89593, 76.88705, 76.88036, 76.87087, 76.85511, 76.85426, 76.85195, 
  76.84984, 76.85104, 76.8534, 76.84898, 76.84359, 76.84362, 76.84462, 76.84424, 76.84005, 76.83435, 
  76.8303, 76.82324, 76.81753, 76.81826, 76.81362, 76.81388, 76.81778, 76.82263, 76.82281, 76.8174, 
  76.82521, 76.82628, 76.8289, 76.83427, 76.83118, 76.82693, 76.82929, 76.82869, 76.83766, 76.83834, 
  76.84143, 76.84452, 76.84332, 76.83576, 76.83123, 76.83018, 76.82523, 76.82441, 76.82287, 76.82014, 
  76.82016, 76.81143, 76.80682, 76.80526, 76.80326, 76.79885, 76.79226, 76.79006, 76.78874, 76.78547, 
  76.78056, 76.77832, 76.7756, 76.77376, 76.77285, 
  76.77168, 76.76841, 76.7645, 76.75293, 76.74954, 76.74669, 76.74437, 76.74076, 76.73701, 76.73872, 
  76.73854, 76.73403, 76.73314, 76.73475, 76.72752, 76.73099, 76.71649, 76.70508, 76.70077, 76.69635, 
  76.69457, 76.69133, 76.68976, 76.6892, 76.69057, 76.66821, 76.66963, 76.67117, 76.66898, 76.66598, 
  76.66259, 76.63199, 76.63639, 76.62944, 76.62687, 76.61606, 76.59272, 76.58256, 76.57779, 76.57706, 
  76.5747, 76.56993, 76.56281, 76.55048, 76.54419, 76.54018, 76.53484, 76.52869, 76.52311, 76.51389, 
  76.50078, 76.49459, 76.48806, 76.48026, 76.47103, 76.45742, 76.4645, 76.46253, 76.44768, 76.44446, 
  76.43957, 76.43742, 76.43554, 76.42824, 76.42319, 76.38108, 76.37524, 76.38073, 76.38039, 76.37692, 
  76.36332, 76.36048, 76.35868, 76.33524, 76.33181, 76.3261, 76.32206, 76.31425, 76.30679, 76.29945, 
  76.30958, 76.29958, 76.26104, 76.24989, 76.2468, 76.2298, 76.2211, 76.20513, 76.20521, 76.22195, 
  76.23131, 76.22496, 76.22496, 76.22736, 76.23904, 76.24093, 76.23818, 76.22942, 76.22942, 76.27173, 
  76.28413, 76.26585, 76.26903, 76.26482, 76.2637, 76.2704, 76.26628, 76.264, 76.23568, 76.21217, 
  76.2107, 76.20796, 76.19984, 76.19796, 76.18426, 76.17933, 76.16654, 76.16362, 76.15959, 76.1635, 
  76.13698, 76.08754, 76.03209, 76.03381, 76.04651, 76.04681, 76.03613, 76.03313, 76.02514, 76.02437, 
  76.0202, 76.00724, 75.99973, 75.97784, 75.9669, 75.89287, 75.87365, 75.85283, 75.84528, 75.84069, 
  75.83485, 75.83163, 75.82245, 75.83417, 75.83374, 75.83752, 75.84181, 75.84215, 75.81974, 75.76765, 
  75.76859, 75.73769, 75.74374, 75.72551, 75.71898, 75.70473, 75.69645, 75.67287, 75.68398, 75.69298, 
  75.68315, 75.69242, 75.68977, 75.6634, 75.65005, 75.63925, 75.60525, 75.59297, 75.58023, 75.5687, 
  75.55445, 75.54002, 75.52371, 75.51505, 75.50475, 75.49556, 75.49573, 75.48213, 75.48232, 75.47678, 
  75.46949, 75.46513, 75.4579, 75.45438, 75.41944, 75.40304, 75.39299, 75.4008, 75.39404, 75.39145, 
  75.39372, 75.38986, 75.38756, 75.38471, 75.38377, 75.37643, 75.37647, 75.386, 75.38068, 75.38488, 
  75.37471, 75.37724, 75.36711, 75.36596, 75.37862, 75.32698, 75.35283, 75.34278, 75.35249, 75.35429, 
  75.35798, 75.36407, 75.36583, 75.36626, 75.36398, 75.36503, 75.36626, 
  75.36639, 75.39035, 75.3931, 75.40186, 75.40343, 75.42124, 75.42587, 75.45232, 75.46278, 75.48811, 
  75.49265, 75.51316, 75.54072, 75.67032, 75.67419, 75.69883, 75.78503, 75.83539, 75.89288, 75.94553, 
  75.95047, 75.97553, 75.99296, 75.99614, 76.02943, 76.0339, 76.06308, 76.08635, 76.08884, 76.10068, 
  76.10068, 76.11041, 76.11591, 76.13423, 76.13912, 76.14487, 76.16328, 76.17097, 76.19389, 76.20308, 
  76.24061, 76.2443, 76.25261, 76.2522, 76.25027, 76.24945, 76.25817, 76.266, 76.26997, 76.25775, 
  76.26735, 76.309, 76.32855, 76.36023, 76.41345, 76.4194, 76.4307, 76.44318, 76.44309, 76.48657, 
  76.49275, 76.49722, 76.52048, 76.51739, 76.52944, 76.55262, 76.55952, 76.56184, 76.56631, 76.57455, 
  76.57867, 76.5777, 76.57958, 76.61019, 76.62246, 76.63366, 76.63589, 76.63177, 76.63838, 76.64242, 
  76.69666, 76.70164, 76.73656, 76.73185, 76.74232, 76.74532, 76.74798, 76.7618, 76.75665, 76.75734, 
  76.7634, 76.79224, 76.84995, 76.88172, 76.89768, 76.90548, 76.90823, 76.91578, 76.93106, 76.92772, 
  76.94093, 76.93346, 76.94442, 76.94819, 76.95733, 76.96086, 76.97278, 76.98059, 77.00934, 77.01656, 
  77.03732, 77.0468, 77.06712, 77.07003, 77.07242, 77.07722, 77.07778, 77.07829, 77.0828, 77.08806, 
  77.09106, 77.11041, 77.11674)
Claimed_Area_4 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Claimed_Area_4 <- Claimed_Area_4 %>% 
  mutate(NAME = "LADAKH", VISUALIZATION_NAME = "Ladakh", 
         ISO2 = NA, ISO3 = NA, M49_CODE = NA, SOVRN = "India", CONTINENT = "ASIA", 
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

##### SIACHEN GLACIER #####
LATITUDE_VALUEs <- c(
  35.662, 35.66124, 35.66427, 35.66457, 35.66999, 35.66626, 35.66891, 35.66858, 35.67454, 35.66863, 
  35.65219, 35.64049, 35.62402, 35.61907, 35.61126, 35.61049, 35.59472, 35.60142, 35.59904, 35.61014, 
  35.6086, 35.61077, 35.60079, 35.6003, 35.57091, 35.5654, 35.56463, 35.55632, 35.55688, 35.55157, 
  35.54103, 35.53865, 35.53816, 35.53886, 35.53614, 35.53216, 35.52831, 35.52185, 35.52294, 35.52975, 
  35.5309, 35.54008, 35.53631, 35.53799, 35.54448, 35.54155, 35.54131, 35.54553, 35.54249, 35.53705, 
  35.53858, 35.53415, 35.53146, 35.52444, 35.51798, 35.51497, 35.5126, 35.51057, 35.50369, 35.4942, 
  35.49986, 35.49826, 35.49015, 35.48318, 35.47346, 35.47252, 35.47042, 35.47067, 35.47259, 35.47378, 
  35.47049, 35.47133, 35.46577, 35.46637, 35.4634, 35.46182, 35.46284, 35.48017, 35.48388, 35.48933, 
  35.48479, 35.48653, 35.48632, 35.4843, 35.48856, 35.488, 35.48416, 35.48353, 35.48674, 35.4843, 
  35.47975, 35.46979, 35.46584, 35.4729, 35.46242, 35.46808, 35.47682, 35.48339, 35.48667, 35.46675, 
  35.46521, 35.46193, 35.45326, 35.45186, 35.46137, 35.46396, 35.46147, 35.46951, 35.47399, 35.47633, 
  35.49691, 35.49778, 35.50264, 35.5018, 35.4996, 35.49824, 35.5047, 35.50952, 35.51944, 35.52325, 
  35.52283, 35.51413, 35.50767, 35.50571, 35.50355, 35.50544, 35.50404, 35.49684, 35.49069, 
  35.05345, 35.05758, 35.06506, 35.06689, 35.08914, 35.09797, 35.10485, 35.11145, 35.11654, 35.12201, 
  35.12581, 35.1297, 35.13544, 35.14153, 35.16781, 35.16918, 35.18237, 35.183, 35.21056, 35.23244, 
  35.23847, 35.25137, 35.28991, 35.2946, 35.29551, 35.31127, 35.31239, 35.31632, 35.31989, 35.32129, 
  35.32738, 35.33641, 35.34496, 35.35028, 35.35651, 35.36008, 35.3591, 35.36274, 35.37778, 35.38275, 
  35.39297, 35.39696, 35.4014, 35.38964, 35.3859, 35.38968, 35.39955, 35.40591, 35.42071, 35.43011, 
  35.44288, 35.45469, 35.45487, 35.49681, 35.51693, 35.51846, 35.51574, 35.51838, 35.5254, 35.52901, 
  35.53547, 35.53872, 35.54501, 35.55143, 35.5552, 35.5626, 35.57898, 35.57678, 35.57901, 35.58292, 
  35.58816, 35.60609, 35.62954, 35.63979, 35.63902, 35.64251, 35.65165, 35.65805)
LONGITUDE_VALUEs <- c(
  76.78273, 76.78903, 76.79281, 76.80459, 76.81508, 76.82193, 76.83426, 76.8381, 76.84443, 76.85334, 
  76.85976, 76.87977, 76.89951, 76.8996, 76.91847, 76.93194, 76.96714, 76.97246, 76.98319, 76.99496, 
  77.00114, 77.01083, 77.02663, 77.06198, 77.08757, 77.09563, 77.11193, 77.12146, 77.12627, 77.13648, 
  77.14533, 77.15202, 77.1558, 77.16206, 77.16962, 77.1758, 77.17906, 77.19399, 77.2121, 77.2257, 
  77.24935, 77.2647, 77.27278, 77.2829, 77.29346, 77.29496, 77.30067, 77.30264, 77.31072, 77.31329, 
  77.319, 77.32782, 77.32807, 77.33824, 77.3394, 77.33657, 77.33691, 77.33979, 77.33992, 77.35636, 
  77.36207, 77.37153, 77.3705, 77.37682, 77.38137, 77.38927, 77.39193, 77.39545, 77.39948, 77.40759, 
  77.41944, 77.42437, 77.43034, 77.43176, 77.43648, 77.44231, 77.44674, 77.48071, 77.48242, 77.50097, 
  77.5171, 77.51924, 77.52199, 77.5244, 77.53453, 77.54062, 77.54267, 77.55006, 77.55933, 77.57195, 
  77.5826, 77.57861, 77.59213, 77.60499, 77.62954, 77.64199, 77.6377, 77.6389, 77.65202, 77.67185, 
  77.67838, 77.68241, 77.68679, 77.69065, 77.69512, 77.6995, 77.7189, 77.73478, 77.72804, 77.72829, 
  77.74316, 77.75444, 77.75731, 77.76495, 77.76877, 77.77993, 77.78265, 77.79794, 77.80332, 77.81207, 
  77.81345, 77.82267, 77.82653, 77.82632, 77.82971, 77.83345, 77.84006, 77.84426, 77.85357, 
  77.11674, 77.11718, 77.12039, 77.11833, 77.11133, 77.08266, 77.0782, 77.08146, 77.08176, 77.07193, 
  77.07, 77.0718, 77.06933, 77.08199, 77.087, 77.08541, 77.04335, 77.01744, 76.99085, 77.00407, 
  77.00064, 76.97478, 77.00122, 77.00646, 77.0216, 76.99856, 76.98908, 76.98402, 76.98359, 76.98805, 
  76.99011, 76.98702, 76.9778, 76.98504, 76.98658, 76.98298, 76.96856, 76.95844, 76.95045, 76.95448, 
  76.94762, 76.93964, 76.91892, 76.90824, 76.88471, 76.86257, 76.84728, 76.84685, 76.83146, 76.84146, 
  76.83833, 76.82558, 76.8212, 76.79098, 76.7963, 76.78918, 76.77442, 76.75879, 76.75819, 76.75299, 
  76.75347, 76.74785, 76.75013, 76.74884, 76.7497, 76.76618, 76.77641, 76.78559, 76.79215, 76.79408, 
  76.79364, 76.77888, 76.75511, 76.76283, 76.77467, 76.78197, 76.77922, 76.776)
Claimed_Area_5 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Claimed_Area_5 <- Claimed_Area_5 %>% 
  mutate(NAME = "SIACHEN GLACIER", VISUALIZATION_NAME = "Siachen Glacier", 
         ISO2 = NA, ISO3 = NA, M49_CODE = NA, SOVRN = NA, CONTINENT = "ASIA", 
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

################################
##### Geometric Operations #####
################################

#Geometric Operations Function
Geometric_Operations <- function(COUNTRY, Geo) {
  #Valid GEOMETRIEs? Make invalid GEOMETRIEs valid
  if (st_is_valid(COUNTRY) == FALSE) {COUNTRY <- st_make_valid(COUNTRY)}
  if (st_is_valid(COUNTRY) == FALSE) {Geo <- st_make_valid(Geo)}
  #COUNTRY minus Geo
  Geo_0 <- st_difference(st_geometry(COUNTRY), st_geometry(Geo))
  #Keep MULTYPOLYGON GEOMETRIEs
  if (length(Geo_0) > 1) {Geo_0 <- Geo_0[st_geometry_type(Geo_0) %in% c("POLYGON", "MULTIPOLYGON")]}
  #Valid GEOMETRIEs? Make invalid GEOMETRIEs valid
  if (st_is_valid(Geo_0) == FALSE) {Geo_0 <- st_make_valid(Geo_0)}
  return(Geo_0)}

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA_from_WHO %>% filter(NAME == "INDIA")
Geo_2 <- GeoDATA_from_WHO %>% filter(NAME == "PAKISTAN")
Geo_3 <- GeoDATA_from_WHO %>% filter(NAME == "CHINA")
Geo_4 <- GeoDATA_from_WHO %>% filter(NAME == "AFGHANISTAN")
Geo_5 <- GeoDATA_from_WHO %>% filter(NAME == "NEPAL")

##### INDIA #####
Geo_0 <- Geometric_Operations(Geo_1, Claimed_Area_1)
Geo_0 <- Geometric_Operations(Geo_0, Claimed_Area_2)
Geo_0 <- Geometric_Operations(Geo_0, Claimed_Area_3)
Geo_0 <- Geometric_Operations(Geo_0, Claimed_Area_4)
Geo_0 <- Geometric_Operations(Geo_0, Claimed_Area_5)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_union(Geo_0[c(1, 3:41)]))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
LATITUDE_VALUEs <- c(
  23.72384, 23.74827, 23.79037, 23.82791, 23.84424, 23.85837, 23.86873, 23.87642, 23.88599, 23.89604, 
  23.89784, 23.89808, 23.89588, 23.89792, 23.90255, 23.90969, 23.91369, 23.91903, 23.92578, 23.93425, 
  23.94437, 23.94547, 23.94178, 23.92295, 23.91322, 23.91236, 23.91628, 23.92362, 23.93625, 23.93966, 
  23.94347, 23.9457, 23.94731, 23.94774, 23.95496, 23.961, 23.97386, 23.95621, 23.95151, 23.94641, 
  23.94257, 23.94045, 23.94249, 23.95088, 23.96045, 23.96555, 23.96947, 23.97088, 23.96649, 23.97018, 
  23.97167, 24.26606, 24.28241, 24.28757, 24.29579, 24.31351, 24.31233, 24.31742, 24.31523, 24.31128, 
  24.2776, 24.26035, 24.24689, 24.21386, 24.21206, 24.21652, 24.23765, 24.24399, 24.26293, 24.27983, 
  24.28452, 24.30252, 24.27952, 24.26074, 24.22763, 24.22435, 24.22321, 24.22834, 24.23632, 24.23969, 
  24.2713, 24.27443, 24.23648, 24.28139, 24.2695, 24.27107, 24.28053, 24.27114, 24.26786, 24.26841, 
  24.27819, 24.29235, 24.17119, 24.17111, 24.19906, 24.29501, 24.30299, 24.30338, 24.32145, 24.32551, 
  24.33067, 24.34209, 24.3521, 24.35163, 24.3538, 24.35421, 24.35056, 24.35042, 24.35097, 24.35546, 
  24.35791, 24.35879, 24.36064, 24.36727, 24.37556, 24.38369, 24.38877, 24.40425, 24.40878, 24.41996, 
  24.42167, 24.42222, 24.40815, 24.36313, 24.35621, 24.35515, 24.3539, 24.35253, 24.30416, 24.29532, 
  24.29023, 24.27795, 24.26434, 24.25174, 24.2479, 24.24423, 24.24681, 24.22411, 24.21566, 24.22114, 
  24.23131, 24.24524, 24.24587, 24.25315, 24.25941, 24.2616, 24.2634, 24.27318, 24.28073, 24.28296, 
  24.29481, 24.29845, 24.30029, 24.30182, 24.32645, 24.32817, 24.34854, 24.34921, 24.35413, 24.36528, 
  24.35089, 24.34727, 24.35345, 24.3511, 24.35392, 24.3562, 24.35608, 24.36078, 24.36217, 24.37642, 
  24.39143, 24.39471, 24.39655, 24.40245, 24.40585, 24.42011, 24.43572, 24.43699, 24.43222, 24.44488, 
  24.44449, 24.46598, 24.49793, 24.52339, 24.5301, 24.54353, 24.5643, 24.59575, 24.62252, 24.62898, 
  24.63543, 24.6517, 24.65958, 24.66207, 24.6726, 24.69109, 24.71736, 24.8098, 24.9347, 25.14901, 
  25.27792, 25.33317, 25.39676, 25.52556, 25.53113, 25.67634, 25.70233, 25.71223, 25.71486, 25.6833, 
  25.685, 25.67387, 25.71424, 25.75723, 25.79371, 25.8138, 25.82817, 25.9389, 26.08192, 26.15914, 
  26.2517, 26.29495, 26.37449, 26.42446, 26.48025, 26.55183, 26.58692, 26.60048, 26.58131, 26.5787, 
  26.59835, 26.65206, 26.74438, 26.80415, 27.01142, 27.18334, 27.56337, 27.80628, 27.90129, 27.93633, 
  28.01183, 28.02077, 28.03699, 28.02608, 28.01062, 27.92192, 27.82784, 27.72092, 27.70572, 27.83528, 
  27.87262, 27.87785, 27.95764, 27.95999, 28.12165, 28.2185, 28.31284, 28.39382, 28.6695, 28.78301, 
  28.81211, 28.94818, 29.02792, 29.15306, 29.23683, 29.57189, 29.94597, 30.01902, 30.06758, 30.08897, 
  30.19803, 30.25778, 30.32093, 30.34934, 30.3603, 30.36712, 30.3837, 30.39762, 30.40236, 30.44387, 
  30.44032, 30.43647, 30.43914, 30.44506, 30.45246, 30.46607, 30.48974, 30.48353, 30.4637, 30.45897, 
  30.4566, 30.4779, 30.48501, 30.514, 30.514, 30.52109, 30.53352, 30.52612, 30.53204, 30.54179, 
  30.53943, 30.51843, 30.52287, 30.54919, 30.5548, 30.57891, 30.61172, 30.61851, 30.60876, 30.63358, 
  30.62797, 30.66518, 30.69382, 30.72482, 30.7231, 30.73018, 30.73446, 30.73711, 30.73106, 30.73579, 
  30.74405, 30.75374, 30.76968, 30.7747, 30.77691, 30.77352, 30.77957, 30.789, 30.79461, 30.80822, 
  30.81913, 30.82753, 30.84688, 30.85498, 30.85277, 30.84776, 30.84864, 30.85719, 30.86048, 30.87389, 
  30.88126, 30.8929, 30.89555, 30.90944, 30.90782, 30.91607, 30.9196, 30.92343, 30.92093, 30.93094, 
  30.92991, 30.94051, 30.94213, 30.9517, 30.9517, 30.95597, 30.9573, 30.96392, 30.97408, 30.97113, 
  30.97422, 30.96407, 30.96745, 30.97967, 30.99231, 31.00894, 31.03238, 31.03899, 31.05888, 31.05668, 
  31.03785, 31.05334, 31.07408, 31.08161, 31.09175, 31.11277, 31.1185, 31.12795, 31.12369, 31.12443, 
  31.13369, 31.11826, 31.12134, 31.13266, 31.13383, 31.12942, 31.11194, 31.0991, 31.08793, 31.08587, 
  31.08146, 31.08631, 31.12188, 31.13235, 31.15207, 31.18203, 31.18361, 31.20553, 31.22722, 31.25028, 
  31.2689, 31.30163, 31.30354, 31.30632, 31.30471, 31.31248, 31.31395, 31.31366, 31.3204, 31.3229, 
  31.33914, 31.36668, 31.38031, 31.39804, 31.41621, 31.42251, 31.42002, 31.42983, 31.42925, 31.41856, 
  31.41607, 31.42778, 31.44062, 31.44795, 31.45483, 31.47796, 31.47658, 31.4839, 31.48171, 31.48478, 
  31.4858, 31.48317, 31.48185, 31.48507, 31.48512, 31.49976, 31.50181, 31.4961, 31.49849, 31.52074, 
  31.52586, 31.5241, 31.52747, 31.55769, 31.56251, 31.56719, 31.57407, 31.60544, 31.60806, 31.63305, 
  31.64796, 31.64796, 31.65458, 31.65999, 31.66627, 31.67781, 31.68707, 31.69539, 31.70269, 31.70956, 
  31.71496, 31.72124, 31.72839, 31.74043, 31.74934, 31.76335, 31.77901, 31.79112, 31.79638, 31.80498, 
  31.81641, 31.83683, 31.8519, 31.84884, 31.86779, 31.86852, 31.89003, 31.88216, 31.8842, 31.90198, 
  31.91641, 31.92253, 31.92049, 31.92602, 31.92602, 31.92369, 31.92121, 31.92384, 31.93214, 31.94307, 
  31.94394, 31.95596, 31.94787, 31.956, 31.95804, 31.96299, 31.96226, 31.95935, 31.95906, 31.98085, 
  31.99949, 32.00882, 32.00882, 32.01348, 32.02046, 32.02325, 32.02442, 32.02951, 32.03031, 32.02769, 
  32.02224, 32.03191, 32.03402, 32.04136, 32.04136, 32.04282, 32.04398, 32.05068, 32.05359, 32.05275, 
  32.05508, 32.05464, 32.05057, 32.05392, 32.05625, 32.05901, 32.0625, 32.06657, 32.06236, 32.0593, 
  32.05828, 32.06017, 32.05364, 32.04724, 32.04258, 32.04026, 32.04244, 32.04127, 32.04346, 32.03749, 
  32.03589, 32.04724, 32.05102, 32.04249, 32.05427, 32.05296, 32.06242, 32.06577, 32.06693, 32.06562, 
  32.06329, 32.05893, 32.06024, 32.06577, 32.06897, 32.07173, 32.05936, 32.05878, 32.06504, 32.06998, 
  32.08148, 32.08144, 32.06777, 32.07693, 32.08522, 32.09846, 32.097, 32.12045, 32.12088, 32.10736, 
  32.10329, 32.09806, 32.10678, 32.10358, 32.09326, 32.09122, 32.10009, 32.10155, 32.10888, 32.11048, 
  32.11222, 32.11411, 32.13171, 32.13708, 32.15306, 32.15364, 32.16919, 32.17907, 32.19574, 32.20417, 
  32.20809, 32.20852, 32.21971, 32.21979, 32.23042, 32.25786, 32.26681, 32.26667, 32.26885, 32.27959, 
  32.27886, 32.29018, 32.29758, 32.30215, 32.30757, 32.31106, 32.31093, 32.31158, 32.3126, 32.31474, 
  32.31608, 32.31662, 32.31916, 32.32195, 32.32431, 32.32593, 32.32671, 
  32.32872, 32.32957, 32.33312, 32.33579, 32.33554, 32.33641, 32.33705, 32.33772, 32.3398, 32.34136,
  32.34532, 32.3454, 32.34478, 32.34495, 32.3448, 32.33951, 32.33668, 32.3359, 32.33562, 32.33349,
  32.33329, 32.33382, 32.33506, 32.33706, 32.33757, 32.33719, 32.33543, 32.33499, 32.3345, 32.33092,
  32.32746, 32.32761, 32.33055, 32.33022, 32.3277, 32.32748, 32.3287, 32.31983, 32.31864, 32.31568,
  32.31556, 32.3158, 32.31686, 32.3171, 32.31833, 32.32086, 32.32167, 32.32435, 32.3255, 32.32466,
  32.32625, 32.32676, 32.32669, 32.32582, 32.32593, 32.32647, 32.32706, 32.32827, 32.32924, 32.32996,
  32.33052, 32.33292, 32.33368, 32.33431, 32.33781, 32.33851, 32.33946, 32.33902, 32.34261, 32.34436,
  32.34551, 32.34441, 32.343, 32.34097, 32.33869, 32.33709, 32.33532, 32.33349, 32.33271, 32.3303,
  32.32622, 32.32382, 32.32275, 32.32063, 32.31738, 32.3167, 32.31153, 32.31238, 32.31222, 32.30913,
  32.30741, 32.30407, 32.29691, 32.29247, 32.28804, 32.28403, 32.28274, 32.28057, 32.27692, 32.27636,
  32.27668, 32.27777, 32.27739, 32.2785, 32.30132, 32.30574, 32.32134, 32.3266, 32.33376, 32.34204,
  32.358, 32.37782, 32.37779, 32.38054, 32.38587, 32.3908, 32.39364, 32.38978, 32.38943, 32.3904,
  32.39484, 32.39893, 32.40444, 32.41, 32.40969, 32.40665, 32.40529, 32.40877, 32.41446, 32.42176,
  32.42359, 32.42793, 32.43037, 32.43232, 32.4326, 32.43001, 32.42976, 32.43038, 32.43177, 32.43299,
  32.43801, 32.43866, 32.4396, 32.44501, 32.44711, 32.45144, 32.4531, 32.45461, 32.45443, 32.45608,
  32.45912, 32.45979, 32.45926, 32.46223, 32.48551, 32.4909, 32.49507, 32.49865, 32.50028, 32.50234,
  32.50339, 32.50274, 32.50293, 32.50398, 32.50501, 32.50833, 32.50949, 32.51027, 32.51029, 32.51371,
  32.51494, 32.51383, 32.51825, 32.52272, 32.52686, 32.53265, 32.54611, 32.55352, 32.56052, 32.56322,
  32.56803, 32.58146, 32.58515, 32.58674, 32.59052, 32.58954, 32.5883, 32.58855, 32.59874, 32.59833,
  32.60191, 32.60521, 32.60757, 32.61054, 32.61425, 32.61485, 32.61704, 32.61882, 32.62096, 32.6263,
  32.62811, 32.62948, 32.6296, 32.62991, 32.63138, 32.63286, 32.63388, 32.63495, 32.63673, 32.63673,
  32.631, 32.63067, 32.63121, 32.63206, 32.63798, 32.64, 32.64139, 32.64651, 32.64747, 32.64593,
  32.6428, 32.64179, 32.64331, 32.64369, 32.64317, 32.6464, 32.64924, 32.65328, 32.65738, 32.65782,
  32.65681, 32.65381, 32.65448, 32.65204, 32.64855, 32.64826, 32.64965, 32.65195, 32.65532, 32.66089,
  32.66367, 32.66593, 32.66847, 32.67172, 32.67359, 32.67819, 32.68711, 32.69195, 32.69513, 32.69705,
  32.70263, 32.71844, 32.72754, 32.73515, 32.73696, 32.74411, 32.74703, 32.76367, 32.76706, 32.776,
  32.78524, 32.79087, 32.81164, 32.81359, 32.8203, 32.83589, 32.83649, 32.83609, 32.8406, 32.84417,
  32.846, 32.86296, 32.86938, 32.87684, 32.88419, 32.89434, 32.90761, 32.91968, 32.92332, 32.92772,
  32.92841, 32.92331, 32.92411, 32.91942, 32.91921, 32.9052, 32.88764, 32.87344, 32.92007, 32.92562,
  32.93001, 32.93426, 32.94288, 32.9517, 32.95551, 32.96127, 32.96279, 32.98482, 32.99087, 33.00444,
  33.00894, 33.00577, 33.01995, 33.01592, 33.02254, 33.02002, 33.03204, 33.03894, 33.04787, 33.05269,
  33.05966, 33.0683, 33.06945, 33.08477, 33.10519, 33.18489, 33.17921, 33.19422, 33.19896, 33.20895,
  33.20571, 33.20256, 33.19121, 33.18876, 33.18884, 33.18654, 33.17231, 33.16563, 33.16534, 33.16154,
  33.16168, 33.16764, 33.1716, 33.17289, 33.17677, 33.18029, 33.18151, 33.17734, 33.17892, 33.1902,
  33.19552, 33.23487, 33.23896, 33.2422, 33.24435, 33.24991, 
  33.25077, 33.25239, 33.2528, 33.2526, 33.2533, 33.25299, 33.25476, 33.2549, 33.25563, 33.25567, 
  33.25109, 33.24962, 33.24542, 33.24095, 33.23519, 33.23318, 33.23395, 33.23546, 33.24366, 33.2478, 
  33.24816, 33.24806, 33.24594, 33.24228, 33.24059, 33.23578, 33.23316, 33.22257, 33.21815, 33.21489, 
  33.21187, 33.20512, 33.20329, 33.20128, 33.19848, 33.19453, 33.18666, 33.18336, 33.17887, 33.17732, 
  33.17183, 33.16597, 33.15929, 33.15042, 33.14319, 33.14073, 33.14062, 33.13814, 33.13599, 33.13374, 
  33.1308, 33.13071, 33.12519, 33.12328, 33.12052, 33.11757, 33.11663, 33.1134, 33.11329, 33.11987, 
  33.12203, 33.11178, 33.10495, 33.10204, 33.09873, 33.09658, 33.0946, 33.09273, 33.08985, 33.08485, 
  33.08183, 33.07759, 33.07723, 33.03763, 33.03198, 33.0282, 33.02738, 33.01813, 33.01647, 33.00064, 
  33.00231, 32.99871, 32.99562, 32.99364, 32.99173, 32.98914, 32.98836, 32.9907, 32.99016, 32.99747, 
  32.99815, 32.99491, 32.98844, 32.98826, 32.98415, 32.98232, 32.97576, 32.9708, 32.97499, 32.98458, 
  32.98088, 32.97983, 32.9807, 32.9808, 32.97772, 32.96565, 32.96044, 32.95601, 32.95351, 32.95007, 
  32.94789, 32.94321, 32.94073, 32.93989, 32.93813, 32.93745, 32.93625, 32.93569, 32.92711, 32.91807, 
  32.91603, 32.91519, 32.91297, 32.91245, 32.91227, 32.91211, 32.91238, 32.9124, 32.91099, 32.91106, 
  32.91245, 32.92463, 32.92808, 32.91281, 32.9046, 32.90388, 32.89242, 32.87288, 32.87036, 32.86438, 
  32.8638, 32.86542, 32.86917, 32.87389, 32.87058, 32.86913, 32.86683, 32.86546, 32.85594, 32.8492, 
  32.85169, 32.85252, 32.84942, 32.83171, 32.82627, 32.82552, 32.81936, 32.81764, 32.81707, 32.81765, 
  32.81716, 32.81593, 32.82179, 32.82362, 32.82504, 32.83032, 32.83335, 32.83669, 32.83928, 32.84437, 
  32.85248, 32.85587, 32.86265, 32.86402, 32.87606, 32.88452, 32.88337, 32.88391, 32.88096, 32.87465, 
  32.87933, 32.87472, 32.87177, 32.86416, 32.8585, 32.85944, 32.86189, 32.87032, 32.88534, 32.87797, 
  32.87899, 32.88685, 32.88658, 32.88824, 32.91335, 32.91465, 32.91443, 32.91852, 32.9249, 32.92493, 
  32.92783, 32.92828, 32.94256, 32.94336, 32.94206, 32.94671, 32.95778, 32.95917, 32.95845, 32.96091, 
  32.96583, 32.96858, 32.97004, 32.97569, 32.98431, 32.98923, 32.98808, 32.98016, 32.98268, 32.97663, 
  32.96928, 32.9695, 32.97418, 32.96914, 32.95481, 32.95049, 32.94624, 32.94199, 32.92054, 32.91277, 
  32.90748, 32.90546, 32.90045, 32.89361, 32.89321, 32.88921, 32.88517, 32.88377, 32.86672, 32.85962, 
  32.84846, 32.83586, 32.83568, 32.83638, 32.84037, 32.84204, 32.83972, 32.81895, 32.80409, 32.79803, 
  32.78792, 32.7723, 32.77421, 32.77172, 32.76447, 32.76119, 32.73787, 32.73711, 32.73592, 32.73495, 
  32.73415, 32.73264, 32.7265, 32.72357, 32.70848, 32.70017, 32.69674, 32.69172, 32.69039, 32.68649, 
  32.68273, 32.68212, 32.67352, 32.66517, 32.66106, 32.65777, 32.65751, 32.65347, 32.64704, 32.64281, 
  32.64172, 32.63952, 32.63413, 32.6315, 32.62748, 32.62528, 32.62586, 32.62015, 32.62376, 32.62781, 
  32.64537, 32.62933, 32.62839, 32.63099, 32.62485, 32.62918, 32.62933, 32.63735, 32.64667, 32.66207, 
  32.66033, 32.65296, 32.6539, 32.67247, 32.68172, 32.68259, 32.67536, 32.66264, 32.67189, 32.70346, 
  32.70101, 32.71805, 32.73365, 32.73661, 32.74361, 32.74902, 32.75711, 32.75307, 32.75523, 32.72895, 
  32.71567, 32.67081, 32.66142, 32.63186, 32.62846, 32.62673, 32.62405, 32.61971, 32.61494, 32.6101, 
  32.60829, 32.60457, 32.59806, 32.59383, 32.59025, 32.58982, 32.57871, 32.5777, 32.56692, 32.55271, 
  32.54985, 32.54547, 32.54348, 32.53867, 32.52691, 32.51823, 32.51197, 32.49916, 32.48995, 32.48665, 
  32.48499, 32.48281, 32.48144, 32.47834, 32.4767, 32.47487, 32.47314, 32.47192, 32.47035, 32.46917, 
  32.46296, 32.46346, 32.46207, 32.45658, 32.45365, 32.45363, 32.45269, 32.447, 32.44369, 32.44438, 
  32.44369, 32.44449, 32.45043, 32.45445, 32.46057, 32.46453, 32.46283, 32.46395, 32.46958, 32.47295, 
  32.47432, 32.47802, 32.47961, 32.48394, 32.48629, 32.48955, 32.49349, 32.49478, 32.49856, 32.50057, 
  32.50587, 32.50809, 32.50963, 32.51042, 32.5112, 32.51268, 32.51363, 32.51437, 32.51456, 32.51598, 
  32.51763, 32.51883, 32.52053, 32.52247, 32.52565, 32.53051, 
  32.52934, 32.52784, 32.52722, 32.5271, 32.52614, 32.52619, 32.52606, 32.52549, 32.52359, 32.52272, 
  32.52194, 32.51949, 32.51815, 32.51652, 32.50411, 32.50119, 32.49071, 32.48632, 32.48038, 32.47551, 
  32.47462, 32.47134, 32.469, 32.46059, 32.45438, 32.44712, 32.44431, 32.44347, 32.39565, 32.38937, 
  32.38088, 32.3648, 32.36646, 32.35981, 32.34355, 32.33393, 32.3258, 32.32431, 32.30324, 32.29529, 
  32.27568, 32.27415, 32.27581, 32.26214, 32.24659, 32.24363, 32.20216, 32.20013, 32.17439, 32.16791, 
  32.15828, 32.1379, 32.12573, 32.11585, 32.1173, 32.11483, 32.09374, 32.08007, 32.06157, 32.0018, 
  32.0036, 31.96657, 31.94772, 31.94575, 31.92807, 31.90165, 31.89102, 31.88519, 31.87471, 31.8594, 
  31.85465, 31.83178, 31.80767, 31.77387, 31.75803, 31.72403, 31.71909, 31.68914, 31.68491, 31.67998, 
  31.67504, 31.68242, 31.67776, 31.66894, 31.64778, 31.63914, 31.63773, 31.62167, 31.60683, 31.59765, 
  31.59801, 31.57895, 31.57733, 31.5659, 31.55619, 31.54351, 31.54859, 31.53232, 31.51329, 31.48283, 
  31.48155, 31.45045, 31.44071, 31.38481, 31.35834, 31.30409, 31.30643, 31.2988, 31.29538, 31.30026, 
  31.30895, 31.31509, 31.30347, 31.28629, 31.29058, 31.36563, 31.34265, 31.34957, 31.38341, 31.39178, 
  31.42565, 31.42998, 31.4591, 31.43243, 31.38563, 31.37434, 31.36304, 31.33494, 31.31638, 31.29313, 
  31.27527, 31.2607, 31.21915, 31.14765, 31.11404, 31.11072, 31.07318, 31.06808, 31.02314, 31.03492, 
  31.03215, 30.9568, 30.93447, 30.96688, 30.98336, 30.97113, 30.98094, 31.00564, 30.97159, 30.97563, 
  30.96476, 30.91753, 30.91454, 30.87933, 30.8887, 30.83691, 30.84116, 30.82056, 30.79541, 30.77964, 
  30.77984, 30.78624, 30.79262, 30.78963, 30.80754, 30.80859, 30.77495, 30.76599, 30.75149, 30.76235, 
  30.74274, 30.71972, 30.70906, 30.69049, 30.6856, 30.66555, 30.64186, 30.58827, 30.57867, 30.5787, 
  30.56481, 30.56418, 30.52059, 30.52764, 30.51739, 30.52465, 30.52337, 30.5176, 30.49686, 30.49647, 
  30.49059, 30.49026, 30.4846, 30.48793, 30.48785, 30.47506, 30.47225, 30.46562, 30.45852, 30.4529, 
  30.4519, 30.44829, 30.44872, 30.45096, 30.45264, 30.45227, 30.45447, 30.4601, 30.46383, 30.46476, 
  30.46398, 30.46439, 30.46561, 30.46685, 30.46803, 30.46857, 30.46829, 30.46868, 30.46798, 30.47147, 
  30.47101, 30.47143, 30.46533, 30.45925, 30.45901, 30.4628, 30.45649, 30.4561, 30.45029, 30.45092, 
  30.43813, 30.42799,  30.42385, 30.42191, 30.42142, 30.42024, 30.41498, 30.41295, 30.41362, 30.41743,
  30.41761, 30.41336, 30.362, 30.35529, 30.35388, 30.34682, 30.34011, 30.33299, 30.32299, 30.32247, 
  30.31462, 30.31334, 30.3167, 30.31418, 30.30121, 30.2998, 30.30373, 30.3018, 30.29787, 30.28683, 
  30.28305, 30.2769, 30.27305, 30.26704, 30.26348, 30.2663, 30.2701, 30.27054, 30.2648, 30.26016, 
  30.25586, 30.25368, 30.2519, 30.24915, 30.24778, 30.24708, 30.24107, 30.23859, 30.23725, 30.23343, 
  30.23102, 30.22746, 30.22646, 30.22617, 30.22554, 30.22038, 30.21945, 30.21786, 30.21615, 30.21515,
  30.21133, 30.21085, 30.20513, 30.20224, 30.2016, 30.20073, 30.19981, 30.19871,
  30.19719, 30.19041, 30.18601, 30.19157, 30.17723, 30.18645, 30.18922, 30.20562, 30.20794, 30.21322, 
  30.2262, 30.22351, 30.21215, 30.1946, 30.18781, 30.16939, 30.16055, 30.14525, 30.13079, 30.1262, 
  30.11588, 30.11013, 30.10231, 30.09721, 30.09992, 30.08551, 30.05666, 30.04923, 30.04061, 30.02367, 
  30.00708, 29.99913, 30.00088, 29.99002, 29.97533, 29.95969, 29.95686, 29.95742, 29.95582, 29.96519, 
  29.96378, 29.95893, 29.9593, 29.95798, 29.94894, 29.93715, 29.92763, 29.92339, 29.90896, 29.89538, 
  29.87897, 29.87458, 29.86997, 29.86837, 29.86701, 29.8658, 29.86139, 29.8592, 29.85598, 29.85281, 
  29.85069, 29.84983, 29.85043, 29.84628, 29.84736, 29.84144, 29.83874, 29.83859, 29.83349, 29.83249, 
  29.83167, 29.82895, 29.82692, 29.82543, 29.82476, 29.82314, 29.82177, 29.81948, 29.81778, 29.81086, 
  29.80883, 29.80682, 29.80464, 29.80329, 29.80208, 29.8017, 29.80101, 29.79871, 29.79582, 29.79519, 
  29.79642, 29.79528, 29.79797, 29.80229, 29.80181, 29.79948, 29.79875, 29.79929, 29.8022, 29.80617, 
  29.80617, 29.80522, 29.8025, 29.80144, 29.7989, 29.79592, 29.79622, 29.79577, 29.79384, 29.79179, 
  29.79235, 29.79477, 29.79504, 29.79485, 29.79428, 29.79341, 29.79133, 29.78933, 29.78404, 29.78322, 
  29.78151, 29.77901, 29.77663, 29.77669, 29.77324, 29.76698, 29.76549, 29.76303, 29.75975, 29.75815, 
  29.75852, 29.76054, 29.75972, 29.75759, 29.75059, 29.74951, 29.75092, 29.74936, 29.74638, 29.73863, 
  29.73419, 29.73031, 29.72592, 29.72182, 29.72122, 29.71996, 29.71858, 29.71621, 29.71485, 29.71385, 
  29.71183, 29.70242, 29.70115, 29.68859, 29.68568, 29.6849, 29.67841, 29.67625, 29.67371, 29.67176, 
  29.67122, 29.66622, 29.66443, 29.66277, 29.66212, 29.65953, 29.65887, 29.65964, 29.65954, 29.65906, 
  29.65623, 29.65429, 29.65354, 29.65419, 29.65179, 29.65044, 29.64782, 29.6439, 29.64119, 29.63946, 
  29.63853, 29.63588, 29.63345, 29.63146, 29.62972, 29.62667, 29.62624, 29.62557, 29.62499, 29.61993, 
  29.61512, 29.61376, 29.61284, 29.6115, 29.60945, 29.60486, 29.59699, 29.59346, 29.58775, 29.58741, 
  29.58661, 29.58473, 29.58136, 29.57255, 29.56124, 29.5606, 29.56411, 29.56318, 29.5613, 29.55734, 
  29.55622, 29.55538, 29.55269, 29.54881, 29.54239, 29.5403, 29.54018, 29.53608, 29.5341, 29.5331, 
  29.52947, 29.52774, 29.52516, 29.52408, 29.51932, 29.5099, 29.50996, 29.51315, 29.5128, 29.50675, 
  29.50512, 29.49961, 29.49758, 29.49452, 29.49186, 29.48667, 29.48457, 29.48435, 29.48517, 29.4861, 
  29.49051, 29.49033, 29.48838, 29.4854, 29.47867, 29.47777, 29.4762, 29.46876, 29.46171, 29.45557, 
  29.4528, 29.45168, 29.45123, 29.45357, 29.45146, 29.45131, 29.45237, 29.45389, 29.4571, 29.45815, 
  29.45867, 29.45848, 29.4571, 29.45557, 29.45435, 29.4537, 29.45379, 29.45185, 29.44989, 29.44957, 
  29.45028, 29.44856, 29.45155, 29.4514, 29.45034, 29.44841, 29.44701, 29.4469, 29.44398, 29.44246, 
  29.4379, 29.43222, 29.42359, 29.41626, 29.41469, 29.41219, 29.41121, 29.39742, 29.39514, 29.39196, 
  29.38646, 29.37835, 29.37334, 29.36279, 29.35946, 29.34764, 29.33885, 29.33612, 29.3332, 29.32377, 
  29.32243, 29.31449, 29.30873, 29.30334, 29.29058, 29.28994, 29.28545, 29.26587, 29.2594, 29.24228, 
  29.23146, 29.22175, 29.21928, 29.21126, 29.20669, 29.19665, 29.19493, 29.19703, 29.20744, 29.20594, 
  29.20856, 29.22025, 29.22175, 29.20182, 29.1947, 29.18654, 29.17777, 29.16683, 29.14464, 29.13857, 
  29.13954, 29.13624, 29.12845, 29.12605, 29.11652, 29.12462, 29.12995, 29.13744, 29.12725, 29.12717, 
  29.12515, 29.11675, 29.10475, 29.06267, 29.0593, 29.03168, 29.03041, 29.01292, 29.00962, 29.00751, 
  29.00601, 28.98146, 28.98589, 28.91617, 28.90851, 28.83726, 28.82462, 28.82903, 28.7824,
  24.18164, 23.90617)
LONGITUDE_VALUEs <- c(
  68.18831, 68.18933, 68.20752, 68.20859, 68.20687, 68.20945, 68.21425, 68.22077, 68.23982, 68.25153, 
  68.25745, 68.26268, 68.27649, 68.28173, 68.28207, 68.27469, 68.27177, 68.27091, 68.27349, 68.27881, 
  68.29031, 68.29597, 68.30009, 68.30695, 68.32018, 68.32627, 68.33468, 68.34216, 68.34632, 68.35083, 
  68.35199, 68.35126, 68.34967, 68.34697, 68.34576, 68.34636, 68.35649, 68.36146, 68.36421, 68.36043, 
  68.36103, 68.36481, 68.37142, 68.37339, 68.37099, 68.3715, 68.37485, 68.37965, 68.39366, 68.3982, 
  68.75309, 68.76937, 68.76808, 68.76568, 68.76473, 68.80802, 68.82021, 68.82605, 68.82876, 68.83094, 
  68.84352, 68.84387, 68.84541, 68.85669, 68.87434, 68.88018, 68.88945, 68.89047, 68.89708, 68.90661, 
  68.91305, 68.94532, 68.96293, 68.97306, 68.98484, 68.9941, 69.00814, 69.02101, 69.032, 69.03415, 
  69.09388, 69.09474, 69.19414, 69.31271, 69.37198, 69.40374, 69.44444, 69.47017, 69.48872, 69.50329, 
  69.54432, 69.59412, 69.73135, 70.02498, 70.06652, 70.1099, 70.1393, 70.16429, 70.21501, 70.2539, 
  70.25888, 70.28882, 70.32659, 70.34608, 70.35068, 70.35403, 70.36314, 70.36574, 70.36866, 70.37651, 
  70.3839, 70.38844, 70.39207, 70.39825, 70.41173, 70.43947, 70.47147, 70.51508, 70.53756, 70.55791, 
  70.56563, 70.57353, 70.6024, 70.58039, 70.5636, 70.5624, 70.56201, 70.5621, 70.58202, 70.57936, 
  70.58451, 70.58511, 70.57447, 70.57129, 70.58186, 70.58297, 70.58606, 70.64571, 70.71715, 70.80588, 
  70.83542, 70.85156, 70.87643, 70.88916, 70.90668, 70.90861, 70.90861, 70.88233, 70.87517, 70.87436, 
  70.87397, 70.87655, 70.88187, 70.87828, 70.92406, 70.92315, 70.94701, 70.95478, 70.96306, 70.98599, 
  71.0034, 71.02021, 71.04052, 71.042, 71.04196, 71.04671, 71.0494, 71.05632, 71.05778, 71.06611, 
  71.07942, 71.08414, 71.10696, 71.11962, 71.12198, 71.12577, 71.10315, 71.06646, 71.03744, 71.00869, 
  70.99839, 70.99616, 71.00105, 71.00483, 71.00285, 70.98749, 70.99246, 70.9862, 70.99915, 71.0072, 
  71.00891, 71.05653, 71.06713, 71.07457, 71.08585, 71.09478, 71.06579, 71.02613, 70.93982, 70.88765, 
  70.75099, 70.73692, 70.66461, 70.67834, 70.66718, 70.67337, 70.66031, 70.64666, 70.60845, 70.5297, 
  70.50121, 70.38685, 70.26861, 70.25143, 70.22191, 70.19925, 70.17452, 70.10108, 70.08532, 70.14249, 
  70.17503, 70.16336, 70.18516, 70.17692, 70.18465, 70.17401, 70.11742, 70.0563, 69.93282, 69.88594, 
  69.7917, 69.72515, 69.50953, 69.48446, 69.51336, 69.58664, 70.02556, 70.13229, 70.22654, 70.2964, 
  70.37226, 70.44178, 70.50549, 70.55491, 70.58959, 70.67731, 70.6837, 70.75889, 70.87231, 71.20534, 
  71.38301, 71.66641, 71.88287, 71.89884, 71.92651, 72.00343, 72.13184, 72.20613, 72.29868, 72.40378, 
  72.47982, 72.73323, 72.9458, 73.00418, 73.08469, 73.28226, 73.39692, 73.59709, 73.80605, 73.82286, 
  73.97205, 73.96419, 73.9309, 73.90262, 73.87928, 73.88409, 73.91429, 73.91979, 73.93626, 73.97409, 
  73.96723, 73.9384, 73.92707, 73.93702, 73.93771, 73.9281, 73.93462, 73.94732, 73.94698, 73.95007, 
  73.96414, 73.96929, 73.96345, 73.99127, 74.01942, 74.01049, 74.01152, 74.02319, 74.03795, 74.03967, 
  74.04825, 74.05683, 74.07227, 74.09046, 74.07365, 74.10182, 74.09599, 74.10491, 74.11727, 74.12825, 
  74.13786, 74.19308, 74.21882, 74.2322, 74.26075, 74.26899, 74.26847, 74.27482, 74.28117, 74.28598, 
  74.27431, 74.27332, 74.26108, 74.2609, 74.26451, 74.27395, 74.30192, 74.30655, 74.29471, 74.30185, 
  74.31009, 74.31953, 74.32041, 74.34787, 74.35404, 74.35696, 74.36709, 74.36486, 74.38184, 74.36074, 
  74.3652, 74.36571, 74.38287, 74.39731, 74.42236, 74.42408, 74.41121, 74.41001, 74.42356, 74.42854, 
  74.41378, 74.41687, 74.43901, 74.44195, 74.45483, 74.45174, 74.46632, 74.45723, 74.47971, 74.48125, 
  74.49189, 74.49824, 74.50905, 74.51609, 74.54568, 74.53933, 74.54753, 74.5592, 74.56896, 74.58046, 
  74.59694, 74.67077, 74.69565, 74.69052, 74.70219, 74.69807, 74.68983, 74.68886, 74.67324, 74.6662, 
  74.65865, 74.63651, 74.63222, 74.63119, 74.60957, 74.59704, 74.61026, 74.6107, 74.60091, 74.57346, 
  74.57123, 74.55132, 74.54806, 74.51066, 74.51479, 74.51033, 74.51907, 74.52543, 74.51684, 74.53251, 
  74.52073, 74.53808, 74.5422, 74.54083, 74.53482, 74.52624, 74.52882, 74.53499, 74.53774, 74.53396, 
  74.5467, 74.55357, 74.58463, 74.58718, 74.5961, 74.61069, 74.61893, 74.62219, 74.62751, 74.63351, 
  74.64312, 74.65393, 74.63917, 74.63951, 74.65307, 74.63608, 74.62753, 74.62976, 74.63131, 74.63663, 
  74.62496, 74.62599, 74.62221, 74.62153, 74.61882, 74.6099, 74.59479, 74.59325, 74.57776, 74.58394, 
  74.59612, 74.60419, 74.61294, 74.61455, 74.60648, 74.61146, 74.59224, 74.57259, 74.55574, 74.54613, 
  74.54544, 74.53943, 74.53743, 74.54018, 74.52903, 74.53486, 74.52406, 74.50192, 74.50329, 74.49866, 
  74.48682, 74.48836, 74.50278, 74.50478, 74.54734, 74.56124, 74.55141, 74.55519, 74.56703, 74.55845, 
  74.57299, 74.57024, 74.58334, 74.59055, 74.59724, 74.60634, 74.6076, 74.62837, 74.63661, 74.65068, 
  74.66733, 74.66681, 74.67522, 74.67676, 74.70062, 74.70079, 74.70663, 74.71881, 74.71401, 74.72241, 
  74.75622, 74.75549, 74.76853, 74.78161, 74.80203, 74.80563, 74.81078, 74.81113, 74.81885, 74.83142, 
  74.82868, 74.83841, 74.84664, 74.85282, 74.8487, 74.86536, 74.86373, 74.8627, 74.86544, 74.86922, 
  74.8687, 74.87977, 74.87625, 74.87232, 74.86889, 74.86889, 74.87258, 74.87524, 74.87944, 74.88842, 
  74.88962, 74.89426, 74.90455, 74.91228, 74.9121, 74.91742, 74.9188, 74.92601, 74.94917, 74.94814, 
  74.95209, 74.95312, 74.97385, 74.97814, 74.97214, 74.98278, 74.98518, 75.00097, 75.00286, 75.00474, 
  75.01264, 75.01864, 75.03289, 75.04, 75.05373, 75.0587, 75.06797, 75.06471, 75.0702, 75.0714, 
  75.06883, 75.07483, 75.08393, 75.09131, 75.08994, 75.09114, 75.10178, 75.10469, 75.10864, 75.10675, 
  75.12288, 75.1578, 75.17393, 75.17925, 75.19761, 75.19795, 75.20413, 75.20256, 75.21595, 75.22007, 
  75.21784, 75.22384, 75.22676, 75.23517, 75.22933, 75.24032, 75.24512, 75.26108, 75.26661, 75.26215, 
  75.263, 75.27485, 75.28325, 75.27742, 75.2879, 75.29923, 75.30678, 75.32222, 75.30991, 75.31986, 
  75.31643, 75.31986, 75.33119, 75.36531, 75.37294, 75.37071, 75.37295, 75.38101, 75.38153, 75.37157, 
  75.34377, 75.35012, 75.32078, 75.32359, 75.33078, 75.33331, 75.33494, 75.33494, 75.33001, 75.33127, 
  75.33254, 75.33636, 75.33728, 75.33735, 75.33535, 75.33342, 75.33197, 
  75.33552, 75.33624, 75.33599, 75.33685, 75.34035, 75.34146, 75.34175, 75.34163, 75.33915, 75.33881,
  75.34147, 75.34236, 75.34542, 75.34807, 75.34881, 75.35479, 75.35646, 75.3616, 75.36206, 75.36226,
  75.36307, 75.37114, 75.37284, 75.37371, 75.37475, 75.37526, 75.37577, 75.37615, 75.38055, 75.38605,
  75.39365, 75.39509, 75.39972, 75.4015, 75.40392, 75.40506, 75.41145, 75.41903, 75.42552, 75.42929,
  75.43101, 75.43154, 75.4318, 75.43817, 75.4408, 75.44334, 75.44541, 75.44695, 75.44812, 75.4503,
  75.45689, 75.46257, 75.46377, 75.46653, 75.46765, 75.46839, 75.46867, 75.46809, 75.46657, 75.46653,
  75.46686, 75.47128, 75.47133, 75.47055, 75.46889, 75.46901, 75.47432, 75.47775, 75.48572, 75.48692,
  75.48933, 75.49131, 75.49285, 75.49435, 75.48706, 75.48629, 75.48189, 75.48062, 75.48045, 75.48258,
  75.48372, 75.48563, 75.4852, 75.4826, 75.48574, 75.49041, 75.50237, 75.50389, 75.5053, 75.51065,
  75.51183, 75.51099, 75.50563, 75.50427, 75.50567, 75.50908, 75.51518, 75.51854, 75.52063, 75.52196,
  75.52541, 75.52689, 75.53374, 75.53517, 75.53999, 75.54273, 75.54179, 75.5369, 75.53801, 75.54312,
  75.56084, 75.59646, 75.62105, 75.63556, 75.64345, 75.65766, 75.67503, 75.67703, 75.68006, 75.68635,
  75.69304, 75.6995, 75.70338, 75.7083, 75.71065, 75.71424, 75.72147, 75.72198, 75.72499, 75.73048,
  75.72999, 75.72651, 75.72627, 75.72696, 75.72747, 75.73349, 75.73882, 75.74128, 75.74187, 75.74096,
  75.73477, 75.72948, 75.72838, 75.72625, 75.72718, 75.72664, 75.72814, 75.74228, 75.74666, 75.75256,
  75.75567, 75.75758, 75.75936, 75.76979, 75.7995, 75.8167, 75.82104, 75.82293, 75.82207, 75.82256,
  75.82371, 75.82828, 75.83008, 75.83108, 75.83132, 75.83075, 75.82974, 75.83069, 75.83234, 75.83123,
  75.83288, 75.84011, 75.83977, 75.84206, 75.84974, 75.85406, 75.87204, 75.87416, 75.86309, 75.86616,
  75.87862, 75.88013, 75.87803, 75.87841, 75.88502, 75.88783, 75.88914, 75.8918, 75.90406, 75.90571,
  75.90646, 75.90541, 75.90548, 75.90867, 75.91591, 75.91634, 75.91608, 75.91793, 75.91892, 75.91604,
  75.91575, 75.91763, 75.91887, 75.91947, 75.91835, 75.91866, 75.91813, 75.92128, 75.92353, 75.92473,
  75.928, 75.92934, 75.93083, 75.93159, 75.9287, 75.92917, 75.93326, 75.93438, 75.93337, 75.92871,
  75.92425, 75.92159, 75.92036, 75.91738, 75.91603, 75.91352, 75.91532, 75.91496, 75.90884, 75.9056,
  75.90208, 75.89957, 75.89786, 75.89732, 75.89421, 75.89314, 75.88758, 75.88408, 75.88996, 75.89249,
  75.89226, 75.89324, 75.89643, 75.89806, 75.89837, 75.89728, 75.89837, 75.90052, 75.90056, 75.89816,
  75.90026, 75.91006, 75.91877, 75.91873, 75.92092, 75.92318, 75.92172, 75.90559, 75.8983, 75.89472,
  75.88235, 75.88553, 75.87935, 75.8657, 75.86553, 75.8511, 75.84968, 75.84582, 75.84142, 75.84024,
  75.83046, 75.81036, 75.80899, 75.80543, 75.79676, 75.81516, 75.81908, 75.83067, 75.8317, 75.83779,
  75.84561, 75.86562, 75.87326, 75.87859, 75.88305, 75.91963, 75.93042, 75.94982, 76.03377, 76.03248,
  76.03471, 76.04003, 76.06374, 76.06964, 76.08269, 76.08295, 76.09188, 76.10544, 76.1038, 76.10674,
  76.12379, 76.15968, 76.1808, 76.20663, 76.22414, 76.24267, 76.25623, 76.2753, 76.2746, 76.27735,
  76.28971, 76.28808, 76.28207, 76.28104, 76.28988, 76.40393, 76.47966, 76.50848, 76.54781, 76.56069,
  76.59595, 76.59932, 76.59784, 76.60102, 76.60926, 76.61201, 76.61209, 76.62171, 76.62789, 76.6344,
  76.64351, 76.66025, 76.66454, 76.69671, 76.70753, 76.70908, 76.72092, 76.72934, 76.74744, 76.74933,
  76.75903, 76.78023, 76.77989, 76.77351, 76.77343, 76.77168, 
  76.77285, 76.77376, 76.7756, 76.77832, 76.78056, 76.78547, 76.78874, 76.79006, 76.79226, 76.79885, 
  76.80326, 76.80526, 76.80682, 76.81143, 76.82016, 76.82014, 76.82287, 76.82441, 76.82523, 76.83018, 
  76.83123, 76.83576, 76.84332, 76.84452, 76.84143, 76.83834, 76.83766, 76.82869, 76.82929, 76.82693, 
  76.83118, 76.83427, 76.8289, 76.82628, 76.82521, 76.8174, 76.82281, 76.82263, 76.81778, 76.81388, 
  76.81362, 76.81826, 76.81753, 76.82324, 76.8303, 76.83435, 76.84005, 76.84424, 76.84462, 76.84362, 
  76.84359, 76.84898, 76.8534, 76.85104, 76.84984, 76.85195, 76.85426, 76.85511, 76.87087, 76.88036, 
  76.88705, 76.89593, 76.89447, 76.89726, 76.89765, 76.90511, 76.90941, 76.91091, 76.91095, 76.90585, 
  76.90507, 76.90748, 76.91126, 76.92597, 76.9288, 76.93412, 76.94159, 76.95026, 76.95721, 76.97073, 
  76.99391, 76.99504, 76.99949, 77.00109, 77.00631, 77.00929, 77.01257, 77.02021, 77.03236, 77.03926, 
  77.04815, 77.05412, 77.06081, 77.06502, 77.07099, 77.08068, 77.08188, 77.09442, 77.11085, 77.11587, 
  77.12643, 77.13636, 77.13814, 77.14243, 77.14954, 77.14722, 77.14883, 77.1484, 77.16072, 77.16248, 
  77.16218, 77.15907, 77.159, 77.16177, 77.16265, 77.16226, 77.15914, 77.15908, 77.16244, 77.16345, 
  77.16225, 77.16103, 77.15992, 77.15738, 77.15725, 77.15745, 77.15852, 77.15956, 77.16514, 77.1701, 
  77.17235, 77.17922, 77.18763, 77.19476, 77.20917, 77.21922, 77.23724, 77.24317, 77.25316, 77.25414, 
  77.25943, 77.26325, 77.26616, 77.27406, 77.27913, 77.28745, 77.28848, 77.28763, 77.29132, 77.30392, 
  77.30916, 77.32084, 77.32414, 77.32742, 77.33279, 77.33585, 77.33676, 77.33764, 77.33931, 77.3436, 
  77.34643, 77.3498, 77.37042, 77.37347, 77.37433, 77.375, 77.37669, 77.37624, 77.37912, 77.37963, 
  77.37465, 77.37461, 77.38264, 77.38796, 77.39542, 77.40495, 77.41164, 77.41353, 77.41619, 77.42911, 
  77.44353, 77.44662, 77.44619, 77.45086, 77.46804, 77.47113, 77.47448, 77.47997, 77.50099, 77.51423, 
  77.52282, 77.53449, 77.53758, 77.5406, 77.56331, 77.56584, 77.57172, 77.58399, 77.59022, 77.59155, 
  77.59386, 77.59659, 77.6012, 77.60369, 77.61395, 77.64214, 77.65531, 77.65935, 77.66527, 77.67392, 
  77.67347, 77.67527, 77.67888, 77.68158, 77.68055, 77.68304, 77.68913, 77.69961, 77.71352, 77.71386, 
  77.72029, 77.72467, 77.73094, 77.74107, 77.75137, 77.76133, 77.7657, 77.76553, 77.79552, 77.80011, 
  77.81123, 77.81248, 77.81136, 77.80303, 77.79368, 77.78883, 77.7884, 77.78501, 77.78102, 77.78686, 
  77.8143, 77.82777, 77.82983, 77.83196, 77.8343, 77.83872, 77.84664, 77.87874, 77.88149, 77.88707, 
  77.88329, 77.90375, 77.91461, 77.92539, 77.92814, 77.93238, 77.93049, 77.92787, 77.92616, 77.92607, 
  77.92671, 77.93075, 77.93427, 77.92839, 77.92195, 77.92212, 77.91869, 77.91843, 77.91925, 77.92659, 
  77.93058, 77.93392, 77.94084, 77.94186, 77.94547, 77.95766, 77.96624, 77.97203, 77.97079, 77.97886, 
  77.98371, 77.98448, 77.99001, 77.99104, 77.99534, 78.00191, 78.01014, 78.01632, 78.02877, 78.02551, 
  78.04671, 78.06, 78.06945, 78.07357, 78.08748, 78.09332, 78.0977, 78.09847, 78.09356, 78.11039, 
  78.12, 78.12696, 78.14696, 78.14722, 78.14283, 78.1673, 78.18671, 78.19313, 78.24498, 78.26068, 
  78.29262, 78.31407, 78.3042, 78.31038, 78.31236, 78.32318, 78.35612, 78.36565, 78.38755, 78.38429, 
  78.3866, 78.37802, 78.37793, 78.39261, 78.4042, 78.40875, 78.40918, 78.40351, 78.39089, 78.38874, 
  78.38239, 78.37913, 78.37797, 78.36562, 78.36313, 78.34956, 78.34214, 78.33154, 78.3118, 78.31197, 
  78.31437, 78.31261, 78.30845, 78.30678, 78.30751, 78.30347, 78.30609, 78.29139, 78.2919, 78.29055, 
  78.28911, 78.28604, 78.2864, 78.28938, 78.29013, 78.29016, 78.28852, 78.2856, 78.28442, 78.28425, 
  78.28742, 78.29164, 78.29749, 78.29885, 78.30149, 78.30374, 78.30535, 78.31015, 78.31934, 78.32161, 
  78.3292, 78.33049, 78.33392, 78.32749, 78.32565, 78.32803, 78.33951, 78.34777, 78.35216, 78.34877, 
  78.34839, 78.34942, 78.35735, 78.36528, 78.36652, 78.36536, 78.36794, 78.36809, 78.36549, 78.36564, 
  78.37601, 78.37764, 78.37964, 78.38203, 78.38327, 78.38426, 78.3858, 78.38758, 78.39111, 78.394, 
  78.39548, 78.39575, 78.39744, 78.39804, 78.39749, 78.39507, 
  78.39608, 78.3994, 78.39955, 78.40166, 78.40526, 78.40613, 78.40699, 78.40773, 78.40918, 78.41085, 
  78.41037, 78.41044, 78.41026, 78.41714, 78.42803, 78.42605, 78.4318, 78.43841, 78.44002, 78.4463, 
  78.45131, 78.45489, 78.45514, 78.45069, 78.46281, 78.46343, 78.46751, 78.4727, 78.46997, 78.45465, 
  78.45686, 78.46998, 78.48049, 78.48553, 78.48355, 78.47479, 78.48091, 78.49732, 78.51024, 78.49909, 
  78.48836, 78.49135, 78.49747, 78.52001, 78.52504, 78.53182, 78.5596, 78.59374, 78.60008, 78.59133, 
  78.59636, 78.62655, 78.6312, 78.65695, 78.67429, 78.68219, 78.69403, 78.68252, 78.70672, 78.7362, 
  78.76689, 78.7784, 78.76347, 78.76784, 78.76733, 78.74239, 78.74765, 78.7409, 78.7492, 78.7405, 
  78.74423, 78.73346, 78.70219, 78.7053, 78.72539, 78.7347, 78.74298, 78.75375, 78.74899, 78.75106, 
  78.76058, 78.79786, 78.80074, 78.79825, 78.80156, 78.80839, 78.81812, 78.84152, 78.84664, 78.84063, 
  78.83296, 78.8224, 78.8063, 78.8036, 78.77977, 78.77504, 78.7614, 78.73088, 78.72196, 78.72642, 
  78.75892, 78.77926, 78.79712, 78.75321, 78.7557, 78.79224, 78.81335, 78.81756, 78.85552, 78.85677, 
  78.85132, 78.86224, 78.87588, 78.88282, 78.89981, 78.94374, 79.00048, 79.01841, 79.01069, 79.01838, 
  79.01799, 79.06068, 79.07568, 79.14181, 79.17615, 79.16803, 79.17016, 79.23624, 79.22044, 79.2503, 
  79.24432, 79.22597, 79.30059, 79.31124, 79.37731, 79.41056, 79.41271, 79.41899, 79.42752, 79.47044, 
  79.50676, 79.55336, 79.60281, 79.66584, 79.66585, 79.70037, 79.73733, 79.75244, 79.81893, 79.8564, 
  79.87699, 79.88938, 79.90873, 79.93316, 79.96169, 80.04229, 80.04999, 80.07356, 80.08746, 80.11226, 
  80.1269, 80.12988, 80.14502, 80.15469, 80.15768, 80.17506, 80.2001, 80.19662, 80.21844, 80.23806, 
  80.24798, 80.248, 80.23285, 80.23234, 80.1976, 80.1924, 80.2192, 80.20826, 80.2209, 80.23678, 
  80.25464, 80.31615, 80.34542, 80.36478, 80.38561, 80.40993, 80.41837, 80.41563, 80.44515, 80.45241, 
  80.46563, 80.48374, 80.48846, 80.497, 80.49906, 80.50798, 80.51841, 80.52545, 80.52764, 80.53511, 
  80.53845, 80.54141, 80.54868, 80.55282, 80.55327, 80.55555, 80.55979, 80.56554, 80.56516, 80.57509, 
  80.57614, 80.57758, 80.57844, 80.57973, 80.58185, 80.58513, 80.59189, 80.59314, 80.59685, 80.59887, 
  80.60305, 80.60661, 80.60814, 80.61363, 80.61522, 80.62385, 80.62876, 80.63099, 80.63711, 80.64121, 
  80.66424, 80.67857, 80.67737, 80.6792, 80.68435, 80.6864, 80.68838, 80.69327, 80.69967, 80.7037, 
  80.70636, 80.71619, 80.775, 80.77791, 80.78624, 80.78413, 80.78767, 80.80183, 80.8014, 80.81951, 
  80.8256, 80.83365, 80.84148, 80.861, 80.8798, 80.88521, 80.90684, 80.90898, 80.9071, 80.91464,
  80.92709, 80.9307, 80.92563, 80.92649, 80.9368, 80.9386, 80.95087, 80.98155, 81.00211, 81.0085, 
  81.00949, 81.01223, 81.01971, 81.02219, 81.03043, 81.03082, 81.02816, 81.02829, 81.02992, 81.0288, 
  81.02717, 81.02631, 81.02661, 81.02945, 81.02996, 81.02945, 81.02983, 81.03563, 81.03662, 81.03984,
  81.04301, 81.0446, 81.04413, 81.03833, 81.03445, 81.0341, 81.03511, 81.03552,
  81.03513, 81.00014, 80.99666, 80.97452, 80.9329, 80.93128, 80.92446, 80.92361, 80.9288, 80.93025, 
  80.91968, 80.90984, 80.89648, 80.88364, 80.88503, 80.86262, 80.87167, 80.87351, 80.87842, 80.874, 
  80.84432, 80.84163, 80.84495, 80.83591, 80.82134, 80.80151, 80.77887, 80.76067, 80.75552, 80.75689, 
  80.74788, 80.73827, 80.72012, 80.71269, 80.69115, 80.67887, 80.67308, 80.66836, 80.64832, 80.6315, 
  80.61922, 80.60952, 80.60461, 80.60124, 80.59047, 80.58162, 80.57781, 80.57394, 80.56918, 80.5724, 
  80.56575, 80.55978, 80.55674, 80.55762, 80.56116, 80.56101, 80.55429, 80.55435, 80.5512, 80.55322, 
  80.55287, 80.55154, 80.54858, 80.54339, 80.53856, 80.53607, 80.53605, 80.53163, 80.52803, 80.52382, 
  80.52326, 80.52388, 80.52139, 80.51743, 80.51245, 80.50719, 80.50597, 80.50511, 80.50174, 80.49758, 
  80.50009, 80.4989, 80.49538, 80.49539, 80.49472, 80.49233, 80.49235, 80.49442, 80.49409, 80.49312, 
  80.48286, 80.48014, 80.4766, 80.46417, 80.45278, 80.44969, 80.44652, 80.44308, 80.43907, 80.43649, 
  80.43501, 80.43396, 80.43293, 80.43059, 80.4302, 80.4214, 80.4174, 80.41582, 80.4141, 80.41384, 
  80.41015, 80.40865, 80.40731, 80.40675, 80.40655, 80.40779, 80.4076, 80.40612, 80.40728, 80.40471, 
  80.4035, 80.40509, 80.40386, 80.40281, 80.39973, 80.39861, 80.39616, 80.39629, 80.39771, 80.39595, 
  80.39329, 80.3911, 80.38667, 80.38474, 80.38625, 80.37096, 80.36882, 80.36655, 80.36487, 80.36492, 
  80.36975, 80.3664, 80.36562, 80.36786, 80.37498, 80.37618, 80.37603, 80.37219, 80.37238, 80.3736, 
  80.37435, 80.37712, 80.37957, 80.38032, 80.38459, 80.38487, 80.38354, 80.38378, 80.38498, 80.38976, 
  80.39025, 80.38937, 80.39023, 80.39702, 80.39794, 80.39837, 80.39959, 80.40334, 80.40553, 80.40706, 
  80.40899, 80.40948, 80.41042, 80.41401, 80.41628, 80.41652, 80.41435, 80.41414, 80.41626, 80.41987, 
  80.42036, 80.41974, 80.41946, 80.42107, 80.42085, 80.41849, 80.41326, 80.41119, 80.41053, 80.40798, 
  80.40823, 80.40617, 80.40579, 80.40613, 80.40802, 80.40886, 80.40817, 80.40622, 80.40135, 80.39882, 
  80.3977, 80.39663, 80.39121, 80.3888, 80.37943, 80.37788, 80.3638, 80.36234, 80.36212, 80.36444, 
  80.36294, 80.34857, 80.34238, 80.34582, 80.34132, 80.34179, 80.34909, 80.35188, 80.35723, 80.35792, 
  80.35667, 80.35565, 80.34916, 80.34817, 80.34998, 80.34135, 80.33933, 80.33449, 80.33157, 80.33, 
  80.32803, 80.31455, 80.31288, 80.31328, 80.31441, 80.31407, 80.3133, 80.31231, 80.31106, 80.30424, 
  80.30076, 80.29848, 80.29638, 80.29655, 80.29278, 80.28763, 80.28664, 80.29108, 80.29563, 80.30243, 
  80.30232, 80.3017, 80.30032, 80.29384, 80.28749, 80.28161, 80.27938, 80.27917, 80.28067, 80.28018, 
  80.27831, 80.2756, 80.27153, 80.26932, 80.26921, 80.26966, 80.2723, 80.27475, 80.27466, 80.27415, 
  80.2702, 80.26672, 80.25852, 80.25728, 80.2564, 80.2561, 80.25072, 80.24584, 80.24275, 80.24248, 
  80.24695, 80.24733, 80.24403, 80.24575, 80.2454, 80.24192, 80.24212, 80.26342, 80.27223, 80.27566, 
  80.27291, 80.27918, 80.27115, 80.27162, 80.27974, 80.27935, 80.2863, 80.29115, 80.29021, 80.29639, 
  80.30887, 80.31686, 80.31548, 80.31857, 80.31037, 80.30702, 80.30445, 80.30218, 80.29879, 80.30093, 
  80.2902, 80.29627, 80.29645, 80.29353, 80.29773, 80.29275, 80.28914, 80.28391, 80.27635, 80.26175, 
  80.25867, 80.25601, 80.24837, 80.24098, 80.25155, 80.2585, 80.25996, 80.25807, 80.27258, 80.27155, 
  80.25695, 80.25137, 80.25, 80.24229, 80.2337, 80.20622, 80.20221, 80.18366, 80.17627, 80.16992, 
  80.16623, 80.16511, 80.1453, 80.12907, 80.13585, 80.12642, 80.13123, 80.12486, 80.13594, 80.135, 
  80.12658, 80.1174, 80.1004, 80.05846, 80.05709, 80.06465, 80.07461, 80.11795, 80.17132,
  72.43074, 68.77628)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_1, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_union(Geo_0[c(1:34, 42:46, 173)]))
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
Geo_1 <- Geo_1 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### PAKISTAN #####
Geo_0 <- Geometric_Operations(Geo_2, Claimed_Area_1)
Geo_0 <- Geometric_Operations(Geo_0, Claimed_Area_2)
Geo_0 <- Geometric_Operations(Geo_0, Claimed_Area_3)
Geo_0 <- Geometric_Operations(Geo_0, Claimed_Area_4)
Geo_0 <- Geometric_Operations(Geo_0, Claimed_Area_5)
Geo_0 <- Geometric_Operations(Geo_0, Geo_1)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, st_union(Geo_0[c(1, 49)]))
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  23.72384, 23.74827, 23.79037, 23.82791, 23.84424, 23.85837, 23.86873, 23.87642, 23.88599, 23.89604, 
  23.89784, 23.89808, 23.89588, 23.89792, 23.90255, 23.90969, 23.91369, 23.91903, 23.92578, 23.93425, 
  23.94437, 23.94547, 23.94178, 23.92295, 23.91322, 23.91236, 23.91628, 23.92362, 23.93625, 23.93966, 
  23.94347, 23.9457, 23.94731, 23.94774, 23.95496, 23.961, 23.97386, 23.95621, 23.95151, 23.94641, 
  23.94257, 23.94045, 23.94249, 23.95088, 23.96045, 23.96555, 23.96947, 23.97088, 23.96649, 23.97018, 
  23.97167, 24.26606, 24.28241, 24.28757, 24.29579, 24.31351, 24.31233, 24.31742, 24.31523, 24.31128, 
  24.2776, 24.26035, 24.24689, 24.21386, 24.21206, 24.21652, 24.23765, 24.24399, 24.26293, 24.27983, 
  24.28452, 24.30252, 24.27952, 24.26074, 24.22763, 24.22435, 24.22321, 24.22834, 24.23632, 24.23969, 
  24.2713, 24.27443, 24.23648, 24.28139, 24.2695, 24.27107, 24.28053, 24.27114, 24.26786, 24.26841, 
  24.27819, 24.29235, 24.17119, 24.17111, 24.19906, 24.29501, 24.30299, 24.30338, 24.32145, 24.32551, 
  24.33067, 24.34209, 24.3521, 24.35163, 24.3538, 24.35421, 24.35056, 24.35042, 24.35097, 24.35546, 
  24.35791, 24.35879, 24.36064, 24.36727, 24.37556, 24.38369, 24.38877, 24.40425, 24.40878, 24.41996, 
  24.42167, 24.42222, 24.40815, 24.36313, 24.35621, 24.35515, 24.3539, 24.35253, 24.30416, 24.29532, 
  24.29023, 24.27795, 24.26434, 24.25174, 24.2479, 24.24423, 24.24681, 24.22411, 24.21566, 24.22114, 
  24.23131, 24.24524, 24.24587, 24.25315, 24.25941, 24.2616, 24.2634, 24.27318, 24.28073, 24.28296, 
  24.29481, 24.29845, 24.30029, 24.30182, 24.32645, 24.32817, 24.34854, 24.34921, 24.35413, 24.36528, 
  24.35089, 24.34727, 24.35345, 24.3511, 24.35392, 24.3562, 24.35608, 24.36078, 24.36217, 24.37642, 
  24.39143, 24.39471, 24.39655, 24.40245, 24.40585, 24.42011, 24.43572, 24.43699, 24.43222, 24.44488, 
  24.44449, 24.46598, 24.49793, 24.52339, 24.5301, 24.54353, 24.5643, 24.59575, 24.62252, 24.62898, 
  24.63543, 24.6517, 24.65958, 24.66207, 24.6726, 24.69109, 24.71736, 24.8098, 24.9347, 25.14901, 
  25.27792, 25.33317, 25.39676, 25.52556, 25.53113, 25.67634, 25.70233, 25.71223, 25.71486, 25.6833, 
  25.685, 25.67387, 25.71424, 25.75723, 25.79371, 25.8138, 25.82817, 25.9389, 26.08192, 26.15914, 
  26.2517, 26.29495, 26.37449, 26.42446, 26.48025, 26.55183, 26.58692, 26.60048, 26.58131, 26.5787, 
  26.59835, 26.65206, 26.74438, 26.80415, 27.01142, 27.18334, 27.56337, 27.80628, 27.90129, 27.93633, 
  28.01183, 28.02077, 28.03699, 28.02608, 28.01062, 27.92192, 27.82784, 27.72092, 27.70572, 27.83528, 
  27.87262, 27.87785, 27.95764, 27.95999, 28.12165, 28.2185, 28.31284, 28.39382, 28.6695, 28.78301, 
  28.81211, 28.94818, 29.02792, 29.15306, 29.23683, 29.57189, 29.94597, 30.01902, 30.06758, 30.08897, 
  30.19803, 30.25778, 30.32093, 30.34934, 30.3603, 30.36712, 30.3837, 30.39762, 30.40236, 30.44387, 
  30.44032, 30.43647, 30.43914, 30.44506, 30.45246, 30.46607, 30.48974, 30.48353, 30.4637, 30.45897, 
  30.4566, 30.4779, 30.48501, 30.514, 30.514, 30.52109, 30.53352, 30.52612, 30.53204, 30.54179, 
  30.53943, 30.51843, 30.52287, 30.54919, 30.5548, 30.57891, 30.61172, 30.61851, 30.60876, 30.63358, 
  30.62797, 30.66518, 30.69382, 30.72482, 30.7231, 30.73018, 30.73446, 30.73711, 30.73106, 30.73579, 
  30.74405, 30.75374, 30.76968, 30.7747, 30.77691, 30.77352, 30.77957, 30.789, 30.79461, 30.80822, 
  30.81913, 30.82753, 30.84688, 30.85498, 30.85277, 30.84776, 30.84864, 30.85719, 30.86048, 30.87389, 
  30.88126, 30.8929, 30.89555, 30.90944, 30.90782, 30.91607, 30.9196, 30.92343, 30.92093, 30.93094, 
  30.92991, 30.94051, 30.94213, 30.9517, 30.9517, 30.95597, 30.9573, 30.96392, 30.97408, 30.97113, 
  30.97422, 30.96407, 30.96745, 30.97967, 30.99231, 31.00894, 31.03238, 31.03899, 31.05888, 31.05668, 
  31.03785, 31.05334, 31.07408, 31.08161, 31.09175, 31.11277, 31.1185, 31.12795, 31.12369, 31.12443, 
  31.13369, 31.11826, 31.12134, 31.13266, 31.13383, 31.12942, 31.11194, 31.0991, 31.08793, 31.08587, 
  31.08146, 31.08631, 31.12188, 31.13235, 31.15207, 31.18203, 31.18361, 31.20553, 31.22722, 31.25028, 
  31.2689, 31.30163, 31.30354, 31.30632, 31.30471, 31.31248, 31.31395, 31.31366, 31.3204, 31.3229, 
  31.33914, 31.36668, 31.38031, 31.39804, 31.41621, 31.42251, 31.42002, 31.42983, 31.42925, 31.41856, 
  31.41607, 31.42778, 31.44062, 31.44795, 31.45483, 31.47796, 31.47658, 31.4839, 31.48171, 31.48478, 
  31.4858, 31.48317, 31.48185, 31.48507, 31.48512, 31.49976, 31.50181, 31.4961, 31.49849, 31.52074, 
  31.52586, 31.5241, 31.52747, 31.55769, 31.56251, 31.56719, 31.57407, 31.60544, 31.60806, 31.63305, 
  31.64796, 31.64796, 31.65458, 31.65999, 31.66627, 31.67781, 31.68707, 31.69539, 31.70269, 31.70956, 
  31.71496, 31.72124, 31.72839, 31.74043, 31.74934, 31.76335, 31.77901, 31.79112, 31.79638, 31.80498, 
  31.81641, 31.83683, 31.8519, 31.84884, 31.86779, 31.86852, 31.89003, 31.88216, 31.8842, 31.90198, 
  31.91641, 31.92253, 31.92049, 31.92602, 31.92602, 31.92369, 31.92121, 31.92384, 31.93214, 31.94307, 
  31.94394, 31.95596, 31.94787, 31.956, 31.95804, 31.96299, 31.96226, 31.95935, 31.95906, 31.98085, 
  31.99949, 32.00882, 32.00882, 32.01348, 32.02046, 32.02325, 32.02442, 32.02951, 32.03031, 32.02769, 
  32.02224, 32.03191, 32.03402, 32.04136, 32.04136, 32.04282, 32.04398, 32.05068, 32.05359, 32.05275, 
  32.05508, 32.05464, 32.05057, 32.05392, 32.05625, 32.05901, 32.0625, 32.06657, 32.06236, 32.0593, 
  32.05828, 32.06017, 32.05364, 32.04724, 32.04258, 32.04026, 32.04244, 32.04127, 32.04346, 32.03749, 
  32.03589, 32.04724, 32.05102, 32.04249, 32.05427, 32.05296, 32.06242, 32.06577, 32.06693, 32.06562, 
  32.06329, 32.05893, 32.06024, 32.06577, 32.06897, 32.07173, 32.05936, 32.05878, 32.06504, 32.06998, 
  32.08148, 32.08144, 32.06777, 32.07693, 32.08522, 32.09846, 32.097, 32.12045, 32.12088, 32.10736, 
  32.10329, 32.09806, 32.10678, 32.10358, 32.09326, 32.09122, 32.10009, 32.10155, 32.10888, 32.11048, 
  32.11222, 32.11411, 32.13171, 32.13708, 32.15306, 32.15364, 32.16919, 32.17907, 32.19574, 32.20417, 
  32.20809, 32.20852, 32.21971, 32.21979, 32.23042, 32.25786, 32.26681, 32.26667, 32.26885, 32.27959, 
  32.27886, 32.29018, 32.29758, 32.30215, 32.30757, 32.31106, 32.31093, 32.31158, 32.3126, 32.31474, 
  32.31608, 32.31662, 32.31916, 32.32195, 32.32431, 32.32593, 32.32671, 
  32.32807, 32.33978, 32.34371, 32.34357, 32.34427, 32.34382, 32.34658, 32.35042, 32.35332, 32.35582, 
  32.36144, 32.36996, 32.37634, 32.37347, 32.37231, 32.37735, 32.3886, 32.39094, 32.38491, 32.39553, 
  32.39841, 32.40268, 32.39472, 32.40102, 32.41122, 32.40967, 32.41522, 32.42606, 32.42115, 32.40902, 
  32.41548, 32.41767, 32.42594, 32.42632, 32.42839, 32.44348, 32.45523, 32.46039, 32.47446, 32.47833, 
  32.4693, 32.48141, 32.49742, 32.47768, 32.4722, 32.4683, 32.45636, 32.45171, 32.45951, 32.45336, 
  32.44652, 32.45246, 32.45936, 32.46815, 32.47153, 32.4713, 32.46507, 32.47318, 32.4671, 32.4785, 
  32.49074, 32.49397, 32.48519, 32.49449, 32.49029, 32.4996, 32.48024, 32.48279, 32.47971, 32.47701, 
  32.48288, 32.48168, 32.48304, 32.47853, 32.48116, 32.47605, 32.47876, 32.48777, 32.49286, 32.49301, 
  32.48686, 32.48724, 32.49017, 32.49287, 32.49947, 32.50765, 32.51006, 32.52349, 32.53429, 32.54569, 
  32.55402, 32.55244, 32.56894, 32.56317, 32.58091, 32.58273, 32.58924, 32.5908, 32.59667, 32.5998, 
  32.61466, 32.61686, 32.63072, 32.63145, 32.63714, 32.63567, 32.63842, 32.64613, 32.65145, 32.66062, 
  32.66602, 32.67061, 32.67318, 32.67619, 32.69765, 32.7059, 32.72569, 32.72918, 32.73477, 32.73724, 
  32.74791, 32.74898, 32.76255, 32.77063, 32.77676, 32.78802, 32.80433, 32.81132, 32.81724, 32.84206, 
  32.84076, 32.83672, 32.8241, 32.82987, 32.82963, 32.81901, 32.80893, 32.79839, 32.78738, 32.7813, 
  32.78237, 32.77652, 32.76944, 32.76366, 32.7575, 32.75148, 32.7515, 32.75501, 32.75648, 32.75726, 
  32.75753, 32.76046, 32.76138, 32.75951, 32.75803, 32.75797, 32.75593, 32.75164, 32.75064, 32.75372, 
  32.75341, 32.74943, 32.75014, 32.75054, 32.75096, 32.75036, 32.75141, 32.75274, 32.75597, 32.7601, 
  32.76008, 32.75785, 32.75866, 32.75389, 32.75261, 32.75049, 32.74691, 32.74577, 32.74547, 32.74502, 
  32.74512, 32.7487, 32.75061, 32.75144, 32.75135, 32.75005, 32.74995, 32.74966, 32.74961, 32.75006, 
  32.74908, 32.74815, 32.74677, 32.74519, 32.7454, 32.74837, 32.74835, 32.74512, 32.74423, 32.74581, 
  32.74727, 32.74982, 32.75085, 32.75165, 32.75162, 32.75102, 32.7515, 32.75182, 32.75418, 32.75505, 
  32.75655, 32.75951, 32.75967, 32.76084, 32.76324, 32.7644, 32.76653, 32.76523, 32.7686, 32.77598, 
  32.77581, 32.77616, 32.77604, 
  32.77665, 32.77937, 32.77507, 32.77016, 32.77175, 32.78705, 32.80119, 32.80191, 32.77536, 32.783, 
  32.78957, 32.80364, 32.82067, 32.8338, 32.83408, 32.83884, 32.83664, 32.8463, 32.84771, 32.87424, 
  32.88929, 32.89924, 32.90608, 32.9089, 32.91495, 32.91942, 32.92158, 32.9344, 32.93671, 32.92965, 
  32.93613, 32.94303, 32.93237, 32.9292, 32.9341, 32.92744, 32.92801, 32.93378, 32.92859, 32.94415, 
  32.93608, 32.94184, 32.94645, 32.94156, 32.94674, 32.9502, 32.95625, 32.96374, 32.98217, 32.9839, 
  32.99398, 33.01663, 33.02037, 33.03793, 33.04915, 33.06383, 33.06354, 33.07361, 33.07131, 33.07764, 
  33.10551, 33.12247, 33.13541, 33.1541, 33.15841, 33.1957, 33.20489, 33.21408, 33.21466, 33.20949, 
  33.22299, 33.22471, 33.23189, 33.23706, 33.25027, 33.25515, 33.28392, 33.29109, 33.30142, 33.32438, 
  33.32811, 33.33929, 33.32638, 33.33845, 33.3558, 33.3558, 33.37171, 33.37834, 33.38364, 33.39325, 
  33.3964, 33.40393, 33.41955, 33.42456, 33.42299, 33.42628, 33.4327, 33.43671, 33.43929, 33.43714, 
  33.44058, 33.44946, 33.44817, 33.4622, 33.46493, 33.47581, 33.47839, 33.47609, 33.47209, 33.47266, 
  33.48325, 33.48454, 33.49728, 33.50244, 33.49728, 33.49786, 33.51188, 33.51561, 33.51475, 33.52497, 
  33.52511, 33.53427, 33.53484, 33.54171, 33.54786, 33.54977, 33.55278, 33.56293, 33.56937, 33.58456, 
  33.58628, 33.59094, 33.59473, 33.59723, 33.60052, 33.6041, 33.60495, 33.59981, 33.59952, 33.60074, 
  33.61175, 33.61733, 33.61547, 33.61768, 33.61911, 33.6393, 33.65864, 33.66593, 33.67583, 33.68754, 
  33.69054, 33.70145, 33.72572, 33.73332, 33.74174, 33.74981, 33.76294, 33.78129, 33.84214, 33.86087, 
  33.8727, 33.87669, 33.88452, 33.88723, 33.90436, 33.91533, 33.92644, 33.93571, 33.94062, 33.96787, 
  33.97099, 33.97341, 33.97725, 33.98961, 34.00136, 34.03704, 34.07175, 34.09483, 34.10109, 34.1109, 
  34.12694, 34.12978, 34.13184, 34.13646, 34.14004, 34.14352, 34.15524, 34.15985, 34.1652, 34.17294, 
  34.18313, 34.19333, 34.19695, 34.20206, 34.20455, 34.20888, 34.2189, 34.23301, 34.25359, 34.26111, 
  34.27019, 34.27449, 34.28116, 34.28612, 34.28967, 34.28882, 34.28088, 34.27804, 34.27378, 34.27364, 
  34.27761, 34.27974, 34.27832, 34.29024, 34.30243, 34.30612, 34.32121, 34.32351, 34.33159, 34.34038, 
  34.34363, 34.34292, 34.34986, 34.34717, 34.34589, 34.36049, 34.37521, 34.38258, 34.40669, 34.43784, 
  34.47505, 34.55514, 34.56362, 34.57211, 34.57239, 34.58492, 34.58746, 34.5804, 34.57022, 34.564, 
  34.56457, 34.57305, 34.63534, 34.66048, 34.68448, 34.69464, 34.71797, 34.73688, 34.76701, 34.78787, 
  34.79971, 34.80337, 34.81042, 34.82536, 34.82874, 34.82523, 34.85116, 34.86459, 34.90486, 34.95521, 
  34.996, 35.016, 35.02893, 35.06098, 35.07531, 35.11709, 
  35.12001, 35.12431, 35.1295, 35.13688, 35.14474, 35.14699, 35.14348, 35.14011, 35.13818, 35.13814, 
  35.14109, 35.14376, 35.15148, 35.15064, 35.14629, 35.14516, 35.14797, 35.14502, 35.16199, 35.16578, 
  35.18009, 35.18206, 35.17897, 35.18163, 35.17426, 35.16865, 35.16626, 35.16696, 35.18552, 35.19997, 
  35.21091, 35.20888, 35.21183, 35.20285, 35.20593, 35.22375, 35.22417, 35.23861, 35.23548, 35.22033, 
  35.21767, 35.22216, 35.22805, 35.22945, 35.23351, 35.23436, 35.26705, 35.28499, 35.2957, 35.30901, 
  35.32694, 35.33311, 35.33746, 35.3411, 35.35118, 35.35594, 35.36462, 35.3837, 35.39378, 35.40161, 
  35.41759, 35.42025, 35.44347, 35.45769, 35.47432, 35.49524, 35.51788, 35.5183, 35.5292, 35.53199, 
  35.53213, 35.52487, 35.53547, 35.54762, 35.53923, 35.53783, 35.52637, 35.5437, 35.5342, 35.53126, 
  35.54076, 35.53923, 35.53553, 35.51625, 35.52301, 35.53865, 35.54326, 35.55532, 35.55665, 35.56705, 
  35.58394, 35.59679, 35.60648, 35.61122, 35.6129, 35.62141, 35.63481, 35.63746, 35.65079, 35.65804, 
  35.66069, 35.65651, 35.66041, 35.67073, 35.65818, 35.66794, 35.66613, 35.67326, 35.68595, 35.71414, 
  35.71414, 35.7232, 35.75318, 35.76001, 35.76029, 35.7707, 35.77934, 35.78714, 35.79953, 35.80974, 
  35.81753, 35.8398, 35.85497, 35.85469, 35.84934, 35.84273, 35.8369, 35.84316, 35.87293, 35.85652, 
  35.8586, 35.84789, 35.83908, 35.8388, 35.83198, 35.82502, 35.8246, 35.82613, 35.83017, 35.83393, 
  35.83267, 35.8358, 35.83232, 35.83291, 35.82873, 35.82609, 35.82692, 35.82163, 35.81356, 35.81342, 
  35.81648, 35.83792, 35.84293, 35.84821, 35.85378, 35.85876, 35.86766, 35.86752, 35.87128, 35.88366, 
  35.86168, 35.85667, 35.84832, 35.83952, 35.83723, 35.82902, 35.8247, 35.8277, 35.82394, 35.82665, 
  35.81706, 35.81385, 35.82415, 35.83487, 35.83668, 35.8371, 35.84072, 35.85174, 35.8541, 35.855, 
  35.85243, 35.85952, 35.85076, 35.85069, 35.83963, 35.83809, 35.83942, 35.84518, 35.85196, 35.85557, 
  35.86141, 35.85995, 35.85626, 35.85668, 35.87394, 35.87547, 35.87421, 35.87728, 35.87846, 35.87707, 
  35.8802, 35.88069, 35.88632, 35.88869, 35.89258, 35.89161, 35.89603, 35.91246, 35.91844, 35.96634, 
  36.02425, 36.04549, 36.04799, 36.0688, 36.10056, 36.12275, 36.1355, 36.16572, 36.1732, 36.1987, 
  36.20513, 36.21372, 36.25193, 36.2691, 36.26411, 36.25304, 36.25719, 36.26301, 36.27353, 36.27334, 
  36.2988, 36.29742, 36.32634, 36.32828, 36.34349, 36.35898, 36.36423, 36.37372, 36.38395, 36.38478, 
  36.39058, 36.41158, 36.42622, 36.43865, 36.45943, 36.45308, 36.46012, 36.45708, 36.45487, 36.4546, 
  36.45998, 36.47944, 36.48564, 36.49061, 36.49475, 36.4982, 36.49944, 36.50123, 36.51255, 36.52234, 
  36.53117, 36.52979, 36.53241, 36.55053, 36.5679, 36.57135, 36.58535, 36.5932, 36.60685, 36.60946, 
  36.62145, 36.63455, 36.64089, 36.64654, 36.65921, 36.67945, 36.68262, 36.68211, 36.68569, 36.69857, 
  36.70848, 36.71976, 36.7265, 36.71215, 36.71228, 36.70871, 36.70326, 36.70877, 36.72057, 36.728, 
  36.7324, 36.73681, 36.73928, 36.73341, 36.73286, 36.7213, 36.73613, 36.73682, 36.71363, 36.72615, 
  36.72656, 36.71487, 36.7139, 36.71624, 36.72439, 36.695, 36.69074, 36.71355, 36.7145, 36.70666, 
  36.70941, 36.69991, 36.70545, 36.7115, 36.70861, 36.70022, 36.70338, 36.72829, 36.73063, 36.736, 
  36.75433, 36.76946, 36.77909, 36.79187, 36.79792, 36.79435, 36.79504, 36.81967, 36.81472, 36.83535, 
  36.83521, 36.90879, 
  36.90763, 36.90571, 36.90399, 36.90365, 36.90152, 36.8996, 36.89747, 36.90039, 36.90615, 36.90564, 
  36.90619, 36.90866, 36.90447, 36.90001, 36.90088, 36.89807, 36.89429, 36.8893, 36.88985, 36.89167, 
  36.89184, 36.8905, 36.88594, 36.88014, 36.87756, 36.87402, 36.87262, 36.87471, 36.8765, 36.87931, 
  36.88556, 36.8926, 36.89198, 36.89489, 36.89263, 36.8974, 36.89359, 36.89191, 36.89198, 36.89404, 
  36.89335, 36.89121, 36.88705, 36.88546, 36.88546, 36.88791, 36.89151, 36.89211, 36.89387, 36.8942, 
  36.89419, 36.89387, 36.89515, 36.89502, 36.89443, 36.89318, 36.89459, 36.89894, 36.89905, 36.89006, 
  36.88834, 36.88897, 36.88806, 36.8851, 36.88187, 36.87983, 36.87924, 36.8818, 36.88165, 36.87821, 
  36.87905, 36.88597, 36.88779, 36.89069, 36.88714, 36.88635, 36.88347, 36.86949, 36.86881, 36.88281, 
  36.88494, 36.8906, 36.89285, 36.89227, 36.89109, 36.88925, 36.88753, 36.884, 36.88343, 36.88389, 
  36.88491, 36.88474, 36.88225, 36.88504, 36.88558, 36.88822, 36.88649, 36.88477, 36.88031, 36.87835, 
  36.88446, 36.88968, 36.89472, 36.88099, 36.88717, 36.88501, 36.88558, 36.88247, 36.87231, 36.86791, 
  36.86915, 36.86685, 36.85919, 36.86033, 36.87657, 36.8759, 36.84264, 36.84886, 36.84817, 36.84398, 
  36.84123, 36.83934, 36.84587, 36.8412, 36.84158, 36.85071, 36.84302, 36.85428, 36.85311, 36.83725, 
  36.84405, 36.84103, 36.85188, 36.82564, 36.77952, 36.77416, 36.78104, 36.77547, 36.76227, 36.75873, 
  36.76677, 36.76127, 36.75707, 36.74002, 36.75271, 36.73833, 36.72843, 36.72334, 36.7115, 36.66346, 
  36.65534, 36.64735, 36.58859, 36.59196, 36.57528, 36.55722, 36.5564, 36.54633, 36.50877, 36.50315, 
  36.50764, 36.48314, 36.47265, 36.43427, 36.39973, 36.41534, 36.44738, 36.45815, 36.48383, 36.47541, 
  36.44131, 36.43247, 36.40277, 36.37264, 36.3459, 36.32743, 36.32778, 36.33456, 36.33034, 36.32356, 
  36.30904, 36.29541, 36.29915, 36.29555, 36.28324, 36.27895, 36.26954, 36.23257, 36.20841, 36.20675, 
  36.20342, 36.20422, 36.18042, 36.16629, 36.16892, 36.1649, 36.15881, 36.15666, 36.14903, 36.13697, 
  36.13891, 36.12997, 36.11683, 36.11822, 36.11347, 36.10883, 36.10217, 36.09232, 36.09537, 36.08181, 
  36.07484, 36.07047, 36.06152, 36.05965, 36.0534, 36.04657, 36.04408, 36.04122, 36.04025, 36.03964, 
  36.03909, 36.03904, 36.03921, 36.03966, 36.0396, 36.03982, 36.03948, 
  36.03425, 36.03307, 36.0272, 36.02925, 36.02783, 36.02861, 36.02621, 36.02436, 36.02009, 36.01715, 
  36.01302, 36.00938, 36.00893, 36.00665, 36.00558, 36.00518, 36.00488, 36.00405, 36.00391, 36.00396, 
  36.00115, 36.00065, 35.99986, 35.9994, 35.99901, 35.99894, 35.99862, 35.9995, 35.99912, 35.99759, 
  35.99724, 35.99813, 35.99745, 35.99667, 35.9949, 35.99167, 35.99023, 35.98943, 35.98936, 35.98993, 
  35.99032, 35.98921, 35.98848, 35.98749, 35.98669, 35.98547, 35.98455, 35.98233, 35.98289, 35.9824, 
  35.97594, 35.97511, 35.9746, 35.97302, 35.97287, 35.97221, 35.97141, 35.9701, 35.96858, 35.96561, 
  35.96271, 35.96179, 35.96029, 35.95965, 35.95899, 35.95989, 35.96321, 35.96731, 35.96811, 35.9654, 
  35.9647, 35.96262, 35.96078, 35.95574, 35.953, 35.95175, 35.95029, 35.9489, 35.9473, 35.94549, 
  35.94198, 35.93636, 35.93347, 35.93027, 35.92965, 35.92034, 35.91637, 35.90483, 35.89134, 35.89072, 
  35.89364, 35.8942, 35.88975, 35.88822, 35.87347, 35.86123, 35.83257, 35.82937, 35.82122, 35.81482, 
  35.80932, 35.80173, 35.80062, 35.79898, 35.79754, 35.79693, 35.7884, 35.78433, 35.78144, 35.77792, 
  35.76971, 35.76365, 35.76271, 35.7541, 35.75316, 35.74947, 35.74804, 35.7477, 35.74125, 35.73913, 
  35.73484, 35.73643, 35.73624, 35.73455, 35.73221, 35.72887, 35.72683, 35.72602, 35.72491, 35.72414, 
  35.72275, 35.72167, 35.72093, 35.7191, 35.71827, 35.71795, 35.71661, 35.71613, 35.71588, 35.71552, 
  35.71513, 35.71468, 35.71349, 35.71288, 35.71147, 35.71064, 35.70968, 35.70909, 35.70705, 35.70629, 
  35.70528, 35.70493, 35.70437, 35.70379, 35.7032, 35.70128, 35.69877, 35.6971, 35.69547, 35.69352, 
  35.69326, 35.69133, 35.69053, 35.69027, 35.68807, 35.68594, 35.68654, 35.68622, 35.68596, 35.68485, 
  35.68399, 35.68317, 35.6791, 35.67697, 35.67635, 35.67618, 35.6726, 35.67152, 35.67085, 35.6703, 
  35.66954, 35.66943, 35.66969, 35.66992, 35.66962, 35.66918, 35.66847, 35.6684, 35.6681, 35.66733, 
  35.66464, 35.66409, 35.66253, 35.66179, 35.66164, 35.66345, 35.66199, 35.66077, 35.65924, 35.65822, 
  35.65704, 35.6552, 35.6527, 35.652, 35.65117, 35.64853, 35.6476, 35.64472, 35.6405, 35.64042, 
  35.6389, 35.63599, 35.63342, 35.63205, 35.62973, 35.62729, 35.6246, 35.62129, 35.61586, 35.61433, 
  35.61021, 35.60609, 35.60344, 35.59974, 35.59866, 35.59698, 35.59655, 35.59096, 35.58969, 35.58676, 
  35.58761, 35.58295, 35.58076, 35.5787, 35.58034, 35.57936, 35.5811, 35.58145, 35.58069, 35.57779, 
  35.57301, 35.57304, 35.57123, 35.56536, 35.56376, 35.56058, 35.55939, 35.55744, 35.55119, 35.55018, 
  35.5477, 35.5448, 35.54365, 35.54312, 35.53837, 35.53715, 35.53223, 35.52318, 35.5221, 35.51735, 
  35.51693, 35.5148, 35.51214, 35.5105, 35.50648, 35.50589, 35.50323, 35.49985, 35.49436, 35.49317, 
  35.48506, 35.48234, 35.47982, 35.4772, 35.47378, 35.46881, 35.46661, 35.46567, 35.46102, 35.45882, 
  35.4578, 35.45532, 35.45452, 35.45029, 35.44836, 35.446, 35.44429, 35.44309, 35.44249, 35.44113, 
  35.43859, 35.43726, 35.43536, 35.43492, 35.43127, 35.43106, 35.43062, 35.4276, 35.42522, 35.42431, 
  35.42153, 35.41165, 35.41044, 35.40923, 35.40978, 35.4085, 35.40864, 35.40588, 35.39752, 35.39477, 
  35.39316, 35.3916, 35.37523, 35.37302, 35.36932, 35.36757, 35.35696, 35.35605, 35.35136, 35.34629, 
  35.34201, 35.3403, 35.33617, 35.33438, 35.33029, 35.32609, 35.31684, 35.3152, 35.3125, 35.30994, 
  35.31005, 35.30904, 35.30842, 35.30541, 35.30517, 35.30539, 35.30543, 35.30519, 35.30441, 35.30359, 
  35.30187, 35.30053, 35.29854, 35.29625, 35.29523, 35.29351, 35.29272, 35.29195, 35.28008, 35.27833, 
  35.27796, 35.27835, 35.27723, 35.27591, 35.27511, 35.27232, 35.26973, 35.25981, 35.26009, 35.22557, 
  35.22213, 35.22627, 35.21624, 35.2046, 35.18609, 35.17479, 35.1743, 35.16027, 35.13886, 35.13753, 
  35.14118, 35.1383, 35.12293, 35.1171, 35.11738, 35.09649, 35.08831, 35.08708, 35.08396, 35.0809, 
  35.07317, 35.06207, 35.06004, 35.05315, 35.03969, 35.03337, 35.02775, 35.02608, 35.02253, 35.02105, 
  35.0175, 35.01313, 35.01056, 35.0094, 35.00624, 35.00708, 35.00508, 34.99977, 34.99696, 34.99601, 
  34.99274, 34.985, 34.97976, 34.97505, 34.97227, 34.97182, 34.96795, 34.96306, 34.96165, 34.96007, 
  34.95019, 34.94336, 34.94597, 34.94435, 34.94037, 34.93502, 34.93232, 34.93115, 34.92894, 34.92465, 
  34.92465, 34.92074, 34.91645, 34.91828, 34.91426, 34.91458, 34.91258, 34.91103, 34.90434, 34.90142, 
  34.89522, 34.89065, 34.88987, 34.87864, 34.87773, 34.87456, 34.86576, 34.86276, 34.86026, 34.85611, 
  34.85336, 34.85125, 34.84554, 34.83871, 34.82219, 34.81852, 34.81595, 34.79946, 34.80017, 34.80062, 
  34.80147, 34.80147, 34.80003, 34.79865, 34.79486, 34.7927, 34.78776, 34.78103, 34.76848, 34.76037, 
  34.75896, 34.75254, 34.74958, 34.75163, 34.74951, 34.74983, 34.7469, 34.73491, 34.72842, 34.72818, 
  34.71985, 34.71766, 34.71414, 34.70817, 34.70482, 34.70581, 34.70489, 34.70193, 34.69579, 34.69434, 
  34.68877, 34.67829, 34.67335, 34.6707, 34.66904, 34.66463, 34.66117, 34.65898, 34.65273, 34.64991, 
  34.6455, 34.64387, 34.636, 34.63466, 34.62848, 34.62788, 34.62095, 34.61665, 34.61506, 34.60616, 
  34.60188, 34.59425, 34.59001, 34.58789, 34.58496, 34.58386, 34.58386, 34.58475, 34.58673, 34.58761, 
  34.58627, 34.58369, 34.57835, 34.57418, 34.57482, 34.57503, 34.57353, 34.57127, 34.56946, 34.56711, 
  34.56538, 34.56408, 34.5596, 34.55508, 34.55411, 34.5502, 34.54785, 34.54457, 34.54358, 34.54181, 
  34.53978, 34.53389, 34.52975, 34.52905, 34.52834, 34.5265, 34.52427, 34.5212, 34.51754, 34.51177, 
  34.50926, 34.507, 34.50695, 34.50629, 34.50419, 34.50405, 34.50277, 34.50083, 34.49952, 34.49775, 
  34.49264, 34.48997, 34.48696, 34.48243, 34.48166, 34.4651, 34.46467, 34.45859, 34.4548, 34.45048, 
  34.44468, 34.4399, 34.43431, 34.43035, 34.42546, 34.42436, 34.42953, 34.4307, 34.43488, 34.43449, 
  34.43771, 34.43332, 34.43735, 34.43728, 34.43412, 34.43357, 34.43215, 34.43187, 34.42842, 34.42479, 
  34.42268, 34.41969, 34.41875, 34.41861, 34.4167, 34.41751, 34.41626, 34.41551, 34.41318, 34.41208, 
  34.41032, 34.4098, 34.40778, 34.40664, 34.40679, 34.4062, 34.40525, 34.40402, 34.40173, 34.39953, 
  34.39989, 34.39877, 34.39846, 34.39744, 34.39588, 34.39351, 34.39154, 34.37713, 34.37178, 34.37125, 
  34.36544, 34.36696, 34.36395, 34.36501, 34.36328, 34.33929, 34.33638, 34.33387, 34.33128, 34.32749, 
  34.32572, 34.3243, 34.31282, 34.30959, 34.30732, 34.30002, 34.29403, 34.2914, 34.2864, 34.28428, 
  34.28495, 34.28406, 34.28211, 34.27764, 34.27311, 34.25814, 34.24445, 34.24083, 34.2255, 34.20712, 
  34.18632, 34.16466, 34.13184, 34.12658, 34.12456, 34.12309, 34.12174, 34.12021, 34.11564, 34.11454, 
  34.10925, 34.06354, 34.05195, 34.05095, 34.05536, 34.05294, 34.04775, 34.04441, 34.0342, 34.03079, 
  34.02481, 34.02481, 34.02873, 34.02627, 34.02654, 34.0278, 34.02869, 34.03045, 34.02999, 34.02876, 
  34.02746, 34.02629, 34.01688, 34.01646, 34.01332, 34.00685, 34.01119, 34.00443, 33.99824, 33.99418, 
  33.9912, 33.97376, 33.97262, 33.98166, 33.98394, 33.98187, 33.97824, 33.97846, 33.96714, 33.967, 
  33.96102, 33.96607, 33.9613, 33.96458, 33.96066, 33.9603, 33.96322, 33.96294, 33.95838, 33.9571, 
  33.95233, 33.95247, 33.95675, 33.95952, 33.95981, 33.96201, 33.96052, 33.96244, 33.96187, 33.94984, 
  33.94336, 33.94955, 33.94001, 33.94977, 33.96742, 33.96223, 33.96949, 33.96073, 33.96828, 33.96636, 
  33.98387, 33.9813, 33.97568, 33.9875, 33.98095, 33.99817, 33.99845, 34.00144, 34.01468, 34.01354, 
  34.00906, 34.0092, 34.01137, 34.0076, 34.00938, 34.00945, 34.00863, 34.01653, 34.01941, 34.02738, 
  34.03943, 34.04164, 34.0395, 34.04775, 34.04761, 34.03524, 34.04007, 34.03979, 34.03609, 34.03516, 
  34.03943, 34.03986, 34.01582, 33.99091, 33.98885, 33.98216, 33.97974, 33.97554, 33.97269, 33.96835, 
  33.96664, 33.96023, 33.95525, 33.95027, 33.94863, 33.9435, 33.94229, 33.93197, 33.92855, 33.92477, 
  33.92121, 33.92164, 33.91502, 33.90682, 33.90483, 33.88951, 33.86785, 33.85969, 33.85003, 33.84176, 
  33.83781, 33.83374, 33.82961, 33.82494, 33.82412, 33.81463, 33.80254, 33.79623, 33.78831, 33.78189, 
  33.76552, 33.75032, 33.74868, 33.74254, 33.73533, 33.73148, 33.72819, 33.7369, 33.73854, 33.7339, 
  33.73605, 33.72641, 33.72684, 33.72391, 33.71806, 33.71934, 33.71749, 33.72548, 33.72848, 33.7237, 
  33.72527, 33.71213, 33.70542, 33.69956, 33.69699, 33.69535, 33.67843, 33.66042, 33.658, 33.64942, 
  33.64985, 33.64128, 33.64328, 33.64628, 33.64285, 33.63663, 33.62434, 33.6227, 33.53767, 33.51879, 
  33.50447, 33.50419, 33.48758, 33.47154, 33.47441, 33.46897, 33.45207, 33.43689, 33.42972, 33.43689, 
  33.43115, 33.40723, 33.39519, 33.3886, 33.37254, 33.36222, 33.35562, 33.33082, 33.33842, 33.32192, 
  33.25965, 33.23165, 33.21815, 33.21571, 33.20465, 33.20882, 33.21902, 33.21959, 33.21241, 33.20738, 
  33.13856, 33.14531, 33.13928, 33.14179, 33.13238, 33.1318, 33.12979, 33.11958, 33.12109, 33.11836, 
  33.10966, 33.10643, 33.10448, 33.10326, 33.10592, 33.10161, 33.10341, 33.10075, 33.09999, 33.09463, 
  33.1011, 33.09866, 33.10966, 33.13151, 33.1318, 33.12598, 33.12756, 33.11742, 33.11383, 33.1106, 
  33.10851, 33.10563, 33.1024, 33.09528, 33.09334, 33.09298, 33.08953, 33.09363, 33.09204, 33.09765, 
  33.09658, 33.10039, 33.09859, 33.08989, 33.08967, 33.09823, 33.10103, 33.09816, 33.10276, 33.09823, 
  33.07126, 33.05062, 33.0499, 33.02075, 32.93306, 32.9095, 32.88968, 32.88881, 32.88622, 32.88197, 
  32.87642, 32.87497, 32.85493, 32.84924, 32.83597, 32.83229, 32.82695, 32.81801, 32.80387, 32.80069, 
  32.80293, 32.80048, 32.78828, 32.78064, 32.7675, 32.72866, 32.72664, 32.7309, 32.72975, 32.70722, 
  32.70476, 32.68757, 32.67153, 32.65882, 32.64696, 32.6448, 32.6414, 32.63937, 32.63482, 32.62485, 
  32.62015, 32.6135, 32.61357, 32.61191, 32.60489, 32.60366, 32.59918, 32.59904, 32.59368, 32.58841, 
  32.58387, 32.57926, 32.57828, 32.5762, 32.57479, 32.57296, 32.57078, 32.5639, 32.56278, 32.56193, 
  32.56163, 32.56163, 32.56005, 32.55759, 32.55803, 32.55398, 32.55304, 32.55112, 32.54772, 32.54269, 
  32.54558, 32.54591, 32.54294, 32.53737, 32.53513, 32.53089, 32.52909, 32.52995, 32.52699, 32.52141, 
  32.51295, 32.50897, 32.50578, 32.50567, 32.50459, 32.50278, 32.48131, 32.47204, 32.46219, 32.45488, 
  32.4505, 32.43032, 32.42344, 32.41533, 32.38431, 32.37445, 32.34908, 32.3514, 32.30005, 32.20961, 
  32.15788, 32.12591, 32.08839, 32.08657, 32.06279, 32.05421, 32.04511, 32.01022, 32.00913, 31.99406, 
  31.98689, 31.98897, 31.97525, 31.96432, 31.95267, 31.92521, 31.92769, 31.92514, 31.9207, 31.9156, 
  31.91254, 31.90999, 31.89272, 31.84679, 31.70013, 31.6604, 31.62927, 31.63307, 31.64827, 31.64929, 
  31.60573, 31.59652, 31.60719, 31.5936, 31.62532, 31.65587, 31.66682, 31.66814, 31.69516, 31.70933, 
  31.77094, 31.77809, 31.8344, 31.77269, 31.76364, 31.75985, 31.76349, 31.76262, 31.75722, 31.74977, 
  31.74744, 31.75211, 31.75634, 31.75736, 31.75299, 31.71444, 31.71327, 31.71532, 31.72568, 31.73561, 
  31.73926, 31.73897, 31.73518, 31.73503, 31.74291, 31.7562, 31.75882, 31.75707, 31.78451, 31.80216, 
  31.81704, 31.83527, 31.8045, 31.74875, 31.7159, 31.69546, 31.6902, 31.67866, 31.66785, 31.65645, 
  31.65528, 31.64008, 31.63336, 31.63701, 31.63511, 31.62678, 31.62474, 31.63161, 31.62371, 31.59638, 
  31.58848, 31.58482, 31.57035, 31.55894, 31.54533, 31.53187, 31.52002, 31.51343, 31.51973, 31.51468, 
  31.52858, 31.53063, 31.52258, 31.52573, 31.52273, 31.50692, 31.49236, 31.48453, 31.44909, 31.42625, 
  31.41277, 31.41724, 31.41336, 31.4113, 31.39665, 31.39834, 31.39673, 31.39343, 31.39196, 31.41618, 
  31.39918, 31.38324, 31.34477, 31.33253, 31.322, 31.32065, 31.32479, 31.32644, 31.32717, 31.32545, 
  31.32695, 31.32182, 31.30613, 31.29175, 31.28347, 31.27745, 31.27928, 31.26615, 31.27033, 31.26087, 
  31.25295, 31.2506, 31.23167, 31.23724, 31.20796, 31.20722, 31.19871, 31.21486, 31.21706, 31.24583, 
  31.24598, 31.24491, 31.24561, 31.24465, 31.24605, 31.24832, 31.24836, 31.24557, 31.24517, 31.24014, 
  31.23552, 31.23787, 31.23721, 31.23904, 31.23192, 31.22943, 31.22473, 31.22381, 31.2139, 31.22, 
  31.22205, 31.22781, 31.23067, 31.23141, 31.23467, 31.23779, 31.23805, 31.24179, 31.24165, 31.23908, 
  31.23761, 31.23721, 31.23996, 31.24172, 31.23724, 31.25636, 31.27272, 31.27848, 31.28644, 31.29802, 
  31.30177, 31.30334, 31.31178, 31.30818, 31.30936, 31.30606, 31.30349, 31.3047, 31.3058, 31.30496, 
  31.30925, 31.30785, 31.30367, 31.30807, 31.30639, 31.30793, 31.30382, 31.30386, 31.29337, 31.29084, 
  31.29091, 31.29245, 31.29329, 31.29249, 31.29326, 31.28856, 31.27866, 31.27829, 31.26898, 31.26964, 
  31.26476, 31.26168, 31.26127, 31.24517, 31.24311, 31.24135, 31.23732, 31.23592, 31.23042, 31.22752, 
  31.22304, 31.21838, 31.21915, 31.21765, 31.21519, 31.2121, 31.20998, 31.21064, 31.20601, 31.20774, 
  31.20597, 31.2041, 31.20344, 31.20175, 31.19929, 31.20183, 31.20153, 31.20414, 31.2037, 31.20495, 
  31.20678, 31.20704, 31.20506, 31.20689, 31.20942, 31.20924, 31.20579, 31.2008, 31.19526, 31.18593, 
  31.17686, 31.17246, 31.16783, 31.16015, 31.15509, 31.13955, 31.1271, 31.11901, 31.10656, 31.10751, 
  31.09712, 31.09175, 31.08253, 31.07617, 31.06477, 31.06845, 30.97669, 30.95789, 30.95546, 30.95303, 
  30.95472, 30.95104, 30.95288, 30.9506, 30.94302, 30.9428, 30.93838, 30.93867, 30.93702, 30.93731, 
  30.93484, 30.93032, 30.93024, 30.92358, 30.57601, 30.56921, 30.54659, 30.52545, 30.48078, 30.48404, 
  30.46362, 30.44527, 30.43328, 30.43195, 30.4207, 30.38339, 30.3111, 30.28901, 30.24201, 30.21309, 
  30.20745, 30.16813, 30.15106, 30.12241, 30.09093, 30.06999, 30.06271, 29.97118, 29.90673, 29.89275, 
  29.84928, 29.5297, 29.5863, 29.59077, 29.52059, 29.52238, 29.51641, 29.49938, 29.48474, 29.47726, 
  29.48354, 29.468, 29.45514, 29.44707, 29.43362, 29.42554, 29.40999, 29.37799, 29.37978, 29.4064, 
  29.41298, 29.39354, 29.43003, 29.43541, 29.44438, 29.48728, 29.46755, 29.452, 29.45873, 29.45768, 
  29.38995, 29.86371,
  25.38114, 23.7489, 23.70835)
LONGITUDE_VALUEs <- c(
  68.18831, 68.18933, 68.20752, 68.20859, 68.20687, 68.20945, 68.21425, 68.22077, 68.23982, 68.25153, 
  68.25745, 68.26268, 68.27649, 68.28173, 68.28207, 68.27469, 68.27177, 68.27091, 68.27349, 68.27881, 
  68.29031, 68.29597, 68.30009, 68.30695, 68.32018, 68.32627, 68.33468, 68.34216, 68.34632, 68.35083, 
  68.35199, 68.35126, 68.34967, 68.34697, 68.34576, 68.34636, 68.35649, 68.36146, 68.36421, 68.36043, 
  68.36103, 68.36481, 68.37142, 68.37339, 68.37099, 68.3715, 68.37485, 68.37965, 68.39366, 68.3982, 
  68.75309, 68.76937, 68.76808, 68.76568, 68.76473, 68.80802, 68.82021, 68.82605, 68.82876, 68.83094, 
  68.84352, 68.84387, 68.84541, 68.85669, 68.87434, 68.88018, 68.88945, 68.89047, 68.89708, 68.90661, 
  68.91305, 68.94532, 68.96293, 68.97306, 68.98484, 68.9941, 69.00814, 69.02101, 69.032, 69.03415, 
  69.09388, 69.09474, 69.19414, 69.31271, 69.37198, 69.40374, 69.44444, 69.47017, 69.48872, 69.50329, 
  69.54432, 69.59412, 69.73135, 70.02498, 70.06652, 70.1099, 70.1393, 70.16429, 70.21501, 70.2539, 
  70.25888, 70.28882, 70.32659, 70.34608, 70.35068, 70.35403, 70.36314, 70.36574, 70.36866, 70.37651, 
  70.3839, 70.38844, 70.39207, 70.39825, 70.41173, 70.43947, 70.47147, 70.51508, 70.53756, 70.55791, 
  70.56563, 70.57353, 70.6024, 70.58039, 70.5636, 70.5624, 70.56201, 70.5621, 70.58202, 70.57936, 
  70.58451, 70.58511, 70.57447, 70.57129, 70.58186, 70.58297, 70.58606, 70.64571, 70.71715, 70.80588, 
  70.83542, 70.85156, 70.87643, 70.88916, 70.90668, 70.90861, 70.90861, 70.88233, 70.87517, 70.87436, 
  70.87397, 70.87655, 70.88187, 70.87828, 70.92406, 70.92315, 70.94701, 70.95478, 70.96306, 70.98599, 
  71.0034, 71.02021, 71.04052, 71.042, 71.04196, 71.04671, 71.0494, 71.05632, 71.05778, 71.06611, 
  71.07942, 71.08414, 71.10696, 71.11962, 71.12198, 71.12577, 71.10315, 71.06646, 71.03744, 71.00869, 
  70.99839, 70.99616, 71.00105, 71.00483, 71.00285, 70.98749, 70.99246, 70.9862, 70.99915, 71.0072, 
  71.00891, 71.05653, 71.06713, 71.07457, 71.08585, 71.09478, 71.06579, 71.02613, 70.93982, 70.88765, 
  70.75099, 70.73692, 70.66461, 70.67834, 70.66718, 70.67337, 70.66031, 70.64666, 70.60845, 70.5297, 
  70.50121, 70.38685, 70.26861, 70.25143, 70.22191, 70.19925, 70.17452, 70.10108, 70.08532, 70.14249, 
  70.17503, 70.16336, 70.18516, 70.17692, 70.18465, 70.17401, 70.11742, 70.0563, 69.93282, 69.88594, 
  69.7917, 69.72515, 69.50953, 69.48446, 69.51336, 69.58664, 70.02556, 70.13229, 70.22654, 70.2964, 
  70.37226, 70.44178, 70.50549, 70.55491, 70.58959, 70.67731, 70.6837, 70.75889, 70.87231, 71.20534, 
  71.38301, 71.66641, 71.88287, 71.89884, 71.92651, 72.00343, 72.13184, 72.20613, 72.29868, 72.40378, 
  72.47982, 72.73323, 72.9458, 73.00418, 73.08469, 73.28226, 73.39692, 73.59709, 73.80605, 73.82286, 
  73.97205, 73.96419, 73.9309, 73.90262, 73.87928, 73.88409, 73.91429, 73.91979, 73.93626, 73.97409, 
  73.96723, 73.9384, 73.92707, 73.93702, 73.93771, 73.9281, 73.93462, 73.94732, 73.94698, 73.95007, 
  73.96414, 73.96929, 73.96345, 73.99127, 74.01942, 74.01049, 74.01152, 74.02319, 74.03795, 74.03967, 
  74.04825, 74.05683, 74.07227, 74.09046, 74.07365, 74.10182, 74.09599, 74.10491, 74.11727, 74.12825, 
  74.13786, 74.19308, 74.21882, 74.2322, 74.26075, 74.26899, 74.26847, 74.27482, 74.28117, 74.28598, 
  74.27431, 74.27332, 74.26108, 74.2609, 74.26451, 74.27395, 74.30192, 74.30655, 74.29471, 74.30185, 
  74.31009, 74.31953, 74.32041, 74.34787, 74.35404, 74.35696, 74.36709, 74.36486, 74.38184, 74.36074, 
  74.3652, 74.36571, 74.38287, 74.39731, 74.42236, 74.42408, 74.41121, 74.41001, 74.42356, 74.42854, 
  74.41378, 74.41687, 74.43901, 74.44195, 74.45483, 74.45174, 74.46632, 74.45723, 74.47971, 74.48125, 
  74.49189, 74.49824, 74.50905, 74.51609, 74.54568, 74.53933, 74.54753, 74.5592, 74.56896, 74.58046, 
  74.59694, 74.67077, 74.69565, 74.69052, 74.70219, 74.69807, 74.68983, 74.68886, 74.67324, 74.6662, 
  74.65865, 74.63651, 74.63222, 74.63119, 74.60957, 74.59704, 74.61026, 74.6107, 74.60091, 74.57346, 
  74.57123, 74.55132, 74.54806, 74.51066, 74.51479, 74.51033, 74.51907, 74.52543, 74.51684, 74.53251, 
  74.52073, 74.53808, 74.5422, 74.54083, 74.53482, 74.52624, 74.52882, 74.53499, 74.53774, 74.53396, 
  74.5467, 74.55357, 74.58463, 74.58718, 74.5961, 74.61069, 74.61893, 74.62219, 74.62751, 74.63351, 
  74.64312, 74.65393, 74.63917, 74.63951, 74.65307, 74.63608, 74.62753, 74.62976, 74.63131, 74.63663, 
  74.62496, 74.62599, 74.62221, 74.62153, 74.61882, 74.6099, 74.59479, 74.59325, 74.57776, 74.58394, 
  74.59612, 74.60419, 74.61294, 74.61455, 74.60648, 74.61146, 74.59224, 74.57259, 74.55574, 74.54613, 
  74.54544, 74.53943, 74.53743, 74.54018, 74.52903, 74.53486, 74.52406, 74.50192, 74.50329, 74.49866, 
  74.48682, 74.48836, 74.50278, 74.50478, 74.54734, 74.56124, 74.55141, 74.55519, 74.56703, 74.55845, 
  74.57299, 74.57024, 74.58334, 74.59055, 74.59724, 74.60634, 74.6076, 74.62837, 74.63661, 74.65068, 
  74.66733, 74.66681, 74.67522, 74.67676, 74.70062, 74.70079, 74.70663, 74.71881, 74.71401, 74.72241, 
  74.75622, 74.75549, 74.76853, 74.78161, 74.80203, 74.80563, 74.81078, 74.81113, 74.81885, 74.83142, 
  74.82868, 74.83841, 74.84664, 74.85282, 74.8487, 74.86536, 74.86373, 74.8627, 74.86544, 74.86922, 
  74.8687, 74.87977, 74.87625, 74.87232, 74.86889, 74.86889, 74.87258, 74.87524, 74.87944, 74.88842, 
  74.88962, 74.89426, 74.90455, 74.91228, 74.9121, 74.91742, 74.9188, 74.92601, 74.94917, 74.94814, 
  74.95209, 74.95312, 74.97385, 74.97814, 74.97214, 74.98278, 74.98518, 75.00097, 75.00286, 75.00474, 
  75.01264, 75.01864, 75.03289, 75.04, 75.05373, 75.0587, 75.06797, 75.06471, 75.0702, 75.0714, 
  75.06883, 75.07483, 75.08393, 75.09131, 75.08994, 75.09114, 75.10178, 75.10469, 75.10864, 75.10675, 
  75.12288, 75.1578, 75.17393, 75.17925, 75.19761, 75.19795, 75.20413, 75.20256, 75.21595, 75.22007, 
  75.21784, 75.22384, 75.22676, 75.23517, 75.22933, 75.24032, 75.24512, 75.26108, 75.26661, 75.26215, 
  75.263, 75.27485, 75.28325, 75.27742, 75.2879, 75.29923, 75.30678, 75.32222, 75.30991, 75.31986, 
  75.31643, 75.31986, 75.33119, 75.36531, 75.37294, 75.37071, 75.37295, 75.38101, 75.38153, 75.37157, 
  75.34377, 75.35012, 75.32078, 75.32359, 75.33078, 75.33331, 75.33494, 75.33494, 75.33001, 75.33127, 
  75.33254, 75.33636, 75.33728, 75.33735, 75.33535, 75.33342, 75.33197, 
  75.32655, 75.32492, 75.32198, 75.31623, 75.31419, 75.30741, 75.29891, 75.30002, 75.29955, 75.28921, 
  75.28689, 75.2896, 75.27277, 75.27033, 75.25865, 75.25502, 75.25716, 75.25098, 75.24543, 75.22326, 
  75.22412, 75.21315, 75.20898, 75.19276, 75.19215, 75.19857, 75.20179, 75.19154, 75.15362, 75.13313, 
  75.13251, 75.12746, 75.12854, 75.13313, 75.1345, 75.11921, 75.12088, 75.10896, 75.10896, 75.09994, 
  75.09122, 75.05604, 75.02697, 75.01549, 75.01451, 75.01976, 75.00107, 74.98372, 74.97019, 74.95675, 
  74.95177, 74.94296, 74.94332, 74.93638, 74.93931, 74.92926, 74.91983, 74.90524, 74.90043, 74.87711, 
  74.88451, 74.87703, 74.86777, 74.85576, 74.84855, 74.81963, 74.8126, 74.80148, 74.80067, 74.79631, 
  74.76824, 74.76468, 74.75525, 74.75267, 74.72935, 74.72713, 74.71209, 74.71423, 74.71031, 74.70239, 
  74.69411, 74.68779, 74.68655, 74.68157, 74.68548, 74.68619, 74.68237, 74.69028, 74.69029, 74.66208, 
  74.66119, 74.67249, 74.67259, 74.65167, 74.65516, 74.64953, 74.64942, 74.65498, 74.659, 74.64081, 
  74.63842, 74.65595, 74.65672, 74.65323, 74.65476, 74.66303, 74.66968, 74.67175, 74.68841, 74.69506, 
  74.69615, 74.68133, 74.68112, 74.66633, 74.65305, 74.65686, 74.66405, 74.65447, 74.66024, 74.66177, 
  74.66559, 74.66848, 74.67698, 74.67741, 74.68136, 74.68514, 74.69629, 74.69586, 74.70471, 74.7053, 
  74.69415, 74.68248, 74.66557, 74.65853, 74.65652, 74.64076, 74.6328, 74.63958, 74.65844, 74.65405, 
  74.63967, 74.63234, 74.63052, 74.63271, 74.63903, 74.63764, 74.63333, 74.62794, 74.62402, 74.6244, 
  74.62387, 74.62123, 74.61751, 74.6132, 74.61299, 74.60558, 74.59378, 74.59099, 74.5887, 74.58373, 
  74.58229, 74.57957, 74.5773, 74.57759, 74.57661, 74.57583, 74.57481, 74.57562, 74.57562, 74.56926, 
  74.56614, 74.5569, 74.55556, 74.55226, 74.54974, 74.5483, 74.548, 74.54732, 74.54501, 74.54472, 
  74.54386, 74.5453, 74.54272, 74.54297, 74.54201, 74.54177, 74.54128, 74.5412, 74.53921, 74.53669, 
  74.53687, 74.53768, 74.53669, 74.53258, 74.53075, 74.52524, 74.5186, 74.51645, 74.5143, 74.51116, 
  74.50989, 74.51052, 74.50967, 74.50969, 74.51096, 74.51097, 74.51186, 74.51315, 74.51468, 74.51367, 
  74.51526, 74.51401, 74.51146, 74.51153, 74.50944, 74.51115, 74.50733, 74.48466, 74.485, 74.4752, 
  74.47384, 74.47059, 74.46711, 
  74.4638, 74.45398, 74.43627, 74.42751, 74.40845, 74.39918, 74.39729, 74.37909, 74.35643, 74.32742, 
  74.32622, 74.31795, 74.31469, 74.28618, 74.28103, 74.27142, 74.26167, 74.25343, 74.23666, 74.16747, 
  74.15315, 74.13512, 74.11007, 74.08632, 74.07036, 74.06778, 74.0592, 74.0604, 74.05113, 74.03722, 
  74.01679, 74.00801, 73.98723, 73.96697, 73.96371, 73.90965, 73.8317, 73.82243, 73.8135, 73.80423, 
  73.79255, 73.78843, 73.77195, 73.7637, 73.75478, 73.77092, 73.78019, 73.78431, 73.77401, 73.76714, 
  73.76061, 73.76077, 73.75527, 73.74429, 73.75115, 73.73536, 73.72334, 73.69964, 73.69174, 73.65569, 
  73.63522, 73.63797, 73.62973, 73.63797, 73.6627, 73.67521, 73.67178, 73.65117, 73.64602, 73.63847, 
  73.63022, 73.63915, 73.63572, 73.62095, 73.61477, 73.61752, 73.60684, 73.612, 73.5986, 73.59586, 
  73.60204, 73.59483, 73.58075, 73.57167, 73.58506, 73.57355, 73.56634, 73.57378, 73.57069, 73.57464, 
  73.5822, 73.58113, 73.60225, 73.60208, 73.58868, 73.58834, 73.59667, 73.59564, 73.59976, 73.60492, 
  73.6135, 73.61882, 73.6305, 73.63256, 73.62003, 73.62144, 73.61834, 73.61474, 73.61371, 73.60976, 
  73.61045, 73.60547, 73.60238, 73.60633, 73.61594, 73.618, 73.61045, 73.61354, 73.6192, 73.62836, 
  73.63935, 73.63832, 73.62836, 73.62269, 73.62355, 73.62718, 73.62529, 73.62546, 73.62889, 73.61353, 
  73.60734, 73.60546, 73.60692, 73.61036, 73.61113, 73.6095, 73.60598, 73.60177, 73.59842, 73.59636, 
  73.59038, 73.583, 73.57682, 73.56832, 73.56772, 73.57824, 73.56824, 73.56686, 73.57249, 73.58382, 
  73.58966, 73.59996, 73.60665, 73.60122, 73.59865, 73.59816, 73.57576, 73.55959, 73.57785, 73.58886, 
  73.588, 73.59366, 73.59246, 73.59383, 73.58537, 73.56923, 73.56133, 73.55047, 73.54609, 73.53547, 
  73.53237, 73.53194, 73.53322, 73.52718, 73.51363, 73.50896, 73.49866, 73.50046, 73.49537, 73.49675, 
  73.49081, 73.49674, 73.49759, 73.49227, 73.4908, 73.49424, 73.49029, 73.49278, 73.49029, 73.49252, 
  73.49031, 73.49519, 73.49502, 73.49244, 73.49648, 73.49691, 73.49136, 73.48014, 73.47275, 73.47327, 
  73.4834, 73.48571, 73.48159, 73.48227, 73.47729, 73.47335, 73.47266, 73.46373, 73.46356, 73.45704, 
  73.45326, 73.45446, 73.4591, 73.4591, 73.44244, 73.44794, 73.44341, 73.43377, 73.42724, 73.42587, 
  73.4294, 73.41807, 73.41137, 73.41051, 73.40639, 73.4033, 73.39028, 73.39836, 73.40117, 73.41388, 
  73.43108, 73.44238, 73.44856, 73.46504, 73.51896, 73.56037, 73.58338, 73.59987, 73.61086, 73.62494, 
  73.63661, 73.64657, 73.67251, 73.67423, 73.66117, 73.66392, 73.69844, 73.71114, 73.72056, 73.74012, 
  73.76038, 73.79816, 73.81258, 73.82941, 73.84452, 73.89988, 73.94109, 73.97873, 74.0038, 74.05163, 
  74.0554, 74.08367, 74.08676, 74.06169, 74.06031, 74.11644, 
  74.11374, 74.10566, 74.10713, 74.11243, 74.11243, 74.10694, 74.10128, 74.10008, 74.09761, 74.09322, 
  74.09013, 74.08996, 74.07245, 74.06662, 74.06525, 74.05014, 74.04139, 74.0311, 74.01699, 74.00583, 
  74.0044, 74.00137, 73.99657, 73.98061, 73.96365, 73.96142, 73.95679, 73.95198, 73.94147, 73.92723, 
  73.92002, 73.90342, 73.8933, 73.86687, 73.85726, 73.84508, 73.83255, 73.80801, 73.78463, 73.77228, 
  73.74585, 73.7447, 73.74573, 73.74195, 73.74298, 73.73646, 73.72782, 73.70294, 73.70716, 73.70133, 
  73.68417, 73.68654, 73.69203, 73.69323, 73.69117, 73.69786, 73.69495, 73.70856, 73.70564, 73.71508, 
  73.72058, 73.73362, 73.75267, 73.74789, 73.77397, 73.78971, 73.78954, 73.73977, 73.736, 73.72793, 
  73.70717, 73.6689, 73.63543, 73.61775, 73.5944, 73.57655, 73.55545, 73.52456, 73.51632, 73.49573, 
  73.48252, 73.47274, 73.46963, 73.40185, 73.39794, 73.4, 73.39828, 73.39999, 73.39716, 73.39632, 
  73.39838, 73.3613, 73.35564, 73.35581, 73.35306, 73.35186, 73.34499, 73.33778, 73.33044, 73.33181, 
  73.32306, 73.30898, 73.29353, 73.28049, 73.23637, 73.22607, 73.2156, 73.19437, 73.18321, 73.14358, 
  73.12933, 73.12092, 73.12212, 73.12916, 73.16195, 73.16679, 73.16507, 73.16868, 73.19357, 73.19418, 
  73.20139, 73.18611, 73.17204, 73.16431, 73.1571, 73.1565, 73.14693, 73.12376, 73.08599, 73.07072, 
  73.05046, 73.04737, 73.02481, 73.01416, 73.01279, 73.00627, 73.00112, 72.99305, 72.98824, 72.98738, 
  72.98138, 72.96402, 72.95424, 72.9493, 72.93316, 72.93179, 72.92818, 72.91857, 72.91222, 72.90003, 
  72.89436, 72.88818, 72.882, 72.88286, 72.88029, 72.86148, 72.84758, 72.84311, 72.84174, 72.82423, 
  72.81908, 72.82217, 72.81136, 72.81155, 72.80442, 72.80374, 72.79859, 72.79524, 72.78382, 72.77395, 
  72.75909, 72.74176, 72.72974, 72.73369, 72.73146, 72.72648, 72.72219, 72.72713, 72.72309, 72.70785, 
  72.70262, 72.69781, 72.68777, 72.68502, 72.6785, 72.67215, 72.65764, 72.62701, 72.62997, 72.61505, 
  72.60552, 72.59059, 72.58389, 72.58132, 72.57333, 72.56981, 72.55505, 72.5528, 72.5407, 72.53469, 
  72.53057, 72.52534, 72.52568, 72.52912, 72.52697, 72.51873, 72.5106, 72.50971, 72.50593, 72.55222, 
  72.58592, 72.56632, 72.53955, 72.51964, 72.51922, 72.53466, 72.55766, 72.54816, 72.53649, 72.54987, 
  72.54557, 72.56479, 72.57817, 72.60906, 72.64235, 72.67427, 72.67942, 72.67393, 72.68594, 72.7066, 
  72.73509, 72.75705, 72.79056, 72.8012, 72.80497, 72.82282, 72.85405, 72.85557, 72.86586, 72.87136, 
  72.87547, 72.86655, 72.882, 72.87856, 72.90422, 72.92602, 72.94094, 72.966, 72.96858, 72.97252, 
  72.98213, 72.98436, 72.97619, 72.97379, 72.97464, 72.97911, 72.98597, 72.98631, 72.98013, 73.01717, 
  73.03415, 73.04874, 73.05097, 73.04985, 73.0586, 73.07611, 73.07568, 73.07945, 73.09661, 73.09627, 
  73.07585, 73.07068, 73.07514, 73.07085, 73.07409, 73.06912, 73.07152, 73.09105, 73.10856, 73.1274, 
  73.15692, 73.17408, 73.1739, 73.22598, 73.23216, 73.23353, 73.30823, 73.30892, 73.34627, 73.34987, 
  73.34352, 73.34335, 73.36223, 73.37092, 73.41451, 73.44368, 73.4578, 73.46501, 73.49965, 73.51732, 
  73.52281, 73.52298, 73.53465, 73.56297, 73.57941, 73.59485, 73.68992, 73.70882, 73.72409, 73.74434, 
  73.75429, 73.79874, 73.80577, 73.82396, 73.84095, 73.85725, 73.88248, 73.88883, 73.88042, 73.87613, 
  73.88962, 73.88157, 73.85548, 73.84776, 73.81018, 73.80572, 73.79937, 73.7953, 73.76407, 73.7237, 
  73.70499, 73.65408, 
  73.65294, 73.64706, 73.64625, 73.63981, 73.63406, 73.63204, 73.62406, 73.62003, 73.61818, 73.61161, 
  73.60492, 73.6011, 73.59668, 73.59539, 73.58565, 73.58357, 73.57668, 73.57385, 73.55582, 73.5529, 
  73.5502, 73.5472, 73.5484, 73.54346, 73.54514, 73.54415, 73.54226, 73.53514, 73.53428, 73.52432, 
  73.52068, 73.50857, 73.50381, 73.49141, 73.48793, 73.47969, 73.47385, 73.46712, 73.46068, 73.45673, 
  73.44993, 73.45136, 73.4509, 73.44899, 73.44809, 73.44336, 73.43955, 73.43968, 73.44092, 73.43764, 
  73.43633, 73.435, 73.42608, 73.42483, 73.42451, 73.42109, 73.41263, 73.40572, 73.40061, 73.39499, 
  73.38668, 73.37784, 73.37595, 73.37576, 73.37814, 73.37709, 73.37121, 73.36561, 73.36361, 73.36132, 
  73.35323, 73.34928, 73.34136, 73.33703, 73.32387, 73.32321, 73.32381, 73.30891, 73.30079, 73.29075, 
  73.27924, 73.27038, 73.26924, 73.26826, 73.26772, 73.25952, 73.25669, 73.25468, 73.25373, 73.24262, 
  73.24195, 73.23676, 73.22644, 73.2226, 73.22025, 73.21772, 73.21239, 73.21213, 73.20428, 73.18346, 
  73.16591, 73.16359, 73.14775, 73.11822, 73.08278, 73.07523, 73.06872, 73.0637, 73.06549, 73.05553, 
  73.04442, 73.04004, 73.03944, 72.99879, 72.96662, 72.95403, 72.92936, 72.91096, 72.90237, 72.89649, 
  72.89671, 72.89241, 72.85117, 72.8386, 72.81812, 72.80221, 72.7749, 72.76831, 72.74882, 72.71784, 
  72.70505, 72.68832, 72.65209, 72.55749, 72.49837, 72.44639, 72.43008, 72.3954, 72.39352, 72.36138, 
  72.33545, 72.33077, 72.33288, 72.29837, 72.25299, 72.22846, 72.23052, 72.1991, 72.18467, 72.20959, 
  72.19861, 72.09591, 72.08218, 72.03058, 72.02867, 72.00256, 71.96272, 71.93593, 71.91651, 71.88786, 
  71.80949, 71.79758, 71.7993, 71.82075, 71.8065, 71.77129, 71.73114, 71.69047, 71.6563, 71.63621, 
  71.63948, 71.62282, 71.6146, 71.55799, 71.5841, 71.57629, 71.53819, 71.52745, 71.51955, 71.52453, 
  71.52025, 71.49312, 71.48857, 71.4805, 71.47957, 71.47416, 71.44479, 71.43587, 71.39161, 71.37947, 
  71.37613, 71.3605, 71.35554, 71.34377, 71.31939, 71.31022, 71.30739, 71.29476, 71.29263, 71.27116, 
  71.26395, 71.25108, 71.25133, 71.24776, 71.2433, 71.243, 71.25408, 71.24464, 71.22961, 71.21377, 
  71.21541, 71.20923, 71.20773, 71.20266, 71.1985, 71.19876, 71.19697, 71.19691, 71.19622, 71.19504, 
  71.19515, 71.19657, 71.19666, 71.19798, 71.19887, 71.19954, 71.20154, 
   71.20771, 71.20753, 71.21195, 71.2183, 71.22243, 71.22895, 71.23121, 71.23517, 71.2346, 71.2415, 
  71.24464, 71.24593, 71.2488, 71.2499, 71.25088, 71.25247, 71.25305, 71.25395, 71.25455, 71.25565, 
  71.25485, 71.25535, 71.25541, 71.25585, 71.25676, 71.25753, 71.25812, 71.27028, 71.2768, 71.27891, 
  71.28245, 71.28502, 71.28886, 71.28927, 71.28946, 71.29272, 71.29253, 71.293, 71.29337, 71.29457, 
  71.29629, 71.29699, 71.29826, 71.29822, 71.29841, 71.29983, 71.30167, 71.30461, 71.31017, 71.31347, 
  71.31294, 71.3132, 71.31408, 71.31404, 71.31351, 71.31346, 71.31286, 71.31445, 71.31945, 71.31977, 
  71.31758, 71.31857, 71.31844, 71.31915, 71.32241, 71.32344, 71.35081, 71.35934, 71.36904, 71.36998, 
  71.37252, 71.37368, 71.37724, 71.38114, 71.38715, 71.38827, 71.38866, 71.38827, 71.38612, 71.38539, 
  71.38814, 71.37762, 71.37677, 71.38089, 71.38497, 71.38523, 71.39012, 71.38008, 71.39605, 71.40541, 
  71.4085, 71.41348, 71.41896, 71.43098, 71.43484, 71.44969, 71.4605, 71.46908, 71.47767, 71.47638, 
  71.47844, 71.50291, 71.50343, 71.50259, 71.50001, 71.49628, 71.48371, 71.48371, 71.48946, 71.49007, 
  71.48346, 71.48629, 71.49006, 71.49019, 71.49401, 71.49392, 71.49667, 71.50255, 71.50847, 71.50834, 
  71.52049, 71.52553, 71.52975, 71.53383, 71.53557, 71.54055, 71.55102, 71.55092, 71.55141, 71.55194, 
  71.55323, 71.55272, 71.55155, 71.55071, 71.55061, 71.55104, 71.55099, 71.55057, 71.54999, 71.54961, 
  71.5496, 71.54996, 71.54967, 71.54984, 71.54943, 71.54881, 71.54894, 71.54949, 71.54996, 71.55053, 
  71.55055, 71.55018, 71.55021, 71.54998, 71.54904, 71.5481, 71.55182, 71.55143, 71.55153, 71.551, 
  71.55051, 71.54876, 71.54765, 71.54644, 71.54219, 71.5397, 71.53678, 71.53406, 71.53363, 71.53296, 
  71.53273, 71.53292, 71.53497, 71.53488, 71.53525, 71.53587, 71.54063, 71.53963, 71.53796, 71.53698, 
  71.53621, 71.53574, 71.53452, 71.53252, 71.53163, 71.53077, 71.53006, 71.52888, 71.52794, 71.52701, 
  71.52555, 71.52547, 71.52307, 71.5212, 71.51999, 71.51274, 71.50981, 71.50802, 71.50649, 71.50605, 
  71.50616, 71.50969, 71.50869, 71.50919, 71.50909, 71.51056, 71.51013, 71.51175, 71.51072, 71.50761, 
  71.50523, 71.5028, 71.50188, 71.4995, 71.49948, 71.50396, 71.5062, 71.50529, 71.51183, 71.51681, 
  71.52076, 71.52118, 71.53724, 71.54643, 71.54623, 71.54795, 71.55098, 71.55786, 71.55803, 71.56508, 
  71.56789, 71.57321, 71.58158, 71.58477, 71.59306, 71.59679, 71.60036, 71.60667, 71.61006, 71.61091, 
  71.61619, 71.61812, 71.6204, 71.61945, 71.62151, 71.61786, 71.61877, 71.61774, 71.61671, 71.61289, 
  71.60941, 71.61053, 71.6098, 71.60735, 71.60491, 71.59894, 71.59877, 71.60199, 71.60053, 71.59976, 
  71.598, 71.59692, 71.59671, 71.59821, 71.59714, 71.59761, 71.59409, 71.59392, 71.60087, 71.60057, 
  71.60478, 71.60516, 71.621, 71.62409, 71.62542, 71.63379, 71.63349, 71.63705, 71.6431, 71.64456, 
  71.64812, 71.64863, 71.65009, 71.65168, 71.65391, 71.65376, 71.655, 71.65706, 71.65726, 71.65659, 
  71.65636, 71.65533, 71.65269, 71.6511, 71.64736, 71.64668, 71.64625, 71.64507, 71.64136, 71.64101, 
  71.64166, 71.63728, 71.63739, 71.63569, 71.63106, 71.62683, 71.62554, 71.62056, 71.61831, 71.6114, 
  71.60861, 71.60821, 71.59718, 71.59757, 71.59572, 71.59323, 71.58658, 71.58731, 71.581, 71.57873, 
  71.56984, 71.5686, 71.5662, 71.56388, 71.56375, 71.56165, 71.55148, 71.54748, 71.54452, 71.54328, 
  71.5455, 71.5465, 71.54634, 71.55219, 71.55339, 71.55353, 71.55409, 71.55465, 71.55524, 71.55637, 
  71.55355, 71.55361, 71.55409, 71.5534, 71.55385, 71.55394, 71.5535, 71.55351, 71.56131, 71.56392, 
  71.56591, 71.56795, 71.5696, 71.57711, 71.57887, 71.58022, 71.57954, 71.59065, 71.60044, 71.63482, 
  71.64315, 71.65406, 71.68066, 71.6804, 71.65937, 71.65542, 71.64658, 71.63217, 71.6247, 71.60581, 
  71.59954, 71.58898, 71.58187, 71.57388, 71.56804, 71.53693, 71.53083, 71.53264, 71.53113, 71.53169, 
  71.54311, 71.54135, 71.54324, 71.54251, 71.5516, 71.55852, 71.55482, 71.55553, 71.55226, 71.54752, 
  71.54224, 71.52366, 71.52045, 71.51581, 71.50933, 71.50727, 71.50547, 71.50217, 71.50573, 71.50539, 
  71.50805, 71.50727, 71.5089, 71.51221, 71.50762, 71.49929, 71.49298, 71.48852, 71.48186, 71.47985, 
  71.47462, 71.44917, 71.43861, 71.43303, 71.43028, 71.42998, 71.42724, 71.41869, 71.41221, 71.40715, 
  71.40088, 71.38895, 71.38423, 71.38037, 71.36046, 71.35093, 71.34724, 71.34724, 71.34089, 71.33234, 
  71.32978, 71.32227, 71.31827, 71.30415, 71.2963, 71.2948, 71.29403, 71.29231, 71.29454, 71.29519, 
  71.29261, 71.29506, 71.29042, 71.29463, 71.28793, 71.28901, 71.28523, 71.27742, 71.26883, 71.26819, 
  71.26823, 71.26716, 71.26677, 71.26802, 71.2634, 71.25017, 71.24038, 71.23975, 71.22833, 71.22404, 
  71.22662, 71.22584, 71.20858, 71.19961, 71.19437, 71.18695, 71.18433, 71.1806, 71.16957, 71.15965, 
  71.15107, 71.15283, 71.15013, 71.13425, 71.11794, 71.11502, 71.1103, 71.10704, 71.10597, 71.10181, 
  71.09632, 71.0897, 71.08893, 71.09438, 71.09494, 71.09224, 71.09224, 71.09541, 71.09885, 71.09803, 
  71.10249, 71.1076, 71.10928, 71.11228, 71.1173, 71.11468, 71.10872, 71.10288, 71.10275, 71.09636, 
  71.09172, 71.08829, 71.08816, 71.08687, 71.08653, 71.08365, 71.08018, 71.0776, 71.07537, 71.07017, 
  71.06713, 71.06495, 71.05202, 71.04468, 71.04309, 71.04155, 71.03958, 71.0385, 71.03799, 71.03468, 
  71.03402, 71.02955, 71.02518, 71.02432, 71.02305, 71.02342, 71.02007, 71.01947, 71.01752, 71.01705, 
  71.01449, 71.01102, 71.01501, 71.01488, 71.01533, 71.01417, 71.0149, 71.01344, 71.01614, 71.01531, 
  71.01765, 71.01305, 71.01162, 71.01048, 71.00958, 71.00728, 71.00572, 71.00557, 71.00417, 71.00692, 
  71.01018, 71.0134, 71.01302, 71.01538, 71.01375, 71.01968, 71.02208, 71.02349, 71.02267, 71.02413, 
  71.03958, 71.03799, 71.0519, 71.05151, 71.05486, 71.05962, 71.0646, 71.06919, 71.07104, 71.07426, 
  71.07907, 71.09211, 71.09323, 71.0967, 71.10159, 71.10751, 71.10785, 71.10963, 71.11058, 71.11684, 
  71.11483, 71.1153, 71.11639, 71.12178, 71.12408, 71.12498, 71.12596, 71.12521, 71.12431, 71.1262, 
  71.1261, 71.12572, 71.12685, 71.12662, 71.12552, 71.12392, 71.12366, 71.12472, 71.12472, 71.12343, 
  71.12038, 71.11916, 71.12014, 71.12053, 71.11911, 71.11998, 71.12189, 71.11562, 71.12335, 71.13945, 
  71.14386, 71.15133, 71.15674, 71.17253, 71.17605, 71.16674, 71.16781, 71.17017, 71.16592, 71.16292, 
  71.15614, 71.15506, 71.15824, 71.15266, 71.1515, 71.1524, 71.15124, 71.14545, 71.1409, 71.13721, 
  71.1336, 71.13133, 71.12978, 71.12928, 71.13074, 71.12396, 71.12517, 71.11881, 71.13856, 71.12345, 
  71.12242, 71.13014, 71.09074, 71.09083, 71.09421, 71.09391, 71.09434, 71.09371, 71.0849, 71.07756, 
  71.07082, 71.08242, 71.06594, 71.03976, 71.03392, 71.02877, 71.02439, 71.02611, 71.01104, 71.01117, 
  71.00095, 70.99705, 70.99052, 70.98701, 70.97374, 70.97342, 70.97074, 70.96896, 70.96718, 70.96711, 
  70.96516, 70.96144, 70.95471, 70.94458, 70.93642, 70.9353, 70.91384, 70.91617, 70.92046, 70.91891, 
  70.90767, 70.88312, 70.86604, 70.86329, 70.85453, 70.84079, 70.83505, 70.82192, 70.81101, 70.78905, 
  70.77909, 70.7529, 70.74434, 70.7148, 70.7063, 70.70004, 70.6936, 70.68527, 70.67737, 70.65686, 
  70.64836, 70.64252, 70.63918, 70.6289, 70.60151, 70.59841, 70.58966, 70.5839, 70.58064, 70.55164, 
  70.5476, 70.51257, 70.49894, 70.43885, 70.4144, 70.39638, 70.37586, 70.36162, 70.34385, 70.31878, 
  70.28058, 70.25433, 70.24428, 70.22385, 70.20119, 70.17502, 70.166, 70.15837, 70.14841, 70.13115, 
  70.12806, 70.12102, 70.11755, 70.10102, 70.09677, 70.08982, 70.08742, 70.08046, 70.06888, 70.06274, 
  70.03777, 70.02678, 70.01536, 69.99889, 69.99167, 69.97778, 69.96559, 69.95691, 69.94953, 69.9365, 
  69.91958, 69.90344, 69.88971, 69.89933, 69.90337, 69.90139, 69.87736, 69.87263, 69.87487, 69.87272, 
  69.86173, 69.85865, 69.86208, 69.85959, 69.85607, 69.85616, 69.86071, 69.85822, 69.86062, 69.85856, 
  69.86654, 69.87453, 69.88749, 69.89195, 69.9007, 69.91418, 69.91676, 69.91297, 69.91777, 69.93494, 
  69.94386, 69.94897, 69.95176, 69.9521, 69.95545, 69.95893, 69.96043, 69.9661, 69.9658, 69.96159, 
  69.96588, 69.9837, 69.98937, 69.98988, 70.0025, 70.00429, 70.01399, 70.0188, 70.03108, 70.03812, 
  70.04061, 70.06094, 70.07623, 70.08507, 70.08653, 70.09915, 70.106, 70.11244, 70.12446, 70.13176, 
  70.14258, 70.13975, 70.14626, 70.1436, 70.14463, 70.1533, 70.15167, 70.1436, 70.14369, 70.16429, 
  70.16849, 70.17777, 70.18833, 70.19185, 70.19983, 70.19519, 70.19553, 70.20008, 70.17072, 70.17282, 
  70.18896, 70.20682, 70.19961, 70.22194, 70.23636, 70.24735, 70.24495, 70.2525, 70.26967, 70.28135, 
  70.29612, 70.30017, 70.32353, 70.3237, 70.30893, 70.31202, 70.32524, 70.32678, 70.30927, 70.28627, 
  70.22465, 70.16439, 70.16388, 70.13091, 70.11958, 70.08781, 70.07854, 70.07132, 70.06188, 70.06514, 
  70.02052, 70.00472, 69.99244, 69.98119, 69.97117, 69.93966, 69.93571, 69.93571, 69.93004, 69.92352, 
  69.92868, 69.92576, 69.92611, 69.92473, 69.91752, 69.89417, 69.88567, 69.88546, 69.88168, 69.87872, 
  69.84302, 69.83916, 69.81427, 69.79899, 69.7935, 69.79092, 69.78362, 69.76559, 69.73539, 69.73488, 
  69.73557, 69.73127, 69.73016, 69.73127, 69.72999, 69.71487, 69.71067, 69.70088, 69.69068, 69.68475, 
  69.67634, 69.6699, 69.66552, 69.65771, 69.65384, 69.63848, 69.60802, 69.59772, 69.58149, 69.5723, 
  69.55927, 69.52949, 69.52519, 69.49609, 69.49543, 69.50597, 69.50356, 69.49807, 69.4961, 69.50511, 
  69.54571, 69.54666, 69.46948, 69.46278, 69.46803, 69.45704, 69.45842, 69.44631, 69.44117, 69.42219, 
  69.41189, 69.40648, 69.40383, 69.39095, 69.3882, 69.42408, 69.42838, 69.43465, 69.44169, 69.44314, 
  69.43429, 69.43653, 69.45258, 69.45249, 69.44314, 69.42923, 69.42855, 69.43155, 69.42966, 69.41824, 
  69.42116, 69.41447, 69.40967, 69.40769, 69.40855, 69.4131, 69.40829, 69.40469, 69.40615, 69.39772, 
  69.39845, 69.39178, 69.39244, 69.39137, 69.38592, 69.38549, 69.38322, 69.38223, 69.38283, 69.38165, 
  69.38017, 69.36497, 69.35927, 69.35717, 69.35013, 69.34412, 69.34502, 69.34541, 69.32648, 69.31112, 
  69.3064, 69.30223, 69.30301, 69.29005, 69.29202, 69.28808, 69.28056, 69.27391, 69.27434, 69.26576, 
  69.2652, 69.26143, 69.26215, 69.26421, 69.26589, 69.26653, 69.25542, 69.24494, 69.23855, 69.23804, 
  69.24194, 69.24529, 69.24718, 69.2477, 69.26573, 69.27724, 69.28033, 69.29424, 69.31243, 69.27333, 
  69.27023, 69.27604, 69.29613, 69.28761, 69.28736, 69.29139, 69.28968, 69.29546, 69.29997, 69.30005, 
  69.30254, 69.31113, 69.31456, 69.31954, 69.31903, 69.33096, 69.32383, 69.3034, 69.30495, 69.29396, 
  69.29302, 69.27524, 69.27053, 69.19313, 69.11485, 69.04017, 69.02008, 68.98215, 68.96704, 68.95966, 
  68.9334, 68.90679, 68.89253, 68.85616, 68.79006, 68.78441, 68.77548, 68.75848, 68.72791, 68.72199, 
  68.70819, 68.64261, 68.57532, 68.47163, 68.43231, 68.43265, 68.44072, 68.44811, 68.45549, 68.45858, 
  68.46768, 68.49653, 68.5022, 68.51731, 68.5911, 68.5645, 68.54458, 68.54544, 68.53582, 68.52022, 
  68.49034, 68.47489, 68.46922, 68.46029, 68.4531, 68.42768, 68.37243, 68.27901, 68.25414, 68.26358, 
  68.1793, 68.17123, 68.14633, 68.11269, 68.07213, 68.0687, 68.05221, 68.04061, 68.01382, 68.00248, 
  67.99441, 67.97484, 67.93723, 67.93057, 67.91838, 67.91082, 67.90224, 67.88884, 67.85727, 67.81692, 
  67.81487, 67.80474, 67.7977, 67.77229, 67.75512, 67.74808, 67.71854, 67.71597, 67.67527, 67.66044, 
  67.64661, 67.63373, 67.59408, 67.5697, 67.56738, 67.58173, 67.58464, 67.59254, 67.60877, 67.59949, 
  67.61246, 67.62757, 67.63331, 67.63056, 67.63657, 67.65134, 67.65159, 67.64532, 67.6497, 67.75021, 
  67.7854, 67.7969, 67.79239, 67.78737, 67.77278, 67.76578, 67.73771, 67.7366, 67.73313, 67.7272, 
  67.72192, 67.71836, 67.68816, 67.67606, 67.65331, 67.64841, 67.63914, 67.60679, 67.59194, 67.54388, 
  67.5328, 67.51623, 67.48396, 67.46663, 67.38811, 67.29198, 67.27, 67.25059, 67.19688, 67.16889, 
  67.16742, 67.16561, 67.16085, 67.15909, 67.15613, 67.15578, 67.15441, 67.15158, 67.14707, 67.14741, 
  67.13832, 67.13428, 67.12788, 67.12621, 67.10437, 67.10274, 67.10295, 67.09085, 67.06991, 67.06068, 
  67.05339, 67.05085, 67.05111, 67.05292, 67.05193, 67.05352, 67.04691, 67.0445, 67.04347, 67.04107, 
  67.04094, 67.03888, 67.03811, 67.03454, 67.02395, 67.02395, 67.05081, 67.05206, 67.05875, 67.04927, 
  67.03935, 67.0421, 67.03837, 67.02644, 67.02477, 67.01442, 67.01305, 67.01103, 67.0082, 67.00485, 
  66.99978, 66.97953, 66.96734, 66.96339, 66.95799, 66.95576, 66.94859, 66.94601, 66.91958, 66.91683, 
  66.91563, 66.91468, 66.91228, 66.90957, 66.9006, 66.88739, 66.87009, 66.86649, 66.85559, 66.84902, 
  66.83409, 66.83186, 66.83014, 66.82255, 66.82306, 66.81963, 66.8174, 66.81465, 66.8156, 66.81216, 
  66.81276, 66.80748, 66.80581, 66.80199, 66.8019, 66.79787, 66.79628, 66.79087, 66.78486, 66.77941, 
  66.77563, 66.77593, 66.77477, 66.77495, 66.76911, 66.76503, 66.76031, 66.75821, 66.75533, 66.75362, 
  66.75392, 66.75327, 66.74258, 66.7371, 66.73538, 66.73113, 66.72894, 66.72873, 66.72045, 66.71564, 
  66.71555, 66.71877, 66.71792, 66.7101, 66.7153, 66.70234, 66.70165, 66.69221, 66.69191, 66.69534, 
  66.69621, 66.68805, 66.68796, 66.69174, 66.67912, 66.67367, 66.5784, 66.45391, 66.45433, 66.45167, 
  66.43467, 66.4339, 66.42694, 66.41501, 66.41518, 66.41261, 66.41063, 66.40737, 66.40669, 66.40489, 
  66.40107, 66.39824, 66.39059, 66.38714, 66.28791, 66.27847, 66.29272, 66.28654, 66.34817, 66.35607, 
  66.35263, 66.33924, 66.3492, 66.35641, 66.36689, 66.34181, 66.33924, 66.32516, 66.32362, 66.31212, 
  66.30044, 66.28602, 66.28808, 66.26302, 66.25633, 66.22903, 66.23178, 66.37348, 66.31831, 66.29189, 
  66.25136, 65.06498, 64.57113, 64.56564, 64.32906, 64.26591, 64.2508, 64.2484, 64.22882, 64.19104, 
  64.17833, 64.15915, 64.16293, 64.14576, 64.14198, 64.1619, 64.16946, 64.12515, 64.09733, 64.0599, 
  64.03002, 63.97754, 63.90885, 63.91297, 63.86352, 63.57635, 63.34752, 63.347, 63.30546, 63.23251, 
  62.4707, 60.86627,
  68.37347, 68.09659, 68.15947)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_difference(st_geometry(Geo_2), st_geometry(Geo))
if (length(Geo_0) > 1) {Geo_0 <- Geo_0[st_geometry_type(Geo_0) %in% c("POLYGON", "MULTIPOLYGON")]}
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, st_union(Geo_0[c(1, 176)]))
Geo_2 <- st_union(Geo_2, Geo)
Geo_0 <- Geometric_Operations(Geo_2, Geo_1)
Geo_2 <- st_set_geometry(Geo_2, Geo_0)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
Geo_2 <- Geo_2 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### CHINA #####
Geo_0 <- Geometric_Operations(Geo_3, Claimed_Area_2)
Geo_0 <- Geometric_Operations(Geo_0, Claimed_Area_4)
Geo_0 <- Geometric_Operations(Geo_0, Claimed_Area_5)
Geo_0 <- Geometric_Operations(Geo_0, Geo_1)
Geo_3 <- st_set_geometry(Geo_3, Geo_0)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(
  37.23409, 37.23314, 37.23117, 37.23075, 37.23015, 37.22993, 37.22899, 37.22763, 37.22336, 37.22233, 
  37.22102, 37.22095, 37.22138, 37.22496, 37.2225, 37.22243, 37.22455, 37.219, 37.21932, 37.21831, 
  37.21794, 37.21738, 37.21777, 37.21778, 37.21755, 37.21815, 37.21899, 37.21543, 37.21492, 37.21573, 
  37.2161, 37.21455, 37.21415, 37.21469, 37.2146, 37.21475, 37.21699, 37.21915, 37.22004, 37.22062, 
  37.22484, 37.227, 37.22955, 37.23054, 37.23632, 37.24024, 37.24427, 37.24469, 37.24522, 37.24692, 
  37.24913, 37.25108, 37.25158, 37.25223, 37.25501, 37.25933, 37.26003, 37.26049, 37.26043, 37.26131, 
  37.26352, 37.26471, 37.27545, 37.27593, 37.27655, 37.27702, 37.27956, 37.28459, 37.28355, 37.28613, 
  37.286, 37.285, 37.28474, 37.28394, 37.28318, 37.28265, 37.2823, 37.28048, 37.28063, 37.28209, 
  37.27465, 37.26849, 37.26581, 37.26653, 37.26619, 37.26497, 37.26287, 37.26201, 37.26107, 37.26026, 
  37.25913, 37.25729, 37.25499, 37.25142, 37.24862, 37.24323, 37.24253, 37.24075, 37.23822, 37.236, 
  37.23443, 37.23972, 37.24666, 37.24844, 37.25132, 37.25197, 37.25207, 37.2537, 37.25687, 37.26032, 
  37.26456, 37.26415, 37.26312, 37.26205, 37.26131, 37.26028, 37.2599, 37.25932, 37.25897, 37.25837, 
  37.25504, 37.25445, 37.25508, 37.25583, 37.25932, 37.25939, 37.25934, 37.25914, 37.25856, 37.25653, 
  37.25435, 37.2526, 37.24876, 37.24716, 37.24495, 37.24189, 37.23762, 37.2361, 37.23562, 37.23558, 
  37.23629, 37.23644, 37.23565, 37.23704, 37.23973, 37.23959, 37.23992, 37.24274, 37.24299, 37.24303, 
  37.24381, 37.24376, 37.24315, 37.24317, 37.2434, 37.24391, 37.24734, 37.24933, 37.24933, 37.24761, 
  37.24508, 37.24452, 37.24395, 37.24362, 37.24308, 37.24286, 37.24244, 37.24226, 37.24418, 37.23926, 
  37.23529, 37.22873, 37.22176, 37.21876, 37.21142, 37.20937, 37.20281, 37.20226, 37.19667, 37.18833, 
  37.18833, 37.18627, 37.18368, 37.17752, 37.17492, 37.16754, 37.16316, 37.16412, 37.15919, 37.15262, 
  37.14961, 37.14565, 37.14701, 37.14291, 37.13347, 37.12936, 37.12183, 37.11732, 37.11009, 37.09873, 
  37.09245, 37.09012, 37.08368, 37.07464, 37.06519, 37.06053, 37.06464, 37.07793, 37.0804, 37.07697, 
  37.06451, 37.05053, 37.0476, 37.04513, 37.03924, 37.0369, 37.03533, 37.03445, 37.03357, 37.03227, 
  37.03168,
  37.03085, 37.03007, 37.02971, 37.03018, 37.02961, 37.02971, 37.03093, 37.03057, 37.03364, 37.03485, 
  37.03619, 37.03614, 37.0372, 37.03732, 37.04004, 37.03967, 37.04212, 37.04176, 37.04445, 37.04484, 
  37.04729, 37.05981, 37.06636, 37.06951, 37.06945, 37.07628, 37.07902, 37.08245, 37.08408, 37.08398, 
  37.08235, 37.07693, 37.07454, 37.06868, 37.06543, 37.05711, 37.04121, 37.03727, 37.03467, 37.02943, 
  37.02422, 37.02162, 37.02484, 37.02199, 37.02206, 37.0258, 37.02754, 37.02792, 37.03121, 37.04166, 
  37.04467, 37.05204, 37.05876, 37.05856, 37.05712, 37.04282, 37.02905, 37.01757, 37.00264, 36.9659, 
  36.96048, 36.95314, 36.94669, 36.9364, 36.93366, 36.93462, 36.92968, 36.92975, 36.93331, 36.93386, 
  36.93818, 36.94443, 36.94594, 36.94544, 36.94647, 36.95494, 36.95892, 36.97291, 36.97751, 36.9785, 
  36.97943, 36.98546, 36.98741, 36.98889, 36.98789, 36.99026, 36.99537, 36.99687, 36.99722, 36.99646, 
  36.99019, 36.98944, 36.99098, 37.00123, 37.0002, 37.00318, 37.01158, 37.01627, 37.0135, 37.00757, 
  37.00208, 37.00219, 37.00767, 37.01106, 37.00796, 37.00677, 37.01004, 37.01137, 37.01257, 37.0245, 
  37.02645, 37.02693, 37.02556, 37.01819, 37.01576, 37.01661, 37.01274, 37.00969, 37.0051, 37.00054, 
  36.99797, 36.993, 36.99002, 36.98577, 36.98611, 36.98153, 36.97728, 36.97426, 36.97652, 36.97179, 
  36.96665, 36.95911, 36.95888, 36.96746, 36.97216, 36.97449, 36.97432, 36.97236, 36.96512, 36.9691, 
  36.96979, 36.96761, 36.96516, 36.96002, 36.95677, 36.9469, 36.94709, 36.95021, 36.95227, 36.95446, 
  36.95505, 36.95505, 36.95371, 36.95117, 36.94558, 36.9366, 36.93334, 36.92967, 36.92754, 36.92586, 
  36.92129, 36.91556, 36.90335, 36.88948, 36.88811, 36.88629, 36.88125, 36.8786, 36.87465, 36.8683, 
  36.85519, 36.85069, 36.85007, 36.84994, 36.84798, 36.84341, 36.83616, 36.8351, 36.80085, 36.79048, 
  36.77336, 36.74677, 36.72435, 36.71586, 36.72377, 36.73904, 36.72384, 36.72061, 36.7215, 36.7334, 
  36.74316, 36.75647, 36.76259, 36.77012, 36.77146, 36.77077, 36.77455, 36.77397, 36.76891, 36.76658, 
  36.77029, 36.76493, 36.74677, 36.74732, 36.75214, 36.66824, 36.63844, 36.62921, 36.60083, 36.60283, 
  36.60007, 36.59797, 36.59256, 36.58126, 36.57299, 36.5683, 36.56462, 36.55594, 36.53725, 36.53601, 
  36.5309, 36.52256, 36.47018, 36.41756, 36.40913, 36.38088, 36.35606, 36.35302, 36.35015, 36.34161, 
  36.32986, 36.32419, 36.30746, 36.30033, 36.2694, 36.2458, 36.23867, 36.22739, 36.22372, 36.22413, 
  36.22898, 36.23438, 36.23632, 36.23611, 36.2339, 36.17268, 36.1627, 36.16367, 36.15868, 36.14926, 
  36.13553, 36.12694, 36.11917, 36.11141, 36.10762, 36.10495, 36.10045, 36.09324, 36.08783, 36.08228, 
  36.07839, 36.07604, 36.07354, 36.07049, 36.0666, 36.0653, 36.06458, 36.06159, 36.04592, 36.01677, 
  36.02427, 36.02246, 36.01607, 36.01149, 36.00906, 35.99733, 35.96802, 35.95663, 35.91674, 35.89115, 
  35.86445, 35.84984, 35.83745, 35.82262, 35.82102, 35.82422, 35.82398, 35.8293, 35.8413, 35.84231, 
  35.84288, 35.83237, 35.83696, 35.83696, 35.83021, 35.82833, 35.83132, 35.85449, 35.8636, 35.85261, 
  35.86764, 35.8764, 35.88871, 35.89083, 35.89131, 35.89058, 35.88801, 35.88961, 35.88829, 35.88628, 
  35.88169, 35.89733, 35.9006, 35.90279, 35.90741, 35.92486, 35.9284, 35.92719, 35.92215, 35.92517, 
  35.91964, 35.91624, 35.91064, 35.90021, 35.87647, 35.87091, 35.86806, 35.86333, 35.84332, 35.82255, 
  35.81966, 35.81347, 35.80708, 35.80438, 35.79873, 35.78253, 35.77863, 35.77549, 35.77145, 35.76143, 
  35.76818, 35.77034, 35.76985, 35.76547, 35.76201, 35.76031, 35.75794, 35.75613, 35.75505, 35.75557, 
  35.75491, 35.75167, 35.74868, 35.74544, 35.74025, 35.73363, 35.72969, 35.72471, 35.72492, 35.70987, 
  35.70025, 35.70011, 35.69816, 35.69342, 35.68826, 35.68686, 35.68509, 35.68157, 35.67473, 35.668, 
  35.66232, 35.65964, 35.66014, 35.65805,
  35.662, 35.66124, 35.66427, 35.66457, 35.66999, 35.66626, 35.66891, 35.66858, 35.67454, 35.66863, 
  35.65219, 35.64049, 35.62402, 35.61907, 35.61126, 35.61049, 35.59472, 35.60142, 35.59904, 35.61014, 
  35.6086, 35.61077, 35.60079, 35.6003, 35.57091, 35.5654, 35.56463, 35.55632, 35.55688, 35.55157, 
  35.54103, 35.53865, 35.53816, 35.53886, 35.53614, 35.53216, 35.52831, 35.52185, 35.52294, 35.52975, 
  35.5309, 35.54008, 35.53631, 35.53799, 35.54448, 35.54155, 35.54131, 35.54553, 35.54249, 35.53705, 
  35.53858, 35.53415, 35.53146, 35.52444, 35.51798, 35.51497, 35.5126, 35.51057, 35.50369, 35.4942, 
  35.49986, 35.49826, 35.49015, 35.48318, 35.47346, 35.47252, 35.47042, 35.47067, 35.47259, 35.47378, 
  35.47049, 35.47133, 35.46577, 35.46637, 35.4634, 35.46182, 35.46284, 35.48017, 35.48388, 35.48933, 
  35.48479, 35.48653, 35.48632, 35.4843, 35.48856, 35.488, 35.48416, 35.48353, 35.48674, 35.4843, 
  35.47975, 35.46979, 35.46584, 35.4729, 35.46242, 35.46808, 35.47682, 35.48339, 35.48667, 35.46675, 
  35.46521, 35.46193, 35.45326, 35.45186, 35.46137, 35.46396, 35.46147, 35.46951, 35.47399, 35.47633, 
  35.49691, 35.49778, 35.50264, 35.5018, 35.4996, 35.49824, 35.5047, 35.50952, 35.51944, 35.52325, 
  35.52283, 35.51413, 35.50767, 35.50571, 35.50355, 35.50544, 35.50404, 35.49684, 35.49069, 
  35.50009, 35.50026, 35.49076, 35.48692, 35.47961, 35.47965, 35.47423, 35.47423, 35.46605, 35.46518, 
  35.4628, 35.4621, 35.46373, 35.4653, 35.46895, 35.47399, 35.47703, 35.47797, 35.48367, 35.48838, 
  35.49059, 35.49722, 35.49097, 35.48412, 35.47863, 35.48377, 35.48112, 35.48124, 35.48267, 35.48748, 
  35.49576, 35.49317, 35.49142, 35.49115, 35.48971, 35.49132, 35.49425, 35.49221, 35.489, 35.48424, 
  35.46836, 35.47053, 35.46979, 35.47423, 35.47601, 35.48873, 35.4995, 35.49324, 35.49247, 35.48978, 
  35.47011, 35.43494, 35.39969, 35.35882, 35.23945, 35.23889, 35.22886, 35.22943, 35.17788, 35.17577, 
  35.16616, 35.11977, 35.07033, 35.0359, 35.01088, 34.99316, 34.98332, 34.97234, 34.95476, 34.93802, 
  34.90212, 34.89684, 34.89135, 34.8891, 34.88076, 34.86741, 34.85255, 34.83917, 34.81113, 34.80492, 
  34.77236, 34.76968, 34.73555, 34.72031, 34.70126, 34.67614, 34.66117, 34.63476, 34.61527, 34.60354, 
  34.60721, 34.59054, 34.57075, 34.56058, 34.54184, 34.54347, 34.56899, 34.56814, 34.58008, 34.58418, 
  34.57351, 34.57726, 34.57181, 34.57153, 34.54008, 34.51172, 34.50443, 34.50719, 34.51851, 34.52806, 
  34.53986, 34.53795, 34.54389, 34.52671, 34.52767, 34.52516, 34.50054, 34.48187, 34.48038, 34.47883, 
  34.46595, 34.4593, 34.45632, 34.43934, 34.44273, 34.43566, 34.41796, 34.41781, 34.39544, 34.39076, 
  34.37922, 34.37079, 34.3586, 34.3535, 34.3654, 34.36533, 34.37996, 34.38928, 34.38673, 34.3715, 
  34.35477, 34.35392, 34.33592, 34.3338, 34.32515, 34.31664, 34.31523, 34.29864, 34.28048, 34.23522, 
  34.22486, 34.15358, 34.14932, 34.14292, 34.14108, 34.14775, 34.14811, 34.16558, 34.16565, 34.14157, 
  34.14243, 34.13497, 34.12843, 34.12474, 34.13781, 34.08963, 34.09489, 34.08892, 34.08394, 34.07954, 
  34.0919, 34.0747, 34.06503, 34.06077, 34.05579, 34.03147, 34.01496, 34.00016, 33.921, 33.91445, 
  33.88951, 33.88502, 33.83535, 33.78428, 33.77358, 33.75903, 33.74518, 33.71963, 33.67807, 33.66507, 
  33.6635, 33.63978, 33.62248, 33.62763, 33.62334, 33.56886, 33.5049, 33.48321, 33.47534, 33.42514, 
  33.41024, 33.37139, 33.34214, 33.32465, 33.3245, 33.26051, 33.245, 33.23553, 33.19963, 33.20049, 
  33.17147, 33.16026, 33.13468, 33.10535, 33.01507, 33.0135, 33.01363, 33.01302, 33.01048, 33.0074, 
  33.00352, 32.99873, 32.99679, 32.99481, 32.99153, 32.98678, 32.98415, 32.98289, 32.98736, 32.98707, 
  32.98286, 32.98066, 32.97915, 32.97256, 32.96954, 32.96716, 32.96594, 32.96161, 32.96129, 32.96226, 
  32.96532, 32.96752, 32.96961, 32.97101, 32.9717, 32.97468, 32.97512, 32.97479, 32.97368, 32.97076, 
  32.96662, 32.96212, 32.96179, 32.96201, 32.96392, 32.96493, 32.96471, 32.96678, 32.96597, 32.96311, 
  32.96277, 32.95747, 32.95583, 32.95407, 32.95006, 32.94307, 32.94019, 32.93612, 32.93345, 32.93075, 
  32.9279, 32.9269, 32.92531, 32.92326, 32.92084, 32.91767, 32.91159, 32.90445, 32.90031, 32.89782, 
  32.89602, 32.89216, 32.88838, 32.88561, 32.8847, 32.88607, 32.8846, 32.88125, 32.87115, 32.85219, 
  32.85226, 32.85165, 32.84992, 32.84563, 32.84239, 32.84213, 32.84058, 32.82814, 32.79189, 32.78598, 
  32.7431, 32.74238, 32.74419, 32.74144, 32.73625, 32.73444, 32.73487, 32.72751, 32.72347, 32.71769, 
  32.70989, 32.70332, 32.69934, 32.6906, 32.68793, 32.67955, 32.63966, 32.63395, 32.61812, 32.60149, 
  32.56569, 32.56135, 32.56128, 32.53813, 32.53348, 32.52695, 32.52348, 32.52011, 32.51897, 32.52002, 
  32.52326, 32.52585, 32.52594, 32.52433, 32.53249, 32.53205, 32.52655, 32.539, 32.54269, 32.54978, 
  32.55256, 32.55427, 32.55879, 32.56537, 32.56367, 32.55976, 32.55846, 32.56009, 32.55665, 32.55112, 
  32.55011, 32.54828, 32.54629, 32.54546, 32.54292, 32.53941, 32.54245, 32.54623, 32.54725, 32.55005, 
  32.55134, 32.55602, 32.54515, 32.53856, 32.53603, 32.53762, 32.52677, 32.52141, 32.51667, 32.51859, 
  32.52467, 32.52239, 32.50965, 32.51599, 32.51085, 32.49767, 32.49423, 32.49673, 32.4946, 32.48812, 
  32.47689, 32.48088, 32.47711, 32.4749, 32.4711, 32.46944, 32.46625, 32.4614, 32.45886, 32.45553, 
  32.45452, 32.44771, 32.43793, 32.43474, 32.42167, 32.4191, 32.41736, 32.39493, 32.37351, 32.36996, 
  32.37235, 32.37953, 32.38721, 32.37982, 32.3833, 32.37126, 32.33762, 32.33575, 32.36343, 32.36815, 
  32.38112, 32.38641, 32.38938, 32.39457, 32.39493, 32.39801, 32.40047, 32.39823, 32.40185, 32.41353, 
  32.41442, 32.41062, 32.41743, 32.4279, 32.42879, 32.44154, 32.47573, 32.47906, 32.51684, 32.56718, 
  32.57942, 32.5813, 32.61644, 32.61912, 32.63047, 32.64131, 32.64637, 32.65533, 32.66321, 32.6679, 
  32.67144, 32.68069, 32.68662, 32.69088, 32.69586, 32.69377, 32.67419, 32.66783, 32.65555, 32.64456, 
  32.64297, 32.63589, 32.6304, 32.61034, 32.60492, 32.60373, 32.60008, 32.60105, 32.61587, 32.61718, 
  32.62122, 32.62419, 32.62397, 32.61587, 32.61587, 32.62195, 32.62334, 32.61711, 32.61886, 32.61355, 
  32.61414, 32.61257, 32.61226, 32.61376, 32.61154, 32.61523, 32.6179, 32.61806, 32.61792, 32.61631, 
  32.61543, 32.6136, 32.61356, 32.61485, 32.61367, 32.61232, 32.60599, 32.60294, 32.60077, 32.60086, 
  32.59346, 32.58453, 32.58326, 32.58315, 32.58522, 32.57744, 32.57625, 32.57654, 32.58127, 32.57965, 
  32.58127, 32.57632, 32.57397, 32.57241, 32.57042, 32.56898, 32.5663, 32.5595, 32.55498, 32.55484, 
  32.54764, 32.54156, 32.54076, 32.53809, 32.53701, 32.53538, 32.53303, 32.53241, 32.53118, 32.53051, 
  32.52934, 32.52784, 32.52722, 32.5271, 32.52614, 32.52619, 32.52606, 32.52549, 32.52359, 32.52272, 
  32.52194, 32.51949, 32.51815, 32.51652, 32.50411, 32.50119, 32.49071, 32.48632, 32.48038, 32.47551, 
  32.47462, 32.47134, 32.469, 32.46059, 32.45438, 32.44712, 32.44431, 32.44347, 32.39565, 32.38937, 
  32.38088, 32.3648, 32.36646, 32.35981, 32.34355, 32.33393, 32.3258, 32.32431, 32.30324, 32.29529, 
  32.27568, 32.27415, 32.27581, 32.26214, 32.24659, 32.24363, 32.20216, 32.20013, 32.17439, 32.16791, 
  32.15828, 32.1379, 32.12573, 32.11585, 32.1173, 32.11483, 32.09374, 32.08007, 32.06157, 32.0018, 
  32.0036, 31.96657, 31.94772, 31.94575, 31.92807, 31.90165, 31.89102, 31.88519, 31.87471, 31.8594, 
  31.85465, 31.83178, 31.80767, 31.77387, 31.75803, 31.72403, 31.71909, 31.68914, 31.68491, 31.67998, 
  31.67504, 31.68242, 31.67776, 31.66894, 31.64778, 31.63914, 31.63773, 31.62167, 31.60683, 31.59765, 
  31.59801, 31.57895, 31.57733, 31.5659, 31.55619, 31.54351, 31.54859, 31.53232, 31.51329, 31.48283, 
  31.48155, 31.45045, 31.44071, 31.38481, 31.35834, 31.30409, 31.30643, 31.2988, 31.29538, 31.30026, 
  31.30895, 31.31509, 31.30347, 31.28629, 31.29058, 31.36563, 31.34265, 31.34957, 31.38341, 31.39178, 
  31.42565, 31.42998, 31.4591, 31.43243, 31.38563, 31.37434, 31.36304, 31.33494, 31.31638, 31.29313, 
  31.27527, 31.2607, 31.21915, 31.14765, 31.11404, 31.11072, 31.07318, 31.06808, 31.02314, 31.03492, 
  31.03215, 30.9568, 30.93447, 30.96688, 30.98336, 30.97113, 30.98094, 31.00564, 30.97159, 30.97563, 
  30.96476, 30.91753, 30.91454, 30.87933, 30.8887, 30.83691, 30.84116, 30.82056, 30.79541, 30.77964, 
  30.77984, 30.78624, 30.79262, 30.78963, 30.80754, 30.80859, 30.77495, 30.76599, 30.75149, 30.76235, 
  30.74274, 30.71972, 30.70906, 30.69049, 30.6856, 30.66555, 30.64186, 30.58827, 30.57867, 30.5787, 
  30.56481, 30.56418, 30.52059, 30.52764, 30.51739, 30.52465, 30.52337, 30.5176, 30.49686, 30.49647, 
  30.49059, 30.49026, 30.4846, 30.48793, 30.48785, 30.47506, 30.47225, 30.46562, 30.45852, 30.4529, 
  30.4519, 30.44829, 30.44872, 30.45096, 30.45264, 30.45227, 30.45447, 30.4601, 30.46383, 30.46476, 
  30.46398, 30.46439, 30.46561, 30.46685, 30.46803, 30.46857, 30.46829, 30.46868, 30.46798, 30.47147, 
  30.47101, 30.47143, 30.46533, 30.45925, 30.45901, 30.4628, 30.45649, 30.4561, 30.45029, 30.45092, 
  30.43813, 30.42799,  30.42385, 30.42191, 30.42142, 30.42024, 30.41498, 30.41295, 30.41362, 30.41743,
  30.41761, 30.41336, 30.362, 30.35529, 30.35388, 30.34682, 30.34011, 30.33299, 30.32299, 30.32247, 
  30.31462, 30.31334, 30.3167, 30.31418, 30.30121, 30.2998, 30.30373, 30.3018, 30.29787, 30.28683, 
  30.28305, 30.2769, 30.27305, 30.26704, 30.26348, 30.2663, 30.2701, 30.27054, 30.2648, 30.26016, 
  30.25586, 30.25368, 30.2519, 30.24915, 30.24778, 30.24708, 30.24107, 30.23859, 30.23725, 30.23343, 
  30.23102, 30.22746, 30.22646, 30.22617, 30.22554, 30.22038, 30.21945, 30.21786, 30.21615, 30.21515,
  30.21133, 30.21085, 30.20513, 30.20224, 30.2016, 30.20073, 30.19981, 30.19871, 30.19719, 
  30.18750, 37.10435)
LONGITUDE_VALUEs <- c(
  74.88985, 74.88961, 74.88844, 74.88872, 74.88854, 74.88792, 74.88826, 74.88779, 74.88843, 74.88787, 
  74.88253, 74.88073, 74.8786, 74.87178, 74.86729, 74.86457, 74.85856, 74.855, 74.84629, 74.84592, 
  74.84543, 74.84304, 74.84173, 74.84076, 74.83919, 74.83639, 74.83502, 74.83096, 74.82689, 74.8213, 
  74.82025, 74.81759, 74.8127, 74.81018, 74.80979, 74.80908, 74.80649, 74.80529, 74.80543, 74.80496, 
  74.80379, 74.80263, 74.7992, 74.79891, 74.80197, 74.79889, 74.79769, 74.79816, 74.79805, 74.79436, 
  74.79166, 74.78131, 74.78007, 74.77937, 74.77799, 74.77806, 74.77759, 74.77669, 74.7749, 74.77284, 
  74.77192, 74.76731, 74.75676, 74.75663, 74.7572, 74.75707, 74.75303, 74.7494, 74.74439, 74.74104, 
  74.73775, 74.73566, 74.73119, 74.72883, 74.72749, 74.7275, 74.72705, 74.72192, 74.71966, 74.71537, 
  74.70834, 74.70343, 74.69806, 74.68989, 74.68787, 74.68685, 74.68605, 74.68505, 74.68227, 74.68135, 
  74.68089, 74.67873, 74.67724, 74.676, 74.67397, 74.66743, 74.66605, 74.66541, 74.66553, 74.66386, 
  74.65822, 74.64532, 74.64406, 74.64434, 74.64663, 74.64612, 74.64449, 74.64337, 74.63734, 74.63566, 
  74.63042, 74.62975, 74.62917, 74.62908, 74.62842, 74.62532, 74.62485, 74.62475, 74.6244, 74.62143, 
  74.61734, 74.61478, 74.6102, 74.60503, 74.59582, 74.59496, 74.59438, 74.59391, 74.59343, 74.59108, 
  74.59015, 74.59035, 74.58852, 74.58857, 74.59015, 74.58786, 74.5855, 74.58345, 74.58204, 74.58051, 
  74.57848, 74.57343, 74.57094, 74.57059, 74.56762, 74.56367, 74.56211, 74.55763, 74.55654, 74.55606, 
  74.55412, 74.55292, 74.55171, 74.55132, 74.55074, 74.55052, 74.54561, 74.5435, 74.54279, 74.54116, 
  74.53959, 74.53853, 74.53804, 74.53727, 74.53659, 74.53619, 74.53428, 74.52878, 74.51831, 74.50096, 
  74.50113, 74.49753, 74.50199, 74.49667, 74.49572, 74.48662, 74.48147, 74.47237, 74.46842, 74.47529, 
  74.48079, 74.48319, 74.48267, 74.48989, 74.4868, 74.48697, 74.4826, 74.47899, 74.46921, 74.47247, 
  74.47075, 74.46079, 74.4577, 74.45598, 74.46182, 74.46074, 74.47465, 74.49131, 74.49207, 74.48471, 
  74.486, 74.49596, 74.4951, 74.4975, 74.49493, 74.50111, 74.50918, 74.51364, 74.52635, 74.53357, 
  74.53786, 74.53253, 74.53551, 74.55354, 74.56127, 74.56209, 74.56331, 74.56353, 74.56439, 74.56504, 
  74.56497,
  74.56462, 74.56537, 74.56747, 74.56955, 74.57176, 74.57296, 74.57432, 74.58011, 74.58563, 74.5918, 
  74.59412, 74.59717, 74.59925, 74.60225, 74.60545, 74.60721, 74.61084, 74.61517, 74.61858, 74.62019, 
  74.62431, 74.6224, 74.63571, 74.64592, 74.6515, 74.65566, 74.65909, 74.66798, 74.69057, 74.69748, 
  74.70199, 74.70617, 74.70699, 74.70562, 74.7072, 74.72145, 74.71664, 74.71742, 74.72325, 74.72454, 
  74.73107, 74.73926, 74.76368, 74.77145, 74.77415, 74.77771, 74.78123, 74.78882, 74.7944, 74.79101, 
  74.79226, 74.80147, 74.83676, 74.83917, 74.84106, 74.84108, 74.84614, 74.83987, 74.85762, 74.88363, 
  74.88019, 74.88113, 74.88577, 74.8837, 74.88826, 74.89856, 74.90611, 74.91015, 74.91333, 74.92045, 
  74.92105, 74.91633, 74.91607, 74.93188, 74.93235, 74.92995, 74.92471, 74.92103, 74.91699, 74.91703, 
  74.9287, 74.93888, 74.94394, 74.95146, 74.95802, 74.96648, 74.97115, 74.9736, 74.97596, 74.9775, 
  74.98154, 74.98467, 74.99223, 75.00484, 75.0099, 75.0148, 75.02119, 75.02926, 75.04325, 75.0436, 
  75.0605, 75.0714, 75.08046, 75.10552, 75.1103, 75.11456, 75.11495, 75.11697, 75.12551, 75.13436, 
  75.1377, 75.1435, 75.14651, 75.15204, 75.15204, 75.16114, 75.16624, 75.16805, 75.16569, 75.15942, 
  75.1583, 75.15809, 75.15938, 75.16942, 75.17341, 75.17544, 75.18179, 75.19502, 75.19845, 75.21631, 
  75.21614, 75.23347, 75.23615, 75.26778, 75.27074, 75.28537, 75.2934, 75.29833, 75.30743, 75.31359, 
  75.31577, 75.31856, 75.32018, 75.32202, 75.35895, 75.37535, 75.38541, 75.39404, 75.39326, 75.39395, 
  75.39623, 75.39949, 75.40172, 75.40232, 75.40957, 75.40588, 75.39412, 75.38837, 75.38704, 75.38721, 
  75.39009, 75.39065, 75.38558, 75.42026, 75.42189, 75.42262, 75.41945, 75.42, 75.42279, 75.42284, 
  75.42558, 75.42726, 75.42819, 75.4293, 75.42938, 75.42679, 75.42833, 75.43185, 75.42178, 75.42685, 
  75.41964, 75.44354, 75.45161, 75.46933, 75.47491, 75.49938, 75.51491, 75.53028, 75.5326, 75.5374, 
  75.53669, 75.52733, 75.53381, 75.53313, 75.5339, 75.54987, 75.56712, 75.56815, 75.5685, 75.57383, 
  75.6406, 75.6734, 75.69828, 75.71236, 75.7206, 75.86692, 75.88848, 75.91098, 75.93637, 75.94503, 
  75.94237, 75.93945, 75.94032, 75.93466, 75.92538, 75.92384, 75.92578, 75.9396, 75.95265, 75.95762, 
  75.96355, 75.9644, 76.00919, 76.02828, 76.03532, 76.00314, 75.99438, 75.98671, 75.98452, 75.98516, 
  75.99344, 75.99532, 75.99507, 76.01721, 76.02682, 76.05755, 76.05781, 76.06176, 76.05618, 76.04759, 
  76.03446, 76.03282, 76.02784, 76.01273, 76.00647, 76.01332, 75.98963, 75.96954, 75.96387, 75.96782, 
  75.93264, 75.93195, 75.9462, 75.94895, 75.9398, 75.93736, 75.94259, 75.94534, 75.94379, 75.95324, 
  75.95444, 75.94379, 75.94173, 75.94208, 75.95221, 75.95345, 75.95182, 75.94924, 75.957, 76.00473, 
  76.0473, 76.08629, 76.10106, 76.10355, 76.09805, 76.09794, 76.11391, 76.13398, 76.15923, 76.14859, 
  76.15288, 76.14086, 76.14481, 76.16484, 76.17085, 76.1778, 76.20159, 76.21961, 76.22163, 76.22459, 
  76.29897, 76.30852, 76.31625, 76.3219, 76.34053, 76.35934, 76.35667, 76.35144, 76.36645, 76.42714, 
  76.44559, 76.44908, 76.46379, 76.46856, 76.47277, 76.47728, 76.48127, 76.49322, 76.50387, 76.50928, 
  76.51246, 76.53134, 76.5371, 76.54573, 76.54281, 76.54388, 76.54787, 76.55589, 76.56156, 76.56663, 
  76.58306, 76.58533, 76.584, 76.59885, 76.58052, 76.57236, 76.57322, 76.58292, 76.58757, 76.56109, 
  76.5659, 76.56521, 76.57013, 76.57837, 76.57785, 76.59116, 76.58489, 76.58653, 76.60241, 76.61545, 
  76.62575, 76.63347, 76.64223, 76.64867, 76.64727, 76.64819, 76.65188, 76.6577, 76.66434, 76.67155, 
  76.67859, 76.68696, 76.6913, 76.69409, 76.69692, 76.69344, 76.69546, 76.69623, 76.7031, 76.72695, 
  76.73115, 76.73476, 76.73931, 76.7436, 76.74523, 76.75034, 76.75369, 76.75687, 76.75451, 76.75532, 
  76.75992, 76.76683, 76.77209, 76.776, 
  76.78273, 76.78903, 76.79281, 76.80459, 76.81508, 76.82193, 76.83426, 76.8381, 76.84443, 76.85334, 
  76.85976, 76.87977, 76.89951, 76.8996, 76.91847, 76.93194, 76.96714, 76.97246, 76.98319, 76.99496, 
  77.00114, 77.01083, 77.02663, 77.06198, 77.08757, 77.09563, 77.11193, 77.12146, 77.12627, 77.13648, 
  77.14533, 77.15202, 77.1558, 77.16206, 77.16962, 77.1758, 77.17906, 77.19399, 77.2121, 77.2257, 
  77.24935, 77.2647, 77.27278, 77.2829, 77.29346, 77.29496, 77.30067, 77.30264, 77.31072, 77.31329, 
  77.319, 77.32782, 77.32807, 77.33824, 77.3394, 77.33657, 77.33691, 77.33979, 77.33992, 77.35636, 
  77.36207, 77.37153, 77.3705, 77.37682, 77.38137, 77.38927, 77.39193, 77.39545, 77.39948, 77.40759, 
  77.41944, 77.42437, 77.43034, 77.43176, 77.43648, 77.44231, 77.44674, 77.48071, 77.48242, 77.50097, 
  77.5171, 77.51924, 77.52199, 77.5244, 77.53453, 77.54062, 77.54267, 77.55006, 77.55933, 77.57195, 
  77.5826, 77.57861, 77.59213, 77.60499, 77.62954, 77.64199, 77.6377, 77.6389, 77.65202, 77.67185, 
  77.67838, 77.68241, 77.68679, 77.69065, 77.69512, 77.6995, 77.7189, 77.73478, 77.72804, 77.72829, 
  77.74316, 77.75444, 77.75731, 77.76495, 77.76877, 77.77993, 77.78265, 77.79794, 77.80332, 77.81207, 
  77.81345, 77.82267, 77.82653, 77.82632, 77.82971, 77.83345, 77.84006, 77.84426, 77.85357,
  77.86001, 77.86259, 77.87649, 77.87593, 77.8822, 77.88892, 77.8934, 77.8967, 77.90129, 77.90606, 
  77.90875, 77.91098, 77.91267, 77.91207, 77.91358, 77.91799, 77.91898, 77.91829, 77.92147, 77.91735, 
  77.91821, 77.92404, 77.93563, 77.93953, 77.94767, 77.95546, 77.964, 77.9666, 77.96825, 77.96768, 
  77.96893, 77.98704, 77.98696, 77.9921, 77.99472, 77.99807, 78.0006, 78.00434, 78.00717, 78.00797, 
  78.02498, 78.02905, 78.03343, 78.03609, 78.0345, 78.03978, 78.09819, 78.13591, 78.13716, 78.13677, 
  78.11028, 78.10414, 78.05401, 78.02287, 78.00303, 78.00767, 78.00535, 78.01088, 78.05498, 78.08813, 
  78.10432, 78.10305, 78.14631, 78.11421, 78.14288, 78.15215, 78.18305, 78.20142, 78.20193, 78.17343, 
  78.20759, 78.20314, 78.20314, 78.22537, 78.23584, 78.23589, 78.22817, 78.23452, 78.22559, 78.23162, 
  78.22698, 78.21256, 78.20192, 78.20862, 78.27196, 78.27797, 78.26198, 78.26938, 78.28981, 78.35694, 
  78.38407, 78.42941, 78.43124, 78.42644, 78.43562, 78.44618, 78.45931, 78.47493, 78.4836, 78.49819, 
  78.51347, 78.53158, 78.54247, 78.55201, 78.56042, 78.55947, 78.57999, 78.58832, 78.59381, 78.59149, 
  78.61398, 78.62504, 78.63389, 78.68727, 78.70461, 78.7101, 78.71783, 78.76144, 78.76213, 78.75723, 
  78.75697, 78.73851, 78.73843, 78.76566, 78.78317, 78.80583, 78.82438, 78.846, 78.87759, 78.87851, 
  78.86726, 78.87232, 78.8882, 78.90529, 78.90632, 78.92639, 78.9324, 78.94721, 78.9651, 78.9636, 
  78.98674, 78.99791, 79.03053, 79.03963, 79.0453, 79.02882, 78.97987, 78.98519, 78.96943, 78.95878, 
  78.94351, 78.92307, 78.90812, 78.90881, 78.90452, 78.89936, 78.89018, 78.87189, 78.8621, 78.85353, 
  78.84185, 78.83498, 78.83524, 78.82606, 78.79465, 78.74386, 78.70746, 78.69217, 78.69578, 78.68118, 
  78.66933, 78.65697, 78.66918, 78.66969, 78.65355, 78.6563, 78.72052, 78.74249, 78.72978, 78.76247, 
  78.76144, 78.75122, 78.76516, 78.75434, 78.7643, 78.76326, 78.77631, 78.76309, 78.74301, 78.72498, 
  78.71278, 78.69595, 78.71828, 78.75073, 78.75777, 78.73287, 78.7853, 78.81474, 78.81002, 78.83708, 
  78.90232, 78.95415, 78.96067, 78.99551, 79.02024, 79.04466, 79.07969, 79.0663, 79.10749, 79.12947, 
  79.16519, 79.1518, 79.15864, 79.14285, 79.16045, 79.16128, 79.16221, 79.16427, 79.16809, 79.16925, 
  79.16822, 79.16938, 79.17178, 79.17573, 79.17642, 79.17466, 79.17646, 79.17951, 79.18698, 79.18916, 
  79.19337, 79.20032, 79.20238, 79.20277, 79.20157, 79.20255, 79.21032, 79.21478, 79.21706, 79.22006, 
  79.22337, 79.22405, 79.22362, 79.22474, 79.2283, 79.23272, 79.23513, 79.23744, 79.23912, 79.24019, 
  79.24354, 79.24362, 79.24435, 79.24534, 79.24727, 79.25049, 79.25324, 79.25806, 79.26357, 79.26538, 
  79.26926, 79.27379, 79.27617, 79.28224, 79.28507, 79.28559, 79.28465, 79.28555, 79.29096, 79.29469, 
  79.30632, 79.30757, 79.30778, 79.30662, 79.3022, 79.30117, 79.3022, 79.31181, 79.31392, 79.31203, 
  79.30671, 79.30284, 79.30211, 79.30349, 79.30838, 79.31456, 79.3192, 79.32181, 79.32194, 79.34186, 
  79.34679, 79.34898, 79.35065, 79.35185, 79.35533, 79.35803, 79.361, 79.36949, 79.39086, 79.40683, 
  79.42371, 79.42233, 79.41967, 79.41538, 79.41478, 79.41658, 79.42319, 79.44027, 79.4413, 79.45177, 
  79.46061, 79.45915, 79.45667, 79.4468, 79.44009, 79.43322, 79.41384, 79.41641, 79.40319, 79.39933, 
  79.39916, 79.40422, 79.41203, 79.41358, 79.41781, 79.41794, 79.41322, 79.41339, 79.40903, 79.40465, 
  79.40311, 79.39953, 79.3974, 79.39384, 79.36706, 79.36139, 79.35589, 79.33666, 79.33375, 79.33443, 
  79.33975, 79.33992, 79.33348, 79.33121, 79.32627, 79.3237, 79.31829, 79.31112, 79.30778, 79.30808, 
  79.30421, 79.30338, 79.29994, 79.29913, 79.29842, 79.29247, 79.29048, 79.28295, 79.28239, 79.28342, 
  79.28252, 79.27606, 79.26913, 79.2675, 79.26166, 79.25779, 79.25101, 79.25247, 79.24809, 79.23465, 
  79.22332, 79.2207, 79.22096, 79.18827, 79.18251, 79.18346, 79.16435, 79.15955, 79.15551, 79.15085, 
  79.14896, 79.13153, 79.12904, 79.12955, 79.13208, 79.13204, 79.12809, 79.12759, 79.11952, 79.11943, 
  79.11737, 79.12098, 79.11724, 79.12222, 79.12638, 79.12501, 79.11376, 79.10007, 79.10373, 79.09866, 
  79.08673, 79.08132, 79.06011, 79.02864, 79.02298, 78.99052, 78.97197, 78.96827, 78.92932, 78.91319, 
  78.90211, 78.90215, 78.90545, 78.90215, 78.89553, 78.89489, 78.89232, 78.88202, 78.87671, 78.86864, 
  78.85455, 78.84356, 78.83343, 78.8321, 78.82388, 78.80662, 78.79475, 78.77934, 78.7794, 78.75749, 
  78.76181, 78.77023, 78.7813, 78.77392, 78.7704, 78.75126, 78.75186, 78.74225, 78.74062, 78.74423, 
  78.7438, 78.74594, 78.74981, 78.748, 78.73942, 78.73667, 78.72302, 78.7104, 78.65572, 78.63942, 
  78.63307, 78.63041, 78.6348, 78.64064, 78.63133, 78.61446, 78.61, 78.59716, 78.58879, 78.5818, 
  78.57961, 78.5742, 78.57094, 78.5688, 78.56334, 78.56141, 78.55872, 78.5561, 78.54651, 78.54599, 
  78.54325, 78.54194, 78.53853, 78.53297, 78.52717, 78.5261, 78.52606, 78.52552, 78.52501, 78.52482, 
  78.52256, 78.52153, 78.51893, 78.517, 78.51578, 78.5155, 78.51806, 78.51711, 78.51546, 78.51374, 
  78.50709, 78.50211, 78.49996, 78.49781, 78.49241, 78.48279, 78.4788, 78.47464, 78.46657, 78.46439, 
  78.45365, 78.45168, 78.44859, 78.43404, 78.43159, 78.41928, 78.41473, 78.41259, 78.40752, 78.40533, 
  78.40507, 78.39688, 78.39417, 78.39228, 78.39289, 78.39285, 78.3947, 78.3947, 78.3951, 78.39507, 
  78.39608, 78.3994, 78.39955, 78.40166, 78.40526, 78.40613, 78.40699, 78.40773, 78.40918, 78.41085, 
  78.41037, 78.41044, 78.41026, 78.41714, 78.42803, 78.42605, 78.4318, 78.43841, 78.44002, 78.4463, 
  78.45131, 78.45489, 78.45514, 78.45069, 78.46281, 78.46343, 78.46751, 78.4727, 78.46997, 78.45465, 
  78.45686, 78.46998, 78.48049, 78.48553, 78.48355, 78.47479, 78.48091, 78.49732, 78.51024, 78.49909, 
  78.48836, 78.49135, 78.49747, 78.52001, 78.52504, 78.53182, 78.5596, 78.59374, 78.60008, 78.59133, 
  78.59636, 78.62655, 78.6312, 78.65695, 78.67429, 78.68219, 78.69403, 78.68252, 78.70672, 78.7362, 
  78.76689, 78.7784, 78.76347, 78.76784, 78.76733, 78.74239, 78.74765, 78.7409, 78.7492, 78.7405, 
  78.74423, 78.73346, 78.70219, 78.7053, 78.72539, 78.7347, 78.74298, 78.75375, 78.74899, 78.75106, 
  78.76058, 78.79786, 78.80074, 78.79825, 78.80156, 78.80839, 78.81812, 78.84152, 78.84664, 78.84063, 
  78.83296, 78.8224, 78.8063, 78.8036, 78.77977, 78.77504, 78.7614, 78.73088, 78.72196, 78.72642, 
  78.75892, 78.77926, 78.79712, 78.75321, 78.7557, 78.79224, 78.81335, 78.81756, 78.85552, 78.85677, 
  78.85132, 78.86224, 78.87588, 78.88282, 78.89981, 78.94374, 79.00048, 79.01841, 79.01069, 79.01838, 
  79.01799, 79.06068, 79.07568, 79.14181, 79.17615, 79.16803, 79.17016, 79.23624, 79.22044, 79.2503, 
  79.24432, 79.22597, 79.30059, 79.31124, 79.37731, 79.41056, 79.41271, 79.41899, 79.42752, 79.47044, 
  79.50676, 79.55336, 79.60281, 79.66584, 79.66585, 79.70037, 79.73733, 79.75244, 79.81893, 79.8564, 
  79.87699, 79.88938, 79.90873, 79.93316, 79.96169, 80.04229, 80.04999, 80.07356, 80.08746, 80.11226, 
  80.1269, 80.12988, 80.14502, 80.15469, 80.15768, 80.17506, 80.2001, 80.19662, 80.21844, 80.23806, 
  80.24798, 80.248, 80.23285, 80.23234, 80.1976, 80.1924, 80.2192, 80.20826, 80.2209, 80.23678, 
  80.25464, 80.31615, 80.34542, 80.36478, 80.38561, 80.40993, 80.41837, 80.41563, 80.44515, 80.45241, 
  80.46563, 80.48374, 80.48846, 80.497, 80.49906, 80.50798, 80.51841, 80.52545, 80.52764, 80.53511, 
  80.53845, 80.54141, 80.54868, 80.55282, 80.55327, 80.55555, 80.55979, 80.56554, 80.56516, 80.57509, 
  80.57614, 80.57758, 80.57844, 80.57973, 80.58185, 80.58513, 80.59189, 80.59314, 80.59685, 80.59887, 
  80.60305, 80.60661, 80.60814, 80.61363, 80.61522, 80.62385, 80.62876, 80.63099, 80.63711, 80.64121, 
  80.66424, 80.67857, 80.67737, 80.6792, 80.68435, 80.6864, 80.68838, 80.69327, 80.69967, 80.7037, 
  80.70636, 80.71619, 80.775, 80.77791, 80.78624, 80.78413, 80.78767, 80.80183, 80.8014, 80.81951, 
  80.8256, 80.83365, 80.84148, 80.861, 80.8798, 80.88521, 80.90684, 80.90898, 80.9071, 80.91464,
  80.92709, 80.9307, 80.92563, 80.92649, 80.9368, 80.9386, 80.95087, 80.98155, 81.00211, 81.0085, 
  81.00949, 81.01223, 81.01971, 81.02219, 81.03043, 81.03082, 81.02816, 81.02829, 81.02992, 81.0288, 
  81.02717, 81.02631, 81.02661, 81.02945, 81.02996, 81.02945, 81.02983, 81.03563, 81.03662, 81.03984,
  81.04301, 81.0446, 81.04413, 81.03833, 81.03445, 81.0341, 81.03511, 81.03552, 81.03513, 
  81.21172, 79.90196)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_difference(st_geometry(Geo_3), st_geometry(Geo))
if (length(Geo_0) > 1) {Geo_0 <- Geo_0[st_geometry_type(Geo_0) %in% c("POLYGON", "MULTIPOLYGON")]}
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_0 <- st_make_valid(Geo_0)
Geo_3 <- st_set_geometry(Geo_3, st_union(Geo_0[c(1:43, 142)]))
Geo_3 <- st_union(Geo_3, Geo)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
Geo_3 <- Geo_3 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### AFGHANISTAN #####
Geo_0 <- Geometric_Operations(Geo_4, Claimed_Area_2)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_0 <- Geometric_Operations(Geo_0, Geo_3)
Geo_4 <- st_set_geometry(Geo_4, Geo_0)
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
LATITUDE_VALUEs <- c(
  37.23409, 37.23314, 37.23117, 37.23075, 37.23015, 37.22993, 37.22899, 37.22763, 37.22336, 37.22233, 
  37.22102, 37.22095, 37.22138, 37.22496, 37.2225, 37.22243, 37.22455, 37.219, 37.21932, 37.21831, 
  37.21794, 37.21738, 37.21777, 37.21778, 37.21755, 37.21815, 37.21899, 37.21543, 37.21492, 37.21573, 
  37.2161, 37.21455, 37.21415, 37.21469, 37.2146, 37.21475, 37.21699, 37.21915, 37.22004, 37.22062, 
  37.22484, 37.227, 37.22955, 37.23054, 37.23632, 37.24024, 37.24427, 37.24469, 37.24522, 37.24692, 
  37.24913, 37.25108, 37.25158, 37.25223, 37.25501, 37.25933, 37.26003, 37.26049, 37.26043, 37.26131, 
  37.26352, 37.26471, 37.27545, 37.27593, 37.27655, 37.27702, 37.27956, 37.28459, 37.28355, 37.28613, 
  37.286, 37.285, 37.28474, 37.28394, 37.28318, 37.28265, 37.2823, 37.28048, 37.28063, 37.28209, 
  37.27465, 37.26849, 37.26581, 37.26653, 37.26619, 37.26497, 37.26287, 37.26201, 37.26107, 37.26026, 
  37.25913, 37.25729, 37.25499, 37.25142, 37.24862, 37.24323, 37.24253, 37.24075, 37.23822, 37.236, 
  37.23443, 37.23972, 37.24666, 37.24844, 37.25132, 37.25197, 37.25207, 37.2537, 37.25687, 37.26032, 
  37.26456, 37.26415, 37.26312, 37.26205, 37.26131, 37.26028, 37.2599, 37.25932, 37.25897, 37.25837, 
  37.25504, 37.25445, 37.25508, 37.25583, 37.25932, 37.25939, 37.25934, 37.25914, 37.25856, 37.25653, 
  37.25435, 37.2526, 37.24876, 37.24716, 37.24495, 37.24189, 37.23762, 37.2361, 37.23562, 37.23558, 
  37.23629, 37.23644, 37.23565, 37.23704, 37.23973, 37.23959, 37.23992, 37.24274, 37.24299, 37.24303, 
  37.24381, 37.24376, 37.24315, 37.24317, 37.2434, 37.24391, 37.24734, 37.24933, 37.24933, 37.24761, 
  37.24508, 37.24452, 37.24395, 37.24362, 37.24308, 37.24286, 37.24244, 37.24226, 37.24418, 37.23926, 
  37.23529, 37.22873, 37.22176, 37.21876, 37.21142, 37.20937, 37.20281, 37.20226, 37.19667, 37.18833, 
  37.18833, 37.18627, 37.18368, 37.17752, 37.17492, 37.16754, 37.16316, 37.16412, 37.15919, 37.15262, 
  37.14961, 37.14565, 37.14701, 37.14291, 37.13347, 37.12936, 37.12183, 37.11732, 37.11009, 37.09873, 
  37.09245, 37.09012, 37.08368, 37.07464, 37.06519, 37.06053, 37.06464, 37.07793, 37.0804, 37.07697, 
  37.06451, 37.05053, 37.0476, 37.04513, 37.03924, 37.0369, 37.03533, 37.03445, 37.03357, 37.03227, 
  37.03168, 37.03085, 
  37.02969, 37.03045, 37.02497, 37.02566, 37.02278, 37.01742, 37.01084, 36.98685, 36.97999, 36.97272, 
  36.96545, 36.95722, 36.96625, 36.98106, 36.98819, 36.98654, 36.99038, 37.00415, 37.00196, 37.00744, 
  37.01114, 37.00607, 36.99949, 36.99346, 36.9888, 36.97522, 36.97371, 36.96411, 36.96244, 36.95064, 
  36.94515, 36.9387, 36.91911, 36.91225, 36.91243, 36.90461, 36.90008, 36.89898, 36.89541, 36.89692, 
  36.90735, 36.90433, 36.91147, 36.90976, 36.91662, 36.91662, 36.91182, 36.90372, 36.89809, 36.8935, 
  36.88664, 36.88307, 36.88472, 36.87401, 36.86055, 36.85368, 36.84956, 36.84956, 36.83803, 36.83886, 
  36.84119, 36.84229, 36.83872, 36.84147, 36.82629, 36.82904, 36.82726, 36.83069, 36.83721, 36.83007, 
  36.839, 36.84243, 36.84271, 36.85258, 36.85643, 36.85917, 36.86055, 36.86453, 36.87526, 36.86921, 
  36.8791, 36.88707, 36.89942, 36.91315, 36.91928, 36.92394, 36.92532, 36.91379, 36.90116, 36.89073, 
  36.89073, 36.89677, 36.90116, 36.89732, 36.89896, 36.90528, 36.90528, 36.91216, 36.9031, 36.90502, 
  36.91573, 36.90879, 
  36.90763, 36.90571, 36.90399, 36.90365, 36.90152, 36.8996, 36.89747, 36.90039, 36.90615, 36.90564, 
  36.90619, 36.90866, 36.90447, 36.90001, 36.90088, 36.89807, 36.89429, 36.8893, 36.88985, 36.89167, 
  36.89184, 36.8905, 36.88594, 36.88014, 36.87756, 36.87402, 36.87262, 36.87471, 36.8765, 36.87931, 
  36.88556, 36.8926, 36.89198, 36.89489, 36.89263, 36.8974, 36.89359, 36.89191, 36.89198, 36.89404, 
  36.89335, 36.89121, 36.88705, 36.88546, 36.88546, 36.88791, 36.89151, 36.89211, 36.89387, 36.8942, 
  36.89419, 36.89387, 36.89515, 36.89502, 36.89443, 36.89318, 36.89459, 36.89894, 36.89905, 36.89006, 
  36.88834, 36.88897, 36.88806, 36.8851, 36.88187, 36.87983, 36.87924, 36.8818, 36.88165, 36.87821, 
  36.87905, 36.88597, 36.88779, 36.89069, 36.88714, 36.88635, 36.88347, 36.86949, 36.86881, 36.88281, 
  36.88494, 36.8906, 36.89285, 36.89227, 36.89109, 36.88925, 36.88753, 36.884, 36.88343, 36.88389, 
  36.88491, 36.88474, 36.88225, 36.88504, 36.88558, 36.88822, 36.88649, 36.88477, 36.88031, 36.87835, 
  36.88446, 36.88968, 36.89472, 36.88099, 36.88717, 36.88501, 36.88558, 36.88247, 36.87231, 36.86791, 
  36.86915, 36.86685, 36.85919, 36.86033, 36.87657, 36.8759, 36.84264, 36.84886, 36.84817, 36.84398, 
  36.84123, 36.83934, 36.84587, 36.8412, 36.84158, 36.85071, 36.84302, 36.85428, 36.85311, 36.83725, 
  36.84405, 36.84103, 36.85188, 36.82564, 36.77952, 36.77416, 36.78104, 36.77547, 36.76227, 36.75873, 
  36.76677, 36.76127, 36.75707, 36.74002, 36.75271, 36.73833, 36.72843, 36.72334, 36.7115, 36.66346, 
  36.65534, 36.64735, 36.58859, 36.59196, 36.57528, 36.55722, 36.5564, 36.54633, 36.50877, 36.50315, 
  36.50764, 36.48314, 36.47265, 36.43427, 36.39973, 36.41534, 36.44738, 36.45815, 36.48383, 36.47541, 
  36.44131, 36.43247, 36.40277, 36.37264, 36.3459, 36.32743, 36.32778, 36.33456, 36.33034, 36.32356, 
  36.30904, 36.29541, 36.29915, 36.29555, 36.28324, 36.27895, 36.26954, 36.23257, 36.20841, 36.20675, 
  36.20342, 36.20422, 36.18042, 36.16629, 36.16892, 36.1649, 36.15881, 36.15666, 36.14903, 36.13697, 
  36.13891, 36.12997, 36.11683, 36.11822, 36.11347, 36.10883, 36.10217, 36.09232, 36.09537, 36.08181, 
  36.07484, 36.07047, 36.06152, 36.05965, 36.0534, 36.04657, 36.04408, 36.04122, 36.04025, 36.03964, 
  36.03909, 36.03904, 36.03921, 36.03966, 36.0396, 36.03982, 36.03948, 
  36.03425, 36.03307, 36.0272, 36.02925, 36.02783, 36.02861, 36.02621, 36.02436, 36.02009, 36.01715, 
  36.01302, 36.00938, 36.00893, 36.00665, 36.00558, 36.00518, 36.00488, 36.00405, 36.00391, 36.00396, 
  36.00115, 36.00065, 35.99986, 35.9994, 35.99901, 35.99894, 35.99862, 35.9995, 35.99912, 35.99759, 
  35.99724, 35.99813, 35.99745, 35.99667, 35.9949, 35.99167, 35.99023, 35.98943, 35.98936, 35.98993, 
  35.99032, 35.98921, 35.98848, 35.98749, 35.98669, 35.98547, 35.98455, 35.98233, 35.98289, 35.9824, 
  35.97594, 35.97511, 35.9746, 35.97302, 35.97287, 35.97221, 35.97141, 35.9701, 35.96858, 35.96561, 
  35.96271, 35.96179, 35.96029, 35.95965, 35.95899, 35.95989, 35.96321, 35.96731, 35.96811, 35.9654, 
  35.9647, 35.96262, 35.96078, 35.95574, 35.953, 35.95175, 35.95029, 35.9489, 35.9473, 35.94549, 
  35.94198, 35.93636, 35.93347, 35.93027, 35.92965, 35.92034, 35.91637, 35.90483, 35.89134, 35.89072, 
  35.89364, 35.8942, 35.88975, 35.88822, 35.87347, 35.86123, 35.83257, 35.82937, 35.82122, 35.81482, 
  35.80932, 35.80173, 35.80062, 35.79898, 35.79754, 35.79693, 35.7884, 35.78433, 35.78144, 35.77792, 
  35.76971, 35.76365, 35.76271, 35.7541, 35.75316, 35.74947, 35.74804, 35.7477, 35.74125, 35.73913, 
  35.73484, 35.73643, 35.73624, 35.73455, 35.73221, 35.72887, 35.72683, 35.72602, 35.72491, 35.72414, 
  35.72275, 35.72167, 35.72093, 35.7191, 35.71827, 35.71795, 35.71661, 35.71613, 35.71588, 35.71552, 
  35.71513, 35.71468, 35.71349, 35.71288, 35.71147, 35.71064, 35.70968, 35.70909, 35.70705, 35.70629, 
  35.70528, 35.70493, 35.70437, 35.70379, 35.7032, 35.70128, 35.69877, 35.6971, 35.69547, 35.69352, 
  35.69326, 35.69133, 35.69053, 35.69027, 35.68807, 35.68594, 35.68654, 35.68622, 35.68596, 35.68485, 
  35.68399, 35.68317, 35.6791, 35.67697, 35.67635, 35.67618, 35.6726, 35.67152, 35.67085, 35.6703, 
  35.66954, 35.66943, 35.66969, 35.66992, 35.66962, 35.66918, 35.66847, 35.6684, 35.6681, 35.66733, 
  35.66464, 35.66409, 35.66253, 35.66179, 35.66164, 35.66345, 35.66199, 35.66077, 35.65924, 35.65822, 
  35.65704, 35.6552, 35.6527, 35.652, 35.65117, 35.64853, 35.6476, 35.64472, 35.6405, 35.64042, 
  35.6389, 35.63599, 35.63342, 35.63205, 35.62973, 35.62729, 35.6246, 35.62129, 35.61586, 35.61433, 
  35.61021, 35.60609, 35.60344, 35.59974, 35.59866, 35.59698, 35.59655, 35.59096, 35.58969, 35.58676, 
  35.58761, 35.58295, 35.58076, 35.5787, 35.58034, 35.57936, 35.5811, 35.58145, 35.58069, 35.57779, 
  35.57301, 35.57304, 35.57123, 35.56536, 35.56376, 35.56058, 35.55939, 35.55744, 35.55119, 35.55018, 
  35.5477, 35.5448, 35.54365, 35.54312, 35.53837, 35.53715, 35.53223, 35.52318, 35.5221, 35.51735, 
  35.51693, 35.5148, 35.51214, 35.5105, 35.50648, 35.50589, 35.50323, 35.49985, 35.49436, 35.49317, 
  35.48506, 35.48234, 35.47982, 35.4772, 35.47378, 35.46881, 35.46661, 35.46567, 35.46102, 35.45882, 
  35.4578, 35.45532, 35.45452, 35.45029, 35.44836, 35.446, 35.44429, 35.44309, 35.44249, 35.44113, 
  35.43859, 35.43726, 35.43536, 35.43492, 35.43127, 35.43106, 35.43062, 35.4276, 35.42522, 35.42431, 
  35.42153, 35.41165, 35.41044, 35.40923, 35.40978, 35.4085, 35.40864, 35.40588, 35.39752, 35.39477, 
  35.39316, 35.3916, 35.37523, 35.37302, 35.36932, 35.36757, 35.35696, 35.35605, 35.35136, 35.34629, 
  35.34201, 35.3403, 35.33617, 35.33438, 35.33029, 35.32609, 35.31684, 35.3152, 35.3125, 35.30994, 
  35.31005, 35.30904, 35.30842, 35.30541, 35.30517, 35.30539, 35.30543, 35.30519, 35.30441, 35.30359, 
  35.30187, 35.30053, 35.29854, 35.29625, 35.29523, 35.29351, 35.29272, 35.29195, 35.28008, 35.27833, 
  35.27796, 35.27835, 35.27723, 35.27591, 35.27511, 35.27232, 35.26973, 35.25981, 35.26009, 35.22557, 
  35.22213, 35.22627, 35.21624, 35.2046, 35.18609, 35.17479, 35.1743, 35.16027, 35.13886, 35.13753, 
  35.14118, 35.1383, 35.12293, 35.1171, 35.11738, 35.09649, 35.08831, 35.08708, 35.08396, 35.0809, 
  35.07317, 35.06207, 35.06004, 35.05315, 35.03969, 35.03337, 35.02775, 35.02608, 35.02253, 35.02105, 
  35.0175, 35.01313, 35.01056, 35.0094, 35.00624, 35.00708, 35.00508, 34.99977, 34.99696, 34.99601, 
  34.99274, 34.985, 34.97976, 34.97505, 34.97227, 34.97182, 34.96795, 34.96306, 34.96165, 34.96007, 
  34.95019, 34.94336, 34.94597, 34.94435, 34.94037, 34.93502, 34.93232, 34.93115, 34.92894, 34.92465, 
  34.92465, 34.92074, 34.91645, 34.91828, 34.91426, 34.91458, 34.91258, 34.91103, 34.90434, 34.90142, 
  34.89522, 34.89065, 34.88987, 34.87864, 34.87773, 34.87456, 34.86576, 34.86276, 34.86026, 34.85611, 
  34.85336, 34.85125, 34.84554, 34.83871, 34.82219, 34.81852, 34.81595, 34.79946, 34.80017, 34.80062, 
  34.80147, 34.80147, 34.80003, 34.79865, 34.79486, 34.7927, 34.78776, 34.78103, 34.76848, 34.76037, 
  34.75896, 34.75254, 34.74958, 34.75163, 34.74951, 34.74983, 34.7469, 34.73491, 34.72842, 34.72818, 
  34.71985, 34.71766, 34.71414, 34.70817, 34.70482, 34.70581, 34.70489, 34.70193, 34.69579, 34.69434, 
  34.68877, 34.67829, 34.67335, 34.6707, 34.66904, 34.66463, 34.66117, 34.65898, 34.65273, 34.64991, 
  34.6455, 34.64387, 34.636, 34.63466, 34.62848, 34.62788, 34.62095, 34.61665, 34.61506, 34.60616, 
  34.60188, 34.59425, 34.59001, 34.58789, 34.58496, 34.58386, 34.58386, 34.58475, 34.58673, 34.58761, 
  34.58627, 34.58369, 34.57835, 34.57418, 34.57482, 34.57503, 34.57353, 34.57127, 34.56946, 34.56711, 
  34.56538, 34.56408, 34.5596, 34.55508, 34.55411, 34.5502, 34.54785, 34.54457, 34.54358, 34.54181, 
  34.53978, 34.53389, 34.52975, 34.52905, 34.52834, 34.5265, 34.52427, 34.5212, 34.51754, 34.51177, 
  34.50926, 34.507, 34.50695, 34.50629, 34.50419, 34.50405, 34.50277, 34.50083, 34.49952, 34.49775, 
  34.49264, 34.48997, 34.48696, 34.48243, 34.48166, 34.4651, 34.46467, 34.45859, 34.4548, 34.45048, 
  34.44468, 34.4399, 34.43431, 34.43035, 34.42546, 34.42436, 34.42953, 34.4307, 34.43488, 34.43449, 
  34.43771, 34.43332, 34.43735, 34.43728, 34.43412, 34.43357, 34.43215, 34.43187, 34.42842, 34.42479, 
  34.42268, 34.41969, 34.41875, 34.41861, 34.4167, 34.41751, 34.41626, 34.41551, 34.41318, 34.41208, 
  34.41032, 34.4098, 34.40778, 34.40664, 34.40679, 34.4062, 34.40525, 34.40402, 34.40173, 34.39953, 
  34.39989, 34.39877, 34.39846, 34.39744, 34.39588, 34.39351, 34.39154, 34.37713, 34.37178, 34.37125, 
  34.36544, 34.36696, 34.36395, 34.36501, 34.36328, 34.33929, 34.33638, 34.33387, 34.33128, 34.32749, 
  34.32572, 34.3243, 34.31282, 34.30959, 34.30732, 34.30002, 34.29403, 34.2914, 34.2864, 34.28428, 
  34.28495, 34.28406, 34.28211, 34.27764, 34.27311, 34.25814, 34.24445, 34.24083, 34.2255, 34.20712, 
  34.18632, 34.16466, 34.13184, 34.12658, 34.12456, 34.12309, 34.12174, 34.12021, 34.11564, 34.11454, 
  34.10925, 34.06354, 34.05195, 34.05095, 34.05536, 34.05294, 34.04775, 34.04441, 34.0342, 34.03079, 
  34.02481, 34.02481, 34.02873, 34.02627, 34.02654, 34.0278, 34.02869, 34.03045, 34.02999, 34.02876, 
  34.02746, 34.02629, 34.01688, 34.01646, 34.01332, 34.00685, 34.01119, 34.00443, 33.99824, 33.99418, 
  33.9912, 33.97376, 33.97262, 33.98166, 33.98394, 33.98187, 33.97824, 33.97846, 33.96714, 33.967, 
  33.96102, 33.96607, 33.9613, 33.96458, 33.96066, 33.9603, 33.96322, 33.96294, 33.95838, 33.9571, 
  33.95233, 33.95247, 33.95675, 33.95952, 33.95981, 33.96201, 33.96052, 33.96244, 33.96187, 33.94984, 
  33.94336, 33.94955, 33.94001, 33.94977, 33.96742, 33.96223, 33.96949, 33.96073, 33.96828, 33.96636, 
  33.98387, 33.9813, 33.97568, 33.9875, 33.98095, 33.99817, 33.99845, 34.00144, 34.01468, 34.01354, 
  34.00906, 34.0092, 34.01137, 34.0076, 34.00938, 34.00945, 34.00863, 34.01653, 34.01941, 34.02738, 
  34.03943, 34.04164, 34.0395, 34.04775, 34.04761, 34.03524, 34.04007, 34.03979, 34.03609, 34.03516, 
  34.03943, 34.03986, 34.01582, 33.99091, 33.98885, 33.98216, 33.97974, 33.97554, 33.97269, 33.96835, 
  33.96664, 33.96023, 33.95525, 33.95027, 33.94863, 33.9435, 33.94229, 33.93197, 33.92855, 33.92477, 
  33.92121, 33.92164, 33.91502, 33.90682, 33.90483, 33.88951, 33.86785, 33.85969, 33.85003, 33.84176, 
  33.83781, 33.83374, 33.82961, 33.82494, 33.82412, 33.81463, 33.80254, 33.79623, 33.78831, 33.78189, 
  33.76552, 33.75032, 33.74868, 33.74254, 33.73533, 33.73148, 33.72819, 33.7369, 33.73854, 33.7339, 
  33.73605, 33.72641, 33.72684, 33.72391, 33.71806, 33.71934, 33.71749, 33.72548, 33.72848, 33.7237, 
  33.72527, 33.71213, 33.70542, 33.69956, 33.69699, 33.69535, 33.67843, 33.66042, 33.658, 33.64942, 
  33.64985, 33.64128, 33.64328, 33.64628, 33.64285, 33.63663, 33.62434, 33.6227, 33.53767, 33.51879, 
  33.50447, 33.50419, 33.48758, 33.47154, 33.47441, 33.46897, 33.45207, 33.43689, 33.42972, 33.43689, 
  33.43115, 33.40723, 33.39519, 33.3886, 33.37254, 33.36222, 33.35562, 33.33082, 33.33842, 33.32192, 
  33.25965, 33.23165, 33.21815, 33.21571, 33.20465, 33.20882, 33.21902, 33.21959, 33.21241, 33.20738, 
  33.13856, 33.14531, 33.13928, 33.14179, 33.13238, 33.1318, 33.12979, 33.11958, 33.12109, 33.11836, 
  33.10966, 33.10643, 33.10448, 33.10326, 33.10592, 33.10161, 33.10341, 33.10075, 33.09999, 33.09463, 
  33.1011, 33.09866, 33.10966, 33.13151, 33.1318, 33.12598, 33.12756, 33.11742, 33.11383, 33.1106, 
  33.10851, 33.10563, 33.1024, 33.09528, 33.09334, 33.09298, 33.08953, 33.09363, 33.09204, 33.09765, 
  33.09658, 33.10039, 33.09859, 33.08989, 33.08967, 33.09823, 33.10103, 33.09816, 33.10276, 33.09823, 
  33.07126, 33.05062, 33.0499, 33.02075, 32.93306, 32.9095, 32.88968, 32.88881, 32.88622, 32.88197, 
  32.87642, 32.87497, 32.85493, 32.84924, 32.83597, 32.83229, 32.82695, 32.81801, 32.80387, 32.80069, 
  32.80293, 32.80048, 32.78828, 32.78064, 32.7675, 32.72866, 32.72664, 32.7309, 32.72975, 32.70722, 
  32.70476, 32.68757, 32.67153, 32.65882, 32.64696, 32.6448, 32.6414, 32.63937, 32.63482, 32.62485, 
  32.62015, 32.6135, 32.61357, 32.61191, 32.60489, 32.60366, 32.59918, 32.59904, 32.59368, 32.58841, 
  32.58387, 32.57926, 32.57828, 32.5762, 32.57479, 32.57296, 32.57078, 32.5639, 32.56278, 32.56193, 
  32.56163, 32.56163, 32.56005, 32.55759, 32.55803, 32.55398, 32.55304, 32.55112, 32.54772, 32.54269, 
  32.54558, 32.54591, 32.54294, 32.53737, 32.53513, 32.53089, 32.52909, 32.52995, 32.52699, 32.52141, 
  32.51295, 32.50897, 32.50578, 32.50567, 32.50459, 32.50278, 32.48131, 32.47204, 32.46219, 32.45488, 
  32.4505, 32.43032, 32.42344, 32.41533, 32.38431, 32.37445, 32.34908, 32.3514, 32.30005, 32.20961, 
  32.15788, 32.12591, 32.08839, 32.08657, 32.06279, 32.05421, 32.04511, 32.01022, 32.00913, 31.99406, 
  31.98689, 31.98897, 31.97525, 31.96432, 31.95267, 31.92521, 31.92769, 31.92514, 31.9207, 31.9156, 
  31.91254, 31.90999, 31.89272, 31.84679, 31.70013, 31.6604, 31.62927, 31.63307, 31.64827, 31.64929, 
  31.60573, 31.59652, 31.60719, 31.5936, 31.62532, 31.65587, 31.66682, 31.66814, 31.69516, 31.70933, 
  31.77094, 31.77809, 31.8344, 31.77269, 31.76364, 31.75985, 31.76349, 31.76262, 31.75722, 31.74977, 
  31.74744, 31.75211, 31.75634, 31.75736, 31.75299, 31.71444, 31.71327, 31.71532, 31.72568, 31.73561, 
  31.73926, 31.73897, 31.73518, 31.73503, 31.74291, 31.7562, 31.75882, 31.75707, 31.78451, 31.80216, 
  31.81704, 31.83527, 31.8045, 31.74875, 31.7159, 31.69546, 31.6902, 31.67866, 31.66785, 31.65645, 
  31.65528, 31.64008, 31.63336, 31.63701, 31.63511, 31.62678, 31.62474, 31.63161, 31.62371, 31.59638, 
  31.58848, 31.58482, 31.57035, 31.55894, 31.54533, 31.53187, 31.52002, 31.51343, 31.51973, 31.51468, 
  31.52858, 31.53063, 31.52258, 31.52573, 31.52273, 31.50692, 31.49236, 31.48453, 31.44909, 31.42625, 
  31.41277, 31.41724, 31.41336, 31.4113, 31.39665, 31.39834, 31.39673, 31.39343, 31.39196, 31.41618, 
  31.39918, 31.38324, 31.34477, 31.33253, 31.322, 31.32065, 31.32479, 31.32644, 31.32717, 31.32545, 
  31.32695, 31.32182, 31.30613, 31.29175, 31.28347, 31.27745, 31.27928, 31.26615, 31.27033, 31.26087, 
  31.25295, 31.2506, 31.23167, 31.23724, 31.20796, 31.20722, 31.19871, 31.21486, 31.21706, 31.24583, 
  31.24598, 31.24491, 31.24561, 31.24465, 31.24605, 31.24832, 31.24836, 31.24557, 31.24517, 31.24014, 
  31.23552, 31.23787, 31.23721, 31.23904, 31.23192, 31.22943, 31.22473, 31.22381, 31.2139, 31.22, 
  31.22205, 31.22781, 31.23067, 31.23141, 31.23467, 31.23779, 31.23805, 31.24179, 31.24165, 31.23908, 
  31.23761, 31.23721, 31.23996, 31.24172, 31.23724, 31.25636, 31.27272, 31.27848, 31.28644, 31.29802, 
  31.30177, 31.30334, 31.31178, 31.30818, 31.30936, 31.30606, 31.30349, 31.3047, 31.3058, 31.30496, 
  31.30925, 31.30785, 31.30367, 31.30807, 31.30639, 31.30793, 31.30382, 31.30386, 31.29337, 31.29084, 
  31.29091, 31.29245, 31.29329, 31.29249, 31.29326, 31.28856, 31.27866, 31.27829, 31.26898, 31.26964, 
  31.26476, 31.26168, 31.26127, 31.24517, 31.24311, 31.24135, 31.23732, 31.23592, 31.23042, 31.22752, 
  31.22304, 31.21838, 31.21915, 31.21765, 31.21519, 31.2121, 31.20998, 31.21064, 31.20601, 31.20774, 
  31.20597, 31.2041, 31.20344, 31.20175, 31.19929, 31.20183, 31.20153, 31.20414, 31.2037, 31.20495, 
  31.20678, 31.20704, 31.20506, 31.20689, 31.20942, 31.20924, 31.20579, 31.2008, 31.19526, 31.18593, 
  31.17686, 31.17246, 31.16783, 31.16015, 31.15509, 31.13955, 31.1271, 31.11901, 31.10656, 31.10751, 
  31.09712, 31.09175, 31.08253, 31.07617, 31.06477, 31.06845, 30.97669, 30.95789, 30.95546, 30.95303, 
  30.95472, 30.95104, 30.95288, 30.9506, 30.94302, 30.9428, 30.93838, 30.93867, 30.93702, 30.93731, 
  30.93484, 30.93032, 30.93024, 30.92358, 30.57601, 30.56921, 30.54659, 30.52545, 30.48078, 30.48404, 
  30.46362, 30.44527, 30.43328, 30.43195, 30.4207, 30.38339, 30.3111, 30.28901, 30.24201, 30.21309, 
  30.20745, 30.16813, 30.15106, 30.12241, 30.09093, 30.06999, 30.06271, 29.97118, 29.90673, 29.89275, 
  29.84928, 29.5297, 29.5863, 29.59077, 29.52059, 29.52238, 29.51641, 29.49938, 29.48474, 29.47726, 
  29.48354, 29.468, 29.45514, 29.44707, 29.43362, 29.42554, 29.40999, 29.37799, 29.37978, 29.4064, 
  29.41298, 29.39354, 29.43003, 29.43541, 29.44438, 29.48728, 29.46755, 29.452, 29.45873, 29.45768, 
  29.38995, 29.86371,
  35.70342, 36.01731, 36.53259, 36.97039, 37.31905)
LONGITUDE_VALUEs <- c(
  74.88985, 74.88961, 74.88844, 74.88872, 74.88854, 74.88792, 74.88826, 74.88779, 74.88843, 74.88787, 
  74.88253, 74.88073, 74.8786, 74.87178, 74.86729, 74.86457, 74.85856, 74.855, 74.84629, 74.84592, 
  74.84543, 74.84304, 74.84173, 74.84076, 74.83919, 74.83639, 74.83502, 74.83096, 74.82689, 74.8213, 
  74.82025, 74.81759, 74.8127, 74.81018, 74.80979, 74.80908, 74.80649, 74.80529, 74.80543, 74.80496, 
  74.80379, 74.80263, 74.7992, 74.79891, 74.80197, 74.79889, 74.79769, 74.79816, 74.79805, 74.79436, 
  74.79166, 74.78131, 74.78007, 74.77937, 74.77799, 74.77806, 74.77759, 74.77669, 74.7749, 74.77284, 
  74.77192, 74.76731, 74.75676, 74.75663, 74.7572, 74.75707, 74.75303, 74.7494, 74.74439, 74.74104, 
  74.73775, 74.73566, 74.73119, 74.72883, 74.72749, 74.7275, 74.72705, 74.72192, 74.71966, 74.71537, 
  74.70834, 74.70343, 74.69806, 74.68989, 74.68787, 74.68685, 74.68605, 74.68505, 74.68227, 74.68135, 
  74.68089, 74.67873, 74.67724, 74.676, 74.67397, 74.66743, 74.66605, 74.66541, 74.66553, 74.66386, 
  74.65822, 74.64532, 74.64406, 74.64434, 74.64663, 74.64612, 74.64449, 74.64337, 74.63734, 74.63566, 
  74.63042, 74.62975, 74.62917, 74.62908, 74.62842, 74.62532, 74.62485, 74.62475, 74.6244, 74.62143, 
  74.61734, 74.61478, 74.6102, 74.60503, 74.59582, 74.59496, 74.59438, 74.59391, 74.59343, 74.59108, 
  74.59015, 74.59035, 74.58852, 74.58857, 74.59015, 74.58786, 74.5855, 74.58345, 74.58204, 74.58051, 
  74.57848, 74.57343, 74.57094, 74.57059, 74.56762, 74.56367, 74.56211, 74.55763, 74.55654, 74.55606, 
  74.55412, 74.55292, 74.55171, 74.55132, 74.55074, 74.55052, 74.54561, 74.5435, 74.54279, 74.54116, 
  74.53959, 74.53853, 74.53804, 74.53727, 74.53659, 74.53619, 74.53428, 74.52878, 74.51831, 74.50096, 
  74.50113, 74.49753, 74.50199, 74.49667, 74.49572, 74.48662, 74.48147, 74.47237, 74.46842, 74.47529, 
  74.48079, 74.48319, 74.48267, 74.48989, 74.4868, 74.48697, 74.4826, 74.47899, 74.46921, 74.47247, 
  74.47075, 74.46079, 74.4577, 74.45598, 74.46182, 74.46074, 74.47465, 74.49131, 74.49207, 74.48471, 
  74.486, 74.49596, 74.4951, 74.4975, 74.49493, 74.50111, 74.50918, 74.51364, 74.52635, 74.53357, 
  74.53786, 74.53253, 74.53551, 74.55354, 74.56127, 74.56209, 74.56331, 74.56353, 74.56439, 74.56504, 
  74.56497, 74.56462, 
  74.56029, 74.55544, 74.54772, 74.53536, 74.53348, 74.5191, 74.51687, 74.53882, 74.53522, 74.54362, 
  74.54259, 74.53316, 74.50618, 74.49983, 74.49039, 74.48644, 74.47186, 74.45571, 74.44867, 74.42859, 
  74.4267, 74.41744, 74.41761, 74.41366, 74.42067, 74.41501, 74.39579, 74.38789, 74.34972, 74.33307, 
  74.33273, 74.31625, 74.30953, 74.29443, 74.27096, 74.26598, 74.2574, 74.24488, 74.2423, 74.2248, 
  74.21381, 74.2042, 74.19906, 74.19079, 74.18049, 74.17603, 74.17208, 74.17208, 74.15304, 74.15248, 
  74.15968, 74.15419, 74.15145, 74.13772, 74.12845, 74.13429, 74.13257, 74.12467, 74.12075, 74.10599, 
  74.10462, 74.09621, 74.09192, 74.06515, 74.04712, 74.03219, 74.02686, 74.02308, 74.00578, 73.99446, 
  73.96683, 73.96649, 73.95687, 73.95415, 73.95758, 73.95586, 73.94762, 73.94814, 73.93113, 73.91259, 
  73.89166, 73.90436, 73.90744, 73.88994, 73.84904, 73.84801, 73.83497, 73.82536, 73.82742, 73.8154, 
  73.79927, 73.79927, 73.78966, 73.78074, 73.7725, 73.77147, 73.75705, 73.75254, 73.73486, 73.71564, 
  73.69144, 73.65408, 
  73.65294, 73.64706, 73.64625, 73.63981, 73.63406, 73.63204, 73.62406, 73.62003, 73.61818, 73.61161, 
  73.60492, 73.6011, 73.59668, 73.59539, 73.58565, 73.58357, 73.57668, 73.57385, 73.55582, 73.5529, 
  73.5502, 73.5472, 73.5484, 73.54346, 73.54514, 73.54415, 73.54226, 73.53514, 73.53428, 73.52432, 
  73.52068, 73.50857, 73.50381, 73.49141, 73.48793, 73.47969, 73.47385, 73.46712, 73.46068, 73.45673, 
  73.44993, 73.45136, 73.4509, 73.44899, 73.44809, 73.44336, 73.43955, 73.43968, 73.44092, 73.43764, 
  73.43633, 73.435, 73.42608, 73.42483, 73.42451, 73.42109, 73.41263, 73.40572, 73.40061, 73.39499, 
  73.38668, 73.37784, 73.37595, 73.37576, 73.37814, 73.37709, 73.37121, 73.36561, 73.36361, 73.36132, 
  73.35323, 73.34928, 73.34136, 73.33703, 73.32387, 73.32321, 73.32381, 73.30891, 73.30079, 73.29075, 
  73.27924, 73.27038, 73.26924, 73.26826, 73.26772, 73.25952, 73.25669, 73.25468, 73.25373, 73.24262, 
  73.24195, 73.23676, 73.22644, 73.2226, 73.22025, 73.21772, 73.21239, 73.21213, 73.20428, 73.18346, 
  73.16591, 73.16359, 73.14775, 73.11822, 73.08278, 73.07523, 73.06872, 73.0637, 73.06549, 73.05553, 
  73.04442, 73.04004, 73.03944, 72.99879, 72.96662, 72.95403, 72.92936, 72.91096, 72.90237, 72.89649, 
  72.89671, 72.89241, 72.85117, 72.8386, 72.81812, 72.80221, 72.7749, 72.76831, 72.74882, 72.71784, 
  72.70505, 72.68832, 72.65209, 72.55749, 72.49837, 72.44639, 72.43008, 72.3954, 72.39352, 72.36138, 
  72.33545, 72.33077, 72.33288, 72.29837, 72.25299, 72.22846, 72.23052, 72.1991, 72.18467, 72.20959, 
  72.19861, 72.09591, 72.08218, 72.03058, 72.02867, 72.00256, 71.96272, 71.93593, 71.91651, 71.88786, 
  71.80949, 71.79758, 71.7993, 71.82075, 71.8065, 71.77129, 71.73114, 71.69047, 71.6563, 71.63621, 
  71.63948, 71.62282, 71.6146, 71.55799, 71.5841, 71.57629, 71.53819, 71.52745, 71.51955, 71.52453, 
  71.52025, 71.49312, 71.48857, 71.4805, 71.47957, 71.47416, 71.44479, 71.43587, 71.39161, 71.37947, 
  71.37613, 71.3605, 71.35554, 71.34377, 71.31939, 71.31022, 71.30739, 71.29476, 71.29263, 71.27116, 
  71.26395, 71.25108, 71.25133, 71.24776, 71.2433, 71.243, 71.25408, 71.24464, 71.22961, 71.21377, 
  71.21541, 71.20923, 71.20773, 71.20266, 71.1985, 71.19876, 71.19697, 71.19691, 71.19622, 71.19504, 
  71.19515, 71.19657, 71.19666, 71.19798, 71.19887, 71.19954, 71.20154, 
  71.20771, 71.20753, 71.21195, 71.2183, 71.22243, 71.22895, 71.23121, 71.23517, 71.2346, 71.2415, 
  71.24464, 71.24593, 71.2488, 71.2499, 71.25088, 71.25247, 71.25305, 71.25395, 71.25455, 71.25565, 
  71.25485, 71.25535, 71.25541, 71.25585, 71.25676, 71.25753, 71.25812, 71.27028, 71.2768, 71.27891, 
  71.28245, 71.28502, 71.28886, 71.28927, 71.28946, 71.29272, 71.29253, 71.293, 71.29337, 71.29457, 
  71.29629, 71.29699, 71.29826, 71.29822, 71.29841, 71.29983, 71.30167, 71.30461, 71.31017, 71.31347, 
  71.31294, 71.3132, 71.31408, 71.31404, 71.31351, 71.31346, 71.31286, 71.31445, 71.31945, 71.31977, 
  71.31758, 71.31857, 71.31844, 71.31915, 71.32241, 71.32344, 71.35081, 71.35934, 71.36904, 71.36998, 
  71.37252, 71.37368, 71.37724, 71.38114, 71.38715, 71.38827, 71.38866, 71.38827, 71.38612, 71.38539, 
  71.38814, 71.37762, 71.37677, 71.38089, 71.38497, 71.38523, 71.39012, 71.38008, 71.39605, 71.40541, 
  71.4085, 71.41348, 71.41896, 71.43098, 71.43484, 71.44969, 71.4605, 71.46908, 71.47767, 71.47638, 
  71.47844, 71.50291, 71.50343, 71.50259, 71.50001, 71.49628, 71.48371, 71.48371, 71.48946, 71.49007, 
  71.48346, 71.48629, 71.49006, 71.49019, 71.49401, 71.49392, 71.49667, 71.50255, 71.50847, 71.50834, 
  71.52049, 71.52553, 71.52975, 71.53383, 71.53557, 71.54055, 71.55102, 71.55092, 71.55141, 71.55194, 
  71.55323, 71.55272, 71.55155, 71.55071, 71.55061, 71.55104, 71.55099, 71.55057, 71.54999, 71.54961, 
  71.5496, 71.54996, 71.54967, 71.54984, 71.54943, 71.54881, 71.54894, 71.54949, 71.54996, 71.55053, 
  71.55055, 71.55018, 71.55021, 71.54998, 71.54904, 71.5481, 71.55182, 71.55143, 71.55153, 71.551, 
  71.55051, 71.54876, 71.54765, 71.54644, 71.54219, 71.5397, 71.53678, 71.53406, 71.53363, 71.53296, 
  71.53273, 71.53292, 71.53497, 71.53488, 71.53525, 71.53587, 71.54063, 71.53963, 71.53796, 71.53698, 
  71.53621, 71.53574, 71.53452, 71.53252, 71.53163, 71.53077, 71.53006, 71.52888, 71.52794, 71.52701, 
  71.52555, 71.52547, 71.52307, 71.5212, 71.51999, 71.51274, 71.50981, 71.50802, 71.50649, 71.50605, 
  71.50616, 71.50969, 71.50869, 71.50919, 71.50909, 71.51056, 71.51013, 71.51175, 71.51072, 71.50761, 
  71.50523, 71.5028, 71.50188, 71.4995, 71.49948, 71.50396, 71.5062, 71.50529, 71.51183, 71.51681, 
  71.52076, 71.52118, 71.53724, 71.54643, 71.54623, 71.54795, 71.55098, 71.55786, 71.55803, 71.56508, 
  71.56789, 71.57321, 71.58158, 71.58477, 71.59306, 71.59679, 71.60036, 71.60667, 71.61006, 71.61091, 
  71.61619, 71.61812, 71.6204, 71.61945, 71.62151, 71.61786, 71.61877, 71.61774, 71.61671, 71.61289, 
  71.60941, 71.61053, 71.6098, 71.60735, 71.60491, 71.59894, 71.59877, 71.60199, 71.60053, 71.59976, 
  71.598, 71.59692, 71.59671, 71.59821, 71.59714, 71.59761, 71.59409, 71.59392, 71.60087, 71.60057, 
  71.60478, 71.60516, 71.621, 71.62409, 71.62542, 71.63379, 71.63349, 71.63705, 71.6431, 71.64456, 
  71.64812, 71.64863, 71.65009, 71.65168, 71.65391, 71.65376, 71.655, 71.65706, 71.65726, 71.65659, 
  71.65636, 71.65533, 71.65269, 71.6511, 71.64736, 71.64668, 71.64625, 71.64507, 71.64136, 71.64101, 
  71.64166, 71.63728, 71.63739, 71.63569, 71.63106, 71.62683, 71.62554, 71.62056, 71.61831, 71.6114, 
  71.60861, 71.60821, 71.59718, 71.59757, 71.59572, 71.59323, 71.58658, 71.58731, 71.581, 71.57873, 
  71.56984, 71.5686, 71.5662, 71.56388, 71.56375, 71.56165, 71.55148, 71.54748, 71.54452, 71.54328, 
  71.5455, 71.5465, 71.54634, 71.55219, 71.55339, 71.55353, 71.55409, 71.55465, 71.55524, 71.55637, 
  71.55355, 71.55361, 71.55409, 71.5534, 71.55385, 71.55394, 71.5535, 71.55351, 71.56131, 71.56392, 
  71.56591, 71.56795, 71.5696, 71.57711, 71.57887, 71.58022, 71.57954, 71.59065, 71.60044, 71.63482, 
  71.64315, 71.65406, 71.68066, 71.6804, 71.65937, 71.65542, 71.64658, 71.63217, 71.6247, 71.60581, 
  71.59954, 71.58898, 71.58187, 71.57388, 71.56804, 71.53693, 71.53083, 71.53264, 71.53113, 71.53169, 
  71.54311, 71.54135, 71.54324, 71.54251, 71.5516, 71.55852, 71.55482, 71.55553, 71.55226, 71.54752, 
  71.54224, 71.52366, 71.52045, 71.51581, 71.50933, 71.50727, 71.50547, 71.50217, 71.50573, 71.50539, 
  71.50805, 71.50727, 71.5089, 71.51221, 71.50762, 71.49929, 71.49298, 71.48852, 71.48186, 71.47985, 
  71.47462, 71.44917, 71.43861, 71.43303, 71.43028, 71.42998, 71.42724, 71.41869, 71.41221, 71.40715, 
  71.40088, 71.38895, 71.38423, 71.38037, 71.36046, 71.35093, 71.34724, 71.34724, 71.34089, 71.33234, 
  71.32978, 71.32227, 71.31827, 71.30415, 71.2963, 71.2948, 71.29403, 71.29231, 71.29454, 71.29519, 
  71.29261, 71.29506, 71.29042, 71.29463, 71.28793, 71.28901, 71.28523, 71.27742, 71.26883, 71.26819, 
  71.26823, 71.26716, 71.26677, 71.26802, 71.2634, 71.25017, 71.24038, 71.23975, 71.22833, 71.22404, 
  71.22662, 71.22584, 71.20858, 71.19961, 71.19437, 71.18695, 71.18433, 71.1806, 71.16957, 71.15965, 
  71.15107, 71.15283, 71.15013, 71.13425, 71.11794, 71.11502, 71.1103, 71.10704, 71.10597, 71.10181, 
  71.09632, 71.0897, 71.08893, 71.09438, 71.09494, 71.09224, 71.09224, 71.09541, 71.09885, 71.09803, 
  71.10249, 71.1076, 71.10928, 71.11228, 71.1173, 71.11468, 71.10872, 71.10288, 71.10275, 71.09636, 
  71.09172, 71.08829, 71.08816, 71.08687, 71.08653, 71.08365, 71.08018, 71.0776, 71.07537, 71.07017, 
  71.06713, 71.06495, 71.05202, 71.04468, 71.04309, 71.04155, 71.03958, 71.0385, 71.03799, 71.03468, 
  71.03402, 71.02955, 71.02518, 71.02432, 71.02305, 71.02342, 71.02007, 71.01947, 71.01752, 71.01705, 
  71.01449, 71.01102, 71.01501, 71.01488, 71.01533, 71.01417, 71.0149, 71.01344, 71.01614, 71.01531, 
  71.01765, 71.01305, 71.01162, 71.01048, 71.00958, 71.00728, 71.00572, 71.00557, 71.00417, 71.00692, 
  71.01018, 71.0134, 71.01302, 71.01538, 71.01375, 71.01968, 71.02208, 71.02349, 71.02267, 71.02413, 
  71.03958, 71.03799, 71.0519, 71.05151, 71.05486, 71.05962, 71.0646, 71.06919, 71.07104, 71.07426, 
  71.07907, 71.09211, 71.09323, 71.0967, 71.10159, 71.10751, 71.10785, 71.10963, 71.11058, 71.11684, 
  71.11483, 71.1153, 71.11639, 71.12178, 71.12408, 71.12498, 71.12596, 71.12521, 71.12431, 71.1262, 
  71.1261, 71.12572, 71.12685, 71.12662, 71.12552, 71.12392, 71.12366, 71.12472, 71.12472, 71.12343, 
  71.12038, 71.11916, 71.12014, 71.12053, 71.11911, 71.11998, 71.12189, 71.11562, 71.12335, 71.13945, 
  71.14386, 71.15133, 71.15674, 71.17253, 71.17605, 71.16674, 71.16781, 71.17017, 71.16592, 71.16292, 
  71.15614, 71.15506, 71.15824, 71.15266, 71.1515, 71.1524, 71.15124, 71.14545, 71.1409, 71.13721, 
  71.1336, 71.13133, 71.12978, 71.12928, 71.13074, 71.12396, 71.12517, 71.11881, 71.13856, 71.12345, 
  71.12242, 71.13014, 71.09074, 71.09083, 71.09421, 71.09391, 71.09434, 71.09371, 71.0849, 71.07756, 
  71.07082, 71.08242, 71.06594, 71.03976, 71.03392, 71.02877, 71.02439, 71.02611, 71.01104, 71.01117, 
  71.00095, 70.99705, 70.99052, 70.98701, 70.97374, 70.97342, 70.97074, 70.96896, 70.96718, 70.96711, 
  70.96516, 70.96144, 70.95471, 70.94458, 70.93642, 70.9353, 70.91384, 70.91617, 70.92046, 70.91891, 
  70.90767, 70.88312, 70.86604, 70.86329, 70.85453, 70.84079, 70.83505, 70.82192, 70.81101, 70.78905, 
  70.77909, 70.7529, 70.74434, 70.7148, 70.7063, 70.70004, 70.6936, 70.68527, 70.67737, 70.65686, 
  70.64836, 70.64252, 70.63918, 70.6289, 70.60151, 70.59841, 70.58966, 70.5839, 70.58064, 70.55164, 
  70.5476, 70.51257, 70.49894, 70.43885, 70.4144, 70.39638, 70.37586, 70.36162, 70.34385, 70.31878, 
  70.28058, 70.25433, 70.24428, 70.22385, 70.20119, 70.17502, 70.166, 70.15837, 70.14841, 70.13115, 
  70.12806, 70.12102, 70.11755, 70.10102, 70.09677, 70.08982, 70.08742, 70.08046, 70.06888, 70.06274, 
  70.03777, 70.02678, 70.01536, 69.99889, 69.99167, 69.97778, 69.96559, 69.95691, 69.94953, 69.9365, 
  69.91958, 69.90344, 69.88971, 69.89933, 69.90337, 69.90139, 69.87736, 69.87263, 69.87487, 69.87272, 
  69.86173, 69.85865, 69.86208, 69.85959, 69.85607, 69.85616, 69.86071, 69.85822, 69.86062, 69.85856, 
  69.86654, 69.87453, 69.88749, 69.89195, 69.9007, 69.91418, 69.91676, 69.91297, 69.91777, 69.93494, 
  69.94386, 69.94897, 69.95176, 69.9521, 69.95545, 69.95893, 69.96043, 69.9661, 69.9658, 69.96159, 
  69.96588, 69.9837, 69.98937, 69.98988, 70.0025, 70.00429, 70.01399, 70.0188, 70.03108, 70.03812, 
  70.04061, 70.06094, 70.07623, 70.08507, 70.08653, 70.09915, 70.106, 70.11244, 70.12446, 70.13176, 
  70.14258, 70.13975, 70.14626, 70.1436, 70.14463, 70.1533, 70.15167, 70.1436, 70.14369, 70.16429, 
  70.16849, 70.17777, 70.18833, 70.19185, 70.19983, 70.19519, 70.19553, 70.20008, 70.17072, 70.17282, 
  70.18896, 70.20682, 70.19961, 70.22194, 70.23636, 70.24735, 70.24495, 70.2525, 70.26967, 70.28135, 
  70.29612, 70.30017, 70.32353, 70.3237, 70.30893, 70.31202, 70.32524, 70.32678, 70.30927, 70.28627, 
  70.22465, 70.16439, 70.16388, 70.13091, 70.11958, 70.08781, 70.07854, 70.07132, 70.06188, 70.06514, 
  70.02052, 70.00472, 69.99244, 69.98119, 69.97117, 69.93966, 69.93571, 69.93571, 69.93004, 69.92352, 
  69.92868, 69.92576, 69.92611, 69.92473, 69.91752, 69.89417, 69.88567, 69.88546, 69.88168, 69.87872, 
  69.84302, 69.83916, 69.81427, 69.79899, 69.7935, 69.79092, 69.78362, 69.76559, 69.73539, 69.73488, 
  69.73557, 69.73127, 69.73016, 69.73127, 69.72999, 69.71487, 69.71067, 69.70088, 69.69068, 69.68475, 
  69.67634, 69.6699, 69.66552, 69.65771, 69.65384, 69.63848, 69.60802, 69.59772, 69.58149, 69.5723, 
  69.55927, 69.52949, 69.52519, 69.49609, 69.49543, 69.50597, 69.50356, 69.49807, 69.4961, 69.50511, 
  69.54571, 69.54666, 69.46948, 69.46278, 69.46803, 69.45704, 69.45842, 69.44631, 69.44117, 69.42219, 
  69.41189, 69.40648, 69.40383, 69.39095, 69.3882, 69.42408, 69.42838, 69.43465, 69.44169, 69.44314, 
  69.43429, 69.43653, 69.45258, 69.45249, 69.44314, 69.42923, 69.42855, 69.43155, 69.42966, 69.41824, 
  69.42116, 69.41447, 69.40967, 69.40769, 69.40855, 69.4131, 69.40829, 69.40469, 69.40615, 69.39772, 
  69.39845, 69.39178, 69.39244, 69.39137, 69.38592, 69.38549, 69.38322, 69.38223, 69.38283, 69.38165, 
  69.38017, 69.36497, 69.35927, 69.35717, 69.35013, 69.34412, 69.34502, 69.34541, 69.32648, 69.31112, 
  69.3064, 69.30223, 69.30301, 69.29005, 69.29202, 69.28808, 69.28056, 69.27391, 69.27434, 69.26576, 
  69.2652, 69.26143, 69.26215, 69.26421, 69.26589, 69.26653, 69.25542, 69.24494, 69.23855, 69.23804, 
  69.24194, 69.24529, 69.24718, 69.2477, 69.26573, 69.27724, 69.28033, 69.29424, 69.31243, 69.27333, 
  69.27023, 69.27604, 69.29613, 69.28761, 69.28736, 69.29139, 69.28968, 69.29546, 69.29997, 69.30005, 
  69.30254, 69.31113, 69.31456, 69.31954, 69.31903, 69.33096, 69.32383, 69.3034, 69.30495, 69.29396, 
  69.29302, 69.27524, 69.27053, 69.19313, 69.11485, 69.04017, 69.02008, 68.98215, 68.96704, 68.95966, 
  68.9334, 68.90679, 68.89253, 68.85616, 68.79006, 68.78441, 68.77548, 68.75848, 68.72791, 68.72199, 
  68.70819, 68.64261, 68.57532, 68.47163, 68.43231, 68.43265, 68.44072, 68.44811, 68.45549, 68.45858, 
  68.46768, 68.49653, 68.5022, 68.51731, 68.5911, 68.5645, 68.54458, 68.54544, 68.53582, 68.52022, 
  68.49034, 68.47489, 68.46922, 68.46029, 68.4531, 68.42768, 68.37243, 68.27901, 68.25414, 68.26358, 
  68.1793, 68.17123, 68.14633, 68.11269, 68.07213, 68.0687, 68.05221, 68.04061, 68.01382, 68.00248, 
  67.99441, 67.97484, 67.93723, 67.93057, 67.91838, 67.91082, 67.90224, 67.88884, 67.85727, 67.81692, 
  67.81487, 67.80474, 67.7977, 67.77229, 67.75512, 67.74808, 67.71854, 67.71597, 67.67527, 67.66044, 
  67.64661, 67.63373, 67.59408, 67.5697, 67.56738, 67.58173, 67.58464, 67.59254, 67.60877, 67.59949, 
  67.61246, 67.62757, 67.63331, 67.63056, 67.63657, 67.65134, 67.65159, 67.64532, 67.6497, 67.75021, 
  67.7854, 67.7969, 67.79239, 67.78737, 67.77278, 67.76578, 67.73771, 67.7366, 67.73313, 67.7272, 
  67.72192, 67.71836, 67.68816, 67.67606, 67.65331, 67.64841, 67.63914, 67.60679, 67.59194, 67.54388, 
  67.5328, 67.51623, 67.48396, 67.46663, 67.38811, 67.29198, 67.27, 67.25059, 67.19688, 67.16889, 
  67.16742, 67.16561, 67.16085, 67.15909, 67.15613, 67.15578, 67.15441, 67.15158, 67.14707, 67.14741, 
  67.13832, 67.13428, 67.12788, 67.12621, 67.10437, 67.10274, 67.10295, 67.09085, 67.06991, 67.06068, 
  67.05339, 67.05085, 67.05111, 67.05292, 67.05193, 67.05352, 67.04691, 67.0445, 67.04347, 67.04107, 
  67.04094, 67.03888, 67.03811, 67.03454, 67.02395, 67.02395, 67.05081, 67.05206, 67.05875, 67.04927, 
  67.03935, 67.0421, 67.03837, 67.02644, 67.02477, 67.01442, 67.01305, 67.01103, 67.0082, 67.00485, 
  66.99978, 66.97953, 66.96734, 66.96339, 66.95799, 66.95576, 66.94859, 66.94601, 66.91958, 66.91683, 
  66.91563, 66.91468, 66.91228, 66.90957, 66.9006, 66.88739, 66.87009, 66.86649, 66.85559, 66.84902, 
  66.83409, 66.83186, 66.83014, 66.82255, 66.82306, 66.81963, 66.8174, 66.81465, 66.8156, 66.81216, 
  66.81276, 66.80748, 66.80581, 66.80199, 66.8019, 66.79787, 66.79628, 66.79087, 66.78486, 66.77941, 
  66.77563, 66.77593, 66.77477, 66.77495, 66.76911, 66.76503, 66.76031, 66.75821, 66.75533, 66.75362, 
  66.75392, 66.75327, 66.74258, 66.7371, 66.73538, 66.73113, 66.72894, 66.72873, 66.72045, 66.71564, 
  66.71555, 66.71877, 66.71792, 66.7101, 66.7153, 66.70234, 66.70165, 66.69221, 66.69191, 66.69534, 
  66.69621, 66.68805, 66.68796, 66.69174, 66.67912, 66.67367, 66.5784, 66.45391, 66.45433, 66.45167, 
  66.43467, 66.4339, 66.42694, 66.41501, 66.41518, 66.41261, 66.41063, 66.40737, 66.40669, 66.40489, 
  66.40107, 66.39824, 66.39059, 66.38714, 66.28791, 66.27847, 66.29272, 66.28654, 66.34817, 66.35607, 
  66.35263, 66.33924, 66.3492, 66.35641, 66.36689, 66.34181, 66.33924, 66.32516, 66.32362, 66.31212, 
  66.30044, 66.28602, 66.28808, 66.26302, 66.25633, 66.22903, 66.23178, 66.37348, 66.31831, 66.29189, 
  66.25136, 65.06498, 64.57113, 64.56564, 64.32906, 64.26591, 64.2508, 64.2484, 64.22882, 64.19104, 
  64.17833, 64.15915, 64.16293, 64.14576, 64.14198, 64.1619, 64.16946, 64.12515, 64.09733, 64.0599, 
  64.03002, 63.97754, 63.90885, 63.91297, 63.86352, 63.57635, 63.34752, 63.347, 63.30546, 63.23251, 
  62.4707, 60.86627,
  71.24397, 70.76126, 71.34622, 72.85487, 74.75637)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_4, Geo)
Geo_4 <- st_set_geometry(Geo_4, st_union(Geo_0, Geo))
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
Geo_4 <- Geo_4 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### NEPAL #####
Geo_0 <- Geometric_Operations(Geo_5, Geo_1)
Geo_5 <- st_set_geometry(Geo_5, Geo_0)
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}
LATITUDE_VALUEs <- c(
  30.18601, 30.19157, 30.17723, 30.18645, 30.18922, 30.20562, 30.20794, 30.21322, 
  30.2262, 30.22351, 30.21215, 30.1946, 30.18781, 30.16939, 30.16055, 30.14525, 30.13079, 30.1262, 
  30.11588, 30.11013, 30.10231, 30.09721, 30.09992, 30.08551, 30.05666, 30.04923, 30.04061, 30.02367, 
  30.00708, 29.99913, 30.00088, 29.99002, 29.97533, 29.95969, 29.95686, 29.95742, 29.95582, 29.96519, 
  29.96378, 29.95893, 29.9593, 29.95798, 29.94894, 29.93715, 29.92763, 29.92339, 29.90896, 29.89538, 
  29.87897, 29.87458, 29.86997, 29.86837, 29.86701, 29.8658, 29.86139, 29.8592, 29.85598, 29.85281, 
  29.85069, 29.84983, 29.85043, 29.84628, 29.84736, 29.84144, 29.83874, 29.83859, 29.83349, 29.83249, 
  29.83167, 29.82895, 29.82692, 29.82543, 29.82476, 29.82314, 29.82177, 29.81948, 29.81778, 29.81086, 
  29.80883, 29.80682, 29.80464, 29.80329, 29.80208, 29.8017, 29.80101, 29.79871, 29.79582, 29.79519, 
  29.79642, 29.79528, 29.79797, 29.80229, 29.80181, 29.79948, 29.79875, 29.79929, 29.8022, 29.80617, 
  29.80617, 29.80522, 29.8025, 29.80144, 29.7989, 29.79592, 29.79622, 29.79577, 29.79384, 29.79179, 
  29.79235, 29.79477, 29.79504, 29.79485, 29.79428, 29.79341, 29.79133, 29.78933, 29.78404, 29.78322, 
  29.78151, 29.77901, 29.77663, 29.77669, 29.77324, 29.76698, 29.76549, 29.76303, 29.75975, 29.75815, 
  29.75852, 29.76054, 29.75972, 29.75759, 29.75059, 29.74951, 29.75092, 29.74936, 29.74638, 29.73863, 
  29.73419, 29.73031, 29.72592, 29.72182, 29.72122, 29.71996, 29.71858, 29.71621, 29.71485, 29.71385, 
  29.71183, 29.70242, 29.70115, 29.68859, 29.68568, 29.6849, 29.67841, 29.67625, 29.67371, 29.67176, 
  29.67122, 29.66622, 29.66443, 29.66277, 29.66212, 29.65953, 29.65887, 29.65964, 29.65954, 29.65906, 
  29.65623, 29.65429, 29.65354, 29.65419, 29.65179, 29.65044, 29.64782, 29.6439, 29.64119, 29.63946, 
  29.63853, 29.63588, 29.63345, 29.63146, 29.62972, 29.62667, 29.62624, 29.62557, 29.62499, 29.61993, 
  29.61512, 29.61376, 29.61284, 29.6115, 29.60945, 29.60486, 29.59699, 29.59346, 29.58775, 29.58741, 
  29.58661, 29.58473, 29.58136, 29.57255, 29.56124, 29.5606, 29.56411, 29.56318, 29.5613, 29.55734, 
  29.55622, 29.55538, 29.55269, 29.54881, 29.54239, 29.5403, 29.54018, 29.53608, 29.5341, 29.5331, 
  29.52947, 29.52774, 29.52516, 29.52408, 29.51932, 29.5099, 29.50996, 29.51315, 29.5128, 29.50675, 
  29.50512, 29.49961, 29.49758, 29.49452, 29.49186, 29.48667, 29.48457, 29.48435, 29.48517, 29.4861, 
  29.49051, 29.49033, 29.48838, 29.4854, 29.47867, 29.47777, 29.4762, 29.46876, 29.46171, 29.45557, 
  29.4528, 29.45168, 29.45123, 29.45357, 29.45146, 29.45131, 29.45237, 29.45389, 29.4571, 29.45815, 
  29.45867, 29.45848, 29.4571, 29.45557, 29.45435, 29.4537, 29.45379, 29.45185, 29.44989, 29.44957, 
  29.45028, 29.44856, 29.45155, 29.4514, 29.45034, 29.44841, 29.44701, 29.4469, 29.44398, 29.44246, 
  29.4379, 29.43222, 29.42359, 29.41626, 29.41469, 29.41219, 29.41121, 29.39742, 29.39514, 29.39196, 
  29.38646, 29.37835, 29.37334, 29.36279, 29.35946, 29.34764, 29.33885, 29.33612, 29.3332, 29.32377, 
  29.32243, 29.31449, 29.30873, 29.30334, 29.29058, 29.28994, 29.28545, 29.26587, 29.2594, 29.24228, 
  29.23146, 29.22175, 29.21928, 29.21126, 29.20669, 29.19665, 29.19493, 29.19703, 29.20744, 29.20594, 
  29.20856, 29.22025, 29.22175, 29.20182, 29.1947, 29.18654, 29.17777, 29.16683, 29.14464, 29.13857, 
  29.13954, 29.13624, 29.12845, 29.12605, 29.11652, 29.12462, 29.12995, 29.13744, 29.12725, 29.12717, 
  29.12515, 29.11675, 29.10475, 29.06267, 29.0593, 29.03168, 29.03041, 29.01292, 29.00962, 29.00751, 
  29.00601, 28.98146, 28.98589, 28.91617, 28.90851, 28.83726, 28.82462, 28.82903)
LONGITUDE_VALUEs <- c(
  80.99666, 80.97452, 80.9329, 80.93128, 80.92446, 80.92361, 80.9288, 80.93025, 
  80.91968, 80.90984, 80.89648, 80.88364, 80.88503, 80.86262, 80.87167, 80.87351, 80.87842, 80.874, 
  80.84432, 80.84163, 80.84495, 80.83591, 80.82134, 80.80151, 80.77887, 80.76067, 80.75552, 80.75689, 
  80.74788, 80.73827, 80.72012, 80.71269, 80.69115, 80.67887, 80.67308, 80.66836, 80.64832, 80.6315, 
  80.61922, 80.60952, 80.60461, 80.60124, 80.59047, 80.58162, 80.57781, 80.57394, 80.56918, 80.5724, 
  80.56575, 80.55978, 80.55674, 80.55762, 80.56116, 80.56101, 80.55429, 80.55435, 80.5512, 80.55322, 
  80.55287, 80.55154, 80.54858, 80.54339, 80.53856, 80.53607, 80.53605, 80.53163, 80.52803, 80.52382, 
  80.52326, 80.52388, 80.52139, 80.51743, 80.51245, 80.50719, 80.50597, 80.50511, 80.50174, 80.49758, 
  80.50009, 80.4989, 80.49538, 80.49539, 80.49472, 80.49233, 80.49235, 80.49442, 80.49409, 80.49312, 
  80.48286, 80.48014, 80.4766, 80.46417, 80.45278, 80.44969, 80.44652, 80.44308, 80.43907, 80.43649, 
  80.43501, 80.43396, 80.43293, 80.43059, 80.4302, 80.4214, 80.4174, 80.41582, 80.4141, 80.41384, 
  80.41015, 80.40865, 80.40731, 80.40675, 80.40655, 80.40779, 80.4076, 80.40612, 80.40728, 80.40471, 
  80.4035, 80.40509, 80.40386, 80.40281, 80.39973, 80.39861, 80.39616, 80.39629, 80.39771, 80.39595, 
  80.39329, 80.3911, 80.38667, 80.38474, 80.38625, 80.37096, 80.36882, 80.36655, 80.36487, 80.36492, 
  80.36975, 80.3664, 80.36562, 80.36786, 80.37498, 80.37618, 80.37603, 80.37219, 80.37238, 80.3736, 
  80.37435, 80.37712, 80.37957, 80.38032, 80.38459, 80.38487, 80.38354, 80.38378, 80.38498, 80.38976, 
  80.39025, 80.38937, 80.39023, 80.39702, 80.39794, 80.39837, 80.39959, 80.40334, 80.40553, 80.40706, 
  80.40899, 80.40948, 80.41042, 80.41401, 80.41628, 80.41652, 80.41435, 80.41414, 80.41626, 80.41987, 
  80.42036, 80.41974, 80.41946, 80.42107, 80.42085, 80.41849, 80.41326, 80.41119, 80.41053, 80.40798, 
  80.40823, 80.40617, 80.40579, 80.40613, 80.40802, 80.40886, 80.40817, 80.40622, 80.40135, 80.39882, 
  80.3977, 80.39663, 80.39121, 80.3888, 80.37943, 80.37788, 80.3638, 80.36234, 80.36212, 80.36444, 
  80.36294, 80.34857, 80.34238, 80.34582, 80.34132, 80.34179, 80.34909, 80.35188, 80.35723, 80.35792, 
  80.35667, 80.35565, 80.34916, 80.34817, 80.34998, 80.34135, 80.33933, 80.33449, 80.33157, 80.33, 
  80.32803, 80.31455, 80.31288, 80.31328, 80.31441, 80.31407, 80.3133, 80.31231, 80.31106, 80.30424, 
  80.30076, 80.29848, 80.29638, 80.29655, 80.29278, 80.28763, 80.28664, 80.29108, 80.29563, 80.30243, 
  80.30232, 80.3017, 80.30032, 80.29384, 80.28749, 80.28161, 80.27938, 80.27917, 80.28067, 80.28018, 
  80.27831, 80.2756, 80.27153, 80.26932, 80.26921, 80.26966, 80.2723, 80.27475, 80.27466, 80.27415, 
  80.2702, 80.26672, 80.25852, 80.25728, 80.2564, 80.2561, 80.25072, 80.24584, 80.24275, 80.24248, 
  80.24695, 80.24733, 80.24403, 80.24575, 80.2454, 80.24192, 80.24212, 80.26342, 80.27223, 80.27566, 
  80.27291, 80.27918, 80.27115, 80.27162, 80.27974, 80.27935, 80.2863, 80.29115, 80.29021, 80.29639, 
  80.30887, 80.31686, 80.31548, 80.31857, 80.31037, 80.30702, 80.30445, 80.30218, 80.29879, 80.30093, 
  80.2902, 80.29627, 80.29645, 80.29353, 80.29773, 80.29275, 80.28914, 80.28391, 80.27635, 80.26175, 
  80.25867, 80.25601, 80.24837, 80.24098, 80.25155, 80.2585, 80.25996, 80.25807, 80.27258, 80.27155, 
  80.25695, 80.25137, 80.25, 80.24229, 80.2337, 80.20622, 80.20221, 80.18366, 80.17627, 80.16992, 
  80.16623, 80.16511, 80.1453, 80.12907, 80.13585, 80.12642, 80.13123, 80.12486, 80.13594, 80.135, 
  80.12658, 80.1174, 80.1004, 80.05846, 80.05709, 80.06465, 80.07461, 80.11795)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(st_geometry(Geo_5), st_geometry(Geo))
Geo_5 <- st_set_geometry(Geo_5, Geo_0[2])
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}
Geo_5 <- Geo_5 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

#Replace GEOMETRIE(s)
GeoDATA_from_WHO <- GeoDATA_from_WHO %>% 
  filter(!NAME %in% c("INDIA", "PAKISTAN", "CHINA", "AFGHANISTAN", "NEPAL"))
GeoDATA_from_WHO <- rbind(GeoDATA_from_WHO, Geo_1, Geo_2, Geo_3, Geo_4, Geo_5)

#New GEOMETRIE(s) (GeoDATA_from_WHO To GeoDATA)
GeoDATA <- rbind(
  GeoDATA_from_WHO, Claimed_Area_1, Claimed_Area_2, Claimed_Area_3, Claimed_Area_4, Claimed_Area_5)

AKSAI CHIN is included in CHINA in GeoDATA.

AKSAI CHIN is an area claimed by CHINA and by INDIA.

AKSAI CHIN has been controlled by CHINA since 1962.

##### AKSAI CHIN #####
LATITUDE_VALUEs <- c(
  35.48377, 35.48112, 35.48124, 35.48267, 35.48748, 35.49576, 35.49317, 35.49142, 35.49115, 35.48971, 
  35.49132, 35.49425, 35.49221, 35.489, 35.48424, 35.46836, 35.47053, 35.46979, 35.47423, 35.47601, 
  35.48873, 35.4995, 35.49324, 35.49247, 35.48978, 35.47011, 35.43494, 35.39969, 35.35882, 35.23945, 
  35.23889, 35.22886, 35.22943, 35.17788, 35.17577, 35.16616, 35.11977, 35.07033, 35.0359, 35.01088, 
  34.99316, 34.98332, 34.97234, 34.95476, 34.93802, 34.90212, 34.89684, 34.89135, 34.8891, 34.88076, 
  34.86741, 34.85255, 34.83917, 34.81113, 34.80492, 34.77236, 34.76968, 34.73555, 34.72031, 34.70126, 
  34.67614, 34.66117, 34.63476, 34.61527, 34.60354, 34.60721, 34.59054, 34.57075, 34.56058, 34.54184, 
  34.54347, 34.56899, 34.56814, 34.58008, 34.58418, 34.57351, 34.57726, 34.57181, 34.57153, 34.54008, 
  34.51172, 34.50443, 34.50719, 34.51851, 34.52806, 34.53986, 34.53795, 34.54389, 34.52671, 34.52767, 
  34.52516, 34.50054, 34.48187, 34.48038, 34.47883, 34.46595, 34.4593, 34.45632, 34.43934, 34.44273, 
  34.43566, 34.41796, 34.41781, 34.39544, 34.39076, 34.37922, 34.37079, 34.3586, 34.3535, 34.3654, 
  34.36533, 34.37996, 34.38928, 34.38673, 34.3715, 34.35477, 34.35392, 34.33592, 34.3338, 34.32515, 
  34.31664, 34.31523, 34.29864, 34.28048, 34.23522, 34.22486, 34.15358, 34.14932, 34.14292, 34.14108, 
  34.14775, 34.14811, 34.16558, 34.16565, 34.14157, 34.14243, 34.13497, 34.12843, 34.12474, 34.13781, 
  34.08963, 34.09489, 34.08892, 34.08394, 34.07954, 34.0919, 34.0747, 34.06503, 34.06077, 34.05579, 
  34.03147, 34.01496, 34.00016, 33.921, 33.91445, 33.88951, 33.88502, 33.83535, 33.78428, 33.77358, 
  33.75903, 33.74518, 33.71963, 33.67807, 33.66507, 33.6635, 33.63978, 33.62248, 33.62763, 33.62334, 
  33.56886, 33.5049, 33.48321, 33.47534, 33.42514, 33.41024, 
  33.38613, 33.38996, 33.40365, 33.4072, 33.41227, 33.41911, 33.45687, 33.48675, 33.50955, 33.55105, 
  33.57534, 33.62087, 33.60694, 33.62109, 33.61903, 33.63947, 33.66557, 33.66862, 33.69254, 33.709, 
  33.75371, 33.76342, 33.76948, 33.77478, 33.79919, 33.8185, 33.91154, 33.97123, 34.00846, 34.03658, 
  34.00689, 33.98906, 33.99938, 34.00631, 34.02357, 34.02483, 34.01084, 34.02295, 34.01211, 34.01077, 
  33.99514, 33.99639, 34.00976, 34.03741, 34.04515, 34.07588, 34.08936, 34.11323, 34.11654, 34.11576, 
  34.12669, 34.134, 34.145, 34.1498, 34.16138, 34.17155, 34.19081, 34.21125, 34.22745, 34.24134, 
  34.23715, 34.25314, 34.27241, 34.28308, 34.30813, 34.321, 34.37268, 34.40209, 34.4157, 34.42458, 
  34.44298, 34.45239, 34.46253, 34.45892, 34.48043, 34.47824, 34.45686, 34.46123, 34.46655, 34.4652, 
  34.44974, 34.45544, 34.48161, 34.48648, 34.47164, 34.47793, 34.4722, 34.47036, 34.47884, 34.48007, 
  34.51758, 34.54483, 34.56454, 34.5692, 34.57684, 34.58928, 34.60908, 34.62746, 34.64672, 34.67188, 
  34.69649, 34.69161, 34.67677, 34.67381, 34.69973, 34.69194, 34.70784, 34.71865, 34.76068, 34.77197, 
  34.76846, 34.778, 34.78198, 34.82942, 34.85605, 34.86861, 34.86915, 34.88106, 34.89475, 34.90684, 
  34.91909, 34.94738, 34.96076, 34.96158, 34.97218, 34.98029, 34.98436, 34.99025, 34.99278, 35.00247, 
  35.12043, 35.12321, 35.13968, 35.15196, 35.16356, 35.17343, 35.18279, 35.20495, 35.20293, 35.21119, 
  35.21722, 35.22699, 35.23309, 35.26799, 35.29504, 35.34522, 35.35381, 35.38279, 35.43904, 35.45345, 
  35.47244, 35.49352, 35.53089, 35.59826, 35.64077, 35.65695, 35.66161, 35.65361, 35.65278, 35.67067, 
  35.66214, 35.69527, 35.71389, 35.73175, 35.74145, 35.74007, 35.74693, 35.76141, 35.79013, 35.79625, 
  35.81947, 35.82689, 35.81876, 35.80703, 35.79608, 35.77318, 35.77134, 35.77459, 35.78151, 35.7909, 
  35.79176, 35.80715, 35.80069, 35.81095, 35.80695, 35.80017, 35.822, 35.83353, 35.87152, 35.87766, 
  35.88115, 35.88285, 35.88195, 35.90199, 35.92509, 35.93566, 35.96874, 35.98738, 35.97768, 35.99255, 
  35.97134, 35.91091, 35.90364, 35.90148, 35.89023, 35.88259, 35.85749, 35.84638, 35.83451, 35.82418, 
  35.80852, 35.81431, 35.81185, 35.83458, 35.84729, 35.8498, 35.84534, 35.88527, 35.86927, 35.85315, 
  35.87022, 35.85146, 35.82229, 35.81127, 35.79776, 35.78742, 35.76256, 35.76273, 35.77041, 35.76891, 
  35.76373, 35.77641, 35.78158, 35.76908, 35.76391, 35.74204, 35.73069, 35.71984, 35.72485, 35.71132, 
  35.69537, 35.68073, 35.66913, 35.65528, 35.64621, 35.65393, 35.65986, 35.66538, 35.67504, 35.66748, 
  35.65913, 35.63927, 35.63453, 35.62619, 35.62416, 35.61861, 35.61754, 35.61244, 35.6065, 35.60044, 
  35.59733, 35.59858, 35.59184, 35.58686, 35.581, 35.57403, 35.56681, 35.55072, 35.54554, 35.55554, 
  35.54312, 35.54751, 35.57235, 35.5726, 35.58599, 35.58434, 35.59993, 35.60511, 35.59685, 35.58564, 
  35.56591, 35.51305, 35.50159, 35.50208)
LONGITUDE_VALUEs <- c(
  77.95546, 77.964, 77.9666, 77.96825, 77.96768, 77.96893, 77.98704, 77.98696, 77.9921, 77.99472, 
  77.99807, 78.0006, 78.00434, 78.00717, 78.00797, 78.02498, 78.02905, 78.03343, 78.03609, 78.0345, 
  78.03978, 78.09819, 78.13591, 78.13716, 78.13677, 78.11028, 78.10414, 78.05401, 78.02287, 78.00303, 
  78.00767, 78.00535, 78.01088, 78.05498, 78.08813, 78.10432, 78.10305, 78.14631, 78.11421, 78.14288, 
  78.15215, 78.18305, 78.20142, 78.20193, 78.17343, 78.20759, 78.20314, 78.20314, 78.22537, 78.23584, 
  78.23589, 78.22817, 78.23452, 78.22559, 78.23162, 78.22698, 78.21256, 78.20192, 78.20862, 78.27196, 
  78.27797, 78.26198, 78.26938, 78.28981, 78.35694, 78.38407, 78.42941, 78.43124, 78.42644, 78.43562, 
  78.44618, 78.45931, 78.47493, 78.4836, 78.49819, 78.51347, 78.53158, 78.54247, 78.55201, 78.56042, 
  78.55947, 78.57999, 78.58832, 78.59381, 78.59149, 78.61398, 78.62504, 78.63389, 78.68727, 78.70461, 
  78.7101, 78.71783, 78.76144, 78.76213, 78.75723, 78.75697, 78.73851, 78.73843, 78.76566, 78.78317, 
  78.80583, 78.82438, 78.846, 78.87759, 78.87851, 78.86726, 78.87232, 78.8882, 78.90529, 78.90632, 
  78.92639, 78.9324, 78.94721, 78.9651, 78.9636, 78.98674, 78.99791, 79.03053, 79.03963, 79.0453, 
  79.02882, 78.97987, 78.98519, 78.96943, 78.95878, 78.94351, 78.92307, 78.90812, 78.90881, 78.90452, 
  78.89936, 78.89018, 78.87189, 78.8621, 78.85353, 78.84185, 78.83498, 78.83524, 78.82606, 78.79465, 
  78.74386, 78.70746, 78.69217, 78.69578, 78.68118, 78.66933, 78.65697, 78.66918, 78.66969, 78.65355, 
  78.6563, 78.72052, 78.74249, 78.72978, 78.76247, 78.76144, 78.75122, 78.76516, 78.75434, 78.7643, 
  78.76326, 78.77631, 78.76309, 78.74301, 78.72498, 78.71278, 78.69595, 78.71828, 78.75073, 78.75777, 
  78.73287, 78.7853, 78.81474, 78.81002, 78.83708, 78.90232, 
  78.93606, 78.93969, 78.93787, 78.9324, 78.93119, 78.93574, 78.92724, 78.93149, 78.94424, 78.93179, 
  78.88592, 78.9087, 79.00378, 79.04481, 79.08462, 79.09073, 79.06466, 79.03594, 79.00775, 79.00876, 
  79.02861, 79.01007, 79.01129, 78.99884, 78.98954, 78.96716, 78.93765, 78.88736, 78.90718, 78.99544, 
  79.03791, 79.10576, 79.14704, 79.14602, 79.17428, 79.19362, 79.22888, 79.24821, 79.27692, 79.32027, 
  79.35732, 79.3918, 79.40975, 79.41016, 79.4247, 79.42743, 79.41561, 79.42571, 79.43962, 79.46893, 
  79.48812, 79.49183, 79.49039, 79.49602, 79.49365, 79.49836, 79.49016, 79.56093, 79.57302, 79.591, 
  79.6059, 79.61243, 79.60689, 79.61311, 79.60179, 79.57324, 79.55856, 79.53026, 79.53661, 79.52706, 
  79.53172, 79.50848, 79.51303, 79.52248, 79.53836, 79.5454, 79.56204, 79.58724, 79.59195, 79.6054, 
  79.62761, 79.67556, 79.68609, 79.70369, 79.72361, 79.7524, 79.75526, 79.76568, 79.7776, 79.79311, 
  79.80895, 79.80939, 79.78782, 79.78713, 79.79039, 79.8019, 79.78557, 79.78626, 79.82989, 79.84775, 
  79.89852, 79.93308, 79.94291, 79.95268, 79.97161, 79.99185, 80.07549, 80.08084, 80.06679, 80.07712, 
  80.09116, 80.10032, 80.09947, 80.11465, 80.13627, 80.1365, 80.16284, 80.17133, 80.21067, 80.20355, 
  80.2054, 80.18676, 80.19753, 80.21177, 80.22768, 80.22464, 80.23148, 80.23333, 80.21613, 80.21734, 
  80.19526, 80.20866, 80.2173, 80.23666, 80.22224, 80.22163, 80.24371, 80.25653, 80.28229, 80.28452, 
  80.27326, 80.2774, 80.2854, 80.29416, 80.26686, 80.28263, 80.2722, 80.28368, 80.27925, 80.28281, 
  80.32487, 80.32588, 80.31171, 80.28381, 80.25363, 80.22153, 80.19532, 80.18304, 80.17254, 80.16372, 
  80.1285, 80.10968, 80.10842, 80.09395, 80.07987, 80.07312, 80.06749, 80.06628, 80.04756, 80.03292, 
  80.02131, 79.9895, 79.94242, 79.91893, 79.91732, 79.84895, 79.83709, 79.83055, 79.83228, 79.82347, 
  79.81336, 79.80787, 79.79238, 79.74859, 79.72888, 79.71571, 79.70802, 79.65025, 79.53748, 79.54429, 
  79.54544, 79.54315, 79.51215, 79.4681, 79.4562, 79.4395, 79.44222, 79.34476, 79.33752, 79.26439, 
  79.21302, 79.17412, 79.17246, 79.17264, 79.18385, 79.18972, 79.19202, 79.20571, 79.20243, 79.20895, 
  79.16784, 79.15697, 79.13682, 79.03229, 79.01582, 79.00346, 78.9935, 78.97308, 78.88279, 78.85865, 
  78.79904, 78.67291, 78.65544, 78.60741, 78.57677, 78.57451, 78.5338, 78.52064, 78.51509, 78.47971, 
  78.46388, 78.45956, 78.44001, 78.41947, 78.417, 78.41844, 78.40755, 78.34216, 78.27677, 78.26939, 
  78.26981, 78.25445, 78.25556, 78.26695, 78.25854, 78.24018, 78.21804, 78.21354, 78.18653, 78.18094, 
  78.19377, 78.19656, 78.18055, 78.18343, 78.1773, 78.17681, 78.17312, 78.17278, 78.18071, 78.18085, 
  78.1766, 78.1702, 78.1608, 78.1622, 78.1577, 78.16216, 78.15874, 78.15644, 78.12932, 78.10448, 
  78.09041, 78.08083, 78.06587, 78.05719, 78.04372, 78.00787, 77.98192, 77.96237, 77.9522, 77.96867, 
  77.96567, 77.93004, 77.94232, 77.9507)
Claimed_Area_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Claimed_Area_1 <- Claimed_Area_1 %>% 
  mutate(NAME = "AKSAI CHIN", VISUALIZATION_NAME = "Aksai Chin", 
         ISO2 = NA, ISO3 = NA, M49_CODE = NA, SOVRN = "China", CONTINENT = "ASIA", 
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) and TERRITORIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "CHINA")
Geo_2 <- GeoDATA %>% filter(NAME == "LADAKH")

##### CHINA #####
Geo_0 <- Geometric_Operations(Geo_1, Claimed_Area_1)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_union(Geo_0[c(1:43, 50)]))
LATITUDE_VALUEs <- c(33.41024, 33.38613, 33.37139)
LONGITUDE_VALUEs <- c(78.90232, 78.93606, 78.95415)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_1, Geo)
Geo_1 <- st_set_geometry(Geo_1, Geo_0)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### LADAKH #####
Geo_2 <- st_union(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("CHINA", "LADAKH"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, Claimed_Area_1)

ABYEI AREA is included in SUDAN in GeoDATA.

ABYEI AREA is claimed by SUDAN and by SOUTH SUDAN.

ABYEI AREA has been a special administrative area since 2005.

ABYEI AREA is considered (on an interim basis) as a condominium.

##### ABYEI #####
LATITUDE_VALUEs <- c(10.16667, 9.76339, 9.61015, 9.34388, 9.35211, 9.41917, 9.49848, 9.67056, 10.16667)
LONGITUDE_VALUEs <- c(27.83333, 27.83298, 27.90721, 28.03605, 28.7679, 28.7679, 28.81668, 28.99999, 28.99999)
Claimed_Area_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Claimed_Area_1 <- Claimed_Area_1 %>% 
  mutate(NAME = "ABYEI AREA", VISUALIZATION_NAME = "Abyei Area", 
         ISO2 = NA, ISO3 = NA, M49_CODE = NA, SOVRN = NA, CONTINENT = "AFRICA", 
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "SUDAN")
Geo_2 <- GeoDATA %>% filter(NAME == "SOUTH SUDAN")
Geo_3 <- GeoDATA %>% filter(NAME == "CENTRAL AFRICAN REPUBLIC")
Geo_4 <- GeoDATA %>% filter(NAME == "ETHIOPIA")

##### SUDAN #####
Geo_0 <- Geometric_Operations(Geo_1, Claimed_Area_1)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_union(Geo_0[c(1, 6)]))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
LATITUDE_VALUEs <- c(9.86722,
  9.67156, 9.66945, 9.66473, 9.66111, 9.65638, 9.6525, 9.64779, 9.64222, 9.63306, 9.58932, 
  9.54694, 9.54144, 9.53526, 9.52965, 9.51941, 9.50892, 9.44957, 9.44034, 9.43839, 9.43933, 
  9.44474, 9.44441, 9.44144, 9.43573, 9.39767, 9.37785, 9.35498, 9.34588, 9.33995, 9.33267, 
  9.32111, 9.28706, 9.28003, 9.27545, 9.25563, 9.22852, 9.21209, 9.19328, 9.18455, 9.18048, 
  9.1798, 9.18201, 9.1798, 9.17752, 9.17404, 9.15328, 9.1454, 9.12468, 9.10557, 9.09188, 
  9.08714, 9.07578, 9.05565, 9.04972, 9.03107, 9.02547, 9.01937, 9.01471, 9.00725, 9.00098, 
  8.99046, 8.98682, 8.98216, 8.973, 8.96944, 8.96121, 8.95681, 8.96054, 9.00021, 9.00462, 
  9.00572, 9.00521, 8.9992, 8.99453, 8.98309, 8.9418, 8.91899, 8.91187, 8.86862, 8.84716, 
  8.83139, 8.82164, 8.81824, 8.81188, 8.80696, 8.78516, 8.77286, 8.76565, 8.76056, 8.74597, 
  8.73639, 8.73087, 8.72392, 8.71777, 8.71407, 8.71106, 8.70856, 8.70589, 8.70474, 8.70495, 
  8.71144, 8.72302, 8.72646, 8.73104, 8.73486, 8.73613, 8.73719, 8.73757, 8.73418, 8.71586, 
  8.71424, 8.71356, 8.72061, 8.71942, 8.71535, 8.70669, 8.70508, 8.70746, 8.71323, 8.72502, 
  8.72502, 8.72773, 8.72807, 8.72697, 8.72273, 8.71076, 8.70788, 8.71866, 8.71161, 8.69851, 
  8.69668, 8.7044, 8.69439, 8.68828, 8.68531, 8.68675, 8.69838, 8.69108, 8.68871, 8.68752, 
  8.68786, 8.69778, 8.69719, 8.69617, 8.69414, 8.69112, 8.68695, 8.70118, 8.70966, 8.71323, 
  8.72528, 8.72448, 8.72117, 8.72901, 8.74004, 8.75353, 8.785, 8.79874, 8.80841, 8.80841, 
  8.80315, 8.79764, 8.80317, 8.81386, 8.83489, 8.83625, 8.83943, 8.8409, 8.84448, 8.86849, 
  8.8758, 8.87961, 8.9112, 8.90857, 8.91481, 8.95309, 8.98625, 9.09851, 9.14888, 9.19897, 
  9.20381, 9.23308, 9.28843, 9.32264, 9.35959, 9.38079, 9.41048, 9.46241, 9.49297, 9.52503, 
  9.57539, 9.59418, 9.61398, 9.65446, 9.65447, 9.68881, 9.71814, 9.73015, 9.78598, 9.81378, 
  9.81558, 9.81603, 9.81662, 9.81688, 9.81699, 9.81696, 9.81665, 9.81574, 9.81561, 9.81708, 
  9.9039, 9.96072, 9.97264, 10.00172, 10.01735, 10.06113, 10.06375, 10.09339, 10.12669, 10.16825, 
  10.30255, 10.35609, 10.33903, 10.3593, 10.38878, 10.40668, 10.43226, 10.39241, 10.37419, 10.1789, 
  10.16758, 10.15034, 10.10877, 10.05807, 10.00002, 9.91664, 9.64539, 9.63118, 9.60647, 9.57278, 
  9.56415, 9.48892, 9.49671, 9.60285, 9.62637, 9.62847, 9.62356, 9.60681, 9.60596,
  9.61015, 9.76339, 10.16667, 10.16667, 9.67056,
  9.68066, 9.69063, 9.69979, 9.70745, 9.71253, 9.7158, 9.71569, 9.71576, 9.71614, 9.71695, 
  9.71739, 9.71771, 9.71791, 9.71807, 9.71789, 9.71819, 9.71877, 9.71903, 9.72906, 9.7313, 
  9.73693, 9.73718, 9.73714, 9.73689, 9.73435, 9.73435, 9.73513, 9.73565, 9.73608, 9.73611, 
  9.73585, 9.73476, 9.73152, 9.73131, 9.73162, 9.73221, 9.73295, 9.73299, 9.73344, 9.73366, 
  9.73428, 9.73453, 9.73474, 9.73499, 9.73505, 9.73547, 9.73615, 9.73741, 9.73781, 9.74076, 
  9.74152, 9.74226, 9.74305, 9.74412, 9.74477, 9.74535, 9.74578, 9.74677, 9.74693, 9.74684, 
  9.74658, 9.7462, 9.74566, 9.74483, 9.74396, 9.74055, 9.73987, 9.73913, 9.73894, 9.73835, 
  9.7369, 9.73619, 9.73553, 9.7353, 9.7352, 9.7352, 9.73551, 9.73684, 9.73905, 9.73953, 
  9.73986, 9.73985, 9.73948, 9.73955, 9.74015, 9.74055, 9.741, 9.7436, 9.74465, 9.74528, 
  9.74525, 9.74441, 9.74059, 9.74006, 9.73842, 9.73842, 9.73882, 9.74227, 9.74414, 9.74498, 
  9.74529, 9.74524, 9.74505, 9.74293, 9.73833, 9.73768, 9.73695, 9.73743, 9.73875, 9.7416, 
  9.74477, 9.74664, 9.74754, 9.74813, 9.74884, 9.74939, 9.75, 9.75, 10.08196, 10.28805, 
  10.28806, 9.96022, 9.71176, 9.71309, 9.7143, 9.71675, 9.71762, 9.71811, 9.71933, 9.72348, 
  9.72437, 9.72519, 9.7345, 9.73763, 9.73968, 9.74357, 9.74691, 9.74831, 9.74923, 9.7495, 
  9.74981, 9.75, 9.74999, 9.7596, 9.76197, 9.77055, 9.78146, 9.80563, 10.25332, 10.28889, 
  10.37916, 10.65029, 10.7375, 11.00003, 11.0433, 11.18081, 11.70624, 11.95105, 11.95106, 11.9811, 
  12.02873, 12.05048, 12.06852, 12.14615, 12.20042, 12.21167, 12.23156, 12.23634, 12.21901, 12.21814, 
  12.21781, 12.21721, 12.21671, 12.2152, 12.21403, 12.21396, 12.21271, 12.20667, 12.19901, 12.19886, 
  12.1958, 12.19412, 12.19364, 12.19532, 12.19138, 12.18345, 12.17716, 12.17135, 12.16294, 12.15937, 
  12.14941, 11.43718, 11.23271, 10.82795, 10.77776, 10.64255, 10.4418, 10.33564, 10.17139, 10.15933, 
  10.15675, 10.15177, 10.1459, 10.13969, 10.12706, 10.11692, 10.10868, 10.09389, 10.06326, 10.05531, 
  10.02243, 10.0062, 9.99927, 9.9653, 9.92218, 9.87327, 9.86295, 9.82489, 9.81148, 9.77342, 
  9.76573, 9.72951, 9.67604, 9.53742, 9.49998, 9.5, 
  9.55305, 11.07025, 15.59508)
LONGITUDE_VALUEs <- c(23.66972,
  23.69625, 23.69583, 23.69334, 23.69026, 23.68777, 23.68471, 23.6822, 23.68055, 23.67555, 23.65579, 
  23.62666, 23.6247, 23.62361, 23.62472, 23.63501, 23.63767, 23.63183, 23.63646, 23.64101, 23.64676, 
  23.65543, 23.66111, 23.66497, 23.66608, 23.66024, 23.65472, 23.64523, 23.64055, 23.63944, 23.63888, 
  23.63995, 23.65303, 23.65235, 23.64986, 23.62179, 23.60694, 23.5878, 23.57261, 23.56118, 23.55175, 
  23.5327, 23.51245, 23.50112, 23.49683, 23.49332, 23.48549, 23.47906, 23.47136, 23.46859, 23.46773, 
  23.46516, 23.46226, 23.46149, 23.46055, 23.45059, 23.44879, 23.44776, 23.44809, 23.4547, 23.45462, 
  23.45737, 23.46089, 23.47042, 23.48252, 23.48535, 23.49883, 23.52338, 23.53351, 23.55634, 23.55969, 
  23.56544, 23.57265, 23.58021, 23.58277, 23.58414, 23.58097, 23.58406, 23.5838, 23.56303, 23.54982, 
  23.53754, 23.52629, 23.51624, 23.50887, 23.50621, 23.50003, 23.49737, 23.49728, 23.49882, 23.51179, 
  23.51527, 23.51609, 23.51583, 23.51444, 23.51796, 23.52174, 23.52646, 23.53805, 23.55203, 23.55838, 
  23.56555, 23.57491, 23.5786, 23.58705, 23.59727, 23.61546, 23.62104, 23.63392, 23.64354, 23.66714, 
  23.67263, 23.67933, 23.69934, 23.70542, 23.71598, 23.72791, 23.73367, 23.74492, 23.76258, 23.7813, 
  23.80695, 23.81742, 23.82429, 23.83021, 23.84069, 23.86387, 23.88335, 23.92585, 23.96163, 23.98457, 
  23.9899, 24.01561, 24.04899, 24.09432, 24.12805, 24.14539, 24.16815, 24.19036, 24.19482, 24.20118, 
  24.20796, 24.23114, 24.23812, 24.24417, 24.24979, 24.25362, 24.25611, 24.26679, 24.28173, 24.30093, 
  24.31898, 24.33556, 24.36068, 24.38608, 24.39659, 24.4014, 24.40106, 24.40981, 24.42509, 24.43711, 
  24.44063, 24.44737, 24.45528, 24.45889, 24.45106, 24.44904, 24.44779, 24.44897, 24.44864, 24.50413, 
  24.53225, 24.5317, 24.56549, 24.57102, 24.57557, 24.57583, 24.54915, 24.54154, 24.56936, 24.56885, 
  24.56323, 24.55449, 24.57857, 24.61191, 24.61172, 24.61866, 24.66245, 24.66763, 24.69779, 24.70038, 
  24.73051, 24.75292, 24.75583, 24.75277, 24.74306, 24.75157, 24.73634, 24.74132, 24.82973, 24.84177, 
  24.84138, 24.84144, 24.84185, 24.84233, 24.84307, 24.84416, 24.84507, 24.84661, 24.84727, 24.85074, 
  24.97808, 24.98718, 25.01714, 25.01217, 25.04237, 25.03602, 25.05679, 25.07695, 25.07403, 25.0323, 
  25.08363, 25.22767, 25.27487, 25.27899, 25.44878, 25.65366, 25.76266, 25.90463, 25.93339, 25.93233, 
  25.97507, 26.00907, 26.05369, 26.07842, 26.11646, 26.21391, 26.30809, 26.3153, 26.33368, 26.37402, 
  26.39411, 26.7026, 26.75023, 27.02352, 27.14247, 27.25086, 27.50233, 27.74952, 27.82285,
  27.90721, 27.83298, 27.83333, 28.99999, 28.99999,
  29.00937, 29.01127, 29.01466, 29.01907, 29.0228, 29.02558, 29.02616, 29.02652, 29.02703, 29.02767, 
  29.02823, 29.02876, 29.02933, 29.03008, 29.0321, 29.03566, 29.03721, 29.03742, 29.04214, 29.04413, 
  29.04688, 29.04763, 29.0484, 29.04905, 29.05218, 29.05317, 29.05445, 29.05484, 29.05556, 29.05623, 
  29.0572, 29.0591, 29.06812, 29.06907, 29.07027, 29.07109, 29.07332, 29.07391, 29.07476, 29.0749, 
  29.07484, 29.07456, 29.07415, 29.07327, 29.07251, 29.07111, 29.07013, 29.06945, 29.06938, 29.07041, 
  29.07043, 29.07021, 29.06933, 29.0686, 29.06848, 29.06853, 29.06875, 29.06991, 29.07049, 29.07093, 
  29.07139, 29.07185, 29.07234, 29.07281, 29.07312, 29.07507, 29.07576, 29.07795, 29.07848, 29.07943, 
  29.08062, 29.08135, 29.08227, 29.08272, 29.08332, 29.08392, 29.08593, 29.08811, 29.08859, 29.08895, 
  29.08945, 29.08998, 29.0917, 29.09291, 29.09326, 29.09328, 29.09309, 29.09132, 29.09129, 29.09193, 
  29.09327, 29.09499, 29.09784, 29.09888, 29.10061, 29.10123, 29.10186, 29.10229, 29.10356, 29.10385, 
  29.10431, 29.10507, 29.10547, 29.10724, 29.10918, 29.10965, 29.11124, 29.11243, 29.11305, 29.11373, 
  29.11278, 29.11301, 29.11341, 29.11445, 29.11642, 29.11716, 29.11747, 29.5375, 29.5375, 29.94111, 
  30, 30.53008, 30.83426, 30.83549, 30.836, 30.83605, 30.83661, 30.83844, 30.83908, 30.83962, 
  30.84026, 30.84258, 30.8394, 30.83964, 30.83831, 30.83663, 30.83901, 30.83887, 30.8376, 30.83749, 
  30.83758, 30.83791, 31.18024, 31.28177, 31.28967, 31.30852, 31.32585, 31.35417, 31.7339, 31.77832, 
  31.83977, 31.98859, 32.14892, 32.4122, 32.46972, 32.39112, 32.39111, 32.0966, 32.7457, 32.75712, 
  32.7579, 32.75077, 32.75636, 32.7379, 32.74461, 32.74211, 32.73215, 32.73163, 33.29441, 33.29467, 
  33.29405, 33.29391, 33.29424, 33.29349, 33.29225, 33.29159, 33.291, 33.29193, 33.28405, 33.27699, 
  33.27585, 33.2763, 33.2744, 33.2736, 33.26467, 33.25978, 33.25978, 33.25264, 33.25395, 33.25687, 
  33.25344, 33.13833, 33.20278, 33.27103, 33.2461, 33.51717, 33.6683, 33.80374, 33.90366, 33.93248, 
  33.94708, 33.96034, 33.97055, 33.97111, 33.96695, 33.96759, 33.97081, 33.97081, 33.99501, 33.99532, 
  33.99455, 33.99962, 33.99944, 33.9869, 33.99085, 33.97231, 33.97334, 33.96446, 33.96622, 33.93781, 
  33.91635, 33.90418, 33.89388, 33.8786, 33.87759, 34.10667, 
  34.08583, 34.11591, 32.52701)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_1, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_union(Geo_0[c(1, 97)]))
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
Geo_1 <- Geo_1 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### SOUTH SUDAN #####
Geo_0 <- Geometric_Operations(Geo_2, Claimed_Area_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_1)
Geo_2 <- st_set_geometry(Geo_2, Geo_0)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  8.27451, 8.27666, 8.28223, 8.28333, 8.28501, 8.28749, 8.28919, 8.2917, 8.29331, 8.29586, 
  8.29892, 8.30138, 8.31074, 8.31665, 8.32034, 8.32331, 8.32696, 8.32781, 8.3314, 8.34416, 
  8.35495, 8.37656, 8.38297, 8.41863, 8.43056, 8.44461, 8.45658, 8.46269, 8.46813, 8.47416, 
  8.47798, 8.48413, 8.48672, 8.4902, 8.4975, 8.50255, 8.51291, 8.52229, 8.52632, 8.5295, 
  8.53353, 8.54003, 8.55528, 8.55834, 8.56082, 8.56252, 8.56973, 8.57289, 8.57941, 8.58329, 
  8.58807, 8.59231, 8.61666, 8.63007, 8.63644, 8.67131, 8.68086, 8.68695, 8.70118, 8.70966, 
  8.71323, 8.72528, 8.72448, 8.72117, 8.72901, 8.74004, 8.75353, 8.785, 8.79874, 8.80841, 
  8.80841, 8.80315, 8.79764, 8.80317, 8.81386, 8.83489, 8.83625, 8.83943, 8.8409, 8.84448, 
  8.86849, 8.8758, 8.87961, 8.9112, 8.90857, 8.91481, 8.95309, 8.98625, 9.09851, 9.14888, 
  9.19897, 9.20381, 9.23308, 9.28843, 9.32264, 9.35959, 9.38079, 9.41048, 9.46241, 9.49297, 
  9.52503, 9.57539, 9.59418, 9.61398, 9.65446, 9.65447, 9.68881, 9.71814, 9.73015, 9.78598, 
  9.81378, 9.81558, 9.81603, 9.81662, 9.81688, 9.81699, 9.81696, 9.81665, 9.81574, 9.81561, 
  9.81708, 9.9039, 9.96072, 9.97264, 10.00172, 10.01735, 10.06113, 10.06375, 10.09339, 10.12669, 
  10.16825, 10.30255, 10.35609, 10.33903, 10.3593, 10.38878, 10.40668, 10.43226, 10.39241, 10.37419, 
  10.1789, 10.16758, 10.15034, 10.10877, 10.05807, 10.00002, 9.91664, 9.64539, 9.63118, 9.60647, 
  9.57278, 9.56415, 9.48892, 9.49671, 9.60285, 9.62637, 9.62847, 9.62356, 9.60681, 9.60596, 
  9.61015, 9.34388, 9.35211, 9.41917, 9.49848, 9.67056, 9.68066, 9.69063, 9.69979, 9.70745, 
  9.71253, 9.7158, 9.71569, 9.71576, 9.71614, 9.71695, 9.71739, 9.71771, 9.71791, 9.71807, 
  9.71789, 9.71819, 9.71877, 9.71903, 9.72906, 9.7313, 9.73693, 9.73718, 9.73714, 9.73689, 
  9.73435, 9.73435, 9.73513, 9.73565, 9.73608, 9.73611, 9.73585, 9.73476, 9.73152, 9.73131, 
  9.73162, 9.73221, 9.73295, 9.73299, 9.73344, 9.73366, 9.73428, 9.73453, 9.73474, 9.73499, 
  9.73505, 9.73547, 9.73615, 9.73741, 9.73781, 9.74076, 9.74152, 9.74226, 9.74305, 9.74412, 
  9.74477, 9.74535, 9.74578, 9.74677, 9.74693, 9.74684, 9.74658, 9.7462, 9.74566, 9.74483, 
  9.74396, 9.74055, 9.73987, 9.73913, 9.73894, 9.73835, 9.7369, 9.73619, 9.73553, 9.7353, 
  9.7352, 9.7352, 9.73551, 9.73684, 9.73905, 9.73953, 9.73986, 9.73985, 9.73948, 9.73955, 
  9.74015, 9.74055, 9.741, 9.7436, 9.74465, 9.74528, 9.74525, 9.74441, 9.74059, 9.74006, 
  9.73842, 9.73842, 9.73882, 9.74227, 9.74414, 9.74498, 9.74529, 9.74524, 9.74505, 9.74293, 
  9.73833, 9.73768, 9.73695, 9.73743, 9.73875, 9.7416, 9.74477, 9.74664, 9.74754, 9.74813, 
  9.74884, 9.74939, 9.75, 9.75, 10.08196, 10.28805, 10.28806, 9.96022, 9.71176, 9.71309, 
  9.7143, 9.71675, 9.71762, 9.71811, 9.71933, 9.72348, 9.72437, 9.72519, 9.7345, 9.73763, 
  9.73968, 9.74357, 9.74691, 9.74831, 9.74923, 9.7495, 9.74981, 9.75, 9.74999, 9.7596, 
  9.76197, 9.77055, 9.78146, 9.80563, 10.25332, 10.28889, 10.37916, 10.65029, 10.7375, 11.00003, 
  11.0433, 11.18081, 11.70624, 11.95105, 11.95106, 11.9811, 12.02873, 12.05048, 12.06852, 12.14615, 
  12.20042, 12.21167, 12.23156, 12.23634, 12.21901, 12.21814, 12.21781, 12.21721, 12.21671, 12.2152, 
  12.21403, 12.21396, 12.21271, 12.20667, 12.19901, 12.19886, 12.1958, 12.19412, 12.19364, 12.19532, 
  12.19138, 12.18345, 12.17716, 12.17135, 12.16294, 12.15937, 12.14941, 11.43718, 11.23271, 10.82795, 
  10.77776, 10.64255, 10.4418, 10.33564, 10.17139, 10.15933, 10.15675, 10.15177, 10.1459, 10.13969, 
  10.12706, 10.11692, 10.10868, 10.09389, 10.06326, 10.05531, 10.02243, 10.0062, 9.99927, 9.9653, 
  9.92218, 9.87327, 9.86295, 9.82489, 9.81148, 9.77342, 9.76573, 9.72951, 9.67604, 9.53742, 
  9.49998, 9.5, 9.03274, 8.60767, 8.60368, 8.59893, 8.60046, 8.59969, 8.58722, 8.58739, 
  8.56634, 8.5646, 8.55607, 8.5539, 8.55679, 8.5559, 8.55713, 8.55645, 8.5514, 8.54563, 
  8.54066, 8.53455, 8.52988, 8.52853, 8.52424, 8.5225, 8.51847, 8.5048, 8.48867, 8.49062, 
  8.48876, 8.4964, 8.49589, 8.4902, 8.49326, 8.50285, 8.5037, 8.49385, 8.49962, 8.50064, 
  8.49385, 8.48961, 8.48714, 8.48816, 8.48324, 8.46915, 8.46388, 8.45539, 8.44385, 8.43892, 
  8.43909, 8.4289, 8.42296, 8.41116, 8.4154, 8.41192, 8.41116, 8.39868, 8.4053, 8.40267, 
  8.39766, 8.39706, 8.39953, 8.38738, 8.38178, 8.3763, 8.36785, 8.36764, 8.37312, 8.37889, 
  8.37371, 8.36862, 8.3704, 8.37847, 8.37728, 8.38492, 8.3867, 8.39443, 8.40717, 8.40946, 
  8.42517, 8.43222, 8.43638, 8.44054, 8.44567, 8.44915, 8.45539, 8.46265, 8.46558, 8.46567, 
  8.47182, 8.47097, 8.46613, 8.4638, 8.45671, 8.45514, 8.45361, 8.4472, 8.44334, 8.44758, 
  8.44903, 8.44758, 8.44737, 8.44992, 8.45191, 8.45667, 8.46155, 8.46274, 8.4618, 8.46299, 
  8.468, 8.4742, 8.47411, 8.4705, 8.46715, 8.47004, 8.47152, 8.46974, 8.47466, 8.48086, 
  8.47662, 8.46983, 8.4632, 8.45573, 8.45947, 8.45701, 8.4441, 8.44605, 8.45013, 8.45293, 
  8.45242, 8.4469, 8.44546, 8.44147, 8.43688, 8.43323, 8.42687, 8.42619, 8.4312, 8.43697, 
  8.4368, 8.43875, 8.44427, 8.4469, 8.4503, 8.4475, 8.45157, 8.45582, 8.4632, 8.46668, 
  8.46796, 8.46533, 8.45853, 8.45497, 8.44105, 8.43943, 8.44559, 8.44949, 8.45501, 8.45694, 
  8.46174, 8.46263, 8.46197, 8.45641, 8.45463, 8.44915, 8.44839, 8.4461, 8.44257, 8.44105, 
  8.43918, 8.43608, 8.43001, 8.42542, 8.42759, 8.43277, 8.43544, 8.42733, 8.42058, 8.40972, 
  8.40611, 8.40496, 8.40793, 8.40925, 8.40887, 8.40568, 8.40263, 8.39995, 8.39783, 8.39524, 
  8.38738, 8.38297, 8.36573, 8.35206, 8.35129, 8.35885, 8.36055, 8.3597, 8.34297, 8.33159, 
  8.33108, 8.33541, 8.33473, 8.33117, 8.31189, 8.30102, 8.29796, 8.30119, 8.29966, 8.29482, 
  8.28751, 8.27766, 8.2566, 8.2504, 8.25218, 8.24504, 8.23502, 8.22712, 8.21633, 8.2035, 
  8.19178, 8.19144, 8.18728, 8.17887, 8.17369, 8.17105, 8.16748, 8.16171, 8.15644, 8.14437, 
  8.14114, 8.13197, 8.12585, 8.13061, 8.12585, 8.11684, 8.11158, 8.11616, 8.11107, 8.10886, 
  8.09679, 8.06875, 8.06246, 8.07521, 8.0764, 8.07317, 8.06144, 8.05634, 8.04631, 8.02065, 
  8.02218, 8.01725, 8.01572, 8.00756, 8.00161, 7.99209, 7.97985, 7.94443, 7.93124, 7.83326)
LONGITUDE_VALUEs <- c(
  24.27082, 24.25859, 24.24223, 24.23612, 24.23065, 24.22582, 24.22052, 24.2158, 24.21058, 24.2058, 
  24.20161, 24.19698, 24.18506, 24.17717, 24.17412, 24.17033, 24.16689, 24.16638, 24.16301, 24.1558, 
  24.15185, 24.14086, 24.14193, 24.15583, 24.15863, 24.16029, 24.15995, 24.16055, 24.1615, 24.16338, 
  24.1663, 24.17378, 24.17846, 24.18227, 24.18807, 24.19069, 24.19412, 24.19914, 24.20232, 24.20579, 
  24.20888, 24.21661, 24.22858, 24.23249, 24.23693, 24.24195, 24.25498, 24.25839, 24.26605, 24.26912, 
  24.27028, 24.26775, 24.23546, 24.22894, 24.2299, 24.25132, 24.25634, 24.25611, 24.26679, 24.28173, 
  24.30093, 24.31898, 24.33556, 24.36068, 24.38608, 24.39659, 24.4014, 24.40106, 24.40981, 24.42509, 
  24.43711, 24.44063, 24.44737, 24.45528, 24.45889, 24.45106, 24.44904, 24.44779, 24.44897, 24.44864, 
  24.50413, 24.53225, 24.5317, 24.56549, 24.57102, 24.57557, 24.57583, 24.54915, 24.54154, 24.56936, 
  24.56885, 24.56323, 24.55449, 24.57857, 24.61191, 24.61172, 24.61866, 24.66245, 24.66763, 24.69779, 
  24.70038, 24.73051, 24.75292, 24.75583, 24.75277, 24.74306, 24.75157, 24.73634, 24.74132, 24.82973, 
  24.84177, 24.84138, 24.84144, 24.84185, 24.84233, 24.84307, 24.84416, 24.84507, 24.84661, 24.84727, 
  24.85074, 24.97808, 24.98718, 25.01714, 25.01217, 25.04237, 25.03602, 25.05679, 25.07695, 25.07403, 
  25.0323, 25.08363, 25.22767, 25.27487, 25.27899, 25.44878, 25.65366, 25.76266, 25.90463, 25.93339, 
  25.93233, 25.97507, 26.00907, 26.05369, 26.07842, 26.11646, 26.21391, 26.30809, 26.3153, 26.33368, 
  26.37402, 26.39411, 26.7026, 26.75023, 27.02352, 27.14247, 27.25086, 27.50233, 27.74952, 27.82285, 
  27.90721, 28.03605, 28.7679, 28.7679, 28.81668, 28.99999, 29.00937, 29.01127, 29.01466, 29.01907, 
  29.0228, 29.02558, 29.02616, 29.02652, 29.02703, 29.02767, 29.02823, 29.02876, 29.02933, 29.03008, 
  29.0321, 29.03566, 29.03721, 29.03742, 29.04214, 29.04413, 29.04688, 29.04763, 29.0484, 29.04905, 
  29.05218, 29.05317, 29.05445, 29.05484, 29.05556, 29.05623, 29.0572, 29.0591, 29.06812, 29.06907, 
  29.07027, 29.07109, 29.07332, 29.07391, 29.07476, 29.0749, 29.07484, 29.07456, 29.07415, 29.07327, 
  29.07251, 29.07111, 29.07013, 29.06945, 29.06938, 29.07041, 29.07043, 29.07021, 29.06933, 29.0686, 
  29.06848, 29.06853, 29.06875, 29.06991, 29.07049, 29.07093, 29.07139, 29.07185, 29.07234, 29.07281, 
  29.07312, 29.07507, 29.07576, 29.07795, 29.07848, 29.07943, 29.08062, 29.08135, 29.08227, 29.08272, 
  29.08332, 29.08392, 29.08593, 29.08811, 29.08859, 29.08895, 29.08945, 29.08998, 29.0917, 29.09291, 
  29.09326, 29.09328, 29.09309, 29.09132, 29.09129, 29.09193, 29.09327, 29.09499, 29.09784, 29.09888, 
  29.10061, 29.10123, 29.10186, 29.10229, 29.10356, 29.10385, 29.10431, 29.10507, 29.10547, 29.10724, 
  29.10918, 29.10965, 29.11124, 29.11243, 29.11305, 29.11373, 29.11278, 29.11301, 29.11341, 29.11445, 
  29.11642, 29.11716, 29.11747, 29.5375, 29.5375, 29.94111, 30, 30.53008, 30.83426, 30.83549, 
  30.836, 30.83605, 30.83661, 30.83844, 30.83908, 30.83962, 30.84026, 30.84258, 30.8394, 30.83964, 
  30.83831, 30.83663, 30.83901, 30.83887, 30.8376, 30.83749, 30.83758, 30.83791, 31.18024, 31.28177, 
  31.28967, 31.30852, 31.32585, 31.35417, 31.7339, 31.77832, 31.83977, 31.98859, 32.14892, 32.4122, 
  32.46972, 32.39112, 32.39111, 32.0966, 32.7457, 32.75712, 32.7579, 32.75077, 32.75636, 32.7379, 
  32.74461, 32.74211, 32.73215, 32.73163, 33.29441, 33.29467, 33.29405, 33.29391, 33.29424, 33.29349, 
  33.29225, 33.29159, 33.291, 33.29193, 33.28405, 33.27699, 33.27585, 33.2763, 33.2744, 33.2736, 
  33.26467, 33.25978, 33.25978, 33.25264, 33.25395, 33.25687, 33.25344, 33.13833, 33.20278, 33.27103, 
  33.2461, 33.51717, 33.6683, 33.80374, 33.90366, 33.93248, 33.94708, 33.96034, 33.97055, 33.97111, 
  33.96695, 33.96759, 33.97081, 33.97081, 33.99501, 33.99532, 33.99455, 33.99962, 33.99944, 33.9869, 
  33.99085, 33.97231, 33.97334, 33.96446, 33.96622, 33.93781, 33.91635, 33.90418, 33.89388, 33.8786, 
  33.87759, 34.10667, 34.1455, 34.14546, 34.14313, 34.13841, 34.13377, 34.13085, 34.12802, 34.12484, 
  34.10608, 34.10689, 34.10097, 34.09634, 34.09424, 34.08964, 34.08784, 34.08552, 34.08209, 34.07573, 
  34.06363, 34.0587, 34.04492, 34.04505, 34.0396, 34.04024, 34.03592, 34.03248, 34.02381, 34.01995, 
  34.01232, 34.00528, 33.99884, 33.99266, 33.97515, 33.97455, 33.97231, 33.95765, 33.95009, 33.94331, 
  33.92854, 33.92811, 33.92463, 33.9121, 33.89802, 33.88909, 33.88119, 33.87586, 33.87432, 33.8757, 
  33.8805, 33.88394, 33.87655, 33.87611, 33.8646, 33.86057, 33.84726, 33.8229, 33.818, 33.8101, 
  33.81156, 33.80323, 33.80169, 33.78881, 33.79147, 33.77812, 33.76932, 33.76743, 33.76112, 33.75027, 
  33.73681, 33.73398, 33.71457, 33.70908, 33.70109, 33.69594, 33.68908, 33.69105, 33.6841, 33.67937, 
  33.67448, 33.67465, 33.67877, 33.67886, 33.67564, 33.66091, 33.65735, 33.64572, 33.63465, 33.62719, 
  33.61886, 33.61654, 33.61474, 33.61058, 33.60599, 33.60255, 33.60139, 33.60204, 33.5956, 33.59401, 
  33.59264, 33.58805, 33.57813, 33.5744, 33.56762, 33.56581, 33.5674, 33.56586, 33.56256, 33.56119, 
  33.56359, 33.56054, 33.55754, 33.55423, 33.54303, 33.538, 33.5305, 33.51665, 33.51193, 33.49682, 
  33.48858, 33.49038, 33.48798, 33.47656, 33.47038, 33.46171, 33.44567, 33.43408, 33.43082, 33.42541, 
  33.42163, 33.41777, 33.41098, 33.4043, 33.40275, 33.39898, 33.39863, 33.39494, 33.38421, 33.38104, 
  33.37469, 33.37108, 33.37014, 33.36782, 33.3491, 33.33512, 33.32962, 33.31992, 33.31829, 33.31537, 
  33.31169, 33.30826, 33.30705, 33.3019, 33.29503, 33.29074, 33.28395, 33.28159, 33.28212, 33.28122, 
  33.27461, 33.27098, 33.26959, 33.26906, 33.26296, 33.25739, 33.24545, 33.24257, 33.24391, 33.24949, 
  33.2491, 33.24245, 33.24121, 33.2361, 33.22584, 33.22236, 33.21919, 33.21395, 33.21666, 33.21726, 
  33.21653, 33.21486, 33.20915, 33.20138, 33.19602, 33.18975, 33.18872, 33.18932, 33.1934, 33.19396, 
  33.18747, 33.18687, 33.18962, 33.19383, 33.19666, 33.20963, 33.21503, 33.2176, 33.21769, 33.20585, 
  33.20302, 33.19735, 33.19186, 33.19194, 33.20226, 33.19916, 33.19298, 33.17461, 33.17109, 33.1698, 
  33.17521, 33.17066, 33.17461, 33.18335, 33.18971, 33.20233, 33.20542, 33.20181, 33.19924, 33.17195, 
  33.16791, 33.17572, 33.17787, 33.17572, 33.17898, 33.18663, 33.1899, 33.18303, 33.18561, 33.1875, 
  33.19179, 33.19368, 33.18993, 33.17292, 33.16743, 33.16691, 33.16142, 33.14648, 33.12055, 33.11866, 
  33.11849, 33.12297, 33.11576, 33.10563, 33.09447, 33.08416, 33.08811, 33.07936, 33.08228, 33.07577, 
  33.06787, 33.06203, 33.04743, 33.03833, 33.03953, 33.03558, 33.04005, 32.99747, 33.00283, 29.20008)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_2, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, Geo_0[1])
Geo_2 <- st_union(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
Geo_2 <- Geo_2 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### CENTRAL AFRICAN REPUBLIC #####
Geo_0 <- Geometric_Operations(Geo_3, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_3 <- st_set_geometry(Geo_3, Geo_0)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(9.66111, 9.65638, 9.6525, 9.64779, 9.64222, 9.63306, 9.58932, 
  9.54694, 9.54144, 9.53526, 9.52965, 9.51941, 9.50892, 9.44957, 9.44034, 9.43839, 9.43933, 
  9.44474, 9.44441, 9.44144, 9.43573, 9.39767, 9.37785, 9.35498, 9.34588, 9.33995, 9.33267, 
  9.32111, 9.28706, 9.28003, 9.27545, 9.25563, 9.22852, 9.21209, 9.19328, 9.18455, 9.18048, 
  9.1798, 9.18201, 9.1798, 9.17752, 9.17404, 9.15328, 9.1454, 9.12468, 9.10557, 9.09188, 
  9.08714, 9.07578, 9.05565, 9.04972, 9.03107, 9.02547, 9.01937, 9.01471, 9.00725, 9.00098, 
  8.99046, 8.98682, 8.98216, 8.973, 8.96944, 8.96121, 8.95681, 8.96054, 9.00021, 9.00462, 
  9.00572, 9.00521, 8.9992, 8.99453, 8.98309, 8.9418, 8.91899, 8.91187, 8.86862, 8.84716, 
  8.83139, 8.82164, 8.81824, 8.81188, 8.80696, 8.78516, 8.77286, 8.76565, 8.76056, 8.74597, 
  8.73639, 8.73087, 8.72392, 8.71777, 8.71407, 8.71106, 8.70856, 8.70589, 8.70474, 8.70495, 
  8.71144, 8.72302, 8.72646, 8.73104, 8.73486, 8.73613, 8.73719, 8.73757, 8.73418, 8.71586, 
  8.71424, 8.71356, 8.72061, 8.71942, 8.71535, 8.70669, 8.70508, 8.70746, 8.71323, 8.72502, 
  8.72502, 8.72773, 8.72807, 8.72697, 8.72273, 8.71076, 8.70788, 8.71866, 8.71161, 8.69851, 
  8.69668, 8.7044, 8.69439, 8.68828, 8.68531, 8.68675, 8.69838, 8.69108, 8.68871, 8.68752, 
  8.68786, 8.69778, 8.69719, 8.69617, 8.69414, 8.69112, 8.68695, 
  8.68086, 8.67131, 8.63644, 8.63007, 8.61666, 8.59231, 8.58807, 8.58329, 8.57941, 8.57289, 
  8.56973, 8.56252, 8.56082, 8.55834, 8.55528, 8.54003, 8.53353, 8.5295, 8.52632, 8.52229, 
  8.51291, 8.50255, 8.4975, 8.4902, 8.48672, 8.48413, 8.47798, 8.47416, 8.46813, 8.46269, 
  8.45658, 8.44461, 8.43056, 8.41863, 8.38297, 8.37656, 8.35495, 8.34416, 8.3314, 8.32781, 
  8.32696, 8.32331, 8.32034, 8.31665, 8.31074, 8.30138, 8.29892, 8.29586, 8.29331, 8.2917, 
  8.28919, 8.28749, 8.28501, 8.28333, 8.28223, 8.27666, 8.27451, 6.99412)
LONGITUDE_VALUEs <- c(23.69026, 23.68777, 23.68471, 23.6822, 23.68055, 23.67555, 23.65579, 
  23.62666, 23.6247, 23.62361, 23.62472, 23.63501, 23.63767, 23.63183, 23.63646, 23.64101, 23.64676, 
  23.65543, 23.66111, 23.66497, 23.66608, 23.66024, 23.65472, 23.64523, 23.64055, 23.63944, 23.63888, 
  23.63995, 23.65303, 23.65235, 23.64986, 23.62179, 23.60694, 23.5878, 23.57261, 23.56118, 23.55175, 
  23.5327, 23.51245, 23.50112, 23.49683, 23.49332, 23.48549, 23.47906, 23.47136, 23.46859, 23.46773, 
  23.46516, 23.46226, 23.46149, 23.46055, 23.45059, 23.44879, 23.44776, 23.44809, 23.4547, 23.45462, 
  23.45737, 23.46089, 23.47042, 23.48252, 23.48535, 23.49883, 23.52338, 23.53351, 23.55634, 23.55969, 
  23.56544, 23.57265, 23.58021, 23.58277, 23.58414, 23.58097, 23.58406, 23.5838, 23.56303, 23.54982, 
  23.53754, 23.52629, 23.51624, 23.50887, 23.50621, 23.50003, 23.49737, 23.49728, 23.49882, 23.51179, 
  23.51527, 23.51609, 23.51583, 23.51444, 23.51796, 23.52174, 23.52646, 23.53805, 23.55203, 23.55838, 
  23.56555, 23.57491, 23.5786, 23.58705, 23.59727, 23.61546, 23.62104, 23.63392, 23.64354, 23.66714, 
  23.67263, 23.67933, 23.69934, 23.70542, 23.71598, 23.72791, 23.73367, 23.74492, 23.76258, 23.7813, 
  23.80695, 23.81742, 23.82429, 23.83021, 23.84069, 23.86387, 23.88335, 23.92585, 23.96163, 23.98457, 
  23.9899, 24.01561, 24.04899, 24.09432, 24.12805, 24.14539, 24.16815, 24.19036, 24.19482, 24.20118, 
  24.20796, 24.23114, 24.23812, 24.24417, 24.24979, 24.25362, 24.25611, 
  24.25634, 24.25132, 24.2299, 24.22894, 24.23546, 24.26775, 24.27028, 24.26912, 24.26605, 24.25839, 
  24.25498, 24.24195, 24.23693, 24.23249, 24.22858, 24.21661, 24.20888, 24.20579, 24.20232, 24.19914, 
  24.19412, 24.19069, 24.18807, 24.18227, 24.17846, 24.17378, 24.1663, 24.16338, 24.1615, 24.16055, 
  24.15995, 24.16029, 24.15863, 24.15583, 24.14193, 24.14086, 24.15185, 24.1558, 24.16301, 24.16638, 
  24.16689, 24.17033, 24.17412, 24.17717, 24.18506, 24.19698, 24.20161, 24.2058, 24.21058, 24.2158, 
  24.22052, 24.22582, 24.23065, 24.23612, 24.24223, 24.25859, 24.27082, 19.18558)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_3, Geo)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0))
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
Geo_3 <- Geo_3 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### ETHIOPIA #####
Geo_0 <- Geometric_Operations(Geo_4, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_4 <- st_set_geometry(Geo_4, Geo_0)
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
LATITUDE_VALUEs <- c(
  9.55305, 9.5, 9.03274, 8.60767, 8.60368, 8.59893, 8.60046, 8.59969, 8.58722, 8.58739, 
  8.56634, 8.5646, 8.55607, 8.5539, 8.55679, 8.5559, 8.55713, 8.55645, 8.5514, 8.54563, 
  8.54066, 8.53455, 8.52988, 8.52853, 8.52424, 8.5225, 8.51847, 8.5048, 8.48867, 8.49062, 
  8.48876, 8.4964, 8.49589, 8.4902, 8.49326, 8.50285, 8.5037, 8.49385, 8.49962, 8.50064, 
  8.49385, 8.48961, 8.48714, 8.48816, 8.48324, 8.46915, 8.46388, 8.45539, 8.44385, 8.43892, 
  8.43909, 8.4289, 8.42296, 8.41116, 8.4154, 8.41192, 8.41116, 8.39868, 8.4053, 8.40267, 
  8.39766, 8.39706, 8.39953, 8.38738, 8.38178, 8.3763, 8.36785, 8.36764, 8.37312, 8.37889, 
  8.37371, 8.36862, 8.3704, 8.37847, 8.37728, 8.38492, 8.3867, 8.39443, 8.40717, 8.40946, 
  8.42517, 8.43222, 8.43638, 8.44054, 8.44567, 8.44915, 8.45539, 8.46265, 8.46558, 8.46567, 
  8.47182, 8.47097, 8.46613, 8.4638, 8.45671, 8.45514, 8.45361, 8.4472, 8.44334, 8.44758, 
  8.44903, 8.44758, 8.44737, 8.44992, 8.45191, 8.45667, 8.46155, 8.46274, 8.4618, 8.46299, 
  8.468, 8.4742, 8.47411, 8.4705, 8.46715, 8.47004, 8.47152, 8.46974, 8.47466, 8.48086, 
  8.47662, 8.46983, 8.4632, 8.45573, 8.45947, 8.45701, 8.4441, 8.44605, 8.45013, 8.45293, 
  8.45242, 8.4469, 8.44546, 8.44147, 8.43688, 8.43323, 8.42687, 8.42619, 8.4312, 8.43697, 
  8.4368, 8.43875, 8.44427, 8.4469, 8.4503, 8.4475, 8.45157, 8.45582, 8.4632, 8.46668, 
  8.46796, 8.46533, 8.45853, 8.45497, 8.44105, 8.43943, 8.44559, 8.44949, 8.45501, 8.45694, 
  8.46174, 8.46263, 8.46197, 8.45641, 8.45463, 8.44915, 8.44839, 8.4461, 8.44257, 8.44105, 
  8.43918, 8.43608, 8.43001, 8.42542, 8.42759, 8.43277, 8.43544, 8.42733, 8.42058, 8.40972, 
  8.40611, 8.40496, 8.40793, 8.40925, 8.40887, 8.40568, 8.40263, 8.39995, 8.39783, 8.39524, 
  8.38738, 8.38297, 8.36573, 8.35206, 8.35129, 8.35885, 8.36055, 8.3597, 8.34297, 8.33159, 
  8.33108, 8.33541, 8.33473, 8.33117, 8.31189, 8.30102, 8.29796, 8.30119, 8.29966, 8.29482, 
  8.28751, 8.27766, 8.2566, 8.2504, 8.25218, 8.24504, 8.23502, 8.22712, 8.21633, 8.2035, 
  8.19178, 8.19144, 8.18728, 8.17887, 8.17369, 8.17105, 8.16748, 8.16171, 8.15644, 8.14437, 
  8.14114, 8.13197, 8.12585, 8.13061, 8.12585, 8.11684, 8.11158, 8.11616, 8.11107, 8.10886, 
  8.09679, 8.06875, 8.06246, 8.07521, 8.0764, 8.07317, 8.06144, 8.05634, 8.04631, 8.02065, 
  8.02218, 8.01725, 8.01572, 8.00756, 8.00161, 7.99209, 7.97985, 7.94443, 7.93124, 9.00941)
LONGITUDE_VALUEs <- c(
  34.08583, 34.10667, 34.1455, 34.14546, 34.14313, 34.13841, 34.13377, 34.13085, 34.12802, 34.12484, 
  34.10608, 34.10689, 34.10097, 34.09634, 34.09424, 34.08964, 34.08784, 34.08552, 34.08209, 34.07573, 
  34.06363, 34.0587, 34.04492, 34.04505, 34.0396, 34.04024, 34.03592, 34.03248, 34.02381, 34.01995, 
  34.01232, 34.00528, 33.99884, 33.99266, 33.97515, 33.97455, 33.97231, 33.95765, 33.95009, 33.94331, 
  33.92854, 33.92811, 33.92463, 33.9121, 33.89802, 33.88909, 33.88119, 33.87586, 33.87432, 33.8757, 
  33.8805, 33.88394, 33.87655, 33.87611, 33.8646, 33.86057, 33.84726, 33.8229, 33.818, 33.8101, 
  33.81156, 33.80323, 33.80169, 33.78881, 33.79147, 33.77812, 33.76932, 33.76743, 33.76112, 33.75027, 
  33.73681, 33.73398, 33.71457, 33.70908, 33.70109, 33.69594, 33.68908, 33.69105, 33.6841, 33.67937, 
  33.67448, 33.67465, 33.67877, 33.67886, 33.67564, 33.66091, 33.65735, 33.64572, 33.63465, 33.62719, 
  33.61886, 33.61654, 33.61474, 33.61058, 33.60599, 33.60255, 33.60139, 33.60204, 33.5956, 33.59401, 
  33.59264, 33.58805, 33.57813, 33.5744, 33.56762, 33.56581, 33.5674, 33.56586, 33.56256, 33.56119, 
  33.56359, 33.56054, 33.55754, 33.55423, 33.54303, 33.538, 33.5305, 33.51665, 33.51193, 33.49682, 
  33.48858, 33.49038, 33.48798, 33.47656, 33.47038, 33.46171, 33.44567, 33.43408, 33.43082, 33.42541, 
  33.42163, 33.41777, 33.41098, 33.4043, 33.40275, 33.39898, 33.39863, 33.39494, 33.38421, 33.38104, 
  33.37469, 33.37108, 33.37014, 33.36782, 33.3491, 33.33512, 33.32962, 33.31992, 33.31829, 33.31537, 
  33.31169, 33.30826, 33.30705, 33.3019, 33.29503, 33.29074, 33.28395, 33.28159, 33.28212, 33.28122, 
  33.27461, 33.27098, 33.26959, 33.26906, 33.26296, 33.25739, 33.24545, 33.24257, 33.24391, 33.24949, 
  33.2491, 33.24245, 33.24121, 33.2361, 33.22584, 33.22236, 33.21919, 33.21395, 33.21666, 33.21726, 
  33.21653, 33.21486, 33.20915, 33.20138, 33.19602, 33.18975, 33.18872, 33.18932, 33.1934, 33.19396, 
  33.18747, 33.18687, 33.18962, 33.19383, 33.19666, 33.20963, 33.21503, 33.2176, 33.21769, 33.20585, 
  33.20302, 33.19735, 33.19186, 33.19194, 33.20226, 33.19916, 33.19298, 33.17461, 33.17109, 33.1698, 
  33.17521, 33.17066, 33.17461, 33.18335, 33.18971, 33.20233, 33.20542, 33.20181, 33.19924, 33.17195, 
  33.16791, 33.17572, 33.17787, 33.17572, 33.17898, 33.18663, 33.1899, 33.18303, 33.18561, 33.1875, 
  33.19179, 33.19368, 33.18993, 33.17292, 33.16743, 33.16691, 33.16142, 33.14648, 33.12055, 33.11866, 
  33.11849, 33.12297, 33.11576, 33.10563, 33.09447, 33.08416, 33.08811, 33.07936, 33.08228, 33.07577, 
  33.06787, 33.06203, 33.04743, 33.03833, 33.03953, 33.03558, 33.04005, 32.99747, 33.00283, 38.75334)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(st_geometry(Geo_4), st_geometry(Geo))
if (length(Geo_0) > 1) {Geo_0 <- Geo_0[st_geometry_type(Geo_0) %in% c("POLYGON", "MULTIPOLYGON")]}
Geo_4 <- st_set_geometry(Geo_4, Geo_0)
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
Geo_4 <- Geo_4 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% 
  filter(!NAME %in% c("SUDAN", "SOUTH SUDAN", "CENTRAL AFRICAN REPUBLIC", "ETHIOPIA"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3, Geo_4)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, Claimed_Area_1)

WESTERN SAHARA is already in GeoDATA.

WESTERN SAHARA is claimed by MOROCCO and by SAHRAWI ARAB DEMOCRATIC REPUBLIC (SADR).

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "WESTERN SAHARA")
Geo_2 <- GeoDATA %>% filter(NAME == "MOROCCO")
Geo_3 <- GeoDATA %>% filter(NAME == "ALGERIA")
Geo_4 <- GeoDATA %>% filter(NAME == "MAURITANIA")

##### WESTERN SAHARA #####
LATITUDE_VALUEs <- c(
  27.66658, 27.6669, 27.67063, 27.31494, 26.00028, 26, 23.45445, 23.45333, 23.44888, 23.43521, 
  23.42947, 23.4164, 23.37204, 23.36219, 23.35384, 23.31869, 23.29146, 23.02472, 22.89306, 22.75751, 
  22.75636, 22.53669, 21.33672, 21.33417, 21.1378, 21.1288, 21.12071, 21.11621, 21.11119, 21.10506, 
  21.09713, 21.09259, 21.09168, 21.07055, 21.06694, 21.05816, 21.05324, 21.04277, 21.03701, 21.03595, 
  21.02949, 21.02318, 21.01669, 21.00431, 21.00079, 20.99342, 20.9836, 20.97837, 20.97398, 20.96869, 
  20.96324, 20.95557, 20.94431, 20.93144, 20.9128, 20.9038, 20.88991, 20.88524, 20.80829, 20.77678, 
  20.77011, 20.76993, 20.76991, 20.76995, 20.77003, 20.77013, 20.77019, 20.77025, 20.77029, 20.77523, 
  20.77678, 20.77957, 20.78338, 20.78727, 20.7897, 20.79088, 20.79086, 20.79013, 20.7916, 20.79397, 
  20.79499, 20.80141, 20.80313, 20.80448, 20.805, 20.81192, 20.81448, 20.81489, 20.81519, 20.81753, 
  20.81844, 20.82028, 20.82258, 20.82297, 20.82517, 20.82657, 20.82783, 20.82834, 20.82855, 20.82812, 
  20.82697, 20.82688, 20.82693, 20.82805, 20.82847, 20.82848, 20.82809, 20.8274, 20.82676, 20.82666, 
  20.82601, 20.82589, 20.82599, 20.82638, 20.82699, 20.82824, 20.83031, 20.83338, 20.83407, 20.83488, 
  20.83477, 20.83487, 20.83543, 20.83922, 20.84321, 20.84391, 20.84905, 20.86467, 20.88355, 20.88798, 
  20.89014, 20.89227, 20.89436, 20.89462, 20.89422, 20.89498, 20.89529, 20.89736, 20.89868, 20.8995, 
  20.90158, 20.90293, 20.90339, 20.90322, 20.90277, 20.9036, 20.90391, 20.90579, 20.90753, 20.90963, 
  20.91066, 20.91072, 20.91024, 20.91166, 20.91222, 20.91261, 20.91254, 20.91235, 20.91189, 20.91188, 
  20.91254, 20.91332, 20.91361, 20.91393, 20.91523, 20.91589, 20.91601, 20.91654, 20.9176, 20.9203, 
  20.92109, 20.92132, 20.92228, 20.94308, 20.95691, 20.9587, 20.96038, 20.96177, 20.96322, 20.96711, 
  20.97087, 20.97321, 20.97406, 20.97484, 20.97806, 20.97916, 20.98033, 20.98303, 20.9864, 20.98842, 
  20.99112, 20.99285, 20.99389, 21.00139, 21.0062, 21.01902, 21.02707, 21.03384, 21.04069, 21.05084, 
  21.06736, 21.06954, 21.07333, 21.07939, 21.08288, 21.08442, 21.0891, 21.09631, 21.09882, 21.10257, 
  21.10522, 21.10661, 21.10708, 21.11087, 21.1139, 21.11893, 21.12324, 21.12738, 21.14245, 21.16488, 
  21.167, 21.17153, 21.17637, 21.18473, 21.19353, 21.1959, 21.20528, 21.23386, 21.2607, 21.26538, 
  21.26962, 21.2741, 21.29245, 21.29547, 21.29979, 21.32092, 21.33869, 21.34211, 21.36009, 21.40309, 
  21.42151, 21.44556, 21.49931, 21.52662, 21.5742, 21.59304, 21.60445, 21.62041, 21.65152, 21.67258, 
  21.70799, 21.71804, 21.75551, 21.76301, 21.76899, 21.77281, 21.77269, 21.76879, 21.77213, 21.77237, 
  21.77417, 21.79648, 21.82756, 21.84334, 21.87616, 21.92171, 21.92999, 21.935, 21.94297, 21.9725, 
  21.97847, 21.98173, 21.99041, 21.9998, 22.00951, 22.03059, 22.04666, 22.04728, 22.04863, 22.06055, 
  22.0885, 22.12095, 22.15164, 22.16261, 22.16364, 22.16451, 22.16714, 22.18041, 22.1882, 22.20219, 
  22.22499, 22.24128, 22.27258, 22.2837, 22.29211, 22.29545, 22.2964, 22.29354, 22.26797, 22.26988, 
  22.2891, 22.31943, 22.34912, 22.36595, 22.38452, 22.45022, 22.46006, 22.49939, 22.52271, 22.56741, 
  22.61464, 22.691, 22.72125, 22.7765, 22.79992, 22.80688, 22.8265, 22.84122, 22.84739, 22.85055, 
  22.85387, 22.86463, 22.88551, 22.90448, 22.90685, 22.90559, 22.8961, 22.89721, 22.90037, 22.92029, 
  22.95871, 22.99711, 23.0363, 23.07105, 23.08826, 23.09158, 23.08447, 23.07902, 23.07823, 23.08226, 
  23.09608, 23.12252, 23.13049, 23.14202, 23.15251, 23.1739, 23.18455, 23.19662, 23.20869, 23.21591, 
  23.22577, 23.23299, 23.25988, 23.29134, 23.3071, 23.30852, 23.31341, 23.32322, 23.32839, 23.34155, 
  23.34501, 23.36148, 23.40473, 23.44451, 23.46671, 23.4749, 23.48513, 23.49064, 23.50103, 23.50284, 
  23.50418, 23.50741, 23.5093, 23.51142, 23.51559, 23.51811, 23.51843, 23.5222, 23.52622, 23.53645, 
  23.54211, 23.54668, 23.55376, 23.55887, 23.56143, 23.56226, 23.56348, 23.57618, 23.58004, 23.58133, 
  23.5916, 23.60407, 23.61311, 23.61445, 23.617, 23.62251, 23.62373, 23.62538, 23.62754, 23.62848, 
  23.62892, 23.63395, 23.63635, 23.64024, 23.6446, 23.64987, 23.66583, 23.67416, 23.71448, 23.73633, 
  23.7533, 23.77875, 23.80089, 23.80757, 23.81256, 23.81346, 23.81393, 23.81892, 23.82049, 23.82233, 
  23.83034, 23.83317, 23.83537, 23.83332, 23.83458, 23.83223, 23.82795, 23.82645, 23.82873, 23.82641, 
  23.81587, 23.81456, 23.81409, 23.81395, 23.81422, 23.82002, 23.8207, 23.82055, 23.81858, 23.8185, 
  23.81927, 23.81766, 23.81764, 23.81825, 23.82704, 23.83851, 23.86229, 23.87344, 23.89149, 23.89777, 
  23.89886, 23.89635, 23.89243, 23.88851, 23.88992, 23.89761, 23.90138, 23.89604, 23.88631, 23.88019, 
  23.8783, 23.88144, 23.85978, 23.83113, 23.82885, 23.80506, 23.79595, 23.77089, 23.76697, 23.75125, 
  23.73853, 23.73538, 23.71613, 23.71055, 23.70379, 23.70002, 23.69829, 23.69067, 23.68768, 23.68587, 
  23.68281, 23.68155, 23.66292, 23.65718, 23.64578, 23.64091, 23.63981, 23.63084, 23.62707, 23.62715, 
  23.63013, 23.63218, 23.63226, 23.64162, 23.64507, 23.64932, 23.67558, 23.67951, 23.69641, 23.70615, 
  23.7181, 23.72391, 23.72729, 23.74505, 23.74905, 23.76178, 23.76571, 23.76728, 23.76838, 23.77011, 
  23.77121, 23.77264, 23.77541, 23.77794, 23.78966, 23.79473, 23.79846, 23.79991, 23.80243, 23.80384, 
  23.80517, 23.80655, 23.81774, 23.81974, 23.82634, 23.84021, 23.84204, 23.84369, 23.85001, 23.85581, 
  23.86087, 23.86162, 23.86221, 23.8651, 23.88446, 23.89467, 23.89608, 23.89926, 23.9042, 23.91401, 
  23.91852, 23.92021, 23.92142, 23.92134, 23.92182, 23.92225, 23.92229, 23.92845, 23.94108, 23.94829, 
  23.95382, 23.9592, 23.98696, 23.99441, 23.99049, 24.00099, 24.00476, 24.0231, 24.02749, 24.05336, 
  24.067, 24.0775, 24.09536, 24.12091, 24.14393, 24.19593, 24.21566, 24.24274, 24.25745, 24.2731, 
  24.29657, 24.3137, 24.32739, 24.39588, 24.40683, 24.44215, 24.4709, 24.48871, 24.50105, 24.50761, 
  24.53151, 24.5479, 24.5568, 24.58397, 24.60988, 24.62954, 24.63719, 24.65419, 24.67978, 24.69974, 
  24.74153, 24.77021, 24.80933, 24.90917, 24.94326, 24.95727, 25.00177, 25.00644, 25.05326, 25.07378, 
  25.08264, 25.08778, 25.10192, 25.12664, 25.14326, 25.16657, 25.19407, 25.20618, 25.20929, 25.25665, 
  25.28025, 25.29639, 25.32277, 25.33223, 25.33751, 25.35426, 25.37753, 25.39335, 25.39924, 25.4194, 
  25.43258, 25.43816, 25.45273, 25.49566, 25.57249, 25.61831, 25.67, 25.69197, 25.77238, 25.85861, 
  26.01051, 26.09379, 26.12755, 26.14095, 26.18209, 26.23723, 26.26309, 26.26586, 26.2711, 26.28418, 
  26.30388, 26.33927, 26.35219, 26.38295, 26.41616, 26.42323, 26.42723, 26.42692, 26.426, 26.43922, 
  26.47549, 26.51881, 26.56089, 26.67078, 26.74316, 26.9435, 26.95983, 26.98135, 26.98861, 27.0387, 
  27.04046, 27.0551, 27.05809, 27.07777, 27.08147, 27.08208, 27.08594, 27.09001, 27.09233, 27.09323, 
  27.09338, 27.09676, 27.11757, 27.12849, 27.15558, 27.15949, 27.16486, 27.26134, 27.32297, 27.34737, 
  27.36201, 27.41932, 27.62514, 27.63229, 27.66065, 27.66434, 27.66551, 27.66757)
LONGITUDE_VALUEs <- c(
  -8.81128, -8.75978, -8.66625, -8.66812, -8.66695, -12.00056, -12.00028, -12.00391, -12.02313, -12.07913, 
  -12.10003, -12.15583, -12.25115, -12.27114, -12.29036, -12.36572, -12.57133, -12.99838, -13.10528, -13.15029, 
  -13.14971, -13.08399, -12.99965, -16.94849, -16.99362, -16.99758, -17.00009, -17.0017, -17.00386, -17.00595, 
  -17.00882, -17.01026, -17.01055, -17.02389, -17.02751, -17.03209, -17.03356, -17.03517, -17.03656, -17.03667, 
  -17.03733, -17.03753, -17.03727, -17.03804, -17.03894, -17.04057, -17.04445, -17.04534, -17.04641, -17.0469, 
  -17.04875, -17.05065, -17.05075, -17.05355, -17.06138, -17.0632, -17.0676, -17.06807, -17.05942, -17.0509, 
  -17.04977, -17.05006, -17.05021, -17.05038, -17.05043, -17.05043, -17.05037, -17.05037, -17.05045, -17.05359, 
  -17.05593, -17.05842, -17.05919, -17.06058, -17.0618, -17.06347, -17.06411, -17.06437, -17.06629, -17.06756, 
  -17.06781, -17.06833, -17.06897, -17.0717, -17.07206, -17.07354, -17.07517, -17.07777, -17.07807, -17.07878, 
  -17.07953, -17.08036, -17.08065, -17.08113, -17.08197, -17.0831, -17.08458, -17.08553, -17.08631, -17.08802, 
  -17.08918, -17.08944, -17.08996, -17.09153, -17.09245, -17.09368, -17.09467, -17.09521, -17.09493, -17.09437, 
  -17.09425, -17.09444, -17.09479, -17.09547, -17.09582, -17.09615, -17.09798, -17.09901, -17.09976, -17.10031, 
  -17.10202, -17.10232, -17.10254, -17.10316, -17.10453, -17.10464, -17.10324, -17.08733, -17.0782, -17.0777, 
  -17.07819, -17.07819, -17.07903, -17.07988, -17.08068, -17.08115, -17.0811, -17.08065, -17.08074, -17.0812, 
  -17.08182, -17.08281, -17.08376, -17.08444, -17.08496, -17.08522, -17.08559, -17.08523, -17.0853, -17.08601, 
  -17.08719, -17.08786, -17.08845, -17.08897, -17.08943, -17.09021, -17.09092, -17.09112, -17.09114, -17.09133, 
  -17.0916, -17.09164, -17.09198, -17.09205, -17.0919, -17.09215, -17.0928, -17.09291, -17.09276, -17.09327, 
  -17.09404, -17.09496, -17.09515, -17.08747, -17.08506, -17.08445, -17.08334, -17.08312, -17.08242, -17.0791, 
  -17.07733, -17.07568, -17.07482, -17.07454, -17.07173, -17.07175, -17.07057, -17.07104, -17.06892, -17.06862, 
  -17.0671, -17.06671, -17.06698, -17.06365, -17.06476, -17.06558, -17.06446, -17.063, -17.06412, -17.06481, 
  -17.06313, -17.06213, -17.06419, -17.06485, -17.06357, -17.06357, -17.06288, -17.05892, -17.05873, -17.05843, 
  -17.05716, -17.05748, -17.05748, -17.05605, -17.05545, -17.05363, -17.05442, -17.05402, -17.05161, -17.04416, 
  -17.04648, -17.04957, -17.05094, -17.05047, -17.0488, -17.04923, -17.04846, -17.04352, -17.03627, -17.03644, 
  -17.03622, -17.03575, -17.02764, -17.02988, -17.03078, -17.03243, -17.03056, -17.02913, -17.02674, -17.01322, 
  -17.01369, -17.01017, -16.99326, -16.99257, -16.98115, -16.98493, -16.98596, -16.98279, -16.97436, -16.97916, 
  -16.98294, -16.98208, -16.9517, -16.95012, -16.95175, -16.95647, -16.95882, -16.95994, -16.96264, -16.96457, 
  -16.96509, -16.96663, -16.95753, -16.94929, -16.91373, -16.89416, -16.89931, -16.89859, -16.89653, -16.87919, 
  -16.87962, -16.87808, -16.87181, -16.87181, -16.86906, -16.86031, -16.84923, -16.84933, -16.84935, -16.84559, 
  -16.83667, -16.82313, -16.81214, -16.80613, -16.80521, -16.80315, -16.79207, -16.77104, -16.77001, -16.78212, 
  -16.76332, -16.73352, -16.70692, -16.69644, -16.68631, -16.68081, -16.67257, -16.65231, -16.63534, -16.61404, 
  -16.55192, -16.50058, -16.49474, -16.47569, -16.46642, -16.45028, -16.45165, -16.44015, -16.42779, -16.36599, 
  -16.35758, -16.34024, -16.34436, -16.3296, -16.31295, -16.30505, -16.29079, -16.28771, -16.28909, -16.29956, 
  -16.30265, -16.30265, -16.29166, -16.28823, -16.28634, -16.28359, -16.28033, -16.26607, -16.26266, -16.21115, 
  -16.1691, -16.14678, -16.14197, -16.1552, -16.17323, -16.18671, -16.20293, -16.20697, -16.20895, -16.20809, 
  -16.20294, -16.18911, -16.18164, -16.16302, -16.15615, -16.13933, -16.12843, -16.12208, -16.11435, -16.11663, 
  -16.11771, -16.1144, -16.09217, -16.07375, -16.06079, -16.06063, -16.05908, -16.06204, -16.06587, -16.04732, 
  -16.04458, -16.0262, -15.98792, -15.96852, -15.95411, -15.95153, -15.95651, -15.96569, -15.96595, -15.97488, 
  -15.97573, -15.97591, -15.97488, -15.97041, -15.96775, -15.96389, -15.96089, -15.95754, -15.94338, -15.93634, 
  -15.93067, -15.92904, -15.92518, -15.9214, -15.91656, -15.91412, -15.90729, -15.90008, -15.90077, -15.90043, 
  -15.89412, -15.88695, -15.88129, -15.88008, -15.87691, -15.87747, -15.87631, -15.87635, -15.87592, -15.87682, 
  -15.86738, -15.85747, -15.85773, -15.85665, -15.85042, -15.84802, -15.83926, -15.83343, -15.80037, -15.79144, 
  -15.77942, -15.74595, -15.73874, -15.73486, -15.72924, -15.72636, -15.72177, -15.71413, -15.711, -15.7095, 
  -15.70761, -15.70799, -15.70902, -15.71795, -15.72079, -15.7268, -15.73005, -15.73314, -15.73632, -15.74014, 
  -15.74119, -15.74192, -15.74254, -15.74332, -15.74394, -15.74497, -15.74572, -15.74634, -15.74701, -15.74735, 
  -15.74819, -15.74926, -15.74956, -15.74954, -15.74545, -15.74219, -15.73479, -15.74011, -15.74543, -15.75229, 
  -15.75916, -15.76363, -15.76483, -15.76723, -15.77118, -15.77307, -15.78441, -15.79471, -15.79763, -15.80158, 
  -15.80759, -15.81892, -15.84689, -15.86407, -15.8736, -15.88484, -15.89488, -15.90063, -15.90664, -15.90638, 
  -15.90913, -15.9135, -15.91651, -15.92217, -15.92466, -15.92337, -15.92998, -15.93556, -15.9353, -15.93788, 
  -15.93882, -15.9432, -15.96767, -15.96912, -15.97822, -15.97967, -15.98285, -15.98294, -15.98457, -15.98594, 
  -15.98903, -15.99427, -16.00054, -16.00672, -16.00689, -16.005, -15.98508, -15.9844, -15.96311, -15.95719, 
  -15.95943, -15.95754, -15.9553, -15.9317, -15.92964, -15.92209, -15.92209, -15.92526, -15.92578, -15.92552, 
  -15.92461, -15.92322, -15.92315, -15.92279, -15.91703, -15.91665, -15.91587, -15.91532, -15.91261, -15.91279, 
  -15.91231, -15.91068, -15.90437, -15.90309, -15.89674, -15.88226, -15.88017, -15.87798, -15.87247, -15.86755, 
  -15.86443, -15.86394, -15.86348, -15.86045, -15.84421, -15.83339, -15.83133, -15.82416, -15.81738, -15.80553, 
  -15.80292, -15.80292, -15.80369, -15.80494, -15.80507, -15.80464, -15.80331, -15.78992, -15.77163, -15.76476, 
  -15.75391, -15.74713, -15.68657, -15.6876, -15.67893, -15.65825, -15.65687, -15.62271, -15.61945, -15.5851, 
  -15.57703, -15.58545, -15.57274, -15.53241, -15.52073, -15.46408, -15.44521, -15.41396, -15.39524, -15.36659, 
  -15.34066, -15.32154, -15.31244, -15.25774, -15.25106, -15.21843, -15.18118, -15.16625, -15.14341, -15.12851, 
  -15.05726, -15.02171, -15.00952, -15.00145, -14.98875, -14.9872, -14.97707, -14.94018, -14.91133, -14.88455, 
  -14.88765, -14.88215, -14.87099, -14.82998, -14.83322, -14.83151, -14.82224, -14.82396, -14.81949, -14.82705, 
  -14.84079, -14.84182, -14.83649, -14.84542, -14.83872, -14.83701, -14.84387, -14.84542, -14.8449, -14.82533, 
  -14.82843, -14.82808, -14.81178, -14.81418, -14.81349, -14.8013, -14.7922, -14.79409, -14.79358, -14.78688, 
  -14.77589, -14.77521, -14.76492, -14.72779, -14.68762, -14.68625, -14.66463, -14.66119, -14.63647, -14.56223, 
  -14.49428, -14.48535, -14.50073, -14.49506, -14.4736, -14.42983, -14.40322, -14.39326, -14.34827, -14.31549, 
  -14.29419, -14.24302, -14.2372, -14.20664, -14.18844, -14.185, -14.18019, -14.1692, -14.14138, -14.06169, 
  -13.96965, -13.91518, -13.83619, -13.64187, -13.56457, -13.47599, -13.47383, -13.46346, -13.46192, -13.43866, 
  -13.43566, -13.43043, -13.43176, -13.41966, -13.41876, -13.41794, -13.41751, -13.41884, -13.42076, -13.42095, 
  -13.42177, -13.42597, -13.41634, -13.4154, -13.40756, -13.4087, -13.40732, -13.34618, -13.30432, -13.30157, 
  -13.28783, -13.26793, -13.19649, -13.19198, -13.17552, -13.17428, -13.17368, -13.17192)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### MOROCCO #####
Geo_0 <- Geometric_Operations(Geo_2, Geo_1)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0))
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  28.25151, 28.25234, 28.24962, 28.24622, 28.24229, 28.24168, 28.23881, 28.2382, 28.23503, 28.22845, 
  28.22497, 28.21922, 28.21416, 28.21376, 28.21307, 28.21175, 28.21137, 28.21104, 28.21079, 28.20999, 
  28.20944, 28.20871, 28.20933, 28.21051, 28.21117, 28.21, 28.20372, 28.19487, 28.18889, 28.17996, 
  28.17815, 28.17671, 28.17512, 28.17754, 28.17497, 28.16188, 28.1472, 28.1394, 28.13638, 28.12404, 
  28.11781, 28.11789, 28.11304, 28.10994, 28.10547, 28.10383, 28.0989, 28.09731, 28.09376, 28.08823, 
  28.08687, 28.08172, 28.07935, 28.07586, 28.07102, 28.07083, 28.06689, 28.06443, 28.06363, 28.059, 
  28.05701, 28.05605, 28.05476, 28.0536, 28.05377, 28.04665, 28.03756, 28.02513, 28.01786, 28.0146, 
  28.01362, 28.01271, 28.00808, 28.00392, 28.00073, 27.99573, 27.98158, 27.98086, 27.9784, 27.97831, 
  27.97812, 27.97615, 27.97451, 27.97336, 27.97238, 27.97181, 27.9709, 27.97064, 27.97058, 27.97046, 
  27.96986, 27.96865, 27.96824, 27.96767, 27.96725, 27.967, 27.96671, 27.96658, 27.96551, 27.96483, 
  27.96445, 27.96388, 27.96348, 27.96315, 27.96293, 27.96218, 27.96207, 27.96128, 27.96011, 27.95987, 
  27.95954, 27.95939, 27.95894, 27.95871, 27.95802, 27.95796, 27.95725, 27.95719, 27.95673, 27.95664, 
  27.95634, 27.95592, 27.95542, 27.95528, 27.95472, 27.95489, 27.95482, 27.95475, 27.95429, 27.95401, 
  27.9539, 27.9535, 27.95327, 27.95313, 27.95284, 27.95238, 27.95041, 27.94801, 27.94677, 27.94504, 
  27.94464, 27.94366, 27.94535, 27.94528, 27.94508, 27.94445, 27.94283, 27.9431, 27.9409, 27.94145, 
  27.94132, 27.94115, 27.94065, 27.93886, 27.93877, 27.93883, 27.94037, 27.94201, 27.94201, 27.94083, 
  27.94034, 27.9391, 27.9379, 27.93746, 27.93716, 27.93666, 27.93573, 27.93533, 27.93501, 27.93482, 
  27.93461, 27.93425, 27.93406, 27.93365, 27.93342, 27.93303, 27.93217, 27.93017, 27.92967, 27.92922, 
  27.92888, 27.92887, 27.92858, 27.92799, 27.92778, 27.92753, 27.92693, 27.927, 27.92702, 27.92681, 
  27.9268, 27.92652, 27.92612, 27.92617, 27.92613, 27.92577, 27.92584, 27.92582, 27.9256, 27.9256, 
  27.92551, 27.92536, 27.92507, 27.92487, 27.92462, 27.92416, 27.92384, 27.92377, 27.92389, 27.92391, 
  27.9237, 27.92359, 27.92295, 27.92178, 27.92157, 27.92107, 27.91962, 27.91809, 27.91713, 27.91657, 
  27.91595, 27.91521, 27.91479, 27.91402, 27.91302, 27.91076, 27.91061, 27.91037, 27.91004, 27.9073, 
  27.90585, 27.90564, 27.90553, 27.90533, 27.9052, 27.90488, 27.90433, 27.90353, 27.90308, 27.90251, 
  27.90217, 27.9013, 27.90056, 27.9003, 27.90015, 27.89996, 27.89958, 27.89885, 27.89837, 27.89798, 
  27.89764, 27.89584, 27.89525, 27.89457, 27.89379, 27.89334, 27.89237, 27.89093, 27.88991, 27.88809, 
  27.88723, 27.88656, 27.88596, 27.88563, 27.88549, 27.88529, 27.8846, 27.88304, 27.88149, 27.87993, 
  27.87949, 27.8785, 27.87779, 27.87746, 27.87677, 27.87435, 27.87233, 27.87123, 27.86482, 27.86194, 
  27.85784, 27.85143, 27.85037, 27.84828, 27.84308, 27.83655, 27.83246, 27.82836, 27.82274, 27.81735, 
  27.81591, 27.81473, 27.80832, 27.8052, 27.80334, 27.79837, 27.79575, 27.79484, 27.79347, 27.79089, 
  27.77851, 27.76568, 27.76291, 27.75683, 27.75132, 27.73537, 27.73081, 27.72823, 27.72166, 27.71885, 
  27.71649, 27.70623, 27.6996, 27.69842, 27.69706, 27.69478, 27.69141, 27.68982, 27.6878, 27.68435, 
  27.68269, 27.68123, 27.67916, 27.67652, 27.67378, 27.67293, 27.66983, 27.66907, 27.66827, 27.66779,
  27.66757, 27.66658, 27.6669, 27.67063, 
  27.86289, 28.10617, 28.31177, 28.45326, 28.53098, 28.60968, 28.63116, 28.66716, 28.69848, 28.7304, 
  28.73692, 28.74158, 28.7479, 28.76002, 28.77258, 28.78033, 28.79199, 28.81072, 28.81922, 28.83245, 
  28.84493, 28.88308, 28.90051, 28.94619, 28.9555, 28.97112, 28.98433, 28.99815, 29.02622, 29.05834, 
  29.06815, 29.07059, 29.07427, 29.07629, 29.0791, 29.08027, 29.09658, 29.10768, 29.11492, 29.12178, 
  29.12316, 29.12901, 29.15677, 29.17131, 29.17408, 29.17618, 29.18025, 29.18253, 29.18849, 29.19167, 
  29.19355, 29.19568, 29.19823, 29.20033, 29.20362, 29.20486, 29.20625, 29.20861, 29.21082, 29.21932, 
  29.22172, 29.22318, 29.23295, 29.23849, 29.24243, 29.25145, 29.25516, 29.25774, 29.26029, 29.26433, 
  29.26759, 29.27036, 29.27238, 29.2759, 29.27732, 29.28241, 29.2902, 29.29233, 29.29457, 29.2957, 
  29.29566, 29.2951, 29.29547, 29.29547, 29.29802, 29.30097, 29.31759, 29.32878, 29.33869, 29.34943, 
  29.35597, 29.36024, 29.36544, 29.36746, 29.37183, 29.37284, 29.37281, 29.37135, 29.36873, 29.36499, 
  29.36185, 29.36065, 29.35994, 29.36035, 29.36013, 29.36342, 29.36966, 29.37254, 29.37378, 29.3761, 
  29.3777, 29.37752, 29.37621, 29.37591, 29.382, 29.38855, 29.43772, 29.46224, 29.47628, 29.48645, 
  29.49556, 29.50318, 29.52081, 29.52275, 29.52215, 29.52066, 29.52081, 29.52245, 29.5235, 29.52155, 
  29.51483, 29.50288, 29.49885, 29.49377, 29.49526, 29.50228, 29.50378, 29.50348, 29.49511, 29.49436, 
  29.49735, 29.49661, 29.4975, 29.49556, 29.48495, 29.48331, 29.48376, 29.4848, 29.48286, 29.47315, 
  29.46896, 29.46403, 29.46388, 29.46224, 29.46493, 29.47897, 29.50602, 29.51468, 29.51797, 29.51752, 
  29.52036, 29.52141, 29.52753, 29.52992, 29.52305, 29.52529, 29.52365, 29.51767, 29.51558, 29.51558, 
  29.52454, 29.5341, 29.53873, 29.56083, 29.56561, 29.56621, 29.56173, 29.55337, 29.55008, 29.55232, 
  29.55665, 29.56203, 29.56591, 29.568, 29.5689, 29.56651, 29.57009, 29.56695, 29.57084, 29.56561, 
  29.57591, 29.5783, 29.58233, 29.56218, 29.5674, 29.5777, 29.59248, 29.59472, 29.59293, 29.59069, 
  29.60099, 29.60801, 29.60681, 29.59323, 29.59353, 29.59129, 29.58606, 29.57964, 29.57337, 29.55381, 
  29.53022, 29.52394, 29.51797, 29.51573, 29.52006, 29.54127, 29.50886, 29.48824, 29.49063, 29.4863, 
  29.48017, 29.47658, 29.47912, 29.48331, 29.49003, 29.51244, 29.52394, 29.63502, 29.71213, 29.73195, 
  29.77741, 29.79528, 29.81897, 29.85113, 29.88091, 29.88552, 29.90487, 29.91558, 29.92242, 29.93358, 
  29.94682, 29.95396, 29.99902, 30.00333, 30.14044, 30.29323, 30.31678, 30.37223, 30.43931, 30.52154, 
  30.53641, 30.58511, 30.58615, 30.59294, 30.5986, 30.60384, 30.59919, 30.59952, 30.6017, 30.60225, 
  30.60133, 30.60225, 30.6096, 30.61049, 30.61075, 30.60621, 30.60517, 30.59568, 30.59498, 30.59605, 
  30.59099, 30.59003, 30.59051, 30.59206, 30.60207, 30.60432, 30.60595, 30.60731, 30.61112, 30.61381, 
  30.62615, 30.62685, 30.63571, 30.63889, 30.63963, 30.639, 30.64494, 30.64594, 30.64886, 30.64919, 
  30.65495, 30.66148, 30.66791, 30.66407, 30.66484, 30.66994, 30.67237, 30.67488, 30.67964, 30.6881, 
  30.69046, 30.69946, 30.70042, 30.7023, 30.704, 30.7061, 30.70858, 30.71156, 30.71573, 30.72285, 
  30.72522, 30.73182, 30.74148, 30.74473, 30.75199, 30.76339, 30.7645, 30.76686, 30.76763, 30.80783, 
  30.83982, 30.85176, 30.85824, 30.87592, 30.86354, 30.96296, 31.03888, 31.04035, 31.06182, 31.06344, 
  31.06035, 31.04932, 31.04771, 31.053, 31.05153, 31.04329, 31.05947, 31.07491, 31.07623, 31.10122, 
  31.09917, 31.11945, 31.11959, 31.1143, 31.10666, 31.11489, 31.13458, 31.13796, 31.16176, 31.16984, 
  31.16778, 31.15721, 31.14164, 31.13899, 31.13943, 31.13414, 31.13315, 31.13007, 31.10994, 31.09943, 
  31.09355, 31.09428, 31.09818, 31.09884, 31.09531, 31.09494, 31.09891, 31.10215, 31.10244, 31.09884, 
  31.09252, 31.09421, 31.09009, 31.08723, 31.08767, 31.08531, 31.08531, 31.08186, 31.08414, 31.08678, 
  31.09083, 31.09752, 31.10913, 31.12022, 31.13323, 31.14932, 31.16518, 31.16694, 31.16166, 31.16981, 
  31.17377, 31.17598, 31.17238, 31.16922, 31.16555, 31.16166, 31.15585, 31.15211, 31.1405, 31.13683, 
  31.13675, 31.14873, 31.15314, 31.15446, 31.15181, 31.15093, 31.14711, 31.14594, 31.14608, 31.14241, 
  31.13881, 31.13529, 31.12757, 31.12507, 31.11714, 31.11501, 31.11809, 31.12177, 31.12478, 31.12595, 
  31.12404, 31.12676, 31.12, 31.1164, 31.10413, 31.10104, 31.10406, 31.10854, 31.12426, 31.13573, 
  31.14366, 31.15527, 31.1759, 31.18009, 31.18449, 31.19242, 31.20814, 31.21107, 31.22318, 31.2234, 
  31.22017, 31.22172, 31.23617, 31.24212, 31.24902, 31.26362, 31.27154, 31.27932, 31.28232, 31.27807, 
  31.27807, 31.28064, 31.29164, 31.28651, 31.28878, 31.29289, 31.30535, 31.31078, 31.32273, 31.3341, 
  31.33989, 31.34297, 31.34685, 31.361, 31.36107, 31.35521, 31.34693, 31.34333, 31.34135, 31.34099, 
  31.34201, 31.3503, 31.36217, 31.36584, 31.36349, 31.36891, 31.37075, 31.37705, 31.38526, 31.38635, 
  31.37873, 31.37807, 31.39405, 31.39712, 31.39822, 31.40167, 31.6336, 31.63509, 31.79365, 31.80066, 
  31.81438, 31.82422, 31.82677, 31.82714, 31.83232, 31.84508, 31.85652, 31.86469, 31.86899, 31.87307, 
  31.88349, 31.89625, 31.91468, 31.93508, 31.95635, 31.96654, 31.9779, 32.01706, 32.02572, 32.03547, 
  32.0506, 32.07068, 32.08762, 32.1114, 32.11096, 32.11438, 32.11249, 32.11089, 32.117, 32.11293, 
  32.13248, 32.1452, 32.14651, 32.15029, 32.15109, 32.1561, 32.15239, 32.15777, 32.15537, 32.1561, 
  32.15828, 32.15138, 32.15283, 32.16315, 32.16656, 32.16867, 32.16249, 32.16257, 32.15908, 32.14311, 
  32.14644, 32.16889, 32.18175, 32.18226, 32.17557, 32.09201, 32.10423, 32.08387, 32.09172, 32.08241, 
  32.08678, 32.07601, 32.08823, 32.10365, 32.1115, 32.12953, 32.13796, 32.15185, 32.1658, 32.17088, 
  32.17321, 32.16013, 32.16347, 32.15868, 32.1594, 32.17078, 32.17194, 32.17535, 32.17877, 32.18487, 
  32.18937, 32.19054, 32.1986, 32.20492, 32.25246, 32.2566, 32.26095, 32.26915, 32.28475, 32.29087, 
  32.30509, 32.31002, 32.31263, 32.31415, 32.3143, 32.32046, 32.32473, 32.32527, 32.32578, 32.32629, 
  32.32621, 32.32781, 32.32948, 32.32904, 32.33238, 32.33513, 32.33658, 32.33666, 32.33553, 32.33669, 
  32.33952, 32.3416, 32.34231, 32.34, 32.34038, 32.34357, 32.3458, 32.34787, 32.34943, 32.35066, 
  32.35122, 32.35244, 32.35383, 32.35585, 32.35837, 32.3593, 32.35994, 32.3608, 32.36099, 32.36428, 
  32.36746, 32.36901, 32.37169, 32.37292, 32.37386, 32.3756, 32.37803, 32.38089, 32.38512, 32.38608, 
  32.387, 32.38861, 32.38968, 32.38943, 32.39059, 32.39235, 32.39378, 32.39564, 32.39586, 32.39539, 
  32.39711, 32.39807, 32.39871, 32.40025, 32.40043, 32.40271, 32.4028, 32.40716, 32.40755, 32.40875, 
  32.40958, 32.40958, 32.40871, 32.40874, 32.41027, 32.41118, 32.41153, 32.41088, 32.41097, 32.41046, 
  32.41105, 32.40989, 32.41132, 32.41135, 32.41405, 32.41518, 32.41554, 32.41434, 32.414, 32.41529, 
  32.41632, 32.41618, 32.41617, 32.41655, 32.41622, 32.41398, 32.41023, 32.4102, 32.41148, 32.41349, 
  32.41577, 32.41981, 32.42278, 32.42304, 32.42416, 32.42746, 32.43209, 32.43547, 32.44004, 32.4429, 
  32.4532, 32.4576, 32.46142, 32.46204, 32.46707, 32.4764, 32.48726, 32.49244, 32.49374, 32.49621, 
  32.50207, 32.50471, 32.50652, 32.50536, 32.50583, 32.51079, 32.51962, 32.52208, 32.52657, 32.53239, 
  32.54734, 32.58699, 32.59473, 32.60167, 32.63297, 32.65263, 32.65719, 32.6971, 32.73205, 32.74519, 
  32.7628, 32.95775, 32.96971, 32.96928, 32.96697, 32.96928, 32.97964, 33.00412, 33.01463, 33.0224, 
  33.04226, 33.06701, 33.07981, 33.09103, 33.10742, 33.14911, 33.21333, 33.22367, 33.28425, 33.37863, 
  33.52979, 33.61568, 33.62512, 33.63184, 33.64198, 33.66985, 33.67627, 33.6807, 33.6817, 33.67942, 
  33.67585, 33.67556, 33.67813, 33.68513, 33.70127, 33.74065, 33.74757, 33.748, 33.75085, 33.75906, 
  33.7734, 33.78653, 33.806, 33.81948, 33.86981, 34.10576, 34.21513, 34.23018, 34.2394, 34.25104, 
  34.26168, 34.27445, 34.28409, 34.29515, 34.30678, 34.32901, 34.34474, 34.36161, 34.37282, 34.38819, 
  34.3917, 34.39496, 34.39545, 34.44906, 34.49316, 34.49463, 34.49427, 34.49627, 34.49723, 34.49804, 
  34.49919, 34.50078, 34.5005, 34.50085, 34.50126, 34.50496, 34.50711, 34.50418, 34.50453, 34.50784, 
  34.51343, 34.5194, 34.52064, 34.52251, 34.52689, 34.5289, 34.52755, 34.53082, 34.53465, 34.53782, 
  34.54155, 34.54316, 34.54606, 34.55024, 34.55303, 34.55731, 34.55858, 34.56137, 34.56374, 34.56582, 
  34.5696, 34.57119, 34.5743, 34.57579, 34.57801, 34.57932, 34.58228, 34.58297, 34.58543, 34.58691, 
  34.58691, 34.58753, 34.58958, 34.5902, 34.59122, 34.59474, 34.59929, 34.60263, 34.60443, 34.6063, 
  34.60811, 34.60973, 34.61054, 34.60996, 34.61053, 34.61171, 34.61231, 34.61201, 34.61392, 34.61701, 
  34.61702, 34.61492, 34.61498, 34.61623, 34.61713, 34.6175, 34.61928, 34.6199, 34.62824, 34.62912, 
  34.63406, 34.64609, 34.6509, 34.65293, 34.65676, 34.65924, 34.66001, 34.6615, 34.66367, 34.67071, 
  34.68242, 34.68756, 34.69349, 34.69499, 34.69929, 34.71206, 34.71455, 34.71612, 34.71647, 34.72347, 
  34.72464, 34.7257, 34.73176, 34.73842, 34.74161, 34.7423, 34.74237, 34.74287, 34.7437, 34.74836, 
  34.74813, 34.74831, 34.74917, 34.75166, 34.7532, 34.75443, 34.76023, 34.76491, 34.76619, 34.7679, 
  34.7682, 34.76943, 34.77114, 34.77292, 34.77693, 34.777, 34.77861, 34.77958, 34.78005, 34.78099, 
  34.78094, 34.78266, 34.78271, 34.78316, 34.78297, 34.78156, 34.78208, 34.78417, 34.78805, 34.78895, 
  34.80229, 34.80664, 34.82662, 34.83284, 34.84168, 34.84666, 34.85499, 34.85623, 34.8567, 34.8566, 
  34.85671, 34.85716, 34.85764, 34.85771, 34.8582, 34.85936, 34.85949, 34.86101, 34.86118, 34.86112, 
  34.86083, 34.86204, 34.86438, 34.86485, 34.86429, 34.86435, 34.86475, 34.86498, 34.86838, 34.86921, 
  34.87049, 34.87165, 34.87155, 34.87664, 34.87684, 34.87921, 34.88312, 34.888, 34.9023, 34.90773, 
  34.91352, 34.922, 34.92464, 34.92712, 34.92919, 34.93579, 34.93459, 34.93019, 34.93055, 34.92946, 
  34.93195, 34.92451, 34.92497, 34.92687, 34.9299, 34.93155, 34.93739, 34.93806, 34.93945, 34.94495, 
  34.95086, 34.98469, 34.9942, 35.0095, 35.02453, 35.03128, 35.03444, 35.04976, 35.05967, 35.06929, 
  35.07832, 35.08, 35.08197, 35.08526, 35.0853, 35.08591, 28.05492)
LONGITUDE_VALUEs <- c(
  -11.66333, -11.66977, -11.67819, -11.68976, -11.69689, -11.70367, -11.70788, -11.71252, -11.71939, -11.74307, 
  -11.74831, -11.7678, -11.77765, -11.77848, -11.77905, -11.77948, -11.77926, -11.77956, -11.77948, -11.77965, 
  -11.78199, -11.78372, -11.78446, -11.78505, -11.78639, -11.79046, -11.80718, -11.82925, -11.84443, -11.87071, 
  -11.87122, -11.87036, -11.87363, -11.87603, -11.88591, -11.92125, -11.95603, -11.97149, -11.9743, -12.00332, 
  -12.01646, -12.01929, -12.0295, -12.03427, -12.04376, -12.04614, -12.04983, -12.04983, -12.06297, -12.08125, 
  -12.08236, -12.10881, -12.11962, -12.1346, -12.15829, -12.16155, -12.17804, -12.18597, -12.19052, -12.21437, 
  -12.22306, -12.22555, -12.22765, -12.24738, -12.2505, -12.28622, -12.34304, -12.41117, -12.45608, -12.47188, 
  -12.4736, -12.48533, -12.51668, -12.53469, -12.54096, -12.56491, -12.66911, -12.68328, -12.70956, -12.71348, 
  -12.71542, -12.72286, -12.73282, -12.74273, -12.75072, -12.75879, -12.76917, -12.77142, -12.77555, -12.77788, 
  -12.78295, -12.7898, -12.79725, -12.80209, -12.80832, -12.81074, -12.81195, -12.81659, -12.82551, -12.82838, 
  -12.82972, -12.83112, -12.83333, -12.83388, -12.83455, -12.83601, -12.83664, -12.83828, -12.8396, -12.84044, 
  -12.84091, -12.84207, -12.84331, -12.8514, -12.85597, -12.85747, -12.8594, -12.8605, -12.86125, -12.86174, 
  -12.86211, -12.86432, -12.87219, -12.87999, -12.89211, -12.89758, -12.90636, -12.90722, -12.90954, -12.91453, 
  -12.91534, -12.9166, -12.91721, -12.91745, -12.91766, -12.91788, -12.91841, -12.92142, -12.92468, -12.9278, 
  -12.92932, -12.9303, -12.93536, -12.93563, -12.9356, -12.93375, -12.93538, -12.93667, -12.93915, -12.94086, 
  -12.94108, -12.94102, -12.93935, -12.9393, -12.93908, -12.93893, -12.93901, -12.93715, -12.93624, -12.93566, 
  -12.93499, -12.93577, -12.93577, -12.93471, -12.93465, -12.93465, -12.93495, -12.93533, -12.93613, -12.93634, 
  -12.93643, -12.9364, -12.93635, -12.93633, -12.93647, -12.93629, -12.93638, -12.93768, -12.93858, -12.94027, 
  -12.94052, -12.94091, -12.94109, -12.94288, -12.94385, -12.94484, -12.94647, -12.94678, -12.94695, -12.94748, 
  -12.94774, -12.94828, -12.94954, -12.94969, -12.94982, -12.9502, -12.95092, -12.95105, -12.95113, -12.95187, 
  -12.95203, -12.95214, -12.95223, -12.95221, -12.95234, -12.9529, -12.95305, -12.95318, -12.95426, -12.95482, 
  -12.95545, -12.95563, -12.95605, -12.95761, -12.95814, -12.95877, -12.9599, -12.96089, -12.96139, -12.96157, 
  -12.96162, -12.96181, -12.96188, -12.96188, -12.96204, -12.96277, -12.96278, -12.96288, -12.96289, -12.96479, 
  -12.96544, -12.96541, -12.96551, -12.96544, -12.96561, -12.9657, -12.96606, -12.96704, -12.96724, -12.96785, 
  -12.96818, -12.96876, -12.96916, -12.96958, -12.97012, -12.97042, -12.97054, -12.97056, -12.97073, -12.9706, 
  -12.97079, -12.97474, -12.97721, -12.97838, -12.97936, -12.97972, -12.98019, -12.98073, -12.98107, -12.98238, 
  -12.98281, -12.98306, -12.98316, -12.98303, -12.98277, -12.98208, -12.98165, -12.9819, -12.98325, -12.98565, 
  -12.98668, -12.98816, -12.9886, -12.98851, -12.98662, -12.98563, -12.98593, -12.98589, -12.98829, -12.98842, 
  -12.98984, -12.99683, -12.99748, -12.99782, -13.00001, -13.00168, -13.00121, -13.0019, -13.00606, -13.0067, 
  -13.00743, -13.00713, -13.00829, -13.01155, -13.01636, -13.02477, -13.02623, -13.02743, -13.02842, -13.02962, 
  -13.03601, -13.04129, -13.04219, -13.04704, -13.05065, -13.07146, -13.08605, -13.09391, -13.1112, -13.11562, 
  -13.11738, -13.13236, -13.15264, -13.15547, -13.15989, -13.16255, -13.16468, -13.16501, -13.16488, -13.16651,
  -13.16689, -13.16674, -13.167, -13.16805, -13.16986, -13.17025, -13.17137, -13.17166, -13.17169, -13.17182,
  -13.17192, -8.81128, -8.75978, -8.66625, 
  -8.66827, -8.66903, -8.66931, -8.66905, -8.66863, -8.66794, -8.66842, -8.66876, -8.63014, -8.59907, 
  -8.59158, -8.58472, -8.57304, -8.54455, -8.51098, -8.4855, -8.45837, -8.4285, -8.41957, -8.41048, 
  -8.39666, -8.35461, -8.33282, -8.26398, -8.24802, -8.22638, -8.20218, -8.16975, -8.12562, -8.07481, 
  -8.05951, -8.05444, -8.04998, -8.04706, -8.04239, -8.04003, -8.00239, -7.98595, -7.97338, -7.95772, 
  -7.95587, -7.9523, -7.92733, -7.90948, -7.90562, -7.9009, -7.89553, -7.8924, -7.88008, -7.8763, 
  -7.87368, -7.86908, -7.86264, -7.85638, -7.84393, -7.83028, -7.82659, -7.82337, -7.82204, -7.82058, 
  -7.81925, -7.81788, -7.80539, -7.79724, -7.79261, -7.77891, -7.77312, -7.76857, -7.76248, -7.75642, 
  -7.74943, -7.74488, -7.73913, -7.73226, -7.72818, -7.70875, -7.68918, -7.68326, -7.67184, -7.66468, 
  -7.65631, -7.65223, -7.64828, -7.64351, -7.63725, -7.63445, -7.62798, -7.62171, -7.61811, -7.61686, 
  -7.61828, -7.61686, -7.61364, -7.61026, -7.59746, -7.59133, -7.58575, -7.57317, -7.56357, -7.54652, 
  -7.5388, -7.53047, -7.51718, -7.50387, -7.48871, -7.46649, -7.4404, -7.4337, -7.4274, -7.41924, 
  -7.41272, -7.40349, -7.39813, -7.39289, -7.37624, -7.35091, -7.29608, -7.27103, -7.25403, -7.23806, 
  -7.21642, -7.19225, -7.15619, -7.14984, -7.14177, -7.13576, -7.1282, -7.12133, -7.11412, -7.10244, 
  -7.08115, -7.06145, -7.03535, -7.02264, -7.01509, -7.00341, -6.98984, -6.98229, -6.97164, -6.96357, 
  -6.95103, -6.9363, -6.9169, -6.90848, -6.89079, -6.88375, -6.87242, -6.86263, -6.85593, -6.846, 
  -6.83656, -6.80462, -6.79036, -6.77577, -6.76117, -6.74369, -6.72068, -6.69698, -6.68273, -6.65886, 
  -6.64585, -6.62387, -6.62387, -6.61872, -6.5751, -6.54729, -6.5454, -6.5466, -6.54385, -6.54076, 
  -6.52312, -6.51162, -6.51145, -6.46697, -6.44825, -6.43915, -6.40052, -6.39605, -6.39021, -6.38643, 
  -6.38815, -6.38695, -6.38063, -6.37445, -6.36466, -6.34508, -6.31692, -6.30353, -6.28945, -6.2476, 
  -6.21274, -6.17822, -6.16552, -6.0658, -6.02238, -6.00607, -5.94082, -5.92348, -5.89274, -5.87406, 
  -5.86101, -5.81379, -5.79662, -5.7621, -5.74189, -5.72781, -5.72283, -5.72248, -5.72471, -5.74189, 
  -5.75097, -5.75166, -5.74943, -5.7429, -5.7144, -5.68572, -5.65932, -5.59836, -5.59029, -5.57194, 
  -5.57023, -5.56525, -5.55803, -5.55357, -5.5534, -5.54206, -5.53227, -5.44387, -5.37451, -5.36165, 
  -5.32319, -5.31701, -5.32268, -5.29727, -5.28903, -5.282, -5.27084, -5.24937, -5.248, -5.23942, 
  -5.22002, -5.20491, -5.13317, -5.12372, -4.93694, -4.58607, -4.55993, -4.48795, -4.42693, -4.32972, 
  -4.29625, -4.14832, -4.13635, -3.99588, -3.96928, -3.92714, -3.91992, -3.9167, -3.91366, -3.91014, 
  -3.90863, -3.90404, -3.89121, -3.88847, -3.88649, -3.87178, -3.86551, -3.84826, -3.84066, -3.83383, 
  -3.82397, -3.81963, -3.81641, -3.81555, -3.8007, -3.79538, -3.79465, -3.79178, -3.77658, -3.77393, 
  -3.76796, -3.76599, -3.74521, -3.74414, -3.74281, -3.74165, -3.72157, -3.72028, -3.72101, -3.71582, 
  -3.70934, -3.69174, -3.68187, -3.67165, -3.66942, -3.66376, -3.65664, -3.65381, -3.65024, -3.64634, 
  -3.64471, -3.64745, -3.64625, -3.6463, -3.64239, -3.6402, -3.63999, -3.63934, -3.63629, -3.63642, 
  -3.63312, -3.63145, -3.63192, -3.62956, -3.63282, -3.63565, -3.63544, -3.64136, -3.64467, -3.65069, 
  -3.65103, -3.65824, -3.63832, -3.63557, -3.6196, -3.54134, -3.54203, -3.55474, -3.54838, -3.55662, 
  -3.56126, -3.55937, -3.56349, -3.5671, -3.57173, -3.57397, -3.59233, -3.59216, -3.60572, -3.61069, 
  -3.61773, -3.61602, -3.62013, -3.62614, -3.62975, -3.63902, -3.63799, -3.63421, -3.63902, -3.63902, 
  -3.64194, -3.64314, -3.63919, -3.64125, -3.64486, -3.65155, -3.64649, -3.6446, -3.64418, -3.63645, 
  -3.64152, -3.64925, -3.65113, -3.65414, -3.65354, -3.65723, -3.65757, -3.66084, -3.6647, -3.66513, 
  -3.66212, -3.66564, -3.66633, -3.66401, -3.65139, -3.64727, -3.64229, -3.64401, -3.67638, -3.67955, 
  -3.67947, -3.67397, -3.67646, -3.67019, -3.67345, -3.67105, -3.68101, -3.69422, -3.698, -3.70032, 
  -3.69972, -3.70212, -3.70418, -3.71105, -3.7138, -3.7126, -3.70624, -3.70469, -3.70727, -3.70546, 
  -3.70813, -3.70761, -3.7089, -3.71079, -3.71405, -3.71886, -3.72075, -3.72401, -3.73406, -3.73371, 
  -3.72573, -3.72383, -3.72537, -3.72907, -3.73061, -3.73396, -3.73688, -3.73825, -3.74152, -3.74572, 
  -3.75319, -3.7556, -3.77243, -3.77438, -3.77266, -3.77515, -3.77764, -3.77696, -3.7779, -3.77524, 
  -3.7773, -3.77396, -3.75954, -3.75937, -3.76684, -3.76615, -3.77027, -3.77362, -3.77224, -3.77542, 
  -3.77885, -3.78272, -3.7907, -3.77971, -3.78306, -3.75868, -3.75739, -3.75447, -3.75679, -3.76478, 
  -3.76993, -3.77328, -3.77456, -3.78238, -3.78555, -3.78572, -3.7749, -3.76245, -3.76031, -3.76452, 
  -3.75422, -3.75757, -3.75791, -3.74933, -3.74486, -3.73885, -3.73799, -3.73542, -3.73147, -3.72675, 
  -3.72245, -3.71292, -3.71131, -3.7035, -3.695, -3.68864, -3.67946, -3.67337, -3.67268, -3.66907, 
  -3.66504, -3.66092, -3.64718, -3.6483, -3.66264, -3.66487, -3.66475, -3.66101, -2.82069, -2.82296, 
  -2.82193, -2.82845, -2.83257, -2.84004, -2.84424, -2.84304, -2.8372, -2.83797, -2.84235, -2.84089, 
  -2.84235, -2.8536, -2.86407, -2.88373, -2.88209, -2.88544, -2.89952, -2.92123, -2.92948, -2.93093, 
  -2.9269, -2.91875, -2.90389, -2.8736, -2.83567, -2.8124, -2.79566, -2.72984, -2.64889, -2.59988, 
  -2.55808, -2.54229, -2.53603, -2.48958, -2.47475, -2.44856, -2.43079, -2.40514, -2.38625, -2.32565, 
  -2.31414, -2.29955, -2.28712, -2.28643, -2.28197, -2.27776, -2.25913, -2.24566, -2.23159, -2.19013, 
  -2.13314, -2.06189, -2.01915, -2.01495, -1.99692, -1.57991, -1.50333, -1.37841, -1.36467, -1.33032, 
  -1.27331, -1.25236, -1.19775, -1.18196, -1.15242, -1.15345, -1.16753, -1.17291, -1.18545, -1.19799, 
  -1.21791, -1.25775, -1.27269, -1.28368, -1.29758, -1.3005, -1.29904, -1.28564, -1.28067, -1.27749, 
  -1.27131, -1.26324, -1.25663, -1.24145, -1.24772, -1.24287, -1.24068, -1.24261, -1.23771, -1.23457, 
  -1.23663, -1.235, -1.23586, -1.23981, -1.24428, -1.24891, -1.24634, -1.24437, -1.24406, -1.24445, 
  -1.24625, -1.24673, -1.24625, -1.24222, -1.23819, -1.23209, -1.23145, -1.23085, -1.2299, -1.22857, 
  -1.22887, -1.2277, -1.22626, -1.22302, -1.22171, -1.22171, -1.21898, -1.21879, -1.21748, -1.21892, 
  -1.22051, -1.22083, -1.21933, -1.21841, -1.21899, -1.21888, -1.21836, -1.21592, -1.21419, -1.2121, 
  -1.20948, -1.20969, -1.2074, -1.20864, -1.208, -1.20836, -1.20626, -1.20637, -1.20371, -1.20212, 
  -1.20145, -1.2018, -1.20291, -1.20493, -1.20626, -1.20635, -1.20424, -1.20319, -1.20188, -1.20102, 
  -1.20036, -1.19954, -1.19804, -1.19686, -1.19568, -1.19568, -1.19388, -1.18797, -1.18532, -1.18364, 
  -1.18061, -1.17936, -1.17883, -1.17844, -1.17828, -1.17752, -1.17702, -1.17611, -1.17343, -1.17257, 
  -1.17153, -1.1695, -1.16873, -1.16719, -1.1653, -1.16336, -1.1618, -1.16073, -1.15872, -1.15767, 
  -1.15463, -1.15313, -1.15117, -1.14868, -1.14351, -1.13908, -1.12832, -1.12649, -1.12416, -1.12403, 
  -1.12241, -1.12054, -1.11699, -1.11159, -1.10821, -1.10686, -1.10387, -1.09696, -1.08893, -1.07949, 
  -1.06303, -1.06295, -1.05872, -1.05578, -1.04872, -1.04481, -1.02807, -1.02318, -1.02047, -1.0185, 
  -1.01558, -1.0158, -1.01202, -1.00429, -1.0006, -0.99863, -1.00022, -1.00391, -1.00524, -1.01009, 
  -1.04476, -1.10608, -1.12317, -1.12875, -1.17491, -1.2114, -1.21467, -1.27507, -1.35747, -1.37756, 
  -1.39936, -1.54355, -1.51058, -1.50234, -1.49633, -1.49221, -1.48293, -1.47213, -1.47693, -1.47659, 
  -1.46183, -1.47025, -1.47901, -1.49926, -1.53445, -1.57599, -1.60655, -1.62939, -1.67007, -1.66355, 
  -1.58885, -1.59951, -1.62491, -1.6323, -1.63676, -1.6462, -1.64672, -1.6529, -1.6584, -1.67213, 
  -1.67831, -1.70184, -1.70802, -1.70905, -1.73256, -1.72098, -1.71119, -1.70294, -1.69231, -1.67651, 
  -1.67145, -1.67505, -1.67222, -1.68372, -1.69874, -1.64791, -1.70199, -1.70662, -1.70731, -1.70594, 
  -1.71177, -1.70834, -1.7104, -1.70954, -1.70542, -1.72303, -1.73376, -1.75274, -1.77085, -1.78033, 
  -1.78295, -1.78184, -1.77991, -1.72904, -1.68779, -1.69545, -1.6973, -1.70393, -1.70571, -1.70603, 
  -1.70605, -1.71346, -1.71414, -1.71479, -1.71483, -1.72026, -1.72702, -1.73165, -1.73481, -1.74135, 
  -1.74304, -1.75463, -1.75597, -1.75593, -1.75414, -1.75648, -1.76093, -1.7644, -1.76596, -1.76615, 
  -1.76776, -1.77093, -1.77296, -1.77959, -1.78282, -1.78665, -1.78712, -1.79064, -1.79021, -1.78918, 
  -1.78905, -1.78995, -1.79342, -1.79424, -1.79729, -1.79742, -1.79884, -1.79853, -1.79952, -1.80321, 
  -1.80433, -1.80579, -1.80637, -1.80716, -1.8074, -1.81244, -1.81317, -1.81617, -1.81662, -1.82184, 
  -1.82177, -1.82302, -1.82517, -1.82609, -1.82907, -1.8295, -1.83061, -1.83233, -1.8363, -1.83911, 
  -1.84297, -1.85055, -1.85325, -1.85386, -1.85328, -1.85225, -1.85134, -1.84898, -1.8389, -1.83604, 
  -1.83375, -1.82489, -1.82111, -1.81864, -1.81637, -1.81594, -1.81534, -1.81186, -1.80914, -1.80171, 
  -1.79446, -1.7897, -1.78192, -1.77899, -1.77504, -1.77191, -1.77328, -1.77289, -1.77167, -1.77088, 
  -1.77124, -1.76862, -1.76111, -1.74951, -1.74297, -1.74114, -1.74018, -1.73887, -1.73928, -1.74916, 
  -1.74944, -1.74988, -1.75013, -1.75219, -1.75646, -1.76191, -1.77221, -1.78346, -1.79013, -1.79239, 
  -1.7933, -1.79561, -1.79759, -1.80572, -1.81289, -1.8129, -1.81134, -1.81246, -1.81222, -1.813, 
  -1.81328, -1.81483, -1.81528, -1.81637, -1.81692, -1.81799, -1.82225, -1.82809, -1.84202, -1.84172, 
  -1.85926, -1.88864, -1.8902, -1.89209, -1.89342, -1.90248, -1.92268, -1.92354, -1.9244, -1.92522, 
  -1.92586, -1.92682, -1.92729, -1.92998, -1.93035, -1.93037, -1.93161, -1.93248, -1.93282, -1.93316, 
  -1.93346, -1.94149, -1.94269, -1.94344, -1.94403, -1.94465, -1.94508, -1.94508, -1.94928, -1.94947, 
  -1.95064, -1.95271, -1.95542, -1.96228, -1.96906, -1.97297, -1.97183, -1.97438, -1.97374, -1.97141, 
  -1.97434, -1.97376, -1.9729, -1.97363, -1.97288, -1.97337, -1.98009, -1.99221, -1.99455, -2.00178, 
  -2.01206, -2.03511, -2.04026, -2.04596, -2.04944, -2.05032, -2.05809, -2.05978, -2.06408, -2.07203, 
  -2.08502, -2.12319, -2.12486, -2.17056, -2.18794, -2.18404, -2.19528, -2.2176, -2.21146, -2.21464, 
  -2.21288, -2.21189, -2.21245, -2.21176, -2.21251, -2.21482, -11.34914)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_2, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, Geo_0[41])
Geo_2 <- st_union(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
Geo_2 <- Geo_2 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### ALGERIA #####
Geo_0 <- Geometric_Operations(Geo_3, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0))
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(
  25.00031, 25.35116, 25.85119, 26.22968, 26.67561, 26.97655, 27.13691, 27.22914, 27.2346, 27.23517, 
  27.2885, 27.30555, 27.31494, 27.67063, 27.86289, 28.10617, 28.31177, 28.45326, 28.53098, 28.60968, 
  28.63116, 28.66716, 28.69848, 28.7304, 28.73692, 28.74158, 28.7479, 28.76002, 28.77258, 28.78033, 
  28.79199, 28.81072, 28.81922, 28.83245, 28.84493, 28.88308, 28.90051, 28.94619, 28.9555, 28.97112, 
  28.98433, 28.99815, 29.02622, 29.05834, 29.06815, 29.07059, 29.07427, 29.07629, 29.0791, 29.08027, 
  29.09658, 29.10768, 29.11492, 29.12178, 29.12316, 29.12901, 29.15677, 29.17131, 29.17408, 29.17618, 
  29.18025, 29.18253, 29.18849, 29.19167, 29.19355, 29.19568, 29.19823, 29.20033, 29.20362, 29.20486, 
  29.20625, 29.20861, 29.21082, 29.21932, 29.22172, 29.22318, 29.23295, 29.23849, 29.24243, 29.25145, 
  29.25516, 29.25774, 29.26029, 29.26433, 29.26759, 29.27036, 29.27238, 29.2759, 29.27732, 29.28241, 
  29.2902, 29.29233, 29.29457, 29.2957, 29.29566, 29.2951, 29.29547, 29.29547, 29.29802, 29.30097, 
  29.31759, 29.32878, 29.33869, 29.34943, 29.35597, 29.36024, 29.36544, 29.36746, 29.37183, 29.37284, 
  29.37281, 29.37135, 29.36873, 29.36499, 29.36185, 29.36065, 29.35994, 29.36035, 29.36013, 29.36342, 
  29.36966, 29.37254, 29.37378, 29.3761, 29.3777, 29.37752, 29.37621, 29.37591, 29.382, 29.38855, 
  29.43772, 29.46224, 29.47628, 29.48645, 29.49556, 29.50318, 29.52081, 29.52275, 29.52215, 29.52066, 
  29.52081, 29.52245, 29.5235, 29.52155, 29.51483, 29.50288, 29.49885, 29.49377, 29.49526, 29.50228, 
  29.50378, 29.50348, 29.49511, 29.49436, 29.49735, 29.49661, 29.4975, 29.49556, 29.48495, 29.48331, 
  29.48376, 29.4848, 29.48286, 29.47315, 29.46896, 29.46403, 29.46388, 29.46224, 29.46493, 29.47897, 
  29.50602, 29.51468, 29.51797, 29.51752, 29.52036, 29.52141, 29.52753, 29.52992, 29.52305, 29.52529, 
  29.52365, 29.51767, 29.51558, 29.51558, 29.52454, 29.5341, 29.53873, 29.56083, 29.56561, 29.56621, 
  29.56173, 29.55337, 29.55008, 29.55232, 29.55665, 29.56203, 29.56591, 29.568, 29.5689, 29.56651, 
  29.57009, 29.56695, 29.57084, 29.56561, 29.57591, 29.5783, 29.58233, 29.56218, 29.5674, 29.5777, 
  29.59248, 29.59472, 29.59293, 29.59069, 29.60099, 29.60801, 29.60681, 29.59323, 29.59353, 29.59129, 
  29.58606, 29.57964, 29.57337, 29.55381, 29.53022, 29.52394, 29.51797, 29.51573, 29.52006, 29.54127, 
  29.50886, 29.48824, 29.49063, 29.4863, 29.48017, 29.47658, 29.47912, 29.48331, 29.49003, 29.51244, 
  29.52394, 29.63502, 29.71213, 29.73195, 29.77741, 29.79528, 29.81897, 29.85113, 29.88091, 29.88552, 
  29.90487, 29.91558, 29.92242, 29.93358, 29.94682, 29.95396, 29.99902, 30.00333, 30.14044, 30.29323, 
  30.31678, 30.37223, 30.43931, 30.52154, 30.53641, 30.58511, 30.58615, 30.59294, 30.5986, 30.60384, 
  30.59919, 30.59952, 30.6017, 30.60225, 30.60133, 30.60225, 30.6096, 30.61049, 30.61075, 30.60621, 
  30.60517, 30.59568, 30.59498, 30.59605, 30.59099, 30.59003, 30.59051, 30.59206, 30.60207, 30.60432, 
  30.60595, 30.60731, 30.61112, 30.61381, 30.62615, 30.62685, 30.63571, 30.63889, 30.63963, 30.639, 
  30.64494, 30.64594, 30.64886, 30.64919, 30.65495, 30.66148, 30.66791, 30.66407, 30.66484, 30.66994, 
  30.67237, 30.67488, 30.67964, 30.6881, 30.69046, 30.69946, 30.70042, 30.7023, 30.704, 30.7061, 
  30.70858, 30.71156, 30.71573, 30.72285, 30.72522, 30.73182, 30.74148, 30.74473, 30.75199, 30.76339, 
  30.7645, 30.76686, 30.76763, 30.80783, 30.83982, 30.85176, 30.85824, 30.87592, 30.86354, 30.96296, 
  31.03888, 31.04035, 31.06182, 31.06344, 31.06035, 31.04932, 31.04771, 31.053, 31.05153, 31.04329, 
  31.05947, 31.07491, 31.07623, 31.10122, 31.09917, 31.11945, 31.11959, 31.1143, 31.10666, 31.11489, 
  31.13458, 31.13796, 31.16176, 31.16984, 31.16778, 31.15721, 31.14164, 31.13899, 31.13943, 31.13414, 
  31.13315, 31.13007, 31.10994, 31.09943, 31.09355, 31.09428, 31.09818, 31.09884, 31.09531, 31.09494, 
  31.09891, 31.10215, 31.10244, 31.09884, 31.09252, 31.09421, 31.09009, 31.08723, 31.08767, 31.08531, 
  31.08531, 31.08186, 31.08414, 31.08678, 31.09083, 31.09752, 31.10913, 31.12022, 31.13323, 31.14932, 
  31.16518, 31.16694, 31.16166, 31.16981, 31.17377, 31.17598, 31.17238, 31.16922, 31.16555, 31.16166, 
  31.15585, 31.15211, 31.1405, 31.13683, 31.13675, 31.14873, 31.15314, 31.15446, 31.15181, 31.15093, 
  31.14711, 31.14594, 31.14608, 31.14241, 31.13881, 31.13529, 31.12757, 31.12507, 31.11714, 31.11501, 
  31.11809, 31.12177, 31.12478, 31.12595, 31.12404, 31.12676, 31.12, 31.1164, 31.10413, 31.10104, 
  31.10406, 31.10854, 31.12426, 31.13573, 31.14366, 31.15527, 31.1759, 31.18009, 31.18449, 31.19242, 
  31.20814, 31.21107, 31.22318, 31.2234, 31.22017, 31.22172, 31.23617, 31.24212, 31.24902, 31.26362, 
  31.27154, 31.27932, 31.28232, 31.27807, 31.27807, 31.28064, 31.29164, 31.28651, 31.28878, 31.29289, 
  31.30535, 31.31078, 31.32273, 31.3341, 31.33989, 31.34297, 31.34685, 31.361, 31.36107, 31.35521, 
  31.34693, 31.34333, 31.34135, 31.34099, 31.34201, 31.3503, 31.36217, 31.36584, 31.36349, 31.36891, 
  31.37075, 31.37705, 31.38526, 31.38635, 31.37873, 31.37807, 31.39405, 31.39712, 31.39822, 31.40167, 
  31.6336, 31.63509, 31.79365, 31.80066, 31.81438, 31.82422, 31.82677, 31.82714, 31.83232, 31.84508, 
  31.85652, 31.86469, 31.86899, 31.87307, 31.88349, 31.89625, 31.91468, 31.93508, 31.95635, 31.96654, 
  31.9779, 32.01706, 32.02572, 32.03547, 32.0506, 32.07068, 32.08762, 32.1114, 32.11096, 32.11438, 
  32.11249, 32.11089, 32.117, 32.11293, 32.13248, 32.1452, 32.14651, 32.15029, 32.15109, 32.1561, 
  32.15239, 32.15777, 32.15537, 32.1561, 32.15828, 32.15138, 32.15283, 32.16315, 32.16656, 32.16867, 
  32.16249, 32.16257, 32.15908, 32.14311, 32.14644, 32.16889, 32.18175, 32.18226, 32.17557, 32.09201, 
  32.10423, 32.08387, 32.09172, 32.08241, 32.08678, 32.07601, 32.08823, 32.10365, 32.1115, 32.12953, 
  32.13796, 32.15185, 32.1658, 32.17088, 32.17321, 32.16013, 32.16347, 32.15868, 32.1594, 32.17078, 
  32.17194, 32.17535, 32.17877, 32.18487, 32.18937, 32.19054, 32.1986, 32.20492, 32.25246, 32.2566, 
  32.26095, 32.26915, 32.28475, 32.29087, 32.30509, 32.31002, 32.31263, 32.31415, 32.3143, 32.32046, 
  32.32473, 32.32527, 32.32578, 32.32629, 32.32621, 32.32781, 32.32948, 32.32904, 32.33238, 32.33513, 
  32.33658, 32.33666, 32.33553, 32.33669, 32.33952, 32.3416, 32.34231, 32.34, 32.34038, 32.34357, 
  32.3458, 32.34787, 32.34943, 32.35066, 32.35122, 32.35244, 32.35383, 32.35585, 32.35837, 32.3593, 
  32.35994, 32.3608, 32.36099, 32.36428, 32.36746, 32.36901, 32.37169, 32.37292, 32.37386, 32.3756, 
  32.37803, 32.38089, 32.38512, 32.38608, 32.387, 32.38861, 32.38968, 32.38943, 32.39059, 32.39235, 
  32.39378, 32.39564, 32.39586, 32.39539, 32.39711, 32.39807, 32.39871, 32.40025, 32.40043, 32.40271, 
  32.4028, 32.40716, 32.40755, 32.40875, 32.40958, 32.40958, 32.40871, 32.40874, 32.41027, 32.41118, 
  32.41153, 32.41088, 32.41097, 32.41046, 32.41105, 32.40989, 32.41132, 32.41135, 32.41405, 32.41518, 
  32.41554, 32.41434, 32.414, 32.41529, 32.41632, 32.41618, 32.41617, 32.41655, 32.41622, 32.41398, 
  32.41023, 32.4102, 32.41148, 32.41349, 32.41577, 32.41981, 32.42278, 32.42304, 32.42416, 32.42746, 
  32.43209, 32.43547, 32.44004, 32.4429, 32.4532, 32.4576, 32.46142, 32.46204, 32.46707, 32.4764, 
  32.48726, 32.49244, 32.49374, 32.49621, 32.50207, 32.50471, 32.50652, 32.50536, 32.50583, 32.51079, 
  32.51962, 32.52208, 32.52657, 32.53239, 32.54734, 32.58699, 32.59473, 32.60167, 32.63297, 32.65263, 
  32.65719, 32.6971, 32.73205, 32.74519, 32.7628, 32.95775, 32.96971, 32.96928, 32.96697, 32.96928, 
  32.97964, 33.00412, 33.01463, 33.0224, 33.04226, 33.06701, 33.07981, 33.09103, 33.10742, 33.14911, 
  33.21333, 33.22367, 33.28425, 33.37863, 33.52979, 33.61568, 33.62512, 33.63184, 33.64198, 33.66985, 
  33.67627, 33.6807, 33.6817, 33.67942, 33.67585, 33.67556, 33.67813, 33.68513, 33.70127, 33.74065, 
  33.74757, 33.748, 33.75085, 33.75906, 33.7734, 33.78653, 33.806, 33.81948, 33.86981, 34.10576, 
  34.21513, 34.23018, 34.2394, 34.25104, 34.26168, 34.27445, 34.28409, 34.29515, 34.30678, 34.32901, 
  34.34474, 34.36161, 34.37282, 34.38819, 34.3917, 34.39496, 34.39545, 34.44906, 34.49316, 34.49463, 
  34.49427, 34.49627, 34.49723, 34.49804, 34.49919, 34.50078, 34.5005, 34.50085, 34.50126, 34.50496, 
  34.50711, 34.50418, 34.50453, 34.50784, 34.51343, 34.5194, 34.52064, 34.52251, 34.52689, 34.5289, 
  34.52755, 34.53082, 34.53465, 34.53782, 34.54155, 34.54316, 34.54606, 34.55024, 34.55303, 34.55731, 
  34.55858, 34.56137, 34.56374, 34.56582, 34.5696, 34.57119, 34.5743, 34.57579, 34.57801, 34.57932, 
  34.58228, 34.58297, 34.58543, 34.58691, 34.58691, 34.58753, 34.58958, 34.5902, 34.59122, 34.59474, 
  34.59929, 34.60263, 34.60443, 34.6063, 34.60811, 34.60973, 34.61054, 34.60996, 34.61053, 34.61171, 
  34.61231, 34.61201, 34.61392, 34.61701, 34.61702, 34.61492, 34.61498, 34.61623, 34.61713, 34.6175, 
  34.61928, 34.6199, 34.62824, 34.62912, 34.63406, 34.64609, 34.6509, 34.65293, 34.65676, 34.65924, 
  34.66001, 34.6615, 34.66367, 34.67071, 34.68242, 34.68756, 34.69349, 34.69499, 34.69929, 34.71206, 
  34.71455, 34.71612, 34.71647, 34.72347, 34.72464, 34.7257, 34.73176, 34.73842, 34.74161, 34.7423, 
  34.74237, 34.74287, 34.7437, 34.74836, 34.74813, 34.74831, 34.74917, 34.75166, 34.7532, 34.75443, 
  34.76023, 34.76491, 34.76619, 34.7679, 34.7682, 34.76943, 34.77114, 34.77292, 34.77693, 34.777, 
  34.77861, 34.77958, 34.78005, 34.78099, 34.78094, 34.78266, 34.78271, 34.78316, 34.78297, 34.78156, 
  34.78208, 34.78417, 34.78805, 34.78895, 34.80229, 34.80664, 34.82662, 34.83284, 34.84168, 34.84666, 
  34.85499, 34.85623, 34.8567, 34.8566, 34.85671, 34.85716, 34.85764, 34.85771, 34.8582, 34.85936, 
  34.85949, 34.86101, 34.86118, 34.86112, 34.86083, 34.86204, 34.86438, 34.86485, 34.86429, 34.86435, 
  34.86475, 34.86498, 34.86838, 34.86921, 34.87049, 34.87165, 34.87155, 34.87664, 34.87684, 34.87921, 
  34.88312, 34.888, 34.9023, 34.90773, 34.91352, 34.922, 34.92464, 34.92712, 34.92919, 34.93579, 
  34.93459, 34.93019, 34.93055, 34.92946, 34.93195, 34.92451, 34.92497, 34.92687, 34.9299, 34.93155, 
  34.93739, 34.93806, 34.93945, 34.94495, 34.95086, 34.98469, 34.9942, 35.0095, 35.02453, 35.03128, 
  35.03444, 35.04976, 35.05967, 35.06929, 35.07832, 35.08, 35.08197, 35.08526, 35.08521, 35.08516, 
  35.08509, 35.08499, 35.08422, 35.08419, 35.084, 35.08411, 35.08426, 35.08468, 35.08485, 35.08663, 
  35.08748, 35.08821, 35.08791, 35.0881, 35.08824, 35.0883, 35.08826, 35.08834, 35.08849, 35.08841, 
  35.08718, 35.0869, 35.08716, 35.08777, 35.08796, 35.08785, 35.08759, 35.08678, 35.08741, 35.08804, 
  35.08909, 35.08976, 35.08987, 35.08923, 35.08947, 35.09018, 35.09047, 35.09076, 35.09074, 35.09042, 
  35.08994, 35.09009, 35.09031, 35.09008, 35.09054, 35.09087, 35.09171, 35.09229, 35.09266, 35.09301, 
  35.09354, 35.09365, 35.09401, 35.09453, 35.09519, 35.09602, 35.09644, 35.09683, 35.0973, 35.09736, 
  35.09749, 35.09751, 35.09764, 35.09769, 35.09793, 35.0981, 35.09846, 35.09865, 35.09873, 35.09881, 
  35.09916, 35.09928, 35.09935, 35.09929, 35.09914, 35.09906, 35.09877, 35.09879, 35.09867, 35.09819, 
  35.09781, 35.09768, 35.09767, 35.09775, 35.09821, 35.0984, 35.09861, 35.09856, 35.09832, 35.09805, 
  35.09784, 35.09789, 35.09784, 35.09739, 35.09708, 35.09713, 35.097, 35.09745, 35.09778, 35.09861, 
  35.09912, 35.09977, 35.09995, 35.10039, 35.10145, 35.10148, 35.10136, 35.10118, 35.10045, 35.10054, 
  35.10071, 35.1009, 35.10164, 35.10189, 35.10221, 35.10296, 35.10304, 35.10282, 35.10229, 35.10193, 
  35.10094, 35.10055, 35.10019, 35.09988, 35.09903, 35.09913, 35.09902, 35.09895, 35.09865, 35.09854, 
  35.0983, 35.0981, 35.09841, 35.09861, 35.09869, 35.09857, 35.09856, 35.09834, 35.09818, 35.0981, 
  35.09827, 35.09844, 35.09821, 35.09787, 35.0978, 35.09747, 35.09743, 35.09722, 35.09701, 35.09664, 
  35.0964, 35.09588, 35.09546, 35.09533, 35.09532, 35.09548, 35.0955, 35.09558, 35.09556, 35.09515, 
  35.09507, 35.09468, 35.09438, 35.0938, 35.09369, 35.09344, 35.09324, 35.09331, 35.09294, 35.09246, 
  35.09283, 35.09271, 35.09266, 35.09276, 35.09281, 35.09241, 35.09124, 35.09101, 35.09083, 35.09097, 
  35.09133, 35.09155, 35.09169, 35.09164, 35.09087, 35.09146, 35.09122, 35.09169, 35.09205, 35.09235, 
  35.09219, 35.09233, 35.09353, 35.09392, 35.09395, 35.09358, 35.09352, 35.09478, 35.09478, 35.09384, 
  35.09286, 35.09282, 35.09227, 35.09221, 35.0918, 35.09147, 35.09139, 35.09078, 35.09072, 35.09011, 
  35.08976, 35.08928, 35.08866, 35.08802, 35.08749, 35.08729, 35.08681, 35.08637, 35.0863, 35.08588, 
  35.08567, 35.08369, 35.08241, 35.08153, 35.08061, 35.08029, 35.07919, 35.07368, 35.07367, 35.0714, 
  35.07216, 35.07219, 35.07216, 35.07133, 35.0708, 35.07179, 35.07328, 35.07403, 35.07316, 35.07237, 
  35.07544, 35.07632, 35.07653, 35.07763, 35.07792, 35.07846, 35.07878, 35.07923, 35.07934, 35.07888, 
  35.07663, 35.07621, 35.07403, 35.0723, 35.07167, 35.07075, 35.07082, 35.07172, 35.07265, 35.07368, 
  35.07439, 35.07423, 35.07354, 35.07352, 35.07472, 35.07481, 35.07409, 35.07295, 35.07391, 35.07424, 
  35.07637, 35.0786, 35.08, 35.08345, 35.08367, 35.08385, 35.08435, 35.08437, 35.08422, 35.08396, 
  35.08399, 35.0836, 35.08487, 35.08543, 35.08438, 35.08515, 35.08648, 35.08719, 35.08799, 35.08666, 
  35.08487, 35.08424, 35.08655, 35.09105, 35.09266, 35.09256, 35.09056, 35.09175, 35.09474, 35.09611, 
  35.09656, 35.09565, 35.09684, 35.09783, 35.09972, 35.10035, 35.10063, 35.10341, 35.10562, 35.10559, 
  35.10669, 35.10652, 35.10711, 35.10755, 35.10757, 35.10839, 35.10852, 35.10808, 35.10631, 35.1065, 
  35.10727, 35.10794, 35.10746, 35.10787, 35.111, 35.11107, 35.111, 35.11063, 35.10998, 35.11419, 
  35.12, 35.1214, 35.12431, 35.12503, 35.1286, 35.12939, 35.12965, 35.12968, 35.12937, 35.12891, 
  35.12819, 35.12682, 35.12703, 35.12784, 35.13254, 35.13323, 35.13325, 35.13295, 35.13209, 35.12468, 
  35.12317, 35.12054, 35.12045, 35.12186, 35.12358, 35.1238, 35.12342, 35.12219, 35.12098, 35.11915, 
  35.11824, 35.11863, 35.11958, 35.12156, 35.12208, 35.12237, 35.12472, 35.12498, 35.12398, 35.12909, 
  35.13246, 35.14141, 35.1453, 35.14881, 35.15046, 35.15121, 35.15276, 35.15332, 35.15344, 35.15504, 
  35.15749, 35.15876, 35.16192, 35.16297, 35.16399, 35.16621, 35.16916, 35.17053, 35.17337, 35.17754, 
  35.17867, 35.17939, 35.17937, 35.18226, 35.18254, 35.18237, 35.17961, 35.18028, 35.17898, 35.17788, 
  35.17688, 35.17849, 35.17998, 35.18214, 35.18337, 35.18708, 35.19429, 35.19569, 35.19689, 35.20064, 
  35.20471, 35.20583, 35.20678, 35.20906, 35.21112, 35.21162, 35.21254, 35.21249, 35.21603, 35.21807, 
  35.21784, 35.21956, 35.22049, 35.22231, 35.22218, 35.22063, 35.22015, 35.22363, 35.22595, 35.22752, 
  35.22946, 35.23207, 35.23274, 35.23416, 35.23628, 35.23595, 35.23787, 35.2391, 35.23984, 35.24041, 
  35.24103, 35.2414, 35.24098, 35.2401, 35.24027, 35.23885, 35.23864, 35.24178, 35.24469, 35.24671, 
  35.24756, 35.2497, 35.25417, 35.25436, 35.25957, 35.26174, 35.26251, 35.26658, 35.26987, 35.27274, 
  35.2712, 35.27323, 35.27323, 35.27779, 35.27772, 35.28276, 35.2829, 35.28851, 35.29068, 35.29859, 
  35.2974, 35.30175, 35.30588, 35.30826, 35.3077, 35.30952, 35.307, 35.30742, 35.30917, 35.3028, 
  35.30511, 35.29965, 35.30308, 35.30168, 35.30455, 35.30686, 35.30917, 35.30737, 35.30553, 35.30788, 
  35.30758, 35.30845, 35.30968, 35.31229, 35.31292, 35.31532, 35.31469, 35.31752, 35.31772, 35.31775, 
  35.31791, 35.31922, 35.31982, 35.32139, 35.32342, 35.32598, 35.32908, 35.33146, 35.33785, 35.34014, 
  35.34214, 35.34207, 35.34357, 35.34406, 35.3463, 35.34779, 35.34973, 35.35068, 35.34779, 35.34944, 
  35.34962, 35.35053, 35.35021, 35.35084, 35.3494, 35.34915, 35.35, 35.35009, 35.35143, 35.35406, 
  35.35637, 35.35532, 35.3571, 35.35801, 35.36336, 35.36482, 35.3649, 35.36783, 35.37082, 35.37182, 
  35.37517, 35.37544, 35.37885, 35.37867, 35.40353, 35.40675, 35.41147, 35.41479, 35.4157, 35.41721, 
  35.42581, 35.42882, 35.43067, 35.43385, 35.43679, 35.43697, 35.44085, 35.44179, 35.44186, 35.44291, 
  35.44337, 35.44497, 35.44606, 35.4462, 35.44812, 35.44994, 35.45071, 35.45158, 35.45225, 35.45448, 
  35.45637, 35.46102, 35.46308, 35.46458, 35.46598, 35.46623, 35.47014, 35.47105, 35.47748, 35.47951, 
  35.48087, 35.48126, 35.48311, 35.48433, 35.48615, 35.48929, 35.49139, 35.49408, 35.4982, 35.49925, 
  35.50051, 35.50498, 35.50844, 35.50942, 35.50893, 35.5097, 35.5105, 35.51134, 35.51364, 35.51501, 
  35.51693, 35.51965, 35.51997, 35.51908, 35.52107, 35.52285, 35.52336, 35.52466, 35.52854, 35.52865, 
  35.52929, 35.5294, 35.53209, 35.53299, 35.53535, 35.536, 35.5354, 35.53603, 35.53708, 35.53865, 
  35.53931, 35.54131, 35.54217, 35.54225, 35.54145, 35.54151, 35.54223, 35.54286, 35.54591, 35.5474, 
  35.5504, 35.55171, 35.55316, 35.55375, 35.55821, 35.55932, 35.56006, 35.56047, 35.56345, 35.56456, 
  35.56476, 35.56505, 35.56592, 35.56575, 35.5679, 35.5679, 35.5677, 35.56902, 35.57008, 35.56985, 
  35.57199, 35.57245, 35.57295, 35.57308, 35.57408, 35.57459, 35.57548, 35.57629, 35.57535, 35.57779, 
  35.57817, 35.58004, 35.58184, 35.58095, 35.57931, 35.58119, 35.579, 35.57815, 35.57942, 35.57928, 
  35.5785, 35.57606, 35.57604, 35.57487, 35.57416, 35.57331, 35.5727, 35.5766, 35.57929, 35.58117, 
  35.58142, 35.58313, 35.58756, 35.58756, 35.5899, 35.59199, 35.59199, 35.59555, 35.59848, 35.60225, 
  35.60211, 35.60588, 35.61014, 35.61195, 35.61453, 35.61562, 35.61956, 35.62469, 35.62688, 35.62661, 
  35.62866, 35.63083, 35.63438, 35.63487, 35.63247, 35.63445, 35.637, 35.64003, 35.64331, 35.649, 
  35.65151, 35.6552, 35.65716, 35.65677, 35.65869, 35.6626, 35.66727, 35.66964, 35.67407, 35.67278, 
  35.67675, 35.67689, 35.68013, 35.68132, 35.68017, 35.67693, 35.68086, 35.68547, 35.69, 35.69, 
  35.69467, 35.7016, 35.70432, 35.70774, 35.70725, 35.7099, 35.71035, 35.71864, 35.71889, 35.72547, 
  35.72802, 35.72795, 35.72512, 35.72641, 35.72373, 35.72366, 35.72136, 35.71802, 35.71363, 35.71171, 
  35.71136, 35.70903, 35.70648, 35.70662, 35.70923, 35.71202, 35.71105, 35.71575, 35.71721, 35.72453, 
  35.73418, 35.74568, 35.74843, 35.76069, 35.7617, 35.76302, 35.76535, 35.76668, 35.76783, 35.768, 
  35.76685, 35.76654, 35.76689, 35.76796, 35.76706, 35.7656, 35.76699, 35.76946, 35.76974, 35.7712, 
  35.77061, 35.77211, 35.77246, 35.77333, 35.77301, 35.77197, 35.76828, 35.76044, 35.75452, 35.74425, 
  35.73721, 35.73693, 35.74021, 35.74223, 35.74, 35.73638, 35.73119, 35.72652, 35.72359, 35.72133, 
  35.71889, 35.7161, 35.7176, 35.71505, 35.71544, 35.7131, 35.72039, 35.71648, 35.72321, 35.73091, 
  35.772, 35.77242, 35.77702, 35.77535, 35.76978, 35.7695, 35.76657, 35.76922, 35.79484, 35.87097, 
  35.87653, 35.88738, 35.88613, 35.88293, 35.87751, 35.88154, 35.89197, 35.89086, 35.90337, 35.90671, 
  35.9088, 35.90629, 35.90963, 35.90615, 35.9024, 35.89559, 35.88627, 35.88516, 35.8718, 35.8597, 
  35.85914, 35.84203, 35.80292, 35.80041, 35.79234, 35.79136, 35.80194, 35.83173, 35.86513, 35.90921, 
  35.92534, 35.92562, 35.98467, 35.99829, 36.04133, 36.08407, 36.10987, 36.12262, 36.1254, 36.16005, 
  36.19525, 36.21132, 36.21076, 36.29161, 36.33145, 36.3367, 36.36822, 36.3638, 36.39724, 36.45111, 
  36.49667, 36.49142, 36.51626, 36.50467, 36.51543, 36.55157, 36.5535, 36.54026, 36.53723, 36.54357, 
  36.54523, 36.5364, 36.55626, 36.5535, 36.5626, 36.55819, 36.57115, 36.56949, 36.57914, 36.56715, 
  36.56867, 36.5859, 36.58548, 36.59637, 36.60216, 36.59927, 36.61332, 36.61208, 36.61525, 36.61098, 
  36.61484, 36.62118, 36.6187, 36.62862, 36.64308, 36.6406, 36.64556, 36.64239, 36.63344, 36.62779, 
  36.62448, 36.61346, 36.6045, 36.59596, 36.59362, 36.60946, 36.63399, 36.6479, 36.67585, 36.68535, 
  36.71893, 36.74672, 36.75718, 36.76227, 36.76543, 36.76543, 36.76062, 36.76075, 36.77093, 36.79238, 
  36.79994, 36.8031, 36.80557, 36.80475, 36.80709, 36.80516, 36.81107, 36.81368, 36.81272, 36.81602, 
  36.81409, 36.8211, 36.813, 36.81327, 36.81052, 36.80228, 36.79526, 36.79417, 36.78922, 36.78867, 
  36.76515, 36.74301, 36.74659, 36.76942, 36.80186, 36.81107, 36.81657, 36.81231, 36.80166, 36.80076, 
  36.7941, 36.76914, 36.76997, 36.77794, 36.78647, 36.78709, 36.79698, 36.80502, 36.8171, 36.84032, 
  36.84829, 36.85406, 36.86848, 36.87878, 36.88812, 36.8943, 36.90871, 36.91283, 36.91296, 36.92038, 
  36.92353, 36.91804, 36.92051, 36.92326, 36.91269, 36.90624, 36.90473, 36.89814, 36.89861, 36.89683, 
  36.89518, 36.90905, 36.90836, 36.89573, 36.89683, 36.89298, 36.89889, 36.89902, 36.90342, 36.90603, 
  36.90644, 36.90204, 36.90918, 36.89724, 36.90122, 36.89161, 36.89916, 36.91056, 36.91138, 36.9015, 
  36.90355, 36.89674, 36.88699, 36.88488, 36.88639, 36.88308, 36.88484, 36.88347, 36.88875, 36.88422, 
  36.8847, 36.88154, 36.88347, 36.88326, 36.89198, 36.89301, 36.89665, 36.89109, 36.89191, 36.8836, 
  36.87495, 36.87056, 36.87152, 36.86657, 36.8593, 36.85916, 36.85023, 36.85188, 36.84762, 36.8516, 
  36.83058, 36.82839, 36.82207, 36.81451, 36.813, 36.81877, 36.80667, 36.80681, 36.7932, 36.79526, 
  36.78289, 36.7778, 36.77382, 36.77712, 36.77657, 36.77134, 36.76914, 36.76213, 36.75938, 36.75704, 
  36.75085, 36.74549, 36.7071, 36.66539, 36.64212, 36.63909, 36.64473, 36.6501, 36.649, 36.65547, 
  36.65368, 36.66167, 36.65685, 36.66746, 36.66511, 36.67035, 36.6815, 36.6764, 36.68935, 36.68948, 
  36.71398, 36.71907, 36.73998, 36.74617, 36.75209, 36.76502, 36.76804, 36.78179, 36.77808, 36.78482, 
  36.80063, 36.79746, 36.81176, 36.81135, 36.81973, 36.81671, 36.82234, 36.82014, 36.82385, 36.82138, 
  36.82894, 36.82907, 36.8244, 36.83004, 36.82674, 36.81489, 36.80698, 36.80939, 36.81643, 36.8332, 
  36.83594, 36.82674, 36.82303, 36.85133, 36.87468, 36.89308, 36.90063, 36.90509, 36.90303, 36.91113, 
  36.92355, 36.93693, 36.93796, 36.942, 36.94283, 36.94701, 36.94818, 36.95552, 36.96217, 36.97115, 
  36.97218, 36.97472, 36.98315, 36.98816, 37.00694, 37.01736, 37.0238, 37.02798, 37.03435, 37.03367, 
  37.04449, 37.05305, 37.05696, 37.06826, 37.07819, 37.08237, 37.08538, 37.08675, 37.08168, 37.08339, 
  37.0899, 37.08593, 37.07353, 37.06237, 37.06127, 37.05696, 37.05168, 37.05456, 37.05011, 37.03428, 
  37.02661, 37.02551, 37.03065, 37.02791, 37.02174, 37.01324, 37.00879, 37.01612, 37.01612, 37.00954, 
  37.00379, 36.99227, 36.98199, 36.9728, 36.97012, 36.97348, 36.97246, 36.97431, 36.97434, 36.96961, 
  36.96628, 36.96217, 36.96313, 36.95634, 36.95569, 36.9585, 36.9609, 36.95987, 36.9561, 36.96069, 
  36.95504, 36.95133, 36.9477, 36.9584, 36.95956, 36.95654, 36.95017, 36.95236, 36.94646, 36.94605, 
  36.95277, 36.95785, 36.96265, 36.96443, 36.95949, 36.95099, 36.9466, 36.94873, 36.95819, 36.95552, 
  36.9584, 36.94866, 36.95689, 36.95538, 36.93796, 36.93521, 36.93154, 36.93459, 36.93113, 36.93397, 
  36.9326, 36.92533, 36.91902, 36.89967, 36.88868, 36.88284, 36.89033, 36.90873, 36.91614, 36.91271, 
  36.91737, 36.92125, 36.92077, 36.91913, 36.91786, 36.91281, 36.91173, 36.91121, 36.90831, 36.90886, 
  36.91765, 36.91792, 36.9584, 36.99611, 37.02503, 37.02681, 37.03312, 37.04709, 37.07203, 37.07559, 
  37.07655, 37.08093, 37.08339, 37.08216, 37.076, 37.0912, 37.0861, 37.0874, 37.08641, 37.08689, 
  37.08353, 37.08367, 37.08165, 37.08192, 37.08097, 37.0809, 37.07881, 37.07905, 37.07631, 37.07501, 
  37.07129, 37.07103, 37.06881, 37.06807, 37.06668, 37.07353, 37.07709, 37.0823, 37.06997, 37.06504, 
  37.06751, 37.07189, 37.0723, 37.08189, 37.08613, 37.07723, 37.06764, 37.06504, 37.03901, 37.04682, 
  37.04161, 37.04285, 37.01886, 37.00461, 36.99309, 36.96375, 36.96649, 36.96484, 36.97979, 36.96635, 
  36.97376, 36.96032, 36.96512, 36.95017, 36.95922, 36.96032, 36.97019, 36.96937, 36.95744, 36.9514, 
  36.9444, 36.93357, 36.93007, 36.92005, 36.90653, 36.90097, 36.88408, 36.87365, 36.85778, 36.84577, 
  36.84185, 36.847, 36.85847, 36.88161, 36.90687, 36.92814, 36.93583, 36.94022, 36.93885, 36.94591, 
  36.94749, 36.95325, 36.9503, 36.95051, 36.94543, 36.93549, 36.9311, 36.91888, 36.91499, 36.91998, 
  36.9171, 36.92186, 36.91861, 36.92314, 36.91504, 36.91476, 36.8961, 36.90076, 36.8998, 36.90722, 
  36.90502, 36.91943, 36.92808, 36.93151, 36.94358, 36.93466)
LONGITUDE_VALUEs <- c(
  -4.80609, -5.40246, -6.22178, -6.84332, -7.58831, -8.09628, -8.36716, -8.52209, -8.52759, -8.53265, 
  -8.62308, -8.65209, -8.66812, -8.66625, -8.66827, -8.66903, -8.66931, -8.66905, -8.66863, -8.66794, 
  -8.66842, -8.66876, -8.63014, -8.59907, -8.59158, -8.58472, -8.57304, -8.54455, -8.51098, -8.4855, 
  -8.45837, -8.4285, -8.41957, -8.41048, -8.39666, -8.35461, -8.33282, -8.26398, -8.24802, -8.22638, 
  -8.20218, -8.16975, -8.12562, -8.07481, -8.05951, -8.05444, -8.04998, -8.04706, -8.04239, -8.04003, 
  -8.00239, -7.98595, -7.97338, -7.95772, -7.95587, -7.9523, -7.92733, -7.90948, -7.90562, -7.9009, 
  -7.89553, -7.8924, -7.88008, -7.8763, -7.87368, -7.86908, -7.86264, -7.85638, -7.84393, -7.83028, 
  -7.82659, -7.82337, -7.82204, -7.82058, -7.81925, -7.81788, -7.80539, -7.79724, -7.79261, -7.77891, 
  -7.77312, -7.76857, -7.76248, -7.75642, -7.74943, -7.74488, -7.73913, -7.73226, -7.72818, -7.70875, 
  -7.68918, -7.68326, -7.67184, -7.66468, -7.65631, -7.65223, -7.64828, -7.64351, -7.63725, -7.63445, 
  -7.62798, -7.62171, -7.61811, -7.61686, -7.61828, -7.61686, -7.61364, -7.61026, -7.59746, -7.59133, 
  -7.58575, -7.57317, -7.56357, -7.54652, -7.5388, -7.53047, -7.51718, -7.50387, -7.48871, -7.46649, 
  -7.4404, -7.4337, -7.4274, -7.41924, -7.41272, -7.40349, -7.39813, -7.39289, -7.37624, -7.35091, 
  -7.29608, -7.27103, -7.25403, -7.23806, -7.21642, -7.19225, -7.15619, -7.14984, -7.14177, -7.13576, 
  -7.1282, -7.12133, -7.11412, -7.10244, -7.08115, -7.06145, -7.03535, -7.02264, -7.01509, -7.00341, 
  -6.98984, -6.98229, -6.97164, -6.96357, -6.95103, -6.9363, -6.9169, -6.90848, -6.89079, -6.88375, 
  -6.87242, -6.86263, -6.85593, -6.846, -6.83656, -6.80462, -6.79036, -6.77577, -6.76117, -6.74369, 
  -6.72068, -6.69698, -6.68273, -6.65886, -6.64585, -6.62387, -6.62387, -6.61872, -6.5751, -6.54729, 
  -6.5454, -6.5466, -6.54385, -6.54076, -6.52312, -6.51162, -6.51145, -6.46697, -6.44825, -6.43915, 
  -6.40052, -6.39605, -6.39021, -6.38643, -6.38815, -6.38695, -6.38063, -6.37445, -6.36466, -6.34508, 
  -6.31692, -6.30353, -6.28945, -6.2476, -6.21274, -6.17822, -6.16552, -6.0658, -6.02238, -6.00607, 
  -5.94082, -5.92348, -5.89274, -5.87406, -5.86101, -5.81379, -5.79662, -5.7621, -5.74189, -5.72781, 
  -5.72283, -5.72248, -5.72471, -5.74189, -5.75097, -5.75166, -5.74943, -5.7429, -5.7144, -5.68572, 
  -5.65932, -5.59836, -5.59029, -5.57194, -5.57023, -5.56525, -5.55803, -5.55357, -5.5534, -5.54206, 
  -5.53227, -5.44387, -5.37451, -5.36165, -5.32319, -5.31701, -5.32268, -5.29727, -5.28903, -5.282, 
  -5.27084, -5.24937, -5.248, -5.23942, -5.22002, -5.20491, -5.13317, -5.12372, -4.93694, -4.58607, 
  -4.55993, -4.48795, -4.42693, -4.32972, -4.29625, -4.14832, -4.13635, -3.99588, -3.96928, -3.92714, 
  -3.91992, -3.9167, -3.91366, -3.91014, -3.90863, -3.90404, -3.89121, -3.88847, -3.88649, -3.87178, 
  -3.86551, -3.84826, -3.84066, -3.83383, -3.82397, -3.81963, -3.81641, -3.81555, -3.8007, -3.79538, 
  -3.79465, -3.79178, -3.77658, -3.77393, -3.76796, -3.76599, -3.74521, -3.74414, -3.74281, -3.74165, 
  -3.72157, -3.72028, -3.72101, -3.71582, -3.70934, -3.69174, -3.68187, -3.67165, -3.66942, -3.66376, 
  -3.65664, -3.65381, -3.65024, -3.64634, -3.64471, -3.64745, -3.64625, -3.6463, -3.64239, -3.6402, 
  -3.63999, -3.63934, -3.63629, -3.63642, -3.63312, -3.63145, -3.63192, -3.62956, -3.63282, -3.63565, 
  -3.63544, -3.64136, -3.64467, -3.65069, -3.65103, -3.65824, -3.63832, -3.63557, -3.6196, -3.54134, 
  -3.54203, -3.55474, -3.54838, -3.55662, -3.56126, -3.55937, -3.56349, -3.5671, -3.57173, -3.57397, 
  -3.59233, -3.59216, -3.60572, -3.61069, -3.61773, -3.61602, -3.62013, -3.62614, -3.62975, -3.63902, 
  -3.63799, -3.63421, -3.63902, -3.63902, -3.64194, -3.64314, -3.63919, -3.64125, -3.64486, -3.65155, 
  -3.64649, -3.6446, -3.64418, -3.63645, -3.64152, -3.64925, -3.65113, -3.65414, -3.65354, -3.65723, 
  -3.65757, -3.66084, -3.6647, -3.66513, -3.66212, -3.66564, -3.66633, -3.66401, -3.65139, -3.64727, 
  -3.64229, -3.64401, -3.67638, -3.67955, -3.67947, -3.67397, -3.67646, -3.67019, -3.67345, -3.67105, 
  -3.68101, -3.69422, -3.698, -3.70032, -3.69972, -3.70212, -3.70418, -3.71105, -3.7138, -3.7126, 
  -3.70624, -3.70469, -3.70727, -3.70546, -3.70813, -3.70761, -3.7089, -3.71079, -3.71405, -3.71886, 
  -3.72075, -3.72401, -3.73406, -3.73371, -3.72573, -3.72383, -3.72537, -3.72907, -3.73061, -3.73396, 
  -3.73688, -3.73825, -3.74152, -3.74572, -3.75319, -3.7556, -3.77243, -3.77438, -3.77266, -3.77515, 
  -3.77764, -3.77696, -3.7779, -3.77524, -3.7773, -3.77396, -3.75954, -3.75937, -3.76684, -3.76615, 
  -3.77027, -3.77362, -3.77224, -3.77542, -3.77885, -3.78272, -3.7907, -3.77971, -3.78306, -3.75868, 
  -3.75739, -3.75447, -3.75679, -3.76478, -3.76993, -3.77328, -3.77456, -3.78238, -3.78555, -3.78572, 
  -3.7749, -3.76245, -3.76031, -3.76452, -3.75422, -3.75757, -3.75791, -3.74933, -3.74486, -3.73885, 
  -3.73799, -3.73542, -3.73147, -3.72675, -3.72245, -3.71292, -3.71131, -3.7035, -3.695, -3.68864, 
  -3.67946, -3.67337, -3.67268, -3.66907, -3.66504, -3.66092, -3.64718, -3.6483, -3.66264, -3.66487, 
  -3.66475, -3.66101, -2.82069, -2.82296, -2.82193, -2.82845, -2.83257, -2.84004, -2.84424, -2.84304, 
  -2.8372, -2.83797, -2.84235, -2.84089, -2.84235, -2.8536, -2.86407, -2.88373, -2.88209, -2.88544, 
  -2.89952, -2.92123, -2.92948, -2.93093, -2.9269, -2.91875, -2.90389, -2.8736, -2.83567, -2.8124, 
  -2.79566, -2.72984, -2.64889, -2.59988, -2.55808, -2.54229, -2.53603, -2.48958, -2.47475, -2.44856, 
  -2.43079, -2.40514, -2.38625, -2.32565, -2.31414, -2.29955, -2.28712, -2.28643, -2.28197, -2.27776, 
  -2.25913, -2.24566, -2.23159, -2.19013, -2.13314, -2.06189, -2.01915, -2.01495, -1.99692, -1.57991, 
  -1.50333, -1.37841, -1.36467, -1.33032, -1.27331, -1.25236, -1.19775, -1.18196, -1.15242, -1.15345, 
  -1.16753, -1.17291, -1.18545, -1.19799, -1.21791, -1.25775, -1.27269, -1.28368, -1.29758, -1.3005, 
  -1.29904, -1.28564, -1.28067, -1.27749, -1.27131, -1.26324, -1.25663, -1.24145, -1.24772, -1.24287, 
  -1.24068, -1.24261, -1.23771, -1.23457, -1.23663, -1.235, -1.23586, -1.23981, -1.24428, -1.24891, 
  -1.24634, -1.24437, -1.24406, -1.24445, -1.24625, -1.24673, -1.24625, -1.24222, -1.23819, -1.23209, 
  -1.23145, -1.23085, -1.2299, -1.22857, -1.22887, -1.2277, -1.22626, -1.22302, -1.22171, -1.22171, 
  -1.21898, -1.21879, -1.21748, -1.21892, -1.22051, -1.22083, -1.21933, -1.21841, -1.21899, -1.21888, 
  -1.21836, -1.21592, -1.21419, -1.2121, -1.20948, -1.20969, -1.2074, -1.20864, -1.208, -1.20836, 
  -1.20626, -1.20637, -1.20371, -1.20212, -1.20145, -1.2018, -1.20291, -1.20493, -1.20626, -1.20635, 
  -1.20424, -1.20319, -1.20188, -1.20102, -1.20036, -1.19954, -1.19804, -1.19686, -1.19568, -1.19568, 
  -1.19388, -1.18797, -1.18532, -1.18364, -1.18061, -1.17936, -1.17883, -1.17844, -1.17828, -1.17752, 
  -1.17702, -1.17611, -1.17343, -1.17257, -1.17153, -1.1695, -1.16873, -1.16719, -1.1653, -1.16336, 
  -1.1618, -1.16073, -1.15872, -1.15767, -1.15463, -1.15313, -1.15117, -1.14868, -1.14351, -1.13908, 
  -1.12832, -1.12649, -1.12416, -1.12403, -1.12241, -1.12054, -1.11699, -1.11159, -1.10821, -1.10686, 
  -1.10387, -1.09696, -1.08893, -1.07949, -1.06303, -1.06295, -1.05872, -1.05578, -1.04872, -1.04481, 
  -1.02807, -1.02318, -1.02047, -1.0185, -1.01558, -1.0158, -1.01202, -1.00429, -1.0006, -0.99863, 
  -1.00022, -1.00391, -1.00524, -1.01009, -1.04476, -1.10608, -1.12317, -1.12875, -1.17491, -1.2114, 
  -1.21467, -1.27507, -1.35747, -1.37756, -1.39936, -1.54355, -1.51058, -1.50234, -1.49633, -1.49221, 
  -1.48293, -1.47213, -1.47693, -1.47659, -1.46183, -1.47025, -1.47901, -1.49926, -1.53445, -1.57599, 
  -1.60655, -1.62939, -1.67007, -1.66355, -1.58885, -1.59951, -1.62491, -1.6323, -1.63676, -1.6462, 
  -1.64672, -1.6529, -1.6584, -1.67213, -1.67831, -1.70184, -1.70802, -1.70905, -1.73256, -1.72098, 
  -1.71119, -1.70294, -1.69231, -1.67651, -1.67145, -1.67505, -1.67222, -1.68372, -1.69874, -1.64791, 
  -1.70199, -1.70662, -1.70731, -1.70594, -1.71177, -1.70834, -1.7104, -1.70954, -1.70542, -1.72303, 
  -1.73376, -1.75274, -1.77085, -1.78033, -1.78295, -1.78184, -1.77991, -1.72904, -1.68779, -1.69545, 
  -1.6973, -1.70393, -1.70571, -1.70603, -1.70605, -1.71346, -1.71414, -1.71479, -1.71483, -1.72026, 
  -1.72702, -1.73165, -1.73481, -1.74135, -1.74304, -1.75463, -1.75597, -1.75593, -1.75414, -1.75648, 
  -1.76093, -1.7644, -1.76596, -1.76615, -1.76776, -1.77093, -1.77296, -1.77959, -1.78282, -1.78665, 
  -1.78712, -1.79064, -1.79021, -1.78918, -1.78905, -1.78995, -1.79342, -1.79424, -1.79729, -1.79742, 
  -1.79884, -1.79853, -1.79952, -1.80321, -1.80433, -1.80579, -1.80637, -1.80716, -1.8074, -1.81244, 
  -1.81317, -1.81617, -1.81662, -1.82184, -1.82177, -1.82302, -1.82517, -1.82609, -1.82907, -1.8295, 
  -1.83061, -1.83233, -1.8363, -1.83911, -1.84297, -1.85055, -1.85325, -1.85386, -1.85328, -1.85225, 
  -1.85134, -1.84898, -1.8389, -1.83604, -1.83375, -1.82489, -1.82111, -1.81864, -1.81637, -1.81594, 
  -1.81534, -1.81186, -1.80914, -1.80171, -1.79446, -1.7897, -1.78192, -1.77899, -1.77504, -1.77191, 
  -1.77328, -1.77289, -1.77167, -1.77088, -1.77124, -1.76862, -1.76111, -1.74951, -1.74297, -1.74114, 
  -1.74018, -1.73887, -1.73928, -1.74916, -1.74944, -1.74988, -1.75013, -1.75219, -1.75646, -1.76191, 
  -1.77221, -1.78346, -1.79013, -1.79239, -1.7933, -1.79561, -1.79759, -1.80572, -1.81289, -1.8129, 
  -1.81134, -1.81246, -1.81222, -1.813, -1.81328, -1.81483, -1.81528, -1.81637, -1.81692, -1.81799, 
  -1.82225, -1.82809, -1.84202, -1.84172, -1.85926, -1.88864, -1.8902, -1.89209, -1.89342, -1.90248, 
  -1.92268, -1.92354, -1.9244, -1.92522, -1.92586, -1.92682, -1.92729, -1.92998, -1.93035, -1.93037, 
  -1.93161, -1.93248, -1.93282, -1.93316, -1.93346, -1.94149, -1.94269, -1.94344, -1.94403, -1.94465, 
  -1.94508, -1.94508, -1.94928, -1.94947, -1.95064, -1.95271, -1.95542, -1.96228, -1.96906, -1.97297, 
  -1.97183, -1.97438, -1.97374, -1.97141, -1.97434, -1.97376, -1.9729, -1.97363, -1.97288, -1.97337, 
  -1.98009, -1.99221, -1.99455, -2.00178, -2.01206, -2.03511, -2.04026, -2.04596, -2.04944, -2.05032, 
  -2.05809, -2.05978, -2.06408, -2.07203, -2.08502, -2.12319, -2.12486, -2.17056, -2.18794, -2.18404, 
  -2.19528, -2.2176, -2.21146, -2.21464, -2.21288, -2.21189, -2.21245, -2.21176, -2.21146, -2.21132, 
  -2.21127, -2.21126, -2.2071, -2.20655, -2.20481, -2.20222, -2.20066, -2.19886, -2.19839, -2.1987, 
  -2.19813, -2.19544, -2.19352, -2.19331, -2.19304, -2.19269, -2.19256, -2.19244, -2.1919, -2.19152, 
  -2.19062, -2.1896, -2.18845, -2.18762, -2.18687, -2.18645, -2.18627, -2.18491, -2.183, -2.18253, 
  -2.18223, -2.18139, -2.18116, -2.17947, -2.17848, -2.17837, -2.17817, -2.17785, -2.17748, -2.17763, 
  -2.17748, -2.17679, -2.17601, -2.17554, -2.17499, -2.17501, -2.17414, -2.17339, -2.1733, -2.17311, 
  -2.17214, -2.17149, -2.17137, -2.17073, -2.17075, -2.16914, -2.16908, -2.16947, -2.16965, -2.16978, 
  -2.16983, -2.16993, -2.16999, -2.17018, -2.17014, -2.17004, -2.17006, -2.17039, -2.17038, -2.17023, 
  -2.16985, -2.16986, -2.16979, -2.16954, -2.16972, -2.16972, -2.16987, -2.16969, -2.16942, -2.16954, 
  -2.1699, -2.1699, -2.16837, -2.16804, -2.16737, -2.16728, -2.16664, -2.16659, -2.16679, -2.16725, 
  -2.16713, -2.16686, -2.16685, -2.16708, -2.16672, -2.16624, -2.16485, -2.16374, -2.16206, -2.16199, 
  -2.16189, -2.16204, -2.16195, -2.16094, -2.15824, -2.15792, -2.15771, -2.15771, -2.15813, -2.15703, 
  -2.15676, -2.15613, -2.15531, -2.15497, -2.15492, -2.15463, -2.15446, -2.15435, -2.15464, -2.15463, 
  -2.15362, -2.15351, -2.15397, -2.15409, -2.15327, -2.1522, -2.15192, -2.15137, -2.15145, -2.15169, 
  -2.15154, -2.15087, -2.14992, -2.14989, -2.14969, -2.14948, -2.14923, -2.14914, -2.14926, -2.14904, 
  -2.14864, -2.1485, -2.14841, -2.14808, -2.1477, -2.14709, -2.1467, -2.14658, -2.14661, -2.1469, 
  -2.14691, -2.14641, -2.14647, -2.14635, -2.14617, -2.1461, -2.14595, -2.14583, -2.14572, -2.14563, 
  -2.14583, -2.14625, -2.14616, -2.14555, -2.14509, -2.14477, -2.14371, -2.14268, -2.14143, -2.13997, 
  -2.13926, -2.13846, -2.13788, -2.13731, -2.13665, -2.13601, -2.13522, -2.13321, -2.13236, -2.13163, 
  -2.12975, -2.12904, -2.12789, -2.12753, -2.12681, -2.12603, -2.12278, -2.12267, -2.12328, -2.12294, 
  -2.12182, -2.12093, -2.12119, -2.12094, -2.12042, -2.11946, -2.119, -2.11835, -2.11805, -2.11702, 
  -2.11767, -2.11811, -2.11839, -2.11821, -2.11792, -2.1181, -2.11847, -2.11933, -2.11959, -2.11968, 
  -2.11874, -2.11829, -2.11846, -2.11799, -2.11589, -2.11541, -2.11503, -2.11514, -2.11437, -2.11323, 
  -2.11289, -2.11323, -2.11102, -2.11066, -2.10834, -2.10508, -2.10419, -2.08491, -2.08302, -2.06903, 
  -2.06572, -2.06523, -2.06484, -2.06381, -2.05573, -2.04978, -2.04759, -2.04397, -2.04262, -2.03556, 
  -2.03036, -2.02828, -2.0265, -2.02551, -2.02457, -2.02438, -2.02399, -2.02305, -2.02191, -2.02092, 
  -2.01974, -2.01811, -2.01672, -2.01624, -2.01509, -2.00929, -2.00648, -2.00506, -2.00281, -1.99874, 
  -1.98904, -1.9868, -1.98535, -1.9815, -1.97942, -1.97901, -1.97694, -1.97556, -1.95829, -1.95269, 
  -1.94748, -1.94149, -1.93981, -1.93874, -1.93861, -1.93833, -1.93638, -1.93627, -1.93602, -1.92865, 
  -1.92329, -1.9217, -1.92024, -1.91775, -1.91496, -1.9138, -1.91453, -1.91406, -1.9129, -1.91157, 
  -1.91165, -1.90805, -1.90367, -1.90131, -1.89685, -1.8926, -1.88685, -1.88371, -1.88307, -1.88084, 
  -1.87835, -1.87698, -1.87587, -1.87432, -1.87415, -1.87321, -1.872, -1.87184, -1.87065, -1.86536, 
  -1.86132, -1.85679, -1.85604, -1.85506, -1.85443, -1.85355, -1.85242, -1.85149, -1.85038, -1.84842, 
  -1.84613, -1.8431, -1.84102, -1.84001, -1.83929, -1.83921, -1.83911, -1.83903, -1.8349, -1.82857, 
  -1.81898, -1.81885, -1.81785, -1.81671, -1.81662, -1.81757, -1.8172, -1.81649, -1.81553, -1.81531, 
  -1.81572, -1.81409, -1.81136, -1.80873, -1.80654, -1.80577, -1.80512, -1.80446, -1.80484, -1.80251, 
  -1.79929, -1.79611, -1.78815, -1.78506, -1.78407, -1.78369, -1.78291, -1.78332, -1.78263, -1.78244, 
  -1.77967, -1.77579, -1.77454, -1.77547, -1.77667, -1.77663, -1.77221, -1.76884, -1.76573, -1.75824, 
  -1.74895, -1.73925, -1.73279, -1.73212, -1.73073, -1.72961, -1.72686, -1.72521, -1.7239, -1.7238, 
  -1.72421, -1.72356, -1.72013, -1.71871, -1.71453, -1.71414, -1.71247, -1.70858, -1.7062, -1.70142, 
  -1.69957, -1.69715, -1.69369, -1.68955, -1.68859, -1.68578, -1.68217, -1.67923, -1.67011, -1.66554, 
  -1.66217, -1.66112, -1.65889, -1.65799, -1.65601, -1.64955, -1.6491, -1.64741, -1.64453, -1.64462, 
  -1.6402, -1.63743, -1.63728, -1.63612, -1.63588, -1.63563, -1.63417, -1.6317, -1.62868, -1.6261, 
  -1.62316, -1.62239, -1.62121, -1.61632, -1.61603, -1.6164, -1.61295, -1.6094, -1.61058, -1.61114, 
  -1.60977, -1.60666, -1.59973, -1.59791, -1.59058, -1.58837, -1.58779, -1.58894, -1.58879, -1.58806, 
  -1.58789, -1.58611, -1.58523, -1.58515, -1.58429, -1.58427, -1.58289, -1.57513, -1.57289, -1.57334, 
  -1.57427, -1.57287, -1.56869, -1.56738, -1.5605, -1.56084, -1.55861, -1.55535, -1.55526, -1.54016, 
  -1.53261, -1.52926, -1.5211, -1.51681, -1.51038, -1.50823, -1.50205, -1.49879, -1.48583, -1.48171, 
  -1.47493, -1.46798, -1.46686, -1.46309, -1.46025, -1.45802, -1.45656, -1.44995, -1.4454, -1.43219, 
  -1.42806, -1.41588, -1.40515, -1.40145, -1.39404, -1.39473, -1.38941, -1.38983, -1.38571, -1.38129, 
  -1.37962, -1.37959, -1.37794, -1.37378, -1.37185, -1.37217, -1.36622, -1.365, -1.36402, -1.36256, 
  -1.36101, -1.35886, -1.35502, -1.3544, -1.3503, -1.34874, -1.34419, -1.345, -1.34017, -1.33947, 
  -1.33792, -1.33605, -1.33552, -1.33412, -1.33365, -1.33193, -1.32477, -1.32269, -1.31752, -1.31563, 
  -1.31292, -1.312, -1.31044, -1.30949, -1.30677, -1.30497, -1.30218, -1.29861, -1.2948, -1.29423, 
  -1.29097, -1.28826, -1.28715, -1.28384, -1.27836, -1.27782, -1.27574, -1.27589, -1.27456, -1.27239, 
  -1.2716, -1.27059, -1.26926, -1.26765, -1.25325, -1.25428, -1.25028, -1.2508, -1.2493, -1.24947, 
  -1.24479, -1.24204, -1.24217, -1.24024, -1.2426, -1.23835, -1.23689, -1.23745, -1.23913, -1.23891, 
  -1.23732, -1.23831, -1.23749, -1.23578, -1.23659, -1.23509, -1.23552, -1.23449, -1.23458, -1.23294, 
  -1.23367, -1.23213, -1.23295, -1.23093, -1.23149, -1.23024, -1.229, -1.22801, -1.22754, -1.22621, 
  -1.22603, -1.22496, -1.2253, -1.22402, -1.22496, -1.22414, -1.22024, -1.22265, -1.22144, -1.21938, 
  -1.21947, -1.21629, -1.21921, -1.21784, -1.21638, -1.215, -1.21539, -1.21449, -1.21492, -1.21689, 
  -1.21299, -1.2129, -1.21217, -1.21121, -1.20935, -1.21098, -1.21244, -1.21211, -1.20752, -1.20508, 
  -1.20551, -1.20712, -1.20707, -1.20587, -1.20759, -1.20697, -1.20512, -1.20529, -1.20656, -1.20574, 
  -1.20456, -1.2048, -1.20413, -1.20284, -1.20185, -1.20114, -1.20021, -1.20011, -1.19858, -1.19919, 
  -1.19591, -1.19609, -1.19735, -1.19622, -1.19432, -1.19349, -1.1936, -1.19271, -1.19194, -1.19251, 
  -1.19305, -1.1931, -1.19257, -1.19363, -1.19637, -1.19794, -1.19814, -1.19897, -1.19892, -1.19843, 
  -1.19824, -1.19847, -1.19853, -1.19828, -1.19798, -1.19659, -1.19632, -1.19319, -1.19094, -1.18802, 
  -1.18594, -1.18439, -1.18175, -1.18023, -1.17948, -1.17778, -1.1761, -1.17094, -1.17054, -1.1699, 
  -1.1699, -1.16808, -1.16314, -1.16388, -1.16325, -1.16364, -1.1606, -1.15205, -1.15063, -1.15218, 
  -1.1502, -1.14883, -1.149, -1.1472, -1.14342, -1.14257, -1.14063, -1.139, -1.13208, -1.12968, 
  -1.12616, -1.12753, -1.12203, -1.11714, -1.11628, -1.11094, -1.10857, -1.09824, -1.09725, -1.09489, 
  -1.09394, -1.08501, -1.08025, -1.07721, -1.07274, -1.06888, -1.07034, -1.06445, -1.05867, -1.05515, 
  -1.05588, -1.05549, -1.05395, -1.05086, -1.04952, -1.05111, -1.0427, -1.04227, -1.03377, -1.0291, 
  -1.02872, -1.02575, -1.02296, -1.0197, -1.01682, -1.00138, -0.9903, -0.9852, -0.97867, -0.97691, 
  -0.97133, -0.96713, -0.96721, -0.96635, -0.96245, -0.96142, -0.95931, -0.95391, -0.94957, -0.93941, 
  -0.93872, -0.93061, -0.92447, -0.92176, -0.92065, -0.92263, -0.9161, -0.9131, -0.91271, -0.91074, 
  -0.90662, -0.90726, -0.89666, -0.88787, -0.87851, -0.87816, -0.87383, -0.86486, -0.85963, -0.84988, 
  -0.84276, -0.83486, -0.83345, -0.82576, -0.82838, -0.82662, -0.82752, -0.82589, -0.82671, -0.8246, 
  -0.82387, -0.82173, -0.81889, -0.81816, -0.81434, -0.81366, -0.81074, -0.8101, -0.80873, -0.80795, 
  -0.80581, -0.8046, -0.79461, -0.79255, -0.79101, -0.79049, -0.7965, -0.78873, -0.78191, -0.75852, 
  -0.73256, -0.72989, -0.71474, -0.70702, -0.70367, -0.69539, -0.70415, -0.70024, -0.70075, -0.69655, 
  -0.6947, -0.685, -0.67938, -0.67333, -0.66269, -0.64707, -0.62762, -0.62046, -0.60467, -0.59741, 
  -0.56096, -0.55615, -0.55409, -0.54962, -0.54842, -0.54207, -0.53623, -0.52798, -0.50068, -0.48022, 
  -0.48915, -0.47065, -0.4667, -0.46601, -0.44832, -0.4205, -0.40439, -0.39907, -0.38705, -0.38911, 
  -0.38619, -0.34909, -0.33947, -0.33591, -0.339, -0.3366, -0.31822, -0.30843, -0.29126, -0.29505, 
  -0.30673, -0.3045, -0.20473, -0.16357, -0.15807, -0.09779, -0.08697, -0.01694, 0.02956, 0.05154, 
  0.05823, 0.07214, 0.10137, 0.11305, 0.13331, 0.18723, 0.20784, 0.23491, 0.25792, 0.32318, 
  0.34242, 0.3853, 0.41347, 0.59643, 0.65826, 0.75711, 0.80692, 0.83302, 0.90678, 0.93529, 
  1.09599, 1.11625, 1.18942, 1.25661, 1.31157, 1.33905, 1.38851, 1.43351, 1.44141, 1.45995, 
  1.52547, 1.58146, 1.6584, 1.69916, 1.75962, 1.78435, 1.85373, 1.88533, 1.91319, 1.96626, 
  2.02082, 2.10171, 2.11987, 2.15628, 2.15903, 2.17088, 2.18889, 2.19524, 2.20039, 2.20434, 
  2.22924, 2.23989, 2.24985, 2.26222, 2.33104, 2.33464, 2.34804, 2.37615, 2.40483, 2.40449, 
  2.40964, 2.405, 2.41016, 2.43281, 2.55314, 2.62166, 2.668, 2.68501, 2.74507, 2.78148, 
  2.82696, 2.8443, 2.8431, 2.83743, 2.84515, 2.8491, 2.8503, 2.85906, 2.88139, 2.89856, 
  2.89838, 2.89357, 2.89392, 2.89804, 2.90405, 2.92329, 2.94952, 2.95261, 2.95931, 2.96858, 
  2.98851, 3.01152, 3.02367, 3.03054, 3.04033, 3.0508, 3.0551, 3.06128, 3.06437, 3.06986, 
  3.06694, 3.13699, 3.17936, 3.22333, 3.23534, 3.22143, 3.22916, 3.2587, 3.27265, 3.28313, 
  3.29481, 3.4381, 3.49786, 3.51469, 3.5171, 3.53729, 3.55942, 3.55804, 3.61935, 3.66861, 
  3.69128, 3.69643, 3.71876, 3.71395, 3.7366, 3.76507, 3.83823, 3.84407, 3.87052, 3.8779, 
  3.89538, 3.91084, 3.91358, 3.92252, 3.91702, 3.92335, 3.93365, 3.95186, 4.05777, 4.12005, 
  4.14341, 4.15286, 4.16556, 4.18566, 4.19322, 4.21005, 4.22602, 4.23392, 4.23993, 4.25899, 
  4.26327, 4.26843, 4.29481, 4.30941, 4.33345, 4.40421, 4.4195, 4.42035, 4.44057, 4.46256, 
  4.47114, 4.49136, 4.50613, 4.54581, 4.54993, 4.58322, 4.60567, 4.63322, 4.64351, 4.66446, 
  4.67373, 4.70806, 4.71725, 4.73175, 4.74351, 4.75063, 4.75861, 4.77536, 4.78995, 4.80788, 
  4.80787, 4.82727, 4.83774, 4.85867, 4.86485, 4.8779, 4.88787, 4.8992, 4.91138, 4.9234, 
  4.93799, 4.95601, 4.9555, 4.97627, 4.98262, 4.98845, 5.00716, 5.01557, 5.01747, 5.02433, 
  5.04939, 5.09111, 5.09798, 5.10141, 5.10793, 5.10398, 5.10845, 5.10398, 5.10707, 5.09506, 
  5.09265, 5.0803, 5.08596, 5.17162, 5.24716, 5.31084, 5.36765, 5.37863, 5.38533, 5.41144, 
  5.41642, 5.42002, 5.43066, 5.43564, 5.46112, 5.47589, 5.47606, 5.49014, 5.50882, 5.51689, 
  5.53973, 5.55397, 5.55208, 5.55569, 5.5653, 5.5708, 5.58265, 5.59536, 5.62249, 5.64564, 
  5.65801, 5.67072, 5.68308, 5.68961, 5.69062, 5.70075, 5.709, 5.71123, 5.72274, 5.73407, 
  5.73665, 5.74815, 5.75657, 5.7694, 5.7828, 5.77601, 5.79481, 5.82751, 5.87118, 5.88818, 
  5.90381, 5.89969, 5.91119, 6.03428, 6.08889, 6.14419, 6.18007, 6.18651, 6.1908, 6.21647, 
  6.24196, 6.24969, 6.25484, 6.2581, 6.26085, 6.25973, 6.26231, 6.26317, 6.25801, 6.25424, 
  6.24522, 6.24273, 6.23912, 6.24024, 6.26163, 6.26368, 6.26128, 6.2672, 6.28678, 6.29167, 
  6.31483, 6.31956, 6.32814, 6.34111, 6.36676, 6.39628, 6.40212, 6.41552, 6.42118, 6.45147, 
  6.46787, 6.48848, 6.51267, 6.51233, 6.51945, 6.51688, 6.53594, 6.55037, 6.54451, 6.53996, 
  6.55336, 6.55834, 6.56615, 6.57002, 6.56992, 6.56408, 6.56966, 6.57816, 6.58375, 6.57997, 
  6.57069, 6.56323, 6.5718, 6.5937, 6.61525, 6.61877, 6.62152, 6.62437, 6.63231, 6.62665, 
  6.62489, 6.62931, 6.6321, 6.63674, 6.64064, 6.64442, 6.64674, 6.65017, 6.65373, 6.65867, 
  6.66417, 6.66468, 6.67387, 6.67791, 6.68332, 6.6877, 6.68641, 6.7106, 6.71267, 6.72366, 
  6.74633, 6.74873, 6.74684, 6.75217, 6.75423, 6.75165, 6.77209, 6.7813, 6.78816, 6.79681, 
  6.80076, 6.81604, 6.84026, 6.85039, 6.84747, 6.84904, 6.86414, 6.86883, 6.87406, 6.87603, 
  6.88246, 6.88178, 6.88951, 6.88195, 6.89825, 6.93036, 6.99267, 7.05226, 7.05913, 7.06686, 
  7.07129, 7.08751, 7.10506, 7.10515, 7.11163, 7.11717, 7.11697, 7.11835, 7.12127, 7.13346, 
  7.14817, 7.16294, 7.21893, 7.24931, 7.25447, 7.24897, 7.24777, 7.21772, 7.18406, 7.1791, 
  7.1688, 7.16862, 7.17704, 7.18374, 7.1937, 7.21156, 7.21943, 7.22402, 7.2305, 7.23175, 
  7.23707, 7.23982, 7.24325, 7.24505, 7.24587, 7.25145, 7.25355, 7.256, 7.25591, 7.26145, 
  7.26273, 7.26406, 7.26514, 7.26999, 7.273, 7.28811, 7.28347, 7.29378, 7.31576, 7.33632, 
  7.3492, 7.35435, 7.37118, 7.36723, 7.3832, 7.39471, 7.3899, 7.38166, 7.40946, 7.46699, 
  7.49356, 7.51469, 7.52757, 7.55522, 7.55932, 7.62149, 7.63075, 7.6414, 7.65805, 7.66613, 
  7.67964, 7.69338, 7.70454, 7.7066, 7.73597, 7.76792, 7.782, 7.79518, 7.78178, 7.78333, 
  7.76876, 7.76719, 7.76126, 7.76564, 7.77809, 7.7798, 7.76186, 7.76684, 7.79095, 7.82882, 
  7.8767, 7.93335, 7.99163, 8.06184, 8.12528, 8.17952, 8.19462, 8.19668, 8.20535, 8.21085, 
  8.22012, 8.22609, 8.23204, 8.23909, 8.24458, 8.24117, 8.26332, 8.26865, 8.28728, 8.31085, 
  8.31686, 8.32543, 8.33902, 8.361, 8.38899, 8.40235, 8.4289, 8.44168, 8.46435, 8.49263, 
  8.5019, 8.53676, 8.55703, 8.59052, 8.61297, 8.61726)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_3, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_3 <- st_set_geometry(Geo_3, Geo_0[111])
Geo_3 <- st_union(Geo_3, Geo)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
Geo_3 <- Geo_3 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### MAURITANIA #####
Geo_0 <- Geometric_Operations(Geo_4, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_3)
Geo_4 <- st_set_geometry(Geo_4, st_geometry(Geo_0))
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
LATITUDE_VALUEs <- c(
  25.000305, 25.35116, 25.85119, 26.22968, 26.67561, 26.97655, 27.13691, 27.22914, 27.2346, 27.23517,
  27.2885, 27.30555, 27.31494,
  26.00028, 26, 23.45445, 23.45333, 23.44888, 23.43521,
  23.42947, 23.4164, 23.37204, 23.36219, 23.35384, 23.31869, 23.29146, 23.02472, 22.89306, 22.75751,
  22.75636, 22.53669, 21.33672, 21.33417, 21.1378, 21.1288, 21.12071, 21.11621, 21.11119, 21.10506,
  21.09713, 21.09259, 21.09168, 21.07055, 21.06694, 21.05816, 21.05324, 21.04277, 21.03701, 21.03595,
  21.02949, 21.02318, 21.01669, 21.00431, 21.00079, 20.99342, 20.9836, 20.97837, 20.97398, 20.96869,
  20.96324, 20.95557, 20.94431, 20.93144, 20.9128, 20.9038, 20.88991, 20.88524, 20.80829, 20.77678,
  20.77011,
  20.77017, 20.77023, 20.77035, 20.77034, 20.77038, 20.7711, 20.77123, 20.77143, 20.77156, 20.77173,
  20.77218, 20.77279, 20.77433, 20.77506, 20.77685, 20.77808, 20.78005, 20.78116, 20.78205, 20.78253,
  20.78449, 20.78639, 20.78776, 20.78879, 20.7892, 20.78944, 20.78974, 20.79014, 20.79057, 20.79173,
  20.79301, 20.79475, 20.79535, 20.79582, 20.79653, 20.79762, 20.79984, 20.80144, 20.8026, 20.80371,
  20.80501, 20.8069, 20.8085, 20.80988, 20.81373, 20.81453, 20.81574, 20.81598, 20.81832, 20.82013,
  20.82292, 20.82528, 20.82663, 20.82791, 20.82915, 20.83018, 20.83034, 20.83226, 20.83515, 20.8375,
  20.83778, 20.83806, 20.84042, 20.84212, 20.8433, 20.84588, 20.84786, 20.84992, 20.85023, 20.85023,
  20.85111, 20.85182, 20.85347, 20.85363, 20.85407, 20.85495, 20.85531, 20.85827, 20.85871, 20.8608,
  20.86771, 20.87084, 20.8773, 20.8783, 20.88051, 20.88219, 20.88885, 20.88983, 20.89004, 20.88959,
  20.89013, 20.89332, 20.8933, 20.89366, 20.89374, 20.89638, 20.8971, 20.89827, 20.89891, 20.90316,
  20.90394, 20.90429, 20.90545, 20.9061, 20.90571, 20.90575, 20.90557, 20.90454, 20.90463, 20.9067,
  20.90726, 20.90885, 20.90872, 20.91042, 20.9123, 20.91285, 20.91286, 20.91269, 20.91178, 20.91137,
  20.91144, 20.91111, 20.91123, 20.91119, 20.91107, 20.9107, 20.9103, 20.90932, 20.9089, 20.90889,
  20.90911, 20.9099, 20.91282, 20.91402, 20.91813, 20.92066, 20.92216, 20.92507, 20.92601, 20.92767,
  20.93038, 20.93208, 20.93411, 20.93819, 20.94044, 20.94675, 20.94992, 20.9514, 20.95358, 20.95557,
  20.95685, 20.95673, 20.95685, 20.95837, 20.95908, 20.96076, 20.96356, 20.9641, 20.96428, 20.96687,
  20.96779, 20.96807, 20.96835, 20.96972, 20.97126, 20.97295, 20.97489, 20.97668, 20.97755, 20.9783,
  20.97914, 20.98076, 20.98126, 20.98228, 20.98541, 20.98676, 20.98848, 20.98878, 20.99031, 20.99263,
  20.99342, 20.99672, 21.00067, 21.00195, 21.00443, 21.00622, 21.00906, 21.01092, 21.01179, 21.01409,
  21.01717, 21.01824, 21.02008, 21.0189, 21.01906, 21.01866, 21.01781, 21.0184, 21.02088, 21.02158,
  21.0218, 21.02246, 21.02424, 21.03214, 21.03798, 21.03947, 21.04039, 21.04419, 21.04587, 21.04535,
  21.04251, 21.04005, 21.03828, 21.03796, 21.0366, 21.03492, 21.03246, 21.03019, 21.02753, 21.02627,
  21.02595, 21.02462, 21.02549, 21.02721, 21.03143, 21.03332, 21.034, 21.03398, 21.03422, 21.03492,
  21.04071, 21.04996, 21.05122, 21.05184, 21.05182, 21.05196, 21.05228, 21.05392, 21.0666, 21.08206,
  21.0861, 21.09663, 21.09819, 21.09944, 21.1016, 21.10276, 21.1066, 21.10848, 21.10972, 21.10983,
  21.10976, 21.11067, 21.11299, 21.11935, 21.1258, 21.1291, 21.1317, 21.13454, 21.13921, 21.14655,
  21.14979, 21.15276, 21.1608, 21.16148, 21.16092, 21.16172, 21.16384, 21.16561, 21.16589, 21.16526,
  21.16563, 21.16515, 21.16412, 21.16285, 21.16223, 21.16349, 21.16575, 21.16599, 21.16535, 21.16351,
  21.16214, 21.16206, 21.15943, 21.15827, 21.15809, 21.15842, 21.16187, 21.16144, 21.15806, 21.15564,
  21.15182, 21.14949, 21.14897, 21.14877, 21.1486, 21.14855, 21.14836, 21.14845, 21.14818, 21.14743,
  21.14577, 21.14391, 21.14125, 21.14087, 21.13975, 21.13857, 21.13705, 21.1353, 21.12876, 21.12554,
  21.12372, 21.12059, 21.12061, 21.12067, 21.12133, 21.1217, 21.12163, 21.12091, 21.11945, 21.11608,
  21.11248, 21.10931, 21.10783, 21.10623, 21.10137, 21.09862, 21.09628, 21.08716, 21.08514, 21.08132,
  21.07961, 21.07809, 21.07699, 21.06456, 21.05811, 21.0517, 21.03412, 21.03123, 21.02479, 21.02326,
  21.01056, 21.00119, 20.99386, 20.99342, 20.99382, 20.98705, 20.98011, 20.95274, 20.94721, 20.93719,
  20.92573, 20.9232, 20.924, 20.92152, 20.92236, 20.92076, 20.92204, 20.92052, 20.8941, 20.87822,
  20.87124, 20.86763, 20.86755, 20.86218, 20.84991, 20.83876, 20.83314, 20.82777, 20.82079, 20.81951,
  20.80835, 20.80153, 20.79624, 20.78934, 20.78581, 20.78107, 20.77497, 20.77096, 20.76855, 20.76695,
  20.7631, 20.75058, 20.74407, 20.73589, 20.7216, 20.71534, 20.70851, 20.70634, 20.70602, 20.70257,
  20.69382, 20.69237, 20.69278, 20.69029, 20.68619, 20.68569, 20.67961, 20.67973, 20.68011, 20.67816,
  20.67599, 20.6721, 20.66832, 20.66672, 20.66543, 20.66549, 20.66583, 20.66198, 20.66106, 20.65162,
  20.64861, 20.6368, 20.63021, 20.62596, 20.62198, 20.61688, 20.6131, 20.60459, 20.59776, 20.58595,
  20.58137, 20.58008, 20.57514, 20.57012, 20.56823, 20.56602, 20.56194, 20.55867, 20.5571, 20.55638,
  20.5563, 20.55684, 20.55748, 20.55919, 20.56102, 20.57072, 20.58173, 20.61047,
  20.61155, 20.61086, 20.61163, 20.61507, 20.61953, 20.62202, 20.62415, 20.62728, 20.63491, 20.64367,
  20.66009, 20.67246, 20.67643, 20.69149, 20.70229, 20.71971, 20.72473, 20.72894, 20.73549, 20.73581,
  20.73296, 20.72549, 20.72417, 20.72405, 20.72477, 20.7216, 20.7218, 20.723, 20.72276, 20.72007,
  20.71176, 20.70522, 20.70446, 20.70237, 20.69731, 20.69398, 20.69161, 20.68824, 20.68426, 20.68402,
  20.68153, 20.67965, 20.6664, 20.66375, 20.64933, 20.64764, 20.6329, 20.63274, 20.62981, 20.63917,
  20.63933, 20.63624, 20.63529, 20.62481, 20.61812, 20.61276, 20.61093, 20.6113, 20.60469, 20.60447,
  20.60236, 20.60047, 20.59651, 20.59296, 20.59318, 20.5843, 20.58095, 20.57966, 20.57799, 20.5749,
  20.57108, 20.56903, 20.56297, 20.55617, 20.51932, 20.50212, 20.47092, 20.44326, 20.43699, 20.43224,
  20.42601, 20.42552, 20.42392, 20.41933, 20.41909, 20.40224, 20.39488, 20.39375, 20.38583, 20.36281,
  20.35646, 20.34937, 20.34117, 20.33742, 20.32821, 20.3264, 20.32696, 20.32567, 20.32708, 20.32712,
  20.32475, 20.31115, 20.30793, 20.30535, 20.29963, 20.28756, 20.27943, 20.27725, 20.27886, 20.28063,
  20.2818, 20.28305, 20.2853, 20.28627, 20.27464, 20.2684, 20.26332, 20.21847, 20.21734, 20.20534,
  20.19318, 20.17312, 20.17159, 20.16828, 20.16836, 20.16401, 20.15886, 20.15837, 20.15418, 20.14137,
  20.12751, 20.13041, 20.11977, 20.11945, 20.08592, 20.08173, 20.06528, 20.04851, 20.0269, 20.00239,
  19.99303, 19.96431, 19.92171, 19.90751, 19.88071, 19.87555, 19.88144, 19.90073, 19.90493, 19.89411,
  19.89331, 19.89589, 19.88104, 19.87353, 19.86417, 19.8565, 19.84891, 19.84439, 19.84859, 19.82453,
  19.81338, 19.79384, 19.78431, 19.76783, 19.74538, 19.73455, 19.73471, 19.73019, 19.70401, 19.71048,
  19.71636, 19.72193, 19.72581, 19.73264, 19.73914, 19.74085, 19.7394, 19.73261, 19.70191, 19.68995,
  19.62739, 19.62173, 19.61251, 19.59505, 19.59426, 19.59173, 19.59185, 19.59345, 19.60879, 19.61154, 
  19.61413, 19.62319, 19.61672, 19.63014, 19.64922, 19.64986, 19.62901, 19.61931, 19.61494, 19.60006,
  19.59731, 19.5826, 19.57839, 19.54814, 19.54151, 19.53164, 19.5119, 19.46918, 19.42532, 19.41593,
  19.41398, 19.40443, 19.40346, 19.42078, 19.42062, 19.42742, 19.4449, 19.44798,  19.45348, 19.4496, 
  19.47307, 19.48909, 19.51498, 19.52905, 19.53326, 19.51546, 19.48019, 19.47404, 19.45801, 19.45866, 
  19.48439, 19.48715, 19.50834, 19.52048, 19.53148, 19.5331, 19.54103, 19.53051, 19.49184, 19.48083, 
  19.47663, 19.46514, 19.45364, 19.42952, 19.3931, 19.38468, 19.37439, 19.37261, 19.37399, 19.37796,
  19.37852, 19.37755, 19.38111, 19.38014, 19.38152, 19.38702, 19.38962, 19.38808, 19.37998, 19.3833,
  19.39172, 19.39083, 19.38678, 19.38387, 19.37868, 19.37067, 19.36021, 19.35082, 19.31146, 19.25407,
  19.23851, 19.19151, 19.14434, 19.09974, 19.07865, 18.99914, 18.94914, 18.94476, 18.78534, 18.75121, 
  18.69565, 25.40660)
LONGITUDE_VALUEs <- c(
  -4.806091, -5.40246, -6.22178, -6.84332, -7.58831, -8.09628, -8.36716, -8.52209, -8.52759, -8.53265,
  -8.62308, -8.65209, -8.66812,
  -8.66695, -12.00056, -12.00028, -12.00391, -12.02313, -12.07913,
  -12.10003, -12.15583, -12.25115, -12.27114, -12.29036, -12.36572, -12.57133, -12.99838, -13.10528, -13.15029,
  -13.14971, -13.08399, -12.99965, -16.94849, -16.99362, -16.99758, -17.00009, -17.0017, -17.00386, -17.00595,
  -17.00882, -17.01026, -17.01055, -17.02389, -17.02751, -17.03209, -17.03356, -17.03517, -17.03656, -17.03667,
  -17.03733, -17.03753, -17.03727, -17.03804, -17.03894, -17.04057, -17.04445, -17.04534, -17.04641, -17.0469,
  -17.04875, -17.05065, -17.05075, -17.05355, -17.06138, -17.0632, -17.0676, -17.06807, -17.05942, -17.0509,
  -17.04977,
  -17.04962, -17.04892, -17.04862, -17.04806, -17.04796, -17.04655, -17.04483, -17.04373, -17.0435, -17.0434,
  -17.04328, -17.04327, -17.04359, -17.04386, -17.04493, -17.04603, -17.04643, -17.04626, -17.04627, -17.04638,
  -17.04715, -17.04674, -17.0461, -17.04573, -17.04539, -17.04527, -17.04524, -17.04525, -17.04534, -17.04593,
  -17.04611, -17.04561, -17.04571, -17.04554, -17.04543, -17.0456, -17.04541, -17.04502, -17.04436, -17.04424,
  -17.04327, -17.04334, -17.04226, -17.04235, -17.04134, -17.0404, -17.04001, -17.03868, -17.03875, -17.03943,
  -17.03935, -17.0381, -17.03833, -17.03775, -17.03754, -17.03707, -17.03625, -17.03522, -17.0358, -17.03518,
  -17.03303, -17.03287, -17.0339, -17.03426, -17.03363, -17.03459, -17.03473, -17.03391, -17.03345, -17.03284,
  -17.03082, -17.03064, -17.02895, -17.02843, -17.02808, -17.0281, -17.02904, -17.03183, -17.03194, -17.03456,
  -17.04769, -17.0521, -17.05674, -17.05704, -17.05618, -17.05717, -17.05854, -17.05839, -17.0574, -17.05586,
  -17.05561, -17.05466, -17.05305, -17.05301, -17.05166, -17.05172, -17.05091, -17.05101, -17.05228, -17.05164,
  -17.05116, -17.05167, -17.05133, -17.05023, -17.04979, -17.04338, -17.04302, -17.04284, -17.04241, -17.04232,
  -17.04088, -17.03815, -17.03704, -17.0337, -17.02768, -17.02536, -17.02329, -17.02256, -17.02245, -17.02371,
  -17.02427, -17.02572, -17.02641, -17.02658, -17.02673, -17.02679, -17.02677, -17.02596, -17.02492, -17.02387,
  -17.02303, -17.02222, -17.02018, -17.0173, -17.01795, -17.01866, -17.01816, -17.01479, -17.01436, -17.0146,
  -17.01342, -17.01359, -17.0128, -17.01411, -17.01273, -17.01333, -17.01415, -17.01372, -17.01381, -17.0126,
  -17.01016, -17.00956, -17.00936, -17.00964, -17.00947, -17.01009, -17.00986, -17.00932, -17.00814, -17.00758,
  -17.00691, -17.00574, -17.00546, -17.00591, -17.00697, -17.00886, -17.00881, -17.01031, -17.00987, -17.01024,
  -17.00996, -17.00992, -17.01, -17.00966, -17.00884, -17.00878, -17.00715, -17.00675, -17.00696, -17.00806,
  -17.00761, -17.00683, -17.0075, -17.00636, -17.00606, -17.00334, -17.00329, -17.00267, -17.0028, -17.00394,
  -17.0034, -17.00357, -17.00548, -17.00638, -17.01027, -17.01235, -17.01456, -17.01724, -17.01737, -17.01896,
  -17.02192, -17.02278, -17.02258, -17.02685, -17.02687, -17.02546, -17.02705, -17.02554, -17.01954, -17.01548,
  -17.01106, -17.00569, -17.00406, -17.00321, -17.00333, -17.00299, -17.00406, -17.00428, -17.00415, -17.00366,
  -17.00192, -17.00065, -16.99913, -16.99806, -16.99632, -16.99329, -16.99003, -16.98793, -16.98726, -16.98677,
  -16.98398, -16.98076, -16.97799, -16.97514, -16.97325, -16.97293, -16.9728, -16.97282, -16.96966, -16.96726,
  -16.96726, -16.96499, -16.96387, -16.96198, -16.95692, -16.95181, -16.94383, -16.9422, -16.94031, -16.94057,
  -16.94197, -16.94386, -16.94464, -16.94378, -16.94244, -16.9407, -16.93843, -16.93707, -16.93699, -16.93497,
  -16.93439, -16.93246, -16.92872, -16.9261, -16.92495, -16.92314, -16.92194, -16.92193, -16.92166, -16.92094,
  -16.9201, -16.91974, -16.9203, -16.92062, -16.92004, -16.9174, -16.91586, -16.91521, -16.91507, -16.91599,
  -16.91587, -16.91492, -16.91372, -16.91257, -16.91202, -16.91165, -16.91094, -16.91044, -16.91025, -16.90997,
  -16.91053, -16.91057, -16.91087, -16.91116, -16.91119, -16.91111, -16.91034, -16.90952, -16.9089, -16.90658,
  -16.90373, -16.90246, -16.90229, -16.90197, -16.90049, -16.8995, -16.89656, -16.89506, -16.89377, -16.89248,
  -16.89072, -16.88957, -16.88939, -16.88923, -16.88909, -16.88862, -16.88792, -16.88676, -16.88574, -16.88476,
  -16.88464, -16.88373, -16.88354, -16.88386, -16.88271, -16.883, -16.88152, -16.88169, -16.881, -16.88186,
  -16.88096, -16.8815, -16.88083, -16.87957, -16.86781, -16.86499, -16.86521, -16.86332, -16.86297, -16.85688,
  -16.84044, -16.83976, -16.83525, -16.83341, -16.82967, -16.82255, -16.81881, -16.81783, -16.81414, -16.81058,
  -16.80354, -16.79804, -16.79496, -16.79118, -16.78925, -16.78238, -16.77972, -16.77706, -16.77516, -16.76976,
  -16.76606, -16.76211, -16.76023, -16.75868, -16.75834, -16.76031, -16.76005, -16.75568, -16.74632, -16.74074,
  -16.73027, -16.72787, -16.72194, -16.72194, -16.7204, -16.71645, -16.71628, -16.71559, -16.71388, -16.7101,
  -16.70641, -16.69937, -16.69002, -16.67019, -16.66976, -16.66933, -16.6738, -16.67423, -16.67174, -16.67113,
  -16.67431, -16.67646, -16.67737, -16.67977, -16.67904, -16.67827, -16.67707, -16.6754, -16.67467, -16.6716,
  -16.66539, -16.66204, -16.66025, -16.65992, -16.65913, -16.65733, -16.65293, -16.64702, -16.64342, -16.63673,
  -16.63364, -16.62681, -16.62162, -16.61475, -16.61252, -16.60639, -16.59904, -16.5944, -16.58917, -16.57355,
  -16.57003, -16.56496, -16.56059, -16.5539, -16.54815, -16.54369, -16.53914, -16.53562, -16.53341, -16.53152,
  -16.53004, -16.52978, -16.52991, -16.53215, -16.533, -16.53047, -16.5251, -16.53253,
  -16.53245, -16.53176, -16.53181, -16.53306, -16.53263, -16.53323, -16.53254, -16.53241, -16.52919, -16.53061,
  -16.52808, -16.52962, -16.53456, -16.53306, -16.53044, -16.52928, -16.52821, -16.52876, -16.5258, -16.5246,
  -16.52465, -16.5213, -16.51847, -16.50662, -16.50439, -16.5004, -16.4962, -16.49542, -16.48795, -16.48611,
  -16.48885, -16.48933, -16.48787, -16.488, -16.48632, -16.48658, -16.48924, -16.49044, -16.48774, -16.48576,
  -16.48744, -16.48735, -16.47632, -16.47529, -16.46074, -16.45418, -16.44452, -16.44139, -16.43972, -16.43727,
  -16.43238, -16.43172, -16.43095, -16.43125, -16.43084, -16.43204, -16.4314, -16.4302, -16.43035, -16.42934,
  -16.42882, -16.43016, -16.42979, -16.42816, -16.42533, -16.424, -16.42093, -16.4176, -16.41249, -16.41119,
  -16.41108, -16.40915, -16.40033, -16.39554, -16.37989, -16.37835, -16.37096, -16.35706, -16.35363, -16.35413,
  -16.35786, -16.36035, -16.36164, -16.35661, -16.35498, -16.34314, -16.33636, -16.32867, -16.32747, -16.3222,
  -16.31984, -16.31344, -16.31027, -16.30683, -16.30087, -16.29778, -16.29739, -16.29323, -16.29314, -16.29022,
  -16.28756, -16.28014, -16.27958, -16.27808, -16.27653, -16.27065, -16.26743, -16.26533, -16.26237, -16.26293,
  -16.25992, -16.25272, -16.24911, -16.24336, -16.23289, -16.23014, -16.22941, -16.20696, -16.20524, -16.20172,
  -16.20301, -16.21366, -16.21967, -16.22249, -16.22627, -16.22524, -16.22781, -16.22498, -16.22463, -16.23357,
  -16.25349, -16.26174, -16.26448, -16.2583, -16.24697, -16.2346, -16.23975, -16.2267, -16.23117, -16.23082,
  -16.22395, -16.23838, -16.29538, -16.30878, -16.31221, -16.30397, -16.29366, -16.28441, -16.27943, -16.26991,
  -16.26859, -16.26309, -16.25279, -16.25978, -16.26227, -16.26664, -16.26565, -16.26264, -16.25233, -16.25371,
  -16.26007, -16.26144, -16.25594, -16.26984, -16.28066, -16.2743, -16.27156, -16.27379, -16.30659, -16.30487,
  -16.29694, -16.29201, -16.28553, -16.28029, -16.28561, -16.2889, -16.30247, -16.32308, -16.34092, -16.35396,
  -16.39122, -16.39242,  -16.39946, -16.40478, -16.40231, -16.401, -16.39957, -16.40002, -16.39568, -16.39579, 
  -16.39431, -16.38332, -16.38211, -16.36099, -16.35343, -16.34845, -16.35463, -16.36992, -16.3694, -16.38452, 
  -16.38159, -16.38949, -16.38915, -16.40991, -16.4106, -16.42313, -16.42519, -16.45146, -16.47121, -16.46897, 
  -16.46159, -16.45249, -16.44373, -16.43463, -16.4269, -16.41367, -16.40651, -16.4017, -16.40359, -16.4108, 
  -16.40479, -16.40393, -16.38521, -16.37164, -16.35825, -16.37199, -16.38779, -16.39689, -16.40232, -16.39751,
  -16.37845, -16.3703, -16.36032, -16.3368, -16.32666, -16.30434, -16.2906, -16.28733, -16.31584, -16.31602, 
  -16.32186, -16.32735, -16.34315, -16.3591, -16.41097, -16.43278, -16.45657, -16.46421, -16.47277, -16.47766,
  -16.49089, -16.49784, -16.50197, -16.4957, -16.49441, -16.50403, -16.50343, -16.49716, -16.48909, -16.48539, 
  -16.49861, -16.52154, -16.54129, -16.54445, -16.54419, -16.53414, -16.52481, -16.51218, -16.49768, -16.46885, 
  -16.44687, -16.35725, -16.30884, -16.27417, -16.25701, -16.22096, -16.19656, -16.19247, -16.16533, -16.1516, 
  -16.14027, -7.06091)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_difference(st_geometry(Geo_4), st_geometry(Geo))
if (length(Geo_0) > 1) {Geo_0 <- Geo_0[st_geometry_type(Geo_0) %in% c("POLYGON", "MULTIPOLYGON")]}
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_4 <- st_set_geometry(Geo_4, Geo_0[24])
Geo_4 <- st_union(Geo_4, Geo)
LATITUDE_VALUEs <- c(
  20.62033, 20.62049, 20.61833, 20.61841, 20.61744, 20.61463, 20.61134, 20.60258, 20.5992, 20.59149, 
  20.59069, 20.58398, 20.58289, 20.57944, 20.5708, 20.5708, 20.56895, 20.56807, 20.56795, 20.56714, 
  20.56751, 20.57044, 20.59193, 20.59641, 20.59995, 20.60125, 20.60459, 20.60943, 20.61206, 20.61324, 
  20.61943)
LONGITUDE_VALUEs <- c(
  -16.45084, -16.45513, -16.46242, -16.46808, -16.47177, -16.47435, -16.47358, -16.47538, -16.47727, -16.4771, 
  -16.47594, -16.47469, -16.47302, -16.47212, -16.46079, -16.45877, -16.45735, -16.45461, -16.44989, -16.44701, 
  -16.44684, -16.44834, -16.44817, -16.44952, -16.44965, -16.4487, -16.45025, -16.44853, -16.44694, -16.44815, 
  -16.44958)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_4 <- st_union(Geo_4, Geo)
LATITUDE_VALUEs <- c(
  19.73027, 19.73407, 19.7432, 19.74229, 19.74009, 19.73486, 19.73086, 19.72276, 19.72243, 19.70627,
  19.69989, 19.68712, 19.67662, 19.6733, 19.67274, 19.6746, 19.67742, 19.67783, 19.68995, 19.69423,
  19.71371, 19.72179, 19.72962, 19.72936)
LONGITUDE_VALUEs <- c(
  -16.4626, -16.46363, -16.48276, -16.48645, -16.49052, -16.49394, -16.49585, -16.5013, -16.49839, -16.50122,
  -16.50371, -16.4983, -16.4989, -16.49615, -16.49169, -16.48843, -16.48852, -16.48474, -16.47968, -16.47899, 
  -16.47118, -16.47178, -16.46989, -16.46338)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_4 <- st_union(Geo_4, Geo)
LATITUDE_VALUEs <- c(
  19.59877, 19.6539, 19.65504, 19.66457, 19.68138, 19.70724, 19.76509, 19.77139, 19.77979, 19.79013, 
  19.80079, 19.80466, 19.81274, 19.82824, 19.84552, 19.84956, 19.85973, 19.86635, 19.86199, 19.85133, 
  19.84326, 19.82824, 19.83567, 19.83147, 19.81871, 19.80079, 19.7919, 19.78221, 19.77397, 19.7596, 
  19.75297, 19.7276, 19.67993, 19.67395, 19.6539, 19.63822, 19.62076, 19.61817, 19.61073, 19.60459)
LONGITUDE_VALUEs <- c(
  -16.43213, -16.40056, -16.39489, -16.38889, -16.38339, -16.36365, -16.35215, -16.35112, -16.35696, -16.34855, 
  -16.35078, -16.34769, -16.34838, -16.34305, -16.3355, -16.3331, -16.34477, -16.35318, -16.36502, -16.36777, 
  -16.37927, -16.38338, -16.39608, -16.41084, -16.422, -16.42202, -16.41978, -16.42356, -16.42253, -16.42699, 
  -16.42648, -16.45669, -16.46561, -16.45652, -16.45342, -16.4481, -16.45291, -16.43986, -16.43711, -16.43883)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_4 <- st_union(Geo_4, Geo)
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
Geo_4 <- Geo_4 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>%
  filter(!NAME %in% c("WESTERN SAHARA", "MOROCCO", "ALGERIA", "MAURITANIA"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3, Geo_4)

Now in Our World Administrative Boundaries (GeoDATA):

#Countries/Territories in GeoDATA
DATA <- GeoDATA %>% st_drop_geometry()
datatable(DATA[ , c(1, 5, 8)], options = list(scrollX = TRUE, autoWidth = TRUE), 
          caption = "Countries/Territories in GeoDATA", style = "bootstrap", rownames = FALSE) %>% 
  formatStyle(columns = c(1, 3), textAlign = "left") %>% formatStyle(columns = 2, textAlign = "center")

NAME in GeoDATA \(>\) Residence in International Migrant Stock Data (Residences_in_iMIGRANT_Stock) [248 \(>\) 235].

NAME in GeoDATA \(>\) NAME in GeoDATA_from_WHO (248 \(>\) 241):

  • AZAD KASHMIR | GILGIT-BALTISTAN | JAMMU and KASHMIR | LADAKH | SIACHEN GLACIER | AKSAI CHIN | ABYEI AREA

We will also make a version for our work on Climate Change and Migration Network (CCMN) called CCMN_GeoDATA:

  • AZAD KASHMIR and GILGIT-BALTISTAN will be included in PAKISTAN (Sovereign Country)
  • JAMMU AND KASHMIR and LADAKH will be included in INDIA (Sovereign Country)
  • AKSAI CHIN will be included in CHINA (Sovereign Country)

5.1.3 International Migrant Stock Data

We check that all countries/territories in International Migrant Stock Data (Residences_in_iMIGRANT_Stock) are in GeoDATA.

#Combine Residences_in_iMIGRANT_Stock | GeoDATA
DATA <- left_join(Residences_in_iMIGRANT_Stock, GeoDATA, by = c("ResidenceCode" = "M49_CODE"))
DATA <- DATA %>% select(-ncol(DATA))
datatable(DATA[is.na(DATA$NAME), ][ , 1:3], 
          options = list(scrollX = TRUE, autoWidth = TRUE, 
                         columnDefs = list(list(targets = "_all", render = JS(
                           "function(data, type, row, meta) {",
                           "  if (type === 'display' && data === null) {",
                           "    return 'NA';", "  }", "  return data;", "}")))), 
          style = "bootstrap", rownames = FALSE, caption = "Countries in Residences_in_iMIGRANT_Stock (!in GeoDATA)") %>%
  formatStyle(columns = 1, textAlign = "left", `text-transform` = "uppercase") %>% 
  formatStyle(columns = c(2:3), textAlign = "center")

HONG KONG SAR | MACAO SAR | TAIWAN (PROVINCE OF CHINA) are included in CHINA in GeoDATA.

##### HONG KONG SAR #####
LATITUDE_VALUEs <- c(
  22.50676, 22.50243, 22.50145, 22.4993, 22.49933, 22.48919, 22.48918, 22.48689, 22.48665, 22.48645, 
  22.48681, 22.48648, 22.48662, 22.48697, 22.48743, 22.48776, 22.48783, 22.48809, 22.48838, 22.48871, 
  22.4888, 22.48942, 22.48942, 22.48969, 22.48932, 22.4897, 22.48961, 22.49007, 22.48967, 22.48911, 
  22.48911, 22.48871, 22.48845, 22.48814, 22.48803, 22.48787, 22.48771, 22.48724, 22.48743, 22.48721, 
  22.48712, 22.48689, 22.48685, 22.48652, 22.48653, 22.48616, 22.48625, 22.48607, 22.48584, 22.4856, 
  22.48541, 22.48498, 22.4844, 22.48388, 22.48364, 22.48275, 22.48255, 22.48212, 22.48136, 22.48083, 
  22.48025, 22.48009, 22.47953, 22.47898, 22.47843, 22.47774, 22.47732, 22.47722, 22.47695, 22.47704, 
  22.47676, 22.47598, 22.47605, 22.47584, 22.47404, 22.4738, 22.4736, 22.47366, 22.47321, 22.47311, 
  22.47317, 22.47249, 22.47237, 22.47163, 22.47121, 22.47084, 22.47052, 22.47031, 22.46896, 22.46882, 
  22.46901, 22.46887, 22.46817, 22.4675, 22.46684, 22.46665, 22.46555, 22.4653, 22.46402, 22.46377, 
  22.46273, 22.45943, 22.45882, 22.45822, 22.45803, 22.45666, 22.45611, 22.45532, 22.45451, 22.45396, 
  22.45407, 22.45377, 22.45372, 22.45326, 22.45329, 22.45292, 22.45259, 22.45234, 22.4521, 22.45217, 
  22.45248, 22.45235, 22.45237, 22.45195, 22.4519, 22.45159, 22.45101, 22.45051, 22.45033, 22.45012, 
  22.45033, 22.45025, 22.4497, 22.4498, 22.44967, 22.44997, 22.44992, 22.44975, 22.44952, 22.44923, 
  22.44918, 22.44901, 22.44865, 22.4485, 22.44841, 22.4466, 22.44552, 22.4448, 22.44363, 22.44353, 
  22.44331, 22.44303, 22.44244, 22.4423, 22.44109, 22.44064, 22.43952, 22.43953, 22.43935, 22.43888, 
  22.43784, 22.43702, 22.43542, 22.43339, 22.43281, 22.43233, 22.43216, 22.43164, 22.43138, 22.42988, 
  22.42994, 22.42896, 22.42698, 22.4267, 22.42601, 22.42583, 22.42528, 22.4247, 22.42452, 22.42387, 
  22.42382, 22.42231, 22.42376, 22.42619, 22.42653, 22.42649, 22.42404, 22.42072, 22.42329, 22.42377, 
  22.42373, 22.42361, 22.42154, 22.42097, 22.42055, 22.41882, 22.41817, 22.41017, 22.41022, 22.4102, 
  22.40998, 22.40991, 22.40965, 22.40939, 22.40914, 22.40906, 22.40855, 22.40831, 22.40767, 22.40753, 
  22.40718, 22.40656, 22.40621, 22.40577, 22.40526, 22.40512, 22.40482, 22.40463, 22.40447, 22.40435, 
  22.40415, 22.40422, 22.40376, 22.40369, 22.40397, 22.40401, 22.40425, 22.40428, 22.40256, 22.40332, 
  22.40115, 22.39778, 22.3968, 22.39611, 22.39591, 22.39447, 22.39366, 22.39284, 22.39238, 22.39243, 
  22.3917, 22.39145, 22.39106, 22.39102, 22.39129, 22.38904, 22.38628, 22.38174, 22.37934, 22.37871, 
  22.3791, 22.37918, 22.37902, 22.37869, 22.37578, 22.37097, 22.36435, 22.35926, 22.35926, 22.36266, 
  22.35965, 22.3618, 22.36241, 22.36574, 22.36848, 22.36989, 22.3708, 22.37265, 22.3734, 22.37283, 
  22.37241, 22.37241, 22.37277, 22.3727, 22.37224, 22.37185, 22.37213, 22.37094, 22.37076, 22.37087, 
  22.37105, 22.37859, 22.37909, 22.37863, 22.37857, 22.38157, 22.37985, 22.37933, 22.37982, 22.37973, 
  22.37914, 22.37826, 22.37762, 22.37725, 22.37676, 22.37661, 22.37665, 22.37637, 22.37579, 22.37587, 
  22.3743, 22.37255, 22.36991, 22.36922, 22.3691, 22.3707, 22.37132, 22.37227, 22.36946, 22.369, 
  22.3679, 22.36735, 22.36516, 22.36501, 22.36511, 22.36485, 22.36498, 22.36546, 22.36544, 22.365, 
  22.3637, 22.36349, 22.36384, 22.3639, 22.36341, 22.36324, 22.36252, 22.36222, 22.36203, 22.36209, 
  22.36176, 22.36181, 22.36207, 22.36211, 22.36269, 22.36276, 22.36255, 22.36314, 22.36355, 22.36427, 
  22.36421, 22.36442, 22.36431, 22.36463, 22.3649, 22.36527, 22.36495, 22.36467, 22.3643, 22.36387, 
  22.36368, 22.36348, 22.36332, 22.36305, 22.36288, 22.36258, 22.36236, 22.36242, 22.36175, 22.36176, 
  22.36221, 22.36227, 22.36257, 22.36289, 22.36284, 22.36307, 22.36325, 22.36305, 22.36306, 22.36317, 
  22.35735, 22.3569, 22.35604, 22.35532, 22.35515, 22.35532, 22.35715, 22.35826, 22.35996, 22.36133, 
  22.36091, 22.36052, 22.36041, 22.36037, 22.36062, 22.36217, 22.36206, 22.36219, 22.36445, 22.36578, 
  22.36644, 22.36533, 22.36542, 22.3652, 22.36518, 22.36504, 22.36399, 22.36396, 22.36398, 22.36339, 
  22.36324, 22.36346, 22.36387, 22.36397, 22.36359, 22.36354, 22.36367, 22.36397, 22.36472, 22.36514, 
  22.36558, 22.36754, 22.36771, 22.36708, 22.36686, 22.36782, 22.36861, 22.36901, 22.36919, 22.36892, 
  22.36794, 22.36738, 22.36719, 22.36732, 22.36748, 22.36768, 22.36793, 22.36789, 22.36782, 22.36804, 
  22.36816, 22.36812, 22.36847, 22.36852, 22.37216, 22.37202, 22.36969, 22.36897, 22.36833, 22.36773, 
  22.3672, 22.36638, 22.36523, 22.36461, 22.36184, 22.35982, 22.35924, 22.35922, 22.35988, 22.36016, 
  22.35516, 22.35473, 22.35173, 22.35151, 22.35183, 22.35204, 22.35243, 22.35245, 22.35312, 22.35296, 
  22.35253, 22.35155, 22.35143, 22.35067, 22.35055, 22.34913, 22.34916, 22.34766, 22.34761, 22.34737, 
  22.34863, 22.33813, 22.33971, 22.33705, 22.33552, 22.32833, 22.33056, 22.33038, 22.32758, 22.32386, 
  22.32243, 22.32149, 22.31754, 22.31804, 22.31805, 22.31709, 22.31722, 22.31822, 22.31884, 22.31793, 
  22.3181, 22.31769, 22.31626, 22.31595, 22.31499, 22.31512, 22.31531, 22.31581, 22.31652, 22.31739, 
  22.31785, 22.31782, 22.31792, 22.31803, 22.31807, 22.31805, 22.31828, 22.31902, 22.31963, 22.31991, 
  22.32062, 22.32109, 22.32127, 22.32182, 22.32342, 22.32421, 22.32417, 22.32379, 22.32287, 22.32274, 
  22.32154, 22.32225, 22.32252, 22.32271, 22.32246, 22.32332, 22.3247, 22.32501, 22.32669, 22.3278, 
  22.32679, 22.32896, 22.32651, 22.3223, 22.32099, 22.31684, 22.31681, 22.3155, 22.30703, 22.30334, 
  22.3034, 22.3028, 22.3023, 22.30201, 22.29966, 22.29949, 22.29916, 22.29869, 22.29866, 22.29871, 
  22.29867, 22.29874, 22.29918, 22.29971, 22.30023, 22.30089, 22.29425, 22.29405, 22.29352, 22.29341, 
  22.29355, 22.29347, 22.2929, 22.29301, 22.29311, 22.29325, 22.2929, 22.29301, 22.29447, 22.29559, 
  22.29903, 22.29921, 22.29934, 22.29951, 22.29951, 22.29869, 22.30181, 22.30279, 22.30377, 22.30835, 
  22.30994, 22.31429, 22.31469, 22.31488, 22.3156, 22.32035, 22.32074, 22.30329, 22.30328, 22.30466, 
  22.30493, 22.30686, 22.30784, 22.3081, 22.30984, 22.30938, 22.30951, 22.32031, 22.32218, 22.31314, 
  22.31549, 22.31078, 22.30913, 22.3094, 22.30676, 22.30529, 22.30247, 22.30134, 22.29918, 22.29864, 
  22.29829, 22.29813, 22.2981, 22.2983, 22.29861, 22.29697, 22.29531, 22.29364, 22.29087, 22.2923, 
  22.29155, 22.29088, 22.29068, 22.2898, 22.28954, 22.28935, 22.28887, 22.28845, 22.28819, 22.28786, 
  22.28798, 22.28757, 22.28686, 22.28649, 22.28616, 22.28617, 22.28601, 22.28605, 22.28583, 22.28586, 
  22.28561, 22.28565, 22.28574, 22.28574, 22.28565, 22.28566, 22.28576, 22.28597, 22.28613, 22.28614, 
  22.28653, 22.28777, 22.28829, 22.28839, 22.28904, 22.28933, 22.28978, 22.28984, 22.29094, 22.29109, 
  22.29149, 22.29187, 22.2924, 22.29224, 22.29254, 22.29248, 22.29279, 22.29333, 22.29382, 22.294, 
  22.29439, 22.29433, 22.29476, 22.29514, 22.29516, 22.29538, 22.29544, 22.29562, 22.29591, 22.29581, 
  22.29621, 22.29615, 22.29622, 22.29672, 22.29686, 22.29723, 22.29721, 22.29721, 22.29701, 22.29708, 
  22.29738, 22.29786, 22.29826, 22.29859, 22.29858, 22.29906, 22.29924, 22.29773, 22.29726, 22.29705, 
  22.29704, 22.29722, 22.29785, 22.30087, 22.30094, 22.30131, 22.30132, 22.30168, 22.30184, 22.30175, 
  22.30133, 22.30133, 22.30169, 22.30493, 22.30575, 22.30808, 22.30899, 22.30869, 22.30825, 22.30811, 
  22.30769, 22.30707, 22.30608, 22.3057, 22.30025, 22.29765, 22.29659, 22.29583, 22.29185, 22.29191, 
  22.28977, 22.28247, 22.28172, 22.28144, 22.28118, 22.28063, 22.27946, 22.27947, 22.27891, 22.27863, 
  22.27849, 22.27843, 22.27812, 22.27813, 22.27736, 22.27696, 22.27651, 22.27634, 22.27608, 22.27596, 
  22.27576, 22.27564, 22.27549, 22.27561, 22.27517, 22.27496, 22.27446, 22.27444, 22.27407, 22.27495, 
  22.27288, 22.2721, 22.27164, 22.27054, 22.27032, 22.26261, 22.26257, 22.26309, 22.26249, 22.26272, 
  22.26367, 22.26413, 22.26607, 22.26592, 22.26672, 22.26824, 22.26836, 22.26824, 22.26877, 22.26949, 
  22.27107, 22.27164, 22.27159, 22.27109, 22.27071, 22.27072, 22.27023, 22.27061, 22.26939, 22.26892, 
  22.26719, 22.2668, 22.2661, 22.2658, 22.26507, 22.26395, 22.26246, 22.26185, 22.26171, 22.26192, 
  22.26184, 22.26166, 22.26119, 22.26092, 22.26089, 22.26036, 22.26034, 22.26024, 22.26068, 22.26229, 
  22.26257, 22.26344, 22.26475, 22.26531, 22.26562, 22.2664, 22.26627, 22.26666, 22.26614, 22.26636, 
  22.26569, 22.26572, 22.26529, 22.2646, 22.26455, 22.26438, 22.26454, 22.26471, 22.2652, 22.26547, 
  22.26521, 22.26587, 22.26638, 22.26639, 22.26704, 22.2678, 22.26835, 22.26871, 22.26984, 22.26996, 
  22.26951, 22.26903, 22.26875, 22.26863, 22.26868, 22.26893, 22.26809, 22.26864, 22.2691, 22.26921, 
  22.26933, 22.26999, 22.27007, 22.27081, 22.27147, 22.26979, 22.26958, 22.26943, 22.26944, 22.26968, 
  22.26996, 22.272, 22.27293, 22.27302, 22.27333, 22.27341, 22.27367, 22.27383, 22.27457, 22.2752, 
  22.27726, 22.27874, 22.2786, 22.27886, 22.27883, 22.27931, 22.27956, 22.27997, 22.2802, 22.28054, 
  22.28065, 22.28063, 22.27929, 22.27811, 22.27718, 22.27708, 22.27653, 22.27594, 22.27422, 22.27406, 
  22.27376, 22.27327, 22.27311, 22.27316, 22.27356, 22.27385, 22.27406, 22.27502, 22.27579, 22.27616, 
  22.27632, 22.27695, 22.27711, 22.2771, 22.27692, 22.27698, 22.27748, 22.27762, 22.27771, 22.27808, 
  22.27835, 22.27861, 22.27897, 22.27928, 22.27926, 22.27911, 22.27923, 22.27919, 22.27947, 22.27942, 
  22.2791, 22.27899, 22.27918, 22.27944, 22.28036, 22.28069, 22.28113, 22.28137, 22.28257, 22.28361, 
  22.28431, 22.2845, 22.28483, 22.28495, 22.28551, 22.28584, 22.28626, 22.28646, 22.28631, 22.28582, 
  22.28589, 22.28681, 22.28752, 22.28858, 22.2901, 22.29058, 22.29057, 22.29088, 22.29117, 22.2911, 
  22.29093, 22.29087, 22.28999, 22.28949, 22.28912, 22.28839, 22.28828, 22.28838, 22.28789, 22.2882, 
  22.28822, 22.28776, 22.28734, 22.28708, 22.28715, 22.28706, 22.28748, 22.28729, 22.28752, 22.28805, 
  22.2882, 22.28841, 22.28935, 22.2896, 22.29012, 22.29049, 22.29065, 22.29116, 22.29142, 22.29121, 
  22.29128, 22.29165, 22.2918, 22.29197, 22.29232, 22.29214, 22.29221, 22.29253, 22.29257, 22.29209, 
  22.29209, 22.29229, 22.29263, 22.29253, 22.29281, 22.29288, 22.29332, 22.29357, 22.29377, 22.29412, 
  22.29424, 22.29491, 22.29508, 22.29526, 22.29545, 22.29599, 22.29602, 22.29621, 22.29639, 22.29659, 
  22.29678, 22.29718, 22.297, 22.29736, 22.2975, 22.2975, 22.29778, 22.2976, 22.29764, 22.29792, 
  22.29807, 22.29824, 22.29816, 22.29834, 22.29989, 22.30023, 22.30042, 22.30075, 22.30089, 22.30122, 
  22.3019, 22.3021, 22.30217, 22.30257, 22.3029, 22.3031, 22.30372, 22.30341, 22.30537, 22.3054, 
  22.30559, 22.30584, 22.30582, 22.30606, 22.3062, 22.30652, 22.30653, 22.30676, 22.3067, 22.30702, 
  22.30785, 22.30817, 22.30829, 22.30847, 22.30895, 22.30957, 22.30971, 22.30993, 22.30977, 22.31001, 
  22.31022, 22.31057, 22.31052, 22.31067, 22.31045, 22.31036, 22.30996, 22.30993, 22.30949, 22.30948, 
  22.31008, 22.31006, 22.31022, 22.31037, 22.31034, 22.30981, 22.30919, 22.30895, 22.30876, 22.308, 
  22.30722, 22.30694, 22.30668, 22.30605, 22.30512, 22.30471, 22.30443, 22.30434, 22.3042, 22.30464, 
  22.30564, 22.30646, 22.30695, 22.30705, 22.30675, 22.30677, 22.30705, 22.3069, 22.30719, 22.30759, 
  22.30786, 22.30816, 22.30942, 22.31032, 22.31082, 22.31117, 22.31143, 22.31178, 22.31235, 22.31261, 
  22.31292, 22.31325, 22.3142, 22.3156, 22.31576, 22.31683, 22.31724, 22.31855, 22.31937, 22.31959, 
  22.31957, 22.31984, 22.32006, 22.32037, 22.32107, 22.32115, 22.32139, 22.32132, 22.32095, 22.32035, 
  22.32006, 22.32012, 22.32057, 22.32093, 22.32143, 22.3214, 22.32162, 22.32159, 22.32129, 22.32153, 
  22.32079, 22.31996, 22.31948, 22.31968, 22.32144, 22.32136, 22.32149, 22.32167, 22.32181, 22.32183, 
  22.32175, 22.32216, 22.32204, 22.32235, 22.32229, 22.32245, 22.32333, 22.3245, 22.3256, 22.32646, 
  22.32648, 22.3278, 22.32921, 22.32998, 22.33054, 22.33096, 22.33289, 22.33331, 22.33351, 22.33397, 
  22.33465, 22.33505, 22.33529, 22.33594, 22.33638, 22.33679, 22.33685, 22.33783, 22.33795, 22.33839, 
  22.33833, 22.33983, 22.34019, 22.34255, 22.34391, 22.34492, 22.34639, 22.34677, 22.34673, 22.34701, 
  22.34743, 22.34798, 22.34845, 22.34878, 22.34938, 22.34977, 22.35016, 22.35126, 22.35114, 22.35128, 
  22.35032, 22.34989, 22.35058, 22.351, 22.35199, 22.35237, 22.35262, 22.35254, 22.35275, 22.35292, 
  22.35318, 22.3529, 22.35296, 22.35267, 22.35274, 22.35394, 22.35445, 22.35471, 22.35467, 22.35421, 
  22.35563, 22.35621, 22.35676, 22.35697, 22.35658, 22.35594, 22.35519, 22.35508, 22.35404, 22.35419, 
  22.35387, 22.35383, 22.35452, 22.35422, 22.35326, 22.35371, 22.35458, 22.35452, 22.35371, 22.35398, 
  22.35377, 22.35282, 22.35263, 22.35259, 22.35325, 22.35325, 22.35363, 22.354, 22.35476, 22.35487, 
  22.35551, 22.35532, 22.35546, 22.35587, 22.35649, 22.35698, 22.35801, 22.35833, 22.36034, 22.36138, 
  22.36286, 22.36275, 22.36326, 22.36318, 22.36377, 22.36506, 22.3651, 22.36498, 22.36465, 22.36449, 
  22.36512, 22.36552, 22.36579, 22.36574, 22.36629, 22.36761, 22.36818, 22.3687, 22.36814, 22.3676, 
  22.36771, 22.36741, 22.36756, 22.36808, 22.3683, 22.36851, 22.36912, 22.36943, 22.36967, 22.36928, 
  22.36921, 22.36959, 22.37002, 22.37151, 22.37188, 22.3721, 22.37199, 22.37161, 22.37095, 22.37043, 
  22.37013, 22.37039, 22.37022, 22.36983, 22.36949, 22.36787, 22.36656, 22.36571, 22.36544, 22.36516, 
  22.36472, 22.36345, 22.36262, 22.36187, 22.36123, 22.36077, 22.36034, 22.36, 22.35958, 22.35949, 
  22.35975, 22.35996, 22.35979, 22.35963, 22.35876, 22.35801, 22.35743, 22.35721, 22.35656, 22.3564, 
  22.35633, 22.35623, 22.35617, 22.35637, 22.35634, 22.35597, 22.35598, 22.35615, 22.35631, 22.35636, 
  22.35646, 22.35688, 22.35674, 22.35705, 22.35713, 22.35708, 22.35727, 22.35739, 22.35759, 22.35755, 
  22.35734, 22.35745, 22.35762, 22.35759, 22.35734, 22.35736, 22.35721, 22.35801, 22.35898, 22.35969, 
  22.35996, 22.35994, 22.35946, 22.35899, 22.35775, 22.35774, 22.35711, 22.3571, 22.35676, 22.35648, 
  22.35579, 22.35541, 22.35507, 22.35448, 22.35427, 22.35349, 22.35352, 22.35248, 22.35249, 22.35211, 
  22.35207, 22.35179, 22.35159, 22.35135, 22.35122, 22.3512, 22.35139, 22.35119, 22.35131, 22.35112, 
  22.35086, 22.35088, 22.35068, 22.35063, 22.35078, 22.35179, 22.35182, 22.35211, 22.3522, 22.3526, 
  22.35287, 22.35326, 22.35317, 22.35387, 22.35432, 22.35408, 22.35408, 22.35437, 22.35427, 22.35471, 
  22.35517, 22.35543, 22.35568, 22.35581, 22.35619, 22.35669, 22.35708, 22.35721, 22.35751, 22.35763, 
  22.35804, 22.35812, 22.3581, 22.35838, 22.35858, 22.3586, 22.3591, 22.35973, 22.36021, 22.36022, 
  22.36067, 22.36074, 22.36091, 22.36094, 22.36071, 22.36072, 22.36098, 22.36093, 22.36136, 22.36235, 
  22.36254, 22.36251, 22.36343, 22.36371, 22.36386, 22.36381, 22.36451, 22.36503, 22.3655, 22.36603, 
  22.36651, 22.36648, 22.36705, 22.36797, 22.3683, 22.36967, 22.37065, 22.37066, 22.37105, 22.3718, 
  22.37204, 22.37219, 22.37243, 22.37272, 22.37536, 22.37586, 22.37769, 22.378, 22.37806, 22.3776, 
  22.37778, 22.37739, 22.37736, 22.3775, 22.37778, 22.37775, 22.37795, 22.37816, 22.37799, 22.37803, 
  22.37894, 22.37902, 22.37899, 22.37919, 22.37905, 22.37922, 22.37962, 22.38364, 22.38363, 22.38422, 
  22.38515, 22.38658, 22.3874, 22.38888, 22.38981, 22.39018, 22.39035, 22.39142, 22.39294, 22.39331, 
  22.39413, 22.39446, 22.39484, 22.39459, 22.39353, 22.39314, 22.39289, 22.3925, 22.39248, 22.39288, 
  22.39309, 22.39326, 22.39373, 22.39417, 22.39455, 22.39503, 22.39493, 22.39524, 22.39523, 22.39606, 
  22.39565, 22.39614, 22.39557, 22.39513, 22.39516, 22.39494, 22.39423, 22.39434, 22.39422, 22.39431, 
  22.39397, 22.3926, 22.39226, 22.39162, 22.39115, 22.39092, 22.3906, 22.38974, 22.38973, 22.38943, 
  22.38911, 22.38917, 22.38818, 22.38814, 22.38855, 22.38974, 22.39048, 22.39034, 22.39063, 22.39079, 
  22.39071, 22.3905, 22.39004, 22.38955, 22.38942, 22.38917, 22.389, 22.38854, 22.38849, 22.38817, 
  22.3882, 22.38804, 22.38827, 22.38816, 22.38791, 22.38781, 22.38714, 22.38634, 22.38581, 22.38541, 
  22.38519, 22.38487, 22.38453, 22.38419, 22.38435, 22.38486, 22.38485, 22.38494, 22.38492, 22.38525, 
  22.38589, 22.38678, 22.38823, 22.38828, 22.38734, 22.38692, 22.38581, 22.38493, 22.38418, 22.38405, 
  22.38414, 22.38459, 22.38561, 22.38586, 22.38561, 22.38577, 22.38545, 22.38478, 22.38496, 22.38538, 
  22.38526, 22.38498, 22.38483, 22.38494, 22.38531, 22.38547, 22.38608, 22.38627, 22.3866, 22.38657, 
  22.38671, 22.38666, 22.38686, 22.3872, 22.38735, 22.38755, 22.38812, 22.38857, 22.3887, 22.38854, 
  22.38837, 22.38858, 22.38867, 22.38895, 22.38936, 22.38977, 22.3899, 22.38932, 22.38967, 22.38996, 
  22.3906, 22.39226, 22.3926, 22.39262, 22.39247, 22.39278, 22.39286, 22.39316, 22.39307, 22.39282, 
  22.39306, 22.39335, 22.39319, 22.39341, 22.39384, 22.39415, 22.39422, 22.39397, 22.39397, 22.3938, 
  22.39356, 22.39374, 22.39533, 22.39645, 22.39705, 22.39714, 22.39677, 22.39664, 22.39624, 22.39529, 
  22.39435, 22.39301, 22.39241, 22.39222, 22.3919, 22.39169, 22.39241, 22.39276, 22.39279, 22.39244, 
  22.39218, 22.39182, 22.39181, 22.39129, 22.39093, 22.39039, 22.39036, 22.3905, 22.39029, 22.39015, 
  22.39014, 22.38983, 22.38925, 22.38881, 22.38857, 22.38848, 22.38832, 22.38834, 22.38823, 22.38833, 
  22.38861, 22.38856, 22.38807, 22.38756, 22.38741, 22.38716, 22.38669, 22.3856, 22.38519, 22.38428, 
  22.38383, 22.38233, 22.38158, 22.38153, 22.3817, 22.38263, 22.38253, 22.38238, 22.38244, 22.38293, 
  22.38406, 22.38407, 22.38374, 22.3834, 22.38371, 22.38398, 22.38355, 22.38357, 22.38336, 22.3824, 
  22.38189, 22.38145, 22.38124, 22.37988, 22.37967, 22.37919, 22.37871, 22.37847, 22.37733, 22.37654, 
  22.3766, 22.37799, 22.37858, 22.37859, 22.37826, 22.37808, 22.37798, 22.3775, 22.37727, 22.37692, 
  22.37682, 22.37586, 22.37564, 22.37513, 22.37455, 22.37394, 22.37382, 22.37095, 22.37077, 22.37031, 
  22.37028, 22.36954, 22.36953, 22.36921, 22.36901, 22.36895, 22.36909, 22.36862, 22.36846, 22.36834, 
  22.36809, 22.36802, 22.36769, 22.36779, 22.36782, 22.36805, 22.36792, 22.36723, 22.36688, 22.36595, 
  22.36555, 22.3652, 22.36483, 22.36393, 22.36197, 22.36115, 22.36003, 22.35952, 22.35916, 22.3588, 
  22.35971, 22.35965, 22.35911, 22.35775, 22.35769, 22.35739, 22.35755, 22.35673, 22.35633, 22.35487, 
  22.3542, 22.35424, 22.35482, 22.35459, 22.35474, 22.35456, 22.35418, 22.35389, 22.35385, 22.35222, 
  22.3514, 22.35086, 22.35048, 22.35019, 22.34971, 22.34883, 22.34888, 22.34833, 22.34814, 22.34772, 
  22.34739, 22.34747, 22.3472, 22.34708, 22.3473, 22.34772, 22.34782, 22.34805, 22.34808, 22.34858, 
  22.34892, 22.34895, 22.35028, 22.35055, 22.35033, 22.35068, 22.35061, 22.35034, 22.35028, 22.35018, 
  22.35038, 22.3494, 22.34938, 22.34978, 22.34994, 22.35062, 22.35115, 22.35187, 22.35319, 22.35395, 
  22.35419, 22.35411, 22.35435, 22.35436, 22.35397, 22.3549, 22.35497, 22.35435, 22.35392, 22.35107, 
  22.35068, 22.35016, 22.34934, 22.34836, 22.34827, 22.34795, 22.34821, 22.34804, 22.34788, 22.34808, 
  22.34797, 22.34805, 22.3479, 22.34738, 22.34718, 22.34706, 22.34692, 22.34716, 22.34702, 22.34652, 
  22.34602, 22.34589, 22.34577, 22.34577, 22.34562, 22.34567, 22.34545, 22.34518, 22.34467, 22.34316, 
  22.3427, 22.3423, 22.34238, 22.34216, 22.34174, 22.34135, 22.34126, 22.3411, 22.34104, 22.34082, 
  22.34046, 22.33973, 22.3395, 22.33943, 22.33927, 22.33919, 22.33868, 22.33686, 22.33642, 22.33617, 
  22.33622, 22.33615, 22.33594, 22.33571, 22.33572, 22.33551, 22.33531, 22.33536, 22.33573, 22.33556, 
  22.3363, 22.33625, 22.33639, 22.33619, 22.33648, 22.33624, 22.33652, 22.33894, 22.33966, 22.34049, 
  22.34147, 22.34108, 22.34116, 22.34179, 22.34222, 22.34257, 22.34266, 22.34305, 22.34392, 22.34545, 
  22.34604, 22.3471, 22.34737, 22.34768, 22.34789, 22.34864, 22.34937, 22.35131, 22.35197, 22.35201, 
  22.35083, 22.35061, 22.34983, 22.34914, 22.34918, 22.349, 22.3491, 22.34911, 22.34976, 22.3502, 
  22.35035, 22.34983, 22.34978, 22.34949, 22.34956, 22.34978, 22.34978, 22.34997, 22.34998, 22.35007, 
  22.35018, 22.35077, 22.3508, 22.35049, 22.35063, 22.3508, 22.35104, 22.35111, 22.35073, 22.35093, 
  22.35111, 22.35136, 22.35156, 22.3518, 22.3526, 22.35269, 22.35318, 22.35355, 22.35348, 22.3538, 
  22.35355, 22.35365, 22.3539, 22.35433, 22.35457, 22.35493, 22.35501, 22.35487, 22.35451, 22.35372, 
  22.35371, 22.35409, 22.35418, 22.35387, 22.35403, 22.3539, 22.354, 22.35377, 22.3539, 22.35388, 
  22.35352, 22.35293, 22.3524, 22.35173, 22.35176, 22.3519, 22.35275, 22.35307, 22.35316, 22.35345, 
  22.35405, 22.35362, 22.35349, 22.35331, 22.35334, 22.35345, 22.35371, 22.35378, 22.35392, 22.35395, 
  22.35384, 22.354, 22.35446, 22.35447, 22.35474, 22.35512, 22.35536, 22.35567, 22.35584, 22.35572, 
  22.35586, 22.35584, 22.35591, 22.35566, 22.35577, 22.35612, 22.35588, 22.3562, 22.35619, 22.3563, 
  22.35638, 22.35658, 22.35664, 22.35721, 22.35778, 22.35778, 22.35793, 22.35743, 22.35751, 22.35732, 
  22.35735, 22.35786, 22.35786, 22.35765, 22.35771, 22.35799, 22.35835, 22.35904, 22.3592, 22.35911, 
  22.35944, 22.3597, 22.35946, 22.35972, 22.35961, 22.35942, 22.3596, 22.36347, 22.36347, 22.36319, 
  22.36321, 22.36297, 22.36293, 22.3634, 22.36487, 22.36498, 22.36551, 22.36573, 22.36599, 22.36608, 
  22.36645, 22.36682, 22.36687, 22.36645, 22.36718, 22.36787, 22.369, 22.36914, 22.36905, 22.36911, 
  22.36943, 22.36981, 22.36975, 22.36999, 22.37024, 22.37045, 22.37066, 22.37064, 22.37086, 22.3711, 
  22.37125, 22.37146, 22.37146, 22.37169, 22.372, 22.37224, 22.37226, 22.37236, 22.37244, 22.37257, 
  22.37333, 22.37444, 22.37476, 22.37431, 22.37389, 22.37405, 22.37389, 22.37396, 22.37386, 22.37384, 
  22.37371, 22.37373, 22.37418, 22.37407, 22.37412, 22.37409, 22.37419, 22.37432, 22.37428, 22.37443, 
  22.37456, 22.37459, 22.37541, 22.37584, 22.37585, 22.37548, 22.37525, 22.37522, 22.37496, 22.37493, 
  22.37475, 22.37462, 22.37439, 22.37419, 22.37389, 22.3734, 22.37331, 22.37315, 22.37296, 22.37294, 
  22.37276, 22.37226, 22.37223, 22.37207, 22.37163, 22.37113, 22.37122, 22.37095, 22.37099, 22.37073, 
  22.37069, 22.37054, 22.36997, 22.36934, 22.36929, 22.36921, 22.3687, 22.36868, 22.36788, 22.3679, 
  22.3677, 22.36737, 22.36636, 22.3664, 22.36621, 22.3657, 22.36572, 22.36564, 22.36581, 22.36607, 
  22.36585, 22.36579, 22.36554, 22.36547, 22.36501, 22.36504, 22.36532, 22.36564, 22.36578, 22.36585, 
  22.36587, 22.36574, 22.36575, 22.36581, 22.36579, 22.36586, 22.36624, 22.36635, 22.36652, 22.36641, 
  22.36625, 22.36624, 22.36604, 22.36582, 22.36592, 22.36632, 22.36679, 22.36699, 22.36707, 22.36712, 
  22.36723, 22.3673, 22.36792, 22.3677, 22.36784, 22.36741, 22.36739, 22.36749, 22.36758, 22.36811, 
  22.36824, 22.3683, 22.36861, 22.36875, 22.36906, 22.36948, 22.36993, 22.37067, 22.37097, 22.37077, 
  22.36993, 22.37028, 22.37081, 22.37152, 22.37192, 22.37211, 22.37243, 22.37334, 22.37375, 22.37393, 
  22.37436, 22.37471, 22.37459, 22.37497, 22.37524, 22.37526, 22.37568, 22.37599, 22.37625, 22.37667, 
  22.37671, 22.37694, 22.37683, 22.37718, 22.37731, 22.37738, 22.37699, 22.37683, 22.37706, 22.37692, 
  22.37661, 22.37646, 22.37642, 22.37649, 22.37677, 22.37667, 22.37672, 22.37662, 22.37678, 22.37648, 
  22.37636, 22.37642, 22.37682, 22.37716, 22.3769, 22.37672, 22.37675, 22.37689, 22.3769, 22.37739, 
  22.37719, 22.37686, 22.3767, 22.37676, 22.37676, 22.37686, 22.3768, 22.37686, 22.37703, 22.37711, 
  22.37712, 22.37725, 22.37735, 22.37748, 22.37764, 22.37784, 22.37778, 22.37785, 22.37784, 22.37802, 
  22.37814, 22.37821, 22.37837, 22.37837, 22.37875, 22.37913, 22.3791, 22.37938, 22.37956, 22.37956, 
  22.37948, 22.37952, 22.37977, 22.37996, 22.38008, 22.38023, 22.38038, 22.38031, 22.3802, 22.38024, 
  22.38061, 22.38067, 22.38088, 22.38088, 22.3811, 22.38137, 22.38125, 22.38136, 22.38159, 22.38155, 
  22.38179, 22.38187, 22.38207, 22.38233, 22.38253, 22.38304, 22.38306, 22.38326, 22.38337, 22.38358, 
  22.38372, 22.38387, 22.38382, 22.38423, 22.38441, 22.38461, 22.38493, 22.38495, 22.3852, 22.38532, 
  22.3856, 22.38601, 22.38653, 22.38757, 22.38761, 22.38774, 22.38748, 22.38746, 22.38771, 22.38792, 
  22.38821, 22.38814, 22.38829, 22.38829, 22.38851, 22.3886, 22.38882, 22.38882, 22.38898, 22.38881, 
  22.38916, 22.38928, 22.38906, 22.38916, 22.38928, 22.38941, 22.38931, 22.38947, 22.38978, 22.38987, 
  22.3899, 22.39001, 22.39015, 22.39036, 22.39064, 22.3906, 22.39033, 22.3903, 22.39007, 22.38975, 
  22.38969, 22.38934, 22.38949, 22.38943, 22.38933, 22.39093, 22.39177, 22.39152, 22.39272, 22.39281, 
  22.39369, 22.39393, 22.3941, 22.39449, 22.39513, 22.39532, 22.39552, 22.39616, 22.39598, 22.39619, 
  22.39602, 22.39619, 22.39602, 22.39619, 22.39585, 22.39645, 22.39704, 22.39696, 22.3965, 22.39656, 
  22.39745, 22.39809, 22.39815, 22.3983, 22.39826, 22.39838, 22.39821, 22.39833, 22.39814, 22.39798, 
  22.39799, 22.39731, 22.39706, 22.39686, 22.39701, 22.39753, 22.39823, 22.39823, 22.40018, 22.40028, 
  22.40036, 22.40056, 22.40044, 22.40051, 22.40047, 22.40052, 22.40084, 22.40129, 22.40132, 22.40122, 
  22.40128, 22.40099, 22.40078, 22.40101, 22.40119, 22.4013, 22.40153, 22.40159, 22.40176, 22.40165, 
  22.40172, 22.40194, 22.40201, 22.40214, 22.40218, 22.40241, 22.40243, 22.40271, 22.40306, 22.40343, 
  22.40344, 22.40333, 22.40333, 22.40305, 22.40326, 22.40353, 22.40375, 22.40383, 22.40403, 22.4041, 
  22.40422, 22.40425, 22.40461, 22.40491, 22.40458, 22.4046, 22.40524, 22.40525, 22.40537, 22.40556, 
  22.4059, 22.40581, 22.40614, 22.40639, 22.40681, 22.40725, 22.40722, 22.40778, 22.40905, 22.40972, 
  22.40996, 22.40923, 22.40925, 22.40917, 22.40928, 22.40956, 22.40972, 22.41008, 22.41024, 22.41045, 
  22.41056, 22.41085, 22.41108, 22.41137, 22.41189, 22.4136, 22.41462, 22.41581, 22.41724, 22.41702, 
  22.41686, 22.41678, 22.41679, 22.41695, 22.41686, 22.41707, 22.41743, 22.41741, 22.41784, 22.41778, 
  22.41813, 22.41818, 22.4186, 22.41858, 22.42008, 22.42054, 22.42076, 22.42051, 22.42044, 22.4201, 
  22.42017, 22.4201, 22.42013, 22.42003, 22.42011, 22.41987, 22.41972, 22.4198, 22.41968, 22.41993, 
  22.41971, 22.41992, 22.41994, 22.42008, 22.42009, 22.42043, 22.42041, 22.42013, 22.42002, 22.41986, 
  22.41924, 22.4192, 22.41906, 22.4188, 22.41868, 22.41851, 22.41835, 22.4182, 22.41816, 22.41781, 
  22.41756, 22.41715, 22.417, 22.41671, 22.41655, 22.41614, 22.416, 22.4153, 22.41531, 22.41484, 
  22.41497, 22.41423, 22.41422, 22.4141, 22.41385, 22.41361, 22.41248, 22.41146, 22.4115, 22.41166, 
  22.41226, 22.41267, 22.41281, 22.41261, 22.41269, 22.41213, 22.41207, 22.41171, 22.41228, 22.41211, 
  22.41209, 22.41201, 22.41215, 22.41208, 22.41224, 22.4126, 22.41328, 22.41297, 22.41326, 22.41261, 
  22.41257, 22.41261, 22.41282, 22.41339, 22.41343, 22.41425, 22.41471, 22.41495, 22.4151, 22.41531, 
  22.41563, 22.41578, 22.41565, 22.41576, 22.41641, 22.41679, 22.41629, 22.41698, 22.41738, 22.41715, 
  22.41729, 22.41729, 22.41754, 22.41764, 22.41791, 22.41836, 22.41887, 22.41952, 22.41977, 22.41985, 
  22.41962, 22.41992, 22.41993, 22.42046, 22.42053, 22.42067, 22.42061, 22.42073, 22.42062, 22.42071, 
  22.42095, 22.42099, 22.42113, 22.42105, 22.42191, 22.42243, 22.42274, 22.42308, 22.42316, 22.42396, 
  22.42462, 22.42457, 22.42476, 22.42516, 22.42538, 22.42581, 22.42603, 22.42617, 22.42632, 22.42641, 
  22.42654, 22.42649, 22.42672, 22.42703, 22.42708, 22.42701, 22.42729, 22.42799, 22.42821, 22.42827, 
  22.42841, 22.42862, 22.42883, 22.42882, 22.42906, 22.4292, 22.42975, 22.42993, 22.42991, 22.43016, 
  22.43013, 22.4303, 22.43065, 22.43071, 22.43053, 22.43057, 22.43077, 22.43081, 22.43059, 22.43053, 
  22.43064, 22.4308, 22.43084, 22.43112, 22.43123, 22.43115, 22.43149, 22.43146, 22.43172, 22.43186, 
  22.43199, 22.43213, 22.4326, 22.43293, 22.43345, 22.43331, 22.43347, 22.4337, 22.43374, 22.43414, 
  22.43439, 22.43384, 22.43377, 22.43397, 22.43415, 22.43427, 22.43445, 22.43421, 22.43418, 22.43433, 
  22.43454, 22.43474, 22.43499, 22.43521, 22.43532, 22.43553, 22.43576, 22.43595, 22.43616, 22.43619, 
  22.43641, 22.43636, 22.43623, 22.43647, 22.43643, 22.43622, 22.43625, 22.43616, 22.43623, 22.43621, 
  22.43627, 22.43606, 22.43611, 22.43591, 22.43584, 22.43564, 22.43556, 22.43514, 22.43512, 22.43572, 
  22.436, 22.43641, 22.4366, 22.43703, 22.43721, 22.43718, 22.43741, 22.4375, 22.43794, 22.4381, 
  22.43861, 22.43887, 22.43885, 22.43849, 22.43827, 22.43822, 22.43709, 22.43705, 22.43717, 22.43737, 
  22.43752, 22.43824, 22.43838, 22.43883, 22.43937, 22.43976, 22.44022, 22.44036, 22.4405, 22.44064, 
  22.44076, 22.44089, 22.44098, 22.44108, 22.44125, 22.44127, 22.44114, 22.44092, 22.44068, 22.44042, 
  22.44035, 22.44025, 22.44009, 22.43977, 22.43966, 22.43955, 22.43921, 22.43917, 22.43914, 22.43918, 
  22.43894, 22.43897, 22.43885, 22.43885, 22.43869, 22.43873, 22.43869, 22.43912, 22.4391, 22.43891, 
  22.43883, 22.43854, 22.43842, 22.43827, 22.4382, 22.43827, 22.43797, 22.43762, 22.43713, 22.43637, 
  22.4364, 22.43729, 22.43788, 22.43831, 22.43849, 22.43865, 22.43865, 22.43892, 22.43872, 22.43883, 
  22.43869, 22.43849, 22.43864, 22.43886, 22.43838, 22.43805, 22.43818, 22.43806, 22.43801, 22.43802, 
  22.43707, 22.43741, 22.43816, 22.4393, 22.44077, 22.44101, 22.44259, 22.44415, 22.44497, 22.44756, 
  22.44801, 22.44852, 22.44962, 22.45186, 22.4537, 22.45476, 22.45546, 22.45679, 22.45839, 22.45917, 
  22.45952, 22.46089, 22.46059, 22.45998, 22.45953, 22.4569, 22.45532, 22.4543, 22.45395, 22.45306, 
  22.45264, 22.45178, 22.45148, 22.45249, 22.45168, 22.45127, 22.45045, 22.44998, 22.4499, 22.4499, 
  22.44943, 22.45067, 22.45028, 22.44904, 22.44881, 22.44852, 22.44787, 22.44772, 22.44684, 22.44616, 
  22.4456, 22.44531, 22.4451, 22.44493, 22.44492, 22.44509, 22.44499, 22.44511, 22.44565, 22.44594, 
  22.44606, 22.44591, 22.44544, 22.44525, 22.44412, 22.44348, 22.4433, 22.44306, 22.44264, 22.44243, 
  22.44211, 22.44171, 22.44105, 22.44067, 22.43984, 22.43969, 22.43957, 22.43916, 22.43894, 22.43759, 
  22.43735, 22.43627, 22.4352, 22.43461, 22.43411, 22.43372, 22.43245, 22.43196, 22.43139, 22.43082, 
  22.42992, 22.42891, 22.42842, 22.42792, 22.42771, 22.42758, 22.42681, 22.4265, 22.42568, 22.42492, 
  22.42496, 22.42481, 22.42494, 22.42463, 22.42427, 22.42393, 22.4234, 22.42315, 22.4228, 22.42229, 
  22.42247, 22.42195, 22.42231, 22.42232, 22.4225, 22.42272, 22.42204, 22.4225, 22.42216, 22.42264, 
  22.42182, 22.42382, 22.42382, 22.4234, 22.42488, 22.42567, 22.42628, 22.42661, 22.42794, 22.42869, 
  22.42905, 22.43028, 22.43067, 22.43143, 22.43282, 22.43331, 22.43525, 22.43556, 22.43638, 22.43681, 
  22.43788, 22.43823, 22.43912, 22.43934, 22.43908, 22.43831, 22.43803, 22.43706, 22.43599, 22.43537, 
  22.43448, 22.43411, 22.43388, 22.43354, 22.43314, 22.43272, 22.43247, 22.4323, 22.43209, 22.43188, 
  22.43172, 22.43144, 22.43118, 22.43101, 22.43129, 22.43109, 22.43116, 22.43161, 22.43181, 22.43185, 
  22.43173, 22.43135, 22.4309, 22.42989, 22.42941, 22.42918, 22.42898, 22.42866, 22.42872, 22.42861, 
  22.42843, 22.42833, 22.42813, 22.42806, 22.42809, 22.42791, 22.42854, 22.42815, 22.42813, 22.42768, 
  22.42782, 22.42795, 22.42822, 22.4288, 22.42868, 22.42913, 22.43004, 22.43072, 22.43178, 22.4324, 
  22.43316, 22.43319, 22.4337, 22.43513, 22.43596, 22.437, 22.43761, 22.43782, 22.43862, 22.43906, 
  22.43927, 22.43879, 22.4385, 22.4386, 22.43875, 22.43944, 22.43953, 22.43979, 22.44001, 22.44005, 
  22.44034, 22.4407, 22.44132, 22.44121, 22.44088, 22.44083, 22.44111, 22.44096, 22.44036, 22.4404, 
  22.44167, 22.44175, 22.4442, 22.44437, 22.44476, 22.44547, 22.44663, 22.44692, 22.44722, 22.44712, 
  22.44757, 22.44794, 22.44825, 22.44863, 22.44885, 22.44905, 22.44984, 22.4502, 22.45176, 22.45361, 
  22.45402, 22.45543, 22.45554, 22.457, 22.45718, 22.4579, 22.45829, 22.45868, 22.45971, 22.46248, 
  22.463, 22.46314, 22.46273, 22.4623, 22.46121, 22.46047, 22.46066, 22.46144, 22.46149, 22.46136, 
  22.46156, 22.46199, 22.46248, 22.46277, 22.46348, 22.46412, 22.46505, 22.46565, 22.4661, 22.46651, 
  22.46675, 22.46754, 22.46842, 22.46917, 22.47055, 22.47144, 22.47194, 22.47215, 22.47263, 22.47323, 
  22.47374, 22.47441, 22.47537, 22.47604, 22.47691, 22.47712, 22.47828, 22.47889, 22.47895, 22.47792, 
  22.47611, 22.47546, 22.47508, 22.47511, 22.47493, 22.47452, 22.47406, 22.47387, 22.47314, 22.4727, 
  22.47201, 22.47166, 22.47009, 22.46961, 22.46851, 22.46714, 22.46682, 22.46684, 22.46653, 22.4666, 
  22.46632, 22.46525, 22.46491, 22.46328, 22.4625, 22.46255, 22.46294, 22.46339, 22.46322, 22.4627, 
  22.46214, 22.46231, 22.46284, 22.46343, 22.4639, 22.46398, 22.46382, 22.4628, 22.46243, 22.46171, 
  22.46132, 22.46193, 22.46232, 22.46296, 22.46583, 22.46596, 22.46633, 22.46689, 22.46828, 22.46832, 
  22.46879, 22.46914, 22.46943, 22.46987, 22.47086, 22.47061, 22.47009, 22.47016, 22.46989, 22.47, 
  22.47046, 22.47133, 22.47195, 22.47311, 22.47355, 22.47395, 22.47418, 22.47398, 22.47338, 22.47281, 
  22.47223, 22.47132, 22.47122, 22.47159, 22.47141, 22.47184, 22.47269, 22.47326, 22.4735, 22.47342, 
  22.47503, 22.47608, 22.47684, 22.4787, 22.47944, 22.47978, 22.48011, 22.48033, 22.48071, 22.48065, 
  22.47976, 22.47947, 22.47835, 22.47804, 22.47699, 22.47671, 22.47675, 22.47735, 22.47709, 22.47549, 
  22.47508, 22.47496, 22.474, 22.47345, 22.47295, 22.47257, 22.47198, 22.47204, 22.47169, 22.47146, 
  22.47163, 22.47085, 22.46929, 22.4677, 22.46609, 22.46552, 22.46511, 22.46464, 22.46418, 22.46382, 
  22.46254, 22.4629, 22.46323, 22.46305, 22.46259, 22.46213, 22.46158, 22.46139, 22.46065, 22.46034, 
  22.46012, 22.46004, 22.45982, 22.46007, 22.45996, 22.45972, 22.45951, 22.4592, 22.45898, 22.45871, 
  22.4585, 22.45759, 22.4572, 22.45671, 22.45562, 22.45537, 22.45528, 22.45482, 22.45472, 22.45438, 
  22.45463, 22.45456, 22.45481, 22.45471, 22.4547, 22.45512, 22.45537, 22.45575, 22.45595, 22.4561, 
  22.45654, 22.45666, 22.45669, 22.45624, 22.45628, 22.45616, 22.45582, 22.45608, 22.4563, 22.45629, 
  22.45668, 22.45663, 22.45624, 22.45733, 22.45806, 22.45812, 22.45826, 22.45847, 22.45827, 22.45802, 
  22.45695, 22.45497, 22.45401, 22.45274, 22.45225, 22.4518, 22.45072, 22.45039, 22.44985, 22.44962, 
  22.44941, 22.44968, 22.45004, 22.4509, 22.45101, 22.45247, 22.45326, 22.45379, 22.45389, 22.45358, 
  22.4523, 22.4521, 22.45219, 22.45194, 22.45106, 22.44891, 22.44726, 22.44658, 22.44596, 22.44497, 
  22.44501, 22.44426, 22.44359, 22.44296, 22.44287, 22.44309, 22.44435, 22.44398, 22.44401, 22.44372, 
  22.44362, 22.44339, 22.44329, 22.4434, 22.44379, 22.44367, 22.4438, 22.44357, 22.44192, 22.44169, 
  22.44091, 22.44081, 22.44055, 22.44055, 22.43904, 22.43821, 22.43795, 22.43786, 22.43689, 22.43645, 
  22.43569, 22.43526, 22.43302, 22.43171, 22.43132, 22.43092, 22.43041, 22.42944, 22.4296, 22.42941, 
  22.42932, 22.42903, 22.42918, 22.42888, 22.42877, 22.42858, 22.42857, 22.42795, 22.42797, 22.427, 
  22.4268, 22.4271, 22.42619, 22.42569, 22.42549, 22.42526, 22.42512, 22.42429, 22.4236, 22.42308, 
  22.42262, 22.42068, 22.41903, 22.41852, 22.4182, 22.41659, 22.41635, 22.41515, 22.41481, 22.41419, 
  22.41397, 22.41342, 22.41324, 22.41287, 22.41204, 22.41172, 22.41157, 22.41131, 22.41117, 22.40965, 
  22.40932, 22.409, 22.40936, 22.41047, 22.41207, 22.41287, 22.41304, 22.41324, 22.41368, 22.41447, 
  22.41562, 22.41615, 22.41665, 22.41687, 22.41804, 22.41874, 22.41935, 22.42108, 22.42155, 22.42167, 
  22.42131, 22.42147, 22.42222, 22.42227, 22.42281, 22.42362, 22.42389, 22.4243, 22.42485, 22.42521, 
  22.42553, 22.42586, 22.42641, 22.42666, 22.42673, 22.42718, 22.42756, 22.42775, 22.42814, 22.42833, 
  22.42873, 22.42901, 22.4291, 22.43011, 22.43066, 22.43123, 22.43141, 22.43174, 22.43199, 22.43265, 
  22.43353, 22.43392, 22.43409, 22.43368, 22.43332, 22.43354, 22.43338, 22.43357, 22.43351, 22.4338, 
  22.43368, 22.43374, 22.4335, 22.43366, 22.43367, 22.43373, 22.43392, 22.43391, 22.43382, 22.43358, 
  22.43364, 22.43336, 22.43314, 22.43306, 22.43275, 22.43289, 22.43256, 22.43266, 22.43233, 22.4325, 
  22.43243, 22.43267, 22.43257, 22.43249, 22.43229, 22.43191, 22.43184, 22.43172, 22.4316, 22.43134, 
  22.43117, 22.43099, 22.43098, 22.43092, 22.43124, 22.43141, 22.43231, 22.43274, 22.43317, 22.43323, 
  22.4335, 22.43369, 22.43406, 22.43454, 22.43463, 22.43447, 22.43319, 22.43333, 22.43278, 22.4325, 
  22.43215, 22.43177, 22.43123, 22.43079, 22.43095, 22.4313, 22.43143, 22.43273, 22.43351, 22.43374, 
  22.4338, 22.43431, 22.43481, 22.43507, 22.43579, 22.43626, 22.43641, 22.43608, 22.43568, 22.43573, 
  22.43559, 22.43691, 22.43692, 22.43736, 22.43741, 22.43696, 22.43709, 22.437, 22.43678, 22.43646, 
  22.43624, 22.43576, 22.43562, 22.43546, 22.43471, 22.43443, 22.43325, 22.43166, 22.43111, 22.43084, 
  22.43014, 22.42942, 22.42881, 22.42786, 22.42752, 22.42743, 22.42732, 22.42716, 22.42724, 22.42826, 
  22.42826, 22.42783, 22.42718, 22.42629, 22.4256, 22.42488, 22.42392, 22.42302, 22.42214, 22.42117, 
  22.42034, 22.41885, 22.41816, 22.4166, 22.41509, 22.41102, 22.40974, 22.4085, 22.40722, 22.4081, 
  22.41099, 22.41495, 22.41728, 22.41839, 22.42141, 22.42251, 22.4237, 22.42494, 22.42613, 22.42709, 
  22.43298, 22.43534, 22.43579, 22.4362, 22.43698, 22.43891, 22.43955, 22.44003, 22.44009, 22.44008, 
  22.43952, 22.43936, 22.43973, 22.43966, 22.44057, 22.44112, 22.44088, 22.44135, 22.44231, 22.44295, 
  22.44462, 22.44481, 22.44507, 22.44526, 22.44516, 22.44539, 22.44638, 22.44646, 22.44714, 22.44769, 
  22.44815, 22.4484, 22.4493, 22.44931, 22.44956, 22.44998, 22.4505, 22.4516, 22.45202, 22.45236, 
  22.45256, 22.45255, 22.45099, 22.45076, 22.45107, 22.45129, 22.45181, 22.45219, 22.45277, 22.4537, 
  22.45496, 22.45726, 22.45749, 22.45748, 22.45819, 22.45862, 22.4593, 22.45964, 22.45967, 22.4598, 
  22.45965, 22.45883, 22.45925, 22.45883, 22.45887, 22.45843, 22.45842, 22.4575, 22.45715, 22.45685, 
  22.45653, 22.45644, 22.45671, 22.45662, 22.45702, 22.45702, 22.45718, 22.45721, 22.45692, 22.45665, 
  22.45569, 22.45534, 22.45463, 22.45424, 22.45401, 22.45343, 22.45275, 22.45225, 22.45164, 22.45089, 
  22.45059, 22.45026, 22.44983, 22.4494, 22.44948, 22.44912, 22.44915, 22.44869, 22.44877, 22.4489, 
  22.44888, 22.44896, 22.44856, 22.44876, 22.44835, 22.44792, 22.44739, 22.44727, 22.44713, 22.44757, 
  22.4479, 22.44848, 22.44884, 22.44947, 22.44971, 22.44971, 22.44928, 22.44897, 22.44916, 22.44908, 
  22.44928, 22.44964, 22.44988, 22.45021, 22.45024, 22.45005, 22.44992, 22.44964, 22.44923, 22.44876, 
  22.44879, 22.44926, 22.44985, 22.45044, 22.45075, 22.45063, 22.4514, 22.45306, 22.45325, 22.45379, 
  22.45519, 22.4561, 22.45704, 22.45747, 22.45773, 22.45777, 22.45879, 22.45876, 22.45852, 22.45791, 
  22.45625, 22.45594, 22.45559, 22.45489, 22.45372, 22.45263, 22.45235, 22.45199, 22.45153, 22.4505, 
  22.4503, 22.45034, 22.45003, 22.45022, 22.45024, 22.45123, 22.45134, 22.45207, 22.45263, 22.45366, 
  22.45392, 22.45483, 22.45518, 22.45531, 22.45538, 22.45563, 22.45547, 22.45552, 22.45595, 22.45619, 
  22.45629, 22.45633, 22.45656, 22.45713, 22.45763, 22.45766, 22.45739, 22.45724, 22.45746, 22.45771, 
  22.45803, 22.45821, 22.45868, 22.45842, 22.45856, 22.45859, 22.45892, 22.45926, 22.46111, 22.46144, 
  22.46215, 22.46231, 22.46234, 22.46309, 22.46338, 22.46383, 22.46406, 22.46463, 22.46518, 22.46693, 
  22.46707, 22.46771, 22.46846, 22.46857, 22.46919, 22.46921, 22.46979, 22.46991, 22.47015, 22.47025, 
  22.47059, 22.47062, 22.47083, 22.47075, 22.47078, 22.47138, 22.47136, 22.47178, 22.47195, 22.47227, 
  22.47261, 22.47327, 22.47318, 22.473, 22.47313, 22.47361, 22.47324, 22.47263, 22.47131, 22.47055, 
  22.47033, 22.47013, 22.46976, 22.46929, 22.46903, 22.46865, 22.46828, 22.46788, 22.46801, 22.46809, 
  22.4678, 22.4678, 22.46803, 22.46824, 22.46817, 22.46884, 22.46891, 22.46876, 22.46857, 22.46836, 
  22.46836, 22.46833, 22.4685, 22.46891, 22.46917, 22.46963, 22.46987, 22.47034, 22.47121, 22.47077, 
  22.4709, 22.47033, 22.47147, 22.47185, 22.4723, 22.47213, 22.47169, 22.47147, 22.47093, 22.4697, 
  22.46941, 22.46914, 22.46882, 22.46884, 22.46904, 22.46852, 22.46836, 22.46827, 22.46779, 22.46766, 
  22.46761, 22.46794, 22.46786, 22.45505, 22.45466, 22.45373, 22.4532, 22.45249, 22.45153, 22.44984, 
  22.44967, 22.44973, 22.45029, 22.45126, 22.45265, 22.45266, 22.45249, 22.45261, 22.45331, 22.45349, 
  22.45338, 22.45359, 22.453, 22.45265, 22.453, 22.45306, 22.45294, 22.45346, 22.45383, 22.45387, 
  22.45454, 22.45526, 22.45572, 22.45573, 22.4555, 22.45554, 22.45683, 22.45684, 22.45725, 22.46051, 
  22.46096, 22.46192, 22.4625, 22.46253, 22.46332, 22.46523, 22.46547, 22.46574, 22.46705, 22.46734, 
  22.46855, 22.46885, 22.46884, 22.46784, 22.46761, 22.46714, 22.46735, 22.46805, 22.46875, 22.4689, 
  22.47103, 22.47146, 22.47056, 22.47063, 22.47044, 22.47368, 22.47393, 22.47468, 22.47417, 22.47455, 
  22.47512, 22.4753, 22.47516, 22.47613, 22.47776, 22.47874, 22.479, 22.47875, 22.47938, 22.47939, 
  22.48038, 22.48071, 22.48171, 22.48211, 22.48346, 22.48445, 22.48569, 22.48603, 22.48592, 22.48574, 
  22.48604, 22.48633, 22.48652, 22.48686, 22.48697, 22.48726, 22.48806, 22.4886, 22.48875, 22.48834, 
  22.48841, 22.48879, 22.48937, 22.48991, 22.48986, 22.49, 22.48971, 22.48888, 22.48843, 22.4878, 
  22.48741, 22.4874, 22.48804, 22.48841, 22.48883, 22.48885, 22.48951, 22.49001, 22.49171, 22.49203, 
  22.49157, 22.4916, 22.49234, 22.49283, 22.49406, 22.49479, 22.49492, 22.49524, 22.49589, 22.49643, 
  22.49672, 22.49682, 22.49678, 22.49662, 22.49697, 22.49703, 22.49719, 22.49742, 22.49843, 22.49923, 
  22.50071, 22.50057, 22.50061, 22.50051, 22.50053, 22.50051, 22.50099, 22.50104, 22.50156, 22.50162, 
  22.50178, 22.50186, 22.5021, 22.50239, 22.50272, 22.50331, 22.50345, 22.50332, 22.50374, 22.50407, 
  22.50537, 22.50692, 22.5073, 22.50816, 22.50931, 22.50959, 22.50999, 22.51042, 22.51135, 22.51122, 
  22.51055, 22.50979, 22.5095, 22.50888, 22.5078, 22.50741, 22.50713, 22.5071, 22.5065, 22.50603, 
  22.5059, 22.50595, 22.5059, 22.50535, 22.50489, 22.50466, 22.50447, 22.50417, 22.50387, 22.50372, 
  22.50363, 22.50382, 22.50386, 22.50437, 22.50428, 22.50375, 22.50387, 22.50422, 22.50415, 22.50339, 
  22.50287, 22.50275, 22.50283, 22.5026, 22.50266, 22.50245, 22.50188, 22.50117, 22.50158, 22.5014, 
  22.50093, 22.5003, 22.50031, 22.49971, 22.49941, 22.49882, 22.49835, 22.49818, 22.4987, 22.49949, 
  22.49988, 22.50085, 22.50123, 22.50131, 22.50109, 22.50115, 22.5015, 22.5019, 22.50241, 22.50242, 
  22.50276, 22.50253, 22.50237, 22.50249, 22.50256, 22.50289, 22.50335, 22.50389, 22.50413, 22.50481, 
  22.50477, 22.50499, 22.50491, 22.50538, 22.5053, 22.50532, 22.50495, 22.50463, 22.50426, 22.50396, 
  22.50426, 22.50407, 22.5045, 22.50508, 22.50583, 22.5063, 22.50808, 22.50857, 22.50846, 22.50718, 
  22.50689, 22.50764, 22.50778, 22.50768, 22.50803, 22.50882, 22.50902, 22.50899, 22.50834, 22.50797, 
  22.50744, 22.50721, 22.50689, 22.50639, 22.506, 22.50583, 22.50577, 22.5055, 22.50444, 22.50436, 
  22.50478, 22.50508, 22.50511, 22.50504, 22.50554, 22.50595, 22.50644, 22.50666, 22.5064, 22.50607, 
  22.50608, 22.50583, 22.506, 22.50657, 22.50739, 22.50806, 22.5093, 22.50928, 22.50862, 22.50834, 
  22.50874, 22.50813, 22.5082, 22.50846, 22.50923, 22.50932, 22.50893, 22.50981, 22.50959, 22.50965, 
  22.50909, 22.50961, 22.51022, 22.51047, 22.51063, 22.51104, 22.51093, 22.51071, 22.51103, 22.51155, 
  22.51155, 22.51039, 22.51034, 22.51078, 22.51066, 22.51051, 22.51062, 22.51052, 22.50999, 22.51062, 
  22.51042, 22.51053, 22.51021, 22.50974, 22.50927, 22.50902, 22.50896, 22.50986, 22.51017, 22.51, 
  22.50973, 22.50917, 22.50874, 22.5083, 22.50791, 22.508, 22.50792, 22.50824, 22.50792, 22.50826, 
  22.50829, 22.50875, 22.50846, 22.50875, 22.50918, 22.50945, 22.50938, 22.50888, 22.5087, 22.50885, 
  22.50935, 22.51029, 22.51082, 22.51084, 22.51138, 22.51144, 22.51172, 22.51162, 22.51197, 22.51255, 
  22.51246, 22.51306, 22.51306, 22.51329, 22.51327, 22.51345, 22.51348, 22.51342, 22.51327, 22.51315, 
  22.51314, 22.51287, 22.51276, 22.51281, 22.51293, 22.51321, 22.51346, 22.51354, 22.51374, 22.51382, 
  22.514, 22.51503, 22.51528, 22.51522, 22.5153, 22.51566, 22.5159, 22.5157, 22.51572, 22.51632, 
  22.51658, 22.51694, 22.51709, 22.51743, 22.51751, 22.51733, 22.51735, 22.5169, 22.51623, 22.51629, 
  22.51637, 22.51624, 22.51556, 22.51533, 22.51453, 22.51376, 22.51333, 22.51345, 22.51425, 22.51446, 
  22.51506, 22.51527, 22.51518, 22.51524, 22.51622, 22.5171, 22.5182, 22.51853, 22.51859, 22.51809, 
  22.51813, 22.51853, 22.51977, 22.52035, 22.52034, 22.52089, 22.52127, 22.52185, 22.52218, 22.52372, 
  22.5238, 22.5241, 22.5247, 22.52525, 22.5254, 22.52562, 22.5255, 22.52519, 22.5248, 22.52434, 
  22.52406, 22.52399, 22.52427, 22.52452, 22.52471, 22.5248, 22.52468, 22.52426, 22.52404, 22.52376, 
  22.52315, 22.52283, 22.52246, 22.52189, 22.52201, 22.52236, 22.52273, 22.52292, 22.52341, 22.52324, 
  22.52344, 22.52373, 22.52441, 22.52467, 22.52479, 22.52615, 22.52686, 22.52738, 22.52816, 22.52825, 
  22.52851, 22.52869, 22.52897, 22.52905, 22.52873, 22.52875, 22.52853, 22.52839, 22.52873, 22.52903, 
  22.52951, 22.52965, 22.5294, 22.52882, 22.52844, 22.52814, 22.52813, 22.52797, 22.52723, 22.52687, 
  22.52666, 22.5268, 22.52648, 22.52535, 22.52577, 22.52582, 22.5262, 22.52727, 22.52731, 22.52707, 
  22.52706, 22.52664, 22.52629, 22.52582, 22.52531, 22.52545, 22.52571, 22.52569, 22.5253, 22.52492, 
  22.52473, 22.52466, 22.52484, 22.52539, 22.52572, 22.52648, 22.52684, 22.52714, 22.52725, 22.52747, 
  22.52759, 22.52803, 22.52823, 22.52859, 22.53003, 22.53082, 22.53269, 22.53326, 22.53414, 22.53689, 
  22.53704, 22.53677, 22.53688, 22.53668, 22.53668, 22.53603, 22.5353, 22.53519, 22.53391, 22.53383, 
  22.53387, 22.53413, 22.53545, 22.53593, 22.53645, 22.53725, 22.53792, 22.5384, 22.53893, 22.53949, 
  22.54021, 22.54042, 22.54061, 22.54067, 22.54065, 22.54016, 22.54006, 22.53962, 22.53939, 22.53929, 
  22.53913, 22.53908, 22.53895, 22.53877, 22.53853, 22.53832, 22.53811, 22.53796, 22.53843, 22.53872, 
  22.53919, 22.5396, 22.53979, 22.54022, 22.54073, 22.54129, 22.54157, 22.54331, 22.54343, 22.54359, 
  22.54349, 22.54416, 22.54429, 22.54451, 22.54466, 22.54472, 22.54464, 22.54489, 22.54536, 22.54589, 
  22.54605, 22.54655, 22.54726, 22.54746, 22.54766, 22.54774, 22.5477, 22.54783, 22.54803, 22.54882, 
  22.54899, 22.54904, 22.54868, 22.54861, 22.54806, 22.5479, 22.54816, 22.54913, 22.54936, 22.54932, 
  22.54949, 22.54949, 22.54919, 22.54862, 22.54791, 22.54744, 22.54581, 22.54539, 22.54522, 22.54474, 
  22.54507, 22.54531, 22.54588, 22.5463, 22.54661, 22.54789, 22.5476, 22.54818, 22.54806, 22.54782, 
  22.54771, 22.54785, 22.54781, 22.54656, 22.54631, 22.54568, 22.54575, 22.54559, 22.54504, 22.54481, 
  22.54463, 22.54629, 22.54651, 22.54767, 22.54806, 22.54869, 22.54934, 22.54953, 22.54945, 22.54966, 
  22.54963, 22.54912, 22.54884, 22.54831, 22.54722, 22.54664, 22.54644, 22.54609, 22.54593, 22.54603, 
  22.5477, 22.54816, 22.54827, 22.54866, 22.54888, 22.5491, 22.54925, 22.54941, 22.54957, 22.54995, 
  22.55011, 22.55021, 22.5504, 22.55032, 22.55019, 22.55011, 22.54997, 22.54989, 22.54971, 22.54958, 
  22.5494, 22.5492, 22.54892, 22.54852, 22.54854, 22.54788, 22.5467, 22.54622, 22.5452, 22.54504, 
  22.54474, 22.5443, 22.5442, 22.54373, 22.54313, 22.54294, 22.54223, 22.54122, 22.54098, 22.54068, 
  22.54038, 22.53915, 22.53852, 22.53781, 22.53652, 22.53602, 22.53474, 22.53418, 22.53365, 22.53231, 
  22.53176, 22.53201, 22.5336, 22.53394, 22.53391, 22.53372, 22.53287, 22.53098, 22.52994, 22.52993, 
  22.53014, 22.53071, 22.52953, 22.5292, 22.52895, 22.52862, 22.52873, 22.52863, 22.52917, 22.52984, 
  22.53042, 22.53078, 22.53059, 22.53008, 22.52961, 22.52903, 22.52816, 22.5281, 22.5283, 22.52868, 
  22.52806, 22.52772, 22.52747, 22.52687, 22.526, 22.52524, 22.52412, 22.5246, 22.52523, 22.52567, 
  22.52683, 22.52715, 22.52738, 22.52713, 22.52657, 22.52647, 22.52595, 22.52549, 22.52571, 22.52581, 
  22.5256, 22.5249, 22.52487, 22.52446, 22.52446, 22.52422, 22.52504, 22.52526, 22.52648, 22.52683, 
  22.52714, 22.52755, 22.5276, 22.52785, 22.52777, 22.52796, 22.52815, 22.52828, 22.5285, 22.52888, 
  22.52939, 22.53033, 22.53056, 22.53102, 22.53182, 22.5319, 22.53184, 22.53226, 22.53345, 22.53453, 
  22.53509, 22.53544, 22.53578, 22.53549, 22.53555, 22.53498, 22.53457, 22.53417, 22.53409, 22.53621, 
  22.53804, 22.53828, 22.53912, 22.53973, 22.54031, 22.54119, 22.54157, 22.54267, 22.54278, 22.54348, 
  22.54424, 22.54472, 22.54389, 22.54373, 22.54419, 22.54421, 22.54425, 22.54466, 22.54457, 22.5436, 
  22.54341, 22.54302, 22.54298, 22.54367, 22.54374, 22.54411, 22.5442, 22.5452, 22.54531, 22.54604, 
  22.54704, 22.54802, 22.5482, 22.54851, 22.54939, 22.55018, 22.55089, 22.55097, 22.55101, 22.55099, 
  22.55095, 22.55128, 22.55162, 22.55163, 22.55172, 22.55194, 22.55227, 22.55257, 22.55308, 22.55369, 
  22.5536, 22.55376, 22.55443, 22.5546, 22.55487, 22.55605, 22.55585, 22.55575, 22.55539, 22.55525, 
  22.5551, 22.5553, 22.55532, 22.55504, 22.5549, 22.5549, 22.55481, 22.55481, 22.55494, 22.555, 
  22.5551, 22.55535, 22.55557, 22.55563, 22.55575, 22.55596, 22.5561, 22.55625, 22.55648, 22.55591, 
  22.55641, 22.55644, 22.55694, 22.5561, 22.5567, 22.5572, 22.55746, 22.55751, 22.55742, 22.55695, 
  22.55671, 22.55663, 22.55697, 22.55684, 22.55592, 22.55538, 22.55534, 22.55546, 22.55604, 22.55598, 
  22.55524, 22.55485, 22.55439, 22.55421, 22.55482, 22.55525, 22.55561, 22.55567, 22.55561, 22.55548, 
  22.55472, 22.55463, 22.55524, 22.55545, 22.55513, 22.5542, 22.55412, 22.55568, 22.5582, 22.5595, 
  22.5597, 22.56009, 22.55998, 22.55959, 22.55964, 22.55991, 22.56028, 22.56083, 22.56101, 22.56122, 
  22.5613, 22.56124, 22.56098, 22.55995, 22.5592, 22.55912, 22.55917, 22.55935, 22.56133, 22.56182, 
  22.56198, 22.56184, 22.56135, 22.56017, 22.55942, 22.5591, 22.5562, 22.55541, 22.55508, 22.55501, 
  22.55519, 22.55519, 22.55497, 22.55471, 22.5544, 22.55436, 22.55446, 22.55447, 22.55483, 22.55484, 
  22.55479, 22.55467, 22.55432, 22.55315, 22.55286, 22.55195, 22.55163, 22.55128, 22.55098, 22.55083, 
  22.55069, 22.55042, 22.55009, 22.5492, 22.54857, 22.54833, 22.54806, 22.54787, 22.54783, 22.54813, 
  22.54811, 22.54785, 22.54757, 22.54722, 22.54672, 22.54631, 22.54634, 22.54625, 22.54597, 22.54552, 
  22.5442, 22.54329, 22.54303, 22.5424, 22.5421, 22.54183, 22.54175, 22.54117, 22.54117, 22.54127, 
  22.54203, 22.54212, 22.54288, 22.54294, 22.54354, 22.54353, 22.54285, 22.54185, 22.54151, 22.54148, 
  22.54199, 22.54185, 22.54095, 22.5402, 22.53979, 22.53966, 22.53985, 22.53965, 22.53778, 22.53495, 
  22.53444, 22.53391, 22.53327, 22.53144, 22.5307, 22.52958, 22.52985, 22.53059, 22.53334, 22.53373, 
  22.53515, 22.53515, 22.53415, 22.53412, 22.5346, 22.53608, 22.53663, 22.53689, 22.53702, 22.53685, 
  22.53671, 22.53614, 22.53532, 22.53296, 22.53238, 22.53189, 22.5307, 22.5298, 22.52903, 22.51971, 
  22.51913, 22.51839, 22.51742, 22.51689, 22.51663, 22.51427, 22.51334, 22.51205, 22.51121, 22.51048, 
  22.50933, 22.50586, 22.50541, 22.50465, 22.50393, 22.50256, 22.50235, 22.5025, 22.50373, 22.5051, 
  22.50605, 22.50659)
LONGITUDE_VALUEs <- c(
  114.0254, 114.0211, 114.0194, 114.0136, 114.0119, 114.0153, 114.0153, 114.0125, 114.0119, 114.0116, 
  114.0109, 114.0099, 114.0091, 114.0092, 114.0078, 114.0074, 114.0063, 114.0054, 114.0052, 114.0048, 
  114.0042, 114.003, 114.0021, 114.0014, 114.0012, 114.0008, 113.9998, 113.9993, 113.9991, 113.9981, 
  113.9975, 113.9977, 113.9975, 113.9977, 113.9973, 113.9974, 113.9972, 113.9975, 113.9969, 113.997, 
  113.9967, 113.9968, 113.9963, 113.9963, 113.9958, 113.9959, 113.9954, 113.9954, 113.9955, 113.9955, 
  113.9954, 113.9954, 113.9951, 113.9951, 113.995, 113.9949, 113.9947, 113.9947, 113.9941, 113.994, 
  113.9938, 113.9933, 113.9934, 113.993, 113.9931, 113.9926, 113.9927, 113.9923, 113.992, 113.9916, 
  113.9917, 113.9907, 113.9904, 113.99, 113.9886, 113.9881, 113.9878, 113.9876, 113.9869, 113.9867, 
  113.9863, 113.9855, 113.9851, 113.9846, 113.9845, 113.9846, 113.9845, 113.9841, 113.9829, 113.9824, 
  113.9819, 113.9813, 113.9807, 113.9818, 113.9811, 113.9807, 113.9804, 113.9801, 113.9801, 113.9797, 
  113.9795, 113.9783, 113.9776, 113.9771, 113.9772, 113.9756, 113.974, 113.9737, 113.9719, 113.971, 
  113.9707, 113.97, 113.9691, 113.9674, 113.9671, 113.9655, 113.965, 113.9652, 113.9648, 113.9645, 
  113.9644, 113.964, 113.9635, 113.963, 113.9627, 113.9625, 113.9618, 113.9615, 113.9615, 113.9609, 
  113.9605, 113.9601, 113.9593, 113.9586, 113.9582, 113.9575, 113.9567, 113.9566, 113.9563, 113.9561, 
  113.9557, 113.9556, 113.9557, 113.9556, 113.9549, 113.9536, 113.9539, 113.9539, 113.9534, 113.953, 
  113.9527, 113.9527, 113.9518, 113.9511, 113.9494, 113.9491, 113.9477, 113.9475, 113.9472, 113.9469, 
  113.9468, 113.9467, 113.9469, 113.9463, 113.9458, 113.9449, 113.9448, 113.9445, 113.9446, 113.9435, 
  113.9432, 113.9416, 113.9382, 113.9383, 113.9389, 113.9393, 113.9396, 113.9393, 113.9394, 113.9393, 
  113.9389, 113.9391, 113.9385, 113.9378, 113.9373, 113.9366, 113.9294, 113.9283, 113.9278, 113.9245, 
  113.9234, 113.9226, 113.9155, 113.9141, 113.9137, 113.9139, 113.913, 113.9048, 113.9046, 113.9042, 
  113.9041, 113.9039, 113.9039, 113.9037, 113.9036, 113.9035, 113.9034, 113.903, 113.9028, 113.9024, 
  113.9024, 113.9015, 113.9017, 113.9014, 113.9026, 113.9036, 113.904, 113.9049, 113.9051, 113.906, 
  113.9063, 113.9066, 113.9072, 113.908, 113.9082, 113.9086, 113.9085, 113.909, 113.9113, 113.9122, 
  113.9144, 113.9154, 113.9137, 113.9133, 113.9134, 113.9147, 113.9147, 113.9149, 113.9154, 113.9161, 
  113.917, 113.917, 113.9174, 113.9176, 113.918, 113.9199, 113.9209, 113.9201, 113.9193, 113.9184, 
  113.9176, 113.9174, 113.9169, 113.9166, 113.9142, 113.9198, 113.9292, 113.9372, 113.9375, 113.9396, 
  113.9474, 113.9483, 113.9498, 113.9481, 113.9515, 113.9514, 113.9536, 113.9561, 113.9595, 113.9601, 
  113.9603, 113.9609, 113.9614, 113.9639, 113.9659, 113.966, 113.9665, 113.9707, 113.9727, 113.9733, 
  113.9725, 113.9681, 113.969, 113.9693, 113.9695, 113.9766, 113.9777, 113.9775, 113.9784, 113.9788, 
  113.9801, 113.9808, 113.9807, 113.9802, 113.9803, 113.9808, 113.9813, 113.9817, 113.982, 113.9826, 
  113.9857, 113.9875, 113.9892, 113.9895, 113.9898, 113.9896, 113.9901, 113.9917, 113.9936, 113.9936, 
  113.9917, 113.9916, 113.9928, 113.9935, 113.9943, 113.9946, 113.9954, 113.9955, 113.9963, 113.9971, 
  113.9971, 113.9971, 113.9976, 113.9978, 113.9976, 113.9978, 113.9981, 113.9981, 113.9983, 113.9988, 
  113.9988, 114.0015, 114.0015, 114.0022, 114.0023, 114.0029, 114.0034, 114.0041, 114.0049, 114.0061, 
  114.0064, 114.0067, 114.0073, 114.0072, 114.0074, 114.009, 114.0099, 114.0099, 114.0107, 114.0106, 
  114.0106, 114.0104, 114.0104, 114.0102, 114.0104, 114.0103, 114.0105, 114.011, 114.0111, 114.0115, 
  114.0117, 114.0121, 114.0121, 114.0122, 114.0124, 114.0125, 114.0131, 114.0135, 114.0139, 114.0142, 
  114.0186, 114.0193, 114.0217, 114.0245, 114.0261, 114.03, 114.0363, 114.0395, 114.0412, 114.0452, 
  114.0469, 114.0469, 114.047, 114.0471, 114.0481, 114.0516, 114.0523, 114.0531, 114.0555, 114.0584, 
  114.0602, 114.0608, 114.063, 114.063, 114.0635, 114.0637, 114.0644, 114.0646, 114.0659, 114.0667, 
  114.0682, 114.0691, 114.0693, 114.0694, 114.0706, 114.0709, 114.0711, 114.0712, 114.0709, 114.0713, 
  114.0726, 114.0747, 114.0773, 114.0777, 114.0786, 114.0797, 114.0791, 114.0798, 114.0811, 114.0823, 
  114.084, 114.0849, 114.0889, 114.0904, 114.0925, 114.0929, 114.0929, 114.0932, 114.094, 114.0948, 
  114.0963, 114.0977, 114.0988, 114.0992, 114.104, 114.1056, 114.108, 114.108, 114.1082, 114.1089, 
  114.1101, 114.1111, 114.1121, 114.1124, 114.1113, 114.1117, 114.1119, 114.1122, 114.1125, 114.1133, 
  114.1155, 114.1164, 114.1159, 114.1151, 114.115, 114.1148, 114.1147, 114.1145, 114.1144, 114.1139, 
  114.1136, 114.114, 114.1142, 114.1145, 114.1144, 114.1149, 114.115, 114.1155, 114.1154, 114.1154, 
  114.1198, 114.1234, 114.1287, 114.1296, 114.1243, 114.1267, 114.1341, 114.1345, 114.1354, 114.1226, 
  114.1215, 114.1217, 114.1295, 114.131, 114.1316, 114.1334, 114.1338, 114.1336, 114.1374, 114.1376, 
  114.1387, 114.1403, 114.141, 114.1416, 114.1424, 114.1425, 114.1425, 114.143, 114.1432, 114.1442, 
  114.1444, 114.1446, 114.1448, 114.1447, 114.1446, 114.1444, 114.1444, 114.1444, 114.1451, 114.1451, 
  114.1458, 114.1466, 114.1474, 114.1477, 114.1468, 114.1456, 114.1452, 114.1453, 114.1443, 114.1444, 
  114.1431, 114.1424, 114.1427, 114.1425, 114.1422, 114.1412, 114.1428, 114.1436, 114.1405, 114.1413, 
  114.1431, 114.1446, 114.1487, 114.1541, 114.1549, 114.1549, 114.1594, 114.1599, 114.1599, 114.1573, 
  114.1549, 114.1549, 114.1545, 114.1544, 114.1543, 114.1544, 114.1547, 114.1552, 114.1554, 114.1556, 
  114.158, 114.1581, 114.1583, 114.1589, 114.1602, 114.167, 114.1685, 114.1683, 114.1688, 114.1691, 
  114.1692, 114.1693, 114.1695, 114.1709, 114.171, 114.1728, 114.1732, 114.1748, 114.1761, 114.1766, 
  114.1805, 114.181, 114.1821, 114.183, 114.1838, 114.1842, 114.1917, 114.1931, 114.1928, 114.1939, 
  114.1918, 114.192, 114.1926, 114.1925, 114.1929, 114.1953, 114.196, 114.2155, 114.2159, 114.2173, 
  114.2173, 114.2153, 114.2155, 114.2153, 114.2134, 114.2128, 114.2124, 114.2001, 114.2009, 114.211, 
  114.2135, 114.2181, 114.2195, 114.2199, 114.2219, 114.2226, 114.2251, 114.2274, 114.2286, 114.2292, 
  114.2298, 114.2304, 114.2311, 114.2327, 114.2353, 114.2361, 114.2327, 114.2334, 114.2363, 114.2378, 
  114.2386, 114.2382, 114.238, 114.2375, 114.2372, 114.2373, 114.2369, 114.2368, 114.2363, 114.2365, 
  114.2369, 114.2379, 114.2388, 114.2396, 114.2397, 114.2403, 114.2406, 114.2411, 114.2413, 114.2418, 
  114.2427, 114.2431, 114.2431, 114.2433, 114.2433, 114.2434, 114.2435, 114.2434, 114.2436, 114.2437, 
  114.2438, 114.2451, 114.245, 114.2453, 114.2452, 114.2463, 114.2465, 114.247, 114.2474, 114.2479, 
  114.2483, 114.2481, 114.2486, 114.2488, 114.249, 114.2494, 114.2498, 114.2503, 114.2508, 114.2506, 
  114.2509, 114.2512, 114.2517, 114.2517, 114.2516, 114.2516, 114.2518, 114.2519, 114.2522, 114.2524, 
  114.2528, 114.253, 114.2531, 114.2535, 114.2537, 114.2535, 114.2541, 114.2542, 114.2542, 114.2544, 
  114.2547, 114.2547, 114.2549, 114.2548, 114.2546, 114.2547, 114.2553, 114.2553, 114.2552, 114.2552, 
  114.2559, 114.2563, 114.2561, 114.2561, 114.2568, 114.2572, 114.2596, 114.2597, 114.26, 114.2603, 
  114.2605, 114.2628, 114.2635, 114.2653, 114.2653, 114.2644, 114.2647, 114.2651, 114.2653, 114.2658, 
  114.2657, 114.2661, 114.2659, 114.2669, 114.2637, 114.264, 114.2649, 114.2666, 114.2667, 114.271, 
  114.271, 114.2663, 114.2676, 114.2674, 114.2673, 114.2674, 114.2667, 114.2662, 114.2659, 114.2654, 
  114.2655, 114.2653, 114.2653, 114.2649, 114.2649, 114.2647, 114.2648, 114.2647, 114.2648, 114.2646, 
  114.2646, 114.2645, 114.2647, 114.2649, 114.265, 114.2653, 114.2656, 114.2667, 114.2668, 114.2692, 
  114.2701, 114.268, 114.268, 114.2687, 114.2693, 114.2738, 114.2744, 114.2749, 114.2768, 114.2774, 
  114.2777, 114.2775, 114.2789, 114.2793, 114.2795, 114.2808, 114.2813, 114.2817, 114.2823, 114.2822, 
  114.2815, 114.2821, 114.2827, 114.2837, 114.2842, 114.287, 114.2883, 114.289, 114.2904, 114.2902, 
  114.2908, 114.2919, 114.2934, 114.2947, 114.2958, 114.2962, 114.2974, 114.2973, 114.2972, 114.2969, 
  114.2966, 114.2968, 114.2969, 114.2975, 114.2986, 114.299, 114.2995, 114.2997, 114.3, 114.3011, 
  114.3007, 114.3009, 114.3, 114.3, 114.3006, 114.3004, 114.301, 114.3011, 114.3016, 114.3019, 
  114.3022, 114.3029, 114.303, 114.3042, 114.3048, 114.305, 114.3055, 114.3055, 114.3047, 114.3048, 
  114.3056, 114.3067, 114.3064, 114.3068, 114.3065, 114.3073, 114.307, 114.3069, 114.3061, 114.3057, 
  114.3051, 114.3048, 114.3048, 114.3046, 114.3041, 114.3037, 114.3024, 114.3016, 114.3012, 114.3005, 
  114.3004, 114.3007, 114.3005, 114.3008, 114.3014, 114.3037, 114.3037, 114.304, 114.3042, 114.3045, 
  114.3045, 114.3019, 114.3015, 114.3016, 114.3015, 114.3017, 114.3015, 114.3012, 114.3011, 114.3006, 
  114.3004, 114.3005, 114.3007, 114.3013, 114.302, 114.3032, 114.3032, 114.3027, 114.3022, 114.3019, 
  114.3011, 114.3002, 114.2986, 114.2978, 114.2974, 114.2968, 114.2958, 114.2955, 114.2954, 114.2953, 
  114.2954, 114.2952, 114.2949, 114.2936, 114.2929, 114.2928, 114.2927, 114.2929, 114.2929, 114.2932, 
  114.2935, 114.2938, 114.2939, 114.2941, 114.2944, 114.2946, 114.2953, 114.2955, 114.2958, 114.2959, 
  114.2959, 114.2963, 114.2961, 114.2961, 114.2957, 114.2954, 114.295, 114.2945, 114.2942, 114.2937, 
  114.2937, 114.2933, 114.2923, 114.2903, 114.2885, 114.2883, 114.2884, 114.288, 114.288, 114.2883, 
  114.2889, 114.2897, 114.29, 114.2904, 114.2908, 114.2903, 114.2907, 114.2905, 114.2901, 114.2897, 
  114.2887, 114.288, 114.288, 114.2884, 114.2904, 114.2905, 114.2907, 114.2909, 114.2915, 114.2922, 
  114.2924, 114.2941, 114.2946, 114.294, 114.2939, 114.2944, 114.2948, 114.2951, 114.2962, 114.2974, 
  114.2978, 114.2982, 114.299, 114.3, 114.3006, 114.3011, 114.3014, 114.3018, 114.3021, 114.3023, 
  114.3025, 114.3024, 114.3031, 114.3036, 114.3037, 114.3041, 114.304, 114.3052, 114.3053, 114.3057, 
  114.306, 114.3062, 114.3059, 114.3059, 114.307, 114.3075, 114.3077, 114.3075, 114.3077, 114.3084, 
  114.3087, 114.3088, 114.3089, 114.3096, 114.3098, 114.3101, 114.3101, 114.31, 114.3102, 114.3104, 
  114.3106, 114.3107, 114.3108, 114.3106, 114.3107, 114.31, 114.3105, 114.3106, 114.3101, 114.3099, 
  114.3093, 114.3096, 114.3099, 114.31, 114.31, 114.3111, 114.3115, 114.3117, 114.3119, 114.3118, 
  114.3111, 114.3114, 114.312, 114.3122, 114.3118, 114.3115, 114.3109, 114.3106, 114.3111, 114.3111, 
  114.3108, 114.3109, 114.3106, 114.3106, 114.3103, 114.3095, 114.309, 114.3088, 114.3074, 114.3072, 
  114.3071, 114.3066, 114.3063, 114.3063, 114.3061, 114.306, 114.3058, 114.3055, 114.3053, 114.3051, 
  114.3038, 114.3039, 114.3044, 114.3047, 114.3047, 114.3042, 114.3039, 114.3036, 114.3034, 114.3031, 
  114.3034, 114.3033, 114.3029, 114.3027, 114.3024, 114.3023, 114.3021, 114.3016, 114.3015, 114.3012, 
  114.3004, 114.2999, 114.2993, 114.2992, 114.2989, 114.2982, 114.2972, 114.297, 114.2966, 114.296, 
  114.2947, 114.2946, 114.2953, 114.2958, 114.2957, 114.2958, 114.2956, 114.2945, 114.2929, 114.2922, 
  114.2926, 114.293, 114.293, 114.2929, 114.2923, 114.292, 114.2915, 114.2911, 114.2906, 114.2904, 
  114.2905, 114.291, 114.292, 114.2926, 114.2926, 114.2924, 114.2918, 114.2917, 114.2925, 114.2926, 
  114.2924, 114.2925, 114.2901, 114.29, 114.2904, 114.2902, 114.2902, 114.2895, 114.2888, 114.289, 
  114.2896, 114.2896, 114.2899, 114.2897, 114.2897, 114.2893, 114.289, 114.2886, 114.2883, 114.2885, 
  114.288, 114.2863, 114.2855, 114.2856, 114.2855, 114.2852, 114.2849, 114.2844, 114.2833, 114.2824, 
  114.2813, 114.2793, 114.2785, 114.2777, 114.2771, 114.2774, 114.2775, 114.2774, 114.2772, 114.2768, 
  114.2767, 114.2757, 114.2746, 114.2735, 114.2732, 114.2726, 114.2719, 114.2724, 114.2722, 114.2719, 
  114.2721, 114.2721, 114.2725, 114.2719, 114.2718, 114.271, 114.2704, 114.2705, 114.2709, 114.2709, 
  114.2704, 114.2704, 114.27, 114.2699, 114.2697, 114.2699, 114.2693, 114.2696, 114.2684, 114.2673, 
  114.2669, 114.2664, 114.2659, 114.2662, 114.2657, 114.2663, 114.2662, 114.2664, 114.2673, 114.2674, 
  114.2666, 114.2668, 114.2679, 114.2679, 114.2687, 114.2686, 114.2688, 114.2682, 114.267, 114.2662, 
  114.2649, 114.2649, 114.2644, 114.2644, 114.265, 114.2647, 114.2648, 114.2656, 114.2657, 114.2655, 
  114.2654, 114.2652, 114.2651, 114.2645, 114.264, 114.2631, 114.2629, 114.2627, 114.2624, 114.2612, 
  114.2603, 114.2609, 114.2609, 114.2605, 114.2597, 114.2597, 114.2598, 114.2594, 114.2594, 114.2587, 
  114.2586, 114.2581, 114.2573, 114.2562, 114.2561, 114.2557, 114.2554, 114.2548, 114.2541, 114.2535, 
  114.2532, 114.253, 114.2524, 114.2516, 114.2513, 114.2518, 114.2515, 114.252, 114.2522, 114.252, 
  114.2531, 114.2535, 114.2538, 114.2537, 114.2548, 114.257, 114.2591, 114.2592, 114.2573, 114.2572, 
  114.2582, 114.2585, 114.2592, 114.2595, 114.2599, 114.26, 114.2602, 114.2606, 114.2606, 114.2609, 
  114.2612, 114.2602, 114.2604, 114.2606, 114.2608, 114.2605, 114.2601, 114.2602, 114.2609, 114.2614, 
  114.2622, 114.2628, 114.263, 114.263, 114.2631, 114.263, 114.2629, 114.2626, 114.2631, 114.2634, 
  114.264, 114.2643, 114.2642, 114.2643, 114.2635, 114.264, 114.2643, 114.2645, 114.2655, 114.2664, 
  114.2666, 114.2677, 114.268, 114.2679, 114.2682, 114.2686, 114.2698, 114.27, 114.2701, 114.2697, 
  114.2698, 114.2701, 114.2698, 114.269, 114.2689, 114.268, 114.2678, 114.2674, 114.2673, 114.2669, 
  114.2664, 114.2662, 114.2659, 114.2654, 114.2656, 114.2653, 114.2652, 114.2654, 114.2652, 114.2649, 
  114.265, 114.2649, 114.265, 114.2652, 114.2654, 114.2656, 114.2657, 114.2659, 114.2658, 114.2657, 
  114.266, 114.2658, 114.266, 114.266, 114.2661, 114.2664, 114.2665, 114.2665, 114.267, 114.2672, 
  114.2674, 114.2675, 114.2675, 114.2687, 114.2687, 114.269, 114.2695, 114.2706, 114.2716, 114.2719, 
  114.2722, 114.2725, 114.2723, 114.2725, 114.2721, 114.272, 114.2716, 114.2714, 114.2713, 114.2713, 
  114.2716, 114.2716, 114.2719, 114.2721, 114.2723, 114.2725, 114.2727, 114.2731, 114.2733, 114.2734, 
  114.2736, 114.2737, 114.2735, 114.2734, 114.2734, 114.2736, 114.2737, 114.2739, 114.2741, 114.2743, 
  114.2746, 114.2749, 114.275, 114.2751, 114.2753, 114.2753, 114.2755, 114.2755, 114.2756, 114.2755, 
  114.2753, 114.2757, 114.2758, 114.2757, 114.2762, 114.2763, 114.2766, 114.277, 114.2772, 114.2779, 
  114.278, 114.2778, 114.2778, 114.2775, 114.2774, 114.277, 114.2772, 114.2769, 114.2771, 114.2769, 
  114.2772, 114.2777, 114.278, 114.2783, 114.2784, 114.2785, 114.2788, 114.2783, 114.2782, 114.2776, 
  114.2774, 114.2772, 114.2772, 114.2769, 114.2765, 114.2762, 114.276, 114.2754, 114.275, 114.2748, 
  114.275, 114.2746, 114.2741, 114.2742, 114.2739, 114.2733, 114.2727, 114.2726, 114.2727, 114.273, 
  114.2728, 114.2725, 114.2724, 114.2719, 114.272, 114.2717, 114.272, 114.2722, 114.2722, 114.273, 
  114.2731, 114.2733, 114.2733, 114.2737, 114.2751, 114.2742, 114.2746, 114.2743, 114.2733, 114.2731, 
  114.2725, 114.2721, 114.2719, 114.2716, 114.2715, 114.2711, 114.2711, 114.2703, 114.2701, 114.2699, 
  114.2704, 114.2705, 114.2708, 114.2708, 114.2716, 114.2716, 114.2726, 114.2761, 114.2771, 114.2776, 
  114.2768, 114.2762, 114.2761, 114.2763, 114.2764, 114.2767, 114.2764, 114.2765, 114.2775, 114.2776, 
  114.2779, 114.2785, 114.2788, 114.2798, 114.2808, 114.2805, 114.2808, 114.2806, 114.281, 114.2813, 
  114.2812, 114.2814, 114.2816, 114.2821, 114.2827, 114.2829, 114.2832, 114.2837, 114.2842, 114.2855, 
  114.2858, 114.2864, 114.2864, 114.2869, 114.2871, 114.2874, 114.2875, 114.2877, 114.2879, 114.2882, 
  114.2889, 114.2892, 114.2893, 114.2894, 114.2897, 114.2898, 114.2901, 114.2905, 114.2907, 114.2907, 
  114.2912, 114.2914, 114.293, 114.2939, 114.2948, 114.2953, 114.2954, 114.2956, 114.2957, 114.2963, 
  114.2966, 114.2966, 114.2969, 114.297, 114.2968, 114.2968, 114.2966, 114.2967, 114.2968, 114.297, 
  114.2973, 114.2977, 114.298, 114.2985, 114.2987, 114.299, 114.2992, 114.2997, 114.2997, 114.2992, 
  114.2992, 114.299, 114.2986, 114.2994, 114.2994, 114.2997, 114.3003, 114.3007, 114.3012, 114.3024, 
  114.3025, 114.3019, 114.3016, 114.3019, 114.3025, 114.3029, 114.3045, 114.3042, 114.3042, 114.3046, 
  114.3055, 114.3061, 114.3061, 114.3064, 114.307, 114.3077, 114.3075, 114.3081, 114.3085, 114.3087, 
  114.3097, 114.3097, 114.3101, 114.3102, 114.3102, 114.3105, 114.3105, 114.3099, 114.3098, 114.3095, 
  114.3093, 114.3088, 114.3086, 114.3087, 114.3084, 114.3088, 114.3087, 114.3089, 114.3087, 114.3087, 
  114.3081, 114.3082, 114.3084, 114.3085, 114.3085, 114.3083, 114.3085, 114.3093, 114.3094, 114.3101, 
  114.3098, 114.3099, 114.3102, 114.3106, 114.3111, 114.3115, 114.312, 114.3124, 114.3135, 114.3138, 
  114.3149, 114.3152, 114.3158, 114.3159, 114.3166, 114.3169, 114.3171, 114.3174, 114.3176, 114.3191, 
  114.3201, 114.3211, 114.3214, 114.3214, 114.3217, 114.3219, 114.3218, 114.3219, 114.3218, 114.3216, 
  114.3215, 114.3212, 114.3211, 114.3209, 114.3209, 114.3207, 114.3204, 114.3199, 114.3191, 114.319, 
  114.3182, 114.3178, 114.3175, 114.3171, 114.3173, 114.3174, 114.3175, 114.3177, 114.3179, 114.3178, 
  114.3176, 114.3176, 114.3178, 114.3177, 114.3179, 114.3186, 114.3188, 114.319, 114.3193, 114.3195, 
  114.3197, 114.32, 114.3199, 114.3201, 114.32, 114.3192, 114.3191, 114.3191, 114.3188, 114.3185, 
  114.3181, 114.318, 114.3189, 114.3193, 114.3196, 114.3202, 114.3208, 114.3212, 114.3215, 114.3217, 
  114.3218, 114.3221, 114.3223, 114.3229, 114.3233, 114.3233, 114.3235, 114.3236, 114.3239, 114.3229, 
  114.3228, 114.3228, 114.3229, 114.3244, 114.3251, 114.3255, 114.3267, 114.3281, 114.3315, 114.3326, 
  114.3329, 114.3346, 114.3349, 114.3354, 114.3354, 114.3355, 114.3354, 114.3354, 114.3352, 114.3351, 
  114.3353, 114.335, 114.3348, 114.3348, 114.3345, 114.3345, 114.3343, 114.3345, 114.3341, 114.3342, 
  114.3344, 114.335, 114.3352, 114.3357, 114.3364, 114.3366, 114.3368, 114.3371, 114.3375, 114.3374, 
  114.3366, 114.3353, 114.3348, 114.3344, 114.3338, 114.3334, 114.3331, 114.3329, 114.3326, 114.3325, 
  114.3322, 114.3321, 114.3314, 114.331, 114.3319, 114.3331, 114.334, 114.3347, 114.3349, 114.3362, 
  114.3366, 114.3374, 114.338, 114.3384, 114.3387, 114.3389, 114.3395, 114.3409, 114.341, 114.3421, 
  114.3419, 114.3414, 114.3403, 114.3387, 114.3382, 114.338, 114.3381, 114.3386, 114.3391, 114.339, 
  114.3391, 114.3401, 114.3403, 114.3408, 114.3406, 114.3411, 114.3415, 114.3418, 114.3423, 114.3422, 
  114.3426, 114.343, 114.3429, 114.3441, 114.3443, 114.3441, 114.3444, 114.3444, 114.3447, 114.3449, 
  114.3448, 114.3451, 114.3453, 114.3458, 114.3465, 114.3471, 114.3474, 114.3474, 114.3477, 114.3479, 
  114.3482, 114.3482, 114.3483, 114.3486, 114.3488, 114.3484, 114.3488, 114.3494, 114.3493, 114.3495, 
  114.35, 114.3503, 114.3504, 114.351, 114.3513, 114.3513, 114.3517, 114.3518, 114.3521, 114.353, 
  114.3529, 114.3536, 114.3537, 114.3545, 114.3549, 114.3551, 114.3532, 114.3527, 114.3527, 114.3518, 
  114.3516, 114.3512, 114.3511, 114.3514, 114.3513, 114.3517, 114.352, 114.3522, 114.3525, 114.3524, 
  114.3528, 114.3527, 114.3527, 114.3525, 114.3524, 114.3523, 114.3522, 114.3522, 114.3525, 114.3528, 
  114.3528, 114.3532, 114.3534, 114.3539, 114.3544, 114.3542, 114.3543, 114.3543, 114.3543, 114.3543, 
  114.3543, 114.3548, 114.3547, 114.3544, 114.3544, 114.3541, 114.3545, 114.3549, 114.3549, 114.3551, 
  114.356, 114.356, 114.3556, 114.3558, 114.356, 114.3561, 114.3566, 114.357, 114.357, 114.3572, 
  114.3577, 114.358, 114.3582, 114.3583, 114.3586, 114.3589, 114.3592, 114.3594, 114.3589, 114.3598, 
  114.3604, 114.3611, 114.3615, 114.361, 114.3613, 114.3612, 114.3606, 114.3603, 114.3602, 114.3591, 
  114.3592, 114.3601, 114.36, 114.3597, 114.3602, 114.36, 114.3594, 114.3594, 114.361, 114.3617, 
  114.3631, 114.3635, 114.364, 114.3643, 114.3645, 114.3648, 114.3651, 114.3655, 114.3654, 114.3658, 
  114.3662, 114.3667, 114.367, 114.3677, 114.3677, 114.3675, 114.3671, 114.367, 114.3668, 114.3669, 
  114.3672, 114.3677, 114.3675, 114.3671, 114.3671, 114.3673, 114.3674, 114.3672, 114.3665, 114.3665, 
  114.3669, 114.3671, 114.3667, 114.3667, 114.3649, 114.364, 114.3638, 114.3641, 114.3645, 114.3647, 
  114.3651, 114.3652, 114.365, 114.3651, 114.3648, 114.365, 114.3655, 114.3659, 114.3661, 114.3672, 
  114.3675, 114.3672, 114.3674, 114.3678, 114.368, 114.3681, 114.3682, 114.3683, 114.3686, 114.3692, 
  114.3693, 114.3697, 114.3704, 114.3708, 114.3711, 114.3712, 114.3714, 114.3709, 114.3712, 114.371, 
  114.3718, 114.3727, 114.3734, 114.3737, 114.3739, 114.374, 114.3739, 114.3736, 114.3736, 114.3739, 
  114.3741, 114.3742, 114.3739, 114.3741, 114.3738, 114.3736, 114.373, 114.3731, 114.3734, 114.3735, 
  114.3737, 114.374, 114.3742, 114.3744, 114.3748, 114.3748, 114.3752, 114.3756, 114.3752, 114.3754, 
  114.3752, 114.3751, 114.3747, 114.3747, 114.3751, 114.3752, 114.3753, 114.3759, 114.376, 114.3765, 
  114.3769, 114.377, 114.3774, 114.3777, 114.3778, 114.3776, 114.3778, 114.3771, 114.3766, 114.3762, 
  114.3762, 114.3757, 114.3749, 114.375, 114.3747, 114.3745, 114.3742, 114.377, 114.3772, 114.3774, 
  114.378, 114.3781, 114.3794, 114.3805, 114.3809, 114.3811, 114.3812, 114.3811, 114.3811, 114.3808, 
  114.381, 114.3807, 114.3802, 114.3793, 114.38, 114.3795, 114.3775, 114.3769, 114.3766, 114.3762, 
  114.376, 114.376, 114.3757, 114.376, 114.3761, 114.3762, 114.3761, 114.3758, 114.3759, 114.3757, 
  114.3758, 114.3758, 114.3759, 114.3759, 114.3755, 114.3755, 114.3756, 114.3755, 114.3756, 114.3753, 
  114.3758, 114.3771, 114.3781, 114.3787, 114.3792, 114.3793, 114.3795, 114.38, 114.38, 114.3803, 
  114.3802, 114.3806, 114.3808, 114.3809, 114.3811, 114.3812, 114.3813, 114.3812, 114.3815, 114.3816, 
  114.3815, 114.3816, 114.3816, 114.3817, 114.3824, 114.3826, 114.3826, 114.3828, 114.3827, 114.3828, 
  114.3828, 114.383, 114.3832, 114.3829, 114.3829, 114.383, 114.3831, 114.383, 114.3831, 114.3832, 
  114.3832, 114.3834, 114.3835, 114.3835, 114.3837, 114.3842, 114.3846, 114.3845, 114.3847, 114.3847, 
  114.3848, 114.3848, 114.3852, 114.3857, 114.3855, 114.3854, 114.3856, 114.3852, 114.3855, 114.3857, 
  114.3857, 114.3858, 114.3864, 114.3865, 114.3866, 114.3873, 114.3875, 114.3877, 114.388, 114.388, 
  114.3883, 114.3882, 114.3883, 114.3886, 114.3894, 114.3898, 114.3899, 114.3895, 114.3892, 114.3892, 
  114.3893, 114.3895, 114.3897, 114.3898, 114.39, 114.39, 114.3897, 114.3895, 114.3894, 114.3896, 
  114.3898, 114.39, 114.39, 114.3903, 114.3906, 114.3908, 114.3905, 114.39, 114.39, 114.3898, 
  114.3898, 114.3901, 114.3895, 114.39, 114.39, 114.3907, 114.3911, 114.3912, 114.3914, 114.3915, 
  114.3916, 114.3914, 114.3916, 114.3915, 114.3915, 114.3911, 114.3913, 114.391, 114.3907, 114.3903, 
  114.3896, 114.3897, 114.3901, 114.3901, 114.3898, 114.3894, 114.3896, 114.3887, 114.3886, 114.3885, 
  114.3884, 114.3879, 114.3873, 114.3877, 114.3876, 114.3872, 114.3874, 114.3869, 114.3872, 114.3868, 
  114.3866, 114.3865, 114.3868, 114.3868, 114.3867, 114.3869, 114.3871, 114.388, 114.3879, 114.3884, 
  114.3884, 114.3885, 114.3887, 114.3888, 114.3887, 114.389, 114.3892, 114.3895, 114.3897, 114.3898, 
  114.39, 114.3901, 114.39, 114.3899, 114.39, 114.3901, 114.3903, 114.3903, 114.3904, 114.3905, 
  114.3906, 114.3906, 114.3907, 114.3908, 114.391, 114.3909, 114.3911, 114.3912, 114.3914, 114.3913, 
  114.3915, 114.3916, 114.3915, 114.3916, 114.3914, 114.3915, 114.3917, 114.3918, 114.3918, 114.3919, 
  114.3917, 114.3918, 114.3915, 114.3912, 114.3914, 114.3909, 114.3912, 114.3908, 114.3908, 114.391, 
  114.3914, 114.3915, 114.3914, 114.3911, 114.3912, 114.3909, 114.3909, 114.3911, 114.3913, 114.3914, 
  114.3913, 114.3911, 114.391, 114.3906, 114.3907, 114.3904, 114.3902, 114.3901, 114.3901, 114.3903, 
  114.39, 114.3902, 114.3898, 114.3903, 114.3902, 114.3902, 114.3903, 114.3903, 114.3901, 114.3902, 
  114.3906, 114.3905, 114.3901, 114.3905, 114.3903, 114.3904, 114.3902, 114.3904, 114.3902, 114.3904, 
  114.3896, 114.3905, 114.3907, 114.39, 114.3901, 114.3902, 114.3904, 114.3906, 114.3907, 114.3906, 
  114.3902, 114.3898, 114.3898, 114.3897, 114.3896, 114.3898, 114.3897, 114.3895, 114.3894, 114.3888, 
  114.3889, 114.3886, 114.3882, 114.388, 114.3882, 114.3881, 114.3879, 114.3878, 114.387, 114.387, 
  114.3872, 114.3872, 114.3868, 114.387, 114.3868, 114.3862, 114.386, 114.3858, 114.3855, 114.3854, 
  114.3852, 114.3853, 114.385, 114.3847, 114.3844, 114.3838, 114.3829, 114.3822, 114.3816, 114.3817, 
  114.3815, 114.3808, 114.381, 114.3806, 114.3803, 114.3799, 114.3801, 114.3796, 114.3791, 114.3791, 
  114.3789, 114.3788, 114.3786, 114.3786, 114.3784, 114.3782, 114.3776, 114.377, 114.3767, 114.3765, 
  114.3768, 114.3766, 114.3765, 114.3766, 114.3763, 114.376, 114.3757, 114.3754, 114.3748, 114.3747, 
  114.3745, 114.374, 114.374, 114.3737, 114.3729, 114.3722, 114.3716, 114.3712, 114.3701, 114.3701, 
  114.3709, 114.3709, 114.3716, 114.3719, 114.3721, 114.3723, 114.3724, 114.3721, 114.3724, 114.3725, 
  114.3727, 114.373, 114.3738, 114.3736, 114.3736, 114.3739, 114.3739, 114.374, 114.374, 114.3744, 
  114.3744, 114.3742, 114.3739, 114.3739, 114.3743, 114.3744, 114.3747, 114.3746, 114.3738, 114.3742, 
  114.3744, 114.3744, 114.3747, 114.3753, 114.3754, 114.3752, 114.3746, 114.3748, 114.3748, 114.3751, 
  114.375, 114.3748, 114.3744, 114.3746, 114.3747, 114.3751, 114.3751, 114.3755, 114.3756, 114.3752, 
  114.3751, 114.3749, 114.3749, 114.3745, 114.3748, 114.3747, 114.3751, 114.375, 114.3759, 114.3767, 
  114.3774, 114.3783, 114.379, 114.3792, 114.3794, 114.3792, 114.3794, 114.3792, 114.3792, 114.3791, 
  114.3793, 114.3792, 114.3787, 114.3787, 114.3784, 114.3788, 114.3797, 114.3802, 114.3816, 114.3817, 
  114.3817, 114.3819, 114.3821, 114.3823, 114.3824, 114.3827, 114.3828, 114.383, 114.3829, 114.3831, 
  114.3832, 114.3833, 114.3834, 114.3837, 114.3851, 114.3859, 114.3867, 114.3869, 114.3871, 114.3875, 
  114.388, 114.3881, 114.3883, 114.3886, 114.3889, 114.3893, 114.3896, 114.3898, 114.39, 114.3903, 
  114.3905, 114.3908, 114.3911, 114.3913, 114.3915, 114.3921, 114.3924, 114.3922, 114.3927, 114.3931, 
  114.3931, 114.3932, 114.3931, 114.3934, 114.3934, 114.3937, 114.3939, 114.3943, 114.3946, 114.3949, 
  114.3949, 114.3944, 114.3945, 114.3943, 114.3946, 114.3947, 114.3944, 114.3949, 114.3952, 114.3958, 
  114.396, 114.3963, 114.3971, 114.3975, 114.3976, 114.3983, 114.3982, 114.3997, 114.4005, 114.4005, 
  114.4012, 114.4008, 114.4011, 114.4013, 114.4017, 114.4017, 114.4021, 114.4024, 114.4029, 114.4032, 
  114.4036, 114.4039, 114.404, 114.4044, 114.4045, 114.4045, 114.4043, 114.4045, 114.4045, 114.405, 
  114.4053, 114.4056, 114.4057, 114.4054, 114.4052, 114.4051, 114.4047, 114.4039, 114.4039, 114.4039, 
  114.4036, 114.4038, 114.4041, 114.4044, 114.4044, 114.4042, 114.4048, 114.405, 114.4042, 114.404, 
  114.4039, 114.4035, 114.4034, 114.403, 114.403, 114.4032, 114.4037, 114.4036, 114.4031, 114.4026, 
  114.4024, 114.4022, 114.402, 114.4018, 114.4013, 114.4012, 114.4009, 114.4006, 114.4003, 114.4001, 
  114.4, 114.3999, 114.3998, 114.3994, 114.399, 114.3978, 114.3978, 114.3974, 114.397, 114.3975, 
  114.3973, 114.3977, 114.3978, 114.398, 114.3981, 114.3982, 114.3983, 114.3983, 114.3983, 114.3982, 
  114.3983, 114.398, 114.3981, 114.398, 114.3976, 114.3973, 114.3969, 114.3971, 114.397, 114.3968, 
  114.3968, 114.3964, 114.3963, 114.3961, 114.3961, 114.3956, 114.3954, 114.3957, 114.3959, 114.3961, 
  114.3967, 114.3968, 114.3966, 114.3967, 114.3972, 114.3974, 114.3975, 114.3977, 114.3978, 114.398, 
  114.3982, 114.3982, 114.3984, 114.3983, 114.3984, 114.3986, 114.3987, 114.399, 114.399, 114.3986, 
  114.3988, 114.3986, 114.3987, 114.3988, 114.3987, 114.3984, 114.3983, 114.3987, 114.3989, 114.3987, 
  114.3991, 114.3994, 114.3996, 114.3998, 114.3999, 114.3997, 114.3998, 114.3999, 114.4001, 114.4002, 
  114.4001, 114.4003, 114.4007, 114.4007, 114.4005, 114.4009, 114.401, 114.4013, 114.4013, 114.4011, 
  114.401, 114.4007, 114.4006, 114.4004, 114.4001, 114.3998, 114.3993, 114.3992, 114.3987, 114.3985, 
  114.3982, 114.3978, 114.3975, 114.3972, 114.397, 114.3969, 114.3967, 114.3967, 114.3966, 114.3963, 
  114.3957, 114.3958, 114.3956, 114.3956, 114.3954, 114.3951, 114.3951, 114.3951, 114.395, 114.3948, 
  114.3948, 114.3947, 114.3944, 114.3942, 114.394, 114.3937, 114.3928, 114.3926, 114.3923, 114.3922, 
  114.3922, 114.3916, 114.3918, 114.3919, 114.3923, 114.3921, 114.3926, 114.3925, 114.3925, 114.3921, 
  114.3924, 114.3924, 114.3923, 114.3924, 114.3923, 114.392, 114.3918, 114.3918, 114.3914, 114.3914, 
  114.3912, 114.3912, 114.3911, 114.3913, 114.3912, 114.3913, 114.391, 114.3909, 114.3907, 114.3905, 
  114.3905, 114.3902, 114.3901, 114.3898, 114.3896, 114.3893, 114.389, 114.3886, 114.3879, 114.3876, 
  114.387, 114.3866, 114.3857, 114.3853, 114.3846, 114.3844, 114.3843, 114.384, 114.3836, 114.3822, 
  114.3812, 114.3782, 114.3773, 114.3769, 114.3769, 114.3769, 114.3767, 114.3766, 114.3763, 114.3761, 
  114.3757, 114.3754, 114.3752, 114.3751, 114.3749, 114.3746, 114.3744, 114.3741, 114.3735, 114.373, 
  114.3718, 114.3706, 114.3696, 114.3695, 114.3689, 114.3686, 114.368, 114.3676, 114.3669, 114.367, 
  114.3685, 114.3686, 114.3699, 114.37, 114.3704, 114.3699, 114.3699, 114.3677, 114.3672, 114.3656, 
  114.3641, 114.3611, 114.3606, 114.3616, 114.3616, 114.3605, 114.3608, 114.3612, 114.3617, 114.3619, 
  114.3622, 114.3616, 114.3607, 114.3585, 114.3579, 114.3574, 114.3571, 114.3572, 114.3568, 114.3559, 
  114.3556, 114.3549, 114.3532, 114.3522, 114.3523, 114.3532, 114.3538, 114.3541, 114.3541, 114.3539, 
  114.3536, 114.3537, 114.3533, 114.3534, 114.3535, 114.3541, 114.3544, 114.3549, 114.3552, 114.3559, 
  114.3566, 114.3567, 114.3564, 114.3564, 114.3555, 114.3554, 114.3552, 114.3552, 114.355, 114.355, 
  114.3553, 114.3552, 114.3549, 114.3551, 114.356, 114.356, 114.356, 114.3556, 114.3556, 114.3548, 
  114.3545, 114.3546, 114.3542, 114.3547, 114.3552, 114.355, 114.3541, 114.3539, 114.3541, 114.3539, 
  114.3545, 114.3542, 114.3535, 114.3536, 114.3539, 114.3552, 114.3546, 114.3546, 114.3559, 114.3562, 
  114.3558, 114.3549, 114.3547, 114.3538, 114.3537, 114.3542, 114.3544, 114.3556, 114.3557, 114.3561, 
  114.3556, 114.3551, 114.3537, 114.3535, 114.3533, 114.3528, 114.3527, 114.3524, 114.3522, 114.351, 
  114.3493, 114.3485, 114.3479, 114.3472, 114.3473, 114.349, 114.351, 114.351, 114.3498, 114.3496, 
  114.3497, 114.3499, 114.3495, 114.3492, 114.3489, 114.3483, 114.3475, 114.3471, 114.3471, 114.3471, 
  114.3476, 114.3472, 114.3466, 114.3462, 114.3454, 114.3444, 114.3438, 114.3429, 114.3423, 114.342, 
  114.3422, 114.3418, 114.3421, 114.3421, 114.3424, 114.3422, 114.3419, 114.3421, 114.3421, 114.3421, 
  114.342, 114.3419, 114.3416, 114.3413, 114.3403, 114.34, 114.3396, 114.3394, 114.3389, 114.3384, 
  114.338, 114.338, 114.338, 114.3384, 114.3385, 114.3386, 114.3395, 114.3397, 114.341, 114.3415, 
  114.3416, 114.3411, 114.3406, 114.3401, 114.3391, 114.3388, 114.3376, 114.3367, 114.3364, 114.3353, 
  114.3345, 114.3342, 114.3341, 114.3339, 114.3347, 114.3357, 114.3361, 114.3367, 114.337, 114.3369, 
  114.3371, 114.3374, 114.3375, 114.337, 114.3366, 114.3355, 114.3344, 114.3343, 114.3341, 114.3341, 
  114.3338, 114.3335, 114.3332, 114.333, 114.3333, 114.3333, 114.3327, 114.3329, 114.3329, 114.3334, 
  114.3339, 114.3339, 114.3345, 114.3347, 114.335, 114.3352, 114.3356, 114.336, 114.3372, 114.3388, 
  114.3398, 114.3405, 114.3414, 114.3417, 114.3416, 114.3417, 114.3413, 114.3415, 114.3412, 114.341, 
  114.3396, 114.3392, 114.3381, 114.338, 114.338, 114.3383, 114.3386, 114.3389, 114.3386, 114.3375, 
  114.337, 114.3372, 114.3378, 114.3383, 114.3385, 114.3385, 114.3387, 114.3387, 114.3389, 114.3379, 
  114.3385, 114.3392, 114.3401, 114.3412, 114.3431, 114.3441, 114.345, 114.3457, 114.346, 114.3465, 
  114.3468, 114.3468, 114.3469, 114.3473, 114.3473, 114.3472, 114.3462, 114.3461, 114.3458, 114.346, 
  114.3457, 114.3456, 114.3452, 114.3444, 114.3438, 114.344, 114.3445, 114.3445, 114.3441, 114.3441, 
  114.3438, 114.3437, 114.343, 114.3431, 114.3429, 114.3427, 114.3425, 114.3418, 114.3411, 114.3402, 
  114.3394, 114.3393, 114.3387, 114.338, 114.3377, 114.3375, 114.3376, 114.3384, 114.3386, 114.3392, 
  114.3393, 114.3395, 114.3392, 114.3387, 114.3384, 114.3381, 114.3373, 114.3367, 114.3365, 114.3362, 
  114.3361, 114.3365, 114.3364, 114.3371, 114.3361, 114.3358, 114.3358, 114.3351, 114.3346, 114.3348, 
  114.3332, 114.3331, 114.3331, 114.3329, 114.3324, 114.3317, 114.3312, 114.3304, 114.3304, 114.3301, 
  114.3287, 114.3276, 114.3271, 114.3269, 114.3281, 114.3284, 114.3287, 114.3288, 114.3286, 114.3291, 
  114.3292, 114.329, 114.3291, 114.329, 114.3297, 114.3306, 114.331, 114.3313, 114.3316, 114.332, 
  114.3318, 114.3311, 114.3313, 114.3314, 114.3311, 114.3307, 114.33, 114.3295, 114.329, 114.3288, 
  114.3282, 114.3282, 114.3278, 114.3261, 114.3256, 114.3247, 114.3238, 114.3237, 114.3236, 114.3233, 
  114.323, 114.3237, 114.3238, 114.323, 114.3223, 114.3222, 114.3223, 114.3222, 114.3215, 114.3214, 
  114.3211, 114.3207, 114.3207, 114.3205, 114.3204, 114.3202, 114.3196, 114.3178, 114.3162, 114.3147, 
  114.3146, 114.3144, 114.3142, 114.3139, 114.3132, 114.3132, 114.3125, 114.312, 114.312, 114.3112, 
  114.31, 114.3083, 114.3076, 114.3054, 114.305, 114.3053, 114.3046, 114.3044, 114.3046, 114.3048, 
  114.3035, 114.3025, 114.3022, 114.3019, 114.3021, 114.3029, 114.3029, 114.3026, 114.3027, 114.3032, 
  114.3032, 114.303, 114.3032, 114.3033, 114.3035, 114.3035, 114.3038, 114.3038, 114.3037, 114.304, 
  114.3037, 114.3034, 114.3036, 114.3032, 114.3033, 114.303, 114.3025, 114.302, 114.3017, 114.3011, 
  114.3009, 114.3006, 114.3004, 114.2998, 114.2995, 114.2996, 114.3, 114.3, 114.2999, 114.2999, 
  114.2996, 114.2994, 114.2988, 114.2982, 114.2974, 114.297, 114.2965, 114.2955, 114.2952, 114.2949, 
  114.2949, 114.2947, 114.2946, 114.2939, 114.2935, 114.2932, 114.2931, 114.2918, 114.2916, 114.2916, 
  114.2921, 114.2914, 114.2918, 114.2913, 114.2916, 114.2916, 114.2922, 114.2917, 114.2914, 114.2903, 
  114.29, 114.2897, 114.2898, 114.2894, 114.2892, 114.289, 114.2872, 114.2869, 114.2863, 114.2857, 
  114.2854, 114.2849, 114.2846, 114.2845, 114.2824, 114.2808, 114.2801, 114.2793, 114.2791, 114.2779, 
  114.2774, 114.2771, 114.2776, 114.2779, 114.2784, 114.2786, 114.2785, 114.2796, 114.2803, 114.2805, 
  114.2809, 114.281, 114.2815, 114.2818, 114.2821, 114.2824, 114.2827, 114.2837, 114.2839, 114.2832, 
  114.2824, 114.2821, 114.2818, 114.2814, 114.2811, 114.2818, 114.2817, 114.2819, 114.282, 114.2822, 
  114.2829, 114.2834, 114.2832, 114.284, 114.2847, 114.285, 114.2852, 114.2857, 114.2866, 114.2868, 
  114.2873, 114.2875, 114.2884, 114.2887, 114.2894, 114.2896, 114.2894, 114.2889, 114.2886, 114.2884, 
  114.2882, 114.2881, 114.2873, 114.2874, 114.2876, 114.2874, 114.2855, 114.2844, 114.2841, 114.283, 
  114.2829, 114.2793, 114.276, 114.2757, 114.2759, 114.2757, 114.2755, 114.275, 114.2751, 114.2754, 
  114.2756, 114.2758, 114.276, 114.276, 114.2757, 114.2758, 114.276, 114.2758, 114.276, 114.2764, 
  114.2762, 114.2762, 114.2758, 114.2752, 114.2741, 114.2741, 114.2742, 114.2736, 114.2731, 114.2725, 
  114.2711, 114.2707, 114.2701, 114.2701, 114.2699, 114.2683, 114.2683, 114.2673, 114.2675, 114.2679, 
  114.2684, 114.2691, 114.2699, 114.2703, 114.2707, 114.2706, 114.2708, 114.2704, 114.2705, 114.271, 
  114.271, 114.2707, 114.2708, 114.2708, 114.2709, 114.271, 114.2708, 114.2709, 114.2707, 114.2707, 
  114.2704, 114.2704, 114.2706, 114.2708, 114.2702, 114.2699, 114.2696, 114.2694, 114.269, 114.2689, 
  114.2687, 114.2684, 114.2679, 114.2677, 114.2672, 114.2672, 114.2669, 114.2666, 114.2664, 114.2662, 
  114.266, 114.2659, 114.2657, 114.2654, 114.2652, 114.265, 114.2647, 114.2643, 114.264, 114.2639, 
  114.2631, 114.2631, 114.2629, 114.2622, 114.2617, 114.2614, 114.2611, 114.2609, 114.2606, 114.26, 
  114.2598, 114.2595, 114.259, 114.258, 114.2574, 114.2573, 114.2572, 114.2572, 114.257, 114.257, 
  114.2568, 114.2566, 114.2565, 114.2564, 114.2563, 114.2561, 114.2556, 114.2556, 114.2551, 114.2544, 
  114.2544, 114.2542, 114.2543, 114.2542, 114.2538, 114.2531, 114.2509, 114.2501, 114.2485, 114.2482, 
  114.247, 114.2467, 114.2464, 114.2459, 114.2456, 114.2451, 114.2447, 114.2441, 114.2446, 114.2447, 
  114.2455, 114.246, 114.2475, 114.2481, 114.2478, 114.2479, 114.2476, 114.2464, 114.2459, 114.2456, 
  114.2452, 114.2434, 114.2431, 114.2423, 114.241, 114.2399, 114.2395, 114.2382, 114.2377, 114.2374, 
  114.237, 114.2369, 114.237, 114.2369, 114.2378, 114.2387, 114.239, 114.2388, 114.2383, 114.2373, 
  114.2366, 114.2353, 114.2353, 114.2341, 114.2335, 114.2335, 114.2338, 114.2338, 114.2334, 114.2313, 
  114.2313, 114.2283, 114.2276, 114.2268, 114.2263, 114.2258, 114.2252, 114.2247, 114.2243, 114.2239, 
  114.2237, 114.2233, 114.2231, 114.2227, 114.2224, 114.2213, 114.2208, 114.2201, 114.2191, 114.2172, 
  114.2137, 114.2148, 114.2143, 114.2147, 114.2146, 114.2151, 114.2152, 114.2149, 114.2142, 114.2133, 
  114.205, 114.2016, 114.2007, 114.1997, 114.199, 114.1963, 114.1951, 114.1934, 114.193, 114.1923, 
  114.1889, 114.1884, 114.1881, 114.1876, 114.1858, 114.1856, 114.1851, 114.1846, 114.1827, 114.1814, 
  114.1788, 114.1788, 114.1784, 114.1785, 114.179, 114.1795, 114.179, 114.178, 114.1777, 114.1779, 
  114.1782, 114.178, 114.1786, 114.1799, 114.1804, 114.1808, 114.181, 114.1812, 114.1815, 114.1819, 
  114.1826, 114.1864, 114.1928, 114.193, 114.1934, 114.1932, 114.1939, 114.1964, 114.1976, 114.1983, 
  114.1984, 114.1983, 114.1992, 114.1993, 114.1995, 114.1998, 114.2009, 114.2021, 114.2027, 114.2031, 
  114.2031, 114.2031, 114.2041, 114.2044, 114.2045, 114.2047, 114.2048, 114.2062, 114.2071, 114.2073, 
  114.2079, 114.2084, 114.2089, 114.209, 114.2098, 114.2106, 114.2109, 114.2117, 114.2132, 114.2134, 
  114.2136, 114.214, 114.2141, 114.2138, 114.2134, 114.2127, 114.2126, 114.2118, 114.2115, 114.2112, 
  114.2105, 114.2103, 114.2095, 114.2098, 114.2107, 114.2113, 114.2121, 114.2124, 114.2126, 114.213, 
  114.2142, 114.2145, 114.2154, 114.216, 114.2164, 114.2162, 114.2156, 114.2156, 114.2161, 114.2173, 
  114.2175, 114.2172, 114.2166, 114.2167, 114.2173, 114.2178, 114.2189, 114.2193, 114.2202, 114.2209, 
  114.2215, 114.2218, 114.2219, 114.2224, 114.2228, 114.2234, 114.2242, 114.2247, 114.2249, 114.2248, 
  114.2252, 114.2262, 114.2266, 114.2274, 114.2284, 114.2292, 114.2304, 114.2315, 114.2322, 114.2328, 
  114.2338, 114.2337, 114.2346, 114.2346, 114.2341, 114.2338, 114.2323, 114.2319, 114.231, 114.2298, 
  114.228, 114.2279, 114.2275, 114.2276, 114.2268, 114.2268, 114.2258, 114.2255, 114.2249, 114.2232, 
  114.223, 114.2228, 114.2218, 114.2215, 114.221, 114.2204, 114.2196, 114.2166, 114.2155, 114.2151, 
  114.2153, 114.2163, 114.2165, 114.2168, 114.2165, 114.2165, 114.2164, 114.2161, 114.2157, 114.2157, 
  114.2155, 114.2149, 114.2147, 114.2147, 114.2143, 114.2139, 114.2135, 114.2133, 114.2122, 114.212, 
  114.212, 114.2117, 114.2117, 114.2113, 114.2112, 114.2103, 114.2097, 114.2089, 114.2081, 114.2084, 
  114.2084, 114.2085, 114.2087, 114.209, 114.2093, 114.2093, 114.2096, 114.2095, 114.2088, 114.2091, 
  114.2096, 114.2098, 114.2098, 114.2101, 114.2101, 114.2104, 114.2109, 114.2112, 114.2113, 114.2116, 
  114.2118, 114.2121, 114.2122, 114.2123, 114.2126, 114.2126, 114.213, 114.2132, 114.2131, 114.2132, 
  114.2128, 114.2134, 114.2136, 114.2138, 114.2143, 114.2143, 114.215, 114.2151, 114.2165, 114.2181, 
  114.218, 114.2176, 114.2174, 114.2175, 114.2177, 114.2177, 114.218, 114.2181, 114.2187, 114.2193, 
  114.2197, 114.22, 114.2202, 114.2208, 114.2213, 114.2222, 114.2226, 114.2228, 114.2228, 114.2228, 
  114.2231, 114.2235, 114.2235, 114.2236, 114.2244, 114.2245, 114.2249, 114.2251, 114.2257, 114.2266, 
  114.2266, 114.2271, 114.2288, 114.2286, 114.2313, 114.2316, 114.2317, 114.2322, 114.2328, 114.233, 
  114.2333, 114.2333, 114.2327, 114.2321, 114.2318, 114.2317, 114.2317, 114.233, 114.233, 114.2331, 
  114.2338, 114.2344, 114.2348, 114.2477, 114.2472, 114.2466, 114.2469, 114.2468, 114.2468, 114.2465, 
  114.2468, 114.247, 114.2474, 114.2478, 114.2498, 114.25, 114.2503, 114.2506, 114.2513, 114.2522, 
  114.2523, 114.2531, 114.254, 114.2544, 114.2545, 114.2547, 114.2549, 114.256, 114.2564, 114.2569, 
  114.2574, 114.2575, 114.2573, 114.2575, 114.2582, 114.2587, 114.2596, 114.2593, 114.2593, 114.2613, 
  114.2623, 114.2628, 114.2636, 114.2641, 114.2661, 114.2681, 114.2687, 114.2701, 114.2723, 114.2731, 
  114.2749, 114.2747, 114.2736, 114.272, 114.2712, 114.2706, 114.2701, 114.2699, 114.2707, 114.2716, 
  114.2734, 114.2762, 114.2782, 114.2791, 114.2796, 114.2853, 114.2873, 114.2883, 114.2894, 114.2902, 
  114.2897, 114.2905, 114.2914, 114.2931, 114.2945, 114.2943, 114.2952, 114.2963, 114.2977, 114.2995, 
  114.3017, 114.3027, 114.3042, 114.3055, 114.3076, 114.3082, 114.3095, 114.3094, 114.3082, 114.3069, 
  114.3067, 114.3069, 114.3064, 114.3067, 114.3079, 114.3085, 114.3091, 114.309, 114.3093, 114.31, 
  114.3105, 114.3108, 114.3107, 114.3113, 114.3118, 114.3122, 114.3124, 114.3117, 114.3117, 114.3121, 
  114.312, 114.3126, 114.3135, 114.3135, 114.3142, 114.3147, 114.3155, 114.3156, 114.3168, 114.318, 
  114.3182, 114.3185, 114.319, 114.319, 114.3198, 114.3197, 114.3213, 114.3216, 114.322, 114.3218, 
  114.322, 114.3224, 114.3228, 114.3231, 114.3235, 114.3233, 114.3235, 114.3236, 114.3243, 114.3245, 
  114.3259, 114.3263, 114.3265, 114.3267, 114.3269, 114.327, 114.3274, 114.3277, 114.3281, 114.3283, 
  114.3282, 114.3284, 114.3283, 114.3286, 114.3291, 114.3294, 114.3299, 114.3307, 114.3317, 114.332, 
  114.3341, 114.3351, 114.3362, 114.3367, 114.3364, 114.336, 114.3359, 114.3346, 114.3339, 114.3331, 
  114.3326, 114.3313, 114.3302, 114.3298, 114.3281, 114.3277, 114.3277, 114.3274, 114.3272, 114.3268, 
  114.3261, 114.3256, 114.324, 114.3221, 114.3218, 114.3203, 114.32, 114.32, 114.3203, 114.3201, 
  114.3196, 114.3193, 114.3178, 114.3174, 114.3169, 114.3164, 114.316, 114.3161, 114.3147, 114.3133, 
  114.3133, 114.3128, 114.312, 114.3117, 114.3104, 114.3098, 114.3091, 114.3089, 114.3086, 114.3067, 
  114.3065, 114.3056, 114.3052, 114.3049, 114.3044, 114.3043, 114.3047, 114.3046, 114.3037, 114.3031, 
  114.303, 114.3018, 114.3016, 114.3012, 114.3004, 114.3003, 114.3001, 114.3005, 114.3001, 114.2998, 
  114.2996, 114.2986, 114.2981, 114.2974, 114.2974, 114.2974, 114.2976, 114.2975, 114.297, 114.297, 
  114.2961, 114.2958, 114.2954, 114.2953, 114.2949, 114.2946, 114.2938, 114.2937, 114.2942, 114.2941, 
  114.2936, 114.293, 114.2933, 114.2927, 114.2937, 114.2939, 114.2938, 114.293, 114.2927, 114.2929, 
  114.2924, 114.2924, 114.2922, 114.2917, 114.2915, 114.2917, 114.2916, 114.2912, 114.2897, 114.2896, 
  114.2903, 114.2903, 114.2899, 114.2901, 114.29, 114.2902, 114.2914, 114.2916, 114.2915, 114.291, 
  114.2912, 114.291, 114.2908, 114.2905, 114.2892, 114.2885, 114.2885, 114.2882, 114.2872, 114.287, 
  114.2867, 114.2864, 114.2862, 114.2865, 114.287, 114.2879, 114.2877, 114.2874, 114.2868, 114.2863, 
  114.2852, 114.2845, 114.284, 114.2834, 114.2832, 114.2829, 114.2824, 114.2821, 114.2825, 114.2833, 
  114.2841, 114.2845, 114.2849, 114.2858, 114.2859, 114.2855, 114.2848, 114.2845, 114.284, 114.284, 
  114.2838, 114.2835, 114.2833, 114.2822, 114.2815, 114.2813, 114.2806, 114.2799, 114.2795, 114.2789, 
  114.2787, 114.278, 114.2778, 114.278, 114.2779, 114.2781, 114.2777, 114.2765, 114.2759, 114.2754, 
  114.2753, 114.2755, 114.2758, 114.2758, 114.2754, 114.2751, 114.2749, 114.2745, 114.2741, 114.2739, 
  114.2734, 114.2731, 114.2724, 114.2721, 114.2721, 114.2727, 114.2732, 114.2738, 114.2743, 114.2748, 
  114.2748, 114.2738, 114.2736, 114.2743, 114.2748, 114.2754, 114.2751, 114.2746, 114.2743, 114.2742, 
  114.2746, 114.2748, 114.2752, 114.2752, 114.2751, 114.2752, 114.2749, 114.2736, 114.2732, 114.2731, 
  114.2729, 114.2726, 114.2722, 114.2715, 114.2719, 114.2724, 114.2722, 114.2719, 114.2718, 114.2723, 
  114.2721, 114.2725, 114.2725, 114.2736, 114.2737, 114.2737, 114.2735, 114.2731, 114.2726, 114.272, 
  114.2723, 114.2725, 114.2724, 114.2725, 114.2729, 114.2734, 114.2741, 114.2742, 114.2748, 114.2755, 
  114.2762, 114.2765, 114.2761, 114.2767, 114.2769, 114.2775, 114.2781, 114.2786, 114.2788, 114.279, 
  114.279, 114.2792, 114.2795, 114.2796, 114.2792, 114.2792, 114.2796, 114.2802, 114.281, 114.2816, 
  114.2818, 114.282, 114.2816, 114.2811, 114.2817, 114.2823, 114.2832, 114.2837, 114.2841, 114.2853, 
  114.2857, 114.2858, 114.2858, 114.286, 114.2859, 114.2856, 114.285, 114.2845, 114.2846, 114.2848, 
  114.2843, 114.2836, 114.283, 114.2829, 114.2831, 114.283, 114.2826, 114.2822, 114.2823, 114.2822, 
  114.2806, 114.2806, 114.2804, 114.2794, 114.2793, 114.2797, 114.2791, 114.2777, 114.2775, 114.2782, 
  114.2786, 114.2787, 114.278, 114.2781, 114.2786, 114.2797, 114.2796, 114.2801, 114.281, 114.2814, 
  114.2817, 114.2817, 114.281, 114.2803, 114.2797, 114.2786, 114.2783, 114.2766, 114.2753, 114.275, 
  114.2748, 114.2743, 114.2736, 114.2737, 114.2741, 114.2748, 114.2751, 114.2754, 114.2756, 114.2756, 
  114.2755, 114.2749, 114.2742, 114.2735, 114.2725, 114.27, 114.269, 114.2681, 114.2679, 114.2673, 
  114.2666, 114.2663, 114.2664, 114.2652, 114.2644, 114.2642, 114.2641, 114.2639, 114.2634, 114.2632, 
  114.2632, 114.2631, 114.2631, 114.2621, 114.262, 114.2616, 114.2617, 114.2621, 114.2623, 114.2624, 
  114.2625, 114.2623, 114.2626, 114.2625, 114.2631, 114.2631, 114.2641, 114.2672, 114.2677, 114.2674, 
  114.2671, 114.2661, 114.2656, 114.265, 114.2642, 114.2636, 114.2634, 114.2629, 114.2624, 114.2622, 
  114.2618, 114.2617, 114.262, 114.2622, 114.2628, 114.2626, 114.2634, 114.2635, 114.2632, 114.2632, 
  114.2628, 114.2625, 114.2624, 114.262, 114.2613, 114.2607, 114.2603, 114.2602, 114.2601, 114.2597, 
  114.2596, 114.2592, 114.2591, 114.2587, 114.2587, 114.2582, 114.258, 114.2572, 114.2568, 114.2563, 
  114.256, 114.2562, 114.2565, 114.2567, 114.2575, 114.2579, 114.2582, 114.2579, 114.2582, 114.2582, 
  114.2583, 114.259, 114.2587, 114.2586, 114.2583, 114.257, 114.2565, 114.2566, 114.2572, 114.2573, 
  114.2582, 114.2584, 114.2594, 114.2594, 114.2595, 114.2597, 114.2601, 114.2607, 114.2608, 114.2608, 
  114.2606, 114.2603, 114.2599, 114.2596, 114.2594, 114.2584, 114.2582, 114.2574, 114.257, 114.2565, 
  114.2564, 114.2555, 114.2549, 114.2549, 114.2553, 114.2553, 114.2541, 114.2542, 114.2534, 114.2532, 
  114.2522, 114.2526, 114.2529, 114.2536, 114.2533, 114.2531, 114.2521, 114.2514, 114.2512, 114.2511, 
  114.2507, 114.2505, 114.2503, 114.2503, 114.2506, 114.2506, 114.251, 114.2512, 114.2504, 114.2496, 
  114.2493, 114.2471, 114.247, 114.2468, 114.2467, 114.2471, 114.2476, 114.2472, 114.2466, 114.2461, 
  114.2449, 114.2447, 114.2443, 114.2443, 114.2445, 114.2447, 114.2446, 114.2445, 114.2438, 114.2438, 
  114.2438, 114.2434, 114.2434, 114.2431, 114.243, 114.2431, 114.243, 114.2431, 114.243, 114.2431, 
  114.243, 114.243, 114.2428, 114.2426, 114.2425, 114.2426, 114.2425, 114.2426, 114.2426, 114.2426, 
  114.2426, 114.2426, 114.2429, 114.2428, 114.2425, 114.2418, 114.2414, 114.2409, 114.2407, 114.2409, 
  114.241, 114.2408, 114.2409, 114.2408, 114.2403, 114.2403, 114.2396, 114.239, 114.2387, 114.2387, 
  114.2386, 114.2384, 114.2385, 114.2383, 114.2375, 114.2377, 114.2365, 114.2361, 114.2361, 114.234, 
  114.2333, 114.233, 114.2306, 114.2296, 114.2292, 114.2291, 114.2292, 114.229, 114.2281, 114.2277, 
  114.2274, 114.2274, 114.226, 114.2258, 114.2252, 114.2247, 114.2246, 114.224, 114.2238, 114.2235, 
  114.2228, 114.2218, 114.2214, 114.2213, 114.2216, 114.2215, 114.2218, 114.2217, 114.2212, 114.2208, 
  114.2201, 114.2202, 114.2202, 114.2197, 114.2193, 114.2192, 114.2158, 114.216, 114.216, 114.2159, 
  114.2164, 114.2163, 114.2163, 114.2157, 114.2154, 114.2152, 114.2152, 114.2143, 114.2126, 114.2107, 
  114.21, 114.2099, 114.2101, 114.2102, 114.2104, 114.2103, 114.2087, 114.2083, 114.2084, 114.2087, 
  114.2086, 114.2084, 114.2091, 114.2095, 114.2085, 114.2083, 114.209, 114.2082, 114.2083, 114.2085, 
  114.2084, 114.209, 114.2095, 114.2097, 114.2097, 114.2096, 114.209, 114.2085, 114.2086, 114.2095, 
  114.2098, 114.2095, 114.2099, 114.2102, 114.2104, 114.2106, 114.2113, 114.2117, 114.2124, 114.2148, 
  114.2153, 114.2157, 114.2161, 114.2156, 114.2157, 114.2164, 114.2171, 114.2178, 114.2188, 114.22, 
  114.219, 114.2196, 114.2201, 114.2212, 114.2219, 114.223, 114.2232, 114.2241, 114.2243, 114.225, 
  114.2249, 114.2251, 114.2252, 114.2263, 114.2263, 114.2261, 114.2261, 114.2254, 114.2254, 114.2258, 
  114.2266, 114.227, 114.2265, 114.2261, 114.2255, 114.2246, 114.2244, 114.2243, 114.224, 114.2236, 
  114.2233, 114.2228, 114.2218, 114.2215, 114.2214, 114.2211, 114.2209, 114.2208, 114.2208, 114.2204, 
  114.2201, 114.2198, 114.2194, 114.2194, 114.2192, 114.2179, 114.2171, 114.2169, 114.2169, 114.2168, 
  114.2163, 114.216, 114.2157, 114.2153, 114.2148, 114.2143, 114.2135, 114.2134, 114.2131, 114.2128, 
  114.2127, 114.2125, 114.2122, 114.212, 114.2119, 114.2119, 114.2117, 114.2116, 114.2113, 114.2107, 
  114.2095, 114.2093, 114.2085, 114.2015, 114.2011, 114.2011, 114.2009, 114.2006, 114.2003, 114.1995, 
  114.1993, 114.199, 114.1961, 114.196, 114.196, 114.195, 114.1942, 114.1932, 114.1922, 114.192, 
  114.1911, 114.1907, 114.1905, 114.1893, 114.1886, 114.1885, 114.1881, 114.1877, 114.1874, 114.1872, 
  114.1868, 114.1866, 114.1842, 114.1817, 114.1812, 114.1811, 114.181, 114.1777, 114.1776, 114.1774, 
  114.1773, 114.1761, 114.1747, 114.1731, 114.1708, 114.1702, 114.1698, 114.1695, 114.1693, 114.1688, 
  114.1678, 114.1674, 114.167, 114.166, 114.1651, 114.1645, 114.1635, 114.1632, 114.1624, 114.1618, 
  114.1614, 114.161, 114.1602, 114.1593, 114.1589, 114.1584, 114.1571, 114.1569, 114.1567, 114.1564, 
  114.156, 114.1559, 114.1554, 114.1551, 114.1549, 114.1547, 114.1544, 114.1537, 114.1525, 114.1523, 
  114.1521, 114.152, 114.1519, 114.1517, 114.1516, 114.1517, 114.1516, 114.1513, 114.1509, 114.1503, 
  114.15, 114.1498, 114.1497, 114.1496, 114.1496, 114.1496, 114.1498, 114.1501, 114.1505, 114.1514, 
  114.1516, 114.1518, 114.152, 114.152, 114.1518, 114.1513, 114.1508, 114.1505, 114.1502, 114.1499, 
  114.1487, 114.1483, 114.1483, 114.1486, 114.1486, 114.1483, 114.1477, 114.1454, 114.1446, 114.1444, 
  114.144, 114.1422, 114.1412, 114.1401, 114.1384, 114.1376, 114.136, 114.1349, 114.134, 114.1337, 
  114.1312, 114.1304, 114.1294, 114.1289, 114.1283, 114.1276, 114.1259, 114.125, 114.1221, 114.12, 
  114.1174, 114.1164, 114.1161, 114.1157, 114.1147, 114.1122, 114.1108, 114.1096, 114.1081, 114.1076, 
  114.1039, 114.103, 114.0979, 114.0973, 114.0957, 114.0941, 114.0934, 114.0927, 114.0918, 114.0902, 
  114.0896, 114.0884, 114.0877, 114.0859, 114.0852, 114.0838, 114.0796, 114.0781, 114.0776, 114.0744, 
  114.0739, 114.0726, 114.0693, 114.0652, 114.0644, 114.0607, 114.0595, 114.0585, 114.058, 114.0577, 
  114.0573, 114.057, 114.0568, 114.0564, 114.0556, 114.0525, 114.051, 114.0494, 114.0465, 114.0407, 
  114.034, 114.0285)
MGeo_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
if (st_is_valid(MGeo_1) == FALSE) {MGeo_1 <- st_make_valid(MGeo_1)}
LATITUDE_VALUEs <- c(
  22.33538, 22.33531, 22.33547, 22.33572, 22.33581, 22.33582, 22.33624, 22.33673, 22.33698, 22.33735, 
  22.3377, 22.33792, 22.33827, 22.33872, 22.33892, 22.33906, 22.33915, 22.33934, 22.33947, 22.33989, 
  22.34017, 22.34034, 22.34056, 22.34071, 22.34126, 22.34175, 22.34212, 22.3422, 22.34254, 22.34256, 
  22.34306, 22.3434, 22.34354, 22.34343, 22.34358, 22.34334, 22.34395, 22.34419, 22.34485, 22.34505, 
  22.34508, 22.34552, 22.34631, 22.3463, 22.34707, 22.34746, 22.34747, 22.34731, 22.34669, 22.34637, 
  22.34577, 22.3454, 22.34465, 22.34433, 22.34331, 22.34237, 22.34185, 22.34093, 22.34092, 22.3411, 
  22.34125, 22.34064, 22.3405, 22.34014, 22.33975, 22.33993, 22.33932, 22.33919, 22.336, 22.33657, 
  22.33657, 22.33632, 22.33599, 22.33467, 22.33295, 22.33262, 22.33211, 22.33076, 22.32957, 22.32814, 
  22.32687, 22.32617, 22.32585, 22.32613, 22.32668, 22.32696, 22.32745, 22.32809, 22.32855, 22.32879, 
  22.32944, 22.32996, 22.33118, 22.3313, 22.33177, 22.33204, 22.33222, 22.33274, 22.33312, 22.33326, 
  22.33343, 22.33385, 22.33435, 22.33476, 22.33529, 22.33544, 22.33576, 22.33588, 22.33633, 22.33632, 
  22.33623, 22.33549, 22.33526, 22.33466, 22.33439, 22.33389, 22.3334, 22.33304, 22.33274, 22.3322, 
  22.3324, 22.33216, 22.33201, 22.33223, 22.33276, 22.333, 22.33333, 22.33381, 22.33373, 22.33249, 
  22.33209, 22.33119, 22.33019, 22.32996, 22.32928, 22.32904, 22.32923, 22.329, 22.32882, 22.32844, 
  22.32795, 22.32765, 22.32673, 22.32667, 22.32627, 22.32559, 22.32532, 22.32513, 22.32486, 22.324, 
  22.3221, 22.32207, 22.32141, 22.321, 22.32078, 22.32098, 22.32085, 22.31972, 22.31995, 22.31871, 
  22.31812, 22.31736, 22.31466, 22.31175, 22.31119, 22.30738, 22.30476, 22.30254, 22.30154, 22.29914, 
  22.29527, 22.29521, 22.29755, 22.29785, 22.29938, 22.29948, 22.29884, 22.29924, 22.2988, 22.29898, 
  22.29799, 22.29807, 22.29751, 22.29767, 22.30228, 22.30573, 22.30704, 22.30688, 22.30619, 22.3051, 
  22.30428, 22.30407, 22.29865, 22.29674, 22.29432, 22.29382, 22.29058, 22.28896, 22.28842, 22.28731, 
  22.28703, 22.28657, 22.28631, 22.28606, 22.28591, 22.28567, 22.28542, 22.28525, 22.28541, 22.28543, 
  22.28561, 22.28594, 22.28588, 22.28568, 22.28515, 22.28452, 22.28449, 22.28426, 22.2843, 22.28377, 
  22.28309, 22.28164, 22.27963, 22.27942, 22.27957, 22.28141, 22.28232, 22.28235, 22.28215, 22.28181, 
  22.28157, 22.28143, 22.28137, 22.28118, 22.28149, 22.28164, 22.28197, 22.28178, 22.28096, 22.28139, 
  22.28219, 22.28271, 22.28316, 22.28341, 22.28308, 22.28364, 22.28377, 22.28446, 22.28464, 22.2853, 
  22.28579, 22.28629, 22.28706, 22.28755, 22.28865, 22.28962, 22.29006, 22.29057, 22.29066, 22.29153, 
  22.29096, 22.291, 22.29147, 22.29229, 22.29271, 22.2927, 22.29201, 22.29217, 22.29137, 22.29123, 
  22.29064, 22.29012, 22.28999, 22.29065, 22.29132, 22.29178, 22.29223, 22.29209, 22.29266, 22.29251, 
  22.29275, 22.29244, 22.29275, 22.29333, 22.29291, 22.29162, 22.29061, 22.28985, 22.28932, 22.29012, 
  22.29145, 22.29169, 22.29094, 22.29128, 22.29182, 22.29126, 22.29002, 22.28929, 22.28906, 22.28791, 
  22.28731, 22.2871, 22.28571, 22.28451, 22.28248, 22.28029, 22.27997, 22.2792, 22.27796, 22.27679, 
  22.2746, 22.2734, 22.27302, 22.27251, 22.27224, 22.27143, 22.26995, 22.26958, 22.26934, 22.26947, 
  22.26991, 22.27071, 22.27192, 22.27279, 22.27259, 22.27048, 22.27013, 22.26889, 22.26867, 22.26897, 
  22.26872, 22.26751, 22.2665, 22.26575, 22.26422, 22.26372, 22.26116, 22.25951, 22.25892, 22.25852, 
  22.25883, 22.2591, 22.25925, 22.25944, 22.25971, 22.25979, 22.25982, 22.26008, 22.26047, 22.2606, 
  22.26081, 22.26118, 22.26107, 22.26088, 22.26083, 22.26135, 22.26115, 22.26096, 22.26107, 22.26015, 
  22.25953, 22.25927, 22.258, 22.25785, 22.25741, 22.25678, 22.25672, 22.25654, 22.25618, 22.25606, 
  22.25586, 22.25462, 22.25433, 22.25417, 22.25421, 22.25371, 22.25351, 22.25345, 22.25312, 22.25261, 
  22.25264, 22.25284, 22.25309, 22.25295, 22.25327, 22.2538, 22.2543, 22.25477, 22.2556, 22.25555, 
  22.25517, 22.25528, 22.25478, 22.25419, 22.25446, 22.2542, 22.25422, 22.2539, 22.2537, 22.25379, 
  22.25334, 22.25296, 22.25229, 22.24713, 22.2472, 22.24694, 22.2468, 22.24675, 22.24662, 22.24612, 
  22.24614, 22.24585, 22.2453, 22.24523, 22.2445, 22.24392, 22.24316, 22.24229, 22.24146, 22.24007, 
  22.23863, 22.2374, 22.23628, 22.23478, 22.234, 22.23318, 22.23306, 22.23288, 22.23224, 22.23219, 
  22.23176, 22.23139, 22.23136, 22.23102, 22.23067, 22.23058, 22.23109, 22.23132, 22.23159, 22.23146, 
  22.23172, 22.23121, 22.23199, 22.2327, 22.23401, 22.23441, 22.23541, 22.2356, 22.23547, 22.23506, 
  22.23515, 22.23418, 22.23332, 22.23244, 22.23143, 22.2289, 22.22847, 22.22794, 22.22766, 22.22703, 
  22.22678, 22.22583, 22.2246, 22.22398, 22.22316, 22.22264, 22.22206, 22.22132, 22.22028, 22.21951, 
  22.21884, 22.21776, 22.21732, 22.21723, 22.21767, 22.21775, 22.21724, 22.21643, 22.21561, 22.21523, 
  22.21531, 22.21478, 22.21493, 22.21473, 22.21504, 22.21501, 22.21527, 22.21563, 22.21574, 22.21607, 
  22.21673, 22.21702, 22.21758, 22.21779, 22.21771, 22.21684, 22.21604, 22.21559, 22.21505, 22.21472, 
  22.21357, 22.2127, 22.21207, 22.21209, 22.21202, 22.21177, 22.21123, 22.21063, 22.21028, 22.20991, 
  22.20952, 22.20881, 22.20852, 22.20819, 22.20812, 22.20792, 22.2077, 22.20711, 22.20686, 22.20666, 
  22.20589, 22.20561, 22.20565, 22.20551, 22.20551, 22.20537, 22.20539, 22.20524, 22.20509, 22.20476, 
  22.2051, 22.20495, 22.20446, 22.20336, 22.20217, 22.20171, 22.20149, 22.20153, 22.2017, 22.20176, 
  22.20172, 22.20156, 22.20094, 22.20067, 22.20067, 22.19976, 22.19946, 22.19895, 22.19807, 22.19762, 
  22.19727, 22.19711, 22.19687, 22.19683, 22.19653, 22.19629, 22.19574, 22.19561, 22.19564, 22.1954, 
  22.19589, 22.19596, 22.19563, 22.19553, 22.19568, 22.19597, 22.19616, 22.19624, 22.1964, 22.19672, 
  22.1972, 22.19739, 22.19727, 22.19736, 22.19743, 22.19741, 22.19682, 22.19645, 22.19648, 22.19753, 
  22.19764, 22.19714, 22.19779, 22.19857, 22.19856, 22.19913, 22.20041, 22.20197, 22.20343, 22.20334, 
  22.20355, 22.20347, 22.20298, 22.20366, 22.20432, 22.20425, 22.20345, 22.20206, 22.2018, 22.20198, 
  22.20229, 22.20271, 22.20269, 22.20299, 22.20385, 22.20454, 22.2054, 22.20605, 22.20647, 22.20764, 
  22.2088, 22.2094, 22.20943, 22.21054, 22.21046, 22.21066, 22.21076, 22.21123, 22.21123, 22.21172, 
  22.21141, 22.21122, 22.21071, 22.21067, 22.21087, 22.21147, 22.21221, 22.21238, 22.21317, 22.21391, 
  22.21467, 22.21464, 22.21513, 22.21561, 22.21663, 22.21738, 22.21853, 22.21902, 22.21951, 22.22002, 
  22.22092, 22.22124, 22.22105, 22.21986, 22.21976, 22.22067, 22.22074, 22.22056, 22.22109, 22.22232, 
  22.22304, 22.22319, 22.22272, 22.22187, 22.22205, 22.2222, 22.22196, 22.22014, 22.21902, 22.21817, 
  22.2179, 22.21749, 22.21668, 22.21624, 22.2157, 22.2154, 22.21524, 22.21445, 22.21427, 22.21343, 
  22.21382, 22.21375, 22.21335, 22.2132, 22.21231, 22.21268, 22.2121, 22.21165, 22.21093, 22.21145, 
  22.21075, 22.21058, 22.20853, 22.20831, 22.20742, 22.20764, 22.20651, 22.20635, 22.20681, 22.20721, 
  22.2077, 22.20844, 22.20887, 22.21071, 22.21145, 22.21126, 22.21132, 22.21087, 22.20997, 22.20879, 
  22.20936, 22.20923, 22.2081, 22.20749, 22.20757, 22.20803, 22.2076, 22.20706, 22.20826, 22.20903, 
  22.20915, 22.20945, 22.20929, 22.20958, 22.20974, 22.2102, 22.21107, 22.21166, 22.21306, 22.21456, 
  22.21511, 22.21561, 22.21683, 22.217, 22.21746, 22.21759, 22.21835, 22.21872, 22.21883, 22.21781, 
  22.21786, 22.2174, 22.21721, 22.21732, 22.21705, 22.21749, 22.21738, 22.21789, 22.21803, 22.21856, 
  22.21942, 22.22014, 22.2209, 22.22164, 22.22155, 22.22594, 22.22646, 22.22605, 22.2249, 22.22465, 
  22.22455, 22.22474, 22.22504, 22.22526, 22.22511, 22.22572, 22.2259, 22.22614, 22.22694, 22.22787, 
  22.22884, 22.22883, 22.22907, 22.22966, 22.23082, 22.2323, 22.23389, 22.23402, 22.23373, 22.23396, 
  22.2338, 22.23327, 22.23282, 22.23242, 22.23165, 22.23187, 22.23157, 22.2319, 22.23245, 22.23291, 
  22.23326, 22.23312, 22.23327, 22.23296, 22.23345, 22.23551, 22.23579, 22.23582, 22.2362, 22.23615, 
  22.23658, 22.23658, 22.23721, 22.23748, 22.23825, 22.239, 22.23946, 22.23962, 22.2404, 22.23924, 
  22.23743, 22.23671, 22.23548, 22.23515, 22.23414, 22.23294, 22.2324, 22.22848, 22.228, 22.22802, 
  22.22762, 22.22728, 22.22497, 22.22491, 22.22274, 22.22143, 22.22083, 22.21985, 22.21868, 22.21839, 
  22.21781, 22.21718, 22.21685, 22.2169, 22.21637, 22.21623, 22.21616, 22.21541, 22.21556, 22.21525, 
  22.21456, 22.2144, 22.21408, 22.21245, 22.21228, 22.21248, 22.21256, 22.21246, 22.21252, 22.21278, 
  22.21312, 22.21324, 22.21312, 22.21321, 22.21343, 22.21337, 22.21345, 22.21364, 22.2138, 22.21425, 
  22.21534, 22.2156, 22.21512, 22.21519, 22.21519, 22.21562, 22.21644, 22.21665, 22.2173, 22.21784, 
  22.2182, 22.21821, 22.21806, 22.21792, 22.21719, 22.21717, 22.21684, 22.21629, 22.2156, 22.21539, 
  22.21477, 22.21471, 22.21496, 22.21517, 22.21488, 22.21515, 22.21534, 22.21563, 22.21575, 22.21618, 
  22.21686, 22.21722, 22.21753, 22.21794, 22.2183, 22.21885, 22.21943, 22.21929, 22.21945, 22.21909, 
  22.21915, 22.21968, 22.21962, 22.21983, 22.21991, 22.22031, 22.2205, 22.221, 22.22115, 22.22141, 
  22.22174, 22.22233, 22.22277, 22.22352, 22.22442, 22.22462, 22.22462, 22.22447, 22.22474, 22.22507, 
  22.22565, 22.2265, 22.22698, 22.22749, 22.22768, 22.22811, 22.22862, 22.22915, 22.22996, 22.2299, 
  22.23004, 22.23052, 22.23105, 22.23103, 22.23141, 22.23144, 22.23162, 22.23142, 22.2312, 22.23102, 
  22.23086, 22.23127, 22.23189, 22.23245, 22.23226, 22.23244, 22.23305, 22.23325, 22.23406, 22.23438, 
  22.23552, 22.23548, 22.23443, 22.23409, 22.23365, 22.23338, 22.23327, 22.23343, 22.23333, 22.23347, 
  22.23338, 22.23345, 22.23325, 22.23321, 22.23383, 22.23456, 22.2349, 22.23533, 22.23616, 22.2363, 
  22.23641, 22.23675, 22.23687, 22.23753, 22.23758, 22.23848, 22.23856, 22.23823, 22.23879, 22.23941, 
  22.24088, 22.24086, 22.23963, 22.23982, 22.24047, 22.24029, 22.23991, 22.2399, 22.24043, 22.24146, 
  22.24225, 22.24289, 22.24322, 22.24318, 22.2438, 22.24411, 22.24427, 22.24458, 22.2449, 22.24536, 
  22.24531, 22.24546, 22.24592, 22.24635, 22.24676, 22.24711, 22.24747, 22.24838, 22.24893, 22.24868, 
  22.24845, 22.24852, 22.24901, 22.24914, 22.24895, 22.24905, 22.2493, 22.24976, 22.25006, 22.25094, 
  22.25122, 22.25156, 22.25209, 22.25247, 22.25239, 22.25202, 22.25205, 22.25226, 22.25287, 22.25303, 
  22.25322, 22.25338, 22.25413, 22.25462, 22.25501, 22.25499, 22.25524, 22.25544, 22.2555, 22.25584, 
  22.25593, 22.25628, 22.25706, 22.25757, 22.25907, 22.25946, 22.26012, 22.26034, 22.2609, 22.26236, 
  22.26234, 22.26276, 22.26287, 22.26486, 22.26509, 22.26524, 22.26567, 22.26564, 22.26579, 22.26648, 
  22.26682, 22.26675, 22.26685, 22.26706, 22.26737, 22.26828, 22.2687, 22.26953, 22.27089, 22.27191, 
  22.27243, 22.27249, 22.27221, 22.27197, 22.27169, 22.27162, 22.27138, 22.27137, 22.27113, 22.2708, 
  22.27049, 22.26968, 22.26956, 22.26939, 22.26943, 22.26903, 22.26885, 22.26891, 22.26819, 22.26756, 
  22.26727, 22.26696, 22.26695, 22.2667, 22.26669, 22.26653, 22.26655, 22.26637, 22.26621, 22.26597, 
  22.26559, 22.26546, 22.26532, 22.26531, 22.26524, 22.26535, 22.2652, 22.26527, 22.26525, 22.26549, 
  22.26535, 22.26549, 22.26588, 22.2664, 22.2662, 22.26592, 22.26571, 22.26547, 22.26546, 22.26567, 
  22.26576, 22.26577, 22.26598, 22.26598, 22.26578, 22.26589, 22.26602, 22.26613, 22.26635, 22.26633, 
  22.26646, 22.26627, 22.26656, 22.2666, 22.26749, 22.26818, 22.26844, 22.26844, 22.26831, 22.26834, 
  22.26851, 22.26857, 22.2687, 22.26885, 22.26925, 22.27041, 22.27082, 22.2711, 22.27302, 22.27321, 
  22.27364, 22.27397, 22.27467, 22.27484, 22.27518, 22.27539, 22.2764, 22.27678, 22.27763, 22.27819, 
  22.27819, 22.27831, 22.27872, 22.27892, 22.27949, 22.2801, 22.28148, 22.28174, 22.28218, 22.28311, 
  22.28355, 22.28427, 22.28474, 22.28489, 22.28484, 22.28493, 22.28468, 22.28478, 22.28559, 22.28576, 
  22.28681, 22.28906, 22.29011, 22.29068, 22.29072, 22.29056, 22.29062, 22.2908, 22.29097, 22.29115, 
  22.29151, 22.29157, 22.29219, 22.29296, 22.29311, 22.29352, 22.29407, 22.29408, 22.29339, 22.29341, 
  22.29155, 22.29152, 22.29095, 22.29178, 22.29399, 22.29422, 22.29517, 22.29636, 22.29669, 22.29739, 
  22.29782, 22.29789, 22.29834, 22.29906, 22.29925, 22.29925, 22.29897, 22.29809, 22.29784, 22.29743, 
  22.29733, 22.29596, 22.29568, 22.29568, 22.29621, 22.29585, 22.2967, 22.29688, 22.297, 22.29697, 
  22.29707, 22.29684, 22.29689, 22.29669, 22.29771, 22.2996, 22.3003, 22.30026, 22.3007, 22.30109, 
  22.30132, 22.30127, 22.30189, 22.30187, 22.30156, 22.30187, 22.3024, 22.3028, 22.30304, 22.30291, 
  22.30347, 22.30376, 22.30415, 22.30619, 22.30633, 22.3058, 22.30602, 22.3068, 22.30698, 22.30987, 
  22.31043, 22.31058, 22.3106, 22.31026, 22.31048, 22.31007, 22.31005, 22.31057, 22.31071, 22.31233, 
  22.31273, 22.31299, 22.31142, 22.31058, 22.30943, 22.30945, 22.30897, 22.30779, 22.30664, 22.30608, 
  22.30588, 22.30602, 22.30656, 22.30714, 22.3073, 22.30723, 22.30707, 22.30709, 22.30742, 22.31079, 
  22.31103, 22.31309, 22.31501, 22.31667, 22.31864, 22.31929, 22.31957, 22.32, 22.3206, 22.32084, 
  22.32148, 22.32159, 22.32131, 22.32029, 22.3202, 22.32069, 22.32073, 22.32146, 22.3218, 22.32204, 
  22.32249, 22.32262, 22.32308, 22.32368, 22.32464, 22.32473, 22.32501, 22.32511, 22.32538, 22.32575, 
  22.32695, 22.32707, 22.32838, 22.32857, 22.32919, 22.32942, 22.32962, 22.33036, 22.33043, 22.33036, 
  22.33037, 22.33023, 22.33033, 22.33039, 22.33091, 22.33124, 22.33177, 22.33222, 22.33275, 22.33293, 
  22.33322, 22.33346, 22.33388, 22.33427, 22.3345, 22.33447, 22.33478, 22.33479, 22.33501, 22.33524, 
  22.33521)
LONGITUDE_VALUEs <- c(
  114.0576, 114.058, 114.0582, 114.0581, 114.0579, 114.0576, 114.0572, 114.0573, 114.0574, 114.0574, 
  114.0571, 114.0567, 114.0563, 114.0558, 114.0552, 114.0552, 114.0554, 114.0554, 114.0555, 114.0555, 
  114.0558, 114.0558, 114.0558, 114.0556, 114.0552, 114.0544, 114.0541, 114.0535, 114.0537, 114.0542, 
  114.0541, 114.0538, 114.0534, 114.0533, 114.053, 114.0527, 114.0516, 114.0515, 114.0519, 114.0519, 
  114.0512, 114.0508, 114.0496, 114.0479, 114.0461, 114.0458, 114.0455, 114.0452, 114.0445, 114.0444, 
  114.0445, 114.0442, 114.0443, 114.0445, 114.0446, 114.0421, 114.0419, 114.0417, 114.0413, 114.0412, 
  114.0401, 114.04, 114.0393, 114.0395, 114.0392, 114.0389, 114.0384, 114.0386, 114.0332, 114.0316, 
  114.031, 114.0305, 114.0302, 114.0293, 114.0275, 114.0273, 114.0276, 114.0273, 114.0263, 114.025, 
  114.0234, 114.022, 114.0208, 114.0208, 114.0207, 114.0209, 114.0218, 114.022, 114.0224, 114.0228, 
  114.0225, 114.0229, 114.023, 114.0235, 114.0241, 114.0242, 114.0243, 114.0242, 114.0243, 114.0245, 
  114.0245, 114.0242, 114.0241, 114.0242, 114.0238, 114.0239, 114.0237, 114.0232, 114.0225, 114.0221, 
  114.0221, 114.0225, 114.0226, 114.0234, 114.0235, 114.0238, 114.0237, 114.0241, 114.0241, 114.0232, 
  114.0224, 114.0223, 114.0216, 114.0209, 114.0205, 114.0206, 114.0203, 114.0201, 114.0199, 114.019, 
  114.0186, 114.0184, 114.0179, 114.0175, 114.0167, 114.0159, 114.0148, 114.0137, 114.0135, 114.012, 
  114.0111, 114.011, 114.0114, 114.0112, 114.0115, 114.0115, 114.011, 114.0089, 114.0083, 114.008, 
  114.0037, 114.0033, 114.0028, 114.0018, 114.0004, 113.9997, 113.9991, 113.9979, 113.9972, 113.9961, 
  113.997, 113.9972, 113.9951, 113.9912, 113.9865, 113.9797, 113.9778, 113.9765, 113.9795, 113.9802, 
  113.9793, 113.9783, 113.9774, 113.9767, 113.9772, 113.9767, 113.9761, 113.975, 113.974, 113.973, 
  113.9717, 113.9708, 113.9688, 113.9679, 113.9661, 113.9611, 113.9594, 113.9583, 113.9577, 113.9585, 
  113.9579, 113.9554, 113.9497, 113.9464, 113.9439, 113.94, 113.9365, 113.9364, 113.9363, 113.935, 
  113.935, 113.9346, 113.9345, 113.9346, 113.9344, 113.9344, 113.9343, 113.9343, 113.9347, 113.9352, 
  113.9353, 113.936, 113.9361, 113.9359, 113.935, 113.9343, 113.9337, 113.9336, 113.9334, 113.933, 
  113.9328, 113.9332, 113.9339, 113.9338, 113.9336, 113.9329, 113.9326, 113.9323, 113.932, 113.9319, 
  113.9326, 113.9324, 113.9319, 113.9315, 113.9309, 113.9303, 113.9301, 113.9296, 113.9294, 113.9292, 
  113.9291, 113.9292, 113.929, 113.9282, 113.9279, 113.9279, 113.9278, 113.9266, 113.926, 113.9253, 
  113.9246, 113.9244, 113.9245, 113.9249, 113.9247, 113.9241, 113.9242, 113.9237, 113.9229, 113.9217, 
  113.9202, 113.9193, 113.9193, 113.918, 113.9161, 113.9142, 113.9133, 113.9124, 113.912, 113.9112, 
  113.9113, 113.9106, 113.9096, 113.9086, 113.9084, 113.9086, 113.9084, 113.9079, 113.907, 113.9067, 
  113.9062, 113.9057, 113.9051, 113.905, 113.9039, 113.904, 113.9026, 113.9026, 113.9014, 113.8998, 
  113.8998, 113.8993, 113.898, 113.8971, 113.8968, 113.8961, 113.8965, 113.8958, 113.8951, 113.8942, 
  113.8942, 113.8946, 113.8943, 113.8937, 113.894, 113.8918, 113.8905, 113.8896, 113.8864, 113.8861, 
  113.8855, 113.8861, 113.8867, 113.8869, 113.8875, 113.8879, 113.8875, 113.8876, 113.8872, 113.8856, 
  113.8844, 113.884, 113.8843, 113.8832, 113.8826, 113.8803, 113.8782, 113.8758, 113.8738, 113.8722, 
  113.8713, 113.8699, 113.8695, 113.8695, 113.8684, 113.8682, 113.8662, 113.8654, 113.8649, 113.863, 
  113.8626, 113.8631, 113.8631, 113.8632, 113.8632, 113.8629, 113.8623, 113.8621, 113.8624, 113.8624, 
  113.8625, 113.8624, 113.8621, 113.8621, 113.8618, 113.8602, 113.8595, 113.8592, 113.8588, 113.8566, 
  113.8554, 113.8554, 113.8543, 113.8538, 113.8535, 113.8523, 113.852, 113.852, 113.8518, 113.8514, 
  113.8517, 113.852, 113.8525, 113.8526, 113.8524, 113.8527, 113.8526, 113.8529, 113.853, 113.853, 
  113.8532, 113.8533, 113.8547, 113.855, 113.8553, 113.8564, 113.8572, 113.8565, 113.8572, 113.8574, 
  113.8576, 113.858, 113.8582, 113.8602, 113.8608, 113.8612, 113.8615, 113.8614, 113.8615, 113.862, 
  113.8616, 113.8617, 113.8604, 113.8614, 113.8618, 113.8618, 113.8617, 113.8614, 113.8614, 113.8609, 
  113.8607, 113.8603, 113.8588, 113.8563, 113.8535, 113.8522, 113.8512, 113.8508, 113.8508, 113.8513, 
  113.8524, 113.8523, 113.8527, 113.8526, 113.8528, 113.8525, 113.8526, 113.8521, 113.852, 113.8515, 
  113.8516, 113.8514, 113.8512, 113.8512, 113.8508, 113.85, 113.8497, 113.8498, 113.8495, 113.8493, 
  113.8491, 113.8489, 113.8486, 113.8487, 113.8478, 113.8469, 113.8461, 113.8456, 113.8451, 113.8447, 
  113.8428, 113.8417, 113.8414, 113.8415, 113.8411, 113.8404, 113.8397, 113.8396, 113.8392, 113.8393, 
  113.84, 113.8402, 113.8399, 113.84, 113.8397, 113.8398, 113.8397, 113.8398, 113.8397, 113.8401, 
  113.8399, 113.8389, 113.8381, 113.8374, 113.8368, 113.8354, 113.835, 113.8351, 113.836, 113.836, 
  113.8363, 113.8366, 113.8371, 113.8374, 113.8375, 113.8377, 113.8378, 113.8378, 113.838, 113.8381, 
  113.8385, 113.8385, 113.8395, 113.84, 113.8411, 113.8431, 113.8435, 113.8439, 113.8438, 113.8438, 
  113.8433, 113.8432, 113.8429, 113.8422, 113.8418, 113.8417, 113.8416, 113.8417, 113.8416, 113.842, 
  113.842, 113.8419, 113.842, 113.8419, 113.8421, 113.8423, 113.8423, 113.8432, 113.8433, 113.844, 
  113.8444, 113.8449, 113.8453, 113.8455, 113.8456, 113.8457, 113.8458, 113.846, 113.846, 113.8462, 
  113.8475, 113.8482, 113.8487, 113.8491, 113.8488, 113.8485, 113.848, 113.8478, 113.8477, 113.8475, 
  113.8472, 113.8469, 113.847, 113.8469, 113.8467, 113.8469, 113.8471, 113.847, 113.8463, 113.8462, 
  113.8458, 113.8453, 113.8452, 113.8449, 113.8449, 113.8451, 113.845, 113.8452, 113.8456, 113.8463, 
  113.847, 113.8474, 113.8478, 113.848, 113.8482, 113.8481, 113.8478, 113.8476, 113.8477, 113.8476, 
  113.8478, 113.8481, 113.8484, 113.8488, 113.8494, 113.8496, 113.8509, 113.8513, 113.8521, 113.853, 
  113.8535, 113.854, 113.8544, 113.8539, 113.8532, 113.8528, 113.8529, 113.8542, 113.8578, 113.8584, 
  113.8584, 113.8591, 113.86, 113.8599, 113.8611, 113.863, 113.8645, 113.864, 113.8644, 113.8647, 
  113.8648, 113.866, 113.8676, 113.8678, 113.868, 113.8686, 113.8685, 113.869, 113.8698, 113.8701, 
  113.8714, 113.8713, 113.8719, 113.8735, 113.8741, 113.8741, 113.8738, 113.8745, 113.8753, 113.8766, 
  113.877, 113.8776, 113.8778, 113.879, 113.8795, 113.8798, 113.8793, 113.8787, 113.8785, 113.8781, 
  113.8782, 113.8791, 113.8794, 113.8805, 113.8809, 113.8816, 113.8819, 113.8829, 113.883, 113.8845, 
  113.886, 113.8874, 113.8881, 113.8888, 113.8896, 113.8905, 113.8909, 113.8913, 113.8916, 113.891, 
  113.8919, 113.8933, 113.8941, 113.894, 113.8957, 113.8969, 113.8981, 113.8986, 113.8971, 113.8968, 
  113.897, 113.8977, 113.8982, 113.8983, 113.8983, 113.8981, 113.8985, 113.8986, 113.8995, 113.9001, 
  113.9007, 113.9013, 113.9015, 113.9019, 113.9019, 113.9024, 113.9032, 113.9029, 113.9035, 113.9046, 
  113.9053, 113.9061, 113.9072, 113.908, 113.9087, 113.909, 113.9115, 113.9124, 113.9126, 113.9126, 
  113.9134, 113.9137, 113.9143, 113.9142, 113.9159, 113.9163, 113.9172, 113.9175, 113.9187, 113.919, 
  113.9195, 113.9201, 113.9199, 113.9204, 113.921, 113.9218, 113.9228, 113.923, 113.9235, 113.9256, 
  113.9266, 113.9273, 113.9277, 113.9281, 113.9302, 113.9308, 113.9305, 113.9305, 113.9303, 113.9311, 
  113.931, 113.9311, 113.9304, 113.93, 113.9296, 113.9289, 113.9282, 113.9269, 113.926, 113.925, 
  113.9246, 113.9239, 113.9235, 113.9231, 113.9223, 113.9219, 113.9214, 113.9202, 113.9191, 113.9189, 
  113.9191, 113.9186, 113.9189, 113.9203, 113.9215, 113.9234, 113.925, 113.926, 113.9268, 113.9272, 
  113.9277, 113.9301, 113.9305, 113.9322, 113.9329, 113.9337, 113.9343, 113.9343, 113.9342, 113.935, 
  113.9373, 113.9391, 113.9399, 113.9404, 113.9421, 113.9457, 113.9516, 113.9526, 113.9526, 113.9544, 
  113.9561, 113.9571, 113.9572, 113.957, 113.9573, 113.9579, 113.9581, 113.9587, 113.9589, 113.96, 
  113.9605, 113.9612, 113.9616, 113.9624, 113.9627, 113.9628, 113.9631, 113.9639, 113.9645, 113.9648, 
  113.9653, 113.9667, 113.9679, 113.9686, 113.969, 113.9702, 113.9706, 113.972, 113.9728, 113.9773, 
  113.9809, 113.9816, 113.9821, 113.9812, 113.9798, 113.9792, 113.9793, 113.9777, 113.9785, 113.9791, 
  113.9794, 113.9801, 113.9822, 113.9828, 113.9841, 113.9836, 113.9828, 113.9826, 113.9818, 113.9806, 
  113.9804, 113.9805, 113.981, 113.9814, 113.9817, 113.9821, 113.9831, 113.9838, 113.9858, 113.9861, 
  113.9862, 113.9867, 113.9869, 113.987, 113.9872, 113.9878, 113.989, 113.9894, 113.9897, 113.9899, 
  113.9898, 113.9899, 113.99, 113.9901, 113.9899, 113.9898, 113.9898, 113.9894, 113.9893, 113.9895, 
  113.9912, 113.9918, 113.9924, 113.9927, 113.9936, 113.9942, 113.9945, 113.9951, 113.9951, 113.996, 
  113.9974, 113.9993, 113.9995, 113.9995, 113.9998, 114.0001, 114.0004, 114.0005, 114.0003, 114.0005, 
  114.0005, 114.0008, 114.0016, 114.003, 114.0042, 114.0045, 114.0044, 114.0045, 114.004, 114.0042, 
  114.005, 114.0049, 114.005, 114.0048, 114.005, 114.0064, 114.0073, 114.0079, 114.0081, 114.0089, 
  114.0093, 114.0096, 114.0101, 114.0102, 114.0106, 114.0105, 114.0106, 114.0105, 114.0101, 114.0101, 
  114.01, 114.0109, 114.0111, 114.0119, 114.012, 114.0123, 114.0134, 114.0146, 114.0151, 114.0161, 
  114.0174, 114.0177, 114.0179, 114.0181, 114.0183, 114.0178, 114.0177, 114.018, 114.0196, 114.0202, 
  114.0204, 114.0202, 114.0196, 114.0192, 114.0187, 114.0182, 114.0179, 114.0167, 114.0165, 114.0165, 
  114.016, 114.0154, 114.0151, 114.0139, 114.0129, 114.0117, 114.0112, 114.011, 114.0108, 114.011, 
  114.0107, 114.0105, 114.0084, 114.0085, 114.0084, 114.008, 114.0074, 114.007, 114.0066, 114.0064, 
  114.0062, 114.0059, 114.0058, 114.0054, 114.0043, 114.0034, 114.0035, 114.0037, 114.0038, 114.0036, 
  114.0032, 114.003, 114.0027, 114.0023, 114.0019, 114.0012, 114.0007, 114.0002, 113.9995, 113.9995, 
  113.9989, 113.9986, 113.9973, 113.9963, 113.9955, 113.9952, 113.9951, 113.9948, 113.9942, 113.9937, 
  113.9936, 113.994, 113.9947, 113.9952, 113.996, 113.9967, 113.9973, 113.9976, 113.9984, 113.9987, 
  113.9994, 113.9999, 113.9995, 113.9997, 114.0002, 114.0005, 114.0007, 114.0008, 114.0018, 114.0022, 
  114.0028, 114.0033, 114.0038, 114.0042, 114.0052, 114.0057, 114.006, 114.0061, 114.0064, 114.0087, 
  114.0089, 114.0095, 114.0097, 114.0103, 114.0106, 114.0107, 114.0117, 114.0121, 114.0122, 114.0117, 
  114.0117, 114.0113, 114.0115, 114.0112, 114.0105, 114.0102, 114.01, 114.0097, 114.0092, 114.0089, 
  114.0084, 114.0082, 114.0083, 114.0077, 114.0074, 114.007, 114.0067, 114.0062, 114.0065, 114.0036, 
  114.0015, 114.0015, 114.0024, 114.002, 114.0024, 114.0019, 114.0018, 114.0015, 114.0014, 113.9999, 
  113.9989, 113.9984, 113.9983, 113.9984, 113.9982, 113.9985, 113.9989, 113.9989, 113.9997, 114.001, 
  114.002, 114.0029, 114.0036, 114.0038, 114.0038, 114.004, 114.0042, 114.0046, 114.0052, 114.0054, 
  114.0054, 114.0064, 114.0069, 114.0071, 114.0074, 114.0082, 114.0092, 114.0097, 114.0104, 114.0106, 
  114.0103, 114.0104, 114.0106, 114.0108, 114.0113, 114.0115, 114.0117, 114.0123, 114.0126, 114.0135, 
  114.0137, 114.014, 114.0139, 114.0143, 114.0146, 114.0148, 114.0151, 114.0152, 114.0156, 114.0164, 
  114.0172, 114.018, 114.0184, 114.0198, 114.0205, 114.0209, 114.0207, 114.0208, 114.0209, 114.0208, 
  114.0209, 114.0211, 114.0217, 114.0227, 114.0234, 114.0236, 114.0236, 114.0235, 114.0236, 114.0234, 
  114.0232, 114.0222, 114.022, 114.0218, 114.0216, 114.0218, 114.0221, 114.0224, 114.0225, 114.0227, 
  114.0225, 114.0229, 114.0229, 114.023, 114.0224, 114.0219, 114.0223, 114.0222, 114.0223, 114.0222, 
  114.0223, 114.0226, 114.0225, 114.0227, 114.0224, 114.0218, 114.0217, 114.022, 114.0221, 114.0226, 
  114.0237, 114.0239, 114.024, 114.0237, 114.0233, 114.0227, 114.0224, 114.0227, 114.0225, 114.0226, 
  114.023, 114.0231, 114.0229, 114.0225, 114.022, 114.0217, 114.0213, 114.021, 114.0201, 114.0197, 
  114.0192, 114.019, 114.0196, 114.0201, 114.0208, 114.021, 114.0212, 114.0212, 114.0208, 114.0202, 
  114.0199, 114.0195, 114.0192, 114.0193, 114.0195, 114.0196, 114.0201, 114.0203, 114.0213, 114.0213, 
  114.0237, 114.0241, 114.0273, 114.0278, 114.0263, 114.0267, 114.0255, 114.0255, 114.0258, 114.0258, 
  114.0254, 114.0249, 114.0246, 114.0246, 114.0249, 114.0246, 114.0238, 114.0231, 114.0231, 114.0227, 
  114.022, 114.0202, 114.02, 114.0198, 114.0192, 114.0178, 114.0175, 114.0182, 114.0181, 114.018, 
  114.0179, 114.017, 114.0168, 114.0161, 114.0157, 114.0155, 114.0158, 114.0171, 114.0189, 114.0193, 
  114.0202, 114.0208, 114.0204, 114.0201, 114.0198, 114.0193, 114.0193, 114.02, 114.0192, 114.0183, 
  114.0171, 114.016, 114.0157, 114.0156, 114.0159, 114.0164, 114.0169, 114.0169, 114.0175, 114.0173, 
  114.0179, 114.0186, 114.019, 114.0198, 114.022, 114.023, 114.0257, 114.0262, 114.0268, 114.0284, 
  114.0287, 114.0296, 114.0323, 114.0323, 114.0332, 114.034, 114.0334, 114.0345, 114.0366, 114.0383, 
  114.0398, 114.0417, 114.0435, 114.0447, 114.0456, 114.0466, 114.0473, 114.0477, 114.0484, 114.0554, 
  114.0554, 114.0555, 114.0551, 114.0545, 114.0535, 114.0534, 114.0531, 114.0531, 114.0534, 114.0537, 
  114.054, 114.0545, 114.0549, 114.0556, 114.0559, 114.0563, 114.0564, 114.056, 114.056, 114.0554, 
  114.0553, 114.0547, 114.0543, 114.0541, 114.0542, 114.0547, 114.0549, 114.055, 114.0548, 114.0548, 
  114.0551, 114.0553, 114.0559, 114.0562, 114.0567, 114.0572, 114.0572, 114.0567, 114.0565, 114.0562, 
  114.056, 114.0557, 114.0557, 114.0555, 114.0552, 114.0555, 114.0553, 114.0555, 114.0557, 114.056, 
  114.0559, 114.0552, 114.0548, 114.0549, 114.0552, 114.0557, 114.0559, 114.0563, 114.0565, 114.0571, 
  114.0573)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.28327, 22.28287, 22.28308, 22.28371, 22.28445, 22.28516, 22.2847, 22.2849, 22.2845, 22.28385, 
  22.28297, 22.28261, 22.28325, 22.2847, 22.2864, 22.2875, 22.28843, 22.28743, 22.28775, 22.2885, 
  22.28945, 22.29054, 22.29068, 22.28919, 22.28792, 22.28825, 22.28398, 22.28366, 22.28139, 22.28083, 
  22.2807, 22.28043, 22.28007, 22.27873, 22.27817, 22.27739, 22.27686, 22.27501, 22.27461, 22.27356, 
  22.27197, 22.27118, 22.27003, 22.26963, 22.26843, 22.26794, 22.26771, 22.2673, 22.26396, 22.26323, 
  22.26267, 22.26235, 22.26213, 22.26103, 22.25541, 22.25507, 22.25469, 22.25364, 22.25276, 22.25248, 
  22.25219, 22.25203, 22.25206, 22.25221, 22.25141, 22.24992, 22.24942, 22.24887, 22.24892, 22.24873, 
  22.24845, 22.24882, 22.24851, 22.24831, 22.248, 22.24827, 22.2478, 22.24797, 22.24719, 22.24661, 
  22.24704, 22.24681, 22.24513, 22.24521, 22.24557, 22.24538, 22.24478, 22.24405, 22.24373, 22.2432, 
  22.24269, 22.24223, 22.24247, 22.24144, 22.23977, 22.23837, 22.23781, 22.23723, 22.23634, 22.23607, 
  22.23614, 22.23599, 22.23556, 22.23521, 22.23454, 22.23406, 22.23371, 22.23349, 22.23312, 22.23284, 
  22.23287, 22.2326, 22.23234, 22.23245, 22.23265, 22.23251, 22.23203, 22.23193, 22.23215, 22.23177, 
  22.23153, 22.23125, 22.23136, 22.23088, 22.23089, 22.23063, 22.22992, 22.22973, 22.22989, 22.23034, 
  22.2305, 22.23108, 22.2325, 22.2334, 22.23372, 22.23443, 22.23578, 22.23609, 22.23674, 22.23702, 
  22.23747, 22.23762, 22.23778, 22.23787, 22.23814, 22.23834, 22.23867, 22.2393, 22.24046, 22.24052, 
  22.2409, 22.24123, 22.2418, 22.24256, 22.24342, 22.24376, 22.24384, 22.24421, 22.24432, 22.24457, 
  22.24483, 22.2452, 22.24542, 22.24542, 22.24532, 22.24544, 22.24515, 22.24569, 22.24478, 22.24396, 
  22.24277, 22.24223, 22.24209, 22.24209, 22.24174, 22.24154, 22.24081, 22.24058, 22.24015, 22.23966, 
  22.23804, 22.23711, 22.23658, 22.23605, 22.236, 22.23591, 22.23626, 22.23721, 22.23743, 22.23732, 
  22.23766, 22.23764, 22.23641, 22.23484, 22.23463, 22.23462, 22.23447, 22.23442, 22.23463, 22.23457, 
  22.23403, 22.2337, 22.23329, 22.23274, 22.23211, 22.23022, 22.2294, 22.22928, 22.22895, 22.22832, 
  22.22806, 22.22777, 22.22715, 22.22598, 22.22492, 22.22409, 22.22407, 22.22423, 22.22404, 22.22433, 
  22.22432, 22.22377, 22.22342, 22.22294, 22.22289, 22.22186, 22.22181, 22.22117, 22.22119, 22.22087, 
  22.22096, 22.22095, 22.22064, 22.22003, 22.21941, 22.2185, 22.21761, 22.21698, 22.21674, 22.21684, 
  22.21674, 22.21614, 22.21585, 22.21557, 22.2147, 22.21401, 22.21323, 22.21261, 22.21198, 22.21122, 
  22.21097, 22.21069, 22.21051, 22.21047, 22.21064, 22.21028, 22.21034, 22.21018, 22.21076, 22.21197, 
  22.21255, 22.21291, 22.21276, 22.21263, 22.2123, 22.21234, 22.21286, 22.21312, 22.21321, 22.2138, 
  22.21438, 22.21506, 22.2156, 22.21615, 22.21658, 22.21683, 22.21677, 22.21704, 22.21728, 22.21751, 
  22.21814, 22.21838, 22.21854, 22.21843, 22.21784, 22.21714, 22.21686, 22.21671, 22.2167, 22.2168, 
  22.21637, 22.21509, 22.21493, 22.2144, 22.21378, 22.21299, 22.21235, 22.21191, 22.21196, 22.21123, 
  22.21107, 22.2112, 22.21101, 22.2104, 22.20882, 22.20719, 22.20555, 22.20309, 22.20275, 22.20191, 
  22.20027, 22.19874, 22.19704, 22.19651, 22.19632, 22.19609, 22.19594, 22.19536, 22.19497, 22.19453, 
  22.19437, 22.194, 22.19397, 22.19439, 22.19436, 22.1947, 22.19453, 22.19511, 22.19473, 22.19529, 
  22.1953, 22.19588, 22.1958, 22.19623, 22.19659, 22.19714, 22.19814, 22.19905, 22.19945, 22.20004, 
  22.20083, 22.20224, 22.20309, 22.20389, 22.20431, 22.20519, 22.20558, 22.20539, 22.20555, 22.20608, 
  22.20679, 22.20703, 22.20698, 22.20744, 22.20829, 22.20889, 22.20966, 22.20985, 22.20957, 22.2096, 
  22.20983, 22.21007, 22.21053, 22.21103, 22.21138, 22.21149, 22.21192, 22.21268, 22.21245, 22.21269, 
  22.2134, 22.21401, 22.21471, 22.21525, 22.21561, 22.21572, 22.21545, 22.21585, 22.21621, 22.21641, 
  22.2168, 22.21638, 22.21674, 22.21717, 22.21743, 22.21867, 22.21874, 22.21923, 22.21933, 22.21921, 
  22.21901, 22.21893, 22.21918, 22.21987, 22.22185, 22.22233, 22.2225, 22.2229, 22.22327, 22.22437, 
  22.22442, 22.22495, 22.22536, 22.22559, 22.22568, 22.22631, 22.22654, 22.22719, 22.22737, 22.22759, 
  22.22766, 22.22838, 22.2287, 22.22898, 22.22898, 22.22857, 22.22885, 22.22914, 22.22908, 22.22965, 
  22.23054, 22.23122, 22.23168, 22.23274, 22.233, 22.23294, 22.23205, 22.23193, 22.23091, 22.23028, 
  22.22971, 22.22977, 22.22968, 22.23003, 22.231, 22.2319, 22.23236, 22.23316, 22.2338, 22.23569, 
  22.23672, 22.23706, 22.23756, 22.2379, 22.23822, 22.23842, 22.23873, 22.23876, 22.23843, 22.23871, 
  22.24194, 22.24281, 22.24312, 22.24364, 22.24472, 22.24523, 22.24591, 22.24626, 22.24687, 22.24656, 
  22.24573, 22.24571, 22.24478, 22.24366, 22.24279, 22.24126, 22.24129, 22.24192, 22.24205, 22.24122, 
  22.23909, 22.24128, 22.24126, 22.24042, 22.24005, 22.23958, 22.23868, 22.23777, 22.23687, 22.23637, 
  22.23615, 22.23623, 22.23599, 22.23517, 22.23365, 22.23336, 22.23292, 22.2321, 22.2313, 22.23039, 
  22.22777, 22.22729, 22.2258, 22.22525, 22.22525, 22.22475, 22.2241, 22.22303, 22.22277, 22.22279, 
  22.22191, 22.22094, 22.22088, 22.22032, 22.22161, 22.22218, 22.22208, 22.22154, 22.22003, 22.21985, 
  22.21926, 22.21897, 22.21804, 22.21659, 22.21545, 22.21337, 22.21289, 22.21194, 22.21106, 22.21114, 
  22.21066, 22.2096, 22.20796, 22.20812, 22.20729, 22.20717, 22.2067, 22.20797, 22.20636, 22.20652, 
  22.20602, 22.20628, 22.20789, 22.20829, 22.20701, 22.20715, 22.20783, 22.20745, 22.20697, 22.20683, 
  22.20719, 22.2079, 22.20787, 22.20864, 22.20889, 22.20937, 22.20949, 22.21081, 22.21141, 22.21088, 
  22.21081, 22.21163, 22.21264, 22.2129, 22.21411, 22.21512, 22.21623, 22.21676, 22.21766, 22.21886, 
  22.21958, 22.22005, 22.22072, 22.2211, 22.22169, 22.22267, 22.22339, 22.22408, 22.22468, 22.22505, 
  22.226, 22.22643, 22.22715, 22.22754, 22.22812, 22.22876, 22.22938, 22.22887, 22.22861, 22.22817, 
  22.22812, 22.22796, 22.22809, 22.22805, 22.22835, 22.22845, 22.22894, 22.22955, 22.2298, 22.22936, 
  22.22952, 22.22916, 22.22912, 22.22921, 22.22924, 22.22946, 22.22942, 22.22971, 22.23009, 22.23046, 
  22.23113, 22.23111, 22.23098, 22.23102, 22.23079, 22.23073, 22.2304, 22.23065, 22.23058, 22.2307, 
  22.23039, 22.23046, 22.22995, 22.23018, 22.23015, 22.23032, 22.23061, 22.23066, 22.23123, 22.23128, 
  22.23111, 22.23141, 22.23192, 22.23227, 22.23298, 22.23328, 22.23354, 22.23391, 22.2345, 22.23471, 
  22.2351, 22.23567, 22.23605, 22.23619, 22.237, 22.23688, 22.23708, 22.23761, 22.23825, 22.23857, 
  22.2385, 22.23874, 22.23958, 22.24093, 22.24115, 22.24208, 22.2426, 22.2453, 22.24556, 22.24628, 
  22.24661, 22.24667, 22.24616, 22.24602, 22.24617, 22.24651, 22.24698, 22.24693, 22.24752, 22.24806, 
  22.24822, 22.24863, 22.24867, 22.24894, 22.24897, 22.24938, 22.24934, 22.24894, 22.24897, 22.24869, 
  22.24849, 22.24868, 22.2493, 22.24946, 22.24969, 22.25155, 22.25178, 22.25219, 22.25218, 22.25276, 
  22.25335, 22.25354, 22.25298, 22.25308, 22.25376, 22.25438, 22.25532, 22.25555, 22.25543, 22.25601, 
  22.25622, 22.25647, 22.25711, 22.25742, 22.2578, 22.25784, 22.25889, 22.25935, 22.26071, 22.26122, 
  22.26115, 22.26135, 22.26129, 22.26215, 22.26924, 22.26796, 22.26897, 22.2722, 22.27218, 22.27147, 
  22.2695, 22.26817, 22.26823, 22.2699, 22.27271, 22.27585, 22.27897, 22.28023, 22.28061, 22.28075, 
  22.28113, 22.28162, 22.28291, 22.28376, 22.28452, 22.28437, 22.28407, 22.28362, 22.2835, 22.28311, 
  22.28301, 22.28428, 22.28501, 22.28826, 22.28934, 22.2901, 22.29203, 22.29228, 22.29314, 22.2942, 
  22.29456, 22.29383, 22.29364, 22.29294, 22.29169, 22.29035, 22.28758, 22.28596, 22.28545, 22.28518, 
  22.28407, 22.2825, 22.28231, 22.28256, 22.28492, 22.28491, 22.28448, 22.28351, 22.28272, 22.28256, 
  22.28329, 22.28413, 22.28434, 22.28312, 22.28306)
LONGITUDE_VALUEs <- c(
  114.1782, 114.1748, 114.1744, 114.1743, 114.1746, 114.1744, 114.1741, 114.1728, 114.172, 114.1719, 
  114.1712, 114.1703, 114.1675, 114.1628, 114.1621, 114.1589, 114.1553, 114.1542, 114.1537, 114.1506, 
  114.1499, 114.1456, 114.1404, 114.1344, 114.1347, 114.1323, 114.1275, 114.1255, 114.1188, 114.1184, 
  114.1181, 114.1179, 114.1175, 114.1169, 114.1164, 114.1163, 114.1164, 114.1163, 114.1165, 114.118, 
  114.1193, 114.1213, 114.1227, 114.1227, 114.1233, 114.1233, 114.1237, 114.1237, 114.1259, 114.1261, 
  114.1265, 114.1266, 114.1273, 114.1278, 114.132, 114.1319, 114.1321, 114.1318, 114.132, 114.1322, 
  114.1322, 114.1326, 114.1328, 114.1331, 114.1341, 114.1349, 114.1356, 114.1361, 114.1366, 114.1374, 
  114.1377, 114.1397, 114.1411, 114.1412, 114.1422, 114.1467, 114.1489, 114.15, 114.1543, 114.155, 
  114.1584, 114.1593, 114.1615, 114.1621, 114.1622, 114.1642, 114.1646, 114.1637, 114.1639, 114.1635, 
  114.1637, 114.1643, 114.1646, 114.1657, 114.1656, 114.1644, 114.1644, 114.1648, 114.165, 114.1657, 
  114.1662, 114.1672, 114.1672, 114.167, 114.1672, 114.1666, 114.1666, 114.1661, 114.1661, 114.1664, 
  114.1668, 114.1667, 114.1669, 114.1671, 114.1672, 114.1674, 114.1675, 114.1676, 114.1683, 114.1683, 
  114.1688, 114.1689, 114.1693, 114.1693, 114.17, 114.1705, 114.171, 114.1718, 114.1722, 114.1728, 
  114.1734, 114.1735, 114.1739, 114.174, 114.1743, 114.1742, 114.1743, 114.1746, 114.1747, 114.1751, 
  114.1751, 114.1752, 114.1752, 114.1753, 114.1753, 114.1756, 114.1757, 114.1765, 114.1768, 114.177, 
  114.1773, 114.1778, 114.178, 114.1785, 114.1784, 114.1786, 114.1787, 114.179, 114.1792, 114.1793, 
  114.1799, 114.1822, 114.1825, 114.183, 114.1832, 114.1834, 114.1844, 114.1858, 114.1872, 114.1879, 
  114.1882, 114.188, 114.1877, 114.1872, 114.187, 114.1867, 114.1868, 114.1868, 114.1865, 114.1867, 
  114.1881, 114.1886, 114.1894, 114.1899, 114.1904, 114.1913, 114.1923, 114.1935, 114.1937, 114.1941, 
  114.194, 114.1945, 114.1962, 114.1976, 114.1975, 114.1971, 114.1972, 114.1976, 114.1981, 114.1983, 
  114.1983, 114.1983, 114.1983, 114.1983, 114.198, 114.1981, 114.1977, 114.1966, 114.1963, 114.1963, 
  114.1965, 114.197, 114.1971, 114.1977, 114.1974, 114.1966, 114.196, 114.1959, 114.1954, 114.1947, 
  114.1938, 114.1939, 114.1945, 114.195, 114.1955, 114.1964, 114.197, 114.1983, 114.1992, 114.1996, 
  114.2001, 114.2009, 114.2008, 114.2013, 114.2012, 114.2019, 114.202, 114.2018, 114.2013, 114.2009, 
  114.2003, 114.1996, 114.1987, 114.1983, 114.1975, 114.1971, 114.197, 114.1971, 114.1969, 114.197, 
  114.197, 114.1972, 114.1972, 114.1974, 114.1976, 114.1979, 114.1987, 114.1992, 114.2004, 114.2009, 
  114.2014, 114.202, 114.204, 114.2045, 114.2047, 114.205, 114.2058, 114.2059, 114.2063, 114.2069, 
  114.2071, 114.2064, 114.2065, 114.2071, 114.2074, 114.2079, 114.2086, 114.2088, 114.2089, 114.2101, 
  114.2102, 114.2101, 114.2103, 114.2113, 114.212, 114.2123, 114.2121, 114.2122, 114.2127, 114.2128, 
  114.2134, 114.2135, 114.214, 114.2143, 114.2142, 114.2149, 114.2149, 114.2146, 114.2143, 114.2139, 
  114.2136, 114.213, 114.2128, 114.2127, 114.2117, 114.2116, 114.212, 114.2117, 114.2116, 114.2116, 
  114.2108, 114.2113, 114.2111, 114.2113, 114.2113, 114.2114, 114.212, 114.2123, 114.2129, 114.2132, 
  114.2137, 114.214, 114.2142, 114.2145, 114.2147, 114.2151, 114.2164, 114.218, 114.2187, 114.2209, 
  114.2218, 114.2228, 114.2231, 114.2234, 114.2235, 114.224, 114.2242, 114.2237, 114.2231, 114.2233, 
  114.2232, 114.2217, 114.2216, 114.2211, 114.2207, 114.2194, 114.2196, 114.2199, 114.2203, 114.2204, 
  114.2203, 114.2198, 114.2194, 114.2189, 114.2187, 114.2183, 114.2185, 114.2188, 114.2196, 114.2198, 
  114.22, 114.2205, 114.2207, 114.2206, 114.2206, 114.2208, 114.2207, 114.2216, 114.2222, 114.2228, 
  114.2228, 114.2225, 114.2225, 114.2219, 114.2221, 114.2213, 114.221, 114.2206, 114.2207, 114.2208, 
  114.2198, 114.2195, 114.2189, 114.2183, 114.217, 114.2164, 114.2159, 114.2155, 114.2152, 114.2151, 
  114.2152, 114.215, 114.2146, 114.2143, 114.2142, 114.2144, 114.2149, 114.2149, 114.2153, 114.215, 
  114.2154, 114.2159, 114.217, 114.2171, 114.2173, 114.2178, 114.2183, 114.2183, 114.2186, 114.2186, 
  114.2189, 114.2189, 114.2186, 114.2188, 114.2192, 114.22, 114.22, 114.2206, 114.2209, 114.2216, 
  114.2219, 114.2224, 114.2231, 114.2229, 114.2234, 114.2238, 114.2243, 114.2245, 114.225, 114.2258, 
  114.227, 114.228, 114.2286, 114.2294, 114.2296, 114.2301, 114.2297, 114.2298, 114.2298, 114.2289, 
  114.229, 114.2288, 114.2288, 114.2283, 114.2281, 114.2272, 114.2263, 114.2257, 114.2257, 114.2243, 
  114.2238, 114.2234, 114.2235, 114.223, 114.2234, 114.2224, 114.2235, 114.2232, 114.224, 114.2246, 
  114.2247, 114.2252, 114.2253, 114.2259, 114.2255, 114.226, 114.2267, 114.2273, 114.2282, 114.2313, 
  114.2335, 114.2339, 114.2343, 114.2348, 114.2346, 114.2348, 114.2345, 114.2346, 114.2348, 114.2346, 
  114.2344, 114.2342, 114.2337, 114.2344, 114.2351, 114.235, 114.2353, 114.2352, 114.2359, 114.2357, 
  114.2361, 114.236, 114.2368, 114.2367, 114.2363, 114.2363, 114.2362, 114.2363, 114.2362, 114.2357, 
  114.2357, 114.2365, 114.2372, 114.2382, 114.2384, 114.239, 114.2402, 114.2413, 114.2414, 114.2408, 
  114.2408, 114.2403, 114.2419, 114.2422, 114.2421, 114.2431, 114.2429, 114.2432, 114.2422, 114.2413, 
  114.2416, 114.2415, 114.2426, 114.2431, 114.2441, 114.2456, 114.247, 114.2523, 114.2538, 114.2544, 
  114.2551, 114.2555, 114.2555, 114.256, 114.2569, 114.2582, 114.2596, 114.2604, 114.2603, 114.2605, 
  114.2608, 114.2609, 114.2613, 114.261, 114.2601, 114.2599, 114.2586, 114.2588, 114.2573, 114.2562, 
  114.2551, 114.2544, 114.2556, 114.255, 114.2553, 114.2546, 114.2553, 114.2549, 114.2551, 114.2546, 
  114.2547, 114.2544, 114.2549, 114.2538, 114.254, 114.2534, 114.2532, 114.2521, 114.2522, 114.2515, 
  114.2513, 114.2515, 114.2509, 114.2503, 114.2504, 114.2511, 114.2526, 114.2528, 114.2542, 114.2553, 
  114.2557, 114.2561, 114.2562, 114.2564, 114.2563, 114.2565, 114.256, 114.2561, 114.2572, 114.2578, 
  114.2581, 114.2587, 114.259, 114.2591, 114.2594, 114.2591, 114.2596, 114.26, 114.2601, 114.2602, 
  114.2598, 114.2596, 114.2595, 114.2591, 114.2589, 114.2586, 114.2582, 114.2576, 114.2571, 114.257, 
  114.2564, 114.2559, 114.2555, 114.2551, 114.2549, 114.2545, 114.2545, 114.2535, 114.2533, 114.2529, 
  114.2525, 114.2521, 114.2519, 114.2519, 114.2524, 114.2524, 114.2528, 114.2527, 114.2528, 114.2534, 
  114.2536, 114.2536, 114.2533, 114.2529, 114.2527, 114.2518, 114.2515, 114.2519, 114.2515, 114.2508, 
  114.2504, 114.2503, 114.2508, 114.2508, 114.2505, 114.2503, 114.2482, 114.2466, 114.247, 114.247, 
  114.2474, 114.2481, 114.2483, 114.2488, 114.2493, 114.2498, 114.25, 114.2503, 114.2506, 114.2506, 
  114.2502, 114.2506, 114.2511, 114.2511, 114.2513, 114.2515, 114.2524, 114.2528, 114.2531, 114.2531, 
  114.2534, 114.2541, 114.2545, 114.2543, 114.2547, 114.2538, 114.2543, 114.2544, 114.2548, 114.255, 
  114.2549, 114.255, 114.2551, 114.2555, 114.2557, 114.2553, 114.2555, 114.2558, 114.2563, 114.2564, 
  114.2563, 114.2566, 114.2563, 114.2561, 114.256, 114.2555, 114.2554, 114.2551, 114.2556, 114.2562, 
  114.2568, 114.2568, 114.2575, 114.2571, 114.2489, 114.2475, 114.2467, 114.2457, 114.2456, 114.245, 
  114.2456, 114.2437, 114.2431, 114.2418, 114.2443, 114.2417, 114.241, 114.2392, 114.2392, 114.2388, 
  114.2389, 114.2377, 114.236, 114.2355, 114.2345, 114.2337, 114.2337, 114.2333, 114.2327, 114.2302, 
  114.2262, 114.2249, 114.2257, 114.2222, 114.2197, 114.2154, 114.2112, 114.2102, 114.2089, 114.2058, 
  114.2031, 114.2006, 114.1975, 114.1949, 114.1928, 114.1911, 114.1883, 114.1891, 114.19, 114.1899, 
  114.1856, 114.1837, 114.1831, 114.183, 114.1834, 114.1825, 114.1817, 114.1818, 114.1809, 114.1802, 
  114.18, 114.181, 114.1809, 114.1792, 114.1786)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.2116, 22.2113, 22.21133, 22.21156, 22.2142, 22.2148, 22.21511, 22.21514, 22.2163, 22.21625, 
  22.22007, 22.22025, 22.21997, 22.21974, 22.21965, 22.2191, 22.21848, 22.21849, 22.21879, 22.21871, 
  22.2183, 22.2163, 22.21569, 22.21475, 22.21435, 22.21375, 22.21341, 22.21305, 22.21277, 22.21229, 
  22.21136, 22.21054, 22.21013, 22.21019, 22.20985, 22.2095, 22.20885, 22.20821, 22.20802, 22.20804, 
  22.20777, 22.20742, 22.20706, 22.20675, 22.20604, 22.20557, 22.20522, 22.20452, 22.20392, 22.20366, 
  22.20368, 22.20345, 22.20342, 22.20298, 22.20254, 22.20243, 22.202, 22.20133, 22.20059, 22.19845, 
  22.19774, 22.19742, 22.19713, 22.19608, 22.19586, 22.19541, 22.1951, 22.19418, 22.19374, 22.19297, 
  22.1925, 22.19249, 22.19125, 22.19076, 22.19046, 22.19023, 22.18854, 22.18831, 22.1884, 22.18819, 
  22.18785, 22.18771, 22.18703, 22.18592, 22.18446, 22.18365, 22.18294, 22.18164, 22.18117, 22.18003, 
  22.17977, 22.18057, 22.18122, 22.18111, 22.17991, 22.17939, 22.17888, 22.17837, 22.17864, 22.17916, 
  22.18001, 22.18016, 22.18013, 22.18029, 22.18094, 22.1812, 22.1822, 22.1826, 22.18289, 22.18325, 
  22.18325, 22.183, 22.18097, 22.18038, 22.18018, 22.17978, 22.17856, 22.17776, 22.17773, 22.17854, 
  22.17862, 22.17929, 22.17944, 22.17958, 22.17968, 22.1803, 22.18073, 22.18066, 22.18114, 22.18204, 
  22.18286, 22.18322, 22.1833, 22.18361, 22.18476, 22.18539, 22.18624, 22.18661, 22.1868, 22.18712, 
  22.18794, 22.18856, 22.18908, 22.18981, 22.19003, 22.19047, 22.1906, 22.19093, 22.19089, 22.19099, 
  22.19101, 22.19116, 22.19116, 22.19149, 22.19161, 22.19171, 22.19145, 22.19123, 22.19027, 22.18985, 
  22.18948, 22.18918, 22.1885, 22.18798, 22.18788, 22.18751, 22.18695, 22.18605, 22.18523, 22.18449, 
  22.18416, 22.18367, 22.1834, 22.18355, 22.18278, 22.1823, 22.18152, 22.1813, 22.18118, 22.1816, 
  22.18199, 22.18245, 22.1826, 22.18306, 22.18316, 22.18333, 22.18347, 22.18369, 22.18456, 22.18515, 
  22.18647, 22.18679, 22.18723, 22.18855, 22.18949, 22.18992, 22.19015, 22.19026, 22.19086, 22.19121, 
  22.19186, 22.19245, 22.19291, 22.19352, 22.19385, 22.19518, 22.19569, 22.19615, 22.19617, 22.19565, 
  22.19534, 22.19633, 22.19745, 22.19828, 22.19905, 22.19896, 22.1983, 22.19876, 22.19884, 22.1981, 
  22.19811, 22.19793, 22.19802, 22.19842, 22.19841, 22.19875, 22.1991, 22.19906, 22.19936, 22.19967, 
  22.2, 22.19979, 22.20004, 22.20057, 22.20145, 22.20156, 22.20193, 22.20268, 22.20306, 22.20352, 
  22.20377, 22.20397, 22.2039, 22.2041, 22.20497, 22.20526, 22.20574, 22.20541, 22.20542, 22.2063, 
  22.20609, 22.20495, 22.20427, 22.20374, 22.20404, 22.20436, 22.20456, 22.20504, 22.20552, 22.20601, 
  22.20684, 22.20747, 22.20809, 22.20814, 22.20836, 22.20847, 22.20864, 22.20882, 22.2094, 22.20967, 
  22.20986, 22.20999, 22.21034, 22.21025, 22.21011, 22.21008, 22.20965, 22.2093, 22.20949, 22.20938, 
  22.20991, 22.211, 22.21157, 22.21196, 22.21187, 22.21119, 22.21099, 22.21118, 22.21069, 22.2103, 
  22.20986, 22.2095, 22.20917, 22.20922, 22.2088, 22.20831, 22.20798, 22.20781, 22.20792, 22.2084, 
  22.20879, 22.20893, 22.20905, 22.20918, 22.20896, 22.20898, 22.20884, 22.20884, 22.20848, 22.20804, 
  22.20787, 22.20737, 22.20704, 22.20608, 22.204, 22.20351, 22.20229, 22.2021, 22.2029, 22.20312, 
  22.20369, 22.20414, 22.20428, 22.20485, 22.20544, 22.20609, 22.20663, 22.20733, 22.2079, 22.20931, 
  22.20974, 22.20998, 22.20994, 22.20965, 22.20968, 22.20956, 22.2098, 22.21039, 22.21314, 22.2132, 
  22.2134, 22.21427, 22.21463, 22.2154, 22.21665, 22.21819, 22.21875, 22.21987, 22.22023, 22.22097, 
  22.22126, 22.22168, 22.22176, 22.22153, 22.22106, 22.22056, 22.21938, 22.219, 22.21858, 22.21795, 
  22.21801, 22.21897, 22.21965, 22.22029, 22.22096, 22.22203, 22.22232, 22.22297, 22.22382, 22.22353, 
  22.22365, 22.22385, 22.22394, 22.22423, 22.22458, 22.22553, 22.22584, 22.2262, 22.22656, 22.22695, 
  22.22711, 22.2278, 22.2278, 22.22885, 22.22937, 22.2307, 22.23263, 22.23378, 22.23413, 22.23407, 
  22.23479, 22.23573, 22.23699, 22.23841, 22.23899, 22.23898, 22.23922, 22.23918, 22.2393, 22.23904, 
  22.2391, 22.23945, 22.23971, 22.24012, 22.24032, 22.24063, 22.24118, 22.2411, 22.24071, 22.24051, 
  22.24029, 22.23987, 22.23977, 22.23933, 22.23886, 22.23866, 22.23872, 22.23846, 22.23828, 22.23797, 
  22.23797, 22.23781, 22.23735, 22.23697, 22.23678, 22.23665, 22.23617, 22.23617, 22.23588, 22.23567, 
  22.23547, 22.23546, 22.23576, 22.23575, 22.23539, 22.23529, 22.23496, 22.23418, 22.23332, 22.23273, 
  22.23225, 22.23252, 22.23244, 22.23189, 22.23193, 22.23133, 22.23091, 22.22999, 22.2297, 22.2296, 
  22.22939, 22.22905, 22.22819, 22.22817, 22.22802, 22.22779, 22.22749, 22.22743, 22.22754, 22.22794, 
  22.22794, 22.22743, 22.22687, 22.22684, 22.22636, 22.2253, 22.22506, 22.22514, 22.22479, 22.22502, 
  22.22398, 22.22317, 22.22262, 22.22214, 22.22051, 22.21939, 22.21986, 22.21875, 22.21793, 22.21654, 
  22.21634, 22.2163, 22.216, 22.21585, 22.21455)
LONGITUDE_VALUEs <- c(
  114.1032, 114.1035, 114.1077, 114.1079, 114.1079, 114.1076, 114.1069, 114.1051, 114.1051, 114.1136, 
  114.1134, 114.1141, 114.1166, 114.1169, 114.1173, 114.1179, 114.1181, 114.1182, 114.1187, 114.1194, 
  114.1198, 114.1205, 114.1206, 114.1209, 114.1212, 114.1211, 114.1206, 114.1205, 114.1206, 114.1213, 
  114.1218, 114.1218, 114.1214, 114.1208, 114.1208, 114.121, 114.1213, 114.1211, 114.1209, 114.1207, 
  114.1198, 114.1196, 114.1197, 114.1197, 114.1202, 114.121, 114.122, 114.1225, 114.1225, 114.1223, 
  114.1217, 114.1217, 114.1219, 114.1222, 114.122, 114.1217, 114.122, 114.1219, 114.1215, 114.1215, 
  114.1213, 114.1211, 114.1208, 114.1207, 114.1208, 114.1208, 114.1207, 114.1208, 114.1207, 114.1207, 
  114.1205, 114.1202, 114.1204, 114.1202, 114.1198, 114.119, 114.1175, 114.1168, 114.1165, 114.1157, 
  114.1155, 114.115, 114.1145, 114.1141, 114.1139, 114.114, 114.1145, 114.1154, 114.1173, 114.1181, 
  114.1218, 114.1223, 114.1226, 114.1234, 114.1244, 114.1253, 114.1253, 114.1255, 114.1277, 114.1282, 
  114.1281, 114.1283, 114.1291, 114.1292, 114.1293, 114.1297, 114.1302, 114.1308, 114.1316, 114.1319, 
  114.1322, 114.1326, 114.1336, 114.134, 114.134, 114.1342, 114.136, 114.1369, 114.1372, 114.1377, 
  114.1375, 114.1374, 114.1376, 114.1375, 114.1377, 114.1378, 114.1376, 114.1378, 114.1377, 114.1374, 
  114.1372, 114.137, 114.1368, 114.1368, 114.1362, 114.136, 114.1356, 114.1353, 114.1344, 114.1342, 
  114.1344, 114.1343, 114.1345, 114.1344, 114.1345, 114.1345, 114.1344, 114.1345, 114.1346, 114.1347, 
  114.1349, 114.1349, 114.1351, 114.1356, 114.1356, 114.1359, 114.137, 114.1373, 114.1374, 114.1372, 
  114.1373, 114.1381, 114.1381, 114.1395, 114.1401, 114.1406, 114.1409, 114.1424, 114.1432, 114.1433, 
  114.1436, 114.1443, 114.1453, 114.1461, 114.148, 114.1481, 114.1479, 114.148, 114.149, 114.1496, 
  114.1496, 114.1496, 114.149, 114.149, 114.1492, 114.1493, 114.1489, 114.1488, 114.1475, 114.1475, 
  114.147, 114.1471, 114.147, 114.1461, 114.1459, 114.1456, 114.1453, 114.1441, 114.1433, 114.1433, 
  114.144, 114.1441, 114.1439, 114.1437, 114.1432, 114.1422, 114.1423, 114.1419, 114.1418, 114.1415, 
  114.1408, 114.14, 114.1396, 114.1399, 114.1407, 114.1412, 114.1418, 114.1418, 114.1425, 114.1425, 
  114.1431, 114.1435, 114.1436, 114.1433, 114.144, 114.1442, 114.144, 114.1435, 114.1434, 114.1437, 
  114.145, 114.1454, 114.1467, 114.1469, 114.1466, 114.1469, 114.1469, 114.1473, 114.148, 114.1479, 
  114.1496, 114.1495, 114.1499, 114.15, 114.1496, 114.1499, 114.15, 114.1504, 114.1506, 114.1516, 
  114.1527, 114.1533, 114.1542, 114.1555, 114.1575, 114.1576, 114.1579, 114.1579, 114.1577, 114.1579, 
  114.1598, 114.1603, 114.1601, 114.1604, 114.1604, 114.1601, 114.1604, 114.1603, 114.1596, 114.1595, 
  114.1592, 114.1592, 114.1585, 114.1582, 114.1585, 114.1577, 114.1555, 114.1551, 114.1536, 114.1529, 
  114.1523, 114.1522, 114.1523, 114.1519, 114.1502, 114.1494, 114.149, 114.1478, 114.1472, 114.1471, 
  114.1466, 114.1467, 114.1465, 114.1458, 114.1456, 114.1457, 114.1452, 114.144, 114.1433, 114.1429, 
  114.142, 114.1409, 114.1406, 114.1398, 114.1393, 114.1389, 114.1385, 114.1374, 114.1357, 114.1352, 
  114.1343, 114.1337, 114.1326, 114.1314, 114.1307, 114.1307, 114.1303, 114.1301, 114.1295, 114.1292, 
  114.129, 114.1285, 114.1279, 114.1274, 114.1272, 114.1266, 114.1269, 114.1266, 114.127, 114.1269, 
  114.1271, 114.1278, 114.1281, 114.1282, 114.1286, 114.129, 114.1296, 114.1299, 114.1342, 114.1346, 
  114.1347, 114.1354, 114.1359, 114.1364, 114.1371, 114.1367, 114.1369, 114.1361, 114.1361, 114.1355, 
  114.1343, 114.1339, 114.1336, 114.1334, 114.1335, 114.1325, 114.1318, 114.132, 114.1312, 114.1304, 
  114.1301, 114.1292, 114.1275, 114.127, 114.127, 114.1258, 114.1255, 114.1253, 114.1257, 114.1266, 
  114.1267, 114.1266, 114.1261, 114.1261, 114.1256, 114.1257, 114.126, 114.126, 114.1255, 114.1245, 
  114.1237, 114.1234, 114.1231, 114.1218, 114.1207, 114.1203, 114.1203, 114.1209, 114.1218, 114.1221, 
  114.1222, 114.1227, 114.1231, 114.1224, 114.1215, 114.1212, 114.1211, 114.1205, 114.1201, 114.1198, 
  114.1195, 114.1189, 114.1188, 114.1188, 114.1185, 114.1186, 114.1181, 114.1179, 114.1177, 114.1175, 
  114.1175, 114.1171, 114.1168, 114.1173, 114.1171, 114.1168, 114.1164, 114.1159, 114.1159, 114.1142, 
  114.1136, 114.1133, 114.1129, 114.1112, 114.1109, 114.1099, 114.1098, 114.1094, 114.1093, 114.109, 
  114.1089, 114.1083, 114.1082, 114.1077, 114.1075, 114.1072, 114.1071, 114.1058, 114.1058, 114.1064, 
  114.1071, 114.1072, 114.1075, 114.1078, 114.1081, 114.1099, 114.1102, 114.1103, 114.1102, 114.1099, 
  114.1099, 114.1091, 114.1088, 114.1083, 114.1082, 114.1084, 114.1085, 114.1088, 114.109, 114.109, 
  114.1091, 114.1093, 114.1096, 114.111, 114.1114, 114.1113, 114.111, 114.1106, 114.1103, 114.1094, 
  114.1074, 114.1068, 114.1055, 114.1056, 114.1044, 114.1044, 114.1033, 114.1024, 114.103, 114.1031, 
  114.1033, 114.104, 114.104, 114.1032, 114.1031)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.50429, 22.50473, 22.50518, 22.50544, 22.50531, 22.50562, 22.50563, 22.50589, 22.50583, 22.506, 
  22.50732, 22.50765, 22.50788, 22.50856, 22.50916, 22.50981, 22.50955, 22.50881, 22.50851, 22.50801, 
  22.5081, 22.50792, 22.50812, 22.50847, 22.50852, 22.50921, 22.51071, 22.51114, 22.51194, 22.51319, 
  22.51397, 22.51534, 22.51584, 22.5164, 22.51702, 22.51716, 22.51765, 22.518, 22.51831, 22.51906, 
  22.51894, 22.51857, 22.51839, 22.51859, 22.51904, 22.51965, 22.5199, 22.52016, 22.52012, 22.52025, 
  22.5215, 22.52329, 22.52399, 22.52438, 22.5244, 22.52472, 22.52506, 22.52572, 22.52565, 22.5261, 
  22.52593, 22.5263, 22.52603, 22.52545, 22.52523, 22.5245, 22.5245, 22.52406, 22.52354, 22.52323, 
  22.52123, 22.5207, 22.52012, 22.51951, 22.51904, 22.51821, 22.51801, 22.51747, 22.51718, 22.51671, 
  22.51638, 22.51553, 22.51491, 22.5145, 22.51441, 22.51463, 22.5146, 22.51394, 22.51354, 22.51348, 
  22.51375, 22.51315, 22.51308, 22.51214, 22.51303, 22.51374, 22.51358, 22.51301, 22.51253, 22.51187, 
  22.51185, 22.51095, 22.51088, 22.51016, 22.51063, 22.51057, 22.51183, 22.51245, 22.51277, 22.5127, 
  22.51208, 22.51224, 22.51238, 22.51266, 22.51324, 22.51358, 22.51346, 22.51308, 22.51351, 22.51249, 
  22.51152, 22.51226, 22.51282, 22.51327, 22.51328, 22.51222, 22.51236, 22.51333, 22.51355, 22.51216, 
  22.51191, 22.51099, 22.51075, 22.511, 22.50961, 22.50839, 22.5086, 22.50762, 22.5072, 22.50726, 
  22.50629, 22.50686, 22.50545, 22.50501, 22.50469, 22.50461)
LONGITUDE_VALUEs <- c(
  114.2991, 114.3002, 114.3003, 114.3007, 114.3012, 114.3015, 114.3021, 114.3023, 114.303, 114.3033, 
  114.3038, 114.3047, 114.3049, 114.3043, 114.3046, 114.306, 114.3069, 114.3082, 114.3083, 114.3094, 
  114.31, 114.3104, 114.3108, 114.3108, 114.3111, 114.3112, 114.3119, 114.3147, 114.3167, 114.3175, 
  114.3186, 114.3189, 114.3197, 114.3216, 114.3214, 114.3208, 114.3204, 114.3204, 114.3196, 114.3189, 
  114.3185, 114.3177, 114.3175, 114.3171, 114.3167, 114.3165, 114.3166, 114.3172, 114.3177, 114.3177, 
  114.3164, 114.3156, 114.3143, 114.3142, 114.3133, 114.313, 114.3121, 114.311, 114.3106, 114.3104, 
  114.3099, 114.3092, 114.3089, 114.3087, 114.3083, 114.3086, 114.3094, 114.3102, 114.3101, 114.3094, 
  114.309, 114.3094, 114.3094, 114.3101, 114.3102, 114.3098, 114.3094, 114.3091, 114.3091, 114.3094, 
  114.3079, 114.3076, 114.3079, 114.3076, 114.3072, 114.3067, 114.3059, 114.3056, 114.3059, 114.3067, 
  114.3074, 114.3069, 114.306, 114.3061, 114.3048, 114.3043, 114.3039, 114.3045, 114.3037, 114.3041, 
  114.3046, 114.3058, 114.3046, 114.3042, 114.3036, 114.3027, 114.3025, 114.3026, 114.3025, 114.3022, 
  114.3019, 114.3012, 114.3012, 114.3017, 114.302, 114.3016, 114.3012, 114.3008, 114.3, 114.2995, 
  114.2999, 114.2983, 114.2979, 114.298, 114.2972, 114.2966, 114.2954, 114.2952, 114.2945, 114.2946, 
  114.2951, 114.295, 114.2955, 114.2961, 114.2978, 114.2977, 114.2965, 114.2972, 114.2967, 114.2956, 
  114.2963, 114.2982, 114.2971, 114.2978, 114.2979, 114.2986)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.3213, 22.32059, 22.31727, 22.31693, 22.3169, 22.32305, 22.32279, 22.31626, 22.31568, 22.31383, 
  22.30991, 22.30918, 22.30882, 22.30751, 22.30717, 22.30717, 22.30701, 22.30519, 22.30512, 22.3042, 
  22.30433, 22.30234, 22.30138, 22.2964, 22.29572, 22.29486, 22.29402, 22.29367, 22.29365, 22.29462, 
  22.29513, 22.29516, 22.29149, 22.29159, 22.29084, 22.2907, 22.29056, 22.29018, 22.29059, 22.29162, 
  22.29478, 22.29504, 22.29616, 22.29699, 22.29933, 22.30016, 22.30059, 22.30156, 22.30233, 22.30337, 
  22.30415, 22.30501, 22.30655, 22.30765, 22.30881, 22.30975, 22.31145, 22.31219, 22.31251, 22.31312, 
  22.31341, 22.31349, 22.31231, 22.31106, 22.31009, 22.31024, 22.31113, 22.31963, 22.32173, 22.32299, 
  22.32356, 22.32367, 22.3233, 22.32126, 22.32053, 22.32049, 22.32283, 22.32254, 22.32169, 22.31536, 
  22.31492, 22.31469, 22.3139, 22.3142, 22.31603, 22.31933, 22.3197, 22.3198, 22.31997, 22.31993, 
  22.32023, 22.32037, 22.32038, 22.32027, 22.32042, 22.32084, 22.32093, 22.32117, 22.32283, 22.32288, 
  22.32328, 22.32352, 22.32379, 22.32263, 22.32175, 22.32141, 22.32144, 22.32427, 22.32473, 22.32836, 
  22.33259, 22.33312, 22.33296, 22.33336, 22.33454, 22.33495, 22.33488, 22.33378, 22.33385, 22.33262, 
  22.33218, 22.32461, 22.32468, 22.3234, 22.32299, 22.32182)
LONGITUDE_VALUEs <- c(
  113.8766, 113.8765, 113.8778, 113.8785, 113.8792, 113.8982, 113.8988, 113.9013, 113.901, 113.8952, 
  113.89, 113.8898, 113.8898, 113.8904, 113.891, 113.896, 113.8963, 113.8969, 113.8967, 113.897, 
  113.8973, 113.8981, 113.898, 113.8941, 113.8939, 113.894, 113.8946, 113.8957, 113.8991, 113.9026, 
  113.9062, 113.916, 113.9289, 113.9291, 113.9316, 113.9316, 113.932, 113.9325, 113.934, 113.9349, 
  113.9384, 113.9384, 113.9377, 113.9377, 113.9383, 113.9388, 113.9393, 113.9403, 113.9407, 113.9411, 
  113.941, 113.9408, 113.94, 113.9397, 113.9398, 113.94, 113.9412, 113.9421, 113.9431, 113.9463, 
  113.9471, 113.9483, 113.9518, 113.954, 113.9574, 113.9584, 113.9595, 113.9622, 113.9624, 113.9623, 
  113.9619, 113.9612, 113.9605, 113.9604, 113.96, 113.9595, 113.951, 113.9499, 113.9492, 113.9473, 
  113.9468, 113.9468, 113.943, 113.9424, 113.9437, 113.9444, 113.9449, 113.9451, 113.945, 113.945, 
  113.9448, 113.9449, 113.946, 113.946, 113.9461, 113.9459, 113.9457, 113.9458, 113.946, 113.9457, 
  113.9457, 113.9451, 113.9449, 113.9434, 113.939, 113.938, 113.9377, 113.9365, 113.936, 113.9236, 
  113.9219, 113.9211, 113.92, 113.9195, 113.919, 113.9182, 113.9176, 113.9142, 113.9135, 113.9097, 
  113.9092, 113.8857, 113.8849, 113.8812, 113.8808, 113.8771)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.37371, 22.37399, 22.37434, 22.37465, 22.37534, 22.37541, 22.37568, 22.37619, 22.37664, 22.37672, 
  22.37701, 22.37802, 22.37833, 22.37865, 22.37876, 22.37871, 22.37904, 22.37932, 22.37973, 22.38002, 
  22.38004, 22.37957, 22.37947, 22.37958, 22.37996, 22.38031, 22.38059, 22.38059, 22.38037, 22.38034, 
  22.37989, 22.37912, 22.3784, 22.37829, 22.37784, 22.37712, 22.37672, 22.37642, 22.37585, 22.37546, 
  22.37581, 22.37573, 22.37506, 22.37474, 22.37429, 22.37382)
LONGITUDE_VALUEs <- c(
  114.3036, 114.3045, 114.3045, 114.3049, 114.3051, 114.3056, 114.3057, 114.3056, 114.3059, 114.3062, 
  114.3064, 114.3063, 114.3061, 114.3061, 114.306, 114.3056, 114.3054, 114.3056, 114.3058, 114.3055, 
  114.305, 114.3043, 114.3037, 114.3032, 114.3034, 114.3034, 114.3027, 114.3015, 114.3012, 114.3007, 
  114.3005, 114.3011, 114.3009, 114.3005, 114.3007, 114.3012, 114.3007, 114.3008, 114.3006, 114.3008, 
  114.3017, 114.302, 114.3022, 114.3029, 114.3034, 114.3034)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.34577, 22.34523, 22.34356, 22.34317, 22.34386, 22.34471, 22.34597, 22.34614, 22.34604, 22.34541, 
  22.34335, 22.34335, 22.34256, 22.34267, 22.34235, 22.34196, 22.34212, 22.34248, 22.34404, 22.34535, 
  22.34591, 22.34691, 22.34753, 22.3478, 22.34771, 22.34837, 22.35054, 22.35083, 22.35087, 22.35059, 
  22.35172, 22.35335, 22.35393, 22.35451, 22.3548, 22.35554, 22.35613, 22.35653, 22.35744, 22.3578, 
  22.35748, 22.35831, 22.35892, 22.35929, 22.35991, 22.35981, 22.36037, 22.36021, 22.35879, 22.35998, 
  22.35993, 22.36057, 22.36173, 22.36107, 22.36291, 22.36323, 22.36382, 22.36394, 22.36445, 22.36474, 
  22.36452, 22.36425, 22.36428, 22.36476, 22.36526, 22.36695, 22.36756, 22.36785, 22.36893, 22.36922, 
  22.36956, 22.36986, 22.36993, 22.36958, 22.37065, 22.37137, 22.37164, 22.37226, 22.3735, 22.37363, 
  22.37356, 22.37372, 22.374, 22.37428, 22.37463, 22.37498, 22.37615, 22.37685, 22.37725, 22.37746, 
  22.37771, 22.37805, 22.37795, 22.37859, 22.37865, 22.37767, 22.3772, 22.37612, 22.37581, 22.37637, 
  22.37645, 22.37609, 22.37608, 22.37685, 22.37757, 22.37754, 22.37795, 22.37905, 22.37986, 22.38014, 
  22.38039, 22.3803, 22.37931, 22.37793, 22.37723, 22.37692, 22.37666, 22.37631, 22.37572, 22.37548, 
  22.37553, 22.37604, 22.37602, 22.37567, 22.37543, 22.37487, 22.37375, 22.37364, 22.37383, 22.373, 
  22.37319, 22.37351, 22.37383, 22.3749, 22.37504, 22.37491, 22.37455, 22.37426, 22.37355, 22.37317, 
  22.37235, 22.37197, 22.37183, 22.37181, 22.37216, 22.37206, 22.37141, 22.37103, 22.37045, 22.37007, 
  22.37061, 22.37019, 22.36972, 22.36941, 22.36911, 22.36867, 22.36853, 22.36781, 22.36748, 22.36703, 
  22.36667, 22.36688, 22.36823, 22.36802, 22.36768, 22.3672, 22.36652, 22.366, 22.36597, 22.36551, 
  22.36549, 22.36527, 22.36527, 22.36515, 22.3652, 22.36428, 22.36394, 22.36333, 22.36211, 22.36193, 
  22.36151, 22.36143, 22.36099, 22.36077, 22.36028, 22.35968, 22.35962, 22.3599, 22.36025, 22.36033, 
  22.36075, 22.3609, 22.36074, 22.35991, 22.3597, 22.35964, 22.35908, 22.35878, 22.35858, 22.35821, 
  22.35804, 22.35803, 22.3575, 22.3567, 22.35678, 22.35651, 22.35607, 22.35531, 22.35493, 22.3552, 
  22.35449, 22.35429, 22.35359, 22.35299, 22.35188, 22.35158, 22.35129, 22.35035, 22.35017, 22.34835, 
  22.3484, 22.34731, 22.34724, 22.34621)
LONGITUDE_VALUEs <- c(
  114.3073, 114.3092, 114.3106, 114.3117, 114.313, 114.3132, 114.3134, 114.3141, 114.3147, 114.3148, 
  114.3169, 114.3185, 114.32, 114.3203, 114.3211, 114.3215, 114.3231, 114.3237, 114.3248, 114.3244, 
  114.3245, 114.3233, 114.3234, 114.3238, 114.3249, 114.3262, 114.3254, 114.3258, 114.3263, 114.3271, 
  114.3272, 114.3265, 114.326, 114.3264, 114.3272, 114.3272, 114.3279, 114.3272, 114.3268, 114.3258, 
  114.3247, 114.3247, 114.324, 114.3228, 114.3223, 114.3216, 114.3205, 114.3204, 114.3204, 114.3195, 
  114.3191, 114.3191, 114.3182, 114.3195, 114.3197, 114.3201, 114.3197, 114.3191, 114.319, 114.3194, 
  114.3204, 114.3206, 114.3208, 114.3205, 114.3208, 114.3204, 114.32, 114.3194, 114.3196, 114.3195, 
  114.3195, 114.3192, 114.3186, 114.3182, 114.3178, 114.3174, 114.3167, 114.3175, 114.3172, 114.3167, 
  114.3164, 114.3163, 114.3165, 114.3169, 114.3168, 114.3166, 114.3173, 114.3172, 114.3174, 114.3178, 
  114.3179, 114.3175, 114.3167, 114.3161, 114.3158, 114.3145, 114.3142, 114.3137, 114.3135, 114.3134, 
  114.3128, 114.3128, 114.3127, 114.3123, 114.3126, 114.3129, 114.3133, 114.3137, 114.3137, 114.3134, 
  114.3128, 114.3118, 114.3097, 114.3094, 114.3089, 114.309, 114.3083, 114.3082, 114.3087, 114.3085, 
  114.3083, 114.3082, 114.308, 114.3077, 114.3078, 114.3074, 114.3074, 114.3073, 114.3071, 114.3067, 
  114.3066, 114.3066, 114.3067, 114.3065, 114.3062, 114.3061, 114.3061, 114.3056, 114.3056, 114.3047, 
  114.305, 114.3057, 114.3057, 114.3054, 114.3049, 114.3045, 114.3044, 114.3042, 114.3052, 114.3045, 
  114.3028, 114.3024, 114.3024, 114.3026, 114.3032, 114.3032, 114.3022, 114.3021, 114.3027, 114.3029, 
  114.3038, 114.3043, 114.3042, 114.3053, 114.3057, 114.3056, 114.3058, 114.3056, 114.3053, 114.3048, 
  114.3043, 114.3043, 114.3049, 114.3053, 114.3056, 114.3056, 114.3059, 114.3057, 114.3063, 114.3066, 
  114.3069, 114.3071, 114.3073, 114.3081, 114.3081, 114.3085, 114.3081, 114.3069, 114.3067, 114.3063, 
  114.3063, 114.3059, 114.3055, 114.3053, 114.3052, 114.3055, 114.3056, 114.3054, 114.3057, 114.3058, 
  114.3062, 114.3065, 114.307, 114.3064, 114.3061, 114.3059, 114.3054, 114.305, 114.3045, 114.3039, 
  114.3036, 114.3039, 114.3042, 114.304, 114.3033, 114.3038, 114.3037, 114.3044, 114.3048, 114.3051, 
  114.3054, 114.3058, 114.3063, 114.3072)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.34057, 22.33913, 22.33833, 22.33597, 22.3344, 22.33408, 22.33393, 22.33287, 22.33204, 22.33137, 
  22.33131, 22.33101, 22.33066, 22.33047, 22.32736, 22.32664, 22.32621, 22.32616, 22.32649, 22.32677, 
  22.32679, 22.32709, 22.32754, 22.32695, 22.32687, 22.32703, 22.32593, 22.32581, 22.32606, 22.32607, 
  22.32706, 22.32611, 22.3261, 22.32668, 22.32723, 22.32756, 22.32792, 22.32774, 22.32785, 22.32777, 
  22.328, 22.32887, 22.3295, 22.33045, 22.3315, 22.33366, 22.33418, 22.33594, 22.33659, 22.33716, 
  22.33776, 22.33806, 22.33996, 22.34062, 22.34075, 22.34121, 22.34117, 22.3414, 22.34174, 22.34176, 
  22.34111, 22.34051, 22.34049, 22.34071, 22.34054)
LONGITUDE_VALUEs <- c(
  114.3171, 114.3165, 114.3156, 114.3167, 114.3179, 114.3179, 114.3174, 114.3176, 114.3179, 114.3188, 
  114.3195, 114.3196, 114.3191, 114.3184, 114.3199, 114.32, 114.3207, 114.3215, 114.3219, 114.3218, 
  114.322, 114.3224, 114.3228, 114.3238, 114.3245, 114.325, 114.3261, 114.3266, 114.3271, 114.3275, 
  114.3275, 114.328, 114.3282, 114.3284, 114.3279, 114.3285, 114.3286, 114.329, 114.3293, 114.3302, 
  114.3304, 114.3306, 114.3304, 114.3305, 114.3308, 114.3305, 114.3302, 114.3277, 114.3275, 114.3276, 
  114.3273, 114.3268, 114.3264, 114.3261, 114.3251, 114.3244, 114.324, 114.3237, 114.3226, 114.3221, 
  114.3202, 114.3193, 114.3187, 114.3181, 114.3175)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.28087, 22.28007, 22.27964, 22.27983, 22.27991, 22.28019, 22.28003, 22.28028, 22.2801, 22.28038, 
  22.28081, 22.28099, 22.28171, 22.28212, 22.28415, 22.28439, 22.28464, 22.28485, 22.28529, 22.28584, 
  22.28629, 22.28666, 22.28691, 22.28706, 22.28657, 22.28563, 22.28491, 22.28476, 22.28514, 22.28614, 
  22.28674, 22.28767, 22.2877, 22.28886, 22.28989, 22.29068, 22.29094, 22.29115, 22.29123, 22.2914, 
  22.29168, 22.29189, 22.29183, 22.29221, 22.29201, 22.29218, 22.29195, 22.29177, 22.29093, 22.29108, 
  22.2907, 22.2893, 22.28443, 22.28455, 22.28476, 22.28484, 22.28383, 22.28246, 22.28134, 22.28084)
LONGITUDE_VALUEs <- c(
  114.0393, 114.0408, 114.0412, 114.0414, 114.0423, 114.0425, 114.0429, 114.043, 114.044, 114.0447, 
  114.0449, 114.0457, 114.0463, 114.0463, 114.0475, 114.0472, 114.0472, 114.0461, 114.046, 114.0464, 
  114.046, 114.0463, 114.0458, 114.0443, 114.0428, 114.0421, 114.0421, 114.0416, 114.0406, 114.0399, 
  114.0398, 114.0405, 114.0413, 114.0422, 114.0449, 114.0451, 114.0459, 114.0458, 114.0447, 114.0445, 
  114.0448, 114.0445, 114.0439, 114.0437, 114.043, 114.0422, 114.0419, 114.041, 114.0393, 114.0383, 
  114.0372, 114.0351, 114.0369, 114.0374, 114.0373, 114.0376, 114.0383, 114.0373, 114.0377, 114.0383)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.24102, 22.24123, 22.24362, 22.24493, 22.24547, 22.24658, 22.24705, 22.2492, 22.25017, 22.25144, 
  22.25406, 22.25706, 22.2573, 22.25851, 22.25784, 22.25863, 22.25883, 22.25808, 22.25881, 22.25877, 
  22.25833, 22.25808, 22.25709, 22.25671, 22.25651, 22.25689, 22.25658, 22.25618, 22.25584, 22.25555, 
  22.2541, 22.2541, 22.25439, 22.25339, 22.25291, 22.25204, 22.25065, 22.24942, 22.24955, 22.24985, 
  22.25016, 22.25018, 22.24936, 22.24867, 22.24805, 22.24546, 22.243, 22.24205, 22.2414)
LONGITUDE_VALUEs <- c(
  114.0435, 114.045, 114.0463, 114.0463, 114.0471, 114.0472, 114.0465, 114.0454, 114.0441, 114.0441, 
  114.0454, 114.0451, 114.0438, 114.0419, 114.0392, 114.0362, 114.0327, 114.0317, 114.0294, 114.0281, 
  114.0279, 114.0283, 114.0282, 114.0278, 114.0271, 114.0268, 114.0264, 114.0267, 114.0266, 114.027, 
  114.0277, 114.0309, 114.0325, 114.0328, 114.0339, 114.0339, 114.0349, 114.0352, 114.0355, 114.0354, 
  114.036, 114.0371, 114.0387, 114.0389, 114.0382, 114.0399, 114.0404, 114.0425, 114.0428)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.24521, 22.24556, 22.24579, 22.2446, 22.24501, 22.24531, 22.24572, 22.24562, 22.24574, 22.24572, 
  22.24567, 22.245, 22.24487, 22.24459, 22.24373, 22.24365, 22.24351, 22.24272, 22.24272, 22.2424, 
  22.24231, 22.24188, 22.24181, 22.24156, 22.24134, 22.24004, 22.23934, 22.23938, 22.23872, 22.23659, 
  22.23671, 22.23573, 22.23536, 22.23512, 22.2352, 22.23452, 22.23446, 22.23416, 22.234, 22.23374, 
  22.2335, 22.23326, 22.23231, 22.2318, 22.23138, 22.23124, 22.23087, 22.23015, 22.22965, 22.22941, 
  22.22917, 22.22929, 22.22898, 22.22881, 22.22891, 22.22883, 22.22891, 22.22881, 22.22887, 22.22913, 
  22.22953, 22.22994, 22.22998, 22.23013, 22.23048, 22.23112, 22.23126, 22.23165, 22.23214, 22.23239, 
  22.23263, 22.23352, 22.23403, 22.2343, 22.23445, 22.23461, 22.2349, 22.23521, 22.23562, 22.23576, 
  22.23612, 22.23634, 22.23658, 22.23796, 22.23825, 22.23861, 22.23928, 22.24097, 22.24217, 22.24275, 
  22.24378, 22.24387, 22.24417)
LONGITUDE_VALUEs <- c(
  114.1594, 114.1587, 114.1575, 114.154, 114.1526, 114.1523, 114.1508, 114.1503, 114.1488, 114.1484, 
  114.1483, 114.1472, 114.1452, 114.1448, 114.1441, 114.1441, 114.145, 114.1461, 114.1462, 114.1467, 
  114.1467, 114.1473, 114.1475, 114.1475, 114.1477, 114.148, 114.1487, 114.1489, 114.1518, 114.1535, 
  114.1539, 114.1545, 114.1548, 114.1557, 114.1562, 114.1575, 114.1581, 114.1586, 114.1591, 114.1592, 
  114.1592, 114.1588, 114.1592, 114.1589, 114.1591, 114.1595, 114.1596, 114.1605, 114.1605, 114.1608, 
  114.1609, 114.1611, 114.1612, 114.1616, 114.1619, 114.1621, 114.1622, 114.1623, 114.1625, 114.1626, 
  114.1622, 114.162, 114.1615, 114.1619, 114.1618, 114.1613, 114.1616, 114.1613, 114.1616, 114.1615, 
  114.1615, 114.1595, 114.1595, 114.1597, 114.1597, 114.1599, 114.1598, 114.1601, 114.1601, 114.1604, 
  114.1604, 114.1606, 114.1605, 114.1606, 114.1608, 114.1607, 114.1612, 114.1606, 114.1591, 114.1592, 
  114.1597, 114.1598, 114.1598)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.25849, 22.25882, 22.25872, 22.25822, 22.25776, 22.25815, 22.25729, 22.25733, 22.2569, 22.25579, 
  22.25533, 22.25444, 22.25401, 22.2538, 22.25483, 22.25477, 22.25363, 22.25317, 22.25273, 22.25171, 
  22.25116, 22.25053, 22.24978, 22.24674, 22.24616, 22.24589, 22.2457, 22.24511, 22.24412, 22.24407, 
  22.24341, 22.24345, 22.24316, 22.24243, 22.2425, 22.24199, 22.24173, 22.24127, 22.24053, 22.23992, 
  22.23875, 22.23842, 22.23854, 22.23822, 22.23804, 22.2382, 22.23816, 22.23761, 22.2377, 22.23808, 
  22.23881, 22.23861, 22.23944, 22.2406, 22.24115, 22.2414, 22.24157, 22.24145, 22.24187, 22.24151, 
  22.24186, 22.24233, 22.24286, 22.2429, 22.2428, 22.24213, 22.2421, 22.24235, 22.24255, 22.2429, 
  22.24284, 22.24239, 22.24235, 22.24202, 22.24209, 22.24261, 22.24277, 22.24266, 22.2422, 22.24204, 
  22.2417, 22.24181, 22.24146, 22.24162, 22.24291, 22.24351, 22.2441, 22.24459, 22.24617, 22.24658, 
  22.24793, 22.24806, 22.2477, 22.24776, 22.24762, 22.2478, 22.24966, 22.25047, 22.25057, 22.2513, 
  22.25203, 22.2526, 22.2535, 22.25359, 22.25479, 22.25433, 22.25485, 22.25583, 22.25623, 22.25672, 
  22.25674, 22.25726, 22.25774, 22.25779)
LONGITUDE_VALUEs <- c(
  114.2961, 114.2954, 114.2947, 114.2945, 114.2939, 114.2929, 114.2923, 114.2914, 114.2912, 114.29, 
  114.2893, 114.2892, 114.2884, 114.2868, 114.2858, 114.2849, 114.2833, 114.283, 114.2824, 114.282, 
  114.2812, 114.281, 114.2804, 114.2809, 114.2809, 114.2806, 114.2801, 114.2803, 114.2816, 114.282, 
  114.2824, 114.2828, 114.2831, 114.2858, 114.2863, 114.2869, 114.2878, 114.288, 114.2879, 114.287, 
  114.2866, 114.2869, 114.2873, 114.2872, 114.2876, 114.2877, 114.288, 114.2879, 114.2889, 114.2891, 
  114.2892, 114.2896, 114.2899, 114.2896, 114.2888, 114.2889, 114.2892, 114.2896, 114.2898, 114.2901, 
  114.2904, 114.2899, 114.2902, 114.2905, 114.2912, 114.2914, 114.2916, 114.2918, 114.2916, 114.2918, 
  114.292, 114.2921, 114.2923, 114.2927, 114.2928, 114.2928, 114.2931, 114.2934, 114.2935, 114.2938, 
  114.2941, 114.2946, 114.2952, 114.2957, 114.2956, 114.2963, 114.2962, 114.2966, 114.2962, 114.2957, 
  114.2962, 114.2966, 114.297, 114.2976, 114.2981, 114.2983, 114.2985, 114.2982, 114.297, 114.2963, 
  114.2966, 114.2959, 114.2959, 114.2964, 114.296, 114.2974, 114.2977, 114.2973, 114.2963, 114.2961, 
  114.2955, 114.2958, 114.2953, 114.296)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.49581, 22.49665, 22.49688, 22.49638, 22.49644, 22.49608, 22.49661, 22.4969, 22.49722, 22.49732, 
  22.4994, 22.50082, 22.50094, 22.50161, 22.50185, 22.50171, 22.50272, 22.50281, 22.50315, 22.50337, 
  22.5036, 22.50398, 22.50421, 22.50424, 22.50394, 22.50403, 22.50397, 22.50412, 22.50419, 22.50431, 
  22.50358, 22.50353, 22.50465, 22.50463, 22.50482, 22.5045, 22.50388, 22.5037, 22.50253, 22.50133, 
  22.50085, 22.50043, 22.49794, 22.49613, 22.49607, 22.49589)
LONGITUDE_VALUEs <- c(
  114.358, 114.3584, 114.359, 114.3598, 114.3599, 114.36, 114.3602, 114.3604, 114.3603, 114.3608, 
  114.3609, 114.3616, 114.3622, 114.3621, 114.3625, 114.3627, 114.3628, 114.3632, 114.3632, 114.3637, 
  114.3644, 114.3647, 114.3646, 114.3643, 114.3641, 114.3637, 114.3632, 114.3631, 114.3627, 114.3625, 
  114.3623, 114.362, 114.3612, 114.3604, 114.3596, 114.3587, 114.3578, 114.3568, 114.3566, 114.357, 
  114.3565, 114.355, 114.3569, 114.3577, 114.3579, 114.3579)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.5373, 22.53727, 22.53695, 22.53569, 22.53455, 22.53354, 22.53305, 22.5326, 22.53206, 22.53134, 
  22.53129, 22.53053, 22.53023, 22.53002, 22.52935, 22.52927, 22.52864, 22.52892, 22.53023, 22.5317, 
  22.5319, 22.53244, 22.53303, 22.53388, 22.53522, 22.53503, 22.53419, 22.53385, 22.53306, 22.52991, 
  22.52951, 22.52902, 22.52876, 22.52843, 22.52775, 22.52473, 22.52457, 22.52471, 22.52389, 22.5233, 
  22.52299, 22.52365, 22.52438, 22.52459, 22.52555, 22.52637, 22.5266, 22.52727, 22.52853, 22.52925, 
  22.52979, 22.53033, 22.53076, 22.53108, 22.53183, 22.53228, 22.53285, 22.53392, 22.53526, 22.53554, 
  22.53556, 22.53523, 22.53541, 22.53581, 22.53648, 22.53664, 22.53724, 22.53776)
LONGITUDE_VALUEs <- c(
  114.3188, 114.3184, 114.3182, 114.3183, 114.318, 114.3184, 114.3184, 114.319, 114.3189, 114.3186, 
  114.3183, 114.3182, 114.3177, 114.3177, 114.317, 114.3161, 114.3156, 114.3142, 114.3141, 114.3133, 
  114.3127, 114.3125, 114.312, 114.3121, 114.3098, 114.3093, 114.3088, 114.3084, 114.3078, 114.308, 
  114.3082, 114.308, 114.309, 114.3093, 114.3114, 114.3157, 114.3166, 114.318, 114.3185, 114.3186, 
  114.319, 114.3202, 114.3204, 114.3207, 114.3207, 114.3206, 114.3202, 114.32, 114.3202, 114.32, 
  114.32, 114.3198, 114.3199, 114.3197, 114.3201, 114.3212, 114.3215, 114.3216, 114.3211, 114.3211, 
  114.3209, 114.3206, 114.3202, 114.3203, 114.3201, 114.3202, 114.3202, 114.3199)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.53719, 22.53717, 22.53745, 22.53765, 22.53834, 22.53923, 22.53964, 22.5405, 22.54056, 22.54083, 
  22.54106, 22.54169, 22.54203, 22.54199, 22.5407, 22.54011, 22.53929, 22.53863, 22.53814, 22.53794, 
  22.53736)
LONGITUDE_VALUEs <- c(
  114.3054, 114.3058, 114.3061, 114.3068, 114.3079, 114.3087, 114.3095, 114.3097, 114.3099, 114.31, 
  114.3095, 114.309, 114.3083, 114.3073, 114.3053, 114.3054, 114.3051, 114.3053, 114.3053, 114.3054, 
  114.3052)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.46505, 22.46562, 22.46659, 22.46741, 22.469, 22.47041, 22.47155, 22.47211, 22.4727, 22.47285, 
  22.47398, 22.47445, 22.47527, 22.47589, 22.47708, 22.47818, 22.47895, 22.4804, 22.48172, 22.48226, 
  22.4838, 22.48544, 22.48527, 22.48646, 22.48639, 22.48521, 22.48267, 22.4822, 22.48082, 22.48005, 
  22.48002, 22.47739, 22.47625, 22.47538, 22.47353, 22.47319, 22.47197, 22.47165, 22.47335, 22.47351, 
  22.47317, 22.47254, 22.47247, 22.46763, 22.46632, 22.46544)
LONGITUDE_VALUEs <- c(
  114.3606, 114.3621, 114.3628, 114.3637, 114.3642, 114.3637, 114.364, 114.3657, 114.3661, 114.3667, 
  114.3663, 114.3668, 114.3666, 114.3669, 114.3666, 114.3651, 114.3636, 114.3634, 114.3638, 114.3646, 
  114.3645, 114.3635, 114.3617, 114.3604, 114.3593, 114.3576, 114.3564, 114.3546, 114.3532, 114.3543, 
  114.3555, 114.3566, 114.3561, 114.3573, 114.3573, 114.3577, 114.3575, 114.3582, 114.3601, 114.3611, 
  114.3612, 114.3606, 114.3597, 114.3581, 114.3583, 114.3594)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.53769, 22.53795, 22.53852, 22.53949, 22.54032, 22.54109, 22.54165, 22.54164, 22.54233, 22.54169, 
  22.54367, 22.5447, 22.54448, 22.54465, 22.54618, 22.54812, 22.54931, 22.55102, 22.55239, 22.55311, 
  22.5535, 22.55224, 22.55226, 22.55136, 22.54896, 22.54821, 22.54754, 22.54788, 22.54738, 22.54444, 
  22.54378, 22.54282, 22.54183, 22.54047, 22.54036, 22.54072, 22.53983, 22.53818)
LONGITUDE_VALUEs <- c(
  114.4352, 114.4385, 114.4399, 114.4404, 114.4418, 114.4417, 114.4411, 114.4402, 114.4386, 114.4364, 
  114.4335, 114.4327, 114.4324, 114.4318, 114.4308, 114.4308, 114.4303, 114.4302, 114.4307, 114.4307, 
  114.4304, 114.4277, 114.4271, 114.4256, 114.4252, 114.4241, 114.4243, 114.4251, 114.4257, 114.4256, 
  114.4258, 114.4257, 114.4269, 114.4274, 114.428, 114.4292, 114.4312, 114.4335)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.53184, 22.53199, 22.53264, 22.53308, 22.53364, 22.53428, 22.53482, 22.53551, 22.5359, 22.53658, 
  22.53683, 22.53654, 22.5366, 22.53594, 22.53638, 22.53703, 22.53712, 22.53771, 22.53778, 22.53814, 
  22.53899, 22.53959, 22.53959, 22.54037, 22.54132, 22.54304, 22.54341, 22.54356, 22.54323, 22.54362, 
  22.54409, 22.54382, 22.54487, 22.54596, 22.54622, 22.54687, 22.54661, 22.54639, 22.54608, 22.54612, 
  22.54635, 22.54809, 22.54817, 22.54789, 22.54792, 22.54828, 22.54839, 22.54825, 22.54882, 22.54876, 
  22.54832, 22.5478, 22.54681, 22.54658, 22.54582, 22.54476, 22.54464, 22.54487, 22.54525, 22.54659, 
  22.54695, 22.54726, 22.54714, 22.54746, 22.54773, 22.54815, 22.54843, 22.54868, 22.54877, 22.54851, 
  22.54833, 22.54838, 22.54796, 22.54739, 22.54708, 22.54723, 22.54745, 22.54746, 22.54783, 22.54818, 
  22.54843, 22.54826, 22.54849, 22.54883, 22.5489, 22.5491, 22.54956, 22.54997, 22.54974, 22.54992, 
  22.55011, 22.55073, 22.55055, 22.54994, 22.55012, 22.55073, 22.55072, 22.55104, 22.55042, 22.55063, 
  22.55061, 22.55145, 22.55055, 22.55021, 22.55064, 22.55049, 22.55077, 22.55131, 22.5509, 22.55124, 
  22.55111, 22.55208, 22.55299, 22.55375, 22.55445, 22.55486, 22.55533, 22.55534, 22.55501, 22.55404, 
  22.5536, 22.55302, 22.5518, 22.55114, 22.5509, 22.54941, 22.54898, 22.54759, 22.54713, 22.54654, 
  22.54602, 22.54533, 22.54548, 22.54632, 22.54748, 22.54753, 22.54802, 22.54814, 22.54802, 22.54816, 
  22.54775, 22.54797, 22.54763, 22.5477, 22.54701, 22.54653, 22.54476, 22.54483, 22.54428, 22.54332, 
  22.54265, 22.5426, 22.54184, 22.54072, 22.53895, 22.53868, 22.53888, 22.53843, 22.5389, 22.54014, 
  22.54038, 22.54016, 22.53985, 22.53881, 22.53865, 22.53887, 22.538, 22.53747, 22.53683, 22.53548, 
  22.53443, 22.5338, 22.53249, 22.53273, 22.53423, 22.5342, 22.53369, 22.53368, 22.53417, 22.53427, 
  22.53414, 22.535, 22.53475, 22.53382, 22.53369, 22.53441, 22.53444, 22.53556, 22.5353, 22.53564, 
  22.5361, 22.53721, 22.53726, 22.53686, 22.53651, 22.53627, 22.53544, 22.53511, 22.53522, 22.53498, 
  22.53471, 22.53407, 22.53419, 22.53467, 22.53415, 22.53276, 22.5323, 22.53273, 22.53268, 22.53239, 
  22.53196)
LONGITUDE_VALUEs <- c(
  114.3042, 114.3046, 114.3048, 114.3046, 114.3048, 114.3054, 114.3055, 114.3058, 114.3055, 114.3053, 
  114.3047, 114.3044, 114.3038, 114.3023, 114.3022, 114.3016, 114.3011, 114.301, 114.3006, 114.3004, 
  114.2988, 114.2987, 114.2983, 114.2974, 114.2976, 114.2973, 114.2969, 114.2963, 114.2958, 114.2945, 
  114.294, 114.2936, 114.2935, 114.2938, 114.2939, 114.294, 114.2941, 114.294, 114.2943, 114.2944, 
  114.2943, 114.2952, 114.2954, 114.2955, 114.2957, 114.2958, 114.2968, 114.2973, 114.2982, 114.2987, 
  114.2991, 114.2992, 114.3008, 114.3015, 114.3023, 114.3026, 114.303, 114.3034, 114.3051, 114.3057, 
  114.3056, 114.3059, 114.3081, 114.3082, 114.308, 114.3081, 114.308, 114.3082, 114.3085, 114.3092, 
  114.3092, 114.3095, 114.3104, 114.3106, 114.3115, 114.3116, 114.3114, 114.3116, 114.3118, 114.3131, 
  114.3131, 114.3134, 114.3143, 114.3142, 114.3145, 114.3145, 114.3147, 114.3157, 114.3168, 114.3172, 
  114.3171, 114.3159, 114.3148, 114.3136, 114.313, 114.3122, 114.3118, 114.3111, 114.3091, 114.3086, 
  114.3073, 114.3052, 114.3046, 114.3037, 114.3027, 114.3017, 114.2986, 114.2976, 114.2968, 114.2955, 
  114.2939, 114.2931, 114.2929, 114.2935, 114.2935, 114.2929, 114.2914, 114.2909, 114.2903, 114.2894, 
  114.2885, 114.2883, 114.2885, 114.289, 114.2897, 114.2916, 114.2917, 114.2909, 114.2909, 114.2905, 
  114.2906, 114.29, 114.2896, 114.2896, 114.2895, 114.29, 114.2903, 114.2901, 114.2897, 114.2894, 
  114.2886, 114.2879, 114.2872, 114.2866, 114.2863, 114.2875, 114.2889, 114.2895, 114.2902, 114.2907, 
  114.2916, 114.2924, 114.293, 114.2932, 114.2948, 114.2947, 114.2944, 114.2924, 114.2917, 114.2922, 
  114.2918, 114.2915, 114.2915, 114.2905, 114.2896, 114.2888, 114.2875, 114.2878, 114.2878, 114.2868, 
  114.2858, 114.2857, 114.2862, 114.2864, 114.2885, 114.289, 114.2898, 114.2905, 114.2911, 114.2921, 
  114.2926, 114.2936, 114.2944, 114.2939, 114.294, 114.2953, 114.2958, 114.2961, 114.2966, 114.2984, 
  114.2984, 114.2988, 114.299, 114.2995, 114.3005, 114.3006, 114.3, 114.3001, 114.3006, 114.302, 
  114.3023, 114.3021, 114.3014, 114.3008, 114.2998, 114.2992, 114.2999, 114.3012, 114.3025, 114.3033, 
  114.3038)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.19135, 22.18868, 22.18851, 22.19055, 22.19196, 22.19267, 22.19366, 22.19432, 22.19511, 22.19527, 
  22.19451, 22.19497, 22.19517, 22.19629, 22.19671, 22.19719, 22.1977, 22.19871, 22.19913, 22.19993, 
  22.20103, 22.20161, 22.20158, 22.20197, 22.20205, 22.20177, 22.20216, 22.20187, 22.20109, 22.20034, 
  22.19933, 22.19883, 22.19767, 22.19614, 22.19549, 22.19487, 22.19412, 22.19333, 22.19275, 22.19258, 
  22.19196, 22.19147)
LONGITUDE_VALUEs <- c(
  113.9873, 113.9893, 113.9902, 113.994, 113.9946, 113.9944, 113.9949, 113.9948, 113.994, 113.993, 
  113.9919, 113.9917, 113.9913, 113.9916, 113.9915, 113.9925, 113.9921, 113.992, 113.9922, 113.9907, 
  113.9909, 113.9903, 113.9897, 113.9896, 113.9888, 113.988, 113.9874, 113.9869, 113.9863, 113.9851, 
  113.9847, 113.9838, 113.9831, 113.9827, 113.9825, 113.9826, 113.9823, 113.9832, 113.9838, 113.9848, 
  113.985, 113.9856)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.22179, 22.22221, 22.22194, 22.22206, 22.22187, 22.22184, 22.22156, 22.2216, 22.21981, 22.21938, 
  22.21929, 22.21847, 22.21826, 22.21709, 22.21626, 22.2162, 22.21592, 22.21552, 22.21481, 22.21453, 
  22.21353, 22.21417, 22.21315, 22.21277, 22.21227, 22.21193, 22.2119, 22.21132, 22.21185, 22.21043, 
  22.20998, 22.20774, 22.20758, 22.20575, 22.20544, 22.2054, 22.20471, 22.20137, 22.20053, 22.20036, 
  22.20073, 22.20128, 22.20169, 22.20164, 22.20133, 22.20101, 22.20054, 22.20019, 22.2, 22.19952, 
  22.19915, 22.19874, 22.19858, 22.19803, 22.19724, 22.19738, 22.19729, 22.19757, 22.1977, 22.19761, 
  22.1971, 22.19645, 22.19609, 22.19585, 22.19601, 22.19595, 22.19645, 22.19669, 22.19667, 22.19743, 
  22.19827, 22.19842, 22.19918, 22.19949, 22.19935, 22.19965, 22.20065, 22.20091, 22.2023, 22.20237, 
  22.20196, 22.20212, 22.20304, 22.20307, 22.20329, 22.20303, 22.2033, 22.20215, 22.2018, 22.20074, 
  22.20023, 22.20023, 22.20085, 22.2013, 22.20264, 22.20285, 22.20338, 22.20431, 22.20517, 22.20542, 
  22.2058, 22.20682, 22.20766, 22.20799, 22.20812, 22.20824, 22.20862, 22.20865, 22.20815, 22.20734, 
  22.20699, 22.2076, 22.20816, 22.20806, 22.20911, 22.21089, 22.21223, 22.2133, 22.21441, 22.21563, 
  22.21591, 22.21592, 22.21644, 22.21687, 22.21699, 22.21686, 22.21713, 22.21739, 22.218, 22.21799, 
  22.2178, 22.2179, 22.21759, 22.21791, 22.21841, 22.21894, 22.21944, 22.22003, 22.22017, 22.22147, 
  22.22248, 22.22274, 22.22342, 22.22305)
LONGITUDE_VALUEs <- c(
  114.0319, 114.0302, 114.0293, 114.0287, 114.0282, 114.0279, 114.0275, 114.0268, 114.0258, 114.0257, 
  114.0254, 114.0255, 114.0263, 114.0264, 114.0261, 114.0256, 114.0252, 114.0254, 114.0253, 114.0249, 
  114.0241, 114.0226, 114.0221, 114.0229, 114.0232, 114.0231, 114.0235, 114.0237, 114.0263, 114.0281, 
  114.0284, 114.0287, 114.0282, 114.0275, 114.0256, 114.0234, 114.0227, 114.0212, 114.0212, 114.021, 
  114.02, 114.0199, 114.0196, 114.0185, 114.0182, 114.0172, 114.0174, 114.0172, 114.0179, 114.0181, 
  114.018, 114.0189, 114.0181, 114.0181, 114.0194, 114.0198, 114.0203, 114.0206, 114.0213, 114.0217, 
  114.0219, 114.021, 114.0212, 114.0216, 114.0217, 114.0221, 114.0225, 114.0232, 114.024, 114.0253, 
  114.0257, 114.0267, 114.0263, 114.027, 114.0282, 114.0285, 114.0282, 114.0292, 114.0299, 114.0311, 
  114.0319, 114.0325, 114.0322, 114.0327, 114.0328, 114.0332, 114.0337, 114.0342, 114.0349, 114.0352, 
  114.0358, 114.0363, 114.0367, 114.0364, 114.037, 114.0387, 114.0393, 114.0393, 114.0399, 114.041, 
  114.0412, 114.0396, 114.0394, 114.0396, 114.0394, 114.0384, 114.0382, 114.0374, 114.0365, 114.0359, 
  114.0352, 114.0336, 114.0337, 114.0324, 114.0311, 114.0297, 114.0292, 114.0291, 114.0296, 114.0307, 
  114.0318, 114.0328, 114.0337, 114.0338, 114.0341, 114.0345, 114.0359, 114.0359, 114.0349, 114.0344, 
  114.0343, 114.034, 114.0334, 114.0329, 114.0323, 114.0324, 114.0339, 114.0346, 114.035, 114.0357, 
  114.0356, 114.0351, 114.0346, 114.0334)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.2647, 22.26504, 22.26466, 22.26412, 22.26417, 22.26292, 22.26228, 22.26157, 22.26136, 22.26036,
  22.25943, 22.25906, 22.25885, 22.25837, 22.25806, 22.25808, 22.25762, 22.25727, 22.25718, 22.25728,
  22.25711, 22.25719, 22.25861, 22.25882, 22.25874, 22.25971, 22.2602, 22.26149, 22.26173, 22.26208,
  22.26226, 22.26295, 22.2633, 22.2638, 22.26398)
LONGITUDE_VALUEs <- c(
  114.0553, 114.0536, 114.0523, 114.0515, 114.0501, 114.0491, 114.0474, 114.0471, 114.0473, 114.0474,
  114.0467, 114.0467, 114.047, 114.0471, 114.0477, 114.0483, 114.0488, 114.0487, 114.049, 114.0497,
  114.0499, 114.0509, 114.0523, 114.0529, 114.0535, 114.0544, 114.0549, 114.0555, 114.0553, 114.0555,
  114.0562, 114.0563, 114.0559, 114.056, 114.0554)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.32744, 22.3288, 22.32865, 22.331, 22.34709, 22.34849, 22.35204, 22.3554, 22.3578, 22.35943, 
  22.36039, 22.36201, 22.36317, 22.3632, 22.36372, 22.36382, 22.36341, 22.36353, 22.36164, 22.36172, 
  22.36159, 22.36162, 22.36285, 22.36283, 22.36239, 22.36239, 22.36169, 22.36042, 22.36023, 22.35968, 
  22.35867, 22.35777, 22.35668, 22.3566, 22.35515, 22.35483, 22.35379, 22.35312, 22.35284, 22.35234, 
  22.35204, 22.35171, 22.35103, 22.35111, 22.351, 22.34877, 22.34847, 22.34449, 22.34373, 22.3419, 
  22.34107, 22.34109, 22.34065, 22.33973, 22.33886, 22.33921, 22.33903, 22.33917, 22.33831, 22.33536, 
  22.3308, 22.32884, 22.32607, 22.32615, 22.32719, 22.32832, 22.32829, 22.32701)
LONGITUDE_VALUEs <- c(
  114.1141, 114.1153, 114.1156, 114.1177, 114.1123, 114.1122, 114.1102, 114.1091, 114.109, 114.1091, 
  114.1089, 114.1079, 114.1074, 114.105, 114.1036, 114.1003, 114.1, 114.0996, 114.096, 114.0945, 
  114.0942, 114.09, 114.0898, 114.0889, 114.0889, 114.0878, 114.0853, 114.0828, 114.0815, 114.0801, 
  114.0791, 114.0791, 114.08, 114.0803, 114.0804, 114.0799, 114.0801, 114.0798, 114.0798, 114.08, 
  114.0808, 114.0813, 114.0815, 114.0836, 114.0837, 114.0834, 114.0848, 114.0842, 114.0898, 114.0914, 
  114.0902, 114.0899, 114.0897, 114.0896, 114.0903, 114.091, 114.0913, 114.0914, 114.0928, 114.0909, 
  114.0892, 114.0905, 114.0919, 114.0949, 114.0953, 114.1039, 114.1042, 114.1062)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.35568, 22.35589, 22.35586, 22.35585, 22.35522, 22.35486, 22.35501, 22.35471, 22.35466, 22.3548, 
  22.35524, 22.35567, 22.35589, 22.35565, 22.35578, 22.3557, 22.35549, 22.35554, 22.35525, 22.3549, 
  22.35398, 22.35373, 22.35325, 22.35297, 22.35266, 22.35218, 22.35146, 22.35115, 22.35112, 22.35063, 
  22.35003, 22.34993, 22.34942, 22.34895, 22.3487, 22.34861, 22.34858, 22.3481, 22.34825, 22.34837, 
  22.34814, 22.34824, 22.34808, 22.34808, 22.34762, 22.34744, 22.34694, 22.34684, 22.3464, 22.3462, 
  22.34575, 22.34518, 22.34469, 22.34451, 22.34398, 22.34348, 22.34291, 22.34265, 22.34253, 22.34276, 
  22.3432, 22.34335, 22.34326, 22.34352, 22.34357, 22.34385, 22.3442, 22.34429, 22.34448, 22.34492, 
  22.34509, 22.34561, 22.34591, 22.34642, 22.34647, 22.34627, 22.34793, 22.34828, 22.34886, 22.34889, 
  22.34902, 22.34891, 22.34881, 22.34863, 22.34918, 22.35052, 22.35127, 22.35161, 22.35165, 22.35183, 
  22.352, 22.35187, 22.35213, 22.35233, 22.35308, 22.35371, 22.35392, 22.35384, 22.35433, 22.35476, 
  22.35516, 22.35539)
LONGITUDE_VALUEs <- c(
  114.065, 114.0649, 114.0645, 114.0641, 114.0631, 114.0627, 114.0624, 114.0623, 114.062, 114.0613, 
  114.0607, 114.0606, 114.06, 114.0599, 114.0595, 114.0583, 114.0579, 114.057, 114.0565, 114.0563, 
  114.0562, 114.0568, 114.0571, 114.0571, 114.0576, 114.0575, 114.057, 114.057, 114.0571, 114.057, 
  114.0561, 114.0552, 114.0545, 114.0542, 114.0539, 114.054, 114.0544, 114.0554, 114.0555, 114.056, 
  114.0564, 114.0565, 114.0571, 114.0578, 114.0578, 114.0568, 114.0565, 114.0567, 114.0568, 114.0566, 
  114.0567, 114.0566, 114.0569, 114.0579, 114.0585, 114.0587, 114.0592, 114.0591, 114.0603, 114.0608, 
  114.0609, 114.0613, 114.0616, 114.0616, 114.0627, 114.0628, 114.0634, 114.0645, 114.0647, 114.0644, 
  114.0647, 114.0662, 114.0662, 114.0661, 114.0658, 114.0651, 114.0645, 114.0646, 114.0644, 114.0642, 
  114.0641, 114.0638, 114.0638, 114.0623, 114.0618, 114.0617, 114.0618, 114.062, 114.0622, 114.0624, 
  114.0627, 114.063, 114.0631, 114.0636, 114.0633, 114.0634, 114.0636, 114.0638, 114.0646, 114.0647, 
  114.0652, 114.0652)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.33763, 22.3382, 22.33831, 22.33889, 22.33888, 22.33857, 22.33877, 22.33783, 22.33624, 22.33534, 
  22.3349, 22.33404, 22.33397, 22.33317, 22.33235, 22.33219, 22.33197, 22.33158, 22.33143, 22.331, 
  22.33067, 22.33052, 22.32993, 22.32986, 22.33056, 22.33019, 22.33058, 22.33028, 22.32999, 22.32975, 
  22.32922, 22.32963, 22.32895, 22.32855, 22.3284, 22.32922, 22.3295, 22.32989, 22.33021, 22.32999, 
  22.33017, 22.33006, 22.33029, 22.33035, 22.33086, 22.33095, 22.33247, 22.33281, 22.3334, 22.33357, 
  22.33408, 22.3343, 22.33417, 22.33434, 22.33467, 22.33513, 22.33542, 22.33529, 22.33559, 22.33615, 
  22.33682, 22.33705, 22.33792, 22.33816, 22.33883, 22.33938, 22.33956, 22.3397, 22.33923, 22.33782)
LONGITUDE_VALUEs <- c(
  114.3644, 114.364, 114.3636, 114.3633, 114.3624, 114.362, 114.361, 114.3608, 114.361, 114.3603, 
  114.3604, 114.3609, 114.3605, 114.3613, 114.3612, 114.3608, 114.3609, 114.3606, 114.3604, 114.3603, 
  114.3601, 114.3605, 114.3606, 114.3611, 114.3615, 114.362, 114.3622, 114.3631, 114.3632, 114.3637, 
  114.3641, 114.3644, 114.3654, 114.3655, 114.366, 114.3663, 114.3657, 114.3655, 114.3659, 114.3664, 
  114.3668, 114.3671, 114.3671, 114.3672, 114.3672, 114.3667, 114.3662, 114.3663, 114.366, 114.3662, 
  114.3662, 114.3664, 114.3669, 114.3674, 114.367, 114.367, 114.3672, 114.3676, 114.3678, 114.3677, 
  114.3674, 114.3678, 114.3679, 114.3677, 114.3676, 114.3666, 114.3668, 114.3658, 114.3653, 114.3649)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.32791, 22.32737, 22.32712, 22.32549, 22.32506, 22.32415, 22.32346, 22.32292, 22.32259, 22.32257, 
  22.32233, 22.32264, 22.32205, 22.32264, 22.32323, 22.32346, 22.32345, 22.32374, 22.32416, 22.32422, 
  22.32494, 22.32554, 22.32579, 22.32612, 22.32695, 22.3272, 22.32758, 22.32755, 22.32785, 22.32799, 
  22.32835, 22.32865, 22.32906, 22.329, 22.32931, 22.33005, 22.33009, 22.33062, 22.33085, 22.33136, 
  22.33173, 22.33167, 22.33106, 22.33013, 22.32851)
LONGITUDE_VALUEs <- c(
  114.2928, 114.2928, 114.2932, 114.294, 114.2947, 114.2947, 114.2952, 114.2962, 114.2964, 114.2972, 
  114.298, 114.2981, 114.2994, 114.3011, 114.3014, 114.3013, 114.301, 114.3008, 114.3011, 114.3015, 
  114.3023, 114.3021, 114.3017, 114.3006, 114.3004, 114.2997, 114.2995, 114.2991, 114.299, 114.2987, 
  114.2994, 114.2984, 114.2983, 114.2975, 114.2975, 114.2968, 114.2962, 114.296, 114.2955, 114.295, 
  114.2941, 114.2936, 114.2938, 114.2934, 114.2931)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.31686, 22.31708, 22.31736, 22.31712, 22.3173, 22.31784, 22.3186, 22.31935, 22.31933, 22.3198, 
  22.32, 22.3207, 22.32122, 22.32144, 22.32207, 22.32262, 22.32247, 22.32252, 22.32301, 22.32285, 
  22.32304, 22.3234, 22.32348, 22.32384, 22.32362, 22.32381, 22.32355, 22.32365, 22.32506, 22.32526, 
  22.32566, 22.32584, 22.32612, 22.32624, 22.32665, 22.32644, 22.32659, 22.32636, 22.32452, 22.32387, 
  22.32353, 22.32487, 22.32522, 22.32508, 22.32455, 22.32422, 22.32394, 22.32369, 22.32346, 22.32321, 
  22.323, 22.32289, 22.32267, 22.32225, 22.32156, 22.3212, 22.32044, 22.32028, 22.31935, 22.31874, 
  22.31881, 22.31795, 22.31787, 22.31639, 22.31614, 22.3157, 22.31546, 22.31498, 22.31408, 22.31388, 
  22.31352, 22.31289, 22.3126, 22.31308, 22.31364, 22.31399, 22.31478, 22.31478, 22.31596, 22.31642, 
  22.31691, 22.31683, 22.31611, 22.31595, 22.31622)
LONGITUDE_VALUEs <- c(
  114.3525, 114.3522, 114.3528, 114.3533, 114.3537, 114.3538, 114.3534, 114.3535, 114.3541, 114.3538, 
  114.3539, 114.353, 114.353, 114.3535, 114.3532, 114.3534, 114.3543, 114.3547, 114.3545, 114.3555, 
  114.3555, 114.355, 114.3554, 114.3553, 114.3558, 114.3559, 114.3564, 114.3566, 114.3569, 114.3571, 
  114.3569, 114.3577, 114.3576, 114.3567, 114.3567, 114.3563, 114.3552, 114.3548, 114.3544, 114.3538, 
  114.3528, 114.3513, 114.3506, 114.3501, 114.3499, 114.3495, 114.3494, 114.3488, 114.349, 114.3485, 
  114.3486, 114.3483, 114.3484, 114.3479, 114.3481, 114.3474, 114.3476, 114.3478, 114.3478, 114.3472, 
  114.3465, 114.3466, 114.3462, 114.3462, 114.3466, 114.3467, 114.3465, 114.3469, 114.347, 114.3476, 
  114.3473, 114.3476, 114.3482, 114.3487, 114.3487, 114.3486, 114.3475, 114.3485, 114.3486, 114.3491, 
  114.3501, 114.3507, 114.3508, 114.3517, 114.3523)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.35331, 22.35349, 22.35303, 22.35295, 22.35309, 22.35334, 22.35347, 22.35383, 22.35402, 22.35413, 
  22.35449, 22.35489, 22.35501, 22.35537, 22.35539, 22.35597, 22.3562, 22.35636, 22.35706, 22.3575, 
  22.35814, 22.35952, 22.36144, 22.36176, 22.36279, 22.36304, 22.36307, 22.36344, 22.36368, 22.36365, 
  22.36402, 22.36416, 22.3647, 22.36543, 22.36586, 22.36654, 22.36651, 22.36664, 22.36714, 22.36748, 
  22.36768, 22.36786, 22.36805, 22.36875, 22.37007, 22.37048, 22.37093, 22.37136, 22.3721, 22.37219, 
  22.37263, 22.37265, 22.37281, 22.37303, 22.37335, 22.37333, 22.37366, 22.37341, 22.37399, 22.37532, 
  22.37543, 22.37536, 22.37564, 22.37563, 22.37517, 22.37454, 22.37432, 22.37438, 22.37392, 22.37317, 
  22.37287, 22.3729, 22.37267, 22.37183, 22.3705, 22.36917, 22.36867, 22.36757, 22.36756, 22.36779, 
  22.36748, 22.36746, 22.36732, 22.3672, 22.36712, 22.36718, 22.3669, 22.36637, 22.36608, 22.36606, 
  22.36486, 22.3642, 22.36352, 22.36305, 22.36208, 22.36113, 22.36085, 22.35975, 22.35926, 22.35878, 
  22.35798, 22.35748, 22.35754, 22.35749, 22.35774, 22.35761, 22.35722, 22.35729, 22.35701, 22.35709, 
  22.35627, 22.35545, 22.35515, 22.3546, 22.35437, 22.35354, 22.35335)
LONGITUDE_VALUEs <- c(
  114.2954, 114.2957, 114.296, 114.2964, 114.2965, 114.2964, 114.2969, 114.297, 114.297, 114.2974, 
  114.2975, 114.2974, 114.2978, 114.2978, 114.2977, 114.2974, 114.2974, 114.2972, 114.2968, 114.2969, 
  114.2964, 114.2966, 114.2963, 114.2964, 114.2959, 114.2961, 114.2964, 114.2962, 114.2964, 114.2969, 
  114.2972, 114.2976, 114.2978, 114.2977, 114.2977, 114.2965, 114.296, 114.2957, 114.2955, 114.2956, 
  114.2959, 114.2959, 114.295, 114.2944, 114.2938, 114.2938, 114.2943, 114.2941, 114.2933, 114.2929, 
  114.2929, 114.2933, 114.2934, 114.2931, 114.293, 114.2934, 114.2938, 114.2944, 114.2949, 114.2951, 
  114.2948, 114.2945, 114.2941, 114.2939, 114.2932, 114.2927, 114.292, 114.2917, 114.2914, 114.2912, 
  114.2909, 114.2906, 114.2905, 114.2913, 114.2903, 114.2899, 114.2894, 114.288, 114.2878, 114.2876, 
  114.2875, 114.2873, 114.2873, 114.2871, 114.2872, 114.2876, 114.2881, 114.2884, 114.2884, 114.2887, 
  114.2897, 114.2912, 114.2917, 114.2923, 114.2923, 114.2925, 114.2924, 114.2926, 114.2931, 114.2932, 
  114.2928, 114.2929, 114.2933, 114.2935, 114.2941, 114.2944, 114.2945, 114.2949, 114.2952, 114.2957, 
  114.2963, 114.296, 114.2952, 114.2952, 114.2949, 114.2951, 114.2953)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.3654, 22.36563, 22.3657, 22.36623, 22.36654, 22.36772, 22.36839, 22.36862, 22.36895, 22.36935, 
  22.36965, 22.37014, 22.37065, 22.37213, 22.37276, 22.37366, 22.37418, 22.37565, 22.37645, 22.376, 
  22.37701, 22.37723, 22.37628, 22.37655, 22.37604, 22.37573, 22.37488, 22.3745, 22.37388, 22.37352, 
  22.37333, 22.37274, 22.37255, 22.37245, 22.37194, 22.37149, 22.37147, 22.3711, 22.37087, 22.37101, 
  22.37083, 22.37062, 22.37064, 22.37152, 22.37216, 22.37278, 22.3741, 22.37426, 22.37416, 22.37364, 
  22.37343, 22.37295, 22.37266, 22.37265, 22.37116, 22.37097, 22.36928, 22.36856, 22.36806, 22.36721, 
  22.36644, 22.36569, 22.36545)
LONGITUDE_VALUEs <- c(
  114.3276, 114.3276, 114.3286, 114.3287, 114.3289, 114.3288, 114.3286, 114.329, 114.3287, 114.3288, 
  114.3284, 114.3285, 114.3296, 114.3297, 114.3295, 114.3295, 114.3284, 114.3266, 114.3246, 114.324, 
  114.323, 114.3223, 114.322, 114.321, 114.321, 114.3206, 114.321, 114.3207, 114.3208, 114.3211, 
  114.3205, 114.3205, 114.3208, 114.3213, 114.3218, 114.3219, 114.3224, 114.3227, 114.3227, 114.3222, 
  114.3223, 114.3226, 114.3231, 114.3235, 114.3243, 114.3245, 114.3244, 114.3245, 114.3248, 114.3253, 
  114.3258, 114.3262, 114.3262, 114.3257, 114.326, 114.3256, 114.3258, 114.3265, 114.3265, 114.327, 
  114.3273, 114.327, 114.3273)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.32121, 22.32061, 22.32087, 22.32061, 22.32068, 22.32004, 22.32001, 22.31864, 22.31664, 22.31643, 
  22.31578, 22.31572, 22.31545, 22.31456, 22.31439, 22.31324, 22.31204, 22.31189, 22.31095, 22.31087, 
  22.31014, 22.30964, 22.30939, 22.30915, 22.30855, 22.30836, 22.30763, 22.30682, 22.30673, 22.30705, 
  22.30797, 22.30866, 22.30871, 22.3096, 22.31008, 22.30992, 22.31053, 22.31039, 22.31092, 22.31054, 
  22.31091, 22.31077, 22.31121, 22.31172, 22.31199, 22.31288, 22.31386, 22.31412, 22.31452, 22.31481, 
  22.31459, 22.31494, 22.31511, 22.31575, 22.31585, 22.31635, 22.31635, 22.31738, 22.31766, 22.31782, 
  22.31794, 22.31831, 22.31851, 22.31909, 22.31905, 22.3196, 22.32003, 22.32045, 22.32052, 22.3207, 
  22.32059, 22.32082, 22.3208, 22.32104, 22.32118)
LONGITUDE_VALUEs <- c(
  114.3654, 114.3639, 114.3631, 114.3628, 114.3622, 114.3618, 114.361, 114.3608, 114.3613, 114.3609, 
  114.3609, 114.3613, 114.3613, 114.3625, 114.3618, 114.3623, 114.3636, 114.3653, 114.3648, 114.3654, 
  114.3655, 114.3653, 114.3654, 114.3652, 114.3654, 114.3648, 114.3653, 114.3667, 114.3675, 114.3677, 
  114.3677, 114.3667, 114.3676, 114.3676, 114.3675, 114.3679, 114.368, 114.3685, 114.3685, 114.3695, 
  114.3695, 114.371, 114.3707, 114.3697, 114.3699, 114.3693, 114.3684, 114.3686, 114.3684, 114.3687, 
  114.3692, 114.3693, 114.3695, 114.3691, 114.3688, 114.3687, 114.3684, 114.3681, 114.3682, 114.368, 
  114.3682, 114.3681, 114.3675, 114.3674, 114.3667, 114.3665, 114.3658, 114.3653, 114.3656, 114.3656, 
  114.3661, 114.366, 114.3663, 114.3664, 114.3659)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.33055, 22.3314, 22.33214, 22.3328, 22.33319, 22.33361, 22.33391, 22.33394, 22.33431, 22.33456, 
  22.33455, 22.33427, 22.33438, 22.33423, 22.33417, 22.3339, 22.33394, 22.33338, 22.33283, 22.33241, 
  22.33199, 22.33195, 22.33212, 22.33195, 22.33193, 22.33156, 22.33143, 22.33161, 22.33108, 22.33037, 
  22.32944, 22.3295, 22.32891, 22.32824, 22.32826, 22.32858, 22.32808, 22.32836, 22.32766, 22.32801, 
  22.32798, 22.32837, 22.32832, 22.32798, 22.32766, 22.3276, 22.32799, 22.32854, 22.3287, 22.32896, 
  22.3294, 22.32933, 22.33052, 22.33044, 22.33061)
LONGITUDE_VALUEs <- c(
  114.3729, 114.3731, 114.3718, 114.3719, 114.3718, 114.3711, 114.3712, 114.3705, 114.371, 114.3709, 
  114.3705, 114.37, 114.3693, 114.3692, 114.3695, 114.3695, 114.3699, 114.3704, 114.3703, 114.3699, 
  114.3699, 114.37, 114.3701, 114.3703, 114.3706, 114.3706, 114.3709, 114.3714, 114.371, 114.371, 
  114.3714, 114.372, 114.3716, 114.3719, 114.3723, 114.3729, 114.3732, 114.3735, 114.3745, 114.3748, 
  114.3757, 114.3759, 114.3764, 114.3772, 114.3774, 114.3777, 114.3781, 114.378, 114.3775, 114.3775, 
  114.3765, 114.3757, 114.3754, 114.3743, 114.3736)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.16238, 22.16293, 22.16368, 22.16399, 22.16503, 22.16618, 22.16617, 22.16662, 22.16714, 22.16745, 
  22.16931, 22.17066, 22.17144, 22.17276, 22.17461, 22.17573, 22.17648, 22.17687, 22.17745, 22.17813, 
  22.17806, 22.17885, 22.17865, 22.18034, 22.18092, 22.18039, 22.17802, 22.17749, 22.17751, 22.17686, 
  22.17716, 22.17632, 22.17477, 22.17521, 22.1746, 22.17418, 22.17301, 22.17131, 22.1705, 22.16936, 
  22.16784, 22.16754, 22.16611, 22.16532, 22.16451, 22.16391, 22.16487, 22.16485, 22.16506, 22.16518, 
  22.16541, 22.16537, 22.16467, 22.16399, 22.16318, 22.1625, 22.16278, 22.1625, 22.16225, 22.16172, 
  22.16148, 22.16143, 22.16173, 22.16184, 22.16173, 22.16163, 22.16147, 22.16102, 22.161, 22.16137, 
  22.16081, 22.16104, 22.16057, 22.15996, 22.15966, 22.1592, 22.15835, 22.1584, 22.15759, 22.15631, 
  22.15544, 22.15531, 22.15601, 22.15601, 22.15873, 22.15923, 22.15977, 22.15987, 22.16047, 22.16265, 
  22.16475, 22.1641, 22.16456, 22.16326, 22.16292, 22.1625, 22.16251, 22.16231, 22.16256, 22.16298, 
  22.16211, 22.16222, 22.16275, 22.16225, 22.16255, 22.16238, 22.16253)
LONGITUDE_VALUEs <- c(
  114.2741, 114.2745, 114.2743, 114.2737, 114.274, 114.2736, 114.273, 114.2731, 114.2727, 114.2732, 
  114.2716, 114.2716, 114.2723, 114.2728, 114.2717, 114.2718, 114.271, 114.271, 114.2697, 114.2692, 
  114.2683, 114.268, 114.2673, 114.2668, 114.2661, 114.2643, 114.2638, 114.2631, 114.2616, 114.2614, 
  114.26, 114.2578, 114.2566, 114.256, 114.2553, 114.2556, 114.2546, 114.2525, 114.2521, 114.252, 
  114.2507, 114.2509, 114.2499, 114.2504, 114.2503, 114.2509, 114.2524, 114.2528, 114.253, 114.2534, 
  114.2534, 114.2537, 114.2543, 114.2537, 114.2536, 114.2529, 114.2522, 114.252, 114.2522, 114.252, 
  114.2523, 114.2528, 114.2528, 114.2531, 114.2533, 114.2531, 114.2535, 114.2536, 114.2539, 114.2542, 
  114.255, 114.2553, 114.2575, 114.2577, 114.2583, 114.2576, 114.2572, 114.257, 114.2562, 114.2557, 
  114.2548, 114.2554, 114.2568, 114.2575, 114.2613, 114.2614, 114.2609, 114.2601, 114.261, 114.2633, 
  114.2648, 114.2651, 114.2662, 114.2663, 114.266, 114.2663, 114.2667, 114.267, 114.2676, 114.2688, 
  114.2691, 114.2699, 114.2701, 114.2709, 114.272, 114.2728, 114.2735)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.16333, 22.16148, 22.15979, 22.15846, 22.15721, 22.15622, 22.15661, 22.15791, 22.15868, 22.15921, 
  22.15886, 22.15908, 22.15853, 22.16025, 22.15961, 22.15982, 22.16318, 22.16317, 22.16288, 22.16285, 
  22.16316, 22.16351, 22.16381, 22.16624, 22.16669, 22.16677, 22.16648, 22.16709, 22.16716, 22.16752, 
  22.16801, 22.16961, 22.1691, 22.16956, 22.1695, 22.17012, 22.16989, 22.16948, 22.16922, 22.1682, 
  22.16788, 22.16788, 22.1675, 22.16589, 22.16545, 22.16542, 22.16384, 22.1639, 22.16264, 22.16244, 
  22.16365)
LONGITUDE_VALUEs <- c(
  113.9021, 113.8994, 113.8991, 113.8999, 113.9025, 113.903, 113.9045, 113.9056, 113.9056, 113.906, 
  113.9076, 113.9096, 113.911, 113.913, 113.9155, 113.9156, 113.9146, 113.9138, 113.9136, 113.9133, 
  113.9129, 113.9128, 113.9129, 113.913, 113.9133, 113.9139, 113.9149, 113.9163, 113.917, 113.9176, 
  113.9174, 113.9149, 113.9138, 113.9131, 113.9126, 113.9114, 113.9104, 113.9094, 113.9092, 113.9092, 
  113.909, 113.9085, 113.9085, 113.9106, 113.9105, 113.9099, 113.9089, 113.9073, 113.9068, 113.9055, 
  113.9045)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.17924, 22.18043, 22.1827, 22.18579, 22.18848, 22.18916, 22.18987, 22.19004, 22.18866, 22.18847, 
  22.18804, 22.18713, 22.18676, 22.18343, 22.18329, 22.18293, 22.1825, 22.182, 22.18134, 22.18094, 
  22.18119, 22.18086, 22.1787, 22.17859, 22.17941, 22.18079, 22.18114, 22.1815, 22.18167, 22.18142, 
  22.18109, 22.18059, 22.18025, 22.1795)
LONGITUDE_VALUEs <- c(
  114.2506, 114.2534, 114.2563, 114.2569, 114.2563, 114.2556, 114.2553, 114.2534, 114.247, 114.2443, 
  114.2437, 114.2438, 114.2442, 114.2441, 114.2438, 114.2438, 114.2436, 114.2438, 114.2438, 114.2443, 
  114.2449, 114.2451, 114.2443, 114.2446, 114.2457, 114.2455, 114.2453, 114.2455, 114.2465, 114.2476, 
  114.2478, 114.2502, 114.2506, 114.2505)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.18804, 22.18727, 22.18535, 22.18473, 22.18292, 22.18229, 22.18184, 22.18043, 22.17979, 22.17895, 
  22.17901, 22.17934, 22.1795, 22.17905, 22.17958, 22.17975, 22.17962, 22.18054, 22.18093, 22.18156, 
  22.18193, 22.18191, 22.18147, 22.17993, 22.17959, 22.17917, 22.17895, 22.17864, 22.17857, 22.17837, 
  22.17815, 22.17851, 22.17881, 22.17867, 22.1788, 22.17899, 22.17884, 22.17925, 22.17921, 22.1795, 
  22.17961, 22.17947, 22.17881, 22.17813, 22.17795, 22.17748, 22.1776, 22.17777, 22.17777, 22.17794, 
  22.17837, 22.1787, 22.17976, 22.18029, 22.18043, 22.18024, 22.17988, 22.17964, 22.17924, 22.17881, 
  22.17873, 22.17893, 22.17923, 22.17936, 22.17963, 22.17953, 22.17967, 22.17994, 22.18004, 22.17977, 
  22.18004, 22.18048, 22.18075, 22.1809, 22.18122, 22.18152, 22.1818, 22.18187, 22.18211, 22.1821, 
  22.18197, 22.18265, 22.18334, 22.18386, 22.18386, 22.18407, 22.18395, 22.18301, 22.18319, 22.18395, 
  22.18501, 22.1854, 22.18605, 22.18672, 22.1877, 22.18765, 22.18787, 22.18783)
LONGITUDE_VALUEs <- c(
  113.9066, 113.9061, 113.9061, 113.9055, 113.9063, 113.9058, 113.906, 113.9052, 113.9052, 113.9056, 
  113.9059, 113.9057, 113.906, 113.9072, 113.9078, 113.9085, 113.9086, 113.9089, 113.9088, 113.9097, 
  113.9108, 113.9119, 113.913, 113.9133, 113.9129, 113.9129, 113.9132, 113.9132, 113.9134, 113.9133, 
  113.9135, 113.9137, 113.9137, 113.9139, 113.9142, 113.9142, 113.9144, 113.9145, 113.9147, 113.9147, 
  113.915, 113.9152, 113.9155, 113.9155, 113.9155, 113.9162, 113.9168, 113.9169, 113.9171, 113.9172, 
  113.9169, 113.9165, 113.9167, 113.9171, 113.9177, 113.9182, 113.9185, 113.9189, 113.9191, 113.9189, 
  113.919, 113.9195, 113.9195, 113.9201, 113.9206, 113.9207, 113.9209, 113.9209, 113.9207, 113.9195, 
  113.9193, 113.9197, 113.9197, 113.92, 113.92, 113.9194, 113.9196, 113.9192, 113.9189, 113.9179, 
  113.9176, 113.9168, 113.9164, 113.9156, 113.9151, 113.9146, 113.9142, 113.9134, 113.9124, 113.9114, 
  113.9111, 113.9106, 113.9103, 113.909, 113.9082, 113.9077, 113.9075, 113.9071)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  22.1807, 22.18114, 22.18199, 22.18334, 22.18503, 22.18638, 22.18846, 22.19013, 22.1899, 22.1889, 
  22.18842, 22.18789, 22.18705, 22.18677, 22.18671, 22.1873, 22.18648, 22.18535, 22.18469, 22.18296, 
  22.18243, 22.18145, 22.18153, 22.18073)
LONGITUDE_VALUEs <- c(
  114.288, 114.2887, 114.2892, 114.2892, 114.2889, 114.2895, 114.2896, 114.2874, 114.2869, 114.286, 
  114.2862, 114.2859, 114.2862, 114.2859, 114.2855, 114.284, 114.2832, 114.2828, 114.2837, 114.2835, 
  114.284, 114.284, 114.2848, 114.287)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
MGeo_1 <- MGeo_1 %>% 
  mutate(NAME = "HONG KONG SAR", VISUALIZATION_NAME = "Hong Kong SAR", 
         ISO2 = "HK", ISO3 = "HKG", M49_CODE = "344", SOVRN = "China", CONTINENT = "ASIA", 
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

##### MACAO SAR #####
LATITUDE_VALUEs <- c(
  22.21231, 22.20736, 22.2067, 22.2023, 22.19451, 22.18853, 22.18792, 22.18654, 22.18448, 22.18215, 
  22.177, 22.17331, 22.17208, 22.15699, 22.15077, 22.14536, 22.13616, 22.13611, 22.13568, 22.13545, 
  22.12405, 22.12349, 22.12059, 22.12062, 22.12059, 22.11558, 22.11384, 22.11367, 22.11331, 22.1125, 
  22.11218, 22.10995, 22.10983, 22.10979, 22.11014, 22.11055, 22.1116, 22.11172, 22.11239, 22.11296, 
  22.11323, 22.11332, 22.11332, 22.11323, 22.113, 22.1125, 22.11216, 22.11177, 22.1116, 22.11154, 
  22.11197, 22.11204, 22.11179, 22.11168, 22.11168, 22.11204, 22.11267, 22.11389, 22.11408, 22.1155, 
  22.11633, 22.11636, 22.11651, 22.11842, 22.1216, 22.12434, 22.12529, 22.12532, 22.12476, 22.12439, 
  22.1241, 22.1237, 22.12367, 22.12367, 22.12377, 22.12338, 22.12337, 22.12342, 22.1243, 22.1249, 
  22.12514, 22.12666, 22.12739, 22.12764, 22.12793, 22.12759, 22.1276, 22.1272, 22.12711, 22.12719, 
  22.12734, 22.12801, 22.12902, 22.12925, 22.12977, 22.13091, 22.13477, 22.13499, 22.13556, 22.16533, 
  22.16738, 22.17038, 22.1717, 22.18936, 22.19464, 22.19697, 22.19704, 22.19719, 22.19821, 22.1985, 
  22.19888, 22.20404, 22.20409, 22.20621, 22.20818, 22.2091, 22.21223, 22.216, 22.21543, 22.21553, 
  22.21567, 22.21704, 22.21694, 22.21674, 22.21662, 22.21663, 22.21674, 22.21666, 22.21656, 22.21678, 
  22.21681, 22.21692, 22.21695, 22.21631, 22.21428, 22.21324, 22.21332, 22.21309, 22.21303, 22.21304, 
  22.21364, 22.21364, 22.21344, 22.2132)
LONGITUDE_VALUEs <- c(
  113.5331, 113.5346, 113.5354, 113.5356, 113.5336, 113.5292, 113.5302, 113.5292, 113.5284, 113.5282, 
  113.5294, 113.532, 113.5321, 113.5395, 113.5453, 113.5495, 113.5492, 113.5474, 113.5404, 113.5402, 
  113.5408, 113.5411, 113.5457, 113.5465, 113.5486, 113.5483, 113.5486, 113.5493, 113.5498, 113.55, 
  113.5502, 113.5541, 113.555, 113.5565, 113.557, 113.5572, 113.5587, 113.5588, 113.5589, 113.5595, 
  113.56, 113.5605, 113.561, 113.5614, 113.5613, 113.5614, 113.5615, 113.5619, 113.5622, 113.5623, 
  113.5647, 113.5682, 113.5688, 113.5695, 113.57, 113.5714, 113.5731, 113.5742, 113.5743, 113.5741, 
  113.5734, 113.5733, 113.5703, 113.5701, 113.5713, 113.5736, 113.5752, 113.5754, 113.5759, 113.5766, 
  113.5773, 113.5777, 113.5778, 113.5779, 113.5789, 113.58, 113.5802, 113.5804, 113.5817, 113.5832, 
  113.5834, 113.5841, 113.5853, 113.5855, 113.586, 113.5868, 113.5877, 113.5884, 113.5894, 113.5899, 
  113.5901, 113.5906, 113.5924, 113.5925, 113.5926, 113.5926, 113.5979, 113.5981, 113.5984, 113.5874, 
  113.5847, 113.5797, 113.5734, 113.5734, 113.5719, 113.5719, 113.5787, 113.5791, 113.5807, 113.5809, 
  113.581, 113.581, 113.5705, 113.5706, 113.57, 113.569, 113.5623, 113.552, 113.5509, 113.5508, 
  113.5507, 113.5508, 113.55, 113.5496, 113.5492, 113.5487, 113.5483, 113.5477, 113.5476, 113.547, 
  113.5455, 113.5452, 113.5443, 113.5434, 113.5424, 113.5417, 113.5415, 113.5413, 113.5412, 113.5409, 
  113.5381, 113.5363, 113.5352, 113.5345)
MGeo_2 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_2 <- MGeo_2 %>% 
  mutate(NAME = "MACAO SAR", VISUALIZATION_NAME = "Macao SAR", 
         ISO2 = "MO", ISO3 = "MAC", M49_CODE = "446", SOVRN = "China", CONTINENT = "ASIA", 
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

##### TAIWAN (PROVINCE OF CHINA) #####
LATITUDE_VALUEs <- c(
  24.97956, 24.97977, 24.97983, 24.98043, 24.98114, 24.98102, 24.98065, 24.98066, 24.981, 24.98115, 
  24.98183, 24.98271, 24.98262, 24.98337, 24.98386, 24.98425, 24.98445, 24.98412, 24.98369, 24.98388, 
  24.98454, 24.98504, 24.98543, 24.98553, 24.98625, 24.98622, 24.98505, 24.98418, 24.98488, 24.98449, 
  24.98446, 24.98425, 24.9836, 24.98291, 24.98273, 24.98224, 24.9822, 24.98114, 24.98167, 24.98163, 
  24.98205, 24.98226, 24.98279, 24.98248, 24.98128, 24.97978)
LONGITUDE_VALUEs <- c(
  119.4735, 119.4738, 119.4745, 119.474, 119.475, 119.4757, 119.4763, 119.4771, 119.4769, 119.4775, 
  119.4771, 119.4769, 119.4764, 119.4763, 119.4767, 119.4764, 119.4746, 119.4741, 119.4745, 119.4739, 
  119.4738, 119.4744, 119.4741, 119.4735, 119.4736, 119.4732, 119.4711, 119.471, 119.4699, 119.4695, 
  119.4691, 119.4691, 119.4687, 119.4685, 119.4682, 119.4683, 119.4688, 119.4703, 119.471, 119.4715, 
  119.4718, 119.4725, 119.4729, 119.4735, 119.473, 119.4733)
MGeo_3 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  24.99627, 24.9946, 24.99372, 24.9908, 24.98889, 24.98779, 24.98776, 24.98724, 24.98734, 24.98691, 
  24.98594, 24.98651, 24.98749, 24.98758, 24.99093, 24.99354, 24.99428, 24.99414, 24.99513, 24.9974, 
  24.99715)
LONGITUDE_VALUEs <- c(
  119.446, 119.4467, 119.4465, 119.4489, 119.4522, 119.4523, 119.4534, 119.4538, 119.4547, 119.4561, 
  119.4558, 119.4577, 119.4576, 119.4565, 119.4567, 119.455, 119.4552, 119.4541, 119.4516, 119.4489, 
  119.4471)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_3 <- st_union(MGeo_3, MGeo)
LATITUDE_VALUEs <- c(
  24.1605, 24.16022, 24.16068, 24.16093, 24.16075, 24.16109, 24.16121, 24.16146, 24.16151, 24.1628, 
  24.16293, 24.16275, 24.16275, 24.16251, 24.16244, 24.16222, 24.16201, 24.16184, 24.16164, 24.16127, 
  24.16144, 24.16078, 24.16032)
LONGITUDE_VALUEs <- c(
  118.233, 118.2333, 118.2342, 118.234, 118.2356, 118.2356, 118.2357, 118.2355, 118.2357, 118.2345, 
  118.2334, 118.2335, 118.2332, 118.2331, 118.2326, 118.2326, 118.2323, 118.2324, 118.2323, 118.2328, 
  118.232, 118.2322, 118.2328)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_3 <- st_union(MGeo_3, MGeo)
LATITUDE_VALUEs <- c(
  23.39034, 23.38994, 23.39325, 23.39445, 23.3967, 23.3969, 23.39412, 23.3918, 23.389, 23.3879, 
  23.38449, 23.37994, 23.37763, 23.37515, 23.37251, 23.36991, 23.36527, 23.36146, 23.3593, 23.35707, 
  23.35473, 23.35408, 23.35266, 23.3539, 23.35459, 23.35404, 23.35573, 23.35542, 23.35293, 23.35398, 
  23.35343, 23.35918, 23.36038, 23.3645, 23.36641, 23.36609, 23.36787, 23.37106, 23.3721, 23.37253, 
  23.37324, 23.37417, 23.37372, 23.37102, 23.37037, 23.37173, 23.37529, 23.37669, 23.38144, 23.38238, 
  23.38833, 23.39054, 23.39215, 23.39239, 23.39404, 23.39418, 23.39203, 23.39195)
LONGITUDE_VALUEs <- c(
  119.5022, 119.4997, 119.4976, 119.4948, 119.4941, 119.4907, 119.4895, 119.4925, 119.4931, 119.4956, 
  119.4952, 119.4913, 119.4935, 119.4922, 119.4947, 119.4929, 119.4946, 119.4901, 119.4897, 119.4871, 
  119.4878, 119.4899, 119.4907, 119.4926, 119.4975, 119.4993, 119.5027, 119.5051, 119.5063, 119.508, 
  119.5127, 119.5082, 119.5086, 119.5079, 119.5102, 119.5119, 119.5164, 119.5147, 119.5152, 119.5162, 
  119.5162, 119.5149, 119.5144, 119.514, 119.5106, 119.5083, 119.5109, 119.5084, 119.5086, 119.5071, 
  119.5072, 119.5084, 119.5075, 119.5058, 119.5056, 119.5043, 119.5039, 119.5025)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_3 <- st_union(MGeo_3, MGeo)
LATITUDE_VALUEs <- c(
  23.19078, 23.19155, 23.18834, 23.18713, 23.18648, 23.18729, 23.18887, 23.18992, 23.19358, 23.19702, 
  23.19788, 23.19932, 23.19976, 23.20183, 23.20108, 23.20023, 23.20505, 23.20625, 23.21092, 23.21305, 
  23.21505, 23.21723, 23.21988, 23.22094, 23.22146, 23.21821, 23.21758, 23.21695, 23.21741, 23.21454, 
  23.21586, 23.21542, 23.21219, 23.21184, 23.21072, 23.21047, 23.20894, 23.20895, 23.20622, 23.20559, 
  23.20341, 23.20168, 23.20078, 23.19913, 23.19786, 23.19718, 23.19557, 23.19469, 23.19321, 23.19232)
LONGITUDE_VALUEs <- c(
  119.4217, 119.4238, 119.4299, 119.4293, 119.4302, 119.4309, 119.4309, 119.4319, 119.4294, 119.4301, 
  119.4331, 119.4327, 119.4346, 119.4361, 119.4414, 119.4429, 119.443, 119.442, 119.4437, 119.4433, 
  119.4441, 119.4467, 119.4479, 119.4445, 119.4399, 119.4218, 119.4214, 119.4171, 119.4158, 119.4129, 
  119.411, 119.4104, 119.4113, 119.4125, 119.4126, 119.4139, 119.4146, 119.4156, 119.4164, 119.4189, 
  119.4208, 119.421, 119.4205, 119.421, 119.4201, 119.4189, 119.4181, 119.4214, 119.4195, 119.4215)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_3 <- st_union(MGeo_3, MGeo)
LATITUDE_VALUEs <- c(
  26.19359, 26.19524, 26.19986, 26.20123, 26.20739, 26.20932, 26.21176, 26.21521, 26.21471, 26.2185, 
  26.21856, 26.21752, 26.21455, 26.21438, 26.21865, 26.21773, 26.21813, 26.21867, 26.22271, 26.22221, 
  26.21931, 26.21823, 26.21463, 26.21453, 26.21831, 26.22091, 26.22339, 26.22447, 26.22691, 26.2286, 
  26.22818, 26.2286, 26.2266, 26.22339, 26.22398, 26.22722, 26.22758, 26.22943, 26.23428, 26.2344, 
  26.23819, 26.23834, 26.23653, 26.23423, 26.23376, 26.23264, 26.23103, 26.22497, 26.22622, 26.22123, 
  26.2215, 26.2189, 26.21834, 26.21561, 26.21238, 26.2096, 26.20674, 26.20523, 26.20269)
LONGITUDE_VALUEs <- c(
  119.9663, 119.974, 119.9722, 119.9729, 119.9723, 119.9729, 119.9728, 119.9764, 119.9777, 119.9841, 
  119.9875, 119.9894, 119.989, 119.9906, 119.9933, 119.9947, 119.9973, 119.9994, 120.0041, 120.0069, 
  120.0072, 120.0091, 120.0096, 120.0118, 120.0118, 120.0105, 120.0147, 120.0134, 120.0156, 120.0143, 
  120.0123, 120.0106, 120.0063, 120.0057, 120.0035, 120.0056, 120.0065, 120.0066, 120.0063, 120.002, 
  120.0003, 119.9951, 119.993, 119.9928, 119.9915, 119.9912, 119.9882, 119.9828, 119.9788, 119.9712, 
  119.9667, 119.9673, 119.9688, 119.9684, 119.9708, 119.9682, 119.9673, 119.9682, 119.9654)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_3 <- st_union(MGeo_3, MGeo)
LATITUDE_VALUEs <- c(
  26.17173, 26.17516, 26.17477, 26.17551, 26.17227, 26.17154, 26.16938, 26.16773, 26.16776, 26.16264, 
  26.16256, 26.16149, 26.15964, 26.15979, 26.15798, 26.15467, 26.15328, 26.14949, 26.14743, 26.14558, 
  26.14407, 26.14531, 26.14253, 26.14103, 26.14201, 26.14111, 26.13953, 26.13806, 26.13776, 26.13972, 
  26.1403, 26.14105, 26.14194, 26.14606, 26.14531, 26.1429, 26.1435, 26.14567, 26.14665, 26.14848, 
  26.14833, 26.15263, 26.15345, 26.15332, 26.14966, 26.14999, 26.15708, 26.15829, 26.16482, 26.1662, 
  26.16788, 26.16905, 26.16713, 26.16884, 26.16518, 26.16836, 26.16495, 26.15825, 26.15738, 26.15627, 
  26.1553, 26.15349, 26.1591, 26.15906, 26.16189, 26.16093, 26.16179, 26.16957, 26.16963, 26.17196)
LONGITUDE_VALUEs <- c(
  119.9228, 119.9201, 119.9184, 119.9164, 119.9153, 119.9167, 119.9152, 119.9172, 119.9189, 119.9171, 
  119.9147, 119.9142, 119.9122, 119.9157, 119.9176, 119.9139, 119.9146, 119.9103, 119.9102, 119.9087, 
  119.9101, 119.9127, 119.9132, 119.9171, 119.9224, 119.9243, 119.9231, 119.9233, 119.9246, 119.9275, 
  119.9308, 119.9289, 119.929, 119.9364, 119.9373, 119.9378, 119.9431, 119.9442, 119.9464, 119.9465, 
  119.9487, 119.949, 119.95, 119.9524, 119.9555, 119.9565, 119.9594, 119.9626, 119.9635, 119.9655, 
  119.9684, 119.968, 119.964, 119.957, 119.9538, 119.9523, 119.9434, 119.943, 119.9392, 119.9388, 
  119.9373, 119.9373, 119.9356, 119.9305, 119.9308, 119.9276, 119.9242, 119.9266, 119.929, 119.9284)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_3 <- st_union(MGeo_3, MGeo)
LATITUDE_VALUEs <- c(
  25.94855, 25.95152, 25.95131, 25.95604, 25.95363, 25.9538, 25.95517, 25.95511, 25.95656, 25.95583, 
  25.95708, 25.95938, 25.96061, 25.95999, 25.96017, 25.96094, 25.961, 25.96154, 25.96159, 25.96287, 
  25.96374, 25.96401, 25.96536, 25.96727, 25.9674, 25.96885, 25.96891, 25.97033, 25.96999, 25.97072, 
  25.97045, 25.9673, 25.96655, 25.96746, 25.96879, 25.96837, 25.96871, 25.96659, 25.96455, 25.96042, 
  25.95864, 25.95845, 25.95779, 25.95628, 25.95524, 25.95129, 25.95013, 25.94967, 25.94855)
LONGITUDE_VALUEs <- c(
  119.9647, 119.9661, 119.9676, 119.9716, 119.973, 119.9751, 119.9752, 119.9763, 119.9773, 119.978, 
  119.9789, 119.9783, 119.9794, 119.9796, 119.981, 119.9812, 119.9825, 119.9824, 119.9838, 119.9849, 
  119.9847, 119.9837, 119.9857, 119.9869, 119.9882, 119.9886, 119.9875, 119.9876, 119.9867, 119.9862, 
  119.9839, 119.9827, 119.9805, 119.9785, 119.9786, 119.9763, 119.9741, 119.9709, 119.9714, 119.9692, 
  119.9661, 119.964, 119.9652, 119.9652, 119.9639, 119.9625, 119.9604, 119.962, 119.9623)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_3 <- st_union(MGeo_3, MGeo)
LATITUDE_VALUEs <- c(
  26.3571, 26.35566, 26.35589, 26.35682, 26.35851, 26.35961, 26.35915, 26.35762, 26.35731, 26.35827, 
  26.35815, 26.35915, 26.35826, 26.35694, 26.35656, 26.36009, 26.36152, 26.36182, 26.36302, 26.36374, 
  26.36586, 26.36702, 26.36856, 26.36871, 26.36696, 26.36556, 26.3655, 26.36685, 26.36515, 26.3646, 
  26.36497, 26.36649, 26.3682, 26.36859, 26.36944, 26.36953, 26.37038, 26.3708, 26.37197, 26.37326, 
  26.37314, 26.37198, 26.3722, 26.37123, 26.37235, 26.37231, 26.37329, 26.37296, 26.37767, 26.37857, 
  26.37821, 26.3787, 26.37689, 26.37449, 26.37088, 26.37067, 26.37145, 26.37074, 26.3719, 26.36981, 
  26.37046, 26.37106, 26.37122, 26.37315, 26.37466, 26.37721, 26.37892, 26.38058, 26.38096, 26.38177, 
  26.38291, 26.38399, 26.38339, 26.38188, 26.38196, 26.38369, 26.38373, 26.38313, 26.38353, 26.3826, 
  26.38188, 26.38047, 26.37991, 26.37855, 26.37888, 26.37841, 26.37827, 26.37698, 26.37449, 26.37246, 
  26.37109, 26.37123, 26.37097, 26.37313, 26.37366, 26.37478, 26.37676, 26.3771, 26.37905, 26.37903, 
  26.37787, 26.37668, 26.37608, 26.37546, 26.37407, 26.37363, 26.37217, 26.36942, 26.36769, 26.36891, 
  26.37078, 26.36919, 26.36705, 26.36611, 26.36445, 26.36469, 26.36318, 26.36056, 26.35931, 26.35749)
LONGITUDE_VALUEs <- c(
  120.4839, 120.4842, 120.4853, 120.4858, 120.4855, 120.4861, 120.4883, 120.488, 120.4887, 120.4903, 
  120.4912, 120.4928, 120.4935, 120.4931, 120.4941, 120.4956, 120.4974, 120.4986, 120.4988, 120.5001, 
  120.5012, 120.5008, 120.5015, 120.5028, 120.504, 120.5041, 120.505, 120.5065, 120.5079, 120.5101, 
  120.5113, 120.5115, 120.5112, 120.5099, 120.5092, 120.5084, 120.5084, 120.5078, 120.5075, 120.5064, 
  120.5058, 120.5056, 120.5049, 120.5029, 120.5024, 120.5016, 120.5014, 120.4988, 120.5008, 120.4997, 
  120.4986, 120.4956, 120.4929, 120.4921, 120.4922, 120.4914, 120.4905, 120.489, 120.4879, 120.4856, 
  120.4845, 120.4843, 120.4816, 120.4824, 120.4821, 120.4835, 120.4826, 120.4827, 120.4803, 120.4803, 
  120.4797, 120.4801, 120.4788, 120.4777, 120.4772, 120.4767, 120.4759, 120.4751, 120.474, 120.4737, 
  120.4744, 120.4743, 120.4747, 120.4733, 120.472, 120.4716, 120.4703, 120.4691, 120.4704, 120.4693, 
  120.4692, 120.4699, 120.4704, 120.4722, 120.4729, 120.4729, 120.4745, 120.4756, 120.4767, 120.477, 
  120.4774, 120.4769, 120.4771, 120.4767, 120.4767, 120.4776, 120.4777, 120.4771, 120.478, 120.4797, 
  120.481, 120.4852, 120.4854, 120.4862, 120.4857, 120.4827, 120.4836, 120.4831, 120.4813, 120.4826)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_3 <- st_union(MGeo_3, MGeo)
LATITUDE_VALUEs <- c(
  25.96739, 25.96774, 25.96969, 25.97069, 25.97196, 25.97333, 25.974, 25.97293, 25.97335, 25.97473, 
  25.97533, 25.97631, 25.97683, 25.97802, 25.97793, 25.97945, 25.98172, 25.98094, 25.98184, 25.98216, 
  25.98283, 25.98232, 25.98242, 25.98156, 25.9819, 25.98131, 25.98162, 25.98008, 25.98177, 25.98127, 
  25.98166, 25.97961, 25.97227, 25.97112, 25.97086, 25.97181, 25.9715, 25.97089, 25.9698)
LONGITUDE_VALUEs <- c(
  119.9331, 119.9351, 119.9365, 119.9383, 119.9374, 119.9383, 119.9396, 119.9416, 119.9426, 119.9435, 
  119.9451, 119.9453, 119.9463, 119.9465, 119.9474, 119.9482, 119.9476, 119.9448, 119.9441, 119.9447, 
  119.9443, 119.9437, 119.9427, 119.9421, 119.9405, 119.9396, 119.9366, 119.933, 119.9313, 119.9283, 
  119.9262, 119.9239, 119.9288, 119.9286, 119.9293, 119.9305, 119.9318, 119.9316, 119.9334)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_3 <- st_union(MGeo_3, MGeo)
LATITUDE_VALUEs <- c(
  26.33538, 26.33631, 26.33813, 26.33858, 26.3385, 26.33966, 26.3399, 26.34179, 26.34232, 26.34247, 
  26.34361, 26.3446, 26.34418, 26.345, 26.34535, 26.34658, 26.34703, 26.34741, 26.34645, 26.34597, 
  26.34543, 26.34546, 26.34482, 26.34505, 26.34431, 26.34362, 26.34315, 26.34233, 26.34162, 26.34118, 
  26.34188, 26.34154, 26.34015, 26.33956, 26.33948, 26.33848, 26.33819, 26.33744, 26.33661, 26.33652, 
  26.33575)
LONGITUDE_VALUEs <- c(
  120.2189, 120.2205, 120.2209, 120.2219, 120.2232, 120.2238, 120.2245, 120.2254, 120.2258, 120.2268, 
  120.2267, 120.2275, 120.2283, 120.229, 120.2299, 120.2298, 120.2299, 120.2289, 120.2284, 120.2269, 
  120.2269, 120.2265, 120.2263, 120.2256, 120.2242, 120.2239, 120.2233, 120.2233, 120.2225, 120.2222, 
  120.2205, 120.2202, 120.2198, 120.2199, 120.2197, 120.2194, 120.2186, 120.2181, 120.218, 120.2182, 
  120.218)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_3 <- st_union(MGeo_3, MGeo)
LATITUDE_VALUEs <- c(
  25.63279, 25.63338, 25.63291, 25.63317, 25.63293, 25.63179, 25.62924, 25.62741, 25.62589, 25.62512, 
  25.62355, 25.623, 25.62361, 25.6242, 25.62467, 25.62483, 25.62554, 25.62624, 25.62761, 25.62857, 
  25.62895, 25.63106, 25.63076, 25.63164, 25.63243, 25.6328, 25.63333, 25.63327)
LONGITUDE_VALUEs <- c(
  122.0825, 122.0807, 122.08, 122.0791, 122.0768, 122.0738, 122.0723, 122.0725, 122.0744, 122.0768, 
  122.0773, 122.0787, 122.0818, 122.0816, 122.0819, 122.0811, 122.0811, 122.0827, 122.0843, 122.0842, 
  122.085, 122.0849, 122.084, 122.0846, 122.0845, 122.084, 122.0837, 122.083)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_3 <- st_union(MGeo_3, MGeo)
LATITUDE_VALUEs <- c(
  25.48313, 25.48406, 25.48449, 25.48472, 25.48611, 25.48683, 25.48699, 25.48771, 25.48787, 25.48731, 
  25.48596, 25.48616, 25.48536, 25.48516, 25.48458, 25.48345, 25.48191, 25.48221)
LONGITUDE_VALUEs <- c(
  122.1062, 122.1078, 122.1078, 122.107, 122.1073, 122.1082, 122.1073, 122.1066, 122.1052, 122.1044, 
  122.1044, 122.1033, 122.1034, 122.103, 122.1037, 122.1034, 122.1053, 122.1062)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_3 <- st_union(MGeo_3, MGeo)
LATITUDE_VALUEs <- c(
  25.18943, 25.19017, 25.1901, 25.1905, 25.19076, 25.19089, 25.19071, 25.19144, 25.19178, 25.19276, 
  25.1931, 25.19317, 25.19471, 25.195, 25.19483, 25.19516, 25.19479, 25.19492, 25.19473, 25.19507, 
  25.1947, 25.19395, 25.19337, 25.19346, 25.19071)
LONGITUDE_VALUEs <- c(
  121.7819, 121.7842, 121.7849, 121.7848, 121.7851, 121.7864, 121.787, 121.7884, 121.7875, 121.79, 
  121.79, 121.7884, 121.7889, 121.7883, 121.7878, 121.7876, 121.7872, 121.7868, 121.7864, 121.7861, 
  121.7857, 121.7858, 121.7848, 121.7841, 121.7822)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_3 <- st_union(MGeo_3, MGeo)
LATITUDE_VALUEs <- c(
  24.83788, 24.83753, 24.83617, 24.83718, 24.83613, 24.83508, 24.83652, 24.84033, 24.84026, 24.84181, 
  24.84398, 24.84546, 24.84949, 24.85095, 24.84777, 24.84331, 24.84532)
LONGITUDE_VALUEs <- c(
  121.9411, 121.9445, 121.9479, 121.9574, 121.9598, 121.9602, 121.9644, 121.9645, 121.9625, 121.9605, 
  121.9596, 121.9599, 121.9562, 121.9495, 121.9455, 121.9436, 121.9364)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_3 <- st_union(MGeo_3, MGeo)
LATITUDE_VALUEs <- c(
  23.55923, 23.56007, 23.5598, 23.56165, 23.563, 23.56367, 23.56244, 23.56344, 23.56593, 23.56722, 
  23.5682, 23.56634, 23.56645, 23.56443, 23.5643, 23.56411, 23.56543, 23.56626, 23.56716, 23.56809, 
  23.57086, 23.57118, 23.57291, 23.57302, 23.57446, 23.57583, 23.57921, 23.58377, 23.58564, 23.59209, 
  23.59415, 23.5939, 23.59433, 23.60155, 23.60499, 23.6067, 23.60758, 23.61075, 23.61142, 23.6157, 
  23.61934, 23.62679, 23.62941, 23.63126, 23.62876, 23.6299, 23.63031, 23.63188, 23.63332, 23.63263, 
  23.63198, 23.63332, 23.63489, 23.63702, 23.63772, 23.64057, 23.64042, 23.63882, 23.64012, 23.64232, 
  23.64421, 23.64268, 23.64474, 23.64767, 23.65107, 23.65227, 23.65459, 23.65581, 23.65469, 23.65467, 
  23.65311, 23.65146, 23.65229, 23.6498, 23.64919, 23.64824, 23.64771, 23.64794, 23.64895, 23.6499, 
  23.6498, 23.64803, 23.63581, 23.63627, 23.6357, 23.63072, 23.6243, 23.62003, 23.61681, 23.61574, 
  23.61441, 23.61521, 23.61494, 23.61401, 23.6126, 23.61053, 23.6101, 23.60717, 23.60668, 23.60428, 
  23.60397, 23.59897, 23.59838, 23.59689, 23.59533, 23.59942, 23.59952, 23.59591, 23.5951, 23.594, 
  23.59323, 23.589, 23.58017, 23.57685, 23.57701, 23.57455, 23.57349, 23.57215, 23.5704, 23.57223, 
  23.57522, 23.57514, 23.56869, 23.56552, 23.56233, 23.5606)
LONGITUDE_VALUEs <- c(
  119.4723, 119.4741, 119.4765, 119.48, 119.4811, 119.4845, 119.4895, 119.4914, 119.4921, 119.4934, 
  119.4968, 119.5032, 119.5052, 119.5105, 119.5129, 119.5152, 119.5169, 119.5172, 119.5182, 119.5169, 
  119.5131, 119.5139, 119.5138, 119.5146, 119.5146, 119.5122, 119.5125, 119.5165, 119.5162, 119.5125, 
  119.5146, 119.5176, 119.5196, 119.5231, 119.523, 119.5217, 119.522, 119.5199, 119.5213, 119.5218, 
  119.5195, 119.5177, 119.5189, 119.5222, 119.5228, 119.525, 119.5305, 119.5313, 119.536, 119.5366, 
  119.5402, 119.5394, 119.5416, 119.5412, 119.5433, 119.5429, 119.5398, 119.5363, 119.5288, 119.5255, 
  119.5253, 119.5224, 119.5195, 119.5199, 119.5244, 119.5239, 119.5247, 119.5224, 119.5176, 119.5137, 
  119.5135, 119.5148, 119.5169, 119.5181, 119.5179, 119.5192, 119.519, 119.5181, 119.5178, 119.5165, 
  119.5149, 119.5116, 119.5068, 119.5045, 119.5037, 119.5019, 119.504, 119.499, 119.5015, 119.5036, 
  119.5045, 119.5057, 119.5071, 119.5072, 119.509, 119.508, 119.5055, 119.5047, 119.5032, 119.5033, 
  119.5022, 119.503, 119.5045, 119.5038, 119.4992, 119.497, 119.4938, 119.494, 119.4921, 119.4929, 
  119.498, 119.5038, 119.5036, 119.5011, 119.4984, 119.4989, 119.4971, 119.497, 119.4883, 119.4873, 
  119.4839, 119.4815, 119.4776, 119.4694, 119.4673, 119.468)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_3 <- st_union(MGeo_3, MGeo)
LATITUDE_VALUEs <- c(
  23.62251, 23.62206, 23.62404, 23.62416, 23.62229, 23.62115, 23.62027, 23.62095, 23.62386, 23.62491, 
  23.62874, 23.63233, 23.63208, 23.63246, 23.63364, 23.63585, 23.63603, 23.63635, 23.63751, 23.63782, 
  23.63364, 23.63395, 23.63531, 23.63625, 23.64118, 23.6417, 23.64263, 23.64505, 23.64815, 23.64933, 
  23.64879, 23.649, 23.64882, 23.64929, 23.6482, 23.64781, 23.6502, 23.65154, 23.65285, 23.6548, 
  23.66027, 23.66094, 23.66186, 23.66371, 23.66294, 23.66447, 23.66852, 23.67125, 23.67479, 23.67564, 
  23.67408, 23.67212, 23.67204, 23.67318, 23.6752, 23.67784, 23.67605, 23.67426, 23.67114, 23.67108, 
  23.67471, 23.67033, 23.6688, 23.66359, 23.66272, 23.66013, 23.65901, 23.65765, 23.65781, 23.65642, 
  23.65683, 23.65563, 23.65435, 23.65447, 23.65533, 23.6553, 23.65152, 23.65174, 23.65469, 23.65604, 
  23.65691, 23.66001, 23.66233, 23.66217, 23.66131, 23.66168, 23.66074, 23.65911, 23.65785, 23.65779, 
  23.65644, 23.65669, 23.65555, 23.65478, 23.65414, 23.65233, 23.64957, 23.64729, 23.64685, 23.64535, 
  23.64414, 23.64411, 23.64048, 23.63897, 23.6386, 23.63503, 23.63262, 23.62944, 23.62807, 23.62703, 
  23.6255, 23.62516, 23.62333)
LONGITUDE_VALUEs <- c(
  119.5883, 119.59, 119.5917, 119.5965, 119.5993, 119.5988, 119.6001, 119.6009, 119.602, 119.605, 
  119.6027, 119.6064, 119.6078, 119.6096, 119.6104, 119.6106, 119.6101, 119.6076, 119.6085, 119.6079, 
  119.6034, 119.602, 119.6009, 119.5992, 119.5976, 119.6003, 119.602, 119.6007, 119.6011, 119.6037, 
  119.6067, 119.6074, 119.6086, 119.6093, 119.6096, 119.6104, 119.6121, 119.6118, 119.6126, 119.6096, 
  119.6066, 119.6079, 119.6079, 119.6101, 119.6072, 119.6043, 119.6057, 119.6006, 119.6001, 119.5966, 
  119.5943, 119.5941, 119.5906, 119.5876, 119.5875, 119.5828, 119.5784, 119.5769, 119.5651, 119.5608, 
  119.5599, 119.5587, 119.5537, 119.5512, 119.5493, 119.5507, 119.5496, 119.5497, 119.552, 119.5534, 
  119.5542, 119.5556, 119.5559, 119.5569, 119.5572, 119.5589, 119.5633, 119.5643, 119.5648, 119.567, 
  119.5667, 119.5675, 119.5716, 119.5784, 119.5795, 119.5808, 119.5813, 119.5807, 119.5808, 119.5797, 
  119.5794, 119.5818, 119.5831, 119.583, 119.5819, 119.5825, 119.5862, 119.5872, 119.5885, 119.5886, 
  119.5878, 119.5891, 119.5945, 119.5945, 119.5942, 119.5957, 119.5951, 119.5904, 119.5912, 119.5901, 
  119.5896, 119.5889, 119.5892)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_3 <- st_union(MGeo_3, MGeo)
LATITUDE_VALUEs <- c(
  23.60898, 23.61026, 23.60985, 23.6103, 23.61254, 23.61345, 23.61408, 23.6162, 23.61694, 23.61804, 
  23.61928, 23.6204, 23.62056, 23.62247, 23.62103, 23.62168, 23.62013, 23.61838, 23.61726, 23.617, 
  23.61759, 23.61679, 23.61533, 23.61293, 23.61248, 23.61158, 23.61063, 23.61044, 23.60987)
LONGITUDE_VALUEs <- c(
  119.6044, 119.6061, 119.6073, 119.6102, 119.6129, 119.6131, 119.614, 119.6135, 119.614, 119.6134, 
  119.6137, 119.6132, 119.6103, 119.607, 119.6063, 119.6054, 119.6052, 119.603, 119.6024, 119.5989, 
  119.5977, 119.5968, 119.5975, 119.6012, 119.6012, 119.6033, 119.603, 119.6036, 119.6034)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_3 <- st_union(MGeo_3, MGeo)
LATITUDE_VALUEs <- c(
  23.50839, 23.50721, 23.50942, 23.50945, 23.51249, 23.51241, 23.51134, 23.51064, 23.51195, 23.51079, 
  23.50918, 23.5092, 23.50774, 23.50831, 23.5131, 23.51582, 23.5167, 23.51715, 23.5172, 23.51877, 
  23.5189, 23.51978, 23.52176, 23.52278, 23.52278, 23.52211, 23.52476, 23.52531, 23.52655, 23.52773, 
  23.52878, 23.52968, 23.52926, 23.53014, 23.532, 23.53295, 23.53174, 23.53214, 23.53374, 23.53613, 
  23.53815, 23.53896, 23.53858, 23.53757, 23.53753, 23.53828, 23.53894, 23.54192, 23.54197, 23.54376, 
  23.54317, 23.54238, 23.54275, 23.54446, 23.5448, 23.54594, 23.54682, 23.5476, 23.54738, 23.5466, 
  23.54677, 23.55082, 23.55275, 23.55244, 23.55369, 23.55694, 23.55951, 23.56049, 23.56049, 23.56093, 
  23.56021, 23.56132, 23.55871, 23.55638, 23.55795, 23.55786, 23.55584, 23.5546, 23.55347, 23.55249, 
  23.55131, 23.55201, 23.55194, 23.55312, 23.55355, 23.55294, 23.55339, 23.55463, 23.55432, 23.55481, 
  23.555, 23.55574, 23.55906, 23.56003, 23.56155, 23.56129, 23.56265, 23.56627, 23.5694, 23.57109, 
  23.57176, 23.57385, 23.5748, 23.57507, 23.57893, 23.58198, 23.58407, 23.58515, 23.59378, 23.59585, 
  23.59895, 23.60108, 23.6018, 23.60043, 23.59917, 23.59805, 23.59537, 23.59476, 23.59217, 23.59073, 
  23.59069, 23.58944, 23.59064, 23.59366, 23.59449, 23.59634, 23.59624, 23.59872, 23.60143, 23.60312, 
  23.60709, 23.60992, 23.60709, 23.60607, 23.60749, 23.60359, 23.60285, 23.59679, 23.59612, 23.59003, 
  23.58932, 23.58757, 23.58784, 23.58712, 23.58812, 23.58863, 23.58944, 23.59144, 23.59644, 23.59856, 
  23.59942, 23.5974, 23.59591, 23.59329, 23.59244, 23.58942, 23.58833, 23.58271, 23.58274, 23.58102, 
  23.58004, 23.57917, 23.58149, 23.58367, 23.58676, 23.58989, 23.59296, 23.59545, 23.60047, 23.60375, 
  23.60275, 23.60444, 23.60568, 23.60743, 23.60668, 23.60857, 23.60664, 23.60308, 23.60098, 23.60228, 
  23.60326, 23.60446, 23.60371, 23.60408, 23.60261, 23.60198, 23.60593, 23.6056, 23.60175, 23.60104, 
  23.5995, 23.59844, 23.59732, 23.59589, 23.59602, 23.59484, 23.59368, 23.58688, 23.58582, 23.58476, 
  23.58281, 23.5819, 23.58037, 23.57903, 23.57917, 23.57815, 23.57781, 23.57752, 23.57687, 23.57681, 
  23.57417, 23.57022, 23.56901, 23.57052, 23.57199, 23.57288, 23.57486, 23.57459, 23.5725, 23.57274, 
  23.57207, 23.57351, 23.57614, 23.57874, 23.5809, 23.58094, 23.57878, 23.57838, 23.58013, 23.58159, 
  23.58303, 23.58312, 23.58437, 23.58597, 23.58826, 23.59101, 23.59162, 23.59327, 23.59374, 23.5945, 
  23.59384, 23.59212, 23.59161, 23.59019, 23.58962, 23.58786, 23.58765, 23.58645, 23.58544, 23.58595, 
  23.58491, 23.58566, 23.58365, 23.57768, 23.57504, 23.57329, 23.57099, 23.56448, 23.56326, 23.56053, 
  23.56206, 23.56147, 23.56259, 23.56147, 23.56251, 23.56204, 23.56501, 23.56298, 23.56115, 23.5599, 
  23.55797, 23.55923, 23.55492, 23.55417, 23.55657, 23.55795, 23.55727, 23.55554, 23.55469, 23.55318, 
  23.55252, 23.55298, 23.55182, 23.55143, 23.54996, 23.54897, 23.54999, 23.54981, 23.55083, 23.54842, 
  23.549, 23.54619, 23.54731, 23.54723, 23.54805, 23.54796, 23.54857, 23.54857, 23.54935, 23.54811, 
  23.55024, 23.55059, 23.54961, 23.55199, 23.54988, 23.55026, 23.54827, 23.54813, 23.54939, 23.54983, 
  23.54758, 23.54626, 23.54564, 23.54327, 23.54044, 23.54101, 23.53862, 23.53954, 23.53696, 23.53287, 
  23.53166, 23.52955, 23.52866, 23.52657, 23.52752, 23.52948, 23.5299, 23.53117, 23.5308, 23.52918, 
  23.53098, 23.53188, 23.53268, 23.53184, 23.5282, 23.52449, 23.52287, 23.52167, 23.5211, 23.51994, 
  23.52004, 23.52329, 23.52518, 23.52586, 23.52683, 23.52799, 23.52801, 23.52919, 23.52954, 23.53086, 
  23.53196, 23.53202, 23.53124, 23.53468, 23.53387, 23.53149, 23.5295, 23.5309, 23.5284, 23.52682, 
  23.52643, 23.52917, 23.53153, 23.5335, 23.5356, 23.53692, 23.5382, 23.5406, 23.54245, 23.54414, 
  23.54813, 23.54853, 23.55174, 23.55296, 23.55337, 23.55432, 23.55375, 23.54984, 23.54849, 23.5478, 
  23.54684, 23.54705, 23.5477, 23.54625, 23.54563, 23.54286, 23.54252, 23.54227, 23.54133, 23.54089, 
  23.53858, 23.53719, 23.53838, 23.53943, 23.53869, 23.53706, 23.53564, 23.53525, 23.53299, 23.53352, 
  23.53269, 23.53066, 23.52821, 23.52315, 23.52409, 23.52382, 23.5261, 23.52461, 23.52169, 23.51693, 
  23.51323, 23.51005)
LONGITUDE_VALUEs <- c(
  119.5714, 119.5761, 119.5789, 119.5855, 119.5899, 119.5956, 119.5957, 119.598, 119.5989, 119.6008, 
  119.6019, 119.6046, 119.6064, 119.6081, 119.608, 119.6056, 119.6058, 119.6068, 119.6079, 119.6107, 
  119.6117, 119.6108, 119.6118, 119.6113, 119.6103, 119.6093, 119.6081, 119.6071, 119.6066, 119.6052, 
  119.6058, 119.6072, 119.6078, 119.6096, 119.6095, 119.6106, 119.6126, 119.6134, 119.6123, 119.6123, 
  119.614, 119.6157, 119.6185, 119.6193, 119.621, 119.6215, 119.621, 119.6209, 119.6216, 119.6236, 
  119.6247, 119.6248, 119.6256, 119.6255, 119.625, 119.6278, 119.6283, 119.63, 119.6315, 119.6317, 
  119.6342, 119.6351, 119.638, 119.6393, 119.6389, 119.6405, 119.6441, 119.6472, 119.6518, 119.6551, 
  119.6631, 119.6665, 119.6669, 119.6695, 119.672, 119.6744, 119.6751, 119.6742, 119.6752, 119.6755, 
  119.678, 119.6797, 119.6804, 119.6816, 119.683, 119.6851, 119.6865, 119.6879, 119.6898, 119.6911, 
  119.6945, 119.6938, 119.6928, 119.6934, 119.6903, 119.6893, 119.6864, 119.6828, 119.6828, 119.682, 
  119.6822, 119.6802, 119.6803, 119.6811, 119.6815, 119.6813, 119.6825, 119.6806, 119.6758, 119.6735, 
  119.6716, 119.6723, 119.6699, 119.6684, 119.6692, 119.668, 119.6666, 119.6691, 119.6689, 119.6665, 
  119.6646, 119.6636, 119.6607, 119.6597, 119.6628, 119.6624, 119.6609, 119.6573, 119.656, 119.6574, 
  119.6567, 119.6513, 119.6466, 119.6474, 119.6508, 119.6499, 119.6463, 119.6461, 119.6437, 119.6416, 
  119.6438, 119.6416, 119.641, 119.6404, 119.6399, 119.6417, 119.6412, 119.6378, 119.6417, 119.6415, 
  119.6378, 119.6367, 119.6328, 119.632, 119.6338, 119.6339, 119.6327, 119.6311, 119.6292, 119.6282, 
  119.6271, 119.6248, 119.6251, 119.6271, 119.6248, 119.6254, 119.625, 119.628, 119.6257, 119.6281, 
  119.6304, 119.6321, 119.6304, 119.6309, 119.6287, 119.6248, 119.6198, 119.6216, 119.6168, 119.6158, 
  119.6171, 119.6168, 119.6151, 119.6135, 119.6144, 119.6133, 119.6128, 119.6058, 119.6054, 119.6029, 
  119.6038, 119.6032, 119.6045, 119.6046, 119.6061, 119.6061, 119.6074, 119.6058, 119.6069, 119.6007, 
  119.5984, 119.5992, 119.5992, 119.5987, 119.598, 119.5978, 119.599, 119.5976, 119.5974, 119.5998, 
  119.5973, 119.5969, 119.5973, 119.5942, 119.5939, 119.5946, 119.5943, 119.591, 119.5899, 119.5889, 
  119.5875, 119.586, 119.5858, 119.589, 119.589, 119.5884, 119.5877, 119.5854, 119.583, 119.5835, 
  119.5831, 119.5837, 119.5837, 119.5863, 119.5861, 119.5832, 119.5841, 119.5838, 119.5845, 119.5842, 
  119.5819, 119.5816, 119.5824, 119.5817, 119.58, 119.5786, 119.5763, 119.577, 119.575, 119.5711, 
  119.5651, 119.562, 119.5615, 119.5664, 119.5673, 119.566, 119.5601, 119.5601, 119.5563, 119.5584, 
  119.5615, 119.5623, 119.5645, 119.5661, 119.5671, 119.5687, 119.5717, 119.5724, 119.5747, 119.5743, 
  119.5765, 119.572, 119.5751, 119.5725, 119.564, 119.5631, 119.5624, 119.5625, 119.5614, 119.5625, 
  119.5621, 119.5652, 119.5655, 119.5628, 119.5623, 119.5657, 119.5668, 119.5682, 119.5691, 119.5688, 
  119.5722, 119.573, 119.5749, 119.5764, 119.5774, 119.5782, 119.5789, 119.5795, 119.5814, 119.5836, 
  119.5856, 119.5869, 119.5908, 119.5921, 119.5935, 119.5951, 119.5943, 119.596, 119.5962, 119.5999, 
  119.6022, 119.6018, 119.6, 119.6005, 119.603, 119.5998, 119.5993, 119.5961, 119.5945, 119.5971, 
  119.5991, 119.5984, 119.5966, 119.5959, 119.5933, 119.5914, 119.5919, 119.59, 119.5881, 119.5864, 
  119.5852, 119.5853, 119.5827, 119.5806, 119.5803, 119.5798, 119.5774, 119.5772, 119.5755, 119.5758, 
  119.5743, 119.5733, 119.5717, 119.5721, 119.5743, 119.5745, 119.5735, 119.5735, 119.5728, 119.572, 
  119.5721, 119.5709, 119.5683, 119.5658, 119.5644, 119.566, 119.5633, 119.5609, 119.5597, 119.5614, 
  119.5585, 119.5549, 119.5547, 119.5573, 119.5566, 119.5571, 119.5568, 119.5512, 119.5518, 119.5508, 
  119.5514, 119.5522, 119.5479, 119.5487, 119.5492, 119.5485, 119.5476, 119.5466, 119.5469, 119.5455, 
  119.5453, 119.5433, 119.5427, 119.5424, 119.5426, 119.5413, 119.5414, 119.5405, 119.5403, 119.5413, 
  119.5412, 119.5439, 119.5452, 119.5484, 119.5497, 119.5502, 119.5494, 119.5481, 119.5489, 119.55, 
  119.5525, 119.554, 119.5533, 119.557, 119.5589, 119.561, 119.5634, 119.5694, 119.5726, 119.5739, 
  119.5706, 119.5708)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_3 <- st_union(MGeo_3, MGeo)
LATITUDE_VALUEs <- c(
  20.73269, 20.71873, 20.6956, 20.66686, 20.6471, 20.61159, 20.60203, 20.59423, 20.58933, 20.58981, 
  20.59367, 20.60195, 20.61861, 20.63685, 20.64901, 20.6654, 20.67744, 20.69764, 20.71671, 20.74015, 
  20.75998, 20.77402, 20.77755, 20.779, 20.77675, 20.77763, 20.77723, 20.77233, 20.77068, 20.76525, 
  20.76324, 20.76133, 20.75403, 20.75319, 20.75078, 20.74633, 20.73834)
LONGITUDE_VALUEs <- c(
  116.7095, 116.7073, 116.6967, 116.6943, 116.6963, 116.731, 116.7515, 116.7733, 116.7957, 116.8184, 
  116.8408, 116.8609, 116.8867, 116.902, 116.9107, 116.9184, 116.9223, 116.9216, 116.9183, 116.9105, 
  116.9008, 116.8881, 116.8812, 116.8698, 116.8478, 116.82, 116.8027, 116.777, 116.77, 116.7579, 
  116.7497, 116.7452, 116.7364, 116.7302, 116.7245, 116.7192, 116.713)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_3 <- st_union(MGeo_3, MGeo)
MGeo_3 <- MGeo_3 %>%
  mutate(NAME = "TAIWAN (PROVINCE OF CHINA)", VISUALIZATION_NAME = "Taiwan (Province of China)",
         ISO2 = "TW", ISO3 = "TWN", M49_CODE = "158", SOVRN = "Taiwan (Province of China)", CONTINENT = "ASIA",
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "CHINA")
Geo_2 <- GeoDATA %>% filter(NAME == "VIET NAM")
Geo_3 <- GeoDATA %>% filter(NAME == "DEM. PEOPLE'S REPUBLIC OF KOREA")

##### COUNTRIE(s) from Global Administrative Areas (GADM) #####
Geo_0 <- GeoDATA_from_GADM_level_0_low_resolution %>% filter(NAME == "Taiwan")

##### TAIWAN (PROVINCE OF CHINA) #####
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_0 <- st_union(Geo_0[c(23, 58:59, 62, 64:65), ])
LATITUDE_VALUEs <- c(22.36878, 
  22.32194, 22.32416, 22.32469, 22.32637, 22.33312, 22.33536, 22.33632, 22.33735, 22.33697, 22.33757, 
  22.34061, 22.34901, 22.35141, 22.35561, 22.35765, 22.36023, 22.36195, 22.36491, 22.37563, 22.38052)
LONGITUDE_VALUEs <- c(120.84905,
  120.8921, 120.8924, 120.8931, 120.8937, 120.8945, 120.8962, 120.8952, 120.8961, 120.898, 120.8997, 
  120.8997, 120.9015, 120.9025, 120.905, 120.9073, 120.9109, 120.9094, 120.9096, 120.9118, 120.9132)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(22.45091, 22.45591, 22.46388, 22.45930)
LONGITUDE_VALUEs <- c(120.9433, 120.9469, 120.9475, 120.93900)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(22.52396, 22.52596, 22.52911)
LONGITUDE_VALUEs <- c(120.9667, 120.9697, 120.9687)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(22.75611, 22.76292, 22.77594, 22.76709)
LONGITUDE_VALUEs <- c(121.1723, 121.1785, 121.1785, 121.16491)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(23.31305, 23.31183, 23.31309, 23.31627)
LONGITUDE_VALUEs <- c(121.4535, 121.4564, 121.4618, 121.45749)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(23.45764, 23.46909, 23.4701)
LONGITUDE_VALUEs <- c(121.5001, 121.504, 121.4817)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(23.98312, 23.98437, 24.00546, 24.00852, 23.99147)
LONGITUDE_VALUEs <- c(121.6278, 121.6347, 121.6423, 121.6337, 121.624)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(24.58633, 24.5859, 24.59357, 24.59517)
LONGITUDE_VALUEs <- c(121.8748, 121.8752, 121.8841, 121.8783)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_difference(Geo_0, Geo)
LATITUDE_VALUEs <- c(24.70634, 24.70969, 24.71415, 24.73211, 24.7124)
LONGITUDE_VALUEs <- c(121.8367, 121.8373, 121.8366, 121.826, 121.8208)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  24.85473, 24.85796, 24.85808, 24.85962, 24.86014, 24.86162, 24.86485, 24.86557, 24.86801, 24.87071, 
  24.8757, 24.88393, 24.8719)
LONGITUDE_VALUEs <- c(
  121.8316, 121.8351, 121.8368, 121.8366, 121.8378, 121.8372, 121.8385, 121.8412, 121.8415, 121.8427, 
  121.8435, 121.8473, 121.8171)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  24.94942, 24.94905, 24.95062, 24.95077, 24.95173, 24.95215, 24.95379, 24.95383, 24.95555, 24.95599, 
  24.95759, 24.95846, 24.96169, 24.96121)
LONGITUDE_VALUEs <- c(
  121.9089, 121.9105, 121.9105, 121.9122, 121.9145, 121.9169, 121.918, 121.9188, 121.9197, 121.9187, 
  121.9182, 121.9198, 121.9224, 121.9051)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  24.98325, 24.98242, 24.98311, 24.9827, 24.98538, 24.98582, 24.98468, 24.98649, 24.98742, 24.98769, 
  24.99218, 24.99131, 24.9916, 24.99134, 24.99176, 24.99138, 24.99609, 24.99864, 24.9996, 24.99991)
LONGITUDE_VALUEs <- c(
  121.9616, 121.9642, 121.9658, 121.967, 121.9677, 121.969, 121.9709, 121.9735, 121.9735, 121.9754, 
  121.9779, 121.981, 121.9818, 121.9825, 121.983, 121.9837, 121.9866, 121.9928, 121.9937, 121.9669)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(25.01283, 25.01485, 25.01532, 25.01427, 25.01586, 25.01621, 25.01956, 25.01917, 25.01431)
LONGITUDE_VALUEs <- c(122.0048, 122.0054, 122.0048, 122.0019, 122.0015, 121.9999, 121.9996, 121.9965, 121.9933)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(25.02044, 25.02453, 25.02569, 25.03417, 25.04331, 25.00054, 25.01904)
LONGITUDE_VALUEs <- c(121.9462, 121.942, 121.9393, 121.9323, 121.9285, 121.9297, 121.951)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  25.13309, 25.13408, 25.13323, 25.13574, 25.13625, 25.13805, 25.13923, 25.14219, 25.14257, 25.14469, 
  25.14497, 25.14571, 25.14658, 25.14645, 25.1467, 25.1465, 25.14735, 25.14751, 25.1481, 25.14841, 
  25.14879, 25.14828, 25.14728, 25.14749, 25.14813, 25.14793, 25.14727, 25.1485, 25.14834, 25.15015, 
  25.15172, 25.15172, 25.15281, 25.15507, 25.1547, 25.15576, 25.15898, 25.16026, 25.15997, 25.16061, 
  25.16188, 25.16184, 25.16257, 25.16361, 25.16375, 25.16065, 25.16138, 25.16105, 25.15991, 25.15961, 
  25.15904, 25.15875, 25.15753, 25.15782, 25.15421, 25.15285, 25.15243, 25.15107, 25.15138, 25.1541, 
  25.15387, 25.15253, 25.15321, 25.13615, 25.125)
LONGITUDE_VALUEs <- c(
  121.8169, 121.8139, 121.8083, 121.8056, 121.8029, 121.8044, 121.8025, 121.8024, 121.8035, 121.8044, 
  121.806, 121.8058, 121.8065, 121.8069, 121.8073, 121.8078, 121.808, 121.8068, 121.8067, 121.8069, 
  121.806, 121.8054, 121.7997, 121.7975, 121.7967, 121.7932, 121.7931, 121.7909, 121.7887, 121.7838, 
  121.7822, 121.7775, 121.7759, 121.7738, 121.7696, 121.7706, 121.7799, 121.7722, 121.7703, 121.7695, 
  121.7694, 121.7674, 121.7673, 121.7651, 121.7631, 121.7615, 121.7595, 121.7574, 121.7571, 121.7562, 
  121.7564, 121.7573, 121.7579, 121.7596, 121.7595, 121.7611, 121.761, 121.7625, 121.763, 121.7633, 
  121.7684, 121.7694, 121.7676, 121.7797, 121.8113)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(25.18026, 25.18201, 25.18079, 25.17795)
LONGITUDE_VALUEs <- c(121.6996, 121.6966, 121.6907, 121.6963)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  25.20271, 25.20573, 25.20243, 25.20706, 25.20938, 25.20876, 25.21339, 25.22355, 25.2257, 25.22648, 
  25.22924, 25.23013, 25.23327, 25.23141, 25.23145, 25.23069, 25.23056, 25.23522, 25.2402, 25.19631, 
  25.19088)
LONGITUDE_VALUEs <- c(
  121.6792, 121.6777, 121.6721, 121.6646, 121.6638, 121.6617, 121.6559, 121.6496, 121.6507, 121.652, 
  121.6538, 121.6516, 121.6517, 121.6485, 121.6462, 121.6457, 121.6444, 121.6378, 121.6336, 121.6338, 
  121.675)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(25.29185, 25.29092, 25.29201, 25.29548, 25.28906, 25.28926)
LONGITUDE_VALUEs <- c(121.5531, 121.5507, 121.5464, 121.5392, 121.5413, 121.55268)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  25.28474, 25.28425, 25.28569, 25.28429, 25.28296, 25.28005, 25.27993, 25.27844, 25.27721, 25.27502, 
  25.27273, 25.27089, 25.27062, 25.26862, 25.27161)
LONGITUDE_VALUEs <- c(
  121.5212, 121.5182, 121.5128, 121.5101, 121.5101, 121.5061, 121.505, 121.5031, 121.4963, 121.4948, 
  121.4885, 121.4848, 121.4825, 121.4814, 121.5099)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  25.2602, 25.25781, 25.25514, 25.2511, 25.25118, 25.25038, 25.25017, 25.24945, 25.24933, 25.25133, 
  25.24158, 25.24756)
LONGITUDE_VALUEs <- c(
  121.4759, 121.4725, 121.4739, 121.4682, 121.4671, 121.4669, 121.4642, 121.4624, 121.4585, 121.456, 
  121.4544, 121.4797)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  25.19246, 25.18874, 25.18815, 25.18334, 25.18072, 25.17062, 25.17107, 25.16932, 25.1614, 25.17196, 
  25.17192, 25.15906, 25.1584, 25.15467, 25.15996, 25.1563, 25.16539, 25.16174, 25.15801, 25.1556, 
  25.15304, 25.1537, 25.15502, 25.15643, 25.15332, 25.15435, 25.15627, 25.15788, 25.1548, 25.14967, 
  25.15155, 25.18915)
LONGITUDE_VALUEs <- c(
  121.4193, 121.4142, 121.4084, 121.4049, 121.419, 121.4162, 121.4149, 121.4108, 121.3992, 121.3872, 
  121.3731, 121.3447, 121.3559, 121.358, 121.3697, 121.3717, 121.3931, 121.3975, 121.3935, 121.3948, 
  121.392, 121.3912, 121.3926, 121.391, 121.3875, 121.3863, 121.3884, 121.3865, 121.3833, 121.3891, 
  121.4442, 121.4435)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(25.12364, 25.12442, 25.12605, 25.12617, 25.12395, 25.1238, 25.11599)
LONGITUDE_VALUEs <- c(121.3239, 121.317, 121.3162, 121.3045, 121.304, 121.2988, 121.314)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  25.12236, 25.11728, 25.11857, 25.12234, 25.1209, 25.12164, 25.12008, 25.11934, 25.12114, 25.12107, 
  25.11949, 25.11942, 25.11664, 25.11446, 25.09223)
LONGITUDE_VALUEs <- c(
  121.3153, 121.2861, 121.2736, 121.2605, 121.2573, 121.249, 121.2492, 121.2467, 121.2455, 121.2415, 
  121.2417, 121.2407, 121.2425, 121.2322, 121.267)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
if (st_is_valid(Geo_0) == FALSE) {Geo_0 <- st_make_valid(Geo_0)}
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  25.09217, 25.08924, 25.08539, 25.08467, 25.07939, 25.07422, 25.06847, 25.06513, 25.05276, 25.04503, 
  25.04522, 25.04137, 25.03733, 25.03515, 25.03332, 25.02889, 25.02959, 25.02702, 25.02555, 25.01458, 
  25.00894, 25.0047, 24.99432, 24.99109, 24.99074, 24.98852, 24.9865, 24.96938, 25.01178)
LONGITUDE_VALUEs <- c(
  121.1814, 121.1753, 121.1723, 121.1672, 121.1532, 121.1251, 121.111, 121.0998, 121.0841, 121.0695, 
  121.0674, 121.0544, 121.0519, 121.0467, 121.0464, 121.0418, 121.0407, 121.038, 121.0392, 121.0298, 
  121.0277, 121.0237, 121.0177, 121.0147, 121.0086, 121.0103, 121.0159, 121.0123, 121.1351)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(24.87019, 24.85201, 24.85232, 24.84794, 24.84523, 24.84461, 24.8377, 24.83486, 24.81967, 24.85487)
LONGITUDE_VALUEs <- c(120.9454, 120.9281, 120.9235, 120.9191, 120.9182, 120.919, 120.9175, 120.9157, 120.9721, 120.9824)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  24.80985, 24.80549, 24.7952, 24.7864, 24.77985, 24.76575, 24.76465, 24.75803, 24.74736, 24.74097, 
  24.734, 24.73649, 24.79151)
LONGITUDE_VALUEs <- c(
  120.9186, 120.9097, 120.9141, 120.9129, 120.9141, 120.9116, 120.9014, 120.9056, 120.9024, 120.8872, 
  120.8784, 120.9575, 120.9565)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(24.50271, 24.49052, 24.48279, 24.45942, 24.45653, 24.47847)
LONGITUDE_VALUEs <- c(120.6739, 120.6656, 120.6651, 120.6458, 120.6461, 120.6919)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(24.36873, 24.35419, 24.33847, 24.3509)
LONGITUDE_VALUEs <- c(120.5826, 120.5647, 120.5586, 120.5883)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  24.30819, 24.31414, 24.31257, 24.30819, 24.29849, 24.29356, 24.29129, 24.29317, 24.28644, 24.28834, 
  24.28498, 24.28357, 24.28126, 24.27006, 24.30589)
LONGITUDE_VALUEs <- c(
  120.5379, 120.5269, 120.5225, 120.5236, 120.5167, 120.5083, 120.5124, 120.5199, 120.5189, 120.5366, 
  120.5354, 120.5233, 120.5226, 120.5667, 120.5647)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(24.23718, 24.24078, 24.21558, 24.21049)
LONGITUDE_VALUEs <- c(120.4827, 120.4722, 120.4608, 120.4743)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(24.08601, 24.08507, 24.0578, 24.05733)
LONGITUDE_VALUEs <- c(120.426, 120.3759, 120.3644, 120.4286)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  23.86041, 23.85711, 23.8513, 23.84785, 23.8323, 23.83018, 23.83199, 23.82806, 23.83168, 23.82563, 
  23.8334, 23.8199, 23.82304, 23.80042, 23.78676, 23.77125, 23.76484, 23.75856, 23.75746, 23.73703, 
  23.73868, 23.71668, 23.71676, 23.76272, 23.8513)
LONGITUDE_VALUEs <- c(
  120.2528, 120.2498, 120.2562, 120.2565, 120.2865, 120.2846, 120.2733, 120.264, 120.2483, 120.2435, 
  120.2226, 120.2218, 120.2044, 120.1704, 120.1591, 120.1619, 120.166, 120.1627, 120.1806, 120.173, 
  120.1565, 120.1526, 120.1708, 120.296, 120.3262)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  23.66824, 23.65794, 23.6537, 23.64922, 23.62169, 23.61996, 23.61729, 23.61556, 23.61202, 23.59788, 
  23.59772, 23.59442, 23.59194, 23.58882, 23.64887)
LONGITUDE_VALUEs <- c(
  120.1561, 120.1456, 120.1475, 120.1432, 120.1389, 120.1348, 120.1379, 120.1356, 120.1413, 120.1409, 
  120.1445, 120.1445, 120.1413, 120.1591, 120.1726)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(23.46992, 23.46685, 23.4648, 23.45984, 23.45811, 23.45401, 23.45149, 23.44748, 23.45716, 23.46793)
LONGITUDE_VALUEs <- c(120.1438, 120.1439, 120.1464, 120.144, 120.1389, 120.1345, 120.1332, 120.1354, 120.1553, 120.1586)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(23.44811, 23.43866, 23.42787, 23.42854, 23.43807)
LONGITUDE_VALUEs <- c(120.1562, 120.1471, 120.1452, 120.1596, 120.1666)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  23.39329, 23.38892, 23.39081, 23.38447, 23.38447, 23.37438, 23.3591, 23.35047, 23.34243, 23.34145, 
  23.33707, 23.33668, 23.33258, 23.32809, 23.32564, 23.32261, 23.3262, 23.32545, 23.32188, 23.31047, 
  23.3007, 23.29762, 23.29419, 23.29502, 23.29289, 23.28572, 23.26806, 23.25785, 23.23947, 23.23597, 
  23.23467, 23.22852, 23.22603, 23.22049, 23.21479, 23.21474, 23.213, 23.21138, 23.20898, 23.20762, 
  23.20205, 23.18135, 23.15531, 23.10396, 23.0648, 23.05564, 23.0539, 23.04126, 23.01899, 22.99565, 
  22.98703, 22.98261, 22.9815, 22.9766, 22.97439, 22.96894, 22.97099, 22.96396, 22.94025, 22.9231, 
  22.91487, 22.86174, 22.85786, 22.8479, 22.84987, 22.81681, 22.80233, 22.763, 22.74013, 22.73753, 
  22.7173, 22.69799, 22.69605, 22.69304, 22.68956, 22.68765, 22.67411, 22.669, 22.66877, 22.6665, 
  22.66567, 22.664, 22.66276, 22.66066, 22.6564, 22.65531, 22.65268, 22.65121, 22.65046, 22.65046, 
  22.64805, 22.64603, 22.63606, 22.63379, 22.63064, 22.63032, 22.62719, 22.62452, 22.62402, 22.62343, 
  22.62299, 22.62161, 22.61398, 22.61265, 22.61024, 22.61139, 22.59879, 22.56485, 22.56104, 22.55684, 
  22.55542, 22.55369, 22.55285, 22.5536, 22.55126, 22.54702, 22.5278, 22.52431, 22.53541, 22.53275, 
  22.54096, 22.53838, 22.51472, 22.52871, 22.52482, 22.52205, 22.50825, 22.50877, 22.50679, 22.50774, 
  22.50754, 23.12633)
LONGITUDE_VALUEs <- c(
  120.1636, 120.1604, 120.1554, 120.1505, 120.1313, 120.1316, 120.1288, 120.1217, 120.1173, 120.1255, 
  120.1265, 120.1234, 120.121, 120.1226, 120.1269, 120.1281, 120.1175, 120.1158, 120.1164, 120.1118, 
  120.1054, 120.109, 120.1024, 120.0996, 120.0973, 120.0961, 120.0961, 120.0952, 120.0858, 120.0878, 
  120.083, 120.0822, 120.0835, 120.0831, 120.0792, 120.0761, 120.0741, 120.0738, 120.0757, 120.0798, 
  120.0793, 120.0672, 120.0687, 120.0345, 120.0357, 120.0407, 120.0711, 120.067, 120.1085, 120.1399, 
  120.1491, 120.1496, 120.1537, 120.1559, 120.154, 120.1568, 120.1647, 120.1623, 120.1736, 120.1746, 
  120.1742, 120.1934, 120.1889, 120.1929, 120.197, 120.2091, 120.2138, 120.2332, 120.2452, 120.2452, 
  120.2562, 120.2621, 120.2598, 120.2628, 120.2613, 120.2638, 120.2636, 120.2593, 120.2564, 120.2549, 
  120.252, 120.2508, 120.2506, 120.2516, 120.2502, 120.2508, 120.2506, 120.2501, 120.2502, 120.2508, 
  120.2515, 120.2513, 120.2561, 120.2593, 120.26, 120.2613, 120.2629, 120.2626, 120.2613, 120.2618, 
  120.2609, 120.2655, 120.2624, 120.2632, 120.2631, 120.2648, 120.2754, 120.3034, 120.3038, 120.3076, 
  120.306, 120.3063, 120.3072, 120.3133, 120.3168, 120.3138, 120.3218, 120.3167, 120.3076, 120.3038, 
  120.297, 120.293, 120.3124, 120.3334, 120.3371, 120.3343, 120.3513, 120.3539, 120.3539, 120.357, 
  120.3606, 120.636)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_0 <- st_union(st_geometry(MGeo_3), st_geometry(Geo_0))
if (length(Geo_0) > 1) {Geo_0 <- Geo_0[st_geometry_type(Geo_0) %in% c("POLYGON", "MULTIPOLYGON")]}
MGeo_3 <- st_set_geometry(MGeo_3, Geo_0) %>%
  mutate(SOURCE = paste(SOURCE, "and Global Administrative Areas (GADM)"))
if (st_is_valid(MGeo_3) == FALSE) {MGeo_3 <- st_make_valid(MGeo_3)}

##### CHINA #####
Geo_0 <- Geometric_Operations(Geo_1, MGeo_1)
Geo_0 <- Geometric_Operations(Geo_0, MGeo_2)
Geo_0 <- Geometric_Operations(Geo_0, MGeo_3)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_union(Geo_0[76]))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
LATITUDE_VALUEs <- c(
  22.40047, 22.40107, 22.40611, 22.40746, 22.41035, 22.41091, 22.41988, 22.42476, 22.42547, 22.43007, 
  22.42829, 22.43257, 22.43174, 22.43443, 22.42793, 22.43142, 22.42527, 22.42757, 22.42666, 22.42801, 
  22.42598, 22.42785, 22.42095, 22.42087, 22.41567, 22.41396, 22.41908, 22.4223, 22.42452, 22.42825, 
  22.43186, 22.44463, 22.44915, 22.4574, 22.46244, 22.46618, 22.46537, 22.47112, 22.47675, 22.47911, 
  22.48102, 22.47909, 22.48252, 22.48464, 22.48625, 22.48837, 22.49148, 22.49388, 22.49622, 22.49892, 
  22.50037, 22.50247, 22.50286, 22.50187, 22.50282, 22.50261, 22.50342, 22.50449, 22.50564, 22.50673, 
  22.50742, 22.50865, 22.51127, 22.51394, 22.51498, 22.51607, 22.51694, 22.51723, 22.52033, 22.52031, 
  22.52376, 22.52388, 22.52611, 22.52988, 22.53343, 22.534, 22.53604, 22.53527, 22.53815, 22.5382, 
  22.54122, 22.54427, 22.54914, 22.55759, 22.55925, 22.56666, 22.57245, 22.58315, 22.59024, 22.58953, 
  22.59313, 22.59111, 22.59341, 22.61152, 22.61714, 22.63382, 22.6358, 22.64241, 22.64352, 22.64241, 
  22.6434, 22.6461, 22.65703, 22.66713, 22.68031, 22.68534, 22.68898, 22.68978, 22.68443, 22.687, 
  22.68993, 22.69227, 22.69179, 22.69536, 22.70138, 22.70886, 22.71373, 22.71587, 22.71998, 22.72636, 
  22.73265, 22.73748, 22.74266, 22.74749, 22.75177, 22.76653, 22.7708, 22.77044, 22.7782, 22.77998, 
  22.77812, 22.77519, 22.76894, 22.76312, 22.76288, 22.75425, 22.74946, 22.74558, 22.74032, 22.73003, 
  22.729, 22.72195, 22.71372, 22.71027, 22.70608, 22.7035, 22.70572, 22.70556, 22.72175, 22.72437, 
  22.72468, 22.72789, 22.729, 22.73118, 22.73205, 22.73185, 22.72864, 22.729, 22.72199, 22.72148, 
  22.70928, 22.69534, 22.68901, 22.69692, 22.69875, 22.70318, 22.69194, 22.68022, 22.67649, 22.67309, 
  22.6658, 22.6696, 22.64695, 22.64742, 22.64497, 22.64331, 22.63348, 22.62572, 22.62287, 22.62683, 
  22.61946, 22.61217, 22.61082, 22.59876, 22.59813, 22.58545, 22.57524, 22.56716, 22.56018, 22.54457, 
  22.53632, 22.52473, 22.51173, 22.50761, 22.48842, 22.48223, 22.48471, 22.48106, 22.48296, 22.48431, 
  22.47677, 22.47939, 22.47804, 22.47305, 22.47289, 22.46964, 22.46416, 22.44267, 22.4456, 22.44584, 
  22.451, 22.44655, 22.45076, 22.46924, 22.4759, 22.48486, 22.49145, 22.51087, 22.51658, 22.51855, 
  22.526, 22.54423, 22.54043, 22.56009, 22.58402, 22.59528, 22.59756, 22.59772, 22.60231, 22.60449, 
  22.6064, 22.60826, 22.61063, 22.61876, 22.62711, 22.63068, 22.62945, 22.63143, 22.64118, 22.64177, 
  22.64454, 22.65131, 22.64613, 22.64803, 22.65907, 22.65844, 22.66007, 22.66118, 22.66458, 22.66941, 
  22.67289, 22.67117, 22.67442, 22.67315, 22.68416, 22.68843, 22.70475, 22.70601, 22.72272, 22.72929,
  22.73882, 22.78188, 22.80396, 22.81171, 22.81377, 22.80609, 22.79937, 22.78148, 22.77832, 22.7689, 
  22.76384, 22.75355, 22.73811, 22.73344, 22.71206, 22.67611, 22.65996, 22.65251, 22.64657, 22.63461, 
  22.61837, 22.61235, 22.60387, 22.59507, 22.6156, 22.61861, 22.6377, 22.64324, 22.67057, 22.68039, 
  22.70225, 22.77555, 22.7856, 22.79486, 22.78718, 22.76993, 22.76296, 22.75252, 22.74524, 22.71127, 
  22.70114, 22.69583, 22.68744, 22.69053, 22.66519, 22.6613, 22.6339, 22.61623, 22.60672, 22.59373, 
  22.58533, 22.56583, 22.56393, 22.57059, 22.54332, 22.53523, 22.53222, 22.53967, 22.52683, 22.5254, 
  22.51319, 22.50574, 22.51161, 22.50606, 22.51985, 22.51811, 22.52493, 22.5411, 22.55061, 22.5793, 
  22.62986, 22.68324, 22.69211, 22.73376, 22.75814, 22.77048, 22.78995, 22.81147, 22.81385, 22.80609, 
  22.8273, 22.82998, 22.84406, 22.83964, 22.84533, 22.83869, 22.81432, 22.77697, 22.75022, 22.74136, 
  22.74136, 22.72932, 22.73233, 22.7222, 22.69179, 22.69084, 22.70431, 22.70193, 22.72679, 22.79486, 
  22.82002, 22.83568, 22.8379, 22.84043, 22.84422, 22.8534, 22.85134, 22.83014, 22.81749, 22.81812, 
  22.83109, 22.83552, 22.84707, 22.83615, 22.83394, 22.81812, 22.82666, 22.82018, 22.82793, 22.84248, 
  22.84913, 22.85973, 22.85719, 22.90053, 22.92551, 22.92077, 22.93582, 22.94325, 22.9785, 22.9864, 
  22.99746, 22.99904, 23.0804, 23.0834, 23.11656, 23.11798, 23.1074, 23.12903, 23.12508, 23.16738, 
  23.18033, 23.17985, 23.15728, 23.15113, 23.17354, 23.19926, 23.20526, 23.20052, 23.20305, 23.21583, 
  23.2204, 23.25587, 23.26698, 23.25658, 23.24751, 23.25027, 23.25721, 23.25587, 23.26903, 23.28898, 
  23.28717, 23.27684, 23.28118, 23.27124, 23.27227, 23.2669, 23.27053, 23.26083, 23.26186, 23.27905, 
  23.28354, 23.28843, 23.2919, 23.30979, 23.31287, 23.31941, 23.32209, 23.32768, 23.33178, 23.3429, 
  23.34242, 23.33943, 23.34282, 23.35913, 23.36063, 23.38174, 23.38253, 23.39308, 23.36488, 23.34494, 
  23.31681, 23.31058, 23.31429, 23.29529, 23.28465, 23.29198, 23.29671, 23.30325, 23.30309, 23.30112, 
  23.30057, 23.27771, 23.26872, 23.22859, 23.2024, 23.18851, 23.19356, 23.18552, 23.16958, 23.15758,
  23.14873, 23.14304, 23.13231, 23.12852, 23.10152, 23.08652, 23.06773, 23.07689, 23.06631, 23.08178, 
  23.08257, 23.06283, 23.06441, 23.03614, 23.02224, 23.00296, 22.98858, 22.99632, 22.98858, 22.96851, 
  22.97025, 22.95713, 22.93358, 22.92346, 22.91634, 22.91919, 22.92709, 22.93942, 22.94496, 22.93784, 
  22.95065, 22.94116, 22.95586, 22.993, 22.99206, 23.00138, 22.98495, 22.99648, 22.98352, 22.98668, 
  22.90717, 22.88914, 22.88298, 22.87807, 22.86763, 22.87444, 22.86368, 22.87412, 22.85482, 22.867, 
  22.88155, 22.88377, 22.87459, 22.88646, 22.89499, 22.88614, 22.89231, 22.90322, 22.90338, 22.8942, 
  22.90923, 22.90148, 22.90812, 22.92962, 22.94899, 22.94843, 22.94156, 22.94251, 22.92891, 22.91903, 
  22.92472, 22.92575, 22.9335, 22.92614, 22.90891, 22.89705, 22.89183, 22.88709, 22.88598, 22.88788, 
  22.88598, 22.87981, 22.87618, 22.87459, 22.86684, 22.86542, 22.87633, 22.88899, 22.89278, 22.89167, 
  22.88804, 22.88709, 22.89136, 22.88835, 22.87839, 22.87871, 22.87096, 22.86827, 22.8254, 22.81116, 
  22.81701, 22.81511, 22.82105, 22.81899, 22.81258, 22.81377, 22.80855, 22.80309, 22.80024, 22.79644, 
  22.78322, 22.77895, 22.77189, 22.76698, 22.75448, 22.73089, 22.70793, 22.69447, 22.68544, 22.67261, 
  22.66739, 22.63681, 22.63158, 22.61764, 22.61415, 22.6067, 22.60385, 22.59418, 22.57833, 22.58499, 
  22.57437, 22.60559, 22.60512, 22.57564, 22.56391, 22.51761, 22.47479, 22.46956, 22.47606, 22.45956, 
  22.43005, 22.42212, 22.39689, 22.39466, 22.37466, 22.36324, 22.34784, 22.34117, 22.34545, 22.33894, 
  22.34355, 22.33815, 22.3399, 22.33323, 22.34006, 22.33974, 22.33418, 22.32608, 22.29511, 22.28511, 
  22.27875, 22.26525, 22.21949, 22.20694, 22.20217, 22.18214, 22.16561, 22.16291, 22.15607, 22.15448, 
  22.1195, 22.10614, 22.10185, 22.09103, 22.08435, 22.06492, 22.04392, 22.02865, 22.00382, 21.98568, 
  21.97217, 21.96461, 21.96015, 21.974, 21.97233, 21.98379, 22.00807, 22.01291, 22.00288, 21.98888, 
  21.99333, 21.98044, 21.98313, 21.97628, 21.97374, 21.97565, 21.98345, 21.98418, 21.97909, 21.98275, 
  21.98068, 21.98386, 21.98156, 21.98331, 21.9802, 21.98203, 21.972, 21.97614, 21.97423, 21.96388, 
  21.95425, 21.94072, 21.93085, 21.93172, 21.92424, 21.91922, 21.92941, 21.94104, 21.94279, 21.94685, 
  21.9521, 21.9443, 21.94685, 21.9439, 21.93769, 21.93722, 21.93156, 21.92941, 21.91317, 21.89422, 
  21.88265, 21.86398, 21.84709, 21.82988, 21.82689, 21.81653, 21.8076, 21.79406, 21.79278, 21.77525, 
  21.77603, 21.76264, 21.75769, 21.75036, 21.75227, 21.74239, 21.73473, 21.73314, 21.72118, 21.7081,
  21.70441, 21.71701, 21.7292, 21.73487, 21.73223, 21.73239, 21.7371, 21.74268, 21.74284, 21.73949, 
  21.73192, 21.7304, 21.73032, 21.72586, 21.7249, 21.71525, 21.7052, 21.69914, 21.69244, 21.68806, 
  21.68846, 21.67989, 21.67809, 21.67466, 21.67362, 21.6619, 21.63549, 21.6311, 21.62296, 21.62153, 
  21.60972, 21.60621, 21.59958, 21.59928, 21.60216, 21.59523, 21.61059, 21.61642, 21.6327, 21.6398, 
  21.65416, 21.66373, 21.65831, 21.6516, 21.64841, 21.62863, 21.624, 21.6252, 21.61379, 21.60449, 
  21.59876, 21.59858, 21.59649, 21.59663, 21.59515, 21.59743, 21.59312, 21.59036, 21.59072, 21.5932, 
  21.59416, 21.59104, 21.58937, 21.59671, 21.59914, 21.60054, 21.60413, 21.60601, 21.60756, 21.61331, 
  21.61203, 21.61678, 21.61826, 21.617, 21.61704, 21.61075, 21.61069, 21.60782, 21.60658, 21.60629, 
  21.60427, 21.60479, 21.60351, 21.60814, 21.60876, 21.60712, 21.60706, 21.61006, 21.61345, 21.61341, 
  21.61261, 21.61327, 21.6088, 21.61107, 21.61055, 21.61151, 21.61119, 21.61355, 21.61476, 21.61425, 
  21.61634, 21.61532, 21.62123, 21.62185, 21.62564, 21.62619, 21.62923, 21.63102, 21.63892, 21.64283, 
  21.64291, 21.6451, 21.64837, 21.64845, 21.65531, 21.65659, 21.65392, 21.65551, 21.65882, 21.65755, 
  21.6587, 21.65324, 21.65356, 21.65017, 21.64315, 21.64339, 21.64095, 21.64291, 21.64889, 21.65117, 
  21.65492, 21.65444, 21.65304, 21.64985, 21.64861, 21.64953, 21.64718, 21.64287, 21.64139, 21.64024, 
  21.62998, 21.62919, 21.62532, 21.62041, 21.6163, 21.61391, 21.61175, 21.60716, 21.60601, 21.60158, 
  21.5987, 21.5932, 21.58809, 21.58665, 21.59112, 21.58649, 21.58937, 21.5774, 21.56917, 21.56538, 
  21.53784, 21.53644, 21.54075, 21.5398, 21.54475, 21.54363, 21.54642, 21.54862, 21.54642, 21.54866, 
  21.5473, 21.54614,
  21.54485, 21.54574, 21.54451, 21.54077, 21.54103, 21.53756, 21.53353, 21.53447, 21.53401, 21.53567, 
  21.5404, 21.54004, 21.54099, 21.54351, 21.54401, 21.54541, 21.54864, 21.54602, 21.54726, 21.55111, 
  21.55107, 21.54004, 21.53638, 21.53281, 21.53163, 21.5304, 21.53527, 21.52521, 21.52127, 21.52143, 
  21.51982, 21.51794, 21.51626, 21.51746, 21.52355, 21.53105, 21.53373, 21.54658, 21.54898, 21.559, 
  21.56993, 21.57452, 21.56957, 21.56694, 21.56474, 21.56814, 21.5657, 21.56822, 21.57771, 21.57588, 
  21.57927, 21.58917, 21.5918, 21.59216, 21.59687, 21.60006, 21.59946, 21.60289, 21.60146, 21.60341, 
  21.5995, 21.59958, 21.60589, 21.62029, 21.62181, 21.62169, 21.6175, 21.6161, 21.61778, 21.61622, 
  21.6159, 21.61881, 21.61933, 21.6179, 21.61367, 21.61203, 21.59619, 21.58897, 21.58969, 21.58885, 
  21.5922, 21.59262, 21.59535, 21.59703, 21.59585, 21.59402, 21.5923, 21.58681, 21.5843, 21.57999, 
  21.58155, 21.58182, 21.58041, 21.57803, 21.57911, 21.57562, 21.57097, 21.56939, 21.56865, 21.56452, 
  21.56418, 21.56149, 21.55401, 21.55319, 21.54455, 21.54451, 21.54121, 21.53483, 21.53616, 21.53311, 
  21.53135, 21.52866, 21.52698, 21.52702, 21.52517, 21.52115, 21.51966, 21.51756, 21.51638, 21.51588, 
  21.51277, 21.51155, 21.51063, 21.51229, 21.50999, 21.50928, 21.50921, 21.51059, 21.51113, 21.51007, 
  21.50847, 21.50784, 21.50736, 21.50508, 21.50457, 21.50352, 21.50344, 21.50165, 21.50232, 21.50126, 
  21.50113, 21.50011, 21.50107, 21.5005, 21.49989, 21.49911, 21.50082, 21.5026, 21.50418, 21.5041, 
  21.50507, 21.50627, 21.50516, 21.50688, 21.50754, 21.50782, 21.50932, 21.51049, 21.51162, 21.51465, 
  21.51494, 21.51876, 21.52211, 21.52471, 21.5263, 21.52802, 21.53133, 21.53253, 21.53115, 21.53223, 
  21.53361, 21.53958, 21.5387, 21.5387, 21.54313, 21.54878, 21.55387, 21.55928, 21.56155, 21.56598, 
  21.57332, 21.57536, 21.58005, 21.58809, 21.59204, 21.59631, 21.59996, 21.59946, 21.59507, 21.59481, 
  21.59707, 21.59435, 21.59414, 21.59607, 21.59825, 21.6003, 21.60836, 21.60976, 21.6175, 21.6149, 
  21.61778, 21.6222, 21.62851, 21.63318, 21.64004, 21.64183, 21.64797, 21.65352, 21.66313, 21.6676, 
  21.67689, 21.68527, 21.68879, 21.68852, 21.68967, 21.68939, 21.68974, 21.69002, 21.69057, 21.68762, 
  21.68307, 21.68355, 21.6792, 21.67845, 21.67442, 21.67111, 21.66915, 21.66158, 21.64446, 21.62069, 
  21.62001, 21.60301, 21.5833, 21.56574, 21.5651, 21.55656, 21.55369, 21.57492, 21.57572, 21.58454, 
  21.58434, 21.60062, 21.60613, 21.60553, 21.61243, 21.61403, 21.62463, 21.62955, 21.63533, 21.63888, 
  21.64454, 21.64427, 21.65587, 21.65831, 21.6603, 21.66178, 21.66122, 21.6658, 21.66389, 21.66716, 
  21.66919, 21.67282, 21.68355, 21.68586, 21.68945, 21.69208, 21.6887, 21.68032, 21.67849, 21.67087, 
  21.66983, 21.65942, 21.65264, 21.64925, 21.65184, 21.65535, 21.65791, 21.65894, 21.65751, 21.65567, 
  21.65428, 21.66209, 21.66297, 21.66509, 21.6664, 21.66293, 21.66764, 21.66951, 21.66951, 21.66844, 
  21.66644, 21.66425, 21.66449, 21.66209, 21.66217, 21.6603, 21.65898, 21.65817, 21.65386, 21.65284, 
  21.65607, 21.65583, 21.65332, 21.65033, 21.64849, 21.64403, 21.64103, 21.64103, 21.63218, 21.63681, 
  21.63242, 21.63014, 21.62791, 21.62508, 21.61674, 21.62161, 21.61833, 21.61638, 21.6104, 21.60828, 
  21.6086, 21.61259, 21.6086, 21.60948, 21.60668, 21.60764, 21.61203, 21.61403, 21.60381, 21.59727, 
  21.6007, 21.59998, 21.6019, 21.59709, 21.59862, 21.60142, 21.59519, 21.58817, 21.57476, 21.57468, 
  21.55457, 21.53948, 21.53988, 21.5501, 21.55377, 21.55449, 21.54658, 21.5465, 21.55784, 21.55824, 
  21.56063, 21.56287, 21.56534, 21.56662, 21.57085, 21.57508, 21.58294, 21.58159, 21.57384, 21.57289, 
  21.57089, 21.57149, 21.57364, 21.57452, 21.58254, 21.58705, 21.58761, 21.5916, 21.59196, 21.59646, 
  21.59779, 21.60684, 21.61151, 21.61371, 21.6181, 21.62169, 21.62444, 21.62795, 21.63182, 21.63353, 
  21.63449, 21.64375, 21.65005, 21.65747, 21.66261, 21.66461, 21.67749, 21.68598, 21.70209, 21.70305, 
  21.70815, 21.69157, 21.70528, 21.71964, 21.72849, 21.72697, 21.71852, 21.7123, 21.71689, 21.7257, 
  21.72311, 21.71992, 21.72175, 21.72869, 21.73239, 21.7361, 21.73479, 21.74244, 21.75252, 21.75412, 
  21.75165, 21.75264, 21.75143, 21.75593, 21.75727, 21.76046, 21.75775, 21.76201, 21.76339, 21.766, 
  21.76635, 21.76746, 21.76866, 21.7691, 21.76842, 21.77177, 21.77157, 21.76906, 21.77069, 21.77223, 
  21.77688, 21.78056, 21.78361, 21.78917, 21.7916, 21.7973, 21.80581, 21.81198, 21.83377, 21.82995, 
  21.84182, 21.84397, 21.8515, 21.85592, 21.85039, 21.84373, 21.84214, 21.84596, 21.84664, 21.85226, 
  21.85656, 21.86413, 21.87058, 21.86938, 21.87329, 21.88304, 21.88209, 21.88312, 21.89101, 21.89364, 
  21.89782, 21.89623, 21.90729, 21.91633, 21.90262, 21.90244, 21.89429, 21.89053, 21.89445, 21.8891, 
  21.88824, 21.89236, 21.89252, 21.88844, 21.88772, 21.89021, 21.89017, 21.88468, 21.884, 21.88496, 
  21.88432, 21.87715, 21.87289, 21.86488, 21.83736, 21.83712, 21.84859, 21.84987, 21.85481, 21.86508, 
  21.86923, 21.87138, 21.8697, 21.87146, 21.86036, 21.84469, 21.83901, 21.83385, 21.83023, 21.82796, 
  21.83194, 21.8286, 21.82694, 21.82684, 21.82411, 21.82531, 21.82342, 21.8223, 21.82035, 21.82184, 
  21.81993, 21.81722, 21.81218, 21.80836, 21.80553, 21.80381, 21.79927, 21.80142, 21.79863, 21.78907, 
  21.78716, 21.77313, 21.76592, 21.76624, 21.76099, 21.7587, 21.75814, 21.75468, 21.75244, 21.7471, 
  21.74742, 21.74308, 21.74065, 21.74212, 21.75189, 21.75129, 21.75535, 21.7552, 21.74156, 21.73682, 
  21.72733, 21.72334, 21.71756, 21.72103, 21.71689, 21.71334, 21.70688, 21.70835, 21.69998, 21.69547, 
  21.69563, 21.73941, 21.73718, 21.72952, 21.71677, 21.68295, 21.66054, 21.66955, 21.71485, 21.7182, 
  21.73431, 21.73303, 21.71788, 21.70959, 21.70975, 21.69611, 21.6887, 21.6792, 21.67155, 21.66732, 
  21.66453, 21.66102, 21.67003, 21.66533, 21.66078, 21.64993, 21.64921, 21.64371, 21.64068, 21.63509, 
  21.63764, 21.6327, 21.62887, 21.61754, 21.60182, 21.60389, 21.61187, 21.61857, 21.62089, 21.6256, 
  21.63413, 21.63565, 21.63182, 21.63062, 21.62735, 21.62599, 21.61993, 21.61961, 21.62456, 21.62185, 
  21.6228, 21.62735, 21.64052, 21.65264, 21.66453, 21.67091, 21.68112, 21.69356, 21.71342, 21.72287, 
  21.74148, 21.74754, 21.76576, 21.7713, 21.77409, 21.77273, 21.77572, 21.78317, 21.77672, 21.7703, 
  21.77006, 21.76269, 21.75671, 21.74866, 21.7481, 21.75065, 21.75093, 21.7544, 21.76046, 21.75177, 
  21.74686, 21.74419, 21.74575, 21.74268, 21.73215, 21.73271, 21.72299, 21.72386, 21.71553, 21.71302, 
  21.70397, 21.6991, 21.68965, 21.68279, 21.67478, 21.67195, 21.66497, 21.65986, 21.65787, 21.66138, 
  21.65723, 21.65021, 21.63796, 21.61738, 21.59583, 21.60238, 21.60668, 21.57907, 21.58051, 21.56949, 
  21.57181, 21.56343, 21.57588, 21.57165, 21.5837, 21.57237, 21.56263, 21.5394, 21.52806, 21.52115, 
  21.50427, 21.49173, 21.48398, 21.48638, 21.47735, 21.46401, 21.44915, 21.43861, 21.43126, 21.41376, 
  21.40185, 21.42239, 21.42015, 21.42814, 21.43366, 21.44708, 21.45922, 21.45906, 21.47032, 21.48494, 
  21.48518, 21.46409, 21.45946, 21.4446, 21.43046, 21.43485, 21.44268, 21.45618, 21.46721, 21.473, 
  21.47862, 21.48102, 21.46624, 21.45897, 21.45383, 21.45031, 21.46006, 21.45411, 21.45658, 21.45379, 
  21.45574, 21.46162, 21.46441, 21.4708, 21.46737, 21.46833, 21.48087, 21.49045, 21.47751, 21.50323, 
  21.50978, 21.52095, 21.51776, 21.53868, 21.5489, 21.55656, 21.56502, 21.5738, 21.57779, 21.59072, 
  21.59519, 21.6145, 21.6161, 21.64913, 21.65488, 21.65551, 21.68072, 21.68822, 21.6946, 21.68566, 
  21.69252, 21.70241, 21.70193, 21.70879, 21.71597, 21.72171, 21.73463, 21.73303, 21.73686, 21.73526, 
  21.73208, 21.73223, 21.74053, 21.74451, 21.73463, 21.74116, 21.74085, 21.74706, 21.74706, 21.72873, 
  21.72171, 21.72458, 21.71485, 21.69173, 21.69316, 21.68295, 21.68168, 21.67354, 21.67354, 21.66716, 
  21.66556, 21.62711, 21.62839, 21.63812, 21.64307, 21.61865, 21.61323, 21.60349, 21.59823, 21.57955, 
  21.55928, 21.58434, 21.59854, 21.61195, 21.60094, 21.59823, 21.56582, 21.53469, 21.51968, 21.45802, 
  21.46904, 21.48885, 21.49876, 21.48566, 21.55113, 21.50291, 21.46649, 21.44796, 21.45754, 21.42175, 
  21.41568, 21.37508, 21.35846, 21.36037, 21.34343, 21.35654, 21.34535, 21.33, 21.21866, 21.12678, 
  21.06143, 20.93547, 20.8617, 20.79303, 20.80908, 20.81036, 20.78404, 20.74167, 20.69799, 20.69221, 
  20.67904, 20.67776, 20.66266, 20.65238, 20.63246, 20.62829, 20.63921, 20.62957, 20.57526, 20.55179, 
  20.54054, 20.49906, 20.50292, 20.48813, 20.49488, 20.4743, 20.46208, 20.43699, 20.44117, 20.45886, 
  20.46851, 20.48749, 20.48105, 20.46948, 20.45886, 20.43666, 20.4476, 20.46176, 20.4579, 20.43691, 
  20.44664, 20.42186, 20.39934, 20.38003, 20.40031, 20.41221, 20.42154, 20.43731, 20.4032, 20.40288, 
  20.35718, 20.35943, 20.34302, 20.28957, 20.26349, 20.2229, 20.22838, 20.27347, 20.27798, 20.28635, 
  20.29118, 20.26542, 20.26993, 20.28216, 20.29183, 20.28458, 20.26993, 20.25978, 20.2345, 20.24271, 
  20.23917, 20.27363, 20.26848, 20.27556, 20.27395, 20.26397, 20.26751, 20.24335, 20.25608, 20.26477, 
  20.25882, 20.26767, 20.28313, 20.28683, 20.29939, 20.30937, 20.30535, 20.33159, 20.3435, 20.36893, 
  20.3958, 20.43055, 20.48202, 20.56047, 20.56851, 20.5796, 20.5804, 20.5669, 20.56433, 20.58571, 
  20.58619, 20.5931, 20.59117, 20.6119, 20.62314, 20.6368, 20.62925, 20.63327, 20.61656, 20.60306, 
  20.58281, 20.5804, 20.58555, 20.58635, 20.57767, 20.58105, 20.6217, 20.67872, 20.6776, 20.66604, 
  20.6662, 20.66025, 20.65559, 20.64788, 20.6458, 20.66234, 20.66844, 20.66764, 20.66186, 20.6572, 
  20.64965, 20.64098, 20.64387, 20.6474, 20.64917, 20.65897, 20.6678, 20.65977, 20.65977, 20.65142, 
  20.65576, 20.64708, 20.65351, 20.65881, 20.67134, 20.66909, 20.68049, 20.66877, 20.68161, 20.6988, 
  20.74472, 20.76029, 20.73203, 20.71967, 20.71277, 20.70667, 20.71887, 20.76607, 20.82111, 20.82769, 
  20.84822, 20.83956, 20.85705, 20.84678, 20.86218, 20.90917, 20.94878, 20.96769, 20.9818, 20.98516, 
  20.99221, 20.99526, 20.9951, 21.00151, 21.01096, 21.00856, 21.01024, 21.02362, 21.02362, 21.03909, 
  21.03764, 21.04173, 21.0503, 21.05815, 21.06087, 21.05206, 21.03812, 21.01777, 21.03172, 21.0326, 
  21.05366, 21.06776, 21.06968, 21.07321, 21.0801, 21.08762, 21.101, 21.10516, 21.11133, 21.11821, 
  21.13054, 21.14303, 21.1311, 21.14567, 21.14807, 21.18281, 21.18889, 21.19786, 21.1977, 21.18921, 
  21.19049, 21.2065, 21.21226, 21.21914, 21.22058, 21.20682, 21.22186, 21.21786, 21.23098, 21.2417, 
  21.24858, 21.29465, 21.34087, 21.38084, 21.40082, 21.40161, 21.3949, 21.3989, 21.38675, 21.39314, 
  21.38467, 21.38787, 21.40961, 21.41903, 21.41472, 21.4283, 21.42878, 21.42399, 21.44891, 21.46473, 
  21.47184, 21.46297, 21.45802, 21.46489, 21.46809, 21.46313, 21.48079, 21.48206, 21.47951, 21.48142, 
  21.49253, 21.49524, 21.49021, 21.49301, 21.49093, 21.4986, 21.4831, 21.47432, 21.45451, 21.44804, 
  21.44005, 21.43821, 21.45035, 21.43405, 21.41672, 21.41536, 21.41871, 21.42175, 21.42007, 21.43717, 
  21.4315, 21.44324, 21.4744, 21.50371, 21.51345, 21.5168, 21.52375, 21.52175, 21.52638, 21.53022, 
  21.54419, 21.55153, 21.5501, 21.56335, 21.56159, 21.54562, 21.53477, 21.53237, 21.5271, 21.5271, 
  21.52239, 21.51648, 21.5156, 21.51065, 21.5045, 21.50427, 21.50722, 21.5057, 21.5081, 21.52215, 
  21.52495, 21.51936, 21.51097, 21.50706, 21.51145, 21.51041, 21.51305, 21.52622, 21.53309, 21.53457, 
  21.53341, 21.52662, 21.52866, 21.5271, 21.52195, 21.51828, 21.51812, 21.51536, 21.5162, 21.51936, 
  21.53058, 21.52914, 21.53085, 21.5303, 21.53277, 21.53273, 21.53924, 21.54139, 21.55528, 21.5568, 
  21.56518, 21.57652, 21.59495, 21.60716, 21.61722, 21.61889, 21.61818, 21.62025, 21.62859, 21.62859, 
  21.64435, 21.64674, 21.64179, 21.64315, 21.63916, 21.64091, 21.66078, 21.66644, 21.6804, 21.68184, 
  21.67362, 21.69085, 21.69625, 21.69821, 21.69669, 21.70449, 21.70449, 21.71079, 21.71461, 21.73128, 
  21.72785, 21.7359, 21.73965, 21.74631, 21.75352, 21.75934, 21.7638, 21.76054, 21.75424, 21.75017, 
  21.75488, 21.76253, 21.76819, 21.75934, 21.76117, 21.76412, 21.76731, 21.7638, 21.76428, 21.75926, 
  21.74061, 21.73845, 21.73311, 21.72849, 21.72364, 21.72705, 21.73144, 21.73463, 21.74898, 21.7477, 
  21.75264, 21.75025, 21.7418, 21.73279, 21.72195, 21.71374, 21.69827, 21.6733, 21.67442, 21.68407, 
  21.66995, 21.66899, 21.68758, 21.71868, 21.72418, 21.73997, 21.75607, 21.77034, 21.77066, 21.77496, 
  21.78277, 21.78668, 21.7984, 21.80549, 21.80676, 21.80533, 21.80198, 21.79401, 21.78987, 21.77708, 
  21.7638, 21.76046, 21.75336, 21.7473, 21.74467, 21.74085, 21.74491, 21.74467, 21.74156, 21.73805, 
  21.73247, 21.73487, 21.7355, 21.73869, 21.73726, 21.73375, 21.72825, 21.71565, 21.71174, 21.71118, 
  21.70815, 21.70648, 21.70656, 21.70512, 21.70345, 21.70305, 21.69815, 21.70281, 21.70476, 21.70385, 
  21.70756, 21.70413, 21.70728, 21.70875, 21.7113, 21.71182, 21.71015, 21.71812, 21.72, 21.7194, 
  21.7184, 21.71681, 21.71748, 21.71908, 21.71936, 21.71796, 21.71441, 21.71358, 21.71206, 21.71027, 
  21.70983, 21.71194, 21.71398, 21.7135, 21.71493, 21.71768, 21.71848, 21.72127, 21.72287, 21.72462, 
  21.72649, 21.72833, 21.72968, 21.72829, 21.72685, 21.72737, 21.72948, 21.73069, 21.72998, 21.73052, 
  21.73011, 21.7319, 21.73321, 21.73433, 21.73387, 21.73493, 21.73875, 21.74264, 21.74364, 21.74798, 
  21.75785, 21.76091, 21.76544, 21.7756, 21.78341, 21.79146, 21.79401, 21.80007, 21.80208, 21.82308, 
  21.82634, 21.81686, 21.80483, 21.80551, 21.79606, 21.79327, 21.79028, 21.7867, 21.77307, 21.77638, 
  21.7743, 21.77562, 21.77187, 21.76936, 21.76665, 21.76338, 21.76043, 21.76027, 21.75924, 21.75768, 
  21.75908, 21.76083, 21.76203, 21.76065, 21.76354, 21.76709, 21.76793, 21.76665, 21.76916, 21.77375, 
  21.7757, 21.77291, 21.77219, 21.7751, 21.77574, 21.77976, 21.78196, 21.78339, 21.78833, 21.78973, 
  21.78781, 21.78805, 21.7863, 21.78562, 21.78702, 21.79252, 21.79614, 21.81395, 21.82443, 21.82786, 
  21.82906, 21.83096, 21.83261, 21.83806, 21.83957, 21.83861, 21.83933, 21.85176, 21.85028, 21.85618, 
  21.86144, 21.87713, 21.8884, 21.89865, 21.9004, 21.89411, 21.89029, 21.88981, 21.88782, 21.8887, 
  21.89108, 21.89093, 21.89331, 21.89403, 21.8957, 21.89913, 21.9008, 21.90717, 21.91275, 21.91943, 
  21.92286, 21.94021, 21.94547, 21.943, 21.94706, 21.94834, 21.9469, 21.94754, 21.95003, 21.95596, 
  21.95604, 21.94603, 21.93719, 21.93385, 21.93361, 21.9192, 21.919, 21.91227, 21.91231, 21.8938, 
  21.88902, 21.88814, 21.88277, 21.87914, 21.87938, 21.87305, 21.87341, 21.87142, 21.87086, 21.86652, 
  21.86341, 21.85851, 21.85779, 21.856, 21.8554, 21.856, 21.85489, 21.85317, 21.85194, 21.85305, 
  21.8513, 21.85552, 21.85556, 21.86743, 21.86763, 21.86998, 21.87185, 21.86994, 21.87313, 21.87325, 
  21.87819, 21.8785, 21.88221, 21.8844, 21.88687, 21.88814, 21.88934, 21.89121, 21.89977, 21.9014, 
  21.91637, 21.91701, 21.92517, 21.92633, 21.93676, 21.93819, 21.94106, 21.94516, 21.94754, 21.94929, 
  21.95745, 21.96299, 21.96518, 21.9684, 21.96959, 21.97517, 21.98061, 21.98061, 21.99645, 21.99637, 
  21.99984, 22.0002, 22.00919, 22.01277, 22.01297, 22.02025, 22.02228, 22.03171, 22.03529, 22.0366, 
  22.03732, 22.03911, 22.04281, 22.0434, 22.04527, 22.04615, 22.05187, 22.05378, 22.06448, 22.06548, 
  22.06949, 22.07391, 22.07454, 22.07741, 22.08015, 22.079, 22.08135, 22.08294, 22.08667, 22.09204, 
  22.09988, 22.1017, 22.10401, 22.11153, 22.11646, 22.11832, 22.13868, 22.11824, 22.1475, 22.18947, 
  22.19933, 22.2149, 22.21975, 22.21736, 22.2056, 22.21061, 22.21021, 22.20648, 22.20243, 22.1936, 
  22.1479, 22.12699, 22.0951, 22.07037, 22.06949, 22.05923, 21.99323, 21.99001, 21.96271, 21.96319, 
  21.95704, 21.95885, 21.95837, 21.95125, 21.96, 21.95809, 21.94109, 21.93604, 21.93246, 21.95081, 
  21.94488, 21.92414, 21.91956, 21.91836, 21.91848, 21.91777, 21.91494, 21.91016, 21.90849, 21.90208, 
  21.9055, 21.89607, 21.89133, 21.89001, 21.88739, 21.8889, 21.88444, 21.88539, 21.88101, 21.88173, 
  21.87681, 21.8748, 21.88221, 21.8832, 21.88729, 21.88836, 21.88912, 21.89107, 21.893, 21.89449, 
  21.89587, 21.89794, 21.89911, 21.90053, 21.90092, 21.90208, 21.9067, 21.90853, 21.91064, 21.9114, 
  21.91203, 21.91504, 21.91558, 21.91866, 21.9182, 21.91609, 21.91649, 21.91791, 21.91819, 21.91856, 
  21.91888, 21.91892, 21.91854, 21.91868, 21.91899, 21.91984, 21.92069, 21.92117, 21.92209, 21.92246, 
  21.92286, 21.92403, 21.9242, 21.92375, 21.92406, 21.92422, 21.9245, 21.92448, 21.92386, 21.92387, 
  21.92463, 21.92419, 21.92642, 21.93086, 21.93418, 21.935, 21.93654, 21.93703, 21.93488, 21.93824, 
  21.94416, 21.94583, 21.94734, 21.94738, 21.94993, 21.9518, 21.95232, 22.00457, 22.00887, 22.01233, 
  22.01368, 22.01663, 22.01921, 22.02439, 22.03107, 22.0321, 22.03234, 22.0337, 22.03962, 22.04237, 
  22.04253, 22.04527, 22.04408, 22.03998, 22.04977, 22.05263, 22.04627, 22.02566, 22.02089, 22.01748, 
  22.01575, 22.01325, 22.00545, 22.00115, 22.0033, 22.0025, 22.00855, 22.00792, 22.00406, 22.00179, 
  22.00605, 22.00728, 22.0033, 22.00107, 22.00227, 22.00127, 21.99896, 21.99065, 21.98758, 21.99049, 
  21.99029, 21.98611, 21.98468, 21.98531, 21.98937, 21.99112, 21.99256, 21.99729, 22.00469, 22.00931, 
  22.0066, 22.00764, 22.00947, 22.01142, 22.01341, 22.01559, 22.01575, 22.01543, 22.01333, 22.014, 
  22.01575, 22.0216, 22.02305, 22.02564, 22.02455, 22.02788, 22.0299, 22.03451, 22.03435, 22.03525, 
  22.03483, 22.03564, 22.03606, 22.03761, 22.03982, 22.04169, 22.04271, 22.06599, 22.06647, 22.06945, 
  22.07808, 22.07621, 22.07355, 22.07152, 22.0716, 22.06834, 22.06564, 22.06249, 22.06023, 22.05669, 
  22.05458, 22.05311, 22.05565, 22.05518, 22.06114, 22.06516, 22.06516, 22.0621, 22.06516, 22.07164, 
  22.07272, 22.0757, 22.07705, 22.07701, 22.08302, 22.08477, 22.0893, 22.0986, 22.09558, 22.09498, 
  22.0749, 22.06066, 22.06277, 22.06245, 22.06377, 22.06496, 22.06627, 22.07073, 22.07295, 22.0724, 
  22.07013, 22.06707, 22.07216, 22.07287, 22.07506, 22.08154, 22.08154, 22.08425, 22.08238, 22.08266, 
  22.08429, 22.08278, 22.07876, 22.07828, 22.07645, 22.08007, 22.08234, 22.08369, 22.08457, 22.08759, 
  22.08935, 22.09066, 22.08982, 22.09176, 22.09302, 22.09514, 22.09897, 22.10242, 22.10618, 22.10958, 
  22.11073, 22.11314,
  22.11384, 22.11558, 22.12059, 22.12062, 22.12059, 22.12349, 22.12405, 22.13545, 22.13568, 22.13611, 
  22.13616, 22.14536, 22.15077, 22.15699, 22.17208, 22.17331, 22.177, 22.18215, 22.18448, 22.18654, 
  22.18792, 22.18853, 22.19451, 22.2023, 22.2067, 22.20736, 22.21231, 22.2132, 22.21344, 22.21364, 
  22.21364, 22.21304, 22.21303, 22.21309, 22.21332, 22.21324, 22.21428, 22.21631, 22.21695, 22.21692,
  22.21681, 22.21678, 22.21656, 22.21666, 22.21674, 22.21663, 22.21662, 22.21674, 22.21694, 22.21704, 
  22.21567, 22.21553, 22.21543, 22.216, 22.21223, 22.2091, 22.20818, 22.20621, 22.20409, 22.20404, 
  22.20492, 22.20612, 22.21252, 22.21277, 22.21292, 22.21338, 22.21477, 
  22.21474, 22.2143, 22.2114, 22.21764, 22.21797, 22.21849, 22.22633, 22.23172, 22.23382, 22.23468, 
  22.23416, 22.23635, 22.23649, 22.23418, 22.23444, 22.23819, 22.23889, 22.24276, 22.24111, 22.24505, 
  22.24959, 22.25547, 22.25509, 22.25617, 22.25952, 22.26183, 22.26284, 22.26483, 22.26346, 22.26489, 
  22.26286, 22.26753, 22.27912, 22.29075, 22.29901, 22.30318, 22.30338, 22.30612, 22.31315, 22.31748, 
  22.31728, 22.3162, 22.31552, 22.31534, 22.31473, 22.31491, 22.31439, 22.31483, 22.31579, 22.31522, 
  22.3166, 22.31793, 22.3178, 22.31846, 22.31849, 22.31892, 22.31887, 22.31914, 22.31973, 22.31963, 
  22.3205, 22.32046, 22.31935, 22.32034, 22.32879, 22.33102, 22.33489, 22.33703, 22.34046, 22.34723, 
  22.34987, 22.35011, 22.34842, 22.34882, 22.35205, 22.35535, 22.36204, 22.36571, 22.3669, 22.36863, 
  22.36987, 22.36948, 22.37, 22.37072, 22.37141, 22.37371, 22.37454, 22.37579, 22.37611, 22.37567, 
  22.37636, 22.37678, 22.37868, 22.37849, 22.37328, 22.3777, 22.3743, 22.38304, 22.38725, 22.39221, 
  22.3861, 22.38713, 22.39395, 22.39705, 22.41613, 22.41586, 22.427, 22.43335, 22.46706, 22.46722, 
  22.46905, 22.47115, 22.48384, 22.48681, 22.4863, 22.49331, 22.50129, 22.50522, 22.52775, 22.54591, 
  22.55867, 22.56303, 22.58134, 22.59272, 22.60065, 22.6176, 22.63868, 22.63044, 22.6035, 22.57291, 
  22.57354, 22.63075, 22.6607, 22.69443, 22.71581, 22.71415, 22.7185, 22.72769, 22.71803, 22.72242, 
  22.72171, 22.72246, 22.72597, 22.73555, 22.73428, 22.74323, 22.75059, 22.74964, 22.74323, 22.74165, 
  22.74434, 22.75368, 22.76014, 22.77455, 22.7937, 22.79718, 22.78958, 22.78388, 22.77186, 22.77154, 
  22.7771, 22.77283, 22.75993, 22.74442, 22.74323, 22.75281, 22.74663, 22.74188, 22.73389, 22.73769, 
  22.71465, 22.67935, 22.68513, 22.66664, 22.66577, 22.66101, 22.62216, 22.61994, 22.60453, 22.61055, 
  22.58733, 22.5695, 22.56669, 22.5546, 22.52471, 22.52947, 22.55344, 22.55381, 22.54992, 22.54945, 
  22.54406, 22.54335, 22.54422, 22.54448, 22.54607, 22.54654, 22.54517, 22.5443, 22.53731, 22.53267, 
  22.52724, 22.52534, 22.52541, 22.51604, 22.51473, 22.51453, 22.50235, 22.49938, 22.47416, 22.45739, 
  22.45798, 22.47039, 22.47535, 22.479, 22.47614, 22.47373, 22.47361, 22.46841, 22.46718, 22.46786, 
  22.46702, 22.4625, 22.46155, 22.45774, 22.45509, 22.44711, 22.44652, 22.4579, 22.46647, 22.46794, 
  22.46568, 22.4696, 22.47297, 22.47488, 22.47143, 22.47004, 22.47388, 22.47571, 22.47652, 22.4771, 
  22.48181, 22.4826, 22.48173, 22.48242, 22.48235, 22.48314, 22.48452, 22.48747, 22.48752, 22.48708, 
  22.48719, 22.48644, 22.48722, 22.48691, 22.48612, 22.48538, 22.48367, 22.48422, 22.48219, 22.47984, 
  22.48127, 22.48321, 22.48296, 22.48427, 22.48483, 22.48479, 22.48314, 22.4852, 22.48636, 22.48695, 
  22.48864, 22.48796, 22.48833, 22.49126, 22.49229, 22.49446, 22.49753, 22.50163, 22.50535, 22.50625, 
  22.50747, 22.50805, 22.50766, 22.50833, 22.50914, 22.50974, 22.51009, 22.51056, 22.5111, 22.51184, 
  22.5125, 22.51192, 22.51041, 22.51025, 22.51144, 22.51249, 22.51445, 22.51551, 22.51629, 22.5164, 
  22.51601, 22.51541, 22.51428, 22.51362, 22.51547, 22.51659, 22.51675, 22.51744, 22.51913, 22.52238, 
  22.52264, 22.52217, 22.52123, 22.52158, 22.52152, 22.52106, 22.52197, 22.52187, 22.52112, 22.52203, 
  22.52198, 22.52049, 22.522, 22.52235, 22.52185, 22.52321, 22.52415, 22.52298, 22.52527, 22.52757, 
  22.52816, 22.52749, 22.51936, 22.51512, 22.51207,
  22.50676, 22.50659, 22.50605, 22.5051, 22.50373, 22.5025, 22.50235, 22.50256, 22.50393, 22.50465, 
  22.50541, 22.50586, 22.50933, 22.51048, 22.51121, 22.51205, 22.51334, 22.51427, 22.51663, 22.51689, 
  22.51742, 22.51839, 22.51913, 22.51971, 22.52903, 22.5298, 22.5307, 22.53189, 22.53238, 22.53296, 
  22.53532, 22.53614, 22.53671, 22.53685, 22.53702, 22.53689, 22.53663, 22.53608, 22.5346, 22.53412, 
  22.53415, 22.53515, 22.53515, 22.53373, 22.53334, 22.53059, 22.52985, 22.52958, 22.5307, 22.53144, 
  22.53327, 22.53391, 22.53444, 22.53495, 22.53778, 22.53965, 22.53985, 22.53966, 22.53979, 22.5402, 
  22.54095, 22.54185, 22.54199, 22.54148, 22.54151, 22.54185, 22.54285, 22.54353, 22.54354, 22.54294, 
  22.54288, 22.54212, 22.54203, 22.54127, 22.54117, 22.54117, 22.54175, 22.54183, 22.5421, 22.5424, 
  22.54303, 22.54329, 22.5442, 22.54552, 22.54597, 22.54625, 22.54634, 22.54631, 22.54672, 22.54722, 
  22.54757, 22.54785, 22.54811, 22.54813, 22.54783, 22.54787, 22.54806, 22.54833, 22.54857, 22.5492, 
  22.55009, 22.55042, 22.55069, 22.55083, 22.55098, 22.55128, 22.55163, 22.55195, 22.55286, 22.55315, 
  22.55432, 22.55467, 22.55479, 22.55484, 22.55483, 22.55447, 22.55446, 22.55436, 22.5544, 22.55471, 
  22.55497, 22.55519, 22.55519, 22.55501, 22.55508, 22.55541, 22.5562, 22.5591, 22.55942, 22.56017, 
  22.56135, 22.56184, 22.56198, 22.56182, 22.56133, 22.55935, 22.55917, 22.55912, 22.5592, 22.55995,
  22.56098, 22.56124, 22.5613, 22.56122, 22.56101, 22.56083, 22.56028, 22.55991, 22.55964, 22.55959,
  22.55998, 22.56009, 22.5597, 22.5595, 22.5582, 22.55568, 22.55412, 22.5542, 22.55513, 22.55545,
  22.55524, 22.55463, 22.55472, 22.55548, 22.55561, 22.55567, 22.55561, 22.55525, 22.55482, 22.55421,
  22.55439, 22.55485, 22.55524, 22.55598, 22.55604, 22.55546, 22.55534, 22.55538, 22.55592, 22.55684,
  22.55697, 22.55663, 22.55671, 22.55695, 22.55742, 22.55751, 22.55746, 22.5572, 22.5567, 22.5561, 
  22.55694, 22.55644, 22.55641, 22.55591, 22.55648, 22.55625, 22.5561, 22.55596, 22.55575, 22.55563, 
  22.55557, 22.55535, 22.5551, 22.555, 22.55494, 22.55481, 22.55481, 22.5549, 22.5549, 22.55504, 
  22.55532, 22.5553, 22.5551, 22.55525, 22.55539, 22.55575, 22.55585, 22.55605, 22.55487, 22.5546, 
  22.55443, 22.55376, 22.5536, 22.55369, 22.55308, 22.55257, 22.55227, 22.55194, 22.55172, 22.55163, 
  22.55162, 22.55128, 22.55095, 22.55099, 22.55101, 22.55097, 22.55089, 22.55018, 22.54939, 22.54851, 
  22.5482, 22.54802, 22.54704, 22.54604, 22.54531, 22.5452, 22.5442, 
  22.54397, 22.54574, 22.54624, 22.54821, 22.54829, 22.54885, 22.55357, 22.55975, 22.557, 22.55741, 
  22.55687, 22.5628, 22.56667, 22.57014, 22.5705, 22.57091, 22.56622, 22.57595, 22.56638, 22.56708, 
  22.56672, 22.58339, 22.58179, 22.58368, 22.58311, 22.58348, 22.58352, 22.58395, 22.58415, 22.58468, 
  22.58426, 22.58527, 22.58903, 22.58925, 22.58896, 22.58901, 22.58868, 22.58787, 22.58734, 22.58691, 
  22.58778, 22.58774, 22.5873, 22.58527, 22.58277, 22.58213, 22.57312, 22.57288, 22.58309, 22.58363, 
  22.58393, 22.58491, 22.58577, 22.58619, 22.58698, 22.58754, 22.58783, 22.58864, 22.58912, 22.58949, 
  22.58985, 22.59026, 22.59082, 22.59154, 22.59267, 22.5968, 22.5979, 22.59836, 22.59901, 22.59957, 
  22.60098, 22.6011, 22.60108, 22.6001, 22.59922, 22.59933, 22.59907, 22.59843, 22.598, 22.59729, 
  22.59774, 22.59773, 22.59884, 22.59874, 22.59817, 22.59841, 22.59934, 22.60036, 22.60095, 22.60147, 
  22.60259, 22.6041, 22.60504, 22.60441, 22.60441, 22.60155, 22.59892, 22.59744, 22.59565, 22.59417, 
  22.59402, 22.59417, 22.59387, 22.59436, 22.59427, 22.59467, 22.5955, 22.59578, 22.59703, 22.59779, 
  22.59768, 22.59885, 22.59883, 22.59999, 22.60226, 22.60234, 22.60312, 22.60245, 22.60496, 22.60654, 
  22.60711, 22.60854, 22.60929, 22.61065, 22.60985, 22.60939, 22.60888, 22.60748, 22.60734, 22.60942, 
  22.61145, 22.61328, 22.61321, 22.6142, 22.61467, 22.61403, 22.61343, 22.61106, 22.61115, 22.61032, 
  22.611, 22.611, 22.6121, 22.61221, 22.61027, 22.61041, 22.6094, 22.60862, 22.6069, 22.60434, 
  22.60518, 22.6043, 22.60181, 22.59957, 22.59765, 22.59581, 22.59256, 22.59151, 22.59307, 22.58972, 
  22.58544, 22.58366, 22.5835, 22.58093, 22.58073, 22.57708, 22.57383, 22.57213, 22.57043, 22.57118, 
  22.56975, 22.56745, 22.56686, 22.56527, 22.56258, 22.55834, 22.55798, 22.55648, 22.55545, 22.55382, 
  22.55168, 22.5495, 22.54982, 22.54891, 22.55045, 22.54883, 22.54352, 22.54322, 22.5405, 22.5385, 
  22.53656, 22.53616, 22.53686, 22.53553, 22.53386, 22.53432, 22.5342, 22.53238, 22.53212, 22.53028, 
  22.52845, 22.52691, 22.52401, 22.52245, 22.51971, 22.51781, 22.51618, 22.5145, 22.51414, 22.51325, 
  22.51083, 22.51105, 22.5101, 22.50931, 22.50752, 22.50613, 22.50615, 22.50475, 22.50376, 22.5029, 
  22.50155, 22.49974, 22.49888, 22.49783, 22.4964, 22.49388, 22.49197, 22.49224, 22.49055, 22.4891, 
  22.4875, 22.48746, 22.48551, 22.48387, 22.48308, 22.48067, 22.47832, 22.47739, 22.47581, 22.47428, 
  22.47307, 22.47204, 22.47151, 22.46961, 22.46824, 22.46882, 22.46803, 22.46827, 22.46574, 22.46227, 
  22.46203, 22.459, 22.45789, 22.45738, 22.45558, 22.45275, 22.45219, 22.45102, 22.4502, 22.4504, 
  22.45126, 22.45171, 22.45061, 22.45105, 22.45036, 22.45048, 22.45217, 22.45218, 22.45161, 22.45206, 
  22.45192, 22.45285, 22.45393, 22.45359, 22.45399, 22.45715, 22.45781, 22.46223, 22.46328, 22.46355, 
  22.46302, 22.46322, 22.46427, 22.46562, 22.46708, 22.46689, 22.46846, 22.47035, 22.47196, 22.47481, 
  22.47546, 22.47773, 22.48021, 22.48329, 22.48449, 22.48448, 22.4828, 22.48256, 22.48116, 22.47927, 
  22.47862, 22.47857, 22.47736, 22.47761, 22.47835, 22.48145, 22.48177, 22.48163, 22.48314, 22.48323, 
  22.48439, 22.48413, 22.48333, 22.48572, 22.48526, 22.48643, 22.48567, 22.48692, 22.4864, 22.4873, 
  22.48649, 22.48712, 22.4888, 22.4891, 22.49258, 22.49412, 22.49413, 22.49301, 22.49343, 22.4931, 
  22.49248, 22.49256, 22.49207, 22.49212, 22.49623, 22.49709, 22.49693, 22.496, 22.49648, 22.49741, 
  22.49865, 22.49732, 22.49784, 22.49923, 22.50034, 22.5012, 22.50218, 22.50191, 22.50294, 22.50458, 
  22.50699, 22.50807, 22.50879, 22.5088, 22.50964, 22.51307, 22.51544, 22.52437, 22.53111, 22.53555, 
  22.53904, 22.54498, 22.54348, 22.54145, 22.54292, 22.54258, 22.54455, 22.54542, 22.54796, 22.54839, 
  22.55842, 22.5585, 22.56214, 22.56306, 22.56369, 22.56422, 22.56676, 22.5671, 22.56975, 22.57059, 
  22.57051, 22.57146, 22.57064, 22.56872, 22.56882, 22.56811, 22.57076, 22.56953, 22.56563, 22.56896, 
  22.56815, 22.56668, 22.56579, 22.56494, 22.56004, 22.55782, 22.55691, 22.55566, 22.55463, 22.55243, 
  22.55596, 22.55731, 22.57007, 22.58025, 22.58564, 22.5919, 22.59448, 22.59476, 22.59333, 22.59262, 
  22.5904, 22.59071, 22.59262, 22.59056, 22.59412, 22.59335, 22.59472, 22.59321, 22.59753, 22.59884, 
  22.60086, 22.61635, 22.61718, 22.62025, 22.62457, 22.62595, 22.62887, 22.63057, 22.63251, 22.63538, 
  22.63946, 22.6412, 22.64342, 22.64814, 22.65027, 22.65142, 22.65103, 22.65233, 22.65425, 22.65439, 
  22.65358, 22.65435, 22.6553, 22.65598, 22.65703, 22.65588, 22.65851, 22.65816, 22.66077, 22.66055, 
  22.65713, 22.6575, 22.66097, 22.66079, 22.65798, 22.65782, 22.65433, 22.65255, 22.65362, 22.65206, 
  22.65463, 22.65194, 22.65257, 22.65089, 22.65259, 22.65121, 22.65319, 22.65154, 22.65627, 22.65021, 
  22.64641, 22.64903, 22.65532, 22.66047, 22.66392, 22.66499, 22.66665, 22.66645, 22.67307, 22.6752, 
  22.67615, 22.67817, 22.68035, 22.68035, 22.6811, 22.68312, 22.68443, 22.68217, 22.68245, 22.68031, 
  22.68102, 22.68324, 22.68296, 22.68744, 22.68926, 22.69389, 22.69429, 22.69544, 22.69556, 22.69726, 
  22.69928, 22.69813, 22.70001, 22.70136, 22.7026, 22.70379, 22.70892, 22.71032, 22.71074, 22.71199, 
  22.71596, 22.71616, 22.71343, 22.70371, 22.70142, 22.69579, 22.69563, 22.69128, 22.6912, 22.70175, 
  22.705, 22.70658, 22.70983, 22.70977, 22.71816, 22.72525, 22.72889, 22.72608, 22.72655, 22.73304, 
  22.75458, 22.76866, 22.77072, 22.76977, 22.77492, 22.77832, 22.77737, 22.78045, 22.7837, 22.78686, 
  22.79106, 22.7928, 22.79327, 22.79015, 22.79509, 22.79569, 22.79375, 22.7871, 22.78431, 22.78243, 
  22.77719, 22.77818, 22.77719, 22.7802, 22.78469, 22.78675, 22.7856, 22.78853, 22.78963, 22.79047, 
  22.79515, 22.79703, 22.80311, 22.80514, 22.80821, 22.81305, 22.8193, 22.82555, 22.82484, 22.82769, 
  22.83236, 22.82801, 22.825, 22.81677, 22.82055, 22.82658, 22.82753, 22.82002, 22.81535, 22.81147, 
  22.79177, 22.78315, 22.77586, 22.77666, 22.7613, 22.75877, 22.74246, 22.73502, 22.73138, 22.72845, 
  22.72465, 22.72481, 22.71887, 22.71507, 22.711, 22.70838, 22.70537, 22.703, 22.70197, 22.69492, 
  22.68966, 22.68498, 22.67873, 22.67465, 22.67417, 22.66677, 22.66416, 22.66186, 22.65746, 22.65734, 
  22.65287, 22.65307, 22.64522, 22.63956, 22.63653, 22.63512, 22.63267, 22.63201, 22.62956, 22.62824, 
  22.62314, 22.62014, 22.61756, 22.61325, 22.61196, 22.61484, 22.60807, 22.60119, 22.60185, 22.59999, 
  22.59624, 22.59495, 22.59478, 22.59236, 22.59032, 22.58905, 22.58925, 22.58739, 22.5862, 22.58764, 
  22.58707, 22.58812, 22.58972, 22.59134, 22.593, 22.59336, 22.59411, 22.59471, 22.59553, 22.59628, 
  22.59647, 22.59565, 22.59404, 22.59256, 22.59351, 22.59354, 22.59611, 22.59686, 22.59716, 22.59682, 
  22.59576, 22.59538, 22.59465, 22.59462, 22.59427, 22.59488, 22.59559, 22.59619, 22.59591, 22.59659, 
  22.59732, 22.59978, 22.59721, 22.59856, 22.59781, 22.59618, 22.59123, 22.59236, 22.59228, 22.5938, 
  22.59374, 22.59261, 22.59175, 22.59351, 22.59423, 22.59505, 22.59575, 22.59551, 22.59678, 22.59599, 
  22.59641, 22.59525, 22.59557, 22.59711, 22.59876, 22.60055, 22.60068, 22.59977, 22.60143, 22.60133, 
  22.60264, 22.60242, 22.59842, 22.59392, 22.58735, 22.58025, 22.57697, 22.57693, 22.57292, 22.56971, 
  22.56722, 22.56361, 22.56028, 22.55834, 22.55778, 22.55557, 22.55588, 22.55319, 22.552, 22.54669, 
  22.54653, 22.54482, 22.5449, 22.54423, 22.54633, 22.54843, 22.55267, 22.55501, 22.55267, 22.55406, 
  22.55148, 22.55596, 22.56012, 22.56171, 22.56452, 22.57562, 22.57681, 22.57534, 22.57697, 22.58941, 
  22.60601, 22.62348, 22.62574, 22.62488, 22.62506, 22.62829, 22.63077, 22.63116, 22.63435, 22.64017, 
  22.64574, 22.6459, 22.64794, 22.64831, 22.65037, 22.65657, 22.65833, 22.6617, 22.66136, 22.66392, 
  22.67289, 22.67417, 22.6776, 22.67833, 22.68298, 22.68742, 22.68865, 22.69435, 22.69453, 22.68835, 
  22.68954, 22.69354, 22.70533, 22.70712, 22.70537, 22.70668, 22.71214, 22.71594, 22.72438, 22.72802, 
  22.73463, 22.74278, 22.7486, 22.74987, 22.75351, 22.74903, 22.75046, 22.75731, 22.75857, 22.76031, 
  22.76289, 22.76542, 22.76625, 22.76854, 22.77203, 22.77397, 22.77313, 22.7759, 22.78481, 22.79786, 
  22.79854, 22.80554, 22.80993, 22.81333, 22.81155, 22.80595, 22.80473, 22.80135, 22.8, 22.79701, 
  22.79519, 22.79308, 22.7929, 22.79157, 22.79136, 22.78884, 22.78779, 22.78712, 22.78807, 22.78756, 
  22.78593, 22.78259, 22.78142, 22.78095, 22.77982, 22.77907, 22.77923, 22.77986, 22.77858, 22.77769, 
  22.77834, 22.77956, 22.77909, 22.78097, 22.78283, 22.78346, 22.78497, 22.78544, 22.78686, 22.79066, 
  22.7927, 22.7948, 22.79333, 22.79676, 22.80388, 22.80926, 22.81426, 22.82033, 22.82152, 22.825, 
  22.83212, 22.83445, 22.83469, 22.82745, 22.82294, 22.82294, 22.82018, 22.81432, 22.80965, 22.80324, 
  22.79114, 22.78726, 22.78101, 22.78528, 22.78702, 22.78686, 22.79264, 22.79422, 22.7932, 22.78172, 
  22.76249, 22.76542, 22.77112, 22.77713, 22.77737, 22.77515, 22.7894, 22.78853, 22.77499, 22.76874, 
  22.76209, 22.76083, 22.75758, 22.75782, 22.75149, 22.74848, 22.75101, 22.74951, 22.75497, 22.76225, 
  22.75695, 22.75054, 22.74009, 22.73795, 22.72703, 22.72125, 22.71175, 22.71096, 22.70304, 22.69868, 
  22.68879, 22.69148, 22.68894, 22.70177, 22.69805, 22.70296, 22.70351, 22.68633, 22.68681, 22.67556, 
  22.67437, 22.66772, 22.67239, 22.67089, 22.66629, 22.66075, 22.66225, 22.65362, 22.65758, 22.65837, 
  22.66067, 22.66598, 22.66954, 22.66835, 22.67287, 22.68601, 22.69639, 22.71191, 22.7161, 22.7537, 
  22.76146, 22.77776, 22.7787, 22.79484, 22.79508, 22.80908, 22.81733, 22.83805, 22.86558, 22.87665, 
  22.87538, 22.86352, 22.84944, 22.8515, 22.84612, 22.82033, 22.81796, 22.81305, 22.81052, 22.79011, 
  22.78615, 22.76906, 22.76273, 22.76209, 22.7488, 22.75149, 22.7412, 22.74041, 22.75386, 22.76273, 
  22.76526, 22.77175, 22.78584, 22.79976, 22.78963, 22.80483, 22.81036, 22.79992, 22.82698, 22.82682, 
  22.83394, 22.83315, 22.84312, 22.84976, 22.84802, 22.82555, 22.82065, 22.83489, 22.83837, 22.88045, 
  22.9195, 22.95254, 22.96314, 22.94464, 22.92757, 22.93247, 22.93152, 22.93832, 22.93531, 22.94891, 
  22.94606, 22.94685, 22.94195, 22.93595, 22.93863, 22.93721, 22.94369, 22.94559, 22.95634, 22.96013, 
  22.96211, 22.96823, 22.96539, 22.96555, 22.96938, 22.97234, 22.97613, 22.99, 22.99854, 23.00355, 
  23.00509, 23.00268, 22.99763, 23.00497, 23.01208, 23.01765, 23.01702, 23.01935, 23.03353, 23.04597, 
  23.04724, 23.05438, 23.06615, 23.08613, 23.08731, 23.08615, 23.08921, 23.09023, 23.08917, 23.09369, 
  23.10012, 23.10429, 23.11218, 23.13626, 23.16127, 23.18021, 23.19118, 23.19465, 23.18345, 23.18155, 
  23.1769, 23.17556, 23.16001, 23.16601, 23.17429, 23.18132, 23.20072, 23.22289, 23.2393, 23.246, 
  23.2456, 23.2415, 23.23788, 23.23725, 23.22888, 23.22652, 23.2165, 23.21129, 23.21674, 23.22502, 
  23.23448, 23.2374, 23.23717, 23.24024, 23.24119, 23.24474, 23.24016, 23.24182, 23.23772, 23.23882, 
  23.25152, 23.26887, 23.28062, 23.28372, 23.29349, 23.30611, 23.31633, 23.32523, 23.36416, 23.38748, 
  23.41773, 23.41663, 23.43427, 23.4612, 23.47679, 23.47584, 23.4897, 23.55156, 23.55486, 23.53944, 
  23.53802, 23.53086, 23.52575, 23.51945, 23.51237, 23.51323, 23.51048, 23.51607, 23.54188, 23.54676, 
  23.54542, 23.55305, 23.55258, 23.56501, 23.57083, 23.5632, 23.5643, 23.55447, 23.56281, 23.55832, 
  23.55868, 23.56635, 23.57889, 23.57964, 23.58271, 23.58385, 23.58833, 23.58928, 23.59663, 23.59887, 
  23.60159, 23.60096, 23.59805, 23.59801, 23.59183, 23.58365, 23.59176, 23.59671, 23.59935, 23.60344, 
  23.60159, 23.60328, 23.61014, 23.6101, 23.61405, 23.6146, 23.62571, 23.63041, 23.63069, 23.61692, 
  23.61333, 23.61291, 23.61732, 23.61793, 23.61635, 23.61893, 23.62105, 23.62247, 23.62172, 23.62715, 
  23.62715, 23.63721, 23.64861, 23.64822, 23.63061, 23.62974, 23.61346, 23.6103, 23.6067, 23.60155, 
  23.60005, 23.59728, 23.59565, 23.59069, 23.58981, 23.58845, 23.58177, 23.57742, 23.57333, 23.5737, 
  23.56352, 23.55927, 23.55923, 23.55386, 23.5524, 23.55112, 23.54876, 23.54597, 23.54506, 23.54605, 
  23.54603, 23.54772, 23.55179, 23.55954, 23.55362, 23.55643, 23.56086, 23.56155, 23.55988, 23.56212, 
  23.56643, 23.56367, 23.57358, 23.58145, 23.59836, 23.60721, 23.6174, 23.62176, 23.62408, 23.62294, 
  23.62683, 23.62471, 23.6196, 23.61574, 23.6137, 23.60981, 23.60654, 23.60261, 23.61181, 23.62455, 
  23.6273, 23.63768, 23.65003, 23.66276, 23.67715, 23.68084, 23.71833, 23.7357, 23.75542, 23.75208, 
  23.74544, 23.73711, 23.72089, 23.71275, 23.69279, 23.68627, 23.68053, 23.67817, 23.67542, 23.66952, 
  23.66245, 23.66512, 23.65718, 23.64775, 23.63973, 23.61181, 23.60867, 23.60104, 23.60057, 23.59372, 
  23.59081, 23.58719, 23.58436, 23.57886, 23.57768, 23.57264, 23.57398, 23.57335, 23.5776, 23.5765, 
  23.58082, 23.58161, 23.57626, 23.56942, 23.57665, 23.57563, 23.5809, 23.57925, 23.58955, 23.58216, 
  23.58279, 23.59254, 23.59231, 23.59868, 23.59404, 23.59828, 23.61449, 23.63273, 23.64924, 23.66198, 
  23.6652, 23.65789, 23.66017, 23.65113, 23.65671, 23.65357, 23.663, 23.66457, 23.6685, 23.66992, 
  23.67856, 23.69208, 23.70395, 23.70875, 23.71605, 23.72289, 23.72737, 23.71967, 23.71928, 23.71432, 
  23.71432, 23.71912, 23.72297, 23.72792, 23.73578, 23.73688, 23.73365, 23.73656, 23.74882, 23.75173, 
  23.75233, 23.76186, 23.75557, 23.74434, 23.74442, 23.74198, 23.74568, 23.74434, 23.73908, 23.74238, 
  23.75157, 23.7518, 23.76304, 23.75746, 23.77238, 23.77333, 23.77953, 23.78825, 23.79092, 23.79626, 
  23.7961, 23.7983, 23.79877, 23.80168, 23.8016, 23.82021, 23.82265, 23.82814, 23.82414, 23.83065, 
  23.84123, 23.8513, 23.85095, 23.86355, 23.86578, 23.88631, 23.89463, 23.90789, 23.91307, 23.91377, 
  23.91958, 23.92586, 23.93292, 23.93723, 23.941, 23.94335, 23.92256, 23.91864, 23.92178, 23.91118, 
  23.90624, 23.89329, 23.89416, 23.87524, 23.86159, 23.84722, 23.84471, 23.81008, 23.81048, 23.79689, 
  23.79453, 23.78629, 23.78566, 23.76453, 23.76484, 23.73523, 23.73161, 23.71959, 23.71943, 23.73868, 
  23.74434, 23.74253, 23.75188, 23.7507, 23.75848, 23.76618, 23.76469, 23.77592, 23.79422, 23.79673, 
  23.79548, 23.80309, 23.81719, 23.85177, 23.87265, 23.89886, 23.92131, 23.9428, 23.9519, 23.97857, 
  23.98225, 23.99064, 23.99394, 24.00146, 24.02067, 24.03157, 24.01511, 24.00993, 24.01777, 24.00021, 
  23.99394, 23.99237, 23.98139, 23.95425, 23.93684, 23.9268, 23.90907, 23.90608, 23.9155, 23.91503, 
  23.92899, 23.95708, 23.96445, 23.95974, 23.95959, 23.97104, 23.98908, 24.00241, 24.00225, 23.99692, 
  24.01417, 24.03063, 24.03518, 24.02985, 24.0322, 24.02561, 24.03471, 24.0369, 24.03988, 24.05603, 
  24.08173, 24.10242, 24.11981, 24.11965, 24.13798, 24.14754, 24.15991, 24.16602, 24.15318, 24.16231, 
  24.17155, 24.18309, 24.18888, 24.19436, 24.20438, 24.20736, 24.20219, 24.21487, 24.21801, 24.213, 
  24.23554, 24.23867, 24.25072, 24.25557, 24.24947, 24.26308, 24.26934, 24.26035, 24.26997, 24.27467, 
  24.28073, 24.28222, 24.28851, 24.28832, 24.29845, 24.29653, 24.29962, 24.3092, 24.31206, 24.31503, 
  24.31421, 24.33501, 24.35535, 24.36317, 24.35797, 24.36015, 24.35742, 24.36164, 24.35632, 24.3557, 
  24.34405, 24.34843, 24.36633, 24.37048, 24.38478, 24.3915, 24.4094, 24.41558, 24.4094, 24.40362, 
  24.39956, 24.39573, 24.39471, 24.40987, 24.41112, 24.4323, 24.44652, 24.47168, 24.46481, 24.45809, 
  24.44105, 24.44934, 24.45262, 24.45442, 24.45754, 24.45684, 24.46731, 24.47582, 24.5066, 24.53291, 
  24.53971, 24.55181, 24.55618, 24.55485, 24.56336, 24.57125, 24.56781, 24.56313, 24.56765, 24.61417, 
  24.63407, 24.64507, 24.62822, 24.63641, 24.65895, 24.65458, 24.65232, 24.63789, 24.63126, 24.62229, 
  24.6176, 24.60582, 24.60137, 24.58834, 24.58686, 24.58256, 24.58014, 24.57343, 24.56508, 24.54884, 
  24.55083, 24.549, 24.53912, 24.53408, 24.52952, 24.53701, 24.53604, 24.55548, 24.55591, 24.5828, 
  24.57952, 24.58377, 24.58249, 24.57921, 24.57835, 24.5817, 24.57827, 24.58912, 24.58014, 24.58217, 
  24.59599, 24.59888, 24.60239, 24.60566, 24.60996, 24.61846, 24.61706, 24.62775, 24.62759, 24.63149, 
  24.62634, 24.61596, 24.60457, 24.5938, 24.58241, 24.57562, 24.55493, 24.54923, 24.54025, 24.53487, 
  24.53135, 24.52854, 24.52596, 24.52401, 24.51847, 24.51839, 24.51612, 24.51487, 24.51165, 24.51696, 
  24.51722, 24.51892, 24.52331, 24.52436, 24.52719, 24.52909, 24.53051, 24.52915, 24.5292, 24.52557, 
  24.52764, 24.52753, 24.52983, 24.53362, 24.53705, 24.53654, 24.53885, 24.53881, 24.5431, 24.5463, 
  24.54591, 24.54786, 24.55009, 24.5497, 24.55282, 24.55821, 24.55981, 24.55614, 24.55778, 24.56032, 
  24.56098, 24.56442, 24.57066, 24.57183, 24.57355, 24.57897, 24.57788, 24.58268, 24.58974, 24.59927, 
  24.60176, 24.6052, 24.60726, 24.62537, 24.6281, 24.63239, 24.63001, 24.63177, 24.62755, 24.61792, 
  24.63937, 24.66324, 24.68758, 24.68851, 24.67198, 24.66745, 24.67728, 24.68056, 24.69163, 24.6974, 
  24.70925, 24.73171, 24.73857, 24.74621, 24.74558, 24.76195, 24.7678, 24.77169, 24.77637, 24.77349, 
  24.77949, 24.77715, 24.77224, 24.7805, 24.7766, 24.77045, 24.77536, 24.79141, 24.79702, 24.80637, 
  24.81089, 24.81011, 24.81556, 24.8179, 24.80933, 24.7992, 24.79531, 24.80138, 24.7925, 24.80738, 
  24.80692, 24.82959, 24.83628, 24.85428, 24.85755, 24.85537, 24.85319, 24.85225, 24.85739, 24.85801, 
  24.86362, 24.87172, 24.87834, 24.88519, 24.87787, 24.88005, 24.87569, 24.87016, 24.86206, 24.85747, 
  24.85178, 24.85171, 24.8475, 24.85194, 24.8503, 24.85778, 24.85916, 24.85557, 24.85861, 24.85538, 
  24.85783, 24.85694, 24.86254, 24.86975, 24.87516, 24.87512, 24.87072, 24.86792, 24.86745, 24.8636, 
  24.86286, 24.86095, 24.85927, 24.85904, 24.86161, 24.86173, 24.86515, 24.86578, 24.86706, 24.86893, 
  24.86687, 24.86873, 24.87014, 24.87259, 24.87613, 24.88174, 24.87987, 24.88524, 24.89081, 24.89754, 
  24.89451, 24.89552, 24.89268, 24.88479, 24.88356, 24.88158, 24.88241, 24.88167, 24.88054, 24.88222, 
  24.88335, 24.8823, 24.88021, 24.87665, 24.87463, 24.87459, 24.87626, 24.87572, 24.8786, 24.88023, 
  24.88, 24.8779, 24.87983, 24.8787, 24.88038, 24.8796, 24.881, 24.88014, 24.8826, 24.87999, 
  24.88174, 24.88645, 24.88797, 24.88548, 24.88824, 24.89377, 24.89988, 24.89996, 24.89871, 24.89003, 
  24.88649, 24.89054, 24.89813, 24.9042, 24.9005, 24.90307, 24.90949, 24.91541, 24.91179, 24.91514, 
  24.92448, 24.92934, 24.93234, 24.93503, 24.93825, 24.93915, 24.94401, 24.95063, 24.96125, 24.96094, 
  24.95896, 24.96304, 24.96394, 24.95911, 24.95896, 24.96086, 24.96024, 24.95876, 24.96082, 24.96148, 
  24.96436, 24.96557, 24.96526, 24.96242, 24.95689, 24.95359, 24.9509, 24.94884, 24.94514, 24.94281, 
  24.94078, 24.94207, 24.94526, 24.94736, 24.94631, 24.94693, 24.94565, 24.9467, 24.94444, 24.94861, 
  24.95043, 24.95331, 24.95355, 24.9553, 24.95755, 24.95775, 24.95884, 24.96086, 24.96261, 24.96172, 
  24.9602, 24.96067, 24.96335, 24.96362, 24.95724, 24.95549, 24.95623, 24.96125, 24.96534, 24.96374, 
  24.96876, 24.98183, 24.99475, 25.00303, 25.0063, 25.00497, 25.00182, 25.00144, 25.00256, 25.00303, 
  25.00416, 25.00505, 25.00941, 25.01104, 25.014, 25.01804, 25.02737, 25.03025, 25.03524, 25.0389, 
  25.03664, 25.05142, 25.05538, 25.05593, 25.05966, 25.05538, 25.05126, 25.04978, 25.04232, 25.04123, 
  25.03516, 25.02264, 25.01798, 25.00958, 25.01308, 25.02918, 25.04457, 25.05002, 25.08454, 25.08617, 
  25.10156, 25.0962, 25.09775, 25.10793, 25.10824, 25.11407, 25.11811, 25.12721, 25.12301, 25.14376, 
  25.14601, 25.15696, 25.15751, 25.1666, 25.1638, 25.17071, 25.18338, 25.18602, 25.19231, 25.19464, 
  25.19743, 25.19425, 25.20085, 25.20139, 25.19899, 25.20644, 25.21109, 25.20779, 25.20888, 25.20499, 
  25.2062, 25.20763, 25.20946, 25.20938, 25.20643, 25.2067, 25.2081, 25.20965, 25.21089, 25.21307, 
  25.21451, 25.22091, 25.22421, 25.22635, 25.22522, 25.22914, 25.23011, 25.23318, 25.23322, 25.23396, 
  25.23663, 25.24024, 25.24129, 25.24401, 25.24071, 25.24448, 25.24933, 25.25057, 25.26086, 25.26485, 
  25.27584, 25.2829, 25.28658, 25.27824, 25.26335, 25.25792, 25.25668, 25.26863, 25.25761, 25.25575, 
  25.24713, 25.24713, 25.23952, 25.23937, 25.23509, 25.23502, 25.23238, 25.23214, 25.2257, 25.22407, 
  25.21988, 25.21607, 25.21584, 25.21266, 25.21064, 25.21196, 25.21568, 25.21654, 25.22322, 25.21545, 
  25.22461, 25.22966, 25.22764, 25.22083, 25.21203, 25.21863, 25.16939, 25.1659, 25.17211, 25.17631, 
  25.17429, 25.16574, 25.16287, 25.15782, 25.1523, 25.15021, 25.14422, 25.14516, 25.13645, 25.12915, 
  25.12433, 25.11982, 25.1171, 25.11112, 25.11485, 25.1021, 25.11578, 25.12767, 25.13373, 25.13179, 
  25.12822, 25.1185, 25.11881, 25.11159, 25.11151, 25.12029, 25.12068, 25.13055, 25.12348, 25.12581, 
  25.12969, 25.13086, 25.14453, 25.15207, 25.15316, 25.15005, 25.14881, 25.14601, 25.14857, 25.14828, 
  25.15766, 25.15782, 25.16178, 25.16093, 25.16831, 25.16893, 25.17149, 25.17002, 25.17506, 25.17289, 
  25.17895, 25.17576, 25.17887, 25.19169, 25.19308, 25.20139, 25.2007, 25.20582, 25.20846, 25.21297, 
  25.2198, 25.21957, 25.22508, 25.2264, 25.23882, 25.25078, 25.24783, 25.24309, 25.23999, 25.23618, 
  25.22943, 25.22337, 25.21592, 25.2104, 25.2, 25.19021, 25.18749, 25.18617, 25.18174, 25.18299, 
  25.18159, 25.18982, 25.19316, 25.1913, 25.18881, 25.18833, 25.18674, 25.18545, 25.18522, 25.18398, 
  25.18503, 25.18128, 25.17879, 25.17672, 25.17522, 25.17268, 25.1714, 25.17059, 25.17252, 25.17664, 
  25.18095, 25.18215, 25.18584, 25.19031, 25.18968, 25.19489, 25.19737, 25.19994, 25.20363, 25.21566, 
  25.21986, 25.231, 25.23659, 25.24303, 25.24319, 25.23826, 25.24272, 25.24249, 25.23787, 25.23779, 
  25.23608, 25.23519, 25.23736, 25.23795, 25.24062, 25.24408, 25.24691, 25.24715, 25.25289, 25.25277, 
  25.25138, 25.2487, 25.24897, 25.25258, 25.25413, 25.26422, 25.26876, 25.27086, 25.26997, 25.26799, 
  25.27315, 25.27676, 25.27284, 25.27373, 25.28266, 25.28704, 25.2962, 25.30636, 25.3085, 25.31214, 
  25.31505, 25.32111, 25.32398, 25.32452, 25.32852, 25.32793, 25.32091, 25.31921, 25.31478, 25.31168, 
  25.31432, 25.31331, 25.32433, 25.32751, 25.33224, 25.32611, 25.3232, 25.3189, 25.30516, 25.30198, 
  25.28429, 25.28367, 25.29166, 25.29826, 25.30462, 25.30742, 25.31743, 25.32526, 25.33116, 25.33876, 
  25.35032, 25.35831, 25.36273, 25.36257, 25.36498, 25.36505, 25.35939, 25.34915, 25.34597, 25.35303, 
  25.36141, 25.35753, 25.37126, 25.37661, 25.37909, 25.38281, 25.37847, 25.38537, 25.39126, 25.39556, 
  25.40293, 25.4367, 25.44731, 25.42538, 25.45041, 25.47025, 25.4732, 25.47188, 25.47769, 25.49055, 
  25.49443, 25.50109, 25.49807, 25.48528, 25.48342, 25.49845, 25.49779, 25.49299, 25.46739, 25.45909, 
  25.44352, 25.43406, 25.42848, 25.42119, 25.41289, 25.4184, 25.41398, 25.41887, 25.41065, 25.41577, 
  25.42701, 25.43647, 25.45089, 25.46592, 25.46809, 25.48328, 25.50513, 25.51287, 25.52076, 25.52758, 
  25.52944, 25.53873, 25.54787, 25.54888, 25.54361, 25.5361, 25.52665, 25.52471, 25.51542, 25.50066, 
  25.49264, 25.50995, 25.50845, 25.51844, 25.52464, 25.52138, 25.51519, 25.5007, 25.49024, 25.48002, 
  25.48056, 25.47854, 25.4725, 25.4646, 25.45212, 25.44452, 25.43693, 25.43181, 25.44631, 25.44925, 
  25.4539, 25.45576, 25.46684, 25.46429, 25.45406, 25.4539, 25.45777, 25.45514, 25.45777, 25.45777, 
  25.45895, 25.45831, 25.45909, 25.46077, 25.461, 25.45971, 25.45897, 25.45244, 25.44855, 25.44663, 
  25.44589, 25.44372, 25.44235, 25.43909, 25.43057, 25.42666, 25.41794, 25.41546, 25.40757, 25.4055, 
  25.40465, 25.39542, 25.39313, 25.39057, 25.38772, 25.38344, 25.38098, 25.38051, 25.37367, 25.37094, 
  25.36913, 25.36522, 25.36541, 25.36461, 25.36673, 25.36946, 25.37295, 25.3734, 25.37669, 25.37784, 
  25.37811, 25.38038, 25.38139, 25.38044, 25.38276, 25.37854, 25.36904, 25.3681, 25.36634, 25.36556, 
  25.36345, 25.3656, 25.36582, 25.36774, 25.36801, 25.3709, 25.37458, 25.37613, 25.37782, 25.37844, 
  25.37741, 25.38106, 25.38449, 25.38695, 25.38486, 25.389, 25.38879, 25.39015, 25.39936, 25.40099, 
  25.40052, 25.40211, 25.40347, 25.40467, 25.40661, 25.40831, 25.4113, 25.41366, 25.41552, 25.41041, 
  25.41064, 25.41339, 25.41642, 25.41936, 25.42095, 25.42316, 25.4263, 25.41777, 25.41607, 25.41707, 
  25.42037, 25.4263, 25.42611, 25.428, 25.42866, 25.43196, 25.43521, 25.43684, 25.43529, 25.43707, 
  25.43917, 25.4394, 25.44405, 25.44498, 25.44223, 25.43696, 25.43673, 25.44041, 25.44506, 25.4506, 
  25.45412, 25.45571, 25.45831, 25.45939, 25.46125, 25.46114, 25.45905, 25.45571, 25.45691, 25.45657, 
  25.45815, 25.45199, 25.45145, 25.44827, 25.4456, 25.44417, 25.44525, 25.44017, 25.4351, 25.433, 
  25.42804, 25.42614, 25.42634, 25.42998, 25.42762, 25.42537, 25.41863, 25.41626, 25.41207, 25.41169, 
  25.40816, 25.40331, 25.403, 25.39847, 25.39509, 25.3925, 25.39021, 25.38296, 25.38168, 25.383, 
  25.38618, 25.38288, 25.38083, 25.38063, 25.37784, 25.37497, 25.37342, 25.36574, 25.37315, 25.37257, 
  25.36846, 25.36497, 25.36342, 25.35931, 25.35721, 25.35489, 25.35178, 25.34752, 25.34054, 25.33925, 
  25.3431, 25.34216, 25.34565, 25.34674, 25.34496, 25.3431, 25.34348, 25.34213, 25.34213, 25.34856, 
  25.3474, 25.34589, 25.34546, 25.34736, 25.35019, 25.35636, 25.35931, 25.36051, 25.36264, 25.36559, 
  25.35791, 25.35903, 25.35814, 25.35958, 25.3583, 25.35601, 25.35512, 25.35985, 25.35853, 25.36338, 
  25.36349, 25.3657, 25.36656, 25.37237, 25.37796, 25.37641, 25.37241, 25.37094, 25.36885, 25.36865, 
  25.37082, 25.37125, 25.37408, 25.37451, 25.37625, 25.37734, 25.37683, 25.37586, 25.37583, 25.37908, 
  25.37951, 25.38125, 25.38156, 25.3809, 25.38207, 25.38323, 25.38335, 25.38246, 25.38277, 25.38432, 
  25.3873, 25.38936, 25.3906, 25.3923, 25.39351, 25.39502, 25.39595, 25.39665, 25.39703, 25.39769, 
  25.39936, 25.40107, 25.40428, 25.40382, 25.40669, 25.40952, 25.4108, 25.41244, 25.41362, 25.41488, 
  25.41678, 25.42019, 25.42409, 25.42363, 25.43155, 25.43227, 25.4351, 25.43471, 25.43203, 25.43308, 
  25.42889, 25.43069, 25.43472, 25.43517, 25.43321, 25.43012, 25.43195, 25.43397, 25.4366, 25.43986, 
  25.43868, 25.44162, 25.44219, 25.44428, 25.4443, 25.44254, 25.44246, 25.44501, 25.4478, 25.4504, 
  25.453, 25.4484, 25.44742, 25.44854, 25.45037, 25.45176, 25.45832, 25.45908, 25.46673, 25.46673, 
  25.4684, 25.46999, 25.47119, 25.47456, 25.46991, 25.46921, 25.46687, 25.46656, 25.46495, 25.46807, 
  25.46786, 25.47295, 25.47483, 25.47783, 25.47971, 25.48438, 25.48679, 25.48609, 25.48683, 25.48661, 
  25.48882, 25.48818, 25.49023, 25.49227, 25.49196, 25.49306, 25.49176, 25.49266, 25.49262, 25.49519, 
  25.49371, 25.49971, 25.5026, 25.50467, 25.50537, 25.5102, 25.5105, 25.51042, 25.50973, 25.50995, 
  25.50959, 25.51138, 25.51142, 25.51088, 25.51046, 25.5071, 25.5093, 25.50655, 25.50582, 25.50872, 
  25.50295, 25.50493, 25.50756, 25.51407, 25.52023, 25.51953, 25.52197, 25.52549, 25.53397, 25.53146, 
  25.53874, 25.54176, 25.54342, 25.54338, 25.5454, 25.54803, 25.54904, 25.55039, 25.55264, 25.55546, 
  25.55647, 25.56077, 25.56619, 25.57188, 25.56692, 25.56639, 25.56969, 25.57071, 25.57636, 25.57634, 
  25.57932, 25.58052, 25.58052, 25.58327, 25.58668, 25.58836, 25.58892, 25.59039, 25.59028, 25.59101, 
  25.59239, 25.59328, 25.59396, 25.59247, 25.59264, 25.59078, 25.59032, 25.59206, 25.58712, 25.5853, 
  25.58336, 25.5839, 25.57934, 25.58033, 25.5793, 25.58318, 25.58234, 25.58521, 25.58535, 25.58713, 
  25.58511, 25.59738, 25.59773, 25.60191, 25.60458, 25.60539, 25.60996, 25.61128, 25.61395, 25.61484, 
  25.61712, 25.62169, 25.62544, 25.63035, 25.63159, 25.6278, 25.62385, 25.62811, 25.62261, 25.62872, 
  25.63212, 25.63309, 25.63166, 25.62872, 25.62783, 25.63739, 25.63917, 25.63909, 25.6423, 25.64934, 
  25.64714, 25.65116, 25.65344, 25.65615, 25.66002, 25.67352, 25.67429, 25.67004, 25.67066, 25.66756, 
  25.67004, 25.67294, 25.67619, 25.67553, 25.67263, 25.67735, 25.67893, 25.67955, 25.68087, 25.67876, 
  25.67893, 25.68023, 25.68317, 25.68328, 25.6822, 25.68473, 25.68653, 25.69007, 25.6944, 25.68427, 
  25.68462, 25.68891, 25.68976, 25.68485, 25.68574, 25.68691, 25.68865, 25.68667, 25.69038, 25.69989, 
  25.69784, 25.7016, 25.70457, 25.71795, 25.71977, 25.72611, 25.72592, 25.72758, 25.72812, 25.73226, 
  25.73226, 25.7345, 25.73496, 25.7374, 25.73674, 25.73291, 25.72858, 25.73345, 25.73755, 25.74702, 
  25.74679, 25.75352, 25.76295, 25.7633, 25.77501, 25.78131, 25.78158, 25.78339, 25.82041, 25.82435, 
  25.83076, 25.8284, 25.82979, 25.8284, 25.82438, 25.82462, 25.82917, 25.83845, 25.84045, 25.83381, 
  25.83381, 25.85312, 25.88008, 25.89984, 25.90888, 25.91003, 25.90725, 25.90864, 25.90718, 25.9054, 
  25.90478, 25.90567, 25.90559, 25.90868, 25.91308, 25.91378, 25.93072, 25.94523, 25.94774, 25.95268, 
  25.95669, 25.95669, 25.96267, 25.96518, 25.96707, 25.96916, 26.00858, 26.0198, 26.02898, 26.02543, 
  26.02524, 26.03037, 26.0284, 26.02994, 26.02709, 26.02848, 26.03145, 26.03349, 26.03094, 26.03363, 
  26.03888, 26.0452, 26.04998, 26.04767, 26.05106, 26.05145, 26.07258, 26.07389, 26.06595, 26.05986, 
  26.05924, 26.06233, 26.0698, 26.07759, 26.10156, 26.1233, 26.13239, 26.13671, 26.13571, 26.13671, 
  26.13925, 26.13979, 26.14202, 26.1448, 26.1572, 26.17215, 26.1797, 26.18324, 26.1817, 26.18432, 
  26.20203, 26.20534, 26.20973, 26.21035, 26.21312, 26.21836, 26.22444, 26.23152, 26.23075, 26.23329, 
  26.23322, 26.23168, 26.23229, 26.23352, 26.23583, 26.23491, 26.25739, 26.26008, 26.25173, 26.25454, 
  26.26721, 26.27229, 26.27198, 26.27525, 26.27606, 26.27429, 26.27806, 26.28002, 26.28025, 26.27737, 
  26.27777, 26.279, 26.27993, 26.28154, 26.28603, 26.28947, 26.29014, 26.28899, 26.28648, 26.28495, 
  26.28618, 26.28968, 26.28991, 26.29122, 26.29187, 26.2948, 26.29999, 26.2988, 26.29237, 26.29095, 
  26.28629, 26.28629, 26.28487, 26.2831, 26.28106, 26.27656, 26.27633, 26.27748, 26.2756, 26.27698, 
  26.27867, 26.28218, 26.28283, 26.2846, 26.28622, 26.28849, 26.29033, 26.29026, 26.29268, 26.29472, 
  26.2973, 26.29499, 26.29499, 26.29864, 26.29921, 26.3076, 26.3126, 26.3118, 26.31353, 26.31657, 
  26.31657, 26.31811, 26.32157, 26.32649, 26.32515, 26.32888, 26.32969, 26.33111, 26.33153, 26.33096, 
  26.33234, 26.33369, 26.33488, 26.33092, 26.32938, 26.32703, 26.32823, 26.32565, 26.32715, 26.32599, 
  26.32353, 26.32303, 26.31984, 26.31953, 26.31696, 26.31503, 26.31419, 26.31226, 26.31217, 26.31338, 
  26.31605, 26.31884, 26.32034, 26.32103, 26.32407, 26.32375, 26.32138, 26.31938, 26.31661, 26.31603, 
  26.31882, 26.31923, 26.3179, 26.31547, 26.3158, 26.3169, 26.31707, 26.31923, 26.32275, 26.32432, 
  26.32461, 26.32746, 26.32799, 26.33003, 26.33049, 26.33249, 26.33365, 26.33292, 26.33392, 26.34042, 
  26.34207, 26.34146, 26.34307, 26.34361, 26.34353, 26.34553, 26.34699, 26.34657, 26.34892, 26.34926, 
  26.35226, 26.35321, 26.35265, 26.35379, 26.35423, 26.35482, 26.35599, 26.35572, 26.35357, 26.35615, 
  26.35626, 26.35805, 26.35821, 26.36153, 26.36203, 26.36541, 26.36597, 26.36505, 26.36557, 26.36691, 
  26.37006, 26.37109, 26.37653, 26.37566, 26.37195, 26.36982, 26.37118, 26.3701, 26.37035, 26.36661, 
  26.36489, 26.36468, 26.36703, 26.36667, 26.36503, 26.36102, 26.36482, 26.36396, 26.36015, 26.35832, 
  26.3579, 26.35867, 26.35871, 26.35973, 26.35977, 26.35865, 26.35802, 26.35699, 26.35822, 26.35907, 
  26.35965, 26.3609, 26.36013, 26.35836, 26.35727, 26.35638, 26.35507, 26.35306, 26.34921, 26.34844, 
  26.34573, 26.34475, 26.34386, 26.34548, 26.34796, 26.34965, 26.35071, 26.35165, 26.35115, 26.35207, 
  26.35196, 26.35397, 26.35659, 26.35632, 26.35315, 26.35455, 26.35586, 26.35594, 26.3549, 26.35228, 
  26.35138, 26.35234, 26.35447, 26.35536, 26.35495, 26.35079, 26.35013, 26.35177, 26.35098, 26.35307, 
  26.35815, 26.36128, 26.36138, 26.3624, 26.36473, 26.36475, 26.36525, 26.36534, 26.36596, 26.36738, 
  26.36789, 26.37015, 26.37088, 26.37534, 26.37611, 26.37407, 26.37415, 26.37665, 26.37772, 26.37763, 
  26.37853, 26.3828, 26.38318, 26.38457, 26.38533, 26.38184, 26.3881, 26.38846, 26.38737, 26.38804, 
  26.38616, 26.38483, 26.38537, 26.38445, 26.38275, 26.38379, 26.38548, 26.38395, 26.38454, 26.38775, 
  26.39014, 26.39859, 26.401, 26.40407, 26.40371, 26.40592, 26.40453, 26.40924, 26.40872, 26.41383, 
  26.41374, 26.41134, 26.41203, 26.4148, 26.41461, 26.41772, 26.41841, 26.42006, 26.42267, 26.42559, 
  26.42817, 26.42934, 26.42832, 26.42561, 26.42655, 26.42582, 26.42494, 26.42344, 26.42402, 26.42592, 
  26.42352, 26.42212, 26.42377, 26.42252, 26.41718, 26.41883, 26.41506, 26.41453, 26.41249, 26.41228, 
  26.40877, 26.40731, 26.4062, 26.40362, 26.4062, 26.40316, 26.39963, 26.39832, 26.39409, 26.39224, 
  26.38893, 26.38332, 26.3824, 26.37724, 26.37401, 26.3807, 26.37171, 26.36594, 26.36394, 26.36341, 
  26.36641, 26.36441, 26.36206, 26.35837, 26.35914, 26.3571, 26.35372, 26.3461, 26.34402, 26.35548, 
  26.37194, 26.38024, 26.38516, 26.39739, 26.41584, 26.43452, 26.44335, 26.44827, 26.44474, 26.44136, 
  26.43928, 26.44074, 26.44641, 26.45302, 26.46731, 26.46408, 26.47699, 26.48329, 26.47715, 26.46608, 
  26.46531, 26.44395, 26.44782, 26.44472, 26.45625, 26.43782, 26.42791, 26.42383, 26.41761, 26.40884, 
  26.4083, 26.41269, 26.41246, 26.4183, 26.42206, 26.4318, 26.44167, 26.43637, 26.44359, 26.44071, 
  26.44409, 26.44559, 26.44352, 26.44498, 26.45066, 26.45247, 26.4502, 26.45623, 26.4565, 26.45877, 
  26.45935, 26.46184, 26.46303, 26.45938, 26.46165, 26.46957, 26.47383, 26.47381, 26.47745, 26.477, 
  26.47132, 26.47755, 26.47524, 26.47693, 26.47547, 26.48377, 26.48647, 26.48605, 26.4905, 26.49104, 
  26.49661, 26.49584, 26.49273, 26.49204, 26.4986, 26.49607, 26.49699, 26.49622, 26.49945, 26.50003, 
  26.49864, 26.50118, 26.50705, 26.50598, 26.50225, 26.50291, 26.50679, 26.5069, 26.51232, 26.5127, 
  26.5148, 26.51933, 26.5201, 26.51803, 26.51972, 26.51864, 26.52033, 26.52824, 26.53032, 26.52932, 
  26.5264, 26.52732, 26.52832, 26.53162, 26.53308, 26.53592, 26.53454, 26.53777, 26.54012, 26.54929, 
  26.54875, 26.55532, 26.55774, 26.5623, 26.55873, 26.55627, 26.55412, 26.55161, 26.55182, 26.55788, 
  26.55911, 26.56809, 26.57377, 26.57769, 26.58145, 26.58613, 26.5839, 26.58651, 26.58751, 26.58882, 
  26.58851, 26.59434, 26.59373, 26.59741, 26.60862, 26.60946, 26.61276, 26.61268, 26.61575, 26.61176, 
  26.61322, 26.62097, 26.60747, 26.60662, 26.59803, 26.58979, 26.5815, 26.58906, 26.62671, 26.62886, 
  26.6376, 26.64399, 26.65174, 26.6545, 26.65373, 26.64813, 26.6512, 26.64967, 26.65588, 26.67122, 
  26.67329, 26.68587, 26.68111, 26.68878, 26.7055, 26.70872, 26.70542, 26.70742, 26.71133, 26.71332, 
  26.71056, 26.70903, 26.70872, 26.70565, 26.70512, 26.70688, 26.7111, 26.71915, 26.72482, 26.72727, 
  26.73502, 26.73747, 26.74299, 26.74766, 26.74774, 26.73647, 26.73118, 26.73134, 26.72597, 26.7068, 
  26.70734, 26.70381, 26.70473, 26.70703, 26.71102, 26.71577, 26.71961, 26.72773, 26.74038, 26.73791, 
  26.74496, 26.74803, 26.75125, 26.76029, 26.77547, 26.77562, 26.78359, 26.80351, 26.81086, 26.81959, 
  26.82266, 26.81515, 26.8032, 26.7695, 26.75571, 26.74667, 26.74253, 26.73402, 26.74046, 26.74812, 
  26.75349, 26.76353, 26.76353, 26.76659, 26.79732, 26.82404, 26.83108, 26.83614, 26.84288, 26.84058, 
  26.83736, 26.83644, 26.83277, 26.82986, 26.82909, 26.81393, 26.79401, 26.77577, 26.79416, 26.79401, 
  26.78864, 26.77194, 26.76167, 26.7514, 26.72396, 26.71077, 26.6962, 26.69252, 26.69636, 26.69651, 
  26.70771, 26.71108, 26.69544, 26.69145, 26.67795, 26.67212, 26.66501, 26.65166, 26.6489, 26.65995, 
  26.6624, 26.66838, 26.66953, 26.67275, 26.67452, 26.67674, 26.68219, 26.67812, 26.67989, 26.68341, 
  26.68633, 26.69338, 26.69645, 26.69914, 26.7032, 26.70719, 26.72336, 26.73333, 26.74368, 26.7482, 
  26.75249, 26.75655, 26.77165, 26.78445, 26.78567, 26.79318, 26.78751, 26.79265, 26.79211, 26.78054, 
  26.7797, 26.78767, 26.79042, 26.78912, 26.79609, 26.79563, 26.80268, 26.78452, 26.76882, 26.75533, 
  26.74598, 26.7492, 26.74039, 26.74283, 26.73992, 26.7364, 26.72927, 26.72336, 26.72459, 26.71991, 
  26.7193, 26.71623, 26.71731, 26.71462, 26.71079, 26.7039, 26.69738, 26.69108, 26.68503, 26.68119, 
  26.68265, 26.67866, 26.67414, 26.67214, 26.66663, 26.66436, 26.65758, 26.65102, 26.65573, 26.64787, 
  26.64826, 26.64584, 26.64032, 26.62904, 26.62389, 26.62596, 26.61714, 26.6123, 26.61714, 26.62527, 
  26.62565, 26.61591, 26.61514, 26.61898, 26.62005, 26.62327, 26.62304, 26.61867, 26.62588, 26.61075, 
  26.60845, 26.59955, 26.59832, 26.59417, 26.59356, 26.58558, 26.58529, 26.58168, 26.57408, 26.56947, 
  26.56748, 26.56871, 26.56456, 26.55919, 26.55957, 26.55337, 26.54706, 26.54421, 26.53769, 26.53569, 
  26.53293, 26.52909, 26.53431, 26.52786, 26.52686, 26.52248, 26.52425, 26.51926, 26.52087, 26.51488, 
  26.5195, 26.51609, 26.52277, 26.52698, 26.53124, 26.53823, 26.55205, 26.5502, 26.55358, 26.55097, 
  26.55527, 26.56279, 26.56249, 26.5671, 26.56952, 26.57723, 26.57853, 26.58229, 26.58605, 26.58851, 
  26.59562, 26.59856, 26.60179, 26.60071, 26.60394, 26.61, 26.61031, 26.60371, 26.60486, 26.60271, 
  26.60516, 26.60424, 26.60714, 26.60977, 26.61284, 26.6146, 26.62343, 26.62527, 26.63041, 26.63026, 
  26.64192, 26.64292, 26.64783, 26.64721, 26.63893, 26.63417, 26.6265, 26.6232, 26.62074, 26.6209, 
  26.61775, 26.61767, 26.62657, 26.6377, 26.64054, 26.64199, 26.64635, 26.6476, 26.65036, 26.64744, 
  26.6443, 26.64361, 26.64077, 26.6476, 26.65051, 26.65082, 26.65419, 26.65516, 26.65481, 26.65746, 
  26.65727, 26.65915, 26.65758, 26.66049, 26.66076, 26.6616, 26.66133, 26.6598, 26.6616, 26.66589, 
  26.67035, 26.66954, 26.67077, 26.68005, 26.68434, 26.68818, 26.69033, 26.69404, 26.70382, 26.70846, 
  26.71065, 26.71226, 26.71452, 26.71563, 26.71459, 26.71183, 26.71195, 26.7144, 26.71379, 26.71716, 
  26.71981, 26.72678, 26.7295, 26.72904, 26.72667, 26.72878, 26.7272, 26.73088, 26.73211, 26.73709, 
  26.73901, 26.73943, 26.73637, 26.73744, 26.73338, 26.73637, 26.73337, 26.74709, 26.74694, 26.75491, 
  26.76184, 26.76245, 26.7646, 26.77249, 26.77303, 26.78207, 26.79188, 26.79848, 26.79545, 26.79633, 
  26.79442, 26.79645, 26.8048, 26.80859, 26.80729, 26.80192, 26.801, 26.803, 26.79499, 26.79166, 
  26.79537, 26.79729, 26.79924, 26.79461, 26.79258, 26.79227, 26.80913, 26.8143, 26.81702, 26.81897, 
  26.81736, 26.82085, 26.8218, 26.82042, 26.82157, 26.81744, 26.82023, 26.821, 26.84428, 26.86323, 
  26.86431, 26.864, 26.86856, 26.86767, 26.87089, 26.86695, 26.86982, 26.86901, 26.87005, 26.87366, 
  26.87839, 26.88046, 26.88184, 26.87969, 26.88436, 26.88058, 26.88865, 26.89405, 26.89393, 26.89711, 
  26.89554, 26.89604, 26.89351, 26.89049, 26.89286, 26.89696, 26.89501, 26.88846, 26.88578, 26.88284, 
  26.88031, 26.87916, 26.88077, 26.8787, 26.87599, 26.87662, 26.8811, 26.88194, 26.89202, 26.89216, 
  26.88751, 26.89417, 26.89596, 26.90105, 26.90262, 26.91632, 26.9154, 26.92461, 26.92864, 26.9286, 
  26.92585, 26.92501, 26.91904, 26.91801, 26.92826, 26.93155, 26.92971, 26.92623, 26.92306, 26.92417, 
  26.92707, 26.92818, 26.93056, 26.92719, 26.9286, 26.91977, 26.92137, 26.91923, 26.91988, 26.91831, 
  26.92068, 26.91559, 26.91242, 26.91349, 26.91942, 26.92095, 26.92183, 26.92332, 26.92419, 26.92551, 
  26.92612, 26.92945, 26.9301, 26.93464, 26.93691, 26.9384, 26.93867, 26.93951, 26.93913, 26.93672, 
  26.93645, 26.93465, 26.93606, 26.93863, 26.93981, 26.94192, 26.94881, 26.95079, 26.95087, 26.95301, 
  26.95668, 26.96185, 26.96341, 26.96594, 26.96582, 26.96403, 26.96935, 26.96403, 26.96376, 26.9591, 
  26.95611, 26.95731, 26.96429, 26.96642, 26.97086, 26.96833, 26.9743, 26.97805, 26.97805, 26.98119, 
  26.97763, 26.97629, 26.9795, 26.98249, 26.98532, 26.98685, 26.98952, 26.99059, 27, 27.00321, 
  27.00581, 27.00727, 27.01185, 27.02179, 27.02738, 27.03059, 27.03059, 27.02832, 27.03306, 27.02969, 
  27.02847, 27.03543, 27.03535, 27.03864, 27.04185, 27.04483, 27.04468, 27.03971, 27.05018, 27.05316, 
  27.05347, 27.05706, 27.06364, 27.06448, 27.06142, 27.06197, 27.05991, 27.06025, 27.05691, 27.05683, 
  27.05469, 27.05217, 27.04781, 27.04537, 27.03986, 27.03971, 27.04529, 27.0511, 27.05332, 27.05716, 
  27.06035, 27.06807, 27.07327, 27.07411, 27.08083, 27.08053, 27.08465, 27.08702, 27.08824, 27.09008, 
  27.09558, 27.09099, 27.09206, 27.10047, 27.10223, 27.10521, 27.11353, 27.1114, 27.113, 27.11063, 
  27.10826, 27.10513, 27.10322, 27.10108, 27.10406, 27.10116, 27.10169, 27.09978, 27.09925, 27.09604, 
  27.0952, 27.10353, 27.10299, 27.0994, 27.09619, 27.09428, 27.09558, 27.09413, 27.09405, 27.09184, 
  27.09367, 27.09286, 27.08874, 27.08965, 27.0875, 27.08818, 27.08723, 27.08543, 27.08501, 27.08588, 
  27.08449, 27.08812, 27.09026, 27.09203, 27.09488, 27.09526, 27.09284, 27.09285, 27.09193, 27.09894, 
  27.10353, 27.10498, 27.107, 27.10822, 27.10926, 27.11075, 27.11013, 27.11109, 27.10968, 27.11086, 
  27.11105, 27.11452, 27.11762, 27.11911, 27.12236, 27.12087, 27.11961, 27.12135, 27.11911, 27.11999, 
  27.12144, 27.11984, 27.12071, 27.12075, 27.12014, 27.12109, 27.1248, 27.12709, 27.12678, 27.13037, 
  27.13004, 27.13267, 27.13649, 27.14092, 27.1374, 27.13851, 27.1374, 27.13958, 27.14015, 27.14267, 
  27.1426, 27.13729, 27.13511, 27.13618, 27.13904, 27.14409, 27.14336, 27.1442, 27.14649, 27.14981, 
  27.15352, 27.15275, 27.15012, 27.15046, 27.14588, 27.1492, 27.14851, 27.14996, 27.15103, 27.14912, 
  27.15195, 27.1547, 27.16325, 27.1728, 27.17349, 27.17097, 27.17616, 27.17997, 27.1841, 27.18318, 
  27.19983, 27.20288, 27.21135, 27.22249, 27.22799, 27.23699, 27.24012, 27.23486, 27.22845, 27.22723, 
  27.23028, 27.226, 27.21517, 27.20914, 27.21327, 27.21823, 27.21975, 27.22967, 27.22883, 27.24005, 
  27.24325, 27.24478, 27.23631, 27.23379, 27.23562, 27.24005, 27.24676, 27.2489, 27.24203, 27.23921, 
  27.23356, 27.23791, 27.22684, 27.21456, 27.21494, 27.20616, 27.19899, 27.18849, 27.18677, 27.18307, 
  27.17994, 27.17227, 27.16921, 27.16364, 27.16226, 27.16249, 27.16184, 27.16425, 27.16746, 27.17006, 
  27.16761, 27.17139, 27.17498, 27.17761, 27.18544, 27.18597, 27.18853, 27.1983, 27.20177, 27.20364, 
  27.2104, 27.21189, 27.21479, 27.21494, 27.20933, 27.212, 27.22166, 27.21864, 27.22112, 27.22292, 
  27.22158, 27.21983, 27.21487, 27.21158, 27.19983, 27.20009, 27.19513, 27.19502, 27.19196, 27.19376, 
  27.19311, 27.19391, 27.19298, 27.19137, 27.18973, 27.18769, 27.18733, 27.18223, 27.18108, 27.17776, 
  27.17811, 27.17662, 27.17116, 27.16669, 27.16757, 27.16948, 27.17085, 27.17509, 27.17505, 27.17872, 
  27.1791, 27.18345, 27.18467, 27.18742, 27.18773, 27.1912, 27.18937, 27.19254, 27.19372, 27.19532, 
  27.19883, 27.19937, 27.20441, 27.20532, 27.20769, 27.21212, 27.21502, 27.22006, 27.21899, 27.21956, 
  27.2233, 27.22597, 27.2238, 27.22562, 27.23082, 27.232, 27.23375, 27.2381, 27.242, 27.24333, 
  27.24612, 27.24532, 27.24623, 27.24665, 27.26046, 27.26138, 27.26042, 27.26103, 27.26103, 27.26245, 
  27.26351, 27.26432, 27.26481, 27.26638, 27.26874, 27.27217, 27.2737, 27.2737, 27.27637, 27.27858, 
  27.27793, 27.27652, 27.2769, 27.27404, 27.2753, 27.27515, 27.27797, 27.27812, 27.27572, 27.27934, 
  27.28446, 27.28518, 27.28751, 27.28953, 27.293, 27.29357, 27.29559, 27.29655, 27.29414, 27.29532, 
  27.2975, 27.29929, 27.30169, 27.30295, 27.30074, 27.30112, 27.29994, 27.30402, 27.30726, 27.30852, 
  27.31237, 27.31519, 27.3184, 27.31916, 27.32282, 27.32446, 27.32389, 27.32816, 27.32827, 27.32431, 
  27.32263, 27.31836, 27.31962, 27.32419, 27.32911, 27.33068, 27.32824, 27.3293, 27.32636, 27.33189, 
  27.33224, 27.33707, 27.34012, 27.33997, 27.33654, 27.34027, 27.33742, 27.34173, 27.34368, 27.34844, 
  27.35994, 27.35834, 27.36139, 27.36543, 27.3678, 27.36978, 27.37244, 27.37542, 27.37786, 27.38372, 
  27.38273, 27.38548, 27.37892, 27.38472, 27.38792, 27.38815, 27.39432, 27.39058, 27.39196, 27.40026, 
  27.4059, 27.40247, 27.40384, 27.3992, 27.39805, 27.38815, 27.38822, 27.38357, 27.38464, 27.38106, 
  27.38083, 27.38395, 27.38411, 27.38693, 27.38891, 27.39104, 27.3886, 27.39203, 27.3886, 27.38609, 
  27.38357, 27.38395, 27.38151, 27.37687, 27.37687, 27.37908, 27.38052, 27.37473, 27.37214, 27.36787, 
  27.36398, 27.36421, 27.36665, 27.37023, 27.37115, 27.36437, 27.37298, 27.38357, 27.38411, 27.38799, 
  27.39157, 27.3934, 27.39561, 27.39546, 27.39371, 27.39478, 27.3966, 27.39554, 27.40064, 27.40842, 
  27.40476, 27.40643, 27.40552, 27.40953, 27.4123, 27.42723, 27.42708, 27.4318, 27.43531, 27.43356, 
  27.43912, 27.43996, 27.44811, 27.44902, 27.44293, 27.44879, 27.45153, 27.45694, 27.45854, 27.46388, 
  27.46524, 27.47179, 27.47347, 27.47819, 27.47872, 27.47682, 27.47872, 27.47621, 27.47727, 27.48215, 
  27.48101, 27.48451, 27.48591, 27.49486, 27.49228, 27.4957, 27.50232, 27.50073, 27.50263, 27.49936, 
  27.49958, 27.49471, 27.4978, 27.50716, 27.51021, 27.55803, 27.57356, 27.58748, 27.59288, 27.58383, 
  27.59091, 27.59098, 27.62361, 27.63091, 27.63403, 27.63768, 27.64772, 27.68807, 27.70312, 27.71604, 
  27.7171, 27.70935, 27.70844, 27.72607, 27.7841, 27.76982, 27.88201, 27.90537, 27.94767, 27.97284, 
  27.97453, 27.98787, 28.00286, 28.01953, 28.02377, 28.02165, 28.02862, 28.03771, 28.05165, 28.05044, 
  28.04104, 28.0368, 28.03832, 28.02953, 28.02074, 27.99225, 27.98681, 27.9974, 27.9971, 27.97921, 
  28.01104, 28.10708, 28.1528, 28.14584, 28.17822, 28.21393, 28.21907, 28.2469, 28.26081, 28.28198, 
  28.30193, 28.30677, 28.31432, 28.31946, 28.34333, 28.3367, 28.35015, 28.34758, 28.35347, 28.35347, 
  28.36208, 28.36994, 28.37386, 28.37824, 28.37704, 28.39002, 28.38746, 28.39214, 28.39229, 28.38912, 
  28.38474, 28.37991, 28.37749, 28.36133, 28.3438, 28.34698, 28.34562, 28.34985, 28.34456, 28.34063, 
  28.33005, 28.32733, 28.31721, 28.31963, 28.31101, 28.30905, 28.30074, 28.2962, 28.29091, 28.28426, 
  28.27277, 28.25826, 28.21742, 28.24888, 28.23179, 28.22559, 28.20215, 28.19655, 28.19277, 28.17067, 
  28.1684, 28.15554, 28.14767, 28.13707, 28.14434, 28.13647, 28.09317, 28.07832, 28.05954, 28.05894, 
  28.05485, 28.05394, 28.04712, 28.04303, 28.03833, 28.04757, 28.04454, 28.04212, 28.045, 28.05167, 
  28.05151, 28.05469, 28.05424, 28.05682, 28.05621, 28.05818, 28.0606, 28.06288, 28.06439, 28.07121, 
  28.06493, 28.06603, 28.06463, 28.05955, 28.05966, 28.05789, 28.05507, 28.05429, 28.05501, 28.0569, 
  28.05872, 28.05885, 28.06082, 28.0623, 28.06412, 28.06433, 28.06527, 28.06607, 28.06558, 28.06783, 
  28.06908, 28.06855, 28.0709, 28.07086, 28.07258, 28.07223, 28.07331, 28.07271, 28.07412, 28.074, 
  28.07531, 28.08054, 28.08046, 28.08163, 28.08193, 28.08458, 28.08761, 28.08773, 28.0844, 28.08273, 
  28.08159, 28.07936, 28.08296, 28.08159, 28.0783, 28.07489, 28.07174, 28.07549, 28.07584, 28.07119, 
  28.07285, 28.07543, 28.07596, 28.07349, 28.07334, 28.07241, 28.07116, 28.07145, 28.07112, 28.0713, 
  28.07679, 28.07804, 28.07864, 28.07713, 28.0791, 28.08095, 28.08209, 28.08425, 28.08569, 28.08716, 
  28.0875, 28.08679, 28.08913, 28.0894, 28.09121, 28.09322, 28.09413, 28.0928, 28.09163, 28.09121, 
  28.09243, 28.09515, 28.09644, 28.09519, 28.09693, 28.09705, 28.09985, 28.10231, 28.10609, 28.1092, 
  28.10886, 28.11457, 28.12555, 28.13826, 28.14754, 28.15476, 28.15942, 28.1615, 28.1559, 28.15041, 
  28.14458, 28.1489, 28.14769, 28.14371, 28.1419, 28.13951, 28.14296, 28.15098, 28.15124, 28.1464, 
  28.14621, 28.14089, 28.14112, 28.14731, 28.14685, 28.14379, 28.14209, 28.14152, 28.14035, 28.14061, 
  28.13883, 28.14144, 28.1492, 28.15378, 28.15431, 28.15752, 28.15983, 28.1601, 28.16207, 28.16188, 
  28.16059, 28.16055, 28.15923, 28.16044, 28.16184, 28.16339, 28.16169, 28.16316, 28.16653, 28.16676, 
  28.17103, 28.17239, 28.17568, 28.18817, 28.18911, 28.19448, 28.19479, 28.18855, 28.18556, 28.18552, 
  28.19441, 28.20008, 28.20307, 28.20999, 28.21007, 28.20969, 28.21256, 28.21297, 28.21792, 28.22035, 
  28.22081, 28.2244, 28.22342, 28.2213, 28.22364, 28.21945, 28.21703, 28.21279, 28.21158, 28.20934, 
  28.20756, 28.209, 28.2112, 28.21324, 28.21211, 28.21445, 28.2205, 28.22236, 28.2255, 28.2258, 
  28.22739, 28.23102, 28.23302, 28.23718, 28.24603, 28.24916, 28.24962, 28.25166, 28.25143, 28.25567, 
  28.26058, 28.26266, 28.26258, 28.26436, 28.26833, 28.27044, 28.2715, 28.27317, 28.27649, 28.27536, 
  28.28806, 28.28813, 28.29599, 28.29501, 28.30128, 28.30431, 28.30755, 28.30642, 28.30476, 28.30408, 
  28.31164, 28.31341, 28.32728, 28.33136, 28.33324, 28.33158, 28.31889, 28.31239, 28.30922, 28.30166, 
  28.29758, 28.29297, 28.27959, 28.27679, 28.27438, 28.27188, 28.26992, 28.27181, 28.26833, 28.26742, 
  28.27422, 28.27407, 28.2684, 28.25774, 28.25464, 28.2523, 28.24981, 28.25026, 28.25442, 28.25555, 
  28.25306, 28.25351, 28.25631, 28.25245, 28.25714, 28.25963, 28.26084, 28.26213, 28.26568, 28.26772, 
  28.26538, 28.27294, 28.27181, 28.27407, 28.27543, 28.27407, 28.27936, 28.27808, 28.27982, 28.27952, 
  28.28685, 28.28503, 28.28647, 28.28526, 28.28723, 28.28964, 28.29403, 28.29592, 28.29864, 28.29985, 
  28.30279, 28.31035, 28.31209, 28.31715, 28.32014, 28.3204, 28.32312, 28.32682, 28.32728, 28.32569, 
  28.32675, 28.33075, 28.34737, 28.3479, 28.34393, 28.34469, 28.34673, 28.34756, 28.34741, 28.35013, 
  28.35387, 28.35455, 28.35205, 28.3465, 28.34405, 28.34427, 28.34193, 28.34775, 28.35636, 28.35779, 
  28.36134, 28.36014, 28.36361, 28.3624, 28.36459, 28.36671, 28.36603, 28.36943, 28.37109, 28.37486, 
  28.37511, 28.38045, 28.37887, 28.3809, 28.38272, 28.3846, 28.3837, 28.39163, 28.39638, 28.39653, 
  28.39835, 28.39895, 28.40091, 28.40416, 28.40227, 28.40461, 28.4068, 28.4179, 28.4142, 28.42409, 
  28.43322, 28.46122, 28.47126, 28.46273, 28.46107, 28.45722, 28.46145, 28.47069, 28.48227, 28.48205, 
  28.48665, 28.4874, 28.49419, 28.49185, 28.5, 28.5083, 28.51282, 28.51674, 28.51667, 28.51885, 
  28.52527, 28.53349, 28.53703, 28.54442, 28.54027, 28.54201, 28.53499, 28.54479, 28.54804, 28.55883, 
  28.56666, 28.56847, 28.6225, 28.65384, 28.68697, 28.6942, 28.69089, 28.70534, 28.70459, 28.71408, 
  28.71784, 28.80527, 28.82407, 28.82678, 28.83186, 28.83498, 28.83336, 28.83558, 28.83908, 28.84332, 
  28.86422, 28.86151, 28.86858, 28.86888, 28.87369, 28.87579, 28.88466, 28.89248, 28.89902, 28.89285, 
  28.88489, 28.8909, 28.88354, 28.8903, 28.90555, 28.9057, 28.90375, 28.9066, 28.90578, 28.90878, 
  28.91397, 28.91322, 28.9166, 28.92028, 28.92441, 28.92666, 28.92809, 28.92967, 28.93125, 28.93403, 
  28.9356, 28.93913, 28.93913, 28.94184, 28.94357, 28.94717, 28.9468, 28.94447, 28.9504, 28.95904, 
  28.95971, 28.96264, 28.95776, 28.97278, 28.9661, 28.97939, 28.9911, 29.00063, 29.00972, 29.01129, 
  29.0155, 29.01752, 29.01632, 29.01309, 29.006, 29.00867, 29.01377, 29.01523, 29.01989, 29.02173, 
  29.02229, 29.02507, 29.02356, 29.02037, 29.02053, 29.02642, 29.02796, 29.02987, 29.03092, 29.03445, 
  29.03366, 29.04056, 29.05347, 29.05317, 29.04086, 29.03756, 29.04011, 29.04251, 29.04176, 29.05602, 
  29.06145, 29.07087, 29.07883, 29.09413, 29.10268, 29.10598, 29.10703, 29.12067, 29.11797, 29.12802, 
  29.14332, 29.13417, 29.14077, 29.15816, 29.17015, 29.17435, 29.20162, 29.20717, 29.2214, 29.22769, 
  29.22025, 29.23099, 29.23668, 29.24327, 29.26274, 29.27382, 29.24147, 29.24716, 29.18664, 29.16595, 
  29.13147, 29.16415, 29.20762, 29.26843, 29.2831, 29.27652, 29.26544, 29.24387, 29.17734, 29.1682, 
  29.16445, 29.15681, 29.15906, 29.15921, 29.16236, 29.16101, 29.17854, 29.19023, 29.19653, 29.20462, 
  29.21406, 29.22709, 29.22724, 29.21406, 29.2169, 29.22245, 29.22275, 29.23009, 29.23608, 29.23953, 
  29.25271, 29.25301, 29.26004, 29.26618, 29.26274, 29.26813, 29.26319, 29.26334, 29.26618, 29.27187, 
  29.27322, 29.27682, 29.27697, 29.28086, 29.28116, 29.2852, 29.2852, 29.27457, 29.28505, 29.28685, 
  29.29553, 29.31065, 29.31439, 29.32277, 29.32307, 29.32771, 29.33909, 29.34193, 29.33909, 29.35525, 
  29.36183, 29.3717, 29.37829, 29.38666, 29.3895, 29.39683, 29.42211, 29.43608, 29.43975, 29.4399, 
  29.44737, 29.4538, 29.44647, 29.45754, 29.46889, 29.47771, 29.51058, 29.54583, 29.55031, 29.55464, 
  29.57883, 29.586, 29.58958, 29.59809, 29.59764, 29.61839, 29.62092, 29.63301, 29.64509, 29.62152, 
  29.62361, 29.61988, 29.62435, 29.61227, 29.61749, 29.61376, 29.60749, 29.60555, 29.60003, 29.60048, 
  29.59062, 29.58615, 29.5748, 29.56763, 29.56121, 29.55778, 29.55099, 29.54546, 29.54173, 29.54673, 
  29.54568, 29.54979, 29.54822, 29.54598, 29.5486, 29.54665, 29.54815, 29.5471, 29.54262, 29.54344, 
  29.53291, 29.53366, 29.52716, 29.52642, 29.53015, 29.53396, 29.50528, 29.49549, 29.49363, 29.48914, 
  29.48608, 29.47629, 29.47719, 29.46897, 29.47188, 29.46822, 29.47136, 29.49363, 29.50364, 29.50797, 
  29.51723, 29.52634, 29.52724, 29.5368, 29.53777, 29.53575, 29.5365, 29.52993, 29.52821, 29.53247, 
  29.53396, 29.53329, 29.53904, 29.54135, 29.53135, 29.52993, 29.52111, 29.51858, 29.5114, 29.49736, 
  29.47644, 29.473, 29.47442, 29.47188, 29.46979, 29.46389, 29.46269, 29.45731, 29.45365, 29.4458, 
  29.44588, 29.43496, 29.43937, 29.41762, 29.4162, 29.41201, 29.40999, 29.40184, 29.39795, 29.39384, 
  29.3984, 29.40139, 29.40648, 29.40977, 29.41373, 29.42024, 29.41882, 29.42255, 29.42771, 29.44289, 
  29.44461, 29.45925, 29.46792, 29.47398, 29.47936, 29.49183, 29.49206, 29.48705, 29.48324, 29.47958, 
  29.47764, 29.48145, 29.46155, 29.47689, 29.47502, 29.4733, 29.4668, 29.46523, 29.45776, 29.45522, 
  29.45103, 29.44902, 29.44498, 29.44177, 29.43616, 29.43489, 29.42951, 29.42846, 29.42166, 29.41478, 
  29.41691, 29.42753, 29.43638, 29.45223, 29.45634, 29.47501, 29.48121, 29.4827, 29.49007, 29.49175, 
  29.49616, 29.49922, 29.50213, 29.50352, 29.50733, 29.51358, 29.51462, 29.51754, 29.52784, 29.51724, 
  29.51687, 29.51116, 29.50708, 29.50768, 29.5156, 29.51462, 29.52441, 29.52329, 29.53613, 29.53688, 
  29.54296, 29.54711, 29.54845, 29.53897, 29.54106, 29.54121, 29.54913, 29.54659, 29.54888, 29.54584, 
  29.55644, 29.55555, 29.56525, 29.5607, 29.5657, 29.56712, 29.57324, 29.58847, 29.58698, 29.59362, 
  29.59713, 29.60354, 29.6078, 29.62869, 29.63905, 29.65249, 29.66964, 29.68791, 29.68828, 29.69775, 
  29.71713, 29.73122, 29.74129, 29.74106, 29.74941, 29.74851, 29.74859, 29.74889, 29.75179, 29.7509, 
  29.75708, 29.76684, 29.77854, 29.78398, 29.7886, 29.78718, 29.81213, 29.82248, 29.82986, 29.85227, 
  29.85971, 29.86425, 29.87274, 29.87303, 29.88144, 29.88963, 29.89283, 29.89603, 29.89774, 29.90124, 
  29.90213, 29.9054, 29.90525, 29.90912, 29.90131, 29.9028, 29.89394, 29.88799, 29.8938, 29.89186, 
  29.88955, 29.88949, 29.888, 29.89098, 29.89098, 29.89723, 29.92371, 29.92684, 29.95049, 29.96834, 
  29.98112, 29.978, 29.99005, 30.00833, 30.01636, 30.07094, 30.20871, 30.24635, 30.27748, 30.3418, 
  30.36047, 30.40578, 30.39423, 30.39808, 30.38061, 30.37646, 30.32876, 30.31721, 30.25973, 30.21523, 
  30.22947, 30.29175, 30.3605, 30.37827, 30.40611, 30.38183, 30.29886, 30.29649, 30.36761, 30.41203, 
  30.42802, 30.47952, 30.5233, 30.57648, 30.60308, 30.63381, 30.66571, 30.69494, 30.69819, 30.76695, 
  30.81473, 30.84951, 30.84715, 30.88193, 30.91993, 30.92199, 30.92934, 30.93865, 30.9635, 30.96762, 
  31.00299, 31.00357, 31.03417, 31.04712, 31.07064, 31.06947, 31.08825, 31.17671, 31.27627, 31.3367, 
  31.37657, 31.39239, 31.4545, 31.4955, 31.51833, 31.63708, 31.72706, 31.78311, 31.84205, 31.88345, 
  31.88695, 31.87529, 31.84263, 31.83621, 31.74108, 31.70604, 31.68267, 31.69844, 31.72239, 31.79835, 
  31.96278, 32.08736, 32.1397, 32.1955, 32.22106, 32.26275, 32.28945, 32.40431, 32.60872, 32.6388, 
  32.70816, 32.87728, 33.01672, 33.06738, 33.2249, 33.23065, 33.49445, 34.16864, 34.32076, 34.4726, 
  34.47034, 34.50316, 34.52806, 34.5224, 34.55747, 34.66484, 34.7134, 34.72581, 34.75008, 34.75402, 
  34.76587, 34.76644, 34.79745, 34.78674, 34.8341, 34.84424, 34.89325, 35.02437, 35.0418, 35.0581, 
  35.08789, 35.09238, 35.12833, 35.13676, 35.27982, 35.28542, 35.31513, 35.31625, 35.33511, 35.33753, 
  35.37561, 35.37449, 35.40304, 35.45592, 35.45787, 35.46375, 35.46375, 35.48164, 35.49366, 35.56826, 
  35.56686, 35.57887, 35.58976, 35.59702, 35.59227, 35.61963, 35.62074, 35.58836, 35.57971, 35.60651, 
  35.62995, 35.64837, 35.64502, 35.62074, 35.63107, 35.60902, 35.63526, 35.63749, 35.65049, 35.66095, 
  35.68667, 35.70033, 35.70822, 35.71671, 35.72695, 35.72402, 35.73972, 35.75434, 35.76883, 35.76326, 
  35.74668, 35.74041, 35.7401, 35.72478, 35.7192, 35.73341, 35.73453, 35.75376, 35.76796, 35.78301, 
  35.81559, 35.87625, 35.88488, 35.88627, 35.88015, 35.88655, 35.89712, 35.91019, 35.91297, 35.90768, 
  35.90963, 35.9202, 35.92173, 35.91158, 35.90935, 35.92061, 35.92228, 35.93507, 35.94716, 35.93715, 
  35.93257, 35.93271, 35.92562, 35.92339, 35.91241, 35.90351, 35.89614, 35.89211, 35.8903, 35.8928, 
  35.89211, 35.90004, 35.89892, 35.89204, 35.89253, 35.89941, 35.90462, 35.91651, 35.92305, 35.92325, 
  35.93208, 35.94841, 35.94834, 35.9555, 35.96557, 35.96981, 35.9678, 35.96981, 35.96905, 35.97259, 
  35.97613, 35.99085, 35.99676, 35.99669, 36.00044, 36.00377, 36.00759, 36.01203, 36.0162, 36.01544, 
  36.00655, 35.99697, 35.98856, 35.97912, 35.97634, 36.00176, 36.01287, 36.02384, 35.99551, 35.99509, 
  35.99912, 36.02869, 36.04618, 36.04979, 36.05992, 36.06256, 36.0627, 36.09139, 36.10002, 36.12983, 
  36.13771, 36.15562, 36.16102, 36.1692, 36.17377, 36.17807, 36.18527, 36.18832, 36.18015, 36.18638, 
  36.19871, 36.21838, 36.22043, 36.19386, 36.19026, 36.20079, 36.1994, 36.19192, 36.19012, 36.18319, 
  36.18126, 36.18777, 36.18001, 36.18638, 36.18874, 36.19843, 36.2019, 36.22101, 36.23264, 36.25383, 
  36.25438, 36.2404, 36.23652, 36.23029, 36.21852, 36.2073, 36.20453, 36.194, 36.194, 36.17502, 
  36.17447, 36.11153, 36.10889, 36.10265, 36.09835, 36.08962, 36.10071, 36.09447, 36.07241, 36.06887, 
  36.06887, 36.06055, 36.05826, 36.04965, 36.04528, 36.04348, 36.04611, 36.04355, 36.04424, 36.05187, 
  36.05396, 36.05146, 36.05285, 36.05049, 36.05215, 36.05486, 36.05659, 36.06138, 36.06187, 36.0609, 
  36.05298, 36.05279, 36.05403, 36.05333, 36.05766, 36.05517, 36.05312, 36.05224, 36.05127, 36.04932, 
  36.04891, 36.04724, 36.04476, 36.04363, 36.04735, 36.04802, 36.04965, 36.05017, 36.04922, 36.04957, 
  36.05167, 36.05109, 36.04971, 36.04728, 36.04618, 36.04485, 36.04372, 36.04271, 36.04407, 36.04533, 
  36.04677, 36.04837, 36.04931, 36.05156, 36.05331, 36.0556, 36.05451, 36.05762, 36.05744, 36.06065, 
  36.06048, 36.06126, 36.06039, 36.05666, 36.05423, 36.05097, 36.05215, 36.05174, 36.05271, 36.05222, 
  36.05319, 36.05333, 36.05507, 36.05507, 36.05888, 36.05861, 36.05756, 36.05639, 36.05715, 36.05611, 
  36.05715, 36.05708, 36.05777, 36.05736, 36.05661, 36.05462, 36.05314, 36.05175, 36.05238, 36.05382, 
  36.05578, 36.05704, 36.05885, 36.06273, 36.06327, 36.06518, 36.06626, 36.06372, 36.06426, 36.06558, 
  36.07408, 36.07505, 36.076, 36.07725, 36.0823, 36.09069, 36.09492, 36.09447, 36.09298, 36.09014, 
  36.08875, 36.08871, 36.0918, 36.09333, 36.09312, 36.09731, 36.09887, 36.09704, 36.09679, 36.09544, 
  36.09489, 36.09672, 36.09551, 36.09669, 36.09659, 36.09929, 36.09988, 36.09908, 36.09922, 36.09582, 
  36.09454, 36.09541, 36.09738, 36.09711, 36.09818, 36.10047, 36.10005, 36.10172, 36.10366, 36.10446, 
  36.10664, 36.10546, 36.10612, 36.11052, 36.11645, 36.11597, 36.11455, 36.11299, 36.11136, 36.11177, 
  36.11042, 36.10928, 36.1082, 36.10976, 36.11063, 36.11496, 36.11728, 36.11708, 36.11614, 36.11458, 
  36.10661, 36.10252, 36.1012, 36.10373, 36.10314, 36.10612, 36.10713, 36.10678, 36.10723, 36.10921, 
  36.10941, 36.11098, 36.11177, 36.11621, 36.11774, 36.11881, 36.11829, 36.12425, 36.12612, 36.12602, 
  36.12713, 36.12543, 36.12522, 36.12439, 36.12273, 36.12276, 36.12089, 36.11999, 36.12165, 36.1229, 
  36.12314, 36.12917, 36.13049, 36.13704, 36.13819, 36.135, 36.13254, 36.13004, 36.12945, 36.13098, 
  36.1325, 36.13247, 36.13493, 36.13389, 36.13625, 36.1377, 36.14068, 36.13819, 36.13819, 36.14117, 
  36.14467, 36.14593, 36.14867, 36.14972, 36.15129, 36.15233, 36.15296, 36.15589, 36.15794, 36.16012, 
  36.16258, 36.16292, 36.16549, 36.16469, 36.16587, 36.16521, 36.16927, 36.16836, 36.1729, 36.17526, 
  36.18426, 36.18568, 36.18579, 36.19199, 36.1959, 36.19916, 36.19885, 36.20854, 36.21123, 36.21132, 
  36.21644, 36.22357, 36.22756, 36.2295, 36.23739, 36.24106, 36.24687, 36.24992, 36.25151, 36.2511, 
  36.25345, 36.25629, 36.25722, 36.2595, 36.26615, 36.26995, 36.27812, 36.27691, 36.27757, 36.28116, 
  36.28127, 36.26075, 36.26092, 36.27611, 36.27269, 36.28244, 36.28687, 36.29203, 36.29538, 36.29524, 
  36.29957, 36.30067, 36.30994, 36.31184, 36.32132, 36.32253, 36.33307, 36.33276, 36.33428, 36.33446, 
  36.33719, 36.33878, 36.3376, 36.33498, 36.33083, 36.32754, 36.3338, 36.33356, 36.33114, 36.33517, 
  36.33197, 36.33249, 36.33065, 36.33207, 36.33086, 36.32899, 36.32851, 36.32975, 36.33317, 36.3346, 
  36.33387, 36.33266, 36.33283, 36.33439, 36.33515, 36.34645, 36.34789, 36.35022, 36.34932, 36.35288, 
  36.35551, 36.35696, 36.3599, 36.36155, 36.35889, 36.35886, 36.3646, 36.36577, 36.36422, 36.36529, 
  36.37614, 36.3939, 36.39442, 36.40319, 36.40333, 36.4092, 36.41975, 36.41816, 36.42306, 36.42472, 
  36.42907, 36.43867, 36.43805, 36.43266, 36.43294, 36.43618, 36.43418, 36.43805, 36.44267, 36.44734, 
  36.45379, 36.45545, 36.46035, 36.46746, 36.45351, 36.44564, 36.43964, 36.43639, 36.42265, 36.41319, 
  36.41167, 36.40752, 36.40206, 36.39516, 36.39094, 36.38742, 36.38479, 36.38161, 36.38007, 36.37751, 
  36.37889, 36.37944, 36.37533, 36.37502, 36.36997, 36.37112, 36.37592, 36.37454, 36.37599, 36.37611, 
  36.38114, 36.38383, 36.38608, 36.38649, 36.39893, 36.4, 36.39934, 36.40128, 36.40231, 36.40711, 
  36.41312, 36.41512, 36.43059, 36.44304, 36.45655, 36.45641, 36.44972, 36.45124, 36.44958, 36.45255, 
  36.46152, 36.4658, 36.4776, 36.48954, 36.49493, 36.49913, 36.50693, 36.51983, 36.53018, 36.52811, 
  36.54135, 36.55466, 36.55445, 36.54817, 36.54211, 36.55541, 36.55948, 36.56258, 36.56107, 36.56376, 
  36.56603, 36.5712, 36.56431, 36.58175, 36.58885, 36.58892, 36.59188, 36.60187, 36.60318, 36.61117, 
  36.60284, 36.59739, 36.58843, 36.58478, 36.58692, 36.5914, 36.59153, 36.5978, 36.60421, 36.60814, 
  36.60662, 36.61159, 36.61565, 36.62089, 36.62529, 36.62419, 36.61482, 36.61351, 36.60277, 36.58506, 
  36.57692, 36.5823, 36.58809, 36.5812, 36.57672, 36.57782, 36.58485, 36.58402, 36.57927, 36.58947, 
  36.60621, 36.61386, 36.61524, 36.61861, 36.62033, 36.6264, 36.62929, 36.63487, 36.64968, 36.66992, 
  36.67453, 36.68532, 36.69317, 36.69317, 36.6688, 36.67169, 36.69317, 36.71436, 36.70693, 36.71508, 
  36.71949, 36.71866, 36.70999, 36.70228, 36.70256, 36.70641, 36.70751, 36.71302, 36.71646, 36.71426, 
  36.7221, 36.72265, 36.73228, 36.74686, 36.76117, 36.76213, 36.75374, 36.75608, 36.75374, 36.75721, 
  36.75697, 36.7613, 36.76674, 36.77217, 36.76955, 36.76969, 36.77299, 36.77134, 36.77285, 36.77306, 
  36.76962, 36.76797, 36.76708, 36.76282, 36.76096, 36.76344, 36.76103, 36.7523, 36.75182, 36.75463, 
  36.75622, 36.7556, 36.75291, 36.75367, 36.75175, 36.74005, 36.73744, 36.73393, 36.73531, 36.7329, 
  36.73496, 36.73366, 36.73517, 36.73744, 36.74191, 36.74384, 36.74631, 36.74617, 36.74968, 36.75622, 
  36.76598, 36.77395, 36.77279, 36.76921, 36.77045, 36.772, 36.77409, 36.7799, 36.78025, 36.77619, 
  36.77533, 36.76914, 36.76099, 36.75955, 36.76409, 36.76656, 36.76667, 36.75931, 36.74624, 36.74212, 
  36.74239, 36.73895, 36.73992, 36.73551, 36.73489, 36.73771, 36.73496, 36.73689, 36.74583, 36.76041, 
  36.76302, 36.76735, 36.7754, 36.78626, 36.79011, 36.79389, 36.79898, 36.80173, 36.81513, 36.82406, 
  36.82488, 36.83271, 36.83251, 36.8299, 36.83134, 36.83739, 36.84412, 36.85257, 36.8573, 36.88113, 
  36.8882, 36.90543, 36.91065, 36.91675, 36.93555, 36.9431, 36.95078, 36.95648, 36.96855, 36.96663, 
  36.90653, 36.90008, 36.90955, 36.9208, 36.9208, 36.93658, 36.95181, 36.95538, 36.95387, 36.94962, 
  36.94893, 36.93562, 36.92629, 36.91723, 36.92231, 36.91614, 36.89596, 36.88923, 36.88388, 36.88182, 
  36.86987, 36.86218, 36.85833, 36.85943, 36.85325, 36.85064, 36.8457, 36.84116, 36.8457, 36.84391, 
  36.85257, 36.85311, 36.84295, 36.84419, 36.84171, 36.83553, 36.83897, 36.83168, 36.83581, 36.8391, 
  36.83883, 36.83251, 36.83086, 36.83787, 36.84171, 36.83869, 36.85092, 36.85806, 36.86726, 36.86678, 
  36.86239, 36.86122, 36.86548, 36.86479, 36.87015, 36.87152, 36.88347, 36.89623, 36.8961, 36.88594, 
  36.89665, 36.89747, 36.90131, 36.90118, 36.90653, 36.91682, 36.92492, 36.92657, 36.9326, 36.93068, 
  36.93425, 36.92108, 36.91078, 36.89747, 36.89191, 36.89836, 36.89754, 36.90063, 36.90063, 36.89651, 
  36.89795, 36.90742, 36.91051, 36.91813, 36.9206, 36.93871, 36.9525, 36.97328, 36.9763, 36.9824, 
  36.99206, 36.99662, 37.00667, 37.02421, 37.0323, 37.03832, 37.03846, 37.03709, 37.03778, 37.03702, 
  37.03952, 37.04264, 37.04298, 37.04137, 37.04158, 37.04394, 37.04391, 37.04055, 37.03411, 37.03093, 
  37.02764, 37.02812, 37.02541, 37.02565, 37.02243, 37.02318, 37.0323, 37.03449, 37.03504, 37.0323, 
  37.03387, 37.03264, 37.02914, 37.02757, 37.02901, 37.03065, 37.03367, 37.03024, 37.03106, 37.02373, 
  37.02537, 37.02428, 37.0203, 37.0151, 37.01201, 37.00838, 37.00776, 37.01023, 37.00804, 37.00351, 
  37.00317, 36.99954, 36.99817, 36.99508, 36.99426, 36.98857, 36.98253, 36.98775, 36.98637, 36.9813, 
  36.99021, 36.99529, 37.00235, 37.00242, 37.00687, 37.00968, 37.01352, 37.02065, 37.02579, 37.02613, 
  37.02736, 37.03134, 37.03579, 37.03757, 37.03743, 37.03421, 37.03257, 37.03175, 37.03661, 37.03757, 
  37.04065, 37.04004, 37.04607, 37.04778, 37.05353, 37.05511, 37.06011, 37.0599, 37.07826, 37.09045, 
  37.10208, 37.10407, 37.11701, 37.13877, 37.15443, 37.15594, 37.15833, 37.15751, 37.15991, 37.15019, 
  37.1519, 37.14814, 37.14951, 37.14677, 37.14739, 37.16175, 37.16168, 37.16832, 37.16811, 37.1768, 
  37.18378, 37.18378, 37.18993, 37.19075, 37.1846, 37.18384, 37.19178, 37.20032, 37.19936, 37.19547, 
  37.19608, 37.20107, 37.20627, 37.2101, 37.22199, 37.22636, 37.2399, 37.24318, 37.24844, 37.25937, 
  37.25882, 37.25254, 37.25766, 37.25561, 37.26046, 37.26196, 37.26804, 37.27146, 37.27521, 37.27528, 
  37.27931, 37.28348, 37.28717, 37.28771, 37.28348, 37.29051, 37.29222, 37.29666, 37.30437, 37.30833, 
  37.30724, 37.31045, 37.31509, 37.32362, 37.32663, 37.32656, 37.33017, 37.33004, 37.3314, 37.33195, 
  37.32963, 37.33604, 37.34164, 37.35378, 37.369, 37.37609, 37.37746, 37.37391, 37.37725, 37.38475, 
  37.39198, 37.39137, 37.39324, 37.39433, 37.39335, 37.39024, 37.38977, 37.38755, 37.38755, 37.3896, 
  37.38987, 37.38782, 37.38598, 37.38468, 37.38172, 37.37889, 37.37865, 37.37606, 37.3772, 37.37514, 
  37.37524, 37.37609, 37.37858, 37.37913, 37.38179, 37.3825, 37.38666, 37.38874, 37.38905, 37.39103, 
  37.39089, 37.39311, 37.39355, 37.39587, 37.39556, 37.39648, 37.39611, 37.39706, 37.39846, 37.40013, 
  37.40105, 37.40381, 37.40497, 37.40722, 37.40524, 37.40514, 37.4066, 37.40797, 37.40851, 37.4094, 
  37.41202, 37.41192, 37.41267, 37.41192, 37.41226, 37.41438, 37.41584, 37.41567, 37.41686, 37.41697, 
  37.41765, 37.41782, 37.42007, 37.42286, 37.42269, 37.42399, 37.42337, 37.42256, 37.42273, 37.42174, 
  37.42109, 37.42003, 37.41755, 37.4138, 37.41151, 37.41083, 37.41001, 37.41236, 37.41264, 37.41448, 
  37.42085, 37.42249, 37.42358, 37.42423, 37.42109, 37.42085, 37.41928, 37.41666, 37.41516, 37.4138, 
  37.41536, 37.41734, 37.41867, 37.42119, 37.42228, 37.42453, 37.42532, 37.42409, 37.42453, 37.42331, 
  37.42232, 37.41949, 37.41727, 37.41632, 37.414, 37.41301, 37.41192, 37.41311, 37.41598, 37.41639, 
  37.41782, 37.41721, 37.41816, 37.41758, 37.41877, 37.41932, 37.42051, 37.42041, 37.41591, 37.41571, 
  37.41625, 37.41492, 37.41438, 37.41499, 37.41444, 37.41628, 37.41656, 37.41543, 37.41485, 37.41438, 
  37.41189, 37.40916, 37.40916, 37.40701, 37.4049, 37.40476, 37.40159, 37.40071, 37.40238, 37.39975, 
  37.39866, 37.40193, 37.405, 37.41284, 37.42081, 37.42729, 37.4294, 37.43145, 37.42231, 37.41897, 
  37.41372, 37.40888, 37.40936, 37.41304, 37.41407, 37.41216, 37.40909, 37.40957, 37.41485, 37.41345, 
  37.41884, 37.42109, 37.41959, 37.42218, 37.42988, 37.43567, 37.44242, 37.44378, 37.45032, 37.45649, 
  37.45482, 37.45932, 37.46109, 37.46347, 37.46089, 37.45802, 37.45768, 37.45359, 37.45244, 37.43874, 
  37.43492, 37.43247, 37.42824, 37.4277, 37.43458, 37.43942, 37.44323, 37.45113, 37.45182, 37.47484, 
  37.48097, 37.49391, 37.4931, 37.50876, 37.51026, 37.51339, 37.51366, 37.51203, 37.51663, 37.51966, 
  37.51942, 37.52082, 37.51997, 37.52116, 37.52245, 37.5229, 37.52599, 37.5279, 37.53127, 37.53062, 
  37.53208, 37.53379, 37.53491, 37.53522, 37.53433, 37.53454, 37.53411, 37.53456, 37.53495, 37.53605, 
  37.53627, 37.53772, 37.53775, 37.5408, 37.54024, 37.54078, 37.5402, 37.5416, 37.54014, 37.5422, 
  37.54434, 37.54444, 37.54732, 37.54989, 37.54999, 37.55177, 37.55213, 37.55324, 37.55422, 37.55514, 
  37.55504, 37.55395, 37.55502, 37.55558, 37.55393, 37.55342, 37.55414, 37.55373, 37.55516, 37.55698, 
  37.55912, 37.5615, 37.56215, 37.56167, 37.56313, 37.5621, 37.56428, 37.56359, 37.55939, 37.55945, 
  37.55751, 37.55619, 37.55507, 37.5529, 37.55159, 37.54846, 37.54932, 37.54838, 37.54989, 37.54905, 
  37.54914, 37.54778, 37.54604, 37.54544, 37.54429, 37.54281, 37.54168, 37.54211, 37.54403, 37.54693, 
  37.54849, 37.54846, 37.54914, 37.54919, 37.54783, 37.5483, 37.54796, 37.5491, 37.54881, 37.5498, 
  37.55068, 37.55196, 37.55405, 37.5546, 37.55586, 37.55808, 37.55759, 37.559, 37.55977, 37.56189, 
  37.56322, 37.56557, 37.56552, 37.5632, 37.5629, 37.55853, 37.55608, 37.55495, 37.55489, 37.5538, 
  37.55346, 37.55148, 37.55114, 37.55033, 37.54856, 37.54808, 37.54839, 37.5474, 37.54682, 37.5455, 
  37.54461, 37.54369, 37.53998, 37.53765, 37.53544, 37.53304, 37.53289, 37.53512, 37.53598, 37.53874, 
  37.54077, 37.53828, 37.53832, 37.53954, 37.54073, 37.54066, 37.53852, 37.5373, 37.53311, 37.53069, 
  37.52518, 37.52763, 37.52487, 37.52378, 37.51922, 37.50904, 37.50013, 37.50006, 37.49754, 37.49464, 
  37.49069, 37.48565, 37.48303, 37.47333, 37.47411, 37.46382, 37.45401, 37.45905, 37.46818, 37.47499, 
  37.48399, 37.48759, 37.4846, 37.47513, 37.46369, 37.463, 37.43847, 37.44829, 37.45646, 37.45278, 
  37.4705, 37.48848, 37.51231, 37.51939, 37.52097, 37.5256, 37.53519, 37.53587, 37.54417, 37.54893, 
  37.54893, 37.54403, 37.54595, 37.55669, 37.56254, 37.55383, 37.55791, 37.56798, 37.56853, 37.5771, 
  37.57764, 37.58309, 37.5839, 37.58744, 37.58948, 37.59302, 37.59846, 37.59383, 37.59519, 37.5937, 
  37.59465, 37.59859, 37.60063, 37.60498, 37.6039, 37.60621, 37.61478, 37.61899, 37.62185, 37.62103, 
  37.62443, 37.63014, 37.62796, 37.62021, 37.60716, 37.58812, 37.57696, 37.57411, 37.58322, 37.59873, 
  37.63422, 37.64455, 37.6561, 37.65637, 37.66806, 37.6951, 37.69645, 37.71275, 37.71166, 37.7061, 
  37.72389, 37.73475, 37.74194, 37.75104, 37.75321, 37.77981, 37.79432, 37.80083, 37.8007, 37.80734, 
  37.81372, 37.81412, 37.82023, 37.81534, 37.83134, 37.82714, 37.81589, 37.81168, 37.81589, 37.82416, 
  37.82199, 37.83297, 37.81792, 37.79812, 37.77831, 37.78564, 37.76827, 37.7547, 37.74737, 37.71886, 
  37.69469, 37.68762, 37.68817, 37.67703, 37.66398, 37.67078, 37.67051, 37.6542, 37.64468, 37.64033, 
  37.63245, 37.60417, 37.57315, 37.5473, 37.52389, 37.48249, 37.45796, 37.44652, 37.43534, 37.42771, 
  37.41844, 37.41489, 37.42007, 37.41953, 37.40398, 37.39116, 37.38243, 37.37289, 37.36743, 37.36306, 
  37.35269, 37.33714, 37.337, 37.30546, 37.30533, 37.29003, 37.25998, 37.22595, 37.20955, 37.20053, 
  37.16551, 37.11707, 37.13405, 37.13173, 37.20353, 37.25001, 37.35597, 37.43234, 37.4814, 37.5228, 
  37.63979, 37.65284, 37.66262, 37.70881, 37.74249, 37.76203, 37.8087, 37.81412, 37.84558, 37.90791, 
  37.8819, 37.82823, 37.80707, 37.84883, 37.91658, 37.95557, 38.00536, 38.08701, 38.13456, 38.15238, 
  38.1432, 38.05782, 38.09998, 38.14104, 38.17883, 38.20689, 38.277, 38.37719, 38.35458, 38.35243, 
  38.49552, 38.66621, 38.69998, 38.76265, 38.81243, 38.85415, 38.82687, 38.88729, 38.8611, 38.89905, 
  38.94179, 38.97489, 39.05918, 39.10555, 39.13752, 39.19395, 39.22268, 39.18118, 39.05545, 39.04265, 
  39.02345, 38.97916, 38.91481, 38.96849, 39.04692, 39.05065, 39.07464, 39.10449, 39.1487, 39.16467, 
  39.13432, 39.13698, 39.16627, 39.18703, 39.24449, 39.36191, 39.36032, 39.43301, 39.52099, 39.73729, 
  39.81434, 39.81223, 39.85547, 39.88814, 39.91026, 39.90552, 39.9308, 39.93554, 39.95239, 39.95554, 
  39.9787, 39.98449, 39.9566, 39.95818, 39.9908, 40.01762, 40.0518, 40.13689, 40.18832, 40.19776, 
  40.25857, 40.32718, 40.36695, 40.3999, 40.41454, 40.45322, 40.48534, 40.47855, 40.48299, 40.51249, 
  40.50414, 40.54224, 40.54955, 40.56676, 40.56755, 40.60196, 40.63089, 40.64444, 40.67179, 40.68454, 
  40.68324, 40.69574, 40.715, 40.70953, 40.72567, 40.74362, 40.74179, 40.7769, 40.78834, 40.80367, 
  40.8216, 40.81303, 40.832, 40.78392, 40.80108, 40.80264, 40.84005, 40.85381, 40.86939, 40.88315, 
  40.87406, 40.87822, 40.88808, 40.8886, 40.87848, 40.87355, 40.85978, 40.85901, 40.85148, 40.85122, 
  40.85978, 40.88393, 40.89872, 40.86446, 40.85122, 40.84836, 40.83277, 40.88445, 40.88419, 40.86394, 
  40.84239, 40.83277, 40.86913, 40.83979, 40.85277, 40.83148, 40.84862, 40.87147, 40.88393, 40.90106, 
  40.89431, 40.91403, 40.95242, 40.86472, 40.81277, 40.80238, 40.7431, 40.68142, 40.69678, 40.6697, 
  40.65772, 40.66554, 40.66892, 40.68298, 40.68272, 40.66371, 40.61421, 40.57094, 40.56259, 40.55842, 
  40.56233, 40.54016, 40.53598, 40.5138, 40.50832, 40.489, 40.48795, 40.47411, 40.46105, 40.47411, 
  40.4702, 40.45426, 40.44303, 40.41977, 40.42421, 40.41742, 40.38134, 40.29891, 40.23656, 40.18412, 
  40.12744, 40.11064, 40.04023, 40.0192, 39.96554, 39.9308, 39.92132, 39.93185, 39.8992, 39.8992, 
  39.86759, 39.85599, 39.86548, 39.79904, 39.76949, 39.74521, 39.69926, 39.65804, 39.65117, 39.62685, 
  39.60198, 39.60198, 39.54376, 39.5157, 39.51464, 39.48338, 39.48444, 39.51199, 39.48867, 39.52099, 
  39.51199, 39.49185, 39.50828, 39.45422, 39.42453, 39.39057, 39.37677, 39.46217, 39.45581, 39.42346, 
  39.38739, 39.37359, 39.38102, 39.36191, 39.37943, 39.37253, 39.33642, 39.32686, 39.29977, 39.29552, 
  39.33164, 39.3327, 39.32367, 39.33058, 39.34492, 39.35182, 39.37359, 39.39694, 39.40914, 39.38526, 
  39.39163, 39.38686, 39.37943, 39.37943, 39.36722, 39.34067, 39.30933, 39.30083, 39.32421, 39.30136, 
  39.28914, 39.27479, 39.28064, 39.27107, 39.2732, 39.25459, 39.25884, 39.23917, 39.22374, 39.228, 
  39.22002, 39.21044, 39.19927, 39.20193, 39.1668, 39.16734, 39.12793, 39.10928, 39.07411, 39.06878, 
  39.02825, 39.01492, 39.02238, 39.03892, 39.06185, 39.04319, 39.04372, 39.00264, 39.00051, 38.97863, 
  38.96582, 38.97222, 38.95567, 38.95033, 38.9311, 38.95247, 38.95087, 38.95727, 38.94766, 38.93751, 
  38.92683, 38.89584, 38.88996, 38.86751, 38.8611, 38.81403, 38.8135, 38.79477, 38.79477, 38.77871, 
  38.78567, 38.77978, 38.76051, 38.72355, 38.72355, 38.76319, 38.76533, 38.79316, 38.78781, 38.80333, 
  38.8151, 38.82473, 38.81189, 38.82366, 38.81671, 38.82848, 38.84613, 38.84613, 38.8766, 38.87232, 
  38.86324, 38.86591, 38.88141, 38.91828, 38.94232, 38.92897, 38.949, 38.96235, 38.97943, 38.98557, 
  38.99437, 39.00398, 39.01572, 39.01492, 39.00238, 39.00585, 39.03305, 39.03385, 39.03039, 39.02185, 
  38.96555, 38.97142, 38.96235, 38.95887, 38.94846, 38.94259, 38.96235, 38.96555, 38.97382, 38.99864, 
  39.02932, 39.03919, 39.03119, 39.03465, 39.02745, 39.03199, 39.02825, 39.01972, 39.01652, 39.01998, 
  39.03119, 39.04372, 39.04239, 39.05438, 39.05892, 39.03145, 39.06718, 39.07891, 39.06052, 39.06825, 
  39.09836, 39.11115, 39.11381, 39.1242, 39.1226, 39.13299, 39.13619, 39.14684, 39.15509, 39.16387, 
  39.18676, 39.2006, 39.20725, 39.22082, 39.22454, 39.21896, 39.23465, 39.2607, 39.25592, 39.26575, 
  39.2716, 39.28994, 39.30588, 39.31039, 39.31969, 39.34691, 39.33377, 39.32447, 39.3347, 39.3424, 
  39.35819, 39.38022, 39.38394, 39.37598, 39.38712, 39.38155, 39.39269, 39.40755, 39.41524, 39.4171, 
  39.40277, 39.40622, 39.4224, 39.4041, 39.39429, 39.39747, 39.41418, 39.42532, 39.42718, 39.45502, 
  39.46562, 39.48073, 39.48497, 39.49662, 39.50033, 39.49689, 39.51967, 39.52523, 39.52523, 39.51411, 
  39.52444, 39.53715, 39.53609, 39.55356, 39.56706, 39.58585, 39.56785, 39.57262, 39.5959, 39.6004, 
  39.60966, 39.62711, 39.6078, 39.61495, 39.62209, 39.59537, 39.59934, 39.6041, 39.60463, 39.63346, 
  39.64112, 39.64588, 39.66835, 39.66042, 39.66148, 39.67548, 39.67866, 39.67073, 39.66914, 39.68817, 
  39.69266, 39.67522, 39.6628, 39.65408, 39.64509, 39.64932, 39.66465, 39.67311, 39.67469, 39.66967, 
  39.67363, 39.68473, 39.68764, 39.69556, 39.7019, 39.69028, 39.69556, 39.69451, 39.7019, 39.71062, 
  39.72118, 39.73148, 39.73993, 39.73835, 39.74336, 39.75524, 39.76157, 39.7563, 39.75155, 39.75128, 
  39.72752, 39.74732, 39.75075, 39.74574, 39.75339, 39.7555, 39.76527, 39.77028, 39.75762, 39.76289, 
  39.77002, 39.77002, 39.77424, 39.7753, 39.78875, 39.78743, 39.75656, 39.76712, 39.77503, 39.78453, 
  39.77239, 39.77503, 39.79377, 39.80168, 39.8328, 39.82673, 39.81038, 39.8233, 39.82251, 39.8328, 
  39.83438, 39.82251, 39.81961, 39.80748, 39.80089, 39.82858, 39.82884, 39.77662, 39.74521, 39.78031, 
  39.81144, 39.84229, 39.84532, 39.86219, 39.87114, 39.89222,
  39.89183, 39.90941, 39.91922, 39.92797, 39.93264, 39.93087, 39.92777, 39.93047, 39.93258, 39.93738, 
  39.94252, 39.94317, 39.94462, 39.94653, 39.94594, 39.94883, 39.95094, 39.9589, 39.96018, 39.96163, 
  39.96383, 39.96416, 39.96515, 39.96771, 39.96896, 39.96873, 39.96765, 39.96702, 39.96804, 39.97163, 
  39.97656, 39.97798, 39.98225, 39.98472, 39.98682, 39.98682, 39.98784, 39.98794, 39.98639, 39.98324, 
  39.98074, 39.97817, 39.97564, 39.97449, 39.97321, 39.97483, 39.99264, 39.99994, 40.01677, 40.02038, 
  40.02926, 40.03274, 40.038, 40.04115, 40.04713, 40.05331, 40.06073, 40.07774, 40.08096, 40.08641, 
  40.09278, 40.10119, 40.11523, 40.12022, 40.13013, 40.13669, 40.13899, 40.13919, 40.14299, 40.15743, 
  40.16057, 40.16576, 40.17166, 40.17435, 40.17514, 40.17373, 40.17235, 40.17573, 40.18681, 40.18943, 
  40.19441, 40.19874, 40.19959, 40.21841, 40.22076, 40.22332, 40.23, 40.23256, 40.23728, 40.23728, 
  40.2456, 40.25254, 40.25949, 40.26505, 40.2661, 40.27029, 40.28764, 40.29884, 40.30152, 40.30355, 
  40.3029, 40.31383, 40.32247, 40.33248, 40.36643, 40.37584, 40.38715, 40.39265, 40.39598, 40.40487, 
  40.4082, 40.4118, 40.43467, 40.4542, 40.46419, 40.47588, 40.48195, 40.4811, 40.47784, 40.46713, 
  40.46334, 40.45759, 40.454, 40.45322, 40.45668, 40.47072, 40.47091, 40.46726, 40.45687, 40.45635, 
  40.45883, 40.46458, 40.48626, 40.49292, 40.49722, 40.50114, 40.51837, 40.52528, 40.54485, 40.55985, 
  40.58176, 40.60561, 40.60796, 40.61096, 40.61069, 40.60796, 40.61226, 40.62008, 40.63037, 40.64027, 
  40.64809, 40.65421, 40.65069, 40.63832, 40.63714, 40.64665, 40.65095, 40.65056, 40.64105, 40.62464, 
  40.62555, 40.62881, 40.63324, 40.64457, 40.65863, 40.66619, 40.66983, 40.67165, 40.66996, 40.66475, 
  40.66541, 40.67035, 40.69925, 43.65118, 30.57394)
LONGITUDE_VALUEs <- c(
  102.1438, 102.14721, 102.1453, 102.1488, 102.1495, 102.1519, 102.1555, 102.154, 102.1581, 102.1591, 
  102.1703, 102.1753, 102.1802, 102.1871, 102.2064, 102.2121, 102.2225, 102.2251, 102.229, 102.2313, 
  102.2338, 102.2385, 102.246, 102.2492, 102.2562, 102.2626, 102.2664, 102.2665, 102.2689, 102.2661, 
  102.2667, 102.2579, 102.2571, 102.2489, 102.2491, 102.2589, 102.263, 102.2651, 102.2653, 102.2672, 
  102.2723, 102.2749, 102.2775, 102.276, 102.276, 102.2752, 102.2767, 102.2764, 102.2778, 102.2781, 
  102.2801, 102.2799, 102.2805, 102.2818, 102.2824, 102.2864, 102.289, 102.2895, 102.2883, 102.2907, 
  102.2899, 102.2932, 102.2944, 102.2935, 102.2949, 102.2941, 102.2945, 102.2964, 102.2978, 102.2967, 
  102.2975, 102.2992, 102.3006, 102.3002, 102.3022, 102.3043, 102.3056, 102.3075, 102.3096, 102.3107, 
  102.3107, 102.3176, 102.3224, 102.321, 102.3366, 102.3551, 102.3548, 102.3457, 102.3477, 102.3531, 
  102.3562, 102.363, 102.3721, 102.3875, 102.3885, 102.4041, 102.4186, 102.417, 102.4121, 102.409, 
  102.4035, 102.4006, 102.397, 102.3871, 102.3829, 102.3846, 102.3907, 102.395, 102.408, 102.4138, 
  102.4143, 102.4195, 102.4228, 102.4258, 102.4356, 102.437, 102.4392, 102.4421, 102.4409, 102.4447, 
  102.4565, 102.4549, 102.4503, 102.4529, 102.4515, 102.4601, 102.4701, 102.4792, 102.4813, 102.4953, 
  102.5083, 102.5122, 102.5166, 102.5262, 102.5316, 102.5406, 102.5418, 102.5507, 102.5493, 102.5559, 
  102.5606, 102.5666, 102.5669, 102.57, 102.5689, 102.5698, 102.5765, 102.5853, 102.5883, 102.5913, 
  102.5947, 102.5962, 102.5993, 102.5998, 102.6024, 102.6083, 102.6098, 102.6125, 102.618, 102.6206, 
  102.6316, 102.6532, 102.6562, 102.6715, 102.6837, 102.6889, 102.7089, 102.7105, 102.7262, 102.7264, 
  102.7362, 102.751, 102.7657, 102.7742, 102.7778, 102.7882, 102.7841, 102.7899, 102.8193, 102.825, 
  102.8458, 102.848, 102.8638, 102.8698, 102.8755, 102.8843, 102.8754, 102.8848, 102.8805, 102.898, 
  102.8928, 102.9098, 102.9116, 102.9239, 102.9251, 102.9325, 102.9376, 102.9522, 102.9522, 102.9578, 
  102.9651, 102.9847, 102.9886, 102.9885, 102.9913, 102.9928, 102.9913, 103.0318, 103.0358, 103.0537, 
  103.0566, 103.069, 103.0805, 103.08, 103.0708, 103.0746, 103.0719, 103.0885, 103.1033, 103.1229, 
  103.1244, 103.1478, 103.1582, 103.1833, 103.1622, 103.1579, 103.1599, 103.1624, 103.1623, 103.1648, 
  103.1638, 103.1661, 103.1652, 103.1685, 103.1763, 103.176, 103.1814, 103.1847, 103.1834, 103.1853, 
  103.1852, 103.1965, 103.2085, 103.2279, 103.2319, 103.2355, 103.2368, 103.2393, 103.2411, 103.2516, 
  103.2515, 103.2618, 103.2649, 103.2694, 103.2838, 103.2821, 103.2845, 103.2885, 103.2891, 103.2858, 
  103.2886, 103.3202, 103.318, 103.3221, 103.3276, 103.3344, 103.3723, 103.3904, 103.4092, 103.4172, 
  103.4161, 103.4404, 103.4432, 103.429, 103.4286, 103.4622, 103.4563, 103.4654, 103.4648, 103.4826, 
  103.489, 103.5091, 103.5085, 103.5307, 103.5468, 103.5448, 103.5539, 103.5715, 103.5793, 103.5674, 
  103.5632, 103.6206, 103.6187, 103.6461, 103.6635, 103.6665, 103.6821, 103.6846, 103.7023, 103.7398, 
  103.7383, 103.7478, 103.7521, 103.7679, 103.787, 103.7944, 103.8164, 103.8246, 103.84, 103.8474, 
  103.8639, 103.8756, 103.8835, 103.8871, 103.9158, 103.9134, 103.9189, 103.927, 103.9327, 103.9451, 
  103.9515, 103.9638, 103.9695, 103.9764, 103.9908, 104.0059, 104.0123, 104.0057, 104.0152, 104.0099, 
  104.0294, 104.0385, 104.028, 104.0454, 104.0661, 104.0887, 104.0948, 104.1151, 104.1299, 104.1333, 
  104.1846, 104.222, 104.2438, 104.2519, 104.2576, 104.2682, 104.2682, 104.255, 104.2711, 104.2698, 
  104.2814, 104.3059, 104.32, 104.3405, 104.3528, 104.3775, 104.3859, 104.3999, 104.4086, 104.5185, 
  104.5301, 104.554, 104.5456, 104.5463, 104.5698, 104.5769, 104.5916, 104.6048, 104.5973, 104.6151, 
  104.6228, 104.618, 104.6235, 104.6297, 104.6579, 104.673, 104.7028, 104.7265, 104.736, 104.7343, 
  104.7265, 104.7354, 104.7567, 104.7732, 104.8271, 104.839, 104.8452, 104.8639, 104.8604, 104.8355, 
  104.8369, 104.8294, 104.8149, 104.8055, 104.8012, 104.8223, 104.8251, 104.8599, 104.8759, 104.8833, 
  104.8984, 104.9102, 104.9306, 104.9476, 104.9511, 104.9639, 104.9796, 104.9871, 104.9969, 105.0012, 
  105.028, 105.0616, 105.0825, 105.1028, 105.0987, 105.1194, 105.1258, 105.1354, 105.1594, 105.1727, 
  105.1806, 105.1828, 105.1965, 105.2036, 105.2076, 105.212, 105.2215, 105.2283, 105.2351, 105.2404, 
  105.2348, 105.2347, 105.2457, 105.2508, 105.2572, 105.2585, 105.2549, 105.2545, 105.2501, 105.2562, 
  105.267, 105.2733, 105.284, 105.2881, 105.293, 105.3078, 105.3127, 105.323, 105.3512, 105.3513, 
  105.3733, 105.3834, 105.3865, 105.4029, 105.42, 105.4299, 105.4265, 105.431, 105.4348, 105.4349, 
  105.4415, 105.4509, 105.4625, 105.4918, 105.4988, 105.5267, 105.5425, 105.5541, 105.5594, 105.5738,
  105.5714, 105.5633, 105.5654, 105.5592, 105.5661, 105.5607, 105.5798, 105.6023, 105.6188, 105.6334, 
  105.6462, 105.6795, 105.7219, 105.7326, 105.7815, 105.7915, 105.8117, 105.8251, 105.8366, 105.841, 
  105.8548, 105.8462, 105.872, 105.8701, 105.8769, 105.8865, 105.8829, 105.8898, 105.9255, 105.9465, 
  105.9607, 105.9971, 106.0052, 106.0014, 106.0634, 106.0828, 106.1178, 106.1387, 106.1715, 106.2007, 
  106.2644, 106.251, 106.264, 106.2573, 106.2874, 106.2936, 106.3099, 106.3277, 106.349, 106.3638, 
  106.3658, 106.3887, 106.4148, 106.4097, 106.4226, 106.4294, 106.4447, 106.4473, 106.454, 106.4624, 
  106.4761, 106.4862, 106.5008, 106.5006, 106.5139, 106.5263, 106.5302, 106.5424, 106.5437, 106.5666, 
  106.5726, 106.5815, 106.5898, 106.6052, 106.6098, 106.6193, 106.6304, 106.6291, 106.6328, 106.6346, 
  106.639, 106.6407, 106.6363, 106.6438, 106.6483, 106.6534, 106.666, 106.6663, 106.6696, 106.6781, 
  106.6766, 106.68, 106.6908, 106.7066, 106.7125, 106.717, 106.7168, 106.7066, 106.769, 106.765, 
  106.7741, 106.7916, 106.8073, 106.8211, 106.8235, 106.8279, 106.83, 106.8379, 106.8314, 106.8328, 
  106.8218, 106.8239, 106.8179, 106.7856, 106.788, 106.7602, 106.7781, 106.7527, 106.7606, 106.7554, 
  106.7396, 106.7223, 106.7293, 106.7236, 106.714, 106.7175, 106.7297, 106.7284, 106.7089, 106.6927, 
  106.6493, 106.6308, 106.6105, 106.6014, 106.6045, 106.5824, 106.5842, 106.5758, 106.5726, 106.5569, 
  106.5676, 106.5606, 106.5769, 106.5868, 106.5832, 106.5612, 106.5606, 106.5712, 106.5762, 106.583, 
  106.5896, 106.6021, 106.6143, 106.6206, 106.6383, 106.6487, 106.6593, 106.6565, 106.6682, 106.6666, 
  106.6907, 106.684, 106.7001, 106.6965, 106.6804, 106.672, 106.6852, 106.7048, 106.7066, 106.6972, 
  106.6917, 106.6989, 106.7099, 106.7121, 106.7054, 106.7065, 106.6959, 106.7093, 106.6835, 106.6825, 
  106.6937, 106.6902, 106.6987, 106.7081, 106.716, 106.7278, 106.7379, 106.7672, 106.7851, 106.7896, 
  106.7957, 106.7993, 106.8045, 106.8045, 106.82, 106.8332, 106.8347, 106.8402, 106.846, 106.8528, 
  106.8571, 106.8616, 106.863, 106.868, 106.8744, 106.88, 106.9037, 106.9137, 106.9192, 106.9241, 
  106.9215, 106.9295, 106.9297, 106.954, 106.9535, 106.9621, 106.9808, 106.9858, 106.9893, 106.9874, 
  106.9906, 107.0006, 107.0171, 107.0251, 107.0264, 107.0355, 107.0398, 107.0491, 107.0572, 107.0633, 
  107.0532, 107.0172, 107.0038, 107.0052, 107.0185, 107.0304, 107.0858, 107.102, 107.1128, 107.1264, 
  107.1343, 107.1389, 107.1607, 107.1634, 107.1725, 107.1906, 107.1931, 107.1983, 107.1978, 107.2227,
  107.248, 107.2504, 107.2656, 107.2805, 107.2818, 107.2878, 107.2885, 107.2963, 107.3009, 107.3046, 
  107.3061, 107.3084, 107.3135, 107.3137, 107.322, 107.3198, 107.3253, 107.3348, 107.3359, 107.3388, 
  107.3443, 107.3488, 107.3447, 107.3467, 107.352, 107.3598, 107.3622, 107.3543, 107.3558, 107.3595, 
  107.3602, 107.3571, 107.3621, 107.3644, 107.3692, 107.3826, 107.3972, 107.3946, 107.4174, 107.4167, 
  107.4412, 107.4648, 107.4816, 107.481, 107.4844, 107.4847, 107.4889, 107.4931, 107.4975, 107.4931, 
  107.4827, 107.4906, 107.4931, 107.4957, 107.4995, 107.5049, 107.5201, 107.524, 107.5317, 107.5332, 
  107.5376, 107.5392, 107.543, 107.5482, 107.5483, 107.5504, 107.5513, 107.5544, 107.5549, 107.56, 
  107.5691, 107.5725, 107.5777, 107.5801, 107.582, 107.5851, 107.5863, 107.5896, 107.59, 107.5921, 
  107.5928, 107.5938, 107.6032, 107.6121, 107.623, 107.6311, 107.652, 107.6606, 107.6651, 107.6659, 
  107.6672, 107.6692, 107.676, 107.6786, 107.682, 107.6852, 107.6884, 107.6891, 107.6907, 107.6924, 
  107.6954, 107.6988, 107.7137, 107.7168, 107.7177, 107.7201, 107.7217, 107.732, 107.7412, 107.7533, 
  107.7646, 107.7716, 107.7734, 107.7797, 107.7823, 107.7881, 107.7974, 107.8037, 107.8047, 107.81, 
  107.8154, 107.8227, 107.8267, 107.8306, 107.8341, 107.8386, 107.8423, 107.8453, 107.8453, 107.8536, 
  107.8566, 107.8591, 107.8603, 107.8602, 107.8648, 107.8672, 107.8719, 107.8711, 107.8731, 107.8782, 
  107.879, 107.8841, 107.8886, 107.8854, 107.891, 107.8902, 107.8832, 107.884, 107.8926, 107.893, 
  107.8904, 107.8997, 107.8991, 107.9031, 107.9044, 107.9161, 107.9243, 107.9297, 107.9432, 107.9424, 
  107.953, 107.9676, 107.9708, 107.9756, 107.9791, 107.9859, 107.9926, 108.0069, 108.0094, 108.0229, 
  108.0349, 108.0365,
  108.0426, 108.0465, 108.0511, 108.0524, 108.0534, 108.0548, 108.0635, 108.0707, 108.0743, 108.0801, 
  108.0822, 108.0838, 108.087, 108.0865, 108.0839, 108.086, 108.0847, 108.0806, 108.08, 108.0814, 
  108.0865, 108.1022, 108.1009, 108.1024, 108.1049, 108.1217, 108.1307, 108.1329, 108.1236, 108.1161, 
  108.1149, 108.1153, 108.1222, 108.132, 108.1509, 108.1876, 108.189, 108.1701, 108.155, 108.1409, 
  108.1398, 108.1405, 108.1437, 108.1436, 108.15, 108.1537, 108.1615, 108.1672, 108.1686, 108.1744, 
  108.1813, 108.1879, 108.1867, 108.1935, 108.1939, 108.1908, 108.1824, 108.1849, 108.1985, 108.1997, 
  108.2028, 108.2091, 108.2134, 108.2166, 108.2188, 108.224, 108.2209, 108.2262, 108.2309, 108.2319, 
  108.2362, 108.2368, 108.2417, 108.2456, 108.2465, 108.2502, 108.2476, 108.2507, 108.2537, 108.2586, 
  108.2603, 108.2631, 108.2642, 108.2671, 108.2702, 108.2702, 108.2676, 108.2659, 108.2634, 108.2646, 
  108.2633, 108.2593, 108.2564, 108.2576, 108.2592, 108.2595, 108.2553, 108.2574, 108.2553, 108.2526, 
  108.2503, 108.251, 108.2455, 108.2476, 108.2416, 108.2455, 108.2418, 108.2373, 108.234, 108.2302, 
  108.2315, 108.2254, 108.2271, 108.2319, 108.2281, 108.2241, 108.2265, 108.2229, 108.2233, 108.2208, 
  108.2171, 108.2176, 108.2165, 108.2161, 108.2136, 108.2137, 108.2127, 108.213, 108.2118, 108.21, 
  108.2111, 108.2108, 108.2096, 108.2095, 108.2114, 108.2113, 108.2125, 108.2125, 108.2144, 108.2142, 
  108.2148, 108.2143, 108.2162, 108.2173, 108.2176, 108.2173, 108.2215, 108.2228, 108.226, 108.2278, 
  108.2292, 108.2293, 108.2303, 108.2333, 108.2332, 108.232, 108.2322, 108.2341, 108.2383, 108.2412, 
  108.2434, 108.2466, 108.2595, 108.2591, 108.2611, 108.2617, 108.2588, 108.2628, 108.2647, 108.2673, 
  108.2666, 108.278, 108.2785, 108.2947, 108.295, 108.2919, 108.2913, 108.2961, 108.3017, 108.3045, 
  108.3095, 108.3152, 108.3162, 108.3238, 108.3218, 108.3246, 108.3223, 108.3205, 108.3184, 108.316, 
  108.3105, 108.3088, 108.3054, 108.3015, 108.3013, 108.3033, 108.3061, 108.3083, 108.3123, 108.3156, 
  108.3204, 108.3169, 108.3186, 108.3244, 108.3259, 108.3226, 108.3247, 108.3147, 108.3152, 108.3141, 
  108.32, 108.3281, 108.3297, 108.3317, 108.3324, 108.3334, 108.3336, 108.333, 108.3358, 108.3388, 
  108.3505, 108.3549, 108.3553, 108.3578, 108.3587, 108.3542, 108.354, 108.3553, 108.3453, 108.341, 
  108.3316, 108.326, 108.3332, 108.3356, 108.3422, 108.343, 108.3524, 108.3591, 108.3565, 108.3546, 
  108.3565, 108.3604, 108.3641, 108.366, 108.3704, 108.3684, 108.3756, 108.3635, 108.3675, 108.3665, 
  108.3754, 108.3785, 108.3873, 108.384, 108.3839, 108.388, 108.3892, 108.4022, 108.404, 108.411, 
  108.41, 108.4185, 108.4184, 108.4217, 108.4215, 108.4275, 108.4327, 108.4295, 108.4269, 108.4241, 
  108.4208, 108.4184, 108.4124, 108.4118, 108.4192, 108.4242, 108.4242, 108.4263, 108.4271, 108.4256, 
  108.4271, 108.4357, 108.441, 108.4409, 108.4434, 108.4432, 108.4509, 108.4595, 108.4654, 108.4666, 
  108.4623, 108.4624, 108.4603, 108.4597, 108.4542, 108.4554, 108.4538, 108.4588, 108.4599, 108.4577, 
  108.456, 108.4464, 108.4412, 108.4416, 108.436, 108.4334, 108.4341, 108.43, 108.425, 108.4188, 
  108.4171, 108.4219, 108.4192, 108.4223, 108.4115, 108.4009, 108.3985, 108.4014, 108.3962, 108.3962, 
  108.4116, 108.4184, 108.4188, 108.4219, 108.4226, 108.426, 108.4282, 108.4416, 108.4309, 108.433, 
  108.4258, 108.4153, 108.4122, 108.4031, 108.3931, 108.3885, 108.3837, 108.3951, 108.3896, 108.3806, 
  108.3721, 108.3741, 108.4021, 108.403, 108.4159, 108.4274, 108.4278, 108.456, 108.456, 108.475, 
  108.4773, 108.4752, 108.476, 108.4715, 108.4782, 108.4749, 108.4764, 108.4798, 108.482, 108.4845, 
  108.4845, 108.49, 108.4895, 108.486, 108.4885, 108.4999, 108.5095, 108.5097, 108.5143, 108.5173, 
  108.522, 108.52, 108.5287, 108.5275, 108.5327, 108.5306, 108.5311, 108.534, 108.5317, 108.5338, 
  108.5424, 108.5514, 108.5523, 108.558, 108.5567, 108.5677, 108.567, 108.5723, 108.5669, 108.5619, 
  108.5589, 108.5382, 108.5416, 108.5507, 108.541, 108.5363, 108.5296, 108.5181, 108.5072, 108.5069, 
  108.5135, 108.5154, 108.521, 108.5251, 108.5336, 108.5323, 108.5379, 108.5422, 108.5499, 108.5393, 
  108.5354, 108.5333, 108.5305, 108.5262, 108.5275, 108.5269, 108.5253, 108.5225, 108.5268, 108.5271, 
  108.5253, 108.5252, 108.526, 108.5247, 108.5183, 108.5179, 108.5166, 108.5151, 108.5125, 108.5115, 
  108.5142, 108.5135, 108.5083, 108.5079, 108.5055, 108.5078, 108.5014, 108.504, 108.4839, 108.4774, 
  108.4693, 108.4699, 108.4615, 108.4611, 108.4724, 108.4759, 108.4794, 108.485, 108.4919, 108.494, 
  108.4901, 108.4902, 108.4767, 108.5031, 108.5054, 108.4989, 108.5113, 108.5209, 108.5285, 108.5276, 
  108.5326, 108.5359, 108.5386, 108.5516, 108.5465, 108.5491, 108.5459, 108.5504, 108.559, 108.5636, 
  108.5721, 108.5746, 108.5757, 108.5759, 108.5808, 108.5859, 108.5947, 108.5871, 108.5835, 108.5803, 
  108.5747, 108.5735, 108.5786, 108.5913, 108.5716, 108.5845, 108.5875, 108.5914, 108.5913, 108.6005, 
  108.6, 108.6023, 108.605, 108.6142, 108.6008, 108.6117, 108.6091, 108.6013, 108.6042, 108.6008, 
  108.5939, 108.5886, 108.589, 108.5927, 108.5908, 108.5862, 108.5838, 108.5889, 108.5873, 108.5812, 
  108.5802, 108.5845, 108.5831, 108.5767, 108.5758, 108.5803, 108.5778, 108.5696, 108.5641, 108.5621, 
  108.567, 108.5634, 108.5652, 108.5675, 108.5691, 108.5717, 108.5673, 108.5652, 108.562, 108.5657, 
  108.5689, 108.5731, 108.5733, 108.5764, 108.5787, 108.5806, 108.5828, 108.5843, 108.58, 108.5763, 
  108.5828, 108.5816, 108.5861, 108.591, 108.5951, 108.5909, 108.5969, 108.599, 108.6074, 108.623, 
  108.6292, 108.6334, 108.646, 108.6519, 108.6376, 108.6348, 108.6529, 108.677, 108.6991, 108.7074, 
  108.7113, 108.7154, 108.7166, 108.7141, 108.7201, 108.7058, 108.7064, 108.7168, 108.7211, 108.7211, 
  108.7353, 108.713, 108.7133, 108.7059, 108.7082, 108.7069, 108.7191, 108.7301, 108.7266, 108.7293, 
  108.7322, 108.7352, 108.7301, 108.7311, 108.7441, 108.7495, 108.7483, 108.7556, 108.7726, 108.7713, 
  108.7891, 108.7999, 108.8008, 108.8093, 108.8097, 108.8247, 108.8311, 108.8468, 108.853, 108.8564, 
  108.867, 108.8686, 108.8671, 108.843, 108.845, 108.8411, 108.8411, 108.8288, 108.8453, 108.8406, 
  108.8543, 108.8526, 108.8564, 108.8548, 108.8493, 108.8393, 108.8378, 108.8488, 108.8585, 108.8625, 
  108.8651, 108.8646, 108.8663, 108.8653, 108.8672, 108.8727, 108.8805, 108.8858, 108.8894, 108.8867, 
  108.8775, 108.8795, 108.871, 108.8623, 108.8589, 108.8609, 108.8671, 108.8609, 108.8629, 108.87, 
  108.8659, 108.8515, 108.8485, 108.8505, 108.8659, 108.8648, 108.871, 108.8705, 108.8745, 108.8771, 
  108.8935, 108.8915, 108.9061, 108.9075, 108.9697, 108.9856, 109.0531, 109.0579, 109.0847, 109.0883, 
  109.1018, 109.1009, 109.1239, 109.1358, 109.1444, 109.1506, 109.1442, 109.1678, 109.1671, 109.1639, 
  109.1465, 109.1257, 109.0795, 109.0742, 109.0691, 109.0475, 109.0429, 109.0496, 109.0852, 109.1223, 
  109.155, 109.2034, 109.2221, 109.2311, 109.2325, 109.2266, 109.2282, 109.2344, 109.2412, 109.2382, 
  109.2431, 109.2447, 109.2393, 109.2388, 109.2502, 109.2789, 109.3011, 109.3219, 109.329, 109.3296, 
  109.326, 109.3278, 109.3363, 109.3335, 109.3292, 109.3352, 109.3911, 109.4166, 109.4391, 109.4399, 
  109.4467, 109.4506, 109.4549, 109.4586, 109.4676, 109.4741, 109.502, 109.52, 109.5502, 109.5614, 
  109.5494, 109.5552, 109.5619, 109.572, 109.5655, 109.5781, 109.5809, 109.5742, 109.5858, 109.5815, 
  109.5711, 109.5676, 109.5559, 109.5261, 109.5254, 109.5371, 109.5299, 109.5225, 109.5232, 109.5022, 
  109.513, 109.5046, 109.5148, 109.5178, 109.5312, 109.5283, 109.5479, 109.5537, 109.5568, 109.5704, 
  109.5709, 109.5738, 109.5766, 109.5828, 109.5802, 109.5879, 109.5936, 109.5953, 109.603, 109.5903, 
  109.5754, 109.5704, 109.5592, 109.5532, 109.5628, 109.5599, 109.5678, 109.573, 109.5615, 109.5632, 
  109.5779, 109.5826, 109.5939, 109.5989, 109.6119, 109.6018, 109.6068, 109.6066, 109.6176, 109.6087, 
  109.6365, 109.6358, 109.6459, 109.6737, 109.6749, 109.6658, 109.6732, 109.6651, 109.65, 109.7515, 
  109.7606, 109.7551, 109.7585, 109.7726, 109.7568, 109.7935, 109.7963, 109.8323, 109.9096, 109.925, 
  109.9085, 109.8986, 109.9188, 109.8642, 109.7818, 109.7708, 109.7543, 109.7691, 109.7715, 109.6692, 
  109.7111, 109.6641, 109.675, 109.7266, 109.741, 109.753, 109.7619, 109.7471, 109.7788, 109.7636, 
  109.7595, 109.742, 109.7379, 109.7468, 109.7424, 109.765, 109.7753, 109.7938, 109.8285, 109.8275, 
  109.812, 109.8299, 109.867, 109.8807, 109.8952, 109.9116, 109.9174, 109.9167, 109.9277, 109.936, 
  109.9264, 109.9274, 109.9373, 109.937, 109.9446, 109.9432, 109.9614, 109.9641, 109.9751, 109.9783, 
  109.993, 110.0105, 110.0054, 109.9686, 109.9772, 109.9349, 109.9215, 109.9047, 109.891, 109.8638, 
  109.8869, 109.904, 109.9226, 109.9353, 109.9178, 109.9191, 109.9339, 109.9659, 109.9803, 109.9796, 
  109.9882, 110.0078, 110.0157, 110.0136, 110.0524, 110.0646, 110.0677, 110.1178, 110.1214, 110.1363, 
  110.1829, 110.1973, 110.2131, 110.2246, 110.2455, 110.2502, 110.2703, 110.2833, 110.2836, 110.2934, 
  110.3032, 110.3314, 110.3405, 110.354, 110.3597, 110.3774, 110.4064, 110.4411, 110.4457, 110.4675, 
  110.4781, 110.5193, 110.532, 110.49, 110.4793, 110.4701, 110.4654, 110.4558, 110.4471, 110.4206, 
  110.4132, 110.4106, 110.4046, 110.3967, 110.4, 110.4234, 110.4316, 110.4349, 110.4403, 110.4374, 
  110.4472, 110.4563, 110.4644, 110.4762, 110.4809, 110.4857, 110.4881, 110.4632, 110.4536, 110.4613, 
  110.4519, 110.4546, 110.4508, 110.4553, 110.4517, 110.4441, 110.439, 110.4278, 110.4273, 110.4082, 
  110.405, 110.3856, 110.3832, 110.3845, 110.3941, 110.3955, 110.3899, 110.3777, 110.3719, 110.3693, 
  110.3653, 110.3595, 110.3545, 110.3557, 110.3454, 110.3372, 110.3241, 110.305, 110.2994, 110.3342, 
  110.3282, 110.3334, 110.3406, 110.3547, 110.3566, 110.3756, 110.3885, 110.3942, 110.3852, 110.3471, 
  110.321, 110.2634, 110.2268, 110.1885, 110.1954, 110.1688, 110.1657, 110.17, 110.1628, 110.172, 
  110.1714, 110.1769, 110.1851, 110.1805, 110.1878, 110.1956, 110.1976, 110.1848, 110.1944, 110.1976, 
  110.2015, 110.2068, 110.2001, 110.2038, 110.2134, 110.2066, 110.2186, 110.2295, 110.255, 110.2686, 
  110.2779, 110.2801, 110.2636, 110.2624, 110.2835, 110.2819, 110.2988, 110.3305, 110.3484, 110.3562, 
  110.3601, 110.3761, 110.3873, 110.4042, 110.4019, 110.407, 110.4143, 110.416, 110.4273, 110.4326, 
  110.4527, 110.4574, 110.4792, 110.4824, 110.4992, 110.5291, 110.5599, 110.6142, 110.6364, 110.6383, 
  110.6531, 110.6714, 110.7037, 110.7461, 110.7871, 110.7983, 110.7976, 110.8187, 110.8311, 110.845, 
  110.864, 110.8916, 110.9136, 110.9343, 110.9507, 110.979, 110.9895, 110.9904, 111.0245, 111.0794, 
  111.0885, 111.099, 111.1014, 111.1121, 111.1318, 111.1357, 111.2012, 111.2164, 111.2306, 111.2369, 
  111.2331, 111.2377, 111.2451, 111.2525, 111.2614, 111.2718, 111.3004, 111.2878, 111.2755, 111.2828, 
  111.2802, 111.2704, 111.2498, 111.2572, 111.2547, 111.2589, 111.2598, 111.2685, 111.2747, 111.2911, 
  111.2993, 111.3039, 111.3438, 111.3733, 111.394, 111.4082, 111.4189, 111.426, 111.4321, 111.4489, 
  111.4371, 111.4373, 111.443, 111.4467, 111.4508, 111.4553, 111.4618, 111.4676, 111.4644, 111.4589, 
  111.4554, 111.457, 111.4665, 111.4723, 111.4734, 111.4788, 111.4826, 111.4894, 111.4906, 111.5143, 
  111.5304, 111.5424, 111.5384, 111.5443, 111.5502, 111.554, 111.5561, 111.576, 111.5935, 111.6049, 
  111.6182, 111.6326, 111.6333, 111.6376, 111.6405, 111.64, 111.638, 111.6403, 111.6456, 111.6451, 
  111.6578, 111.6609, 111.6646, 111.6674, 111.6683, 111.6703, 111.6738, 111.6715, 111.6699, 111.6717, 
  111.6694, 111.6731, 111.6901, 111.7124, 111.7421, 111.7721, 111.7862, 111.7858, 111.776, 111.7677, 
  111.7589, 111.7687, 111.7712, 111.7763, 111.7778, 111.7835, 111.7833, 111.7868, 111.7825, 111.7887, 
  111.7935, 111.8032, 111.8083, 111.8061, 111.8015, 111.7979, 111.7877, 111.7886, 111.7859, 111.7418, 
  111.7359, 111.7248, 111.7254, 111.7108, 111.7134, 111.7078, 111.713, 111.7284, 111.7407, 111.7632, 
  111.7636, 111.758, 111.7611, 111.7631, 111.7744, 111.7743, 111.7794, 111.7847, 111.7892, 111.7918, 
  111.7933, 111.7992, 111.7987, 111.7939, 111.7994, 111.8071, 111.8058, 111.8116, 111.8181, 111.8226, 
  111.836, 111.8388, 111.8187, 111.8174, 111.8107, 111.8082, 111.8189, 111.8296, 111.8337, 111.8448, 
  111.8561, 111.8707, 111.9247, 111.9396, 111.9563, 111.9719, 111.9978, 112.0378, 112.0432, 112.0557, 
  112.0576, 112.0869, 112.116, 112.1483, 112.1645, 112.1816, 112.1883, 112.1923, 112.1998, 112.1953, 
  112.1995, 112.1926, 112.1929, 112.1968, 112.1943, 112.1969, 112.2019, 112.2099, 112.2125, 112.2108, 
  112.2139, 112.2159, 112.2218, 112.2234, 112.2318, 112.2367, 112.2367, 112.245, 112.2442, 112.2416, 
  112.2386, 112.2391, 112.2453, 112.2495, 112.2513, 112.2596, 112.2623, 112.2672, 112.2844, 112.2964, 
  112.3046, 112.3086, 112.3151, 112.3145, 112.3165, 112.3203, 112.3254, 112.3258, 112.3311, 112.3325, 
  112.3319, 112.335, 112.3366, 112.3363, 112.3403, 112.343, 112.3423, 112.3443, 112.3435, 112.3443, 
  112.3457, 112.3474, 112.347, 112.3495, 112.3501, 112.3478, 112.3501, 112.3491, 112.3498, 112.3587, 
  112.3585, 112.3657, 112.3771, 112.3767, 112.3782, 112.3813, 112.3811, 112.3863, 112.3882, 112.3899, 
  112.3917, 112.3918, 112.3963, 112.397, 112.3987, 112.3992, 112.4044, 112.4084, 112.4068, 112.4049, 
  112.408, 112.4112, 112.4081, 112.417, 112.412, 112.4114, 112.4138, 112.4107, 112.414, 112.4146, 
  112.4242, 112.4289, 112.4559, 112.4634, 112.4847, 112.4865, 112.4937, 112.4952, 112.5283, 112.531, 
  112.5409, 112.5433, 112.5515, 112.5519, 112.5571, 112.5597, 112.5591, 112.5556, 112.5555, 112.5612, 
  112.5621, 112.5617, 112.5636, 112.5934, 112.5952, 112.6018, 112.6063, 112.6109, 112.61, 112.6132, 
  112.6176, 112.6189, 112.6245, 112.6269, 112.6255, 112.6257, 112.6239, 112.6243, 112.6203, 112.6255, 
  112.6358, 112.6409, 112.6406, 112.6439, 112.6453, 112.6471, 112.6461, 112.6473, 112.6505, 112.6596, 
  112.6586, 112.6589, 112.6569, 112.654, 112.6547, 112.6587, 112.6628, 112.6766, 112.6886, 112.6903, 
  112.689, 112.6981, 112.7072, 112.72, 112.726, 112.7321, 112.7328, 112.7358, 112.7373, 112.7419, 
  112.7428, 112.7458, 112.7461, 112.75, 112.7482, 112.7482, 112.7445, 112.7463, 112.7431, 112.7518, 
  112.7497, 112.7739, 112.7867, 112.79, 112.802, 112.8212, 112.8234, 112.8273, 112.8269, 112.8276, 
  112.8321, 112.8416, 112.8563, 112.8564, 112.8525, 112.8524, 112.8453, 112.8452, 112.8617, 112.8672, 
  112.8733, 112.8841, 112.8905, 112.891, 112.8879, 112.8874, 112.8829, 112.8827, 112.8878, 112.8918, 
  112.8915, 112.895, 112.8978, 112.8974, 112.8993, 112.9017, 112.9037, 112.9041, 112.9069, 112.9078, 
  112.9126, 112.917, 112.9282, 112.9281, 112.9317, 112.9318, 112.9377, 112.9453, 112.9526, 112.9572, 
  112.9593, 112.9609, 112.9599, 112.9652, 112.9685, 112.9722, 112.9759, 112.9837, 112.984, 112.9861, 
  112.9899, 112.9865, 112.9978, 112.9963, 113.0068, 113.0177, 113.0179, 113.0235, 113.0242, 113.0297, 
  113.0305, 113.029, 113.0277, 113.0224, 113.0231, 113.0205, 113.0212, 113.0235, 113.0202, 113.0286, 
  113.028, 113.0304, 113.0289, 113.0258, 113.0212, 113.0226, 113.0169, 113.0129, 113.0136, 113.0132, 
  113.0097, 113.0073, 113.0058, 113.0085, 113.0078, 113.0144, 113.0144, 113.0077, 113.0065, 113.0036, 
  113.0084, 113.0084, 113.0122, 113.0135, 113.0121, 113.0184, 113.0216, 113.0215, 113.014, 113.0149, 
  113.0149, 113.0133, 113.0147, 113.0128, 113.016, 113.0156, 113.0306, 113.0592, 113.0844, 113.0835, 
  113.0861, 113.084, 113.087, 113.0938, 113.0998, 113.107, 113.1119, 113.1091, 113.1048, 113.1023, 
  113.1165, 113.1155, 113.1041, 113.1054, 113.1074, 113.1085, 113.1578, 113.1539, 113.177, 113.1834, 
  113.1872, 113.1912, 113.1926, 113.1969, 113.2123, 113.2148, 113.2021, 113.204, 113.2088, 113.2245, 
  113.232, 113.214, 113.2187, 113.2176, 113.2167, 113.2161, 113.2161, 113.2182, 113.2165, 113.2186, 
  113.2289, 113.2326, 113.2374, 113.2376, 113.2428, 113.2454, 113.247, 113.2502, 113.2517, 113.2551, 
  113.2576, 113.2617, 113.2664, 113.2661, 113.2702, 113.2705, 113.2713, 113.272, 113.2695, 113.2699, 
  113.2712, 113.2842, 113.2867, 113.2869, 113.2859, 113.2858, 113.2767, 113.2764, 113.2771, 113.2781, 
  113.2816, 113.2805, 113.2806, 113.2832, 113.2866, 113.2909, 113.2923, 113.292, 113.2923, 113.2921, 
  113.2923, 113.2926, 113.293, 113.2933, 113.2932, 113.2952, 113.2953, 113.2947, 113.2949, 113.2938, 
  113.2907, 113.2898, 113.2881, 113.2873, 113.2868, 113.2856, 113.2855, 113.2848, 113.2847, 113.2838, 
  113.2835, 113.283, 113.281, 113.2797, 113.2804, 113.2817, 113.2822, 113.2803, 113.2772, 113.2728, 
  113.2755, 113.2727, 113.2734, 113.2705, 113.2694, 113.27, 113.268, 113.2503, 113.2538, 113.2486, 
  113.2486, 113.2505, 113.243, 113.2414, 113.2514, 113.2515, 113.2536, 113.2538, 113.2549, 113.2534, 
  113.248, 113.2504, 113.2621, 113.269, 113.271, 113.2756, 113.279, 113.2768, 113.2793, 113.2863, 
  113.2849, 113.2906, 113.2982, 113.3057, 113.3102, 113.3131, 113.3272, 113.3291, 113.3293, 113.3326, 
  113.3392, 113.3446, 113.3473, 113.3518, 113.3556, 113.3581, 113.3537, 113.3576, 113.3545, 113.3532, 
  113.3519, 113.3531, 113.3556, 113.3576, 113.3621, 113.3705, 113.3705, 113.3736, 113.3876, 113.3992, 
  113.4042, 113.4063, 113.4061, 113.4042, 113.4055, 113.4034, 113.3991, 113.3967, 113.395, 113.392, 
  113.3905, 113.3968, 113.3953, 113.397, 113.3936, 113.3906, 113.3904, 113.3936, 113.394, 113.3949, 
  113.3961, 113.3962, 113.3975, 113.3975, 113.4014, 113.4, 113.3987, 113.4128, 113.4148, 113.4153, 
  113.4262, 113.4256, 113.4266, 113.4258, 113.4317, 113.4334, 113.4305, 113.435, 113.4344, 113.4482, 
  113.4492, 113.4541, 113.46, 113.4642, 113.4654, 113.4639, 113.4625, 113.4635, 113.4538, 113.4539, 
  113.452, 113.4515, 113.4496, 113.4468, 113.4442, 113.4482, 113.4465, 113.4664, 113.4678, 113.469, 
  113.4796, 113.4929, 113.4978, 113.5016, 113.5023, 113.5046, 113.5048, 113.5107, 113.5119, 113.5089, 
  113.508, 113.5037, 113.5051, 113.5079, 113.5096, 113.5209, 113.5237, 113.5292, 113.5321, 113.5356, 
  113.5401, 113.5439, 113.544, 113.5483, 113.5514, 113.5551, 113.5544, 113.5554, 113.5513, 113.5507, 
  113.5549, 113.5549, 113.5479, 113.5472, 113.5508, 113.5482, 113.5456, 113.5445, 113.545, 113.5465, 
  113.5473, 113.547,
  113.5486, 113.5483, 113.5486, 113.5465, 113.5457, 113.5411, 113.5408, 113.5402, 113.5404, 113.5474, 
  113.5492, 113.5495, 113.5453, 113.5395, 113.5321, 113.532, 113.5294, 113.5282, 113.5284, 113.5292, 
  113.5302, 113.5292, 113.5336, 113.5356, 113.5354, 113.5346, 113.5331, 113.5345, 113.5352, 113.5363, 
  113.5381, 113.5409, 113.5412, 113.5413, 113.5415, 113.5417, 113.5424, 113.5434, 113.5443, 113.5452, 
  113.5455, 113.547, 113.5476, 113.5477, 113.5483, 113.5487, 113.5492, 113.5496, 113.55, 113.5508, 
  113.5507, 113.5508, 113.5509, 113.552, 113.5623, 113.569, 113.57, 113.5706, 113.5705, 113.581, 
  113.581, 113.5814, 113.5852, 113.5852, 113.5851, 113.5848, 113.5798, 
  113.5729, 113.5718, 113.5699, 113.5563, 113.5528, 113.5526, 113.5571, 113.5609, 113.5636, 113.5658, 
  113.5686, 113.5744, 113.5776, 113.5849, 113.5853, 113.5845, 113.5822, 113.5837, 113.589, 113.5889, 
  113.5916, 113.5896, 113.5882, 113.5869, 113.5856, 113.586, 113.5882, 113.5891, 113.5855, 113.5837, 
  113.5815, 113.578, 113.5772, 113.5734, 113.5739, 113.5747, 113.5767, 113.5768, 113.5817, 113.5889, 
  113.5928, 113.5937, 113.5938, 113.5952, 113.5964, 113.598, 113.5987, 113.6002, 113.6008, 113.6015, 
  113.6027, 113.6038, 113.6045, 113.6052, 113.6056, 113.6064, 113.6072, 113.6078, 113.6077, 113.6064, 
  113.6051, 113.6044, 113.6026, 113.6009, 113.5995, 113.5957, 113.5941, 113.5909, 113.5898, 113.591, 
  113.5965, 113.6006, 113.6093, 113.6143, 113.6193, 113.6214, 113.6235, 113.6225, 113.6206, 113.621, 
  113.622, 113.6223, 113.623, 113.6234, 113.6244, 113.6244, 113.6265, 113.6264, 113.6255, 113.6235, 
  113.623, 113.6234, 113.6218, 113.616, 113.6136, 113.615, 113.61, 113.6077, 113.5861, 113.5722, 
  113.5676, 113.5668, 113.5641, 113.5644, 113.5624, 113.5681, 113.5803, 113.5814, 113.5809, 113.5713, 
  113.5705, 113.5721, 113.5767, 113.5752, 113.5779, 113.5861, 113.5856, 113.6257, 113.6221, 113.6222, 
  113.6199, 113.6345, 113.6564, 113.6493, 113.6589, 113.6492, 113.6513, 113.6626, 113.6706, 113.6942, 
  113.6968, 113.6862, 113.6769, 113.6568, 113.6432, 113.6399, 113.6371, 113.6267, 113.6057, 113.5918, 
  113.5908, 113.5826, 113.569, 113.559, 113.5568, 113.5487, 113.5479, 113.5572, 113.5657, 113.5839, 
  113.6077, 113.6196, 113.6185, 113.6072, 113.611, 113.6268, 113.6455, 113.6431, 113.6512, 113.656, 
  113.662, 113.6638, 113.656, 113.6664, 113.7112, 113.7149, 113.7287, 113.7305, 113.7449, 113.7562, 
  113.7468, 113.7569, 113.7678, 113.7755, 113.7712, 113.7719, 113.7941, 113.8004, 113.8083, 113.8205, 
  113.8331, 113.8435, 113.8398, 113.8494, 113.8577, 113.8677, 113.8604, 113.8628, 113.8643, 113.8653, 
  113.8687, 113.8701, 113.8715, 113.875, 113.8753, 113.8768, 113.8782, 113.8817, 113.886, 113.8856, 
  113.8825, 113.8803, 113.8783, 113.8626, 113.8629, 113.8619, 113.8647, 113.8629, 113.8716, 113.8803, 
  113.8817, 113.8807, 113.8771, 113.8792, 113.8858, 113.8845, 113.8826, 113.8831, 113.8844, 113.8858, 
  113.8873, 113.888, 113.8862, 113.8871, 113.885, 113.8858, 113.8869, 113.896, 113.8941, 113.8968, 
  113.8988, 113.9041, 113.9013, 113.9036, 113.9065, 113.9104, 113.9123, 113.9093, 113.9095, 113.9108, 
  113.9119, 113.9131, 113.9161, 113.917, 113.9177, 113.9181, 113.9174, 113.9173, 113.9185, 113.919, 
  113.9195, 113.9214, 113.9219, 113.9231, 113.9227, 113.9249, 113.9248, 113.9219, 113.9215, 113.9313, 
  113.931, 113.9316, 113.9326, 113.933, 113.9342, 113.9346, 113.937, 113.9392, 113.9381, 113.9382, 
  113.9395, 113.9415, 113.9437, 113.948, 113.9476, 113.9483, 113.9473, 113.9495, 113.9483, 113.9487, 
  113.9484, 113.9494, 113.9505, 113.951, 113.9506, 113.9509, 113.9501, 113.95, 113.9503, 113.9496, 
  113.9464, 113.9456, 113.945, 113.9409, 113.94, 113.9413, 113.9425, 113.9424, 113.9429, 113.9438, 
  113.945, 113.9458, 113.9462, 113.9496, 113.9505, 113.9499, 113.9506, 113.9506, 113.9512, 113.9507, 
  113.9534, 113.9554, 113.9572, 113.9577, 113.9583, 113.9587, 113.9624, 113.9657, 113.967, 113.9691, 
  113.9737, 113.9766, 113.9805, 113.9846, 113.9864, 113.9879, 113.9908, 113.9941, 113.9989, 113.998, 
  113.9991, 114.0042, 114.0218, 114.0269, 114.0272,
  114.0254, 114.0285, 114.034, 114.0407, 114.0465, 114.0494, 114.051, 114.0525, 114.0556, 114.0564, 
  114.0568, 114.057, 114.0573, 114.0577, 114.058, 114.0585, 114.0595, 114.0607, 114.0644, 114.0652, 
  114.0693, 114.0726, 114.0739, 114.0744, 114.0776, 114.0781, 114.0796, 114.0838, 114.0852, 114.0859, 
  114.0877, 114.0884, 114.0896, 114.0902, 114.0918, 114.0927, 114.0934, 114.0941, 114.0957, 114.0973, 
  114.0979, 114.103, 114.1039, 114.1076, 114.1081, 114.1096, 114.1108, 114.1122, 114.1147, 114.1157,
  114.1161, 114.1164, 114.1174, 114.12, 114.1221, 114.125, 114.1259, 114.1276, 114.1283, 114.1289, 
  114.1294, 114.1304, 114.1312, 114.1337, 114.134, 114.1349, 114.136, 114.1376, 114.1384, 114.1401, 
  114.1412, 114.1422, 114.144, 114.1444, 114.1446, 114.1454, 114.1477, 114.1483, 114.1486, 114.1486, 
  114.1483, 114.1483, 114.1487, 114.1499, 114.1502, 114.1505, 114.1508, 114.1513, 114.1518, 114.152, 
  114.152, 114.1518, 114.1516, 114.1514, 114.1505, 114.1501, 114.1498, 114.1496, 114.1496, 114.1496, 
  114.1497, 114.1498, 114.15, 114.1503, 114.1509, 114.1513, 114.1516, 114.1517, 114.1516, 114.1517, 
  114.1519, 114.152, 114.1521, 114.1523, 114.1525, 114.1537, 114.1544, 114.1547, 114.1549, 114.1551, 
  114.1554, 114.1559, 114.156, 114.1564, 114.1567, 114.1569, 114.1571, 114.1584, 114.1589, 114.1593, 
  114.1602, 114.161, 114.1614, 114.1618, 114.1624, 114.1632, 114.1635, 114.1645, 114.1651, 114.166,
  114.167, 114.1674, 114.1678, 114.1688, 114.1693, 114.1695, 114.1698, 114.1702, 114.1708, 114.1731,
  114.1747, 114.1761, 114.1773, 114.1774, 114.1776, 114.1777, 114.181, 114.1811, 114.1812, 114.1817,
  114.1842, 114.1866, 114.1868, 114.1872, 114.1874, 114.1877, 114.1881, 114.1885, 114.1886, 114.1893,
  114.1905, 114.1907, 114.1911, 114.192, 114.1922, 114.1932, 114.1942, 114.195, 114.196, 114.196,
  114.1961, 114.199, 114.1993, 114.1995, 114.2003, 114.2006, 114.2009, 114.2011, 114.2011, 114.2015, 
  114.2085, 114.2093, 114.2095, 114.2107, 114.2113, 114.2116, 114.2117, 114.2119, 114.2119, 114.212, 
  114.2122, 114.2125, 114.2127, 114.2128, 114.2131, 114.2134, 114.2135, 114.2143, 114.2148, 114.2153, 
  114.2157, 114.216, 114.2163, 114.2168, 114.2169, 114.2169, 114.2171, 114.2179, 114.2192, 114.2194, 
  114.2194, 114.2198, 114.2201, 114.2204, 114.2208, 114.2208, 114.2209, 114.2211, 114.2214, 114.2215, 
  114.2218, 114.2228, 114.2233, 114.2236, 114.224, 114.2243, 114.2244, 114.2246, 114.2255, 114.2261, 
  114.2265, 114.227, 114.2266, 114.2258, 114.2254, 114.2254, 114.2261, 
  114.2277, 114.2304, 114.2307, 114.2312, 114.2317, 114.2327, 114.2355, 114.2418, 114.2444, 114.2453, 
  114.2458, 114.2531, 114.2496, 114.2488, 114.2489, 114.2494, 114.2538, 114.2659, 114.2748, 114.2759, 
  114.2889, 114.2734, 114.2713, 114.2695, 114.2671, 114.2672, 114.2682, 114.2684, 114.2691, 114.2696, 
  114.2714, 114.2715, 114.2751, 114.2757, 114.2769, 114.2781, 114.2793, 114.2799, 114.2796, 114.2804, 
  114.2816, 114.2821, 114.2825, 114.2808, 114.284, 114.2883, 114.2967, 114.3002, 114.302, 114.3019, 
  114.3024, 114.302, 114.3023, 114.302, 114.3022, 114.3021, 114.3011, 114.3008, 114.2997, 114.2995, 
  114.2998, 114.2996, 114.2998, 114.3003, 114.3014, 114.3059, 114.3075, 114.309, 114.3095, 114.3102, 
  114.3126, 114.3131, 114.3139, 114.3148, 114.3146, 114.3154, 114.3158, 114.316, 114.3171, 114.3182, 
  114.3187, 114.3196, 114.3216, 114.3223, 114.3226, 114.3232, 114.3226, 114.3209, 114.3207, 114.3209, 
  114.3219, 114.3246, 114.3271, 114.3279, 114.329, 114.3338, 114.3358, 114.3359, 114.3366, 114.3356, 
  114.3363, 114.3367, 114.3373, 114.3378, 114.3383, 114.3389, 114.3384, 114.3391, 114.3398, 114.3413, 
  114.3421, 114.3433, 114.3443, 114.3457, 114.3508, 114.3522, 114.3532, 114.3548, 114.3565, 114.3566, 
  114.3569, 114.3561, 114.3567, 114.3599, 114.3607, 114.3623, 114.3642, 114.3645, 114.3664, 114.3677, 
  114.3728, 114.3813, 114.3835, 114.3843, 114.3884, 114.3898, 114.3993, 114.4001, 114.4011, 114.4024, 
  114.4046, 114.4067, 114.4086, 114.4101, 114.4101, 114.4107, 114.4124, 114.4121, 114.4132, 114.4136, 
  114.4148, 114.4203, 114.4265, 114.4268, 114.4284, 114.4248, 114.4266, 114.4284, 114.4316, 114.4329, 
  114.4364, 114.4365, 114.4344, 114.4338, 114.4348, 114.4327, 114.4385, 114.439, 114.4376, 114.4497, 
  114.4594, 114.4594, 114.4604, 114.4595, 114.4623, 114.4617, 114.4627, 114.463, 114.4663, 114.4656, 
  114.4677, 114.4686, 114.4692, 114.4701, 114.4719, 114.4774, 114.4797, 114.478, 114.4783, 114.4833, 
  114.4835, 114.4847, 114.4856, 114.4866, 114.4862, 114.4852, 114.4844, 114.4848, 114.4843, 114.4853, 
  114.4851, 114.486, 114.4858, 114.4815, 114.4814, 114.4818, 114.4806, 114.4799, 114.476, 114.4756, 
  114.4769, 114.4774, 114.4776, 114.4759, 114.4775, 114.4781, 114.4794, 114.4807, 114.4805, 114.4792, 
  114.4802, 114.48, 114.4802, 114.4788, 114.4792, 114.4784, 114.4834, 114.4845, 114.4865, 114.4867, 
  114.4853, 114.484, 114.4823, 114.4834, 114.4849, 114.4844, 114.4826, 114.483, 114.4825, 114.4833, 
  114.4827, 114.4829, 114.4817, 114.4825, 114.4859, 114.4882, 114.4902, 114.4921, 114.4965, 114.4961, 
  114.4967, 114.4966, 114.496, 114.4961, 114.4949, 114.4986, 114.5003, 114.5006, 114.5028, 114.5035, 
  114.5034, 114.5051, 114.506, 114.5069, 114.5082, 114.5096, 114.5106, 114.5118, 114.5127, 114.5134, 
  114.5158, 114.516, 114.517, 114.5183, 114.5192, 114.5188, 114.5194, 114.5255, 114.5259, 114.5266, 
  114.5269, 114.5286, 114.5282, 114.5298, 114.5291, 114.527, 114.5261, 114.526, 114.5268, 114.5298, 
  114.5312, 114.5329, 114.5362, 114.5416, 114.5448, 114.5476, 114.5496, 114.5509, 114.5513, 114.553, 
  114.5552, 114.5564, 114.558, 114.559, 114.5587, 114.5608, 114.5617, 114.5625, 114.563, 114.564, 
  114.5643, 114.5676, 114.5685, 114.5695, 114.5706, 114.5709, 114.5718, 114.5729, 114.5758, 114.5787, 
  114.5813, 114.5819, 114.5807, 114.5791, 114.5808, 114.5825, 114.5835, 114.5838, 114.5852, 114.589, 
  114.5897, 114.5906, 114.5916, 114.5929, 114.5934, 114.5945, 114.5983, 114.5996, 114.6013, 114.6015, 
  114.6048, 114.6087, 114.6109, 114.6109, 114.6086, 114.6085, 114.6097, 114.6118, 114.6151, 114.6165, 
  114.6175, 114.6172, 114.6174, 114.6202, 114.6217, 114.6231, 114.6224, 114.6158, 114.6039, 114.6031, 
  114.607, 114.6052, 114.6, 114.5984, 114.5971, 114.5888, 114.5855, 114.5787, 114.5747, 114.5661, 
  114.5566, 114.5519, 114.5489, 114.5491, 114.5488, 114.5499, 114.5491, 114.5499, 114.5481, 114.5469, 
  114.5455, 114.5432, 114.5423, 114.5422, 114.5413, 114.5406, 114.5377, 114.5347, 114.5341, 114.5283, 
  114.5253, 114.5246, 114.5256, 114.5253, 114.5255, 114.5232, 114.52, 114.5203, 114.519, 114.5189, 
  114.4989, 114.4987, 114.501, 114.4994, 114.5021, 114.5073, 114.5106, 114.5137, 114.514, 114.5165, 
  114.5185, 114.524, 114.5275, 114.5323, 114.5365, 114.5386, 114.5443, 114.5468, 114.5487, 114.5508, 
  114.5512, 114.5728, 114.5763, 114.5793, 114.5791, 114.58, 114.5781, 114.5784, 114.5802, 114.5805, 
  114.5832, 114.5888, 114.5904, 114.5904, 114.5916, 114.5933, 114.5941, 114.595, 114.5955, 114.595, 
  114.5936, 114.5927, 114.5926, 114.5934, 114.5922, 114.588, 114.5864, 114.5852, 114.583, 114.5824, 
  114.5802, 114.578, 114.5757, 114.5741, 114.574, 114.5719, 114.5715, 114.5676, 114.5658, 114.5632, 
  114.5593, 114.5567, 114.5536, 114.5512, 114.5438, 114.5395, 114.5369, 114.5331, 114.5258, 114.5088, 
  114.5079, 114.5007, 114.4973, 114.5031, 114.5053, 114.507, 114.5075, 114.5092, 114.5136, 114.5128, 
  114.5148, 114.5145, 114.5151, 114.5116, 114.5122, 114.5101, 114.5176, 114.5189, 114.5221, 114.5215, 
  114.5259, 114.526, 114.5329, 114.54, 114.5393, 114.5422, 114.5393, 114.5386, 114.5375, 114.5368, 
  114.5326, 114.5301, 114.53, 114.5318, 114.5317, 114.5327, 114.5299, 114.5299, 114.5324, 114.5344, 
  114.5368, 114.5388, 114.5383, 114.5463, 114.5509, 114.5509, 114.5648, 114.5684, 114.5755, 114.5752, 
  114.5728, 114.578, 114.5769, 114.5681, 114.5685, 114.555, 114.5555, 114.5632, 114.5834, 114.5834, 
  114.6388, 114.6429, 114.65, 114.6576, 114.6618, 114.6771, 114.6831, 114.6882, 114.6864, 114.687, 
  114.6859, 114.691, 114.7063, 114.7106, 114.712, 114.7181, 114.7213, 114.7206, 114.7224, 114.7311, 
  114.7353, 114.7425, 114.7447, 114.7467, 114.7531, 114.7614, 114.7642, 114.7686, 114.7685, 114.7694, 
  114.7703, 114.7741, 114.7749, 114.7762, 114.7754, 114.7748, 114.7754, 114.7724, 114.7679, 114.7674, 
  114.7705, 114.7737, 114.78, 114.7842, 114.7893, 114.7889, 114.795, 114.7973, 114.8065, 114.8027, 
  114.8243, 114.8184, 114.7995, 114.7915, 114.7752, 114.7583, 114.7428, 114.7439, 114.739, 114.7404, 
  114.7397, 114.7424, 114.7414, 114.7371, 114.7383, 114.7378, 114.7412, 114.7419, 114.744, 114.749, 
  114.7506, 114.7496, 114.7441, 114.7394, 114.7363, 114.7368, 114.7331, 114.7334, 114.7304, 114.7285, 
  114.7308, 114.7323, 114.7412, 114.7462, 114.7465, 114.7451, 114.7447, 114.7436, 114.7439, 114.7428, 
  114.7435, 114.7464, 114.7473, 114.7467, 114.745, 114.7414, 114.735, 114.7435, 114.7465, 114.7491, 
  114.7505, 114.7495, 114.7514, 114.752, 114.7511, 114.7488, 114.7478, 114.7442, 114.7456, 114.7498, 
  114.7515, 114.7556, 114.7569, 114.7597, 114.7596, 114.759, 114.7588, 114.7581, 114.7583, 114.7592, 
  114.7607, 114.7612, 114.7612, 114.7623, 114.7635, 114.7653, 114.7648, 114.7662, 114.768, 114.7692, 
  114.7694, 114.7703, 114.7702, 114.7707, 114.7712, 114.7725, 114.774, 114.7745, 114.776, 114.7766, 
  114.7787, 114.7886, 114.7916, 114.795, 114.7992, 114.7984, 114.8029, 114.8044, 114.806, 114.8079, 
  114.8107, 114.811, 114.8131, 114.8138, 114.813, 114.8129, 114.8136, 114.8145, 114.816, 114.8179, 
  114.8209, 114.822, 114.8229, 114.8235, 114.8233, 114.8224, 114.8231, 114.8241, 114.8302, 114.8371, 
  114.8414, 114.8558, 114.8701, 114.8798, 114.8878, 114.8912, 114.8914, 114.8896, 114.8893, 114.8852, 
  114.8877, 114.8895, 114.8902, 114.8891, 114.8867, 114.885, 114.8815, 114.8808, 114.8823, 114.8805, 
  114.8821, 114.8821, 114.8832, 114.8839, 114.8866, 114.8864, 114.8887, 114.8934, 114.8966, 114.9012, 
  114.9048, 114.9136, 114.9155, 114.9181, 114.918, 114.9096, 114.906, 114.9028, 114.9009, 114.9001, 
  114.9043, 114.9142, 114.9165, 114.9172, 114.9198, 114.9177, 114.9192, 114.921, 114.921, 114.924, 
  114.9291, 114.931, 114.9314, 114.9334, 114.9328, 114.9379, 114.9402, 114.9447, 114.9483, 114.9497, 
  114.96, 114.9633, 114.9665, 114.9699, 114.9677, 114.9678, 114.9652, 114.9664, 114.9738, 114.9751, 
  114.9881, 114.9874, 115.0043, 115.016, 115.0228, 115.0275, 115.0276, 115.0323, 115.0277, 115.016, 
  115.0168, 115.0215, 115.0294, 115.0384, 115.039, 115.0423, 115.0477, 115.0456, 115.0438, 115.0449, 
  115.0428, 115.0434, 115.0453, 115.0435, 115.0486, 115.0469, 115.0451, 115.0429, 115.0455, 115.0802, 
  115.1018, 115.1116, 115.1236, 115.1457, 115.1543, 115.1569, 115.1527, 115.1534, 115.1556, 115.1539, 
  115.156, 115.1567, 115.1585, 115.1592, 115.16, 115.16, 115.1615, 115.1645, 115.166, 115.1702, 
  115.1732, 115.1752, 115.1739, 115.172, 115.1713, 115.1724, 115.1754, 115.1773, 115.1784, 115.1781, 
  115.1803, 115.1822, 115.1836, 115.1853, 115.1849, 115.1898, 115.1897, 115.1876, 115.1871, 115.1882, 
  115.1836, 115.1837, 115.1779, 115.1696, 115.1652, 115.168, 115.1736, 115.1735, 115.1777, 115.1783, 
  115.1938, 115.2049, 115.2136, 115.2415, 115.2505, 115.2634, 115.2657, 115.248, 115.2436, 115.2313, 
  115.2372, 115.2279, 115.2304, 115.234, 115.2427, 115.2563, 115.2752, 115.3, 115.3157, 115.3418, 
  115.3614, 115.3704, 115.3679, 115.3693, 115.3763, 115.3799, 115.3961, 115.4101, 115.4214, 115.4225, 
  115.4331, 115.4247, 115.4195, 115.4124, 115.4074, 115.3982, 115.3928, 115.388, 115.3598, 115.3531, 
  115.3465, 115.3487, 115.3478, 115.3414, 115.3418, 115.3478, 115.3512, 115.358, 115.3631, 115.3769, 
  115.381, 115.4, 115.4217, 115.4365, 115.4443, 115.4584, 115.4686, 115.4946, 115.5139, 115.5206, 
  115.5309, 115.5334, 115.5456, 115.5547, 115.559, 115.5583, 115.5632, 115.5704, 115.5707, 115.5734, 
  115.5674, 115.5671, 115.5704, 115.574, 115.5782, 115.5585, 115.5578, 115.5647, 115.5429, 115.5218, 
  115.5304, 115.5311, 115.5399, 115.5448, 115.5497, 115.5609, 115.5601, 115.579, 115.6246, 115.662, 
  115.6945, 115.6995, 115.6957, 115.7218, 115.7556, 115.792, 115.7911, 115.7954, 115.7923, 115.8028, 
  115.797, 115.8014, 115.7992, 115.7937, 115.8013, 115.8056, 115.8143, 115.8208, 115.8337, 115.8356, 
  115.842, 115.8434, 115.8603, 115.8885, 115.9029, 115.9211, 115.9414, 115.9549, 115.98, 115.9872, 
  115.9958, 116.0066, 116.0213, 116.0495, 116.0766, 116.0869, 116.0969, 116.1142, 116.1362, 116.1875, 
  116.2206, 116.2726, 116.3149, 116.3336, 116.3813, 116.3894, 116.3979, 116.4089, 116.4244, 116.4584, 
  116.4647, 116.4731, 116.4827, 116.4838, 116.4901, 116.4944, 116.5054, 116.5032, 116.5051, 116.5116, 
  116.5094, 116.5111, 116.5144, 116.5176, 116.5154, 116.5171, 116.5126, 116.5156, 116.5221, 116.5311, 
  116.5406, 116.5431, 116.5446, 116.5584, 116.5558, 116.5654, 116.5695, 116.5642, 116.5548, 116.555, 
  116.5511, 116.5475, 116.5474, 116.5528, 116.556, 116.5576, 116.5578, 116.5571, 116.5527, 116.55, 
  116.5453, 116.5364, 116.534, 116.5401, 116.5556, 116.5746, 116.5942, 116.6057, 116.6063, 116.6298, 
  116.6329, 116.6286, 116.6391, 116.6499, 116.6497, 116.6607, 116.6638, 116.6816, 116.7042, 116.7272, 
  116.7388, 116.7482, 116.7493, 116.7532, 116.7569, 116.7772, 116.7773, 116.7898, 116.7972, 116.7955, 
  116.8013, 116.8039, 116.808, 116.8082, 116.8026, 116.7984, 116.7959, 116.7913, 116.7869, 116.7823, 
  116.7739, 116.7716, 116.7752, 116.7716, 116.7722, 116.7571, 116.7604, 116.778, 116.8041, 116.8304, 
  116.8482, 116.8621, 116.859, 116.8802, 116.8709, 116.8608, 116.8649, 116.9009, 116.9172, 116.9231, 
  116.9346, 116.9307, 116.9337, 116.9436, 116.9697, 116.975, 116.9936, 116.9917, 116.9972, 117.0008, 
  117.0074, 117.0135, 117.0189, 117.0136, 117.0116, 117.0041, 116.9948, 116.9878, 116.9741, 116.9719, 
  116.9636, 116.96, 116.9622, 116.9682, 116.9688, 116.9707, 116.9714, 116.9732, 116.9764, 116.9743, 
  116.9737, 116.9665, 116.9629, 116.9588, 116.9469, 116.9442, 116.9414, 116.9424, 116.9464, 116.9462, 
  116.9531, 116.9574, 116.9585, 116.9625, 116.9669, 116.974, 116.9853, 116.9855, 116.9873, 117.0179, 
  117.0171, 117.0204, 117.0241, 117.0267, 117.0279, 117.0306, 117.0301, 117.0344, 117.0458, 117.0467, 
  117.0524, 117.0528, 117.058, 117.0645, 117.0664, 117.0751, 117.0733, 117.0743, 117.0723, 117.0744, 
  117.0759, 117.0756, 117.0795, 117.0815, 117.0846, 117.0853, 117.0846, 117.0789, 117.0787, 117.0806, 
  117.0844, 117.0792, 117.078, 117.0768, 117.0743, 117.0809, 117.0835, 117.0815, 117.0822, 117.0834, 
  117.0856, 117.0892, 117.0893, 117.0957, 117.1017, 117.1025, 117.0974, 117.0981, 117.1006, 117.1021, 
  117.1078, 117.1246, 117.1258, 117.1307, 117.1479, 117.1596, 117.1813, 117.1972, 117.2153, 117.2233, 
  117.2283, 117.2296, 117.2293, 117.2317, 117.23, 117.2313, 117.2293, 117.2336, 117.2535, 117.256, 
  117.2776, 117.2836, 117.2699, 117.2652, 117.2683, 117.2802, 117.2711, 117.2749, 117.3487, 117.3507, 
  117.3477, 117.3498, 117.3624, 117.3592, 117.3406, 117.3399, 117.3457, 117.3454, 117.3477, 117.3712, 
  117.379, 117.3873, 117.3973, 117.3884, 117.3727, 117.3578, 117.3433, 117.3413, 117.3361, 117.3329, 
  117.3257, 117.3262, 117.3196, 117.3187, 117.316, 117.3168, 117.322, 117.3256, 117.3334, 117.3373, 
  117.347, 117.361, 117.3697, 117.3694, 117.38, 117.3827, 117.3969, 117.4056, 117.4257, 117.4311, 
  117.4376, 117.4434, 117.4379, 117.4347, 117.4255, 117.4189, 117.4148, 117.416, 117.4217, 117.4334, 
  117.4444, 117.4458, 117.4562, 117.4608, 117.471, 117.4801, 117.4898, 117.4846, 117.4825, 117.4741, 
  117.4711, 117.4724, 117.4776, 117.4867, 117.4846, 117.4882, 117.5, 117.5031, 117.5091, 117.5096, 
  117.5161, 117.517, 117.5213, 117.5193, 117.5248, 117.5292, 117.5305, 117.5361, 117.5129, 117.5129, 
  117.4982, 117.4989, 117.47, 117.4677, 117.4639, 117.4604, 117.453, 117.4451, 117.441, 117.4353, 
  117.4335, 117.4276, 117.4266, 117.4397, 117.4446, 117.4499, 117.4493, 117.456, 117.4643, 117.4651, 
  117.4703, 117.4713, 117.4756, 117.4755, 117.4726, 117.4683, 117.4799, 117.4858, 117.4957, 117.4993, 
  117.489, 117.4937, 117.4977, 117.5022, 117.5058, 117.4878, 117.4931, 117.4826, 117.4677, 117.4359, 
  117.4172, 117.4134, 117.4131, 117.4024, 117.4103, 117.4336, 117.4595, 117.4932, 117.5039, 117.5175, 
  117.5459, 117.5606, 117.572, 117.5938, 117.6027, 117.6052, 117.5944, 117.5943, 117.611, 117.6095, 
  117.6005, 117.5998, 117.5809, 117.5803, 117.5849, 117.5845, 117.5816, 117.583, 117.5917, 117.593, 
  117.5976, 117.6051, 117.6085, 117.6126, 117.6118, 117.6162, 117.6232, 117.6246, 117.6437, 117.6424, 
  117.6379, 117.6312, 117.6255, 117.6243, 117.628, 117.6389, 117.6548, 117.6862, 117.7093, 117.6959, 
  117.6904, 117.6915, 117.6955, 117.6943, 117.7119, 117.7118, 117.7406, 117.743, 117.7571, 117.7717, 
  117.7669, 117.7739, 117.7661, 117.7566, 117.7303, 117.7364, 117.7355, 117.7489, 117.7566, 117.7731, 
  117.7667, 117.7753, 117.7854, 117.7882, 117.8009, 117.7961, 117.7999, 117.8127, 117.8191, 117.8227, 
  117.829, 117.8476, 117.874, 117.8747, 117.8829, 117.8919, 117.8987, 117.9054, 117.8996, 117.8974, 
  117.8967, 117.9034, 117.9142, 117.9265, 117.9336, 117.9439, 117.9526, 117.9648, 117.9667, 117.9846, 
  117.9825, 117.9873, 117.9983, 117.9978, 118.0062, 118.0155, 118.0204, 118.0263, 118.0349, 118.0383, 
  118.0462, 118.0585, 118.0665, 118.0829, 118.0963, 118.1044, 118.1204, 118.1328, 118.1402, 118.1355, 
  118.1373, 118.13, 118.1286, 118.1257, 118.1249, 118.1333, 118.1303, 118.1289, 118.1287, 118.1204, 
  118.1156, 118.1154, 118.1012, 118.0895, 118.0847, 118.0815, 118.0749, 118.0717, 118.062, 118.0536, 
  118.0398, 118.0367, 118.0589, 118.0532, 118.052, 118.0683, 118.0675, 118.017, 117.9945, 117.986, 
  117.96, 117.9455, 117.9028, 117.8975, 117.9097, 117.8831, 117.9346, 117.9283, 117.953, 117.9544, 
  118.0412, 118.0415, 118.0393, 118.0418, 118.0418, 118.0387, 118.0326, 118.0344, 118.0685, 118.0514, 
  118.0293, 118.0302, 118.0504, 118.0554, 118.0622, 118.064, 118.0828, 118.0901, 118.1025, 118.1393, 
  118.1469, 118.1627, 118.1616, 118.1735, 118.1841, 118.1909, 118.2024, 118.1933, 118.1786, 118.1779, 
  118.1907, 118.1909, 118.1853, 118.1865, 118.1902, 118.1884, 118.1913, 118.1887, 118.1906, 118.2078, 
  118.2132, 118.2197, 118.2267, 118.222, 118.2325, 118.2365, 118.2448, 118.2678, 118.2765, 118.2961, 
  118.3072, 118.3155, 118.3211, 118.3219, 118.33, 118.3537, 118.3609, 118.3845, 118.3883, 118.3957, 
  118.3896, 118.4029, 118.4019, 118.4202, 118.4248, 118.4279, 118.4318, 118.4336, 118.4466, 118.4705, 
  118.4978, 118.5037, 118.5426, 118.5439, 118.5692, 118.568, 118.5769, 118.5711, 118.5735, 118.5719, 
  118.567, 118.5686, 118.5679, 118.5702, 118.5698, 118.5641, 118.5643, 118.5697, 118.5721, 118.576, 
  118.574, 118.574, 118.576, 118.5799, 118.5818, 118.5852, 118.5901, 118.5919, 118.5978, 118.5997, 
  118.6029, 118.6062, 118.6086, 118.6083, 118.6121, 118.6146, 118.6161, 118.6206, 118.6197, 118.6232, 
  118.6276, 118.6329, 118.6336, 118.6311, 118.6313, 118.6347, 118.6412, 118.6483, 118.6529, 118.6522, 
  118.6492, 118.6476, 118.6496, 118.6534, 118.6525, 118.657, 118.6662, 118.6685, 118.6737, 118.6704, 
  118.6773, 118.6788, 118.6828, 118.6805, 118.6834, 118.6828, 118.6794, 118.6752, 118.6697, 118.6601, 
  118.6458, 118.6444, 118.6554, 118.6726, 118.6781, 118.6997, 118.7047, 118.716, 118.7164, 118.734, 
  118.7316, 118.7627, 118.7583, 118.7658, 118.7715, 118.7769, 118.7748, 118.7806, 118.7783, 118.7741, 
  118.7734, 118.769, 118.7681, 118.7511, 118.7444, 118.7412, 118.7282, 118.7186, 118.7231, 118.7232, 
  118.7287, 118.7349, 118.7358, 118.7159, 118.7093, 118.7107, 118.7004, 118.6858, 118.6638, 118.6546, 
  118.6478, 118.6442, 118.6469, 118.6421, 118.6444, 118.6475, 118.6478, 118.6524, 118.6674, 118.677, 
  118.6825, 118.684, 118.6822, 118.6913, 118.6934, 118.6994, 118.6986, 118.7031, 118.701, 118.6953, 
  118.6977, 118.7104, 118.7148, 118.73, 118.7407, 118.7483, 118.7585, 118.7605, 118.7644, 118.7685, 
  118.773, 118.7765, 118.7884, 118.7934, 118.8073, 118.8158, 118.8229, 118.8241, 118.8254, 118.8248, 
  118.8276, 118.8286, 118.8276, 118.8309, 118.834, 118.8357, 118.8358, 118.8392, 118.8343, 118.8336, 
  118.83, 118.8281, 118.8308, 118.8287, 118.8291, 118.8324, 118.8428, 118.8505, 118.8532, 118.8765, 
  118.8787, 118.887, 118.8959, 118.8978, 118.8958, 118.8975, 118.9002, 118.9067, 118.9082, 118.9094, 
  118.915, 118.9206, 118.9228, 118.922, 118.9261, 118.9296, 118.9309, 118.9338, 118.9359, 118.9416, 
  118.9463, 118.949, 118.9514, 118.9548, 118.9565, 118.9588, 118.9618, 118.9637, 118.9667, 118.9768, 
  118.9844, 118.9862, 118.985, 118.9716, 118.9701, 118.9803, 118.9762, 118.9668, 118.9624, 118.9557, 
  118.9591, 118.9413, 118.9411, 118.934, 118.9271, 118.9229, 118.9209, 118.9219, 118.9161, 118.9094, 
  118.9071, 118.9071, 118.9099, 118.9057, 118.9056, 118.8994, 118.9003, 118.9069, 118.9134, 118.9169, 
  118.9206, 118.9266, 118.9296, 118.9329, 118.9372, 118.9421, 118.9458, 118.9456, 118.9491, 118.9479, 
  118.95, 118.9587, 118.9653, 118.9775, 118.9803, 118.9796, 118.9802, 118.9839, 118.9883, 118.987, 
  118.9838, 118.9895, 118.99, 118.9944, 118.997, 118.9996, 119.0024, 119.0044, 119.0085, 119.0096, 
  119.0135, 119.0126, 119.0159, 119.0162, 119.0199, 119.0253, 119.0247, 119.0279, 119.026, 119.0229, 
  119.0223, 119.0195, 119.0207, 119.019, 119.0088, 119.008, 119.0047, 118.999, 118.999, 118.9946, 
  118.9879, 118.9805, 118.9789, 118.9816, 118.9863, 118.9931, 118.9922, 118.9941, 118.9965, 118.9993, 
  118.9991, 118.9957, 118.9972, 119.0026, 118.9971, 118.9977, 119.0032, 118.9998, 119.0012, 119.004, 
  119.01, 119.0184, 119.0159, 119.0122, 119.0113, 118.9956, 118.996, 118.9911, 118.991, 118.9819, 
  118.9896, 118.9868, 118.9762, 118.971, 118.9526, 118.9301, 118.9383, 118.9237, 118.8832, 118.8561, 
  118.8899, 118.8941, 118.9096, 118.9101, 118.948, 118.9531, 118.9677, 118.9579, 118.9517, 118.9371, 
  118.9424, 118.9469, 118.9608, 118.9671, 118.9727, 118.9793, 118.9767, 118.9731, 118.9761, 118.9797, 
  118.9776, 118.9734, 118.9626, 118.9659, 118.9707, 118.9742, 118.9624, 118.9608, 118.9576, 118.9552, 
  118.9524, 118.9539, 118.9527, 118.9501, 118.946, 118.9379, 118.9377, 118.94, 118.9362, 118.9351, 
  118.9383, 118.9346, 118.9378, 118.9354, 118.9255, 118.9267, 118.9248, 118.9235, 118.9189, 118.916, 
  118.9136, 118.9135, 118.9092, 118.9064, 118.8992, 118.8912, 118.898, 118.9118, 118.906, 118.9253, 
  118.9527, 118.992, 119.0177, 119.0302, 119.0233, 119.0165, 119.0041, 118.9913, 118.9883, 118.9839, 
  118.9845, 118.9742, 118.9745, 118.9708, 118.971, 118.9791, 118.9779, 118.9741, 118.9754, 118.981, 
  118.9796, 118.9843, 118.9892, 118.9889, 118.9934, 119.0009, 119.0014, 119.0088, 119.0081, 119.0137, 
  119.0552, 119.0663, 119.067, 119.0561, 119.0605, 119.0772, 119.0614, 119.0534, 119.0363, 119.034, 
  119.0301, 119.0291, 119.0233, 119.0233, 119.0299, 119.021, 119.023, 119.0264, 119.0281, 119.038, 
  119.0384, 119.051, 119.049, 119.0544, 119.0563, 119.0692, 119.0787, 119.0559, 119.06, 119.073, 
  119.0857, 119.0844, 119.0978, 119.1, 119.1042, 119.1146, 119.1239, 119.1475, 119.1462, 119.1554, 
  119.1582, 119.1544, 119.161, 119.1582, 119.15, 119.1459, 119.1473, 119.1441, 119.1391, 119.1329, 
  119.13, 119.1354, 119.136, 119.1392, 119.1395, 119.1381, 119.1379, 119.1305, 119.1206, 119.115, 
  119.1102, 119.1031, 119.098, 119.0919, 119.0975, 119.1003, 119.1062, 119.106, 119.1116, 119.1092, 
  119.1133, 119.1177, 119.1205, 119.1242, 119.1254, 119.1329, 119.1388, 119.136, 119.1432, 119.1414, 
  119.1475, 119.1407, 119.145, 119.143, 119.1606, 119.1684, 119.1679, 119.1758, 119.1755, 119.1792, 
  119.1911, 119.2087, 119.2354, 119.2398, 119.2395, 119.2428, 119.2445, 119.2446, 119.2466, 119.2475, 
  119.26, 119.2678, 119.2695, 119.2693, 119.2669, 119.2707, 119.2693, 119.2703, 119.2766, 119.2768, 
  119.2797, 119.2833, 119.2848, 119.2971, 119.3012, 119.301, 119.3067, 119.297, 119.2942, 119.2911, 
  119.2879, 119.2905, 119.2869, 119.2907, 119.2951, 119.3004, 119.3121, 119.3192, 119.3222, 119.3241, 
  119.3256, 119.3288, 119.3292, 119.3282, 119.3288, 119.332, 119.3413, 119.3448, 119.3527, 119.3594, 
  119.3647, 119.3644, 119.3677, 119.3683, 119.3653, 119.3689, 119.3722, 119.371, 119.3656, 119.3643, 
  119.3534, 119.3516, 119.3489, 119.3445, 119.3329, 119.3326, 119.3113, 119.3, 119.3025, 119.3013, 
  119.3037, 119.2965, 119.2974, 119.2944, 119.2901, 119.2848, 119.289, 119.2858, 119.2884, 119.2822, 
  119.2749, 119.2719, 119.2565, 119.2561, 119.2494, 119.2507, 119.2543, 119.2505, 119.2533, 119.2436, 
  119.2266, 119.2148, 119.2122, 119.225, 119.228, 119.2351, 119.2232, 119.2268, 119.2199, 119.2222, 
  119.2127, 119.2168, 119.2108, 119.2067, 119.2055, 119.2008, 119.2024, 119.1964, 119.1844, 119.182, 
  119.1809, 119.1697, 119.1621, 119.1716, 119.1626, 119.1626, 119.1455, 119.14, 119.1393, 119.1494, 
  119.149, 119.1597, 119.1734, 119.191, 119.2291, 119.2117, 119.2176, 119.2261, 119.2242, 119.2393, 
  119.2504, 119.2595, 119.2608, 119.2577, 119.2632, 119.2782, 119.2823, 119.2833, 119.2636, 119.261, 
  119.2619, 119.2573, 119.2713, 119.2761, 119.2929, 119.3015, 119.3136, 119.3157, 119.3452, 119.3474, 
  119.3457, 119.3463, 119.3332, 119.3289, 119.3329, 119.3269, 119.336, 119.3437, 119.3439, 119.3491, 
  119.3456, 119.3446, 119.3514, 119.3578, 119.3537, 119.3551, 119.3649, 119.3794, 119.4061, 119.396, 
  119.4217, 119.4276, 119.434, 119.4394, 119.4576, 119.4633, 119.4641, 119.455, 119.4554, 119.4515, 
  119.445, 119.4425, 119.4417, 119.4452, 119.4439, 119.4412, 119.432, 119.4369, 119.456, 119.4534, 
  119.4548, 119.4592, 119.463, 119.4718, 119.4742, 119.4823, 119.4846, 119.4901, 119.4909, 119.4923, 
  119.4928, 119.4944, 119.495, 119.4947, 119.4951, 119.4957, 119.4983, 119.4968, 119.4917, 119.4911, 
  119.4894, 119.4904, 119.4889, 119.4884, 119.483, 119.4867, 119.4983, 119.4983, 119.5068, 119.5083, 
  119.5079, 119.5128, 119.5105, 119.5122, 119.5107, 119.4995, 119.4989, 119.4942, 119.4864, 119.4855, 
  119.4827, 119.486, 119.4888, 119.4928, 119.4921, 119.4927, 119.4987, 119.5037, 119.5036, 119.5054, 
  119.5076, 119.5082, 119.5126, 119.5145, 119.5196, 119.531, 119.5335, 119.5279, 119.5288, 119.5276, 
  119.5297, 119.532, 119.5351, 119.5359, 119.5391, 119.544, 119.5419, 119.5395, 119.5387, 119.5404, 
  119.5452, 119.5447, 119.5463, 119.5514, 119.5558, 119.5553, 119.5578, 119.5599, 119.5626, 119.5646, 
  119.5714, 119.5715, 119.5742, 119.5706, 119.5719, 119.5694, 119.5682, 119.5688, 119.5667, 119.5521, 
  119.5496, 119.5466, 119.558, 119.5608, 119.5593, 119.5605, 119.5565, 119.548, 119.545, 119.5418, 
  119.5436, 119.5387, 119.537, 119.5366, 119.5312, 119.5287, 119.5288, 119.5306, 119.5338, 119.5352, 
  119.5354, 119.5368, 119.5363, 119.5409, 119.5478, 119.5497, 119.5517, 119.5539, 119.5524, 119.557, 
  119.5554, 119.5583, 119.5597, 119.5588, 119.5611, 119.5657, 119.5692, 119.57, 119.5742, 119.5779, 
  119.5798, 119.5854, 119.5874, 119.5874, 119.5857, 119.5826, 119.5786, 119.576, 119.5745, 119.5759, 
  119.5726, 119.5733, 119.5784, 119.584, 119.5852, 119.5809, 119.58, 119.5837, 119.5841, 119.5874, 
  119.5882, 119.5874, 119.5888, 119.5903, 119.5931, 119.5916, 119.5926, 119.5911, 119.5883, 119.5845, 
  119.5841, 119.5797, 119.5837, 119.5807, 119.5785, 119.5807, 119.5843, 119.5889, 119.5922, 119.5997, 
  119.6024, 119.6009, 119.6036, 119.603, 119.5967, 119.5973, 119.5854, 119.5907, 119.591, 119.5965, 
  119.5998, 119.6046, 119.6045, 119.6083, 119.6134, 119.6172, 119.6225, 119.6249, 119.6317, 119.6392, 
  119.6406, 119.6395, 119.6409, 119.6456, 119.6448, 119.6539, 119.6543, 119.6528, 119.6551, 119.6549, 
  119.6405, 119.6385, 119.6373, 119.6339, 119.6306, 119.6302, 119.6274, 119.6209, 119.6122, 119.6151, 
  119.6292, 119.6312, 119.6401, 119.6477, 119.6506, 119.6527, 119.6525, 119.655, 119.6553, 119.6568, 
  119.6566, 119.6561, 119.6573, 119.6593, 119.6599, 119.6583, 119.6564, 119.6557, 119.6548, 119.6552, 
  119.6586, 119.6576, 119.6552, 119.654, 119.6514, 119.6527, 119.6553, 119.6561, 119.6573, 119.6586, 
  119.6538, 119.653, 119.654, 119.6525, 119.6527, 119.651, 119.6528, 119.6522, 119.6505, 119.6511, 
  119.6493, 119.6508, 119.6502, 119.6522, 119.6535, 119.6516, 119.654, 119.6541, 119.6551, 119.6529, 
  119.6546, 119.6518, 119.6519, 119.6442, 119.6433, 119.645, 119.6446, 119.6392, 119.6354, 119.6304, 
  119.6243, 119.6207, 119.6188, 119.6143, 119.612, 119.6104, 119.6072, 119.6083, 119.6086, 119.6106, 
  119.6141, 119.6145, 119.6188, 119.6189, 119.6221, 119.6229, 119.6253, 119.6269, 119.6269, 119.6252, 
  119.6307, 119.6319, 119.6333, 119.6358, 119.6351, 119.6365, 119.6348, 119.6378, 119.637, 119.6421, 
  119.6397, 119.6403, 119.6389, 119.6386, 119.6341, 119.6278, 119.6272, 119.6175, 119.611, 119.608, 
  119.6043, 119.6082, 119.603, 119.6048, 119.6028, 119.6014, 119.6039, 119.6057, 119.6065, 119.609, 
  119.6104, 119.6139, 119.6177, 119.6169, 119.6154, 119.6153, 119.6124, 119.6102, 119.6078, 119.606, 
  119.6029, 119.599, 119.6032, 119.6033, 119.6041, 119.6064, 119.6061, 119.605, 119.6047, 119.6045, 
  119.6038, 119.6035, 119.6018, 119.6016, 119.6, 119.5969, 119.5952, 119.5935, 119.5887, 119.5878, 
  119.5814, 119.5801, 119.5821, 119.5816, 119.5948, 119.5965, 119.5986, 119.5945, 119.6034, 119.6078, 
  119.6137, 119.6122, 119.6126, 119.6113, 119.6089, 119.609, 119.6077, 119.608, 119.6052, 119.6076, 
  119.6055, 119.6081, 119.6067, 119.5997, 119.597, 119.5941, 119.5929, 119.5886, 119.5894, 119.5903, 
  119.5896, 119.5904, 119.5916, 119.5946, 119.5961, 119.5963, 119.5971, 119.5963, 119.5948, 119.5933, 
  119.5935, 119.5942, 119.593, 119.5914, 119.5901, 119.5904, 119.5875, 119.5856, 119.5809, 119.582, 
  119.5782, 119.5752, 119.5733, 119.5695, 119.568, 119.5586, 119.5426, 119.5403, 119.5364, 119.5331, 
  119.5301, 119.5271, 119.5302, 119.5341, 119.5344, 119.5383, 119.5386, 119.5368, 119.5372, 119.5352, 
  119.5361, 119.5324, 119.5353, 119.5344, 119.5323, 119.5269, 119.5272, 119.5049, 119.497, 119.4871, 
  119.4901, 119.4894, 119.4844, 119.483, 119.4764, 119.4668, 119.4681, 119.4703, 119.4717, 119.4694, 
  119.461, 119.4616, 119.4642, 119.463, 119.4654, 119.4684, 119.4719, 119.4735, 119.4754, 119.4782, 
  119.4821, 119.4805, 119.4835, 119.4876, 119.4897, 119.494, 119.4915, 119.492, 119.4974, 119.4977, 
  119.4997, 119.5013, 119.5007, 119.5041, 119.5056, 119.5116, 119.5185, 119.5193, 119.5544, 119.5543, 
  119.5686, 119.5677, 119.5701, 119.5713, 119.5753, 119.5755, 119.5811, 119.5827, 119.5955, 119.5983, 
  119.6044, 119.6063, 119.6006, 119.5944, 119.6013, 119.6035, 119.6018, 119.6007, 119.6027, 119.6044, 
  119.6059, 119.6063, 119.6083, 119.6101, 119.6118, 119.61, 119.6197, 119.6219, 119.6144, 119.6199, 
  119.6278, 119.6323, 119.6316, 119.6275, 119.6209, 119.6203, 119.6144, 119.6159, 119.6093, 119.6104, 
  119.6099, 119.6066, 119.6038, 119.5908, 119.5906, 119.5871, 119.583, 119.5816, 119.5901, 119.5947, 
  119.6011, 119.6144, 119.6164, 119.6267, 119.6438, 119.6534, 119.6707, 119.6749, 119.6782, 119.678, 
  119.6792, 119.6803, 119.6816, 119.6794, 119.6809, 119.6834, 119.6852, 119.6947, 119.6895, 119.6911, 
  119.6945, 119.6988, 119.6998, 119.7045, 119.7072, 119.7052, 119.7144, 119.7111, 119.6937, 119.694, 
  119.6724, 119.6697, 119.6655, 119.6619, 119.6537, 119.6448, 119.644, 119.6367, 119.6327, 119.6292, 
  119.612, 119.6084, 119.589, 119.5785, 119.5648, 119.5572, 119.5454, 119.5295, 119.5243, 119.5159, 
  119.5116, 119.509, 119.5102, 119.5145, 119.5345, 119.5485, 119.5601, 119.5787, 119.5899, 119.5956, 
  119.5978, 119.6039, 119.6077, 119.6078, 119.5966, 119.5977, 119.6056, 119.6132, 119.6162, 119.6227, 
  119.6305, 119.6526, 119.6541, 119.6575, 119.6581, 119.655, 119.654, 119.6604, 119.6657, 119.6686, 
  119.6699, 119.67, 119.6725, 119.6737, 119.6728, 119.6687, 119.652, 119.6443, 119.6266, 119.6248, 
  119.6366, 119.6473, 119.6718, 119.6774, 119.6831, 119.6861, 119.6896, 119.6962, 119.7075, 119.7139, 
  119.725, 119.7252, 119.7293, 119.7298, 119.7361, 119.7434, 119.7477, 119.7484, 119.7453, 119.7463, 
  119.7514, 119.7537, 119.7567, 119.7584, 119.7629, 119.7694, 119.775, 119.7825, 119.7858, 119.7836, 
  119.7822, 119.7853, 119.7883, 119.7884, 119.7864, 119.7906, 119.7946, 119.796, 119.7983, 119.8, 
  119.7986, 119.7994, 119.8036, 119.8061, 119.806, 119.8104, 119.8101, 119.8086, 119.8082, 119.8117, 
  119.8098, 119.803, 119.7928, 119.791, 119.7889, 119.7875, 119.7902, 119.7924, 119.7944, 119.7984, 
  119.8007, 119.8021, 119.8156, 119.8254, 119.8294, 119.8311, 119.8332, 119.8346, 119.8394, 119.8407, 
  119.8422, 119.8414, 119.8464, 119.8467, 119.8487, 119.8496, 119.8524, 119.8531, 119.8622, 119.8635, 
  119.8617, 119.8651, 119.8601, 119.8634, 119.8642, 119.8608, 119.8623, 119.8614, 119.8631, 119.8659, 
  119.8686, 119.8744, 119.873, 119.8779, 119.8782, 119.8819, 119.8843, 119.8821, 119.8822, 119.8871, 
  119.8904, 119.8911, 119.8926, 119.8924, 119.8997, 119.9007, 119.9033, 119.9042, 119.9026, 119.8995, 
  119.8958, 119.8959, 119.8989, 119.9018, 119.9047, 119.9051, 119.908, 119.9095, 119.9108, 119.9137, 
  119.9171, 119.9206, 119.9259, 119.9253, 119.9232, 119.9207, 119.9211, 119.9282, 119.9299, 119.9327, 
  119.9348, 119.9339, 119.9326, 119.9319, 119.9347, 119.9358, 119.937, 119.938, 119.9401, 119.9419, 
  119.9449, 119.9454, 119.9441, 119.9437, 119.945, 119.9445, 119.9456, 119.9462, 119.9484, 119.9468, 
  119.9485, 119.9537, 119.9567, 119.9496, 119.9488, 119.9449, 119.9435, 119.9385, 119.936, 119.9371, 
  119.9364, 119.9343, 119.9329, 119.9304, 119.9307, 119.9349, 119.9297, 119.9262, 119.9249, 119.9262, 
  119.9257, 119.9246, 119.9236, 119.9227, 119.9215, 119.9207, 119.9216, 119.9193, 119.9181, 119.9188, 
  119.9181, 119.919, 119.9121, 119.9129, 119.9113, 119.9112, 119.9062, 119.9058, 119.903, 119.9042, 
  119.8999, 119.9001, 119.8957, 119.8931, 119.8923, 119.894, 119.8973, 119.8973, 119.8956, 119.8955, 
  119.892, 119.8938, 119.8923, 119.8878, 119.8847, 119.8811, 119.8812, 119.8792, 119.878, 119.8786, 
  119.8765, 119.8744, 119.8753, 119.875, 119.8731, 119.8704, 119.8683, 119.86, 119.859, 119.8564, 
  119.8542, 119.8554, 119.8572, 119.8575, 119.8621, 119.8643, 119.8648, 119.8662, 119.8663, 119.868, 
  119.8674, 119.869, 119.8717, 119.8726, 119.8704, 119.8672, 119.8655, 119.8665, 119.8658, 119.8645, 
  119.8639, 119.8645, 119.8635, 119.864, 119.8622, 119.8585, 119.86, 119.8587, 119.858, 119.8576, 
  119.8552, 119.8544, 119.8537, 119.8487, 119.8488, 119.847, 119.8463, 119.8433, 119.842, 119.8401, 
  119.8418, 119.8562, 119.8563, 119.8556, 119.8522, 119.8532, 119.847, 119.8495, 119.8431, 119.8463, 
  119.8353, 119.8338, 119.8294, 119.8286, 119.8316, 119.8355, 119.8315, 119.8357, 119.8333, 119.8347, 
  119.8383, 119.8373, 119.8328, 119.8298, 119.8291, 119.8251, 119.8238, 119.8215, 119.8198, 119.8196, 
  119.8126, 119.8135, 119.8174, 119.8183, 119.8135, 119.8124, 119.8084, 119.8097, 119.809, 119.8118, 
  119.807, 119.8076, 119.8057, 119.8041, 119.8027, 119.797, 119.7982, 119.7881, 119.7814, 119.7824, 
  119.7762, 119.779, 119.7734, 119.7773, 119.7731, 119.7683, 119.7497, 119.7486, 119.7444, 119.7373, 
  119.738, 119.7337, 119.7326, 119.7161, 119.7156, 119.705, 119.7061, 119.6932, 119.6724, 119.6675, 
  119.6638, 119.6676, 119.6544, 119.6553, 119.6634, 119.6533, 119.6532, 119.6441, 119.6382, 119.6375, 
  119.6301, 119.6252, 119.6242, 119.6031, 119.6027, 119.6159, 119.6257, 119.6398, 119.6693, 119.6827, 
  119.6932, 119.722, 119.731, 119.7401, 119.7428, 119.773, 119.7732, 119.7618, 119.7577, 119.7617, 
  119.767, 119.7756, 119.778, 119.7934, 119.789, 119.8014, 119.8012, 119.8141, 119.8149, 119.8203, 
  119.8209, 119.8261, 119.8259, 119.8286, 119.8288, 119.8249, 119.8154, 119.8219, 119.8187, 119.8188, 
  119.8153, 119.8181, 119.8143, 119.807, 119.8056, 119.8182, 119.8178, 119.8138, 119.8152, 119.8117, 
  119.8077, 119.8084, 119.8036, 119.8041, 119.7974, 119.8077, 119.8066, 119.8016, 119.802, 119.8045, 
  119.8026, 119.7999, 119.7991, 119.7937, 119.7932, 119.7878, 119.7857, 119.78, 119.7763, 119.7773, 
  119.7815, 119.7868, 119.7927, 119.7961, 119.7955, 119.798, 119.7988, 119.8008, 119.8005, 119.7897, 
  119.7896, 119.7914, 119.7885, 119.7858, 119.7849, 119.7726, 119.7719, 119.7883, 119.7857, 119.7829, 
  119.7826, 119.779, 119.7785, 119.7806, 119.7783, 119.7784, 119.7831, 119.7809, 119.7819, 119.7709, 
  119.759, 119.7692, 119.7697, 119.7772, 119.7866, 119.7855, 119.7925, 119.7913, 119.7969, 119.7932, 
  119.7936, 119.7819, 119.7815, 119.7878, 119.7799, 119.7833, 119.7724, 119.7738, 119.7717, 119.7721, 
  119.7672, 119.7656, 119.7579, 119.7481, 119.7389, 119.7362, 119.7326, 119.7267, 119.7206, 119.7103, 
  119.6854, 119.67, 119.6422, 119.6282, 119.6212, 119.6073, 119.6027, 119.5976, 119.5777, 119.5875, 
  119.5679, 119.5764, 119.5783, 119.5832, 119.5957, 119.5997, 119.6027, 119.6076, 119.6158, 119.6206, 
  119.6136, 119.6201, 119.6286, 119.6345, 119.6223, 119.6261, 119.628, 119.6311, 119.6325, 119.6369, 
  119.6427, 119.6419, 119.6399, 119.6407, 119.6518, 119.6535, 119.6521, 119.6537, 119.6591, 119.6521, 
  119.6484, 119.6435, 119.6507, 119.6514, 119.6574, 119.6654, 119.6616, 119.6708, 119.6792, 119.6971, 
  119.7191, 119.7247, 119.7276, 119.7276, 119.7305, 119.7268, 119.7331, 119.7364, 119.719, 119.7109, 
  119.6946, 119.693, 119.6844, 119.6813, 119.6827, 119.6916, 119.6898, 119.6929, 119.686, 119.6844, 
  119.6901, 119.6997, 119.7052, 119.7254, 119.729, 119.7293, 119.727, 119.7443, 119.7553, 119.7594, 
  119.7658, 119.764, 119.7695, 119.772, 119.7638, 119.7799, 119.7883, 119.788, 119.7976, 119.8022, 
  119.8, 119.8129, 119.8165, 119.8115, 119.8012, 119.7852, 119.777, 119.7825, 119.8024, 119.8226, 
  119.8225, 119.801, 119.8043, 119.791, 119.807, 119.7855, 119.7922, 119.8034, 119.8094, 119.8206, 
  119.823, 119.8412, 119.8352, 119.8528, 119.8693, 119.871, 119.8619, 119.8609, 119.8687, 119.8865, 
  119.8985, 119.9035, 119.8929, 119.8934, 119.8852, 119.8852, 119.8922, 119.8941, 119.899, 119.8974, 
  119.8981, 119.8937, 119.8949, 119.8935, 119.899, 119.8973, 119.9093, 119.926, 119.9276, 119.9339, 
  119.9301, 119.9309, 119.9184, 119.9227, 119.9327, 119.9371, 119.9514, 119.9597, 119.9683, 119.9661, 
  119.9713, 119.9907, 120.0058, 120.0458, 120.0534, 120.0609, 120.0732, 120.0809, 120.068, 120.0446, 
  120.0455, 120.0405, 120.0362, 120.0263, 120.0259, 120.0159, 120.0225, 120.0153, 120.0004, 119.989, 
  119.9916, 119.9936, 119.9972, 120.0051, 120.0074, 119.9787, 119.9798, 119.9694, 119.9745, 119.9843, 
  119.9912, 119.9908, 119.9878, 119.9759, 119.9698, 119.9758, 119.9728, 119.9664, 119.958, 119.9552, 
  119.9605, 119.966, 119.9608, 119.9594, 119.9574, 119.9499, 119.9508, 119.9379, 119.9386, 119.9359, 
  119.9306, 119.9337, 119.9299, 119.9292, 119.9257, 119.9273, 119.9172, 119.9124, 119.8999, 119.875, 
  119.8772, 119.8638, 119.8552, 119.854, 119.848, 119.8451, 119.8482, 119.8508, 119.8453, 119.8505, 
  119.8469, 119.842, 119.8327, 119.8321, 119.8408, 119.8428, 119.8287, 119.8372, 119.828, 119.8328, 
  119.827, 119.8257, 119.8389, 119.8369, 119.8332, 119.8342, 119.8463, 119.8462, 119.8593, 119.8643, 
  119.8747, 119.8788, 119.8891, 119.8916, 119.8977, 119.8956, 119.9165, 119.9241, 119.926, 119.9305, 
  119.9341, 119.9291, 119.9373, 119.9431, 119.9358, 119.9349, 119.9291, 119.9293, 119.9357, 119.9398, 
  119.9393, 119.9445, 119.9438, 119.9487, 119.948, 119.9551, 119.9613, 119.9777, 119.9821, 119.9849, 
  120.0001, 120.011, 120.0137, 120.0117, 120.014, 120.0218, 120.0362, 120.0445, 120.0528, 120.058, 
  120.0657, 120.0738, 120.0767, 120.0872, 120.0846, 120.087, 120.0744, 120.0772, 120.08, 120.085, 
  120.0864, 120.0931, 120.0994, 120.1215, 120.1216, 120.1274, 120.1285, 120.133, 120.1323, 120.1199, 
  120.1173, 120.1133, 120.1082, 120.103, 120.1068, 120.1115, 120.1182, 120.1181, 120.1115, 120.1105, 
  120.1127, 120.1149, 120.1171, 120.1194, 120.1222, 120.1228, 120.118, 120.1137, 120.1103, 120.1075, 
  120.1109, 120.1052, 120.1026, 120.1065, 120.1038, 120.1067, 120.1008, 120.101, 120.1112, 120.1133, 
  120.1194, 120.1252, 120.1317, 120.135, 120.1363, 120.1347, 120.1387, 120.1408, 120.1457, 120.1461, 
  120.1509, 120.1531, 120.1515, 120.148, 120.1464, 120.1446, 120.1288, 120.1279, 120.1324, 120.1384, 
  120.143, 120.1382, 120.1264, 120.1244, 120.1192, 120.1164, 120.111, 120.1014, 120.097, 120.0946, 
  120.0958, 120.1015, 120.1021, 120.1076, 120.1135, 120.1124, 120.132, 120.1354, 120.1392, 120.1505, 
  120.1518, 120.1585, 120.1577, 120.1523, 120.1469, 120.1479, 120.1439, 120.1398, 120.1263, 120.1143, 
  120.1124, 120.1172, 120.1172, 120.1018, 120.1008, 120.0931, 120.0849, 120.0833, 120.088, 120.0868, 
  120.082, 120.0822, 120.0814, 120.0782, 120.0669, 120.0572, 120.0484, 120.0384, 120.0266, 120.026, 
  120.0275, 120.031, 120.0365, 120.0381, 120.0419, 120.044, 120.0484, 120.0513, 120.0615, 120.0656, 
  120.063, 120.0632, 120.0598, 120.0494, 120.0441, 120.0419, 120.0359, 120.0379, 120.0425, 120.0481, 
  120.0506, 120.0527, 120.0558, 120.0679, 120.0743, 120.0751, 120.0781, 120.0783, 120.0764, 120.0769, 
  120.0743, 120.0828, 120.0841, 120.0894, 120.0929, 120.0962, 120.1012, 120.1034, 120.1045, 120.1064, 
  120.1091, 120.1158, 120.1128, 120.1127, 120.1136, 120.1052, 120.1084, 120.109, 120.1175, 120.1248, 
  120.125, 120.1281, 120.1272, 120.1299, 120.1393, 120.1396, 120.1453, 120.1441, 120.1461, 120.1513, 
  120.1544, 120.1598, 120.1615, 120.1659, 120.1782, 120.1864, 120.203, 120.2045, 120.2108, 120.2126, 
  120.222, 120.2245, 120.2239, 120.2272, 120.2302, 120.2293, 120.2332, 120.233, 120.2359, 120.2351, 
  120.2379, 120.2387, 120.2361, 120.2399, 120.2392, 120.2406, 120.2422, 120.2421, 120.2389, 120.2374, 
  120.2354, 120.2341, 120.2316, 120.2318, 120.2343, 120.232, 120.2393, 120.2375, 120.2314, 120.2313, 
  120.2386, 120.2396, 120.2437, 120.2431, 120.2354, 120.2307, 120.2317, 120.2206, 120.2144, 120.2019, 
  120.1968, 120.1852, 120.1931, 120.1882, 120.1916, 120.1987, 120.1962, 120.1869, 120.1967, 120.1995, 
  120.2087, 120.219, 120.2263, 120.2446, 120.2488, 120.2465, 120.2474, 120.2626, 120.2676, 120.26, 
  120.2675, 120.2647, 120.2677, 120.2638, 120.2662, 120.2644, 120.261, 120.2556, 120.2528, 120.2492, 
  120.241, 120.2419, 120.2459, 120.2493, 120.245, 120.2465, 120.2516, 120.2594, 120.2506, 120.2543, 
  120.2599, 120.2569, 120.256, 120.258, 120.2592, 120.2631, 120.2649, 120.2675, 120.2681, 120.2746, 
  120.2749, 120.2704, 120.2734, 120.273, 120.2764, 120.2826, 120.2927, 120.2887, 120.2807, 120.2793, 
  120.2829, 120.2768, 120.2802, 120.2847, 120.2832, 120.2787, 120.2749, 120.2785, 120.2765, 120.2795, 
  120.2703, 120.2632, 120.2602, 120.256, 120.2582, 120.255, 120.2609, 120.2665, 120.2707, 120.2732, 
  120.2693, 120.2709, 120.2706, 120.2735, 120.2828, 120.2849, 120.2882, 120.2897, 120.2919, 120.2923, 
  120.2998, 120.3152, 120.3196, 120.3231, 120.3215, 120.3256, 120.3291, 120.3314, 120.3341, 120.3357, 
  120.3479, 120.3525, 120.3579, 120.3669, 120.3704, 120.376, 120.3791, 120.3785, 120.3802, 120.3833, 
  120.3871, 120.3872, 120.3918, 120.3915, 120.3959, 120.3929, 120.388, 120.3821, 120.3745, 120.3708, 
  120.3733, 120.3761, 120.3769, 120.3797, 120.3888, 120.3879, 120.385, 120.3827, 120.3794, 120.3751, 
  120.369, 120.368, 120.3755, 120.3722, 120.3752, 120.3805, 120.382, 120.3859, 120.3879, 120.3991, 
  120.4018, 120.4038, 120.4065, 120.4108, 120.4117, 120.418, 120.4113, 120.408, 120.4038, 120.3999, 
  120.3964, 120.3933, 120.379, 120.3804, 120.3957, 120.3981, 120.4032, 120.4067, 120.4106, 120.4111, 
  120.4188, 120.4232, 120.4287, 120.4309, 120.4279, 120.4319, 120.4363, 120.4374, 120.4363, 120.4395, 
  120.4388, 120.433, 120.4331, 120.4306, 120.4293, 120.425, 120.4205, 120.4131, 120.4094, 120.406, 
  120.4049, 120.4063, 120.3986, 120.3962, 120.3932, 120.3878, 120.3844, 120.3894, 120.385, 120.3788, 
  120.3757, 120.3782, 120.3753, 120.3787, 120.3683, 120.3637, 120.3556, 120.3494, 120.3469, 120.3366, 
  120.3328, 120.3225, 120.3215, 120.3102, 120.3008, 120.3007, 120.2944, 120.2981, 120.308, 120.3227, 
  120.3233, 120.3312, 120.3316, 120.342, 120.3452, 120.3453, 120.3534, 120.3681, 120.3695, 120.3765, 
  120.3794, 120.39, 120.3989, 120.3914, 120.3872, 120.3853, 120.3953, 120.4039, 120.4105, 120.4121, 
  120.416, 120.4146, 120.4156, 120.4142, 120.4166, 120.4183, 120.4202, 120.4225, 120.4214, 120.4236, 
  120.4323, 120.4344, 120.4335, 120.4356, 120.4287, 120.4235, 120.4223, 120.426, 120.4311, 120.4298, 
  120.4316, 120.4308, 120.432, 120.4407, 120.4417, 120.4465, 120.4451, 120.4474, 120.4524, 120.4539, 
  120.4554, 120.4595, 120.4622, 120.4576, 120.4635, 120.4655, 120.4663, 120.4647, 120.4622, 120.4614, 
  120.46, 120.4577, 120.4572, 120.4603, 120.4591, 120.4617, 120.4603, 120.4642, 120.4625, 120.4634, 
  120.4623, 120.4625, 120.4664, 120.4756, 120.4817, 120.4815, 120.4838, 120.4837, 120.4867, 120.4868, 
  120.4909, 120.4903, 120.4934, 120.4934, 120.4952, 120.4965, 120.5055, 120.5096, 120.5153, 120.5158, 
  120.5186, 120.5207, 120.5191, 120.5113, 120.5101, 120.5139, 120.5112, 120.5151, 120.5167, 120.5193, 
  120.5165, 120.5188, 120.5284, 120.5323, 120.5293, 120.5259, 120.5259, 120.5348, 120.5354, 120.5387, 
  120.5365, 120.5328, 120.5301, 120.5216, 120.5174, 120.5196, 120.522, 120.5224, 120.5239, 120.5234, 
  120.525, 120.5249, 120.5231, 120.5236, 120.5215, 120.5205, 120.5233, 120.5195, 120.5186, 120.5212, 
  120.5235, 120.5245, 120.5259, 120.5275, 120.5302, 120.5331, 120.5328, 120.5354, 120.5388, 120.5407, 
  120.5506, 120.5487, 120.5509, 120.5442, 120.5463, 120.5518, 120.5515, 120.5535, 120.5592, 120.5633, 
  120.5623, 120.5567, 120.5571, 120.5517, 120.5466, 120.5435, 120.5406, 120.5417, 120.5487, 120.5557, 
  120.5534, 120.5591, 120.5569, 120.5534, 120.5547, 120.559, 120.5639, 120.5639, 120.5589, 120.5563, 
  120.5516, 120.5449, 120.5406, 120.5396, 120.5443, 120.5414, 120.5362, 120.53, 120.5249, 120.52, 
  120.5145, 120.509, 120.5094, 120.5142, 120.5176, 120.5292, 120.5358, 120.5348, 120.5376, 120.5296, 
  120.5333, 120.54, 120.5442, 120.5445, 120.5541, 120.5547, 120.5572, 120.554, 120.5596, 120.5575, 
  120.554, 120.5511, 120.5428, 120.5359, 120.5369, 120.5425, 120.5413, 120.5468, 120.5533, 120.5424, 
  120.5476, 120.556, 120.5612, 120.5626, 120.5709, 120.5782, 120.5812, 120.5839, 120.5902, 120.5928, 
  120.595, 120.5953, 120.5993, 120.6014, 120.5981, 120.6005, 120.6053, 120.6128, 120.6125, 120.6081, 
  120.608, 120.6126, 120.6135, 120.6113, 120.6142, 120.6161, 120.6202, 120.6228, 120.6166, 120.616, 
  120.6217, 120.6286, 120.6326, 120.6311, 120.6336, 120.6455, 120.6487, 120.6444, 120.6506, 120.6508, 
  120.6468, 120.6509, 120.6497, 120.6436, 120.6415, 120.6379, 120.6377, 120.6414, 120.6481, 120.6467, 
  120.6431, 120.6415, 120.6381, 120.6372, 120.6428, 120.6391, 120.6418, 120.6432, 120.6475, 120.6486, 
  120.6504, 120.6479, 120.6485, 120.6565, 120.6578, 120.6669, 120.6628, 120.6675, 120.6731, 120.6752, 
  120.6806, 120.6806, 120.6856, 120.6884, 120.6863, 120.6823, 120.6815, 120.6748, 120.6724, 120.6749, 
  120.6698, 120.6689, 120.6625, 120.6646, 120.6715, 120.6741, 120.6619, 120.6562, 120.652, 120.6493, 
  120.6384, 120.6342, 120.6331, 120.6412, 120.6581, 120.6381, 120.613, 120.6033, 120.6068, 120.629, 
  120.6419, 120.6478, 120.6744, 120.6626, 120.6619, 120.6753, 120.6762, 120.691, 120.6791, 120.6793, 
  120.6911, 120.7009, 120.7224, 120.7519, 120.772, 120.7955, 120.8913, 120.8978, 120.854, 120.8069, 
  120.7672, 120.7409, 120.7362, 120.7228, 120.7115, 120.6936, 120.6627, 120.6617, 120.6679, 120.6737, 
  120.673, 120.6991, 120.7221, 120.7451, 120.784, 120.7994, 120.8258, 120.8492, 120.89, 120.9583, 
  121.0126, 121.0133, 121.0765, 121.0933, 121.0991, 121.1242, 121.1214, 121.1324, 121.1214, 121.1173, 
  121.1366, 121.1276, 121.1328, 121.1462, 121.1482, 121.156, 121.1567, 121.1618, 121.1663, 121.1807, 
  121.186, 121.1843, 121.1744, 121.175, 121.1797, 121.1816, 121.1867, 121.1902, 121.1972, 121.2032, 
  121.2034, 121.1948, 121.2018, 121.2133, 121.212, 121.2181, 121.23, 121.2432, 121.2437, 121.2183, 
  121.2128, 121.2155, 121.213, 121.221, 121.2234, 121.231, 121.2343, 121.2301, 121.243, 121.2368, 
  121.2372, 121.2109, 121.1987, 121.2317, 121.2223, 121.2276, 121.2047, 121.2089, 121.2042, 121.2027, 
  121.1901, 121.1795, 121.1613, 121.1568, 121.147, 121.129, 121.1378, 121.1493, 121.147, 121.1438, 
  121.1448, 121.1558, 121.157, 121.1518, 121.1529, 121.1747, 121.1778, 121.1762, 121.1864, 121.1985, 
  121.2039, 121.2114, 121.2176, 121.2186, 121.2246, 121.2248, 121.2085, 121.209, 121.2207, 121.2193, 
  121.2331, 121.2404, 121.2414, 121.2365, 121.2409, 121.2461, 121.2445, 121.2446, 121.248, 121.2483, 
  121.2503, 121.2462, 121.2463, 121.2485, 121.2492, 121.2455, 121.2452, 121.2466, 121.2476, 121.2513, 
  121.2492, 121.2461, 121.2447, 121.2434, 121.2432, 121.242, 121.2416, 121.2352, 121.234, 121.2309, 
  121.2296, 121.2324, 121.236, 121.2376, 121.2434, 121.2437, 121.2412, 121.2443, 121.2528, 121.2533, 
  121.2517, 121.2536, 121.2642, 121.2642, 121.268, 121.2659, 121.27, 121.2743, 121.28, 121.2797, 
  121.2847, 121.2834, 121.2866, 121.2863, 121.2882, 121.287, 121.2888, 121.2905, 121.2914, 121.2922, 
  121.2876, 121.2887, 121.286, 121.2846, 121.2826, 121.2842, 121.2769, 121.276, 121.2787, 121.2785, 
  121.2797, 121.2798, 121.2825, 121.2899, 121.2902, 121.2938, 121.2933, 121.2889, 121.289, 121.2868, 
  121.2865, 121.2911, 121.2911, 121.2883, 121.2865, 121.2878, 121.2906, 121.2917, 121.2912, 121.2932, 
  121.289, 121.281, 121.2752, 121.2761, 121.2793, 121.2837, 121.2904, 121.2985, 121.3109, 121.3069, 
  121.3216, 121.3229, 121.3292, 121.3265, 121.3226, 121.3222, 121.3295, 121.3334, 121.3368, 121.3384, 
  121.3406, 121.3401, 121.3438, 121.3547, 121.3555, 121.3528, 121.3548, 121.3519, 121.3537, 121.3557, 
  121.3582, 121.3631, 121.3633, 121.3674, 121.3665, 121.3712, 121.3693, 121.3726, 121.3731, 121.3748, 
  121.3747, 121.3757, 121.3765, 121.3783, 121.3783, 121.3804, 121.3808, 121.3844, 121.3861, 121.382, 
  121.3851, 121.3876, 121.3852, 121.3936, 121.3907, 121.3907, 121.3894, 121.3871, 121.3838, 121.38, 
  121.3692, 121.3817, 121.3763, 121.3757, 121.3695, 121.3672, 121.3662, 121.3632, 121.3633, 121.3674, 
  121.3655, 121.3659, 121.3712, 121.3751, 121.379, 121.387, 121.3882, 121.3855, 121.3889, 121.3875, 
  121.3922, 121.3946, 121.394, 121.3981, 121.4013, 121.4033, 121.4026, 121.4059, 121.4031, 121.4064, 
  121.4072, 121.409, 121.4068, 121.4152, 121.4231, 121.4262, 121.4303, 121.4307, 121.4251, 121.4208, 
  121.4239, 121.4302, 121.4354, 121.4364, 121.4299, 121.4299, 121.4318, 121.4297, 121.4316, 121.4341, 
  121.4385, 121.4412, 121.4421, 121.4486, 121.4504, 121.4474, 121.4488, 121.4579, 121.4578, 121.4626, 
  121.4596, 121.4616, 121.46, 121.4656, 121.4827, 121.5116, 121.5463, 121.5466, 121.5633, 121.578, 
  121.5772, 121.5799, 121.5779, 121.5721, 121.5722, 121.5709, 121.5725, 121.5787, 121.577, 121.5822, 
  121.5848, 121.5919, 121.5924, 121.5821, 121.5881, 121.5826, 121.583, 121.5939, 121.5949, 121.5983, 
  121.6009, 121.6038, 121.6043, 121.6068, 121.6155, 121.615, 121.6186, 121.6176, 121.6263, 121.6227, 
  121.6144, 121.618, 121.6227, 121.6231, 121.6196, 121.6178, 121.6163, 121.6226, 121.6231, 121.6261, 
  121.6298, 121.6339, 121.6356, 121.6378, 121.6382, 121.6404, 121.6323, 121.6313, 121.6395, 121.6394, 
  121.6424, 121.6436, 121.6407, 121.6407, 121.6448, 121.6481, 121.6519, 121.6526, 121.6491, 121.6472, 
  121.6461, 121.6474, 121.6655, 121.6595, 121.6484, 121.6479, 121.6501, 121.6499, 121.6482, 121.6504, 
  121.6574, 121.6563, 121.6426, 121.6329, 121.633, 121.6298, 121.6275, 121.6192, 121.6276, 121.6202, 
  121.6199, 121.6247, 121.6255, 121.6284, 121.6343, 121.6358, 121.6378, 121.6402, 121.6443, 121.6435, 
  121.6476, 121.6528, 121.6438, 121.6426, 121.645, 121.6417, 121.6377, 121.6458, 121.6449, 121.6545, 
  121.656, 121.6636, 121.6588, 121.6595, 121.6515, 121.6513, 121.6564, 121.6456, 121.6371, 121.6041, 
  121.5937, 121.5959, 121.6101, 121.6249, 121.6238, 121.63, 121.6356, 121.6219, 121.627, 121.6307, 
  121.635, 121.6228, 121.6242, 121.6114, 121.6101, 121.6206, 121.6162, 121.6218, 121.6289, 121.631, 
  121.6199, 121.6233, 121.6155, 121.6167, 121.607, 121.6019, 121.601, 121.5903, 121.5954, 121.5936, 
  121.6029, 121.5886, 121.5642, 121.5422, 121.4488, 121.455, 121.5687, 121.6226, 121.6367, 121.6448, 
  121.6608, 121.6879, 121.6833, 121.6772, 121.6824, 121.6783, 121.6658, 121.6662, 121.6621, 121.6674, 
  121.6766, 121.6468, 121.651, 121.6445, 121.6451, 121.6532, 121.652, 121.6401, 121.6499, 121.6556, 
  121.6722, 121.6741, 121.6896, 121.7015, 121.7015, 121.6977, 121.6958, 121.6859, 121.6787, 121.6779, 
  121.6887, 121.6988, 121.7029, 121.6994, 121.7075, 121.7042, 121.7073, 121.7066, 121.7083, 121.7073, 
  121.7148, 121.7146, 121.7256, 121.7259, 121.7309, 121.7253, 121.714, 121.7036, 121.7014, 121.7133, 
  121.7093, 121.7063, 121.7036, 121.6943, 121.6865, 121.6645, 121.6824, 121.6787, 121.682, 121.6771, 
  121.6777, 121.6837, 121.6895, 121.6885, 121.6913, 121.7038, 121.7074, 121.7008, 121.6966, 121.6986, 
  121.6941, 121.6952, 121.6906, 121.6908, 121.6794, 121.6792, 121.6845, 121.6842, 121.6791, 121.6797, 
  121.6745, 121.6668, 121.662, 121.6494, 121.6359, 121.6242, 121.6108, 121.612, 121.6307, 121.6383, 
  121.6308, 121.6333, 121.629, 121.6348, 121.651, 121.6486, 121.624, 121.5804, 121.5528, 121.5277, 
  121.5318, 121.5629, 121.6071, 121.5971, 121.5752, 121.5439, 121.5216, 121.5323, 121.5336, 121.5655, 
  121.5776, 121.5837, 121.5768, 121.5786, 121.5507, 121.5449, 121.5961, 121.5992, 121.6263, 121.663, 
  121.7035, 121.7571, 121.7609, 121.7859, 121.7832, 121.7987, 121.7935, 121.7935, 121.7801, 121.7881, 
  121.8013, 121.8072, 121.8238, 121.8426, 121.8508, 121.8709, 121.886, 121.9103, 121.9374, 121.9438, 
  121.9447, 121.9491, 121.9565, 121.9606, 121.966, 121.9651, 121.9718, 121.9677, 121.9682, 121.9586, 
  121.9587, 121.9701, 121.9659, 121.9709, 121.9807, 121.9783, 121.9912, 121.9982, 121.9984, 121.9824, 
  121.9897, 121.9879, 121.9929, 121.9938, 121.9866, 121.9866, 121.9788, 121.9723, 121.9517, 121.9234, 
  121.9304, 121.9294, 121.9205, 121.9285, 121.9452, 121.9394, 121.9536, 121.9514, 121.9382, 121.9248, 
  121.9249, 121.9315, 121.9267, 121.9265, 121.9321, 121.9358, 121.9651, 121.9624, 121.9679, 121.9768, 
  121.9716, 121.9764, 121.9849, 121.9842, 121.9742, 121.9567, 121.9553, 121.9802, 121.9917, 121.9823, 
  121.9788, 121.9955, 121.9885, 121.99, 121.9758, 121.9723, 121.9524, 121.9565, 121.9169, 121.8949, 
  121.8844, 121.8753, 121.8659, 121.841, 121.8348, 121.8204, 121.8156, 121.7938, 121.7886, 121.7929, 
  121.7876, 121.7806, 121.7746, 121.7574, 121.7534, 121.7438, 121.746, 121.7425, 121.7473, 121.7574, 
  121.7697, 121.7728, 121.7832, 121.7855, 121.7991, 121.8099, 121.8145, 121.8266, 121.8278, 121.8299, 
  121.8516, 121.8558, 121.8572, 121.8508, 121.8469, 121.8296, 121.8169, 121.8186, 121.816, 121.8158, 
  121.8083, 121.8016, 121.7884, 121.7866, 121.781, 121.7745, 121.7668, 121.7599, 121.7609, 121.7747, 
  121.7836, 121.7842, 121.7796, 121.7806, 121.7728, 121.7685, 121.7632, 121.761, 121.7516, 121.7381, 
  121.7383, 121.7336, 121.7333, 121.7259, 121.7024, 121.69, 121.6812, 121.6721, 121.6655, 121.6442, 
  121.5739, 121.5709, 121.5666, 121.5665, 121.5626, 121.561, 121.5577, 121.5603, 121.5577, 121.5587, 
  121.5549, 121.5512, 121.5428, 121.5282, 121.5241, 121.5236, 121.5171, 121.5144, 121.4951, 121.4925, 
  121.49, 121.4858, 121.4895, 121.487, 121.4968, 121.5, 121.5132, 121.5148, 121.5124, 121.5146, 
  121.5221, 121.5246, 121.5329, 121.5312, 121.518, 121.5228, 121.5097, 121.502, 121.5012, 121.4958, 
  121.4975, 121.494, 121.4915, 121.4856, 121.4811, 121.4825, 121.4749, 121.4761, 121.4753, 121.4732, 
  121.4735, 121.4707, 121.4701, 121.4675, 121.4674, 121.4655, 121.4663, 121.4655, 121.4686, 121.4496, 
  121.4429, 121.4392, 121.4469, 121.44, 121.4401, 121.4461, 121.443, 121.4485, 121.4515, 121.4591, 
  121.4594, 121.4619, 121.4582, 121.4508, 121.4509, 121.4555, 121.4674, 121.4678, 121.5168, 121.519, 
  121.5225, 121.5203, 121.5148, 121.5263, 121.5314, 121.5346, 121.539, 121.5449, 121.5558, 121.5637, 
  121.5616, 121.5654, 121.5798, 121.5924, 121.5982, 121.6072, 121.6197, 121.6243, 121.6336, 121.6369, 
  121.6719, 121.6743, 121.6868, 121.7006, 121.7039, 121.7104, 121.708, 121.7155, 121.718, 121.7262, 
  121.7352, 121.7377, 121.7463, 121.7572, 121.7722, 121.7764, 121.8006, 121.8388, 121.8476, 121.866, 
  121.8868, 121.8918, 121.889, 121.8943, 121.9005, 121.9021, 121.911, 121.9133, 121.9132, 121.9213, 
  121.9134, 121.923, 121.9356, 121.9334, 121.9456, 121.949, 121.9775, 121.9967, 122.0278, 122.0745, 
  122.0877, 122.1012, 122.1132, 122.1222, 122.1382, 122.1381, 122.1338, 122.135, 122.1332, 122.1338, 
  122.1291, 122.1284, 122.1241, 122.1144, 122.1043, 122.0987, 122.0862, 122.0578, 122.0248, 122.0005, 
  121.994, 121.9627, 121.9567, 121.9502, 121.9327, 121.9334, 121.9124, 121.8812, 121.8168, 121.7948, 
  121.7474, 121.7284, 121.6947, 121.668, 121.679, 121.6484, 121.5461, 121.4842, 121.4622, 121.3623, 
  121.3709, 121.2782, 121.2476, 121.2061, 121.157, 121.124, 121.0712, 121.0777, 121.0024, 120.8677, 
  120.74, 120.6926, 120.6645, 120.6129, 120.6246, 120.7332, 120.7648, 120.795, 120.9083, 120.9192, 
  120.9549, 120.9343, 120.9625, 121.0348, 121.1447, 121.1539, 121.226, 121.2741, 121.3332, 121.419, 
  121.5305, 121.7036, 121.8865, 121.9741, 121.9755, 122.0143, 122.0149, 122.002, 122.0307, 121.9955, 
  122.0193, 121.9815, 121.9897, 121.9444, 121.952, 121.9293, 121.9278, 121.8114, 121.7377, 121.6512, 
  121.5757, 121.5118, 121.4355, 121.3752, 121.3051, 121.2296, 121.0909, 121.1101, 121.185, 121.2742, 
  121.3072, 121.3409, 121.3759, 121.4309, 121.6162, 121.7706, 121.8379, 121.93, 121.941, 121.92, 
  121.8197, 121.6742, 121.4434, 121.4159, 121.486, 121.4826, 121.4197, 121.4132, 120.9512, 120.9718, 
  120.9381, 120.9724, 120.9162, 120.8714, 120.8275, 120.7891, 120.6751, 120.3, 120.2643, 119.8483, 
  119.7906, 119.7742, 119.7055, 119.6479, 119.6479, 119.4679, 119.4858, 119.5201, 119.4419, 119.376, 
  119.3609, 119.319, 119.2606, 119.2414, 119.203, 119.2126, 119.192, 119.2105, 119.2201, 119.2387, 
  119.3224, 119.3698, 119.3931, 119.3774, 119.413, 119.4398, 119.457, 119.4735, 119.4904, 119.5352, 
  119.5359, 119.5675, 119.56, 119.5803, 119.5885, 119.5937, 119.5981, 119.6071, 119.6096, 119.646, 
  119.656, 119.6608, 119.6501, 119.6573, 119.6735, 119.7171, 119.7487, 119.7501, 119.7638, 119.7995, 
  119.7947, 119.8184, 119.8311, 119.8266, 119.8548, 119.8668, 119.8936, 119.9156, 119.9222, 119.9035, 
  119.9077, 119.9167, 119.9388, 119.9464, 119.9464, 119.9295, 119.9078, 119.9096, 119.9339, 119.9541, 
  119.9677, 119.9631, 119.9801, 119.9852, 120.011, 120.0117, 120.0185, 120.0209, 120.0333, 120.0415, 
  120.024, 120.0573, 120.0673, 120.0738, 120.0793, 120.0947, 120.0927, 120.1098, 120.127, 120.1306, 
  120.135, 120.1304, 120.137, 120.1378, 120.1508, 120.1589, 120.1641, 120.1695, 120.208, 120.2094, 
  120.1982, 120.1913, 120.1903, 120.1822, 120.1786, 120.1671, 120.1687, 120.1652, 120.1685, 120.1704, 
  120.1779, 120.186, 120.1903, 120.1941, 120.1966, 120.1941, 120.1893, 120.1966, 120.2046, 120.2113, 
  120.216, 120.2338, 120.2399, 120.2408, 120.2511, 120.2615, 120.2763, 120.2815, 120.2864, 120.2919, 
  120.2945, 120.3024, 120.3025, 120.3082, 120.3042, 120.3098, 120.3027, 120.3056, 120.2891, 120.2845, 
  120.2733, 120.2745, 120.2521, 120.2488, 120.2421, 120.2458, 120.2586, 120.2488, 120.2044, 120.1939, 
  120.1953, 120.227, 120.2224, 120.2344, 120.237, 120.2272, 120.1834, 120.1441, 120.107, 120.1046, 
  120.1209, 120.1134, 120.1264, 120.1256, 120.1295, 120.1287, 120.1187, 120.1242, 120.1376, 120.1527, 
  120.1594, 120.1963, 120.2204, 120.2195, 120.2291, 120.2341, 120.2617, 120.2626, 120.2552, 120.2569, 
  120.2653, 120.2736, 120.279, 120.2832, 120.3082, 120.3057, 120.2892, 120.2802, 120.2959, 120.2948, 
  120.3149, 120.3168, 120.323, 120.3196, 120.3508, 120.3467, 120.3568, 120.3601, 120.364, 120.3656, 
  120.3551, 120.3213, 120.3136, 120.316, 120.3067, 120.3087, 120.3228, 120.3263, 120.2996, 120.2999, 
  120.2977, 120.2848, 120.2867, 120.2859, 120.2813, 120.2822, 120.2868, 120.2897, 120.2921, 120.2883, 
  120.2919, 120.3002, 120.3032, 120.3033, 120.3066, 120.3049, 120.3052, 120.3088, 120.3168, 120.3212, 
  120.3226, 120.3248, 120.3263, 120.3277, 120.333, 120.3395, 120.3404, 120.34, 120.3407, 120.3401, 
  120.3393, 120.3386, 120.3358, 120.3373, 120.3414, 120.341, 120.343, 120.3454, 120.348, 120.3491, 
  120.352, 120.3535, 120.3543, 120.3593, 120.3594, 120.3586, 120.3591, 120.3581, 120.3623, 120.3627, 
  120.3644, 120.3647, 120.3608, 120.361, 120.3623, 120.3651, 120.3685, 120.3715, 120.3768, 120.379, 
  120.3804, 120.3816, 120.3845, 120.3908, 120.3879, 120.3885, 120.3902, 120.3917, 120.3935, 120.397, 
  120.3992, 120.4015, 120.4024, 120.4044, 120.4072, 120.4113, 120.4129, 120.4133, 120.4167, 120.4168, 
  120.4184, 120.4219, 120.4233, 120.4246, 120.4249, 120.4245, 120.4232, 120.4258, 120.4281, 120.4285, 
  120.4275, 120.4249, 120.4253, 120.4279, 120.4296, 120.4302, 120.4323, 120.4365, 120.4378, 120.4372, 
  120.445, 120.4453, 120.4487, 120.4489, 120.4526, 120.4635, 120.4763, 120.4831, 120.4821, 120.4914, 
  120.4911, 120.4946, 120.5005, 120.5068, 120.5151, 120.5159, 120.5202, 120.5233, 120.5252, 120.5251, 
  120.5273, 120.528, 120.5321, 120.5327, 120.5341, 120.5327, 120.5338, 120.536, 120.5375, 120.5395, 
  120.5429, 120.5445, 120.5444, 120.5458, 120.5474, 120.5466, 120.5428, 120.5418, 120.5425, 120.5399, 
  120.5396, 120.5378, 120.5359, 120.5359, 120.5447, 120.5466, 120.547, 120.5576, 120.5578, 120.5598, 
  120.5613, 120.5611, 120.5653, 120.5672, 120.5673, 120.5653, 120.5679, 120.5782, 120.5808, 120.5842, 
  120.5842, 120.5833, 120.5844, 120.5935, 120.5959, 120.5987, 120.6011, 120.6021, 120.6033, 120.6024, 
  120.6048, 120.6048, 120.6001, 120.6004, 120.5992, 120.5998, 120.6022, 120.6084, 120.612, 120.6153, 
  120.6173, 120.6187, 120.6203, 120.6209, 120.6208, 120.6263, 120.629, 120.636, 120.6412, 120.6423, 
  120.645, 120.6545, 120.655, 120.6654, 120.6697, 120.6714, 120.6796, 120.6829, 120.6897, 120.7026, 
  120.7047, 120.7079, 120.7099, 120.712, 120.7148, 120.7113, 120.7071, 120.7026, 120.6998, 120.6963, 
  120.6982, 120.6951, 120.6993, 120.6985, 120.6997, 120.6971, 120.6883, 120.6868, 120.6902, 120.6895, 
  120.6928, 120.6993, 120.6993, 120.6963, 120.6946, 120.6899, 120.6894, 120.688, 120.6853, 120.6829, 
  120.687, 120.6856, 120.6823, 120.681, 120.6826, 120.6853, 120.6873, 120.6867, 120.6845, 120.6823, 
  120.6819, 120.679, 120.6792, 120.6762, 120.6677, 120.6674, 120.6718, 120.6804, 120.6799, 120.6781, 
  120.6765, 120.6784, 120.6736, 120.6729, 120.677, 120.6753, 120.6813, 120.6776, 120.674, 120.6726, 
  120.671, 120.6656, 120.6648, 120.6673, 120.6518, 120.6448, 120.6459, 120.644, 120.6496, 120.6548, 
  120.6557, 120.6609, 120.6606, 120.6551, 120.655, 120.6497, 120.6569, 120.6587, 120.6606, 120.6632, 
  120.6641, 120.6655, 120.6671, 120.679, 120.6829, 120.6844, 120.6932, 120.6956, 120.6997, 120.7041, 
  120.7154, 120.7198, 120.723, 120.7245, 120.726, 120.7249, 120.7278, 120.7288, 120.7277, 120.7307, 
  120.7322, 120.7324, 120.7351, 120.7342, 120.7327, 120.7272, 120.7231, 120.7226, 120.7206, 120.7183, 
  120.7201, 120.7189, 120.7201, 120.7168, 120.7151, 120.711, 120.7084, 120.7063, 120.7013, 120.6932, 
  120.687, 120.689, 120.6925, 120.7001, 120.7041, 120.7032, 120.7094, 120.7132, 120.7157, 120.7132, 
  120.7161, 120.7266, 120.7343, 120.7335, 120.7378, 120.7402, 120.7477, 120.7537, 120.7537, 120.7493, 
  120.7519, 120.7437, 120.744, 120.8247, 120.842, 120.8388, 120.8393, 120.8358, 120.8584, 120.86, 
  120.8567, 120.8564, 120.8488, 120.8531, 120.8517, 120.8532, 120.8506, 120.8528, 120.8575, 120.8595, 
  120.8628, 120.8675, 120.8685, 120.8726, 120.8728, 120.8772, 120.8772, 120.8803, 120.8808, 120.8869, 
  120.8899, 120.8878, 120.8873, 120.884, 120.8863, 120.8882, 120.8899, 120.8917, 120.8907, 120.8957, 
  120.9056, 120.9121, 120.9104, 120.9005, 120.9051, 120.9299, 120.9357, 120.9386, 120.9419, 120.9449, 
  120.9431, 120.9596, 120.9617, 120.9443, 120.9431, 120.9522, 120.948, 120.9564, 120.9675, 120.9693, 
  120.9828, 120.9875, 120.9826, 120.9826, 120.9785, 120.9664, 120.9563, 120.9541, 120.9466, 120.9239, 
  120.9242, 120.9181, 120.9048, 120.8844, 120.8852, 120.8811, 120.879, 120.878, 120.8605, 120.8482, 
  120.8338, 120.8182, 120.8102, 120.7983, 120.7972, 120.8047, 120.8086, 120.8106, 120.8049, 120.8073, 
  120.8173, 120.8284, 120.8433, 120.8427, 120.8593, 120.8751, 120.8881, 120.893, 120.9139, 120.9328, 
  120.9534, 120.9535, 120.9576, 120.9618, 120.97, 120.9909, 120.9914, 121.0054, 121.0136, 121.0394, 
  121.0523, 121.061, 121.0651, 121.0695, 121.083, 121.0902, 121.1012, 121.1025, 121.1193, 121.1542, 
  121.1678, 121.1895, 121.2138, 121.2369, 121.2355, 121.2439, 121.2446, 121.2998, 121.3137, 121.321, 
  121.3424, 121.3603, 121.3733, 121.3738, 121.3788, 121.38, 121.3941, 121.4006, 121.3955, 121.3831, 
  121.3795, 121.3757, 121.374, 121.3836, 121.4056, 121.4135, 121.4276, 121.432, 121.4423, 121.4496, 
  121.4535, 121.4561, 121.4534, 121.4675, 121.4687, 121.4732, 121.4779, 121.4861, 121.4889, 121.4974, 
  121.5043, 121.505, 121.5019, 121.501, 121.5078, 121.5143, 121.5205, 121.5192, 121.5254, 121.5272, 
  121.5299, 121.532, 121.5338, 121.5373, 121.5473, 121.5447, 121.5379, 121.5451, 121.5505, 121.5591, 
  121.5606, 121.5648, 121.5668, 121.5687, 121.5682, 121.5693, 121.5678, 121.5632, 121.5624, 121.5438, 
  121.5391, 121.5442, 121.5497, 121.5548, 121.5569, 121.557, 121.5606, 121.5612, 121.5699, 121.5693, 
  121.5748, 121.5818, 121.5754, 121.5842, 121.5842, 121.5891, 121.5984, 121.5974, 121.5988, 121.5982, 
  121.6082, 121.6149, 121.6235, 121.622, 121.6256, 121.6365, 121.6435, 121.6454, 121.6353, 121.6347, 
  121.6247, 121.6231, 121.6266, 121.6221, 121.6247, 121.6187, 121.6246, 121.6216, 121.6434, 121.6728, 
  121.6977, 121.7108, 121.719, 121.7228, 121.7274, 121.7297, 121.7513, 121.7545, 121.7455, 121.76, 
  121.7764, 121.8318, 121.8556, 121.863, 121.9239, 121.9619, 121.9729, 121.9988, 122.0005, 122.03, 
  122.0281, 122.0408, 122.0458, 122.0817, 122.0958, 122.0854, 122.0969, 122.1182, 122.1294, 122.1339, 
  122.1454, 122.1471, 122.1799, 122.1859, 122.196, 122.2046, 122.1896, 122.1799, 122.1816, 122.1776, 
  122.1908, 122.1931, 122.1855, 122.179, 122.1773, 122.1831, 122.1714, 122.1752, 122.1816, 122.1922, 
  122.2113, 122.2204, 122.23, 122.2452, 122.2681, 122.276, 122.2933, 122.3206, 122.3191, 122.3266, 
  122.3352, 122.3347, 122.3448, 122.3436, 122.3536, 122.3567, 122.3771, 122.3713, 122.3776, 122.3975, 
  122.3985, 122.4099, 122.4113, 122.4233, 122.4243, 122.4305, 122.4392, 122.4396, 122.4361, 122.4324, 
  122.4233, 122.4289, 122.4276, 122.4166, 122.4109, 122.4138, 122.4281, 122.4797, 122.4806, 122.494, 
  122.5028, 122.5065, 122.5028, 122.4868, 122.4926, 122.4992, 122.5041, 122.5049, 122.513, 122.5137, 
  122.5158, 122.5203, 122.5258, 122.5277, 122.5347, 122.5217, 122.5214, 122.5357, 122.5418, 122.5375, 
  122.5386, 122.5323, 122.5321, 122.5367, 122.5452, 122.557, 122.5608, 122.563, 122.5652, 122.5674, 
  122.5724, 122.5732, 122.5711, 122.5708, 122.5652, 122.5608, 122.5573, 122.556, 122.5427, 122.5159, 
  122.5172, 122.509, 122.5029, 122.4972, 122.4929, 122.4871, 122.4728, 122.472, 122.4681, 122.4692, 
  122.4663, 122.4615, 122.4639, 122.4606, 122.4586, 122.4603, 122.4566, 122.4526, 122.4503, 122.4433, 
  122.4418, 122.4371, 122.437, 122.4401, 122.4392, 122.4362, 122.4303, 122.4248, 122.4196, 122.4212, 
  122.4167, 122.4159, 122.4123, 122.4089, 122.4049, 122.4085, 122.4026, 122.3993, 122.3921, 122.3827, 
  122.3813, 122.3934, 122.3992, 122.4044, 122.4039, 122.406, 122.4063, 122.4139, 122.4142, 122.4017, 
  122.3978, 122.3954, 122.4012, 122.4013, 122.4031, 122.4033, 122.4024, 122.4087, 122.4103, 122.4154, 
  122.4158, 122.4264, 122.4299, 122.433, 122.4348, 122.4399, 122.442, 122.463, 122.4634, 122.4594, 
  122.4606, 122.4658, 122.4667, 122.4756, 122.4875, 122.4929, 122.5068, 122.5152, 122.5283, 122.5553, 
  122.5597, 122.5617, 122.5681, 122.5727, 122.5759, 122.5779, 122.5737, 122.5701, 122.5589, 122.5572, 
  122.5617, 122.5686, 122.5771, 122.5835, 122.5884, 122.5935, 122.594, 122.6105, 122.6156, 122.6164, 
  122.6208, 122.6242, 122.6164, 122.6134, 122.5903, 122.5888, 122.5946, 122.5862, 122.5838, 122.5878, 
  122.5834, 122.5821, 122.5775, 122.558, 122.5579, 122.5633, 122.5629, 122.5667, 122.5667, 122.5516, 
  122.5543, 122.5483, 122.5516, 122.5557, 122.5634, 122.5657, 122.5693, 122.5655, 122.568, 122.5741, 
  122.5758, 122.5767, 122.585, 122.5858, 122.5921, 122.595, 122.5981, 122.6004, 122.6009, 122.5971, 
  122.5903, 122.5825, 122.5801, 122.5834, 122.5968, 122.6054, 122.6131, 122.6185, 122.6198, 122.6297, 
  122.6433, 122.645, 122.6477, 122.6541, 122.6555, 122.6544, 122.6595, 122.6576, 122.6633, 122.6637, 
  122.6741, 122.6767, 122.6753, 122.6771, 122.6775, 122.6759, 122.6772, 122.6768, 122.6799, 122.68, 
  122.6819, 122.6828, 122.6836, 122.687, 122.688, 122.6856, 122.6872, 122.6906, 122.6964, 122.6981, 
  122.7007, 122.7021, 122.7047, 122.7061, 122.7046, 122.7046, 122.7023, 122.7018, 122.6973, 122.6967, 
  122.6956, 122.6955, 122.6984, 122.6989, 122.6971, 122.6943, 122.6935, 122.6944, 122.6967, 122.6974, 
  122.694, 122.6931, 122.6921, 122.6913, 122.6897, 122.6892, 122.6872, 122.6861, 122.685, 122.6837, 
  122.683, 122.6782, 122.6738, 122.6734, 122.6701, 122.6691, 122.6663, 122.6664, 122.6676, 122.6699, 
  122.6689, 122.6692, 122.6753, 122.6737, 122.6706, 122.669, 122.6679, 122.663, 122.6547, 122.6561, 
  122.6542, 122.6605, 122.6607, 122.6483, 122.6463, 122.6484, 122.6493, 122.6474, 122.6475, 122.6398, 
  122.6373, 122.6358, 122.6378, 122.6351, 122.6352, 122.6394, 122.6348, 122.6325, 122.6284, 122.6269, 
  122.6272, 122.6237, 122.6246, 122.6225, 122.6219, 122.6236, 122.6211, 122.621, 122.6201, 122.6192, 
  122.6193, 122.6179, 122.6178, 122.6158, 122.6168, 122.6138, 122.6137, 122.6092, 122.6043, 122.603, 
  122.6014, 122.6009, 122.5994, 122.5981, 122.5974, 122.5958, 122.5949, 122.5926, 122.5886, 122.59, 
  122.5913, 122.5873, 122.5845, 122.585, 122.5831, 122.5817, 122.5803, 122.574, 122.5713, 122.5679, 
  122.5502, 122.5184, 122.4974, 122.4836, 122.4781, 122.4802, 122.4831, 122.4804, 122.4678, 122.4543, 
  122.4484, 122.4154, 122.388, 122.3728, 122.3623, 122.3459, 122.3372, 122.3248, 122.3098, 122.3029, 
  122.303, 122.3016, 122.2924, 122.2802, 122.2699, 122.2685, 122.2734, 122.2811, 122.276, 122.2675, 
  122.2639, 122.2548, 122.2488, 122.2443, 122.2283, 122.2318, 122.2159, 122.2177, 122.2038, 122.1812, 
  122.1856, 122.1814, 122.1823, 122.1749, 122.158, 122.1565, 122.1589, 122.1546, 122.1484, 122.1345, 
  122.1409, 122.1407, 122.1297, 122.1201, 122.1273, 122.1292, 122.134, 122.1397, 122.1465, 122.1479, 
  122.1525, 122.1544, 122.1572, 122.1588, 122.1584, 122.1596, 122.1571, 122.152, 122.1526, 122.1554, 
  122.1563, 122.1553, 122.1561, 122.1573, 122.1586, 122.1596, 122.1615, 122.1619, 122.1614, 122.1591, 
  122.1582, 122.1569, 122.1541, 122.1522, 122.1513, 122.1504, 122.1482, 122.147, 122.1433, 122.1438, 
  122.1425, 122.137, 122.136, 122.1364, 122.1398, 122.1402, 122.1415, 122.1416, 122.1445, 122.1443, 
  122.1419, 122.1363, 122.1361, 122.1316, 122.1314, 122.1293, 122.1286, 122.1266, 122.1252, 122.127, 
  122.1242, 122.1247, 122.1234, 122.1217, 122.1205, 122.1189, 122.1184, 122.1158, 122.1165, 122.1176, 
  122.1174, 122.1202, 122.1193, 122.1223, 122.1219, 122.1179, 122.1154, 122.1113, 122.1101, 122.1087, 
  122.1074, 122.106, 122.1076, 122.1067, 122.1081, 122.1066, 122.1025, 122.094, 122.0923, 122.088, 
  122.0898, 122.0951, 122.0951, 122.0881, 122.0853, 122.0839, 122.0829, 122.082, 122.0813, 122.0812, 
  122.0798, 122.0801, 122.0788, 122.0771, 122.0784, 122.0768, 122.0757, 122.0738, 122.0715, 122.0704, 
  122.0659, 122.0632, 122.0618, 122.0631, 122.0644, 122.0688, 122.0722, 122.0726, 122.0702, 122.0699, 
  122.0727, 122.0732, 122.0715, 122.0715, 122.0728, 122.0728, 122.0718, 122.0706, 122.0704, 122.0715, 
  122.0708, 122.0709, 122.0741, 122.0741, 122.0715, 122.0652, 122.0618, 122.0618, 122.0583, 122.0578, 
  122.0562, 122.0553, 122.0534, 122.0509, 122.0509, 122.0498, 122.0481, 122.0446, 122.0475, 122.0456, 
  122.0269, 122.0117, 122.0113, 122.0178, 122.0191, 122.0143, 121.9993, 121.9968, 121.9943, 121.9966, 
  121.9947, 121.9806, 121.9616, 121.951, 121.9465, 121.8727, 121.745, 121.6709, 121.6439, 121.6415, 
  121.6502, 121.6391, 121.6303, 121.62, 121.5996, 121.5903, 121.5709, 121.5302, 121.5252, 121.5067, 
  121.4671, 121.4473, 121.4434, 121.4511, 121.4406, 121.435, 121.4301, 121.4138, 121.3991, 121.4003, 
  121.3929, 121.3915, 121.3823, 121.3939, 121.3912, 121.38, 121.3756, 121.3751, 121.3927, 121.3922, 
  121.3788, 121.3781, 121.39, 121.3896, 121.3728, 121.3723, 121.3869, 121.4154, 121.4199, 121.4246, 
  121.4328, 121.4278, 121.4172, 121.4153, 121.4095, 121.4012, 121.3885, 121.3885, 121.3785, 121.3724, 
  121.3698, 121.3442, 121.3418, 121.3581, 121.3667, 121.347, 121.2997, 121.2356, 121.1787, 121.1437, 
  121.1385, 121.1535, 121.1461, 121.1312, 121.1226, 121.1408, 121.1496, 121.1372, 121.0615, 121.0603, 
  121.006, 121.0088, 120.9988, 120.998, 120.978, 120.9308, 120.9296, 120.9346, 120.9418, 120.9432, 
  120.9382, 120.9315, 120.9295, 120.9224, 120.8776, 120.8508, 120.8416, 120.8234, 120.7982, 120.7827, 
  120.7592, 120.7405, 120.7027, 120.6811, 120.6409, 120.6179, 120.6033, 120.5655, 120.4446, 120.4123, 
  120.3605, 120.2639, 120.2214, 120.2162, 120.2502, 120.2561, 120.3014, 120.3196, 120.3227, 120.2932, 
  120.312, 120.3107, 120.2822, 120.2365, 120.216, 120.162, 120.0896, 120.0865, 120.0106, 120.0127, 
  119.9955, 119.9746, 119.9708, 119.9498, 119.9365, 119.9399, 119.9203, 119.8386, 119.8362, 119.8465, 
  119.8386, 119.8473, 119.8751, 119.894, 119.8995, 119.905, 119.8959, 119.8657, 119.8386, 119.8376, 
  119.7744, 119.5568, 119.484, 119.2817, 119.2856, 119.0418, 118.9367, 118.9127, 118.9285, 118.9127, 
  118.9828, 119.0631, 119.2486, 119.2624, 119.2541, 119.283, 119.2871, 119.3118, 119.3146, 119.2548, 
  119.23, 119.2156, 119.1607, 119.0954, 119.0858, 119.0027, 118.9767, 118.9629, 118.8908, 118.8008, 
  118.6991, 118.5388, 118.4934, 118.1552, 118.1651, 117.9647, 117.8506, 117.9482, 117.8479, 117.7421, 
  117.6378, 117.5828, 117.6514, 117.5862, 117.5978, 117.6397, 117.7352, 117.7565, 117.841, 117.8436, 
  117.8828, 117.8285, 117.8079, 117.8437, 117.7887, 117.8787, 118.0112, 118.1252, 118.2199, 118.2481, 
  118.3723, 118.3703, 118.5106, 118.588, 118.5221, 118.485, 118.4815, 118.5743, 118.5605, 118.6306, 
  118.7254, 118.8055, 118.8673, 119.015, 119.0919, 119.1881, 119.2506, 119.3104, 119.2568, 119.3536, 
  119.469, 119.5315, 119.5226, 119.5335, 119.5747, 119.6125, 119.6523, 119.7142, 119.7403, 119.7848, 
  119.8027, 119.8329, 119.8336, 119.8666, 119.8508, 119.9064, 119.9332, 120.2237, 120.3212, 120.4463, 
  120.5177, 120.501, 120.5944, 120.5752, 120.6088, 120.6162, 120.6269, 120.6393, 120.6633, 120.6722, 
  120.6925, 120.699, 120.724, 120.7416, 120.7608, 120.7941, 120.8054, 120.8267, 120.8233, 120.8573, 
  120.8834, 120.9544, 120.9833, 121.0282, 121.0334, 121.0114, 120.9733, 120.9695, 120.9777, 120.9599, 
  120.9763, 120.9921, 121.0076, 121.0059, 121.0419, 121.0773, 121.087, 121.0859, 121.0804, 121.1415, 
  121.1594, 121.1707, 121.1786, 121.2109, 121.2191, 121.2033, 121.1951, 121.2198, 121.2185, 121.2579, 
  121.2566, 121.2329, 121.2703, 121.2915, 121.2884, 121.3489, 121.432, 121.4265, 121.5006, 121.5212, 
  121.5075, 121.5288, 121.5525, 121.5573, 121.6277, 121.6449, 121.7258, 121.7396, 121.7122, 121.7342, 
  121.7712, 121.785, 121.8173, 121.8386, 121.8688, 121.9512, 121.9374, 121.961, 121.9882, 122.0466, 
  122.0541, 122.0822, 122.1413, 122.1433, 122.1533, 122.165, 122.1327, 122.1986, 122.1914, 122.1955, 
  122.2007, 122.2288, 122.2189, 122.2518, 122.2412, 122.258, 122.2899, 122.2975, 122.2934, 122.2793, 
  122.2608, 122.2439, 122.2532, 122.225, 122.2044, 122.1983, 122.1973, 122.0858, 122.0983, 122.0049, 
  121.9981, 121.9335, 121.8813, 121.8084, 121.8058, 121.7701, 121.7316, 121.7055, 121.6547, 121.6327, 
  121.6107, 121.5612, 121.5392, 121.4664, 121.4891, 121.4589, 121.5049, 121.4857, 121.4458, 121.4602, 
  121.3922, 121.2974, 121.2198, 121.226, 121.2487, 121.2535, 121.2624, 121.2769, 121.3002, 121.3559, 
  121.4012, 121.4005, 121.362, 121.2466, 121.2693, 121.2446, 121.2734, 121.3517, 121.3833, 121.3559, 
  121.3174, 121.327, 121.3517, 121.3916, 121.4383, 121.4603, 121.4355, 121.4705, 121.4657, 121.5186, 
  121.5234, 121.5521, 121.5666, 121.6312, 121.6346, 121.6882, 121.7122, 121.7026, 121.706, 121.7253, 
  121.7376, 121.7486, 121.7445, 121.7349, 121.7211, 121.7102, 121.7335, 121.7246, 121.6957, 121.6573, 
  121.6868, 121.6751, 121.6229, 121.6078, 121.5899, 121.5906, 121.603, 121.6401, 121.6271, 121.5955, 
  121.5907, 121.6085, 121.6072, 121.5831, 121.603, 121.6367, 121.68, 121.6813, 121.625, 121.5645, 
  121.5, 121.4484, 121.4052, 121.4052, 121.3681, 121.3634, 121.3428, 121.316, 121.3407, 121.3434, 
  121.3063, 121.2844, 121.2548, 121.228, 121.2067, 121.1841, 121.158, 121.1442, 121.1162, 121.1176, 
  121.0908, 121.0867, 121.1265, 121.1231, 121.1066, 121.1121, 121.1382, 121.1265, 121.143, 121.132, 
  121.1175, 121.1079, 121.1272, 121.1347, 121.1979, 121.2199, 121.2357, 121.2536, 121.2872, 121.325, 
  121.3188, 121.3442, 121.428, 121.4862, 121.4999, 121.5178, 121.5219, 121.537, 121.5611, 121.6023, 
  121.6154, 121.6923, 121.7081, 121.7163, 121.6431, 121.6115, 121.6108, 121.6441, 121.6658, 121.6606, 
  121.6627, 121.6462, 121.6651, 121.7104, 121.7053, 121.753, 121.7351, 121.7392, 121.7674, 121.7866, 
  121.8134, 121.8292, 121.8347, 121.824, 121.8384, 121.8587, 121.8889, 121.9085, 121.8958, 121.8924, 
  121.8419, 121.8457, 121.8659, 121.8694, 121.8903, 121.902, 121.9092, 121.9034, 121.9113, 121.9226, 
  121.915, 121.913, 121.9006, 121.8982, 121.9082, 121.9642, 121.98, 122.0183, 122.0602, 122.0657, 
  122.0386, 122.0369, 122.0812, 122.0774, 122.0887, 122.0922, 122.108, 122.1155, 122.154, 122.11, 
  122.1107, 122.1193, 122.1062, 122.1141, 122.1255, 122.1368, 122.1399, 122.1832, 122.2069, 122.211, 
  122.2436, 122.2415, 122.2625, 122.2595, 122.2605, 122.2911, 122.3017, 122.3023, 122.3131, 122.3126, 
  122.3431, 122.3328, 122.3376, 122.3442, 122.3658, 122.3672, 122.3912, 122.3809, 122.3906, 122.4486, 
  122.4517, 122.4993, 122.5017, 122.5138, 122.5371, 122.5502, 122.5622, 122.5584, 122.5697, 122.5619, 
  122.5636, 122.6017, 122.6236, 122.6185, 122.6243, 122.6326, 122.6415, 122.6614, 122.6762, 122.679, 
  122.6913, 122.7184, 122.7284, 122.7688, 122.7609, 122.8056, 122.8156, 122.8289, 122.8234, 122.8365, 
  122.8371, 122.8468, 122.8591, 122.8674, 122.934, 122.944, 122.9519, 122.9522, 122.967, 122.9663, 
  122.9793, 123.0088, 122.9972, 123.0161, 123.0264, 123.0315, 123.07, 123.0727, 123.0775, 123.0896, 
  123.1005, 123.1016, 123.1229, 123.116, 123.1284, 123.1387, 123.1579, 123.1576, 123.1805, 123.1826, 
  123.2176, 123.2159, 123.2052, 123.2073, 123.221, 123.2492, 123.2653, 123.2777, 123.2798, 123.2619, 
  123.266, 123.2554, 123.2598, 123.2712, 123.2763, 123.266, 123.2983, 123.3378, 123.3399, 123.3876, 
  123.3937, 123.4487, 123.4538, 123.4683, 123.4741, 123.459, 123.4604, 123.4744, 123.4851, 123.4964, 
  123.4954, 123.5149, 123.5149, 123.5245, 123.529, 123.54, 123.5431, 123.5637, 123.5599, 123.5664, 
  123.5785, 123.6059, 123.6186, 123.6372, 123.6285, 123.6739, 123.6876, 123.7357, 123.7809, 123.8077, 
  123.8311, 123.8775, 123.9486, 123.9649, 124.0072, 124.0907, 124.124, 124.0986, 124.1415, 124.1549, 
  124.1528, 124.1642, 124.1845, 124.206, 124.2091, 124.2123,
  124.2153, 124.2211, 124.2272, 124.2399, 124.2633, 124.2763, 124.2841, 124.2862, 124.2845, 124.2857, 
  124.2905, 124.2938, 124.2938, 124.2876, 124.284, 124.2824, 124.2842, 124.2847, 124.283, 124.2832, 
  124.2873, 124.291, 124.2921, 124.292, 124.2962, 124.2972, 124.2978, 124.3042, 124.3111, 124.3175, 
  124.323, 124.3222, 124.3301, 124.3382, 124.3422, 124.3433, 124.345, 124.3459, 124.3446, 124.3438, 
  124.3447, 124.3434, 124.3441, 124.3456, 124.346, 124.3477, 124.3564, 124.3608, 124.3664, 124.366, 
  124.3621, 124.3607, 124.356, 124.356, 124.3368, 124.3345, 124.3359, 124.3474, 124.3508, 124.3615, 
  124.3665, 124.3707, 124.3923, 124.3966, 124.4001, 124.4075, 124.4117, 124.4162, 124.4304, 124.4377, 
  124.4407, 124.4428, 124.45, 124.4568, 124.4721, 124.478, 124.4813, 124.4854, 124.4884, 124.4896, 
  124.4949, 124.4999, 124.5019, 124.5095, 124.5172, 124.5198, 124.5233, 124.5332, 124.5424, 124.546, 
  124.555, 124.5718, 124.575, 124.582, 124.587, 124.591, 124.6161, 124.6414, 124.6433, 124.66, 
  124.6732, 124.7066, 124.7217, 124.7287, 124.7375, 124.7459, 124.7659, 124.7805, 124.7993, 124.8178, 
  124.8216, 124.8277, 124.8582, 124.8763, 124.8833, 124.8892, 124.9003, 124.906, 124.9099, 124.906, 
  124.9057, 124.9116, 124.9239, 124.9402, 124.9515, 124.9807, 124.9877, 124.9971, 125.0137, 125.0203, 
  125.0311, 125.0406, 125.0392, 125.0272, 125.004, 124.9989, 125.0023, 125.0083, 125.0531, 125.1053, 
  125.1372, 125.1788, 125.1862, 125.2121, 125.2282, 125.2413, 125.2579, 125.2632, 125.2663, 125.2645, 
  125.2667, 125.277, 125.301, 125.322, 125.3302, 125.3484, 125.3633, 125.3707, 125.3815, 125.3976, 
  125.4081, 125.4158, 125.4174, 125.4158, 125.4093, 125.409, 125.4119, 125.4172, 125.4279, 125.4377, 
  125.443, 125.4492, 125.4529, 122.24467, 104.06422)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_difference(st_geometry(Geo_1), st_geometry(Geo))
if (length(Geo_0) > 1) {Geo_0 <- Geo_0[st_geometry_type(Geo_0) %in% c("POLYGON", "MULTIPOLYGON")]}
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, Geo_0[630])
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
LATITUDE_VALUEs <- c(21.65807, 21.65807, 21.66617, 21.68164, 21.68962, 21.68411, 21.67722, 21.67498, 21.66577)
LONGITUDE_VALUEs <- c(108.3295, 108.3312, 108.3348, 108.3364, 108.3338, 108.3297, 108.33, 108.3285, 108.3282)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(21.6629, 21.66485, 21.66645, 21.67103, 21.67917, 21.68092, 21.67594, 21.66888, 21.66334)
LONGITUDE_VALUEs <- c(108.3449, 108.3477, 108.3475, 108.3498, 108.3454, 108.3419, 108.3408, 108.3437, 108.3437)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  22.47079, 22.47202, 22.46868, 22.46583, 22.466, 22.46473, 22.46255, 22.46181, 22.46276, 22.46096, 
  22.4569, 22.4533, 22.45203, 22.45179, 22.45282, 22.45207, 22.45595, 22.4577, 22.45695, 22.45845, 
  22.4577, 22.45833, 22.46036, 22.46174, 22.46159, 22.46288, 22.4657, 22.4683, 22.46996, 22.46663, 
  22.46752, 22.46941, 22.46889, 22.46939, 22.46735, 22.46744, 22.46832, 22.47109, 22.47498)
LONGITUDE_VALUEs <- c(
  114.6265, 114.6217, 114.6156, 114.6165, 114.6193, 114.6195, 114.6165, 114.6178, 114.6187, 114.6206, 
  114.6206, 114.6236, 114.6239, 114.6254, 114.6264, 114.6276, 114.6325, 114.6333, 114.6364, 114.6398, 
  114.643, 114.6471, 114.6454, 114.646, 114.6487, 114.6485, 114.6516, 114.6514, 114.648, 114.6419, 
  114.6403, 114.6411, 114.6397, 114.6384, 114.6391, 114.6379, 114.6379, 114.6331, 114.6313)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  22.43115, 22.4332, 22.43324, 22.43214, 22.43474, 22.43716, 22.43871, 22.44049, 22.44339, 22.44544, 
  22.44659, 22.44752, 22.4447, 22.44436, 22.44321, 22.44236, 22.44151, 22.44038, 22.43661, 22.43339, 
  22.43173)
LONGITUDE_VALUEs <- c(
  114.6389, 114.6422, 114.644, 114.6454, 114.6476, 114.6511, 114.649, 114.6499, 114.654, 114.6539, 
  114.6548, 114.6493, 114.6476, 114.6455, 114.6455, 114.6444, 114.6445, 114.6423, 114.6409, 114.6374, 
  114.6378)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  22.71755, 22.71276, 22.71268, 22.71037, 22.70994, 22.70788, 22.708, 22.70954, 22.71025, 22.70994, 
  22.71247, 22.71375, 22.71478, 22.71534, 22.71642, 22.71595, 22.71486, 22.71462, 22.71534, 22.71751)
LONGITUDE_VALUEs <- c(
  114.5802, 114.5801, 114.5817, 114.5818, 114.5835, 114.5835, 114.5891, 114.5891, 114.5907, 114.5932, 
  114.5936, 114.5965, 114.5961, 114.5947, 114.5936, 114.5925, 114.5918, 114.5907, 114.5889, 114.589)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  20.91899, 20.9168, 20.91592, 20.91493, 20.91222, 20.91088, 20.90944, 20.90861, 20.90752, 20.90384, 
  20.9039, 20.903, 20.90218, 20.90276, 20.90332, 20.9033, 20.90411, 20.90451, 20.90488, 20.90568, 
  20.90657, 20.91011, 20.91262, 20.91323, 20.91395, 20.91591, 20.91586, 20.91643, 20.91653, 20.91772, 
  20.91771, 20.91891, 20.91942)
LONGITUDE_VALUEs <- c(
  109.2036, 109.2037, 109.2027, 109.2032, 109.2032, 109.2041, 109.2042, 109.2051, 109.2053, 109.2073, 
  109.2104, 109.2104, 109.2117, 109.2126, 109.2125, 109.2132, 109.2124, 109.2127, 109.2152, 109.2154, 
  109.2169, 109.2181, 109.2169, 109.2161, 109.2158, 109.2133, 109.2122, 109.2119, 109.2102, 109.2092, 
  109.2076, 109.2071, 109.2054)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  20.87164, 20.87593, 20.88393, 20.88564, 20.88852, 20.88927, 20.8875, 20.8875, 20.89075, 20.89149, 
  20.89546, 20.90524, 20.90877, 20.91258, 20.91631, 20.92497, 20.92701, 20.93435, 20.93463, 20.93968, 
  20.93872, 20.9428, 20.94052, 20.94946, 20.94845, 20.93639, 20.93747, 20.9327, 20.92412, 20.91779, 
  20.91025, 20.91114, 20.91046, 20.90248, 20.89795, 20.88784, 20.88772, 20.89113, 20.88901, 20.88556, 
  20.87962, 20.87858, 20.87437, 20.87144, 20.87104, 20.86872, 20.86844, 20.86543, 20.86779, 20.86675, 
  20.869, 20.86888)
LONGITUDE_VALUEs <- c(
  110.6084, 110.6054, 110.6082, 110.6075, 110.6096, 110.612, 110.613, 110.6161, 110.6169, 110.621, 
  110.6199, 110.6239, 110.6218, 110.6234, 110.6363, 110.6347, 110.6372, 110.6375, 110.634, 110.6314, 
  110.6222, 110.6145, 110.6115, 110.5964, 110.5852, 110.5878, 110.5786, 110.5765, 110.5767, 110.5634, 
  110.5631, 110.5591, 110.5559, 110.5484, 110.5513, 110.5547, 110.559, 110.5633, 110.5652, 110.5609, 
  110.5614, 110.5555, 110.5568, 110.5604, 110.5709, 110.5743, 110.5825, 110.5851, 110.592, 110.5946, 
  110.5979, 110.6004)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  20.94461, 20.94413, 20.95904, 20.95759, 20.97314, 20.99526, 20.99414, 21.00295, 20.9959, 20.99622, 
  20.99237, 20.99782, 20.99558, 20.98035, 20.97555, 20.95439, 20.94316, 20.93515, 20.92793, 20.92328, 
  20.92425, 20.93354, 20.97282, 20.99606, 21.03516, 21.05807, 21.06896, 21.07937, 21.0624, 21.06272, 
  21.09571, 21.09459, 21.08562, 21.07457, 21.07665, 21.07457, 21.07537, 21.07313, 21.07825, 21.07457, 
  21.07969, 21.07905, 21.07137, 21.06352, 21.06248, 21.05575, 21.03644, 21.02699, 21.02266, 20.98941, 
  20.98532, 20.9745)
LONGITUDE_VALUEs <- c(
  110.2006, 110.2057, 110.237, 110.2538, 110.3096, 110.3463, 110.3855, 110.4133, 110.4203, 110.4266, 
  110.4287, 110.4531, 110.4672, 110.4794, 110.4783, 110.5012, 110.4967, 110.5024, 110.5022, 110.514, 
  110.5255, 110.5305, 110.5266, 110.5322, 110.5468, 110.5509, 110.5477, 110.5147, 110.4667, 110.4488, 
  110.4078, 110.3937, 110.3738, 110.3637, 110.3534, 110.342, 110.335, 110.3286, 110.3243, 110.3146, 
  110.314, 110.3062, 110.2979, 110.2975, 110.2878, 110.2826, 110.2782, 110.2689, 110.2582, 110.2195, 
  110.2093, 110.2011)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  21.09043, 21.08818, 21.09859, 21.17161, 21.18353, 21.20266, 21.21346, 21.20954, 21.19834, 21.19265, 
  21.19426, 21.19874, 21.20226, 21.20214, 21.19494, 21.19558, 21.19169, 21.18225, 21.18137, 21.18593, 
  21.18641, 21.19826, 21.20162, 21.2065, 21.21298, 21.21378, 21.2073, 21.20226, 21.20154, 21.19349, 
  21.19722, 21.2011, 21.20274, 21.20398, 21.20306, 21.19846, 21.19674, 21.1939, 21.19345, 21.18953, 
  21.18485, 21.18609, 21.18405, 21.17657, 21.17445, 21.17409, 21.16989, 21.17033, 21.16949, 21.17169, 
  21.15864, 21.1536, 21.15272, 21.14343, 21.15408, 21.15496, 21.14879, 21.13735, 21.13182, 21.12446, 
  21.11613, 21.11989, 21.11293, 21.10476, 21.10204)
LONGITUDE_VALUEs <- c(
  110.5338, 110.549, 110.5741, 110.6038, 110.6133, 110.6216, 110.6235, 110.6114, 110.6033, 110.5734, 
  110.5721, 110.5809, 110.5802, 110.5544, 110.5427, 110.5353, 110.5224, 110.5132, 110.502, 110.5051, 
  110.5126, 110.516, 110.5075, 110.5019, 110.4989, 110.4928, 110.4851, 110.4823, 110.4785, 110.4756, 
  110.4739, 110.4733, 110.4755, 110.467, 110.463, 110.4613, 110.4672, 110.465, 110.4625, 110.46, 
  110.4507, 110.4422, 110.428, 110.4332, 110.4343, 110.4297, 110.4304, 110.4435, 110.4472, 110.4498, 
  110.4527, 110.4587, 110.4659, 110.4846, 110.4888, 110.4935, 110.5151, 110.5226, 110.5162, 110.5155, 
  110.5209, 110.5285, 110.5333, 110.5334, 110.5265)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  21.66381, 21.66704, 21.66389, 21.65619, 21.66018, 21.65851, 21.65476, 21.64714, 21.64758, 21.64399, 
  21.65344, 21.65783, 21.65823, 21.6536, 21.65105, 21.64666, 21.64083, 21.63892, 21.63653, 21.62544, 
  21.6163, 21.60896, 21.60672, 21.60249, 21.60214, 21.59647, 21.59188, 21.59052, 21.58813, 21.58949, 
  21.5853, 21.58554, 21.58306, 21.57688, 21.57552, 21.57732, 21.57775, 21.57376, 21.57149, 21.57009, 
  21.57253, 21.56726, 21.56403, 21.56207, 21.55908, 21.56003, 21.56327, 21.56291, 21.56135, 21.56079, 
  21.56239, 21.57073, 21.57253, 21.57165, 21.56806, 21.5655, 21.56379, 21.56462, 21.56231, 21.56287, 
  21.56818, 21.59555, 21.60521, 21.608, 21.61279, 21.61123, 21.60708, 21.60513, 21.60792, 21.60888, 
  21.60808, 21.60513, 21.60517, 21.60696, 21.60609, 21.61435, 21.61419, 21.62045, 21.6228, 21.62268, 
  21.62145, 21.62073, 21.61762, 21.6175, 21.62005, 21.62153, 21.62966, 21.63126, 21.63238, 21.63397, 
  21.63724, 21.63798, 21.64093, 21.64381, 21.64514, 21.64859, 21.64672, 21.64995, 21.65192, 21.65551, 
  21.65579, 21.65741, 21.65563, 21.65621, 21.65264, 21.65145, 21.64646, 21.64985, 21.65551, 21.65858, 
  21.65575, 21.65152, 21.64766, 21.64985, 21.6463, 21.65388)
LONGITUDE_VALUEs <- c(
  111.9313, 111.9181, 111.9177, 111.9076, 111.9055, 111.899, 111.9012, 111.8931, 111.8812, 111.8766, 
  111.8517, 111.8497, 111.8471, 111.843, 111.8378, 111.837, 111.8453, 111.8437, 111.8477, 111.8533, 
  111.8543, 111.8497, 111.8466, 111.8454, 111.8349, 111.8275, 111.8257, 111.8194, 111.8201, 111.8234, 
  111.8271, 111.8287, 111.83, 111.828, 111.8241, 111.8219, 111.8188, 111.8168, 111.818, 111.8154, 
  111.8092, 111.8085, 111.8068, 111.8106, 111.8121, 111.8161, 111.8178, 111.8229, 111.8226, 111.8246, 
  111.8248, 111.8404, 111.8477, 111.8525, 111.8544, 111.8526, 111.8543, 111.8573, 111.8592, 111.8616, 
  111.8635, 111.9002, 111.9172, 111.9288, 111.9364, 111.9448, 111.9446, 111.9462, 111.9507, 111.9552, 
  111.9577, 111.9573, 111.9595, 111.9621, 111.9645, 111.976, 111.9773, 111.9885, 111.9949, 111.9997, 
  111.9996, 112.0015, 112.001, 112.0022, 112.0045, 112.0093, 112.0127, 112.0157, 112.0158, 112.0187, 
  112.0195, 112.0168, 112.0159, 112.0175, 112.0166, 112.0091, 112.0048, 112.0025, 111.9966, 111.9931, 
  111.9912, 111.9887, 111.9856, 111.9835, 111.9797, 111.9762, 111.9752, 111.9641, 111.9631, 111.9591, 
  111.9555, 111.957, 111.9543, 111.9476, 111.9418, 111.9311)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  21.94384, 21.94454, 21.94512, 21.94622, 21.95027, 21.95136, 21.95176, 21.95244, 21.95287, 21.95259,
  21.95193, 21.95188, 21.95242, 21.95198, 21.95224, 21.95307, 21.95358, 21.95481, 21.95436, 21.95443,
  21.95491, 21.95542, 21.95596, 21.95597, 21.95635, 21.95584, 21.95583, 21.95684, 21.95643, 21.95618,
  21.95581, 21.95516, 21.95616, 21.95617, 21.95572, 21.95413, 21.95145, 21.95144, 21.95169, 21.95073,
  21.94856, 21.94741, 21.94671, 21.94618, 21.94546, 21.94419, 21.94427, 21.94377)
LONGITUDE_VALUEs <- c(
  113.1671, 113.167, 113.1679, 113.1682, 113.1648, 113.1656, 113.164, 113.164, 113.1648, 113.1662,
  113.1661, 113.1665, 113.1667, 113.167, 113.1674, 113.167, 113.1674, 113.1681, 113.1683, 113.1686,
  113.1686, 113.1684, 113.1686, 113.1684, 113.1681, 113.1679, 113.1672, 113.1667, 113.1661, 113.166,
  113.1657, 113.1638, 113.1623, 113.1613, 113.1606, 113.1591, 113.1588, 113.159, 113.1593, 113.1602,
  113.1601, 113.1609, 113.1616, 113.1618, 113.1627, 113.1638, 113.1656, 113.1659)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  21.93268, 21.93257, 21.93181, 21.93416, 21.93523, 21.93636, 21.93712, 21.93876, 21.93872, 21.94033,
  21.93859, 21.93852, 21.93911, 21.93828, 21.93944, 21.93765, 21.93726, 21.93342, 21.93397, 21.93307,
  21.93252, 21.93132, 21.93067, 21.92972, 21.92891, 21.92782, 21.92665, 21.9255, 21.92378, 21.92091,
  21.91898, 21.91595, 21.91295, 21.90596, 21.89949, 21.89525, 21.8943, 21.89298, 21.8921, 21.89149,
  21.891, 21.89192, 21.8916, 21.89209, 21.89208, 21.89281, 21.89419, 21.89384, 21.89573, 21.89897,
  21.90638, 21.90827, 21.90831, 21.91044, 21.91267, 21.91428, 21.91566, 21.91542, 21.91661, 21.91693,
  21.92296, 21.93029, 21.93212)
LONGITUDE_VALUEs <- c(
  113.1512, 113.1499, 113.149, 113.1475, 113.1479, 113.1472, 113.1474, 113.1458, 113.1452, 113.1443,
  113.1436, 113.1423, 113.1418, 113.1409, 113.1397, 113.1392, 113.1386, 113.1357, 113.1342, 113.1337,
  113.133, 113.1338, 113.1328, 113.1328, 113.1318, 113.1324, 113.1316, 113.1322, 113.1316, 113.1352,
  113.1313, 113.1307, 113.123, 113.1207, 113.1195, 113.1159, 113.1136, 113.1124, 113.1125, 113.1129,
  113.1129, 113.1141, 113.1145, 113.1148, 113.1157, 113.1151, 113.1157, 113.1159, 113.1168, 113.1199,
  113.1286, 113.1289, 113.1309, 113.1311, 113.1336, 113.1335, 113.1343, 113.1364, 113.1377, 113.1421,
  113.151, 113.1529, 113.152)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  21.92684, 21.9253, 21.92603, 21.92536, 21.92694, 21.92812, 21.92943, 21.92814, 21.93164, 21.93592,
  21.93725, 21.93837, 21.94028, 21.94245, 21.94711, 21.94756, 21.94707, 21.94788, 21.9487, 21.95049,
  21.95136, 21.95345, 21.95509, 21.9563, 21.95613, 21.95696, 21.95762, 21.95785, 21.95668, 21.9565,
  21.95512, 21.95506, 21.95407, 21.95374, 21.95289, 21.95143, 21.95126, 21.95071, 21.95047, 21.95014,
  21.94973, 21.94906, 21.9489, 21.94951, 21.94893, 21.9463, 21.94537, 21.9392, 21.93825, 21.93754,
  21.93799, 21.93616, 21.93759, 21.93494, 21.93307, 21.93001, 21.9278)
LONGITUDE_VALUEs <- c(
  113.7148, 113.7177, 113.7192, 113.722, 113.724, 113.7238, 113.7261, 113.7326, 113.7385, 113.7417,
  113.7419, 113.7434, 113.7436, 113.7465, 113.7462, 113.7448, 113.7439, 113.7393, 113.7395, 113.7412,
  113.7408, 113.7379, 113.7279, 113.7267, 113.7255, 113.7234, 113.7229, 113.7218, 113.7204, 113.7194,
  113.7176, 113.717, 113.7154, 113.713, 113.7119, 113.7117, 113.7109, 113.7108, 113.7102, 113.7104,
  113.7103, 113.7104, 113.7115, 113.7144, 113.715, 113.7143, 113.7129, 113.7121, 113.7117, 113.7124,
  113.7147, 113.7162, 113.7194, 113.7208, 113.7164, 113.7164, 113.7148)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  21.8752, 21.8714, 21.86349, 21.86054, 21.85439, 21.85301, 21.84949, 21.84728, 21.84148, 21.84089,
  21.83547, 21.83567, 21.83812, 21.83917, 21.84051, 21.85122, 21.8567, 21.85881, 21.85734, 21.8576,
  21.85851, 21.85863, 21.85644, 21.85495, 21.85309, 21.8514, 21.85061, 21.85174, 21.85108, 21.85188,
  21.85305, 21.8527, 21.85654, 21.85775, 21.85839, 21.85849, 21.85887, 21.86194, 21.86283, 21.86833,
  21.86964, 21.87201, 21.87325, 21.87319, 21.8739, 21.87281, 21.87383, 21.87213, 21.8698, 21.86578,
  21.86341, 21.86299, 21.86735, 21.87289, 21.87416, 21.87572, 21.87528, 21.87621, 21.87751, 21.87767,
  21.87502, 21.87422, 21.87104, 21.86952, 21.86775, 21.86508, 21.86568, 21.8748)
LONGITUDE_VALUEs <- c(
  113.1358, 113.1319, 113.1317, 113.1304, 113.1312, 113.1307, 113.1321, 113.1317, 113.1335, 113.1349,
  113.1372, 113.1381, 113.1381, 113.139, 113.139, 113.1485, 113.1568, 113.1648, 113.1658, 113.1672,
  113.168, 113.1709, 113.1738, 113.1738, 113.1748, 113.1745, 113.1753, 113.1766, 113.1805, 113.1804,
  113.1816, 113.183, 113.1804, 113.1809, 113.1866, 113.1886, 113.1897, 113.1896, 113.1947, 113.1972,
  113.1993, 113.1971, 113.1969, 113.1947, 113.1936, 113.1923, 113.1896, 113.1859, 113.1856, 113.1796,
  113.1789, 113.1732, 113.1672, 113.1656, 113.1662, 113.1655, 113.1633, 113.1635, 113.1612, 113.1586,
  113.1557, 113.1576, 113.1545, 113.1556, 113.1551, 113.1505, 113.1455, 113.1379)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  21.94175, 21.94364, 21.94792, 21.9459, 21.9455, 21.94682, 21.946, 21.94756, 21.94356, 21.94486,
  21.94584, 21.94621, 21.94791, 21.94825, 21.94797, 21.94885, 21.95017, 21.95195, 21.95347, 21.95568,
  21.95711, 21.95729, 21.95989, 21.95982, 21.96158, 21.96053, 21.96234, 21.96346, 21.96251, 21.96535,
  21.96416, 21.9518, 21.94848, 21.944, 21.94235, 21.94239, 21.94149, 21.94231)
LONGITUDE_VALUEs <- c(
  113.6831, 113.6862, 113.6865, 113.6888, 113.6914, 113.6938, 113.6956, 113.6999, 113.6999, 113.7023,
  113.7025, 113.7036, 113.7046, 113.7039, 113.7018, 113.7011, 113.7022, 113.7008, 113.7022, 113.7007,
  113.7013, 113.7021, 113.7019, 113.6993, 113.6989, 113.697, 113.6968, 113.6937, 113.6921, 113.6907,
  113.6858, 113.6775, 113.6793, 113.6758, 113.6769, 113.6782, 113.6791, 113.6815)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  21.98736, 21.98462, 21.98504, 21.9838, 21.98295, 21.98038, 21.98042, 21.98253, 21.98342, 21.98541,
  21.98569, 21.98802, 21.99029, 21.99232, 21.996, 22.00089, 22.00167, 22.00039, 21.99896, 21.99548,
  21.99791, 22.00135, 22.00171, 21.99622, 21.9947, 21.98939, 21.99088, 21.99198, 21.99029, 21.98645,
  21.98712, 21.98601, 21.98452, 21.98517, 21.98551, 21.98444)
LONGITUDE_VALUEs <- c(
  114.1367, 114.1399, 114.1429, 114.1442, 114.1482, 114.1471, 114.1501, 114.152, 114.1516, 114.1566,
  114.1605, 114.1631, 114.1614, 114.1622, 114.1685, 114.1675, 114.1643, 114.1631, 114.1582, 114.1553,
  114.1531, 114.149, 114.147, 114.1458, 114.1479, 114.1372, 114.1347, 114.1321, 114.1278, 114.1232,
  114.1213, 114.1188, 114.1213, 114.1231, 114.1294, 114.1329)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  22.39236, 22.39637, 22.39764, 22.39569, 22.397, 22.39972, 22.40125, 22.40375, 22.40422, 22.40653,
  22.41129, 22.41033, 22.4118, 22.41218, 22.41434, 22.41752, 22.4194, 22.42115, 22.42134, 22.42301,
  22.42295, 22.4221, 22.42327, 22.4268, 22.42882, 22.43172, 22.43556, 22.43433, 22.43626, 22.43908,
  22.44072, 22.43944, 22.43788, 22.43815, 22.43926, 22.44033, 22.43972, 22.44051, 22.43941, 22.44162,
  22.44026, 22.44538, 22.44332, 22.43578, 22.42206, 22.40833, 22.3952, 22.39028, 22.38718, 22.38873)
LONGITUDE_VALUEs <- c(
  113.628, 113.6332, 113.6386, 113.6402, 113.6451, 113.6448, 113.6471, 113.6464, 113.6442, 113.6444,
  113.6473, 113.6501, 113.6499, 113.6524, 113.6543, 113.66, 113.6583, 113.659, 113.6604, 113.6602,
  113.6583, 113.6578, 113.6563, 113.6558, 113.6591, 113.6611, 113.6601, 113.6574, 113.6538, 113.6519,
  113.6527, 113.6475, 113.6461, 113.6407, 113.6385, 113.638, 113.636, 113.6351, 113.6339, 113.6311,
  113.6273, 113.6233, 113.6194, 113.6124, 113.6064, 113.6055, 113.6105, 113.6175, 113.6253, 113.629)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  22.12268, 22.1226, 22.12087, 22.12842, 22.13375, 22.13617, 22.13657, 22.14293, 22.14492, 22.14802,
  22.14818, 22.15068, 22.15879, 22.15812, 22.15875, 22.157, 22.161, 22.1635, 22.16342, 22.16527,
  22.16694, 22.16984, 22.17294, 22.17006, 22.17338, 22.17481, 22.17791, 22.17656, 22.17435, 22.17065,
  22.17109, 22.16748, 22.16493, 22.16684, 22.16281, 22.1602, 22.15613, 22.14766, 22.13872, 22.13454,
  22.1316, 22.1316, 22.13244, 22.12841, 22.12722, 22.12524)
LONGITUDE_VALUEs <- c(
  113.8173, 113.8206, 113.8237, 113.8278, 113.8341, 113.8349, 113.8329, 113.8311, 113.8275, 113.8276,
  113.8231, 113.8225, 113.8237, 113.8202, 113.8184, 113.8143, 113.8101, 113.8119, 113.8085, 113.8076,
  113.8087, 113.8079, 113.8056, 113.8029, 113.8021, 113.8033, 113.8029, 113.7961, 113.7961, 113.799,
  113.7951, 113.7947, 113.7998, 113.8015, 113.804, 113.8099, 113.8141, 113.8183, 113.8179, 113.8114,
  113.8118, 113.8125, 113.8137, 113.8148, 113.8165, 113.8153)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  22.74276, 22.73572, 22.73121, 22.72669, 22.71806, 22.71616, 22.72297, 22.73308, 22.73244, 22.73442, 
  22.73375, 22.73608, 22.73771, 22.7425, 22.7442, 22.7497, 22.7552, 22.75108, 22.75085, 22.74428, 
  22.74226, 22.74562, 22.75259, 22.75077, 22.7552, 22.75156, 22.75239, 22.74455)
LONGITUDE_VALUEs <- c(
  115.5608, 115.5657, 115.5725, 115.5723, 115.5661, 115.5698, 115.5744, 115.5867, 115.588, 115.5925, 
  115.5961, 115.5979, 115.6012, 115.6011, 115.5981, 115.6002, 115.5984, 115.5957, 115.5926, 115.587, 
  115.5825, 115.5748, 115.5679, 115.5652, 115.5594, 115.5587, 115.5557, 115.5541)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  24.47956, 24.46081, 24.44956, 24.43456, 24.43456, 24.42987, 24.42972, 24.42581, 24.42596, 24.42362, 
  24.43065, 24.43081, 24.43909, 24.4616, 24.48484, 24.53139, 24.54735, 24.54719, 24.56015, 24.55484, 
  24.54017, 24.5094, 24.49425)
LONGITUDE_VALUEs <- c(
  118.0704, 118.0658, 118.0747, 118.0843, 118.0972, 118.1017, 118.1154, 118.1197, 118.1257, 118.1322, 
  118.1374, 118.1413, 118.148, 118.1784, 118.1974, 118.1936, 118.1614, 118.1533, 118.1408, 118.1013, 
  118.0874, 118.0773, 118.0696)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  24.56749, 24.55984, 24.52221, 24.5386, 24.54704, 24.55406, 24.55765, 24.55967, 24.55955, 24.56213, 
  24.56197, 24.56037, 24.5624, 24.5619, 24.55955, 24.55842, 24.5617, 24.56455, 24.56478, 24.56806, 
  24.56884, 24.56502, 24.56962, 24.5672, 24.57087, 24.57626, 24.57688)
LONGITUDE_VALUEs <- c(
  118.2907, 118.29, 118.3439, 118.3744, 118.3786, 118.3753, 118.3906, 118.3913, 118.3937, 118.3933, 
  118.3901, 118.3894, 118.383, 118.3784, 118.3771, 118.3743, 118.3745, 118.3776, 118.371, 118.3753, 
  118.3725, 118.3653, 118.339, 118.3379, 118.3228, 118.3177, 118.3096)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  25.66648, 25.66462, 25.66559, 25.66741, 25.66779, 25.66412, 25.6642, 25.66044, 25.6599, 25.65789, 
  25.6587, 25.65182, 25.64911, 25.64977, 25.64493, 25.64404, 25.64234, 25.64276, 25.6389, 25.63812, 
  25.63445, 25.63305, 25.6312, 25.63065, 25.63816, 25.63719, 25.63979, 25.64288, 25.64454, 25.64304, 
  25.64056, 25.63963, 25.63797, 25.63626, 25.63499, 25.63042, 25.62949, 25.62764, 25.62609, 25.62404, 
  25.6228, 25.62071, 25.62114, 25.62644, 25.6262, 25.62361, 25.62145, 25.61897, 25.61715, 25.61827, 
  25.61599, 25.61386, 25.61405, 25.61146, 25.61104, 25.60376, 25.60349, 25.5954, 25.59141, 25.58789, 
  25.58743, 25.58174, 25.57934, 25.58162, 25.57833, 25.5553, 25.53392, 25.52471, 25.52091, 25.51851, 
  25.51541, 25.50751, 25.50619, 25.51123, 25.51123, 25.51363, 25.50681, 25.51363, 25.5134, 25.50371, 
  25.50278, 25.50526, 25.50124, 25.50286, 25.49659, 25.49496, 25.49101, 25.47544, 25.47528, 25.46699, 
  25.46366, 25.46877, 25.45467, 25.45126, 25.44366, 25.4449, 25.4418, 25.44397, 25.45575, 25.45389, 
  25.45126, 25.44916, 25.44521, 25.43986, 25.43397, 25.43033, 25.42281, 25.42297, 25.41428, 25.40804, 
  25.40289, 25.39955, 25.39878, 25.40145, 25.40149, 25.3975, 25.39917, 25.402, 25.40262, 25.40645, 
  25.40948, 25.41033, 25.41483, 25.41611, 25.41859, 25.41711, 25.41281, 25.42118, 25.42987, 25.43983, 
  25.45543, 25.46279, 25.4641, 25.46139, 25.46744, 25.471, 25.46666, 25.46472, 25.4641, 25.46093, 
  25.46124, 25.45729, 25.45791, 25.45667, 25.46217, 25.46294, 25.46534, 25.46558, 25.46682, 25.4676, 
  25.47465, 25.47825, 25.48465, 25.47791, 25.47969, 25.48294, 25.48612, 25.48178, 25.48232, 25.4934, 
  25.4891, 25.491, 25.49495, 25.49468, 25.49693, 25.49972, 25.50874, 25.51269, 25.5142, 25.5259, 
  25.54046, 25.54356, 25.54956, 25.55265, 25.5508, 25.5458, 25.53759, 25.5374, 25.54205, 25.54716, 
  25.54855, 25.54507, 25.55018, 25.55459, 25.56048, 25.56543, 25.56725, 25.56965, 25.5652, 25.56501, 
  25.56845, 25.57468, 25.57797, 25.57759, 25.57379, 25.57325, 25.57732, 25.58063, 25.58572, 25.59493, 
  25.59559, 25.59984, 25.61226, 25.61342, 25.61976, 25.61961, 25.61202, 25.61226, 25.62913, 25.64368, 
  25.65049, 25.65231, 25.65517, 25.65599, 25.65897, 25.65993, 25.6614, 25.66086, 25.66616)
LONGITUDE_VALUEs <- c(
  119.7835, 119.7828, 119.7802, 119.7802, 119.7763, 119.7754, 119.7703, 119.77, 119.7648, 119.7634, 
  119.7617, 119.7533, 119.7527, 119.751, 119.7467, 119.7495, 119.749, 119.7459, 119.7448, 119.7478, 
  119.7471, 119.7484, 119.7481, 119.7431, 119.7421, 119.7388, 119.738, 119.7402, 119.7385, 119.7322, 
  119.7302, 119.7278, 119.729, 119.7282, 119.7238, 119.7225, 119.7236, 119.7227, 119.7194, 119.7187, 
  119.7151, 119.7133, 119.7113, 119.7107, 119.7079, 119.7063, 119.7002, 119.7006, 119.7032, 119.7058, 
  119.7057, 119.7039, 119.6969, 119.6953, 119.6913, 119.6911, 119.6825, 119.6868, 119.6936, 119.6918, 
  119.6882, 119.6926, 119.6932, 119.6962, 119.7053, 119.7133, 119.7128, 119.7092, 119.7231, 119.7221, 
  119.738, 119.7395, 119.7344, 119.7295, 119.725, 119.7229, 119.7103, 119.708, 119.6947, 119.6955, 
  119.6927, 119.6892, 119.6886, 119.683, 119.676, 119.6794, 119.6791, 119.672, 119.6749, 119.6728, 
  119.677, 119.6843, 119.683, 119.6771, 119.6811, 119.6878, 119.6886, 119.6944, 119.6949, 119.7029, 
  119.7035, 119.7091, 119.7021, 119.7005, 119.7021, 119.71, 119.713, 119.7219, 119.7414, 119.7433, 
  119.7518, 119.7524, 119.7551, 119.7561, 119.7597, 119.7658, 119.7704, 119.7674, 119.7715, 119.7724, 
  119.7717, 119.7783, 119.7768, 119.7691, 119.7682, 119.762, 119.7603, 119.7535, 119.7532, 119.7601, 
  119.7934, 119.7983, 119.8032, 119.8091, 119.8159, 119.8288, 119.8423, 119.8424, 119.8395, 119.8394, 
  119.8432, 119.8434, 119.848, 119.852, 119.8528, 119.8484, 119.8482, 119.8556, 119.8563, 119.8539, 
  119.8598, 119.8575, 119.8587, 119.8456, 119.8435, 119.846, 119.8393, 119.831, 119.8247, 119.8242, 
  119.8206, 119.8163, 119.8164, 119.8074, 119.8061, 119.8083, 119.8074, 119.8123, 119.8081, 119.8063, 
  119.8123, 119.8238, 119.8313, 119.8413, 119.8511, 119.8559, 119.8531, 119.8561, 119.8636, 119.8608, 
  119.8647, 119.868, 119.8743, 119.8755, 119.8806, 119.8813, 119.8852, 119.8822, 119.8721, 119.8534, 
  119.8419, 119.8346, 119.8335, 119.8274, 119.825, 119.8182, 119.8164, 119.8181, 119.8269, 119.832, 
  119.8361, 119.8377, 119.8202, 119.8128, 119.8099, 119.7993, 119.7883, 119.7819, 119.7718, 119.7711, 
  119.7772, 119.7809, 119.7817, 119.7835, 119.7851, 119.7835, 119.7842, 119.787, 119.788)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  27.87854, 27.89075, 27.90456, 27.92852, 27.96135, 27.97409, 27.97909, 27.97833, 27.97682, 27.97409, 
  27.97136, 27.96575, 27.94191, 27.93216, 27.92522, 27.8972)
LONGITUDE_VALUEs <- c(
  120.9564, 120.9912, 121.0115, 120.9899, 120.9446, 120.9208, 120.9009, 120.8601, 120.8578, 120.8437, 
  120.8452, 120.8592, 120.8945, 120.906, 120.9184, 120.945)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  27.99322, 27.98473, 27.9861, 27.99246, 27.9911, 27.99944, 27.99957, 28.00472, 28.00685, 28.00988, 
  28.00139)
LONGITUDE_VALUEs <- c(
  121.0384, 121.0382, 121.0492, 121.0578, 121.0646, 121.076, 121.0811, 121.0851, 121.0759, 121.0721, 
  121.0523)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  27.9675, 27.95788, 27.95477, 27.9506, 27.95076, 27.94803, 27.94651, 27.94219, 27.94954, 27.95242, 
  27.95584, 27.96129, 27.96265, 27.96204, 27.95912, 27.96041, 27.95715, 27.96235, 27.96322, 27.96276, 
  27.96545, 27.965, 27.96754, 27.96909, 27.97072, 27.97144, 27.97705, 27.97546, 27.97876, 27.97811, 
  27.98062, 27.98213, 27.98585, 27.9849, 27.98668, 27.98206, 27.98334, 27.97986, 27.97762, 27.98247, 
  27.98782, 27.9838, 27.98035)
LONGITUDE_VALUEs <- c(
  121.0392, 121.0358, 121.0387, 121.0382, 121.043, 121.0453, 121.0624, 121.0807, 121.1219, 121.1239, 
  121.1342, 121.1346, 121.1363, 121.1376, 121.1372, 121.1408, 121.143, 121.1478, 121.1447, 121.1394, 
  121.1386, 121.1322, 121.1364, 121.1355, 121.1371, 121.1252, 121.1315, 121.1222, 121.1277, 121.1219, 
  121.1189, 121.1207, 121.1201, 121.118, 121.1109, 121.1051, 121.0876, 121.0849, 121.072, 121.0714, 
  121.0748, 121.0641, 121.0632)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  27.83067, 27.82634, 27.8211, 27.82034, 27.817, 27.82072, 27.81617, 27.81837, 27.81746, 27.82224, 
  27.82172, 27.82417, 27.81952, 27.82026, 27.81914, 27.81521, 27.81692, 27.81988, 27.82258, 27.82227, 
  27.82797, 27.83161, 27.8332, 27.83685, 27.83939, 27.84474, 27.8469, 27.84645, 27.84121, 27.84197, 
  27.84584, 27.84812, 27.84979, 27.85123, 27.85369, 27.85521, 27.85874, 27.85817, 27.86147, 27.86318, 
  27.86697, 27.86807, 27.86542, 27.86743, 27.8664, 27.86136, 27.85779, 27.86159, 27.85961, 27.85358, 
  27.85435, 27.85306, 27.85495, 27.85048, 27.84547, 27.8394, 27.83393)
LONGITUDE_VALUEs <- c(
  121.0913, 121.098, 121.0857, 121.099, 121.1034, 121.1117, 121.1217, 121.1279, 121.1353, 121.146, 
  121.1532, 121.1562, 121.1598, 121.1623, 121.166, 121.1663, 121.174, 121.1755, 121.1786, 121.1699, 
  121.1709, 121.1759, 121.1703, 121.1726, 121.1774, 121.1683, 121.1695, 121.1764, 121.1812, 121.1835, 
  121.1853, 121.1897, 121.1882, 121.1924, 121.1906, 121.186, 121.1882, 121.1807, 121.1809, 121.1873, 
  121.1896, 121.187, 121.1838, 121.1824, 121.1804, 121.1795, 121.1753, 121.1667, 121.1582, 121.152, 
  121.1447, 121.1408, 121.1368, 121.1212, 121.1212, 121.1075, 121.1055)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  27.87255, 27.86997, 27.87213, 27.87452, 27.87461, 27.87308, 27.87348, 27.87071, 27.86997, 27.86894, 
  27.86657, 27.8639, 27.8672, 27.87062, 27.87342, 27.87619, 27.87779, 27.87858, 27.8771, 27.87752, 
  27.87991, 27.87858, 27.8765, 27.87494, 27.87232, 27.86743, 27.86796, 27.86121, 27.85692, 27.85794, 
  27.85252, 27.85229, 27.85032, 27.84887, 27.85001, 27.84724, 27.84303, 27.84307, 27.84117, 27.83969, 
  27.83867, 27.83745, 27.83707, 27.83597, 27.83738, 27.83741, 27.83996, 27.8417, 27.84417, 27.84705, 
  27.84785, 27.84683, 27.84957, 27.84891, 27.84637, 27.84684, 27.84986, 27.84929, 27.84969, 27.85339, 
  27.85377, 27.85244, 27.8512, 27.85008, 27.85261, 27.85386, 27.85007, 27.85058, 27.84943, 27.84692, 
  27.84549, 27.84463, 27.84474, 27.8456, 27.84575, 27.8465, 27.84727, 27.84792, 27.84709, 27.84964, 
  27.85022, 27.85221, 27.85468, 27.8587, 27.86583, 27.86613, 27.86756, 27.86754, 27.86995, 27.87219)
LONGITUDE_VALUEs <- c(
  121.094, 121.0949, 121.0976, 121.097, 121.0954, 121.0942, 121.0913, 121.0845, 121.0855, 121.0845, 
  121.0684, 121.0656, 121.0521, 121.0518, 121.0492, 121.0494, 121.0479, 121.044, 121.0397, 121.0363, 
  121.0354, 121.0323, 121.0329, 121.0305, 121.033, 121.0317, 121.0212, 121.0243, 121.0236, 121.02, 
  121.0216, 121.023, 121.023, 121.0216, 121.0186, 121.0161, 121.0175, 121.0195, 121.0204, 121.0195, 
  121.0211, 121.0213, 121.0204, 121.0223, 121.0232, 121.0248, 121.0243, 121.0262, 121.0267, 121.0256, 
  121.0265, 121.0293, 121.0308, 121.032, 121.0331, 121.0349, 121.0351, 121.0354, 121.0364, 121.0353, 
  121.0363, 121.0386, 121.0383, 121.0415, 121.0416, 121.0461, 121.0551, 121.0611, 121.0614, 121.0609, 
  121.0599, 121.0611, 121.0626, 121.0634, 121.0645, 121.0648, 121.0641, 121.0644, 121.067, 121.0671, 
  121.0681, 121.0644, 121.0653, 121.0746, 121.0797, 121.0819, 121.083, 121.0844, 121.0862, 121.0905)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  27.87165, 27.86899, 27.87817, 27.88637, 27.88872, 27.88948, 27.8916, 27.8938, 27.8957, 27.89767, 
  27.89987, 27.90283, 27.90548, 27.90639, 27.90556, 27.90715, 27.90867, 27.90852, 27.90617, 27.90799, 
  27.9023, 27.89235, 27.88643, 27.8848, 27.87889)
LONGITUDE_VALUEs <- c(
  121.0987, 121.1077, 121.138, 121.1419, 121.1408, 121.145, 121.1448, 121.1386, 121.1462, 121.1448, 
  121.1458, 121.1423, 121.1445, 121.1485, 121.1508, 121.1538, 121.1536, 121.1489, 121.1431, 121.1375, 
  121.1232, 121.1121, 121.1179, 121.1108, 121.1065)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(28.23916, 28.23984, 28.23394, 28.2291, 28.2223, 28.20989, 28.21368, 28.21882, 28.22479)
LONGITUDE_VALUEs <- c(121.1769, 121.1667, 121.1599, 121.1508, 121.1538, 121.1558, 121.1676, 121.1696, 121.1759)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(28.36033, 28.34961, 28.3484, 28.34092, 28.34073, 28.35301, 28.35962, 28.3652)
LONGITUDE_VALUEs <- c(121.1927, 121.1967, 121.2018, 121.203, 121.206, 121.2073, 121.2053, 121.1959)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  29.09797, 29.08169, 29.08087, 29.07651, 29.07493, 29.06402, 29.06619, 29.06593, 29.06286, 29.06124, 
  29.05955, 29.05715, 29.05475, 29.05603, 29.054, 29.05415, 29.05517, 29.0573, 29.05742, 29.05933, 
  29.05997, 29.06252, 29.06432, 29.06492, 29.06844, 29.06919, 29.07265, 29.07272, 29.07407, 29.07407, 
  29.07527, 29.07568, 29.07823, 29.07947, 29.0815, 29.08375, 29.08446, 29.08649, 29.08701, 29.08513, 
  29.08652, 29.09189, 29.0956, 29.09541, 29.09822, 29.1016, 29.09957, 29.10077, 29.10006)
LONGITUDE_VALUEs <- c(
  121.7863, 121.788, 121.7857, 121.7882, 121.7931, 121.8032, 121.8081, 121.8145, 121.8165, 121.8142, 
  121.8178, 121.8162, 121.8203, 121.8236, 121.8263, 121.829, 121.829, 121.8268, 121.8324, 121.8311, 
  121.8341, 121.8269, 121.8276, 121.8307, 121.8312, 121.8277, 121.8291, 121.8331, 121.8336, 121.8358, 
  121.8355, 121.8372, 121.8341, 121.8271, 121.827, 121.8295, 121.8253, 121.8256, 121.8306, 121.8359, 
  121.8386, 121.83, 121.8281, 121.8248, 121.8249, 121.8159, 121.8091, 121.8049, 121.7883)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  29.14453, 29.15045, 29.15315, 29.14948, 29.14401, 29.14213, 29.12894, 29.12759, 29.11304, 29.11492, 
  29.10569, 29.09819, 29.09272, 29.09549, 29.09099, 29.09354, 29.08882, 29.08822, 29.09062, 29.10524, 
  29.11289, 29.11297, 29.11679, 29.12376, 29.12564, 29.13141, 29.14123, 29.14438, 29.14093)
LONGITUDE_VALUEs <- c(
  121.816, 121.811, 121.7967, 121.7843, 121.7807, 121.7748, 121.7741, 121.78, 121.7832, 121.803, 
  121.8279, 121.8294, 121.8383, 121.8475, 121.8483, 121.8547, 121.8584, 121.8654, 121.8714, 121.877, 
  121.8765, 121.8853, 121.8863, 121.882, 121.868, 121.8637, 121.869, 121.8669, 121.83)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  29.13823, 29.13029, 29.12736, 29.12114, 29.11769, 29.11619, 29.11094, 29.11019, 29.10547, 29.09212, 
  29.09047, 29.08207, 29.07487, 29.07247, 29.08019, 29.07712, 29.07749, 29.07487, 29.07239, 29.06144, 
  29.05739, 29.05634, 29.05866, 29.05821, 29.05611, 29.05296, 29.05146, 29.05484, 29.05829, 29.05679, 
  29.05956, 29.06001, 29.06414, 29.06909, 29.06842, 29.07239, 29.07487, 29.08078, 29.08885, 29.09414, 
  29.09309, 29.098, 29.10865, 29.11465, 29.11637, 29.12529, 29.12792, 29.13193, 29.13377, 29.13796, 
  29.13695, 29.14145, 29.14925, 29.14887, 29.15483, 29.16855, 29.17702, 29.17844, 29.18106, 29.18515, 
  29.18447, 29.17773, 29.17147, 29.16177, 29.15045, 29.14573)
LONGITUDE_VALUEs <- c(
  121.8726, 121.8668, 121.8825, 121.8898, 121.8901, 121.888, 121.8894, 121.8955, 121.8955, 121.9037, 
  121.9075, 121.9049, 121.8987, 121.9007, 121.9113, 121.9141, 121.9278, 121.9303, 121.9289, 121.9312, 
  121.9291, 121.9382, 121.9399, 121.9462, 121.947, 121.9427, 121.9462, 121.9521, 121.9515, 121.9618, 
  121.9619, 121.9532, 121.9584, 121.953, 121.9609, 121.9564, 121.9616, 121.9593, 121.9792, 121.9768, 
  121.9621, 121.9595, 121.9824, 121.9827, 121.9798, 121.9785, 121.9749, 121.9804, 121.9769, 121.9776, 
  121.9729, 121.9709, 121.9731, 121.9783, 121.9762, 121.9561, 121.9496, 121.9471, 121.9475, 121.9437, 
  121.9342, 121.928, 121.9235, 121.9083, 121.8783, 121.8722)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  29.82395, 29.81814, 29.80548, 29.77434, 29.75706, 29.75378, 29.76525, 29.77926, 29.79327, 29.79744, 
  29.80503, 29.80757, 29.82008)
LONGITUDE_VALUEs <- c(
  122.0236, 121.9981, 121.9755, 121.9396, 121.9269, 121.9432, 121.9963, 122.0093, 122.0256, 122.0208, 
  122.0258, 122.0304, 122.0297)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  29.78313, 29.78284, 29.77479, 29.76943, 29.73262, 29.72085, 29.71593, 29.70817, 29.67753, 29.67321, 
  29.67522, 29.6741, 29.6788, 29.67499, 29.67253, 29.66933, 29.66895, 29.66344, 29.66933, 29.67313, 
  29.67447, 29.66836, 29.66523, 29.6656, 29.66351, 29.66157, 29.65859, 29.66254, 29.66165, 29.66426, 
  29.66403, 29.66784, 29.67149, 29.67805, 29.67872, 29.67611, 29.67276, 29.66985, 29.66112, 29.65978, 
  29.65381, 29.6559, 29.65956, 29.65993, 29.66926, 29.66881, 29.6772, 29.68484, 29.69207, 29.69118, 
  29.69316, 29.6942, 29.69782, 29.69957, 29.70422, 29.70855, 29.71295, 29.73128, 29.73657, 29.75476, 
  29.78031, 29.79201, 29.79387)
LONGITUDE_VALUEs <- c(
  122.0991, 122.0785, 122.0675, 122.0685, 122.0545, 122.0457, 122.0484, 122.0752, 122.1082, 122.1262, 
  122.1286, 122.1332, 122.1372, 122.1416, 122.1379, 122.1383, 122.1338, 122.1371, 122.1461, 122.1467, 
  122.1504, 122.156, 122.1546, 122.1516, 122.1493, 122.1536, 122.1541, 122.1564, 122.1616, 122.1612, 
  122.1647, 122.1634, 122.1675, 122.1675, 122.1728, 122.1778, 122.1759, 122.1791, 122.1722, 122.1745, 
  122.1733, 122.1815, 122.1808, 122.1876, 122.1864, 122.1902, 122.1958, 122.1957, 122.1995, 122.2038, 
  122.206, 122.2031, 122.2005, 122.1973, 122.198, 122.1956, 122.1955, 122.1732, 122.155, 122.1358, 
  122.1302, 122.1248, 122.1199)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  29.8352, 29.83133, 29.83215, 29.83587, 29.83788, 29.84451, 29.84763, 29.85538, 29.86349, 29.86944, 
  29.87577, 29.87785, 29.87599, 29.88113, 29.88842, 29.88649, 29.8911, 29.89468, 29.89505, 29.90055, 
  29.90658, 29.91045, 29.91402, 29.91952, 29.92317, 29.92086, 29.9254, 29.92525, 29.92964, 29.93321, 
  29.93626, 29.94176, 29.94518, 29.94861, 29.94861, 29.95292, 29.9463, 29.94377, 29.94689, 29.94466, 
  29.94169, 29.94005, 29.94689, 29.95143, 29.95574, 29.95255, 29.95061, 29.95909, 29.93819, 29.9338, 
  29.93254, 29.92599, 29.9097, 29.89713, 29.89653, 29.88262, 29.87562, 29.86431, 29.85523, 29.85374, 
  29.85098, 29.83766, 29.83453, 29.8374, 29.83379, 29.83554)
LONGITUDE_VALUEs <- c(
  122.398, 122.4021, 122.4121, 122.4037, 122.4098, 122.4064, 122.4117, 122.3907, 122.3947, 122.3925, 
  122.4018, 122.4097, 122.4158, 122.4131, 122.4179, 122.4289, 122.4318, 122.4274, 122.4224, 122.4222, 
  122.4292, 122.4283, 122.4063, 122.4014, 122.4031, 122.4254, 122.4252, 122.421, 122.418, 122.4204, 
  122.4152, 122.4161, 122.4213, 122.4173, 122.4119, 122.407, 122.4083, 122.4048, 122.3991, 122.3945, 
  122.3964, 122.3867, 122.3854, 122.3688, 122.3671, 122.3619, 122.3518, 122.3465, 122.3267, 122.3275, 
  122.3233, 122.3252, 122.3401, 122.3609, 122.3699, 122.3767, 122.3761, 122.367, 122.3717, 122.3762, 
  122.3726, 122.3825, 122.3888, 122.3893, 122.3938, 122.3937)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  31.84876, 31.8368, 31.80325, 31.78282, 31.76064, 31.7256, 31.71684, 31.66043, 31.61863, 31.6122, 
  31.56731, 31.54463, 31.51844, 31.51947, 31.5, 31.48419, 31.46238, 31.43792, 31.47266, 31.50369, 
  31.5394, 31.61925, 31.62889, 31.65754, 31.70896, 31.81317, 31.82688, 31.86275, 31.86683, 31.88141)
LONGITUDE_VALUEs <- c(
  121.2438, 121.1954, 121.1587, 121.1621, 121.1896, 121.2154, 121.26, 121.3205, 121.387, 121.4125, 
  121.514, 121.5524, 121.6192, 121.6388, 121.7068, 121.7335, 121.7874, 121.8295, 122.0105, 122.019, 
  121.9909, 121.8951, 121.7702, 121.7516, 121.617, 121.4461, 121.3805, 121.3252, 121.3383, 121.2868)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  38.38296, 38.38374, 38.38592, 38.38708, 38.38633, 38.3874, 38.38624, 38.38508, 38.38274, 38.3858, 
  38.38713, 38.39088, 38.3929, 38.39526, 38.39568, 38.39534, 38.39673, 38.39622, 38.39778, 38.4, 
  38.39995, 38.40065, 38.398, 38.39361, 38.39156, 38.39033, 38.39098, 38.38841, 38.38633, 38.38436, 
  38.38244, 38.3854)
LONGITUDE_VALUEs <- c(
  120.9112, 120.9125, 120.9131, 120.9152, 120.9176, 120.9196, 120.9218, 120.9211, 120.9263, 120.9278, 
  120.9252, 120.9253, 120.9186, 120.9182, 120.9192, 120.92, 120.9208, 120.9195, 120.9171, 120.9158, 
  120.9137, 120.9128, 120.9083, 120.9078, 120.9053, 120.901, 120.8985, 120.8956, 120.8963, 120.8948, 
  120.8978, 120.908)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  38.34536, 38.34684, 38.35098, 38.3566, 38.35966, 38.36027, 38.35983, 38.36303, 38.36033, 38.3606, 
  38.35818, 38.36023, 38.36192, 38.3636, 38.36521, 38.36595, 38.36814, 38.37075, 38.37199, 38.37031, 
  38.36804, 38.36816, 38.36939, 38.36971, 38.36826, 38.36966, 38.3686, 38.36553, 38.3656, 38.36479, 
  38.36368, 38.3624, 38.36039, 38.36052, 38.35832, 38.35746, 38.35618, 38.35576, 38.35401, 38.35332, 
  38.35135, 38.35041, 38.35148, 38.35116)
LONGITUDE_VALUEs <- c(
  120.9111, 120.9148, 120.9083, 120.9072, 120.9094, 120.9121, 120.9146, 120.9145, 120.9107, 120.908, 
  120.9045, 120.9011, 120.9014, 120.9048, 120.9049, 120.9065, 120.9061, 120.9091, 120.908, 120.9051, 
  120.9044, 120.8995, 120.9004, 120.8985, 120.8963, 120.8943, 120.8934, 120.8935, 120.8918, 120.8916, 
  120.8925, 120.8924, 120.8938, 120.8951, 120.8965, 120.898, 120.8983, 120.8997, 120.8999, 120.9015, 
  120.9016, 120.9028, 120.9034, 120.9063)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  38.33593, 38.33614, 38.33553, 38.33795, 38.33967, 38.3392, 38.33758, 38.34354, 38.34484, 38.3459, 
  38.34689, 38.34785, 38.35007, 38.353, 38.35418, 38.35532, 38.35492, 38.35325, 38.35291, 38.35032, 
  38.34874, 38.34728, 38.34642, 38.3459, 38.34504, 38.34588, 38.34418, 38.33851, 38.3373)
LONGITUDE_VALUEs <- c(
  120.8361, 120.8378, 120.8389, 120.8401, 120.843, 120.8445, 120.8446, 120.851, 120.8495, 120.8459, 
  120.8457, 120.8446, 120.8455, 120.8425, 120.84, 120.8397, 120.8385, 120.8388, 120.8396, 120.8399, 
  120.8391, 120.8364, 120.8369, 120.836, 120.8362, 120.839, 120.8405, 120.8366, 120.8354)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  37.99413, 37.99062, 37.98964, 37.99062, 37.98967, 37.98683, 37.98652, 37.98436, 37.98375, 37.98074, 
  37.98003, 37.97678, 37.97364, 37.97181, 37.97161, 37.96653, 37.96453, 37.96494, 37.96169, 37.96088, 
  37.96396, 37.96565, 37.96849, 37.96988, 37.97326, 37.97989, 37.98591, 37.98832, 37.98805, 37.98676, 
  37.98642, 37.98994, 37.99177, 37.99231, 37.9938)
LONGITUDE_VALUEs <- c(
  120.6926, 120.6899, 120.683, 120.6821, 120.6808, 120.6837, 120.6848, 120.685, 120.6886, 120.6896, 
  120.6923, 120.6938, 120.6915, 120.693, 120.6965, 120.7038, 120.7088, 120.7157, 120.7226, 120.7272, 
  120.7284, 120.7302, 120.73, 120.7311, 120.7255, 120.724, 120.7202, 120.7147, 120.7123, 120.7117, 
  120.7066, 120.7031, 120.7001, 120.6969, 120.695)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  37.89084, 37.89545, 37.91184, 37.91651, 37.92132, 37.92941, 37.93729, 37.93844, 37.9419, 37.94423, 
  37.94738, 37.95195, 37.95239, 37.95401, 37.95168, 37.95185, 37.94816, 37.9444, 37.94366, 37.93946, 
  37.93777, 37.93638, 37.93059, 37.93093, 37.92511, 37.92365, 37.92423, 37.91874, 37.91519, 37.91285, 
  37.91221, 37.90896, 37.90974, 37.89965, 37.89812, 37.89433, 37.8949, 37.89365)
LONGITUDE_VALUEs <- c(
  120.755, 120.7594, 120.7533, 120.7549, 120.7603, 120.752, 120.7494, 120.7461, 120.7443, 120.7424, 
  120.7426, 120.7394, 120.7361, 120.7326, 120.7313, 120.7264, 120.7282, 120.7223, 120.7171, 120.7176, 
  120.7202, 120.7172, 120.7176, 120.724, 120.7228, 120.7232, 120.7273, 120.7271, 120.7164, 120.7167, 
  120.7199, 120.7246, 120.7352, 120.7439, 120.7435, 120.7497, 120.7502, 120.754)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  40.47271, 40.47519, 40.4799, 40.48812, 40.48825, 40.48688, 40.48858, 40.48799, 40.49178, 40.4923, 
  40.50294, 40.51344, 40.51338, 40.51938, 40.51834, 40.52512, 40.52375, 40.5203, 40.51951, 40.51377, 
  40.50875, 40.51325, 40.50692, 40.50209, 40.49706, 40.49471, 40.49719, 40.49635, 40.49001, 40.48668, 
  40.48238, 40.47918, 40.47467)
LONGITUDE_VALUEs <- c(
  120.7805, 120.7857, 120.7871, 120.7931, 120.8042, 120.8182, 120.8215, 120.8239, 120.823, 120.8276, 
  120.8238, 120.8253, 120.8188, 120.8126, 120.808, 120.8038, 120.8009, 120.8013, 120.8053, 120.8082, 
  120.7952, 120.7891, 120.7883, 120.7932, 120.7931, 120.7872, 120.7848, 120.7766, 120.7751, 120.7703, 
  120.7716, 120.7701, 120.7749)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  39.42644, 39.43711, 39.44136, 39.44242, 39.43851, 39.4446, 39.44918, 39.44891, 39.45541, 39.44659, 
  39.4456, 39.44308, 39.44301, 39.43731, 39.43075, 39.43526, 39.43466, 39.42803)
LONGITUDE_VALUEs <- c(
  123.0823, 123.0789, 123.0829, 123.0906, 123.098, 123.0933, 123.0816, 123.0691, 123.0498, 123.0526, 
  123.0489, 123.0501, 123.0548, 123.0564, 123.064, 123.0649, 123.0711, 123.0728)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  39.49409, 39.53197, 39.54428, 39.54838, 39.55249, 39.54984, 39.5599, 39.55725, 39.5505, 39.54693, 
  39.53938, 39.54269, 39.51992, 39.52111, 39.517, 39.51078, 39.50893, 39.49846, 39.49568, 39.49886)
LONGITUDE_VALUEs <- c(
  122.99, 123.0315, 123.0195, 123.0056, 123.003, 122.978, 122.9726, 122.9644, 122.9673, 122.9592, 
  122.9601, 122.9515, 122.9393, 122.9527, 122.9658, 122.9639, 122.9687, 122.9677, 122.9805, 122.9855)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  39.74837, 39.7516, 39.7487, 39.75028, 39.75616, 39.75675, 39.76117, 39.76355, 39.75748, 39.75451, 
  39.74619, 39.74434)
LONGITUDE_VALUEs <- c(
  123.7166, 123.7415, 123.7438, 123.7506, 123.7481, 123.7447, 123.7428, 123.7319, 123.7204, 123.712, 
  123.7058, 123.7113)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  39.78971, 39.79409, 39.79314, 39.78997, 39.78832, 39.78727, 39.78856, 39.7872, 39.78856, 39.78803, 
  39.78546, 39.78654)
LONGITUDE_VALUEs <- c(
  123.8182, 123.8198, 123.8096, 123.8044, 123.8043, 123.8078, 123.8099, 123.8116, 123.813, 123.818, 
  123.8204, 123.8217)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  37.55199, 37.55339, 37.5556, 37.5571, 37.55672, 37.55911, 37.55989, 37.55825, 37.56074, 37.56213, 
  37.56319, 37.56429, 37.56458, 37.56378, 37.56382, 37.56322, 37.56087, 37.55701, 37.55586)
LONGITUDE_VALUEs <- c(
  121.5036, 121.5072, 121.508, 121.5107, 121.5127, 121.5153, 121.5186, 121.5211, 121.5205, 121.5229, 
  121.52, 121.5194, 121.5126, 121.5119, 121.5066, 121.5055, 121.5096, 121.5072, 121.502)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  37.50513, 37.50785, 37.50867, 37.50952, 37.5102, 37.50819, 37.51037, 37.50932, 37.51092, 37.51255, 
  37.51327, 37.51466, 37.51459, 37.51313, 37.51272, 37.50877, 37.50799, 37.50571, 37.50561, 37.50421, 
  37.50612, 37.50472, 37.50326, 37.5023, 37.50179, 37.5007, 37.50053, 37.49788, 37.49815, 37.49686, 
  37.49713, 37.49815, 37.49795, 37.49975, 37.50125, 37.50081)
LONGITUDE_VALUEs <- c(
  122.1931, 122.1947, 122.194, 122.1946, 122.1926, 122.1902, 122.1872, 122.1832, 122.1818, 122.182, 
  122.1801, 122.1799, 122.1784, 122.1782, 122.1763, 122.1757, 122.1736, 122.1732, 122.1701, 122.1693, 
  122.1643, 122.1638, 122.1698, 122.1696, 122.1667, 122.1672, 122.1733, 122.1828, 122.1917, 122.202, 
  122.2089, 122.2081, 122.207, 122.2058, 122.2007, 122.1975)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  35.62305, 35.62458, 35.62859, 35.63025, 35.62978, 35.63297, 35.63498, 35.63569, 35.63679, 35.63478, 
  35.63328, 35.63149, 35.62854, 35.62744, 35.62582, 35.62526)
LONGITUDE_VALUEs <- c(
  119.9223, 119.9252, 119.9232, 119.9242, 119.9272, 119.9284, 119.9305, 119.9291, 119.9287, 119.9277, 
  119.9239, 119.9227, 119.9224, 119.9199, 119.9198, 119.921)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  23.58055, 23.57956, 23.57559, 23.57288, 23.57032, 23.56965, 23.56682, 23.56466, 23.56462, 23.56414, 
  23.57091, 23.57217, 23.57488, 23.57547, 23.57701, 23.57815, 23.58047, 23.58177, 23.58184, 23.57768, 
  23.57799)
LONGITUDE_VALUEs <- c(
  117.0223, 117.0192, 117.0194, 117.0222, 117.0211, 117.0275, 117.0303, 117.0289, 117.0322, 117.0339, 
  117.0378, 117.0404, 117.0407, 117.0394, 117.0389, 117.0396, 117.0364, 117.0358, 117.0336, 117.0312, 
  117.0255)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  23.57461, 23.57339, 23.57217, 23.5715, 23.56737, 23.56627, 23.5654, 23.56269, 23.56293, 23.56143, 
  23.56438, 23.56804, 23.56981, 23.57551, 23.57492, 23.57575, 23.57457)
LONGITUDE_VALUEs <- c(
  117.0613, 117.0609, 117.0612, 117.0603, 117.0616, 117.064, 117.0638, 117.0713, 117.0739, 117.0756, 
  117.08, 117.0783, 117.0796, 117.0739, 117.0707, 117.069, 117.0683)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  31.49221, 31.48138, 31.46733, 31.43599, 31.42163, 31.39731, 31.36126, 31.31991, 31.312, 31.36507, 
  31.39116, 31.42969, 31.45349, 31.48438, 31.48665, 31.49163, 31.49419)
LONGITUDE_VALUEs <- c(
  121.5084, 121.5098, 121.5441, 121.5733, 121.6166, 121.6523, 121.7227, 121.7621, 121.792, 121.7855, 
  121.7656, 121.6653, 121.5774, 121.5602, 121.5444, 121.5454, 121.5161)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  31.38181, 31.36437, 31.33153, 31.31085, 31.29516, 31.29883, 31.2912, 31.26362, 31.311, 31.32066, 
  31.32156, 31.34062, 31.38137)
LONGITUDE_VALUEs <- c(
  121.7892, 121.7994, 121.8009, 121.82, 121.85, 121.8555, 121.9985, 122.0897, 122.114, 122.108, 
  122.032, 121.9262, 121.8272)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  31.16845, 31.15582, 31.15376, 31.18226, 31.1849, 31.20987, 31.22455, 31.22161, 31.23497, 31.22968, 
  31.21148, 31.20106, 31.19783, 31.17859)
LONGITUDE_VALUEs <- c(
  121.9541, 121.9791, 122.0018, 122.0176, 122.0245, 122.0327, 122.0238, 122.0015, 121.9493, 121.9386, 
  121.9342, 121.9395, 121.9362, 121.9445)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  30.70354, 30.70022, 30.70472, 30.70601, 30.70845, 30.70952, 30.71815, 30.71933, 30.71815, 30.72169, 
  30.72435, 30.72391, 30.72605, 30.72066, 30.71808, 30.71623, 30.72184, 30.7214, 30.71461, 30.71218, 
  30.71874, 30.72288, 30.72642, 30.7321, 30.73129, 30.74663, 30.74693, 30.74161, 30.74191, 30.73756, 
  30.7366, 30.7321, 30.71786, 30.71476, 30.71129, 30.70443, 30.69845, 30.69638, 30.69321, 30.69077, 
  30.68664, 30.68649, 30.70052, 30.69314, 30.6983, 30.69852, 30.69306, 30.69299, 30.69845, 30.70539, 
  30.69838, 30.70826, 30.70369, 30.70229, 30.69985, 30.70531, 30.70443, 30.70679, 30.70251)
LONGITUDE_VALUEs <- c(
  122.5252, 122.5292, 122.5314, 122.5341, 122.5311, 122.5238, 122.521, 122.5242, 122.5272, 122.5323, 
  122.5311, 122.5254, 122.5251, 122.5153, 122.5162, 122.5113, 122.5081, 122.5018, 122.5008, 122.4801, 
  122.4663, 122.4684, 122.4618, 122.4621, 122.4571, 122.4433, 122.4328, 122.4219, 122.4317, 122.4308, 
  122.4382, 122.4406, 122.4395, 122.4358, 122.4364, 122.4247, 122.4238, 122.4283, 122.4219, 122.4242, 
  122.4228, 122.4271, 122.4338, 122.4434, 122.4471, 122.4547, 122.4554, 122.4597, 122.4619, 122.483, 
  122.4862, 122.4975, 122.5017, 122.4992, 122.5061, 122.5077, 122.515, 122.5176, 122.5212)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  30.47546, 30.46739, 30.45748, 30.45267, 30.45315, 30.45119, 30.44941, 30.45041, 30.44849, 30.44616, 
  30.44253, 30.44183, 30.42892, 30.42732, 30.42488, 30.42492, 30.42336, 30.42355, 30.42026, 30.42392, 
  30.4204, 30.41881, 30.41781, 30.41496, 30.41589, 30.41363, 30.41263, 30.41833, 30.41841, 30.4143, 
  30.42114, 30.42666, 30.42418, 30.42536, 30.42336, 30.41889, 30.418, 30.4267, 30.43176, 30.4348, 
  30.43398, 30.43102, 30.43176, 30.42954, 30.43136, 30.43191, 30.42858, 30.4267, 30.42396, 30.42214, 
  30.41863, 30.42714, 30.42621, 30.41659, 30.41763, 30.41981, 30.42129, 30.42381, 30.42414, 30.42573, 
  30.4247, 30.422, 30.42225, 30.41948, 30.42301, 30.42671, 30.42608, 30.42682, 30.42268, 30.42211, 
  30.41596, 30.41197, 30.41448, 30.41929, 30.41741, 30.42133, 30.42211, 30.42348, 30.42518, 30.42799, 
  30.42751, 30.42977, 30.42984, 30.43402, 30.43114, 30.44612, 30.44779, 30.44571, 30.44608, 30.45263, 
  30.45137, 30.45485, 30.45818, 30.4526, 30.45489, 30.45822, 30.45596, 30.46051, 30.46636, 30.47179, 
  30.4762, 30.47608, 30.47324, 30.4732, 30.46895, 30.4685, 30.46528, 30.45885, 30.46425, 30.46151, 
  30.4661, 30.46332, 30.47072, 30.46824, 30.47172, 30.46443, 30.46591, 30.46791, 30.46769, 30.47035, 
  30.47061, 30.47475, 30.47686, 30.47849)
LONGITUDE_VALUEs <- c(
  122.2738, 122.2781, 122.2793, 122.2814, 122.2829, 122.2834, 122.2822, 122.2805, 122.2765, 122.2783, 
  122.2777, 122.2793, 122.2856, 122.2821, 122.2814, 122.2781, 122.278, 122.2867, 122.2909, 122.3048, 
  122.3072, 122.3044, 122.3062, 122.3052, 122.3089, 122.3104, 122.314, 122.3141, 122.3159, 122.324, 
  122.3215, 122.3277, 122.3317, 122.3361, 122.3398, 122.3408, 122.3432, 122.3477, 122.3436, 122.3466, 
  122.3492, 122.3482, 122.3516, 122.3528, 122.355, 122.3598, 122.3607, 122.3568, 122.3622, 122.3602, 
  122.3664, 122.3744, 122.3778, 122.3732, 122.3777, 122.3779, 122.3806, 122.3799, 122.3852, 122.3866, 
  122.3883, 122.3855, 122.3901, 122.3933, 122.3913, 122.3915, 122.3933, 122.3952, 122.3968, 122.4027, 
  122.4036, 122.4281, 122.4353, 122.4319, 122.4271, 122.4265, 122.4243, 122.4248, 122.4221, 122.4256, 
  122.4191, 122.4187, 122.4136, 122.4144, 122.4218, 122.4274, 122.4257, 122.4219, 122.4177, 122.4133, 
  122.4058, 122.3998, 122.401, 122.3876, 122.3802, 122.3814, 122.3756, 122.3682, 122.3673, 122.3804, 
  122.3748, 122.3681, 122.3675, 122.3636, 122.3645, 122.3555, 122.3591, 122.3487, 122.345, 122.3402, 
  122.3363, 122.3306, 122.3203, 122.3164, 122.3134, 122.3066, 122.3029, 122.2985, 122.2934, 122.2936, 
  122.2906, 122.2918, 122.2905, 122.2853)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  30.32962, 30.30873, 30.29316, 30.29213, 30.29835, 30.29242, 30.31154, 30.33525, 30.33718, 30.34488, 
  30.34044, 30.34325, 30.33288)
LONGITUDE_VALUEs <- c(
  121.988, 121.9958, 121.9844, 121.9783, 121.9638, 121.9532, 121.9214, 121.9384, 121.9652, 121.9774, 
  121.9796, 121.9836, 121.9794)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  30.3045, 30.30272, 30.30043, 30.29494, 30.29109, 30.28294, 30.27604, 30.25454, 30.24795, 30.24839, 
  30.24706, 30.24216, 30.23808, 30.24009, 30.23934, 30.23356, 30.23586, 30.25084, 30.26403, 30.27715, 
  30.27893, 30.27738, 30.29227, 30.29546, 30.29502, 30.29702, 30.29672, 30.30035, 30.29843, 30.30413, 
  30.30376, 30.30947, 30.30532, 30.30739, 30.3065, 30.32799, 30.33073, 30.33532, 30.33244, 30.33532, 
  30.33103, 30.33451, 30.33103, 30.33295, 30.32895, 30.33147, 30.33066, 30.33473, 30.33599, 30.33925, 
  30.33925, 30.34392, 30.34703, 30.34769, 30.34903, 30.35362, 30.3514, 30.34747, 30.34421, 30.34118, 
  30.32466, 30.32036, 30.31784, 30.32014, 30.31606, 30.30947, 30.30969, 30.3151, 30.3188, 30.3091, 
  30.3068, 30.30117, 30.30309, 30.30799, 30.30821, 30.30339, 30.30183, 30.30591, 30.30369)
LONGITUDE_VALUEs <- c(
  122.0502, 122.0484, 122.0533, 122.0541, 122.0704, 122.081, 122.1041, 122.1316, 122.1516, 122.1617, 
  122.1901, 122.1984, 122.1993, 122.2101, 122.2144, 122.2163, 122.2266, 122.2228, 122.2247, 122.2339, 
  122.2311, 122.228, 122.2172, 122.2203, 122.2237, 122.2246, 122.2278, 122.2292, 122.2324, 122.2377, 
  122.2425, 122.2394, 122.2335, 122.2305, 122.2285, 122.2164, 122.224, 122.2179, 122.214, 122.2113, 
  122.2031, 122.2025, 122.1996, 122.1978, 122.192, 122.189, 122.1859, 122.1885, 122.1858, 122.1873, 
  122.1805, 122.1761, 122.1772, 122.1748, 122.1755, 122.1716, 122.1679, 122.1736, 122.1705, 122.173, 
  122.1509, 122.1517, 122.1473, 122.1453, 122.1387, 122.1371, 122.1316, 122.1302, 122.1143, 122.1023, 
  122.1043, 122.0846, 122.0718, 122.0718, 122.0658, 122.0678, 122.0607, 122.0561, 122.0529)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  30.27108, 30.25892, 30.23942, 30.23786, 30.24861, 30.25202, 30.25277, 30.25936, 30.26092, 30.26715, 
  30.26381, 30.27241)
LONGITUDE_VALUEs <- c(
  122.2596, 122.2517, 122.2504, 122.2558, 122.2729, 122.2935, 122.3113, 122.3126, 122.3086, 122.3072, 
  122.298, 122.2954)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  30.27145, 30.27011, 30.26329, 30.25039, 30.24468, 30.23883, 30.22933, 30.23764, 30.23186, 30.24201, 
  30.23794, 30.24135, 30.23312, 30.23846, 30.23586, 30.24283, 30.232, 30.23957, 30.24305, 30.23986, 
  30.23312, 30.22896, 30.23519, 30.24098, 30.24038, 30.24268, 30.23942, 30.24861, 30.25247, 30.25328, 
  30.25543, 30.25536, 30.2604, 30.26781, 30.26856, 30.27389, 30.2756, 30.27071, 30.2733, 30.26878, 
  30.27026, 30.27434, 30.27137, 30.26774, 30.26759)
LONGITUDE_VALUEs <- c(
  122.3184, 122.3143, 122.3185, 122.3129, 122.2768, 122.2729, 122.2827, 122.2946, 122.3012, 122.3084, 
  122.3115, 122.317, 122.3286, 122.3344, 122.3425, 122.3466, 122.382, 122.3833, 122.3881, 122.3951, 
  122.3909, 122.3979, 122.406, 122.4002, 122.4043, 122.4066, 122.4088, 122.4143, 122.4197, 122.4135, 
  122.4147, 122.4101, 122.4092, 122.4039, 122.3998, 122.4034, 122.3937, 122.378, 122.3607, 122.3443, 
  122.3327, 122.3293, 122.3245, 122.3274, 122.3224)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  30.14001, 30.14201, 30.14093, 30.14479, 30.14646, 30.14991, 30.15325, 30.15489, 30.15828, 30.15672, 
  30.15806, 30.15786, 30.16068, 30.1632, 30.16531, 30.16832, 30.16891, 30.17344, 30.17077, 30.17344, 
  30.17533, 30.178, 30.17813, 30.17609, 30.17713, 30.17461, 30.17696, 30.18038, 30.18112, 30.18412, 
  30.1836, 30.18488, 30.18431, 30.18611, 30.18616, 30.18757, 30.18744, 30.18856, 30.19097, 30.19299, 
  30.19188, 30.19525, 30.19503, 30.19347, 30.19418, 30.19258, 30.19703, 30.19826, 30.19833, 30.19985, 
  30.20126, 30.20208, 30.19892, 30.1931, 30.19195, 30.16884, 30.14839)
LONGITUDE_VALUEs <- c(
  122.16, 122.162, 122.1649, 122.1658, 122.1686, 122.1689, 122.1714, 122.1695, 122.1722, 122.1753, 
  122.1761, 122.18, 122.1771, 122.1853, 122.1791, 122.1787, 122.1821, 122.1839, 122.1874, 122.1896, 
  122.1866, 122.1894, 122.1946, 122.196, 122.1996, 122.2008, 122.2043, 122.1979, 122.2002, 122.1997, 
  122.2017, 122.2029, 122.2076, 122.2069, 122.2048, 122.205, 122.2066, 122.2061, 122.2137, 122.2125, 
  122.2056, 122.1904, 122.1799, 122.178, 122.1771, 122.1739, 122.176, 122.1756, 122.1714, 122.1709, 
  122.1741, 122.1729, 122.1609, 122.1546, 122.147, 122.1397, 122.1473)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  30.16424, 30.16513, 30.16379, 30.17559, 30.18327, 30.18104, 30.1832, 30.19154, 30.20237, 30.20226, 
  30.19978, 30.19633, 30.19874, 30.19458, 30.19006, 30.18661, 30.18234, 30.16969, 30.16854)
LONGITUDE_VALUEs <- c(
  122.0217, 122.0248, 122.0275, 122.0476, 122.0526, 122.0548, 122.0606, 122.0617, 122.05, 122.0387, 
  122.0403, 122.0378, 122.0299, 122.0206, 122.0191, 122.0125, 122.0139, 122.0214, 122.0191)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  30.10875, 30.11098, 30.11707, 30.10801, 30.09435, 30.08707, 30.08633, 30.07786, 30.06895, 30.0682, 
  30.07325, 30.07548, 30.08662, 30.08885, 30.10014, 30.10355)
LONGITUDE_VALUEs <- c(
  121.9582, 121.9479, 121.9444, 121.9178, 121.9069, 121.913, 121.924, 121.9295, 121.9244, 121.9432, 
  121.9458, 121.9436, 121.9496, 121.9539, 121.9527, 121.9587)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  29.96966, 29.98334, 30.00058, 30.04354, 30.05186, 30.0581, 30.05617, 30.07771, 30.08425, 30.08543, 
  30.09553, 30.10355, 30.07778, 30.07036, 30.03655, 30.03366, 30.00646, 29.99992, 29.99248, 29.97345)
LONGITUDE_VALUEs <- c(
  121.8712, 121.8902, 121.929, 121.9178, 121.9192, 121.9127, 121.9024, 121.8868, 121.8885, 121.8756, 
  121.8809, 121.8462, 121.8482, 121.8524, 121.839, 121.842, 121.8427, 121.8354, 121.8352, 121.8482)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  30.06516, 30.06456, 30.0688, 30.0737, 30.07377, 30.08031, 30.10133, 30.09873, 30.08982, 30.07578, 
  30.06954, 30.07013)
LONGITUDE_VALUEs <- c(
  121.8374, 121.8454, 121.8486, 121.8476, 121.844, 121.8398, 121.8362, 121.8233, 121.8162, 121.8237, 
  121.8198, 121.8294)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  29.94363, 29.95025, 29.95374, 29.96096, 29.99917, 30.00281, 30.01285, 30.01671, 30.02021, 30.01835, 
  30.03641, 30.03849, 30.06672, 30.06389, 30.07058, 30.07994, 30.07794, 30.0922, 30.10237, 30.10044, 
  30.11068, 30.11365, 30.12271, 30.13533, 30.14038, 30.15017, 30.15982, 30.1475, 30.16205, 30.18579, 
  30.1662, 30.16888, 30.14097, 30.09954, 30.08647, 30.08447, 30.08031, 30.07719, 30.07169, 30.06872, 
  30.06115, 30.04874, 30.04153, 30.00794, 29.99508, 29.99278, 29.99754, 29.99895, 30.00653, 30.01092, 
  30.00995, 30.00727, 30.00928, 30.00831, 29.98988, 29.99412, 29.97984, 29.96787, 29.95434, 29.94281, 
  29.94043, 29.92794, 29.92511, 29.93262, 29.94579)
LONGITUDE_VALUEs <- c(
  122.3178, 122.3196, 122.3176, 122.3191, 122.3369, 122.3296, 122.331, 122.3426, 122.3393, 122.3295, 
  122.3155, 122.3067, 122.2862, 122.2593, 122.2502, 122.261, 122.2951, 122.2982, 122.2919, 122.2526, 
  122.2359, 122.1523, 122.1346, 122.1279, 122.1163, 122.1158, 122.0955, 122.0414, 121.9905, 121.9505, 
  121.9458, 121.9333, 121.9544, 121.9855, 121.9824, 121.9774, 121.9763, 121.9716, 121.9731, 121.9787, 
  121.974, 121.9815, 121.9954, 122.019, 122.0228, 122.0343, 122.0389, 122.0492, 122.0545, 122.0662, 
  122.0786, 122.0799, 122.0885, 122.1037, 122.1191, 122.1639, 122.195, 122.2324, 122.2574, 122.273,
  122.2828, 122.2875, 122.3027, 122.3104, 122.3101)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  29.7833, 29.77235, 29.76795, 29.74329, 29.73994, 29.73561, 29.73457, 29.73882, 29.7383, 29.73546, 
  29.73725, 29.73204, 29.7333, 29.72741, 29.73241, 29.73546, 29.73338, 29.73554, 29.73233, 29.74001, 
  29.73889, 29.74225, 29.74381, 29.74202, 29.74463, 29.74702, 29.75097, 29.74351, 29.75223, 29.75514, 
  29.7579, 29.76058, 29.76378, 29.76557, 29.77056, 29.76907, 29.7754, 29.77786, 29.77905, 29.78337, 
  29.78472)
LONGITUDE_VALUEs <- c(
  122.2207, 122.2122, 122.2148, 122.2429, 122.2513, 122.2538, 122.2597, 122.2575, 122.2647, 122.2659, 
  122.2716, 122.2751, 122.2785, 122.2842, 122.2849, 122.2898, 122.2947, 122.2977, 122.3056, 122.3082, 
  122.2945, 122.2915, 122.293, 122.2974, 122.3055, 122.2951, 122.2898, 122.2875, 122.2517, 122.25, 
  122.2431, 122.2457, 122.2429, 122.2498, 122.245, 122.2544, 122.2565, 122.2538, 122.2438, 122.2427, 
  122.2315)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(29.45813, 29.46176, 29.47592, 29.49206, 29.49198, 29.48761, 29.47487, 29.44946)
LONGITUDE_VALUEs <- c(121.5233, 121.5332, 121.5308, 121.5211, 121.5025, 121.5011, 121.4811, 121.4916)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  27.97791, 27.97852, 27.98041, 27.9817, 27.98299, 27.9811, 27.98193, 27.98648, 27.98496, 27.98868, 
  27.98595, 27.99337, 27.99694, 27.99201, 27.99701, 27.99497, 27.99739, 27.99678, 27.99959, 27.99709, 
  28.00239, 27.99269, 27.98276, 27.98169, 27.97941, 27.98059, 27.97793, 27.97649, 27.97339, 27.97073, 
  27.96944, 27.96793, 27.96971, 27.96713, 27.97316)
LONGITUDE_VALUEs <- c(
  121.1932, 121.1876, 121.1924, 121.1907, 121.1974, 121.2013, 121.2056, 121.204, 121.2078, 121.2135, 
  121.2143, 121.2346, 121.2345, 121.2171, 121.2048, 121.2014, 121.2012, 121.1969, 121.1993, 121.1901, 
  121.194, 121.1743, 121.168, 121.1704, 121.1702, 121.1752, 121.1743, 121.1793, 121.1782, 121.1793, 
  121.1757, 121.1773, 121.1804, 121.1816, 121.1893)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  25.02546, 25.02702, 25.03215, 25.03488, 25.03515, 25.03904, 25.05159, 25.05198, 25.05439, 25.05408, 
  25.05882, 25.05805, 25.06584, 25.06627, 25.07074, 25.06959, 25.07334, 25.07995, 25.08663, 25.08825, 
  25.08613, 25.09186, 25.09355, 25.09512, 25.09555, 25.09777, 25.10123, 25.1022, 25.10572, 25.10422, 
  25.10222, 25.10158, 25.09518, 25.09631, 25.09466, 25.09579, 25.09031, 25.09198, 25.08872, 25.08487, 
  25.08207, 25.0818, 25.07608, 25.06349, 25.05245, 25.04981, 25.05121, 25.05358, 25.05455, 25.04771, 
  25.04635, 25.04149, 25.03849, 25.03542, 25.03188)
LONGITUDE_VALUEs <- c(
  119.1149, 119.1231, 119.1198, 119.1212, 119.1243, 119.1243, 119.1312, 119.1342, 119.1343, 119.1398, 
  119.1416, 119.1347, 119.1355, 119.1379, 119.1353, 119.1337, 119.1305, 119.1304, 119.1329, 119.1384, 
  119.1399, 119.147, 119.1468, 119.1494, 119.1532, 119.1514, 119.1533, 119.1509, 119.1532, 119.1502, 
  119.1491, 119.1462, 119.141, 119.1373, 119.1345, 119.1261, 119.1227, 119.1188, 119.1185, 119.1144, 
  119.1143, 119.1069, 119.1076, 119.1171, 119.1164, 119.1115, 119.0998, 119.0986, 119.0902, 119.0971, 
  119.1054, 119.1101, 119.1068, 119.1137, 119.1157)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  25.16144, 25.16586, 25.16633, 25.1762, 25.18513, 25.18987, 25.19134, 25.19398, 25.19694, 25.20144, 
  25.19872, 25.19919, 25.19795, 25.20195, 25.204, 25.20781, 25.20843, 25.20672, 25.20982, 25.2113, 
  25.20889, 25.20602, 25.20548, 25.20284, 25.20322, 25.20711, 25.20672, 25.20967, 25.21184, 25.21316, 
  25.21138, 25.20703, 25.20664, 25.20346, 25.20291, 25.21231, 25.21705, 25.21495, 25.22613, 25.22846, 
  25.22955, 25.23615, 25.23972, 25.24267, 25.24539, 25.24655, 25.24881, 25.2464, 25.24322, 25.24182, 
  25.24357, 25.24698, 25.24931, 25.25028, 25.253, 25.25311, 25.25956, 25.2594, 25.26154, 25.25381, 
  25.24605, 25.2471, 25.23538, 25.23274, 25.23988, 25.23242, 25.22617, 25.22152, 25.21317, 25.20645, 
  25.2014, 25.19196, 25.18598, 25.17433, 25.17138)
LONGITUDE_VALUEs <- c(
  119.5205, 119.5267, 119.547, 119.5474, 119.5371, 119.5396, 119.5464, 119.5435, 119.544, 119.5537, 
  119.559, 119.5617, 119.5648, 119.5704, 119.5652, 119.5652, 119.5684, 119.5697, 119.5721, 119.5659, 
  119.5595, 119.5584, 119.5539, 119.5535, 119.5495, 119.5494, 119.5455, 119.5422, 119.5458, 119.5445, 
  119.54, 119.5385, 119.5413, 119.5382, 119.5306, 119.5111, 119.509, 119.5053, 119.4908, 119.4908, 
  119.4938, 119.49, 119.4926, 119.4908, 119.4919, 119.4871, 119.4849, 119.4825, 119.486, 119.4832, 
  119.4755, 119.4729, 119.4735, 119.4759, 119.4762, 119.4738, 119.4727, 119.47, 119.4681, 119.4633, 
  119.4644, 119.4548, 119.4545, 119.4471, 119.4377, 119.4393, 119.4454, 119.4455, 119.4401, 119.4409, 
  119.4702, 119.4806, 119.5036, 119.5052, 119.5166)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  25.36043, 25.35564, 25.35903, 25.35791, 25.35942, 25.36202, 25.36306, 25.364, 25.36541, 25.36671, 
  25.36754, 25.36925, 25.36886, 25.37032, 25.37084, 25.37286, 25.37478, 25.37623, 25.37557, 25.37673, 
  25.3771, 25.37951, 25.38121, 25.3805, 25.37896, 25.37858, 25.37606, 25.37466, 25.37369, 25.3766, 
  25.3766, 25.37449, 25.37433, 25.37164, 25.37039, 25.37181, 25.3697, 25.36985, 25.36091)
LONGITUDE_VALUEs <- c(
  119.701, 119.7005, 119.7096, 119.7119, 119.7131, 119.7243, 119.7237, 119.7251, 119.7313, 119.7317, 
  119.7296, 119.7295, 119.7266, 119.7252, 119.7224, 119.7235, 119.7198, 119.7203, 119.7232, 119.7234, 
  119.7257, 119.7243, 119.7199, 119.7184, 119.7181, 119.7161, 119.7178, 119.7164, 119.7116, 119.7071, 
  119.7, 119.6994, 119.7027, 119.7058, 119.7049, 119.7026, 119.6997, 119.6935, 119.6962)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  25.58967, 25.58866, 25.58564, 25.58553, 25.58692, 25.58707, 25.59284, 25.59493, 25.59702, 25.59733, 
  25.59958, 25.60109, 25.60426, 25.60325, 25.60728, 25.60975, 25.60987, 25.60267, 25.6019, 25.59613, 
  25.59702, 25.60356, 25.60569, 25.60186, 25.6007, 25.60414, 25.60693, 25.60875, 25.59114, 25.58978, 
  25.59141, 25.58974, 25.58638, 25.58506)
LONGITUDE_VALUEs <- c(
  119.888, 119.892, 119.8926, 119.8962, 119.8975, 119.8993, 119.9032, 119.9016, 119.9019, 119.8999, 
  119.8991, 119.902, 119.9022, 119.8983, 119.8959, 119.8968, 119.8935, 119.8929, 119.8947, 119.8943, 
  119.8873, 119.8921, 119.8899, 119.8853, 119.8767, 119.8791, 119.8782, 119.8716, 119.8711, 119.8733, 
  119.8789, 119.881, 119.8805, 119.8825)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  25.63661, 25.63789, 25.6476, 25.64872, 25.64284, 25.64423, 25.63789, 25.63653, 25.63355, 25.6327, 
  25.63042, 25.63061, 25.63471, 25.63955, 25.64388, 25.64806, 25.65711, 25.66342, 25.66864, 25.66821, 
  25.6616, 25.6599, 25.6551, 25.65216, 25.64485, 25.63997)
LONGITUDE_VALUEs <- c(
  119.5684, 119.5643, 119.5667, 119.5632, 119.5614, 119.5591, 119.5566, 119.563, 119.564, 119.5726, 
  119.5736, 119.5779, 119.5827, 119.5824, 119.5959, 119.5967, 119.6057, 119.6075, 119.6049, 119.5935, 
  119.591, 119.5853, 119.583, 119.5757, 119.5753, 119.5702)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
#COUNTRIE(s) from Global Administrative Areas (GADM)
Geo_0 <- GeoDATA_from_GADM_level_0_low_resolution %>% filter(NAME == "China")
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_0 <- st_union(Geo_0[c(
  33, 70, 83:84, 110, 115, 149, 158, 165, 272, 284, 295, 323, 395, 429, 461, 463, 473, 505, 515:516, 
  635, 650, 774:775, 779, 783, 790, 794:795, 797, 948, 954, 1019, 1079, 1110, 1167, 1191, 1298, 1340:1341, 
  1356, 1373, 1393:1394, 1417, 1488, 1519, 1596, 1615:1616, 1881, 1886, 1890, 1900, 1902, 1936, 1942, 1944, 
  1975, 1979, 2009, 2054, 2075), ])
LATITUDE_VALUEs <- c(18.40356, 18.40551, 18.44493, 18.45095, 18.39688)
LONGITUDE_VALUEs <- c(110.056, 110.0674, 110.0737, 110.0393, 110.0242)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(18.73444, 18.75141, 18.75585)
LONGITUDE_VALUEs <- c(110.4485, 110.4543, 110.4158)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(19.08609, 19.14209, 19.15194, 19.15465, 19.16556, 19.16301, 19.09051)
LONGITUDE_VALUEs <- c(110.5716, 110.5787, 110.5834, 110.5863, 110.588, 110.5475, 110.5394)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(19.54216, 19.53002, 19.53035, 19.52582, 19.52703, 19.52363, 19.52436, 19.63483, 19.63289, 19.55461)
LONGITUDE_VALUEs <- c(110.8268, 110.8295, 110.8457, 110.8498, 110.8543, 110.859, 110.8662, 110.8877, 110.7744, 110.7974)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(19.99698, 19.99864, 19.98626)
LONGITUDE_VALUEs <- c(110.8526, 110.8282, 110.8428)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  20.05676, 20.04693, 20.03556, 20.0333, 20.02322, 20.0208, 20.02274, 20.02427, 20.02508, 20.02362, 
  20.01612, 20.02056, 20.01927, 19.88513, 19.90514, 20.05679)
LONGITUDE_VALUEs <- c(
  110.572, 110.5659, 110.5671, 110.5723, 110.5754, 110.5747, 110.5665, 110.5661, 110.5612, 110.5563, 
  110.5524, 110.5446, 110.5304, 110.5395, 110.6782, 110.6027)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  20.07899, 20.0864, 20.09189, 20.09027, 20.08681, 20.0802, 20.08092, 20.07842, 20.07867, 20.0748, 
  20.06935, 20.05908, 20.05125, 20.04932, 20.05037, 20.0498, 20.04029, 20.04021, 20.03287, 20.03626, 
  20.04448, 20.01448, 20.00368)
LONGITUDE_VALUEs <- c(
  110.3765, 110.3739, 110.3676, 110.354, 110.3419, 110.3404, 110.3341, 110.3306, 110.3256, 110.3063, 
  110.3023, 110.3005, 110.3277, 110.3266, 110.3243, 110.3117, 110.3122, 110.3035, 110.2978, 110.2874, 
  110.2756, 110.2644, 110.396)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(20.06081, 20.06528, 20.05996, 20.06077, 20.05625, 20.0519, 20.03593, 20.05045)
LONGITUDE_VALUEs <- c(110.1714, 110.1637, 110.1564, 110.1502, 110.1513, 110.1492, 110.1565, 110.1734)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  19.98343, 19.9823, 19.97803, 19.96883, 19.96028, 19.95746, 19.95528, 19.96084, 19.96028, 19.95108, 
  19.95126, 19.94564, 19.94293, 19.93918, 19.94229, 19.95641, 19.89653, 19.88039, 19.9769, 19.98803)
LONGITUDE_VALUEs <- c(
  110.0775, 110.061, 110.0541, 110.0512, 110.0243, 110.0239, 110.0188, 110.0161, 110.0085, 110.0133, 
  110.0199, 110.0156, 110.0178, 110.0027, 109.9853, 109.964, 109.9326, 110.0146, 110.1667, 110.1192)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(19.94499, 19.94225, 19.9481, 19.93285, 19.89936, 19.89815, 19.93688)
LONGITUDE_VALUEs <- c(109.8669, 109.8601, 109.8405, 109.825, 109.8183, 109.8533, 109.8754)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
if (st_is_valid(Geo_0) == FALSE) {Geo_0 <- st_make_valid(Geo_0)}
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  19.84011, 19.83099, 19.82856, 19.81548, 19.78932, 19.75766, 19.75798, 19.73665, 19.73439, 19.73431, 
  19.72558, 19.72534, 19.72227, 19.70716, 19.70724, 19.71686, 19.71694, 19.71298, 19.72276, 19.72922, 
  19.73318, 19.72397, 19.69569, 19.69334, 19.79255)
LONGITUDE_VALUEs <- c(
  109.2064, 109.1989, 109.1881, 109.1709, 109.1558, 109.1661, 109.169, 109.1787, 109.1763, 109.1685, 
  109.1691, 109.1592, 109.1508, 109.151, 109.1613, 109.1615, 109.1643, 109.1691, 109.1832, 109.1829, 
  109.1893, 109.2101, 109.2135, 109.339, 109.3413)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(19.52007, 19.49686, 19.45801, 19.51109)
LONGITUDE_VALUEs <- c(108.9434, 108.9179, 109.0001, 108.9603)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(19.33886, 19.32088, 19.30402, 19.25836, 19.31766)
LONGITUDE_VALUEs <- c(108.6731, 108.6625, 108.6449, 108.7158, 108.709)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_1 <- st_union(Geo_1, Geo_0) %>%
  mutate(SOURCE = paste(SOURCE, "and Global Administrative Areas (GADM)"))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### VIET NAM #####
Geo_0 <- Geometric_Operations(Geo_2, Geo_1)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, Geo_0[39])
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  22.40107, 22.40611, 22.40746, 22.41035, 22.41091, 22.41988, 22.42476, 22.42547, 22.43007, 
  22.42829, 22.43257, 22.43174, 22.43443, 22.42793, 22.43142, 22.42527, 22.42757, 22.42666, 22.42801, 
  22.42598, 22.42785, 22.42095, 22.42087, 22.41567, 22.41396, 22.41908, 22.4223, 22.42452, 22.42825, 
  22.43186, 22.44463, 22.44915, 22.4574, 22.46244, 22.46618, 22.46537, 22.47112, 22.47675, 22.47911, 
  22.48102, 22.47909, 22.48252, 22.48464, 22.48625, 22.48837, 22.49148, 22.49388, 22.49622, 22.49892, 
  22.50037, 22.50247, 22.50286, 22.50187, 22.50282, 22.50261, 22.50342, 22.50449, 22.50564, 22.50673, 
  22.50742, 22.50865, 22.51127, 22.51394, 22.51498, 22.51607, 22.51694, 22.51723, 22.52033, 22.52031, 
  22.52376, 22.52388, 22.52611, 22.52988, 22.53343, 22.534, 22.53604, 22.53527, 22.53815, 22.5382, 
  22.54122, 22.54427, 22.54914, 22.55759, 22.55925, 22.56666, 22.57245, 22.58315, 22.59024, 22.58953, 
  22.59313, 22.59111, 22.59341, 22.61152, 22.61714, 22.63382, 22.6358, 22.64241, 22.64352, 22.64241, 
  22.6434, 22.6461, 22.65703, 22.66713, 22.68031, 22.68534, 22.68898, 22.68978, 22.68443, 22.687, 
  22.68993, 22.69227, 22.69179, 22.69536, 22.70138, 22.70886, 22.71373, 22.71587, 22.71998, 22.72636, 
  22.73265, 22.73748, 22.74266, 22.74749, 22.75177, 22.76653, 22.7708, 22.77044, 22.7782, 22.77998, 
  22.77812, 22.77519, 22.76894, 22.76312, 22.76288, 22.75425, 22.74946, 22.74558, 22.74032, 22.73003, 
  22.729, 22.72195, 22.71372, 22.71027, 22.70608, 22.7035, 22.70572, 22.70556, 22.72175, 22.72437, 
  22.72468, 22.72789, 22.729, 22.73118, 22.73205, 22.73185, 22.72864, 22.729, 22.72199, 22.72148, 
  22.70928, 22.69534, 22.68901, 22.69692, 22.69875, 22.70318, 22.69194, 22.68022, 22.67649, 22.67309, 
  22.6658, 22.6696, 22.64695, 22.64742, 22.64497, 22.64331, 22.63348, 22.62572, 22.62287, 22.62683, 
  22.61946, 22.61217, 22.61082, 22.59876, 22.59813, 22.58545, 22.57524, 22.56716, 22.56018, 22.54457, 
  22.53632, 22.52473, 22.51173, 22.50761, 22.48842, 22.48223, 22.48471, 22.48106, 22.48296, 22.48431, 
  22.47677, 22.47939, 22.47804, 22.47305, 22.47289, 22.46964, 22.46416, 22.44267, 22.4456, 22.44584, 
  22.451, 22.44655, 22.45076, 22.46924, 22.4759, 22.48486, 22.49145, 22.51087, 22.51658, 22.51855, 
  22.526, 22.54423, 22.54043, 22.56009, 22.58402, 22.59528, 22.59756, 22.59772, 22.60231, 22.60449, 
  22.6064, 22.60826, 22.61063, 22.61876, 22.62711, 22.63068, 22.62945, 22.63143, 22.64118, 22.64177, 
  22.64454, 22.65131, 22.64613, 22.64803, 22.65907, 22.65844, 22.66007, 22.66118, 22.66458, 22.66941, 
  22.67289, 22.67117, 22.67442, 22.67315, 22.68416, 22.68843, 22.70475, 22.70601, 22.72272, 22.72929,
  22.73882, 22.78188, 22.80396, 22.81171, 22.81377, 22.80609, 22.79937, 22.78148, 22.77832, 22.7689, 
  22.76384, 22.75355, 22.73811, 22.73344, 22.71206, 22.67611, 22.65996, 22.65251, 22.64657, 22.63461, 
  22.61837, 22.61235, 22.60387, 22.59507, 22.6156, 22.61861, 22.6377, 22.64324, 22.67057, 22.68039, 
  22.70225, 22.77555, 22.7856, 22.79486, 22.78718, 22.76993, 22.76296, 22.75252, 22.74524, 22.71127, 
  22.70114, 22.69583, 22.68744, 22.69053, 22.66519, 22.6613, 22.6339, 22.61623, 22.60672, 22.59373, 
  22.58533, 22.56583, 22.56393, 22.57059, 22.54332, 22.53523, 22.53222, 22.53967, 22.52683, 22.5254, 
  22.51319, 22.50574, 22.51161, 22.50606, 22.51985, 22.51811, 22.52493, 22.5411, 22.55061, 22.5793, 
  22.62986, 22.68324, 22.69211, 22.73376, 22.75814, 22.77048, 22.78995, 22.81147, 22.81385, 22.80609, 
  22.8273, 22.82998, 22.84406, 22.83964, 22.84533, 22.83869, 22.81432, 22.77697, 22.75022, 22.74136, 
  22.74136, 22.72932, 22.73233, 22.7222, 22.69179, 22.69084, 22.70431, 22.70193, 22.72679, 22.79486, 
  22.82002, 22.83568, 22.8379, 22.84043, 22.84422, 22.8534, 22.85134, 22.83014, 22.81749, 22.81812, 
  22.83109, 22.83552, 22.84707, 22.83615, 22.83394, 22.81812, 22.82666, 22.82018, 22.82793, 22.84248, 
  22.84913, 22.85973, 22.85719, 22.90053, 22.92551, 22.92077, 22.93582, 22.94325, 22.9785, 22.9864, 
  22.99746, 22.99904, 23.0804, 23.0834, 23.11656, 23.11798, 23.1074, 23.12903, 23.12508, 23.16738, 
  23.18033, 23.17985, 23.15728, 23.15113, 23.17354, 23.19926, 23.20526, 23.20052, 23.20305, 23.21583, 
  23.2204, 23.25587, 23.26698, 23.25658, 23.24751, 23.25027, 23.25721, 23.25587, 23.26903, 23.28898, 
  23.28717, 23.27684, 23.28118, 23.27124, 23.27227, 23.2669, 23.27053, 23.26083, 23.26186, 23.27905, 
  23.28354, 23.28843, 23.2919, 23.30979, 23.31287, 23.31941, 23.32209, 23.32768, 23.33178, 23.3429, 
  23.34242, 23.33943, 23.34282, 23.35913, 23.36063, 23.38174, 23.38253, 23.39308, 23.36488, 23.34494, 
  23.31681, 23.31058, 23.31429, 23.29529, 23.28465, 23.29198, 23.29671, 23.30325, 23.30309, 23.30112, 
  23.30057, 23.27771, 23.26872, 23.22859, 23.2024, 23.18851, 23.19356, 23.18552, 23.16958, 23.15758,
  23.14873, 23.14304, 23.13231, 23.12852, 23.10152, 23.08652, 23.06773, 23.07689, 23.06631, 23.08178, 
  23.08257, 23.06283, 23.06441, 23.03614, 23.02224, 23.00296, 22.98858, 22.99632, 22.98858, 22.96851, 
  22.97025, 22.95713, 22.93358, 22.92346, 22.91634, 22.91919, 22.92709, 22.93942, 22.94496, 22.93784, 
  22.95065, 22.94116, 22.95586, 22.993, 22.99206, 23.00138, 22.98495, 22.99648, 22.98352, 22.98668, 
  22.90717, 22.88914, 22.88298, 22.87807, 22.86763, 22.87444, 22.86368, 22.87412, 22.85482, 22.867, 
  22.88155, 22.88377, 22.87459, 22.88646, 22.89499, 22.88614, 22.89231, 22.90322, 22.90338, 22.8942, 
  22.90923, 22.90148, 22.90812, 22.92962, 22.94899, 22.94843, 22.94156, 22.94251, 22.92891, 22.91903, 
  22.92472, 22.92575, 22.9335, 22.92614, 22.90891, 22.89705, 22.89183, 22.88709, 22.88598, 22.88788, 
  22.88598, 22.87981, 22.87618, 22.87459, 22.86684, 22.86542, 22.87633, 22.88899, 22.89278, 22.89167, 
  22.88804, 22.88709, 22.89136, 22.88835, 22.87839, 22.87871, 22.87096, 22.86827, 22.8254, 22.81116, 
  22.81701, 22.81511, 22.82105, 22.81899, 22.81258, 22.81377, 22.80855, 22.80309, 22.80024, 22.79644, 
  22.78322, 22.77895, 22.77189, 22.76698, 22.75448, 22.73089, 22.70793, 22.69447, 22.68544, 22.67261, 
  22.66739, 22.63681, 22.63158, 22.61764, 22.61415, 22.6067, 22.60385, 22.59418, 22.57833, 22.58499, 
  22.57437, 22.60559, 22.60512, 22.57564, 22.56391, 22.51761, 22.47479, 22.46956, 22.47606, 22.45956, 
  22.43005, 22.42212, 22.39689, 22.39466, 22.37466, 22.36324, 22.34784, 22.34117, 22.34545, 22.33894, 
  22.34355, 22.33815, 22.3399, 22.33323, 22.34006, 22.33974, 22.33418, 22.32608, 22.29511, 22.28511, 
  22.27875, 22.26525, 22.21949, 22.20694, 22.20217, 22.18214, 22.16561, 22.16291, 22.15607, 22.15448, 
  22.1195, 22.10614, 22.10185, 22.09103, 22.08435, 22.06492, 22.04392, 22.02865, 22.00382, 21.98568, 
  21.97217, 21.96461, 21.96015, 21.974, 21.97233, 21.98379, 22.00807, 22.01291, 22.00288, 21.98888, 
  21.99333, 21.98044, 21.98313, 21.97628, 21.97374, 21.97565, 21.98345, 21.98418, 21.97909, 21.98275, 
  21.98068, 21.98386, 21.98156, 21.98331, 21.9802, 21.98203, 21.972, 21.97614, 21.97423, 21.96388, 
  21.95425, 21.94072, 21.93085, 21.93172, 21.92424, 21.91922, 21.92941, 21.94104, 21.94279, 21.94685, 
  21.9521, 21.9443, 21.94685, 21.9439, 21.93769, 21.93722, 21.93156, 21.92941, 21.91317, 21.89422, 
  21.88265, 21.86398, 21.84709, 21.82988, 21.82689, 21.81653, 21.8076, 21.79406, 21.79278, 21.77525, 
  21.77603, 21.76264, 21.75769, 21.75036, 21.75227, 21.74239, 21.73473, 21.73314, 21.72118, 21.7081,
  21.70441, 21.71701, 21.7292, 21.73487, 21.73223, 21.73239, 21.7371, 21.74268, 21.74284, 21.73949, 
  21.73192, 21.7304, 21.73032, 21.72586, 21.7249, 21.71525, 21.7052, 21.69914, 21.69244, 21.68806, 
  21.68846, 21.67989, 21.67809, 21.67466, 21.67362, 21.6619, 21.63549, 21.6311, 21.62296, 21.62153, 
  21.60972, 21.60621, 21.59958, 21.59928, 21.60216, 21.59523, 21.61059, 21.61642, 21.6327, 21.6398, 
  21.65416, 21.66373, 21.65831, 21.6516, 21.64841, 21.62863, 21.624, 21.6252, 21.61379, 21.60449, 
  21.59876, 21.59858, 21.59649, 21.59663, 21.59515, 21.59743, 21.59312, 21.59036, 21.59072, 21.5932, 
  21.59416, 21.59104, 21.58937, 21.59671, 21.59914, 21.60054, 21.60413, 21.60601, 21.60756, 21.61331, 
  21.61203, 21.61678, 21.61826, 21.617, 21.61704, 21.61075, 21.61069, 21.60782, 21.60658, 21.60629, 
  21.60427, 21.60479, 21.60351, 21.60814, 21.60876, 21.60712, 21.60706, 21.61006, 21.61345, 21.61341, 
  21.61261, 21.61327, 21.6088, 21.61107, 21.61055, 21.61151, 21.61119, 21.61355, 21.61476, 21.61425, 
  21.61634, 21.61532, 21.62123, 21.62185, 21.62564, 21.62619, 21.62923, 21.63102, 21.63892, 21.64283, 
  21.64291, 21.6451, 21.64837, 21.64845, 21.65531, 21.65659, 21.65392, 21.65551, 21.65882, 21.65755, 
  21.6587, 21.65324, 21.65356, 21.65017, 21.64315, 21.64339, 21.64095, 21.64291, 21.64889, 21.65117, 
  21.65492, 21.65444, 21.65304, 21.64985, 21.64861, 21.64953, 21.64718, 21.64287, 21.64139, 21.64024, 
  21.62998, 21.62919, 21.62532, 21.62041, 21.6163, 21.61391, 21.61175, 21.60716, 21.60601, 21.60158, 
  21.5987, 21.5932, 21.58809, 21.58665, 21.59112, 21.58649, 21.58937, 21.5774, 21.56917, 21.56538, 
  21.53784, 21.53644, 21.54075, 21.5398, 21.54475, 21.54363, 21.54642, 21.54862, 21.54642, 21.54866, 
  21.5473, 21.54614,
  21.54407, 21.54423, 21.54353, 21.53996, 21.5378, 21.53764, 21.53952, 21.53898, 21.53706, 21.53395, 
  21.52852, 21.52459, 21.52447, 21.52598, 21.53074, 21.53261, 21.52962, 21.52758, 21.52215, 21.52087, 
  21.51892, 21.51976, 21.51816, 21.5168, 21.51345, 21.50874, 21.51025, 21.51345, 21.51173, 21.50978, 
  21.50886, 21.50938, 21.51189, 21.51097, 21.51165, 21.5099, 21.50742, 21.50606, 21.50343, 21.49891, 
  21.49444, 21.49352, 21.48737, 21.48622, 21.49508, 21.4956, 21.49309, 21.48869, 21.48674, 21.48418, 
  21.48354, 21.48246, 21.48274, 21.48418, 21.48478, 21.4821, 21.47675, 21.46944, 21.46082, 21.44871, 
  21.43629, 21.43833, 21.43318, 21.43485, 21.443, 21.44428, 21.44728, 21.44816, 21.45119, 21.45159, 
  21.45654, 21.46066, 21.46657, 21.47176, 21.47559, 21.47332, 21.4694, 21.47747, 21.4823, 21.48486, 
  21.48602, 21.4841, 21.48079, 21.47939, 21.47508, 21.47579, 21.47108, 21.47208, 21.46932, 21.46689, 
  21.46789, 21.46449, 21.45191, 21.44468, 21.43781, 21.43701, 21.43134, 21.42407, 21.4176, 21.41352, 
  21.42455, 21.4593, 21.46713, 21.48342, 21.4962, 21.49907, 21.50267, 21.50746, 21.50846, 21.51361, 
  21.51401, 21.51153, 21.51481, 21.52095, 21.52275, 21.51932, 21.52044, 21.53018, 21.5269, 21.52355, 
  21.52259, 21.51988, 21.51832, 21.51473, 21.51133, 21.51197, 21.51117, 21.50914, 21.50838, 21.5069, 
  21.50658, 21.51337, 21.51249, 21.51025, 21.50945, 21.51592, 21.51955, 21.51931, 21.52307, 21.52678, 
  21.53089, 21.52267, 21.51668, 21.5148, 21.51324, 21.50993, 21.50949, 21.50686, 21.50941, 21.50821, 
  21.51261, 21.5146, 21.51512, 21.51835, 21.5182, 21.51612, 21.51572, 21.51684, 21.51827, 21.52011, 
  21.52219, 21.52083, 21.52143, 21.51983, 21.51588, 21.51372, 21.51269, 21.51348, 21.51241, 21.51512, 
  21.51696, 21.51931, 21.51744, 21.51971, 21.5241, 21.5247, 21.52211, 21.51173, 21.51129, 21.50777, 
  21.50941, 21.50781, 21.51081, 21.51125, 21.50376, 21.50047, 21.49712, 21.49831, 21.4952, 21.49384, 
  21.49141, 21.49093, 21.48833, 21.48655, 21.48379, 21.48005, 21.47654, 21.47633, 21.47477, 21.47471, 
  21.46988, 21.46771, 21.46224, 21.46032, 21.45833, 21.45813, 21.44922, 21.44678, 21.44523, 21.4378, 
  21.43628, 21.43492, 21.43276, 21.43176, 21.42941, 21.42965, 21.42585, 21.42485, 21.41886, 21.4161,
  21.40241, 21.3967, 21.39846, 21.40265, 21.40681, 21.40811, 21.40996, 21.40939, 21.40457, 21.40897, 
  21.41556, 21.41136, 21.40749, 21.40377, 21.40309, 21.41156, 21.40773, 21.41252, 21.40996, 21.40517, 
  21.40325, 21.40249, 21.40749, 21.40741, 21.41612, 21.4148, 21.40637, 21.40321, 21.3995, 21.39902, 
  21.39962, 21.40641, 21.3981, 21.3975, 21.39394, 21.39442, 21.39143, 21.39186, 21.39043, 21.38763, 
  21.38699, 21.38443, 21.38136, 21.38151, 21.37676, 21.38096, 21.37988, 21.37764, 21.38088, 21.37804, 
  21.36941, 21.35953, 21.35921, 21.35546, 21.35202, 21.34594, 21.34471, 21.34019, 21.33475, 21.33171, 
  21.32932, 21.33567, 21.32936, 21.32608, 21.32244, 21.32272, 21.32084, 21.31732, 21.31564, 21.31884, 
  21.31296, 21.30809, 21.30857, 21.30657, 21.30385, 21.30097, 21.29961, 21.29681, 21.29861, 21.29509, 
  21.29941, 21.30249, 21.30321, 21.30233, 21.30913, 21.31824, 21.32056, 21.31288, 21.30697, 21.31408, 
  21.3232, 21.32744, 21.33679, 21.33587, 21.3274, 21.32836, 21.32072, 21.31864, 21.30965, 21.30781, 
  21.30413, 21.30397, 21.29869, 21.30013, 21.29945, 21.30437, 21.30713, 21.30753, 21.30305, 21.30205, 
  21.30585, 21.29721, 21.29681, 21.28282, 21.27162, 21.27162, 21.25674, 21.22362, 21.20042, 21.19642, 
  21.20362, 21.20602, 21.21834, 21.21882, 21.20314, 21.20058, 21.18809, 21.18521, 21.17705, 21.17609, 
  21.15944, 21.10772, 21.10427, 21.09338, 21.09098, 21.07768, 21.08217, 21.07624, 21.07136, 21.05782, 
  21.05958, 21.03868, 21.0386, 21.04369, 21.04144, 21.03588, 21.02843, 21.02514, 21.01717, 21.01485, 
  21.00094, 20.99529, 20.99033, 20.99541, 20.99092, 20.99164, 20.99653, 20.99557, 20.99709, 20.97882, 
  20.97433, 20.96199, 20.94973, 20.95093, 20.94708, 20.94668, 20.93875, 20.94051, 20.93618, 20.93794, 
  20.94861, 20.94933, 20.9442, 20.94724, 20.95991, 20.95935, 20.95077, 20.94749, 20.94071, 20.94244, 
  20.94685, 20.95373, 20.95549, 20.9518, 20.9587, 20.95196, 20.95549, 20.95661, 20.95309, 20.94612, 
  20.94091, 20.93754, 20.93382, 20.93109, 20.9227, 20.91894, 20.91517, 20.91942, 20.91469, 20.91356, 
  20.90795, 20.91132, 20.90931, 20.9114, 20.90843, 20.91764, 20.91699, 20.90962, 20.90481, 20.8915, 
  20.88021, 20.87323, 20.8689, 20.85607, 20.83144, 20.82181, 20.81676, 20.8154, 20.80713, 20.80593, 
  20.78465, 20.78112, 20.79845, 20.79235, 20.78625, 20.78657, 20.79781, 20.79203, 20.78545, 20.7946, 
  20.80358, 20.8015, 20.79396, 20.78304, 20.73152, 20.72092, 20.70149, 20.70031, 20.69709, 20.69637, 
  20.69308, 20.68955, 20.68401, 20.68473, 20.67541, 20.67108, 20.67252, 20.69501, 20.69709, 20.70079, 
  20.69926, 20.68754, 20.68304, 20.6938, 20.704, 20.6893, 20.68186, 20.67721, 20.67946, 20.67319,
  20.66957, 20.66234, 20.66166, 20.65764, 20.65343, 20.65146, 20.64054, 20.62981, 20.61989, 20.63029, 
  20.62355, 20.62459, 20.60844, 20.60716, 20.60113, 20.58659, 20.58683, 20.5714, 20.55686, 20.55445, 
  20.54665, 20.54263, 20.53379, 20.52945, 20.52238, 20.49665, 20.49705, 20.48612, 20.4751, 20.47326, 
  20.46682, 20.46143, 20.45428, 20.4468, 20.43345, 20.39645, 20.36724, 20.33698, 20.32748, 20.30575, 
  20.30181, 20.28893, 20.29287, 20.28716, 20.26445, 20.25318, 20.24448, 20.22564, 20.21468, 20.20437, 
  20.20679, 20.20147, 20.20115, 20.22612, 20.22113, 20.22757, 20.21807, 20.21243, 20.20598, 20.20582, 
  20.17682, 19.9385, 19.90234, 19.88749, 19.88975, 19.96448, 19.93478, 19.91929, 19.88701, 19.89056, 
  19.86376, 19.82291, 19.80466, 19.7982, 19.78803, 19.77817, 19.7604, 19.72082, 19.7234, 19.72825, 
  19.72728, 19.70934, 19.62965, 19.5407, 19.4619, 19.42548, 19.43017, 19.42224, 19.40573, 19.39925, 
  19.37205, 19.33755, 19.33042, 19.33787, 19.33544, 19.34192, 19.32038, 19.31325, 19.30158, 19.30321, 
  19.31584, 19.28036, 19.27388, 19.2755, 19.27129, 19.27647, 19.26351, 19.23288, 19.2302, 19.22712, 
  19.22826, 19.22445, 19.23109, 19.22964, 19.21861, 19.17738, 19.15711, 19.14576, 19.11543, 19.10473, 
  19.10124, 19.10299, 19.09731, 19.09686, 19.09415, 19.09378, 19.0866, 19.08786, 19.08129, 19.08429, 
  19.08384, 19.08835, 19.09123, 19.09353, 19.09759, 19.0915, 19.08347, 19.06567, 19.03902, 19.01821, 
  18.9906, 18.98587, 18.98213, 18.97937, 18.97479, 18.94573, 18.89839, 18.89181, 18.88767, 18.88507, 
  18.88905, 18.88686, 18.87975, 18.88142, 18.87452, 18.87728, 18.87358, 18.86339, 18.85523, 18.85389, 
  18.85096, 18.84909, 18.85194, 18.84743, 18.84613, 18.84166, 18.83403, 18.82554, 18.80582, 18.77868, 
  18.76015, 18.66748, 18.57898, 18.45202, 18.45055, 18.46667, 18.46701, 18.47068, 18.47218, 18.46901, 
  18.46457, 18.39143, 18.31258, 18.27411, 18.27119, 18.26699, 18.26622, 18.26781, 18.26626, 18.26785, 
  18.26683, 18.2685, 18.26781, 18.25346, 18.24415, 18.24301, 18.23902, 18.23339, 18.23469, 18.22515, 
  18.22327, 18.2161, 18.21797, 18.21537, 18.15608, 18.11383, 18.11081, 18.10592, 18.10241, 18.09858, 
  18.10021, 18.11979, 18.12525, 18.12599, 18.12142, 18.12232, 18.11677, 18.10265, 18.09531, 18.09205,
  18.05179, 18.05513, 18.04175, 18.03824, 18.01106, 17.98894, 17.98935, 17.98608, 17.96494, 17.96363, 
  17.95885, 17.95853, 17.95473, 17.94603, 17.94264, 17.94264, 17.94171, 17.94428, 17.9433, 17.9395, 
  17.93777, 17.93828, 17.93748, 17.93643, 17.93593, 17.93641, 17.93633, 17.9346, 17.93127, 17.93125, 
  17.9328, 17.93314, 17.93545, 17.94079, 17.93861, 17.94137, 17.9353, 17.92848, 17.92386, 17.92133, 
  17.92268, 17.91308, 17.90671, 17.89957, 17.89364, 17.89177, 17.87919, 17.87394, 17.86109, 17.85215, 
  17.84226, 17.81718, 17.77337, 17.73536, 17.71574, 17.70666, 17.7011, 17.68598, 17.66112, 17.66063, 
  17.641, 17.62218, 17.62226, 17.61834, 17.58218, 17.53619, 17.49551, 17.48626, 17.48364, 17.47881, 
  17.44417, 17.39282, 17.31516, 17.18016, 17.12586, 17.08485, 17.08017, 17.07557, 17.07278, 17.0439, 
  17.03988, 17.01452, 16.98604, 16.88587, 16.78761, 16.70378, 16.63784, 16.59046, 16.57187, 16.53616, 
  16.49239, 16.4374, 16.37713, 16.36618, 16.3684, 16.35671, 16.35514, 16.34798, 16.34345, 16.34749, 
  16.34304, 16.34468, 16.3395, 16.32418, 16.31594, 16.31314, 16.31973, 16.32549, 16.32549, 16.34057, 
  16.34452, 16.33571, 16.33554, 16.33044, 16.31487, 16.3119, 16.3049, 16.22654, 16.22885, 16.2183, 
  16.21929, 16.21261, 16.21664, 16.21706, 16.21318, 16.22134, 16.20832, 16.21228, 16.21293, 16.21582, 
  16.21574, 16.20972, 16.19917, 16.20123, 16.19884, 16.19398, 16.19059, 16.1662, 16.16224, 16.16043, 
  16.1648, 16.16307, 16.15598, 16.14485, 16.14031, 16.14303, 16.13734, 16.12448, 16.11739, 16.11459, 
  16.10312, 16.08581, 16.07566, 16.07311, 16.07533, 16.08399, 16.08894, 16.09125, 16.09579, 16.10972, 
  16.10947, 16.10139, 16.10395, 16.09282, 16.10436, 16.11261, 16.11228, 16.12052, 16.11549, 16.12193, 
  16.12531, 16.1244, 16.13067, 16.14279, 16.14996, 16.14938, 16.1554, 16.15293, 16.13446, 16.13759, 
  16.123, 16.12514, 16.13165, 16.14526, 16.14138, 16.11764, 16.11838, 16.11516, 16.11657, 16.11244, 
  16.11235, 16.10617, 16.09784, 16.09553, 16.09924, 16.10443, 16.10518, 16.09677, 16.0985, 16.09495, 
  16.10163, 16.10064, 16.0867, 16.06534, 16.03375, 15.97229, 15.93422, 15.90156, 15.89033, 15.88092, 
  15.8772, 15.87167, 15.872, 15.86647, 15.85268, 15.82684, 15.79934, 15.74332, 15.59056, 15.51217, 
  15.49897, 15.5003, 15.50857, 15.5133, 15.50627, 15.50486, 15.50602, 15.49113, 15.4822, 15.48634, 
  15.4822, 15.47856, 15.45715, 15.4557, 15.44221, 15.42562, 15.39258, 15.38778, 15.39434, 15.39996, 
  15.40096, 15.39681, 15.40598, 15.41533, 15.42368, 15.42501, 15.42145, 15.41309, 15.41169, 15.41789, 
  15.41946, 15.41649, 15.41086, 15.40259, 15.39357, 15.37908, 15.35566, 15.3483, 15.34614, 15.34987, 
  15.3531, 15.3507, 15.35152, 15.34838, 15.34457, 15.33904, 15.33293, 15.3303, 15.33035, 15.32805,
  15.32873, 15.32782, 15.3267, 15.32542, 15.32473, 15.32509, 15.32418, 15.32204, 15.32068, 15.31904, 
  15.31588, 15.31461, 15.31147, 15.30878, 15.30073, 15.29092, 15.26068, 15.24863, 15.24503, 15.2442, 
  15.24884, 15.24644, 15.24598, 15.24768, 15.24453, 15.24209, 15.2394, 15.23509, 15.23575, 15.23021, 
  15.22698, 15.22503, 15.22288, 15.22176, 15.21521, 15.20996, 15.21439, 15.2119, 15.2083, 15.20565, 
  15.20548, 15.20374, 15.20022, 15.20515, 15.20639, 15.20267, 15.1849, 15.16982, 15.15052, 15.13996, 
  15.13581, 15.13039, 15.09762, 15.08543, 15.0786, 14.99032, 14.91204, 14.8685, 14.83324, 14.82917, 
  14.81581, 14.77, 14.72294, 14.70152, 14.69704, 14.69737, 14.69472, 14.67877, 14.67894, 14.66956, 
  14.6669, 14.66624, 14.66441, 14.66665, 14.66433, 14.65556, 14.63662, 14.63297, 14.62894, 14.6206, 
  14.61989, 14.61752, 14.61877, 14.61756, 14.61241, 14.60668, 14.60145, 14.58235, 14.58168, 14.57807, 
  14.57894, 14.57707, 14.57823, 14.57225, 14.56445, 14.54218, 14.5082, 14.44334, 14.43736, 14.43761, 
  14.42946, 14.42614, 14.42132, 14.39322, 14.38848, 14.38432, 14.37967, 14.3721, 14.33512, 14.28203, 
  14.28236, 14.27837, 14.27812, 14.27379, 14.26793, 14.25276, 14.24893, 14.24286, 14.23254, 14.22672, 
  14.22771, 14.22979, 14.22905, 14.22264, 14.21257, 14.19992, 14.17188, 14.13801, 14.13901, 14.13601, 
  14.13401, 14.13102, 14.12694, 14.12794, 14.12261, 14.09248, 14.05153, 14.02289, 14.02365, 14.02174, 
  14.01828, 14.01695, 14.00983, 14.00987, 14.00754, 13.99484, 13.99484, 13.99097, 13.98714, 13.98439, 
  13.98522, 13.9826, 13.97817, 13.97263, 13.96589, 13.9648, 13.96555, 13.96472, 13.96243, 13.96222, 
  13.9586, 13.95964, 13.95795, 13.95479, 13.95021, 13.94365, 13.93396, 13.9204, 13.90249, 13.89191, 
  13.88658, 13.88749, 13.89174, 13.89641, 13.89249, 13.88974, 13.886, 13.88491, 13.87691, 13.87766, 
  13.87275, 13.85475, 13.85258, 13.84108, 13.8355, 13.82775, 13.81708, 13.80483, 13.7739, 13.77015, 
  13.7669, 13.76381, 13.75364, 13.7624, 13.76006, 13.75689, 13.75839, 13.76165, 13.7679, 13.77148, 
  13.76773, 13.75706, 13.74522, 13.73597, 13.71404, 13.71204, 13.68835, 13.68744, 13.6846, 13.68168, 
  13.67084, 13.665, 13.65616, 13.65233, 13.65299, 13.64599, 13.64365, 13.62213, 13.59627, 13.57291, 
  13.57241, 13.57608, 13.57191, 13.5669, 13.56757, 13.55939, 13.54604, 13.53202, 13.53252, 13.52335, 
  13.50515, 13.51216, 13.50198, 13.48813, 13.46976, 13.46409, 13.47577, 13.46943, 13.46208, 13.46142, 
  13.46559, 13.4519, 13.44339, 13.44038, 13.41316, 13.41383, 13.40415, 13.40699, 13.41584, 13.415,
  13.41143, 13.42671, 13.43526, 13.43317, 13.44678, 13.44636, 13.45508, 13.46268, 13.46147, 13.47929, 
  13.48279, 13.49131, 13.49156, 13.48755, 13.4863, 13.48751, 13.47996, 13.47653, 13.47123, 13.46239, 
  13.45512, 13.44323, 13.43617, 13.43158, 13.43158, 13.42879, 13.42406, 13.42634, 13.42411, 13.42027, 
  13.41872, 13.41622, 13.41461, 13.41386, 13.41158, 13.40808, 13.40578, 13.40085, 13.39737, 13.39653, 
  13.39649, 13.39998, 13.40292, 13.40311, 13.40008, 13.39751, 13.39731, 13.39422, 13.3933, 13.38916, 
  13.38904, 13.39261, 13.3924, 13.3905, 13.38927, 13.39081, 13.3904, 13.38845, 13.38851, 13.38513, 
  13.37882, 13.36775, 13.36053, 13.35744, 13.36061, 13.36466, 13.36541, 13.36341, 13.36571, 13.36554, 
  13.36395, 13.36412, 13.36161, 13.35606, 13.35447, 13.35372, 13.35042, 13.34685, 13.34405, 13.34205, 
  13.34221, 13.34054, 13.33714, 13.33549, 13.33265, 13.33384, 13.3357, 13.33656, 13.33271, 13.32789, 
  13.32121, 13.30812, 13.28979, 13.2821, 13.27554, 13.27358, 13.2659, 13.25775, 13.25629, 13.25432, 
  13.25395, 13.25082, 13.25082, 13.2461, 13.24104, 13.23068, 13.23164, 13.23035, 13.22939, 13.22809, 
  13.22788, 13.22625, 13.22613, 13.22734, 13.22082, 13.2184, 13.20837, 13.195, 13.19337, 13.19245, 
  13.18919, 13.18894, 13.18719, 13.18685, 13.18748, 13.18247, 13.17854, 13.16575, 13.15823, 13.14908, 
  13.13566, 13.11076, 13.08736, 13.03468, 12.99672, 12.95607, 12.94628, 12.9421, 12.94059, 12.93569, 
  12.91863, 12.91319, 12.8993, 12.89696, 12.8983, 12.89754, 12.88784, 12.88039, 12.87956, 12.85956, 
  12.8542, 12.84776, 12.84818, 12.87102, 12.88123, 12.8809, 12.87772, 12.87746, 12.87479, 12.8737, 
  12.8665, 12.85922, 12.85437, 12.85152, 12.84349, 12.83621, 12.83646, 12.83194, 12.81864, 12.81788, 
  12.81445, 12.81085, 12.79713, 12.76925, 12.73367, 12.70161, 12.69993, 12.70353, 12.69382, 12.66845, 
  12.66837, 12.67188, 12.66333, 12.66819, 12.65856, 12.65309, 12.64945, 12.64744, 12.65058, 12.64689, 
  12.6389, 12.634, 12.63102, 12.62587, 12.61988, 12.59811, 12.59442, 12.5837, 12.57905, 12.56443, 
  12.5646, 12.57599, 12.57352, 12.57737, 12.57599, 12.57754, 12.585, 12.58537, 12.59065, 12.59501, 
  12.60322, 12.60523, 12.60229, 12.60782, 12.6059, 12.62137, 12.62992, 12.63494, 12.63352, 12.63879, 
  12.64022, 12.64214, 12.64742, 12.65002, 12.65328, 12.65404, 12.66224, 12.67187, 12.66894, 12.67539, 
  12.67723, 12.6855, 12.68634, 12.68253, 12.67172, 12.66858, 12.67089, 12.66967, 12.67193, 12.67445, 
  12.67394, 12.67206, 12.66979, 12.66753, 12.6587, 12.65581, 12.65401, 12.65497, 12.6538, 12.65208, 
  12.64689, 12.64203, 12.64685, 12.65053, 12.653, 12.65233, 12.65928, 12.66402, 12.66364, 12.66125, 
  12.65761, 12.65129, 12.66309, 12.66251, 12.66565, 12.66548, 12.67616, 12.67951, 12.69238, 12.69506, 
  12.68786, 12.68819, 12.69297, 12.70232, 12.704, 12.70819, 12.7117, 12.71673, 12.71765, 12.76478,
  12.78991, 12.79895, 12.79744, 12.79225, 12.76379, 12.76513, 12.75827, 12.70871, 12.69313, 12.68308, 
  12.66768, 12.65227, 12.64624, 12.65026, 12.64255, 12.62932, 12.62011, 12.61977, 12.60369, 12.59129, 
  12.57588, 12.56799, 12.56799, 12.58767, 12.59479, 12.58876, 12.58608, 12.57427, 12.57443, 12.56489, 
  12.54067, 12.52543, 12.52073, 12.51311, 12.50791, 12.508, 12.49384, 12.48596, 12.48998, 12.48884, 
  12.48662, 12.4849, 12.48406, 12.48704, 12.48901, 12.49454, 12.49471, 12.49764, 12.49709, 12.49839, 
  12.49676, 12.49538, 12.49286, 12.49223, 12.48886, 12.48659, 12.47958, 12.47163, 12.46819, 12.46618, 
  12.4609, 12.45638, 12.45026, 12.44305, 12.42821, 12.42268, 12.42469, 12.41824, 12.41539, 12.41832, 
  12.41304, 12.40709, 12.40759, 12.39854, 12.38823, 12.38873, 12.38454, 12.37775, 12.37272, 12.37775, 
  12.38446, 12.38496, 12.38722, 12.38999, 12.37993, 12.36743, 12.36533, 12.35695, 12.35494, 12.35196, 
  12.35225, 12.34575, 12.34919, 12.35351, 12.35628, 12.35862, 12.35674, 12.35846, 12.35774, 12.35917, 
  12.36156, 12.36185, 12.37187, 12.37187, 12.37485, 12.37673, 12.38072, 12.38281, 12.39618, 12.401, 
  12.40519, 12.40486, 12.40817, 12.41245, 12.4119, 12.41299, 12.41341, 12.41542, 12.41634, 12.42116, 
  12.42121, 12.42313, 12.42921, 12.43219, 12.43235, 12.43818, 12.44203, 12.44736, 12.44857, 12.44731, 
  12.45687, 12.45243, 12.44606, 12.44287, 12.43105, 12.43256, 12.42561, 12.42351, 12.41194, 12.40473, 
  12.40272, 12.40364, 12.40524, 12.39736, 12.39887, 12.38705, 12.37682, 12.36634, 12.36005, 12.35594, 
  12.34789, 12.34286, 12.33758, 12.33188, 12.32391, 12.32182, 12.30756, 12.30605, 12.29439, 12.29574, 
  12.28995, 12.2814, 12.2741, 12.27216, 12.27321, 12.26755, 12.2661, 12.2656, 12.26369, 12.25346, 
  12.24063, 12.23065, 12.21825, 12.21437, 12.21135, 12.21144, 12.20967, 12.20926, 12.202, 12.20204, 
  12.1991, 12.19399, 12.19436, 12.18887, 12.18664, 12.18453, 12.18224, 12.17886, 12.17681, 12.17567, 
  12.17484, 12.17502, 12.17326, 12.17207, 12.17133, 12.17316, 12.17299, 12.17133, 12.16768, 12.16766, 
  12.16586, 12.16563, 12.16378, 12.15606, 12.15086, 12.14028, 12.13961, 12.13294, 12.12283, 12.11775, 
  12.11788, 12.111, 12.09094, 12.06022, 12.01439, 11.98005, 11.9782, 11.97459, 11.97535, 11.97115, 
  11.95478, 11.95049, 11.95461, 11.9447, 11.94537, 11.93429, 11.93689, 11.929, 11.9169, 11.90179, 
  11.87827, 11.86181, 11.86517, 11.85206, 11.86584, 11.88079, 11.88079, 11.85576, 11.85097, 11.84526, 
  11.84047, 11.8369, 11.83434, 11.83033, 11.8297, 11.82287, 11.81737, 11.81355, 11.81323, 11.81481, 
  11.8121, 11.80998, 11.81002, 11.81145, 11.80859, 11.80603, 11.79615, 11.78578, 11.78691, 11.7796, 
  11.77767, 11.77528, 11.77477, 11.77354, 11.77302, 11.77161, 11.77133, 11.76877, 11.76488, 11.76445, 
  11.76035, 11.7586, 11.75871, 11.75781, 11.75703, 11.75803, 11.75562, 11.75451, 11.75623, 11.75623, 
  11.75438, 11.75397, 11.75523, 11.75695, 11.75597, 11.75427, 11.75248, 11.75158, 11.75163, 11.75096, 
  11.75086, 11.74957, 11.74896, 11.74722, 11.74705, 11.74638, 11.74556, 11.74546, 11.74728, 11.74845,
  11.74745, 11.7438, 11.74081, 11.73696, 11.72721, 11.72079, 11.72037, 11.71663, 11.71688, 11.71978, 
  11.71945, 11.71646, 11.7165, 11.71423, 11.71583, 11.71978, 11.72083, 11.72667, 11.72541, 11.71961, 
  11.71945, 11.71486, 11.71323, 11.71091, 11.70684, 11.70478, 11.69885, 11.69927, 11.69335, 11.68356, 
  11.67671, 11.67683, 11.62132, 11.62435, 11.61972, 11.59206, 11.5829, 11.5818, 11.57533, 11.56515, 
  11.57238, 11.57822, 11.57948, 11.58722, 11.58667, 11.58251, 11.58171, 11.58461, 11.58385, 11.58852, 
  11.5889, 11.58759, 11.58179, 11.57465, 11.5675, 11.56094, 11.5525, 11.54967, 11.54687, 11.5404, 
  11.54027, 11.53817, 11.53474, 11.53503, 11.52913, 11.52063, 11.50856, 11.49275, 11.46991, 11.45358, 
  11.44285, 11.43856, 11.42519, 11.4206, 11.41677, 11.41219, 11.4031, 11.40058, 11.39376, 11.38522, 
  11.3734, 11.37235, 11.37012, 11.37012, 11.36229, 11.35586, 11.35602, 11.35392, 11.3559, 11.35207, 
  11.34862, 11.34967, 11.33566, 11.32998, 11.3285, 11.32253, 11.31584, 11.31125, 11.30696, 11.31054, 
  11.30999, 11.31155, 11.31798, 11.32661, 11.33158, 11.33743, 11.33768, 11.33528, 11.33229, 11.33465, 
  11.32817, 11.32396, 11.31925, 11.32144, 11.31184, 11.3139, 11.31163, 11.30443, 11.30048, 11.2916, 
  11.28739, 11.28891, 11.28491, 11.27973, 11.26879, 11.25751, 11.24139, 11.23154, 11.22266, 11.21979, 
  11.21638, 11.20586, 11.18553, 11.18379, 11.17773, 11.17617, 11.17449, 11.17007, 11.16804, 11.16632, 
  11.16434, 11.16548, 11.16733, 11.17369, 11.17794, 11.18164, 11.19259, 11.19288, 11.19019, 11.19065, 
  11.18893, 11.18232, 11.1803, 11.17958, 11.17604, 11.17617, 11.18152, 11.1832, 11.18463, 11.18253, 
  11.17571, 11.16291, 11.16346, 11.15794, 11.1544, 11.15605, 11.15638, 11.15146, 11.15247, 11.13765, 
  11.11718, 11.08231, 11.0482, 11.03977, 11.04811, 11.04727, 11.04247, 11.02629, 11.02823, 11.03227, 
  11.0332, 11.03168, 11.0343, 11.03413, 11.02322, 11.01361, 10.9998, 10.96323, 10.95476, 10.95139, 
  10.95114, 10.95396, 10.95813, 10.96062, 10.95944, 10.95316, 10.94305, 10.92889, 10.92004, 10.91852, 
  10.91698, 10.91502, 10.91435, 10.91481, 10.91351, 10.91361, 10.91484, 10.91606, 10.91894, 10.92034, 
  10.92196, 10.92615, 10.93041, 10.93972, 10.94419, 10.95174, 10.9548, 10.95362, 10.94545, 10.94052, 
  10.93643, 10.93715, 10.93533, 10.93597, 10.92994, 10.93222, 10.93053, 10.93272, 10.93205, 10.92661, 
  10.91899, 10.91755, 10.91599, 10.91953, 10.91806, 10.91397, 10.90546, 10.88852, 10.8779, 10.86635, 
  10.82943, 10.8027, 10.74629, 10.73525, 10.7323, 10.72209, 10.70598, 10.69873, 10.70497, 10.70598,
  10.70052, 10.70499, 10.71638, 10.72101, 10.71958, 10.71208, 10.71224, 10.70389, 10.70599, 10.70637, 
  10.70237, 10.69229, 10.67504, 10.66226, 10.6564, 10.651, 10.64948, 10.64708, 10.64531, 10.64678, 
  10.64759, 10.64252, 10.63852, 10.63632, 10.63101, 10.63278, 10.63098, 10.62881, 10.62558, 10.61926, 
  10.60905, 10.60909, 10.59888, 10.59254, 10.57621, 10.57339, 10.57516, 10.56533, 10.55993, 10.55132, 
  10.54276, 10.54002, 10.53094, 10.52732, 10.50305, 10.50107, 10.49748, 10.49896, 10.49867, 10.49314, 
  10.46887, 10.46786, 10.47027, 10.4663, 10.4682, 10.46828, 10.4663, 10.45381, 10.44735, 10.45144, 
  10.44883, 10.42034, 10.39632, 10.39531, 10.38024, 10.37944, 10.3807, 10.38058, 10.37716, 10.40172, 
  10.40578, 10.40535, 10.39966, 10.4008, 10.39894, 10.39345, 10.39071, 10.38758, 10.38467, 10.37151, 
  10.35631, 10.33824, 10.32321, 10.3206, 10.3246, 10.33005, 10.33081, 10.3363, 10.33993, 10.34196, 
  10.34635, 10.35513, 10.35986, 10.36763, 10.37396, 10.38071, 10.3873, 10.38688, 10.38037, 10.38054, 
  10.38477, 10.38637, 10.38991, 10.39203, 10.38797, 10.39059, 10.39321, 10.3965, 10.40359, 10.40891, 
  10.4117, 10.40587, 10.41296, 10.41701, 10.43618, 10.43398, 10.43542, 10.43347, 10.43601, 10.43094, 
  10.43297, 10.43255, 10.44225, 10.44951, 10.45348, 10.45711, 10.46082, 10.46614, 10.47424, 10.47652, 
  10.47509, 10.46893, 10.4739, 10.47888, 10.48547, 10.48901, 10.49306, 10.49509, 10.495, 10.50175, 
  10.50267, 10.50749, 10.51938, 10.51947, 10.51373, 10.51221, 10.51407, 10.51052, 10.5009, 10.48892, 
  10.4863, 10.47719, 10.46284, 10.469, 10.46849, 10.47052, 10.47229, 10.46554, 10.46183, 10.45541, 
  10.44604, 10.43549, 10.43271, 10.42612, 10.4208, 10.41574, 10.41768, 10.41574, 10.40713, 10.39278, 
  10.38146, 10.38273, 10.37893, 10.37682, 10.37623, 10.37766, 10.38391, 10.39624, 10.40848, 10.41017, 
  10.40552, 10.39615, 10.37538, 10.29199, 10.26697, 10.25995, 10.24373, 10.23385, 10.22853, 10.21155, 
  10.20513, 10.20065, 10.20259, 10.20994, 10.2118, 10.21585, 10.20284, 10.18637, 10.17116, 10.14818, 
  10.12909, 10.11861, 10.09411, 10.04036, 10.02498, 10.01602, 9.99573, 9.99032, 9.98525, 9.97156, 
  9.9418, 9.92979, 9.88295, 9.83746, 9.80938, 9.79432, 9.7928, 9.74425, 9.73681, 9.69721, 
  9.69518, 9.61835, 9.57705, 9.55132, 9.53304, 9.52864, 9.53643, 9.52762, 9.54963, 9.59263, 
  9.57638, 9.54794, 9.50968, 9.49207, 9.49038, 9.49816, 9.49105, 9.45448, 9.424, 9.41519, 
  9.3776, 9.32949, 9.32644, 9.2641, 9.22581, 9.21666, 9.11633, 9.07803, 9.04887, 8.99903, 
  8.88304, 8.83758, 8.77617, 8.74326, 8.69643, 8.68014, 8.67414, 8.66107, 8.63816, 8.62164, 
  8.60416, 8.58889, 8.58328, 8.56258, 8.57089, 8.57785, 8.59788, 8.60671, 8.63349, 8.64893, 
  8.65623, 8.64604, 8.65419, 8.69407, 8.71732, 8.72529, 8.74684, 8.78196, 8.7884, 8.80773, 
  8.8096, 8.80078, 8.77516, 8.77228, 8.77618, 8.80587, 8.82318, 8.9136, 9.18488, 9.52973,
  9.67273, 9.83109, 9.84721, 9.85398, 9.85212, 9.85837, 9.9064, 9.93785, 9.94901, 9.94834, 
  9.93413, 9.93599, 9.94867, 10.00852, 10.019, 10.02543, 10.09726, 10.09777, 10.08628, 10.08763, 
  10.14644, 10.19882, 10.22112, 10.22787, 10.20186, 10.15641, 10.14335, 10.14095, 10.13727, 10.1363, 
  10.14124, 10.14471, 10.14285, 10.14458, 10.14838, 10.14661, 10.14614, 10.14331, 10.14238, 10.14445, 
  10.14318, 10.14509, 10.14652, 10.14749, 10.15066, 10.15092, 10.15814, 10.16042, 10.1641, 10.16587, 
  10.17073, 10.17411, 10.17884, 10.18255, 10.18315, 10.18146, 10.1834, 10.18783, 10.18703, 10.18859, 
  10.19447, 10.197, 10.1954, 10.19856, 10.2008, 10.206, 10.20384, 10.20874, 10.21162, 10.21247, 
  10.22296, 10.22376, 10.22484, 10.22638, 10.22877, 10.23261, 10.23246, 10.23453, 10.2355, 10.23757, 
  10.2403, 10.24241, 10.24372, 10.24499, 10.24667, 10.25001, 10.26642, 10.27685, 10.28565, 10.29011, 
  10.29196, 10.29089, 10.28924, 10.28774, 10.28702, 10.28151, 10.27794, 10.27706, 10.27928, 10.28295, 
  10.2892, 10.3002, 10.30104, 10.30488, 10.30784, 10.309, 10.32221, 10.34036, 10.36118, 10.36565, 
  10.36042, 10.36603, 10.3727, 10.37726, 10.37519, 10.37663, 10.3689, 10.36954, 10.36666, 10.36679, 
  10.36455, 10.36742, 10.37422, 10.38942, 10.39368, 10.4001, 10.40744, 10.41723, 10.41998, 10.42256,
  10.04164, 11.94108, 15.80005, 18.88293, 21.02858)
LONGITUDE_VALUEs <- c(
  102.14721, 102.1453, 102.1488, 102.1495, 102.1519, 102.1555, 102.154, 102.1581, 102.1591, 
  102.1703, 102.1753, 102.1802, 102.1871, 102.2064, 102.2121, 102.2225, 102.2251, 102.229, 102.2313, 
  102.2338, 102.2385, 102.246, 102.2492, 102.2562, 102.2626, 102.2664, 102.2665, 102.2689, 102.2661, 
  102.2667, 102.2579, 102.2571, 102.2489, 102.2491, 102.2589, 102.263, 102.2651, 102.2653, 102.2672, 
  102.2723, 102.2749, 102.2775, 102.276, 102.276, 102.2752, 102.2767, 102.2764, 102.2778, 102.2781, 
  102.2801, 102.2799, 102.2805, 102.2818, 102.2824, 102.2864, 102.289, 102.2895, 102.2883, 102.2907, 
  102.2899, 102.2932, 102.2944, 102.2935, 102.2949, 102.2941, 102.2945, 102.2964, 102.2978, 102.2967, 
  102.2975, 102.2992, 102.3006, 102.3002, 102.3022, 102.3043, 102.3056, 102.3075, 102.3096, 102.3107, 
  102.3107, 102.3176, 102.3224, 102.321, 102.3366, 102.3551, 102.3548, 102.3457, 102.3477, 102.3531, 
  102.3562, 102.363, 102.3721, 102.3875, 102.3885, 102.4041, 102.4186, 102.417, 102.4121, 102.409, 
  102.4035, 102.4006, 102.397, 102.3871, 102.3829, 102.3846, 102.3907, 102.395, 102.408, 102.4138, 
  102.4143, 102.4195, 102.4228, 102.4258, 102.4356, 102.437, 102.4392, 102.4421, 102.4409, 102.4447, 
  102.4565, 102.4549, 102.4503, 102.4529, 102.4515, 102.4601, 102.4701, 102.4792, 102.4813, 102.4953, 
  102.5083, 102.5122, 102.5166, 102.5262, 102.5316, 102.5406, 102.5418, 102.5507, 102.5493, 102.5559, 
  102.5606, 102.5666, 102.5669, 102.57, 102.5689, 102.5698, 102.5765, 102.5853, 102.5883, 102.5913, 
  102.5947, 102.5962, 102.5993, 102.5998, 102.6024, 102.6083, 102.6098, 102.6125, 102.618, 102.6206, 
  102.6316, 102.6532, 102.6562, 102.6715, 102.6837, 102.6889, 102.7089, 102.7105, 102.7262, 102.7264, 
  102.7362, 102.751, 102.7657, 102.7742, 102.7778, 102.7882, 102.7841, 102.7899, 102.8193, 102.825, 
  102.8458, 102.848, 102.8638, 102.8698, 102.8755, 102.8843, 102.8754, 102.8848, 102.8805, 102.898, 
  102.8928, 102.9098, 102.9116, 102.9239, 102.9251, 102.9325, 102.9376, 102.9522, 102.9522, 102.9578, 
  102.9651, 102.9847, 102.9886, 102.9885, 102.9913, 102.9928, 102.9913, 103.0318, 103.0358, 103.0537, 
  103.0566, 103.069, 103.0805, 103.08, 103.0708, 103.0746, 103.0719, 103.0885, 103.1033, 103.1229, 
  103.1244, 103.1478, 103.1582, 103.1833, 103.1622, 103.1579, 103.1599, 103.1624, 103.1623, 103.1648, 
  103.1638, 103.1661, 103.1652, 103.1685, 103.1763, 103.176, 103.1814, 103.1847, 103.1834, 103.1853, 
  103.1852, 103.1965, 103.2085, 103.2279, 103.2319, 103.2355, 103.2368, 103.2393, 103.2411, 103.2516, 
  103.2515, 103.2618, 103.2649, 103.2694, 103.2838, 103.2821, 103.2845, 103.2885, 103.2891, 103.2858, 
  103.2886, 103.3202, 103.318, 103.3221, 103.3276, 103.3344, 103.3723, 103.3904, 103.4092, 103.4172, 
  103.4161, 103.4404, 103.4432, 103.429, 103.4286, 103.4622, 103.4563, 103.4654, 103.4648, 103.4826, 
  103.489, 103.5091, 103.5085, 103.5307, 103.5468, 103.5448, 103.5539, 103.5715, 103.5793, 103.5674, 
  103.5632, 103.6206, 103.6187, 103.6461, 103.6635, 103.6665, 103.6821, 103.6846, 103.7023, 103.7398, 
  103.7383, 103.7478, 103.7521, 103.7679, 103.787, 103.7944, 103.8164, 103.8246, 103.84, 103.8474, 
  103.8639, 103.8756, 103.8835, 103.8871, 103.9158, 103.9134, 103.9189, 103.927, 103.9327, 103.9451, 
  103.9515, 103.9638, 103.9695, 103.9764, 103.9908, 104.0059, 104.0123, 104.0057, 104.0152, 104.0099, 
  104.0294, 104.0385, 104.028, 104.0454, 104.0661, 104.0887, 104.0948, 104.1151, 104.1299, 104.1333, 
  104.1846, 104.222, 104.2438, 104.2519, 104.2576, 104.2682, 104.2682, 104.255, 104.2711, 104.2698, 
  104.2814, 104.3059, 104.32, 104.3405, 104.3528, 104.3775, 104.3859, 104.3999, 104.4086, 104.5185, 
  104.5301, 104.554, 104.5456, 104.5463, 104.5698, 104.5769, 104.5916, 104.6048, 104.5973, 104.6151, 
  104.6228, 104.618, 104.6235, 104.6297, 104.6579, 104.673, 104.7028, 104.7265, 104.736, 104.7343, 
  104.7265, 104.7354, 104.7567, 104.7732, 104.8271, 104.839, 104.8452, 104.8639, 104.8604, 104.8355, 
  104.8369, 104.8294, 104.8149, 104.8055, 104.8012, 104.8223, 104.8251, 104.8599, 104.8759, 104.8833, 
  104.8984, 104.9102, 104.9306, 104.9476, 104.9511, 104.9639, 104.9796, 104.9871, 104.9969, 105.0012, 
  105.028, 105.0616, 105.0825, 105.1028, 105.0987, 105.1194, 105.1258, 105.1354, 105.1594, 105.1727, 
  105.1806, 105.1828, 105.1965, 105.2036, 105.2076, 105.212, 105.2215, 105.2283, 105.2351, 105.2404, 
  105.2348, 105.2347, 105.2457, 105.2508, 105.2572, 105.2585, 105.2549, 105.2545, 105.2501, 105.2562, 
  105.267, 105.2733, 105.284, 105.2881, 105.293, 105.3078, 105.3127, 105.323, 105.3512, 105.3513, 
  105.3733, 105.3834, 105.3865, 105.4029, 105.42, 105.4299, 105.4265, 105.431, 105.4348, 105.4349, 
  105.4415, 105.4509, 105.4625, 105.4918, 105.4988, 105.5267, 105.5425, 105.5541, 105.5594, 105.5738,
  105.5714, 105.5633, 105.5654, 105.5592, 105.5661, 105.5607, 105.5798, 105.6023, 105.6188, 105.6334, 
  105.6462, 105.6795, 105.7219, 105.7326, 105.7815, 105.7915, 105.8117, 105.8251, 105.8366, 105.841, 
  105.8548, 105.8462, 105.872, 105.8701, 105.8769, 105.8865, 105.8829, 105.8898, 105.9255, 105.9465, 
  105.9607, 105.9971, 106.0052, 106.0014, 106.0634, 106.0828, 106.1178, 106.1387, 106.1715, 106.2007, 
  106.2644, 106.251, 106.264, 106.2573, 106.2874, 106.2936, 106.3099, 106.3277, 106.349, 106.3638, 
  106.3658, 106.3887, 106.4148, 106.4097, 106.4226, 106.4294, 106.4447, 106.4473, 106.454, 106.4624, 
  106.4761, 106.4862, 106.5008, 106.5006, 106.5139, 106.5263, 106.5302, 106.5424, 106.5437, 106.5666, 
  106.5726, 106.5815, 106.5898, 106.6052, 106.6098, 106.6193, 106.6304, 106.6291, 106.6328, 106.6346, 
  106.639, 106.6407, 106.6363, 106.6438, 106.6483, 106.6534, 106.666, 106.6663, 106.6696, 106.6781, 
  106.6766, 106.68, 106.6908, 106.7066, 106.7125, 106.717, 106.7168, 106.7066, 106.769, 106.765, 
  106.7741, 106.7916, 106.8073, 106.8211, 106.8235, 106.8279, 106.83, 106.8379, 106.8314, 106.8328, 
  106.8218, 106.8239, 106.8179, 106.7856, 106.788, 106.7602, 106.7781, 106.7527, 106.7606, 106.7554, 
  106.7396, 106.7223, 106.7293, 106.7236, 106.714, 106.7175, 106.7297, 106.7284, 106.7089, 106.6927, 
  106.6493, 106.6308, 106.6105, 106.6014, 106.6045, 106.5824, 106.5842, 106.5758, 106.5726, 106.5569, 
  106.5676, 106.5606, 106.5769, 106.5868, 106.5832, 106.5612, 106.5606, 106.5712, 106.5762, 106.583, 
  106.5896, 106.6021, 106.6143, 106.6206, 106.6383, 106.6487, 106.6593, 106.6565, 106.6682, 106.6666, 
  106.6907, 106.684, 106.7001, 106.6965, 106.6804, 106.672, 106.6852, 106.7048, 106.7066, 106.6972, 
  106.6917, 106.6989, 106.7099, 106.7121, 106.7054, 106.7065, 106.6959, 106.7093, 106.6835, 106.6825, 
  106.6937, 106.6902, 106.6987, 106.7081, 106.716, 106.7278, 106.7379, 106.7672, 106.7851, 106.7896, 
  106.7957, 106.7993, 106.8045, 106.8045, 106.82, 106.8332, 106.8347, 106.8402, 106.846, 106.8528, 
  106.8571, 106.8616, 106.863, 106.868, 106.8744, 106.88, 106.9037, 106.9137, 106.9192, 106.9241, 
  106.9215, 106.9295, 106.9297, 106.954, 106.9535, 106.9621, 106.9808, 106.9858, 106.9893, 106.9874, 
  106.9906, 107.0006, 107.0171, 107.0251, 107.0264, 107.0355, 107.0398, 107.0491, 107.0572, 107.0633, 
  107.0532, 107.0172, 107.0038, 107.0052, 107.0185, 107.0304, 107.0858, 107.102, 107.1128, 107.1264, 
  107.1343, 107.1389, 107.1607, 107.1634, 107.1725, 107.1906, 107.1931, 107.1983, 107.1978, 107.2227,
  107.248, 107.2504, 107.2656, 107.2805, 107.2818, 107.2878, 107.2885, 107.2963, 107.3009, 107.3046, 
  107.3061, 107.3084, 107.3135, 107.3137, 107.322, 107.3198, 107.3253, 107.3348, 107.3359, 107.3388, 
  107.3443, 107.3488, 107.3447, 107.3467, 107.352, 107.3598, 107.3622, 107.3543, 107.3558, 107.3595, 
  107.3602, 107.3571, 107.3621, 107.3644, 107.3692, 107.3826, 107.3972, 107.3946, 107.4174, 107.4167, 
  107.4412, 107.4648, 107.4816, 107.481, 107.4844, 107.4847, 107.4889, 107.4931, 107.4975, 107.4931, 
  107.4827, 107.4906, 107.4931, 107.4957, 107.4995, 107.5049, 107.5201, 107.524, 107.5317, 107.5332, 
  107.5376, 107.5392, 107.543, 107.5482, 107.5483, 107.5504, 107.5513, 107.5544, 107.5549, 107.56, 
  107.5691, 107.5725, 107.5777, 107.5801, 107.582, 107.5851, 107.5863, 107.5896, 107.59, 107.5921, 
  107.5928, 107.5938, 107.6032, 107.6121, 107.623, 107.6311, 107.652, 107.6606, 107.6651, 107.6659, 
  107.6672, 107.6692, 107.676, 107.6786, 107.682, 107.6852, 107.6884, 107.6891, 107.6907, 107.6924, 
  107.6954, 107.6988, 107.7137, 107.7168, 107.7177, 107.7201, 107.7217, 107.732, 107.7412, 107.7533, 
  107.7646, 107.7716, 107.7734, 107.7797, 107.7823, 107.7881, 107.7974, 107.8037, 107.8047, 107.81, 
  107.8154, 107.8227, 107.8267, 107.8306, 107.8341, 107.8386, 107.8423, 107.8453, 107.8453, 107.8536, 
  107.8566, 107.8591, 107.8603, 107.8602, 107.8648, 107.8672, 107.8719, 107.8711, 107.8731, 107.8782, 
  107.879, 107.8841, 107.8886, 107.8854, 107.891, 107.8902, 107.8832, 107.884, 107.8926, 107.893, 
  107.8904, 107.8997, 107.8991, 107.9031, 107.9044, 107.9161, 107.9243, 107.9297, 107.9432, 107.9424, 
  107.953, 107.9676, 107.9708, 107.9756, 107.9791, 107.9859, 107.9926, 108.0069, 108.0094, 108.0229, 
  108.0349, 108.0365,
  108.0374, 108.0387, 108.0412, 108.0466, 108.0481, 108.0475, 108.043, 108.0411, 108.0417, 108.0467, 
  108.0493, 108.0469, 108.0449, 108.041, 108.0381, 108.0331, 108.0306, 108.0335, 108.0378, 108.0353, 
  108.0353, 108.038, 108.0403, 108.04, 108.0261, 108.0255, 108.0359, 108.0378, 108.0388, 108.0446, 
  108.0455, 108.0472, 108.0454, 108.05, 108.0546, 108.0531, 108.0435, 108.0438, 108.039, 108.0336, 
  108.0241, 108.0183, 108.02, 108.028, 108.0467, 108.0623, 108.0706, 108.0763, 108.0755, 108.0764, 
  108.0748, 108.0742, 108.0682, 108.0646, 108.0525, 108.0361, 108.0195, 108.007, 107.9962, 107.9849, 
  107.9774, 107.9748, 107.9691, 107.9652, 107.9693, 107.9715, 107.971, 107.9675, 107.9718, 107.9758, 
  107.976, 107.98, 107.9897, 107.9878, 107.9861, 107.9794, 107.9777, 107.9762, 107.9723, 107.9724, 
  107.969, 107.9688, 107.9672, 107.9678, 107.9656, 107.9626, 107.9553, 107.9518, 107.9513, 107.9554, 
  107.9575, 107.9592, 107.954, 107.9515, 107.9437, 107.9358, 107.9335, 107.9435, 107.942, 107.9303, 
  107.9098, 107.9158, 107.9117, 107.9304, 107.9337, 107.9338, 107.9239, 107.9251, 107.9221, 107.9233, 
  107.9215, 107.9188, 107.9197, 107.9157, 107.9067, 107.9047, 107.9004, 107.8982, 107.8877, 107.888, 
  107.8915, 107.8903, 107.8913, 107.8841, 107.8868, 107.8889, 107.8903, 107.8896, 107.8903, 107.8883, 
  107.8791, 107.8741, 107.8714, 107.8722, 107.8661, 107.8665, 107.865, 107.8603, 107.8598, 107.8629, 
  107.8631, 107.852, 107.8495, 107.85, 107.8475, 107.8465, 107.8444, 107.8444, 107.8363, 107.8353, 
  107.831, 107.8316, 107.8333, 107.834, 107.8269, 107.8263, 107.8239, 107.822, 107.8231, 107.8227, 
  107.8199, 107.8189, 107.8168, 107.8135, 107.8161, 107.8151, 107.8117, 107.808, 107.8003, 107.7937, 
  107.7938, 107.789, 107.7873, 107.7806, 107.7776, 107.773, 107.7764, 107.7584, 107.7548, 107.7552, 
  107.7615, 107.7632, 107.7693, 107.7733, 107.782, 107.7803, 107.785, 107.7886, 107.7922, 107.7886, 
  107.7883, 107.7939, 107.7951, 107.7929, 107.799, 107.798, 107.7985, 107.7969, 107.7963, 107.7937, 
  107.7842, 107.7861, 107.7829, 107.7833, 107.7814, 107.7786, 107.7689, 107.7633, 107.7655, 107.7614, 
  107.7619, 107.7601, 107.76, 107.7523, 107.752, 107.757, 107.757, 107.7591, 107.7568, 107.7537,
  107.754, 107.7342, 107.7285, 107.7275, 107.7307, 107.7294, 107.7291, 107.7251, 107.7234, 107.7211, 
  107.711, 107.7086, 107.7151, 107.7121, 107.7079, 107.703, 107.6939, 107.6885, 107.6857, 107.6891, 
  107.686, 107.6817, 107.681, 107.6786, 107.6769, 107.6713, 107.6667, 107.6669, 107.6699, 107.6674, 
  107.6653, 107.6597, 107.6607, 107.6625, 107.6625, 107.6669, 107.6683, 107.6712, 107.674, 107.6719, 
  107.674, 107.673, 107.6734, 107.6655, 107.6592, 107.657, 107.6468, 107.6458, 107.6406, 107.6351, 
  107.6402, 107.6407, 107.6346, 107.6313, 107.6347, 107.6341, 107.6289, 107.6301, 107.6278, 107.63, 
  107.6269, 107.622, 107.6141, 107.6172, 107.6169, 107.6135, 107.6105, 107.6128, 107.6107, 107.6065, 
  107.6012, 107.6023, 107.599, 107.5978, 107.6037, 107.6039, 107.6088, 107.6085, 107.6053, 107.6041, 
  107.5952, 107.5955, 107.5922, 107.584, 107.5699, 107.5708, 107.5624, 107.5648, 107.5631, 107.5496, 
  107.5494, 107.542, 107.5415, 107.5336, 107.5315, 107.527, 107.5237, 107.5167, 107.5105, 107.5046, 
  107.5034, 107.508, 107.513, 107.5055, 107.4962, 107.4868, 107.4862, 107.481, 107.4775, 107.4734, 
  107.4665, 107.4673, 107.4495, 107.4527, 107.4648, 107.4743, 107.4863, 107.5268, 107.5351, 107.551, 
  107.5649, 107.5838, 107.5957, 107.6118, 107.6051, 107.5976, 107.593, 107.5873, 107.5833, 107.5739, 
  107.5632, 107.4863, 107.4871, 107.4708, 107.4715, 107.452, 107.4475, 107.4395, 107.4434, 107.4266, 
  107.4219, 107.3952, 107.3819, 107.3806, 107.3746, 107.3763, 107.3713, 107.3725, 107.3655, 107.3684, 
  107.3564, 107.3465, 107.3288, 107.3053, 107.3024, 107.2934, 107.2937, 107.2728, 107.2529, 107.2223, 
  107.222, 107.2025, 107.1893, 107.1795, 107.1729, 107.164, 107.1581, 107.1399, 107.128, 107.1115, 
  107.096, 107.0844, 107.079, 107.0714, 107.0661, 107.0609, 107.0541, 107.0556, 107.0339, 107.0285, 
  107.0262, 107.0067, 106.9857, 106.9689, 106.9437, 106.9353, 106.9324, 106.9265, 106.9171, 106.9154, 
  106.9178, 106.9259, 106.9259, 106.9293, 106.9297, 106.9257, 106.9273, 106.9398, 106.9402, 106.9469, 
  106.9458, 106.9355, 106.9306, 106.9192, 106.9116, 106.9066, 106.8953, 106.8877, 106.8871, 106.8721, 
  106.8681, 106.8702, 106.8508, 106.8646, 106.8705, 106.8809, 106.8833, 106.8904, 106.8942, 106.9039, 
  106.9173, 106.9106, 106.8992, 106.8776, 106.8776, 106.8577, 106.8471, 106.8158, 106.8153, 106.7755, 
  106.7679, 106.7536, 106.7552, 106.7695, 106.7868, 106.8019, 106.7913, 106.7932, 106.7934, 106.7977, 
  106.7985, 106.7957, 106.7964, 106.8039, 106.8106, 106.8058, 106.8003, 106.7866, 106.7845, 106.7846, 
  106.7811, 106.7823, 106.7773, 106.7646, 106.7661, 106.741, 106.7351, 106.7212, 106.7121, 106.7043,
  106.7041, 106.7007, 106.7035, 106.7026, 106.698, 106.6999, 106.6843, 106.6933, 106.6725, 106.6658, 
  106.656, 106.6383, 106.637, 106.6268, 106.6258, 106.6111, 106.6068, 106.5958, 106.5798, 106.5827, 
  106.5827, 106.5856, 106.5782, 106.579, 106.5759, 106.5833, 106.5883, 106.5982, 106.6005, 106.5957, 
  106.5984, 106.5942, 106.5964, 106.5967, 106.6074, 106.585, 106.5784, 106.5864, 106.5851, 106.5902, 
  106.5975, 106.5989, 106.6056, 106.609, 106.6038, 106.5956, 106.5814, 106.5852, 106.5811, 106.5631, 
  106.5517, 106.5487, 106.5391, 106.542, 106.5293, 106.5212, 106.4936, 106.4373, 106.4282, 106.4107, 
  106.3571, 106.1479, 106.1223, 106.0991, 106.0909, 106.0253, 105.9671, 105.9527, 105.9493, 105.9656, 
  105.9453, 105.9316, 105.9333, 105.9397, 105.9299, 105.933, 105.9173, 105.8967, 105.8858, 105.8835, 
  105.8748, 105.8578, 105.8272, 105.8096, 105.8073, 105.8133, 105.8042, 105.7943, 105.7931, 105.7846, 
  105.7871, 105.8036, 105.8142, 105.8157, 105.8205, 105.8248, 105.8241, 105.8284, 105.8269, 105.8222, 
  105.8157, 105.8018, 105.8061, 105.8003, 105.7929, 105.786, 105.7763, 105.7699, 105.7669, 105.7654, 
  105.7615, 105.7576, 105.7567, 105.7489, 105.7378, 105.7304, 105.7321, 105.7299, 105.7308, 105.7382, 
  105.73, 105.7252, 105.7175, 105.7118, 105.7099, 105.7069, 105.6999, 105.6962, 105.6912, 105.6899, 
  105.6879, 105.6871, 105.684, 105.6832, 105.6741, 105.6621, 105.6524, 105.6398, 105.6266, 105.6204, 
  105.6188, 105.6176, 105.615, 105.618, 105.6194, 105.6221, 105.6364, 105.6505, 105.6506, 105.657, 
  105.6603, 105.6647, 105.668, 105.6743, 105.6792, 105.6848, 105.6914, 105.7014, 105.7027, 105.7073, 
  105.7081, 105.7115, 105.7169, 105.7198, 105.7153, 105.7154, 105.7209, 105.7172, 105.7258, 105.7483, 
  105.7769, 105.7996, 105.8368, 105.9234, 105.9271, 105.9359, 105.9391, 105.9391, 105.942, 105.9436, 
  105.9389, 105.9864, 106.0586, 106.1027, 106.1128, 106.1158, 106.1269, 106.1337, 106.1404, 106.1457, 
  106.1501, 106.1536, 106.1605, 106.1861, 106.1956, 106.1989, 106.2018, 106.2103, 106.2135, 106.2217, 
  106.2291, 106.2359, 106.238, 106.2526, 106.3063, 106.3561, 106.3574, 106.38, 106.382, 106.396, 
  106.4043, 106.4102, 106.417, 106.4215, 106.4218, 106.4354, 106.4336, 106.4209, 106.4236, 106.4205,
  106.444, 106.4496, 106.4528, 106.4464, 106.4601, 106.4787, 106.4827, 106.4816, 106.4952, 106.5054, 
  106.5109, 106.5056, 106.5052, 106.5083, 106.5116, 106.5144, 106.5163, 106.5218, 106.5243, 106.5239, 
  106.5256, 106.5263, 106.5303, 106.5302, 106.5328, 106.5335, 106.535, 106.5353, 106.5336, 106.5286, 
  106.5261, 106.5273, 106.5276, 106.5215, 106.5189, 106.5158, 106.5079, 106.5034, 106.5016, 106.4967, 
  106.4852, 106.4796, 106.4725, 106.469, 106.4683, 106.4647, 106.4596, 106.4534, 106.4476, 106.4453, 
  106.4444, 106.4467, 106.4587, 106.4754, 106.4873, 106.4892, 106.4963, 106.5005, 106.5138, 106.5163, 
  106.5275, 106.5416, 106.5452, 106.5479, 106.5663, 106.5952, 106.6263, 106.6288, 106.6335, 106.635, 
  106.6611, 106.7087, 106.7928, 106.9708, 107.0457, 107.1169, 107.1149, 107.1169, 107.1127, 107.1157, 
  107.1106, 107.1123, 107.127, 107.2139, 107.3277, 107.4385, 107.5232, 107.5912, 107.6321, 107.6935, 
  107.7519, 107.8185, 107.8863, 107.902, 107.9047, 107.919, 107.9242, 107.9329, 107.9427, 107.9466, 
  107.9526, 107.9549, 107.9548, 107.9674, 107.9856, 108.005, 108.0215, 108.0217, 108.0182, 108.0166, 
  108.0204, 108.0289, 108.0343, 108.0342, 108.0425, 108.0378, 108.0398, 108.0912, 108.0927, 108.1068, 
  108.1093, 108.1189, 108.1257, 108.1344, 108.1408, 108.1477, 108.1703, 108.1748, 108.1817, 108.1816, 
  108.1851, 108.195, 108.1943, 108.1864, 108.1766, 108.1747, 108.1549, 108.1516, 108.1541, 108.1502, 
  108.145, 108.1391, 108.1363, 108.1394, 108.1342, 108.127, 108.1234, 108.1252, 108.1327, 108.1312, 
  108.1393, 108.1597, 108.1803, 108.1962, 108.2026, 108.2075, 108.207, 108.2128, 108.2147, 108.2249, 
  108.2274, 108.2288, 108.2342, 108.2368, 108.2425, 108.2398, 108.2343, 108.2211, 108.2182, 108.2117, 
  108.2148, 108.2205, 108.2215, 108.2318, 108.2301, 108.2399, 108.2458, 108.2592, 108.2718, 108.2863, 
  108.3058, 108.3105, 108.3098, 108.3153, 108.3239, 108.3395, 108.3318, 108.3277, 108.3204, 108.316, 
  108.311, 108.3093, 108.3101, 108.3056, 108.3, 108.2994, 108.291, 108.2788, 108.2722, 108.2684, 
  108.2634, 108.2564, 108.2492, 108.2466, 108.2559, 108.2865, 108.3149, 108.3599, 108.3804, 108.3907, 
  108.3905, 108.3953, 108.3983, 108.4047, 108.4046, 108.4106, 108.4203, 108.4518, 108.5536, 108.6205, 
  108.6483, 108.667, 108.6756, 108.6732, 108.6827, 108.6816, 108.6792, 108.6732, 108.6765, 108.6886, 
  108.6923, 108.6922, 108.7017, 108.6985, 108.6962, 108.7099, 108.748, 108.7673, 108.794, 108.7951, 
  108.7993, 108.8028, 108.8082, 108.7951, 108.7961, 108.7989, 108.7985, 108.808, 108.8136, 108.8194, 
  108.8243, 108.8284, 108.8219, 108.8242, 108.8325, 108.8269, 108.8435, 108.8517, 108.8611, 108.8617, 
  108.8658, 108.8675, 108.8705, 108.8701, 108.8644, 108.8638, 108.8671, 108.8706, 108.8727, 108.8787,
  108.882, 108.8829, 108.8823, 108.8828, 108.8818, 108.8813, 108.88, 108.8811, 108.8807, 108.8809, 
  108.8785, 108.876, 108.8754, 108.8726, 108.8698, 108.874, 108.8962, 108.9095, 108.917, 108.9218, 
  108.927, 108.9298, 108.9339, 108.9364, 108.937, 108.9406, 108.9399, 108.9418, 108.9437, 108.9402, 
  108.941, 108.9368, 108.9364, 108.9377, 108.9342, 108.9276, 108.9215, 108.9148, 108.918, 108.9181, 
  108.9225, 108.9225, 108.9171, 108.9153, 108.9101, 108.9023, 108.8951, 108.8957, 108.8986, 108.897, 
  108.8985, 108.8976, 108.9041, 108.9029, 108.9035, 108.9284, 108.9586, 108.979, 108.9979, 109.0007, 
  109.0052, 109.0336, 109.0636, 109.0781, 109.0775, 109.0754, 109.0739, 109.0805, 109.0828, 109.0835, 
  109.0824, 109.0786, 109.0759, 109.0734, 109.068, 109.065, 109.0675, 109.0712, 109.0698, 109.0716, 
  109.0732, 109.074, 109.0724, 109.0707, 109.0703, 109.0734, 109.0723, 109.08, 109.0822, 109.0818, 
  109.0789, 109.0758, 109.0716, 109.0678, 109.067, 109.0738, 109.0887, 109.1239, 109.1228, 109.1188, 
  109.1184, 109.1154, 109.1157, 109.1277, 109.1221, 109.1242, 109.1208, 109.123, 109.1439, 109.1827, 
  109.1861, 109.1846, 109.1803, 109.1782, 109.18, 109.1893, 109.1944, 109.1944, 109.1986, 109.1938, 
  109.191, 109.19, 109.185, 109.1816, 109.1815, 109.1852, 109.1987, 109.2215, 109.227, 109.2276, 
  109.2249, 109.2255, 109.217, 109.2099, 109.2061, 109.2111, 109.2315, 109.2488, 109.2513, 109.2526, 
  109.2526, 109.2539, 109.249, 109.2471, 109.2469, 109.252, 109.254, 109.2568, 109.2565, 109.2544, 
  109.2506, 109.2494, 109.2494, 109.2513, 109.2549, 109.2563, 109.2587, 109.2594, 109.2593, 109.2568, 
  109.2525, 109.2494, 109.2454, 109.2425, 109.2423, 109.2434, 109.2469, 109.2533, 109.2652, 109.2751, 
  109.2848, 109.2907, 109.2902, 109.2937, 109.2938, 109.2919, 109.2929, 109.2964, 109.298, 109.2949, 
  109.292, 109.295, 109.2922, 109.2993, 109.2958, 109.2993, 109.2893, 109.2852, 109.2943, 109.2912, 
  109.293, 109.2896, 109.2878, 109.2814, 109.2718, 109.2673, 109.2547, 109.25, 109.2508, 109.2421, 
  109.2319, 109.2194, 109.2143, 109.2193, 109.2177, 109.2223, 109.228, 109.2326, 109.2314, 109.2338, 
  109.234, 109.2303, 109.2339, 109.2324, 109.2294, 109.2301, 109.2254, 109.2337, 109.2516, 109.2784, 
  109.288, 109.2888, 109.2981, 109.2981, 109.2899, 109.2893, 109.2766, 109.2804, 109.2857, 109.3008, 
  109.3025, 109.296, 109.288, 109.2902, 109.3008, 109.3142, 109.3225, 109.33, 109.3311, 109.3264, 
  109.3226, 109.3153, 109.3202, 109.3125, 109.311, 109.3007, 109.2993, 109.2928, 109.2933, 109.2722,
  109.2685, 109.2581, 109.2648, 109.2726, 109.2849, 109.2901, 109.2927, 109.2873, 109.281, 109.2664, 
  109.2521, 109.2462, 109.2413, 109.2434, 109.2414, 109.2386, 109.229, 109.2331, 109.2341, 109.226, 
  109.226, 109.2225, 109.2277, 109.2285, 109.2374, 109.2391, 109.2321, 109.228, 109.2253, 109.2255, 
  109.2202, 109.2195, 109.2221, 109.2304, 109.2314, 109.2297, 109.2301, 109.2276, 109.2281, 109.2266, 
  109.2204, 109.2193, 109.216, 109.2136, 109.216, 109.2132, 109.2174, 109.2155, 109.2186, 109.2233, 
  109.2259, 109.2325, 109.2356, 109.236, 109.238, 109.2391, 109.2422, 109.243, 109.2446, 109.2445, 
  109.2455, 109.2491, 109.2553, 109.2659, 109.2705, 109.2694, 109.276, 109.2831, 109.2888, 109.2924, 
  109.2929, 109.2948, 109.2943, 109.2973, 109.2956, 109.2915, 109.2906, 109.2916, 109.2951, 109.2952, 
  109.2978, 109.2991, 109.2982, 109.2998, 109.2976, 109.2932, 109.2923, 109.2884, 109.2848, 109.2831, 
  109.2828, 109.2869, 109.2966, 109.3023, 109.3099, 109.3094, 109.3134, 109.3149, 109.3166, 109.3169, 
  109.3144, 109.309, 109.3036, 109.302, 109.3021, 109.3047, 109.3079, 109.3085, 109.3067, 109.3071, 
  109.306, 109.3056, 109.304, 109.3024, 109.2973, 109.2934, 109.2942, 109.2986, 109.3013, 109.3012, 
  109.3035, 109.3045, 109.3064, 109.3046, 109.3021, 109.2985, 109.2967, 109.2932, 109.2923, 109.2928, 
  109.2969, 109.3117, 109.3314, 109.3589, 109.3851, 109.4204, 109.432, 109.4319, 109.4288, 109.4301, 
  109.4433, 109.4561, 109.4517, 109.4538, 109.4571, 109.459, 109.4543, 109.4593, 109.4525, 109.4532, 
  109.4328, 109.4303, 109.4192, 109.438, 109.4371, 109.4286, 109.4264, 109.4192, 109.4191, 109.4221, 
  109.4006, 109.4032, 109.4007, 109.3929, 109.3907, 109.3754, 109.3653, 109.3607, 109.3573, 109.3611, 
  109.3654, 109.3589, 109.3594, 109.3676, 109.3836, 109.403, 109.4089, 109.4169, 109.4104, 109.4266, 
  109.4362, 109.4401, 109.4425, 109.4515, 109.4594, 109.4566, 109.4618, 109.4569, 109.4539, 109.437, 
  109.4347, 109.4344, 109.4361, 109.4328, 109.436, 109.4294, 109.4358, 109.436, 109.4401, 109.4357, 
  109.4326, 109.4278, 109.4251, 109.4207, 109.4183, 109.4156, 109.4146, 109.4123, 109.415, 109.4141, 
  109.4147, 109.4112, 109.4072, 109.4023, 109.3991, 109.3949, 109.3895, 109.4047, 109.4083, 109.4096, 
  109.4055, 109.4096, 109.4106, 109.4131, 109.4127, 109.4099, 109.4074, 109.4059, 109.4036, 109.4003, 
  109.3965, 109.3964, 109.3929, 109.3895, 109.3948, 109.3933, 109.3884, 109.3801, 109.3754, 109.3742, 
  109.3697, 109.3679, 109.3681, 109.366, 109.3709, 109.3701, 109.3677, 109.3665, 109.3648, 109.3646, 
  109.3681, 109.364, 109.3606, 109.3621, 109.3579, 109.3549, 109.3545, 109.3513, 109.3486, 109.3474, 
  109.3414, 109.3385, 109.3316, 109.3362, 109.3405, 109.3436, 109.3471, 109.3464, 109.353, 109.3569, 
  109.3583, 109.3648, 109.3705, 109.3713, 109.3739, 109.3739, 109.3798, 109.3786, 109.3745, 109.3531,
  109.3543, 109.3493, 109.3358, 109.3303, 109.3244, 109.3152, 109.303, 109.2589, 109.2273, 109.2227, 
  109.21, 109.2146, 109.2115, 109.2067, 109.1948, 109.1906, 109.1935, 109.2039, 109.2005, 109.2034, 
  109.1942, 109.1995, 109.2093, 109.2239, 109.2329, 109.2349, 109.2444, 109.2438, 109.2374, 109.2329, 
  109.2299, 109.2328, 109.2378, 109.2378, 109.2412, 109.2481, 109.2687, 109.2772, 109.2808, 109.2854, 
  109.2876, 109.2875, 109.2897, 109.2922, 109.2916, 109.2943, 109.3002, 109.3062, 109.3095, 109.3142, 
  109.3151, 109.3095, 109.3095, 109.3061, 109.3033, 109.303, 109.2936, 109.299, 109.2939, 109.2943, 
  109.2924, 109.2875, 109.2902, 109.2843, 109.2895, 109.2945, 109.2991, 109.3029, 109.3108, 109.3183, 
  109.3259, 109.329, 109.3376, 109.3423, 109.337, 109.3304, 109.325, 109.3304, 109.3273, 109.3194, 
  109.3187, 109.3149, 109.3149, 109.3101, 109.3016, 109.3013, 109.2995, 109.2993, 109.3006, 109.2987, 
  109.2969, 109.2932, 109.2818, 109.2784, 109.2792, 109.277, 109.2723, 109.2707, 109.2682, 109.2649, 
  109.2643, 109.2612, 109.2604, 109.2635, 109.2648, 109.2637, 109.2582, 109.2579, 109.2453, 109.2451, 
  109.2431, 109.2379, 109.2379, 109.2343, 109.2309, 109.2304, 109.2287, 109.2282, 109.2253, 109.2251, 
  109.2232, 109.2231, 109.2149, 109.2139, 109.2114, 109.2071, 109.1944, 109.1916, 109.1891, 109.1881, 
  109.1762, 109.1769, 109.1705, 109.1702, 109.1599, 109.1553, 109.1524, 109.1585, 109.1588, 109.1642, 
  109.1718, 109.1793, 109.1837, 109.1953, 109.1981, 109.2012, 109.1962, 109.1989, 109.1956, 109.1993, 
  109.1988, 109.2046, 109.2012, 109.209, 109.212, 109.2203, 109.2355, 109.2434, 109.2338, 109.2195, 
  109.207, 109.2027, 109.2027, 109.2048, 109.2066, 109.2069, 109.2051, 109.202, 109.2001, 109.1971, 
  109.1974, 109.1996, 109.2069, 109.2107, 109.2152, 109.2167, 109.2178, 109.216, 109.218, 109.2151, 
  109.2164, 109.2123, 109.2081, 109.2064, 109.2087, 109.2094, 109.2084, 109.2089, 109.2076, 109.2078, 
  109.2071, 109.2062, 109.2054, 109.2058, 109.205, 109.2023, 109.2013, 109.2006, 109.2009, 109.1984, 
  109.1981, 109.2023, 109.2012, 109.2185, 109.2229, 109.2233, 109.2163, 109.213, 109.2117, 109.2062, 
  109.1963, 109.1946, 109.195, 109.2035, 109.227, 109.2534, 109.2622, 109.2649, 109.27, 109.2725, 
  109.2709, 109.2768, 109.284, 109.2819, 109.2768, 109.2726, 109.2681, 109.2603, 109.2595, 109.2634, 
  109.2814, 109.2704, 109.256, 109.2488, 109.2454, 109.2322, 109.2012, 109.1798, 109.1815, 109.1778, 
  109.1777, 109.1797, 109.1791, 109.1849, 109.1818, 109.1809, 109.1812, 109.1849, 109.1885, 109.1916, 
  109.1951, 109.1952, 109.193, 109.1892, 109.1864, 109.1854, 109.1859, 109.1895, 109.1925, 109.2023, 
  109.2015, 109.2038, 109.2076, 109.208, 109.2099, 109.2108, 109.2124, 109.2124, 109.2142, 109.2149, 
  109.2112, 109.2118, 109.2125, 109.2132, 109.2152, 109.2165, 109.2172, 109.2192, 109.2209, 109.2217, 
  109.2211, 109.2224, 109.2231, 109.2256, 109.2275, 109.2281, 109.2278, 109.2269, 109.225, 109.2244, 
  109.2231, 109.2227, 109.221, 109.221, 109.2223, 109.2235, 109.2244, 109.2259, 109.2269, 109.2302,
  109.2313, 109.2305, 109.2317, 109.2313, 109.2332, 109.2282, 109.223, 109.2211, 109.2182, 109.2169, 
  109.2116, 109.2108, 109.2075, 109.2062, 109.2041, 109.2041, 109.2014, 109.1989, 109.1966, 109.1983, 
  109.2005, 109.1991, 109.2018, 109.2002, 109.2038, 109.1987, 109.1965, 109.193, 109.193, 109.1898, 
  109.1817, 109.1773, 109.1663, 109.16, 109.1519, 109.1408, 109.1387, 109.133, 109.1287, 109.1308, 
  109.1245, 109.1125, 109.106, 109.093, 109.0792, 109.0697, 109.0645, 109.058, 109.0535, 109.0509, 
  109.0419, 109.035, 109.0298, 109.0259, 109.0245, 109.0256, 109.0299, 109.0353, 109.0328, 109.0304, 
  109.0298, 109.0292, 109.0267, 109.0254, 109.0178, 109.0139, 109.0115, 109.0117, 109.0147, 109.013, 
  109.008, 109.012, 109.0133, 109.013, 109.0118, 109.0064, 109.0059, 109.0077, 109.0057, 109.0069, 
  109.0114, 109.0152, 109.0155, 109.0202, 109.0202, 109.0145, 109.0126, 109.0083, 109.0066, 109.0016, 
  109.0006, 108.9953, 108.9881, 108.9817, 108.9747, 108.9706, 108.962, 108.938, 108.9323, 108.9241, 
  108.9174, 108.9191, 108.9151, 108.9011, 108.8968, 108.8859, 108.8794, 108.8744, 108.874, 108.8529, 
  108.8402, 108.8395, 108.8254, 108.815, 108.8171, 108.7928, 108.7852, 108.7811, 108.781, 108.7768, 
  108.7765, 108.7721, 108.7598, 108.7547, 108.7511, 108.7515, 108.7449, 108.7455, 108.7403, 108.7405, 
  108.7354, 108.7323, 108.7298, 108.7288, 108.7196, 108.7126, 108.7111, 108.7096, 108.7099, 108.7091, 
  108.7038, 108.7036, 108.7053, 108.7024, 108.7028, 108.6988, 108.6658, 108.6481, 108.6447, 108.6412, 
  108.6315, 108.6218, 108.6217, 108.6199, 108.6185, 108.6151, 108.6148, 108.6112, 108.5969, 108.5856, 
  108.5742, 108.5634, 108.5583, 108.5394, 108.5346, 108.5334, 108.5304, 108.5242, 108.5229, 108.509, 
  108.4974, 108.4825, 108.4734, 108.4578, 108.4457, 108.4338, 108.4263, 108.4138, 108.4119, 108.4117, 
  108.4071, 108.3885, 108.3872, 108.3778, 108.3617, 108.3542, 108.3481, 108.3395, 108.3395, 108.3369, 
  108.3324, 108.3285, 108.3277, 108.3212, 108.3132, 108.306, 108.2999, 108.2958, 108.2943, 108.2951, 
  108.2947, 108.296, 108.2951, 108.2941, 108.2919, 108.289, 108.2885, 108.2842, 108.2804, 108.2828, 
  108.283, 108.2819, 108.2814, 108.2805, 108.2723, 108.2481, 108.2308, 108.2186, 108.2011, 108.1939, 
  108.1894, 108.182, 108.1786, 108.1758, 108.1622, 108.1409, 108.1372, 108.1372, 108.1304, 108.1184, 
  108.1096, 108.1086, 108.1052, 108.1039, 108.0943, 108.0877, 108.0771, 108.0661, 108.0595, 108.0541, 
  108.037, 108.0285, 108.0162, 108.0146, 108.0084, 108.0065, 107.9945, 107.994, 107.9831, 107.9698,
  107.9634, 107.9616, 107.9325, 107.9005, 107.8827, 107.8636, 107.8593, 107.8455, 107.8411, 107.833, 
  107.8231, 107.8109, 107.7955, 107.7857, 107.7802, 107.7779, 107.7734, 107.7715, 107.7647, 107.7662, 
  107.7643, 107.7594, 107.7492, 107.738, 107.7269, 107.708, 107.6978, 107.6944, 107.683, 107.673, 
  107.6629, 107.6606, 107.6381, 107.6154, 107.5838, 107.5823, 107.5798, 107.5678, 107.5591, 107.5523, 
  107.5481, 107.5426, 107.5368, 107.532, 107.5155, 107.5124, 107.4851, 107.4796, 107.4723, 107.4643, 
  107.4448, 107.4416, 107.4364, 107.4152, 107.4035, 107.3762, 107.3644, 107.3417, 107.334, 107.3331, 
  107.3243, 107.2906, 107.2707, 107.2675, 107.2572, 107.2536, 107.2518, 107.247, 107.2416, 107.219, 
  107.2099, 107.1992, 107.179, 107.1764, 107.1648, 107.1592, 107.1587, 107.1562, 107.147, 107.1251, 
  107.107, 107.093, 107.0866, 107.0834, 107.0823, 107.0767, 107.0737, 107.0706, 107.0717, 107.0741, 
  107.0734, 107.0603, 107.0599, 107.0627, 107.0552, 107.0552, 107.0589, 107.064, 107.0687, 107.0735, 
  107.0773, 107.0717, 107.0738, 107.0809, 107.0921, 107.0937, 107.1015, 107.1046, 107.105, 107.1089, 
  107.1178, 107.121, 107.1258, 107.1176, 107.1133, 107.0953, 107.0935, 107.0903, 107.0862, 107.0831, 
  107.0788, 107.0748, 107.0633, 107.0494, 107.0509, 107.0473, 107.0465, 107.0418, 107.0422, 107.0343, 
  107.0259, 107.0252, 107.0194, 107.0193, 107.0127, 107.0053, 107.0075, 107.0069, 107.0021, 107.002, 
  107.0054, 107.0102, 107.0164, 107.008, 107.0035, 106.999, 106.9936, 106.9825, 106.9748, 106.9754, 
  106.9775, 106.9704, 106.9659, 106.9565, 106.9531, 106.9516, 106.9436, 106.9321, 106.9345, 106.932, 
  106.9326, 106.939, 106.9436, 106.9482, 106.9611, 106.9658, 106.9721, 106.9751, 106.9719, 106.9342, 
  106.918, 106.9102, 106.9061, 106.8979, 106.8822, 106.875, 106.8801, 106.879, 106.8732, 106.8537, 
  106.8527, 106.8357, 106.7823, 106.7822, 106.7582, 106.7473, 106.7701, 106.7754, 106.7871, 106.7964, 
  106.7926, 106.7848, 106.7791, 106.7796, 106.7711, 106.7707, 106.7485, 106.7383, 106.7738, 106.7893, 
  106.7833, 106.7931, 106.7819, 106.7342, 106.689, 106.6885, 106.6722, 106.66, 106.6583, 106.6379, 
  106.6362, 106.6604, 106.6842, 106.6626, 106.6387, 106.6198, 106.6101, 106.5618, 106.5679, 106.5714, 
  106.579, 106.5587, 106.5271, 106.488, 106.4402, 106.4107, 106.4066, 106.3684, 106.3674, 106.3166, 
  106.2923, 106.2882, 106.2696, 106.2469, 106.2346, 106.2319, 106.2109, 106.2064, 106.1731, 106.1865, 
  106.1858, 106.1288, 106.0873, 105.8758, 105.7879, 105.7824, 105.5365, 105.4751, 105.4559, 105.3958, 
  105.3529, 105.3296, 105.2681, 105.1823, 105.1377, 105.1312, 105.1232, 105.1276, 105.1042, 105.0483, 
  104.9825, 104.9568, 104.9153, 104.8277, 104.8014, 104.8059, 104.7319, 104.718, 104.7125, 104.7165, 
  104.7302, 104.7597, 104.7964, 104.7815, 104.7903, 104.7975, 104.8614, 104.8878, 104.8978, 104.9025, 
  104.8993, 104.8971, 104.8301, 104.8116, 104.8027, 104.7821, 104.7798, 104.8012, 104.8107, 104.8361,
  104.8481, 104.8868, 104.8942, 104.9057, 104.9414, 104.9601, 105.0049, 105.041, 105.0654, 105.0799, 
  105.0849, 105.105, 105.106, 105.0758, 105.0571, 105.0607, 104.9916, 104.9574, 104.9038, 104.885, 
  104.841, 104.8022, 104.7648, 104.7342, 104.6886, 104.652, 104.6458, 104.649, 104.645, 104.6396, 
  104.6377, 104.6302, 104.6282, 104.6267, 104.6138, 104.6131, 104.6106, 104.6095, 104.6074, 104.6039, 
  104.6005, 104.6007, 104.5994, 104.6017, 104.6017, 104.6047, 104.6091, 104.6062, 104.6047, 104.6079, 
  104.6047, 104.6019, 104.5984, 104.5974, 104.5956, 104.593, 104.5912, 104.5901, 104.5934, 104.5961, 
  104.5967, 104.5939, 104.592, 104.5911, 104.5893, 104.59, 104.5858, 104.5856, 104.5879, 104.5921, 
  104.5911, 104.5867, 104.5845, 104.5891, 104.5896, 104.5873, 104.5848, 104.5855, 104.5876, 104.5875, 
  104.5848, 104.5844, 104.5835, 104.5847, 104.5831, 104.5834, 104.5744, 104.5667, 104.5577, 104.551, 
  104.5444, 104.5424, 104.5425, 104.5414, 104.5386, 104.5371, 104.5345, 104.5315, 104.5303, 104.5333, 
  104.5345, 104.5289, 104.5277, 104.5282, 104.5315, 104.5326, 104.5276, 104.5159, 104.4979, 104.4916, 
  104.4812, 104.4769, 104.4868, 104.4816, 104.4706, 104.4648, 104.4596, 104.4529, 104.452, 104.4492, 
  104.4463, 104.4419, 104.4459, 104.4453, 104.4509, 104.4527, 104.4504, 104.4442, 104.4421, 104.4456,
  105.74735, 108.45905, 108.01128, 105.26566, 105.82953)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_difference(st_geometry(Geo_2), st_geometry(Geo))
if (length(Geo_0) > 1) {Geo_0 <- Geo_0[st_geometry_type(Geo_0) %in% c("POLYGON", "MULTIPOLYGON")]}
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, Geo_0[5])
Geo_2 <- st_union(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  20.13488, 20.13607, 20.14252, 20.14484, 20.14649, 20.14647, 20.1456, 20.14409, 20.14379, 20.14244, 
  20.14012, 20.13553, 20.13313, 20.13208, 20.13065, 20.12938, 20.12902, 20.12842, 20.12828, 20.12737, 
  20.12715, 20.12834, 20.12852, 20.12761, 20.12904, 20.12848, 20.1264, 20.1256, 20.12501, 20.12648, 
  20.13057, 20.13253, 20.13412)
LONGITUDE_VALUEs <- c(
  107.7368, 107.7369, 107.7413, 107.741, 107.7401, 107.7391, 107.7389, 107.7369, 107.7348, 107.7332, 
  107.7315, 107.7246, 107.7191, 107.7183, 107.7181, 107.7167, 107.7157, 107.7157, 107.7166, 107.7176, 
  107.7198, 107.7197, 107.7214, 107.7231, 107.7258, 107.7283, 107.73, 107.7293, 107.7303, 107.7334, 
  107.736, 107.7361, 107.7355)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  9.66015, 9.65922, 9.66155, 9.66408, 9.67576, 9.68405, 9.69213, 9.6937, 9.69353, 9.69569, 
  9.7022, 9.70491, 9.71199, 9.71204, 9.70504, 9.69501, 9.69207, 9.69285, 9.69188, 9.6889, 
  9.68697, 9.68621, 9.67965, 9.67382, 9.67318, 9.66762, 9.66705, 9.66309, 9.66316)
LONGITUDE_VALUEs <- c(
  104.3537, 104.361, 104.3625, 104.361, 104.3606, 104.358, 104.3585, 104.36, 104.3621, 104.3632, 
  104.3602, 104.3613, 104.3555, 104.3537, 104.3533, 104.3558, 104.3549, 104.3509, 104.3493, 104.3518, 
  104.3499, 104.346, 104.3457, 104.3474, 104.3466, 104.3475, 104.3514, 104.3504, 104.353)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  10.01416, 10.01519, 10.01758, 10.02442, 10.02894, 10.03573, 10.03611, 10.03744, 10.03846, 10.04015, 
  10.03987, 10.03772, 10.03681, 10.03087, 10.02709)
LONGITUDE_VALUEs <- c(
  104.5509, 104.5578, 104.5605, 104.5617, 104.5605, 104.5558, 104.5545, 104.5545, 104.5551, 104.5543, 
  104.5537, 104.5537, 104.5486, 104.5442, 104.5447)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  9.98444, 9.98362, 9.97927, 9.97781, 9.97413, 9.97344, 9.97358, 9.97266, 9.97129, 9.97065, 
  9.9687, 9.9687, 9.96934, 9.97044, 9.97364, 9.97438, 9.97464, 9.97789, 9.97981, 9.98147, 
  9.98349, 9.98485)
LONGITUDE_VALUEs <- c(
  104.0134, 104.0131, 104.0154, 104.0173, 104.0173, 104.0178, 104.0204, 104.0219, 104.0225, 104.0236, 
  104.0252, 104.0263, 104.0268, 104.0268, 104.0249, 104.0251, 104.0237, 104.024, 104.023, 104.0204, 
  104.0195, 104.0169)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  8.42686, 8.42419, 8.42156, 8.42206, 8.42686, 8.43705, 8.439, 8.43917, 8.44304, 8.44745, 
  8.45063, 8.45314, 8.45271, 8.44622, 8.44376, 8.44166, 8.43884, 8.43707, 8.43209, 8.42816)
LONGITUDE_VALUEs <- c(
  104.8186, 104.8219, 104.8236, 104.8302, 104.8397, 104.8364, 104.8381, 104.8426, 104.8454, 104.8451, 
  104.8414, 104.8419, 104.84, 104.8372, 104.832, 104.8312, 104.8313, 104.8276, 104.8242, 104.8194)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  8.73138, 8.7335, 8.73485, 8.7301, 8.72743, 8.72709, 8.72378, 8.72573, 8.72476, 8.72196, 
  8.71619, 8.70622, 8.70686, 8.70508, 8.70728, 8.69146, 8.6929, 8.68552, 8.68285, 8.67551, 
  8.67563, 8.66299, 8.65523, 8.64916, 8.64708, 8.64678, 8.64551, 8.64449, 8.64649, 8.64492, 
  8.64594, 8.64394, 8.63978, 8.64021, 8.65294, 8.65799, 8.6641, 8.66851, 8.67542, 8.68009, 
  8.68122, 8.681, 8.68259, 8.68879, 8.69097, 8.69144, 8.68745, 8.69072, 8.69087, 8.69583, 
  8.69927, 8.7005, 8.69946, 8.69891, 8.69082, 8.69203, 8.6932, 8.69252, 8.69339, 8.69579, 
  8.71275, 8.7195, 8.72875, 8.73189, 8.73015, 8.73104, 8.73032, 8.73252, 8.73312, 8.74007, 
  8.7405, 8.74406, 8.74595, 8.74756, 8.75083, 8.75409, 8.75725, 8.75719, 8.75846, 8.75906, 
  8.76094, 8.75982, 8.76082, 8.75787, 8.75475, 8.75452, 8.75293, 8.75356, 8.75269, 8.7518, 
  8.74994, 8.74883, 8.74765, 8.74815, 8.74735, 8.74665, 8.7458, 8.74559, 8.74487, 8.74616, 
  8.74618, 8.74455, 8.74368, 8.74118, 8.73891, 8.7349, 8.73227)
LONGITUDE_VALUEs <- c(
  106.6182, 106.6169, 106.6114, 106.6103, 106.6062, 106.6029, 106.6012, 106.5979, 106.5927, 106.5931, 
  106.5887, 106.5902, 106.5864, 106.5842, 106.5794, 106.574, 106.5687, 106.5658, 106.5609, 106.56, 
  106.5622, 106.5667, 106.5724, 106.5804, 106.5807, 106.5765, 106.5767, 106.5824, 106.5845, 106.5861, 
  106.5886, 106.5994, 106.607, 106.6138, 106.6092, 106.6045, 106.6017, 106.5975, 106.6006, 106.6051, 
  106.6077, 106.6092, 106.6102, 106.6174, 106.6213, 106.6239, 106.6269, 106.6283, 106.6292, 106.6307, 
  106.6336, 106.6366, 106.639, 106.6437, 106.6517, 106.6529, 106.6569, 106.6594, 106.6603, 106.6601, 
  106.6395, 106.6389, 106.6421, 106.6449, 106.653, 106.6548, 106.6611, 106.6616, 106.6633, 106.6649, 
  106.6634, 106.6608, 106.6609, 106.6664, 106.6697, 106.6697, 106.6668, 106.6644, 106.6641, 106.665, 
  106.6637, 106.6579, 106.656, 106.6534, 106.6525, 106.6487, 106.6466, 106.6414, 106.6403, 106.6378, 
  106.6376, 106.6362, 106.6365, 106.634, 106.6335, 106.6351, 106.6348, 106.6323, 106.6308, 106.6302, 
  106.6286, 106.6273, 106.6227, 106.6218, 106.6242, 106.6234, 106.6212)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  11.77445, 11.77176, 11.77264, 11.77941, 11.78155, 11.78466, 11.78252, 11.78302, 11.78588, 11.78625, 
  11.78357, 11.78361, 11.78008, 11.77815)
LONGITUDE_VALUEs <- c(
  109.2162, 109.2207, 109.2226, 109.2213, 109.2225, 109.2216, 109.2184, 109.2168, 109.2166, 109.2131, 
  109.2114, 109.2128, 109.2132, 109.2158)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  11.83491, 11.83264, 11.83336, 11.83143, 11.83189, 11.83479, 11.83693, 11.83907, 11.84159, 11.84197, 
  11.84325, 11.84678, 11.84785, 11.85077, 11.85121, 11.85052, 11.84835, 11.84388, 11.84312, 11.84109, 
  11.83888, 11.83859, 11.84008, 11.8422, 11.84478, 11.84548, 11.84732, 11.85052, 11.851, 11.85207, 
  11.85081, 11.84722, 11.84583, 11.84636, 11.84543, 11.84188, 11.8402, 11.8389, 11.83823, 11.83657, 
  11.83514, 11.83533, 11.83405, 11.83153, 11.83044, 11.82769, 11.82857, 11.83103, 11.83367)
LONGITUDE_VALUEs <- c(
  109.2403, 109.2457, 109.2484, 109.2498, 109.2508, 109.2512, 109.2528, 109.2526, 109.2494, 109.2474, 
  109.2467, 109.249, 109.2503, 109.2476, 109.2462, 109.2425, 109.2412, 109.2417, 109.2429, 109.2423, 
  109.2403, 109.2384, 109.2364, 109.2305, 109.2299, 109.2273, 109.2271, 109.2249, 109.2231, 109.2218, 
  109.2204, 109.2207, 109.2221, 109.2236, 109.2246, 109.2238, 109.2248, 109.2233, 109.2243, 109.2239, 
  109.2246, 109.227, 109.2267, 109.2288, 109.2331, 109.2353, 109.2393, 109.2403, 109.2391)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  12.18344, 12.18285, 12.1851, 12.18782, 12.18971, 12.18965, 12.19357, 12.19412, 12.196, 12.19445, 
  12.19479, 12.19693, 12.19598, 12.19764, 12.19695, 12.19384, 12.19334, 12.18954, 12.18847, 12.189, 
  12.1887, 12.18619)
LONGITUDE_VALUEs <- c(
  109.2238, 109.2257, 109.2255, 109.2266, 109.2291, 109.2302, 109.2326, 109.2344, 109.2328, 109.2299, 
  109.2262, 109.2274, 109.2247, 109.2238, 109.2221, 109.2227, 109.22, 109.2184, 109.2186, 109.2199, 
  109.222, 109.2232)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(12.18028, 12.17919, 12.17671, 12.17529, 12.17344, 12.1721, 12.17277, 12.16908, 12.17009, 12.17776)
LONGITUDE_VALUEs <- c(109.2452, 109.235, 109.2343, 109.2391, 109.2404, 109.245, 109.2468, 109.2508, 109.2521, 109.2488)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  12.38263, 12.38079, 12.38117, 12.38825, 12.39492, 12.39651, 12.39961, 12.39802, 12.39538, 12.38938, 
  12.38758, 12.38442)
LONGITUDE_VALUEs <- c(
  109.2331, 109.2348, 109.2371, 109.2404, 109.2368, 109.2332, 109.2302, 109.2267, 109.2267, 109.223, 
  109.2208, 109.2248)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(12.71114, 12.71206, 12.71616, 12.71955, 12.72094, 12.7224, 12.72374, 12.72428, 12.71943, 12.71411)
LONGITUDE_VALUEs <- c(109.2946, 109.3028, 109.3048, 109.3106, 109.3111, 109.3136, 109.3123, 109.3056, 109.2961, 109.2939)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  12.64624, 12.64185, 12.64235, 12.6444, 12.6462, 12.64813, 12.64951, 12.65173, 12.65244, 12.65064, 
  12.65123, 12.64737)
LONGITUDE_VALUEs <- c(
  109.341, 109.343, 109.3477, 109.3483, 109.3469, 109.3475, 109.3497, 109.3497, 109.3481, 109.3431, 
  109.3404, 109.3388)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  12.64329, 12.64321, 12.64578, 12.64811, 12.64934, 12.64871, 12.64756, 12.6498, 12.65068, 12.6507, 
  12.64995, 12.65277, 12.65338, 12.65449, 12.65409, 12.65527, 12.6543, 12.65564, 12.6565, 12.65703, 
  12.65629, 12.6537, 12.65307, 12.65232, 12.65149, 12.6495, 12.64832, 12.64835, 12.64756, 12.64768, 
  12.64488, 12.64427)
LONGITUDE_VALUEs <- c(
  109.4013, 109.4027, 109.4021, 109.3992, 109.3999, 109.403, 109.4038, 109.4049, 109.4045, 109.4039, 
  109.4034, 109.4015, 109.3995, 109.3991, 109.3978, 109.3971, 109.395, 109.3946, 109.395, 109.3943, 
  109.3938, 109.3943, 109.3951, 109.3947, 109.3933, 109.3939, 109.3942, 109.3946, 109.395, 109.3957, 
  109.399, 109.4008)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  13.61049, 13.61254, 13.61187, 13.60507, 13.61124, 13.62075, 13.61975, 13.6331, 13.63535, 13.63377, 
  13.62885, 13.62634, 13.62326, 13.61938, 13.61525, 13.6112)
LONGITUDE_VALUEs <- c(
  109.3516, 109.3537, 109.356, 109.3611, 109.3631, 109.3552, 109.3517, 109.3456, 109.3415, 109.3378, 
  109.3387, 109.3377, 109.3398, 109.3414, 109.3453, 109.3476)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  15.36889, 15.37075, 15.37518, 15.37783, 15.37704, 15.37779, 15.38234, 15.38416, 15.38412, 15.38904, 
  15.3883, 15.38941, 15.3914, 15.39128, 15.39008, 15.39186, 15.3897, 15.38515, 15.38428, 15.37456, 
  15.37535)
LONGITUDE_VALUEs <- c(
  109.1195, 109.1264, 109.1296, 109.1356, 109.1375, 109.1412, 109.1399, 109.1419, 109.1447, 109.1418, 
  109.1382, 109.1315, 109.1284, 109.1238, 109.1218, 109.1182, 109.099, 109.0962, 109.0932, 109.0972, 
  109.1001)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  17.16617, 17.16601, 17.16222, 17.15818, 17.15473, 17.15117, 17.1518, 17.15026, 17.15391, 17.15676, 
  17.1617)
LONGITUDE_VALUEs <- c(
  107.3416, 107.3346, 107.3315, 107.3314, 107.3331, 107.3371, 107.3401, 107.3425, 107.3449, 107.3483, 
  107.3462)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  19.37075, 19.37504, 19.37711, 19.37792, 19.38047, 19.38443, 19.38047, 19.38148, 19.37873, 19.38318, 
  19.38245, 19.37889, 19.37727, 19.36891, 19.36698, 19.36435, 19.36312, 19.36073, 19.36055, 19.35917, 
  19.35921, 19.3586, 19.35964, 19.35921, 19.3603, 19.36071, 19.36283, 19.36338)
LONGITUDE_VALUEs <- c(
  105.9336, 105.9383, 105.938, 105.9358, 105.9351, 105.9282, 105.9245, 105.9221, 105.9193, 105.9163, 
  105.9137, 105.9144, 105.9133, 105.9134, 105.9186, 105.9195, 105.9219, 105.923, 105.9243, 105.9246, 
  105.9254, 105.9264, 105.928, 105.9291, 105.9296, 105.9306, 105.9318, 105.9333)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  20.93831, 20.94356, 20.94336, 20.93158, 20.92464, 20.91362, 20.91318, 20.91666, 20.91518, 20.92673, 
  20.93182, 20.93807, 20.94208, 20.9424)
LONGITUDE_VALUEs <- c(
  106.9707, 106.9676, 106.9616, 106.959, 106.9611, 106.9789, 106.989, 106.99, 106.994, 106.9929, 
  106.9977, 106.9963, 106.9911, 106.9804)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  20.85625, 20.85496, 20.85608, 20.85392, 20.85544, 20.8546, 20.85833, 20.85757, 20.86034, 20.85877, 
  20.86206, 20.86005, 20.86487, 20.86795, 20.86912, 20.87128, 20.8688, 20.87277, 20.8718, 20.87521, 
  20.87513, 20.87702, 20.87774, 20.87319, 20.87337, 20.87654, 20.86982, 20.8698, 20.86775, 20.87054, 
  20.8716, 20.87207, 20.87269, 20.87477, 20.87439, 20.87796, 20.87846, 20.87467, 20.87108, 20.86874, 
  20.8685, 20.86695, 20.86777, 20.86539, 20.86617, 20.86176, 20.86046, 20.85819, 20.85576, 20.84931, 
  20.84933, 20.85025, 20.85019, 20.84423, 20.84656, 20.84449, 20.84981, 20.84674, 20.84339, 20.84026, 
  20.82961, 20.82663, 20.82252, 20.81967, 20.81724, 20.80555, 20.80106, 20.79882, 20.79914, 20.79721, 
  20.794, 20.78991, 20.78305, 20.77659, 20.77847, 20.7739, 20.7727, 20.76924, 20.76563, 20.75789, 
  20.75969, 20.75408, 20.75432, 20.75135, 20.75159, 20.74894, 20.75079, 20.74846, 20.7477, 20.74392, 
  20.74565, 20.7375, 20.73738, 20.74039, 20.73762, 20.74199, 20.74402, 20.74514, 20.74261, 20.74109, 
  20.73491, 20.73304, 20.73226, 20.73087, 20.73009, 20.72778, 20.73017, 20.73322, 20.73896, 20.74167, 
  20.74714, 20.74967, 20.75048, 20.74907, 20.74421, 20.74757, 20.74765, 20.74147, 20.73962, 20.73633, 
  20.73691, 20.7342, 20.73454, 20.73179, 20.73013, 20.72707, 20.72252, 20.72382, 20.7282, 20.72844, 
  20.72728, 20.72659, 20.72465, 20.72049, 20.72047, 20.72826, 20.72808, 20.72986, 20.73181, 20.73207, 
  20.73063, 20.73109, 20.72922, 20.73015, 20.72449, 20.72252, 20.72316, 20.72475, 20.72615, 20.7241, 
  20.72067, 20.71899, 20.71806, 20.7163, 20.71473, 20.71542, 20.71477, 20.71509, 20.7146, 20.71303, 
  20.71225, 20.71198, 20.7141, 20.71457, 20.7145, 20.71543, 20.71518, 20.71429, 20.7143, 20.71756, 
  20.71807, 20.71654, 20.71942, 20.7189, 20.71983, 20.72123, 20.72271, 20.72395, 20.72536, 20.72622, 
  20.72806, 20.73326, 20.73781, 20.73825, 20.74427, 20.74823, 20.74726, 20.7457, 20.74524, 20.74327,
  20.74239, 20.74147, 20.73956, 20.73828, 20.73982, 20.73813, 20.73771, 20.73619, 20.73609, 20.73878, 
  20.74159, 20.74343, 20.74627, 20.7525, 20.75144, 20.75449, 20.75347, 20.75623, 20.75916, 20.76111, 
  20.76223, 20.7657, 20.76201, 20.76512, 20.76631, 20.7651, 20.76665, 20.76759, 20.77046, 20.77271, 
  20.77497, 20.77493, 20.77584, 20.77525, 20.7776, 20.7772, 20.78113, 20.78157, 20.77814, 20.77981, 
  20.77796, 20.77521, 20.77355, 20.77527, 20.77626, 20.77556, 20.77852, 20.78125, 20.77668, 20.77871, 
  20.77558, 20.78003, 20.77704, 20.77999, 20.7769, 20.77778, 20.78069, 20.78258, 20.78557, 20.78759, 
  20.78843, 20.79209, 20.79259, 20.79568, 20.79277, 20.79429, 20.7908, 20.79026, 20.78705, 20.78691, 
  20.79199, 20.79295, 20.79385, 20.79873, 20.80071, 20.80342, 20.80687, 20.81046, 20.81018, 20.81297, 
  20.81331, 20.81553, 20.81555, 20.81684, 20.81724, 20.81971, 20.81858, 20.82071, 20.82135, 20.82284, 
  20.82129, 20.82418, 20.82438, 20.8229, 20.82113, 20.81955, 20.81557, 20.82185, 20.82284, 20.82819, 
  20.82882, 20.83097, 20.82937, 20.83161, 20.83316, 20.83249, 20.83342, 20.83074, 20.8317, 20.83056, 
  20.83186, 20.83509, 20.83266, 20.83707, 20.84064, 20.84786, 20.84774, 20.85075, 20.84971, 20.85508, 
  20.85432, 20.86009, 20.86001, 20.8621, 20.86011, 20.86246, 20.8578, 20.85917, 20.86169, 20.85953, 
  20.85584, 20.85295, 20.86101, 20.86093, 20.85712, 20.85881, 20.85391, 20.85147, 20.84581, 20.85857, 
  20.85508, 20.8548, 20.85059)
LONGITUDE_VALUEs <- c(
  106.9712, 106.9689, 106.9655, 106.9634, 106.9598, 106.9548, 106.9557, 106.9587, 106.9619, 106.9666, 
  106.9688, 106.9722, 106.9758, 106.9747, 106.977, 106.976, 106.9726, 106.9709, 106.9651, 106.966, 
  106.9641, 106.9631, 106.959, 106.9604, 106.9616, 106.9616, 106.9647, 106.963, 106.9595, 106.9588, 
  106.9597, 106.9591, 106.9562, 106.9562, 106.9542, 106.954, 106.9515, 106.9498, 106.951, 106.9503, 
  106.952, 106.952, 106.9472, 106.9467, 106.9439, 106.9432, 106.9479, 106.9486, 106.9513, 106.95, 
  106.9477, 106.944, 106.9423, 106.9449, 106.939, 106.932, 106.9286, 106.9219, 106.919, 106.9184, 
  106.9116, 106.9082, 106.9092, 106.9145, 106.9143, 106.9218, 106.9159, 106.9183, 106.9234, 106.9276, 
  106.9519, 106.9529, 106.9609, 106.9628, 106.9669, 106.9678, 106.9706, 106.9686, 106.9749, 106.9738, 
  106.9654, 106.9711, 106.9737, 106.9739, 106.9755, 106.9781, 106.9792, 106.984, 106.9808, 106.9842, 
  106.9862, 106.9882, 106.9896, 106.9893, 106.9928, 106.9925, 106.9905, 106.9932, 106.9956, 106.9936, 
  106.9972, 106.9967, 106.9985, 106.9983, 106.9995, 106.9992, 107.0016, 107.001, 106.9966, 106.9997, 
  106.9961, 106.9977, 107.0017, 107.0057, 107.0083, 107.014, 107.0167, 107.0187, 107.0156, 107.0191, 
  107.0213, 107.0224, 107.0164, 107.0139, 107.016, 107.0169, 107.0239, 107.0247, 107.0241, 107.0263, 
  107.0267, 107.0285, 107.0292, 107.0331, 107.035, 107.0332, 107.0311, 107.0303, 107.0307, 107.0344, 
  107.0356, 107.0371, 107.0378, 107.0395, 107.0401, 107.0413, 107.0439, 107.0432, 107.0457, 107.0493, 
  107.0506, 107.05, 107.0466, 107.0481, 107.0471, 107.0455, 107.0451, 107.0444, 107.0442, 107.0461, 
  107.0461, 107.0486, 107.048, 107.0483, 107.0491, 107.0493, 107.0507, 107.0516, 107.053, 107.0523, 
  107.0537, 107.0554, 107.0556, 107.0583, 107.0594, 107.058, 107.0594, 107.0589, 107.0589, 107.0595, 
  107.0566, 107.0592, 107.0602, 107.0589, 107.0554, 107.0554, 107.0607, 107.0613, 107.0651, 107.0663,
  107.0652, 107.0674, 107.0685, 107.0674, 107.0663, 107.063, 107.066, 107.0651, 107.0676, 107.0721, 
  107.0728, 107.07, 107.0715, 107.061, 107.0589, 107.0516, 107.0496, 107.048, 107.0435, 107.0442, 
  107.0466, 107.0473, 107.0492, 107.0504, 107.0538, 107.0549, 107.0578, 107.0564, 107.0565, 107.0516, 
  107.0536, 107.0554, 107.0562, 107.0581, 107.059, 107.0608, 107.0611, 107.0624, 107.0623, 107.0674, 
  107.0674, 107.0637, 107.0651, 107.0661, 107.0672, 107.0692, 107.0738, 107.0767, 107.0869, 107.0904, 
  107.0931, 107.0934, 107.0965, 107.0975, 107.1017, 107.1018, 107.0988, 107.0988, 107.0951, 107.097, 
  107.0944, 107.0963, 107.0995, 107.1, 107.1018, 107.1068, 107.1055, 107.1084, 107.1078, 107.1093, 
  107.1102, 107.108, 107.1097, 107.1093, 107.1065, 107.1066, 107.1034, 107.0959, 107.0925, 107.0915, 
  107.0901, 107.0896, 107.0913, 107.0909, 107.0864, 107.0847, 107.082, 107.081, 107.0824, 107.079, 
  107.0773, 107.0774, 107.0756, 107.0756, 107.0719, 107.0732, 107.0716, 107.0652, 107.0578, 107.06, 
  107.0566, 107.0585, 107.0598, 107.0614, 107.0601, 107.0592, 107.057, 107.0561, 107.0542, 107.0524, 
  107.0505, 107.0505, 107.0445, 107.0443, 107.0466, 107.046, 107.0436, 107.0437, 107.0408, 107.0399, 
  107.0369, 107.0371, 107.0314, 107.0284, 107.0274, 107.0248, 107.0247, 107.0169, 107.0165, 107.0086, 
  107.0104, 107.0056, 106.998, 106.9904, 106.992, 106.9872, 106.985, 106.9873, 106.9795, 106.9835, 
  106.9804, 106.9768, 106.9759)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  21.39412, 21.3968, 21.3982, 21.39696, 21.3988, 21.39663, 21.38118, 21.38314, 21.38232, 21.37848, 
  21.37968, 21.37382, 21.37314, 21.36772, 21.3641, 21.36707, 21.36987, 21.37175, 21.36807, 21.37482, 
  21.37374, 21.36995, 21.36639, 21.36811, 21.36611, 21.36279, 21.36104, 21.35107, 21.34659, 21.33891, 
  21.35306, 21.35858, 21.35922, 21.35666, 21.36226, 21.36178, 21.3569, 21.35578, 21.3589, 21.36162, 
  21.37097, 21.37826, 21.39125, 21.38869, 21.39009)
LONGITUDE_VALUEs <- c(
  107.9994, 108.0055, 108.0034, 107.9998, 107.9931, 107.9619, 107.9026, 107.8873, 107.8768, 107.8701, 
  107.8635, 107.8466, 107.841, 107.8343, 107.8358, 107.8435, 107.845, 107.8558, 107.859, 107.8748, 
  107.8873, 107.89, 107.8882, 107.883, 107.8776, 107.8766, 107.8686, 107.8571, 107.8427, 107.8457, 
  107.8707, 107.8883, 107.9058, 107.9103, 107.9223, 107.9288, 107.9336, 107.945, 107.9524, 107.9524, 
  107.959, 107.9677, 107.9927, 107.9967, 107.9995)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  21.35835, 21.35083, 21.33334, 21.33102, 21.32355, 21.31391, 21.30252, 21.30104, 21.3034, 21.30224, 
  21.30967, 21.31047, 21.30927, 21.30256, 21.30667, 21.30659, 21.31219, 21.32319, 21.32311, 21.3265, 
  21.32722, 21.32962, 21.33282, 21.33626, 21.3363, 21.34469, 21.34525, 21.34949, 21.35257)
LONGITUDE_VALUEs <- c(
  107.8155, 107.7942, 107.7662, 107.7566, 107.7404, 107.7266, 107.7039, 107.7038, 107.7125, 107.7133, 
  107.7252, 107.7299, 107.7324, 107.7318, 107.7407, 107.7478, 107.7501, 107.7736, 107.7787, 107.7814, 
  107.7866, 107.7899, 107.798, 107.7983, 107.8012, 107.8064, 107.8123, 107.8163, 107.8221)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  21.28541, 21.28489, 21.28225, 21.28197, 21.28045, 21.27917, 21.27517, 21.2651, 21.26446, 21.26554, 
  21.27113, 21.27489, 21.27661, 21.27697, 21.27825, 21.27781, 21.27933, 21.27877, 21.28033, 21.28149, 
  21.28121, 21.28365, 21.28285, 21.28053, 21.28225, 21.28277)
LONGITUDE_VALUEs <- c(
  107.531, 107.5292, 107.529, 107.5262, 107.5255, 107.5225, 107.5226, 107.5281, 107.5304, 107.5338, 
  107.5404, 107.5475, 107.5489, 107.5509, 107.551, 107.5539, 107.5536, 107.5562, 107.5593, 107.5582, 
  107.5552, 107.5532, 107.55, 107.5491, 107.5436, 107.5373)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  21.26422, 21.26178, 21.2613, 21.25738, 21.2575, 21.25606, 21.25726, 21.25626, 21.2549, 21.25362, 
  21.25618, 21.25694, 21.25642, 21.25926, 21.25946, 21.2592, 21.2626, 21.26164, 21.26234, 21.26086, 
  21.26188, 21.26414, 21.26604, 21.26742, 21.26682, 21.27002, 21.2722, 21.27664, 21.2773, 21.27612, 
  21.27615, 21.27522, 21.27536, 21.27263, 21.26682)
LONGITUDE_VALUEs <- c(
  107.5354, 107.5354, 107.5372, 107.5409, 107.5439, 107.5449, 107.5472, 107.551, 107.5518, 107.5603, 
  107.5596, 107.5619, 107.5638, 107.5654, 107.5695, 107.5784, 107.5761, 107.5811, 107.582, 107.5865, 
  107.5891, 107.5854, 107.5858, 107.5832, 107.5814, 107.579, 107.5734, 107.5713, 107.5681, 107.567, 
  107.5632, 107.5623, 107.5601, 107.5503, 107.5374)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  20.95695, 20.95522, 20.95759, 20.96083, 20.96284, 20.96681, 20.96949, 20.97157, 20.97338, 20.97714, 
  20.98223, 20.98153, 20.983, 20.98586, 20.98889, 20.99079, 20.99049, 20.99193, 21.00043, 21.01144, 
  21.01431, 21.01208, 21.01272, 21.01661, 21.01968, 21.02302, 21.02354, 21.01968, 21.0118, 21.0082, 
  21.00473, 20.99936, 20.99163, 20.99151, 20.98614, 20.98005, 20.9734, 20.96749, 20.96504, 20.96504, 
  20.96152, 20.95917, 20.95739, 20.95827, 20.95517, 20.95332, 20.94943, 20.94705, 20.94611, 20.94649, 
  20.9434, 20.94511, 20.94452, 20.94795, 20.95002, 20.95615)
LONGITUDE_VALUEs <- c(
  107.7571, 107.7593, 107.7639, 107.7646, 107.7703, 107.7737, 107.7794, 107.7804, 107.7768, 107.7752, 
  107.7763, 107.7807, 107.7835, 107.7836, 107.7859, 107.7854, 107.7831, 107.7796, 107.7702, 107.7608, 
  107.7604, 107.7566, 107.7536, 107.7491, 107.7474, 107.7485, 107.7476, 107.7409, 107.7348, 107.7342, 
  107.7317, 107.7389, 107.7357, 107.7399, 107.7507, 107.7582, 107.7623, 107.7629, 107.7606, 107.7578, 
  107.754, 107.754, 107.752, 107.7495, 107.7469, 107.7476, 107.7432, 107.7432, 107.7414, 107.74, 
  107.738, 107.7409, 107.7432, 107.7474, 107.7468, 107.7511)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  20.98456, 20.98279, 20.98412, 20.98772, 20.98752, 20.99197, 20.99529, 20.99449, 20.9997, 21.00086, 
  20.99774, 21.00215, 21.00467, 21.009, 21.01248, 21.01573, 21.02049, 21.01997, 21.02242, 21.02674, 
  21.02718, 21.02646, 21.02959, 21.03075, 21.0352, 21.03832, 21.04309, 21.04545, 21.03964, 21.0386, 
  21.04399, 21.04333, 21.03868, 21.0365, 21.03648, 21.03035, 21.02905, 21.02522, 21.02212, 21.01713, 
  21.01355, 21.01158, 21.00884, 21.00629, 21.00585, 21.00367, 21.00157, 21.00271, 20.99914, 20.99632, 
  20.99586, 20.99185, 20.98865)
LONGITUDE_VALUEs <- c(
  107.8122, 107.8184, 107.8223, 107.8211, 107.819, 107.8194, 107.8222, 107.8242, 107.8285, 107.8317, 
  107.8349, 107.8348, 107.8323, 107.8346, 107.8403, 107.841, 107.8476, 107.851, 107.8511, 107.8569, 
  107.8602, 107.8623, 107.864, 107.8597, 107.8589, 107.8615, 107.8597, 107.854, 107.8502, 107.8444, 
  107.8392, 107.8363, 107.8368, 107.835, 107.8317, 107.8321, 107.8238, 107.8224, 107.8194, 107.8182, 
  107.8141, 107.8164, 107.8154, 107.8124, 107.8085, 107.8059, 107.8074, 107.8096, 107.811, 107.8084, 
  107.8048, 107.8053, 107.8112)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  20.77192, 20.77456, 20.7805, 20.79788, 20.79904, 20.80193, 20.80859, 20.80141, 20.79407, 20.79306, 
  20.77818, 20.77774)
LONGITUDE_VALUEs <- c(
  107.4095, 107.4154, 107.4151, 107.4218, 107.4196, 107.4193, 107.4055, 107.4002, 107.3994, 107.4008, 
  107.4006, 107.408)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  20.80422, 20.80346, 20.80775, 20.80562, 20.80193, 20.80001, 20.79391, 20.79527, 20.80486, 20.82411, 
  20.82427, 20.83089, 20.83527, 20.83751, 20.82973, 20.82584, 20.8207, 20.82604, 20.83619, 20.85135, 
  20.85464, 20.85323, 20.83627, 20.83117, 20.82616)
LONGITUDE_VALUEs <- c(
  107.3438, 107.3471, 107.3491, 107.3715, 107.3718, 107.3759, 107.3798, 107.3837, 107.3802, 107.3804, 
  107.3685, 107.3572, 107.3569, 107.3524, 107.3514, 107.3536, 107.3502, 107.3474, 107.3469, 107.3407, 
  107.3349, 107.3337, 107.3388, 107.3427, 107.3407)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(20.96845, 20.96877, 20.95875, 20.93611, 20.93475, 20.92092, 20.91719, 20.91414, 20.91539, 20.91074, 
  20.90733, 20.90593, 20.90127, 20.90204, 20.89911, 20.8957, 20.89759, 20.8949, 20.8967, 20.8935, 
  20.89478, 20.89735, 20.89735, 20.9016, 20.9016, 20.90344, 20.89426, 20.88604, 20.88167, 20.87938, 
  20.88387, 20.88227, 20.8801, 20.87638, 20.87164, 20.86435, 20.85961, 20.85925, 20.85452, 20.85292, 
  20.83222, 20.83218, 20.82063, 20.8183, 20.81674, 20.81429, 20.81718, 20.81846, 20.83226, 20.84582, 
  20.85408, 20.85697, 20.86222, 20.86888, 20.87172, 20.87305, 20.87878, 20.88155, 20.8852, 20.8955, 
  20.90232, 20.90769, 20.90849, 20.91218, 20.91426, 20.9196, 20.93375, 20.93539, 20.93767, 20.94112, 
  20.94192, 20.94493, 20.95282, 20.96044, 20.96412)
LONGITUDE_VALUEs <- c(107.559, 107.556, 107.5525, 107.5371, 107.542, 107.5334, 107.5337, 107.5293, 107.5177, 107.5045, 
  107.5009, 107.4952, 107.4922, 107.4843, 107.4792, 107.4789, 107.4882, 107.4957, 107.5006, 107.503, 
  107.5051, 107.5043, 107.5067, 107.5096, 107.5113, 107.5137, 107.5136, 107.5104, 107.5039, 107.4931, 
  107.4825, 107.4814, 107.4823, 107.4893, 107.4929, 107.491, 107.4861, 107.4833, 107.4831, 107.4847, 
  107.4782, 107.475, 107.4722, 107.4683, 107.4701, 107.4711, 107.4751, 107.4797, 107.4848, 107.4917, 
  107.4931, 107.4923, 107.4939, 107.4979, 107.5021, 107.5023, 107.5079, 107.5157, 107.5184, 107.5199, 
  107.5241, 107.5291, 107.5319, 107.5346, 107.538, 107.5417, 107.5599, 107.5566, 107.5563, 107.5586, 
  107.5547, 107.5518, 107.5515, 107.5545, 107.5596)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  20.90756, 20.90667, 20.90023, 20.89853, 20.89209, 20.89009, 20.88692, 20.88566, 20.88033, 20.88061, 
  20.87886, 20.87892, 20.87646, 20.87461, 20.87585, 20.87441, 20.87257, 20.8763, 20.87668, 20.87774, 
  20.87874, 20.88143, 20.88239, 20.88393, 20.88476, 20.88588, 20.88885, 20.89286, 20.90007, 20.90027, 
  20.90248)
LONGITUDE_VALUEs <- c(
  107.2914, 107.2912, 107.2977, 107.2964, 107.2994, 107.3029, 107.3044, 107.3073, 107.3105, 107.3125, 
  107.3129, 107.3158, 107.3152, 107.3188, 107.3201, 107.3221, 107.3238, 107.3237, 107.3221, 107.3217, 
  107.3195, 107.318, 107.3151, 107.3152, 107.3138, 107.3145, 107.3117, 107.3099, 107.3032, 107.3007, 
  107.2995)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  20.91454, 20.91252, 20.91104, 20.90759, 20.90631, 20.90775, 20.9041, 20.90109, 20.89739, 20.89542, 
  20.8942, 20.89019, 20.89013, 20.88331, 20.88526, 20.88492, 20.88325, 20.88672, 20.88686, 20.89145, 
  20.90131, 20.91054, 20.91194)
LONGITUDE_VALUEs <- c(
  107.3135, 107.3083, 107.3099, 107.3059, 107.3069, 107.3098, 107.3086, 107.3103, 107.308, 107.3103, 
  107.3101, 107.3129, 107.3142, 107.3186, 107.3195, 107.3211, 107.3215, 107.3231, 107.3216, 107.3192, 
  107.319, 107.3144, 107.3147)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  20.91493, 20.9219, 20.92819, 20.92625, 20.92317, 20.92282, 20.92205, 20.92329, 20.92148, 20.92023, 
  20.91809, 20.91784, 20.9163, 20.91693, 20.91579, 20.91647, 20.91394)
LONGITUDE_VALUEs <- c(
  107.3498, 107.3431, 107.3186, 107.3135, 107.3106, 107.3162, 107.3183, 107.3207, 107.3242, 107.3209, 
  107.3268, 107.3327, 107.334, 107.3351, 107.3362, 107.3386, 107.3404)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  20.92501, 20.92833, 20.92753, 20.93455, 20.94056, 20.94481, 20.95106, 20.95571, 20.96192, 20.96056, 
  20.95763, 20.95655, 20.96605, 20.95976, 20.95835, 20.95583, 20.94797, 20.9414, 20.94224, 20.93884, 
  20.93651, 20.93559, 20.93924, 20.93819, 20.94381, 20.94405, 20.94136, 20.93992, 20.94028, 20.94284, 
  20.9424, 20.93731, 20.93441, 20.93116, 20.92821, 20.92625)
LONGITUDE_VALUEs <- c(
  107.3503, 107.3556, 107.3575, 107.3686, 107.3728, 107.379, 107.3846, 107.3858, 107.3911, 107.386, 
  107.3856, 107.3827, 107.3865, 107.379, 107.3802, 107.3724, 107.3665, 107.352, 107.3483, 107.3479, 
  107.3458, 107.3397, 107.3448, 107.3388, 107.3394, 107.332, 107.3228, 107.3213, 107.3163, 107.3153, 
  107.3123, 107.3099, 107.3119, 107.3188, 107.3371, 107.3366)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  20.88427, 20.88444, 20.88724, 20.88764, 20.89233, 20.89229, 20.89979, 20.90015, 20.9052, 20.90601, 
  20.8961, 20.89324, 20.89416, 20.89227, 20.88981, 20.89125, 20.88806)
LONGITUDE_VALUEs <- c(
  107.4283, 107.4322, 107.4348, 107.4395, 107.4442, 107.4474, 107.4523, 107.4435, 107.4458, 107.4435, 
  107.4232, 107.4219, 107.4181, 107.4153, 107.4218, 107.4242, 107.428)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  20.86433, 20.86854, 20.87295, 20.87704, 20.87704, 20.87876, 20.8756, 20.87884, 20.88013, 20.88458, 
  20.88346, 20.88682, 20.89059, 20.89035, 20.88418, 20.88923, 20.89212, 20.88987, 20.89063, 20.89003, 
  20.88787, 20.88738, 20.89139, 20.88783, 20.88594, 20.88434, 20.8873, 20.89087, 20.89408, 20.89548, 
  20.89328, 20.89228, 20.88883, 20.88337, 20.87933, 20.87904, 20.87552, 20.8756, 20.87279, 20.87203, 
  20.88791, 20.86962, 20.86096, 20.8616, 20.85787, 20.85956, 20.86329, 20.86333, 20.8673)
LONGITUDE_VALUEs <- c(
  107.3911, 107.3899, 107.383, 107.3853, 107.3873, 107.3893, 107.3948, 107.3948, 107.3928, 107.3941, 
  107.3893, 107.3865, 107.3867, 107.3828, 107.3814, 107.3796, 107.3738, 107.3701, 107.3681, 107.3643, 
  107.3649, 107.361, 107.3551, 107.3492, 107.3511, 107.3473, 107.3464, 107.3386, 107.3372, 107.3302, 
  107.3288, 107.3296, 107.3285, 107.3306, 107.3282, 107.3294, 107.3299, 107.332, 107.3344, 107.3374, 
  107.34, 107.3453, 107.3511, 107.3614, 107.367, 107.3734, 107.3769, 107.3797, 107.383)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  20.96758, 20.96966, 20.95804, 20.94064, 20.92533, 20.91918, 20.91609, 20.91012, 20.90515, 20.90146, 
  20.90454, 20.90599, 20.90643, 20.91156, 20.91316, 20.91312, 20.91601, 20.91244, 20.9193, 20.92026, 
  20.92527, 20.92836, 20.93649, 20.9395, 20.94828)
LONGITUDE_VALUEs <- c(
  107.4549, 107.4505, 107.4336, 107.4194, 107.4133, 107.404, 107.3845, 107.3718, 107.3455, 107.3553, 
  107.3773, 107.3799, 107.3847, 107.3962, 107.3973, 107.3998, 107.4014, 107.4037, 107.4142, 107.4208, 
  107.4233, 107.429, 107.4357, 107.4421, 107.4492)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  20.90118, 20.89833, 20.89637, 20.89324, 20.89364, 20.89617, 20.90033, 20.90478, 20.90571, 20.91048, 
  20.91316, 20.91673, 20.91669, 20.91284, 20.9102, 20.91088, 20.90731, 20.90607, 20.90775, 20.90575, 
  20.90619, 20.90915, 20.91004, 20.91352, 20.91268, 20.9102, 20.91024, 20.91729, 20.91384, 20.91749, 
  20.9199, 20.91829, 20.92198, 20.9207, 20.92427, 20.92751, 20.93224, 20.93958, 20.94359, 20.98272, 
  20.982, 20.98454, 20.99524, 20.99464, 21.00269, 21.00602, 21.01187, 21.02016, 21.02501, 21.02849, 
  21.03302, 21.04023, 21.03967, 21.04504, 21.03931, 21.0319, 21.02825, 21.02553, 21.00891, 21.02136, 
  21.02817, 21.03434, 21.04159, 21.03839, 21.02284, 21.02377, 21.01563, 21.01251, 21.00113, 20.99953, 
  21.00938, 21.01051, 21.01756, 21.01551, 20.9964, 20.99512, 20.98631, 20.98863, 20.98162, 20.98583, 
  20.97328, 20.97998, 20.9797, 20.97392, 20.97364, 20.95898, 20.96194, 20.94483, 20.94575, 20.93533, 
  20.93156, 20.93024, 20.92471, 20.92467, 20.92182, 20.92102, 20.91733, 20.91537, 20.90827, 20.9029, 
  20.90298)
LONGITUDE_VALUEs <- c(
  107.3941, 107.3952, 107.3946, 107.3955, 107.407, 107.4065, 107.4093, 107.4203, 107.4266, 107.4347, 
  107.4476, 107.4543, 107.459, 107.4625, 107.461, 107.4575, 107.4502, 107.4505, 107.4592, 107.4593, 
  107.4639, 107.4671, 107.4715, 107.477, 107.4796, 107.4795, 107.4816, 107.4838, 107.4889, 107.4998, 
  107.5014, 107.5052, 107.5077, 107.5133, 107.5147, 107.5199, 107.5226, 107.521, 107.5262, 107.5414, 
  107.5452, 107.5447, 107.5517, 107.548, 107.5432, 107.5462, 107.544, 107.5464, 107.5518, 107.5509, 
  107.5544, 107.5559, 107.5531, 107.5515, 107.5495, 107.5516, 107.5496, 107.546, 107.5361, 107.5334, 
  107.5369, 107.5359, 107.5372, 107.5332, 107.5223, 107.5199, 107.5145, 107.5151, 107.5094, 107.5057, 
  107.5075, 107.51, 107.5109, 107.5067, 107.4944, 107.4912, 107.4893, 107.4862, 107.4864, 107.4775, 
  107.4828, 107.4882, 107.492, 107.4905, 107.4888, 107.4876, 107.485, 107.4741, 107.4719, 107.4553, 
  107.4513, 107.4459, 107.4417, 107.4392, 107.4373, 107.4326, 107.4347, 107.4191, 107.4155, 107.404, 
  107.397)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  21.21402, 21.21594, 21.20626, 21.19962, 21.19153, 21.18553, 21.17385, 21.16104, 21.15256, 21.13871, 
  21.14431, 21.16408, 21.18677, 21.2047)
LONGITUDE_VALUEs <- c(
  107.6827, 107.6777, 107.6693, 107.6676, 107.6624, 107.6626, 107.6577, 107.6581, 107.6547, 107.6542, 
  107.6661, 107.6637, 107.6732, 107.6749)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  21.1252, 21.11399, 21.09782, 21.07219, 21.0593, 21.05641, 21.03994, 21.04222, 21.03133, 21.03682, 
  21.02876, 21.00891, 20.99745, 20.98904, 20.98487, 20.98687, 20.9783, 20.96956, 20.97685, 21.01163, 
  21.02629, 21.03054, 21.05073, 21.06523, 21.09318, 21.12032)
LONGITUDE_VALUEs <- c(
  107.631, 107.6195, 107.6113, 107.5872, 107.5858, 107.5874, 107.5835, 107.5901, 107.5896, 107.5879, 
  107.5776, 107.5711, 107.5647, 107.5742, 107.5709, 107.5676, 107.5633, 107.5635, 107.5761, 107.5869, 
  107.5892, 107.5977, 107.6009, 107.6095, 107.6173, 107.6304)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo) %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))
#COUNTRIE(s) from Global Administrative Areas (GADM)
Geo_0 <- GeoDATA_from_GADM_level_0_low_resolution %>% filter(NAME == "Vietnam")
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_0 <- st_union(Geo_0[c(13, 348, 374, 387, 390, 468, 513, 548, 554, 929, 968, 1003), ])
Geo_2 <- st_union(Geo_2, Geo_0) %>%
  mutate(SOURCE = paste(SOURCE, "and Global Administrative Areas (GADM)"))
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

##### DEM. PEOPLE'S REPUBLIC OF KOREA #####
Geo_0 <- Geometric_Operations(Geo_3, Geo_1)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_3 <- st_set_geometry(Geo_3, Geo_0[2])
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(
  40.67035, 40.66541, 40.66475, 40.66996, 40.67165, 40.66983, 40.66619, 40.65863, 40.64457, 
  40.63324, 40.62881, 40.62555, 40.62464, 40.64105, 40.65056, 40.65095, 40.64665, 40.63714, 40.63832, 
  40.65069, 40.65421, 40.64809, 40.64027, 40.63037, 40.62008, 40.61226, 40.60796, 40.61069, 40.61096, 
  40.60796, 40.60561, 40.58176, 40.55985, 40.54485, 40.52528, 40.51837, 40.50114, 40.49722, 40.49292, 
  40.48626, 40.46458, 40.45883, 40.45635, 40.45687, 40.46726, 40.47091, 40.47072, 40.45668, 40.45322, 
  40.454, 40.45759, 40.46334, 40.46713, 40.47784, 40.4811, 40.48195, 40.47588, 40.46419, 40.4542, 
  40.43467, 40.4118, 40.4082, 40.40487, 40.39598, 40.39265, 40.38715, 40.37584, 40.36643, 40.33248, 
  40.32247, 40.31383, 40.3029, 40.30355, 40.30152, 40.29884, 40.28764, 40.27029, 40.2661, 40.26505, 
  40.25949, 40.25254, 40.2456, 40.23728, 40.23728, 40.23256, 40.23, 40.22332, 40.22076, 40.21841, 
  40.19959, 40.19874, 40.19441, 40.18943, 40.18681, 40.17573, 40.17235, 40.17373, 40.17514, 40.17435, 
  40.17166, 40.16576, 40.16057, 40.15743, 40.14299, 40.13919, 40.13899, 40.13669, 40.13013, 40.12022, 
  40.11523, 40.10119, 40.09278, 40.08641, 40.08096, 40.07774, 40.06073, 40.05331, 40.04713, 40.04115, 
  40.038, 40.03274, 40.02926, 40.02038, 40.01677, 39.99994, 39.99264, 39.97483, 39.97321, 39.97449, 
  39.97564, 39.97817, 39.98074, 39.98324, 39.98639, 39.98794, 39.98784, 39.98682, 39.98682, 39.98472, 
  39.98225, 39.97798, 39.97656, 39.97163, 39.96804, 39.96702, 39.96765, 39.96873, 39.96896, 39.96771, 
  39.96515, 39.96416, 39.96383, 39.96163, 39.96018, 39.9589, 39.95094, 39.94883, 39.94594, 39.94653, 
  39.94462, 39.94317, 39.94252, 39.93738, 39.93258, 39.93047, 39.92777, 39.93087, 39.93264, 39.92797, 
  39.91922, 39.90941, 39.89183,
  39.88457, 39.87081, 39.8656, 39.84709, 39.82323, 39.81519, 39.80833, 39.802, 39.79966, 39.80405, 
  39.8024, 39.80019, 39.80009, 39.79841, 39.79455, 39.79534, 39.79525, 39.79406, 39.79475, 39.79445, 
  39.79198, 39.79135, 39.79726, 39.79732, 39.79828, 39.79759, 39.79785, 39.79854, 39.79939, 39.8008, 
  39.80139, 39.80027, 39.80257, 39.80402, 39.80427, 39.80339, 39.80523, 39.80649, 39.8087, 39.80988, 
  39.80936, 39.81182, 39.82215, 39.82479, 39.8263, 39.82767, 39.82839, 39.83124, 39.83129, 39.83546, 
  39.83831, 39.84237, 39.84327, 39.86395, 39.87249, 39.89818, 39.90308, 39.90868, 39.91006, 39.90442, 
  39.90055, 39.88835, 39.88344, 39.88024, 39.87543, 39.86696, 39.85928, 39.85829, 39.85098, 39.85431, 
  39.85263, 39.85325, 39.84726, 39.84027, 39.83803, 39.83078, 39.83088, 39.82737, 39.82361, 39.82213, 
  39.82241, 39.82067, 39.81135, 39.80656, 39.7981, 39.80064, 39.79276, 39.79332, 39.7931, 39.79479, 
  39.79231, 39.79549, 39.80023, 39.80184, 39.80164, 39.80634, 39.80835, 39.80468, 39.79561, 39.79574, 
  39.79066, 39.79017, 39.79284, 39.78951, 39.79178, 39.78783, 39.78756, 39.78591, 39.78054, 39.77397, 
  39.76932, 39.7655, 39.76164, 39.76127, 39.7588, 39.75761, 39.72633, 39.72286, 39.72022, 39.72032, 
  39.72207, 39.72418, 39.7264, 39.72758, 39.72362, 39.71692, 39.70837, 39.70299, 39.69939, 39.69361, 
  39.69365, 39.69051, 39.69004, 39.6875, 39.69169, 39.69093, 39.68882, 39.67944, 39.67478, 39.67148, 
  39.66818, 39.67056, 39.66514, 39.64303, 39.6419, 39.63725, 39.63176, 39.62548, 39.61953, 39.61679,
  39.61489, 39.61651, 39.61651, 39.61185, 39.60772, 39.60316, 39.60241, 39.60078, 39.60048, 39.60228, 
  39.60188, 39.59937, 39.59896, 39.5974, 39.59734, 39.59661, 39.59687, 39.5954, 39.59408, 39.59507, 
  39.59132, 39.59434, 39.59456, 39.58938, 39.58717, 39.5872, 39.58818, 39.58849, 39.5895, 39.58952, 
  39.59256, 39.59664, 39.59823, 39.59922, 39.59909, 39.60273, 39.60278, 39.60658, 39.60722, 39.60876, 
  39.60951, 39.60942, 39.60719, 39.60826, 39.60803, 39.60712, 39.60711, 39.6078, 39.60827, 39.60934, 
  39.60929, 39.61023, 39.6119, 39.61608, 39.61524, 39.61716, 39.61868, 39.61944, 39.61851, 39.61957, 
  39.61965, 39.6188, 39.61896, 39.61825, 39.61822, 39.61764, 39.61772, 39.61921, 39.62099, 39.62245, 
  39.62549, 39.6305, 39.63238, 39.63374, 39.63514, 39.63326, 39.62674, 39.62306, 39.62375, 39.62706, 
  39.62765, 39.62972, 39.63069, 39.63175, 39.63162, 39.63337, 39.63476, 39.6357, 39.63521, 39.63669, 
  39.63787, 39.64335, 39.64522, 39.64168, 39.63904, 39.64183, 39.64253, 39.64674, 39.64727, 39.64618, 
  39.64436, 39.6422, 39.64109, 39.64193, 39.64198, 39.64111, 39.64154, 39.64231, 39.64215, 39.64661, 
  39.64699, 39.64601, 39.64553, 39.64768, 39.648, 39.64958, 39.65061, 39.65099, 39.65189, 39.65361, 
  39.65209, 39.66028, 39.67152, 39.67355, 39.67102, 39.67381, 39.67266, 39.67494, 39.67614, 39.68022, 
  39.68347, 39.68587, 39.6861, 39.68484, 39.68387, 39.68446, 39.68392, 39.68471, 39.68524, 39.68625, 
  39.68598, 39.68772, 39.69109, 39.69125, 39.68815, 39.68839, 39.68608, 39.68655, 39.68962, 39.69112, 
  39.69578, 39.69881, 39.70245, 39.70235, 39.70051, 39.7017, 39.7037, 39.70865, 39.71273, 39.71737, 
  39.72366, 39.72852, 39.73052, 39.73067, 39.72935, 39.73131, 39.72897, 39.73009, 39.73973, 39.72015, 
  39.71731, 39.70827, 39.70143, 39.70272, 39.70137, 39.68978, 39.68667, 39.68354, 39.68228, 39.6763, 
  39.6655, 39.66183, 39.6577, 39.65446, 39.64724, 39.64288, 39.63534, 39.62959, 39.63158, 39.62582, 
  39.62589, 39.61974, 39.62159, 39.60916, 39.60797, 39.60506, 39.59488, 39.59124, 39.58701, 39.57424,
  39.57118, 39.57015, 39.56315, 39.56242, 39.56732, 39.56566, 39.55865, 39.55428, 39.55064, 39.55038, 
  39.55435, 39.55521, 39.55229, 39.55885, 39.56004, 39.55038, 39.54402, 39.5431, 39.53879, 39.53515, 
  39.52857, 39.524, 39.52218, 39.51894, 39.51288, 39.52139, 39.51927, 39.51907, 39.51549, 39.51397, 
  39.51152, 39.50881, 39.50589, 39.50245, 39.50059, 39.50099, 39.4996, 39.49924, 39.49778, 39.4943, 
  39.49284, 39.4941, 39.49394, 39.49837, 39.49765, 39.4995, 39.49867, 39.50473, 39.50549, 39.50241, 
  39.50049, 39.49884, 39.50079, 39.50394, 39.50486, 39.50417, 39.50682, 39.51198, 39.51364, 39.51887, 
  39.5237, 39.51993, 39.52188, 39.52261, 39.5243, 39.52569, 39.5285, 39.52748, 39.52844, 39.53195, 
  39.5342, 39.53711, 39.53317, 39.53787, 39.54082, 39.54111, 39.54965, 39.5562, 39.5609, 39.55852, 
  39.5654, 39.57016, 39.57198, 39.57453, 39.57526, 39.57949, 39.58167, 39.58637, 39.5871, 39.59351, 
  39.5992, 39.60052, 39.59636, 39.59755, 39.60297, 39.60403, 39.60872, 39.60952, 39.61481, 39.61597, 
  39.62136, 39.62403, 39.62721, 39.63045, 39.63269, 39.64879, 39.65652, 39.65126, 39.64472, 39.65027, 
  39.64955, 39.66075, 39.67532, 39.6663, 39.66369, 39.66114, 39.66091, 39.6552, 39.65576, 39.64545, 
  39.64366, 39.63877, 39.63924, 39.63686, 39.63031, 39.63061, 39.63368, 39.63715, 39.64079, 39.64131, 
  39.63851, 39.64135, 39.63814, 39.64865, 39.64835, 39.63907, 39.63547, 39.63011, 39.63246, 39.62912, 
  39.62413, 39.62872, 39.62793, 39.61765, 39.61319, 39.61252, 39.61041, 39.5911, 39.58637, 39.58442, 
  39.58706, 39.58002, 39.57965, 39.574, 39.57109, 39.57112, 39.53448, 39.518, 39.52426, 39.53039, 
  39.53029, 39.52744, 39.52724, 39.52453, 39.52267, 39.52492, 39.52545, 39.52698, 39.52983, 39.53138, 
  39.53339, 39.53742, 39.53858, 39.53548, 39.53592, 39.53753, 39.53799, 39.53899, 39.53979, 39.54062, 
  39.54141, 39.54088, 39.54446, 39.54483, 39.54643, 39.54683, 39.55105, 39.55263, 39.55594, 39.55704,
  39.55332, 39.56616, 39.57152, 39.57407, 39.57648, 39.57466, 39.57685, 39.57959, 39.57979, 39.57532, 
  39.57695, 39.58105, 39.58297, 39.58574, 39.59007, 39.60006, 39.60198, 39.59437, 39.59411, 39.60456, 
  39.60978, 39.60766, 39.58842, 39.57936, 39.57903, 39.56202, 39.54535, 39.53926, 39.52171, 39.52198, 
  39.5278, 39.52641, 39.52946, 39.54078, 39.52953, 39.5599, 39.58081, 39.58696, 39.57519, 39.5734, 
  39.5603, 39.54952, 39.53462, 39.51515, 39.4937, 39.47376, 39.45547, 39.42928, 39.42226, 39.37649, 
  39.37676, 39.37676, 39.35128, 39.33787, 39.33588, 39.31954, 39.31729, 39.28859, 39.27358, 39.27132, 
  39.25903, 39.25106, 39.24886, 39.24149, 39.23497, 39.22792, 39.2373, 39.22985, 39.22719, 39.22267, 
  39.22214, 39.21908, 39.21881, 39.21473, 39.2142, 39.20086, 39.20339, 39.21103, 39.20458, 39.19727, 
  39.19481, 39.19078, 39.18356, 39.17604, 39.17239, 39.17884, 39.1644, 39.1628, 39.15435, 39.1453, 
  39.1415, 39.11727, 39.10668, 39.09909, 39.09629, 39.07977, 39.05544, 39.00343, 38.99649, 38.99756, 
  38.97835, 38.98061, 38.94818, 38.94364, 38.86924, 38.85118, 38.81147, 38.78579, 38.76424, 38.7534, 
  38.76673, 38.75769, 38.7605, 38.75267, 38.74718, 38.73493, 38.72998, 38.73306, 38.73071, 38.74183, 
  38.73915, 38.7347, 38.72784, 38.72516, 38.7072, 38.70358, 38.70224, 38.69675, 38.69575, 38.69753, 
  38.69552, 38.70693, 38.70854, 38.71524, 38.71048, 38.71966, 38.71765, 38.71745, 38.7372, 38.71844, 
  38.70169, 38.69687, 38.69004, 38.69888, 38.69673, 38.68387, 38.68628, 38.66632, 38.66886, 38.65961, 
  38.66672, 38.67047, 38.67543, 38.66471, 38.66618, 38.66283, 38.66565, 38.65559, 38.65774, 38.65238, 
  38.67329, 38.67195, 38.66712, 38.63709, 38.62958, 38.63267, 38.63186, 38.63776, 38.64299, 38.64929, 
  38.6568, 38.66538, 38.6698, 38.67142, 38.67839, 38.67531, 38.67089, 38.66613, 38.65963, 38.65889, 
  38.65474, 38.65353, 38.64294, 38.64461, 38.63597, 38.63724, 38.62819, 38.62631, 38.60096, 38.60067, 
  38.61156, 38.60592, 38.60086, 38.587, 38.58197, 38.5864, 38.58988, 38.59337, 38.59606, 38.59069,
  38.59086, 38.59368, 38.59078, 38.59416, 38.59193, 38.59032, 38.59141, 38.59016, 38.58786, 38.58687, 
  38.58695, 38.58809, 38.58732, 38.58642, 38.58655, 38.58843, 38.58678, 38.58355, 38.58272, 38.58293, 
  38.58206, 38.58183, 38.58088, 38.58044, 38.57952, 38.58036, 38.58026, 38.57924, 38.57937, 38.57873, 
  38.57743, 38.57855, 38.57936, 38.58035, 38.58145, 38.58209, 38.58108, 38.58052, 38.58081, 38.58246, 
  38.58295, 38.5844, 38.58504, 38.58287, 38.58303, 38.58242, 38.5793, 38.57774, 38.57781, 38.57266, 
  38.56628, 38.56044, 38.55101, 38.54726, 38.53692, 38.53517, 38.53755, 38.53366, 38.50861, 38.50126, 
  38.48792, 38.47234, 38.45785, 38.45836, 38.46299, 38.46548, 38.46555, 38.46941, 38.46777, 38.45479, 
  38.44713, 38.44307, 38.44448, 38.42494, 38.40268, 38.37772, 38.37443, 38.36857, 38.36649, 38.35605, 
  38.34212, 38.32966, 38.32711, 38.32004, 38.31539, 38.28515, 38.26318, 38.25948, 38.25732, 38.2497, 
  38.24094, 38.24081, 38.23197, 38.21522, 38.19815, 38.18692, 38.18247, 38.17839, 38.17822, 38.1735, 
  38.17218, 38.17019, 38.17097, 38.16719, 38.17228, 38.17468, 38.17846, 38.18092, 38.18547, 38.18686, 
  38.1882, 38.18885, 38.18675, 38.1847, 38.18362, 38.17748, 38.16769, 38.15285, 38.14076, 38.13654, 
  38.1408, 38.13833, 38.14059, 38.14002, 38.13624, 38.12986, 38.12105, 38.11973, 38.11585, 38.11585, 
  38.11426, 38.11281, 38.11004, 38.11146, 38.10548, 38.10312, 38.10335, 38.10089, 38.10295, 38.10055, 
  38.10187, 38.09964, 38.09727, 38.09957, 38.09903, 38.10018, 38.09977, 38.10122, 38.0997, 38.10041, 
  38.09967, 38.10095, 38.09937, 38.0993, 38.10207, 38.10379, 38.10474, 38.1072, 38.10737, 38.10849, 
  38.10882, 38.10524, 38.10838, 38.10869, 38.10737, 38.1252, 38.123, 38.11855, 38.10821, 38.10507, 
  38.10372, 38.09555, 38.09548, 38.08498, 38.07812, 38.0739, 38.06795, 38.06654, 38.06623, 38.06547, 
  38.06532, 38.06723, 38.07422, 38.07816, 38.07564, 38.07606, 38.06802, 38.07011, 38.07024, 38.07315,
  38.07502, 38.07779, 38.07654, 38.07904, 38.07867, 38.084, 38.09522, 38.08964, 38.09079, 38.08961, 
  38.09279, 38.09299, 38.0962, 38.10001, 38.09572, 38.09525, 38.08863, 38.08937, 38.08427, 38.09012, 
  38.08782, 38.0862, 38.08011, 38.07971, 38.08444, 38.07316, 38.06816, 38.05403, 38.05532, 38.0495, 
  38.04159, 38.0347, 38.03423, 38.04099, 38.05471, 38.05917, 38.05498, 38.04856, 38.05079, 38.04612, 
  38.04883, 38.04355, 38.04619, 38.05221, 38.03923, 38.03281, 38.02219, 38.01631, 38.00752, 38.00529, 
  38.00035, 38.00035, 37.99027, 37.99345, 37.99311, 37.99609, 37.99467, 37.98953, 37.98283, 37.97945, 
  37.97945, 37.96395, 37.96233, 37.97126, 37.97545, 37.98459, 37.9852, 37.97593, 37.97011, 37.96679, 
  37.9628, 37.9605, 37.96379, 37.96815, 37.96602, 37.95976, 37.9624, 37.95536, 37.9532, 37.94737, 
  37.93712, 37.93194, 37.92412, 37.92737, 37.93289, 37.93498, 37.9405, 37.94159, 37.94511, 37.9448, 
  37.94047, 37.93512, 37.93421, 37.92378, 37.92141, 37.91325, 37.91041, 37.91095, 37.90838, 37.90821, 
  37.90594, 37.90289, 37.90415, 37.90154, 37.90398, 37.90479, 37.90425, 37.90746, 37.90797, 37.90577, 
  37.89903, 37.8947, 37.8927, 37.88305, 37.88284, 37.8804, 37.88095, 37.87956, 37.88074, 37.87898, 
  37.87272, 37.86868, 37.87627, 37.87789, 37.87253, 37.87464, 37.86928, 37.87179, 37.87077, 37.87206, 
  37.87043, 37.8726, 37.87538, 37.88622, 37.88683, 37.89618, 37.8974, 37.90146, 37.90647, 37.90938, 
  37.9043, 37.90207, 37.89895, 37.90051, 37.89692, 37.8928, 37.89436, 37.89381, 37.88907, 37.88748, 
  37.88853, 37.88596, 37.88067, 37.88016, 37.88128, 37.87949, 37.88196, 37.88074, 37.87301, 37.87118, 
  37.87355, 37.87179, 37.8682, 37.8615, 37.85354, 37.84957, 37.83578, 37.83554, 37.83096, 37.8309, 
  37.82588, 37.82215, 37.81815, 37.81425, 37.81496, 37.82096, 37.82222, 37.82229, 37.81937, 37.81736, 
  37.81985, 37.81798, 37.81878, 37.80756, 37.80824, 37.80358, 37.80508, 37.80425, 37.80852, 37.80913, 
  37.80683, 37.8073, 37.80546, 37.80333, 37.8018, 37.80231, 37.8039, 37.80442, 37.80596, 37.80452, 
  37.80454, 37.80815, 37.80857, 37.82838, 37.82855, 37.82417, 37.82228, 37.82082, 37.81954, 37.82144, 
  37.82296, 37.82278, 37.82457, 37.82979, 37.83152, 37.8421, 37.84343, 37.84631, 37.85105, 37.84616, 
  37.84504, 37.84793, 37.85184, 37.85287, 37.85469, 37.85567, 37.85545, 37.85628, 37.85492, 37.85489, 
  37.85401, 37.85474, 37.85877, 37.86237, 37.86199, 37.85986, 37.86152, 37.86074, 37.8626, 37.86775, 
  37.86643, 37.86826, 37.86985, 37.87057, 37.86714, 37.86027, 37.85925, 37.85732, 37.86, 37.8601,
  37.8584, 37.86039, 37.86138, 37.85903, 37.86011, 37.86201, 37.85744, 37.85615, 37.85379, 37.85061, 
  37.85032, 37.84831, 37.84688, 37.84959, 37.8521, 37.85039, 37.84676, 37.84343, 37.84449, 37.84731, 
  37.84858, 37.84842, 37.85281, 37.86011, 37.86665, 37.8741, 37.88613, 37.88386, 37.88589, 37.89165, 
  37.89331, 37.89653, 37.8948, 37.89507, 37.90022, 37.90252, 37.90763, 37.91298, 37.90821, 37.9171, 
  37.91197, 37.89726, 37.88857, 37.88652, 37.88203, 37.88227, 37.88545, 37.88593, 37.88759, 37.88813, 
  37.89302, 37.89252, 37.88564, 37.88439, 37.884, 37.8832, 37.88279, 37.88196, 37.88147, 37.88083, 
  37.88098, 37.87942, 37.87959, 37.87492, 37.87107, 37.87092, 37.86745, 37.86376, 37.86404, 37.86103, 
  37.8591, 37.85893, 37.85296, 37.84585, 37.83144, 37.82829, 37.82551, 37.82619, 37.82904, 37.83676, 
  37.83629, 37.83937, 37.82795, 37.82137, 37.81592, 37.82693, 37.8333, 37.83032, 37.83646, 37.83826, 
  37.83629, 37.8269, 37.83026, 37.82137, 37.819, 37.81866, 37.81483, 37.81588, 37.81263, 37.80937, 
  37.80907, 37.81792, 37.82368, 37.81819, 37.80581, 37.80008, 37.79812, 37.79876, 37.79703, 37.7914, 
  37.79405, 37.79035, 37.79272, 37.78859, 37.7916, 37.79208, 37.79666, 37.79907, 37.79734, 37.79428, 
  37.79001, 37.78045, 37.7821, 37.78115, 37.7839, 37.78584, 37.78516, 37.78078, 37.77444, 37.77037, 
  37.7685, 37.76847, 37.76725, 37.76796, 37.76782, 37.77118, 37.77729, 37.77875, 37.78109, 37.77922, 
  37.77546, 37.77651, 37.7665, 37.76358, 37.76396, 37.76162, 37.76121, 37.76308, 37.76374, 37.76566, 
  37.76708, 37.77061, 37.77136, 37.77066, 37.77161, 37.77219, 37.77149, 37.77215, 37.76968, 37.7694, 
  37.76666, 37.76432, 37.76269, 37.76254, 37.76058, 37.7613, 37.75909, 37.75509, 37.75441, 37.75273, 
  37.75, 37.75247, 37.75225, 37.74769, 37.74503, 37.7454, 37.72928, 37.72785, 37.72558, 37.72398, 
  37.72227, 37.71893, 37.71804, 37.71874, 37.7168, 37.71579, 37.71336, 37.71304, 37.71098, 37.71134, 
  37.70662, 37.69891, 37.69524, 37.6873, 37.68292, 37.68152, 37.68239, 37.6819, 37.6794, 37.67952, 
  37.6784, 37.67699, 37.677, 37.67824, 37.68061, 37.68046, 37.68112, 37.68127, 37.68221, 37.68254, 
  37.68419, 37.68477, 37.68479, 37.68534, 37.68775, 37.68827, 37.68892, 37.6887, 37.68833, 37.68828,
  37.68916, 37.69043, 37.69171, 37.69168, 37.69339, 37.69316, 37.69366, 37.69314, 37.69196, 37.69185, 
  37.69127, 37.69185, 37.69399, 37.69551, 37.69554, 37.69771, 37.70005, 37.7004, 37.70369, 37.7061, 
  37.70755, 37.70895, 37.70941, 37.71613, 37.7184, 37.71969, 37.71748, 37.71898, 37.71762, 37.71887, 
  37.72064, 37.72274, 37.7238, 37.72587, 37.72576, 37.73187, 37.73327, 37.72984, 37.73028, 37.72807, 
  37.72627, 37.72685, 37.73035, 37.74328, 37.75257, 37.75956, 37.76754, 37.7693, 37.77259, 37.77503, 
  37.77782, 37.78083, 37.78012, 37.78273, 37.78372, 37.78582, 37.78613, 37.79077, 37.79379, 37.7964, 
  37.8039, 37.80596, 37.81017, 37.8064, 37.80356, 37.79406, 37.78962, 37.78653, 37.78151, 37.78073, 
  37.77663, 37.77646, 37.77364, 37.76954, 37.77273, 37.77113, 37.76828, 37.77182, 37.77108, 37.76721, 
  37.76931, 37.76984, 37.76828, 37.76594, 37.76577, 37.76414, 37.76119, 37.76465, 37.76666, 37.76903, 
  37.77079, 37.77303, 37.77486, 37.7771, 37.77849, 37.77999, 37.79979, 37.79972, 37.80379, 37.80582, 
  37.80488, 37.80851, 37.81424, 37.80854, 37.81122, 37.81051, 37.81627, 37.81912, 37.81776, 37.82278, 
  37.82576, 37.82847, 37.83424, 37.83478, 37.8261, 37.82573, 37.82793, 37.82969, 37.83505, 37.83458, 
  37.83773, 37.84, 37.84491, 37.84695, 37.84925, 37.84956, 37.85423, 37.85704, 37.85762, 37.85579, 
  37.85853, 37.86568, 37.87273, 37.87473, 37.88262, 37.89379, 37.89552, 37.90104, 37.90219, 37.90134, 
  37.89538, 37.89338, 37.89301, 37.89691, 37.90236, 37.9177, 37.93304, 37.93941, 37.9409, 37.92648, 
  37.92092, 37.93088, 37.91889, 37.92973, 37.9325, 37.93446, 37.93277, 37.93494, 37.93954, 37.93907, 
  37.94299, 37.94604, 37.95112, 37.95619, 37.96235, 37.95944, 37.95964, 37.95443, 37.95491, 37.95707, 
  37.96479, 37.96579, 37.96975, 37.97276, 37.96315, 37.96048, 37.97087, 37.97797, 37.98265, 37.9928, 
  37.99056, 37.98589, 37.96755, 37.97161, 37.97912, 37.98528, 37.98149, 37.98474, 37.99008, 37.99157, 
  37.99705, 38.00253, 38.00882, 38.00963, 38.01416, 38.02106, 38.02958, 38.02768, 38.02376, 38.02478, 
  38.03154, 38.03769, 38.03144, 38.02917, 38.0219, 38.02457, 38.02024, 38.02349, 38.01953, 38.02156, 
  38.02514, 38.02528, 38.02437, 38.02616, 38.0265, 38.02339, 38.01622, 38.0125, 38.00719, 38.01216, 
  38.01507, 38.01439, 38.01219, 38.00967, 38.00518, 38.00531, 38.00125, 38.00119, 37.99755, 37.99547, 
  37.99395, 37.99733, 37.99669, 37.99359, 37.99119, 37.99665, 37.99853, 38.00046, 38.0077, 38.01263, 
  38.01247, 38.01443, 38.01456, 38.01821, 38.01764, 38.01973, 38.01686, 38.01862, 38.01602, 38.00695,
  37.99692, 37.99485, 37.99053, 37.98826, 37.98376, 37.96418, 37.95884, 37.95018, 37.94402, 37.95133, 
  37.94375, 37.93847, 37.93488, 37.93664, 37.9233, 37.92114, 37.91511, 37.91172, 37.91213, 37.9084, 
  37.90549, 37.89784, 37.87115, 37.86878, 37.86261, 37.85909, 37.84811, 37.83171, 37.82669, 37.8094, 
  37.81252, 37.80893, 37.80282, 37.79801, 37.7862, 37.78329, 37.77854, 37.77399, 37.77189, 37.76653, 
  37.76673, 37.77013, 37.77128, 37.78193, 37.78071, 37.81299, 37.82723, 37.83177, 37.8336, 37.8332, 
  37.8294, 37.83774, 37.84215, 37.81876, 37.82832, 37.82988, 37.82316, 37.81889, 37.80621, 37.8077, 
  37.80623, 37.80202, 37.79816, 37.79657, 37.79363, 37.78973, 37.78573, 37.79077, 37.78931, 37.78745, 
  37.78643, 37.7887, 37.79033, 37.79142, 37.78823, 37.78233, 37.78148, 37.75668, 37.75448, 37.74311, 
  37.74328, 37.7481, 37.7694, 37.78134, 37.81919, 37.82963, 37.83871, 37.85227, 37.84088, 37.87395, 
  37.88208, 37.88086, 37.88362, 37.86352, 37.85403, 37.84617, 37.83491, 37.81977, 37.81876, 37.82052, 
  37.81849, 37.80906, 37.80967, 37.80147, 37.80221, 37.79529, 37.78161, 37.77705, 37.77252, 37.76999, 
  37.7742, 37.78688, 37.78992, 37.79196, 37.79338, 37.79108, 37.79216, 37.79108, 37.78952, 37.79047, 
  37.79135, 37.79576, 37.80095, 37.80427, 37.81142, 37.81325, 37.81451, 37.83092, 37.83203, 37.83393, 
  37.836, 37.83712, 37.83725, 37.83993, 37.84125, 37.84264, 37.83373, 37.84264)
LONGITUDE_VALUEs <- c(
  125.4492, 125.443, 125.4377, 125.4279, 125.4172, 125.4119, 125.409, 125.4093, 125.4158, 
  125.4174, 125.4158, 125.4081, 125.3976, 125.3815, 125.3707, 125.3633, 125.3484, 125.3302, 125.322, 
  125.301, 125.277, 125.2667, 125.2645, 125.2663, 125.2632, 125.2579, 125.2413, 125.2282, 125.2121, 
  125.1862, 125.1788, 125.1372, 125.1053, 125.0531, 125.0083, 125.0023, 124.9989, 125.004, 125.0272, 
  125.0392, 125.0406, 125.0311, 125.0203, 125.0137, 124.9971, 124.9877, 124.9807, 124.9515, 124.9402, 
  124.9239, 124.9116, 124.9057, 124.906, 124.9099, 124.906, 124.9003, 124.8892, 124.8833, 124.8763, 
  124.8582, 124.8277, 124.8216, 124.8178, 124.7993, 124.7805, 124.7659, 124.7459, 124.7375, 124.7287, 
  124.7217, 124.7066, 124.6732, 124.66, 124.6433, 124.6414, 124.6161, 124.591, 124.587, 124.582, 
  124.575, 124.5718, 124.555, 124.546, 124.5424, 124.5332, 124.5233, 124.5198, 124.5172, 124.5095, 
  124.5019, 124.4999, 124.4949, 124.4896, 124.4884, 124.4854, 124.4813, 124.478, 124.4721, 124.4568, 
  124.45, 124.4428, 124.4407, 124.4377, 124.4304, 124.4162, 124.4117, 124.4075, 124.4001, 124.3966, 
  124.3923, 124.3707, 124.3665, 124.3615, 124.3508, 124.3474, 124.3359, 124.3345, 124.3368, 124.356, 
  124.356, 124.3607, 124.3621, 124.366, 124.3664, 124.3608, 124.3564, 124.3477, 124.346, 124.3456, 
  124.3441, 124.3434, 124.3447, 124.3438, 124.3446, 124.3459, 124.345, 124.3433, 124.3422, 124.3382, 
  124.3301, 124.3222, 124.323, 124.3175, 124.3111, 124.3042, 124.2978, 124.2972, 124.2962, 124.292, 
  124.2921, 124.291, 124.2873, 124.2832, 124.283, 124.2847, 124.2842, 124.2824, 124.284, 124.2876, 
  124.2938, 124.2938, 124.2905, 124.2857, 124.2845, 124.2862, 124.2841, 124.2763, 124.2633, 124.2399, 
  124.2272, 124.2211, 124.2153,
  124.2241, 124.2251, 124.2317, 124.2214, 124.1841, 124.1807, 124.1867, 124.185, 124.1878, 124.193, 
  124.1997, 124.2016, 124.2039, 124.2045, 124.2132, 124.2146, 124.2178, 124.2186, 124.2199, 124.222, 
  124.2228, 124.2254, 124.2295, 124.2324, 124.2336, 124.2359, 124.2375, 124.2372, 124.2384, 124.2373, 
  124.2383, 124.2397, 124.2423, 124.2426, 124.2439, 124.2445, 124.2471, 124.2502, 124.2515, 124.2544, 
  124.2577, 124.2567, 124.2574, 124.2596, 124.2629, 124.2622, 124.2626, 124.2625, 124.2652, 124.2652, 
  124.2669, 124.2675, 124.2688, 124.2665, 124.2673, 124.276, 124.2742, 124.2747, 124.3106, 124.3117, 
  124.318, 124.3278, 124.3392, 124.3433, 124.3469, 124.3498, 124.3505, 124.3614, 124.3773, 124.3837, 
  124.3885, 124.3933, 124.4006, 124.4034, 124.408, 124.412, 124.4147, 124.4174, 124.4172, 124.4157, 
  124.4141, 124.4126, 124.4124, 124.4095, 124.4195, 124.4236, 124.4319, 124.4336, 124.4356, 124.4385, 
  124.4425, 124.4472, 124.4462, 124.4485, 124.4502, 124.4556, 124.4657, 124.4761, 124.4794, 124.4873, 
  124.4916, 124.4972, 124.4998, 124.5036, 124.5088, 124.5133, 124.526, 124.5334, 124.5398, 124.5397, 
  124.5422, 124.5529, 124.551, 124.5473, 124.5478, 124.5364, 124.5566, 124.5529, 124.5533, 124.5574, 
  124.5576, 124.5592, 124.565, 124.5802, 124.5913, 124.6043, 124.6157, 124.6157, 124.6188, 124.6187, 
  124.6145, 124.6175, 124.623, 124.627, 124.6341, 124.6364, 124.6339, 124.6418, 124.6399, 124.644, 
  124.6402, 124.6361, 124.6311, 124.6279, 124.6208, 124.6186, 124.6111, 124.61, 124.6134, 124.6127,
  124.6166, 124.6188, 124.6272, 124.6298, 124.6308, 124.6287, 124.6299, 124.6288, 124.6243, 124.6229, 
  124.6214, 124.6205, 124.619, 124.6179, 124.6158, 124.6143, 124.6125, 124.612, 124.6127, 124.6154, 
  124.6186, 124.6226, 124.6278, 124.6343, 124.6349, 124.6363, 124.6368, 124.6387, 124.6397, 124.6419, 
  124.6442, 124.6433, 124.6391, 124.639, 124.6405, 124.6421, 124.6404, 124.6391, 124.6373, 124.6362, 
  124.6369, 124.639, 124.6416, 124.6452, 124.6465, 124.6466, 124.6473, 124.6478, 124.6487, 124.6494, 
  124.6504, 124.6523, 124.6523, 124.655, 124.6586, 124.6594, 124.6575, 124.6582, 124.6602, 124.6635, 
  124.6669, 124.6681, 124.6696, 124.6704, 124.6734, 124.6736, 124.6741, 124.6748, 124.6769, 124.6772, 
  124.6756, 124.6772, 124.6787, 124.6789, 124.6799, 124.6816, 124.6786, 124.6809, 124.684, 124.6849, 
  124.6864, 124.6866, 124.6881, 124.6876, 124.6862, 124.6868, 124.688, 124.6911, 124.6934, 124.6938, 
  124.697, 124.6976, 124.7015, 124.7038, 124.7043, 124.7062, 124.71, 124.7147, 124.7176, 124.7238, 
  124.7278, 124.7275, 124.7295, 124.7309, 124.733, 124.7347, 124.74, 124.7405, 124.7426, 124.7492, 
  124.7443, 124.7431, 124.7376, 124.7367, 124.7382, 124.7376, 124.7397, 124.7385, 124.7391, 124.7369, 
  124.7323, 124.7262, 124.7372, 124.7434, 124.7477, 124.7501, 124.7554, 124.7564, 124.7594, 124.7546, 
  124.7554, 124.7585, 124.7611, 124.7616, 124.7643, 124.7661, 124.7679, 124.7683, 124.7669, 124.767, 
  124.7644, 124.7637, 124.7658, 124.762, 124.7614, 124.7566, 124.7536, 124.752, 124.7513, 124.7434, 
  124.742, 124.7383, 124.7423, 124.7441, 124.7443, 124.7491, 124.7507, 124.7487, 124.7445, 124.7452, 
  124.7494, 124.7497, 124.752, 124.7576, 124.7591, 124.7749, 124.7756, 124.7841, 124.7851, 124.7994, 
  124.797, 124.8024, 124.7998, 124.816, 124.8222, 124.8293, 124.8398, 124.8397, 124.8546, 124.8679, 
  124.8698, 124.867, 124.8773, 124.868, 124.8793, 124.8632, 124.8633, 124.8674, 124.8806, 124.8801, 
  124.8756, 124.8791, 124.8915, 124.8672, 124.8695, 124.8702, 124.8614, 124.8614, 124.8569, 124.8555,
  124.852, 124.8544, 124.8494, 124.8441, 124.8421, 124.8338, 124.8306, 124.8209, 124.8205, 124.8264, 
  124.8293, 124.836, 124.8374, 124.8432, 124.8477, 124.8602, 124.8549, 124.8429, 124.8434, 124.8535, 
  124.8579, 124.8541, 124.8556, 124.8538, 124.8439, 124.839, 124.8368, 124.8329, 124.8303, 124.8318, 
  124.8286, 124.8315, 124.8247, 124.8284, 124.8252, 124.8177, 124.8177, 124.8204, 124.8203, 124.8169, 
  124.8178, 124.8204, 124.8232, 124.8259, 124.8289, 124.8315, 124.8348, 124.8368, 124.8415, 124.8449, 
  124.8429, 124.8463, 124.8489, 124.8486, 124.8527, 124.858, 124.8589, 124.8651, 124.8722, 124.8728, 
  124.8758, 124.8807, 124.8814, 124.8876, 124.8883, 124.8826, 124.8881, 124.8896, 124.894, 124.8944, 
  124.8908, 124.8996, 124.9027, 124.9045, 124.914, 124.922, 124.933, 124.9374, 124.9319, 124.9107, 
  124.922, 124.9125, 124.9198, 124.9193, 124.9107, 124.9087, 124.917, 124.9184, 124.9045, 124.9077, 
  124.9072, 124.9156, 124.9183, 124.9265, 124.9296, 124.9237, 124.9242, 124.9043, 124.9106, 124.9043, 
  124.9026, 124.9082, 124.903, 124.9053, 124.9031, 124.9077, 124.9128, 124.9197, 124.9383, 124.9428, 
  124.9482, 124.9407, 124.9515, 124.9592, 124.9592, 124.963, 124.9669, 124.9689, 124.9713, 124.9687, 
  124.9665, 124.9653, 124.9694, 124.9743, 124.973, 124.9746, 124.975, 124.9785, 124.9847, 124.9881, 
  124.9894, 124.9948, 124.9972, 125.0094, 125.0177, 125.016, 125.0223, 125.0209, 125.0259, 125.0349, 
  125.0383, 125.046, 125.0534, 125.059, 125.0552, 125.0594, 125.0602, 125.0528, 125.0536, 125.0577, 
  125.0613, 125.0732, 125.0808, 125.0754, 125.0767, 125.087, 125.1025, 125.1076, 125.1125, 125.1292, 
  125.1329, 125.1349, 125.1378, 125.1377, 125.1402, 125.1409, 125.1433, 125.1418, 125.143, 125.1462, 
  125.1456, 125.1463, 125.1506, 125.1543, 125.1555, 125.1555, 125.1564, 125.1565, 125.1581, 125.1579, 
  125.1587, 125.1546, 125.1543, 125.1586, 125.1589, 125.1565, 125.154, 125.1581, 125.1598, 125.1556,
  125.1444, 125.1403, 125.1449, 125.1523, 125.1523, 125.1569, 125.1633, 125.1651, 125.1726, 125.176, 
  125.1848, 125.1866, 125.1798, 125.1815, 125.1804, 125.1675, 125.17, 125.1841, 125.195, 125.2058, 
  125.2201, 125.2272, 125.2174, 125.2187, 125.232, 125.2527, 125.2575, 125.2645, 125.2733, 125.2898, 
  125.2993, 125.3048, 125.3145, 125.3187, 125.3279, 125.3819, 125.4044, 125.4189, 125.4277, 125.4218, 
  125.4181, 125.4038, 125.3953, 125.397, 125.3891, 125.3521, 125.3347, 125.3511, 125.3469, 125.3668, 
  125.3807, 125.3991, 125.4022, 125.3971, 125.4053, 125.3996, 125.4139, 125.4, 125.3974, 125.4091, 
  125.3944, 125.392, 125.3848, 125.3833, 125.3876, 125.3864, 125.3752, 125.3675, 125.3575, 125.3556, 
  125.3504, 125.3487, 125.3425, 125.3438, 125.3402, 125.3537, 125.3427, 125.3353, 125.3339, 125.3245, 
  125.3336, 125.3324, 125.3159, 125.3208, 125.3087, 125.306, 125.3018, 125.2936, 125.2928, 125.2952, 
  125.2912, 125.284, 125.2924, 125.2839, 125.2864, 125.2644, 125.2558, 125.2094, 125.2077, 125.2002, 
  125.1911, 125.1821, 125.1605, 125.1756, 125.1404, 125.1445, 125.1346, 125.1466, 125.1265, 125.1409, 
  125.1544, 125.1543, 125.1646, 125.1621, 125.1667, 125.1646, 125.1782, 125.1822, 125.1984, 125.2068, 
  125.2127, 125.2057, 125.2253, 125.2243, 125.2661, 125.2681, 125.276, 125.283, 125.2925, 125.2961, 
  125.2986, 125.3116, 125.3207, 125.3239, 125.3392, 125.3714, 125.376, 125.3914, 125.4417, 125.4374, 
  125.4137, 125.419, 125.4101, 125.3788, 125.362, 125.3402, 125.3303, 125.3138, 125.3002, 125.2863, 
  125.2661, 125.2717, 125.2643, 125.2528, 125.2465, 125.2405, 125.236, 125.23, 125.2232, 125.1962, 
  125.1756, 125.1668, 125.1737, 125.1845, 125.166, 125.1624, 125.1552, 125.15, 125.1526, 125.1423, 
  125.1416, 125.1332, 125.1359, 125.1304, 125.1241, 125.1176, 125.1204, 125.1063, 125.1071, 125.1152, 
  125.1155, 125.1115, 125.1142, 125.1217, 125.1286, 125.1202, 125.1259, 125.132, 125.1275, 125.1204, 
  125.0917, 125.0841, 125.0446, 125.0283, 125.0119, 125.0096, 125, 124.9967, 124.9875, 124.9788,
  124.9735, 124.973, 124.971, 124.9607, 124.9599, 124.9622, 124.9637, 124.9654, 124.9655, 124.9669, 
  124.9694, 124.9714, 124.9756, 124.976, 124.9777, 124.9806, 124.9826, 124.9837, 124.9831, 124.9814, 
  124.9816, 124.9809, 124.9812, 124.9818, 124.9819, 124.983, 124.9849, 124.9871, 124.9885, 124.9894, 
  124.9899, 124.9917, 124.9906, 124.9904, 124.9894, 124.9894, 124.9943, 124.9951, 124.9962, 124.9964, 
  124.9968, 124.9957, 124.9963, 124.9989, 124.9998, 125.0001, 124.9981, 124.9987, 124.9979, 124.9971, 
  124.9932, 124.9942, 124.9902, 124.9911, 124.9835, 124.9871, 124.9903, 125.005, 125.0157, 125.0145, 
  125.0072, 124.9924, 124.9668, 124.9603, 124.9579, 124.9595, 124.9618, 124.9621, 124.9574, 124.9529, 
  124.9485, 124.9429, 124.9357, 124.9287, 124.9123, 124.8964, 124.8884, 124.8846, 124.8787, 124.8731, 
  124.8541, 124.8611, 124.8681, 124.8686, 124.8756, 124.8713, 124.8617, 124.8646, 124.8684, 124.8722, 
  124.8691, 124.8645, 124.8559, 124.8405, 124.8212, 124.8059, 124.7966, 124.7958, 124.7978, 124.802, 
  124.7997, 124.8, 124.7971, 124.793, 124.7916, 124.7871, 124.7852, 124.7821, 124.7822, 124.787, 
  124.7878, 124.7857, 124.7805, 124.7806, 124.7753, 124.7728, 124.7654, 124.7466, 124.7251, 124.7192, 
  124.6867, 124.6818, 124.6719, 124.6629, 124.6552, 124.65, 124.6628, 124.6788, 124.6836, 124.6868, 
  124.6886, 124.7016, 124.71, 124.7112, 124.7333, 124.7362, 124.7393, 124.7426, 124.7468, 124.7512, 
  124.7563, 124.768, 124.7716, 124.7751, 124.7774, 124.7778, 124.7797, 124.7807, 124.7834, 124.7843, 
  124.7855, 124.7875, 124.7891, 124.797, 124.8049, 124.8045, 124.8107, 124.8138, 124.8182, 124.8187, 
  124.8267, 124.8333, 124.8363, 124.8403, 124.8513, 124.8827, 124.8994, 124.9134, 124.9275, 124.9293, 
  124.9333, 124.9427, 124.9468, 124.9782, 124.9919, 124.9982, 125.0024, 125.0015, 124.9991, 124.9991, 
  125.0066, 125.0089, 125.0082, 125.0187, 125.0191, 125.0291, 125.041, 125.0429, 125.0458, 125.0465,
  125.0554, 125.0568, 125.0725, 125.0765, 125.0845, 125.0883, 125.1314, 125.1387, 125.1437, 125.1496, 
  125.156, 125.1612, 125.1643, 125.1782, 125.176, 125.1826, 125.1847, 125.1887, 125.1986, 125.2036, 
  125.2061, 125.2152, 125.2179, 125.2466, 125.2612, 125.2588, 125.2482, 125.2358, 125.233, 125.2305, 
  125.2342, 125.2327, 125.2158, 125.2161, 125.1994, 125.1696, 125.1662, 125.1421, 125.1379, 125.1319, 
  125.1284, 125.1248, 125.1183, 125.1136, 125.1056, 125.1095, 125.1012, 125.1102, 125.111, 125.1162, 
  125.1163, 125.1187, 125.1141, 125.1217, 125.1323, 125.1368, 125.1416, 125.1356, 125.1368, 125.1277, 
  125.1482, 125.1327, 125.0801, 125.0822, 125.0771, 125.0784, 125.0556, 125.0489, 125.0306, 125.0314, 
  125.0269, 125.0192, 125.0133, 125.0147, 125.0084, 125.0007, 124.9924, 124.9893, 124.9851, 124.9845, 
  124.9803, 124.9731, 124.9841, 124.9893, 124.9884, 124.9981, 124.9982, 125.0034, 125.0035, 125.0087, 
  125.0144, 125.0135, 125.0085, 125.0028, 125.0059, 125.0064, 125.0113, 125.0179, 125.0199, 125.0235, 
  125.026, 125.0265, 125.0284, 125.0359, 125.0362, 125.0488, 125.0536, 125.0552, 125.0614, 125.0673, 
  125.0744, 125.0747, 125.0717, 125.0793, 125.082, 125.0838, 125.0852, 125.0905, 125.0941, 125.1053, 
  125.1175, 125.1336, 125.1395, 125.1469, 125.1464, 125.152, 125.1591, 125.1641, 125.1678, 125.169, 
  125.1727, 125.1738, 125.1909, 125.2024, 125.213, 125.2246, 125.2295, 125.2294, 125.2446, 125.248, 
  125.2484, 125.2541, 125.2767, 125.2815, 125.2885, 125.2906, 125.2945, 125.2966, 125.2979, 125.2949, 
  125.2931, 125.2874, 125.2863, 125.2901, 125.2928, 125.2972, 125.2982, 125.3037, 125.3043, 125.2976, 
  125.2967, 125.2935, 125.2943, 125.2815, 125.2771, 125.2679, 125.2535, 125.2453, 125.2397, 125.2328, 
  125.2311, 125.2325, 125.2305, 125.2266, 125.23, 125.2347, 125.2383, 125.2485, 125.2544, 125.2551, 
  125.259, 125.265, 125.2674, 125.2755, 125.2766, 125.2837, 125.2846, 125.2896, 125.287, 125.2909, 
  125.2937, 125.2964, 125.2991, 125.2999, 125.2986, 125.3021, 125.3018, 125.3044, 125.3063, 125.3069, 
  125.3113, 125.3133, 125.3179, 125.3309, 125.3345, 125.339, 125.3387, 125.3366, 125.3383, 125.3402, 
  125.3443, 125.3473, 125.3504, 125.3469, 125.3535, 125.354, 125.3515, 125.3515, 125.3567, 125.3614, 
  125.364, 125.3636, 125.3662, 125.3684, 125.3683, 125.3696, 125.373, 125.374, 125.377, 125.3787, 
  125.3798, 125.3815, 125.381, 125.3788, 125.377, 125.3747, 125.3739, 125.3725, 125.3659, 125.3706, 
  125.3722, 125.3762, 125.3757, 125.3783, 125.3837, 125.3866, 125.3903, 125.3931, 125.3991, 125.4034,
  125.4062, 125.4069, 125.4127, 125.4138, 125.4171, 125.4191, 125.4209, 125.4201, 125.4249, 125.4234, 
  125.4216, 125.4209, 125.4235, 125.4283, 125.4349, 125.4362, 125.4325, 125.4339, 125.4414, 125.4454, 
  125.4484, 125.4513, 125.4501, 125.4526, 125.4511, 125.4378, 125.4339, 125.4136, 125.3935, 125.4119, 
  125.4115, 125.4258, 125.4311, 125.4359, 125.4383, 125.4416, 125.4414, 125.4363, 125.4444, 125.4449, 
  125.4503, 125.4508, 125.454, 125.4567, 125.4586, 125.4597, 125.4647, 125.4699, 125.4754, 125.4823, 
  125.4892, 125.4901, 125.4861, 125.4883, 125.495, 125.4959, 125.4982, 125.4978, 125.499, 125.4989, 
  125.4952, 125.4887, 125.4819, 125.4743, 125.4644, 125.4607, 125.4594, 125.4633, 125.4766, 125.4859, 
  125.4848, 125.4786, 125.4748, 125.4754, 125.4961, 125.4969, 125.5042, 125.5073, 125.5098, 125.5105, 
  125.5122, 125.5224, 125.5112, 125.5093, 125.5024, 125.4876, 125.4655, 125.449, 125.4496, 125.447, 
  125.4423, 125.4384, 125.4302, 125.4249, 125.4242, 125.4174, 125.4142, 125.4115, 125.4093, 125.4099, 
  125.4082, 125.404, 125.4048, 125.3986, 125.3984, 125.3923, 125.3945, 125.3963, 125.3997, 125.3982, 
  125.3959, 125.391, 125.3872, 125.3862, 125.3828, 125.3791, 125.3791, 125.3772, 125.3721, 125.3695, 
  125.3594, 125.3566, 125.3684, 125.3719, 125.3814, 125.3827, 125.3881, 125.3892, 125.3735, 125.3741, 
  125.3754, 125.3797, 125.3826, 125.3897, 125.3944, 125.4037, 125.4081, 125.4132, 125.415, 125.4235, 
  125.4232, 125.4141, 125.4039, 125.3966, 125.3894, 125.3834, 125.3726, 125.3709, 125.3695, 125.3689, 
  125.3652, 125.3655, 125.3666, 125.3674, 125.3675, 125.3668, 125.3637, 125.3618, 125.3591, 125.3549, 
  125.3533, 125.3502, 125.353, 125.3546, 125.3562, 125.359, 125.3618, 125.3621, 125.3578, 125.3549, 
  125.3542, 125.3521, 125.3482, 125.3437, 125.3405, 125.3375, 125.3267, 125.3233, 125.3228, 125.3207, 
  125.3213, 125.3205, 125.316, 125.3148, 125.3135, 125.3154, 125.3154, 125.3167, 125.3185, 125.32, 
  125.3264, 125.3376, 125.3385, 125.3419, 125.3356, 125.3362, 125.3402, 125.3408, 125.3402, 125.3416, 
  125.343, 125.3429, 125.3446, 125.345, 125.3478, 125.3497, 125.3513, 125.3547, 125.3554, 125.3549, 
  125.356, 125.3571, 125.3581, 125.359, 125.3597, 125.3604, 125.3598, 125.3582, 125.3572, 125.3562,
  125.355, 125.3541, 125.3542, 125.355, 125.3557, 125.3539, 125.353, 125.3517, 125.3511, 125.3498, 
  125.3486, 125.3452, 125.3444, 125.3454, 125.3478, 125.3482, 125.3504, 125.3517, 125.3564, 125.3625, 
  125.3619, 125.3619, 125.3611, 125.3565, 125.3559, 125.3576, 125.3603, 125.3685, 125.3705, 125.3722, 
  125.3703, 125.3706, 125.372, 125.376, 125.3797, 125.4151, 125.4255, 125.4443, 125.4506, 125.4644, 
  125.4642, 125.4676, 125.4699, 125.4845, 125.4792, 125.482, 125.4922, 125.4976, 125.4931, 125.4943, 
  125.4988, 125.4965, 125.4936, 125.491, 125.4943, 125.4938, 125.4967, 125.4955, 125.4983, 125.4978, 
  125.5047, 125.5087, 125.5119, 125.5157, 125.511, 125.5132, 125.5124, 125.5153, 125.5116, 125.5154, 
  125.5186, 125.5241, 125.5262, 125.526, 125.5289, 125.5431, 125.5487, 125.5498, 125.5618, 125.575, 
  125.575, 125.5806, 125.5894, 125.5895, 125.6011, 125.6046, 125.6038, 125.617, 125.617, 125.6131, 
  125.6134, 125.6114, 125.6115, 125.6099, 125.6102, 125.609, 125.6226, 125.6044, 125.6072, 125.6037, 
  125.5996, 125.5989, 125.6007, 125.6026, 125.6069, 125.6099, 125.6159, 125.6211, 125.6235, 125.6336, 
  125.6352, 125.6413, 125.6418, 125.6393, 125.6344, 125.6307, 125.6252, 125.6234, 125.6221, 125.6178, 
  125.6184, 125.6216, 125.6236, 125.6211, 125.6209, 125.616, 125.6133, 125.6146, 125.6265, 125.6351, 
  125.6389, 125.633, 125.6362, 125.6309, 125.6293, 125.641, 125.6396, 125.6436, 125.649, 125.6515, 
  125.6562, 125.6654, 125.6736, 125.6934, 125.705, 125.7261, 125.7344, 125.7348, 125.7306, 125.7271, 
  125.7179, 125.7156, 125.6942, 125.6994, 125.6943, 125.6852, 125.6827, 125.6806, 125.6886, 125.7017, 
  125.7017, 125.6985, 125.7013, 125.7012, 125.7104, 125.7124, 125.7171, 125.7168, 125.7185, 125.7195, 
  125.7174, 125.7106, 125.7106, 125.7013, 125.7003, 125.6962, 125.6909, 125.6803, 125.6844, 125.6872, 
  125.6779, 125.6752, 125.6467, 125.6311, 125.6303, 125.6227, 125.6179, 125.6091, 125.6051, 125.595, 
  125.5955, 125.5874, 125.5846, 125.5769, 125.5789, 125.5727, 125.5729, 125.5797, 125.5838, 125.5871, 
  125.5926, 125.5914, 125.6079, 125.6051, 125.619, 125.6268, 125.6282, 125.6401, 125.6444, 125.6489, 
  125.6488, 125.6632, 125.6701, 125.6704, 125.6758, 125.6827, 125.6832, 125.6869, 125.6882, 125.6899, 
  125.6927, 125.6965, 125.6961, 125.698, 125.6962, 125.6979, 125.6982, 125.6948, 125.6932, 125.6951, 
  125.7014, 125.7039, 125.7056, 125.7061, 125.7133, 125.7126, 125.7169, 125.7179, 125.7124, 125.7115, 
  125.7098, 125.7101, 125.7075, 125.7057, 125.7109, 125.7174, 125.7238, 125.7459, 125.7544, 125.7642,
  125.7693, 125.7934, 125.8017, 125.8175, 125.8041, 125.7914, 125.7912, 125.7992, 125.8152, 125.8311, 
  125.8322, 125.821, 125.8229, 125.8281, 125.8358, 125.8457, 125.8452, 125.8494, 125.8578, 125.8649, 
  125.8654, 125.855, 125.8712, 125.8651, 125.8751, 125.8655, 125.8825, 125.8782, 125.8632, 125.8745, 
  125.8827, 125.8906, 125.8945, 125.8915, 125.8991, 125.8921, 125.8951, 125.8923, 125.8872, 125.8898, 
  125.8945, 125.8945, 125.9121, 125.9207, 125.9123, 125.9094, 125.964, 125.9621, 125.9703, 125.9842, 
  125.992, 125.9912, 126.0031, 126.0351, 126.0456, 126.0533, 126.0567, 126.0533, 126.0614, 126.0682, 
  126.0708, 126.0675, 126.069, 126.0711, 126.0682, 126.0683, 126.0713, 126.0864, 126.0908, 126.0901, 
  126.0919, 126.0945, 126.0942, 126.0969, 126.0983, 126.0956, 126.0977, 126.0874, 126.0886, 126.1324, 
  126.1539, 126.1585, 126.159, 126.1655, 126.1459, 126.1461, 126.1593, 126.2357, 126.2654, 126.326, 
  126.3502, 126.3706, 126.3958, 126.4187, 126.423, 126.4537, 126.4674, 126.4692, 126.4742, 126.4932, 
  126.5018, 126.5164, 126.5216, 126.5319, 126.5358, 126.5486, 126.5666, 126.5705, 126.5715, 126.5877, 
  126.5981, 126.6071, 126.6144, 126.6148, 126.6204, 126.634, 126.6407, 126.6486, 126.6492, 126.654, 
  126.6532, 126.6532, 126.6497, 126.6498, 126.6525, 126.655, 126.6538, 126.667, 126.6653, 126.6665, 
  126.6699, 126.6749, 126.6774, 126.6841, 126.6834, 126.6862, 126.6883, 126.6882)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_difference(st_geometry(Geo_3), st_geometry(Geo))
if (length(Geo_0) > 1) {Geo_0 <- Geo_0[st_geometry_type(Geo_0) %in% c("POLYGON", "MULTIPOLYGON")]}
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_3 <- st_set_geometry(Geo_3, Geo_0[86])
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
Geo_3 <- st_union(Geo_3, Geo)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(39.88516, 39.88345, 39.87462, 39.86458, 39.86244, 39.8634, 39.86178, 39.86422, 39.86992, 39.88161)
LONGITUDE_VALUEs <- c(124.2877, 124.2854, 124.2822, 124.2819, 124.2868, 124.2936, 124.3006, 124.3076, 124.3065, 124.2978)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  39.73346, 39.73194, 39.72713, 39.72699, 39.72396, 39.72217, 39.723, 39.72133, 39.72118, 39.71788, 
  39.71584, 39.71524, 39.71879, 39.7247, 39.72475, 39.72708, 39.72958, 39.72952, 39.73165, 39.73315)
LONGITUDE_VALUEs <- c(
  124.5462, 124.5474, 124.5456, 124.5417, 124.5421, 124.5381, 124.5359, 124.5336, 124.5253, 124.522, 
  124.5211, 124.5189, 124.5182, 124.5257, 124.5281, 124.5294, 124.5324, 124.5347, 124.5366, 124.5397)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  39.53357, 39.53063, 39.52917, 39.52698, 39.52685, 39.52804, 39.52665, 39.52487, 39.52182, 39.52126, 
  39.51894, 39.51997, 39.51815, 39.52109, 39.52149, 39.5249, 39.52602, 39.5245, 39.52516, 39.52996, 
  39.53367)
LONGITUDE_VALUEs <- c(
  125.1938, 125.1928, 125.1904, 125.1903, 125.1919, 125.1928, 125.1965, 125.1978, 125.1953, 125.1999, 
  125.2018, 125.2051, 125.2078, 125.209, 125.2113, 125.2139, 125.2105, 125.2086, 125.2057, 125.2011, 
  125.1993)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  37.81132, 37.80844, 37.80789, 37.80572, 37.80576, 37.8022, 37.8003, 37.79992, 37.79745, 37.79975, 
  37.80481, 37.80881, 37.8105, 37.81047, 37.8121, 37.81467, 37.81556, 37.81315, 37.81091)
LONGITUDE_VALUEs <- c(
  125.763, 125.7633, 125.7666, 125.7663, 125.7622, 125.7576, 125.7584, 125.7627, 125.7704, 125.7745, 
  125.7756, 125.7723, 125.7733, 125.7752, 125.7733, 125.7749, 125.7728, 125.7724, 125.7702)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  37.83966, 37.83518, 37.83708, 37.83467, 37.83339, 37.83169, 37.83217, 37.83044, 37.83142, 37.83295, 
  37.83342, 37.83803)
LONGITUDE_VALUEs <- c(
  125.7577, 125.7528, 125.7452, 125.7457, 125.7443, 125.7465, 125.7495, 125.7564, 125.7568, 125.7552, 
  125.7566, 125.7591)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  38.50537, 38.50606, 38.50757, 38.51058, 38.51912, 38.52176, 38.52446, 38.5275, 38.53052, 38.53126, 
  38.534, 38.53611, 38.53886, 38.54061, 38.5419, 38.54311, 38.54338, 38.5419, 38.54202, 38.54672, 
  38.54952, 38.55159, 38.55484, 38.55771, 38.56154, 38.56435, 38.56462, 38.56167, 38.55471, 38.54772, 
  38.54573, 38.54145, 38.53983, 38.54101, 38.54087, 38.53805, 38.53839, 38.53452, 38.53432, 38.53175, 
  38.52856, 38.52757, 38.52784, 38.52658, 38.52426, 38.52043, 38.52075, 38.51692, 38.51614, 38.51577, 
  38.51674, 38.51499, 38.51498, 38.51377, 38.5135, 38.51516, 38.51355, 38.51442, 38.51682, 38.52072, 
  38.52327, 38.52517, 38.52451, 38.53218, 38.53208, 38.52408, 38.52448, 38.5225, 38.52352, 38.52868, 
  38.5281, 38.52497, 38.52258, 38.52267, 38.52423, 38.52387, 38.52545, 38.52518, 38.52865, 38.52892, 
  38.52633, 38.52479, 38.52314, 38.52032, 38.5211, 38.5161, 38.51556, 38.51113, 38.51042, 38.50589, 
  38.50633, 38.5034, 38.50582, 38.50109, 38.51106, 38.50968, 38.50189, 38.50431, 38.50391, 38.50616)
LONGITUDE_VALUEs <- c(
  124.8955, 124.8963, 124.8943, 124.8947, 124.8875, 124.8876, 124.886, 124.8863, 124.8807, 124.8752, 
  124.8722, 124.8717, 124.8758, 124.8734, 124.8752, 124.874, 124.8677, 124.8646, 124.8558, 124.8476, 
  124.8468, 124.8418, 124.8284, 124.824, 124.8214, 124.8182, 124.8147, 124.8186, 124.8179, 124.808, 
  124.8072, 124.803, 124.7842, 124.7824, 124.7781, 124.7767, 124.7792, 124.7809, 124.7838, 124.7844, 
  124.7792, 124.7796, 124.7829, 124.7839, 124.7837, 124.7812, 124.7709, 124.7747, 124.7729, 124.7749, 
  124.7761, 124.7804, 124.783, 124.7833, 124.7888, 124.7924, 124.799, 124.801, 124.8, 124.7883, 
  124.7866, 124.7868, 124.7929, 124.7948, 124.7972, 124.798, 124.8013, 124.8039, 124.8073, 124.8082, 
  124.8102, 124.811, 124.8095, 124.8127, 124.8176, 124.8194, 124.8194, 124.8215, 124.8207, 124.8217, 
  124.8231, 124.8233, 124.8211, 124.8241, 124.8266, 124.8359, 124.8409, 124.8452, 124.8524, 124.8548, 
  124.8597, 124.8637, 124.8651, 124.8753, 124.8714, 124.8759, 124.8804, 124.8856, 124.89, 124.8922)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  38.62255, 38.62406, 38.62347, 38.62535, 38.62599, 38.63055, 38.63083, 38.62959, 38.62932, 38.6309, 
  38.63291, 38.6346, 38.63324, 38.63558, 38.63456, 38.63514, 38.63755, 38.63873, 38.64258, 38.64759, 
  38.64887, 38.65113, 38.65062, 38.65104, 38.65012, 38.65039, 38.65384, 38.65512, 38.65713, 38.65936, 
  38.66634, 38.66661, 38.66391, 38.6618, 38.66053, 38.65954, 38.65805, 38.65706, 38.6586, 38.65825, 
  38.66049, 38.65855, 38.65838, 38.65974, 38.66135, 38.66148, 38.6645, 38.6681, 38.66772, 38.67345, 
  38.67725, 38.67269, 38.67093, 38.67016, 38.66855, 38.66488, 38.6645, 38.66178, 38.65986, 38.6583, 
  38.65917, 38.65793, 38.65713, 38.65508, 38.65372, 38.65265, 38.65081, 38.65037, 38.64784, 38.64955, 
  38.65009, 38.64848, 38.64523, 38.64657, 38.64479, 38.64625, 38.64959, 38.65, 38.64536, 38.6462, 
  38.64776, 38.64826, 38.64985, 38.64967, 38.65121, 38.65175, 38.65006, 38.6494, 38.64809, 38.64568, 
  38.64672, 38.64233, 38.64226, 38.63857, 38.63613, 38.63559, 38.63816, 38.63908, 38.64107, 38.64095, 
  38.64251, 38.64116, 38.64317, 38.63392, 38.63175, 38.62978, 38.62704, 38.62651, 38.62438, 38.6246)
LONGITUDE_VALUEs <- c(
  124.982, 124.9851, 124.9869, 124.987, 124.9859, 124.9898, 124.9923, 124.993, 124.995, 124.994, 
  124.9994, 125.0006, 125.0027, 125.0033, 125.0046, 125.0079, 125.009, 125.0107, 125.013, 125.0137, 
  125.0123, 125.0137, 125.0154, 125.0171, 125.0192, 125.0198, 125.0201, 125.0208, 125.0198, 125.0218, 
  125.0217, 125.0196, 125.0207, 125.0189, 125.0196, 125.0185, 125.0183, 125.0146, 125.0133, 125.0111, 
  125.01, 125.0069, 125.0037, 125.0015, 125.0017, 125.0036, 125.0036, 124.9992, 124.9971, 124.9951, 
  124.9891, 124.9877, 124.9895, 124.9885, 124.9924, 124.9877, 124.9942, 124.9913, 124.9932, 124.9903, 
  124.986, 124.9853, 124.9876, 124.9878, 124.9896, 124.9836, 124.9835, 124.9825, 124.9827, 124.9837, 
  124.9855, 124.9889, 124.9891, 124.9921, 124.9935, 124.9947, 124.9939, 124.9971, 124.998, 124.9993, 
  124.9994, 125.0006, 125.0009, 125.0032, 125.0032, 125.0064, 125.0062, 125.0088, 125.0048, 125.0056, 
  125.0037, 125.0018, 124.9974, 124.9986, 124.9966, 124.9939, 124.9934, 124.9947, 124.9944, 124.9928, 
  124.992, 124.9892, 124.9882, 124.978, 124.9824, 124.9779, 124.9813, 124.9772, 124.9781, 124.9815)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  37.83798, 37.83931, 37.84064, 37.84422, 37.84593, 37.84585, 37.84856, 37.84829, 37.84929, 37.84807, 
  37.84663, 37.84491, 37.84347, 37.83998)
LONGITUDE_VALUEs <- c(
  125.3748, 125.3786, 125.3794, 125.3845, 125.3833, 125.3824, 125.3773, 125.3737, 125.3723, 125.369, 
  125.3708, 125.3715, 125.3709, 125.3712)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  37.8186, 37.82009, 37.82153, 37.82202, 37.826, 37.82707, 37.82822, 37.82627, 37.82019, 37.81754, 
  37.81671)
LONGITUDE_VALUEs <- c(
  125.3647, 125.3667, 125.3671, 125.3696, 125.3684, 125.3689, 125.3674, 125.3623, 125.362, 125.361, 
  125.3634)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  37.81514, 37.81556, 37.815, 37.81619, 37.81265, 37.81061, 37.81005, 37.80552, 37.80435, 37.80242, 
  37.80177, 37.79777, 37.79734, 37.79003, 37.78918, 37.78591, 37.78408, 37.78253, 37.78059, 37.78038, 
  37.78696, 37.79329, 37.79408, 37.7951, 37.79479, 37.79289, 37.79457, 37.79596, 37.79734, 37.79844, 
  37.79822, 37.7993, 37.80113, 37.80234, 37.80427, 37.80937, 37.80997, 37.81346)
LONGITUDE_VALUEs <- c(
  125.3626, 125.3609, 125.3586, 125.3569, 125.3523, 125.3522, 125.3503, 125.3477, 125.3439, 125.342, 
  125.3383, 125.3372, 125.3362, 125.3321, 125.3307, 125.3297, 125.3265, 125.3291, 125.3303, 125.3319, 
  125.3303, 125.3379, 125.3381, 125.3394, 125.3405, 125.3407, 125.3445, 125.3443, 125.343, 125.3437, 
  125.3453, 125.3453, 125.3484, 125.3485, 125.3532, 125.3588, 125.3587, 125.3624)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  37.74017, 37.74036, 37.74265, 37.74335, 37.74403, 37.74374, 37.74601, 37.74934, 37.75081, 37.75193, 
  37.75383, 37.75572, 37.75519, 37.75575, 37.7556, 37.75631, 37.75818, 37.75495, 37.75589, 37.75609, 
  37.75468, 37.7548, 37.75365, 37.75317, 37.75346, 37.75263, 37.75317, 37.75283, 37.75115, 37.74854, 
  37.74616, 37.74323, 37.74116)
LONGITUDE_VALUEs <- c(
  125.2345, 125.2357, 125.2356, 125.2406, 125.2397, 125.238, 125.2351, 125.2347, 125.2366, 125.2409, 
  125.2376, 125.2368, 125.2347, 125.2326, 125.2299, 125.2274, 125.2258, 125.2186, 125.2177, 125.2157, 
  125.2138, 125.2125, 125.2113, 125.2153, 125.2187, 125.2205, 125.2215, 125.2233, 125.2254, 125.2268, 
  125.2302, 125.232, 125.2346)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  37.91747, 37.91662, 37.91637, 37.91937, 37.92295, 37.92448, 37.9272, 37.92719, 37.93016, 37.92439, 
  37.92326, 37.91935, 37.91921)
LONGITUDE_VALUEs <- c(
  124.9561, 124.9572, 124.9627, 124.9654, 124.9646, 124.9619, 124.9624, 124.9604, 124.9564, 124.9534, 
  124.9553, 124.9538, 124.9566)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  37.80342, 37.81276, 37.81318, 37.81494, 37.81796, 37.82059, 37.82062, 37.81856, 37.82057, 37.82161, 
  37.8241, 37.82662, 37.82708, 37.82913, 37.83162, 37.83345, 37.8374, 37.8372, 37.83869, 37.83611, 
  37.83344, 37.83062, 37.82806, 37.82284, 37.81993, 37.81864, 37.81961, 37.82539, 37.82603, 37.82456, 
  37.82303, 37.81991, 37.81652, 37.81328, 37.8142, 37.81364, 37.81028, 37.80857, 37.80808, 37.80671, 
  37.80604, 37.80658, 37.80585, 37.80779, 37.80853, 37.80835, 37.80657, 37.80479, 37.80548, 37.80631, 
  37.80769, 37.80792, 37.80643, 37.80485, 37.80431)
LONGITUDE_VALUEs <- c(
  125.0217, 125.0282, 125.0318, 125.0298, 125.0312, 125.0358, 125.0387, 125.0406, 125.0415, 125.0437, 
  125.0428, 125.0433, 125.0413, 125.0419, 125.0441, 125.0466, 125.0466, 125.0379, 125.023, 125.0158, 
  125.0263, 125.0312, 125.0316, 125.0273, 125.0267, 125.0233, 125.0178, 125.0042, 124.9999, 125.0007, 
  125.0049, 125.0055, 125.0044, 125.0012, 124.9971, 124.9929, 124.9966, 124.9965, 124.996, 124.9929, 
  124.9931, 124.996, 124.9976, 124.998, 124.9996, 125.0012, 125.0011, 125.0035, 125.0045, 125.0044, 
  125.0065, 125.0091, 125.0125, 125.0144, 125.0187)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  37.77929, 37.77832, 37.79004, 37.79355, 37.79704, 37.79687, 37.80016, 37.8016, 37.80291, 37.80326, 
  37.80299, 37.80489, 37.80664, 37.80833, 37.81108, 37.81203, 37.81155, 37.81055, 37.80852, 37.80781, 
  37.80833, 37.80806, 37.80905, 37.81021, 37.81124, 37.81188, 37.8126, 37.81403, 37.81571, 37.81699, 
  37.81839, 37.81949, 37.8213, 37.82194, 37.82224, 37.82293, 37.82418, 37.82315, 37.81859, 37.8177, 
  37.81819, 37.81806, 37.8183, 37.81725, 37.81789, 37.81649, 37.81666, 37.81367, 37.81309, 37.8103, 
  37.8083, 37.80688, 37.80676, 37.80763, 37.80785, 37.80741, 37.80613, 37.80474, 37.80408, 37.80257, 
  37.8023, 37.80014, 37.7992, 37.79984, 37.79901, 37.79785, 37.79706, 37.79707, 37.79755, 37.79686, 
  37.79512, 37.79299, 37.79141, 37.78396, 37.78201)
LONGITUDE_VALUEs <- c(
  125.1436, 125.1449, 125.1547, 125.1608, 125.1647, 125.1706, 125.1753, 125.1755, 125.1777, 125.1801, 
  125.1814, 125.1825, 125.1782, 125.1781, 125.1819, 125.1859, 125.1887, 125.1893, 125.1882, 125.1884, 
  125.1899, 125.1912, 125.1933, 125.1942, 125.196, 125.1947, 125.1921, 125.1904, 125.1896, 125.1895, 
  125.1898, 125.1897, 125.1897, 125.19, 125.1894, 125.1892, 125.1894, 125.1883, 125.1853, 125.1842, 
  125.1826, 125.1805, 125.1793, 125.1776, 125.1744, 125.1711, 125.1694, 125.1612, 125.1615, 125.1608, 
  125.159, 125.1568, 125.1546, 125.154, 125.1525, 125.1523, 125.1505, 125.1498, 125.1479, 125.1466, 
  125.1449, 125.1424, 125.1397, 125.1371, 125.1351, 125.1349, 125.1342, 125.1373, 125.1389, 125.1427, 
  125.147, 125.1503, 125.1514, 125.1465, 125.1465)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  37.69982, 37.69774, 37.69768, 37.69649, 37.69347, 37.6935, 37.69605, 37.69513, 37.69829, 37.69982, 
  37.69852, 37.69584, 37.69982, 37.7061, 37.70842, 37.71004, 37.71343, 37.71358, 37.71655, 37.71601, 
  37.71947, 37.7192, 37.71997, 37.71937, 37.72198, 37.72368, 37.72411, 37.72709, 37.72657, 37.73919, 
  37.74174, 37.74491, 37.74703, 37.74839, 37.74871, 37.74982, 37.75355, 37.75507, 37.75623, 37.75879, 
  37.75923, 37.76664, 37.77121, 37.77246, 37.7719, 37.76312, 37.76832, 37.76946, 37.76882, 37.75874, 
  37.75284, 37.75796, 37.74642, 37.74065, 37.74086, 37.73858, 37.73685, 37.73746, 37.72962, 37.72823, 
  37.72803, 37.72514, 37.71876, 37.71336, 37.7042)
LONGITUDE_VALUEs <- c(
  125.2103, 125.2164, 125.2203, 125.2208, 125.2202, 125.2256, 125.2308, 125.2342, 125.2348, 125.2368, 
  125.2387, 125.2395, 125.2501, 125.2621, 125.2631, 125.2649, 125.2662, 125.2678, 125.2688, 125.2736, 
  125.2749, 125.2776, 125.2788, 125.2807, 125.2803, 125.2848, 125.2898, 125.2955, 125.2984, 125.3111, 
  125.3113, 125.3159, 125.3205, 125.3214, 125.3229, 125.3229, 125.3241, 125.326, 125.3281, 125.3292, 
  125.3317, 125.3393, 125.341, 125.3397, 125.3375, 125.33, 125.3313, 125.3302, 125.3273, 125.3075, 
  125.3049, 125.2953, 125.2711, 125.2614, 125.2535, 125.2482, 125.2494, 125.2521, 125.2532, 125.2517, 
  125.2478, 125.2433, 125.241, 125.2336, 125.2117)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  39.64243, 39.638, 39.63988, 39.63876, 39.64041, 39.63955, 39.64669, 39.64791, 39.64596, 39.64729, 
  39.64411, 39.64692, 39.6454, 39.64236)
LONGITUDE_VALUEs <- c(
  124.8266, 124.829, 124.8318, 124.8344, 124.8363, 124.8389, 124.8384, 124.8356, 124.8339, 124.8283, 
  124.8254, 124.8233, 124.8199, 124.8232)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  39.63357, 39.63377, 39.63281, 39.63317, 39.63255, 39.63661, 39.6378, 39.63886, 39.64087, 39.64018, 
  39.63631, 39.63688, 39.63615)
LONGITUDE_VALUEs <- c(
  124.7512, 124.7544, 124.7566, 124.759, 124.7623, 124.7662, 124.766, 124.7619, 124.7599, 124.7552, 
  124.7513, 124.7491, 124.7482)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  39.43923, 39.43893, 39.43522, 39.43167, 39.43108, 39.42942, 39.43022, 39.42949, 39.43254, 39.43741, 
  39.44255, 39.44351, 39.44641, 39.45011, 39.45345, 39.4575, 39.45892, 39.45326, 39.44941, 39.44828, 
  39.44519, 39.44184)
LONGITUDE_VALUEs <- c(
  124.5882, 124.5956, 124.5969, 124.5942, 124.5963, 124.5969, 124.6069, 124.6111, 124.6182, 124.6172, 
  124.6183, 124.6134, 124.6136, 124.6106, 124.61, 124.6111, 124.6099, 124.6065, 124.601, 124.5941, 
  124.5894, 124.5874)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  39.4492, 39.44837, 39.45052, 39.45219, 39.45274, 39.4517, 39.45668, 39.45957, 39.46194, 39.46429, 
  39.46328, 39.46469, 39.46384, 39.46737, 39.46467, 39.46233, 39.46116, 39.45579, 39.45554, 39.45458, 
  39.45289, 39.45193, 39.44971, 39.4482)
LONGITUDE_VALUEs <- c(
  124.7692, 124.7722, 124.7717, 124.7742, 124.7783, 124.7824, 124.7879, 124.7917, 124.7844, 124.7846, 
  124.7806, 124.7787, 124.7742, 124.7725, 124.7667, 124.7711, 124.7711, 124.7677, 124.7721, 124.7722, 
  124.7701, 124.7711, 124.7661, 124.7652)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  39.41125, 39.4141, 39.41507, 39.41649, 39.41861, 39.41961, 39.42291, 39.422, 39.42026, 39.42014, 
  39.41878, 39.41925, 39.41615, 39.4182, 39.41585, 39.41181, 39.40887, 39.40889, 39.4097, 39.4088, 
  39.41056)
LONGITUDE_VALUEs <- c(
  124.7253, 124.7278, 124.7322, 124.7303, 124.7317, 124.73, 124.7306, 124.7273, 124.7266, 124.7243, 
  124.7241, 124.7214, 124.7193, 124.7167, 124.7125, 124.7156, 124.7136, 124.7167, 124.7176, 124.7194, 
  124.7198)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  39.50209, 39.50176, 39.50567, 39.50527, 39.51308, 39.5211, 39.52143, 39.52633, 39.52613, 39.5293, 
  39.53513, 39.53837, 39.53295, 39.52096, 39.51567, 39.51136, 39.50481)
LONGITUDE_VALUEs <- c(
  124.6827, 124.6915, 124.6953, 124.7029, 124.7027, 124.7108, 124.7033, 124.7045, 124.7026, 124.7023, 
  124.7127, 124.7072, 124.6902, 124.6791, 124.6855, 124.6806, 124.6801)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo) %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))
#COUNTRIE(s) from Global Administrative Areas (GADM)
Geo_0 <- GeoDATA_from_GADM_level_0_low_resolution %>% filter(NAME == "North Korea")
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_3 <- st_union(Geo_3, st_geometry(Geo_0[107, ])) %>%
  mutate(SOURCE = paste(SOURCE, "and Global Administrative Areas (GADM)"))
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("CHINA", "VIET NAM", "DEM. PEOPLE'S REPUBLIC OF KOREA"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, MGeo_1, MGeo_2, MGeo_3)

CHANNEL ISLANDS in Residences_in_iMIGRANT_Stock \(=\) JERSEY \(+\) GUERNSEY in GeoDATA.

No suitable Geometries in available sources. We create our own Geometries.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "JERSEY")
Geo_2 <- GeoDATA %>% filter(NAME == "GUERNSEY")

##### JERSEY #####
LATITUDE_VALUEs <- c(
  49.25078, 49.2487, 49.25033, 49.24876, 49.25033, 49.24809, 49.24915, 49.24747, 49.2496, 49.25044, 
  49.25246, 49.2524, 49.2547, 49.25431, 49.2552, 49.25517, 49.25613, 49.25601, 49.2575, 49.25771, 
  49.25831, 49.25825, 49.25873, 49.25979, 49.26106, 49.26141, 49.26122, 49.26009, 49.26008, 49.25866, 
  49.25827, 49.25797, 49.25699, 49.25697, 49.2561, 49.25646, 49.25901, 49.25859, 49.25677, 49.25543, 
  49.254, 49.25237, 49.25069, 49.24926, 49.24862, 49.24758, 49.24433, 49.24321, 49.24243, 49.23954, 
  49.23951, 49.24058, 49.241, 49.24086, 49.23776, 49.23384, 49.22379, 49.2065, 49.20215, 49.19867, 
  49.19797, 49.19599, 49.19409, 49.19348, 49.18977, 49.18779, 49.1872, 49.18473, 49.18378, 49.18229, 
  49.18257, 49.18218, 49.18092, 49.18114, 49.18072, 49.17949, 49.17936, 49.17844, 49.17886, 49.17867, 
  49.17989, 49.17797, 49.17731, 49.17755, 49.17675, 49.17685, 49.1763, 49.17623, 49.17576, 49.17555, 
  49.17529, 49.17555, 49.17521, 49.17508, 49.17444, 49.17458, 49.17412, 49.17417, 49.1755, 49.17494, 
  49.17716, 49.17786, 49.17688, 49.17721, 49.17926, 49.17806, 49.1811, 49.18232, 49.1835, 49.18448, 
  49.18478, 49.18396, 49.18253, 49.18135, 49.18134, 49.17918, 49.17684, 49.17577, 49.17228, 49.17174, 
  49.16933, 49.16871, 49.16939, 49.1688, 49.1695, 49.17144, 49.17183, 49.17124, 49.16939, 49.16857, 
  49.16899, 49.16812, 49.16706, 49.16613, 49.16563, 49.17183, 49.17424, 49.17503, 49.17635, 49.1775, 
  49.17747, 49.17904, 49.18075, 49.18107, 49.18208, 49.1825, 49.18417, 49.18681, 49.18811, 49.18907, 
  49.19118, 49.19371, 49.19601, 49.19696, 49.19643, 49.19444, 49.19057, 49.18723, 49.18501, 49.1833, 
  49.18053, 49.18006, 49.17963, 49.17933, 49.17659, 49.17644, 49.17443, 49.17346, 49.17305, 49.17061, 
  49.16866, 49.16777, 49.16796, 49.16876, 49.17, 49.17239, 49.17354, 49.17475, 49.17588, 49.17651, 
  49.17632, 49.1772, 49.17632, 49.17671, 49.17517, 49.16943, 49.16692, 49.16359, 49.1631, 49.16338, 
  49.16307, 49.16333, 49.16313, 49.16488, 49.16521, 49.16564, 49.16657, 49.16728, 49.16665, 49.1692, 
  49.16923, 49.16849, 49.1663, 49.16399, 49.16403, 49.16481, 49.16615, 49.16709, 49.17407, 49.17503, 
  49.17682, 49.18344, 49.18807, 49.19343, 49.19682, 49.19839, 49.19949, 49.19831, 49.1994, 49.20125, 
  49.20187, 49.20386, 49.20526, 49.20899, 49.2098, 49.21247, 49.21278, 49.21412, 49.21549, 49.21858, 
  49.22012, 49.22138, 49.22348, 49.22348, 49.22472, 49.22573, 49.22721, 49.2299, 49.23198, 49.23262, 
  49.23338, 49.2327, 49.23235, 49.23307, 49.23538, 49.23469, 49.23574, 49.23621, 49.24035, 49.24038, 
  49.24397, 49.24117, 49.23971, 49.23985, 49.23904, 49.23937, 49.23864, 49.23878, 49.23716, 49.23727, 
  49.2366, 49.23691, 49.23778, 49.23862, 49.23957, 49.2408, 49.2417, 49.24517, 49.2466, 49.24839, 
  49.24803, 49.24909, 49.25019, 49.25148, 49.25349, 49.25425, 49.25377, 49.25531, 49.2552, 49.25363, 
  49.2503, 49.2498, 49.25205, 49.2502, 49.24988, 49.25093, 49.25414, 49.25349, 49.25445, 49.25355, 
  49.25363, 49.25339, 49.25355, 49.2529, 49.25358, 49.25607, 49.25599, 49.25648, 49.26041, 49.2603, 
  49.26234, 49.25999, 49.26162, 49.25793, 49.25753, 49.25858, 49.25767, 49.25709, 49.2565, 49.25516, 
  49.25496, 49.25405, 49.25278, 49.25188, 49.25143, 49.25122, 49.25013, 49.24973, 49.2493, 49.24964, 
  49.24957, 49.2503)
LONGITUDE_VALUEs <- c(
  -2.18003, -2.18355, -2.18655, -2.19024, -2.19419, -2.19582, -2.19771, -2.20148, -2.20371, -2.20646, 
  -2.20706, -2.21006, -2.21153, -2.21401, -2.21555, -2.21783, -2.21851, -2.22014, -2.2215, -2.22298, 
  -2.22358, -2.2248, -2.22649, -2.22604, -2.22643, -2.22729, -2.22797, -2.22778, -2.22978, -2.23021, 
  -2.22935, -2.22997, -2.22933, -2.23055, -2.23128, -2.23568, -2.24327, -2.24787, -2.24834, -2.25164, 
  -2.25156, -2.25443, -2.25379, -2.25499, -2.25323, -2.25409, -2.25152, -2.24967, -2.25053, -2.25019, 
  -2.24956, -2.2488, -2.24777, -2.2465, -2.2415, -2.23925, -2.22991, -2.22364, -2.22356, -2.22487, 
  -2.22582, -2.22601, -2.22668, -2.22771, -2.22914, -2.23132, -2.23661, -2.23467, -2.23995, -2.2418, 
  -2.24369, -2.24596, -2.24433, -2.2433, -2.24171, -2.24111, -2.24018, -2.23921, -2.23841, -2.23764, 
  -2.23676, -2.23507, -2.23492, -2.23341, -2.23372, -2.23251, -2.232, -2.23118, -2.23153, -2.23045, 
  -2.23, -2.22891, -2.22823, -2.22708, -2.22693, -2.22585, -2.22481, -2.22383, -2.2212, -2.21978, 
  -2.21558, -2.21214, -2.20982, -2.20841, -2.20768, -2.20429, -2.204, -2.20033, -2.20215, -2.20095, 
  -2.19851, -2.19402, -2.19046, -2.19055, -2.18831, -2.18629, -2.18561, -2.18904, -2.1876, -2.18639, 
  -2.1897, -2.18699, -2.18493, -2.18352, -2.18171, -2.18103, -2.17975, -2.17545, -2.17476, -2.1733, 
  -2.1721, -2.17116, -2.17189, -2.17155, -2.16742, -2.16339, -2.16451, -2.16378, -2.16769, -2.16803, 
  -2.1691, -2.16915, -2.16763, -2.16844, -2.16769, -2.16956, -2.16887, -2.16655, -2.16913, -2.16894, 
  -2.16777, -2.16438, -2.15743, -2.1491, -2.13884, -2.13044, -2.12262, -2.11709, -2.11666, -2.11837, 
  -2.11932, -2.11883, -2.1193, -2.11879, -2.11709, -2.11511, -2.11655, -2.11598, -2.11744, -2.11609, 
  -2.11405, -2.11156, -2.11057, -2.10838, -2.10694, -2.10718, -2.10602, -2.10729, -2.10665, -2.10514, 
  -2.10175, -2.0998, -2.09705, -2.09518, -2.09192, -2.08499, -2.08276, -2.07838, -2.07806, -2.07733, 
  -2.07564, -2.07289, -2.0707, -2.07098, -2.07015, -2.07012, -2.06918, -2.06611, -2.06148, -2.05596, 
  -2.05107, -2.04701, -2.03941, -2.03482, -2.03326, -2.03302, -2.02897, -2.02809, -2.03079, -2.03066, 
  -2.03164, -2.03328, -2.03353, -2.03199, -2.0295, -2.02662, -2.02108, -2.02035, -2.01735, -2.01799, 
  -2.01675, -2.01937, -2.02186, -2.01993, -2.02448, -2.02267, -2.02645, -2.02713, -2.02958, -2.02954, 
  -2.02576, -2.02636, -2.02332, -2.02143, -2.01842, -2.02289, -2.02409, -2.02405, -2.02529, -2.02405, 
  -2.02609, -2.02723, -2.02719, -2.03208, -2.03491, -2.03674, -2.03879, -2.04534, -2.04323, -2.04915, 
  -2.05155, -2.0567, -2.05731, -2.05907, -2.05993, -2.06409, -2.06448, -2.06735, -2.06783, -2.06932, 
  -2.07027, -2.07503, -2.07675, -2.08113, -2.08168, -2.08018, -2.08267, -2.0837, -2.08533, -2.0846, 
  -2.08743, -2.08842, -2.09086, -2.09061, -2.09172, -2.09421, -2.09696, -2.09885, -2.10156, -2.10353, 
  -2.10469, -2.10885, -2.11184, -2.1139, -2.11671, -2.12053, -2.12031, -2.12632, -2.12919, -2.13142, 
  -2.13227, -2.13359, -2.13461, -2.13562, -2.13926, -2.14171, -2.14395, -2.14525, -2.14767, -2.15078, 
  -2.15231, -2.15447, -2.16061, -2.16018, -2.16112, -2.16563, -2.16569, -2.16709, -2.16793, -2.16842, 
  -2.17044, -2.17013, -2.1732, -2.17436, -2.17434, -2.17389, -2.17466, -2.17456, -2.17443, -2.17604, 
  -2.17722, -2.17784)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### GUERNSEY #####
LATITUDE_VALUEs <- c(
  49.45875, 49.45725, 49.45582, 49.45538, 49.45593, 49.45423, 49.45468, 49.45281, 49.44561, 49.4414, 
  49.43892, 49.4373, 49.43459, 49.43414, 49.43473, 49.43437, 49.43671, 49.43557, 49.43749, 49.43596, 
  49.43501, 49.43395, 49.43236, 49.43158, 49.43046, 49.4294, 49.4289, 49.42772, 49.42715, 49.42725, 
  49.42637, 49.42662, 49.42486, 49.42471, 49.42387, 49.42483, 49.4232, 49.42373, 49.42312, 49.42423, 
  49.42362, 49.42365, 49.42471, 49.424, 49.42631, 49.42513, 49.42599, 49.42423, 49.42433, 49.42266, 
  49.42333, 49.42211, 49.42249, 49.42063, 49.42021, 49.42068, 49.4203, 49.42062, 49.41873, 49.41943, 
  49.42007, 49.41822, 49.41769, 49.41889, 49.41903, 49.41961, 49.41966, 49.42019, 49.4188, 49.41943, 
  49.41808, 49.41793, 49.41861, 49.41872, 49.41855, 49.41726, 49.41635, 49.41696, 49.41719, 49.41808, 
  49.41887, 49.42034, 49.41984, 49.42017, 49.41995, 49.42031, 49.42126, 49.42056, 49.42128, 49.42368, 
  49.42351, 49.42549, 49.4246, 49.42274, 49.42306, 49.42435, 49.42366, 49.42363, 49.42404, 49.4234, 
  49.4233, 49.42449, 49.42263, 49.42278, 49.42126, 49.41954, 49.41829, 49.41742, 49.41672, 49.41552, 
  49.41564, 49.41647, 49.41681, 49.41779, 49.41795, 49.41901, 49.41871, 49.41943, 49.4191, 49.42002, 
  49.42277, 49.42167, 49.42347, 49.42322, 49.42559, 49.42687, 49.42616, 49.42622, 49.42557, 49.42576, 
  49.42499, 49.42574, 49.42358, 49.42326, 49.42197, 49.42146, 49.42087, 49.4197, 49.41961, 49.41891, 
  49.41794, 49.41776, 49.41818, 49.41915, 49.41913, 49.42004, 49.41904, 49.4191, 49.42048, 49.42122, 
  49.42287, 49.42143, 49.42256, 49.42351, 49.42408, 49.42545, 49.42725, 49.42883, 49.42997, 49.43046, 
  49.43091, 49.43335, 49.43469, 49.43625, 49.43576, 49.43695, 49.43947, 49.44198, 49.44564, 49.44586, 
  49.44706, 49.44798, 49.45075, 49.45214, 49.45326, 49.45186, 49.45421, 49.45496, 49.45624, 49.46238, 
  49.46483, 49.46857, 49.4698, 49.47116, 49.4737, 49.47429, 49.47493, 49.47585, 49.47565, 49.47618, 
  49.4756, 49.47635, 49.47716, 49.47657, 49.47836, 49.48003, 49.48165, 49.48509, 49.48725, 49.4884, 
  49.4899, 49.49012, 49.49651, 49.49726, 49.49918, 49.50005, 49.50125, 49.50306, 49.50431, 49.5059, 
  49.50618, 49.50442, 49.50512, 49.50523, 49.50827, 49.50916, 49.50866, 49.50732, 49.50557, 49.50364, 
  49.50348, 49.50191, 49.50222, 49.50367, 49.50492, 49.50799, 49.50757, 49.50841, 49.50735, 49.50796, 
  49.50654, 49.50607, 49.50501, 49.50426, 49.50445, 49.50336, 49.50317, 49.49885, 49.49762, 49.49573, 
  49.49394, 49.49255, 49.49132, 49.49118, 49.49258, 49.49366, 49.49355, 49.49447, 49.49592, 49.49829, 
  49.49837, 49.4986, 49.49779, 49.49712, 49.49567, 49.49489, 49.49626, 49.49693, 49.49626, 49.49709, 
  49.49684, 49.4938, 49.49442, 49.49294, 49.49202, 49.48985, 49.48937, 49.48867, 49.48853, 49.48731, 
  49.48672, 49.48731, 49.48848, 49.48731, 49.48859, 49.48798, 49.48748, 49.48739, 49.4853, 49.48341, 
  49.48271, 49.48048, 49.47869, 49.4768, 49.47621, 49.47577, 49.47524, 49.47557, 49.47445, 49.47498, 
  49.47281, 49.47242, 49.47256, 49.47345, 49.47412, 49.47526, 49.47549, 49.47423, 49.47479, 49.47395, 
  49.47333, 49.47076, 49.46778, 49.46483, 49.46313, 49.46383, 49.46483, 49.46561, 49.4663, 49.46695, 
  49.46713, 49.46751, 49.46567, 49.465, 49.46383, 49.46329, 49.46182, 49.45885, 49.45863, 49.4591, 
  49.46121, 49.46037, 49.46054, 49.4573, 49.45734, 49.45802, 49.45824)
LONGITUDE_VALUEs <- c(
  -2.65749, -2.65784, -2.65977, -2.65883, -2.65715, -2.65449, -2.65295, -2.65084, -2.64943, -2.65076, 
  -2.65389, -2.65385, -2.6575, -2.65981, -2.66136, -2.66325, -2.66621, -2.66968, -2.67114, -2.67414, 
  -2.67415, -2.67513, -2.67535, -2.67449, -2.67487, -2.67446, -2.6732, -2.67268, -2.67193, -2.67129, 
  -2.67052, -2.66925, -2.66854, -2.66771, -2.66693, -2.66554, -2.6638, -2.66294, -2.66187, -2.65923, 
  -2.65805, -2.65565, -2.65331, -2.65112, -2.64805, -2.64672, -2.64436, -2.64256, -2.64009, -2.63857, 
  -2.63316, -2.63056, -2.62837, -2.62734, -2.62562, -2.62515, -2.62341, -2.62218, -2.61912, -2.61785, 
  -2.61442, -2.61407, -2.6116, -2.61055, -2.6098, -2.61013, -2.60871, -2.6082, -2.60532, -2.60298, 
  -2.60216, -2.60142, -2.60054, -2.59719, -2.59397, -2.59369, -2.5915, -2.59122, -2.59053, -2.59131, 
  -2.59109, -2.59172, -2.58901, -2.5882, -2.5862, -2.58508, -2.58487, -2.58337, -2.58247, -2.5832, 
  -2.58157, -2.58199, -2.57981, -2.57914, -2.57848, -2.57805, -2.57668, -2.57502, -2.57451, -2.57343, 
  -2.57172, -2.57066, -2.56923, -2.56706, -2.56732, -2.56693, -2.56453, -2.56418, -2.56337, -2.56341, 
  -2.56242, -2.56169, -2.56058, -2.56027, -2.55937, -2.55946, -2.55761, -2.55739, -2.55657, -2.5553, 
  -2.55745, -2.55286, -2.55179, -2.54998, -2.54706, -2.54713, -2.54629, -2.54543, -2.5447, -2.54337, 
  -2.5415, -2.53841, -2.53931, -2.54039, -2.54007, -2.5406, -2.54041, -2.54129, -2.53932, -2.53981, 
  -2.53843, -2.53788, -2.53718, -2.53683, -2.53594, -2.53435, -2.53203, -2.53144, -2.53194, -2.53063, 
  -2.5305, -2.52818, -2.52788, -2.5288, -2.52786, -2.52992, -2.52975, -2.53217, -2.53129, -2.53294, 
  -2.53297, -2.53378, -2.53694, -2.53573, -2.53369, -2.53324, -2.53418, -2.53298, -2.53302, -2.52942, 
  -2.53019, -2.52946, -2.53551, -2.53551, -2.52783, -2.52577, -2.52521, -2.52761, -2.52628, -2.52972, 
  -2.5359, -2.53457, -2.53332, -2.53362, -2.53049, -2.5289, -2.52821, -2.52521, -2.52409, -2.52143, 
  -2.52015, -2.51955, -2.51572, -2.51169, -2.50818, -2.50775, -2.51196, -2.50766, -2.50878, -2.5056, 
  -2.50757, -2.50332, -2.50242, -2.50122, -2.50315, -2.5026, -2.5044, -2.50328, -2.50513, -2.50479, 
  -2.50697, -2.51041, -2.51316, -2.51539, -2.51685, -2.5187, -2.51921, -2.5183, -2.52084, -2.52067, 
  -2.52303, -2.5238, -2.52921, -2.53312, -2.5338, -2.5308, -2.53475, -2.53698, -2.53942, -2.54285, 
  -2.5438, -2.54792, -2.54835, -2.54693, -2.54367, -2.54277, -2.54096, -2.54096, -2.54281, -2.54238, 
  -2.54367, -2.54182, -2.54384, -2.54668, -2.54814, -2.54779, -2.55063, -2.55302, -2.55427, -2.5526, 
  -2.55474, -2.55573, -2.5568, -2.55672, -2.55818, -2.56196, -2.56423, -2.56414, -2.56724, -2.56813, 
  -2.57126, -2.57126, -2.57496, -2.57616, -2.57478, -2.57519, -2.58032, -2.58032, -2.57903, -2.57933, 
  -2.58126, -2.58345, -2.58422, -2.5856, -2.58925, -2.59011, -2.59006, -2.58813, -2.58667, -2.58727, 
  -2.58826, -2.58877, -2.59044, -2.59139, -2.59328, -2.59353, -2.59667, -2.6001, -2.60173, -2.60302, 
  -2.60268, -2.60375, -2.60495, -2.60526, -2.60684, -2.60629, -2.60792, -2.60878, -2.61285, -2.61251, 
  -2.60783, -2.60637, -2.60723, -2.6118, -2.61957, -2.62444, -2.62564, -2.62506, -2.62639, -2.62626, 
  -2.6279, -2.6294, -2.62959, -2.63133, -2.63221, -2.63116, -2.63161, -2.6359, -2.6376, -2.63972, 
  -2.64186, -2.64431, -2.64693, -2.65341, -2.65468, -2.65529, -2.65664)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  49.72096, 49.72082, 49.72041, 49.71968, 49.71925, 49.71675, 49.71632, 49.71595, 49.71599, 49.71432, 
  49.71444, 49.71396, 49.71186, 49.71104, 49.71043, 49.71037, 49.71005, 49.70998, 49.70966, 49.7099, 
  49.7098, 49.7095, 49.70934, 49.70961, 49.70861, 49.70789, 49.70757, 49.70725, 49.70733, 49.70716, 
  49.70689, 49.7067, 49.70645, 49.70627, 49.70605, 49.70582, 49.70571, 49.70578, 49.70556, 49.70553, 
  49.7057, 49.70499, 49.70516, 49.70498, 49.70463, 49.70478, 49.7042, 49.7037, 49.70374, 49.70344, 
  49.70305, 49.70218, 49.70188, 49.70217, 49.7019, 49.70191, 49.7015, 49.70126, 49.70175, 49.70258, 
  49.70281, 49.70188, 49.70218, 49.70124, 49.7012, 49.70172, 49.70138, 49.70161, 49.70127, 49.70185, 
  49.7034, 49.70324, 49.7045, 49.70444, 49.70504, 49.70568, 49.70547, 49.70622, 49.70596, 49.70626, 
  49.70557, 49.70603, 49.70603, 49.70669, 49.7066, 49.70847, 49.70859, 49.70905, 49.71061, 49.71043, 
  49.71242, 49.71238, 49.71464, 49.71392, 49.71475, 49.71581, 49.71654, 49.71653, 49.71799, 49.71818, 
  49.71915, 49.71926, 49.72016, 49.72147, 49.72228, 49.72234, 49.72184, 49.72187, 49.7217, 49.72259, 
  49.72467, 49.72428, 49.7261, 49.72634, 49.72773, 49.72852, 49.7295, 49.7296, 49.72935, 49.72985, 
  49.72963, 49.73006, 49.72978, 49.73025, 49.72956, 49.73049, 49.72978, 49.72868, 49.72877, 49.73023, 
  49.73087, 49.73071, 49.73101, 49.7314, 49.73169, 49.7317, 49.7315, 49.73212, 49.73222, 49.73245, 
  49.73286, 49.73287, 49.73243, 49.73254, 49.73187, 49.73075, 49.7318, 49.73168, 49.73127, 49.73087, 
  49.73062, 49.73, 49.72883, 49.72882, 49.72978, 49.72972, 49.73047, 49.73032, 49.7298, 49.72926, 
  49.72904, 49.72847, 49.72822, 49.72765, 49.72796, 49.72756, 49.72767, 49.72745, 49.72678, 49.72603, 
  49.72596, 49.72563, 49.72549, 49.72466, 49.72451, 49.7236, 49.72326, 49.72126, 49.72091, 49.72156, 
  49.72266, 49.72335, 49.72335, 49.72392, 49.72563, 49.72524, 49.72624, 49.72553, 49.72577, 49.72546, 
  49.72471, 49.72463, 49.72423, 49.72388, 49.72281, 49.72183, 49.72122, 49.72176, 49.72255, 49.72244, 
  49.72204, 49.72188, 49.72137, 49.72075, 49.72088, 49.72065)
LONGITUDE_VALUEs <- c(
  -2.21924, -2.21995, -2.22104, -2.22137, -2.22117, -2.22162, -2.22216, -2.22233, -2.22302, -2.22548, 
  -2.22617, -2.22875, -2.2289, -2.23092, -2.23098, -2.23194, -2.23203, -2.23261, -2.23252, -2.23332, 
  -2.23418, -2.23448, -2.2343, -2.23343, -2.23186, -2.2319, -2.233, -2.23308, -2.23368, -2.23398, 
  -2.23396, -2.23416, -2.23418, -2.23391, -2.2344, -2.23432, -2.23416, -2.23372, -2.23359, -2.23258, 
  -2.23214, -2.23131, -2.23182, -2.23231, -2.23239, -2.23284, -2.23406, -2.23391, -2.23273, -2.23281, 
  -2.23148, -2.2326, -2.2319, -2.23064, -2.23021, -2.22949, -2.2292, -2.22813, -2.22727, -2.22721, 
  -2.22624, -2.22442, -2.22298, -2.222, -2.21975, -2.21904, -2.21797, -2.21689, -2.21423, -2.21129, 
  -2.20934, -2.20748, -2.20619, -2.20535, -2.20507, -2.20284, -2.20235, -2.2014, -2.20022, -2.19975, 
  -2.1984, -2.19707, -2.19576, -2.19385, -2.1919, -2.18968, -2.18844, -2.18735, -2.18791, -2.186, 
  -2.18284, -2.18132, -2.18085, -2.17675, -2.17516, -2.17497, -2.17376, -2.1728, -2.17269, -2.17325, 
  -2.1737, -2.17465, -2.17568, -2.17503, -2.17258, -2.17095, -2.16834, -2.16707, -2.16583, -2.1651, 
  -2.16241, -2.16177, -2.16042, -2.15954, -2.15892, -2.15939, -2.15926, -2.16057, -2.16134, -2.16179, 
  -2.16271, -2.16361, -2.16548, -2.16728, -2.16887, -2.16969, -2.17123, -2.17166, -2.17385, -2.17574, 
  -2.17574, -2.1749, -2.17475, -2.17533, -2.17539, -2.17595, -2.17629, -2.17647, -2.17675, -2.17672, 
  -2.1769, -2.17763, -2.17799, -2.17863, -2.17868, -2.17812, -2.17975, -2.18039, -2.18024, -2.17971, 
  -2.18012, -2.17857, -2.17962, -2.1819, -2.18194, -2.18284, -2.18402, -2.18535, -2.18572, -2.18538, 
  -2.18483, -2.18501, -2.18619, -2.18649, -2.18715, -2.18756, -2.18835, -2.18861, -2.18812, -2.18827, 
  -2.1873, -2.18711, -2.18653, -2.18612, -2.18569, -2.18634, -2.18606, -2.18979, -2.1931, -2.19814, 
  -2.19943, -2.19926, -2.19964, -2.20014, -2.19981, -2.20228, -2.2029, -2.20432, -2.20526, -2.20561, 
  -2.20541, -2.20623, -2.20569, -2.20565, -2.20393, -2.20425, -2.2061, -2.2061, -2.20778, -2.20885, 
  -2.20881, -2.20827, -2.20859, -2.2123, -2.21288, -2.21707)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  49.72978, 49.72969, 49.72915, 49.72898, 49.72878, 49.72896, 49.72914, 49.7296, 49.72925, 49.72984, 
  49.73001, 49.73027, 49.73044, 49.7308, 49.73055, 49.73093, 49.7314, 49.7312, 49.73206, 49.73228, 
  49.73243, 49.73286, 49.73322, 49.73316, 49.73277, 49.73282, 49.73259, 49.73148, 49.73189, 49.73108, 
  49.73139, 49.73107, 49.73069, 49.73057, 49.73022, 49.72994)
LONGITUDE_VALUEs <- c(
  -2.25735, -2.25622, -2.25561, -2.25476, -2.25424, -2.25349, -2.25345, -2.25268, -2.2518, -2.25131, 
  -2.25067, -2.25046, -2.24999, -2.24954, -2.24878, -2.24796, -2.24794, -2.24781, -2.2469, -2.24709, 
  -2.24773, -2.24783, -2.24865, -2.24895, -2.24931, -2.2497, -2.2506, -2.25206, -2.25411, -2.25622, 
  -2.2564, -2.25707, -2.25732, -2.25721, -2.25763, -2.25763)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  49.48097, 49.48062, 49.47968, 49.47761, 49.47742, 49.47391, 49.47353, 49.4727, 49.47158, 49.47059, 
  49.46973, 49.46977, 49.46927, 49.46879, 49.46773, 49.46667, 49.46586, 49.46446, 49.46376, 49.46299, 
  49.46271, 49.46329, 49.46329, 49.46454, 49.4645, 49.46419, 49.46464, 49.4657, 49.46639, 49.46667, 
  49.46808, 49.46962, 49.46952, 49.47027, 49.47083, 49.47075, 49.47206, 49.47284, 49.47377, 49.47457, 
  49.47512, 49.4754, 49.47649, 49.47722, 49.48284, 49.48292)
LONGITUDE_VALUEs <- c(
  -2.45261, -2.45579, -2.45802, -2.45676, -2.456, -2.45358, -2.45367, -2.45264, -2.45206, -2.45208, 
  -2.45291, -2.45401, -2.45367, -2.45401, -2.45371, -2.45294, -2.45345, -2.45281, -2.45197, -2.45208, 
  -2.45124, -2.44983, -2.44942, -2.44742, -2.44637, -2.44551, -2.44476, -2.4444, -2.44478, -2.443, 
  -2.4438, -2.44178, -2.44116, -2.4409, -2.44141, -2.44208, -2.44336, -2.44345, -2.44478, -2.44397, 
  -2.44468, -2.44607, -2.44704, -2.44828, -2.44801, -2.44836)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  49.46067, 49.46057, 49.4599, 49.45976, 49.45876, 49.45851, 49.458, 49.45721, 49.4569, 
  49.45671, 49.45637, 49.45617, 49.45596, 49.45588, 49.45562, 49.45561, 49.45591, 49.45607, 49.45682,
  49.45717, 49.45742, 49.45744, 49.45794, 49.45807, 49.45867, 49.45892, 49.45944, 49.4602, 49.46033, 
  49.46062, 49.46077, 49.46107, 49.46129, 49.46133, 49.46097)
LONGITUDE_VALUEs <- c(
  -2.46294, -2.46403, -2.46431, -2.4652, -2.46526, -2.46577, -2.46571, -2.46539, -2.46572, 
  -2.46547, -2.46553, -2.46466, -2.46436, -2.46405, -2.46403, -2.46378, -2.46324, -2.46246, -2.46213,
  -2.46097, -2.46085, -2.46037, -2.46043, -2.45918, -2.45932, -2.45889, -2.45903, -2.45969, -2.4602, 
  -2.46031, -2.46074, -2.46078, -2.46058, -2.46099, -2.46229)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  49.4464, 49.44433, 49.44358, 49.44272, 49.44205, 49.44138, 49.44087, 49.44037, 49.44051, 49.43931, 
  49.43839, 49.43845, 49.43794, 49.43727, 49.43644, 49.43507, 49.43432, 49.43496, 49.43485, 49.43384, 
  49.43261, 49.43204, 49.4318, 49.43123, 49.43131, 49.43082, 49.43013, 49.42944, 49.4293, 49.42858, 
  49.42882, 49.42856, 49.42731, 49.42668, 49.42674, 49.4255, 49.42478, 49.42545, 49.42377, 49.42283, 
  49.42255, 49.42168, 49.42153, 49.42104, 49.41976, 49.41911, 49.42044, 49.41841, 49.41841, 49.41768, 
  49.41693, 49.41628, 49.41567, 49.41517, 49.41397, 49.41313, 49.41238, 49.41176, 49.41221, 49.41098, 
  49.41066, 49.41066, 49.40945, 49.40894, 49.40861, 49.40827, 49.4075, 49.40783, 49.40736, 49.40753, 
  49.40797, 49.40877, 49.40919, 49.409, 49.40992, 49.41003, 49.41081, 49.41159, 49.41201, 49.41232, 
  49.41277, 49.41531, 49.41542, 49.41614, 49.41595, 49.41707, 49.41799, 49.41863, 49.42011, 49.4203, 
  49.42111, 49.42111, 49.42176, 49.42187, 49.42346, 49.42416, 49.42405, 49.42223, 49.42245, 49.42575, 
  49.42617, 49.42357, 49.42318, 49.42271, 49.42351, 49.4236, 49.42558, 49.42592, 49.42801, 49.42795, 
  49.42974, 49.43044, 49.4315, 49.43234, 49.43278, 49.43515, 49.43702, 49.43736, 49.4382, 49.4382, 
  49.43758, 49.43889, 49.44436, 49.44562, 49.44726, 49.44743, 49.44799, 49.44905, 49.44935, 49.4503, 
  49.45074, 49.45156, 49.45231, 49.45227, 49.45147, 49.45111, 49.45, 49.44928, 49.44856, 49.44757, 
  49.44725)
LONGITUDE_VALUEs <- c(
  -2.3669, -2.36815, -2.36746, -2.36755, -2.36604, -2.36643, -2.36591, -2.36621, -2.36755, -2.36909, 
  -2.36918, -2.37132, -2.37128, -2.37003, -2.37085, -2.36969, -2.37188, -2.37342, -2.37531, -2.37531, 
  -2.3774, -2.37755, -2.37869, -2.3786, -2.37753, -2.37669, -2.37669, -2.37598, -2.37474, -2.3756, 
  -2.37697, -2.37755, -2.37725, -2.37626, -2.3742, -2.37397, -2.37046, -2.36788, -2.36925, -2.36905, 
  -2.36976, -2.3697, -2.36794, -2.36742, -2.36862, -2.37083, -2.3739, -2.37424, -2.37536, -2.37853, 
  -2.3787, -2.37997, -2.37989, -2.3813, -2.38337, -2.38289, -2.38307, -2.38264, -2.38088, -2.3807, 
  -2.3802, -2.37741, -2.37848, -2.37834, -2.37873, -2.37855, -2.37666, -2.37578, -2.37563, -2.37432, 
  -2.37314, -2.37343, -2.37212, -2.37105, -2.37057, -2.3692, -2.36851, -2.36834, -2.36886, -2.36847, 
  -2.3689, -2.36856, -2.3674, -2.3674, -2.36611, -2.36555, -2.36624, -2.36555, -2.36517, -2.36324, 
  -2.36238, -2.36126, -2.36062, -2.35972, -2.36002, -2.3583, -2.35667, -2.35577, -2.35435, -2.35186, 
  -2.35014, -2.3486, -2.34911, -2.34855, -2.34774, -2.34641, -2.34757, -2.34659, -2.34405, -2.34285, 
  -2.34379, -2.34182, -2.34255, -2.34242, -2.34478, -2.34405, -2.34491, -2.34714, -2.34817, -2.34933, 
  -2.35101, -2.35259, -2.3538, -2.36225, -2.36157, -2.36401, -2.36479, -2.36466, -2.36709, -2.36709, 
  -2.36853, -2.36846, -2.3693, -2.36984, -2.36943, -2.36969, -2.36889, -2.36784, -2.3681, -2.36716, 
  -2.36739)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  49.43455, 49.43408, 49.43415, 49.43399, 49.4342, 49.43389, 49.43427, 49.4342, 49.43269, 49.43229, 
  49.43179, 49.43154, 49.43144, 49.43168, 49.43106, 49.43148, 49.43074, 49.43071, 49.43036, 49.43029, 
  49.43009, 49.43042, 49.42937, 49.42904, 49.42897, 49.42838, 49.42904, 49.42907, 49.42946, 49.42981, 
  49.43032, 49.4306, 49.43031, 49.43085, 49.43067, 49.43096, 49.43063, 49.43135, 49.43165, 49.43171, 
  49.43237, 49.4325, 49.43286, 49.43308, 49.43333, 49.43382, 49.43407, 49.43445)
LONGITUDE_VALUEs <- c(
  -2.38717, -2.38843, -2.38936, -2.39049, -2.39109, -2.39193, -2.39229, -2.393, -2.39395, -2.39508, 
  -2.39547, -2.39504, -2.39362, -2.39287, -2.39264, -2.39118, -2.39002, -2.38912, -2.38901, -2.38936, 
  -2.38968, -2.39015, -2.3906, -2.39011, -2.38914, -2.38873, -2.38798, -2.38708, -2.38721, -2.38667, 
  -2.38669, -2.38554, -2.38461, -2.38399, -2.38331, -2.38279, -2.38217, -2.38136, -2.38143, -2.38177, 
  -2.3819, -2.38221, -2.38209, -2.38293, -2.38302, -2.38415, -2.38402, -2.38585)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  49.46089, 49.46022, 49.46061, 49.4599, 49.45962, 49.45976, 49.45916, 49.45858, 49.45849, 49.45777, 
  49.45754, 49.45893, 49.45947, 49.46047, 49.46194, 49.462, 49.46246, 49.46254, 49.46276, 49.46299, 
  49.46337, 49.46335, 49.46303, 49.46272, 49.46219, 49.46223, 49.46239, 49.46294, 49.46282, 49.46231, 
  49.4621, 49.4612)
LONGITUDE_VALUEs <- c(
  -2.67246, -2.67024, -2.66956, -2.66684, -2.66664, -2.66602, -2.6654, -2.66533, -2.66566, -2.66614, 
  -2.66499, -2.66391, -2.66393, -2.66529, -2.66498, -2.66534, -2.66539, -2.66496, -2.66479, -2.66537, 
  -2.66561, -2.66656, -2.667, -2.66675, -2.66805, -2.66936, -2.67009, -2.67042, -2.67102, -2.67158, 
  -2.67151, -2.67237)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("JERSEY", "GUERNSEY"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2)
#Combine GeoDATA | Residences_in_iMIGRANT_Stock
DATA <- left_join(GeoDATA, Residences_in_iMIGRANT_Stock, by = c("M49_CODE" = "ResidenceCode"))
DATA <- DATA %>% st_drop_geometry()
datatable(DATA[is.na(DATA$Residence), ][ , c(1, 5, 9)], 
          options = list(scrollX = TRUE, autoWidth = TRUE, 
                         columnDefs = list(list(targets = "_all", render = JS(
                           "function(data, type, row, meta) {",
                           "  if (type === 'display' && data === null) {",
                           "    return 'NA';", "  }", "  return data;", "}")))), 
          style = "bootstrap", rownames = FALSE, caption = "Countries in GeoDATA (!in Residences_in_iMIGRANT_Stock)") %>%
  formatStyle(columns = 1, textAlign = "left") %>% formatStyle(columns = c(2:3), textAlign = "center")

Numeric Code (M49_CODE) for 5 Areas:

  • PITCAIRN | COCOS (KEELING) ISLANDS | CHRISTMAS ISLAND | NORFOLK ISLAND | SVALBARD AND JAN MAYEN.

We create our own Geometries for 4/5 Areas:

  • PITCAIRN | COCOS (KEELING) ISLANDS | NORFOLK ISLAND | SVALBARD AND JAN MAYEN.

We take Geometries from Global Administrative Areas (GADM) for 1/5 Areas (CHRISTMAS ISLANDS).

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "PITCAIRN")
Geo_2 <- GeoDATA %>% filter(NAME == "COCOS (KEELING) ISLANDS")
Geo_3 <- GeoDATA %>% filter(NAME == "CHRISTMAS ISLAND")
Geo_4 <- GeoDATA %>% filter(NAME == "NORFOLK ISLAND")
Geo_5 <- GeoDATA %>% filter(NAME == "SVALBARD AND JAN MAYEN")
Geo_6 <- GeoDATA %>% filter(NAME == "RUSSIAN FEDERATION")

##### PITCAIRN #####
LATITUDE_VALUEs <- c(
  -24.33045, -24.33756, -24.3393, -24.3395, -24.33778, -24.33741, -24.33801, -24.3396, -24.34263, -24.34879, 
  -24.35067, -24.35278, -24.35391, -24.35512, -24.35864, -24.36459, -24.3682, -24.37643, -24.38139, -24.39378, 
  -24.40273, -24.40731, -24.41043, -24.41172, -24.41325, -24.42005, -24.42306, -24.4229, -24.42087, -24.41841, 
  -24.41516, -24.40344, -24.38866, -24.38124, -24.36982, -24.35798, -24.35118, -24.34723, -24.34199, -24.33477, 
  -24.33072)
LONGITUDE_VALUEs <- c(
  -128.301, -128.317, -128.3225, -128.3311, -128.3376, -128.3401, -128.3425, -128.3445, -128.3461, -128.3472, 
  -128.3481, -128.3499, -128.3521, -128.353, -128.3538, -128.3567, -128.357, -128.3556, -128.3537, -128.3444, 
  -128.3399, -128.3369, -128.3321, -128.326, -128.3144, -128.3049, -128.2991, -128.2963, -128.2929, -128.2915, 
  -128.292, -128.2944, -128.2933, -128.2972, -128.2996, -128.3037, -128.306, -128.3065, -128.3058, -128.3021, 
  -128.3007)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  -25.07442, -25.07603, -25.07535, -25.07201, -25.07033, -25.0692, -25.06887, -25.06957, -25.06976, -25.06905, 
  -25.0683, -25.06729, -25.06505, -25.06406, -25.06398, -25.06337, -25.06369, -25.06321, -25.06306, -25.06247, 
  -25.06178, -25.06163, -25.06033, -25.06014, -25.05952, -25.06011, -25.05998, -25.06068, -25.06149, -25.06341, 
  -25.06421, -25.06419, -25.0654, -25.06604, -25.06916, -25.06908, -25.06974, -25.06984, -25.06894, -25.06922, 
  -25.07112, -25.07207, -25.07423, -25.07408, -25.07511, -25.07505, -25.07585, -25.07469, -25.07532, -25.07677, 
  -25.077, -25.0795, -25.0787, -25.07989, -25.0788, -25.07952, -25.07885, -25.07831)
LONGITUDE_VALUEs <- c(
  -130.0948, -130.0889, -130.0877, -130.0892, -130.092, -130.092, -130.0925, -130.0928, -130.094, -130.0947, 
  -130.0964, -130.0965, -130.0988, -130.0991, -130.1009, -130.1018, -130.1027, -130.1032, -130.1048, -130.105, 
  -130.1061, -130.1075, -130.108, -130.1091, -130.1098, -130.1115, -130.1129, -130.115, -130.1161, -130.1164, 
  -130.1179, -130.1205, -130.1211, -130.1227, -130.1226, -130.1219, -130.122, -130.1212, -130.1208, -130.1185, 
  -130.1165, -130.1135, -130.1146, -130.1135, -130.1137, -130.1131, -130.1127, -130.1118, -130.1103, -130.1099, 
  -130.1075, -130.1064, -130.1025, -130.1013, -130.1004, -130.0992, -130.0985, -130.0964)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -24.67786, -24.67816, -24.68578, -24.68618, -24.68644, -24.6888, -24.68896, -24.68883, -24.68722, -24.6833, 
  -24.68236, -24.68111, -24.67922, -24.67823, -24.67694, -24.67579, -24.67497, -24.67366, -24.67295, -24.67283, 
  -24.67302, -24.67316, -24.67413, -24.67453, -24.67493, -24.67551, -24.67636, -24.67719)
LONGITUDE_VALUEs <- c(
  -124.7972, -124.7972, -124.7941, -124.7937, -124.7934, -124.7878, -124.7867, -124.7863, -124.782, -124.7754, 
  -124.774, -124.7731, -124.7724, -124.7724, -124.7729, -124.7739, -124.7743, -124.7752, -124.7764, -124.7775, 
  -124.7824, -124.7855, -124.7923, -124.7937, -124.7948, -124.7959, -124.7967, -124.7971)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -23.91238, -23.91373, -23.91552, -23.91695, -23.92375, -23.92439, -23.92569, -23.92689, -23.92947, -23.93411, 
  -23.9387, -23.94074, -23.94216, -23.94281, -23.94307, -23.94222, -23.93983, -23.93757, -23.93507, -23.92905, 
  -23.92582, -23.91883, -23.91407, -23.90956, -23.9083, -23.90877, -23.91093, -23.91152, -23.91208)
LONGITUDE_VALUEs <- c(
  -130.753, -130.7538, -130.7541, -130.7538, -130.7548, -130.7551, -130.7553, -130.7551, -130.7555, -130.7553, 
  -130.7529, -130.751, -130.7488, -130.7446, -130.7412, -130.732, -130.7242, -130.7218, -130.7202, -130.7188, 
  -130.7187, -130.7215, -130.7249, -130.7319, -130.7368, -130.7436, -130.7485, -130.7509, -130.752)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### COCOS (KEELING) ISLANDS #####
LATITUDE_VALUEs <- c(
  -12.07389, -12.07463, -12.07554, -12.14251, -12.14496, -12.16223, -12.16892, -12.17343, -12.17439, -12.17706,
  -12.18041, -12.18285, -12.18356, -12.18731, -12.1934, -12.20439, -12.20732, -12.20707, -12.20522, -12.20321,
  -12.20181, -12.20047, -12.20172, -12.20154, -12.20192, -12.2028, -12.20348, -12.2045, -12.20506, -12.20586,
  -12.20865, -12.20885, -12.20884, -12.20847, -12.20771, -12.20759, -12.20443, -12.20189, -12.19938, -12.19668, 
  -12.19199, -12.18594, -12.18451, -12.18298, -12.18111, -12.17954, -12.17871, -12.17798, -12.17692, -12.17537, 
  -12.1739, -12.17168, -12.17017, -12.16865, -12.16753, -12.1656, -12.16367, -12.16184, -12.16095, -12.16017, 
  -12.15959, -12.15923, -12.15767, -12.15409, -12.14785, -12.14586, -12.14254, -12.14103, -12.1396, -12.13859, 
  -12.13719, -12.13681, -12.13551, -12.13325, -12.13055, -12.12964, -12.12796, -12.12748, -12.12689, -12.12653, 
  -12.12627, -12.12491, -12.12217, -12.12033, -12.11943, -12.11724, -12.11574, -12.11452, -12.11235, -12.10919, 
  -12.10562, -12.10345, -12.09233, -12.08968, -12.08846, -12.08795, -12.08704, -12.07294, -12.07263, -12.0725, 
  -12.07252, -12.0735)
LONGITUDE_VALUEs <- c(
  96.83297, 96.832, 96.83154, 96.81682, 96.81708, 96.82107, 96.8207, 96.81807, 96.81796, 96.81804,
  96.81944, 96.8197, 96.82023, 96.82691, 96.83186, 96.83982, 96.84592, 96.84904, 96.85044, 96.85786,
  96.8623, 96.86669, 96.87879, 96.87979, 96.88513, 96.88582, 96.88692, 96.89032, 96.89254, 96.89337,
  96.89403, 96.89445, 96.89533, 96.89818, 96.9006, 96.90277, 96.91013, 96.91675, 96.92029, 96.92262, 
  96.92418, 96.9278, 96.92892, 96.92939, 96.92963, 96.92952, 96.92941, 96.92912, 96.92832, 96.92777, 
  96.92673, 96.92596, 96.92499, 96.92443, 96.92374, 96.92304, 96.9225, 96.92187, 96.92128, 96.92121, 
  96.92101, 96.92043, 96.91985, 96.92045, 96.92164, 96.92085, 96.919, 96.91781, 96.91654, 96.91551, 
  96.91487, 96.91462, 96.91318, 96.91172, 96.9109, 96.91015, 96.90958, 96.90925, 96.90922, 96.90891, 
  96.90873, 96.90757, 96.90573, 96.9042, 96.90384, 96.9018, 96.89922, 96.89606, 96.8942, 96.89071, 
  96.88881, 96.88807, 96.88783, 96.8868, 96.88562, 96.88477, 96.8822, 96.84217, 96.84114, 96.83951, 
  96.83898, 96.83459)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  -11.82312, -11.8243, -11.83192, -11.83499, -11.83747, -11.83871, -11.8388, -11.8413, -11.84189, -11.84218, 
  -11.84228, -11.84206, -11.84204, -11.84188, -11.84133, -11.84043, -11.83866, -11.83786, -11.83704, -11.83657, 
  -11.83561, -11.8353, -11.83533, -11.83472, -11.83366, -11.8317, -11.83089, -11.82843, -11.82754, -11.8244, 
  -11.82364, -11.82307, -11.82246, -11.82247, -11.82267)
LONGITUDE_VALUEs <- c(
  96.82208, 96.82094, 96.81865, 96.81706, 96.8168, 96.81712, 96.8177, 96.82012, 96.82019, 96.82061, 
  96.82224, 96.82322, 96.82495, 96.82539, 96.82619, 96.82636, 96.8278, 96.8277, 96.82729, 96.82734, 
  96.82791, 96.82842, 96.82916, 96.82961, 96.82996, 96.82994, 96.82999, 96.82969, 96.8295, 96.82814, 
  96.82751, 96.82654, 96.82464, 96.82428, 96.82326)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

##### CHRISTMAS ISLAND #####
Geo_0 <- GeoDATA_from_GADM_level_0_low_resolution %>% filter(NAME == "Christmas Island")
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0)) %>% mutate(SOURCE = "Global Administrative Areas (GADM)")
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}

##### NORFOLK ISLAND #####
LATITUDE_VALUEs <- c(
  -29.02193, -29.0195, -29.01901, -29.01372, -29.01143, -29.01083, -29.00842, -29.00917, -29.00606, -29.00452, 
  -29.00088, -29.00227, -29.00126, -29.00178, -29.00028, -28.99968, -28.99713, -28.99514, -28.99589, -28.99529, 
  -28.99574, -28.99735, -29.00111, -29.00715, -29.00741, -29.00801, -29.00865, -29.00812, -29.00962, -29.00914, 
  -29.0115, -29.01601, -29.01713, -29.02017, -29.02201, -29.02377, -29.02486, -29.02614, -29.02831, -29.02906, 
  -29.03026, -29.0342, -29.03852, -29.0398, -29.04055, -29.04115, -29.04186, -29.04291, -29.04531, -29.04546, 
  -29.04752, -29.04865, -29.04933, -29.05041, -29.05161, -29.05251, -29.05135, -29.05229, -29.05266, -29.05402, 
  -29.05416, -29.05522, -29.0554, -29.05623, -29.05792, -29.05912, -29.06002, -29.0608, -29.06152, -29.06216, 
  -29.06276, -29.06227, -29.06155, -29.06092, -29.05998, -29.06002, -29.05792, -29.05754, -29.05829, -29.05822, 
  -29.05657, -29.05734, -29.05723, -29.05826, -29.05918, -29.06044, -29.06036, -29.05988, -29.06044, -29.06154, 
  -29.06179, -29.06228, -29.0628, -29.06263, -29.06132, -29.05794, -29.05642, -29.05679, -29.05743, -29.0575, 
  -29.05675, -29.05735, -29.05608, -29.05668, -29.05431, -29.053, -29.05176, -29.05023, -29.04854, -29.04704, 
  -29.04674, -29.0479, -29.04752, -29.04606, -29.0452, -29.04422, -29.0434, -29.03942, -29.03799, -29.03657, 
  -29.03064, -29.02891, -29.0279, -29.02775, -29.02644, -29.02681, -29.02295, -29.02306, -29.02137)
LONGITUDE_VALUEs <- c(
  167.972, 167.9692, 167.9673, 167.9633, 167.9636, 167.9617, 167.9611, 167.9581, 167.9558, 167.9481, 
  167.9445, 167.9418, 167.936, 167.9325, 167.9302, 167.9269, 167.9273, 167.9255, 167.9223, 167.92, 
  167.9197, 167.9212, 167.9188, 167.9185, 167.9156, 167.9147, 167.9152, 167.9158, 167.9182, 167.9221, 
  167.9229, 167.9208, 167.9217, 167.9196, 167.9213, 167.9188, 167.92, 167.92, 167.9212, 167.9209, 
  167.9214, 167.9182, 167.9204, 167.9188, 167.92, 167.9192, 167.9204, 167.92, 167.9211, 167.9224, 
  167.9228, 167.9213, 167.922, 167.92, 167.9199, 167.9216, 167.9254, 167.9264, 167.9295, 167.9307, 
  167.933, 167.9329, 167.934, 167.9341, 167.9351, 167.9347, 167.9352, 167.9347, 167.9358, 167.9358, 
  167.9369, 167.9375, 167.9373, 167.9412, 167.9417, 167.9432, 167.9424, 167.9432, 167.944, 167.9459, 
  167.9478, 167.9513, 167.9535, 167.954, 167.9595, 167.9608, 167.9615, 167.9618, 167.9628, 167.963, 
  167.9617, 167.9614, 167.9625, 167.9651, 167.9675, 167.9686, 167.9723, 167.9751, 167.9762, 167.9778, 
  167.9814, 167.9832, 167.9845, 167.9862, 167.9872, 167.9868, 167.9842, 167.9828, 167.9829, 167.9849, 
  167.9872, 167.9899, 167.9926, 167.995, 167.9943, 167.9957, 167.9944, 167.9954, 167.995, 167.9961, 
  167.9945, 167.9966, 167.9968, 167.9952, 167.9949, 167.9932, 167.9852, 167.9819, 167.9776)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  -29.07467, -29.07443, -29.07474, -29.07491, -29.07474, -29.07458, -29.07422, -29.07414, -29.07401, 
  -29.07389, -29.07363, -29.07347, -29.07305, -29.07301, -29.0725, -29.07244, -29.07259, -29.07233, -29.07228, 
  -29.07211, -29.07237, -29.07241, -29.07235, -29.07218, -29.07205, -29.07188, -29.07172, -29.07173, -29.072, 
  -29.07206, -29.07188, -29.07191, -29.07166, -29.07103, -29.07057, -29.07016, -29.07001, -29.07024, -29.0702, 
  -29.07043, -29.07075, -29.07081, -29.07112, -29.07117, -29.07124, -29.07136, -29.07189, -29.07202, -29.07245, 
  -29.07272, -29.07276, -29.07261, -29.07238, -29.0728, -29.07323, -29.07358, -29.07383, -29.07414, -29.07458, 
  -29.07477, -29.07527, -29.07537, -29.07515, -29.07516, -29.07497, -29.0749, -29.07452, -29.07436, -29.07436, 
  -29.07428, -29.07465)
LONGITUDE_VALUEs <- c(
  167.9636, 167.964, 167.9642, 167.9649, 167.9648, 167.965, 167.9647, 167.9653, 167.9652, 
  167.9648, 167.9646, 167.9643, 167.9647, 167.965, 167.9651, 167.965, 167.9647, 167.9647, 167.9648, 
  167.9649, 167.9651, 167.9653, 167.9656, 167.9655, 167.9652, 167.9651, 167.9652, 167.9653, 167.9655, 
  167.9657, 167.9659, 167.9662, 167.9663, 167.9657, 167.9664, 167.9654, 167.9642, 167.964, 167.9638, 
  167.9631, 167.9628, 167.9624, 167.9623, 167.9625, 167.9624, 167.9619, 167.9618, 167.9615, 167.9615, 
  167.9618, 167.9621, 167.9621, 167.9627, 167.9631, 167.9629, 167.963, 167.963, 167.9626, 167.9624, 
  167.962, 167.9618, 167.9619, 167.9622, 167.9624, 167.9625, 167.9627, 167.9627, 167.9628, 167.963, 
  167.9632, 167.9635)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -29.13167, -29.13156, -29.13079, -29.13049, -29.12753, -29.12683, -29.12552, -29.12488, -29.12316, -29.12222, 
  -29.1222, -29.12143, -29.12196, -29.12198, -29.12273, -29.12168, -29.12228, -29.12297, -29.12355, -29.12256, 
  -29.12179, -29.12134, -29.1213, -29.12023, -29.11993, -29.11849, -29.11735, -29.1174, -29.11712, -29.11699, 
  -29.11672, -29.11689, -29.11622, -29.11592, -29.11513, -29.11574, -29.11551, -29.11659, -29.11637, -29.11652, 
  -29.11576, -29.11522, -29.11442, -29.11404, -29.1143, -29.11409, -29.11409, -29.11519, -29.11494, -29.11435, 
  -29.11465, -29.11489, -29.11563, -29.1163, -29.11617, -29.11567, -29.11588, -29.11614, -29.11626, -29.11683, 
  -29.11698, -29.11721, -29.11734, -29.11776, -29.11837, -29.11838, -29.11814, -29.11916, -29.1193, -29.12028, 
  -29.12093, -29.12159, -29.12192, -29.12234, -29.12272, -29.12333, -29.12364, -29.12402, -29.1243, -29.12488, 
  -29.12511, -29.12438, -29.12516, -29.1255, -29.12576, -29.12693, -29.12721, -29.12729, -29.12803, -29.12881, 
  -29.12937, -29.12945, -29.1301, -29.13004, -29.13026, -29.13101, -29.13119)
LONGITUDE_VALUEs <- c(
  167.9509, 167.9517, 167.9517, 167.9523, 167.9518, 167.9512, 167.9515, 167.9531, 167.9542, 167.9537, 
  167.9548, 167.9551, 167.9558, 167.9564, 167.9571, 167.9582, 167.9592, 167.9593, 167.9603, 167.9624, 
  167.963, 167.9629, 167.9638, 167.9636, 167.9641, 167.9648, 167.9643, 167.9656, 167.9656, 167.9648, 
  167.9644, 167.9628, 167.9626, 167.9613, 167.9606, 167.9594, 167.9583, 167.9567, 167.9562, 167.9547, 
  167.9531, 167.9527, 167.953, 167.9521, 167.9516, 167.9514, 167.951, 167.9495, 167.9486, 167.9487, 
  167.9468, 167.9464, 167.9464, 167.9469, 167.9456, 167.9454, 167.9449, 167.9448, 167.9438, 167.9434, 
  167.9426, 167.9427, 167.9429, 167.9428, 167.9432, 167.9435, 167.9439, 167.9433, 167.943, 167.9432, 
  167.9427, 167.9428, 167.9433, 167.9426, 167.9426, 167.9442, 167.9445, 167.9442, 167.9447, 167.9444, 
  167.9451, 167.9464, 167.9474, 167.9474, 167.9478, 167.9484, 167.9482, 167.9479, 167.948, 167.9476, 
  167.9479, 167.9484, 167.9488, 167.9494, 167.9499, 167.9503, 167.9506)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_4 <- st_set_geometry(Geo_4, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}

##### SVALBARD AND JAN MAYEN #####
LATITUDE_VALUEs <- c(
  70.92734, 70.94204, 70.95092, 70.95956, 70.96894, 70.97354, 70.97547, 70.97518, 70.97411, 70.97275, 
  70.96763, 70.96798, 70.96987, 70.97171, 70.9702, 70.97052, 70.97378, 70.97788, 70.9768, 70.97761, 
  70.97789, 70.97989, 70.9797, 70.98219, 70.98904, 70.99055, 71.0008, 71.00099, 70.99964, 71.00097, 
  71.005, 71.00573, 71.00513, 71.01945, 71.03998, 71.06501, 71.08789, 71.10458, 71.10969, 71.11213, 
  71.12312, 71.13078, 71.13666, 71.1459, 71.14984, 71.15641, 71.15974, 71.16052, 71.15782, 71.15945, 
  71.15808, 71.15874, 71.15663, 71.15245, 71.14754, 71.14452, 71.14471, 71.12075, 71.06679, 71.05175, 
  71.03723, 71.01401, 71.00362, 70.99646, 70.98452, 70.97793, 70.97701, 70.97695, 70.97539, 70.97483, 
  70.97337, 70.97217, 70.97175, 70.96722, 70.96366, 70.96078, 70.94896, 70.94394, 70.9389, 70.93738, 
  70.93427, 70.93112, 70.93124, 70.92854, 70.92859, 70.92644, 70.92437, 70.92137, 70.91691, 70.9162, 
  70.9153, 70.91373, 70.91303, 70.90948, 70.90949, 70.90824, 70.9059, 70.90185, 70.89916, 70.89367, 
  70.89254, 70.88882, 70.88681, 70.88519, 70.88261, 70.87931, 70.87752, 70.87711, 70.87557, 70.87738, 
  70.87739, 70.87949, 70.87575, 70.8744, 70.87225, 70.87015, 70.86889, 70.86344, 70.85705, 70.85323, 
  70.84505, 70.84213, 70.83748, 70.83615, 70.83377, 70.83155, 70.83034, 70.82923, 70.82754, 70.82731, 
  70.82674, 70.82717, 70.82599, 70.82676, 70.82675, 70.83186, 70.8328, 70.83277, 70.83234, 70.83339, 
  70.83325, 70.83429, 70.83544, 70.84059, 70.84361, 70.84479, 70.84799, 70.84994, 70.85284, 70.85626, 
  70.86369, 70.86563, 70.86611, 70.86816, 70.8692, 70.86833, 70.86532, 70.86582, 70.87468, 70.87938, 
  70.8834, 70.88784, 70.8927, 70.89812, 70.89947, 70.9029, 70.90413, 70.906, 70.90682, 70.91056, 
  70.91214, 70.91346, 70.91352, 70.91534, 70.91812, 70.91778, 70.9203, 70.92431, 70.92567)
LONGITUDE_VALUEs <- c(
  -8.7028, -8.64959, -8.61337, -8.57221, -8.50801, -8.45328, -8.41922, -8.40081, -8.39553, -8.39703, 
  -8.38866, -8.3842, -8.38673, -8.38055, -8.37236, -8.36982, -8.37257, -8.34008, -8.33358, -8.32491, 
  -8.31579, -8.3033, -8.29343, -8.28369, -8.22799, -8.20626, -8.12721, -8.11926, -8.11636, -8.11164, 
  -8.07757, -8.06096, -8.04783, -7.98655, -7.98243, -7.99669, -7.99806, -7.98913, -7.97574, -7.95704, 
  -7.95874, -7.94183, -7.94106, -7.92853, -7.93831, -7.94552, -7.95453, -7.96912, -7.99019, -8.01461, 
  -8.0271, -8.06694, -8.0786, -8.08341, -8.08272, -8.10487, -8.15422, -8.29257, -8.42335, -8.42764, 
  -8.45795, -8.46035, -8.49778, -8.50087, -8.57151, -8.68363, -8.68749, -8.69092, -8.69152, -8.69711, 
  -8.69513, -8.69745, -8.68423, -8.68234, -8.6886, -8.6977, -8.76217, -8.76602, -8.82096, -8.8564, 
  -8.87546, -8.87792, -8.88136, -8.88393, -8.88676, -8.89165, -8.90137, -8.90206, -8.93194, -8.93174, 
  -8.93603, -8.93672, -8.94097, -8.94032, -8.93813, -8.93796, -8.94345, -8.96899, -8.97839, -8.97851, 
  -8.98306, -8.98873, -8.98748, -8.99049, -8.99104, -8.99611, -9.00456, -9.01388, -9.02255, -9.03542, 
  -9.04576, -9.04808, -9.06169, -9.06177, -9.06872, -9.06761, -9.07229, -9.07709, -9.06506, -9.05345, 
  -9.03958, -9.037, -9.03782, -9.0412, -9.038, -9.03708, -9.03951, -9.03228, -9.02893, -9.017, 
  -9.01131, -9.00786, -8.99314, -8.98636, -8.98112, -8.96187, -8.95681, -8.95407, -8.95226, -8.94876, 
  -8.94559, -8.94376, -8.93843, -8.9341, -8.92813, -8.92766, -8.91968, -8.9041, -8.90517, -8.89844, 
  -8.86661, -8.85143, -8.83958, -8.83211, -8.82241, -8.81219, -8.81056, -8.80481, -8.80559, -8.79658, 
  -8.79477, -8.78764, -8.76997, -8.76748, -8.76201, -8.75815, -8.75033, -8.74668, -8.73248, -8.73205, 
  -8.72544, -8.72574, -8.72107, -8.72158, -8.7254, -8.71677, -8.7151, -8.70308, -8.70441)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  74.3431, 74.3406, 74.33877, 74.33731, 74.33819, 74.34118, 74.34257, 74.34178, 74.34671, 74.35516, 
  74.35674, 74.35512, 74.35982, 74.3613, 74.3696, 74.36965, 74.36613, 74.37328, 74.37247, 74.37335, 
  74.38422, 74.39323, 74.3979, 74.40223, 74.40288, 74.42378, 74.43368, 74.44128, 74.44432, 74.4492, 
  74.45035, 74.45748, 74.46019, 74.46838, 74.47454, 74.48276, 74.48221, 74.48427, 74.4829, 74.48473, 
  74.48763, 74.48726, 74.48983, 74.4902, 74.49544, 74.50014, 74.50189, 74.5037, 74.50503, 74.50709, 
  74.50702, 74.5106, 74.51305, 74.51518, 74.51344, 74.51342, 74.50991, 74.50704, 74.50709, 74.50487, 
  74.50562, 74.50411, 74.50798, 74.50327, 74.50112, 74.50648, 74.50158, 74.49685, 74.49827, 74.49543, 
  74.4952, 74.48887, 74.4837, 74.47792, 74.46863, 74.46036, 74.45622, 74.45005, 74.44849, 74.44361, 
  74.4367, 74.42813, 74.41356, 74.40526, 74.40314, 74.39557, 74.39529, 74.38228, 74.38131, 74.35652, 
  74.35425, 74.3505, 74.35036, 74.34703)
LONGITUDE_VALUEs <- c(
  19.04188, 19.04291, 19.05578, 19.05862, 19.06488, 19.07055, 19.08634, 19.10204, 19.09175, 19.11183, 
  19.13982, 19.15354, 19.15414, 19.14308, 19.15398, 19.16531, 19.17569, 19.17921, 19.17406, 19.16634, 
  19.16873, 19.18899, 19.17285, 19.18281, 19.19688, 19.24443, 19.25473, 19.25319, 19.26228, 19.25852, 
  19.26795, 19.25354, 19.26778, 19.25766, 19.22709, 19.20547, 19.19775, 19.19312, 19.18745, 19.17835, 
  19.18058, 19.17543, 19.1756, 19.16342, 19.16359, 19.15346, 19.15475, 19.15295, 19.15672, 19.15089, 
  19.13355, 19.11761, 19.11737, 19.08835, 19.08415, 19.06947, 19.0687, 19.04184, 19.0129, 19.01531, 
  19.00081, 18.99213, 18.9796, 18.9769, 18.94084, 18.92659, 18.91511, 18.87493, 18.82822, 18.82255, 
  18.80384, 18.77914, 18.77716, 18.75999, 18.77613, 18.76686, 18.79123, 18.78642, 18.80222, 18.79844, 
  18.81835, 18.81148, 18.86641, 18.87225, 18.89732, 18.90453, 18.9272, 18.93964, 18.96882, 19.02102, 
  19.01431, 19.02169, 19.02959, 19.04436)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.75459, 80.75109, 80.74822, 80.74551, 80.74071, 80.73999, 80.7343, 80.72556, 80.71839, 80.71258, 
  80.70609, 80.70404, 80.70476, 80.70812, 80.71116, 80.7113, 80.70789, 80.70346, 80.70021, 80.69491, 
  80.69021, 80.68602, 80.68584, 80.68366, 80.68343, 80.67978, 80.67853, 80.67423, 80.67205, 80.67348, 
  80.67847, 80.68336, 80.68755, 80.69, 80.69277, 80.69518, 80.69561, 80.69356, 80.69074, 80.69127, 
  80.69724, 80.70258, 80.70378, 80.70466, 80.70629, 80.70485, 80.70607, 80.70572, 80.70694, 80.71262, 
  80.72203, 80.72353, 80.72143, 80.71888, 80.71179, 80.71002, 80.70845, 80.70903, 80.71191, 80.72495, 
  80.72509, 80.72822, 80.73192, 80.73455, 80.73723, 80.7401, 80.74593, 80.74736, 80.74976, 80.75374, 
  80.75738, 80.75707, 80.75784, 80.75617)
LONGITUDE_VALUEs <- c(
  20.53397, 20.535, 20.54546, 20.54409, 20.56245, 20.58924, 20.64107, 20.65446, 20.64502, 20.65429, 
  20.6773, 20.69292, 20.71523, 20.7197, 20.73944, 20.75557, 20.78664, 20.79213, 20.79128, 20.81033, 
  20.79343, 20.82802, 20.84046, 20.84166, 20.82828, 20.80013, 20.80073, 20.81978, 20.84475, 20.856, 
  20.86373, 20.86115, 20.86733, 20.85823, 20.87557, 20.90724, 20.9317, 20.95583, 20.96956, 20.99229, 
  21.01753, 21.05032, 21.05375, 21.06354, 21.06551, 21.03686, 21.02449, 21.00552, 20.98724, 20.96638, 
  20.95745, 20.94593, 20.92704, 20.91948, 20.86693, 20.86693, 20.84767, 20.81641, 20.78619, 20.77744, 
  20.73091, 20.71377, 20.71257, 20.71943, 20.70004, 20.69644, 20.65917, 20.65593, 20.66228, 20.65644, 
  20.62656, 20.58807, 20.55854, 20.53958)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.61496, 80.61394, 80.61622, 80.61713, 80.62017, 80.6212, 80.62229, 80.62544, 80.62796, 80.63433, 
  80.63671, 80.63778, 80.63718, 80.63725, 80.64621, 80.64799, 80.6512, 80.65665, 80.66214, 80.66269, 
  80.65993, 80.65503, 80.64967, 80.65093, 80.66247, 80.66534, 80.66908, 80.66608, 80.6647, 80.6631, 
  80.66378, 80.66048, 80.66077, 80.65879, 80.65428, 80.65346, 80.65302, 80.65163, 80.64976, 80.64661, 
  80.64626, 80.64541, 80.64436, 80.64363, 80.64089, 80.63917, 80.63786, 80.6365, 80.63667, 80.63369, 
  80.63498, 80.63453, 80.63177, 80.63055, 80.62929, 80.62885, 80.62782, 80.62677, 80.62434, 80.62472, 
  80.62443, 80.62338, 80.62244, 80.62155, 80.62071, 80.61856, 80.61778, 80.61722, 80.61622, 80.61566)
LONGITUDE_VALUEs <- c(
  20.71945, 20.73198, 20.74682, 20.74356, 20.76708, 20.76665, 20.74424, 20.72382, 20.71584, 20.72142, 
  20.72871, 20.74115, 20.75035, 20.76099, 20.80064, 20.82751, 20.81927, 20.81738, 20.80631, 20.75713, 
  20.69413, 20.67301, 20.66649, 20.6344, 20.63903, 20.65885, 20.64323, 20.60349, 20.60427, 20.57551, 
  20.57036, 20.5495, 20.50745, 20.49474, 20.49397, 20.49757, 20.49508, 20.50118, 20.50504, 20.52709, 
  20.53516, 20.5404, 20.54276, 20.54216, 20.5483, 20.55057, 20.5619, 20.5698, 20.57636, 20.60318, 
  20.62593, 20.63723, 20.65912, 20.6641, 20.66384, 20.66161, 20.66183, 20.67058, 20.67183, 20.68208, 
  20.68668, 20.69187, 20.69264, 20.6965, 20.69809, 20.71118, 20.71272, 20.71607, 20.71642, 20.72045)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.65181, 80.65428, 80.65888, 80.66145, 80.66338, 80.66769, 80.67304, 80.67438, 80.67171, 80.6681, 
  80.66906, 80.67312, 80.68009, 80.683, 80.68694, 80.68975, 80.69111, 80.69772, 80.70055, 80.7077, 
  80.70637, 80.69536, 80.69291, 80.69497, 80.6958, 80.69461, 80.68555, 80.68016, 80.6763, 80.66397, 
  80.66001, 80.65349)
LONGITUDE_VALUEs <- c(
  21.13847, 21.15417, 21.15795, 21.18542, 21.23065, 21.22911, 21.24661, 21.26395, 21.3091, 21.32549, 
  21.3594, 21.3739, 21.36781, 21.3013, 21.28689, 21.29735, 21.35278, 21.3581, 21.34867, 21.2891, 
  21.2673, 21.24721, 21.22027, 21.19625, 21.15881, 21.11745, 21.03865, 21.05735, 21.05066, 21.08585, 
  21.11434, 21.12465)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.04195, 80.04551, 80.0442, 80.05352, 80.06869, 80.08939, 80.09896, 80.10952, 80.10952, 80.1058, 
  80.11082, 80.12319, 80.12808, 80.12761, 80.13296, 80.13255, 80.14507, 80.14942, 80.14769, 80.16096, 
  80.18229, 80.21502, 80.21759, 80.22447, 80.22971, 80.23335, 80.23737, 80.23725, 80.25282, 80.26754, 
  80.28876, 80.30224, 80.30981, 80.31155, 80.30808, 80.3038, 80.30212, 80.28754, 80.28771, 80.27688, 
  80.26132, 80.25854, 80.23591, 80.17983, 80.16905, 80.15298, 80.10342, 80.09822, 80.08653, 80.07707, 
  80.0574)
LONGITUDE_VALUEs <- c(
  31.65436, 31.68696, 31.73467, 31.77694, 31.97641, 32.13569, 32.17859, 32.30737, 32.36641, 32.43128, 
  32.57554, 32.68811, 32.80795, 32.87625, 32.96348, 33.0081, 33.15911, 33.2625, 33.34421, 33.3552, 
  33.43072, 33.4369, 33.47396, 33.48632, 33.51927, 33.44891, 33.4441, 33.37066, 33.24736, 33.22402, 
  33.14301, 33.04652, 32.92464, 32.81961, 32.73822, 32.7039, 32.63217, 32.48624, 32.4454, 32.29707, 
  32.19818, 32.13709, 32.06257, 31.64062, 31.61862, 31.52939, 31.44702, 31.46894, 31.42295, 31.49847, 
  31.54997)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  76.58278, 76.58987, 76.60248, 76.61695, 76.63129, 76.66035, 76.6841, 76.70093, 76.70689, 76.7132, 
  76.71498, 76.70535, 76.6907, 76.67532, 76.66898, 76.66237, 76.64077, 76.62768, 76.62069, 76.60761, 
  76.59504, 76.5819, 76.57453, 76.5646, 76.55635, 76.55044, 76.54684, 76.5375, 76.5293, 76.52574, 
  76.51206, 76.50505, 76.50204, 76.5002, 76.49623, 76.47983, 76.47059, 76.45818, 76.45335, 76.45227, 
  76.45008, 76.44487, 76.44356, 76.44392, 76.4435, 76.44469, 76.44642, 76.45154, 76.45492, 76.45814, 
  76.46093, 76.46611, 76.47838, 76.48173, 76.48388, 76.49551, 76.49848, 76.50216, 76.50541, 76.50777, 
  76.5139, 76.52178, 76.55016, 76.55463, 76.55894, 76.56137, 76.56437, 76.56792, 76.57049, 76.57194, 
  76.57718, 76.57892, 76.58021, 76.58107)
LONGITUDE_VALUEs <- c(
  25.18023, 25.20806, 25.21977, 25.27642, 25.34062, 25.37923, 25.44704, 25.48068, 25.4994, 25.49905, 
  25.49425, 25.43434, 25.38783, 25.35589, 25.35469, 25.32706, 25.28122, 25.26404, 25.2371, 25.21455, 
  25.17131, 25.14595, 25.12312, 25.0996, 25.06544, 25.03541, 25.03265, 25.01445, 25.00261, 24.98459, 
  24.98047, 24.96313, 24.93927, 24.9379, 24.94493, 24.93343, 24.90888, 24.89687, 24.89704, 24.89363, 
  24.89346, 24.92135, 24.92641, 24.92934, 24.93612, 24.94187, 24.94187, 24.95706, 24.97869, 24.97568, 
  24.96007, 24.95598, 24.96053, 24.96808, 24.96731, 25.00166, 24.99823, 25.00492, 25.00578, 25.01505, 
  25.02501, 25.06465, 25.14637, 25.14809, 25.15839, 25.15598, 25.16303, 25.15426, 25.15794, 25.16412, 
  25.1703, 25.1757, 25.17622, 25.17965)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  78.96981, 78.96743, 78.96529, 78.965, 78.96907, 78.97286, 78.9769, 78.98268, 78.98697, 78.99369, 
  78.99654, 79.00516, 79.01301, 79.01942, 79.01543, 79.01134, 79.01121, 79.01386, 79.01321, 79.01357, 
  79.01193, 79.00945, 79.0063, 79.00139, 78.97926, 78.97467)
LONGITUDE_VALUEs <- c(
  30.19539, 30.19539, 30.20457, 30.21873, 30.2341, 30.21565, 30.22902, 30.23382, 30.26696, 30.2963, 
  30.37047, 30.42023, 30.40736, 30.36995, 30.34728, 30.29357, 30.21615, 30.17994, 30.15743, 30.07661, 
  30.06442, 30.0658, 30.09033, 30.10423, 30.10817, 30.13649)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  78.64806, 78.64279, 78.63806, 78.6411, 78.65056, 78.65671, 78.65921, 78.65806, 78.66096, 78.66123, 
  78.67331, 78.68248, 78.69419, 78.70778, 78.70973, 78.71652, 78.71867, 78.71531, 78.71813, 78.73156, 
  78.76438, 78.78022, 78.79558, 78.8195, 78.8233, 78.83174, 78.83786, 78.83939, 78.83866, 78.82003, 
  78.81264, 78.79284, 78.77047, 78.7532, 78.72948, 78.71967, 78.67594, 78.66825, 78.66279)
LONGITUDE_VALUEs <- c(
  26.7108, 26.72968, 26.73791, 26.75679, 26.74787, 26.7815, 26.82852, 26.84603, 26.89861, 26.93362, 
  26.98269, 26.99299, 26.98407, 27.02115, 27.05993, 27.06817, 27.01806, 27.01017, 26.93257, 26.86118, 
  26.77669, 26.69086, 26.65549, 26.64554, 26.64313, 26.58444, 26.56145, 26.54394, 26.51099, 26.43989, 
  26.37981, 26.36299, 26.40385, 26.45809, 26.48762, 26.48831, 26.73718, 26.74239, 26.72197)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  78.83713, 78.82702, 78.8451, 78.86528, 78.88197, 78.88978, 78.89263, 78.89143, 78.88409, 78.88118, 
  78.88442, 78.8991, 78.90168, 78.91337, 78.9137, 78.9178, 78.91766, 78.90987, 78.91153, 78.91034, 
  78.90287, 78.89775, 78.89292, 78.87979, 78.86779, 78.8542, 78.85579, 78.85307, 78.84656, 78.83992, 
  78.83892, 78.84198, 78.84211, 78.8453, 78.84829, 78.86408, 78.88018, 78.88839, 78.89124, 78.89163, 
  78.9139, 78.92123, 78.91014, 78.90928, 78.90327, 78.90089, 78.90135, 78.90618, 78.91489, 78.93158, 
  78.93606, 78.95824, 78.95495, 78.95778, 78.95745, 78.96508, 78.95903, 78.95785, 78.96258, 78.96587, 
  78.96721, 78.96564, 78.96574, 78.96091, 78.95872, 78.95431, 78.94403, 78.9296, 78.92617, 78.91839, 
  78.91628, 78.91786, 78.91575, 78.87919, 78.87005, 78.86521, 78.86677, 78.87296, 78.87343, 78.86431, 
  78.85745, 78.84417, 78.84058)
LONGITUDE_VALUEs <- c(
  28.02671, 28.09878, 28.16193, 28.29922, 28.37409, 28.45279, 28.51423, 28.54649, 28.56714, 28.60592, 
  28.64161, 28.65328, 28.68387, 28.6952, 28.72505, 28.73226, 28.76281, 28.80605, 28.82759, 28.88473, 
  28.94206, 28.95838, 29.00643, 29.0368, 29.09824, 29.14562, 29.20122, 29.22836, 29.24003, 29.22767, 
  29.24003, 29.27744, 29.30009, 29.31107, 29.2994, 29.29357, 29.3767, 29.47629, 29.54628, 29.63895, 
  29.64206, 29.58955, 29.49893, 29.4574, 29.39631, 29.31145, 29.21566, 29.07902, 28.97572, 28.92625, 
  28.95713, 28.92228, 28.87971, 28.82201, 28.74027, 28.69259, 28.5899, 28.51579, 28.40726, 28.40449, 
  28.39247, 28.38371, 28.3698, 28.37873, 28.39117, 28.40259, 28.41178, 28.40382, 28.351, 28.27854, 
  28.21572, 28.17141, 28.13157, 28.01932, 27.96716, 27.87443, 27.8629, 27.84504, 27.82547, 27.80334, 
  27.80832, 27.8763, 27.92213)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.12304, 80.06267, 80.04844, 80.05568, 80.06398, 80.06729, 80.07321, 80.0828, 80.08457, 80.09438, 
  80.10996, 80.11072, 80.11715, 80.11839, 80.12852, 80.13763, 80.13763, 80.14422, 80.13534)
LONGITUDE_VALUEs <- c(
  27.87418, 27.93669, 28.08982, 28.17013, 28.17699, 28.2155, 28.19766, 28.2155, 28.26149, 28.24021, 
  28.25943, 28.2279, 28.19152, 28.11533, 28.03396, 28.03636, 28.0058, 27.98315, 27.95569)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  79.34157, 79.34373, 79.35122, 79.33166, 79.32365, 79.32696, 79.34538, 79.34652, 79.38062, 79.39124, 
  79.39996, 79.39604, 79.40097, 79.40236, 79.39541, 79.39364, 79.38656, 79.35819, 79.35439, 79.3436, 
  79.33141)
LONGITUDE_VALUEs <- c(
  19.77734, 19.89609, 19.96198, 20.07458, 20.08007, 20.15146, 20.124, 20.08354, 19.92632, 19.84183, 
  19.8034, 19.75809, 19.71073, 19.65856, 19.65513, 19.61601, 19.6489, 19.6434, 19.61321, 19.65508, 
  19.67361)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  79.0289, 79.02367, 79.04692, 79.05696, 79.06869, 79.08001, 79.10314, 79.11332, 79.11488, 79.11034, 
  79.10424, 79.10139, 79.1045, 79.11054, 79.11812, 79.12123, 79.11436, 79.11371, 79.10762, 79.10028, 
  79.08281, 79.0655, 79.05683, 79.05664, 79.04888, 79.0464, 79.04111, 79.03824, 79.04079, 79.04013, 
  79.03184, 79.02786, 79.02531, 79.01831, 79.02191, 79.02282, 79.01975, 79.01475, 79.01193, 79.01112, 
  79.00814, 79.00473, 79.00257, 79.0047, 79.00395, 79.01115, 79.0172)
LONGITUDE_VALUEs <- c(
  20.56695, 20.64658, 20.73584, 20.79624, 20.79075, 20.7427, 20.51755, 20.48633, 20.42627, 20.4448, 
  20.41494, 20.32875, 20.25976, 20.22506, 20.22404, 20.13, 20.13412, 20.16672, 20.18936, 20.18455, 
  20.12584, 20.10351, 20.11554, 20.13167, 20.13613, 20.15397, 20.14746, 20.12549, 20.10009, 20.07882, 
  20.12927, 20.13991, 20.16221, 20.17629, 20.18993, 20.22013, 20.26853, 20.29119, 20.28415, 20.29959, 
  20.30045, 20.28175, 20.29239, 20.31744, 20.33515, 20.43128, 20.43608)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.29283, 80.28345, 80.28449, 80.27916, 80.25792, 80.24647, 80.24001, 80.23978, 80.25037, 80.25316, 
  80.25118, 80.24467, 80.24508, 80.24775, 80.25078, 80.2556, 80.26176, 80.27052, 80.27887, 80.28397, 
  80.2882, 80.29, 80.28878, 80.28884, 80.29573, 80.29897, 80.30279, 80.30608, 80.31094, 80.31082, 
  80.30724, 80.30507, 80.30068, 80.2992, 80.30678, 80.30952, 80.31862, 80.3215, 80.31536, 80.31816, 
  80.32386, 80.32566, 80.32668, 80.32903, 80.32977, 80.33538, 80.33659, 80.33402, 80.33174, 80.3329, 
  80.33517, 80.34076, 80.34474, 80.34232, 80.34307, 80.34978, 80.34868, 80.35096, 80.35539, 80.35481, 
  80.36539, 80.36001, 80.35743, 80.34805, 80.34284, 80.33849, 80.33301, 80.33218)
LONGITUDE_VALUEs <- c(
  18.08684, 18.10126, 18.13421, 18.21731, 18.38069, 18.39895, 18.39105, 18.40993, 18.42675, 18.46317, 
  18.48686, 18.48926, 18.515, 18.50848, 18.52736, 18.58608, 18.61183, 18.61766, 18.60908, 18.6187, 
  18.64444, 18.66745, 18.67775, 18.70384, 18.73235, 18.72995, 18.73699, 18.72858, 18.73012, 18.72, 
  18.7157, 18.68394, 18.68205, 18.59813, 18.58163, 18.63312, 18.63484, 18.6206, 18.59519, 18.55262, 
  18.53023, 18.53238, 18.54628, 18.55169, 18.56774, 18.58542, 18.57933, 18.56362, 18.56405, 18.55006, 
  18.55014, 18.4988, 18.49537, 18.47201, 18.44454, 18.42755, 18.39921, 18.38103, 18.3788, 18.35733, 
  18.27905, 18.27426, 18.2559, 18.24062, 18.20988, 18.21882, 18.19134, 18.15579)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  78.89706, 78.89289, 78.88842, 78.85755, 78.81124, 78.80331, 78.79945, 78.79037, 78.78316, 78.77381,
  78.75521, 78.74664, 78.72907, 78.72075, 78.66582, 78.64563, 78.62459, 78.61815, 78.57396, 78.56519,
  78.54993, 78.54495, 78.54209, 78.49877, 78.48754, 78.45494, 78.43713, 78.45006, 78.45652, 78.45247,
  78.4102, 78.41137, 78.40219, 78.37822, 78.36784, 78.36507, 78.35399, 78.34934, 78.34268, 78.30252,
  78.28761, 78.27695, 78.27206, 78.26725, 78.25429, 78.23946, 78.22928, 78.22556, 78.22353, 78.22013,
  78.22402, 78.23017, 78.23055, 78.2204, 78.22276, 78.22094, 78.21701, 78.21922, 78.21635, 78.21596,
  78.20969, 78.20741, 78.21593, 78.22437, 78.22774, 78.23988, 78.24342, 78.24877, 78.25761, 78.26669,
  78.27646, 78.28228, 78.28559, 78.29462, 78.29671, 78.30113, 78.30214, 78.31362, 78.32026, 78.32838,
  78.33727, 78.35724, 78.36109, 78.37088, 78.37524, 78.38492, 78.38855, 78.39056, 78.39577, 78.40578,
  78.43252, 78.44553, 78.44456, 78.45075, 78.46998, 78.51225, 78.54823, 78.54638, 78.54032, 78.55484,
  78.55865, 78.57219, 78.57607, 78.58559, 78.58566, 78.59306, 78.61707, 78.62114, 78.6189, 78.61192,
  78.61206, 78.60704, 78.61782, 78.61978, 78.63048, 78.64617, 78.64184, 78.65151, 78.65313, 78.65739,
  78.6671, 78.66926, 78.66548, 78.66133, 78.66818, 78.68248, 78.68295, 78.68931, 78.69036, 78.6945, 
  78.69557, 78.72477, 78.73255, 78.73202, 78.72081, 78.72531, 78.72739, 78.73329, 78.74201, 78.74703, 
  78.754, 78.76905, 78.77587, 78.78496, 78.79604, 78.8095, 78.81337, 78.8183, 78.82555, 78.83799, 
  78.85253, 78.87117, 78.88746, 78.88693, 78.89725)
LONGITUDE_VALUEs <- c(
  10.466, 10.45931, 10.47596, 10.53741, 10.53102, 10.51764, 10.49052, 10.50562, 10.4943, 10.53447,
  10.56532, 10.612, 10.61749, 10.66214, 10.74383, 10.81289, 10.82766, 10.85924, 10.93889, 10.931,
  10.98868, 10.98937, 10.96809, 11.00344, 11.04086, 11.05597, 11.14626, 11.18232, 11.25612, 11.32274,
  11.44427, 11.45664, 11.53078, 11.58571, 11.58709, 11.60803, 11.61352, 11.63035, 11.63378, 11.802,
  11.81744, 11.80646, 11.76115, 11.76321, 11.82864, 11.83894, 11.88324, 11.91138, 11.91088, 11.93473,
  11.94228, 11.93084, 11.94801, 11.96842, 11.98903, 12.01343, 12.02133, 12.02991, 12.03592, 12.05891,
  12.07608, 12.14543, 12.14131, 12.11728, 12.13239, 12.11196, 12.11402, 12.0862, 12.08776, 12.05341,
  12.06732, 12.0869, 12.0644, 12.05617, 12.04656, 12.04519, 12.0342, 12.02149, 11.9748, 11.96932,
  11.95541, 11.94631, 11.91867, 11.88844, 11.884, 11.89241, 11.88193, 11.84913, 11.83786, 11.84061,
  11.86739, 11.89693, 11.78224, 11.67026, 11.57554, 11.46361, 11.44886, 11.34727, 11.26415, 11.26037,
  11.3009, 11.28407, 11.26037, 11.25319, 11.23326, 11.22262, 11.26279, 11.21917, 11.17836, 11.1574,
  11.11996, 11.09249, 11.08218, 11.10897, 11.10556, 11.08083, 11.13166, 11.1296, 11.16087, 11.14369,
  11.14885, 11.12343, 11.11862, 11.04176, 11.01842, 11.06836, 11.03335, 11.01516, 11.02356, 11.02871, 
  11.04673, 11.02866, 11.09255, 11.11728, 11.12621, 11.15224, 11.18797, 11.17114, 11.16392, 11.14541,
  11.1406, 11.09183, 11.02352, 10.97441, 10.95244, 10.95622, 10.98438, 10.98746, 11.00636, 10.97785, 
  10.8975, 10.83709, 10.65749, 10.60397, 10.53459)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  78.20207, 78.21133, 78.2133, 78.22563, 78.24859, 78.25949, 78.25754, 78.26801, 78.25642, 78.28043, 
  78.37766, 78.4286, 78.46943, 78.52052, 78.54986, 78.58307, 78.57995, 78.58987, 78.57437, 78.55518, 
  78.56362, 78.53568, 78.58171, 78.62919, 78.63758, 78.62459, 78.61633, 78.58402, 78.55361, 78.5581, 
  78.55156, 78.54304, 78.54475, 78.53752, 78.52332, 78.52284, 78.51491, 78.50418, 78.49596, 78.48548, 
  78.48219, 78.48247, 78.47952, 78.47599, 78.47506, 78.45817, 78.44725, 78.43989, 78.43152, 78.40971, 
  78.39114, 78.34428, 78.32929, 78.31525, 78.30969, 78.30802, 78.29312, 78.28322, 78.27178, 78.25894, 
  78.25572, 78.24062, 78.23516, 78.22367, 78.23138, 78.23054, 78.22087, 78.21302, 78.20376)
LONGITUDE_VALUEs <- c(
  21.06828, 21.07927, 21.14791, 21.17675, 21.54342, 21.59971, 21.69788, 21.77614, 22.03917, 22.13871, 
  22.20532, 22.13389, 22.12908, 22.00413, 21.99588, 21.92929, 21.82152, 21.76311, 21.71299, 21.7844, 
  21.63887, 21.59218, 21.39568, 21.32015, 21.17195, 21.14513, 21.08816, 21.10738, 21.01234, 20.93888, 
  20.79399, 20.74216, 20.64258, 20.63157, 20.49153, 20.42558, 20.27661, 20.20141, 20.17772, 20.17772, 
  20.16399, 20.14271, 20.15595, 20.17844, 20.20616, 20.41274, 20.47797, 20.55763, 20.5911, 20.59999, 
  20.66042, 20.64973, 20.79532, 20.61533, 20.62497, 20.69642, 20.76924, 20.75822, 20.76783, 20.73764, 
  20.70466, 20.7239, 20.67993, 20.69161, 20.77191, 20.88183, 20.99236, 20.96626, 20.99854)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  77.90359, 77.99448, 78.11528, 78.1658, 78.21526, 78.22227, 78.25754, 78.2332, 78.20993, 78.1973, 
  78.21778, 78.12178, 78.07789, 78.06483, 78.0381, 78.01217, 77.97103, 77.94869, 77.91883, 77.88861, 
  77.85341, 77.81985, 77.70691, 77.60799, 77.58911, 77.59147, 77.56489, 77.54817, 77.53721, 77.51526, 
  77.49, 77.47169, 77.445, 77.44142, 77.44784, 77.44321, 77.4538, 77.46826, 77.48434, 77.50115, 
  77.49892, 77.52238, 77.54269, 77.59192, 77.61447, 77.61918, 77.61712, 77.60961, 77.60224, 77.58158, 
  77.52668, 77.48122, 77.46051, 77.42887, 77.4211, 77.40823, 77.39475, 77.3934, 77.37886, 77.36895, 
  77.33226, 77.30339, 77.28346, 77.26614, 77.25122, 77.24107, 77.26023, 77.28489, 77.30294, 77.32729,
  77.36602, 77.37548, 77.3718, 77.38133, 77.3985, 77.39827, 77.40479, 77.42371, 77.49691, 77.50442,
  77.58941, 77.62742, 77.65711, 77.69492, 77.70253, 77.74749, 77.79577, 77.91538, 77.92975)
LONGITUDE_VALUEs <- c(
  23.6478, 23.30455, 23.09167, 23.18228, 23.09988, 22.99691, 22.81979, 22.43388, 22.39544, 22.05763, 
  21.74047, 20.81895, 20.8217, 20.91233, 20.9645, 21.13615, 21.23912, 21.47397, 21.54536, 21.47808,
  21.47808, 21.35035, 21.17871, 21.15536, 21.02349, 20.92876, 20.86978, 20.88832, 20.79975, 20.87527, 
  20.86702, 20.83545, 20.84162, 20.88287, 20.95564, 21.06753, 21.18637, 21.25845, 21.42673, 21.52489, 
  21.80155, 22.04191, 22.03436, 22.38519, 22.42712, 22.46556, 22.51842, 22.5548, 22.56034, 22.64203, 
  22.64739, 22.76825, 22.77971, 22.71926, 22.60187, 22.61557, 22.59634, 22.63408, 22.69934, 22.70417, 
  22.66798, 22.56773, 22.53582, 22.55264, 22.59383, 22.67112, 22.69991, 22.8235, 23.01851, 23.03912, 
  23.1126, 23.14074, 23.20359, 23.18986, 23.28185, 23.32238, 23.32753, 23.41607, 23.62485, 23.66682, 
  23.85979, 23.90813, 23.98507, 23.96034, 24.13326, 24.23081, 24.06045, 24.11127, 24.04395)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  79.74712, 79.75396, 79.72951, 79.69124, 79.70364, 79.67168, 79.66356, 79.63654, 79.61973, 79.59917, 
  79.58137, 79.58559, 79.56241, 79.56639, 79.55793, 79.53052, 79.56677, 79.569, 79.63147, 79.61342, 
  79.51504, 79.51629, 79.45778, 79.46205, 79.42733, 79.42569, 79.40362, 79.35997, 79.3613, 79.35008, 
  79.37175, 79.36656, 79.35471, 79.34621, 79.35312, 79.38264, 79.37732, 79.35426, 79.31971, 79.25333, 
  79.25026, 79.22256, 79.21074, 79.27444, 79.36542, 79.3403, 79.44093, 79.46958, 79.50616, 79.55856, 
  79.6606, 79.77288, 79.76762, 79.78523, 79.77408, 79.78371, 79.7971, 79.79436, 79.81199, 79.83932, 
  79.88221, 79.9397, 79.96247, 80.00451, 80.05491, 80.08594, 80.07884, 80.15051, 80.17726, 80.1599, 
  80.20416, 80.22447, 80.26635, 80.25427, 80.23868, 80.23938, 80.2761, 80.33668, 80.34613, 80.28607, 
  80.27517, 80.28815, 80.24636, 80.26751, 80.32907, 80.36522, 80.33737, 80.30759, 80.27146, 80.30065, 
  80.29579, 80.24729, 80.30273, 80.25892, 80.28468, 80.22493, 80.17515, 80.11474, 80.19832, 80.13829, 
  80.17772, 80.24124, 80.25776, 80.34032, 80.36655, 80.42886, 80.50437, 80.38859, 80.3334, 80.42292, 
  80.40783, 80.19161, 80.16538, 80.04455, 80.01602, 80.11835, 80.11479, 80.14093, 80.11503, 80.19647, 
  80.27009, 80.20255, 80.30577, 80.28702, 80.34569, 80.36755, 80.39554, 80.41317, 80.39394, 80.46995, 
  80.45584, 80.50649, 80.50218, 80.44285, 80.46472, 80.41957, 80.38362, 80.37627, 80.33832, 80.27009, 
  80.24709, 80.2126, 80.21446, 80.33694, 80.35168, 80.22776, 80.18243, 80.14701, 80.13643, 80.14607, 
  80.10321, 80.08964, 80.08787, 80.0745, 80.17425, 80.18514, 80.20584, 80.18327, 80.15572, 80.16076, 
  80.18584, 80.1828, 80.18807, 80.17694, 80.17026, 80.18374, 80.1712, 80.15947, 80.14421, 80.12797, 
  80.12209, 80.13539, 80.13479, 80.12502, 80.12996, 80.08549, 80.03678, 80.0515, 80.04842, 80.0243, 
  80.03844, 80.04034, 80.0287, 80.03607, 79.97553, 79.97505, 79.9662, 79.95519, 79.95387, 79.93938, 
  79.93733, 79.91054, 79.90356, 79.89296, 79.89718, 79.87041, 79.83448, 79.8352, 79.82296, 79.82029, 
  79.80547, 79.80097, 79.78041, 79.77809, 79.79465, 79.77663, 79.77651, 79.8017, 79.80608, 79.78637, 
  79.7659, 79.76187, 79.75406, 79.75296, 79.76834, 79.76697, 79.75379, 79.76746, 79.75843, 79.71095, 
  79.71021, 79.74279, 79.75012, 79.74939, 79.8052, 79.79207, 79.81856, 79.80374, 79.79839, 79.76648, 
  79.77307)
LONGITUDE_VALUEs <- c(
  21.71439, 21.77068, 21.93407, 21.81874, 21.13753, 20.4634, 20.47157, 20.57249, 20.59036, 20.91445, 
  20.98143, 21.03189, 21.11568, 21.20941, 21.2633, 21.15139, 20.7847, 20.46882, 20.11171, 19.60981, 
  19.84189, 19.95451, 20.05407, 20.13716, 20.49696, 20.62121, 20.77644, 20.72978, 20.79193, 20.95602, 
  21.31293, 21.57057, 21.7079, 21.73367, 21.95746, 22.22114, 22.88705, 22.90078, 22.72641, 22.85549, 
  23.17823, 23.27983, 23.94254, 24.03591, 24.88653, 25.14883, 25.75982, 25.69116, 25.87514, 25.61702, 
  26.32289, 26.7004, 26.76828, 26.78614, 26.90012, 26.93996, 26.90631, 27.01134, 27.02577, 27.12959, 
  27.15181, 27.06526, 27.13395, 27.0941, 27.24111, 27.16555, 26.93885, 26.77547, 26.0861, 25.71945, 
  25.86921, 25.24819, 25.22914, 25.07526, 25.04091, 24.77025, 24.86384, 24.8762, 24.81713, 24.72507, 
  24.66749, 24.62489, 24.45178, 24.4052, 24.57007, 24.24314, 24.09751, 24.4135, 24.34068, 24.24038, 
  24.15795, 24.21154, 23.96286, 23.95599, 23.75127, 23.70063, 23.78581, 23.54547, 23.46036, 23.04139, 
  22.98795, 23.06074, 23.25996, 23.31405, 23.1216, 23.35242, 22.76182, 22.814, 22.6603, 22.60259, 
  22.3278, 22.46933, 22.37041, 22.50743, 22.19967, 22.04578, 21.9127, 21.83438, 21.62417, 21.84264, 
  21.78081, 20.8729, 20.79196, 20.55289, 20.52274, 20.40615, 20.40615, 20.27151, 20.09015, 19.95571, 
  19.82656, 19.69478, 19.59036, 19.63024, 19.46812, 19.42286, 19.46683, 19.90222, 19.71955, 19.78273, 
  19.6783, 19.81157, 19.59861, 19.23057, 18.99425, 19.1139, 19.20863, 19.59728, 19.57392, 19.39256, 
  19.37483, 19.44194, 19.34713, 19.28531, 18.90835, 18.93722, 18.69779, 18.74562, 18.70921, 18.61858, 
  18.53828, 18.4737, 18.34598, 18.3288, 18.2024, 18.11251, 18.01981, 17.81166, 17.79597, 17.70873, 
  17.74514, 17.83376, 17.89279, 17.9134, 17.98622, 18.08028, 18.15375, 18.19146, 18.25329, 18.28489, 
  18.36383, 18.57328, 18.59733, 18.66327, 18.80465, 18.69961, 18.60279, 18.63233, 18.47021, 18.34208, 
  18.20449, 18.15991, 18.07271, 18.0995, 18.15514, 18.24304, 18.26218, 18.28554, 18.3034, 18.39065, 
  18.39676, 18.45237, 18.43795, 18.47985, 18.53481, 18.61721, 18.66118, 18.59727, 18.62474, 18.70784, 
  18.72089, 18.77375, 18.771, 18.82456, 18.94404, 19.21954, 19.30747, 19.38304, 19.49982, 19.49154, 
  19.5465, 19.56573, 19.71933, 20.01473, 20.68079, 20.80408, 21.59684, 21.67103, 21.59272, 21.55832, 
  21.65725)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.37538, 80.39133, 80.41937, 80.42885, 80.43273, 80.43934, 80.44105, 80.43604, 80.43558, 80.42542, 
  80.42188, 80.41599, 80.40816, 80.40501, 80.39929, 80.39144, 80.38611, 80.37618, 80.37596, 80.36975, 
  80.37406)
LONGITUDE_VALUEs <- c(
  24.32085, 24.35586, 24.27418, 24.27418, 24.23819, 24.22446, 24.17572, 24.1589, 24.14311, 24.14961, 
  24.13896, 24.14171, 24.11871, 24.12626, 24.10464, 24.11872, 24.09229, 24.18155, 24.23406, 24.28455, 
  24.29862)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.51398, 80.5043, 80.49631, 80.4802, 80.47435, 80.47992, 80.48718, 80.49331, 80.49359, 80.50232, 
  80.51081, 80.51596, 80.53755, 80.53439, 80.53043, 80.5293, 80.52444, 80.51811, 80.51144, 80.51732, 
  80.51042)
LONGITUDE_VALUEs <- c(
  19.84265, 19.855, 19.84127, 19.8708, 19.92744, 20.00329, 20.01977, 20.05826, 20.0895, 20.1149, 
  20.10185, 20.06684, 19.99886, 19.97208, 19.96453, 19.92266, 19.9247, 19.98271, 19.96898, 19.94427, 
  19.90237)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  76.56524, 76.58652, 76.60833, 76.61056, 76.57489, 76.55902, 76.59027, 76.59759, 76.60332, 76.60388,
  76.60022, 76.62351, 76.64026, 76.66609, 76.68271, 76.6967, 76.71667, 76.72716, 76.74237, 76.75606,
  76.76286, 76.76687, 76.7616, 76.76286, 76.76168, 76.7642, 76.76852, 76.75858, 76.75661, 76.75213,
  76.74807, 76.75956, 76.80615, 76.8459, 76.84199, 76.86658, 76.92698, 76.94018, 76.93909, 76.9687,
  76.98865, 77.03896, 77.03772, 77.02925, 77.02786, 77.04234, 77.06281, 77.06173, 77.04927, 77.1318,
  77.15106, 77.17104, 77.1907, 77.205, 77.23811, 77.24342, 77.25781, 77.31418, 77.32865, 77.36895,
  77.38186, 77.37225, 77.38186, 77.40523, 77.40748, 77.42289, 77.45485, 77.46394, 77.48003, 77.50115,
  77.53691, 77.53639, 77.55253, 77.56858, 77.59619, 77.60047, 77.5759, 77.57472, 77.55372, 77.56052,
  77.55076, 77.54017, 77.53876, 77.52809, 77.52053, 77.51088, 77.50189, 77.5039, 77.50033, 77.54217,
  77.56503, 77.64463, 77.64918, 77.64742, 77.65902, 77.66723, 77.67764, 77.70889, 77.72123, 77.70742,
  77.71247, 77.75521, 77.83302, 77.83418, 77.8654, 77.85919, 77.87853, 77.89049, 77.87881, 77.8716, 77.87131,
  77.88818, 77.88984, 77.8992, 77.90754, 77.90977, 77.96266, 78.03213, 78.0556, 78.02999, 78.04934,
  78.10962, 78.18184, 78.1876, 78.20404, 78.19266, 78.20376, 78.2311, 78.33207, 78.35496, 78.34345,
  78.32276, 78.34178, 78.45075, 78.49315, 78.50657, 78.52284, 78.53035, 78.54216, 78.547, 78.54461,
  78.55967, 78.56716, 78.58892, 78.59958, 78.61727, 78.6231, 78.60453, 78.58871, 78.57709, 78.58892,
  78.58015, 78.57886, 78.59672, 78.60555, 78.61504, 78.60948, 78.61653, 78.60358, 78.61219, 78.62378,
  78.64428, 78.6411, 78.65124, 78.66063, 78.67526, 78.71094, 78.72585, 78.71296, 78.69318, 78.71054,
  78.69224, 78.70193, 78.67958, 78.65191, 78.67324, 78.67, 78.69076, 78.70435, 78.83434, 78.84457,
  78.83354, 78.8532, 78.84802, 78.86143, 78.88263, 78.91291, 78.86886, 78.90697, 78.94666, 78.96968,
  79.01256, 78.97677, 79.00234, 79.05488, 79.04614, 79.06191, 79.0856, 79.15287, 79.1393, 79.15817,
  79.18835, 79.11754, 79.11987, 79.21202, 79.24001, 79.23719, 79.26638, 79.27098, 79.32657, 79.43564,
  79.5603, 79.62505, 79.60252, 79.44546, 79.43992, 79.39579, 79.39427, 79.36308, 79.38213, 79.39882,
  79.44307, 79.60425, 79.6196, 79.69284, 79.69407, 79.72081, 79.81449, 79.8072, 79.81619, 79.83414,
  79.89094, 79.90055, 79.92965, 79.95627, 79.91499, 79.87065, 79.86606, 79.88537, 79.92845, 79.94573,
  79.97039, 80.0426, 80.04073, 80.04654, 80.04441, 80.05722, 80.0539, 80.06267, 80.04997, 80.05128,
  80.03834, 80.02598, 80.0192, 80.00002, 79.99823, 79.9558, 79.93854, 79.92954, 79.89238, 79.88683,
  79.87199, 79.87102, 79.86136, 79.85955, 79.86716, 79.86728, 79.8767, 79.87066, 79.86957, 79.86365,
  79.86365, 79.8437, 79.84285, 79.82394, 79.82552, 79.8146, 79.79454, 79.77932, 79.75273, 79.70019,
  79.68914, 79.68656, 79.65676, 79.64097, 79.64344, 79.62998, 79.62738, 79.27837, 79.26277, 79.21397,
  79.11794, 79.11129, 79.10051, 79.09558, 79.01397, 78.96229, 78.97175, 78.95335, 78.93676, 78.92898,
  78.92161, 78.91633, 78.91012, 78.90061, 78.89545, 78.88163, 78.90451, 78.91349, 78.94058, 78.95058,
  79.02113, 79.04219, 79.13085, 79.16705, 79.13746, 79.07598, 79.09782, 79.15765, 79.23077, 79.27328,
  79.37046, 79.40154, 79.5061, 79.5176, 79.6037, 79.79036, 79.79864, 79.67729, 79.66153, 79.64229,
  79.60618, 79.60271, 79.53458, 79.44138, 79.39245, 79.38081, 79.33262, 79.28166, 79.28268, 79.36815,
  79.48357, 79.48056, 79.42778, 79.45747, 79.46149, 79.51161, 79.56646, 79.58783, 79.59329, 79.57044,
  79.57143, 79.53907, 79.5166, 79.50811, 79.52709, 79.56646, 79.59031, 79.60122, 79.58485, 79.5918,
  79.58535, 79.67138, 79.69109, 79.69281, 79.70828, 79.69183, 79.69625, 79.73572, 79.74917, 79.77724,
  79.79039, 79.80426, 79.8249, 79.83678, 79.83896, 79.86485, 79.87862, 79.86122, 79.85131, 79.8249,
  79.82102, 79.77553, 79.77553, 79.75333, 79.80669, 79.82029, 79.83411, 79.83193, 79.84041, 79.80037,
  79.7955, 79.77041, 79.74746, 79.73768, 79.67043, 79.63713, 79.64404, 79.67412, 79.70828, 79.70558,
  79.67412, 79.64627, 79.65021, 79.72519, 79.7345, 79.73425, 79.74453, 79.74575, 79.77675, 79.787,
  79.77896, 79.79454, 79.79345, 79.80889, 79.81969, 79.82309, 79.84309, 79.82612, 79.79599, 79.8113,
  79.80571, 79.77213, 79.76542, 79.74857, 79.73928, 79.7831, 79.78213, 79.76384, 79.75102, 79.74957, 79.72583,
  79.72129, 79.71516, 79.69995, 79.70068, 79.69307, 79.68926, 79.64802, 79.65911, 79.64702, 79.63776, 79.63257,
  79.62516, 79.62414, 79.60718, 79.60669, 79.61758, 79.61288, 79.63007, 79.63329, 79.62921, 79.63551,
  79.63551, 79.62463, 79.62216, 79.62983, 79.63835, 79.64699, 79.59843, 79.553, 79.54369, 79.55938, 79.53696,
  79.55914, 79.56162, 79.54756, 79.51133, 79.49724, 79.49187, 79.4886, 79.46979, 79.47468, 79.46841,
  79.45874, 79.45598, 79.44353, 79.4317, 79.41708, 79.38551, 79.37817, 79.36652, 79.34864, 79.34331,
  79.32615, 79.31101, 79.27141, 79.26719, 79.25747, 79.24787, 79.22812, 79.21656, 79.19573, 79.18028,
  79.14494, 79.1333, 79.11672, 79.10608, 79.10881, 79.10647, 79.13382, 79.16703, 79.21108, 79.31784,
  79.33056, 79.33844, 79.34783, 79.35088, 79.36534, 79.36559, 79.34631, 79.34072, 79.32115, 79.31962,
  79.24095, 79.21528, 79.22042, 79.28674, 79.28827, 79.27627, 79.3158, 79.3051, 79.2801, 79.26578,
  79.26962, 79.2494, 79.21913, 79.20371, 79.20911, 79.20036, 79.1911, 79.20397, 79.18698, 79.13507,
  79.11616, 79.1024, 79.1159, 79.09253, 79.06756, 79.05479, 79.03783, 79.02032, 79.00749, 79.00435,
  79.0143, 79.02241, 78.99964, 78.99675, 78.95526, 78.9713, 78.94026, 78.91256, 78.91018, 78.9305,
  78.91021, 78.89673, 78.88681, 78.85659, 78.85832, 78.89356, 78.88972, 78.911, 78.91681, 78.93146,
  78.94595, 78.94819, 78.96279, 78.97264, 78.96844, 78.97093, 78.96463, 78.92987, 78.92895, 78.86628,
  78.86463, 78.85949, 78.85724, 78.85219, 78.8512, 78.84804, 78.84924, 78.83422, 78.83426, 78.82687,
  78.81939, 78.81506, 78.81579, 78.81696, 78.82039, 78.81959, 78.82541, 78.82318, 78.81106, 78.80507,
  78.79106, 78.78769, 78.73049, 78.70349, 78.71572, 78.70268, 78.67129, 78.6609, 78.65321, 78.63712,
  78.62764, 78.60718, 78.60705, 78.58899, 78.59565, 78.5841, 78.56506, 78.56002, 78.54121, 78.53916,
  78.52374, 78.52756, 78.54707, 78.53207, 78.54694, 78.58179, 78.58505, 78.56438, 78.58097, 78.57812,
  78.55838, 78.53138, 78.49953, 78.50432, 78.49035, 78.41351, 78.3675, 78.37013, 78.3603, 78.28812,
  78.24651, 78.20139, 78.21065, 78.22803, 78.23195, 78.20981, 78.19717, 78.21065, 78.27445, 78.22439,
  78.28003, 78.30149, 78.30567, 78.28115, 78.24875, 78.24875, 78.27361, 78.304, 78.34288, 78.33774,
  78.35619, 78.35369, 78.36602, 78.36395, 78.38429, 78.4068, 78.42982, 78.40059, 78.37654, 78.39189,
  78.3764, 78.39216, 78.45704, 78.47352, 78.47132, 78.49217, 78.51215, 78.53646, 78.55501, 78.54438,
  78.55501, 78.58087, 78.65756, 78.67579, 78.721, 78.73107, 78.73295, 78.69277, 78.69371, 78.68199,
  78.68671, 78.69156, 78.70925, 78.73497, 78.73524, 78.7247, 78.73222, 78.72631, 78.73182, 78.72665,
  78.72819, 78.71745, 78.70798, 78.70031, 78.68334, 78.66123, 78.6486, 78.63825, 78.62471, 78.61828,
  78.61286, 78.5994, 78.60052, 78.58775, 78.6012, 78.60615, 78.609, 78.61442, 78.62133, 78.63,
  78.63108, 78.63609, 78.64414, 78.65684, 78.65197, 78.67941, 78.68804, 78.69315, 78.70849, 78.72166,
  78.73106, 78.82433, 78.83231, 78.75545, 78.74259, 78.63647, 78.61047, 78.60287, 78.5825, 78.57624,
  78.52281, 78.45787, 78.45787, 78.47544, 78.48312, 78.51816, 78.56563, 78.61155, 78.65405, 78.65945,
  78.69369, 78.71064, 78.71064, 78.67024, 78.67483, 78.66917, 78.63972, 78.63755, 78.64648, 78.63728,
  78.59282, 78.57434, 78.55652, 78.5358, 78.53279, 78.50231, 78.46063, 78.45624, 78.43382, 78.43973,
  78.43863, 78.44756, 78.43003, 78.41453, 78.38386, 78.39767, 78.39873, 78.40825, 78.42169, 78.42237,
  78.44244, 78.44423, 78.45179, 78.45509, 78.43914, 78.42027, 78.41476, 78.40064, 78.39118, 78.34033,
  78.3327, 78.34241, 78.33409, 78.34186, 78.35171, 78.34824, 78.36445, 78.34061, 78.32742, 78.31866, 78.28657,
  78.25038, 78.24562, 78.23128, 78.22196, 78.22224, 78.2263, 78.22574, 78.24017, 78.24765, 78.2524,
  78.23856, 78.22763, 78.22294, 78.14469, 78.13072, 78.11325, 78.10716, 78.1009, 78.10334, 78.11148,
  78.11802, 78.12318, 78.11805, 78.11295, 78.09738, 78.10701, 78.10248, 78.10517, 78.09568, 78.08109,
  78.04857, 78.02893, 78.02124, 78.00983, 78.00312, 77.96896, 77.96295, 77.9651, 78.06633, 78.09299,
  78.09951, 78.09413, 78.08506, 78.08562, 78.0791, 78.0808, 78.06122, 78.06377, 78.04942, 78.04558,
  78.01568, 77.99698, 77.98598, 77.95235, 77.88466, 77.84395, 77.82253, 77.79702, 77.77861, 77.77134,
  77.76106, 77.75356, 77.7489, 77.73388, 77.73096, 77.73705, 77.73837, 77.74274, 77.74536, 77.73585,
  77.72396, 77.71918, 77.73507, 77.74178, 77.74848, 77.75693, 77.76632, 77.77149, 77.76799, 77.75438,
  77.75883, 77.75708, 77.74987, 77.75977, 77.75744, 77.7805, 77.80182, 77.87006, 77.82757, 77.84146,
  77.83683, 77.8484, 77.85765, 77.84725, 77.85823, 77.85765, 77.8678, 77.87646, 77.9172, 77.91418,
  77.90033, 77.88333, 77.86549, 77.83572, 77.77902, 77.76171, 77.8125, 77.79486, 77.81096, 77.7828,
  77.76545, 77.76836, 77.75584, 77.75992, 77.74331, 77.74739, 77.73544, 77.73602, 77.72318, 77.70857,
  77.69716, 77.67608, 77.66259, 77.65026, 77.63233, 77.62085, 77.60524, 77.6073, 77.59492, 77.60086,
  77.58331, 77.58257, 77.55552, 77.54797, 77.51729, 77.49738, 77.52634, 77.5339, 77.52129, 77.53819,
  77.54071, 77.5672, 77.54664, 77.5456, 77.50065, 77.4898, 77.49099, 77.5204, 77.52589, 77.54219,
  77.57326, 77.58093, 77.52566, 77.48674, 77.4787, 77.44711, 77.45009, 77.43818, 77.41771, 77.38491,
  77.36104, 77.35127, 77.29537, 77.27285, 77.24907, 77.22814, 77.21235, 77.19988, 77.19227, 77.1912,
  77.17704, 77.17206, 77.17884, 77.18577, 77.19118, 77.19597, 77.20077, 77.20685, 77.2029, 77.21141,
  77.20442, 77.18661, 77.16901, 77.15261, 77.15131, 77.17427, 77.16428, 77.14459, 77.11048, 77.10113,
  77.08978, 77.08096, 77.07044, 77.06421, 77.0516, 77.04814, 77.0436, 77.03259, 76.99662, 77.00095,
  76.99755, 77.00573, 77.0079, 77.02456, 77.02147, 77.00388, 76.99842, 77.01186, 77.01346, 77.01863,
  77.0159, 77.02701, 77.04549, 77.0922, 77.09481, 77.05457, 77.05165, 77.08023, 77.09788, 77.10263,
  77.07532, 77.02099, 77.02115, 76.98826, 77.04287, 77.03394, 77.04734, 77.0965, 77.10769, 77.09435,
  77.05103, 77.06626, 77.04457, 77.00563, 76.99703, 76.98413, 76.98444, 76.95091, 76.96749, 76.98096,
  76.97879, 76.96068, 76.9743, 76.96916, 76.91567, 76.90992, 76.91575, 76.93237, 76.93447, 76.9475, 76.96968, 
  76.97511, 76.96458, 76.96427, 76.93807, 76.94645, 76.92705, 76.90653, 76.86681, 76.86197, 76.83072, 
  76.80191, 76.79485, 76.73621, 76.72739, 76.71824, 76.70783, 76.719, 76.70898, 76.69326, 76.67618, 
  76.67444, 76.6674, 76.66352, 76.66478, 76.65504, 76.62863, 76.61534, 76.60377, 76.59714, 76.59386, 
  76.59034, 76.58787, 76.58077, 76.57471, 76.57036, 76.57064, 76.56307, 76.5661, 76.56219)
LONGITUDE_VALUEs <- c(
  16.35448, 16.35585, 16.47773, 16.53746, 16.54364, 16.68681, 16.90104, 16.90413, 16.92781, 16.95596,
  16.97141, 16.97759, 17.06069, 17.05073, 17.07407, 17.14206, 17.15476, 17.14808, 17.09298, 17.07101,
  17.04183, 17.00922, 16.99377, 16.97454, 16.94811, 16.92923, 16.91893, 16.8985, 16.87687, 16.88408,
  16.8712, 16.83275, 16.76612, 16.83855, 16.8911, 17.07815, 17.19008, 17.23128, 17.27041, 17.29346,
  17.27801, 17.10768, 17.05963, 17.04315, 17.00883, 16.93881, 17.00265, 17.14956, 17.27244, 17.36105,
  17.28278, 17.40464, 17.40944, 17.32631, 17.44172, 17.28853, 17.25835, 17.46436, 17.45268, 17.57148,
  17.53851, 17.36264, 17.33585, 17.37505, 17.49115, 17.58183, 17.59547, 17.67654, 17.67651, 17.6249,
  17.61185, 17.57134, 17.50851, 17.56209, 17.48689, 17.56246, 17.67567, 17.71243, 17.77937, 17.85425,
  17.90707, 17.91466, 17.88993, 17.881, 17.93284, 17.95104, 18.09214, 18.11687, 18.23599, 18.29299,
  18.27618, 18.34039, 18.31809, 18.22638, 18.21848, 18.29883, 18.30947, 18.18689, 18.23325, 18.3249,
  18.37779, 18.44441, 18.41256, 18.29995, 18.28552, 18.37277, 18.37758, 18.31441, 18.22648, 18.23197, 18.12156,
  18.17475, 18.06423, 18.07864, 18.13802, 18.32516, 18.47552, 18.35326, 18.61762, 18.76661, 18.9383,
  19.05158, 18.88404, 18.77969, 18.76459, 18.96779, 19.06527, 19.08658, 18.76799, 18.74053, 18.88469,
  18.94579, 19.08799, 18.99797, 18.89915, 18.74126, 18.81334, 18.98221, 18.96614, 18.99637, 19.06365,
  19.10587, 19.19514, 19.17351, 19.21642, 19.12818, 19.13333, 19.29092, 19.29951, 19.33452, 19.35168,
  19.40351, 19.50893, 19.64285, 19.6607, 19.74788, 19.83953, 19.90342, 20.01088, 20.03868, 20.00331,
  20.06921, 20.10507, 20.10335, 20.2064, 20.15589, 20.22834, 20.48697, 20.59345, 20.64687, 20.78289,
  20.85158, 20.96425, 20.93727, 21.0623, 21.17221, 21.35563, 21.37693, 21.32333, 21.50393, 21.33918,
  21.27529, 21.18255, 21.0692, 21.01218, 21.05271, 20.74163, 20.56523, 20.41758, 20.47872, 20.26244,
  20.14981, 20.05572, 19.84219, 19.90332, 19.746, 19.71234, 19.7845, 19.73167, 19.51253, 19.49431,
  19.3047, 19.13021, 18.84998, 18.92281, 18.84999, 18.59444, 18.63566, 18.721, 18.86114, 18.83373,
  18.62224, 18.24868, 18.10029, 18.00704, 17.95209, 17.87663, 17.82992, 17.69357, 17.62078, 17.71291,
  17.79259, 17.72005, 17.80936, 17.94111, 18.01255, 18.03583, 17.82157, 17.72814, 17.69654, 17.75974,
  17.56063, 17.404, 17.38476, 16.99212, 16.84527, 16.93176, 16.90291, 16.72989, 16.6502, 16.73539,
  16.59395, 16.53353, 16.47494, 16.43647, 16.36091, 16.32106, 16.28946, 16.24825, 16.19878, 16.15207,
  16.161, 16.11442, 16.03954, 15.99145, 16.02375, 15.92967, 15.94891, 15.91251, 16.0183, 16.09035,
  16.07593, 16.11508, 16.12539, 16.06493, 15.96807, 15.87346, 15.7024, 15.6921, 15.66462, 15.65706,
  15.63233, 15.65366, 15.62142, 15.63516, 15.62073, 15.63378, 15.60905, 15.65917, 15.64405, 15.70654,
  15.66668, 15.69759, 15.74292, 15.71201, 15.78277, 15.82811, 15.78206, 15.96491, 16.03764, 16.11501,
  16.17546, 16.23733, 16.22977, 16.26, 16.35406, 16.37671, 16.44747, 16.49824, 16.44191, 16.50783,
  16.51221, 16.494, 16.52217, 16.49196, 16.52184, 16.39544, 16.38278, 16.31, 16.26824, 16.20573,
  16.06516, 16.0684, 15.93176, 15.81228, 15.7127, 15.70402, 15.63395, 15.59551, 15.75071, 15.59004,
  15.4051, 15.42105, 15.31121, 15.20961, 15.22875, 14.72615, 14.46803, 14.18782, 14.30315, 14.09995,
  14.20979, 14.01482, 13.81422, 14.00376, 13.95159, 14.06692, 14.12184, 13.95706, 13.83075, 13.89391,
  13.53963, 13.39958, 13.43253, 13.32544, 13.21011, 13.25954, 13.48745, 13.34733, 13.06999, 12.90523,
  12.7185, 12.5867, 12.59219, 12.37526, 12.33133, 12.42469, 12.28464, 12.34506, 12.43567, 12.51805,
  12.57846, 13.00134, 12.97988, 13.17896, 13.23525, 13.45768, 13.65966, 13.86561, 13.84503, 13.93977,
  13.91094, 13.96649, 13.89093, 13.91154, 13.88277, 13.86354, 13.744, 13.62585, 13.3526, 13.20285,
  13.03385, 12.82804, 12.65492, 12.50104, 12.47631, 12.39126, 12.40363, 12.30745, 12.19067, 12.1522,
  12.11647, 12.18394, 12.16746, 12.26226, 12.33092, 12.24574, 12.15918, 12.23062, 12.14819, 12.1056,
  12.1317, 12.10285, 12.06026, 12.00118, 11.98344, 11.88314, 11.88452, 11.9381, 11.93535, 11.90306,
  11.77391, 11.75468, 11.798, 11.86326, 11.79045, 11.84265, 11.81451, 11.60018, 11.58528, 11.53582,
  11.47262, 11.53161, 11.51032, 11.58242, 11.50411, 11.37368, 11.18682, 11.17858, 11.31149, 11.16753, 11.16078,
  11.23772, 11.16422, 11.19651, 11.32153, 11.32566, 11.21437, 11.34747, 11.39497, 11.40321, 11.48346, 11.59612,
  11.592, 11.53086, 11.54872, 11.52399, 11.46972, 11.44842, 11.38178, 11.28716, 11.25281, 11.22465,
  11.18755, 11.16626, 11.12504, 11.10305, 11.10649, 11.02886, 10.80012, 11.27083, 11.26521, 10.9918, 10.96226,
  10.91417, 10.72133, 10.64233, 10.69941, 10.90953, 10.91048, 10.83049, 10.92591, 10.93416, 10.99186,
  10.94034, 10.99736, 10.99667, 10.89226, 10.90465, 10.88749, 10.9816, 10.83597, 10.85589, 10.8449,
  10.87099, 10.95548, 11.02762, 11.01862, 11.03957, 11.10171, 11.12162, 11.15424, 11.13947, 11.16899,
  11.1704, 11.191, 11.17383, 11.26236, 11.35029, 11.39975, 11.55356, 11.6621, 11.67446, 11.52213,
  11.44931, 11.4794, 11.46841, 11.52337, 11.56871, 11.73083, 11.75824, 11.83106, 11.77335, 11.67993,
  11.74304, 11.80762, 11.87906, 11.81313, 11.85572, 11.90656, 12.15936, 12.1786, 12.03571, 12.02747,
  12.17715, 12.05349, 11.99579, 12.13445, 12.27185, 12.28146, 12.14819, 11.95584, 11.8734, 11.8104,
  11.95466, 11.94504, 11.78566, 11.75277, 11.6511, 11.74442, 11.79938, 11.94364, 11.94914, 12.03158,
  12.03836, 12.13179, 12.26781, 12.52447, 12.60278, 12.45852, 12.42014, 12.45861, 12.55054, 12.5684,
  12.65529, 12.51251, 12.58803, 12.58528, 12.51388, 12.32369, 12.23513, 12.10803, 11.97829, 11.86429,
  11.86155, 11.78878, 11.68988, 11.47158, 11.41666, 11.36036, 11.31231, 11.36857, 11.39467, 11.60407,
  11.636, 11.65385, 11.69129, 11.71652, 11.77472, 11.80853, 11.83307, 11.88354, 11.89847, 11.92422,
  11.928, 11.91993, 11.89281, 11.90345, 11.87204, 11.84905, 11.77848, 11.75737, 11.73093, 11.69849,
  11.67926, 11.68475, 11.59375, 11.75854, 11.89927, 11.94733, 11.81693, 11.83616, 11.88284, 11.88009,
  11.95426, 12.0088, 12.06982, 12.20034, 12.44009, 12.4922, 12.43864, 12.35002, 12.37544, 12.59856,
  12.85274, 12.89168, 12.8642, 12.94664, 13.08403, 13.07717, 13.11907, 13.16372, 13.23448, 13.30318,
  13.28804, 13.20148, 12.87114, 12.52715, 12.34373, 12.50999, 12.67143, 12.79012, 12.865, 12.93513,
  12.88155, 12.97903, 13.06009, 13.08071, 13.15078, 13.34314, 13.70269, 13.84695, 13.70273, 13.92118,
  13.94317, 13.85111, 13.91019, 14.05308, 14.04758, 14.10529, 14.10529, 14.3043, 14.22186, 14.16004,
  14.11538, 14.04669, 14.0405, 14.204, 14.16688, 14.03573, 14.08794, 14.29667, 14.4004, 14.46017,
  14.64136, 14.74028, 14.62015, 14.44291, 14.21484, 14.24246, 14.42785, 14.22176, 14.29046, 14.56112,
  14.5886, 14.52818, 14.52131, 14.38457, 14.26236, 14.26442, 14.29671, 14.4258, 14.45396, 14.49518,
  14.54215, 14.54215, 14.64239, 14.63896, 14.65098, 14.67193, 14.69007, 14.70312, 14.71892, 14.73266,
  14.78659, 14.82094, 14.80443, 14.83019, 14.82229, 14.84769, 14.75431, 14.75568, 14.82471, 14.8168,
  14.86126, 14.89182, 14.91311, 14.93492, 15.00636, 15.00289, 14.97988, 14.98847, 14.95927, 14.98297,
  15.03998, 15.05956, 15.05612, 15.13813, 15.24598, 15.18454, 15.17492, 15.20102, 15.15843, 15.20789,
  15.15294, 15.26833, 15.43733, 15.43313, 15.5032, 15.44824, 15.35619, 15.16247, 15.17213, 15.23533,
  15.25044, 15.42356, 15.59668, 15.7533, 15.95207, 16.05651, 16.30382, 16.39311, 16.35189, 16.44257,
  16.45353, 16.50299, 16.59092, 16.63489, 16.82417, 16.9066, 16.95607, 16.89424, 16.81867, 16.71162,
  16.64032, 16.53178, 16.54616, 16.50016, 16.45413, 16.4528, 16.37246, 16.28554, 16.41025, 16.43691,
  16.49461, 16.5482, 16.59625, 16.59523, 16.84625, 16.84282, 16.90732, 16.91245, 16.99655, 17.07004,
  17.14666, 17.26611, 17.29709, 17.37055, 17.41791, 17.35198, 17.23459, 17.17735, 17.07678, 16.85211,
  16.59049, 16.53214, 16.47516, 16.37279, 16.33229, 16.25266, 16.13458, 15.75349, 15.7157, 15.64636, 15.55236,
  15.67429, 15.71754, 15.73813, 15.70415, 15.67222, 15.65266, 15.63001, 15.53695, 15.54999, 15.41542,
  15.33304, 15.30863, 15.27601, 14.97768, 14.98489, 15.02237, 15.01138, 14.92711, 14.88745, 14.86375,
  14.81673, 14.81534, 14.76695, 14.63626, 14.45709, 14.3163, 14.27511, 14.19342, 14.16527, 14.18929,
  14.21126, 14.29873, 14.28839, 14.31519, 14.28977, 14.31724, 14.27877, 14.24511, 14.06252, 13.98909,
  13.94581, 13.81322, 13.79193, 13.75552, 13.73491, 13.71087, 13.64298, 13.60245, 13.56947, 13.59695,
  13.62649, 13.61758, 13.64162, 13.60866, 13.68077, 13.63543, 13.78856, 13.8181, 13.78098, 13.72193,
  13.73378, 13.70665, 13.72915, 13.73567, 13.77617, 13.782, 13.8009, 13.79884, 13.83902, 13.90064,
  13.89909, 13.94458, 13.97635, 13.97189, 14.03126, 14.01306, 14.04534, 14.16556, 14.21733, 14.25168,
  14.29564, 14.37018, 14.41783, 14.50061, 14.63275, 14.74124, 15.09254, 15.35767, 15.90273, 15.98646,
  16.05515, 16.11423, 16.33406, 16.41237, 16.53878, 16.65281, 16.68751, 16.66828, 16.79121, 16.84823,
  16.84207, 16.74727, 16.79949, 16.81048, 17.1717, 17.17994, 16.7554, 16.48014, 16.32694, 16.28521,
  16.09237, 16.01955, 15.96184, 15.83681, 15.7214, 15.60187, 15.47855, 15.39749, 15.36589, 15.13782,
  15.11171, 14.83693, 14.81769, 14.71602, 14.85484, 14.92766, 14.99086, 15.20657, 15.25603, 15.34647,
  15.53392, 15.64315, 15.93305, 15.91576, 16.00644, 15.89384, 15.79014, 15.64313, 15.46933, 15.3239,
  15.11643, 14.97504, 14.89947, 14.76424, 14.76768, 14.71685, 14.48681, 14.58023, 14.51707, 14.57272,
  14.48278, 14.24656, 13.90592, 13.91557, 14.02274, 14.04472, 13.95541, 13.96845, 13.93204, 14.07077,
  14.07556, 14.13532, 14.15178, 14.32896, 14.28908, 14.34953, 14.33991, 14.37837, 14.38317, 14.4292,
  14.46423, 14.45493, 14.51539, 14.53222, 14.62245, 14.64581, 14.55547, 14.5706, 14.59842, 14.62384,
  14.74818, 14.74949, 14.80612, 14.83633, 14.90125, 15.00732, 15.10138, 15.145, 15.0231, 15.06569,
  15.06843, 15.15015, 15.15393, 15.10518, 15.14776, 15.13574, 15.15875, 15.13916, 15.39878, 15.43709,
  15.5422, 15.56349, 15.60059, 15.61226, 15.6734, 15.65828, 15.68576, 15.73179, 15.76126, 15.7829,
  15.87987, 15.90458, 15.82632, 15.75627, 15.82012, 15.89705, 15.94029, 15.95265, 15.88332, 15.94579,
  16.04395, 16.05087, 16.18473, 16.24519, 16.25479, 16.31794, 16.34129, 16.29254, 16.35432, 16.43196,
  16.48482, 16.61663, 16.71342, 16.53403, 16.69396, 16.69361, 16.59304, 16.6133, 16.54429, 16.49212,
  16.36817, 16.37881, 16.30364, 16.26036, 16.36129, 16.2717, 16.24251, 16.24525, 16.20783, 16.22122, 16.18384, 
  16.07215, 16.05218, 15.93479, 15.86752, 15.75905, 15.72123, 15.53176, 15.51937, 15.61827, 15.72674, 
  15.76796, 15.84861, 16.03879, 16.13212, 16.15616, 16.37393, 16.46757, 16.52073, 16.51834, 16.37105, 
  16.30235, 16.26904, 16.28381, 16.29823, 16.31783, 16.31373, 16.29893, 16.30701, 16.30106, 16.28682, 
  16.28227, 16.25196, 16.28126, 16.28573, 16.26925, 16.25517, 16.26891, 16.29893, 16.31815)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  79.00142, 78.9988, 78.99388, 78.991, 78.99487, 78.99388, 78.98936, 78.98373, 78.96251, 78.95889, 
  78.97309, 78.97243, 78.98851)
LONGITUDE_VALUEs <- c(
  12.17316, 12.11447, 12.1028, 12.0568, 12.03552, 11.98368, 11.98505, 11.96612, 12.01045, 12.06434, 
  12.16941, 12.20305, 12.224)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  79.6469, 79.64702, 79.66256, 79.66674, 79.66219, 79.66687, 79.69, 79.68705, 79.72484, 79.71933, 
  79.72545, 79.71859, 79.70854, 79.6943, 79.68975, 79.67992, 79.66157, 79.65442)
LONGITUDE_VALUEs <- c(
  10.77207, 10.9231, 10.97252, 11.02683, 11.04399, 11.079, 11.05978, 11.01241, 10.95747, 10.91902, 
  10.84415, 10.71304, 10.7199, 10.87711, 10.7508, 10.76521, 10.73981, 10.7707)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  79.73989, 79.7372, 79.73108, 79.7454, 79.74405, 79.75859, 79.76823, 79.77481, 79.7803, 79.78334, 
  79.77506, 79.77152, 79.76225, 79.757)
LONGITUDE_VALUEs <- c(
  10.77002, 10.954, 11.00206, 10.98489, 10.94302, 10.8977, 10.8977, 10.81258, 10.8009, 10.74529, 
  10.73431, 10.69243, 10.68076, 10.6485)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_5 <- st_set_geometry(Geo_5, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}

##### RUSSIAN FEDERATION #####
Geo_0 <- st_cast(Geo_6, "POLYGON")
Geo <- st_make_valid(Geo_0[232, ])
Geo_0 <- st_union(Geo_0[c(14, 45, 47, 51:53, 55:143, 145:148, 150:168, 170:165, 187:231), ])
Geo_0 <- st_union(Geo_0, Geo)
Geo_6 <- st_set_geometry(Geo_6, Geo_0)
if (st_is_valid(Geo_6) == FALSE) {Geo_6 <- st_make_valid(Geo_6)}
LATITUDE_VALUEs <- c(
  80.14583, 80.14561, 80.14298, 80.14116, 80.14144, 80.14078, 80.14309, 80.14235, 80.14372, 80.14924, 
  80.15216, 80.15288, 80.15548, 80.15749, 80.16313, 80.16393, 80.16447, 80.16449, 80.16394, 80.16065, 
  80.15981, 80.15853, 80.15715, 80.15564, 80.15481, 80.15428, 80.15316, 80.15254, 80.15108, 80.15113, 
  80.14969, 80.14863, 80.14761)
LONGITUDE_VALUEs <- c(
  36.69286, 36.71328, 36.75157, 36.76616, 36.77347, 36.80436, 36.82658, 36.83147, 36.844, 36.82307, 
  36.81637, 36.80899, 36.79179, 36.782, 36.75881, 36.75334, 36.74703, 36.74021, 36.72922, 36.69116, 
  36.67926, 36.6518, 36.63515, 36.62725, 36.62515, 36.62545, 36.62854, 36.63163, 36.64875, 36.6505, 
  36.6691, 36.67639, 36.68781)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  79.48826, 79.48225, 79.48914, 79.47899, 79.48143, 79.49459, 79.50522, 79.5156, 79.51666, 79.52334, 
  79.54043, 79.55071, 79.56944, 79.59991, 79.60642, 79.61103, 79.61493, 79.62257, 79.62551, 79.62845, 
  79.63098, 79.63243, 79.6316, 79.63784, 79.64413, 79.6541, 79.66155, 79.67125, 79.67388, 79.67581, 
  79.67699, 79.66836, 79.65971, 79.65147, 79.63617, 79.59192, 79.56129, 79.5575, 79.54744, 79.53912, 
  79.53704, 79.53192, 79.51963, 79.51866, 79.51508, 79.5129, 79.51204, 79.51061, 79.50965, 79.50355, 
  79.50191, 79.49476)
LONGITUDE_VALUEs <- c(
  76.7827, 76.87468, 77.00784, 77.45698, 77.53631, 77.57201, 77.56824, 77.52428, 77.46006, 77.38559, 
  77.29219, 77.23042, 77.06906, 76.89807, 76.82427, 76.75973, 76.72505, 76.68884, 76.68454, 76.66824, 
  76.62137, 76.56489, 76.45659, 76.37177, 76.31923, 76.2614, 76.22208, 76.2001, 76.18897, 76.176, 
  76.16382, 76.12423, 76.10364, 76.09797, 76.1211, 76.24333, 76.35698, 76.41704, 76.48352, 76.551, 
  76.5776, 76.62359, 76.71234, 76.73312, 76.74738, 76.74978, 76.76368, 76.7648, 76.75828, 76.76455, 
  76.76094, 76.77711)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.74053, 80.74473, 80.74936, 80.76238, 80.78286, 80.7822, 80.79725, 80.83342, 80.85091, 80.864, 
  80.88295, 80.90436, 80.90469, 80.89741, 80.87947, 80.88143, 80.86564, 80.84523, 80.83036, 80.80516, 
  80.79835, 80.78412, 80.77207, 80.76194, 80.74677)
LONGITUDE_VALUEs <- c(
  79.1329, 79.6779, 79.69404, 79.91369, 80.00984, 80.03181, 80.1094, 80.18769, 80.17396, 80.10253, 
  79.74423, 79.58141, 79.51689, 79.36999, 79.23322, 79.11447, 78.98331, 78.88446, 78.84666, 78.8093, 
  78.82028, 78.79423, 78.79319, 78.81893, 78.94426)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.86629, 80.81886, 80.82543, 80.81558, 80.79319, 80.77516, 80.79572, 80.80143, 80.81092, 80.81903, 
  80.82171, 80.82943, 80.8274, 80.81612, 80.817, 80.81284, 80.80944, 80.79857, 80.79572, 80.79077, 
  80.7905, 80.79517, 80.79412, 80.80351, 80.80302, 80.79632, 80.78709, 80.7855, 80.77978, 80.77356, 
  80.77081, 80.745, 80.73213, 80.72538, 80.6362, 80.61999, 80.56151, 80.51998, 80.48179, 80.40942, 
  80.39957, 80.38961, 80.3825, 80.38685, 80.39259, 80.40026, 80.40747, 80.43763, 80.44539, 80.45518, 
  80.45575, 80.44516, 80.42314, 80.40209, 80.39144, 80.388, 80.36746, 80.3982, 80.41308, 80.44482, 
  80.44983, 80.45826, 80.45518, 80.46486, 80.47884, 80.50753, 80.53614, 80.54189, 80.55204, 80.56241, 
  80.56432, 80.5579, 80.56871, 80.57467, 80.58119, 80.58102, 80.59809, 80.60863, 80.6338, 80.67189, 
  80.68723, 80.71719, 80.76381, 80.77868, 80.79813, 80.86018, 80.86651)
LONGITUDE_VALUEs <- c(
  61.72911, 61.29131, 61.24254, 61.18624, 60.62868, 60.44122, 60.29977, 60.22014, 60.28878, 60.28913, 
  60.2016, 60.13123, 60.01243, 59.94067, 59.91527, 59.88643, 59.9108, 59.92933, 59.95302, 59.93449, 
  59.90772, 59.89879, 59.87442, 59.80576, 59.75496, 59.6825, 59.68421, 59.64508, 59.66567, 59.6564, 
  59.60526, 59.65743, 59.62172, 59.54239, 59.42155, 59.46001, 59.38173, 59.46206, 59.35907, 59.66941, 
  59.65501, 59.67354, 59.66942, 59.71336, 59.70169, 59.79581, 59.99352, 60.19057, 60.13498, 60.22972, 
  60.38555, 60.40705, 60.53408, 60.58971, 60.6584, 60.76756, 61.10623, 61.30046, 61.32035, 61.41715, 
  61.30036, 61.29899, 61.48584, 61.53256, 61.46798, 61.45011, 61.51606, 61.63755, 61.6609, 61.6506, 
  61.68357, 61.70281, 61.89378, 61.89241, 61.975, 62.00557, 62.06771, 62.0131, 62.01242, 62.1684, 
  62.14708, 62.18761, 62.17661, 62.12028, 62.13197, 62.04681, 61.88477)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.78044, 80.74296, 80.65941, 80.64528, 80.64014, 80.64123, 80.6506, 80.65791, 80.66136, 80.67578, 
  80.68523, 80.69112, 80.68012, 80.67929, 80.69612, 80.7071, 80.702, 80.71508, 80.72748, 80.72925, 
  80.73987, 80.7476, 80.76106, 80.76965, 80.89502, 80.91087, 80.92626, 80.93427, 80.94422, 80.95178, 
  80.96969, 80.98283, 81.01055, 81.04354, 81.13077, 81.17386, 81.19259, 81.19112, 81.15213, 81.06148, 
  81.00733, 80.96344, 80.95621, 80.96193, 80.95524, 80.96171, 80.95955, 80.9643, 80.94065, 80.91326, 
  80.80055, 80.79044)
LONGITUDE_VALUEs <- c(
  62.51349, 62.75925, 63.05734, 63.05791, 63.09824, 63.13617, 63.19111, 63.30046, 63.31058, 63.53904, 
  63.60532, 63.7306, 63.71275, 63.75638, 64.02757, 64.13054, 64.21841, 64.42645, 64.47038, 64.55002, 
  64.57473, 64.68731, 64.74361, 64.86864, 65.32708, 65.32728, 65.35612, 65.32316, 65.32316, 65.27786, 
  65.27511, 65.12134, 65.36576, 65.34241, 65.21195, 64.96337, 64.64072, 64.46621, 64.21496, 64.12154, 
  64.17646, 64.06386, 63.94308, 63.86276, 63.7646, 63.67055, 63.52973, 63.38282, 63.13562, 63.0985, 
  62.51969, 62.5385)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.15878, 80.09355, 80.09615, 80.09024, 80.10441, 80.12657, 80.15972, 80.20398, 80.21484, 80.21215, 
  80.20713, 80.20153, 80.18316, 80.16735, 80.15773, 80.15514, 80.14445, 80.14669, 80.17871, 80.19264, 
  80.20643, 80.21554, 80.21332, 80.22417, 80.22942, 80.22382, 80.22545, 80.23675, 80.27661, 80.29515, 
  80.31123, 80.31354, 80.32035, 80.32474, 80.33108, 80.32924, 80.3081, 80.32058, 80.31261, 80.32116, 
  80.34618, 80.35228, 80.4077, 80.42839, 80.46543, 80.46315, 80.47304, 80.47202, 80.45883, 80.46645, 
  80.45644, 80.45587, 80.39006, 80.374, 80.34111, 80.3118, 80.26431, 80.25048, 80.236, 80.20054, 
  80.17269)
LONGITUDE_VALUEs <- c(
  57.32653, 57.8662, 57.92387, 58.04881, 58.03371, 58.04194, 57.84697, 57.92661, 57.97476, 57.98643, 
  57.98025, 57.94249, 57.96378, 58.05171, 58.17527, 58.28511, 58.40456, 58.42378, 58.38264, 58.44512, 
  58.45267, 58.38883, 58.3291, 58.29753, 58.22608, 58.13616, 58.06682, 58.04554, 58.20138, 58.38335, 
  58.42522, 58.59479, 58.62499, 58.59341, 58.6092, 58.66972, 58.9045, 59.15095, 59.23882, 59.2952, 
  59.2492, 59.1627, 58.96483, 58.84132, 58.27828, 58.14098, 58.0483, 57.88069, 57.57721, 57.35891, 
  57.16864, 56.96696, 57.24595, 57.23492, 57.30499, 57.25552, 57.27669, 57.25883, 57.29523, 57.27394, 
  57.32541)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.09072, 80.08729, 80.07629, 80.07706, 80.05941, 80.06605, 80.06226, 80.06735, 80.06723, 80.07369, 
  80.06303, 80.06569, 80.05568, 80.06729, 80.0738, 80.08356, 80.08563, 80.10601, 80.11196, 80.1841, 
  80.18878, 80.20083, 80.22102, 80.26919, 80.27696, 80.28583, 80.29851, 80.30909, 80.32081, 80.32981, 
  80.32404, 80.32958, 80.34572, 80.34963, 80.34359, 80.34497, 80.33719, 80.31383, 80.30302, 80.29879, 
  80.32733, 80.32075, 80.31411, 80.31712, 80.31544, 80.32693, 80.32814, 80.32029, 80.3215, 80.3185, 
  80.31931, 80.31117, 80.30458, 80.29544, 80.28699, 80.2585, 80.24048, 80.23186, 80.19896, 80.19323, 
  80.18129, 80.13128)
LONGITUDE_VALUEs <- c(
  55.79265, 55.90386, 55.97463, 56.02921, 56.21287, 56.24032, 56.30664, 56.36327, 56.41716, 56.44599, 
  56.59431, 56.63619, 56.65405, 56.779, 57.0269, 57.02553, 57.05609, 57.09042, 57.04786, 57.05469, 
  57.14736, 57.1872, 57.09864, 57.08627, 57.11721, 57.12373, 57.19376, 57.1996, 57.15016, 57.05989, 
  57.01798, 56.95688, 57.00322, 56.95516, 56.78589, 56.70763, 56.67742, 56.70589, 56.66951, 56.57578, 
  56.50265, 56.3911, 56.37046, 56.35879, 56.33373, 56.28259, 56.18817, 56.14012, 56.09032, 56.07865, 
  56.0354, 56.0046, 55.928, 55.92287, 55.97883, 56.06133, 56.06544, 56.04689, 56.1286, 56.18355, 
  56.17736, 55.9466)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.67222, 80.70666, 80.77361, 80.78902, 80.80812, 80.83834, 80.83649, 80.84457, 80.83998, 80.85189, 
  80.8437, 80.85003, 80.84272, 80.84239, 80.90251, 80.90295, 80.91044, 80.9074, 80.91315, 80.92377, 
  80.93081, 80.94157, 80.94746, 80.95982, 80.9588, 80.97987, 80.9775, 80.9845, 80.9902, 80.99503, 
  81.00035, 81.01682, 81.01642, 81.01114, 81.01377, 81.00508, 81.00524, 80.99896, 81.00443, 81.02352, 
  81.03466, 81.05614, 81.057, 81.07257, 81.07651, 81.07491, 81.10989, 81.1066, 81.09991, 81.09204, 
  81.06596, 81.0399, 81.03894, 81.0232, 81.01109, 80.99477, 80.99143, 80.98024, 80.98853, 80.99616, 
  80.99982, 81.00202, 80.99708, 80.9974, 80.99219, 80.98638, 80.9832, 80.97303, 80.96328, 80.95152, 
  80.94965, 80.94384, 80.93584, 80.93995, 80.94784, 80.96133, 80.96101, 80.95227, 80.94195, 80.93557, 
  80.9203, 80.9145, 80.90979, 80.90371, 80.90289, 80.90631, 80.90658, 80.89909, 80.89415, 80.8885, 
  80.88507, 80.88192, 80.87762, 80.88632, 80.88132, 80.87299, 80.86346, 80.85107, 80.84452, 80.82943, 
  80.82987, 80.821, 80.82056, 80.80691, 80.8141, 80.82248, 80.82335, 80.81519, 80.81503, 80.80499, 
  80.79451, 80.80104, 80.79665, 80.79011, 80.78577, 80.78874, 80.78858, 80.78451, 80.77906, 80.77609, 
  80.77224, 80.76613, 80.76298, 80.75058, 80.73517, 80.72532, 80.71237, 80.70738, 80.68523, 80.67367)
LONGITUDE_VALUEs <- c(
  57.17405, 57.57496, 57.74531, 57.64508, 57.62997, 57.41106, 57.34717, 57.29774, 57.26342, 57.13501, 
  57.03684, 56.99497, 56.96545, 56.93181, 56.80612, 56.76834, 56.74363, 56.6791, 56.63654, 56.68732, 
  56.67465, 56.62007, 56.63724, 56.61424, 56.54627, 56.40995, 56.37871, 56.31175, 56.30351, 56.25236, 
  56.25717, 56.05014, 55.79749, 55.7439, 55.69378, 55.69825, 55.57877, 55.46784, 55.40674, 55.35248, 
  55.23646, 55.23849, 55.11904, 55.05994, 54.97481, 54.89449, 54.71529, 54.65831, 54.65419, 54.58623, 
  54.6322, 54.50816, 54.45596, 54.41611, 54.46006, 54.46624, 54.52944, 54.62905, 54.63711, 54.72847, 
  54.73637, 54.77931, 54.81187, 54.83661, 54.90256, 54.88641, 54.91971, 54.93105, 54.87584, 54.88751, 
  54.91163, 54.92553, 55.19987, 55.23044, 55.22321, 55.319, 55.37596, 55.46699, 55.47624, 55.42678, 
  55.41614, 55.42747, 55.48138, 55.49924, 55.52328, 55.53908, 55.56519, 55.59267, 55.59402, 55.56929, 
  55.58303, 55.67706, 55.70454, 55.86351, 55.90404, 55.90919, 55.8601, 55.74297, 55.75395, 55.86278, 
  55.91568, 55.93423, 55.99154, 56.06883, 56.12304, 56.1433, 56.24188, 56.29643, 56.33112, 56.30296, 
  56.47569, 56.50411, 56.57899, 56.58483, 56.65147, 56.68264, 56.73965, 56.77125, 56.76164, 56.77435, 
  56.75408, 56.74755, 56.70908, 56.74343, 56.92919, 56.9745, 56.94806, 56.97348, 56.99819, 57.07612)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.01332, 80.00093, 79.99437, 79.97682, 79.94234, 79.92166, 79.90759, 79.93199, 79.93166, 79.94414, 
  79.96378, 80.02487, 80.05788, 80.08534, 80.09066, 80.05586)
LONGITUDE_VALUEs <- c(
  58.79932, 58.83982, 58.93592, 58.9655, 59.26825, 59.25294, 59.40158, 59.44244, 59.53679, 59.68505, 
  59.76128, 59.86702, 59.83063, 59.648, 59.42759, 59.04723)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  79.93529, 79.93781, 79.9359, 79.9239, 79.91617, 79.91282, 79.91031, 79.90252, 79.89695, 79.89099, 
  79.8871, 79.8852, 79.88849, 79.89262, 79.90279, 79.90352, 79.90072, 79.90704, 79.90884, 79.91398, 
  79.92092, 79.91903, 79.92225, 79.94295, 79.95892, 79.96213, 79.97187, 79.97587, 79.98307, 79.98743, 
  79.9802, 79.97734, 79.97422, 79.95693, 79.95389, 79.95703, 79.95167, 79.95317, 79.95128, 79.94754, 
  79.94304, 79.94022, 79.93176, 79.93866)
LONGITUDE_VALUEs <- c(
  58.48424, 58.54739, 58.57544, 58.6659, 58.68009, 58.67469, 58.6635, 58.67105, 58.68291, 58.7399, 
  58.75141, 58.78573, 58.78213, 58.87294, 58.89628, 58.91499, 58.93867, 58.94519, 58.93112, 58.92443, 
  58.8465, 58.79279, 58.75861, 58.73869, 58.67483, 58.67237, 58.67603, 58.68324, 58.68376, 58.6539, 
  58.6211, 58.55744, 58.55769, 58.45573, 58.41614, 58.40515, 58.37152, 58.35007, 58.33583, 58.36327, 
  58.32823, 58.26234, 58.32651, 58.44121)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.52985, 80.54261, 80.54193, 80.52996, 80.53719, 80.62081, 80.63023, 80.62914, 80.61804, 80.61492, 
  80.62476, 80.62191, 80.61553, 80.61307, 80.61917, 80.61004, 80.58965, 80.58976, 80.58168, 80.56233, 
  80.56289)
LONGITUDE_VALUEs <- c(
  57.58247, 57.6161, 57.71151, 57.77535, 57.90645, 58.08294, 58.05114, 58.02815, 58.0036, 57.90291, 
  57.86344, 57.81059, 57.80613, 57.74943, 57.59877, 57.40339, 57.34415, 57.29404, 57.26933, 57.31052, 
  57.35445)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.75933, 80.75236, 80.75484, 80.75484, 80.74911, 80.73353, 80.72628, 80.72645, 80.73209, 80.7635, 
  80.76548, 80.76322, 80.77396, 80.79378, 80.82131, 80.83324, 80.84352, 80.86611, 80.87831, 80.87628, 
  80.86217, 80.86631, 80.85671, 80.85093, 80.80596, 80.79806, 80.80015, 80.79312, 80.77035, 80.75745)
LONGITUDE_VALUEs <- c(
  58.02873, 58.08247, 58.12024, 58.16216, 58.25242, 58.30804, 58.39355, 58.48964, 58.56007, 58.73205, 
  58.79864, 58.86831, 58.94011, 58.95093, 58.99829, 58.94747, 58.96669, 58.92618, 58.76076, 58.61052, 
  58.37838, 58.2991, 58.23663, 58.15083, 58.03696, 57.98136, 57.93743, 57.83516, 57.8427, 57.96351)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.92229, 80.92099, 80.90364, 80.90081, 80.91806, 80.97576, 81.02024, 81.03929, 81.07036, 81.08559, 
  81.09251, 81.09782, 81.10189, 81.11643, 81.1124, 81.11738, 81.09909, 81.07047, 81.05479, 81.05116, 
  81.02752, 80.98814, 80.97673, 80.96951, 80.95398, 80.94836)
LONGITUDE_VALUEs <- c(
  60.33657, 60.40246, 60.59959, 60.9168, 61.15164, 61.34454, 61.54847, 61.56083, 61.50385, 61.55741, 
  61.64733, 61.64664, 61.5641, 61.41442, 61.36088, 61.11164, 60.95797, 60.64625, 60.58791, 60.48282, 
  60.29537, 60.15603, 59.99874, 60.00218, 60.0853, 60.22052)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.84099, 80.84093, 80.83585, 80.82047, 80.82567, 80.83032, 80.82835, 80.83885, 80.84585, 80.85458, 
  80.86102, 80.86015, 80.86358, 80.87203, 80.87334, 80.88547, 80.88699, 80.89851, 80.91051, 80.92124, 
  80.92698, 80.93137, 80.93748, 80.92996, 80.93202, 80.94845, 80.94948, 80.96518, 80.98193, 80.98796, 
  80.98828, 81.00585, 81.00992, 81.02295, 81.02836, 81.02879, 81.03639, 81.03687, 81.04371, 81.04526, 
  81.04142, 81.04644, 81.045, 81.04863, 81.05466, 81.06171, 81.07232, 81.07264, 81.08749, 81.0877, 
  81.09265, 81.09121, 81.08451, 81.08259, 81.08243, 81.0868, 81.08605, 81.09105, 81.09227, 81.09918, 
  81.10667, 81.10874, 81.10704, 81.10943, 81.10752, 81.10343, 81.08877, 81.07439, 81.06955, 81.06043, 
  81.0536, 81.04831, 81.04938, 81.04494, 81.04019, 81.0419, 81.03553, 81.03195, 81.02611, 81.01738, 
  80.99935, 80.99382, 80.98231, 80.97122, 80.96362, 80.94148, 80.9378, 80.94018, 80.93824, 80.94213, 
  80.94072, 80.93661, 80.92384, 80.91604, 80.91279, 80.90541, 80.90427, 80.88863, 80.87344, 80.86783, 
  80.86107, 80.85677, 80.84497)
LONGITUDE_VALUEs <- c(
  57.46669, 57.50859, 57.52542, 57.68025, 57.72211, 57.84027, 57.90072, 57.95044, 57.95868, 57.9288, 
  57.95593, 58.00952, 58.02323, 58.00983, 58.06442, 58.10492, 58.16843, 58.29689, 58.32057, 58.27594, 
  58.23644, 58.16706, 58.15504, 58.04213, 57.95042, 57.92196, 57.84056, 57.82138, 57.73451, 57.67269, 
  57.63113, 57.59649, 57.57622, 57.58825, 57.55736, 57.51752, 57.43337, 57.36717, 57.23184, 57.18073, 
  57.13333, 57.05502, 57.0059, 56.94418, 56.89919, 56.893, 56.85318, 56.83258, 56.74951, 56.69592, 
  56.6286, 56.58328, 56.54242, 56.49847, 56.44628, 56.39924, 56.36456, 56.31823, 56.27737, 56.22071, 
  56.19601, 56.16682, 56.14038, 56.11463, 56.1112, 56.12185, 56.09884, 56.22623, 56.23961, 56.39582, 
  56.40544, 56.46071, 56.4844, 56.49161, 56.54105, 56.57127, 56.70206, 56.70652, 56.81777, 56.80574, 
  56.88986, 56.97156, 56.95303, 56.9726, 56.95921, 57.00967, 57.06529, 57.13636, 57.1604, 57.1937, 
  57.25105, 57.27165, 57.25584, 57.28365, 57.31352, 57.31009, 57.3482, 57.37154, 57.27987, 57.28227, 
  57.30734, 57.37737, 57.45978)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  81.06533, 81.05514, 81.04889, 81.04852, 81.05722, 81.05151, 81.04333, 81.029, 81.02455, 81.02787, 
  81.01732, 81.01029, 81.00101, 80.99472, 80.98666, 80.98133, 80.98079, 80.97132, 80.96512, 80.95924, 
  80.95082, 80.94018, 80.93439, 80.93363, 80.94207, 80.95071, 80.95746, 80.96151, 80.96857, 80.97573, 
  81.00149, 81.01051, 81.02626, 81.03242, 81.04712, 81.04867, 81.05769, 81.07175, 81.07598, 81.07521, 
  81.08234, 81.08117, 81.08192, 81.08782, 81.0916, 81.09099, 81.08442, 81.07569, 81.06841)
LONGITUDE_VALUEs <- c(
  58.10526, 58.09049, 58.05478, 57.99948, 57.95654, 57.87102, 57.85865, 57.88821, 57.91604, 57.94901, 
  57.97748, 58.06128, 58.08911, 58.05507, 58.12274, 58.11685, 58.14329, 58.1955, 58.19069, 58.2319, 
  58.24664, 58.29163, 58.3702, 58.54263, 58.61468, 58.61708, 58.59065, 58.61778, 58.61675, 58.67237, 
  58.71084, 58.70638, 58.66523, 58.5732, 58.48171, 58.43349, 58.39607, 58.38594, 58.31831, 58.28104, 
  58.23141, 58.20793, 58.18045, 58.1698, 58.14475, 58.10731, 58.07522, 58.06269, 58.08226)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  81.14488, 81.13891, 81.11097, 81.10646, 81.10197, 81.10176, 81.10781, 81.10397, 81.10038, 81.10171, 
  81.10142, 81.10466, 81.10261, 81.10913, 81.10829, 81.10606, 81.1059, 81.11624, 81.11879, 81.13705, 
  81.14499, 81.15444, 81.15866, 81.16278, 81.17595, 81.17906, 81.18701, 81.19184, 81.19248, 81.18795, 
  81.21862, 81.21757, 81.22721, 81.21453, 81.21862, 81.20608, 81.20755, 81.20188, 81.20067, 81.18238, 
  81.17279, 81.16942, 81.16109, 81.16589, 81.16299, 81.15354)
LONGITUDE_VALUEs <- c(
  56.94194, 57.03433, 57.23009, 57.23387, 57.27798, 57.31731, 57.34496, 57.39865, 57.4081, 57.44482, 
  57.48724, 57.52279, 57.56747, 57.65987, 57.71268, 57.72196, 57.74188, 57.77622, 57.77209, 57.82155, 
  57.81056, 57.83391, 57.81846, 57.82188, 57.87718, 57.92046, 57.93073, 57.98123, 58.02512, 58.06531, 
  58.00212, 57.93311, 57.86342, 57.77039, 57.70891, 57.57024, 57.5146, 57.45277, 57.35839, 57.24201, 
  57.25269, 57.21216, 57.20597, 57.13419, 57.03809, 56.95703)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  81.64389, 81.60488, 81.58521, 81.583, 81.57656, 81.59686, 81.6383, 81.67198, 81.70414, 81.7085, 
  81.6851, 81.69564, 81.69445, 81.68433, 81.67111, 81.66594, 81.66046, 81.66265, 81.65837, 81.64571, 
  81.64032)
LONGITUDE_VALUEs <- c(
  62.58142, 62.66249, 62.93154, 63.20495, 63.37257, 63.64293, 63.76381, 63.68835, 63.43555, 63.16518, 
  62.75712, 62.50359, 62.38543, 62.25851, 62.20767, 62.17264, 62.17607, 62.22072, 62.26121, 62.34365, 
  62.45549)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  81.75287, 81.73364, 81.71703, 81.69118, 81.68949, 81.7287, 81.73265, 81.73107, 81.71911, 81.73018, 
  81.72979, 81.73768, 81.76822, 81.78619, 81.80148, 81.82936, 81.84581, 81.85856, 81.85788, 81.83753, 
  81.82426, 81.82426, 81.8309, 81.83031, 81.8228, 81.82319, 81.80676, 81.79384, 81.79384, 81.78334, 
  81.77863, 81.76487)
LONGITUDE_VALUEs <- c(
  57.97311, 57.93807, 57.97512, 58.12, 58.18114, 58.50118, 58.62333, 58.70508, 58.74973, 58.84934, 
  59.12591, 59.23308, 59.31549, 59.27771, 59.33542, 59.3322, 59.26059, 59.13076, 58.77919, 58.55608, 
  58.49288, 58.3789, 58.26703, 58.19146, 58.11315, 58.03415, 57.89551, 57.94357, 58.01639, 58.02738, 
  58.09951, 58.10292)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  81.52422, 81.52311, 81.53868, 81.54646, 81.55645, 81.57427, 81.58473, 81.58935, 81.59026, 81.58584, 
  81.57568, 81.57629, 81.54192)
LONGITUDE_VALUEs <- c(
  62.02571, 62.09509, 62.24279, 62.26546, 62.25511, 62.13077, 61.91514, 61.88903, 61.83133, 61.79835, 
  61.78874, 61.84713, 61.90688)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  81.57992, 81.59047, 81.59795, 81.61008, 81.61609, 81.63032, 81.63314, 81.63434, 81.63117, 81.63322, 
  81.6292, 81.62749, 81.62714, 81.62169, 81.62169, 81.61669, 81.61018, 81.60647, 81.60366, 81.59428, 
  81.59207, 81.58816, 81.58534, 81.58374, 81.5863, 81.58529, 81.58429, 81.58212, 81.57879, 81.57818, 
  81.58062, 81.58271, 81.58347, 81.58277, 81.58123, 81.57884)
LONGITUDE_VALUEs <- c(
  58.5281, 58.59194, 58.6706, 58.70218, 58.70012, 58.64561, 58.66244, 58.64372, 58.61642, 58.59684, 
  58.59907, 58.57961, 58.46111, 58.40554, 58.38562, 58.35951, 58.39831, 58.39212, 58.30839, 58.29396, 
  58.27199, 58.27886, 58.25756, 58.26615, 58.32104, 58.41275, 58.42542, 58.43272, 58.42413, 58.43409, 
  58.46078, 58.46928, 58.48609, 58.50807, 58.51854, 58.52206)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  81.34321, 81.33938, 81.32236, 81.31054, 81.30717, 81.29813, 81.29772, 81.31059, 81.32913, 81.33637, 
  81.35301, 81.36076, 81.36561, 81.37426, 81.38856, 81.39278, 81.40479, 81.40838, 81.41508, 81.41675, 
  81.41608, 81.41864, 81.41938, 81.41792, 81.41905, 81.41846, 81.4221, 81.41259, 81.38666, 81.37189, 
  81.35756, 81.35028)
LONGITUDE_VALUEs <- c(
  58.50096, 58.54526, 58.6098, 58.71078, 58.79964, 58.91917, 59.02075, 59.22296, 59.32164, 59.29623, 
  59.28801, 59.24702, 59.24153, 59.20512, 59.19725, 59.14266, 59.06744, 59.10144, 59.07013, 59.08952, 
  59.15117, 59.14207, 59.12095, 59.09879, 59.07526, 59.04045, 58.93209, 58.78354, 58.65138, 58.54593, 
  58.56451, 58.51299)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  81.37622, 81.37514, 81.38517, 81.3934, 81.39946, 81.41044, 81.42959, 81.45849, 81.47377, 81.48425, 
  81.48974, 81.4868, 81.49381, 81.4934, 81.5069, 81.51065, 81.51936, 81.52665, 81.53504, 81.55161, 
  81.54888, 81.5525, 81.5575, 81.56007, 81.55767, 81.55593, 81.55389, 81.555, 81.54971, 81.54723, 
  81.54458, 81.53794, 81.53511, 81.52975, 81.52829, 81.52346, 81.53286, 81.53344, 81.53557, 81.53483, 
  81.53074, 81.53403, 81.53033, 81.52419, 81.5172, 81.51482, 81.50948, 81.50458, 81.50098, 81.49753, 
  81.49651, 81.49227, 81.48977, 81.48411, 81.48177, 81.48296, 81.4778, 81.47258, 81.46757, 81.46647, 
  81.46026, 81.45717, 81.45268, 81.45207, 81.44699, 81.44403, 81.44413, 81.44196, 81.43567, 81.43204, 
  81.43411, 81.43537, 81.44265, 81.43848, 81.43381, 81.43191, 81.43475, 81.43345, 81.42531, 81.41809, 
  81.41884, 81.41894, 81.41443, 81.40692, 81.39973, 81.39719, 81.40232, 81.40109, 81.39508, 81.39385, 
  81.39544, 81.39552, 81.39365, 81.38784, 81.38406, 81.38442)
LONGITUDE_VALUEs <- c(
  57.8751, 58.13056, 58.33892, 58.38937, 58.48692, 58.53429, 58.54803, 58.44964, 58.33708, 58.1722, 
  58.15022, 58.03756, 57.97586, 57.91472, 57.88106, 57.83091, 57.82548, 57.77053, 57.76574, 57.8152, 
  57.77261, 57.73976, 57.72311, 57.69117, 57.63745, 57.48054, 57.46785, 57.41067, 57.45618, 57.4409, 
  57.4579, 57.43832, 57.38716, 57.38751, 57.35525, 57.32691, 57.18427, 57.16074, 57.15284, 57.10221, 
  57.0792, 57.03611, 56.96982, 56.94634, 56.94995, 57.01792, 57.02874, 57.01621, 56.98375, 56.97965, 
  56.94874, 56.92622, 56.95575, 56.94837, 56.9003, 56.85241, 56.83627, 56.84657, 56.84056, 56.82305, 
  56.81928, 56.82683, 56.86597, 56.89343, 56.93, 56.98784, 57.11385, 57.12809, 57.13033, 57.20294, 
  57.22389, 57.22148, 57.24809, 57.32259, 57.32551, 57.33993, 57.37633, 57.40841, 57.49031, 57.50386, 
  57.52291, 57.57699, 57.59725, 57.59176, 57.56446, 57.57424, 57.62489, 57.64033, 57.64806, 57.66917, 
  57.68514, 57.70574, 57.71277, 57.77492, 57.77011, 57.7926)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  81.17269, 81.16615, 81.16088, 81.15998, 81.1556, 81.16056, 81.17026, 81.17174, 81.18306, 81.1859,
  81.19999, 81.2033, 81.21212, 81.21964, 81.21922, 81.21776, 81.21896, 81.22427, 81.22883, 81.23208,
  81.23501, 81.23726, 81.23835, 81.24123, 81.24745, 81.25262, 81.25601, 81.26144, 81.26598, 81.26775,
  81.28035, 81.28129, 81.27494, 81.28004, 81.28197, 81.29122, 81.29107, 81.296, 81.29574, 81.30063,
  81.30841, 81.30888, 81.31443, 81.33297, 81.33199, 81.32148, 81.31298, 81.30426, 81.3039, 81.31557,
  81.32484, 81.33219, 81.33918, 81.3523, 81.35318, 81.34791, 81.35617, 81.36086, 81.36324, 81.36543,
  81.36731, 81.37241, 81.37344, 81.3719, 81.37303, 81.37743, 81.37823, 81.38163, 81.3842, 81.38811,
  81.38235, 81.37545, 81.37398, 81.37143, 81.3701, 81.37517, 81.38111, 81.38857, 81.39617, 81.39517,
  81.39772, 81.39687, 81.40005, 81.4021, 81.4047, 81.4059, 81.405, 81.40693, 81.40285, 81.40495,
  81.40056, 81.3989, 81.39599, 81.39047, 81.38716, 81.36319, 81.35586, 81.35111, 81.35096, 81.34589,
  81.34166, 81.32505, 81.31645, 81.30769, 81.29304, 81.29414, 81.2912, 81.28795, 81.27947, 81.28075,
  81.27677, 81.25622, 81.24907, 81.25951, 81.25993, 81.26858, 81.26024, 81.2629, 81.26665, 81.26905,
  81.28805, 81.28951, 81.28009, 81.28784, 81.28899, 81.29476, 81.29876, 81.31044, 81.30758, 81.30924,
  81.3026, 81.29471, 81.29348, 81.29603, 81.29725, 81.29889, 81.30226, 81.30804, 81.3109, 81.3102,
  81.30768, 81.30704, 81.30694, 81.3058, 81.3056, 81.30468, 81.30553, 81.31241, 81.31217, 81.31049,
  81.31099, 81.31538, 81.32054, 81.32539, 81.3272, 81.32984, 81.32513, 81.32137, 81.32179, 81.31132,
  81.31064, 81.31521, 81.31972, 81.32101, 81.31505, 81.30404, 81.29314, 81.28664, 81.28289, 81.28383,
  81.27237, 81.2669, 81.25986, 81.26122, 81.2571, 81.25668, 81.26164, 81.26476, 81.26435, 81.26028,
  81.25245, 81.24488, 81.23887, 81.23264, 81.22762, 81.20948, 81.20056, 81.19525, 81.19751, 81.19215,
  81.18877, 81.1864, 81.18569, 81.18974, 81.18803, 81.18651, 81.18597, 81.18125, 81.17927, 81.18227,
  81.18396, 81.18769, 81.18569, 81.18664, 81.18461, 81.18803, 81.1956, 81.20272, 81.20263, 81.20665,
  81.21016, 81.21404, 81.22206, 81.22327, 81.21352, 81.20581, 81.19761, 81.18821, 81.18426, 81.17794)
LONGITUDE_VALUEs <- c(
  56.40158, 56.36345, 56.3796, 56.40158, 56.43383, 56.56396, 56.6151, 56.64945, 56.69239, 56.75139,
  56.79121, 56.77988, 56.79716, 56.86359, 56.89361, 56.91508, 56.93242, 56.92477, 56.944, 57.01682,
  57.02335, 57.04327, 57.04183, 57.06037, 57.07755, 57.13862, 57.13897, 57.16267, 57.23377, 57.38376,
  57.5249, 57.58432, 57.63547, 57.64818, 57.7137, 57.84388, 57.88991, 57.95448, 57.89025, 57.82535,
  57.79203, 57.74532, 57.69796, 57.65436, 57.6025, 57.61179, 57.58058, 57.51188, 57.46448, 57.41234,
  57.39755, 57.39851, 57.3683, 57.38547, 57.31096, 57.25911, 57.19595, 57.21243, 57.17496, 57.1717,
  57.1456, 57.13909, 57.10732, 57.10114, 57.07144, 57.05652, 57.01669, 57.0033, 56.96261, 56.93532,
  56.89962, 56.89292, 56.87404, 56.86597, 56.81996, 56.79078, 56.79782, 56.78375, 56.80417, 56.77825,
  56.7525, 56.72846, 56.68332, 56.67131, 56.66667, 56.64847, 56.638, 56.57998, 56.55165, 56.48866,
  56.45157, 56.35562, 56.33364, 56.3515, 56.39493, 56.40025, 56.43515, 56.43515, 56.4609, 56.50073,
  56.48562, 56.49008, 56.46193, 56.39498, 56.46365, 56.4957, 56.51836, 56.48934, 56.50857, 56.53089,
  56.58942, 56.63187, 56.56149, 56.45163, 56.42073, 56.38296, 56.33146, 56.28305, 56.28271, 56.30091,
  56.22126, 56.18452, 56.10246, 56.09078, 56.02522, 55.99192, 56.00977, 55.94557, 55.93733, 55.91261,
  55.93728, 55.92012, 55.87239, 55.8487, 55.85712, 55.84956, 55.87426, 55.87512, 55.84808, 55.79555,
  55.78877, 55.77976, 55.7704, 55.76397, 55.75375, 55.75186, 55.73607, 55.70998, 55.69959, 55.69727,
  55.68903, 55.68363, 55.70022, 55.70176, 55.71052, 55.70279, 55.64529, 55.63482, 55.5864, 55.58847,
  55.55894, 55.54212, 55.54264, 55.52135, 55.47243, 55.49136, 55.55247, 55.53118, 55.49754, 55.46595,
  55.46354, 55.44397, 55.46629, 55.52775, 55.56653, 55.62044, 55.61289, 55.63383, 55.66817, 55.68019,
  55.62525, 55.61049, 55.62045, 55.57066, 55.58234, 55.53907, 55.55315, 55.60912, 55.67436, 55.76257,
  55.76355, 55.77523, 55.796, 55.83034, 55.85403, 55.84911, 55.834, 55.8257, 55.8542, 55.87068,
  55.8631, 55.88355, 55.89385, 55.90656, 55.922, 55.95393, 55.95359, 56.04646, 56.12659, 56.13851,
  56.16804, 56.15091, 56.20306, 56.33525, 56.35446, 56.35755, 56.39532, 56.40596, 56.38022, 56.38159)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  81.24498, 81.24989, 81.26503, 81.26503, 81.27388, 81.28638, 81.29636, 81.3112, 81.29989, 81.29397, 
  81.2844, 81.27482, 81.27649, 81.27149, 81.24676)
LONGITUDE_VALUEs <- c(
  60.47323, 60.47735, 60.53918, 60.59414, 60.57073, 60.5776, 60.52127, 60.03503, 59.85315, 59.82498, 
  59.82567, 59.98703, 60.05229, 60.15046, 60.35037)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  81.17179, 81.17069, 81.18143, 81.2022, 81.20682, 81.21038, 81.20823, 81.20928, 81.21647, 81.21369, 
  81.21563, 81.20765, 81.20136, 81.19263, 81.18969, 81.19248, 81.18785)
LONGITUDE_VALUEs <- c(
  59.60511, 59.74766, 59.75959, 59.66241, 59.6168, 59.50551, 59.44128, 59.37028, 59.2082, 59.07021, 
  59.03724, 58.97163, 58.96959, 59.01665, 59.08218, 59.22781, 59.36887)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  81.04351, 81.03731, 81.03035, 81.03035, 81.0433, 81.05377, 81.05612, 81.06636, 81.06711, 81.06199, 
  81.06892, 81.07595, 81.09202, 81.10084, 81.09765, 81.12248, 81.14883, 81.15939, 81.16814, 81.17605, 
  81.18026, 81.17927, 81.17474, 81.18043, 81.18001, 81.17274, 81.17185, 81.16309, 81.15829, 81.1452, 
  81.13801, 81.13409, 81.12016, 81.10372, 81.10027, 81.09458, 81.0865, 81.07074, 81.05682)
LONGITUDE_VALUEs <- c(
  50.37538, 50.41247, 50.40698, 50.47224, 50.49697, 50.5478, 50.59314, 50.6323, 50.67952, 50.77226, 
  50.79905, 50.73173, 50.74134, 50.82788, 50.86154, 51.00512, 50.97694, 50.93987, 50.86774, 50.73585, 
  50.71249, 50.58742, 50.58055, 50.55616, 50.52353, 50.49674, 50.54071, 50.55858, 50.47992, 50.38412, 
  50.38621, 50.42125, 50.44733, 50.44048, 50.41644, 50.42503, 50.4875, 50.493, 50.41952)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.04083, 80.04362, 80.05286, 80.05259, 80.05538, 80.05964, 80.0589, 80.07033, 80.07764, 80.07877, 
  80.07785, 80.07983, 80.08149, 80.08696, 80.09083, 80.09384, 80.0967, 80.10379, 80.10444, 80.10677, 
  80.11001, 80.11458, 80.11499, 80.11711, 80.11596, 80.11888, 80.12236, 80.12115, 80.1296, 80.12998, 
  80.13331, 80.13139, 80.13166, 80.12689, 80.12583, 80.12872, 80.14409, 80.15232, 80.15787, 80.16608, 
  80.20006, 80.20681, 80.21568, 80.21404, 80.21918, 80.21803, 80.17355, 80.16851, 80.16516, 80.16405, 
  80.15037, 80.1415, 80.12397, 80.10139, 80.10204, 80.09106, 80.08018, 80.07616, 80.07639, 80.07367, 
  80.07216, 80.06884, 80.06505, 80.06209, 80.05527, 80.04541, 80.0447)
LONGITUDE_VALUEs <- c(
  50.00372, 50.07619, 50.12675, 50.13517, 50.14874, 50.12469, 50.09344, 50.04281, 50.07216, 50.10049, 
  50.11629, 50.12299, 50.10805, 50.10324, 50.08503, 50.08402, 50.07406, 50.08419, 50.1005, 50.10239, 
  50.072, 50.06514, 50.0809, 50.09017, 50.09859, 50.10168, 50.12296, 50.14305, 50.14752, 50.17069, 
  50.20435, 50.22427, 50.2423, 50.27059, 50.30287, 50.31009, 50.26339, 50.28794, 50.35196, 50.38425, 
  50.30717, 50.30804, 50.24123, 50.17036, 50.11353, 49.99759, 49.59929, 49.61273, 49.60071, 49.5746, 
  49.52651, 49.54912, 49.69504, 49.74413, 49.8152, 49.87253, 49.89451, 49.88593, 49.84575, 49.8382, 
  49.84826, 49.8522, 49.87306, 49.86886, 49.88353, 49.93091, 49.96851)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  79.95676, 79.93266, 79.92696, 79.92966, 79.91416, 79.91645, 79.92258, 79.92684, 79.92864, 79.93248, 
  79.93416, 79.94538, 79.95491, 79.95586, 79.97112, 79.98218, 79.98856, 79.99399, 80.00073, 80.0208, 
  80.04238, 80.04778, 80.04962, 80.04576, 80.05359, 80.06521, 80.07284, 80.07438, 80.07657, 80.07776, 
  80.08237, 80.08592, 80.09053, 80.09797, 80.09454, 80.09383, 80.07823, 80.06852, 80.06082, 80.0575, 
  80.03964, 79.99751, 79.98421, 79.98188, 79.97686, 79.97578, 79.97106)
LONGITUDE_VALUEs <- c(
  50.34227, 50.37866, 50.48507, 50.72747, 51.06425, 51.39594, 51.42305, 51.47869, 51.43748, 51.44228, 
  51.39007, 51.31663, 51.3077, 51.25721, 51.14701, 51.14736, 51.12435, 51.14291, 51.14634, 51.20334, 
  51.22978, 51.28233, 51.27271, 51.20504, 51.13089, 51.09826, 51.11578, 51.13673, 51.13432, 51.11543, 
  51.09757, 51.06322, 51.0591, 50.99732, 50.96916, 50.9458, 50.97261, 50.96403, 50.91835, 50.80844, 
  50.67631, 50.5984, 50.5984, 50.57711, 50.58397, 50.5139, 50.43188)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.84444, 80.86746, 80.87346, 80.86845, 80.8594, 80.85536, 80.8475, 80.8511, 80.85067, 80.86398, 
  80.86452, 80.85296, 80.85569, 80.85034, 80.84739, 80.8253, 80.81303, 80.80107, 80.78965, 80.78855, 
  80.78437, 80.79031, 80.78976, 80.7858, 80.78943, 80.78866, 80.77887, 80.77194, 80.75486, 80.75044, 
  80.74492, 80.74382, 80.73542, 80.73277, 80.72205, 80.71917, 80.71446, 80.71839, 80.73012, 80.73488, 
  80.74195, 80.74626, 80.74184, 80.74869, 80.74731, 80.73836, 80.73449, 80.74041, 80.74753, 80.74753, 
  80.74521, 80.75134, 80.75581, 80.7579, 80.76016, 80.75812, 80.76336, 80.76137, 80.7725, 80.78851, 
  80.79966, 80.79521, 80.79966, 80.80772, 80.81299, 80.80992, 80.81282, 80.81726, 80.83193, 80.81825, 
  80.82099, 80.83193, 80.84505, 80.84653, 80.85133, 80.85739, 80.86361, 80.87527, 80.87619, 80.86976, 
  80.83943, 80.8374)
LONGITUDE_VALUEs <- c(
  54.76029, 54.78845, 54.73143, 54.66617, 54.63604, 54.58589, 54.5488, 54.48363, 54.43966, 54.35791, 
  54.30777, 54.23632, 54.16282, 54.13827, 54.14995, 54.02355, 54.016, 54.04623, 54.21168, 54.31668, 
  54.36614, 54.48292, 54.56316, 54.61194, 54.64697, 54.73697, 54.74796, 54.70605, 54.71086, 54.67033, 
  54.66826, 54.69506, 54.71841, 54.8139, 54.847, 54.83154, 54.88306, 55.02346, 55.04989, 55.03512, 
  55.05777, 55.09177, 55.12887, 55.16528, 55.20478, 55.2109, 55.24284, 55.33516, 55.34856, 55.41382, 
  55.44027, 55.50715, 55.51161, 55.54181, 55.64276, 55.65237, 55.70491, 55.82746, 55.93527, 55.85184, 
  55.69459, 55.66678, 55.6345, 55.64345, 55.59161, 55.57341, 55.55281, 55.55075, 55.46286, 55.36021, 
  55.27952, 55.26373, 55.27472, 55.24794, 55.24588, 55.20812, 55.21911, 55.14872, 54.96262, 54.92762, 
  54.86685, 54.7999)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.62332, 80.6344, 80.63435, 80.61589, 80.60228, 80.59628, 80.60155, 80.61791, 80.6216, 80.61231, 
  80.63094, 80.65706, 80.67421, 80.68094, 80.70482, 80.71418, 80.718, 80.72166, 80.74052, 80.7493, 
  80.75459, 80.7547, 80.75983, 80.75829, 80.75989, 80.75746, 80.74852, 80.74372, 80.73842, 80.74814, 
  80.74852, 80.74549, 80.74101, 80.74477, 80.74096, 80.72575, 80.71136, 80.7077, 80.71175, 80.71003, 
  80.69422, 80.68878, 80.68494, 80.68961, 80.69172, 80.67688, 80.6406, 80.62915, 80.61903, 80.61433, 
  80.60463, 80.60458, 80.61214)
LONGITUDE_VALUEs <- c(
  56.13841, 56.25839, 56.29583, 56.35041, 56.34524, 56.40775, 56.47576, 56.49598, 56.58764, 56.70021, 
  56.91928, 56.91516, 56.98899, 56.96116, 56.92718, 56.87978, 56.88462, 56.86916, 56.59753, 56.55676, 
  56.55058, 56.51108, 56.49082, 56.46368, 56.42666, 56.33872, 56.28308, 56.2773, 56.20208, 56.15846, 
  56.11112, 56.0541, 56.0249, 55.9854, 55.89618, 55.79082, 55.76197, 55.71869, 55.58857, 55.54843, 
  55.42754, 55.43166, 55.47288, 55.55833, 55.75136, 55.76196, 55.58272, 55.58446, 55.63392, 55.80245, 
  56.005, 56.07878, 56.14332)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.00961, 80.00449, 80.0021, 80.0133, 80.01545, 80.01473, 80.0255, 80.04861, 80.05276, 80.06147, 
  80.06864, 80.07699, 80.08119, 80.08663, 80.08071, 80.07421, 80.07158, 80.06118, 80.04873, 80.042, 
  80.0376, 80.03481, 80.03032, 80.02515)
LONGITUDE_VALUEs <- c(
  49.37167, 49.36652, 49.39434, 49.46579, 49.54195, 49.57011, 49.67035, 49.67964, 49.62228, 49.60994, 
  49.57323, 49.50522, 49.49735, 49.41594, 49.37713, 49.3627, 49.37522, 49.37796, 49.32801, 49.3184, 
  49.31943, 49.30981, 49.3323, 49.32646)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.34811, 80.35697, 80.37363, 80.38832, 80.38534, 80.37891, 80.37501, 80.37927, 80.38042, 80.38822, 
  80.38982, 80.38225, 80.37801, 80.36446, 80.3575, 80.35111, 80.3438, 80.3362, 80.33424, 80.33585, 
  80.32657, 80.31976, 80.31876, 80.31656, 80.31746, 80.31509, 80.31685, 80.31711, 80.31431, 80.31252, 
  80.29679, 80.29048, 80.29621, 80.28698, 80.28744, 80.29045, 80.29373, 80.28889, 80.2833, 80.26714, 
  80.26964, 80.25948, 80.26923, 80.26552, 80.26308, 80.25726, 80.26558, 80.26627, 80.25349, 80.24489, 
  80.23534, 80.22078, 80.18186, 80.18713, 80.17366, 80.17911, 80.17466, 80.16276, 80.16141, 80.15284, 
  80.14932, 80.15413, 80.16018, 80.15795, 80.16258, 80.16188, 80.15683, 80.13703, 80.13227, 80.14661, 
  80.16076, 80.16716, 80.18924, 80.19766, 80.20245, 80.21074, 80.20601, 80.21319, 80.2115, 80.20319, 
  80.1995, 80.19512, 80.18459, 80.18541, 80.19573, 80.19968, 80.20476, 80.20701, 80.21133, 80.21332, 
  80.22658, 80.23072, 80.23486, 80.23337, 80.23433, 80.24437, 80.26169, 80.27561, 80.29276, 80.29595, 
  80.30254, 80.32138, 80.32911, 80.34087)
LONGITUDE_VALUEs <- c(
  53.33137, 53.38564, 53.40214, 53.32452, 53.25582, 53.21392, 53.08133, 53.06656, 53.04629, 53.04492, 
  52.99992, 52.96564, 52.92614, 52.87189, 52.81387, 52.79978, 52.75205, 52.7524, 52.84675, 52.87732, 
  52.9206, 52.89384, 52.8699, 52.85993, 52.84637, 52.82318, 52.80721, 52.78595, 52.78732, 52.84689, 
  52.92501, 52.86424, 52.83384, 52.7796, 52.75487, 52.75264, 52.69755, 52.64606, 52.63645, 52.65937, 
  52.62983, 52.62124, 52.53681, 52.50795, 52.51001, 52.4765, 52.41384, 52.32975, 52.21469, 52.22091, 
  52.24976, 52.24736, 52.4121, 52.45502, 52.55423, 52.57826, 52.68709, 52.75919, 52.8076, 52.91746, 
  53.02047, 53.08362, 53.09358, 53.15744, 53.2141, 53.26318, 53.32533, 53.35554, 53.45512, 53.5375, 
  53.53132, 53.49046, 53.53888, 53.51004, 53.52583, 53.59279, 53.63227, 53.67382, 53.69956, 53.73556, 
  53.71307, 53.70826, 53.76388, 53.78877, 53.80748, 53.82842, 53.83683, 53.85812, 53.86636, 53.88593, 
  53.91614, 53.9352, 53.90687, 53.88507, 53.85486, 53.84456, 53.7277, 53.67758, 53.58866, 53.54643, 
  53.52239, 53.33185, 53.31503, 53.33941)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.64346, 80.6276, 80.62234, 80.61406, 80.60493, 80.59943, 80.59091, 80.58136, 80.57956, 80.56809, 
  80.55373, 80.54178, 80.52557, 80.51619, 80.51019, 80.50141, 80.49382, 80.47787, 80.47299, 80.47162, 
  80.47855, 80.50781, 80.53382, 80.53568, 80.54607, 80.55779, 80.56601, 80.59854, 80.61551, 80.62077, 
  80.62592, 80.62709, 80.64184)
LONGITUDE_VALUEs <- c(
  53.15237, 53.1812, 53.07824, 53.08716, 53.19058, 53.21289, 53.30423, 53.32757, 53.29497, 53.23761, 
  53.26267, 53.19297, 53.23932, 53.19951, 53.24037, 53.26614, 53.27642, 53.388, 53.41408, 53.45973, 
  53.45595, 53.54762, 53.47828, 53.45424, 53.41168, 53.40892, 53.42574, 53.41304, 53.38352, 53.38695, 
  53.3516, 53.29634, 53.25547)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.53806, 80.54753, 80.55159, 80.56117, 80.56173, 80.58153, 80.58995, 80.58905, 80.59691, 80.5996,
  80.57939, 80.56015, 80.51862, 80.49484, 80.47418, 80.4553, 80.45086, 80.45439, 80.4463, 80.45063,
  80.44664, 80.4341, 80.42953, 80.42325, 80.41639, 80.41982, 80.4349, 80.44217, 80.46736, 80.48179, 
  80.48633, 80.49552, 80.48883, 80.4945, 80.50164, 80.51319, 80.53094)
LONGITUDE_VALUEs <- c(
  54.09593, 54.07808, 54.12544, 54.13092, 54.238, 54.28811, 54.13223, 54.07114, 54.03133, 53.90915,
  53.84389, 53.83977, 54.00043, 53.89469, 53.8988, 53.83908, 53.85418, 53.93929, 54.04637, 54.11639,
  54.15701, 54.19957, 54.18309, 54.20506, 54.27919, 54.38078, 54.3794, 54.34789, 54.45016, 54.44398, 
  54.47556, 54.41858, 54.35955, 54.30807, 54.30944, 54.39593, 54.38014)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.38743, 80.37837, 80.37538, 80.388, 80.39006, 80.39545, 80.3982, 80.41388, 80.42942, 80.43695, 
  80.44584, 80.46105, 80.47458, 80.47861, 80.47424, 80.45769, 80.441, 80.41439, 80.40186, 80.39178)
LONGITUDE_VALUEs <- c(
  54.39047, 54.47353, 54.57443, 54.6465, 54.71583, 54.71514, 54.75717, 54.8313, 54.8313, 54.79629, 
  54.80041, 54.73381, 54.72661, 54.65076, 54.61266, 54.58034, 54.49418, 54.48456, 54.46499, 54.43339)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.51477, 80.48837, 80.48701, 80.47696, 80.46235, 80.44772, 80.44653, 80.45513, 80.46508, 80.46798, 
  80.4806, 80.48843, 80.49716, 80.51692, 80.51794, 80.5249, 80.52812, 80.52631, 80.5306, 80.52077, 
  80.51545, 80.5137)
LONGITUDE_VALUEs <- c(
  54.60509, 54.66756, 54.71258, 54.78053, 54.80937, 54.92743, 54.99203, 55.04283, 55.03563, 55.05279, 
  55.05792, 55.04351, 55.06891, 54.98997, 54.95904, 54.9254, 54.87976, 54.82381, 54.7654, 54.671, 
  54.66483, 54.64115)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.39728, 80.38663, 80.38158, 80.37159, 80.3486, 80.36205, 80.38422, 80.39373, 80.39133, 80.41079, 
  80.40919, 80.41857)
LONGITUDE_VALUEs <- c(
  55.77201, 55.75073, 55.76515, 55.9594, 56.16128, 56.26973, 56.26844, 56.21833, 56.13047, 56.02125, 
  55.9176, 55.89696)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.19977, 80.20527, 80.22079, 80.2314, 80.24711, 80.27557, 80.2904, 80.29283, 80.30232, 80.30556, 
  80.31053, 80.30972, 80.31307, 80.30868, 80.29283, 80.28067, 80.25269, 80.2385, 80.21426, 80.21145, 
  80.19615, 80.18855, 80.18902, 80.19521)
LONGITUDE_VALUEs <- c(
  54.2037, 54.37942, 54.3856, 54.42544, 54.3671, 54.42063, 54.40553, 54.32934, 54.32793, 54.2991, 
  54.27851, 54.23939, 54.19889, 54.16525, 54.16319, 54.11443, 54.10894, 54.20507, 54.15356, 54.17004, 
  54.15082, 54.16387, 54.20162, 54.19545)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.27012, 80.25548, 80.2657, 80.26303, 80.25351, 80.24164, 80.23978, 80.23023, 80.22802, 80.21659, 
  80.22522, 80.22662, 80.24572, 80.24955, 80.25699, 80.26698, 80.28264, 80.28913, 80.30591, 80.31654, 
  80.31897, 80.31596, 80.31977, 80.32993, 80.33143, 80.31885, 80.30961, 80.29735, 80.29781, 80.28635, 
  80.28021, 80.2736)
LONGITUDE_VALUEs <- c(
  55.11484, 55.05581, 54.9549, 54.935, 54.95147, 54.94255, 55.02492, 55.04895, 55.01806, 55.132, 
  55.21506, 55.28645, 55.31945, 55.40319, 55.41623, 55.49525, 55.54261, 55.49868, 55.55704, 55.50625, 
  55.46575, 55.43829, 55.38681, 55.39917, 55.32636, 55.27763, 55.17665, 55.15744, 55.10458, 55.10664, 
  55.23088, 55.22744)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.37314, 80.37136, 80.37687, 80.3806, 80.39826, 80.40209, 80.41354, 80.4297, 80.43832, 80.43889, 
  80.4273, 80.41233, 80.41096, 80.41879, 80.41628, 80.40982, 80.39562, 80.39006, 80.38387, 80.37963)
LONGITUDE_VALUEs <- c(
  55.11492, 55.16468, 55.21513, 55.28137, 55.27215, 55.29823, 55.30441, 55.28518, 55.2869, 55.22855, 
  55.17261, 55.16055, 55.13722, 55.08265, 54.99616, 54.95429, 55.00951, 55.10046, 55.12518, 55.11283)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.85647, 80.84687, 80.83813, 80.83233, 80.83747, 80.82839, 80.82182, 80.80867, 80.7911, 80.77152, 
  80.7498, 80.71552, 80.65863, 80.63743, 80.64279, 80.61641, 80.61305, 80.59489, 80.58793, 80.56995, 
  80.56364, 80.55463, 80.51353, 80.50832, 80.5332, 80.54449, 80.55216, 80.53636, 80.5393, 80.55756, 
  80.55959, 80.55103, 80.51285, 80.48656, 80.45108, 80.44402, 80.46452, 80.47497, 80.50424, 80.50538, 
  80.48951, 80.53207, 80.54855, 80.5323, 80.54043, 80.52981, 80.5402, 80.55531, 80.56015, 80.56933, 
  80.5704, 80.57827, 80.59169, 80.59382, 80.60347, 80.61053, 80.59983, 80.58866, 80.58939, 80.58501, 
  80.59472, 80.63453, 80.64112, 80.65005, 80.68979, 80.6869, 80.68012, 80.68279, 80.67333, 80.67745, 
  80.67801, 80.69923, 80.704, 80.70854, 80.71176, 80.73356, 80.7423, 80.72859, 80.73489, 80.73047, 
  80.73356, 80.74395, 80.76061, 80.77306, 80.77163, 80.77472, 80.7724, 80.77571, 80.74892, 80.73224, 
  80.71464, 80.72759, 80.71109, 80.69934, 80.68523, 80.65897, 80.65094, 80.65774, 80.65607, 80.64692, 
  80.64123, 80.63565, 80.62872, 80.6248, 80.62961, 80.62866, 80.62083, 80.6215, 80.63145, 80.63788, 
  80.64475, 80.64603, 80.65652, 80.67489, 80.67723, 80.6909, 80.69612, 80.70666, 80.7204, 80.72062, 
  80.7371, 80.74473, 80.75002, 80.74793, 80.75289, 80.76458, 80.76965, 80.7789, 80.78467, 80.79407, 
  80.80752, 80.81382, 80.8131, 80.8074, 80.80723, 80.81096, 80.80526, 80.79697, 80.80542, 80.81934, 
  80.82099, 80.84063, 80.8427, 80.84757, 80.85117)
LONGITUDE_VALUEs <- c(
  47.46421, 47.36057, 47.37224, 47.31729, 47.18618, 47.19648, 47.12578, 47.19993, 47.16968, 47.01107, 
  46.95338, 46.53783, 46.17122, 45.79626, 45.60268, 45.23179, 45.00391, 44.90095, 45.00665, 45.10961, 
  45.31279, 45.42832, 45.51618, 45.58894, 45.6919, 45.67817, 45.75917, 45.83467, 45.88135, 45.91842, 
  46.0255, 46.12159, 46.12159, 46.05033, 46.04484, 46.27822, 46.39491, 46.29606, 46.40177, 46.47179, 
  46.57612, 46.52132, 46.6133, 46.71351, 46.79176, 46.8755, 46.91943, 46.87021, 46.91876, 46.91944, 
  46.97954, 46.97141, 47.00094, 47.06104, 47.05416, 47.10705, 47.22446, 47.2622, 47.32505, 47.38722, 
  47.43558, 47.30999, 47.33197, 47.27496, 47.29282, 47.35808, 47.39448, 47.4199, 47.48996, 47.51331, 
  47.5559, 47.54211, 47.50504, 47.52428, 47.4652, 47.43429, 47.48581, 47.58053, 47.57778, 47.6135, 
  47.64029, 47.57229, 47.54619, 47.62378, 47.65881, 47.68491, 47.76459, 47.82229, 47.90872, 47.8744, 
  47.88333, 48.03437, 48.02338, 48.05635, 48.03231, 48.11405, 48.25405, 48.35022, 48.41753, 48.46767, 
  48.46355, 48.48278, 48.47111, 48.51705, 48.53663, 48.57779, 48.62897, 48.698, 48.74162, 48.72477, 
  48.73026, 48.7598, 48.7609, 48.6689, 48.60295, 48.58853, 48.62974, 48.56245, 48.58374, 48.50063, 
  48.43194, 48.43886, 48.51511, 48.59273, 48.61196, 48.55701, 48.58311, 48.526, 48.53905, 48.51296, 
  48.36979, 48.34506, 48.22762, 48.23008, 48.14044, 48.11915, 48.0948, 47.96429, 47.87059, 47.84107, 
  47.77856, 47.6148, 47.55473, 47.541, 47.49772)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.09461, 80.10329, 80.11409, 80.1188, 80.1168, 80.12492, 80.12381, 80.12781, 80.12557, 80.09302, 
  80.07765, 80.07179, 80.07422, 80.1063, 80.14234, 80.14657, 80.15191, 80.15561, 80.1643, 80.16412, 
  80.17127, 80.17467, 80.17693, 80.18138, 80.18433, 80.19176, 80.19475, 80.19831, 80.1972, 80.20223, 
  80.19597, 80.18773, 80.18469, 80.17956, 80.17441, 80.16576, 80.15922, 80.14945, 80.14175, 80.1394, 
  80.14105, 80.13893, 80.1421, 80.14422, 80.14393, 80.14915, 80.16318, 80.16951, 80.15814, 80.15925, 
  80.17368, 80.19592, 80.18972, 80.19738, 80.19749, 80.20381, 80.20597, 80.21385, 80.23536, 80.23949, 
  80.23978, 80.24228, 80.24822, 80.25048, 80.25763, 80.26518, 80.27116, 80.27916, 80.28177, 80.27209, 
  80.27389, 80.27882, 80.27418, 80.27702, 80.30261, 80.32104, 80.32508, 80.32456, 80.32976, 80.32358, 
  80.32785, 80.36895, 80.38209, 80.37791, 80.36746, 80.37354, 80.3709, 80.37263, 80.37016, 80.36338, 
  80.34986, 80.3479, 80.37234, 80.40146, 80.41182, 80.42188, 80.4374, 80.45325, 80.471, 80.48712, 
  80.48383, 80.4945, 80.49677, 80.52088, 80.53309, 80.53591, 80.53038, 80.53297, 80.55486, 80.62827, 
  80.63006, 80.71508, 80.7434, 80.73544, 80.74428, 80.7594, 80.7637, 80.77428, 80.78429, 80.79802, 
  80.79824, 80.78967, 80.7888, 80.7594, 80.75576, 80.78781, 80.77791, 80.77041, 80.76507, 80.74852, 
  80.74852, 80.76815, 80.76854, 80.72292, 80.7227, 80.73829, 80.74812, 80.75121, 80.75188, 80.75938, 
  80.76224, 80.765, 80.76412, 80.77117, 80.76665, 80.77194, 80.78085, 80.78261, 80.78052, 80.7814, 
  80.80118, 80.80471, 80.80125, 80.80345, 80.80855, 80.8148, 80.81452, 80.81896, 80.81671, 80.82066, 
  80.82723, 80.83095, 80.83746, 80.84128, 80.83866, 80.84363, 80.85101, 80.8581, 80.9258, 80.93965, 
  80.94992, 80.94527, 80.91616, 80.89261, 80.87847, 80.87847, 80.86746, 80.85383, 80.85263, 80.8631, 
  80.86845, 80.87532, 80.87374, 80.87723, 80.88702, 80.8893, 80.8849, 80.89724, 80.89577, 80.90364, 
  80.9153, 80.91476, 80.91774, 80.92522, 80.93123, 80.92939, 80.92885, 80.94631, 80.94491, 80.94048, 
  80.93858, 80.93415, 80.93263, 80.91455, 80.90891, 80.88642, 80.88272, 80.87668, 80.87412, 80.86997, 
  80.86354, 80.85667, 80.84936, 80.83471, 80.82946, 80.81807, 80.81829, 80.79877, 80.7951, 80.79516, 
  80.78735, 80.78241, 80.77481, 80.78021, 80.7736, 80.76733, 80.75277, 80.74338, 80.73, 80.7186, 
  80.72458, 80.73785, 80.74227, 80.73785, 80.75287, 80.7511, 80.73774, 80.72403, 80.69865, 80.70275, 
  80.72369, 80.71484, 80.70174, 80.69208, 80.68697, 80.68797, 80.67619, 80.6743, 80.66194, 80.63985, 
  80.63862, 80.64465, 80.64544, 80.63483, 80.63449, 80.62667, 80.59564, 80.59003, 80.55257, 80.55234, 
  80.54012, 80.53922, 80.5225, 80.51368, 80.52883, 80.52341, 80.4883, 80.4858, 80.51006, 80.50417, 
  80.53425, 80.53787, 80.5487, 80.55185, 80.52883, 80.54328, 80.45829, 80.45032, 80.45124, 80.46853, 
  80.45716, 80.44622, 80.44235, 80.43588, 80.42637, 80.41197, 80.40236, 80.4114, 80.39864, 80.40488, 
  80.39623, 80.36249, 80.33924, 80.32502, 80.32756, 80.31902, 80.30631, 80.29566, 80.29983, 80.29254, 
  80.30052, 80.30122, 80.30631, 80.3092, 80.29265, 80.29254, 80.30446, 80.31255, 80.32355, 80.31986, 
  80.32713, 80.31483, 80.30946, 80.30692, 80.29685, 80.3009, 80.30518, 80.30744, 80.31362, 80.31755,
  80.32041, 80.32866, 80.33368, 80.34641, 80.37004, 80.38066, 80.36177, 80.32854, 80.32116, 80.29446, 
  80.22627, 80.22254, 80.21122, 80.20667, 80.19498, 80.17614, 80.1555, 80.16934, 80.17778, 80.18422, 
  80.18773, 80.17848, 80.19135, 80.20982, 80.22289, 80.23489, 80.2378, 80.23384, 80.2251, 80.22184, 
  80.23675, 80.23314, 80.24083, 80.23664, 80.23093, 80.23932, 80.25025, 80.2506, 80.2456, 80.24862, 
  80.2456, 80.22324, 80.22114, 80.21391, 80.21554, 80.20713, 80.1951, 80.1958, 80.17977, 80.17848, 
  80.16617, 80.16418, 80.16875, 80.16828, 80.16148, 80.1616, 80.16746, 80.16183, 80.12292, 80.08126, 
  80.06824, 80.05402, 80.04726, 80.06137, 80.06859, 80.07771, 80.08753, 80.08788)
LONGITUDE_VALUEs <- c(
  47.95941, 47.9951, 47.99064, 48.015, 48.03972, 48.08776, 48.10698, 48.16164, 48.26219, 48.31747, 
  48.29894, 48.32743, 48.35763, 48.46474, 48.48328, 48.44758, 48.44381, 48.4898, 48.46667, 48.41416, 
  48.38771, 48.42529, 48.40127, 48.40316, 48.44006, 48.42805, 48.43201, 48.47559, 48.49293, 48.51077, 
  48.58752, 48.60349, 48.5901, 48.59611, 48.62375, 48.63182, 48.69859, 48.73668, 48.80429, 48.85886, 
  48.8719, 48.90382, 48.93265, 48.92579, 48.91481, 48.86504, 48.86127, 48.90662, 48.99864, 49.04497, 
  49.10093, 49.06432, 48.96953, 48.92905, 48.90192, 48.89608, 48.86039, 48.8281, 48.984, 48.95377, 
  48.90672, 48.89092, 48.90535, 48.93626, 48.93935, 48.95618, 48.91703, 48.90467, 48.84048, 48.6973, 
  48.63759, 48.63244, 48.58848, 48.52975, 48.4271, 48.44256, 48.47859, 48.5308, 48.57648, 48.67016, 
  48.80273, 48.74605, 48.86759, 48.92392, 48.94006, 49.06673, 49.12711, 49.15493, 49.19408, 49.19751, 
  49.3661, 49.5446, 49.74031, 49.73173, 49.75651, 49.74277, 49.77024, 49.63907, 49.63221, 49.76478, 
  49.80531, 49.87469, 49.99541, 50.13485, 50.34767, 50.53722, 50.59561, 50.80841, 51.01657, 51.16766, 
  51.3696, 51.7967, 51.57819, 51.51637, 51.45455, 51.50194, 51.41608, 51.42165, 51.34609, 51.29595, 
  51.23894, 51.1875, 51.11194, 51.13461, 51.02269, 50.95197, 50.81734, 50.82041, 50.78607, 50.76067, 
  50.6985, 50.70814, 50.65902, 50.44591, 50.39715, 50.28999, 50.33535, 50.30238, 50.2385, 50.22338, 
  50.29345, 50.29618, 50.34358, 50.33465, 50.39647, 50.42601, 50.40815, 50.43013, 50.44043, 50.46442, 
  50.56883, 50.49323, 50.43759, 50.42763, 50.45065, 50.45305, 50.52033, 50.57219, 50.66286, 50.6975, 
  50.68342, 50.62779, 50.6278, 50.70095, 50.77025, 50.84203, 50.85611, 51.00619, 50.88605, 50.88745, 
  50.86547, 50.81464, 50.70549, 50.55102, 50.33946, 50.22612, 50.21453, 50.14516, 50.08746, 50.05311, 
  50.07853, 50.04932, 49.96586, 49.95624, 50.01395, 50.00364, 49.95659, 50.01497, 50.04038, 50.08469, 
  50.23334, 50.31851, 50.38644, 50.417, 50.41941, 50.39983, 50.34385, 50.21924, 50.1681, 50.14578, 
  50.10079, 50.08258, 50.03244, 49.90888, 49.78803, 49.752, 49.73072, 49.72728, 49.69294, 49.6968, 
  49.66864, 49.66383, 49.63707, 49.48801, 49.50659, 49.41386, 49.33693, 49.22097, 49.17453, 49.13778, 
  49.0918, 49.00251, 48.99736, 49.08597, 49.15875, 49.16321, 49.13368, 48.96277, 48.98061, 49.08296, 
  49.11868, 49.09938, 49.13373, 49.21547, 49.28344, 49.31573, 49.29923, 49.20237, 49.18934, 49.34114, 
  49.60479, 49.64119, 49.63776, 49.5883, 49.60066, 49.65905, 49.6247, 49.69133, 49.6831, 49.61237, 
  49.51071, 49.46953, 49.40771, 49.35623, 49.27518, 49.26763, 49.44343, 49.21819, 49.22918, 49.16255, 
  49.15857, 49.22451, 49.22039, 49.1545, 48.90323, 48.84278, 48.8634, 48.73289, 48.65046, 48.53506, 
  48.56399, 48.48569, 48.47745, 48.31946, 48.18895, 48.07493, 47.41998, 47.43509, 47.6178, 47.83486, 
  48.21519, 48.20008, 48.14765, 48.14359, 48.25084, 48.3058, 48.28189, 48.04598, 47.99521, 47.78575, 
  47.61137, 47.69061, 48.17667, 48.15322, 47.91487, 47.92793, 48.09484, 48.05777, 47.91559, 47.8785, 
  47.83591, 47.78932, 47.79619, 47.69247, 47.64096, 47.57708, 47.54754, 47.56952, 47.54789, 47.50565, 
  47.46753, 47.39128, 47.38823, 47.35423, 47.33225, 47.23334, 47.22825, 47.19631, 47.19803, 47.22756,
  47.22019, 47.27206, 47.24941, 47.32905, 47.31601, 47.22777, 47.01938, 46.93697, 46.77939, 46.71645, 
  47.00964, 47.06318, 47.06867, 46.98151, 46.92935, 46.97263, 47.16002, 47.2314, 47.19159, 47.20541, 
  47.27611, 47.44017, 47.48753, 47.31936, 47.31865, 47.35846, 47.42505, 47.46417, 47.46486, 47.51085, 
  47.50536, 47.59679, 47.63454, 47.72034, 47.74848, 47.83291, 47.81918, 47.8638, 47.88027, 48.00257, 
  48.1172, 48.06984, 47.96892, 47.96755, 47.93529, 47.85841, 47.84948, 48.19759, 48.1969, 48.06027, 
  48.07743, 48.03576, 48.00348, 47.97944, 47.97806, 47.90113, 47.88602, 47.8503, 47.79402, 47.66907, 
  47.69724, 47.689, 47.72815, 47.82775, 48.01939, 48.04127, 48.00349, 47.96915)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(81.11196, 81.11816, 81.13088, 81.14753, 81.1368, 81.12855, 81.12865, 81.12664)
LONGITUDE_VALUEs <- c(58.23061, 58.52478, 58.56391, 58.4084, 58.29235, 58.23227, 58.14373, 58.12382)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  81.05956, 81.05876, 81.05203, 81.05155, 81.06249, 81.08013, 81.09194, 81.10251, 81.10177, 81.0947, 
  81.0805, 81.07054)
LONGITUDE_VALUEs <- c(
  58.50353, 58.52995, 58.56565, 58.65286, 58.76581, 58.78435, 58.80494, 58.64806, 58.52136, 58.50454, 
  58.51346, 58.52788)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.57169, 80.56471, 80.57574, 80.59023, 80.59826, 80.61451, 80.61715, 80.61952, 80.61679, 80.61264, 
  80.61029, 80.60893, 80.61017, 80.60501, 80.60341, 80.58167, 80.57816, 80.57282)
LONGITUDE_VALUEs <- c(
  58.69028, 58.77471, 58.78398, 58.75653, 58.76547, 58.83466, 58.85271, 58.85366, 58.81994, 58.81932, 
  58.80636, 58.75074, 58.67693, 58.64097, 58.59875, 58.52637, 58.57736, 58.61271)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.15379, 80.15303, 80.1481, 80.14821, 80.14492, 80.14904, 80.17086, 80.19188, 80.1965, 80.19574, 
  80.18825, 80.18392, 80.18925, 80.18995, 80.17977, 80.17227, 80.17092)
LONGITUDE_VALUEs <- c(
  60.00213, 60.02204, 60.07214, 60.13289, 60.18408, 60.24517, 60.21668, 60.11746, 60.0639, 60.01722, 
  60.02202, 59.97192, 59.94034, 59.91803, 59.91904, 59.93929, 59.97738)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  80.31833, 80.31637, 80.31764, 80.32133, 80.3241, 80.32751, 80.32854, 80.33598, 80.33846, 80.342, 
  80.34684, 80.35277, 80.35587, 80.35372, 80.35553, 80.35297, 80.35185, 80.34762, 80.34695, 80.33944, 
  80.32999, 80.31816)
LONGITUDE_VALUEs <- c(
  52.43869, 52.49463, 52.55956, 52.59903, 52.65566, 52.64605, 52.53966, 52.50207, 52.47478, 52.4674, 
  52.43273, 52.42448, 52.40973, 52.37197, 52.32441, 52.30983, 52.25797, 52.26054, 52.24407, 52.24957, 
  52.28546, 52.36717)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  79.94572, 79.945, 79.94773, 79.94635, 79.94368, 79.94671, 79.95201, 79.96782, 79.96949, 79.97239, 
  79.98323, 79.9852, 79.98114, 79.97636, 79.97587, 79.97275, 79.97275, 79.96207, 79.9566, 79.94929)
LONGITUDE_VALUEs <- c(
  50.08441, 50.1383, 50.16644, 50.23444, 50.26292, 50.27565, 50.27857, 50.33349, 50.35546, 50.32869, 
  50.30293, 50.26911, 50.19189, 50.1687, 50.15094, 50.13601, 50.07961, 50.03463, 50.03806, 50.08097)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_6 <- st_union(Geo_6, Geo_0) %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))
if (st_is_valid(Geo_6) == FALSE) {Geo_6 <- st_make_valid(Geo_6)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>%
  filter(!NAME %in% c(
    "PITCAIRN", "COCOS (KEELING) ISLANDS", "CHRISTMAS ISLAND",
      "NORFOLK ISLAND", "SVALBARD AND JAN MAYEN", "RUSSIAN FEDERATION"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3, Geo_4, Geo_5, Geo_6)

For statistical reasons, certain areas are often combined in UNITED STATES MINOR OUTLYING ISLANDS:

  • Northwestern Hawaiian Islands (in North Pacific Ocean) \(\Rightarrow\) MIDWAY ATOLL
  • Scattered Isolated Islands (in North Pacific Ocean) \(\Rightarrow\) WAKE ISLAND | JOHNSTON ATOLL
  • Northern Line Islands (in North Pacific Ocean) \(\Rightarrow\) KINGMAN REEF | PALMYRA ATOLL
  • Northern Phoenix Islands (in North Pacific Ocean) \(\Rightarrow\) HOWLAND ISLAND | BAKER ISLAND
  • Central Line Islands (in South Pacific Ocean) \(\Rightarrow\) JARVIS ISLAND
  • Greater Antilles (in Caribbean Sea) \(\Rightarrow\) NAVASSA ISLAND

We create our own Geometries for 7/9 Areas:

  • MIDWAY ATOLL | WAKE ISLAND | JOHNSTON ATOLL
  • KINGMAN REEF | PALMYRA ATOLL | JARVIS ISLAND | NAVASSA ISLAND

We take Geometries from Global Administrative Areas (GADM) for 2/9 Areas (HOWLAND ISLAND | BAKER ISLAND).

##### UNITED STATES MINOR OUTLYING ISLANDS #####
LATITUDE_VALUEs <- c(
  28.2568, 28.24492, 28.2215, 28.20967, 28.20365, 28.1984, 28.19337, 28.19178, 28.19193, 28.19427,
  28.19881, 28.19904, 28.20135, 28.20169, 28.2021, 28.20347, 28.2029, 28.20418, 28.20551, 28.2088,
  28.21363, 28.21896, 28.22581, 28.23439, 28.23866, 28.24579, 28.25341, 28.25673, 28.25985, 28.26371,
  28.26832, 28.27333, 28.27603, 28.27904, 28.27855, 28.27401, 28.26638)
LONGITUDE_VALUEs <- c(
  -177.406, -177.4142, -177.4228, -177.4241, -177.4215, -177.417, -177.4079, -177.4004, -177.3945, -177.3854,
  -177.375, -177.3686, -177.357, -177.3479, -177.3403, -177.3384, -177.3353, -177.3273, -177.3222, -177.3168,
  -177.3148, -177.3142, -177.3149, -177.317, -177.3187, -177.3225, -177.3271, -177.3293, -177.3339, -177.336,
  -177.3403, -177.3456, -177.3502, -177.3619, -177.3742, -177.3863, -177.3937)
MGeo_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  19.30351, 19.30305, 19.30063, 19.29943, 19.29855, 19.29698, 19.29597, 19.28979, 19.28952, 19.28868, 
  19.28868, 19.28518, 19.28258, 19.28185, 19.27972, 19.27437, 19.274, 19.27174, 19.27135, 19.26996, 
  19.27016, 19.27048, 19.27074, 19.27843, 19.28838, 19.29037, 19.29186, 19.29599, 19.29977, 19.30264, 
  19.30672, 19.30867, 19.3094, 19.30982, 19.30979, 19.30898, 19.30752, 19.30736, 19.30856, 19.30856, 
  19.30938, 19.31059, 19.31177, 19.31354, 19.31406, 19.31596, 19.31582, 19.31613, 19.31721, 19.31869, 
  19.31866, 19.31844)
LONGITUDE_VALUEs <- c(
  166.6009, 166.6004, 166.5991, 166.5992, 166.5998, 166.6017, 166.6036, 166.6129, 166.6138, 166.614, 
  166.6151, 166.6191, 166.6275, 166.6284, 166.6353, 166.6461, 166.6473, 166.652, 166.6534, 166.6559, 
  166.6574, 166.6574, 166.6568, 166.654, 166.6535, 166.6532, 166.6526, 166.6502, 166.6486, 166.648, 
  166.6483, 166.6478, 166.6471, 166.6453, 166.643, 166.6391, 166.6365, 166.6347, 166.6334, 166.6315, 
  166.6312, 166.6298, 166.6276, 166.6252, 166.6242, 166.6213, 166.6207, 166.6196, 166.6186, 166.6159, 
  166.6147, 166.6146)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  16.70325, 16.70222, 16.70189, 16.70608, 16.71492, 16.71578, 16.7053, 16.72618, 16.72343, 16.727,
  16.72988, 16.73206, 16.74036, 16.7494, 16.76296, 16.76773, 16.77364, 16.78108, 16.78568, 16.78342,
  16.77262, 16.76717, 16.72955, 16.71656)
LONGITUDE_VALUEs <- c(
  -169.5584, -169.5576, -169.5505, -169.5438, -169.5467, -169.5436, -169.529, -169.5176, -169.5123, -169.5074,
  -169.4929, -169.4921, -169.4744, -169.4634, -169.4508, -169.4449, -169.4456, -169.4507, -169.4761, -169.486,
  -169.5026, -169.5203, -169.5526, -169.5582)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  6.45399, 6.45416, 6.45092, 6.43156, 6.42781, 6.42086, 6.41792, 6.41549, 6.40917, 6.40606,
  6.40448, 6.40299, 6.39804, 6.39506, 6.39173, 6.3873, 6.38512, 6.38179, 6.38034, 6.37851,
  6.37881, 6.378, 6.38107, 6.38235, 6.38196, 6.37923, 6.38047, 6.38175, 6.38175, 6.38346,
  6.38755, 6.39455, 6.4018, 6.41212, 6.42107, 6.43408, 6.44419, 6.45229)
LONGITUDE_VALUEs <- c(
  -162.4052, -162.4103, -162.4145, -162.4298, -162.4343, -162.4388, -162.4401, -162.4493, -162.4586, -162.4677,
  -162.4701, -162.4709, -162.4769, -162.4788, -162.4799, -162.4789, -162.4765, -162.4697, -162.4577, -162.4419,
  -162.4289, -162.4205, -162.4029, -162.3986, -162.3801, -162.3642, -162.3566, -162.3531, -162.3434, -162.3374,
  -162.3336, -162.3341, -162.3401, -162.3483, -162.3609, -162.3794, -162.3926, -162.4024)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  5.87304, 5.87394, 5.87417, 5.87419, 5.87301, 5.87214, 5.87181, 5.87156, 5.87118, 5.87115,
  5.87093, 5.87098, 5.87081, 5.87104, 5.87086, 5.87113, 5.87221, 5.87217, 5.87334, 5.87327,
  5.87295, 5.87299, 5.8732, 5.86975, 5.8705, 5.87181, 5.87294, 5.87407, 5.8766, 5.87953,
  5.88051, 5.88113, 5.8813, 5.88125, 5.88162, 5.88454, 5.88517, 5.88509, 5.88582, 5.88662,
  5.88697, 5.88676, 5.88615, 5.88673, 5.88646, 5.8865, 5.88693, 5.88731, 5.88778, 5.88882,
  5.88966, 5.89014, 5.89013, 5.88968, 5.89058, 5.89154, 5.89277, 5.89312, 5.89246, 5.89185,
  5.89104, 5.89025, 5.88943, 5.8891, 5.88931, 5.88984, 5.8901, 5.89025, 5.89064, 5.89135,
  5.8912, 5.89063, 5.89092, 5.89064, 5.89026, 5.88956, 5.88816, 5.88755, 5.88578, 5.88564,
  5.8859, 5.88507, 5.88415, 5.88387, 5.88051, 5.87753, 5.87417, 5.87329, 5.8738, 5.8737,
  5.87518, 5.87675, 5.87257, 5.87355, 5.87397, 5.87458, 5.87333, 5.8733, 5.87382, 5.87392,
  5.87357, 5.87318)
LONGITUDE_VALUEs <- c(
  -162.0885, -162.0845, -162.082, -162.0785, -162.0728, -162.0692, -162.0663, -162.0659, -162.066, -162.0655,
  -162.0653, -162.064, -162.0632, -162.0617, -162.0604, -162.0601, -162.0599, -162.0594, -162.0589, -162.0583,
  -162.0581, -162.0577, -162.0576, -162.0447, -162.0447, -162.0463, -162.0468, -162.0468, -162.0457, -162.0437,
  -162.0419, -162.0402, -162.0403, -162.0404, -162.0412, -162.0493, -162.0495, -162.0505, -162.0518, -162.0527,
  -162.0538, -162.0548, -162.0557, -162.0563, -162.0576, -162.0595, -162.0596, -162.0593, -162.0594, -162.0603,
  -162.0614, -162.0625, -162.0637, -162.0642, -162.0647, -162.0665, -162.0697, -162.0727, -162.0769, -162.0772,
  -162.0803, -162.0812, -162.0816, -162.0837, -162.0854, -162.087, -162.0871, -162.0874, -162.0876, -162.089,
  -162.0911, -162.0932, -162.0994, -162.0998, -162.0997, -162.1002, -162.1005, -162.0987, -162.1002, -162.1005,
  -162.1017, -162.1017, -162.103, -162.1041, -162.1044, -162.1034, -162.1085, -162.1079, -162.1076, -162.106,
  -162.1056, -162.103, -162.0975, -162.0958, -162.0957, -162.0949, -162.0933, -162.0919, -162.0906, -162.0893,
  -162.0887, -162.0887)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -0.36298, -0.36717, -0.3695, -0.37222, -0.37744, -0.37855, -0.37964, -0.38021, -0.38106, -0.38157,
  -0.38169, -0.38173, -0.38174, -0.382, -0.38213, -0.38119, -0.38102, -0.37851, -0.37543, -0.37379,
  -0.37126, -0.36772, -0.36519, -0.36432, -0.36344, -0.36265, -0.36173, -0.36195, -0.36254)
LONGITUDE_VALUEs <- c(
  -160.0048, -160.0067, -160.0085, -160.0113, -160.0152, -160.0155, -160.0155, -160.0151, -160.0138, -160.011,
  -160.007, -159.9981, -159.9908, -159.9852, -159.9809, -159.9763, -159.9728, -159.9714, -159.9724, -159.9736,
  -159.9768, -159.98, -159.9843, -159.9867, -159.9898, -159.9931, -159.999, -160.0031, -160.0043)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  18.39578, 18.39199, 18.39118, 18.39432, 18.39802, 18.40051, 18.40431, 18.40635, 18.41132, 18.41134,
  18.41398, 18.41267, 18.41056, 18.40336, 18.39983, 18.39638)
LONGITUDE_VALUEs <- c(
  -75.01892, -75.01276, -75.00806, -75.0024, -75.00223, -75.00285, -75.00195, -75.00268, -75.00671, -75.01283,
  -75.02858, -75.02968, -75.0291, -75.02346, -75.02146, -75.01878)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
MGeo_1 <- MGeo_1 %>% 
  mutate(NAME = "UNITED STATES MINOR OUTLYING ISLANDS", 
         VISUALIZATION_NAME = "United States Minor Outlying Islands", 
         ISO2 = "UM", ISO3 = "UMI", M49_CODE = "581", 
         SOVRN = "United States of America", CONTINENT = "OCEANIA", 
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "UNITED STATES OF AMERICA")

##### COUNTRIE(s) from Global Administrative Areas (GADM) #####
Geo_0 <- GeoDATA_from_GADM_level_0_low_resolution %>% filter(NAME == "United States Minor Outlying Islands")

##### UNITED STATES MINOR OUTLYING ISLANDS #####
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_0 <- st_union(Geo_0[c(12:13), ])
MGeo_1 <- st_union(MGeo_1, Geo_0) %>% 
  mutate(SOURCE = paste(SOURCE, "and Global Administrative Areas (GADM)"))
if (st_is_valid(MGeo_1) == FALSE) {MGeo_1 <- st_make_valid(MGeo_1)}

##### UNITED STATES OF AMERICA #####
Geo_0 <- st_cast(Geo_1, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_union(Geo_0[c(1:2, 14:24, 26:28, 30, 32:238), ]))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
LATITUDE_VALUEs <- c(
  28.45466, 28.45496, 28.45073, 28.43836, 28.4296, 28.41798, 28.40726, 28.39246, 28.38853, 28.38521, 
  28.38521, 28.38974, 28.40348, 28.42235, 28.43292, 28.44228, 28.45119, 28.45541)
LONGITUDE_VALUEs <- c(
  -178.3275, -178.3325, -178.3459, -178.3631, -178.3711, -178.3739, -178.3687, -178.3584, -178.3505, -178.3234, 
  -178.3013, -178.2872, -178.2839, -178.2862, -178.2896, -178.2961, -178.3083, -178.3188)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  26.0618, 26.05771, 26.05646, 26.05578, 26.05415, 26.05372, 26.05386, 26.05573, 26.05761, 26.05872, 
  26.06046, 26.06156, 26.06291, 26.06372, 26.06482, 26.06548, 26.06726, 26.0691, 26.06964, 26.07069, 
  26.07153, 26.07135, 26.06942, 26.06833, 26.06599, 26.06486, 26.06383)
LONGITUDE_VALUEs <- c(
  -173.9692, -173.968, -173.966, -173.9637, -173.9611, -173.9609, -173.9604, -173.9606, -173.9606, -173.961, 
  -173.9612, -173.9611, -173.9613, -173.961, -173.9609, -173.9614, -173.9621, -173.9634, -173.9642, -173.9651, 
  -173.968, -173.9701, -173.9722, -173.9724, -173.9715, -173.9706, -173.9705)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  25.76082, 25.75852, 25.75634, 25.75792, 25.76395, 25.76788, 25.77342, 25.77473, 25.77651, 25.77817, 
  25.78049, 25.78119, 25.78211, 25.78167, 25.78258, 25.78231, 25.78018, 25.77942, 25.77931, 25.77832, 
  25.77752, 25.7747, 25.77155, 25.76332, 25.76189)
LONGITUDE_VALUEs <- c(
  -171.7429, -171.7405, -171.7391, -171.7308, -171.727, -171.7264, -171.7241, -171.7225, -171.7225, -171.7219, 
  -171.7232, -171.7257, -171.7272, -171.7284, -171.7309, -171.7323, -171.7344, -171.7361, -171.7379, -171.7404, 
  -171.7409, -171.7398, -171.742, -171.7418, -171.7428)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(25.50476, 25.50431, 25.49901, 25.49655, 25.49413, 25.49456, 25.49666, 25.49873, 25.5015)
LONGITUDE_VALUEs <- c(-170.6259, -170.6264, -170.6235, -170.6238, -170.624, -170.6228, -170.6228, -170.6223, -170.6236)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  24.99832, 24.99822, 24.99785, 24.99741, 24.99742, 24.99749, 24.99784, 24.99817, 24.99828, 24.99913, 
  24.9999, 24.99982, 24.99936, 24.99885)
LONGITUDE_VALUEs <- c(
  -167.9991, -167.9991, -167.9994, -167.9995, -167.9994, -167.9994, -167.9986, -167.9985, -167.9984, -167.9984, 
  -167.999, -167.9993, -167.9995, -167.9994)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  23.57669, 23.57659, 23.57651, 23.5755, 23.57514, 23.57515, 23.57494, 23.57434, 23.57433, 23.57413, 
  23.574, 23.57431, 23.57435, 23.57445, 23.57445, 23.57425, 23.57431, 23.57415, 23.57433, 23.57466, 
  23.57482, 23.57496, 23.57516, 23.57542, 23.57544, 23.57529, 23.57556, 23.57546, 23.57583, 23.57602, 
  23.57552, 23.57587, 23.57551, 23.57633, 23.57607, 23.57663, 23.57691, 23.57763, 23.57783, 23.57795, 
  23.5782, 23.57821, 23.57872, 23.57898, 23.57831, 23.57777, 23.57681, 23.57681)
LONGITUDE_VALUEs <- c(
  -164.7063, -164.7062, -164.7058, -164.7036, -164.7034, -164.7031, -164.7031, -164.702, -164.7017, -164.7014, 
  -164.6996, -164.6985, -164.6976, -164.6974, -164.697, -164.6967, -164.6965, -164.6961, -164.6947, -164.6947, 
  -164.6952, -164.6953, -164.6958, -164.6959, -164.6964, -164.6971, -164.6976, -164.6979, -164.698, -164.6985, 
  -164.6992, -164.7003, -164.7014, -164.7024, -164.7034, -164.7038, -164.7034, -164.7034, -164.703, -164.703, 
  -164.7025, -164.7022, -164.7016, -164.7019, -164.7041, -164.7038, -164.7053, -164.7062)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  23.0561, 23.05643, 23.05673, 23.05811, 23.05876, 23.05848, 23.05823, 23.05845, 23.05884, 23.05935, 
  23.05941, 23.0597, 23.05809, 23.05804, 23.05864, 23.05885, 23.05799, 23.05783, 23.05737, 23.05715, 
  23.05779, 23.05867, 23.05891, 23.05901, 23.05981, 23.05981, 23.05964, 23.05969, 23.05988, 23.06011, 
  23.06021, 23.06049, 23.0611, 23.06139, 23.06136, 23.06146, 23.06153, 23.06169, 23.06187, 23.06198, 
  23.06247, 23.06211, 23.0622, 23.06205, 23.06213, 23.06201, 23.06214, 23.06209, 23.06234, 23.06234, 
  23.06288, 23.06373, 23.0644, 23.06475, 23.0643, 23.06184, 23.06119, 23.05988, 23.05971, 23.05954, 
  23.05851, 23.05785, 23.05755, 23.0574, 23.05727, 23.057, 23.05679, 23.05654, 23.05625, 23.0561, 
  23.05593, 23.05566)
LONGITUDE_VALUEs <- c(
  -161.9252, -161.9248, -161.9248, -161.9257, -161.9255, -161.9244, -161.9241, -161.924, -161.9231, -161.923, 
  -161.9226, -161.9225, -161.9215, -161.9202, -161.9198, -161.9194, -161.9191, -161.9187, -161.9191, -161.9184, 
  -161.9175, -161.9161, -161.9154, -161.9143, -161.9135, -161.9138, -161.9143, -161.9147, -161.9148, -161.9148, 
  -161.9149, -161.9149, -161.9154, -161.9152, -161.915, -161.915, -161.9149, -161.915, -161.9149, -161.9152, 
  -161.9153, -161.9163, -161.9197, -161.92, -161.9202, -161.9205, -161.9209, -161.9213, -161.9219, -161.9225, 
  -161.9241, -161.9255, -161.9281, -161.9288, -161.9288, -161.9281, -161.9283, -161.9276, -161.9278, -161.9277, 
  -161.9278, -161.9273, -161.9268, -161.9268, -161.9266, -161.9265, -161.9263, -161.9262, -161.9258, -161.9258, 
  -161.9256, -161.9254)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  21.66023, 21.65914, 21.65921, 21.65876, 21.65775, 21.65738, 21.65705, 21.65686, 21.65527, 21.65473, 
  21.6545, 21.65449, 21.654, 21.65336, 21.65269, 21.65064, 21.64982, 21.64917, 21.64917, 21.64948, 
  21.6496, 21.65005, 21.6501, 21.65048, 21.6508, 21.65111, 21.65358, 21.65606, 21.6567, 21.65687, 
  21.6572, 21.65722, 21.65748, 21.65752, 21.65778, 21.65778, 21.65848, 21.659)
LONGITUDE_VALUEs <- c(
  -160.5401, -160.5411, -160.5413, -160.5418, -160.5422, -160.5428, -160.5429, -160.5433, -160.5435, -160.5438, 
  -160.5442, -160.5446, -160.5451, -160.5453, -160.5452, -160.5439, -160.5423, -160.5404, -160.5393, -160.5381, 
  -160.5369, -160.5366, -160.5372, -160.538, -160.5383, -160.5392, -160.5408, -160.5405, -160.5402, -160.5397, 
  -160.5395, -160.5392, -160.5392, -160.5387, -160.5385, -160.5382, -160.5383, -160.5377)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  22.02222, 22.01724, 22.01665, 22.01569, 22.01581, 22.01568, 22.01502, 22.0152, 22.01768, 22.02077, 
  22.02235, 22.02307, 22.02469, 22.02479, 22.02537, 22.02536, 22.0259, 22.02607, 22.02676, 22.02624, 
  22.02589, 22.0249, 22.02334, 22.02209, 22.02129, 22.02119, 22.02173, 22.023, 22.02272, 22.0243, 
  22.02577, 22.02721, 22.02834, 22.02878, 22.02892, 22.02862, 22.02767, 22.02738, 22.02703, 22.02658, 
  22.02625, 22.02573, 22.02526, 22.02448)
LONGITUDE_VALUEs <- c(
  -160.1012, -160.1021, -160.1027, -160.1019, -160.1013, -160.1008, -160.0997, -160.0951, -160.0912, -160.0885, 
  -160.0879, -160.0878, -160.0882, -160.0884, -160.0887, -160.0891, -160.0894, -160.0901, -160.0913, -160.0915, 
  -160.0913, -160.0913, -160.0919, -160.0928, -160.0941, -160.0959, -160.0978, -160.0992, -160.0993, -160.1005, 
  -160.1008, -160.1004, -160.0998, -160.0999, -160.1002, -160.1007, -160.1013, -160.1012, -160.1017, -160.1017, 
  -160.1019, -160.1019, -160.1017, -160.1018)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  21.77906, 21.77955, 21.78272, 21.78465, 21.78588, 21.78736, 21.78882, 21.78955, 21.79269, 21.79317, 
  21.7959, 21.79823, 21.79946, 21.80249, 21.80402, 21.8074, 21.81148, 21.81294, 21.81666, 21.81851, 
  21.82097, 21.83824, 21.83848, 21.83945, 21.84149, 21.8431, 21.8477, 21.85002, 21.85009, 21.85113, 
  21.85153, 21.8569, 21.86469, 21.86761, 21.87136, 21.87275, 21.87345, 21.87205, 21.87285, 21.87271, 
  21.87404, 21.87424, 21.87777, 21.87781, 21.876, 21.87641, 21.87739, 21.87653, 21.87799, 21.87954, 
  21.87856, 21.88119, 21.87833, 21.88575, 21.88348, 21.88962, 21.88991, 21.89135, 21.89441, 21.89419, 
  21.89533, 21.89491, 21.89601, 21.90045, 21.90301, 21.91574, 21.92696, 21.94245, 21.94627, 21.95435, 
  21.95835, 21.95937, 21.96, 21.96094, 21.96127, 21.96153, 21.96153, 21.96224, 21.9631, 21.96353, 
  21.96589, 21.96894, 21.97193, 21.97461, 21.97647, 21.97745, 21.97745, 21.97688, 21.97612, 21.97687, 
  21.97841, 21.9793, 21.98088, 21.9819, 21.98755, 21.9887, 21.99069, 21.99129, 21.99332, 21.99533, 
  21.99582, 21.99691, 21.99615, 21.99679, 21.99888, 21.99944, 21.99923, 22.0004, 22.00151, 22.00143, 
  22.00238, 22.00205, 22.001, 22.0006, 22.00022, 21.99958, 21.99958, 21.99871, 21.99941, 21.9984, 
  21.99872, 21.99848, 21.99894, 21.99955, 21.99902, 21.99978, 22.00097, 22.00191, 22.00235, 22.00346, 
  22.00327, 22.00461, 22.00459, 22.00519, 22.00466, 22.00539, 22.00505, 22.00347, 22.00183, 22.00077, 
  21.9995, 21.99944, 21.99857, 21.99839, 21.9973, 21.99606, 21.996, 21.99699, 21.99752, 21.99715,
  21.99792, 21.99656, 21.99481, 21.99444, 21.99414, 21.99477, 21.9942, 21.99313, 21.99242, 21.99128, 
  21.99021, 21.98953, 21.98915, 21.98841, 21.9874, 21.98631, 21.98403, 21.98325, 21.98192, 21.97834, 
  21.9767, 21.97326, 21.97108, 21.96391, 21.96248, 21.96053, 21.95443, 21.94699, 21.93998, 21.93931, 
  21.93649, 21.93581, 21.93493, 21.93525, 21.93433, 21.93265, 21.93068, 21.92767, 21.92751, 21.92771, 
  21.92712, 21.92696, 21.92617, 21.92575, 21.92601, 21.92506, 21.9241, 21.92224, 21.91732, 21.916, 
  21.91475, 21.91133, 21.90892, 21.90758, 21.90496, 21.903, 21.90267, 21.90086, 21.89991, 21.89906, 
  21.89405, 21.89316, 21.89118, 21.88994, 21.89031, 21.88682, 21.88528, 21.87933, 21.8766, 21.87597, 
  21.87388, 21.87245, 21.86955, 21.86857, 21.86744, 21.86478, 21.86004, 21.84961, 21.84672, 21.84539, 
  21.84384, 21.84215, 21.84064, 21.84041, 21.83904, 21.83658, 21.83533, 21.83392, 21.83393, 21.83259, 
  21.83109, 21.82952, 21.81537, 21.81362, 21.81355, 21.80996, 21.80753, 21.80646, 21.80469, 21.8052, 
  21.80517, 21.8023, 21.79766, 21.79495, 21.79176, 21.79037, 21.79108, 21.79165, 21.79167, 21.7907, 
  21.78768, 21.78686, 21.78239, 21.78248, 21.78192, 21.78256, 21.78163, 21.78432, 21.78382, 21.78069, 
  21.78014)
LONGITUDE_VALUEs <- c(
  -160.2036, -160.2021, -160.201, -160.1985, -160.1984, -160.2027, -160.2028, -160.2015, -160.2012, -160.2007, 
  -160.1999, -160.1984, -160.1964, -160.1941, -160.1923, -160.1942, -160.1915, -160.1913, -160.1897, -160.1878, 
  -160.1873, -160.1758, -160.1733, -160.1743, -160.1731, -160.1732, -160.1704, -160.1684, -160.1673, -160.1668, 
  -160.1679, -160.165, -160.1589, -160.155, -160.1457, -160.145, -160.1404, -160.1401, -160.1384, -160.1357, 
  -160.1329, -160.1284, -160.1273, -160.1253, -160.1245, -160.1227, -160.1222, -160.1196, -160.1157, -160.1148, 
  -160.1134, -160.1109, -160.1074, -160.0993, -160.0964, -160.0888, -160.0843, -160.0838, -160.0802, -160.079, 
  -160.078, -160.0758, -160.0736, -160.0745, -160.0736, -160.0801, -160.0831, -160.0794, -160.0776, -160.0762, 
  -160.0726, -160.0703, -160.0705, -160.0701, -160.0695, -160.0697, -160.0702, -160.0704, -160.0698, -160.07, 
  -160.0696, -160.0679, -160.0646, -160.0639, -160.0626, -160.0606, -160.0594, -160.0582, -160.058, -160.0536, 
  -160.0528, -160.0504, -160.0504, -160.0497, -160.0515, -160.0525, -160.0526, -160.0544, -160.0546, -160.0562, 
  -160.0578, -160.0582, -160.0605, -160.0618, -160.0619, -160.063, -160.0645, -160.0669, -160.0673, -160.0683, 
  -160.0687, -160.0711, -160.0712, -160.0717, -160.0714, -160.0719, -160.0744, -160.0749, -160.0777, -160.0804, 
  -160.0811, -160.0822, -160.0836, -160.0838, -160.0847, -160.0863, -160.087, -160.087, -160.0876, -160.0875, 
  -160.0881, -160.0881, -160.0897, -160.0901, -160.0911, -160.0921, -160.0926, -160.0924, -160.0931, -160.094, 
  -160.0958, -160.0963, -160.0968, -160.098, -160.0984, -160.0998, -160.1013, -160.1031, -160.1034, -160.1041,
  -160.1053, -160.1052, -160.1073, -160.1072, -160.1082, -160.1087, -160.1105, -160.1105, -160.1111, -160.1108, 
  -160.1115, -160.1111, -160.1113, -160.1101, -160.1102, -160.111, -160.1146, -160.1138, -160.1135, -160.1142, 
  -160.114, -160.1149, -160.1172, -160.1198, -160.1196, -160.1204, -160.1256, -160.136, -160.1544, -160.161, 
  -160.1643, -160.1643, -160.1637, -160.1633, -160.1634, -160.1649, -160.1677, -160.175, -160.1762, -160.177, 
  -160.1776, -160.1788, -160.1801, -160.1836, -160.1845, -160.1876, -160.1871, -160.1875, -160.1921, -160.1956, 
  -160.1974, -160.1989, -160.2014, -160.202, -160.2042, -160.2065, -160.2083, -160.209, -160.2107, -160.2107, 
  -160.2173, -160.2194, -160.2222, -160.2248, -160.2258, -160.2269, -160.2291, -160.229, -160.231, -160.233, 
  -160.2325, -160.2334, -160.2331, -160.2339, -160.2327, -160.2324, -160.2339, -160.2415, -160.2454, -160.2452, 
  -160.246, -160.2456, -160.2469, -160.2444, -160.2438, -160.244, -160.2457, -160.2456, -160.2444, -160.2437, 
  -160.2437, -160.245, -160.2468, -160.2457, -160.2431, -160.2415, -160.2421, -160.2437, -160.2425, -160.2413, 
  -160.2398, -160.2355, -160.233, -160.2324, -160.2332, -160.2299, -160.2295, -160.2277, -160.2248, -160.223, 
  -160.2211, -160.2181, -160.2147, -160.2133, -160.2116, -160.2101, -160.2089, -160.2072, -160.2063, -160.2054, 
  -160.2044)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  21.21756, 21.21618, 21.21402, 21.21254, 21.21024, 21.20873, 21.20828, 21.20747, 21.20708, 21.20725, 
  21.20571, 21.2057, 21.20442, 21.20338, 21.20312, 21.20234, 21.20132, 21.1965, 21.19344, 21.19195, 
  21.19006, 21.18547, 21.1832, 21.18273, 21.18041, 21.17899, 21.17695, 21.16586, 21.15948, 21.1598, 
  21.15778, 21.15458, 21.15378, 21.15058, 21.14271, 21.13731, 21.13314, 21.12968, 21.12632, 21.12478, 
  21.1236, 21.12029, 21.11737, 21.11543, 21.10828, 21.10456, 21.10212, 21.09807, 21.09543, 21.09523, 
  21.09381, 21.09355, 21.09251, 21.09299, 21.09091, 21.09085, 21.08762, 21.0837, 21.08804, 21.09183, 
  21.09079, 21.09263, 21.09199, 21.09307, 21.09143, 21.09325, 21.09401, 21.09773, 21.09625, 21.09828, 
  21.09782, 21.09833, 21.09789, 21.09882, 21.09846, 21.10047, 21.10028, 21.09948, 21.10157, 21.101, 
  21.09959, 21.09811, 21.09914, 21.10087, 21.10153, 21.10015, 21.10041, 21.10103, 21.10134, 21.10239, 
  21.10244, 21.10201, 21.10221, 21.10073, 21.09937, 21.09843, 21.10016, 21.09996, 21.09537, 21.09627, 
  21.09461, 21.08726, 21.08746, 21.0857, 21.07957, 21.07711, 21.07817, 21.07509, 21.06954, 21.07072, 
  21.07002, 21.06792, 21.06836, 21.06488, 21.06322, 21.06328, 21.06217, 21.06075, 21.05921, 21.05661, 
  21.05673, 21.05629, 21.05639, 21.05502, 21.05568, 21.0557, 21.05455, 21.05454, 21.05599, 21.05594, 
  21.05436, 21.05427, 21.05518, 21.05492, 21.05532, 21.05454, 21.05221, 21.04961, 21.04885, 21.04872, 
  21.04905, 21.04782, 21.04688, 21.04673, 21.04627, 21.04707, 21.0467, 21.04698, 21.04638, 21.04892, 
  21.04912, 21.0501, 21.05047, 21.04935, 21.05014, 21.05115, 21.05157, 21.05234, 21.05206, 21.05271,
  21.05537, 21.05733, 21.05689, 21.05533, 21.05295, 21.05219, 21.05159, 21.05161, 21.0507, 21.05072, 
  21.05012, 21.04938, 21.05121, 21.05239, 21.05342, 21.05353, 21.05439, 21.05391, 21.05488, 21.05356, 
  21.05383, 21.05564, 21.05636, 21.0575, 21.05831, 21.05944, 21.06021, 21.05939, 21.06083, 21.06169, 
  21.06308, 21.06382, 21.06492, 21.06555, 21.06474, 21.06526, 21.06498, 21.06708, 21.06763, 21.06602, 
  21.06619, 21.06549, 21.06544, 21.06597, 21.06582, 21.06696, 21.06843, 21.06956, 21.0688, 21.06998, 
  21.06928, 21.07097, 21.07145, 21.07236, 21.07246, 21.07511, 21.07873, 21.07994, 21.08124, 21.08292, 
  21.08256, 21.08514, 21.08674, 21.0866, 21.08949, 21.10507, 21.10532, 21.10686, 21.10731, 21.1111, 
  21.11084, 21.11162, 21.11174, 21.11398, 21.11449, 21.11369, 21.1146, 21.11422, 21.11571, 21.11611, 
  21.11726, 21.12274, 21.12388, 21.12441, 21.12621, 21.12593, 21.12695, 21.12957, 21.1335, 21.13385, 
  21.13727, 21.13766, 21.13844, 21.13927, 21.14019, 21.14425, 21.14563, 21.14824, 21.15011, 21.15226, 
  21.15494, 21.15716, 21.1584, 21.15969, 21.16029, 21.15754, 21.1576, 21.15913, 21.15879, 21.15759, 
  21.15791, 21.15883, 21.15925, 21.15887, 21.15949, 21.16066, 21.16082, 21.16019, 21.16025, 21.16505, 
  21.16583, 21.16877, 21.17171, 21.17305, 21.17464, 21.17424, 21.17648, 21.17388, 21.17456, 21.17312, 
  21.17428, 21.16884, 21.16764, 21.17536, 21.1726, 21.17288, 21.17208, 21.17192, 21.16936, 21.16376, 
  21.16676, 21.16308, 21.16236, 21.16556, 21.16692, 21.1608, 21.16128, 21.1682, 21.1696, 21.16676, 
  21.16668, 21.1628, 21.1616, 21.16508, 21.16528, 21.1636, 21.16656, 21.17112, 21.16856, 21.16956, 
  21.17208, 21.1692, 21.17312, 21.17676, 21.17909, 21.18813, 21.20245, 21.20549, 21.21554, 21.20862, 
  21.20333, 21.19745, 21.18645, 21.18245, 21.17917, 21.18873, 21.18593, 21.18593, 21.18877, 21.18877, 
  21.19477, 21.19433, 21.19697, 21.19653, 21.19909, 21.19777, 21.19941, 21.19661, 21.19737, 21.19693,
  21.1987, 21.1975, 21.19814, 21.20257, 21.20072, 21.20344, 21.20238, 21.20362, 21.20898, 21.21448, 
  21.21404, 21.217, 21.21464, 21.22074, 21.21778, 21.21678, 21.21756, 21.2197, 21.21936, 21.22088, 
  21.2207, 21.22404, 21.22258, 21.22234, 21.21954, 21.21954)
LONGITUDE_VALUEs <- c(
  -157.2604, -157.2591, -157.2585, -157.2548, -157.252, -157.2518, -157.2503, -157.2494, -157.2497, -157.2509, 
  -157.25, -157.2492, -157.2474, -157.2475, -157.2495, -157.2481, -157.2485, -157.2476, -157.2485, -157.2499, 
  -157.2481, -157.2489, -157.2503, -157.2525, -157.2523, -157.251, -157.2518, -157.2629, -157.2718, -157.2736, 
  -157.2777, -157.2791, -157.2823, -157.2834, -157.2911, -157.2903, -157.2968, -157.2963, -157.2988, -157.2988, 
  -157.3005, -157.299, -157.3002, -157.3005, -157.3059, -157.3071, -157.3105, -157.3078, -157.3042, -157.3022, 
  -157.3008, -157.2874, -157.2857, -157.2844, -157.2748, -157.2716, -157.2525, -157.2497, -157.2421, -157.1864, 
  -157.1837, -157.1721, -157.1623, -157.1549, -157.1488, -157.1453, -157.1381, -157.1287, -157.1246, -157.1222, 
  -157.1207, -157.1197, -157.1189, -157.1182, -157.1159, -157.1112, -157.1089, -157.1079, -157.1047, -157.1029, 
  -157.1031, -157.1019, -157.1004, -157.1004, -157.0996, -157.0984, -157.0966, -157.0967, -157.0952, -157.0938, 
  -157.0923, -157.091, -157.0869, -157.0831, -157.0823, -157.0694, -157.069, -157.0587, -157.0469, -157.0425, 
  -157.0338, -157.0286, -157.0253, -157.0238, -156.9999, -156.9999, -156.9976, -156.984, -156.9798, -156.9767, 
  -156.9689, -156.9663, -156.9637, -156.9509, -156.9496, -156.9458, -156.939, -156.9348, -156.9195, -156.9147, 
  -156.9125, -156.9118, -156.9107, -156.9096, -156.9087, -156.9079, -156.9068, -156.9052, -156.9035, -156.9018, 
  -156.9005, -156.8991, -156.898, -156.8969, -156.8954, -156.8936, -156.8938, -156.892, -156.8897, -156.8874, 
  -156.8853, -156.8843, -156.8841, -156.8825, -156.8818, -156.881, -156.8781, -156.8757, -156.8744, -156.873, 
  -156.8721, -156.8714, -156.8703, -156.8696, -156.866, -156.8654, -156.8644, -156.864, -156.863, -156.8604,
  -156.8595, -156.8519, -156.8502, -156.8485, -156.8482, -156.8486, -156.8496, -156.8504, -156.8506, -156.8518, 
  -156.8516, -156.8496, -156.8489, -156.8477, -156.8473, -156.8452, -156.8428, -156.8409, -156.8392, -156.8376, 
  -156.8359, -156.8355, -156.8343, -156.834, -156.8327, -156.833, -156.8322, -156.8291, -156.8272, -156.8234, 
  -156.823, -156.8221, -156.8222, -156.8205, -156.8192, -156.8184, -156.8168, -156.8171, -156.8129, -156.8121, 
  -156.8126, -156.8127, -156.8117, -156.8107, -156.8097, -156.8021, -156.8018, -156.8002, -156.7993, -156.7981, 
  -156.797, -156.7961, -156.7946, -156.7936, -156.7914, -156.7885, -156.7877, -156.7835, -156.784, -156.7793, 
  -156.7752, -156.7744, -156.7723, -156.7713, -156.7698, -156.7479, -156.7464, -156.7456, -156.7444, -156.7447, 
  -156.7415, -156.7406, -156.7396, -156.7405, -156.7396, -156.7381, -156.7377, -156.7363, -156.7356, -156.7347, 
  -156.7345, -156.7306, -156.7308, -156.7293, -156.7295, -156.7272, -156.7268, -156.7231, -156.7212, -156.7204, 
  -156.7186, -156.7182, -156.7184, -156.7171, -156.7175, -156.7127, -156.7137, -156.711, -156.7113, -156.7109, 
  -156.7118, -156.7095, -156.71, -156.7119, -156.7177, -156.7273, -156.7293, -156.7318, -156.7339, -156.7347, 
  -156.7357, -156.7355, -156.7363, -156.7372, -156.7375, -156.7371, -156.7367, -156.7365, -156.736, -156.7361, 
  -156.7358, -156.7358, -156.7378, -156.7402, -156.7538, -156.7603, -156.7694, -156.7731, -156.7765, -156.7793, 
  -156.7843, -156.789, -156.795, -156.8024, -156.8083, -156.812, -156.814, -156.819, -156.8207, -156.8321, 
  -156.8448, -156.8528, -156.869, -156.8714, -156.8763, -156.8795, -156.8832, -156.8848, -156.8939, -156.8924, 
  -156.894, -156.8958, -156.9015, -156.9029, -156.9064, -156.9074, -156.9144, -156.9151, -156.919, -156.9267, 
  -156.9273, -156.9312, -156.9442, -156.9445, -156.9477, -156.9486, -156.9576, -156.9575, -156.9691, -156.9814, 
  -156.9794, -156.9835, -156.985, -156.9881, -156.9987, -157.0424, -157.0485, -157.0606, -157.0668, -157.075, 
  -157.0934, -157.1109, -157.1188, -157.1217, -157.129, -157.1331, -157.1427, -157.1432, -157.1465, -157.1487,
  -157.1509, -157.1533, -157.1564, -157.1577, -157.1678, -157.1778, -157.1828, -157.1883, -157.1939, -157.1964, 
  -157.1978, -157.2001, -157.2019, -157.2118, -157.2147, -157.2221, -157.2393, -157.243, -157.2446, -157.2455, 
  -157.2474, -157.2539, -157.2556, -157.2578, -157.2582, -157.259)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  20.73276, 20.73412, 20.73372, 20.73229, 20.73167, 20.73209, 20.73195, 20.7334, 20.73312, 20.73478, 
  20.73376, 20.7337, 20.7346, 20.73374, 20.73514, 20.73462, 20.73551, 20.73472, 20.73649, 20.73513, 
  20.73588, 20.73495, 20.73597, 20.73577, 20.73494, 20.73615, 20.73524, 20.73643, 20.73426, 20.7342, 
  20.73589, 20.73643, 20.73512, 20.73687, 20.73472, 20.73589, 20.73535, 20.73673, 20.73577, 20.73817, 
  20.73741, 20.73801, 20.73745, 20.73767, 20.73679, 20.73735, 20.73623, 20.73773, 20.73553, 20.73729, 
  20.73707, 20.7399, 20.74028, 20.73946, 20.74014, 20.73918, 20.73767, 20.73484, 20.73444, 20.7352, 
  20.73567, 20.73504, 20.73747, 20.73805, 20.7401, 20.74073, 20.74161, 20.74163, 20.74341, 20.74417, 
  20.74185, 20.74289, 20.74274, 20.74381, 20.74403, 20.74637, 20.7464, 20.75169, 20.75207, 20.75322, 
  20.75324, 20.75391, 20.75329, 20.75446, 20.75552, 20.75488, 20.75799, 20.75688, 20.75746, 20.76161, 
  20.76518, 20.76645, 20.78212, 20.79209, 20.80681, 20.82217, 20.83651, 20.84794, 20.85392, 20.85653, 
  20.87726, 20.87842, 20.88275, 20.91226, 20.9198, 20.9208, 20.9236, 20.9228, 20.92352, 20.92962, 
  20.92793, 20.92633, 20.92216, 20.90925, 20.88921, 20.87205, 20.86924, 20.86671, 20.86667, 20.86238, 
  20.8629, 20.85444, 20.84618, 20.83126, 20.82957, 20.8232, 20.82151, 20.81802, 20.81437, 20.81156, 
  20.80979, 20.80803, 20.80654, 20.80313, 20.80029, 20.79664, 20.79427, 20.79198, 20.78929, 20.7864, 
  20.78315, 20.78251, 20.78059, 20.77858, 20.77457, 20.75322, 20.75242, 20.75079, 20.74919, 20.74708, 
  20.74532, 20.74516, 20.74287, 20.74104, 20.74062, 20.73719, 20.73637)
LONGITUDE_VALUEs <- c(
  -156.9664, -156.9654, -156.9647, -156.9654, -156.9645, -156.963, -156.9614, -156.9593, -156.958, -156.9561, 
  -156.9553, -156.9538, -156.953, -156.9524, -156.9505, -156.9499, -156.9479, -156.947, -156.946, -156.9452, 
  -156.9436, -156.9427, -156.9416, -156.9404, -156.9401, -156.9389, -156.9383, -156.9372, -156.9358, -156.9342, 
  -156.9324, -156.9295, -156.9286, -156.9273, -156.9255, -156.9245, -156.9233, -156.9224, -156.9211, -156.9182, 
  -156.9167, -156.9155, -156.9146, -156.9139, -156.9129, -156.9118, -156.911, -156.9094, -156.9072, -156.9035, 
  -156.9019, -156.8999, -156.8984, -156.8975, -156.8957, -156.8939, -156.8929, -156.8938, -156.8926, -156.8927, 
  -156.8918, -156.89, -156.8899, -156.887, -156.8863, -156.8873, -156.8875, -156.8887, -156.887, -156.8844, 
  -156.8796, -156.8783, -156.8768, -156.8765, -156.8754, -156.8735, -156.8717, -156.8667, -156.8639, -156.8629, 
  -156.8617, -156.8607, -156.8596, -156.857, -156.8565, -156.8553, -156.8517, -156.8499, -156.8416, -156.8349, 
  -156.8334, -156.8308, -156.8226, -156.8138, -156.8062, -156.8057, -156.8163, -156.822, -156.8283, -156.8286, 
  -156.853, -156.8555, -156.8581, -156.8936, -156.9156, -156.9269, -156.9372, -156.9434, -156.9699, -156.9877, 
  -156.9941, -157.0231, -157.0373, -157.0578, -157.0611, -157.0512, -157.0439, -157.042, -157.038, -157.0355, 
  -157.0302, -157.0125, -157.0039, -156.9952, -156.9927, -156.9889, -156.9891, -156.9872, -156.9878, -156.986, 
  -156.9878, -156.9865, -156.9886, -156.9875, -156.9901, -156.9878, -156.9905, -156.9885, -156.9894, -156.9925, 
  -156.9922, -156.9912, -156.9917, -156.9887, -156.9886, -156.9818, -156.9805, -156.9796, -156.9776, -156.9745, 
  -156.9736, -156.9726, -156.9704, -156.9697, -156.9682, -156.9675, -156.9655)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_1 <- st_union(Geo_1, Geo_0) %>% 
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))
#COUNTRIE(s) from Global Administrative Areas (GADM)
Geo_0 <- GeoDATA_from_GADM_level_0_low_resolution %>% filter(NAME == "United States")
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_0 <- st_union(Geo_0[c(1, 7:8, 23, 31), ])
LATITUDE_VALUEs <- c(
  22.16318, 22.16225, 22.16247, 22.1639, 22.16239, 22.15756, 22.15915, 22.15674, 22.15454, 22.15144, 
  22.14985, 22.14106, 22.13967, 22.13307, 22.12902, 22.12433, 22.14734, 22.1998)
LONGITUDE_VALUEs <- c(
  -159.6857, -159.6861, -159.6877, -159.6888, -159.6969, -159.7037, -159.7066, -159.7076, -159.7138, -159.7175, 
  -159.7232, -159.7284, -159.7306, -159.7328, -159.7325, -159.7338, -159.7908, -159.7055)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_difference(Geo_0, Geo)
LATITUDE_VALUEs <- c(21.32764, 21.32304, 21.31704, 21.32376, 21.33355)
LONGITUDE_VALUEs <- c(-158.123, -158.1228, -158.1183, -158.1019, -158.1089)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(21.32818, 21.33141, 21.32784, 21.38179, 21.40257, 21.37396, 21.33303)
LONGITUDE_VALUEs <- c(-157.9715, -157.9686, -157.9633, -157.907, -157.9887, -158.0308, -158.0262)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(21.31478, 21.30023, 21.30115, 21.30091, 21.29761, 21.29559, 21.29561, 21.31201, 21.32568)
LONGITUDE_VALUEs <- c(-157.8911, -157.8836, -157.8801, -157.8759, -157.8684, -157.8694, -157.8661, -157.8488, -157.8824)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(21.50439, 21.50972, 21.51784, 21.51105)
LONGITUDE_VALUEs <- c(-157.8524, -157.8351, -157.8373, -157.8571)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(20.52294, 20.51236, 20.50781, 20.50819, 20.50941, 20.51171, 20.51169, 20.5179)
LONGITUDE_VALUEs <- c(-156.5968, -156.5918, -156.5861, -156.5836, -156.5836, -156.5779, -156.5734, -156.5719)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(20.82436, 20.82556, 20.8329, 20.83042)
LONGITUDE_VALUEs <- c(-156.1075, -156.1113, -156.1088, -156.1025)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_difference(Geo_0, Geo)
LATITUDE_VALUEs <- c(20.87366, 20.8741, 20.87799, 20.87915, 20.87466)
LONGITUDE_VALUEs <- c(-156.1697, -156.1744, -156.1751, -156.1681, -156.1673)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_difference(Geo_0, Geo)
LATITUDE_VALUEs <- c(20.92914, 20.92844, 20.93124, 20.93215)
LONGITUDE_VALUEs <- c(-156.227, -156.2293, -156.2313, -156.227)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_difference(Geo_0, Geo)
LATITUDE_VALUEs <- c(20.94002, 20.93826, 20.94025, 20.94193)
LONGITUDE_VALUEs <- c(-156.2629, -156.2613, -156.2577, -156.2614)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_difference(Geo_0, Geo)
LATITUDE_VALUEs <- c(20.77419, 20.76757, 20.7648, 20.77263)
LONGITUDE_VALUEs <- c(-156.4606, -156.4589, -156.4727, -156.4743)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_difference(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  19.45711, 19.45647, 19.45877, 19.46308, 19.46304, 19.46575, 19.47605, 19.48022, 19.4853, 19.48831, 
  19.49266, 19.49339, 19.49535, 19.507, 19.51248, 19.48749)
LONGITUDE_VALUEs <- c(
  -154.8416, -154.8401, -154.8346, -154.8321, -154.8292, -154.826, -154.8211, -154.8157, -154.8125, -154.8119, 
  -154.8091, -154.8074, -154.807, -154.8099, -154.8131, -154.845)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_1 <- st_union(Geo_1, Geo_0) %>%
  mutate(SOURCE = paste(SOURCE, "and Global Administrative Areas (GADM)"))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Remove GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("JOHNSTON ATOLL", "MIDWAY ATOLL", "WAKE ISLAND"))

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "UNITED STATES OF AMERICA")
GeoDATA <- rbind(GeoDATA, Geo_1)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, MGeo_1)

Now in Our World Administrative Boundaries (GeoDATA):

  • Size in R: 8.95MB
  • Areas: 249 Countries/Territories (249 NAME)
  • 242/249 ISO2 | ISO3 | Numeric Code (M49_CODE) from International Organization for Standardization (ISO)
  • 214/249 Geometries (SOURCE) from World Health Organization (WHO) - Countries
  • 016/249 Geometries (SOURCE) from Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques
  • 012/249 Geometries (SOURCE) from WHO - Countries and Fondation Jean-Jacques Laffont - TSE
  • 001/249 Geometries (SOURCE) from Global Administrative Areas (GADM)
  • 002/249 Geometries (SOURCE) from Fondation Jean-Jacques Laffont - TSE and Global Administrative Areas (GADM)
  • 004/249 Geometries (SOURCE) from WHO - Countries and Fondation - TSE and Global Administrative Areas (GADM)
#Countries/Territories in GeoDATA
DATA <- GeoDATA %>% st_drop_geometry()
datatable(DATA[ , c(1, 5, 8)], options = list(scrollX = TRUE, autoWidth = TRUE), 
          caption = "Countries/Territories in GeoDATA", style = "bootstrap", rownames = FALSE) %>%
  formatStyle(columns = c(1, 3), textAlign = "left") %>% formatStyle(columns = 2, textAlign = "center")

NAME in GeoDATA \(>\) Residence in International Migrant Stock Data (Residences_in_iMIGRANT_Stock) [249 \(>\) 235].

NAME in GeoDATA \(>\) NAME in GeoDATA_from_WHO (249 \(>\) 241):

  • HONG KONG SAR | MACAO SAR | TAIWAN (PROVINCE OF CHINA) | UNITED STATES MINOR OUTLYING ISLANDS

Combine JERSEY and GUERNSEY Geometries in CCMN_GeoDATA (CHANNEL ISLANDS).

5.2 From GeoHUB

We check that all countries/territories in GeoDATA_from_GeoHUB are in GeoDATA.

#New Variable => SOURCE
GeoDATA_from_GeoHUB <- GeoDATA_from_GeoHUB %>% 
  mutate(SOURCE = "UN | Geospatial Hub") %>% select(1:13, 15, 14) %>% 
  mutate_if(
    is.character, ~case_when(
      . == "Azores Islands" ~ "Azores", 
      . == "Bolivia (Plurinational State of)" ~ "Bolivia",
      . == "Chagos Archipelago" ~ "British Indian Ocean Territory", 
      . == "Democratic People's Republic of Korea" ~ "Dem. People's Republic of Korea",
      . == "Gaza" ~ "Gaza Strip", 
      . == "Hong Kong" ~ "Hong Kong SAR", 
      . == "Iran (Islamic Republic of)" ~ "Iran", 
      . == "Kingdom of the Netherlands" ~ "Netherlands", 
      . == "Macao" ~ "Macao SAR", . == "Madeira Island" ~ "Madeira",
      . == "Micronesia (Federated States of)" ~ "Micronesia", 
      . == "Saint Helena" ~ "Saint Helena, Ascension and Tristan da Cunha",
      . == "Svalbard and Jan Mayen Islands" ~ "Svalbard and Jan Mayen",
      . == "Taiwan" ~ "Taiwan (Province of China)",
      . == "Venezuela (Bolivarian Republic of)" ~ "Venezuela", TRUE ~ .)) %>%
  mutate(NAME = ifelse(NAME == "" & ISO3 == "xac", "Aksai Chin", NAME)) %>%
  mutate(NAME = ifelse(NAME == "" & ISO3 == "xap", "Arunachal Pradesh", NAME)) %>%
  mutate(NAME = ifelse(NAME == "" & ISO3 == "EGY", "Bir Tawil", NAME)) %>%
  mutate(NAME = ifelse(NAME == "" & ISO3 == "SDN", "Hala'ib Triangle", NAME)) %>%
  mutate(NAME = ifelse(NAME == "" & ISO3 == "SSD", "Ilemi Triangle", NAME)) %>%
  mutate(NAME = ifelse(is.na(NAME) & ISO3 == "RUS", "Kuril Islands", NAME)) %>%
  mutate(NAME = ifelse(is.na(NAME) & Name == "Caspian Sea", "Caspian Sea", NAME))

#Combine GeoDATA_from_GeoHUB | GeoDATA
DATA <- left_join(GeoDATA_from_GeoHUB, GeoDATA %>% st_drop_geometry(), by = c("NAME" = "VISUALIZATION_NAME"))
DATA <- DATA %>% st_drop_geometry()
datatable(DATA[is.na(DATA$SOVRN), ][ , c(3, 19)], 
          options = list(scrollX = TRUE, autoWidth = TRUE, 
                         columnDefs = list(list(targets = "_all", render = JS(
                           "function(data, type, row, meta) {",
                           "  if (type === 'display' && data === null) {",
                           "    return 'NA';", "  }", "  return data;", "}")))), 
          style = "bootstrap", rownames = FALSE, 
          caption = "Countries in GeoDATA_from_GeoHUB (!in GeoDATA)") %>% 
  formatStyle(columns = 1, textAlign = "left", `text-transform` = "uppercase") %>% 
  formatStyle(columns = 2, textAlign = "center")

ÅLAND ISLANDS are included in FINLAND in GeoDATA.

Numeric Code (M49_CODE) for ÅLAND ISLANDS.

ÅLAND ISLANDS are subdivided into 16 municipalities.

##### ÅLAND ISLANDS #####
LATITUDE_VALUEs <- c(
  59.7777, 59.77807, 59.7788, 59.77989, 59.77999, 59.78027, 59.7807, 59.78024, 59.78055, 59.78027, 
  59.7804, 59.78034, 59.78062, 59.78064, 59.78032, 59.78039, 59.77975, 59.77915, 59.77899, 59.77835, 
  59.77841, 59.77797, 59.77754, 59.77733, 59.7777, 59.77757, 59.77733, 59.77755, 59.77701, 59.77699, 
  59.77675, 59.77676, 59.77645, 59.77624, 59.77585, 59.77575, 59.77557, 59.77544, 59.7751, 59.77499, 
  59.77467, 59.77436, 59.77295, 59.77262, 59.77247, 59.77257, 59.77285, 59.77304, 59.7732, 59.77341, 
  59.77307, 59.77323, 59.77264, 59.77276, 59.7735, 59.77417, 59.77439, 59.77482, 59.77479, 59.7754, 
  59.77625, 59.77654, 59.77712, 59.77726, 59.77716, 59.77724, 59.7772, 59.77735, 59.77694, 59.777, 
  59.77758, 59.77728, 59.77782, 59.77788, 59.77764, 59.77759, 59.7771)
LONGITUDE_VALUEs <- c(
  21.15914, 21.16012, 21.16019, 21.16193, 21.1612, 21.16139, 21.16019, 21.16021, 21.15638, 21.15558, 
  21.15497, 21.15411, 21.15374, 21.15136, 21.15011, 21.14946, 21.14686, 21.14793, 21.14716, 21.14738, 
  21.14866, 21.14819, 21.14878, 21.14842, 21.14583, 21.14439, 21.14355, 21.14205, 21.14168, 21.14287, 
  21.14336, 21.14407, 21.14436, 21.14408, 21.14397, 21.14364, 21.14352, 21.14278, 21.14277, 21.14195, 
  21.14242, 21.1415, 21.14274, 21.14262, 21.1429, 21.14334, 21.14304, 21.14331, 21.14311, 21.14332, 
  21.14431, 21.14505, 21.1467, 21.14691, 21.14533, 21.14603, 21.14683, 21.14702, 21.14823, 21.14802, 
  21.14906, 21.14886, 21.14923, 21.14971, 21.15, 21.15037, 21.15067, 21.15103, 21.15195, 21.15254, 
  21.15275, 21.15366, 21.15473, 21.15642, 21.15662, 21.1572, 21.15854)
MGeo_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  59.8384, 59.83776, 59.83742, 59.8371, 59.83695, 59.83679, 59.83608, 59.83673, 59.83659, 59.83628, 
  59.83595, 59.83624, 59.83656, 59.83663, 59.83731, 59.8377, 59.83837, 59.83969, 59.83947, 59.83998,
  59.84017, 59.84096, 59.84175, 59.84256, 59.84254, 59.84323, 59.84268, 59.84294, 59.84203, 59.84147, 
  59.84096, 59.84098, 59.84181, 59.84139, 59.84046, 59.83964, 59.83937, 59.83978, 59.84017, 59.84029, 
  59.83975, 59.83979, 59.83923, 59.83925, 59.83869)
LONGITUDE_VALUEs <- c(
  19.91604, 19.91467, 19.91603, 19.91422, 19.91435, 19.91615, 19.91736, 19.91939, 19.92196, 19.92151,
  19.92234, 19.9234, 19.92343, 19.9253, 19.92597, 19.92561, 19.92606, 19.92464, 19.92387, 19.92276, 
  19.92322, 19.92219, 19.92248, 19.92086, 19.92034, 19.92015, 19.91936, 19.91826, 19.91771, 19.91705, 
  19.91539, 19.91398, 19.91236, 19.91009, 19.91172, 19.91247, 19.91566, 19.91576, 19.91544, 19.91601,
  19.91719, 19.91788, 19.91756, 19.91656, 19.91546)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.64095, 60.64077, 60.64219, 60.64268, 60.64379, 60.64631, 60.64627, 60.6488, 60.64908, 60.65078, 
  60.65115, 60.65159, 60.6522, 60.65285, 60.65285, 60.65353, 60.65482, 60.65351, 60.6532, 60.65236, 
  60.65163, 60.65073, 60.64931, 60.64717, 60.64407, 60.64379, 60.64263, 60.64156, 60.64054)
LONGITUDE_VALUEs <- c(
  20.98324, 20.985, 20.98511, 20.98682, 20.98611, 20.98895, 20.98689, 20.98871, 20.98762, 20.98856, 
  20.98476, 20.9856, 20.98468, 20.98549, 20.9871, 20.98796, 20.98444, 20.98363, 20.98159, 20.98161, 
  20.98004, 20.98036, 20.97858, 20.98066, 20.97946, 20.9777, 20.97824, 20.97794, 20.98051)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(60.17568, 60.17274, 60.17274, 60.17819, 60.18052, 60.17678)
LONGITUDE_VALUEs <- c(19.31711, 19.32139, 19.32578, 19.31793, 19.31014, 19.30963)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(60.19067, 60.20334, 60.20417, 60.19997, 60.19345, 60.192)
LONGITUDE_VALUEs <- c(19.34237, 19.34541, 19.327, 19.32907, 19.33756, 19.33765)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.21135, 60.21142, 60.21246, 60.21424, 60.21458, 60.21593, 60.21634, 60.2177, 60.2175, 60.21431, 
  60.21234, 60.21254, 60.21074, 60.20995, 60.20521, 60.20496, 60.20668, 60.20791, 60.21151, 60.21218, 
  60.21204, 60.21333, 60.21398, 60.21102, 60.20956, 60.20897, 60.20754, 60.2062, 60.20642)
LONGITUDE_VALUEs <- c(
  19.33151, 19.33321, 19.33349, 19.32963, 19.32368, 19.32276, 19.32012, 19.31961, 19.31295, 19.31261, 
  19.31518, 19.3125, 19.31319, 19.31145, 19.31572, 19.31774, 19.31802, 19.31948, 19.31583, 19.31615, 
  19.31705, 19.31742, 19.32031, 19.32709, 19.328, 19.32973, 19.3286, 19.33149, 19.33244)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  59.93726, 59.93706, 59.93845, 59.93733, 59.93809, 59.93697, 59.93698, 59.93946, 59.93982, 59.94075, 
  59.94136, 59.93937, 59.93865, 59.9379, 59.936)
LONGITUDE_VALUEs <- c(
  20.2178, 20.21995, 20.22186, 20.22419, 20.22546, 20.2266, 20.22817, 20.22881, 20.22965, 20.22913, 
  20.22497, 20.21117, 20.21119, 20.2099, 20.21235)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  59.97959, 59.97867, 59.97877, 59.98026, 59.9811, 59.98149, 59.98082, 59.98143, 59.98183, 59.98266, 
  59.98292, 59.98389, 59.98414, 59.98438, 59.9845, 59.9841, 59.98438, 59.98423, 59.98482, 59.98419, 
  59.98385, 59.98339, 59.98304, 59.98251, 59.98154, 59.98117, 59.98153, 59.98048, 59.97869, 59.97859)
LONGITUDE_VALUEs <- c(
  19.95604, 19.9586, 19.96091, 19.96097, 19.95896, 19.95961, 19.96444, 19.96467, 19.96255, 19.96359, 
  19.96294, 19.96284, 19.96192, 19.96227, 19.96052, 19.95877, 19.95675, 19.95499, 19.95277, 19.95151, 
  19.95181, 19.95133, 19.95177, 19.95113, 19.95288, 19.95159, 19.95003, 19.94826, 19.94842, 19.95485)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  59.93037, 59.93315, 59.93367, 59.93426, 59.93487, 59.93432, 59.93343, 59.93214, 59.93138, 59.93055, 
  59.93114, 59.93092, 59.92969, 59.92932, 59.92871, 59.92839, 59.92833, 59.92785, 59.92815, 59.92775, 
  59.92781, 59.92837, 59.92893, 59.92915, 59.92911, 59.92982, 59.93, 59.93065)
LONGITUDE_VALUEs <- c(
  21.05307, 21.05156, 21.05054, 21.05045, 21.04339, 21.04277, 21.04439, 21.04332, 21.04507, 21.0452, 
  21.0441, 21.04319, 21.04327, 21.04447, 21.04366, 21.04373, 21.04319, 21.04402, 21.04535, 21.0463, 
  21.04965, 21.04976, 21.04764, 21.04797, 21.04876, 21.04859, 21.05073, 21.05081)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  59.95077, 59.9494, 59.94932, 59.94797, 59.94724, 59.94618, 59.94551, 59.94543, 59.94505, 59.9452, 
  59.94488, 59.94511, 59.94499, 59.94573, 59.94476, 59.94574, 59.94639, 59.94709, 59.94848, 59.95038, 
  59.95131, 59.95135, 59.95052, 59.95004, 59.94999, 59.95082, 59.95102, 59.95169, 59.95179, 59.95219, 
  59.95149)
LONGITUDE_VALUEs <- c(
  21.03142, 21.03155, 21.03007, 21.03017, 21.02942, 21.02982, 21.03139, 21.03447, 21.03486, 21.03538, 
  21.03612, 21.03728, 21.038, 21.03883, 21.04108, 21.04297, 21.04313, 21.04241, 21.04238, 21.03705, 
  21.03679, 21.03623, 21.03628, 21.03711, 21.03552, 21.03431, 21.03491, 21.03458, 21.03388, 21.03306, 
  21.03325)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  59.94361, 59.94409, 59.9438, 59.94449, 59.945, 59.94593, 59.94619, 59.94565, 59.94446, 59.94399, 
  59.94366, 59.94371, 59.94308, 59.94291, 59.94324, 59.94283, 59.9428, 59.94253, 59.94211, 59.9426, 
  59.94214, 59.94189, 59.94174, 59.94219, 59.94194, 59.94081, 59.94087, 59.94052, 59.94078, 59.9407, 
  59.941, 59.94092, 59.94124, 59.94109, 59.94186, 59.94186, 59.94161, 59.94184, 59.94126, 59.94113, 
  59.94155, 59.94202, 59.94217, 59.94242, 59.94338, 59.94314, 59.94373, 59.94403, 59.94379)
LONGITUDE_VALUEs <- c(
  21.05383, 21.05202, 21.05129, 21.05103, 21.04739, 21.04661, 21.04421, 21.04377, 21.04421, 21.04485, 
  21.04741, 21.04811, 21.04839, 21.0493, 21.05018, 21.05113, 21.05215, 21.05123, 21.05179, 21.0497, 
  21.04962, 21.05066, 21.05031, 21.04842, 21.04799, 21.05007, 21.05046, 21.05202, 21.05335, 21.05433, 
  21.0547, 21.05767, 21.05813, 21.05972, 21.06032, 21.06083, 21.06159, 21.06261, 21.06266, 21.06399, 
  21.06429, 21.06401, 21.06289, 21.06325, 21.06034, 21.05975, 21.05921, 21.05564, 21.05515)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  59.9036, 59.90322, 59.90347, 59.90337, 59.904, 59.90454, 59.9052, 59.90551, 59.90664, 59.90748, 
  59.90846, 59.90728, 59.90554, 59.90522, 59.90406, 59.90372, 59.90308, 59.90386, 59.90306, 59.90304, 
  59.90362, 59.90318, 59.90371, 59.90255, 59.90258)
LONGITUDE_VALUEs <- c(
  20.98905, 20.99348, 20.9947, 20.99569, 20.99616, 20.99789, 20.9965, 20.99782, 20.99706, 20.99161, 
  20.97266, 20.97067, 20.97215, 20.97105, 20.9732, 20.97217, 20.97401, 20.97689, 20.97796, 20.97945, 
  20.97884, 20.98332, 20.9842, 20.98529, 20.98703)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  59.86201, 59.86343, 59.86445, 59.8658, 59.86509, 59.86546, 59.86503, 59.86386, 59.86346, 59.86234, 
  59.8618, 59.86032, 59.86004, 59.86047, 59.86024, 59.8606, 59.861, 59.86225, 59.86196)
LONGITUDE_VALUEs <- c(
  20.93489, 20.93608, 20.9394, 20.9379, 20.9297, 20.92342, 20.92196, 20.9231, 20.92077, 20.92129, 
  20.92016, 20.92105, 20.92511, 20.92819, 20.9299, 20.93035, 20.92953, 20.93175, 20.9332)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  59.87154, 59.87259, 59.87444, 59.87656, 59.87685, 59.87789, 59.87834, 59.8765, 59.87626, 59.87522, 
  59.87438, 59.87349, 59.87354, 59.87243, 59.87226, 59.87164, 59.87108, 59.87053, 59.87065, 59.87109, 
  59.87173)
LONGITUDE_VALUEs <- c(
  20.90717, 20.9092, 20.90932, 20.90747, 20.90487, 20.90577, 20.90227, 20.90039, 20.90257, 20.90134, 
  20.90125, 20.89873, 20.8972, 20.8971, 20.89647, 20.89734, 20.89636, 20.89681, 20.90171, 20.90194, 
  20.9052)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  59.86684, 59.86839, 59.86909, 59.86981, 59.87015, 59.87068, 59.87023, 59.87145, 59.87177, 59.87144, 
  59.87231, 59.87283, 59.87248, 59.87319, 59.87486, 59.87424, 59.87303, 59.87335, 59.87245, 59.87272, 
  59.87261, 59.87323, 59.87265, 59.87296, 59.87376, 59.87382, 59.87429, 59.8739, 59.87434, 59.87527, 
  59.8751, 59.87552, 59.87578, 59.87718, 59.87824, 59.87852, 59.87774, 59.87836, 59.87818, 59.8783, 
  59.87817, 59.87742, 59.87729, 59.87746, 59.87731, 59.87793, 59.87805, 59.87749, 59.87694, 59.8766, 
  59.87693, 59.87489, 59.87473, 59.87504, 59.87525, 59.87499, 59.87409, 59.87446, 59.8732, 59.87285, 
  59.87233, 59.87218, 59.87175, 59.87117, 59.87099, 59.8699, 59.87004, 59.87053, 59.87119, 59.87115, 
  59.87046, 59.87029, 59.87019, 59.86987, 59.8696, 59.86965, 59.87001, 59.87005, 59.8697, 59.86922, 
  59.86894, 59.86937, 59.86887, 59.86906, 59.86833, 59.86657, 59.86593, 59.8663)
LONGITUDE_VALUEs <- c(
  20.93505, 20.93518, 20.93041, 20.92973, 20.93035, 20.92916, 20.92172, 20.92186, 20.91888, 20.91787, 
  20.91666, 20.91831, 20.92002, 20.92061, 20.9252, 20.92654, 20.9252, 20.92687, 20.92785, 20.92953, 
  20.93012, 20.9312, 20.93184, 20.9338, 20.93319, 20.93213, 20.93605, 20.93703, 20.93937, 20.93835, 
  20.93643, 20.93567, 20.93704, 20.9341, 20.9336, 20.92916, 20.92715, 20.92516, 20.92426, 20.923, 
  20.92128, 20.9204, 20.91939, 20.91909, 20.91776, 20.9185, 20.91801, 20.91693, 20.91727, 20.91657, 
  20.91511, 20.91588, 20.91509, 20.91497, 20.91319, 20.91238, 20.91295, 20.91438, 20.9133, 20.91205, 
  20.91245, 20.91331, 20.91266, 20.91301, 20.91372, 20.91378, 20.91545, 20.91575, 20.91671, 20.91697, 
  20.91695, 20.91783, 20.91728, 20.91746, 20.91695, 20.91681, 20.91711, 20.91696, 20.91618, 20.91642, 
  20.91777, 20.91857, 20.91924, 20.92035, 20.91969, 20.9236, 20.92868, 20.93285)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  59.88163, 59.88288, 59.88371, 59.88412, 59.88315, 59.88395, 59.88544, 59.88592, 59.88729, 59.88657, 
  59.88752, 59.88859, 59.89146, 59.89023, 59.88885, 59.88807, 59.889, 59.88819, 59.88653, 59.88599, 
  59.88608, 59.88513, 59.88469, 59.88463, 59.88395, 59.88452, 59.88373, 59.88454, 59.88563, 59.88534, 
  59.8848, 59.88408, 59.8839, 59.88461, 59.8847, 59.8845, 59.8832, 59.88394, 59.88481, 59.8851, 
  59.88467, 59.8841, 59.88352, 59.88254, 59.88119, 59.88044, 59.8808, 59.88018, 59.87974, 59.88055)
LONGITUDE_VALUEs <- c(
  20.93204, 20.93391, 20.93371, 20.92938, 20.92678, 20.92369, 20.92335, 20.92178, 20.92054, 20.91691, 
  20.91627, 20.91797, 20.91728, 20.91257, 20.91226, 20.90948, 20.90652, 20.90353, 20.90349, 20.9042, 
  20.90203, 20.90132, 20.90186, 20.90253, 20.90292, 20.90357, 20.90405, 20.90517, 20.90528, 20.9073, 
  20.90701, 20.90806, 20.91075, 20.91243, 20.91344, 20.91568, 20.91672, 20.91758, 20.91673, 20.91711, 
  20.92064, 20.92088, 20.92185, 20.92013, 20.92027, 20.92299, 20.92459, 20.92649, 20.93221, 20.9331)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  59.89228, 59.89482, 59.89445, 59.89393, 59.89298, 59.89342, 59.89431, 59.89383, 59.89559, 59.89594, 
  59.89549, 59.89681, 59.89673, 59.89787, 59.89751, 59.89848, 59.89868, 59.89739, 59.89644, 59.89701, 
  59.89582, 59.89561, 59.89521, 59.89486, 59.8951, 59.89488, 59.89427, 59.89485, 59.89462, 59.89306, 
  59.89262, 59.89269)
LONGITUDE_VALUEs <- c(
  20.89187, 20.89787, 20.89991, 20.8979, 20.89841, 20.90052, 20.90086, 20.90246, 20.9062, 20.9056, 
  20.90428, 20.90333, 20.902, 20.89934, 20.89585, 20.89572, 20.89506, 20.89305, 20.89378, 20.89537, 
  20.89482, 20.89355, 20.89342, 20.8945, 20.89521, 20.89555, 20.89409, 20.8922, 20.88976, 20.88862, 
  20.88965, 20.89044)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  59.88422, 59.8834, 59.88531, 59.88467, 59.88553, 59.88672, 59.88729, 59.88915, 59.88865, 59.88891, 
  59.89031, 59.89122, 59.89103, 59.89127, 59.89067, 59.89003, 59.88932, 59.89007, 59.8904, 59.89062, 
  59.88986, 59.89021, 59.89153, 59.89435, 59.89311, 59.894, 59.89418, 59.89331, 59.89295, 59.89362, 
  59.89293, 59.89077, 59.89021, 59.88989, 59.88917, 59.88871, 59.88801, 59.88748, 59.8869, 59.88811, 
  59.88831, 59.88954, 59.88966, 59.88987, 59.89035, 59.88938, 59.88991, 59.88963, 59.88854, 59.88761, 
  59.88777, 59.88697, 59.88639, 59.88585, 59.88594, 59.88531)
LONGITUDE_VALUEs <- c(
  20.94117, 20.94259, 20.94796, 20.94934, 20.95195, 20.95206, 20.95379, 20.95355, 20.95596, 20.95674, 
  20.95577, 20.95678, 20.95526, 20.95426, 20.95277, 20.95293, 20.94909, 20.94875, 20.94972, 20.94942, 
  20.9436, 20.94266, 20.94576, 20.93775, 20.93365, 20.93475, 20.93337, 20.93218, 20.93043, 20.92731, 
  20.9251, 20.92189, 20.92361, 20.92292, 20.92461, 20.92315, 20.92408, 20.92326, 20.92461, 20.92924, 
  20.9336, 20.93278, 20.93127, 20.93118, 20.93489, 20.93851, 20.93913, 20.94086, 20.94078, 20.94313, 
  20.94568, 20.94679, 20.945, 20.9446, 20.94344, 20.94323)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  59.92839, 59.92411, 59.92454, 59.92361, 59.92327, 59.92273, 59.92206, 59.92188, 59.92012, 59.91931, 
  59.91863, 59.91737, 59.9171, 59.91384, 59.91421, 59.91369, 59.91364, 59.91298, 59.91268, 59.91222, 
  59.91254, 59.9122, 59.91248, 59.91208, 59.91247, 59.91214, 59.91132, 59.91132, 59.91089, 59.91134, 
  59.91152, 59.91142, 59.91181, 59.91173, 59.91146, 59.91163, 59.91141, 59.91115, 59.91096, 59.91078, 
  59.91066, 59.91036, 59.91022, 59.90968, 59.90964, 59.91059, 59.91039, 59.90973, 59.9092, 59.9085, 
  59.90791, 59.9089, 59.90885, 59.90951, 59.90854, 59.9079, 59.90752, 59.9068, 59.9064, 59.90403, 
  59.90344, 59.90275, 59.9026, 59.90221, 59.90271, 59.90469, 59.90353, 59.90261, 59.90182, 59.9016, 
  59.9022, 59.90242, 59.90348, 59.90249, 59.9035, 59.90268, 59.90249, 59.90197, 59.90362, 59.90528, 
  59.9054, 59.90653, 59.9073, 59.90795, 59.90778, 59.908, 59.90867, 59.90994, 59.91016, 59.91083, 
  59.91067, 59.9101, 59.90978, 59.91028, 59.90973, 59.91074, 59.90956, 59.91232, 59.91281, 59.91244, 
  59.91284, 59.91365, 59.91399, 59.91357, 59.91383, 59.91541, 59.91629, 59.91693, 59.91766, 59.91736, 
  59.91779, 59.91856, 59.91853, 59.91955, 59.9202, 59.9195, 59.91915, 59.91721, 59.91673, 59.91591, 
  59.91456, 59.91337, 59.91225, 59.91556, 59.91578, 59.91716, 59.91704, 59.91793, 59.91852, 59.91854, 
  59.91906, 59.91989, 59.92114, 59.9224, 59.92245, 59.92166, 59.92038, 59.91879, 59.91796, 59.91935, 
  59.92123, 59.9216, 59.92326, 59.92231, 59.92245, 59.92309, 59.92243, 59.92238, 59.923, 59.92244, 
  59.92358, 59.92226, 59.92173, 59.92227, 59.92291, 59.92374, 59.92299, 59.92226, 59.92197, 59.92258,
  59.92188, 59.92236, 59.92226, 59.9229, 59.92384, 59.92428, 59.92377, 59.92462, 59.9245, 59.92359, 
  59.92277, 59.92307, 59.92079, 59.92024, 59.92032, 59.9194, 59.91901, 59.9183, 59.91874, 59.9186, 
  59.91914, 59.91967, 59.91992, 59.92023, 59.92121, 59.92097, 59.92202, 59.9213, 59.92225, 59.92345, 
  59.92446, 59.92502, 59.92627, 59.92616, 59.92654, 59.92755, 59.92808, 59.92857, 59.92869, 59.92944, 
  59.92991, 59.93034, 59.93043, 59.93088, 59.93112, 59.93183, 59.93166, 59.93033, 59.93043, 59.93181, 
  59.93316, 59.93294, 59.93356, 59.9342, 59.93506, 59.9356, 59.9366, 59.93712, 59.93692, 59.93744, 
  59.93767, 59.93838, 59.93924, 59.94076, 59.94076, 59.94007, 59.9401, 59.93967, 59.93995, 59.94032, 
  59.94035, 59.94122, 59.9404, 59.94105, 59.93987, 59.94111, 59.94253, 59.94304, 59.94345, 59.94419, 
  59.9443, 59.94537, 59.94547, 59.94697, 59.94772, 59.94783, 59.94731, 59.94652, 59.94497, 59.94403, 
  59.94321, 59.94317, 59.9428, 59.94408, 59.94349, 59.94372, 59.94292, 59.94316, 59.94262, 59.9428, 
  59.94363, 59.94402, 59.94353, 59.94435, 59.94248, 59.94225, 59.94246, 59.94156, 59.94311, 59.94491, 
  59.94624, 59.94907, 59.95105, 59.95239, 59.95129, 59.95001, 59.94981, 59.95129, 59.95179, 59.95287, 
  59.95498, 59.95534, 59.95382, 59.95286, 59.95275, 59.95163, 59.9517, 59.95347, 59.95654, 59.95723, 
  59.95817, 59.95894, 59.95757, 59.95829, 59.95669, 59.95702, 59.9552, 59.95565, 59.95787, 59.95892, 
  59.96113, 59.96061, 59.96162, 59.962, 59.96321, 59.96189, 59.96265, 59.96167, 59.96228, 59.96029, 
  59.9602, 59.95737, 59.955, 59.95647, 59.95578, 59.95472, 59.95366, 59.95392, 59.95271, 59.95094,
  59.95028, 59.94916, 59.94816, 59.94735, 59.94885, 59.94989, 59.95125, 59.94937, 59.94555, 59.9434, 
  59.94392, 59.94103, 59.93925, 59.93914, 59.93603, 59.935, 59.93361, 59.93333, 59.93127, 59.93228, 
  59.93146, 59.93309, 59.93138, 59.93255, 59.93268, 59.93153, 59.93047, 59.92939, 59.92835, 59.92645, 
  59.92598, 59.92662, 59.9256, 59.92517, 59.92432, 59.92423, 59.9254, 59.92812, 59.93056, 59.9318, 
  59.93514, 59.93591, 59.93806, 59.93765, 59.93928, 59.94129, 59.94336, 59.94595, 59.94441, 59.94603, 
  59.94532, 59.94427, 59.9429, 59.94335, 59.9422, 59.9399, 59.93943, 59.94141, 59.94143, 59.94246, 
  59.94451, 59.94574, 59.9464, 59.94561, 59.94497, 59.9447, 59.94542, 59.94585, 59.94627, 59.94746, 
  59.94844, 59.94729, 59.9487, 59.94867, 59.94998, 59.95038, 59.94921, 59.9501, 59.94702, 59.94502, 
  59.94437, 59.9456, 59.94413, 59.94201, 59.94237, 59.94056, 59.94002, 59.94019, 59.93908, 59.93783, 
  59.93832, 59.93698, 59.93488, 59.93423, 59.93151, 59.93016)
LONGITUDE_VALUEs <- c(
  20.85409, 20.85586, 20.85944, 20.85975, 20.8606, 20.85903, 20.86044, 20.8596, 20.8597, 20.86223, 
  20.8627, 20.86661, 20.86907, 20.87318, 20.88011, 20.88113, 20.88337, 20.88386, 20.88569, 20.88525, 
  20.88433, 20.88357, 20.88219, 20.88129, 20.87971, 20.87706, 20.87746, 20.87969, 20.88142, 20.88303, 
  20.88516, 20.88603, 20.88712, 20.88904, 20.88972, 20.89077, 20.89133, 20.89041, 20.89212, 20.89215, 
  20.89077, 20.89148, 20.89109, 20.89106, 20.89232, 20.89267, 20.89364, 20.89342, 20.89511, 20.89409, 
  20.89524, 20.89562, 20.89636, 20.89744, 20.89943, 20.8988, 20.89909, 20.90052, 20.89957, 20.89908, 
  20.9018, 20.90183, 20.90315, 20.90456, 20.90569, 20.90579, 20.9097, 20.90931, 20.90982, 20.91112, 
  20.912, 20.91478, 20.91811, 20.92083, 20.92358, 20.92376, 20.92463, 20.92519, 20.92754, 20.92733, 
  20.92605, 20.92668, 20.92562, 20.92781, 20.92935, 20.92983, 20.92792, 20.92671, 20.92714, 20.92687, 
  20.92525, 20.92538, 20.9221, 20.92128, 20.91932, 20.91843, 20.91305, 20.91293, 20.9149, 20.91658, 
  20.91859, 20.9185, 20.91595, 20.915, 20.91332, 20.91378, 20.90726, 20.90773, 20.91011, 20.91138, 
  20.91221, 20.9115, 20.91062, 20.90978, 20.91211, 20.91281, 20.91252, 20.91612, 20.91849, 20.91818, 
  20.92106, 20.9215, 20.9275, 20.93232, 20.93393, 20.9323, 20.92837, 20.92527, 20.92593, 20.93042, 
  20.93288, 20.932, 20.9349, 20.93633, 20.93837, 20.93951, 20.93816, 20.93449, 20.93681, 20.94417, 
  20.94217, 20.94026, 20.94072, 20.94268, 20.94729, 20.9487, 20.94969, 20.95109, 20.95225, 20.95365, 
  20.9537, 20.95655, 20.96065, 20.96399, 20.96477, 20.96675, 20.96776, 20.96765, 20.96947, 20.97183,
  20.97564, 20.97684, 20.9791, 20.9791, 20.97797, 20.97926, 20.98029, 20.98207, 20.98323, 20.98467, 
  20.98392, 20.98087, 20.98014, 20.98182, 20.97693, 20.97736, 20.98027, 20.98196, 20.98319, 20.98493, 
  20.98755, 20.98807, 20.9899, 20.98985, 20.98728, 20.99083, 20.9908, 20.99623, 20.99608, 20.99356, 
  20.99326, 20.99115, 20.99158, 20.99361, 20.99415, 20.99346, 20.99517, 20.99496, 20.99597, 20.99529, 
  20.99585, 20.99559, 20.99726, 20.9975, 20.99557, 20.99435, 20.99175, 20.98999, 20.98911, 20.98841, 
  20.98904, 20.99045, 20.99117, 20.99072, 20.99114, 20.9905, 20.99048, 20.98879, 20.98741, 20.9871, 
  20.98834, 20.98829, 20.98117, 20.97767, 20.97596, 20.97631, 20.97429, 20.97399, 20.97148, 20.97157, 
  20.97268, 20.97212, 20.96825, 20.96484, 20.96326, 20.96164, 20.96329, 20.9625, 20.96038, 20.96042, 
  20.96203, 20.96057, 20.9591, 20.95544, 20.95521, 20.9573, 20.9582, 20.96197, 20.96302, 20.96729, 
  20.96935, 20.97216, 20.97607, 20.97722, 20.97798, 20.97878, 20.97995, 20.9861, 20.98743, 20.98873, 
  20.9891, 20.99089, 20.99236, 20.99482, 20.99379, 20.99444, 20.99553, 20.99904, 21.00425, 21.00418, 
  21.00566, 21.00442, 21.00613, 21.00371, 21.00038, 21.00053, 20.99858, 20.99875, 20.99738, 20.9994, 
  20.99751, 20.99182, 20.99017, 20.99032, 20.9879, 20.988, 20.97712, 20.97135, 20.97, 20.96749, 
  20.96798, 20.96599, 20.96135, 20.95781, 20.95547, 20.95223, 20.95168, 20.94734, 20.94732, 20.94904, 
  20.94363, 20.9421, 20.94103, 20.93822, 20.93644, 20.93412, 20.92745, 20.92584, 20.92303, 20.9226, 
  20.91816, 20.91593, 20.91968, 20.91292, 20.91005, 20.9105, 20.9135, 20.91556, 20.91634, 20.92211,
  20.92806, 20.92969, 20.93296, 20.9318, 20.92489, 20.92285, 20.91431, 20.9098, 20.91379, 20.91843, 
  20.92244, 20.92755, 20.9277, 20.92573, 20.92888, 20.93197, 20.93465, 20.93042, 20.93285, 20.9289, 
  20.92384, 20.92279, 20.92111, 20.91877, 20.91545, 20.91562, 20.91972, 20.91997, 20.91821, 20.91845, 
  20.9174, 20.91658, 20.916, 20.9145, 20.91334, 20.91121, 20.91061, 20.91289, 20.91227, 20.90826, 
  20.90845, 20.90967, 20.90607, 20.90429, 20.90474, 20.90212, 20.90431, 20.90034, 20.89508, 20.89317, 
  20.89127, 20.89237, 20.89149, 20.89001, 20.88743, 20.88983, 20.88151, 20.88009, 20.87803, 20.87765, 
  20.88119, 20.88042, 20.88273, 20.88359, 20.88226, 20.88361, 20.88544, 20.88471, 20.88602, 20.884, 
  20.88466, 20.8882, 20.88977, 20.88816, 20.88887, 20.8876, 20.88479, 20.88123, 20.87314, 20.87559, 
  20.87408, 20.87116, 20.86825, 20.87166, 20.87424, 20.8699, 20.87072, 20.87606, 20.87688, 20.87436, 
  20.86601, 20.8637, 20.86357, 20.86024, 20.86282, 20.86132)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.0176, 60.01653, 60.01556, 60.01456, 60.01324, 60.01252, 60.01342, 60.0125, 60.01294, 60.01568, 
  60.01628, 60.01869, 60.01784)
LONGITUDE_VALUEs <- c(
  20.96163, 20.96234, 20.96167, 20.96294, 20.96086, 20.96511, 20.96719, 20.97234, 20.97413, 20.97136, 
  20.96922, 20.9643, 20.96297)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.03427, 60.03321, 60.03243, 60.03124, 60.03023, 60.02961, 60.02834, 60.0279, 60.02807, 60.02728, 
  60.02733, 60.02546, 60.02509, 60.02611, 60.02595, 60.0267, 60.02706, 60.02811, 60.02887, 60.02989, 
  60.03044, 60.02956, 60.02976, 60.02957, 60.02929, 60.02945, 60.02909, 60.02934, 60.02921, 60.02885, 
  60.02859, 60.02921, 60.02968, 60.0303, 60.03064, 60.03019, 60.03006, 60.02978, 60.02973, 60.02924, 
  60.02888, 60.02915, 60.02847, 60.02835, 60.02806, 60.02816, 60.02792, 60.02729, 60.02693, 60.02719, 
  60.02761, 60.02749, 60.02781, 60.0274, 60.027, 60.02578, 60.02612, 60.02573, 60.0256, 60.02504, 
  60.02459, 60.02462, 60.02425, 60.02464, 60.02446, 60.02387, 60.02347, 60.02292, 60.02339, 60.02326, 
  60.02262, 60.02125, 60.02302, 60.02384, 60.02406, 60.02502, 60.02549, 60.02675, 60.02784, 60.02714, 
  60.02745, 60.02836, 60.02898, 60.02839, 60.02884, 60.02957, 60.03007, 60.03101, 60.03175, 60.03247, 
  60.03397, 60.03463)
LONGITUDE_VALUEs <- c(
  20.91678, 20.91898, 20.91865, 20.92013, 20.91918, 20.91742, 20.91894, 20.91816, 20.91747, 20.9161, 
  20.91315, 20.91265, 20.91091, 20.91142, 20.91016, 20.90984, 20.91128, 20.91159, 20.91262, 20.91174, 
  20.90862, 20.90682, 20.90526, 20.90474, 20.90481, 20.90439, 20.90426, 20.90394, 20.9034, 20.90338, 
  20.90251, 20.90293, 20.90051, 20.90017, 20.89873, 20.89816, 20.89716, 20.89708, 20.89779, 20.89759, 
  20.89826, 20.89913, 20.89993, 20.90134, 20.90016, 20.89938, 20.89925, 20.90115, 20.90395, 20.9044, 
  20.90308, 20.90419, 20.90497, 20.90572, 20.9052, 20.90665, 20.9091, 20.90987, 20.90903, 20.90874, 
  20.90911, 20.90822, 20.90766, 20.90729, 20.90648, 20.90728, 20.90695, 20.91015, 20.91026, 20.91075, 
  20.91131, 20.91708, 20.91787, 20.91561, 20.91702, 20.91534, 20.91793, 20.91816, 20.92089, 20.9215, 
  20.92353, 20.92457, 20.9227, 20.92159, 20.92071, 20.92203, 20.92132, 20.92197, 20.92353, 20.92359, 
  20.92076, 20.91737)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.02292, 60.01871, 60.01616, 60.01564, 60.01502, 60.01421, 60.01421, 60.01395, 60.01409, 60.01381, 
  60.01462, 60.01579, 60.01577, 60.01654, 60.01677, 60.01706, 60.01681, 60.01705, 60.01783, 60.01855, 
  60.01903, 60.01904, 60.01951, 60.02021, 60.02134, 60.02234, 60.0224)
LONGITUDE_VALUEs <- c(
  20.85582, 20.85489, 20.85999, 20.85783, 20.85846, 20.86009, 20.86083, 20.86129, 20.86208, 20.86274, 
  20.86447, 20.86421, 20.86583, 20.86675, 20.86669, 20.86542, 20.86494, 20.8643, 20.86375, 20.86168, 
  20.86202, 20.86566, 20.86576, 20.86681, 20.86661, 20.86142, 20.85873)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.03062, 60.03595, 60.03722, 60.03833, 60.03839, 60.03912, 60.03893, 60.03823, 60.03899, 60.03909, 
  60.04083, 60.0411, 60.04145, 60.0423, 60.04241, 60.04204, 60.04236, 60.0432, 60.04425, 60.04461, 
  60.0431, 60.04172, 60.04216, 60.04184, 60.04071, 60.04002, 60.04011, 60.03945, 60.03971, 60.04171, 
  60.04211, 60.04278, 60.04288, 60.04268, 60.04181, 60.04159, 60.0412, 60.04081, 60.04037, 60.04051, 
  60.03978, 60.03967, 60.03947, 60.03946, 60.03995, 60.03993, 60.03931, 60.03957, 60.0392, 60.03874, 
  60.03882, 60.03852, 60.03876, 60.03869, 60.03842, 60.03871, 60.03791, 60.0373, 60.03707, 60.03669, 
  60.0365, 60.03718, 60.03689, 60.03758, 60.03778, 60.0374, 60.03717, 60.0366, 60.03657, 60.03499, 
  60.03436, 60.03293, 60.03329, 60.03255, 60.03239, 60.03184, 60.03174, 60.03091)
LONGITUDE_VALUEs <- c(
  20.82834, 20.83273, 20.8319, 20.83239, 20.83146, 20.83124, 20.83, 20.82915, 20.8286, 20.82914, 
  20.82909, 20.82824, 20.82921, 20.82899, 20.82573, 20.82537, 20.82454, 20.82508, 20.824, 20.82178, 
  20.82042, 20.82166, 20.82293, 20.82361, 20.82238, 20.82297, 20.82198, 20.8217, 20.8212, 20.82033, 
  20.81893, 20.81811, 20.81732, 20.81703, 20.8182, 20.81787, 20.81827, 20.8178, 20.81846, 20.81776, 
  20.8188, 20.81845, 20.81872, 20.81793, 20.81738, 20.81684, 20.81748, 20.81615, 20.81607, 20.81681, 
  20.81631, 20.8163, 20.81553, 20.8147, 20.81473, 20.81408, 20.81396, 20.81499, 20.81643, 20.81694, 
  20.81834, 20.8185, 20.8195, 20.82047, 20.82147, 20.8223, 20.82109, 20.82124, 20.82047, 20.82029, 
  20.82158, 20.82271, 20.82081, 20.82054, 20.82208, 20.82334, 20.82435, 20.82594)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.06621, 60.06609, 60.06698, 60.06737, 60.06796, 60.06815, 60.0678, 60.06803, 60.06733, 60.06716, 
  60.06739, 60.06715, 60.0668, 60.06669, 60.06619, 60.0655, 60.06571, 60.06604, 60.06648, 60.0664, 
  60.06675, 60.06588, 60.0655, 60.06472, 60.06506, 60.0659, 60.06686, 60.06792, 60.06731, 60.06796, 
  60.06676, 60.06722, 60.06805, 60.06867, 60.06885, 60.06911, 60.06911, 60.06954, 60.06986, 60.07108, 
  60.07086, 60.07145, 60.07089, 60.07049, 60.07031, 60.06948, 60.06975, 60.07075, 60.07117, 60.07142, 
  60.07207, 60.07235, 60.0728, 60.07378, 60.07331, 60.07341, 60.0728, 60.07385, 60.07354, 60.07386, 
  60.07442, 60.07452, 60.0752, 60.07548, 60.07629, 60.07646, 60.07749, 60.07747, 60.07774, 60.07669, 
  60.07663, 60.07568, 60.07532, 60.075, 60.07426, 60.0737, 60.07343, 60.07265, 60.07248, 60.07372, 
  60.07354, 60.07293, 60.07311, 60.07232, 60.07187, 60.07172, 60.07242, 60.07217, 60.07318, 60.07273, 
  60.07328, 60.07292, 60.07326, 60.07297, 60.07304, 60.07262, 60.072, 60.07176, 60.0698, 60.06813, 
  60.06697, 60.0658)
LONGITUDE_VALUEs <- c(
  20.79418, 20.79552, 20.7951, 20.79404, 20.79373, 20.79467, 20.79574, 20.79653, 20.79711, 20.79832, 
  20.79915, 20.8005, 20.8002, 20.79941, 20.79979, 20.80298, 20.80347, 20.80325, 20.8038, 20.80466, 
  20.80568, 20.80647, 20.80584, 20.80734, 20.80909, 20.80946, 20.81317, 20.8126, 20.81491, 20.81474, 
  20.81821, 20.82065, 20.81797, 20.81808, 20.82009, 20.82015, 20.82092, 20.82101, 20.82183, 20.82192, 
  20.82085, 20.81805, 20.81664, 20.81643, 20.81516, 20.81354, 20.813, 20.81403, 20.81349, 20.81515, 
  20.81478, 20.81351, 20.81373, 20.81654, 20.8172, 20.81806, 20.81863, 20.81955, 20.8206, 20.82124, 
  20.82089, 20.81991, 20.81989, 20.81909, 20.81802, 20.81552, 20.81349, 20.81214, 20.8107, 20.81109, 
  20.80859, 20.80836, 20.807, 20.80711, 20.81083, 20.81062, 20.80966, 20.81039, 20.80862, 20.80754, 
  20.80683, 20.80639, 20.80529, 20.80599, 20.80562, 20.8048, 20.80326, 20.80202, 20.7998, 20.79859, 
  20.79761, 20.79695, 20.79627, 20.79529, 20.7935, 20.79245, 20.79263, 20.79074, 20.78981, 20.79176, 
  20.79165, 20.79337)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.0587, 60.05871, 60.06089, 60.05947, 60.05994, 60.05994, 60.06058, 60.06143, 60.06168, 60.06264, 
  60.06253, 60.06362, 60.06334, 60.05751, 60.05718, 60.057, 60.05662, 60.05654, 60.05564, 60.0553, 
  60.05555, 60.05522, 60.05613)
LONGITUDE_VALUEs <- c(
  20.75248, 20.75362, 20.75488, 20.75784, 20.75802, 20.76119, 20.76168, 20.76055, 20.75615, 20.75501, 
  20.75197, 20.74802, 20.74472, 20.74107, 20.74197, 20.74089, 20.74151, 20.74347, 20.74408, 20.74574, 
  20.74708, 20.74835, 20.75049)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.05889, 60.05889, 60.06042, 60.06061, 60.06197, 60.06208, 60.06263, 60.06269, 60.06343, 60.06393, 
  60.06203, 60.06393, 60.06385, 60.06315, 60.06312, 60.06269, 60.06216, 60.06208, 60.0615, 60.0616, 
  60.06007, 60.05848, 60.05859, 60.05939, 60.05984, 60.06111, 60.06103, 60.06033, 60.05986, 60.0592, 
  60.05898, 60.05863, 60.05865)
LONGITUDE_VALUEs <- c(
  20.73704, 20.73902, 20.74041, 20.73956, 20.74139, 20.74222, 20.74218, 20.74078, 20.74081, 20.73799, 
  20.73517, 20.73427, 20.73165, 20.73019, 20.7291, 20.72867, 20.72915, 20.7279, 20.72737, 20.72571, 
  20.72518, 20.72788, 20.73022, 20.73113, 20.7326, 20.73432, 20.73529, 20.73552, 20.73422, 20.73445, 
  20.73358, 20.73392, 20.73649)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.06761, 60.06796, 60.06675, 60.06679, 60.06667, 60.06708, 60.0671, 60.06775, 60.06829, 60.06887, 
  60.06916, 60.07009, 60.0699, 60.07009, 60.0694, 60.06999, 60.0696, 60.0691, 60.06934, 60.06916, 
  60.06984, 60.07058, 60.07073, 60.06916, 60.06954, 60.07026, 60.0714, 60.07138, 60.07087, 60.07097, 
  60.07065, 60.07056, 60.07009, 60.06988, 60.06952, 60.06962, 60.06931, 60.06921, 60.06887, 60.06887, 
  60.06853, 60.0686, 60.06827, 60.06865, 60.06819, 60.06792, 60.06755, 60.06727, 60.06703, 60.06689, 
  60.06659, 60.06631, 60.0665, 60.0665, 60.06712)
LONGITUDE_VALUEs <- c(
  20.74088, 20.74114, 20.74438, 20.74643, 20.74744, 20.74855, 20.7498, 20.75119, 20.75126, 20.75039, 
  20.75137, 20.74972, 20.74891, 20.74825, 20.74684, 20.745, 20.7439, 20.74373, 20.74291, 20.74214, 
  20.74002, 20.73962, 20.7387, 20.73856, 20.73731, 20.73714, 20.73561, 20.73491, 20.73501, 20.73372, 
  20.73332, 20.73219, 20.73305, 20.73222, 20.7328, 20.73316, 20.7335, 20.73404, 20.73428, 20.73276, 
  20.73288, 20.73337, 20.73406, 20.7345, 20.73476, 20.73537, 20.73554, 20.73648, 20.73662, 20.73764, 
  20.73792, 20.73954, 20.73985, 20.74057, 20.74165)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.07388, 60.07274, 60.07232, 60.07267, 60.0721, 60.07168, 60.0711, 60.07127, 60.0706, 60.07139, 
  60.07068, 60.07157, 60.07264, 60.07347, 60.07397, 60.07385, 60.07343, 60.07377, 60.07476, 60.07497, 
  60.07468, 60.07564, 60.07713, 60.07731, 60.07697, 60.07687, 60.07654, 60.07588, 60.07513, 60.07513, 
  60.07476, 60.07454, 60.07377)
LONGITUDE_VALUEs <- c(
  20.74547, 20.74534, 20.7478, 20.75279, 20.75363, 20.75333, 20.75409, 20.75446, 20.75564, 20.75582, 
  20.75747, 20.75763, 20.75424, 20.7538, 20.75487, 20.7569, 20.75844, 20.75967, 20.75888, 20.75785, 
  20.75704, 20.75528, 20.75496, 20.74953, 20.74881, 20.74567, 20.74537, 20.74294, 20.74288, 20.74224, 
  20.74238, 20.74187, 20.74368)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.0797, 60.07902, 60.07927, 60.07882, 60.07927, 60.08085, 60.0796, 60.08003, 60.08288, 60.08304, 
  60.08388, 60.08392, 60.08426, 60.08398, 60.08455, 60.08463, 60.08566, 60.08588, 60.0852, 60.08485, 
  60.08411, 60.08375, 60.08319, 60.08261, 60.08141, 60.07931)
LONGITUDE_VALUEs <- c(
  20.71993, 20.7221, 20.72308, 20.72568, 20.72864, 20.72615, 20.72229, 20.72201, 20.72632, 20.72555, 
  20.72536, 20.72437, 20.72409, 20.72182, 20.72107, 20.71903, 20.71978, 20.71721, 20.71751, 20.71648, 
  20.71626, 20.71504, 20.7154, 20.71053, 20.71085, 20.71755)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.08717, 60.08861, 60.09157, 60.09381, 60.09544, 60.09535, 60.09407, 60.09364, 60.09427, 60.09536, 
  60.09549, 60.09397, 60.09389, 60.09285, 60.09181, 60.09209, 60.09043, 60.08897)
LONGITUDE_VALUEs <- c(
  20.70156, 20.703, 20.70328, 20.70096, 20.70062, 20.69907, 20.69907, 20.69706, 20.6977, 20.69684, 
  20.69393, 20.69326, 20.69195, 20.69083, 20.69277, 20.69437, 20.69476, 20.69867)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.1026, 60.10265, 60.1036, 60.10482, 60.10553, 60.10725, 60.10727, 60.10782, 60.10831, 60.10773, 
  60.10656, 60.10547, 60.10523, 60.10456, 60.10399, 60.10348, 60.10275, 60.1022, 60.10145, 60.10099, 
  60.10201, 60.10146, 60.10186)
LONGITUDE_VALUEs <- c(
  20.69043, 20.69303, 20.69489, 20.69444, 20.69218, 20.6912, 20.68849, 20.689, 20.68673, 20.68448, 
  20.68373, 20.68427, 20.68306, 20.68375, 20.68337, 20.68475, 20.68323, 20.68411, 20.68242, 20.68303, 
  20.6863, 20.68659, 20.68945)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.18611, 60.1878, 60.18881, 60.18826, 60.18388, 60.18192, 60.18128, 60.18258, 60.18243, 60.18328, 
  60.18332)
LONGITUDE_VALUEs <- c(
  20.5745, 20.57692, 20.57643, 20.57156, 20.56486, 20.56632, 20.56933, 20.56991, 20.57136, 20.57203, 
  20.57409)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.15966, 60.15832, 60.15716, 60.15892, 60.15895, 60.15977, 60.16135, 60.16176, 60.16083, 60.16187, 
  60.16208, 60.16389, 60.16459, 60.16682, 60.16808, 60.16655, 60.16732, 60.16991, 60.17077, 60.16977, 
  60.17183, 60.17146, 60.16995, 60.16724, 60.16538, 60.16424, 60.16254, 60.16146, 60.16088, 60.16001, 
  60.15957, 60.15831, 60.15867)
LONGITUDE_VALUEs <- c(
  20.57289, 20.57268, 20.57742, 20.58089, 20.58613, 20.58682, 20.58444, 20.58847, 20.59014, 20.5986, 
  20.60752, 20.60943, 20.60553, 20.60943, 20.60808, 20.60458, 20.60353, 20.60705, 20.60512, 20.60195, 
  20.59581, 20.59315, 20.59291, 20.57965, 20.581, 20.57879, 20.57021, 20.56909, 20.56489, 20.56551, 
  20.56457, 20.56793, 20.57083)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.11081, 60.11004, 60.11209, 60.11162, 60.11506, 60.11504, 60.11544, 60.11552, 60.11728, 60.11774, 
  60.11958, 60.12024, 60.12082, 60.12235, 60.12281, 60.1237, 60.12409, 60.12349, 60.12346, 60.12407, 
  60.12439, 60.12519, 60.12674, 60.12632, 60.12928, 60.13044, 60.13095, 60.13046, 60.13199, 60.13267, 
  60.13325, 60.1332, 60.13385, 60.13447, 60.13527, 60.13584, 60.13845, 60.13901, 60.1396, 60.14017, 
  60.14053, 60.14145, 60.14218, 60.14256, 60.14158, 60.14263, 60.14276, 60.14375, 60.14426, 60.14455, 
  60.14511, 60.14518, 60.14468, 60.14506, 60.14354, 60.1443, 60.14644, 60.14618, 60.14537, 60.1454, 
  60.14672, 60.14871, 60.14838, 60.14851, 60.14739, 60.14822, 60.14932, 60.14947, 60.15007, 60.14996, 
  60.15063, 60.15166, 60.15339, 60.15401, 60.15265, 60.15352, 60.15182, 60.15291, 60.15194, 60.15231, 
  60.15174, 60.15043, 60.15007, 60.14975, 60.14974, 60.14888, 60.14831, 60.14952, 60.15018, 60.14986, 
  60.14883, 60.14949, 60.14836, 60.14789, 60.14714, 60.14719, 60.14398, 60.13717, 60.13812, 60.13325, 
  60.13077, 60.13041, 60.12964, 60.12922, 60.12861, 60.12843, 60.12669, 60.12445, 60.12267, 60.12057, 
  60.11982, 60.11857, 60.11752, 60.11256, 60.11238, 60.11069, 60.10979, 60.11003, 60.10969)
LONGITUDE_VALUEs <- c(
  20.67712, 20.68337, 20.68712, 20.68848, 20.68846, 20.68565, 20.6855, 20.68437, 20.68179, 20.68468, 
  20.68525, 20.68343, 20.68716, 20.68833, 20.68507, 20.68444, 20.68585, 20.68716, 20.68912, 20.68958, 
  20.68901, 20.69062, 20.69044, 20.68646, 20.68546, 20.68624, 20.68511, 20.68388, 20.68307, 20.6802, 
  20.68042, 20.68396, 20.68394, 20.68141, 20.68206, 20.6812, 20.68229, 20.68068, 20.68039, 20.67843, 
  20.68088, 20.67934, 20.67906, 20.67756, 20.67577, 20.67554, 20.67497, 20.67519, 20.67583, 20.67561, 
  20.67571, 20.6752, 20.67423, 20.67286, 20.67084, 20.6677, 20.66998, 20.67101, 20.67045, 20.67184, 
  20.674, 20.6702, 20.66735, 20.66019, 20.65765, 20.65169, 20.6533, 20.65744, 20.658, 20.65912, 
  20.65954, 20.65727, 20.65808, 20.65645, 20.65553, 20.65308, 20.65197, 20.64883, 20.64809, 20.64639, 
  20.64596, 20.6498, 20.64817, 20.6481, 20.64648, 20.64673, 20.64578, 20.64476, 20.64279, 20.64174, 
  20.64195, 20.63894, 20.63976, 20.63896, 20.63997, 20.6416, 20.63334, 20.63373, 20.63792, 20.63484, 
  20.63805, 20.64106, 20.64184, 20.64394, 20.64407, 20.64639, 20.64635, 20.65163, 20.6516, 20.65437, 
  20.65298, 20.65459, 20.65349, 20.66328, 20.66551, 20.66643, 20.67008, 20.67218, 20.67641)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.16565, 60.169, 60.16967, 60.1704, 60.17115, 60.17041, 60.17074, 60.17191, 60.17234, 60.17377, 
  60.17603, 60.1758, 60.17617, 60.17709, 60.17868, 60.17804, 60.17837, 60.17725, 60.17539, 60.17397, 
  60.17313, 60.17211, 60.17154, 60.17042, 60.17179, 60.17233, 60.17292, 60.17346, 60.17559, 60.17549, 
  60.17316, 60.17419, 60.1727, 60.17112, 60.17033, 60.16981, 60.16913, 60.16829, 60.16724, 60.1668)
LONGITUDE_VALUEs <- c(
  20.73018, 20.74172, 20.74181, 20.74281, 20.74249, 20.74131, 20.74067, 20.74215, 20.74002, 20.7394, 
  20.73571, 20.73365, 20.73262, 20.73427, 20.73193, 20.73007, 20.7288, 20.72664, 20.727, 20.7296, 
  20.72904, 20.72966, 20.72829, 20.72799, 20.72595, 20.72638, 20.72573, 20.72644, 20.72494, 20.72346, 
  20.7234, 20.71958, 20.71408, 20.71576, 20.71955, 20.71874, 20.7188, 20.72365, 20.72393, 20.72756)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.19452, 60.19474, 60.1957, 60.19535, 60.19221, 60.19348, 60.19156, 60.19083, 60.19175, 60.19222, 
  60.19269, 60.19329, 60.1947, 60.19363, 60.19594, 60.19726, 60.19864, 60.20006, 60.20059, 60.20016, 
  60.20391, 60.20354, 60.20612, 60.2074, 60.20939, 60.2107, 60.21076, 60.2092, 60.20781, 60.20877, 
  60.21299, 60.21342, 60.21568, 60.21534, 60.21901, 60.21996, 60.22047, 60.22316, 60.22384, 60.22318, 
  60.22639, 60.22639, 60.2291, 60.23009, 60.22906, 60.22771, 60.22806, 60.22774, 60.22594, 60.22904, 
  60.23143, 60.23188, 60.23293, 60.23304, 60.23252, 60.23294, 60.2341, 60.23433, 60.2346, 60.23519, 
  60.23556, 60.23517, 60.23538, 60.23611, 60.23619, 60.23699, 60.23649, 60.23402, 60.23443, 60.23357, 
  60.23083, 60.22599, 60.22451, 60.22317, 60.21266, 60.21224, 60.21118, 60.21086, 60.21203, 60.20785, 
  60.20252, 60.20222, 60.19928, 60.19862, 60.20195, 60.20037, 60.20214, 60.19958, 60.19738, 60.19602, 
  60.19467, 60.19361, 60.19333, 60.18951, 60.18981, 60.1916, 60.19107, 60.19393, 60.19226, 60.19356)
LONGITUDE_VALUEs <- c(
  20.69342, 20.69486, 20.69498, 20.69805, 20.6999, 20.70198, 20.70271, 20.70535, 20.70653, 20.70601, 
  20.70715, 20.70533, 20.70754, 20.71198, 20.71346, 20.71327, 20.7164, 20.71528, 20.71601, 20.71784, 
  20.71651, 20.71314, 20.71241, 20.71082, 20.71093, 20.71003, 20.7087, 20.70674, 20.70706, 20.7043, 
  20.70659, 20.70927, 20.71026, 20.70816, 20.70614, 20.70404, 20.7058, 20.70481, 20.70355, 20.70104, 
  20.69724, 20.69462, 20.69067, 20.68655, 20.68504, 20.68662, 20.68523, 20.68431, 20.68316, 20.68194, 
  20.67844, 20.67662, 20.67615, 20.67718, 20.67755, 20.67967, 20.68077, 20.68001, 20.68173, 20.67993, 
  20.68104, 20.68201, 20.68289, 20.68257, 20.67911, 20.67744, 20.67564, 20.67695, 20.67321, 20.6716, 
  20.67347, 20.66647, 20.66729, 20.66454, 20.66431, 20.6669, 20.66629, 20.66449, 20.66204, 20.65771, 
  20.65887, 20.66415, 20.66239, 20.67144, 20.67389, 20.67535, 20.68063, 20.6775, 20.67737, 20.6729, 
  20.67251, 20.67737, 20.67419, 20.67874, 20.68243, 20.68419, 20.68685, 20.68852, 20.69028, 20.69303)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.22583, 60.22713, 60.22875, 60.22807, 60.22864, 60.23229, 60.2345, 60.23231, 60.2289, 60.22788, 
  60.22487, 60.22487, 60.22577)
LONGITUDE_VALUEs <- c(
  20.82858, 20.82927, 20.83437, 20.83733, 20.83858, 20.83682, 20.83043, 20.82193, 20.81893, 20.82043, 
  20.81962, 20.82395, 20.82541)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.24104, 60.24407, 60.24518, 60.24179, 60.23623, 60.23721, 60.23534, 60.23297, 60.23024, 60.23186, 
  60.24041)
LONGITUDE_VALUEs <- c(
  20.75194, 20.75254, 20.74619, 20.73958, 20.74005, 20.74524, 20.75271, 20.75318, 20.7564, 20.75902, 
  20.75434)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.20997, 60.2136, 60.2153, 60.21603, 60.21543, 60.21601, 60.21688, 60.21856, 60.21633, 60.21786, 
  60.22076, 60.21839, 60.21931, 60.21656, 60.2156, 60.2152, 60.21234, 60.21059)
LONGITUDE_VALUEs <- c(
  20.73095, 20.73889, 20.73932, 20.74245, 20.74477, 20.74821, 20.74636, 20.75082, 20.75391, 20.75451, 
  20.74962, 20.74275, 20.74065, 20.73125, 20.73142, 20.72919, 20.72795, 20.72902)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.21129, 60.21144, 60.21293, 60.21745, 60.21831, 60.21784, 60.21678, 60.21828, 60.2175, 60.21254, 
  60.21205)
LONGITUDE_VALUEs <- c(
  20.84765, 20.85177, 20.85348, 20.85402, 20.8528, 20.84956, 20.84881, 20.84611, 20.84497, 20.84464, 
  20.84675)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.24808, 60.2508, 60.26583, 60.25387, 60.25391, 60.2494, 60.24152, 60.23674, 60.23606, 60.24343, 
  60.24041, 60.24578)
LONGITUDE_VALUEs <- c(
  20.86276, 20.86696, 20.85572, 20.85427, 20.83977, 20.84054, 20.85744, 20.85556, 20.86225, 20.85933, 
  20.86482, 20.86517)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.23818, 60.24304, 60.24417, 60.24592, 60.24592, 60.24795, 60.24963, 60.2503, 60.25204, 60.25476, 
  60.25419, 60.25211, 60.25248, 60.2512, 60.25033, 60.24901, 60.24609, 60.24493, 60.24211, 60.24147, 
  60.24051, 60.2387, 60.23916, 60.23816, 60.23768, 60.23509, 60.22147, 60.21913, 60.21997, 60.22153, 
  60.22093, 60.22008, 60.21878, 60.21926, 60.22, 60.22047, 60.22312, 60.22629, 60.22918, 60.22714, 
  60.22761, 60.22908, 60.23069, 60.23072, 60.23212, 60.23449, 60.23422, 60.23608, 60.23781)
LONGITUDE_VALUEs <- c(
  20.73339, 20.73762, 20.73641, 20.73753, 20.73543, 20.73575, 20.73397, 20.73571, 20.73551, 20.73665, 
  20.73388, 20.73097, 20.72751, 20.72566, 20.72599, 20.72536, 20.72584, 20.72433, 20.7253, 20.72416, 
  20.72547, 20.72508, 20.72759, 20.72641, 20.72712, 20.72386, 20.72485, 20.72676, 20.73053, 20.73268, 
  20.73379, 20.73195, 20.73277, 20.73562, 20.73562, 20.73826, 20.73826, 20.74347, 20.74493, 20.74729, 
  20.74875, 20.74731, 20.74776, 20.74583, 20.74446, 20.74536, 20.73938, 20.73594, 20.73506)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.28167, 60.28192, 60.28273, 60.28397, 60.28464, 60.28902, 60.29098, 60.29062, 60.29365, 60.29304, 
  60.29418, 60.29451, 60.29338, 60.29162, 60.29195, 60.29114, 60.29418, 60.29391, 60.29423, 60.29119, 
  60.29137, 60.29033, 60.2941, 60.29626, 60.29741, 60.29683, 60.29978, 60.3013, 60.30142, 60.30338, 
  60.30319, 60.30457, 60.30248, 60.30469, 60.30501, 60.30257, 60.3025, 60.29734, 60.29519, 60.29467, 
  60.29396, 60.2914, 60.29121, 60.28928, 60.28711, 60.28598, 60.28453, 60.28396, 60.2812, 60.27951, 
  60.27946)
LONGITUDE_VALUEs <- c(
  20.73311, 20.73539, 20.73552, 20.73335, 20.73702, 20.73975, 20.73902, 20.73676, 20.73644, 20.73816, 
  20.73928, 20.74163, 20.745, 20.74565, 20.74717, 20.74809, 20.75234, 20.75382, 20.75519, 20.76037, 
  20.76105, 20.76182, 20.76281, 20.75899, 20.76, 20.7611, 20.7632, 20.76176, 20.75829, 20.75339, 
  20.75039, 20.74492, 20.74567, 20.74159, 20.73878, 20.73833, 20.734, 20.7332, 20.73625, 20.73395, 
  20.73444, 20.73292, 20.7314, 20.73078, 20.73412, 20.73136, 20.73071, 20.72908, 20.72861, 20.73024, 
  20.73275)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.39793, 60.39972, 60.40141, 60.4024, 60.40379, 60.40417, 60.40527, 60.40538, 60.40674, 60.40873, 
  60.41321, 60.41361, 60.415, 60.416, 60.41874, 60.41938, 60.41825, 60.41832, 60.41745, 60.41894, 
  60.41743, 60.4163, 60.4153, 60.41065, 60.41013, 60.40721, 60.4083, 60.40703, 60.40611, 60.40627, 
  60.40659, 60.40701, 60.40701, 60.40763, 60.40727, 60.40796, 60.40755, 60.40679, 60.40647, 60.40532, 
  60.40396, 60.40338, 60.40283, 60.40263, 60.4021, 60.40254, 60.40193, 60.40254, 60.40183, 60.40117, 
  60.40161, 60.40122, 60.3995, 60.39893, 60.39897, 60.39826, 60.39882, 60.39819, 60.39755, 60.39718)
LONGITUDE_VALUEs <- c(
  20.62223, 20.623, 20.62538, 20.62901, 20.62931, 20.62832, 20.62852, 20.6245, 20.62122, 20.61895, 
  20.61925, 20.61822, 20.61862, 20.61674, 20.61723, 20.61408, 20.60934, 20.60747, 20.60693, 20.60334, 
  20.60202, 20.60404, 20.60328, 20.60926, 20.6079, 20.60796, 20.60561, 20.60529, 20.60347, 20.60275, 
  20.60305, 20.6027, 20.60187, 20.60127, 20.60057, 20.59898, 20.59828, 20.59879, 20.60108, 20.59734, 
  20.59774, 20.59974, 20.59918, 20.60001, 20.60048, 20.60235, 20.60362, 20.60553, 20.60783, 20.60744, 
  20.61023, 20.61089, 20.60898, 20.60984, 20.6112, 20.61224, 20.61347, 20.61626, 20.617, 20.62008)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.39367, 60.39258, 60.39118, 60.39278, 60.39346, 60.39445, 60.39485, 60.39606, 60.39624, 60.39728, 
  60.39706, 60.3998, 60.39938, 60.4005, 60.40039, 60.40089, 60.40026, 60.39959, 60.39911, 60.39836, 
  60.39785, 60.3967, 60.39548, 60.39546, 60.39365, 60.39336)
LONGITUDE_VALUEs <- c(
  20.61017, 20.61079, 20.61688, 20.61864, 20.618, 20.6186, 20.61613, 20.61541, 20.61336, 20.61209, 
  20.60864, 20.60437, 20.60255, 20.60166, 20.60018, 20.59905, 20.59826, 20.59949, 20.59876, 20.59978, 
  20.59719, 20.59706, 20.59919, 20.60033, 20.60246, 20.60746)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.39032, 60.3933, 60.39138, 60.39235, 60.39403, 60.3943, 60.39291, 60.39269, 60.39379, 60.39536, 
  60.39682, 60.39667, 60.39557, 60.39487, 60.39419, 60.39434, 60.39584, 60.39553, 60.39362, 60.39057)
LONGITUDE_VALUEs <- c(
  20.69463, 20.69646, 20.69738, 20.70438, 20.70431, 20.70064, 20.70111, 20.69951, 20.69687, 20.6997, 
  20.69878, 20.69146, 20.68929, 20.68959, 20.68714, 20.68554, 20.68478, 20.68247, 20.68369, 20.69013)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.38894, 60.38827, 60.38887, 60.38807, 60.39007, 60.39338, 60.39334, 60.39375, 60.39448, 60.39319, 
  60.39539, 60.39697, 60.39868, 60.39927, 60.40362, 60.40346, 60.4057, 60.40729, 60.40877, 60.40941, 
  60.41055, 60.408, 60.40534, 60.40334, 60.40123, 60.3997, 60.39929, 60.3963, 60.39317, 60.39262, 
  60.39311, 60.3924, 60.39172, 60.39215, 60.39134, 60.39065, 60.39014, 60.38844, 60.38748, 60.38509, 
  60.38539, 60.38331, 60.38333, 60.38053, 60.38049, 60.38495)
LONGITUDE_VALUEs <- c(
  20.77888, 20.7824, 20.78311, 20.78573, 20.78461, 20.77411, 20.77237, 20.77212, 20.77502, 20.77837, 
  20.78176, 20.77352, 20.77232, 20.7703, 20.7726, 20.77748, 20.77869, 20.77421, 20.77392, 20.76751, 
  20.76585, 20.7586, 20.75751, 20.75965, 20.75966, 20.76206, 20.76058, 20.76041, 20.76927, 20.76704, 
  20.76468, 20.76414, 20.76586, 20.76706, 20.76751, 20.77015, 20.76841, 20.77263, 20.77313, 20.78088, 
  20.78191, 20.78309, 20.78407, 20.78579, 20.78656, 20.78622)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(60.31649, 60.31844, 60.32083, 60.32339, 60.32306, 60.32172, 60.32054, 60.31924, 60.31679)
LONGITUDE_VALUEs <- c(20.78658, 20.78793, 20.78576, 20.778, 20.77364, 20.77444, 20.7741, 20.77967, 20.78401)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.32968, 60.32818, 60.32817, 60.33075, 60.33146, 60.33092, 60.33264, 60.33315, 60.33387, 60.33296, 
  60.33287, 60.33118, 60.32903, 60.32692, 60.32689, 60.32881)
LONGITUDE_VALUEs <- c(
  20.80096, 20.80355, 20.80604, 20.80477, 20.80259, 20.80175, 20.79853, 20.79941, 20.79787, 20.79628, 
  20.7934, 20.79396, 20.79139, 20.793, 20.79842, 20.79907)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(60.35576, 60.35585, 60.35787, 60.35755, 60.36343, 60.37151, 60.37151, 60.3633, 60.36273)
LONGITUDE_VALUEs <- c(20.90243, 20.90535, 20.90668, 20.91114, 20.91187, 20.90586, 20.90449, 20.90491, 20.90324)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.36642, 60.36657, 60.37293, 60.3759, 60.37529, 60.37874, 60.37779, 60.37913, 60.37827, 60.37718, 
  60.37397, 60.37265, 60.37275, 60.37026)
LONGITUDE_VALUEs <- c(
  20.91603, 20.92092, 20.92659, 20.9241, 20.92195, 20.92, 20.91664, 20.91205, 20.91069, 20.91144, 
  20.90672, 20.90829, 20.91018, 20.91033)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.35842, 60.34929, 60.35059, 60.34201, 60.34269, 60.34496, 60.34689, 60.34678, 60.35515, 60.35651, 
  60.35617, 60.35768, 60.35742, 60.36054, 60.35789, 60.35886)
LONGITUDE_VALUEs <- c(
  20.92041, 20.92689, 20.93028, 20.94294, 20.94586, 20.94423, 20.94487, 20.93886, 20.94075, 20.93663, 
  20.9329, 20.93118, 20.92869, 20.92698, 20.92414, 20.92144)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.34647, 60.34764, 60.35409, 60.35365, 60.36052, 60.36239, 60.36925, 60.37075, 60.37512, 60.37852, 
  60.38038, 60.37746, 60.37799, 60.37495, 60.37472, 60.37082, 60.36698, 60.36237, 60.36262, 60.35732, 
  60.35762, 60.35545, 60.35046, 60.34985)
LONGITUDE_VALUEs <- c(
  20.87248, 20.87758, 20.87363, 20.87685, 20.87338, 20.87852, 20.87265, 20.87449, 20.86673, 20.86866, 
  20.8675, 20.86625, 20.86346, 20.86479, 20.85965, 20.8572, 20.86209, 20.86183, 20.86574, 20.86771, 
  20.86368, 20.86415, 20.87175, 20.87012)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.29979, 60.3014, 60.30611, 60.30915, 60.31012, 60.31121, 60.31141, 60.31218, 60.31237, 60.31543, 
  60.31666, 60.31773, 60.32093, 60.32426, 60.32768, 60.32953, 60.32967, 60.3346, 60.33549, 60.34329, 
  60.34603, 60.34422, 60.34233, 60.34176, 60.34409, 60.34666, 60.34787, 60.34838, 60.34983, 60.35042, 
  60.3522, 60.35278, 60.34777, 60.34694, 60.34409, 60.34285, 60.33848, 60.34086, 60.33706, 60.33645, 
  60.33756, 60.33549, 60.32411, 60.31833, 60.31422, 60.31036, 60.31233, 60.30715, 60.30311)
LONGITUDE_VALUEs <- c(
  20.94653, 20.94801, 20.94376, 20.94239, 20.94292, 20.94112, 20.94324, 20.9426, 20.93842, 20.94065, 
  20.93509, 20.93771, 20.93408, 20.934, 20.93762, 20.93734, 20.93451, 20.93498, 20.93035, 20.92865, 
  20.92621, 20.9235, 20.9247, 20.92367, 20.92029, 20.92402, 20.92346, 20.92196, 20.92303, 20.91977, 
  20.9184, 20.91505, 20.90711, 20.90814, 20.90758, 20.90312, 20.90599, 20.91026, 20.91636, 20.91481, 
  20.91162, 20.90741, 20.91277, 20.92101, 20.92054, 20.92728, 20.93663, 20.9329, 20.93758)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.31407, 60.31475, 60.31299, 60.31494, 60.31561, 60.3172, 60.3188, 60.32109, 60.3235, 60.3225, 
  60.32958, 60.32809, 60.32864, 60.32721, 60.32919, 60.33146, 60.33342, 60.33382, 60.33647, 60.33684, 
  60.33972, 60.34126, 60.34252, 60.34745, 60.35067, 60.35276, 60.35314, 60.35174, 60.35242, 60.36691, 
  60.36842, 60.36458, 60.36602, 60.36373, 60.36226, 60.36237, 60.36091, 60.36311, 60.36377, 60.36521, 
  60.36761, 60.3677, 60.36604, 60.36954, 60.36717, 60.36959, 60.37084, 60.36791, 60.36753, 60.36307, 
  60.36218, 60.3605, 60.36074, 60.35702, 60.35265, 60.34926, 60.34701, 60.342, 60.33809, 60.3363, 
  60.32471, 60.31803)
LONGITUDE_VALUEs <- c(
  20.73461, 20.73985, 20.74384, 20.74438, 20.74815, 20.74783, 20.75208, 20.75225, 20.75811, 20.76407, 
  20.76553, 20.7677, 20.77038, 20.77158, 20.78368, 20.78403, 20.77985, 20.78296, 20.78564, 20.79068, 
  20.78645, 20.78929, 20.78545, 20.78755, 20.79398, 20.79016, 20.79064, 20.79407, 20.79544, 20.78381, 
  20.78017, 20.78055, 20.77519, 20.77261, 20.77458, 20.7724, 20.77089, 20.76952, 20.76472, 20.76978, 
  20.76888, 20.76759, 20.76433, 20.76261, 20.76021, 20.75944, 20.75442, 20.75562, 20.75875, 20.75746, 
  20.76261, 20.76182, 20.7595, 20.75495, 20.74456, 20.74436, 20.74059, 20.73921, 20.74136, 20.73243, 
  20.73621, 20.73312)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.26169, 60.26443, 60.27226, 60.27416, 60.27224, 60.28418, 60.2852, 60.28839, 60.28945, 60.2916, 
  60.29009, 60.28794, 60.28786, 60.29109, 60.29173, 60.28848, 60.2892, 60.28594, 60.28369, 60.27652, 
  60.27682, 60.27973, 60.28377, 60.28435, 60.2822, 60.27941, 60.27939, 60.27469, 60.27386, 60.27273, 
  60.2742, 60.27326, 60.27139, 60.27027, 60.26832, 60.2674, 60.26654, 60.2619, 60.26152, 60.2628, 
  60.2646, 60.26759, 60.26968, 60.27119, 60.27028, 60.27168, 60.27077, 60.26713, 60.2666, 60.26856, 
  60.26701, 60.26593, 60.26503, 60.26439, 60.2634, 60.26182, 60.25958, 60.25796, 60.2572, 60.25653, 
  60.25631, 60.25378, 60.2547, 60.25355, 60.25253, 60.25253, 60.25026, 60.24547, 60.2438, 60.24186, 
  60.24298, 60.23997, 60.24036, 60.23597, 60.23606, 60.2329, 60.23103, 60.22908, 60.22905, 60.22559, 
  60.22457, 60.22591, 60.2258, 60.22702, 60.22531, 60.22501, 60.22196, 60.22129, 60.22163, 60.22162, 
  60.22264, 60.2227, 60.22455, 60.22461, 60.22607, 60.22578, 60.22651, 60.22593, 60.22854, 60.22689, 
  60.22701, 60.22433, 60.22483, 60.22427, 60.22442, 60.22827, 60.22777, 60.23011, 60.23192, 60.23251, 
  60.23318, 60.23518, 60.23532, 60.23639, 60.23844, 60.23384, 60.2331, 60.23271, 60.23203, 60.23142, 
  60.23328, 60.23419, 60.23491, 60.23709, 60.2367, 60.23843, 60.23957, 60.2422, 60.24247, 60.2418, 
  60.24217, 60.24044, 60.2399, 60.23947, 60.24071, 60.24154, 60.24242, 60.24407, 60.24557, 60.2449, 
  60.2452, 60.24458, 60.2427, 60.24254, 60.24544, 60.24699, 60.24891, 60.24778, 60.24479, 60.24909, 
  60.25128, 60.25504, 60.25757, 60.25908, 60.26104)
LONGITUDE_VALUEs <- c(
  20.83149, 20.83385, 20.83003, 20.8239, 20.82094, 20.80489, 20.79939, 20.80403, 20.79905, 20.79626, 
  20.78746, 20.78772, 20.78339, 20.78214, 20.77665, 20.77482, 20.76952, 20.76926, 20.77244, 20.76562, 
  20.75965, 20.75759, 20.75858, 20.75051, 20.74807, 20.74892, 20.7551, 20.75497, 20.75871, 20.75686, 
  20.75326, 20.75094, 20.75253, 20.75193, 20.75459, 20.75369, 20.75566, 20.75199, 20.74661, 20.74787, 
  20.74734, 20.74959, 20.74674, 20.74646, 20.74416, 20.7438, 20.7403, 20.74043, 20.73687, 20.73584, 
  20.73288, 20.73586, 20.73322, 20.73516, 20.73393, 20.73561, 20.73252, 20.73219, 20.73968, 20.74005, 
  20.74608, 20.75005, 20.75462, 20.75876, 20.75863, 20.75007, 20.75228, 20.76402, 20.76161, 20.76337, 
  20.7643, 20.76694, 20.76522, 20.7667, 20.76537, 20.7659, 20.77269, 20.77468, 20.77972, 20.77886, 
  20.7815, 20.78285, 20.7838, 20.78404, 20.78444, 20.78333, 20.78487, 20.78966, 20.78996, 20.79105, 
  20.79142, 20.79288, 20.79161, 20.79011, 20.78702, 20.78942, 20.78972, 20.79305, 20.79504, 20.79674, 
  20.79886, 20.80129, 20.80301, 20.80481, 20.80784, 20.80863, 20.81155, 20.81167, 20.80987, 20.80642, 
  20.80891, 20.8091, 20.80661, 20.80391, 20.80182, 20.79788, 20.7985, 20.80015, 20.79985, 20.7964, 
  20.79483, 20.7961, 20.79386, 20.79303, 20.79567, 20.79652, 20.80118, 20.80116, 20.80258, 20.80427, 
  20.80635, 20.81045, 20.81009, 20.81114, 20.81307, 20.81251, 20.81652, 20.81577, 20.81751, 20.82155, 
  20.82498, 20.82579, 20.82532, 20.82869, 20.82796, 20.82618, 20.83214, 20.83588, 20.84096, 20.83944, 
  20.83485, 20.8353, 20.83839, 20.83862, 20.83712)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.22679, 60.22954, 60.22974, 60.23099, 60.23092, 60.23363, 60.2327, 60.23326, 60.22854, 60.22776, 
  60.2264, 60.22545, 60.22604, 60.22478, 60.22417, 60.22291, 60.2243, 60.22391, 60.22285, 60.22353, 
  60.22434, 60.22409, 60.2229, 60.22235, 60.22036, 60.21932, 60.22046, 60.21863, 60.21877, 60.21794, 
  60.21804, 60.21636, 60.21463, 60.21704, 60.21639, 60.21736, 60.21773, 60.22045, 60.22234, 60.22396, 
  60.22371, 60.22404, 60.22578, 60.22612, 60.22698, 60.22661)
LONGITUDE_VALUEs <- c(
  21.0094, 21.01266, 21.01424, 21.01521, 21.01373, 21.01255, 21.01036, 21.00852, 21.0033, 21.00579, 
  21.00283, 21.00289, 21.00716, 21.00736, 21.00365, 21.0033, 21.00158, 20.99983, 20.99991, 20.99822, 
  20.99764, 20.9959, 20.99622, 20.99764, 20.99564, 20.99697, 21.00214, 21.00223, 21.00394, 21.00446, 
  21.00223, 21.00159, 21.00352, 21.00442, 21.00555, 21.00577, 21.00751, 21.00886, 21.01118, 21.01171, 
  21.01302, 21.01354, 21.01063, 21.0127, 21.01166, 21.01012)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.26801, 60.26949, 60.26949, 60.27277, 60.27451, 60.27426, 60.27552, 60.27602, 60.27348, 60.27094, 
  60.26797)
LONGITUDE_VALUEs <- c(
  20.95927, 20.95824, 20.95985, 20.95976, 20.95773, 20.957, 20.95605, 20.95423, 20.94895, 20.95071, 
  20.95753)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.24656, 60.24092, 60.24147, 60.24707, 60.2544, 60.2647, 60.26347, 60.25985, 60.25925, 60.25589, 
  60.25644, 60.25338)
LONGITUDE_VALUEs <- c(
  20.99366, 20.99782, 21.00061, 20.9971, 20.99529, 20.97564, 20.97333, 20.97628, 20.97311, 20.97907, 
  20.98298, 20.98289)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.26964, 60.27082, 60.2707, 60.27256, 60.27384, 60.27463, 60.27553, 60.27672, 60.27687, 60.27503, 
  60.27614, 60.27491, 60.27587, 60.2751, 60.27367, 60.27294, 60.26893, 60.26892, 60.26701, 60.26818, 
  60.26705, 60.26675, 60.26244, 60.26179, 60.26088, 60.261, 60.26296, 60.26493, 60.26515, 60.26788)
LONGITUDE_VALUEs <- c(
  21.06272, 21.06274, 21.06666, 21.06682, 21.06585, 21.0631, 21.06611, 21.06531, 21.06092, 21.05808, 
  21.05499, 21.05414, 21.05029, 21.04765, 21.04911, 21.04675, 21.04886, 21.05263, 21.05441, 21.05665, 
  21.05853, 21.06182, 21.05757, 21.05956, 21.06008, 21.06167, 21.06119, 21.06285, 21.0657, 21.06883)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.28553, 60.28532, 60.28797, 60.28691, 60.28578, 60.28576, 60.2851, 60.28451, 60.28409, 60.28295, 
  60.28294, 60.28234, 60.28206, 60.28288, 60.28389, 60.28398, 60.2831, 60.2828, 60.28353, 60.28456, 
  60.28538, 60.28716, 60.28701, 60.28762, 60.28649)
LONGITUDE_VALUEs <- c(
  21.03396, 21.0321, 21.02839, 21.02544, 21.02645, 21.02487, 21.0264, 21.02616, 21.02798, 21.03034, 
  21.0345, 21.03514, 21.03731, 21.0369, 21.03812, 21.03926, 21.04068, 21.04344, 21.0431, 21.03984, 
  21.04031, 21.03856, 21.03779, 21.03586, 21.03383)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.29673, 60.29779, 60.29863, 60.30003, 60.30353, 60.30444, 60.30548, 60.3047, 60.30414, 60.3038, 
  60.30318, 60.30302, 60.30179, 60.30092, 60.29858, 60.29787, 60.29601, 60.29579, 60.29411, 60.29422, 
  60.29383, 60.29397, 60.29353, 60.29331, 60.29346, 60.29336, 60.29465, 60.29461, 60.29597)
LONGITUDE_VALUEs <- c(
  21.01787, 21.01876, 21.01804, 21.01776, 21.01362, 21.01326, 21.01038, 21.0098, 21.01018, 21.01092, 
  21.01086, 21.00992, 21.00891, 21.00692, 21.00639, 21.00886, 21.01131, 21.0097, 21.0119, 21.01236, 
  21.01301, 21.01415, 21.01412, 21.01523, 21.01575, 21.01695, 21.01785, 21.01933, 21.01915)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.32023, 60.31999, 60.32151, 60.32201, 60.32364, 60.32423, 60.32527, 60.32629, 60.32546,60.3266, 
  60.32576, 60.326, 60.32425, 60.32204, 60.32173, 60.31978, 60.32, 60.31928)
LONGITUDE_VALUEs <- c(
  21.03045, 21.03251, 21.03358, 21.03579, 21.03667, 21.03497, 21.03626, 21.03276, 21.03048, 21.02858, 
  21.02626, 21.02478, 21.01978, 21.02032, 21.02339, 21.02442, 21.02783, 21.02967)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.29434, 60.29596, 60.29893, 60.30008, 60.303, 60.30419, 60.30582, 60.30612, 60.30876, 60.30918, 
  60.30827, 60.30969, 60.30725, 60.30544, 60.30472, 60.30774, 60.30793, 60.30798, 60.30766, 60.30792, 
  60.306, 60.30117, 60.29989, 60.29589, 60.29126)
LONGITUDE_VALUEs <- c(
  21.06263, 21.06679, 21.06623, 21.0628, 21.06164, 21.05919, 21.05791, 21.05374, 21.0522, 21.05027, 
  21.0495, 21.04808, 21.04581, 21.04679, 21.04469, 21.04152, 21.03791, 21.03495, 21.03422, 21.03073, 
  21.03122, 21.03984, 21.04435, 21.04894, 21.06056)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.31477, 60.31796, 60.31609, 60.31807, 60.31751, 60.31269, 60.31118, 60.31016, 60.30555, 60.30287, 
  60.29868, 60.29776, 60.29936, 60.30317, 60.30408, 60.29802, 60.29964, 60.30155, 60.30236, 60.30506, 
  60.30912, 60.3091, 60.31031, 60.31205, 60.31734, 60.31883, 60.32334, 60.32444, 60.32865, 60.32937, 
  60.33285, 60.33364, 60.33629, 60.33483, 60.33266, 60.33277, 60.33018, 60.32714, 60.32996, 60.32552, 
  60.32473, 60.32295, 60.32163, 60.32003, 60.32102, 60.32051)
LONGITUDE_VALUEs <- c(
  20.96735, 20.96002, 20.9559, 20.95401, 20.95212, 20.95513, 20.96727, 20.96903, 20.968, 20.97525, 
  20.97379, 20.97989, 20.98027, 20.97667, 20.98422, 20.98589, 20.99156, 20.9913, 20.99482, 20.99534, 
  20.9904, 20.99667, 20.99671, 20.99315, 20.99594, 20.99456, 20.99538, 20.99362, 20.99538, 20.99838, 
  20.99778, 20.99087, 20.99173, 20.98645, 20.98761, 20.98963, 20.9895, 20.97598, 20.97264, 20.96637, 
  20.97013, 20.96966, 20.9733, 20.97047, 20.96547, 20.96298)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.46586, 60.46586, 60.46674, 60.46707, 60.46925, 60.47004, 60.47097, 60.47067, 60.4712, 60.47021, 
  60.47121, 60.47086, 60.46976, 60.46855, 60.46736, 60.46718, 60.46514, 60.4647)
LONGITUDE_VALUEs <- c(
  20.76067, 20.76378, 20.76489, 20.7667, 20.7683, 20.7661, 20.76547, 20.7631, 20.76081, 20.75864, 
  20.75755, 20.75538, 20.75424, 20.7548, 20.7545, 20.75641, 20.7569, 20.7604)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.45855, 60.46344, 60.46361, 60.46276, 60.46253, 60.46101, 60.46048, 60.45828, 60.45783, 60.45637, 
  60.45739, 60.45572, 60.45633, 60.45756, 60.4562, 60.4565, 60.46475, 60.46545, 60.46699, 60.46697, 
  60.46776, 60.46404, 60.46249, 60.46254, 60.4615, 60.46058, 60.45987)
LONGITUDE_VALUEs <- c(
  20.78029, 20.77698, 20.77505, 20.77398, 20.77149, 20.77257, 20.77132, 20.77304, 20.77647, 20.77866, 
  20.78089, 20.78488, 20.78792, 20.78831, 20.79204, 20.79357, 20.7919, 20.78935, 20.78815, 20.78527, 
  20.78066, 20.78076, 20.78274, 20.78091, 20.77984, 20.78098, 20.78016)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.48126, 60.48255, 60.48245, 60.48375, 60.48527, 60.4846, 60.4848, 60.48327, 60.48267, 60.48113, 
  60.4804, 60.48112, 60.48022, 60.48021, 60.48156)
LONGITUDE_VALUEs <- c(
  20.85685, 20.8575, 20.86024, 20.86061, 20.85089, 20.85027, 20.84776, 20.84707, 20.84346, 20.84497, 
  20.84863, 20.85035, 20.85061, 20.85299, 20.85479)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.48949, 60.48945, 60.49067, 60.49133, 60.49161, 60.49234, 60.49351, 60.49407, 60.49408, 60.49335, 
  60.49272, 60.49205, 60.4924, 60.49299, 60.49294, 60.492, 60.48996, 60.48959, 60.48875, 60.48821, 
  60.48782, 60.4882, 60.48822, 60.48883, 60.48915)
LONGITUDE_VALUEs <- c(
  20.8617, 20.86441, 20.86554, 20.8647, 20.86293, 20.86322, 20.8619, 20.86176, 20.8575, 20.8565, 
  20.85722, 20.85594, 20.85446, 20.85401, 20.8534, 20.85313, 20.8562, 20.85605, 20.85733, 20.86001, 
  20.8607, 20.86125, 20.86209, 20.86213, 20.86121)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.48698, 60.48739, 60.48894, 60.48881, 60.48826, 60.48826, 60.48664, 60.48776, 60.48807, 60.4889, 
  60.48974, 60.48914, 60.48729, 60.48748, 60.48675, 60.48681, 60.48601, 60.48589, 60.48446, 60.48392, 
  60.4834, 60.48329, 60.48375, 60.48374, 60.48464, 60.48484, 60.48446, 60.48513, 60.48489, 60.48469, 
  60.48322, 60.4826, 60.48393, 60.48545, 60.48564, 60.4866)
LONGITUDE_VALUEs <- c(
  20.84806, 20.8496, 20.84865, 20.84714, 20.84736, 20.84437, 20.84395, 20.84262, 20.84004, 20.84107, 
  20.83947, 20.83532, 20.84105, 20.8381, 20.83812, 20.83618, 20.83658, 20.83567, 20.83565, 20.8369, 
  20.83652, 20.83744, 20.83768, 20.83835, 20.8384, 20.83915, 20.84045, 20.84205, 20.84345, 20.84219, 
  20.84076, 20.84194, 20.84414, 20.84433, 20.84827, 20.84891)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.52525, 60.52553, 60.52759, 60.52798, 60.52882, 60.52878, 60.52828, 60.52834, 60.52891, 60.52965, 
  60.52952, 60.52981, 60.52935, 60.52939, 60.52893, 60.52951, 60.52918, 60.52894, 60.52885, 60.52813, 
  60.52806, 60.52876, 60.52909, 60.52936, 60.52943, 60.5298, 60.52977, 60.53051, 60.53087, 60.5315, 
  60.53162, 60.53234, 60.53275, 60.53144, 60.53052, 60.5305, 60.52996, 60.52961, 60.52908, 60.52893, 
  60.52666, 60.52621, 60.52556, 60.52482, 60.52486, 60.5244, 60.52453, 60.52431, 60.52447, 60.52434, 
  60.52452, 60.52432, 60.52501, 60.52553)
LONGITUDE_VALUEs <- c(
  20.90318, 20.9022, 20.9039, 20.90332, 20.9035, 20.90402, 20.90475, 20.90707, 20.90797, 20.90742, 
  20.90655, 20.90513, 20.90525, 20.90469, 20.90452, 20.90387, 20.90305, 20.90317, 20.9027, 20.90245, 
  20.90143, 20.90144, 20.90222, 20.9022, 20.90279, 20.9028, 20.90333, 20.90285, 20.90446, 20.90424, 
  20.90318, 20.90262, 20.90064, 20.89902, 20.90035, 20.89918, 20.89946, 20.89811, 20.89812, 20.89677, 
  20.89673, 20.89747, 20.89737, 20.89937, 20.90046, 20.90049, 20.90102, 20.90165, 20.90297, 20.9036, 
  20.90428, 20.9055, 20.90672, 20.90454)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.52873, 60.52857, 60.52884, 60.52917, 60.52951, 60.53058, 60.53088, 60.53175, 60.53251, 60.53227, 
  60.53303, 60.53499, 60.53533, 60.53454, 60.53342, 60.53333, 60.53269, 60.53246, 60.53285, 60.53151, 
  60.53014, 60.52998, 60.53081, 60.53038, 60.53068, 60.53214, 60.53293, 60.53221, 60.53228, 60.5334, 
  60.5328, 60.53218, 60.53191, 60.5316, 60.53096, 60.52938, 60.52899, 60.52866, 60.52872, 60.5282, 
  60.52801, 60.52721, 60.52702, 60.52685, 60.52619, 60.52619, 60.5255, 60.5253, 60.52394, 60.52433, 
  60.52482, 60.52476, 60.52555, 60.52584, 60.52558, 60.52492, 60.52448, 60.52517, 60.52608, 60.52727)
LONGITUDE_VALUEs <- c(
  20.89266, 20.89185, 20.89111, 20.89213, 20.89182, 20.89297, 20.89215, 20.89171, 20.89438, 20.89576, 
  20.89746, 20.89522, 20.89286, 20.88835, 20.88866, 20.8878, 20.88841, 20.88725, 20.88586, 20.88625, 
  20.88783, 20.88665, 20.88425, 20.88289, 20.87837, 20.87881, 20.87423, 20.87391, 20.87205, 20.87268, 
  20.86943, 20.86916, 20.86545, 20.8655, 20.86724, 20.86822, 20.86972, 20.86948, 20.86838, 20.8692, 
  20.86811, 20.86926, 20.8712, 20.86979, 20.87082, 20.86953, 20.87065, 20.86997, 20.8795, 20.8827, 
  20.88275, 20.88367, 20.88322, 20.88471, 20.88557, 20.88438, 20.88717, 20.89047, 20.89069, 20.89391)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.40742, 60.40683, 60.4046, 60.40227, 60.40389, 60.4082, 60.40846, 60.41539, 60.41814, 60.41895, 
  60.41498, 60.41541, 60.41416, 60.41365, 60.41446, 60.41331, 60.41123, 60.41037, 60.40873, 60.40903, 
  60.40659, 60.40517)
LONGITUDE_VALUEs <- c(
  20.84774, 20.84916, 20.84684, 20.84899, 20.85527, 20.85426, 20.84933, 20.84954, 20.8513, 20.84933, 
  20.84341, 20.83749, 20.83504, 20.83714, 20.83894, 20.84122, 20.83963, 20.84113, 20.84096, 20.84452, 
  20.84255, 20.84388)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(60.4239, 60.41926, 60.4159, 60.42123, 60.42657, 60.42526, 60.42386)
LONGITUDE_VALUEs <- c(20.86839, 20.86671, 20.87002, 20.87328, 20.86954, 20.86624, 20.86654)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.42986, 60.43034, 60.43411, 60.43384, 60.43189, 60.43151, 60.42422, 60.42399, 60.42104, 60.42117, 
  60.41939, 60.42388, 60.42539)
LONGITUDE_VALUEs <- c(
  20.88092, 20.88358, 20.8798, 20.87598, 20.87645, 20.87435, 20.87611, 20.8798, 20.88074, 20.88207, 
  20.88392, 20.88255, 20.88521)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.42218, 60.4252, 60.42791, 60.42958, 60.42909, 60.42619, 60.42501, 60.42427, 60.42354, 60.42241, 
  60.4214, 60.42212, 60.42211, 60.42261)
LONGITUDE_VALUEs <- c(
  20.90953, 20.91165, 20.91023, 20.90584, 20.90305, 20.90298, 20.90389, 20.90392, 20.90505, 20.90537, 
  20.90715, 20.90737, 20.90809, 20.90832)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.52158, 60.52417, 60.52257, 60.52329, 60.52816, 60.52901, 60.53102, 60.53172, 60.53319, 60.53308, 
  60.5349, 60.53417, 60.5343, 60.5375, 60.53438, 60.53564, 60.53317, 60.53129, 60.52996, 60.52829, 
  60.52861, 60.52427)
LONGITUDE_VALUEs <- c(
  21.01867, 21.02116, 21.02622, 21.02743, 21.02473, 21.01604, 21.01746, 21.01984, 21.01982, 21.02156, 
  21.02123, 21.01967, 21.01819, 21.01731, 21.0136, 21.01081, 21.00922, 21.01136, 21.00815, 21.00909, 
  21.00712, 21.01124)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.52193, 60.52493, 60.52607, 60.52709, 60.52645, 60.53059, 60.52907, 60.53239, 60.5341, 60.53528, 
  60.5342, 60.53427, 60.53646, 60.53741, 60.53431, 60.53576, 60.53391, 60.53555, 60.53408, 60.5353, 
  60.52876, 60.52789, 60.52434, 60.52457, 60.52244, 60.52111, 60.52172, 60.51908, 60.51921, 60.51788, 
  60.51782, 60.51663, 60.51638, 60.51515, 60.51693, 60.51716, 60.51458, 60.51801, 60.52029, 60.52079, 
  60.52227)
LONGITUDE_VALUEs <- c(
  21.09965, 21.09845, 21.10244, 21.10184, 21.09781, 21.09446, 21.08623, 21.08768, 21.08991, 21.08837, 
  21.08635, 21.08185, 21.07768, 21.06957, 21.0709, 21.06756, 21.06584, 21.06275, 21.06111, 21.05803, 
  21.04327, 21.04777, 21.05129, 21.05511, 21.0515, 21.05541, 21.05991, 21.06009, 21.0618, 21.06257, 
  21.06592, 21.06786, 21.08, 21.08515, 21.08919, 21.09245, 21.09759, 21.10502, 21.10055, 21.08987, 
  21.08936)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.5579, 60.55727, 60.55832, 60.55889, 60.55638, 60.55465, 60.55391, 60.55138, 60.54969, 60.54857, 
  60.54782, 60.54731, 60.54695, 60.54615, 60.54514, 60.54319, 60.54221, 60.5416, 60.53995, 60.53939, 
  60.54193, 60.54286, 60.54375, 60.54557, 60.54634, 60.54657, 60.547, 60.54786, 60.54851, 60.55049, 
  60.55061, 60.54968, 60.55165, 60.55216, 60.55406, 60.55571, 60.55828, 60.55841, 60.55723, 60.55658, 
  60.55646, 60.55707, 60.55764, 60.55899, 60.55905, 60.55784, 60.55791, 60.55678, 60.55618, 60.55531, 
  60.55774, 60.55545)
LONGITUDE_VALUEs <- c(
  21.0406, 21.0367, 21.0382, 21.03275, 21.02554, 21.02503, 21.02876, 21.02953, 21.04258, 21.04288, 
  21.04627, 21.04288, 21.04404, 21.04305, 21.04468, 21.04102, 21.04306, 21.041, 21.04175, 21.04501, 
  21.04859, 21.05207, 21.05083, 21.05098, 21.04821, 21.05497, 21.05486, 21.04722, 21.05443, 21.05415, 
  21.05621, 21.05966, 21.06057, 21.06192, 21.06271, 21.06831, 21.06868, 21.06773, 21.06516, 21.06527, 
  21.06359, 21.06374, 21.06291, 21.06344, 21.06115, 21.0616, 21.0578, 21.05675, 21.05771, 21.05585, 
  21.04988, 21.04276)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.49408, 60.49384, 60.49231, 60.49101, 60.48981, 60.48965, 60.48836, 60.48677, 60.48628, 60.48619, 
  60.48549, 60.48441, 60.48343, 60.48356, 60.48274, 60.4824, 60.48211, 60.48174, 60.48164, 60.48129, 
  60.48091, 60.48093, 60.48114, 60.48148, 60.48164, 60.48152, 60.48129, 60.48067, 60.48039, 60.48031, 
  60.48012, 60.47998, 60.47971, 60.47964, 60.47942, 60.47932, 60.47915, 60.47925, 60.4795, 60.47939, 
  60.47954, 60.48016, 60.48022, 60.48053, 60.48082, 60.48112, 60.48129, 60.48172, 60.48205, 60.48243, 
  60.48249, 60.48276, 60.48334, 60.48344, 60.48377, 60.48373, 60.48348, 60.48361, 60.48404, 60.48395, 
  60.48461, 60.48516, 60.48695, 60.48794, 60.48802, 60.48869, 60.48927, 60.4898, 60.49048, 60.49115, 
  60.4919, 60.49298, 60.49249, 60.4928, 60.49259, 60.49313, 60.49286)
LONGITUDE_VALUEs <- c(
  20.92477, 20.92327, 20.92204, 20.92037, 20.9202, 20.92157, 20.92046, 20.92239, 20.92237, 20.92136, 
  20.92149, 20.92275, 20.9225, 20.92163, 20.91993, 20.92068, 20.9199, 20.91978, 20.91934, 20.91965, 
  20.91937, 20.9192, 20.91911, 20.91923, 20.91846, 20.91809, 20.9181, 20.91711, 20.91724, 20.91708, 
  20.91728, 20.91689, 20.91677, 20.91712, 20.91707, 20.91739, 20.9176, 20.91859, 20.91904, 20.91957, 
  20.92013, 20.92089, 20.92166, 20.92206, 20.92363, 20.92374, 20.92456, 20.92444, 20.92489, 20.92464, 
  20.92429, 20.92495, 20.92521, 20.92554, 20.92564, 20.9251, 20.92434, 20.92414, 20.92489, 20.92546, 
  20.92601, 20.92594, 20.92676, 20.92761, 20.92801, 20.92839, 20.92788, 20.92954, 20.9299, 20.93098, 
  20.93117, 20.93031, 20.9272, 20.92649, 20.92596, 20.92581, 20.92484)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.45832, 60.45943, 60.45972, 60.46057, 60.46078, 60.46115, 60.46153, 60.46308, 60.46459, 60.46411, 
  60.46417, 60.46385, 60.46323, 60.46274, 60.46224, 60.46209, 60.46169, 60.46171, 60.46104, 60.46122, 
  60.46166, 60.46166, 60.46299, 60.46263, 60.46286, 60.46202, 60.46223, 60.46179, 60.46174, 60.46077, 
  60.46014, 60.45994, 60.45911, 60.45865, 60.45856, 60.45822, 60.45811, 60.45772, 60.45797, 60.45736, 
  60.45696, 60.45655, 60.45563, 60.45551, 60.45574, 60.45536, 60.45547, 60.4549, 60.45443, 60.45403, 
  60.45372, 60.45417, 60.45358, 60.45381, 60.45408, 60.45478, 60.45485, 60.45441, 60.45458, 60.45479, 
  60.45494, 60.45451, 60.45482, 60.45513, 60.45532, 60.45537, 60.45583)
LONGITUDE_VALUEs <- c(
  20.91742, 20.91851, 20.91934, 20.9196, 20.92065, 20.92067, 20.91893, 20.91839, 20.91546, 20.91503, 
  20.91414, 20.91335, 20.91428, 20.91436, 20.91553, 20.91543, 20.91589, 20.91645, 20.91693, 20.91297, 
  20.91206, 20.91102, 20.90915, 20.90759, 20.90587, 20.90479, 20.90396, 20.9035, 20.90246, 20.90148, 
  20.90303, 20.9028, 20.9041, 20.90385, 20.90442, 20.90436, 20.90486, 20.90525, 20.90612, 20.90641, 
  20.90708, 20.90706, 20.90903, 20.9082, 20.9076, 20.90708, 20.90606, 20.90649, 20.90787, 20.90856, 
  20.90996, 20.91077, 20.91224, 20.91269, 20.91257, 20.91305, 20.91356, 20.91568, 20.9158, 20.91543, 
  20.91588, 20.918, 20.91846, 20.91741, 20.91749, 20.91804, 20.91863)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.4547, 60.45475, 60.45287, 60.45232, 60.45149, 60.45132, 60.45223, 60.45178, 60.45318, 60.45312, 
  60.45183, 60.45021, 60.44988, 60.44927, 60.44948, 60.4491, 60.44771, 60.44739, 60.44635, 60.44684, 
  60.44644, 60.44733, 60.4471, 60.44818, 60.44822, 60.44958, 60.4507, 60.45222, 60.45325, 60.45352)
LONGITUDE_VALUEs <- c(
  20.99645, 20.9945, 20.99435, 20.99587, 20.99533, 20.99293, 20.99147, 20.99072, 20.98867, 20.98722, 
  20.98697, 20.98824, 20.99035, 20.99017, 20.98737, 20.98725, 20.99025, 20.99409, 20.9971, 20.99804, 
  20.99967, 21.00083, 21.00284, 21.00203, 21.00518, 21.00589, 21.00447, 21.00482, 21.00396, 20.99868)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.44829, 60.448, 60.44849, 60.44965, 60.44958, 60.45079, 60.45135, 60.45201, 60.45425, 60.45399, 
  60.455, 60.45489, 60.45245, 60.45236, 60.45368, 60.45365, 60.45473, 60.45505, 60.45478, 60.45479, 
  60.45405, 60.45342, 60.45346, 60.45331, 60.45346, 60.45322, 60.45349, 60.453, 60.45169, 60.45211, 
  60.45152, 60.44957, 60.44793, 60.44726, 60.44723, 60.44678, 60.44678, 60.44625, 60.44666, 60.44682, 
  60.44588, 60.44615, 60.44747)
LONGITUDE_VALUEs <- c(
  20.97276, 20.97066, 20.97023, 20.97251, 20.97379, 20.97454, 20.97632, 20.97624, 20.97461, 20.97372, 
  20.97369, 20.97285, 20.97384, 20.9734, 20.97209, 20.9714, 20.96961, 20.96813, 20.96819, 20.96767, 
  20.96803, 20.96691, 20.9665, 20.96617, 20.96586, 20.96507, 20.96492, 20.96413, 20.96538, 20.96445, 
  20.96402, 20.96462, 20.96448, 20.9656, 20.96517, 20.96542, 20.96726, 20.96957, 20.96994, 20.97135, 
  20.97256, 20.97465, 20.9738)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.4335, 60.43437, 60.43504, 60.43519, 60.43677, 60.43782, 60.43782, 60.4375, 60.43864, 60.43737, 
  60.4395, 60.44024, 60.43948, 60.43638, 60.43587, 60.43501, 60.43411, 60.43347, 60.43336, 60.43275, 
  60.43276)
LONGITUDE_VALUEs <- c(
  20.93551, 20.93257, 20.93345, 20.93547, 20.93707, 20.93634, 20.93542, 20.93512, 20.93038, 20.92858, 
  20.92708, 20.92238, 20.92122, 20.92186, 20.92456, 20.92566, 20.93001, 20.93016, 20.93154, 20.93175, 
  20.93521)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.46113, 60.46276, 60.46459, 60.46393, 60.46503, 60.46621, 60.46599, 60.46687, 60.4675, 60.46803, 
  60.4689, 60.46898, 60.46999, 60.46971, 60.47179, 60.47158, 60.47182, 60.4722, 60.47381, 60.47368, 
  60.47324, 60.47386, 60.47411, 60.47445, 60.47523, 60.47525, 60.47496, 60.47521, 60.47655, 60.47729, 
  60.47748, 60.47824, 60.47865, 60.47993, 60.47952, 60.47997, 60.47993, 60.48109, 60.48151, 60.48192, 
  60.48247, 60.48198, 60.48207, 60.48351, 60.48402, 60.48581, 60.4862, 60.487, 60.4882, 60.48812, 
  60.48873, 60.48855, 60.48967, 60.48823, 60.48935, 60.48872, 60.4893, 60.48747, 60.4867, 60.48554, 
  60.4852, 60.48461, 60.48398, 60.48419, 60.48392, 60.48371, 60.48349, 60.48325, 60.48309, 60.48331, 
  60.48284, 60.48342, 60.48265, 60.48235, 60.48195, 60.4816, 60.48122, 60.48059, 60.48012, 60.48029, 
  60.48007, 60.47954, 60.47865, 60.47981, 60.48012, 60.48121, 60.4808, 60.48103, 60.48072, 60.48092, 
  60.48011, 60.47978, 60.4788, 60.47841, 60.4757, 60.47549, 60.47475, 60.47449, 60.47395, 60.4739, 
  60.47359, 60.47352, 60.47323, 60.47313, 60.47206, 60.47252, 60.47223, 60.47218, 60.47303, 60.47288, 
  60.4722, 60.47184, 60.47182, 60.47145, 60.47131, 60.47094, 60.47048, 60.46995, 60.47034, 60.46945, 
  60.46863, 60.46817, 60.46772, 60.46666, 60.46752, 60.46823, 60.4702, 60.47033, 60.47078, 60.47083, 
  60.47131, 60.4718, 60.47157, 60.47181, 60.47177, 60.47451, 60.47469, 60.47574, 60.47591, 60.47632, 
  60.47619, 60.4766, 60.47676, 60.47804, 60.47793, 60.47764, 60.47702, 60.47617, 60.47583, 60.47463, 
  60.47469, 60.47344, 60.47336, 60.47304, 60.4737, 60.47382, 60.47272, 60.47258, 60.47167, 60.47173, 
  60.47162, 60.47182, 60.47205, 60.47233, 60.47173, 60.47196, 60.47138, 60.471, 60.47073, 60.47084, 
  60.47055, 60.47002, 60.47008, 60.46964, 60.47022, 60.46954, 60.47005, 60.46987, 60.46919, 60.46869, 
  60.46895, 60.46824, 60.46731, 60.4674, 60.46618, 60.46583, 60.46596, 60.46504, 60.46463, 60.46436, 
  60.46433, 60.46368, 60.46276, 60.46265, 60.46211, 60.46143, 60.46129, 60.46213, 60.46188, 60.46091, 
  60.4613, 60.4607, 60.46014, 60.46052, 60.46136, 60.46121, 60.46065, 60.46041, 60.45968, 60.45977, 
  60.46004, 60.46011, 60.46087, 60.46055, 60.45999, 60.45978, 60.45939, 60.45926, 60.45961, 60.45974, 
  60.45935, 60.45913, 60.45845, 60.45825, 60.45749, 60.45765, 60.45767, 60.45746, 60.45737, 60.45705, 
  60.45732, 60.45711, 60.45636, 60.45519, 60.45523, 60.45471, 60.45532, 60.45485, 60.45441, 60.45465, 
  60.45442, 60.45434, 60.45466, 60.45427, 60.45381, 60.45365, 60.45244, 60.45134, 60.45086, 60.45094, 
  60.45141, 60.4519, 60.45277, 60.45309, 60.45361, 60.45359, 60.45309, 60.45378, 60.45354, 60.45305, 
  60.45308, 60.4527, 60.45269, 60.45304, 60.45327, 60.45258, 60.45252, 60.45225, 60.45192, 60.45154, 
  60.4516, 60.45087, 60.45041, 60.44962, 60.44949, 60.44905, 60.44879, 60.44891, 60.44873, 60.44849, 
  60.44807, 60.44713, 60.44698, 60.44615, 60.44624, 60.44611, 60.44566, 60.44524, 60.44495, 60.44497, 
  60.44534, 60.44522, 60.44451, 60.44341, 60.44247, 60.44167, 60.43743, 60.44002, 60.43955, 60.44031, 
  60.43948, 60.44097, 60.44178, 60.44143, 60.44111, 60.4406, 60.44003, 60.43956, 60.44004, 60.44017, 
  60.44098, 60.44169, 60.44361, 60.44648, 60.4456, 60.4457, 60.4481, 60.44862, 60.44846, 60.45053, 
  60.45135, 60.45187, 60.45069, 60.45084, 60.45215, 60.45295, 60.45411, 60.45477, 60.45548, 60.4566, 
  60.45725, 60.45691, 60.45664, 60.45605, 60.45696, 60.45671, 60.45705, 60.45769, 60.4581, 60.45857, 
  60.45852, 60.45774, 60.45848, 60.46018)
LONGITUDE_VALUEs <- c(
  20.95008, 20.94954, 20.9472, 20.9433, 20.9424, 20.94379, 20.94463, 20.94619, 20.94594, 20.94714, 
  20.94737, 20.94583, 20.94628, 20.94823, 20.94798, 20.94617, 20.94581, 20.94678, 20.94687, 20.95015, 
  20.95154, 20.95179, 20.94986, 20.9505, 20.95028, 20.95168, 20.95206, 20.95309, 20.95291, 20.95014, 
  20.95162, 20.95111, 20.94864, 20.94903, 20.95, 20.95035, 20.95485, 20.95444, 20.95242, 20.95373, 
  20.95407, 20.95462, 20.9561, 20.95644, 20.95439, 20.95381, 20.95236, 20.95188, 20.94868, 20.94819, 
  20.94753, 20.94521, 20.94229, 20.93972, 20.93828, 20.93746, 20.93685, 20.93483, 20.93537, 20.93372, 
  20.93431, 20.93381, 20.93558, 20.93757, 20.9388, 20.93889, 20.9386, 20.93902, 20.9381, 20.93745, 
  20.93667, 20.93506, 20.93483, 20.93499, 20.93413, 20.93388, 20.93273, 20.9327, 20.93437, 20.93515, 
  20.93675, 20.93688, 20.93926, 20.93876, 20.9395, 20.93943, 20.94051, 20.94139, 20.94251, 20.94323, 
  20.94375, 20.9433, 20.94309, 20.94207, 20.9423, 20.94432, 20.9448, 20.9441, 20.94438, 20.94372, 
  20.94392, 20.94482, 20.94513, 20.94262, 20.94253, 20.94057, 20.94017, 20.93914, 20.93816, 20.93741, 
  20.93795, 20.93924, 20.94226, 20.94294, 20.94377, 20.9444, 20.94294, 20.9431, 20.93999, 20.93902, 
  20.94106, 20.94072, 20.94109, 20.9395, 20.93588, 20.93643, 20.93557, 20.93498, 20.93512, 20.93427, 
  20.93369, 20.93104, 20.92966, 20.9292, 20.92864, 20.92734, 20.92661, 20.92741, 20.92667, 20.92633, 
  20.92571, 20.92548, 20.92601, 20.92581, 20.92406, 20.92403, 20.91916, 20.91949, 20.91886, 20.91923, 
  20.92039, 20.92142, 20.9204, 20.91993, 20.91933, 20.91704, 20.91762, 20.91658, 20.91719, 20.91762, 
  20.91849, 20.91865, 20.92019, 20.92053, 20.92139, 20.92219, 20.92203, 20.92326, 20.92341, 20.92414, 
  20.92468, 20.92476, 20.92507, 20.92547, 20.92652, 20.92666, 20.92755, 20.9283, 20.92742, 20.92864, 
  20.92927, 20.92947, 20.92801, 20.92751, 20.92783, 20.92706, 20.92894, 20.92906, 20.92751, 20.92762, 
  20.9288, 20.92852, 20.92954, 20.93048, 20.93056, 20.93207, 20.93148, 20.92909, 20.92866, 20.93127, 
  20.93321, 20.93274, 20.9334, 20.93025, 20.92833, 20.92635, 20.92629, 20.92803, 20.92734, 20.9266, 
  20.92654, 20.92537, 20.92448, 20.92338, 20.92397, 20.92551, 20.92628, 20.92576, 20.92493, 20.92382, 
  20.9237, 20.92273, 20.92284, 20.9234, 20.92409, 20.92483, 20.92568, 20.92583, 20.92478, 20.92538, 
  20.92615, 20.9265, 20.9257, 20.9278, 20.93015, 20.93041, 20.93298, 20.93359, 20.93608, 20.93766, 
  20.93782, 20.9392, 20.94133, 20.94193, 20.94147, 20.9348, 20.93363, 20.9349, 20.93391, 20.93307, 
  20.9332, 20.93249, 20.93227, 20.93331, 20.93317, 20.93271, 20.93274, 20.93107, 20.93064, 20.93176, 
  20.93103, 20.93125, 20.93061, 20.93028, 20.92776, 20.92649, 20.92545, 20.9253, 20.92437, 20.92483, 
  20.9251, 20.92584, 20.92544, 20.9267, 20.92826, 20.9298, 20.92996, 20.93086, 20.93087, 20.93002, 
  20.92974, 20.93037, 20.92983, 20.93011, 20.92989, 20.92965, 20.92965, 20.93039, 20.93035, 20.92999, 
  20.92951, 20.92893, 20.92852, 20.92591, 20.92548, 20.92644, 20.93912, 20.94018, 20.94123, 20.94215, 
  20.9444, 20.94464, 20.94601, 20.94676, 20.94605, 20.9467, 20.94655, 20.94876, 20.94893, 20.95024, 
  20.95045, 20.94899, 20.94835, 20.9523, 20.95333, 20.95391, 20.95444, 20.95333, 20.9515, 20.9521, 
  20.95112, 20.952, 20.95335, 20.95382, 20.95322, 20.95354, 20.95238, 20.95356, 20.95286, 20.95319, 
  20.95124, 20.95101, 20.95198, 20.95207, 20.94996, 20.94948, 20.94865, 20.94957, 20.94934, 20.94965, 
  20.95076, 20.95231, 20.95375, 20.95309)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.43192, 60.43266, 60.43359, 60.43432, 60.43449, 60.43398, 60.4342, 60.43342, 60.43363, 60.43543, 
  60.43581, 60.43496, 60.43773, 60.43706, 60.43748, 60.43786, 60.43869, 60.43839, 60.43858, 60.43813, 
  60.4372, 60.43732, 60.43674, 60.43761, 60.43601, 60.43465, 60.43223, 60.431, 60.43085, 60.43335, 
  60.434, 60.43314, 60.43386, 60.43255, 60.43093, 60.43069, 60.42945, 60.42918, 60.42825, 60.42795, 
  60.42746, 60.42693, 60.42483, 60.42475, 60.42598, 60.426, 60.42748, 60.4278, 60.42764, 60.42789, 
  60.42685, 60.42618, 60.42565, 60.42477, 60.42457, 60.42401, 60.42235, 60.42247, 60.42334, 60.42272, 
  60.4249, 60.42393, 60.42522, 60.42649, 60.42762, 60.42744, 60.42779, 60.42798, 60.42877, 60.42894, 
  60.42951, 60.43101, 60.43, 60.43107)
LONGITUDE_VALUEs <- c(
  20.96229, 20.96261, 20.96104, 20.96124, 20.96197, 20.96317, 20.96373, 20.96478, 20.96514, 20.96379, 
  20.96242, 20.96259, 20.95727, 20.95598, 20.95551, 20.95645, 20.95559, 20.95484, 20.95345, 20.95334, 
  20.95493, 20.95386, 20.9527, 20.94993, 20.94976, 20.95132, 20.95117, 20.95235, 20.9515, 20.94944, 
  20.94736, 20.94723, 20.94371, 20.9418, 20.94276, 20.9412, 20.94351, 20.94298, 20.94529, 20.94509, 
  20.9459, 20.9448, 20.94624, 20.94751, 20.94887, 20.94961, 20.9509, 20.95195, 20.95271, 20.95449, 
  20.95467, 20.95571, 20.95531, 20.95573, 20.95643, 20.95659, 20.96035, 20.96189, 20.9617, 20.96315, 
  20.96359, 20.96616, 20.96751, 20.96391, 20.96344, 20.96206, 20.96172, 20.96279, 20.96288, 20.9682, 
  20.96807, 20.9638, 20.95897, 20.95869)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.42468, 60.42432, 60.42448, 60.42374, 60.42272, 60.42206, 60.42144, 60.41904, 60.41452, 60.414, 
  60.41335, 60.41233, 60.412, 60.41132, 60.41073, 60.41023, 60.40941, 60.40946, 60.40894, 60.40848, 
  60.40847, 60.40704, 60.40826, 60.40853, 60.41054, 60.41084, 60.41129, 60.41227, 60.41266, 60.41373, 
  60.41401, 60.41477, 60.41419, 60.41537, 60.41592, 60.41562, 60.41634, 60.41638, 60.41543, 60.41508, 
  60.41563, 60.41618, 60.41683, 60.41701, 60.41735, 60.41727, 60.41793, 60.41958, 60.42148, 60.4213, 
  60.42155, 60.42546, 60.42563, 60.42501, 60.42514, 60.42744, 60.43042, 60.43151, 60.43153, 60.43202, 
  60.4316, 60.43099, 60.43103, 60.4304, 60.43021, 60.42918, 60.42905, 60.42937, 60.42933, 60.42908, 
  60.42862, 60.42822, 60.42629, 60.42622, 60.42645, 60.42528, 60.42471, 60.42356, 60.42347, 60.42496, 
  60.42431, 60.42357, 60.42232, 60.42089, 60.42074, 60.42022, 60.42085, 60.42141, 60.42196, 60.42269, 
  60.42293, 60.42351, 60.42376, 60.42518, 60.42556, 60.42718, 60.42892, 60.42934, 60.4283, 60.42821, 
  60.42768, 60.42762, 60.42625, 60.42515)
LONGITUDE_VALUEs <- c(
  20.97136, 20.9701, 20.96947, 20.96875, 20.97014, 20.97003, 20.97089, 20.97059, 20.97509, 20.9776, 
  20.97711, 20.97826, 20.97928, 20.97903, 20.98001, 20.98151, 20.98241, 20.98357, 20.98441, 20.98415, 
  20.98478, 20.98854, 20.9885, 20.99063, 20.99045, 20.99138, 20.99075, 20.99072, 20.99177, 20.99108, 
  20.99173, 20.99201, 20.99334, 20.99419, 20.9941, 20.99533, 20.99606, 20.99668, 20.9968, 20.99845, 
  20.99961, 20.99983, 20.99847, 20.99976, 20.9998, 21.00113, 21.00049, 21.00038, 20.99657, 20.9955, 
  20.99462, 20.99503, 20.99561, 20.9964, 20.99776, 20.99966, 20.998, 20.99604, 20.99255, 20.99141, 
  20.99098, 20.99215, 20.99068, 20.99115, 20.99248, 20.99206, 20.9915, 20.99096, 20.98988, 20.9897, 
  20.99012, 20.98955, 20.98887, 20.98787, 20.98603, 20.98485, 20.98615, 20.98698, 20.98671, 20.9838, 
  20.9824, 20.98367, 20.98185, 20.98149, 20.98239, 20.98055, 20.97773, 20.97857, 20.97849, 20.97944, 
  20.97805, 20.97841, 20.97997, 20.98228, 20.98411, 20.98467, 20.98129, 20.97923, 20.97983, 20.97827, 
  20.97753, 20.97499, 20.97179, 20.97096)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.437, 60.43782, 60.43852, 60.44296, 60.44277, 60.44164, 60.43889, 60.43757, 60.43709, 60.43694, 
  60.43889, 60.43876, 60.43723, 60.43826, 60.43824, 60.43952, 60.43784, 60.43632, 60.43575, 60.43575, 
  60.43829, 60.43881, 60.43942, 60.43891, 60.43864, 60.43811, 60.43747, 60.43719, 60.43587, 60.43664, 
  60.43639, 60.43529, 60.43281, 60.4338, 60.43331, 60.43225, 60.43211, 60.43099, 60.43084, 60.43143, 
  60.43084, 60.43107, 60.43101, 60.42976, 60.42978, 60.4295, 60.42914, 60.42883, 60.42855, 60.42832, 
  60.42769, 60.42746, 60.42698, 60.4268, 60.42854, 60.42831, 60.42879, 60.42981, 60.43067, 60.4304, 
  60.43168, 60.43243, 60.43582, 60.436)
LONGITUDE_VALUEs <- c(
  21.05652, 21.05849, 21.05896, 21.05549, 21.05454, 21.05523, 21.05173, 21.04635, 21.04684, 21.04302, 
  21.04203, 21.04025, 21.03868, 21.03721, 21.03218, 21.028, 21.02291, 21.0245, 21.02274, 21.02042, 
  21.01564, 21.01727, 21.01229, 21.01036, 21.01298, 21.01298, 21.0118, 21.01352, 21.01515, 21.00826, 
  21.00819, 21.01304, 21.0143, 21.01005, 21.00894, 21.01203, 21.01015, 21.01311, 21.01474, 21.01552, 
  21.0201, 21.02252, 21.02586, 21.02763, 21.02893, 21.02942, 21.02915, 21.02976, 21.02975, 21.03082, 
  21.03191, 21.03388, 21.03415, 21.03499, 21.0345, 21.03591, 21.03626, 21.03514, 21.04, 21.04266, 
  21.04316, 21.04792, 21.05166, 21.05533)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.45131, 60.45188, 60.45175, 60.45278, 60.44975, 60.45075, 60.45062, 60.44931, 60.44798, 60.448, 
  60.44852, 60.44702, 60.44736, 60.44826, 60.44964, 60.45143, 60.45185, 60.45208, 60.45139, 60.45168, 
  60.45093, 60.45104, 60.45168, 60.45222, 60.45288, 60.45342, 60.4536, 60.4541, 60.45467, 60.45492, 
  60.45701, 60.45706, 60.45743, 60.45732, 60.45803, 60.45858, 60.45871, 60.45908, 60.45929, 60.45879, 
  60.45886, 60.46017, 60.46024, 60.45993, 60.46016, 60.46147, 60.46262, 60.46304, 60.46293, 60.4634, 
  60.46424, 60.46432, 60.46372, 60.46365, 60.46515, 60.46562, 60.46585, 60.46639, 60.46665, 60.46701, 
  60.46748, 60.468, 60.46862, 60.46798, 60.46753, 60.46716, 60.46761, 60.46738, 60.4676, 60.46802, 
  60.4679, 60.4688, 60.46883, 60.46932, 60.46983, 60.47056, 60.47028, 60.47157, 60.47193, 60.4713, 
  60.47247, 60.47207, 60.47286, 60.47267, 60.47317, 60.47657, 60.47793, 60.48077, 60.48336, 60.4828, 
  60.48288, 60.48264, 60.48305, 60.48224, 60.48168, 60.48172, 60.48107, 60.48014, 60.47959, 60.47872, 
  60.47814, 60.47833, 60.47884, 60.47893, 60.47812, 60.47772, 60.47693, 60.4759, 60.47595, 60.47715, 
  60.4778, 60.47794, 60.47876, 60.47946, 60.47998, 60.48087, 60.48251, 60.48229, 60.48251, 60.48284, 
  60.48331, 60.48391, 60.48403, 60.48469, 60.48442, 60.48464, 60.48448, 60.48503, 60.48495, 60.48535, 
  60.48711, 60.49115, 60.49208, 60.49702, 60.49676, 60.49711, 60.49637, 60.49592, 60.49523, 60.49515, 
  60.49657, 60.49693, 60.49824, 60.49787, 60.4972, 60.49721, 60.4981, 60.49766, 60.5016, 60.50341, 
  60.50283, 60.50565, 60.50638, 60.50512, 60.5044, 60.50411, 60.5036, 60.50344, 60.50303, 60.50332, 
  60.50275, 60.5021, 60.50048, 60.49991, 60.49936, 60.49904, 60.49684, 60.49644, 60.49547, 60.4956, 
  60.49485, 60.49509, 60.4948, 60.49308, 60.49347, 60.49336, 60.49418, 60.4935, 60.49394, 60.49316, 
  60.49239, 60.49267, 60.49193, 60.49173, 60.48993, 60.48911, 60.48878, 60.48937, 60.48913, 60.48521,
  60.48621, 60.48567, 60.48508, 60.48508, 60.4843, 60.48259, 60.48278, 60.48414, 60.48419, 60.48614, 
  60.48608, 60.48703, 60.48615, 60.48622, 60.48403, 60.48197, 60.48151, 60.48094, 60.47962, 60.47817, 
  60.47737, 60.47779, 60.47761, 60.47541, 60.47529, 60.47384, 60.4736, 60.47431, 60.47432, 60.47166, 
  60.47101, 60.47009, 60.46916, 60.47002, 60.47076, 60.47225, 60.47105, 60.46863, 60.468, 60.46984, 
  60.47262, 60.47397, 60.47422, 60.474, 60.47599, 60.47633, 60.47711, 60.47681, 60.47636, 60.47602, 
  60.47377, 60.47249, 60.47132, 60.47063, 60.47001, 60.46852, 60.46563, 60.46353, 60.46233, 60.46181, 
  60.46133, 60.46216, 60.4611, 60.4605, 60.45782, 60.45571, 60.45572, 60.45721, 60.45728, 60.45686, 
  60.45706, 60.45781, 60.46009, 60.4606, 60.46108, 60.46165, 60.46198, 60.4617, 60.46204, 60.46126, 
  60.46179, 60.46135, 60.46043, 60.45914, 60.45895, 60.45921, 60.45877, 60.45836, 60.45727, 60.45748, 
  60.45818, 60.45781, 60.45714, 60.45687, 60.45654, 60.45669, 60.45638, 60.45674, 60.45615, 60.45679, 
  60.45615, 60.45453, 60.45306)
LONGITUDE_VALUEs <- c(
  21.06524, 21.06759, 21.06839, 21.07093, 21.07457, 21.07816, 21.08118, 21.08344, 21.08442, 21.0856, 
  21.08674, 21.08745, 21.08868, 21.08903, 21.08831, 21.08796, 21.08739, 21.08791, 21.08928, 21.0899, 
  21.09072, 21.09239, 21.09222, 21.09261, 21.09236, 21.09268, 21.09223, 21.0924, 21.09157, 21.09206, 
  21.09269, 21.09319, 21.09381, 21.09527, 21.09583, 21.09531, 21.09556, 21.09584, 21.0968, 21.09711, 
  21.09758, 21.09863, 21.09914, 21.09947, 21.10045, 21.10014, 21.10018, 21.09978, 21.09908, 21.09935, 
  21.09772, 21.0969, 21.0969, 21.09644, 21.095, 21.09393, 21.095, 21.09495, 21.09675, 21.09673, 
  21.09524, 21.09524, 21.09633, 21.09814, 21.09791, 21.09848, 21.09915, 21.09988, 21.10102, 21.10079, 
  21.10344, 21.10456, 21.10578, 21.10567, 21.10327, 21.10203, 21.10008, 21.0991, 21.10062, 21.10191, 
  21.10285, 21.1038, 21.10493, 21.1066, 21.10702, 21.10549, 21.10101, 21.10231, 21.10049, 21.0995, 
  21.09831, 21.09782, 21.09619, 21.09676, 21.09636, 21.0945, 21.09365, 21.09459, 21.09373, 21.09554, 
  21.09502, 21.0939, 21.09363, 21.09264, 21.09253, 21.09315, 21.09355, 21.09288, 21.0922, 21.09066, 
  21.09068, 21.08983, 21.08878, 21.08878, 21.08944, 21.08907, 21.0868, 21.08593, 21.08446, 21.08423, 
  21.08213, 21.08272, 21.08493, 21.08741, 21.08998, 21.09055, 21.0915, 21.09174, 21.09247, 21.09284, 
  21.09189, 21.08647, 21.08371, 21.07635, 21.07441, 21.07036, 21.06693, 21.06671, 21.06508, 21.06186, 
  21.06169, 21.05624, 21.05714, 21.06066, 21.06049, 21.06474, 21.06575, 21.06785, 21.06345, 21.05714, 
  21.0548, 21.05227, 21.04523, 21.03925, 21.0394, 21.03862, 21.03862, 21.03753, 21.03706, 21.03556, 
  21.03423, 21.03478, 21.03407, 21.03495, 21.03472, 21.03571, 21.03845, 21.03728, 21.03772, 21.03619, 
  21.03617, 21.03497, 21.03431, 21.0369, 21.03816, 21.03961, 21.04131, 21.04419, 21.04537, 21.05093, 
  21.05146, 21.05364, 21.05266, 21.05386, 21.05403, 21.0568, 21.05651, 21.05344, 21.0531, 21.06047,
  21.06161, 21.06472, 21.06496, 21.06644, 21.06599, 21.06921, 21.06985, 21.06912, 21.06796, 21.06642, 
  21.06779, 21.06787, 21.06963, 21.07099, 21.07287, 21.07717, 21.07695, 21.07315, 21.07182, 21.07347, 
  21.07252, 21.07181, 21.07093, 21.07264, 21.07162, 21.07197, 21.07289, 21.07324, 21.07383, 21.07539, 
  21.07358, 21.07315, 21.07139, 21.07073, 21.07146, 21.06945, 21.06871, 21.0687, 21.06751, 21.06719, 
  21.06729, 21.06633, 21.06534, 21.06385, 21.06299, 21.06158, 21.06045, 21.05981, 21.06037, 21.05999, 
  21.0611, 21.06006, 21.06046, 21.05921, 21.05941, 21.05563, 21.05285, 21.05442, 21.05433, 21.0548, 
  21.05414, 21.05353, 21.05216, 21.04927, 21.04846, 21.05125, 21.05244, 21.05434, 21.05583, 21.05756, 
  21.05889, 21.05958, 21.05911, 21.05746, 21.05746, 21.05661, 21.05678, 21.058, 21.05856, 21.06139, 
  21.06339, 21.06678, 21.06701, 21.0716, 21.07147, 21.06914, 21.06905, 21.06811, 21.06903, 21.06768, 
  21.0668, 21.06577, 21.06641, 21.06894, 21.06864, 21.06748, 21.066, 21.06527, 21.06397, 21.06113, 
  21.06058, 21.06208, 21.06178)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(60.40476, 60.40692, 60.40847, 60.40957, 60.41027, 60.41014, 60.41101, 60.40902, 60.40601)
LONGITUDE_VALUEs <- c(21.08995, 21.09436, 21.09268, 21.09281, 21.09084, 21.08723, 21.08496, 21.08036, 21.08465)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.39733, 60.39882, 60.39976, 60.40041, 60.40163, 60.40203, 60.40141, 60.40152, 60.40095, 60.40101, 
  60.40174, 60.40145, 60.40052, 60.40003, 60.39955, 60.39911, 60.39843, 60.3977, 60.39718, 60.39656, 
  60.39666, 60.3964, 60.39686)
LONGITUDE_VALUEs <- c(
  20.99264, 20.99532, 20.99556, 20.9971, 20.99681, 20.991, 20.98998, 20.9893, 20.98853, 20.98629, 
  20.98518, 20.98411, 20.9856, 20.98416, 20.98489, 20.98487, 20.98654, 20.98711, 20.98943, 20.99026, 
  20.99119, 20.99203, 20.99313)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.39671, 60.39878, 60.39896, 60.40076, 60.40274, 60.40259, 60.40282, 60.4025, 60.40264, 60.40139, 
  60.39852, 60.39841, 60.39802, 60.39682, 60.39597, 60.39696, 60.39638, 60.39243, 60.38933, 60.38948, 
  60.38928, 60.38985, 60.38948, 60.38982, 60.38986, 60.39037, 60.39087, 60.39088, 60.39175, 60.39237, 
  60.39345, 60.39518, 60.39614, 60.39574, 60.39661)
LONGITUDE_VALUEs <- c(
  20.97931, 20.97949, 20.98047, 20.97882, 20.97387, 20.97299, 20.97097, 20.97012, 20.96865, 20.9673, 
  20.9697, 20.97103, 20.97135, 20.97508, 20.97489, 20.97207, 20.97051, 20.97398, 20.97921, 20.97994, 
  20.98082, 20.98104, 20.98191, 20.98328, 20.98484, 20.98509, 20.98644, 20.98822, 20.98814, 20.9903, 
  20.99039, 20.98779, 20.98501, 20.98372, 20.98239)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.387, 60.38701, 60.38807, 60.38776, 60.39108, 60.39229, 60.39399, 60.39494, 60.39529, 60.39478, 
  60.39475, 60.39363, 60.39197, 60.39165, 60.3905, 60.39, 60.39024, 60.38899, 60.38799, 60.3875)
LONGITUDE_VALUEs <- c(
  21.04223, 21.0438, 21.04476, 21.04756, 21.05225, 21.05225, 21.05, 21.04994, 21.04815, 21.04599, 
  21.04302, 21.0418, 21.04279, 21.04183, 21.04298, 21.04275, 21.04174, 21.041, 21.04123, 21.04202)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.34625, 60.34951, 60.35126, 60.35314, 60.35427, 60.35547, 60.35549, 60.35776, 60.35703, 60.35551, 
  60.35478, 60.35099, 60.3509, 60.34762)
LONGITUDE_VALUEs <- c(
  21.02472, 21.03077, 21.03077, 21.02893, 21.02949, 21.02826, 21.02674, 21.02107, 21.01876, 21.01998, 
  21.01884, 21.02005, 21.01803, 21.02007)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.36977, 60.37146, 60.37185, 60.37214, 60.373, 60.37319, 60.37364, 60.37372, 60.37385, 60.37408, 
  60.37379, 60.37397, 60.37504, 60.37546, 60.37526, 60.37544, 60.37473, 60.3784, 60.37824, 60.37858, 
  60.37755, 60.37781, 60.37738, 60.37684, 60.37539, 60.37423, 60.3739, 60.37194, 60.36976, 60.36965, 
  60.37082, 60.37174, 60.37187, 60.37227, 60.37218, 60.37147, 60.36926, 60.36855, 60.36803, 60.36763, 
  60.36728, 60.36711, 60.36764, 60.36851)
LONGITUDE_VALUEs <- c(
  21.00378, 21.00251, 21.00114, 21.00148, 21.00043, 21.0006, 21.00066, 21.00114, 21.00107, 21.00138, 
  21.00165, 21.00221, 21.00183, 21.00024, 20.99933, 20.99793, 20.9976, 20.9927, 20.9917, 20.99105, 
  20.98777, 20.9856, 20.98525, 20.98704, 20.98469, 20.98479, 20.98357, 20.98637, 20.9921, 20.99304, 
  20.99394, 20.99559, 20.99682, 20.99743, 20.99799, 20.99768, 20.99893, 21.00024, 21.00061, 21.00178, 
  21.00227, 21.0035, 21.00393, 21.00336)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.35809, 60.35883, 60.35913, 60.35925, 60.35979, 60.36003, 60.36046, 60.36069, 60.36165, 60.36192, 
  60.36273, 60.36358, 60.36382, 60.36351, 60.36405, 60.36523, 60.36716, 60.36705, 60.36602, 60.36702, 
  60.36876, 60.3692, 60.37151, 60.37225, 60.37227, 60.37351, 60.37426, 60.37374, 60.37376, 60.37275, 
  60.37217, 60.3719, 60.36972, 60.36951, 60.36898, 60.3685, 60.36771, 60.36175, 60.36176, 60.36273, 
  60.36436, 60.36451, 60.36346, 60.36302, 60.36149, 60.36121, 60.3609, 60.35902, 60.35862)
LONGITUDE_VALUEs <- c(
  20.99465, 20.99451, 20.99513, 20.99685, 20.99748, 20.99606, 20.99565, 20.99708, 20.99725, 20.99611, 
  20.99604, 20.99518, 20.99565, 20.99645, 20.99714, 20.99641, 20.99201, 20.99136, 20.99107, 20.9877, 
  20.98699, 20.98475, 20.9825, 20.981, 20.97947, 20.97851, 20.97498, 20.9742, 20.97249, 20.97097, 
  20.9712, 20.97057, 20.97139, 20.97302, 20.97302, 20.97449, 20.97499, 20.98503, 20.98602, 20.98748, 
  20.98798, 20.98864, 20.98897, 20.99013, 20.99109, 20.99376, 20.99454, 20.98963, 20.99002)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.33679, 60.33952, 60.34007, 60.34142, 60.34134, 60.345, 60.34404, 60.34548, 60.34931, 60.35119, 
  60.35367, 60.35334, 60.35639, 60.35694, 60.35988, 60.36164, 60.36947, 60.36838, 60.36944, 60.36742, 
  60.36752, 60.36591, 60.36634, 60.36174, 60.36054, 60.35813, 60.35527, 60.35395, 60.35261, 60.35279, 
  60.35067, 60.34956, 60.3481, 60.34766, 60.3507, 60.35109, 60.35236, 60.35323, 60.35285, 60.35158, 
  60.35088, 60.34762, 60.34831, 60.34793, 60.34906, 60.34788, 60.3477, 60.34693, 60.34273, 60.34325, 
  60.34264, 60.34193, 60.33893, 60.33899, 60.33981, 60.33917, 60.33784, 60.33666, 60.33423, 60.33194, 
  60.33318, 60.33399, 60.33403, 60.33543, 60.33546, 60.33595, 60.33722, 60.33679, 60.33597, 60.33702, 
  60.33612, 60.33558, 60.33562, 60.33634)
LONGITUDE_VALUEs <- c(
  21.09766, 21.09905, 21.09618, 21.09307, 21.0886, 21.08676, 21.08135, 21.07903, 21.07833, 21.08545, 
  21.08345, 21.08197, 21.08092, 21.07478, 21.07611, 21.075, 21.05955, 21.05961, 21.05665, 21.05803, 
  21.05631, 21.05601, 21.05427, 21.0515, 21.05333, 21.05279, 21.05689, 21.05614, 21.05835, 21.05963, 
  21.06356, 21.06247, 21.06406, 21.06249, 21.05704, 21.05491, 21.05341, 21.05039, 21.04938, 21.04991, 
  21.0491, 21.05269, 21.05369, 21.05487, 21.0561, 21.05752, 21.05912, 21.05906, 21.06358, 21.06555, 
  21.0664, 21.06605, 21.06948, 21.07054, 21.07134, 21.07474, 21.077, 21.07654, 21.0789, 21.08399, 
  21.08639, 21.08514, 21.08649, 21.08558, 21.08393, 21.08273, 21.08413, 21.08612, 21.08671, 21.08926, 
  21.09227, 21.09283, 21.0948, 21.09554)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.36165, 60.36021, 60.36023, 60.36397, 60.36536, 60.36774, 60.36918, 60.37044, 60.37103, 60.3723, 
  60.3753, 60.37555, 60.37475, 60.37526, 60.37601, 60.37575, 60.37786, 60.37879, 60.37908, 60.38077, 
  60.3809, 60.37963, 60.38022, 60.37958, 60.37975, 60.37881, 60.37886, 60.38022, 60.38024, 60.37973, 
  60.37828, 60.37826, 60.37725, 60.37724, 60.37522, 60.37463, 60.37576, 60.37547, 60.37434, 60.37325, 
  60.37259, 60.37154, 60.37059, 60.37164, 60.37215, 60.37188, 60.37135, 60.37092, 60.36994, 60.36968, 
  60.36884, 60.36761, 60.36702, 60.3665, 60.36575, 60.36487, 60.36472, 60.36509, 60.36422, 60.36484, 
  60.3647, 60.36402, 60.36233)
LONGITUDE_VALUEs <- c(
  21.08695, 21.08654, 21.09073, 21.09184, 21.08839, 21.09109, 21.08942, 21.08918, 21.08562, 21.08716, 
  21.08519, 21.08706, 21.08886, 21.09255, 21.09195, 21.09124, 21.08813, 21.08903, 21.08648, 21.08605, 
  21.08491, 21.08418, 21.08311, 21.08307, 21.08131, 21.08122, 21.0803, 21.0789, 21.07508, 21.07392, 
  21.07521, 21.07633, 21.07745, 21.07616, 21.07777, 21.07427, 21.07146, 21.06875, 21.06815, 21.06929, 
  21.06882, 21.06912, 21.07058, 21.07374, 21.07411, 21.07569, 21.07573, 21.07649, 21.07619, 21.07765, 
  21.0762, 21.07709, 21.078, 21.07747, 21.07899, 21.07864, 21.07935, 21.08091, 21.08266, 21.0837, 
  21.08454, 21.08542, 21.08536)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.378, 60.37976, 60.38114, 60.382, 60.38073, 60.38147, 60.38125, 60.38148, 60.38289, 60.38446, 
  60.38455, 60.38501, 60.38609, 60.38689, 60.38876, 60.38891, 60.38955, 60.39065, 60.39112, 60.39162, 
  60.39133, 60.39137, 60.39127, 60.39156, 60.39109, 60.39061, 60.3901, 60.38981, 60.38943, 60.38854, 
  60.38824, 60.38779, 60.38764, 60.38638, 60.3868, 60.38724, 60.38797, 60.38768, 60.38819, 60.3889, 
  60.38882, 60.38823, 60.38494, 60.38384, 60.38403, 60.38342, 60.38244, 60.38173, 60.38052, 60.37949, 
  60.37984, 60.38027, 60.38103, 60.38201, 60.38182, 60.38294, 60.38197, 60.38177, 60.37995, 60.37826, 
  60.37785, 60.37623, 60.37624, 60.37701, 60.37715, 60.37781, 60.37825)
LONGITUDE_VALUEs <- c(
  21.07225, 21.07301, 21.07116, 21.07327, 21.07486, 21.07689, 21.07796, 21.07989, 21.08062, 21.07962, 
  21.07598, 21.0756, 21.07724, 21.07717, 21.07408, 21.07258, 21.07067, 21.06948, 21.06951, 21.06848, 
  21.06791, 21.06709, 21.06678, 21.06583, 21.06525, 21.06556, 21.06498, 21.06492, 21.06423, 21.06456, 
  21.06431, 21.06506, 21.06632, 21.06521, 21.06252, 21.06318, 21.06214, 21.06148, 21.05911, 21.05777, 
  21.05748, 21.05736, 21.05101, 21.04984, 21.04889, 21.04845, 21.04903, 21.04811, 21.04915, 21.05135, 
  21.05195, 21.05192, 21.05249, 21.05474, 21.05654, 21.05828, 21.05871, 21.06178, 21.06255, 21.06547, 
  21.06291, 21.06693, 21.06808, 21.06798, 21.0692, 21.06873, 21.06946)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.37248, 60.37626, 60.3762, 60.37703, 60.37863, 60.38043, 60.38132, 60.38329, 60.38327, 60.38212, 
  60.38225, 60.38352, 60.38418, 60.38343, 60.38348, 60.3828, 60.38408, 60.38636, 60.38709, 60.38922, 
  60.38943, 60.39028, 60.39067, 60.39089, 60.39186, 60.3917, 60.39192, 60.39283, 60.3934, 60.39419, 
  60.39387, 60.3939, 60.39352, 60.39398, 60.39325, 60.39243, 60.3923, 60.39256, 60.39182, 60.3916, 
  60.39222, 60.39198, 60.39141, 60.39206, 60.39272, 60.39271, 60.39335, 60.39348, 60.39349, 60.39377, 
  60.39435, 60.395, 60.39464, 60.39467, 60.39552, 60.3963, 60.39647, 60.39594, 60.39541, 60.39545, 
  60.39586, 60.39588, 60.3963, 60.39794, 60.39835, 60.39821, 60.39853, 60.39835, 60.39847, 60.40068, 
  60.40229, 60.40371, 60.40422, 60.40438, 60.4043, 60.40379, 60.40416, 60.40514, 60.40623, 60.40591, 
  60.40641, 60.40657, 60.40781, 60.408, 60.40858, 60.40654, 60.40395, 60.40332, 60.40249, 60.402, 
  60.40098, 60.40024, 60.40051, 60.39975, 60.39874, 60.39825, 60.39773, 60.39692, 60.39713, 60.39672, 
  60.39606, 60.39542, 60.39489, 60.39468, 60.39527, 60.39504, 60.3944, 60.39451, 60.39484, 60.39503, 
  60.39543, 60.39554, 60.39485, 60.39393, 60.39355, 60.39314, 60.38899, 60.38777, 60.38769, 60.38686, 
  60.3871, 60.38643, 60.38591, 60.38619, 60.38585, 60.38517, 60.38437, 60.38323, 60.38272, 60.38291, 
  60.38493, 60.38489, 60.38601, 60.38246, 60.37922, 60.37707, 60.37604, 60.37511, 60.37501, 60.37634, 
  60.37575, 60.37262, 60.37156)
LONGITUDE_VALUEs <- c(
  21.02923, 21.0324, 21.03436, 21.0351, 21.03387, 21.03084, 21.03214, 21.03113, 21.03268, 21.0343, 
  21.035, 21.03383, 21.03409, 21.03619, 21.0374, 21.03912, 21.03999, 21.0397, 21.03835, 21.03798, 
  21.03741, 21.03679, 21.03601, 21.0362, 21.03575, 21.03763, 21.038, 21.03757, 21.03753, 21.03662, 
  21.03527, 21.03467, 21.03424, 21.03196, 21.03043, 21.03078, 21.03129, 21.03171, 21.03221, 21.03116, 
  21.02952, 21.02911, 21.02959, 21.02749, 21.02821, 21.02775, 21.02739, 21.02753, 21.02827, 21.02782, 
  21.02794, 21.02905, 21.03052, 21.03159, 21.03173, 21.03081, 21.0311, 21.03265, 21.03343, 21.03374, 
  21.03434, 21.03542, 21.03603, 21.03473, 21.03401, 21.03352, 21.03312, 21.03282, 21.03193, 21.02819, 
  21.02378, 21.02382, 21.02309, 21.02455, 21.02588, 21.02646, 21.02792, 21.02752, 21.0256, 21.0247, 
  21.02388, 21.0197, 21.01894, 21.01689, 21.01641, 21.01232, 21.0131, 21.01016, 21.00998, 21.0091, 
  21.00952, 21.00849, 21.00723, 21.0062, 21.00626, 21.00456, 21.00535, 21.00485, 21.00423, 21.00349, 
  21.0039, 21.00524, 21.00543, 21.00597, 21.00613, 21.0077, 21.00902, 21.00996, 21.01003, 21.01138, 
  21.01139, 21.01238, 21.01364, 21.01248, 21.01296, 21.01242, 21.00994, 21.01023, 21.00936, 21.00843, 
  21.0076, 21.00695, 21.00777, 21.00844, 21.00869, 21.00799, 21.00829, 21.0117, 21.01215, 21.01458, 
  21.01486, 21.01689, 21.01889, 21.02593, 21.02204, 21.02521, 21.02442, 21.02152, 21.01805, 21.0177, 
  21.01534, 21.01524, 21.01983)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.40571, 60.40508, 60.40406, 60.40354, 60.40282, 60.40149, 60.40065, 60.40173, 60.40351, 60.40527, 
  60.40604, 60.40908, 60.40862, 60.408, 60.40722, 60.40522, 60.40266, 60.40221, 60.4015, 60.40098, 
  60.39955, 60.39842, 60.39587, 60.39567, 60.39666, 60.39554, 60.39666, 60.39883, 60.39973, 60.39948, 
  60.39822, 60.39837, 60.39675, 60.39798, 60.40185, 60.40242, 60.40552, 60.4057, 60.40712, 60.40954, 
  60.4103, 60.41356, 60.41709, 60.41702, 60.41843, 60.41742, 60.42007, 60.42179, 60.42262, 60.42318, 
  60.42299, 60.42334, 60.42483, 60.4239, 60.4236, 60.42519, 60.42574, 60.42742, 60.42711, 60.42642, 
  60.42557, 60.4261, 60.42492, 60.42377, 60.42231, 60.42107, 60.4203, 60.41889, 60.4178, 60.41676, 
  60.41344, 60.41273, 60.41194, 60.41172, 60.40983, 60.40983, 60.40932, 60.40818, 60.40771, 60.40815, 
  60.40762, 60.40883, 60.40859, 60.40747)
LONGITUDE_VALUEs <- c(
  21.03432, 21.03318, 21.03519, 21.03504, 21.0373, 21.03813, 21.03974, 21.04086, 21.03938, 21.04195, 
  21.04159, 21.04513, 21.04633, 21.04612, 21.04676, 21.04507, 21.04863, 21.0453, 21.04575, 21.04459, 
  21.04494, 21.0435, 21.04451, 21.04917, 21.05092, 21.05438, 21.05663, 21.05461, 21.05498, 21.05685, 
  21.05893, 21.06103, 21.06249, 21.06798, 21.06663, 21.06463, 21.06416, 21.06725, 21.06865, 21.06815, 
  21.07019, 21.07148, 21.06856, 21.06474, 21.05873, 21.05646, 21.05395, 21.05674, 21.05354, 21.05358, 
  21.05486, 21.05543, 21.05264, 21.05246, 21.05161, 21.04845, 21.0494, 21.04765, 21.04651, 21.04703, 
  21.04654, 21.04484, 21.04217, 21.04197, 21.03898, 21.03891, 21.03599, 21.03498, 21.03236, 21.03235, 
  21.03577, 21.03567, 21.03633, 21.03774, 21.03678, 21.035, 21.035, 21.0374, 21.03667, 21.03564, 
  21.03489, 21.03191, 21.03165, 21.0336)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  59.96785, 59.96787, 59.96833, 59.96812, 59.96845, 59.96924, 59.96957, 59.9707, 59.97118, 59.9709, 
  59.97, 59.97013, 59.97157, 59.97201, 59.9721, 59.97235, 59.97272, 59.97325, 59.97354, 59.9736, 
  59.97381, 59.97402, 59.97476, 59.97513, 59.97499, 59.97379, 59.97379, 59.97356, 59.97339, 59.97286, 
  59.97259, 59.97209, 59.9724, 59.97304, 59.97358, 59.97406, 59.97461, 59.97494, 59.97466, 59.97528, 
  59.97476, 59.97478, 59.97425, 59.97374, 59.97309, 59.97292, 59.97258, 59.97178, 59.97161, 59.97101, 
  59.97097, 59.97001, 59.96995, 59.96967, 59.96915, 59.9685, 59.96725, 59.96683)
LONGITUDE_VALUEs <- c(
  20.34453, 20.3463, 20.34785, 20.34857, 20.35083, 20.35045, 20.35125, 20.35074, 20.34874, 20.34642, 
  20.34581, 20.34493, 20.34649, 20.34593, 20.34656, 20.3466, 20.34514, 20.34572, 20.34488, 20.34544, 
  20.34562, 20.34528, 20.34557, 20.34515, 20.34357, 20.34253, 20.34188, 20.3419, 20.34269, 20.34241, 
  20.34109, 20.33993, 20.33896, 20.33989, 20.33978, 20.33805, 20.33764, 20.33569, 20.33478, 20.33426, 
  20.33355, 20.33259, 20.33279, 20.33484, 20.3348, 20.33594, 20.33524, 20.33553, 20.34038, 20.34137, 
  20.34306, 20.3418, 20.34393, 20.345, 20.34474, 20.34091, 20.33962, 20.34166)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  59.98005, 59.97771, 59.97637, 59.97645, 59.97597, 59.97248, 59.97143, 59.97085, 59.9679, 59.96802, 
  59.96913, 59.96948, 59.97072, 59.97078, 59.97166, 59.97217, 59.96946, 59.96905, 59.96855, 59.96853, 
  59.96803, 59.96775, 59.96689, 59.96662, 59.96593, 59.96562, 59.9647, 59.96416, 59.96562, 59.9658, 
  59.96626, 59.9665, 59.96691, 59.96734, 59.96705, 59.96778, 59.96934, 59.96933, 59.97058, 59.97155, 
  59.97237, 59.97261, 59.97199, 59.97262, 59.97323, 59.97366, 59.97433, 59.97445, 59.97388, 59.97308, 
  59.97254, 59.97319, 59.97212, 59.97366, 59.97524, 59.97525, 59.97474, 59.97499, 59.97583, 59.97646, 
  59.97594, 59.97626, 59.97595, 59.9753, 59.97546, 59.97472, 59.97534, 59.97448, 59.97571, 59.97648, 
  59.9772, 59.97716, 59.97791, 59.97846, 59.97887, 59.97929, 59.97981, 59.98037, 59.98264, 59.9831, 
  59.9817, 59.98102, 59.98067, 59.98126)
LONGITUDE_VALUEs <- c(
  20.28822, 20.28211, 20.28269, 20.28115, 20.28011, 20.27988, 20.28149, 20.28093, 20.28488, 20.28739, 
  20.28702, 20.28561, 20.28923, 20.29294, 20.29378, 20.29534, 20.29406, 20.29695, 20.29724, 20.2953, 
  20.29471, 20.29538, 20.29532, 20.29603, 20.29619, 20.29771, 20.29757, 20.29872, 20.30029, 20.30158, 
  20.30229, 20.30198, 20.2991, 20.2994, 20.30139, 20.30209, 20.30178, 20.30263, 20.30301, 20.30637, 
  20.30612, 20.30437, 20.30345, 20.30345, 20.3042, 20.30339, 20.30339, 20.30607, 20.30655, 20.30574, 
  20.3077, 20.30796, 20.31229, 20.31174, 20.3094, 20.30827, 20.30766, 20.30704, 20.30732, 20.30663, 
  20.30429, 20.30181, 20.30084, 20.30213, 20.30064, 20.30068, 20.29896, 20.29792, 20.29791, 20.29879, 
  20.29716, 20.29564, 20.2947, 20.29507, 20.29394, 20.29485, 20.29417, 20.29462, 20.29346, 20.29026, 
  20.2892, 20.29122, 20.29065, 20.28841)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  59.98023, 59.97992, 59.98052, 59.98113, 59.98141, 59.9818, 59.98243, 59.98337, 59.98445, 59.98558, 
  59.98785, 59.98846, 59.98802, 59.98902, 59.98835, 59.98763, 59.98724, 59.98754, 59.98631, 59.98573, 
  59.98496, 59.9855, 59.98518, 59.98456, 59.98384, 59.98347, 59.98281, 59.98278, 59.98213, 59.98222, 
  59.98265, 59.98244)
LONGITUDE_VALUEs <- c(
  20.46255, 20.46565, 20.46677, 20.46655, 20.46699, 20.4693, 20.46941, 20.46812, 20.46756, 20.46468, 
  20.46341, 20.46077, 20.45977, 20.45733, 20.45633, 20.45724, 20.45677, 20.45559, 20.45484, 20.45344, 
  20.45484, 20.45662, 20.45797, 20.4586, 20.45843, 20.45622, 20.45614, 20.45784, 20.45867, 20.46045, 
  20.46131, 20.46199)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  59.99557, 59.99888, 59.99991, 60.0008, 60.00079, 60.00148, 60.00194, 60.00043, 60.00025, 60.00109, 
  60.00114, 60.00168, 60.00059, 59.99965, 59.99922, 59.99852, 59.99886, 59.9969, 59.99499, 59.9944, 
  59.99374, 59.99365, 59.99305, 59.99271, 59.99354, 59.99182, 59.99228, 59.99168, 59.99136, 59.99067, 
  59.99128, 59.99097, 59.99191, 59.99263, 59.99431, 59.9953, 59.99495, 59.99371, 59.99359, 59.99417, 
  59.99555)
LONGITUDE_VALUEs <- c(
  20.51087, 20.50784, 20.50265, 20.50162, 20.5001, 20.50048, 20.49698, 20.49827, 20.49748, 20.49701, 
  20.49548, 20.49437, 20.49147, 20.4928, 20.49076, 20.49151, 20.49482, 20.49591, 20.50323, 20.50293, 
  20.50387, 20.5019, 20.50192, 20.50389, 20.50569, 20.51048, 20.51106, 20.51488, 20.51434, 20.51694, 
  20.51823, 20.52037, 20.52162, 20.52029, 20.52057, 20.51778, 20.51484, 20.51507, 20.51304, 20.51432, 
  20.51312)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.0204, 60.02183, 60.02228, 60.0236, 60.02431, 60.02648, 60.02699, 60.02797, 60.02908, 60.0298, 
  60.02907, 60.02849, 60.02908, 60.02869, 60.02744, 60.02749, 60.02721, 60.02671, 60.02688, 60.02634, 
  60.02526, 60.02627, 60.02629, 60.02526, 60.02446, 60.0241, 60.02432, 60.02401, 60.02347, 60.02287, 
  60.02202, 60.02198, 60.02112, 60.02099)
LONGITUDE_VALUEs <- c(
  20.32837, 20.33047, 20.3373, 20.33657, 20.33412, 20.33648, 20.33809, 20.33758, 20.33479, 20.32801, 
  20.32743, 20.32511, 20.32335, 20.32228, 20.32335, 20.32275, 20.32236, 20.32371, 20.32455, 20.32519, 
  20.32228, 20.32095, 20.31771, 20.31747, 20.31848, 20.31777, 20.31708, 20.31528, 20.31618, 20.31485, 
  20.31586, 20.31809, 20.32217, 20.32511)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.04194, 60.04043, 60.04096, 60.04037, 60.04104, 60.04157, 60.0419, 60.04237, 60.04374, 60.04474, 
  60.04775, 60.04865, 60.0491, 60.05044, 60.05143, 60.04868, 60.04867, 60.05062, 60.05006, 60.05145, 
  60.05173, 60.05116, 60.05207, 60.05319, 60.05698, 60.0567, 60.05535, 60.05592, 60.05551, 60.05462, 
  60.05482, 60.05381, 60.05507, 60.0537, 60.05134, 60.05075, 60.0516, 60.05179, 60.05357, 60.05052, 
  60.04906, 60.04732, 60.04706, 60.04535, 60.043, 60.04198, 60.04271, 60.04326, 60.0398, 60.03875, 
  60.03744, 60.0368, 60.0363, 60.0368, 60.03677, 60.03603, 60.03536, 60.03472, 60.03486, 60.03412, 
  60.03372, 60.03458, 60.03406, 60.03478, 60.03489, 60.03566, 60.03568, 60.03703, 60.03707, 60.03969, 
  60.04059)
LONGITUDE_VALUEs <- c(
  20.37912, 20.38758, 20.38923, 20.3912, 20.39485, 20.39395, 20.39551, 20.39532, 20.39867, 20.3976, 
  20.40141, 20.40103, 20.39796, 20.39835, 20.3959, 20.38968, 20.38807, 20.38813, 20.38502, 20.38414, 
  20.38622, 20.38897, 20.3918, 20.39086, 20.37871, 20.37783, 20.37839, 20.37668, 20.37382, 20.37354, 
  20.37082, 20.37103, 20.36597, 20.36449, 20.36466, 20.36807, 20.37226, 20.37882, 20.38011, 20.38244, 
  20.37639, 20.37556, 20.37433, 20.37337, 20.37682, 20.37476, 20.373, 20.3673, 20.36449, 20.36107, 
  20.36191, 20.36173, 20.364, 20.36435, 20.36748, 20.36668, 20.36808, 20.36724, 20.36602, 20.36563, 
  20.36784, 20.36988, 20.37218, 20.37117, 20.37222, 20.37254, 20.37413, 20.3737, 20.37657, 20.37816, 
  20.37696)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.10572, 60.10625, 60.1085, 60.10965, 60.11017, 60.11132, 60.11243, 60.11209, 60.11149, 60.11038, 
  60.10837, 60.10965, 60.10796)
LONGITUDE_VALUEs <- c(
  20.35144, 20.35976, 20.36598, 20.36422, 20.36152, 20.36161, 20.35749, 20.35307, 20.35281, 20.35732, 
  20.35191, 20.34998, 20.34758)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.09208, 60.09045, 60.09119, 60.09212, 60.09246, 60.0914, 60.09127, 60.08885, 60.08809, 60.091, 
  60.09153, 60.0901, 60.09027, 60.08941, 60.08816, 60.08746, 60.08796, 60.08568, 60.08444, 60.08476, 
  60.08262, 60.08157, 60.08034, 60.07829, 60.07866, 60.07936, 60.08019, 60.07935, 60.08006, 60.08132, 
  60.0816, 60.08582, 60.08672, 60.08765, 60.08867, 60.09085)
LONGITUDE_VALUEs <- c(
  20.31425, 20.31067, 20.30855, 20.30837, 20.30436, 20.30355, 20.30125, 20.30001, 20.29563, 20.29724, 
  20.29499, 20.2922, 20.29097, 20.29031, 20.29151, 20.29106, 20.29301, 20.29514, 20.29797, 20.29975, 
  20.30365, 20.30385, 20.30099, 20.30492, 20.30668, 20.30633, 20.31026, 20.31056, 20.31247, 20.31316, 
  20.31084, 20.31646, 20.31612, 20.31715, 20.31571, 20.31651)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.06988, 60.06732, 60.06693, 60.06778, 60.06737, 60.06819, 60.0707, 60.07125, 60.07004, 60.068, 
  60.06771, 60.07017, 60.072, 60.07254, 60.07463, 60.07512, 60.07655, 60.07655, 60.07571, 60.07633, 
  60.07749, 60.07757, 60.07987, 60.0797, 60.08072, 60.08278, 60.08511, 60.08768, 60.08654, 60.08462, 
  60.08378, 60.08825, 60.08835, 60.08624, 60.08679, 60.08596, 60.08396, 60.08419, 60.08366, 60.07789, 
  60.07593, 60.07449, 60.07357, 60.07222, 60.07077, 60.0705)
LONGITUDE_VALUEs <- c(
  20.32453, 20.32563, 20.32792, 20.32921, 20.33625, 20.33863, 20.33872, 20.34208, 20.34444, 20.34277, 
  20.34704, 20.34616, 20.34786, 20.34968, 20.34861, 20.3491, 20.34876, 20.34949, 20.35075, 20.3518, 
  20.35082, 20.34891, 20.34859, 20.35249, 20.35236, 20.34833, 20.35301, 20.35097, 20.34861, 20.34964, 
  20.34786, 20.34442, 20.3394, 20.3376, 20.3365, 20.33372, 20.33316, 20.33509, 20.3359, 20.33052, 
  20.32741, 20.32756, 20.32891, 20.32854, 20.32661, 20.32518)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.07807, 60.07591, 60.07373, 60.07107, 60.07159, 60.07467, 60.07816, 60.07905, 60.0794, 60.07921, 
  60.07852)
LONGITUDE_VALUEs <- c(
  20.38853, 20.38677, 20.38128, 20.38004, 20.3863, 20.39415, 20.39424, 20.39533, 20.39468, 20.39275, 
  20.39305)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.07288, 60.07349, 60.07128, 60.07246, 60.07244, 60.0708, 60.06923, 60.06813, 60.06751, 60.06879, 
  60.06989, 60.07053)
LONGITUDE_VALUEs <- c(
  20.41648, 20.41374, 20.41159, 20.41067, 20.40745, 20.4037, 20.40861, 20.4081, 20.41123, 20.41464, 
  20.4144, 20.41597)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.07503, 60.07529, 60.07351, 60.07323, 60.07133, 60.07047, 60.0732, 60.07293, 60.07443, 60.07538, 
  60.07709, 60.07864, 60.07834, 60.07611, 60.07587)
LONGITUDE_VALUEs <- c(
  20.43767, 20.43509, 20.43196, 20.42962, 20.43151, 20.43741, 20.44496, 20.45002, 20.45311, 20.4499, 
  20.4491, 20.44528, 20.43853, 20.44088, 20.43822)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.06917, 60.0664, 60.06758, 60.06846, 60.06988, 60.06983, 60.07093, 60.06982, 60.06999, 60.06858, 
  60.06813, 60.06949, 60.07246, 60.07239, 60.07154, 60.0726, 60.07373, 60.07526, 60.07627, 60.07619, 
  60.07508, 60.07602, 60.07548, 60.07374, 60.0744, 60.07522, 60.07517, 60.07438, 60.07442, 60.07292, 
  60.07306, 60.07373, 60.07419, 60.07396, 60.07367, 60.07318, 60.07252, 60.07259, 60.07307, 60.07334, 
  60.07285, 60.07176, 60.07097, 60.07154, 60.07191, 60.07303, 60.0726, 60.07302, 60.07186, 60.07229, 
  60.07177, 60.07072, 60.07175, 60.07041, 60.07186, 60.07217, 60.07471, 60.07414, 60.07278, 60.07269, 
  60.07148, 60.07214, 60.0716, 60.07081, 60.07285, 60.07235, 60.07147, 60.07093, 60.06942, 60.06919, 
  60.06989, 60.06923, 60.0699, 60.06938, 60.06946, 60.06999, 60.06953, 60.07005, 60.06834, 60.06844, 
  60.07032)
LONGITUDE_VALUEs <- c(
  20.51056, 20.50753, 20.51955, 20.52058, 20.52504, 20.53008, 20.53171, 20.53399, 20.53669, 20.53779, 
  20.54094, 20.54141, 20.5371, 20.54051, 20.54182, 20.54547, 20.54332, 20.54562, 20.54512, 20.54259, 
  20.54184, 20.54047, 20.53706, 20.53809, 20.53524, 20.53444, 20.52969, 20.52884, 20.52415, 20.52216, 
  20.52137, 20.52204, 20.52087, 20.52016, 20.52063, 20.51947, 20.51891, 20.51848, 20.51876, 20.51599, 
  20.51624, 20.51921, 20.51801, 20.51685, 20.51745, 20.51486, 20.51418, 20.51269, 20.51189, 20.51019, 
  20.50772, 20.50801, 20.50526, 20.50247, 20.5031, 20.49874, 20.49874, 20.49138, 20.49196, 20.4908, 
  20.48945, 20.48848, 20.48668, 20.48608, 20.48406, 20.48254, 20.48297, 20.48065, 20.48031, 20.484, 
  20.48505, 20.48807, 20.49136, 20.49376, 20.49608, 20.49777, 20.4993, 20.50164, 20.50327, 20.50574, 
  20.50876)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.05618, 60.05675, 60.05627, 60.0562, 60.0575, 60.05691, 60.05772, 60.05773, 60.05953, 60.05966, 
  60.06163, 60.0614, 60.0579, 60.05822, 60.05786, 60.05807, 60.05784, 60.05843, 60.06047, 60.06064, 
  60.05977, 60.06103, 60.06225, 60.06217, 60.06071, 60.0607, 60.06012, 60.05997, 60.05807, 60.05709, 
  60.05724)
LONGITUDE_VALUEs <- c(
  20.2543, 20.25608, 20.25635, 20.25704, 20.25841, 20.26084, 20.26382, 20.26682, 20.26489, 20.26172, 
  20.26013, 20.25876, 20.26058, 20.25927, 20.25867, 20.25796, 20.25728, 20.25638, 20.2562, 20.25425, 
  20.25466, 20.2523, 20.25142, 20.25067, 20.25155, 20.2502, 20.25065, 20.24786, 20.24854, 20.2515, 
  20.2532)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.11672, 60.11708, 60.11888, 60.11926, 60.11879, 60.11743, 60.1174, 60.11688, 60.11704, 60.11736, 
  60.11711, 60.11621, 60.11597, 60.11612, 60.11591, 60.11513, 60.1149, 60.11382, 60.11332, 60.11284, 
  60.11187, 60.11106, 60.1105, 60.11125, 60.11086, 60.1096, 60.10952, 60.11018, 60.11009, 60.11172, 
  60.11275, 60.11288, 60.11436, 60.11465, 60.11408, 60.11603, 60.1162, 60.11516, 60.11627)
LONGITUDE_VALUEs <- c(
  20.46125, 20.4626, 20.46358, 20.46306, 20.45904, 20.46027, 20.45947, 20.4592, 20.45769, 20.4576, 
  20.45655, 20.45707, 20.4581, 20.4587, 20.45953, 20.45875, 20.45986, 20.46008, 20.45912, 20.45906, 
  20.45774, 20.45781, 20.46001, 20.46157, 20.46247, 20.46195, 20.46281, 20.46324, 20.46452, 20.46819, 
  20.46887, 20.4679, 20.46949, 20.46834, 20.4671, 20.46869, 20.46813, 20.46452, 20.46297)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.12782, 60.12703, 60.12765, 60.12552, 60.12563, 60.12903, 60.12895, 60.12963, 60.12925, 60.12945, 
  60.12926, 60.12886, 60.12895, 60.1284, 60.12827, 60.12891, 60.12893, 60.12833, 60.12751, 60.12634, 
  60.12514, 60.12477, 60.1242, 60.1233, 60.12317, 60.1237, 60.12363, 60.12395, 60.12471, 60.12517, 
  60.12713, 60.12708)
LONGITUDE_VALUEs <- c(
  20.48243, 20.48549, 20.48702, 20.49034, 20.49186, 20.49378, 20.49236, 20.48838, 20.48726, 20.48568, 
  20.48252, 20.48139, 20.4779, 20.47714, 20.4735, 20.47301, 20.47142, 20.47215, 20.4679, 20.4693, 
  20.46935, 20.46794, 20.46827, 20.47147, 20.47457, 20.47565, 20.47764, 20.47799, 20.47757, 20.47976, 
  20.47924, 20.48214)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.15469, 60.15662, 60.15662, 60.15747, 60.15702, 60.15598, 60.15535, 60.15426, 60.15403, 60.15344, 
  60.15375, 60.15328, 60.15204, 60.15283, 60.15171, 60.14938, 60.14611, 60.14655, 60.1462, 60.14525, 
  60.1453, 60.1429, 60.14292, 60.14404, 60.14494, 60.14672, 60.14782, 60.15012, 60.15019, 60.15405)
LONGITUDE_VALUEs <- c(
  20.51585, 20.5148, 20.51115, 20.50787, 20.50662, 20.50697, 20.50581, 20.50733, 20.5096, 20.50877, 
  20.50705, 20.50589, 20.50742, 20.5043, 20.50237, 20.50179, 20.49459, 20.49205, 20.49156, 20.49409, 
  20.49757, 20.49851, 20.50164, 20.501, 20.50501, 20.50604, 20.51106, 20.51184, 20.51776, 20.52057)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.08625, 60.08701, 60.08713, 60.08474, 60.08513, 60.08356, 60.08407, 60.08388, 60.08552, 60.08536, 
  60.08675, 60.08993, 60.08927, 60.0918, 60.09357, 60.09339, 60.0943, 60.09347, 60.09543, 60.09576, 
  60.09663, 60.09636, 60.09704, 60.09675, 60.09719, 60.09662, 60.09721, 60.09692, 60.09467, 60.09653, 
  60.09453, 60.0909, 60.09045, 60.08887, 60.08857, 60.08922, 60.08969, 60.08931, 60.08849, 60.08803, 
  60.08882, 60.08851, 60.08805, 60.08721, 60.0864, 60.08642, 60.08576, 60.08566, 60.08632, 60.08695, 
  60.08653, 60.086, 60.08604, 60.08558, 60.08454, 60.08463, 60.08418, 60.08492, 60.08385, 60.08234, 
  60.0819, 60.08191, 60.08117, 60.08206, 60.08169, 60.08174, 60.08315, 60.08331, 60.08484, 60.08453, 
  60.08367, 60.08436, 60.0837, 60.08447, 60.08539)
LONGITUDE_VALUEs <- c(
  20.48207, 20.48177, 20.48317, 20.48941, 20.49415, 20.49469, 20.50055, 20.50458, 20.50722, 20.51649, 
  20.51658, 20.5084, 20.50538, 20.49797, 20.49855, 20.49724, 20.49458, 20.49299, 20.48836, 20.48527, 
  20.48351, 20.48089, 20.47962, 20.47613, 20.47308, 20.47171, 20.46984, 20.4683, 20.46709, 20.4586, 
  20.45583, 20.45952, 20.46385, 20.46699, 20.46583, 20.46529, 20.46145, 20.46053, 20.46192, 20.46064, 
  20.45903, 20.4583, 20.45915, 20.45589, 20.45701, 20.45469, 20.45441, 20.45188, 20.45285, 20.45186, 
  20.44984, 20.44949, 20.44755, 20.44599, 20.44579, 20.44689, 20.44828, 20.44923, 20.45352, 20.45221, 
  20.45369, 20.4565, 20.45728, 20.46609, 20.46691, 20.46891, 20.46942, 20.46826, 20.47045, 20.47202, 
  20.47268, 20.47813, 20.47897, 20.48526, 20.48457)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.08637, 60.08556, 60.08507, 60.08598, 60.08626, 60.08864, 60.08997, 60.09048, 60.09262, 60.09267, 
  60.09222, 60.09261, 60.09275, 60.09479, 60.09553, 60.09485, 60.09591, 60.09577, 60.09638, 60.09846, 
  60.09852, 60.10012, 60.09975, 60.1004, 60.10145, 60.10213, 60.10295, 60.10183, 60.10475, 60.10497, 
  60.10375, 60.10444, 60.10481, 60.10534, 60.1057, 60.1052, 60.10428, 60.10355, 60.10231, 60.10159, 
  60.10129, 60.10161, 60.10142, 60.10221, 60.10157, 60.10206, 60.10126, 60.10174, 60.1012, 60.10066, 
  60.09617, 60.09529, 60.09524, 60.09443, 60.09368, 60.09134, 60.09009, 60.08949, 60.08973)
LONGITUDE_VALUEs <- c(
  20.5896, 20.58981, 20.59867, 20.59968, 20.60224, 20.60603, 20.60468, 20.5996, 20.59786, 20.59642, 
  20.59522, 20.59344, 20.58966, 20.58985, 20.59183, 20.59515, 20.59661, 20.59764, 20.59912, 20.60013, 
  20.60133, 20.60114, 20.59788, 20.59758, 20.60271, 20.60082, 20.60052, 20.59786, 20.59666, 20.59444, 
  20.59256, 20.58878, 20.59003, 20.59011, 20.58689, 20.58483, 20.58608, 20.58589, 20.58889, 20.58972, 
  20.58921, 20.58681, 20.58436, 20.5826, 20.58232, 20.58069, 20.58121, 20.57942, 20.57837, 20.58035, 
  20.57457, 20.57525, 20.57722, 20.5769, 20.578, 20.57679, 20.57767, 20.58031, 20.58276)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.09575, 60.09672, 60.09772, 60.09826, 60.09959, 60.09948, 60.10004, 60.10104, 60.10062, 60.10259, 
  60.10452, 60.1067, 60.10838, 60.1095, 60.10877, 60.1087, 60.10772, 60.10545, 60.10559, 60.10463, 
  60.10399, 60.1026, 60.10265, 60.10571, 60.10615, 60.10605, 60.10706, 60.10706, 60.10613, 60.10546, 
  60.10426, 60.10382, 60.10418, 60.10456, 60.10511, 60.10578, 60.10683, 60.10837, 60.11079, 60.11187, 
  60.11466, 60.11487, 60.1135, 60.11334, 60.11027, 60.10961, 60.10836, 60.10858, 60.10795, 60.10771, 
  60.1079, 60.10676, 60.10599, 60.1048, 60.10441, 60.10727, 60.10898, 60.10922, 60.10985, 60.11041, 
  60.11051, 60.10945, 60.10966, 60.11188, 60.11196, 60.11276, 60.11215, 60.1127, 60.10847, 60.10725, 
  60.10694, 60.10749, 60.10759, 60.10594, 60.10607, 60.10693, 60.10694, 60.10888, 60.10954, 60.11335, 
  60.11379, 60.11314, 60.11175, 60.113, 60.11174, 60.10903, 60.10887, 60.10977, 60.11015, 60.1089, 
  60.10921, 60.10803, 60.10738, 60.107, 60.1057, 60.10636, 60.10398, 60.10516, 60.10493, 60.10616, 
  60.10525, 60.10165, 60.10071, 60.10191, 60.10146, 60.09907, 60.0983, 60.09918, 60.098, 60.09762, 
  60.09437, 60.09431, 60.0953, 60.09451, 60.09471, 60.09437, 60.09358, 60.09263, 60.09269, 60.09345, 
  60.0935, 60.09248, 60.09328)
LONGITUDE_VALUEs <- c(
  20.56235, 20.56445, 20.56413, 20.56548, 20.56545, 20.563, 20.56237, 20.56503, 20.56687, 20.57063, 
  20.57044, 20.56795, 20.56866, 20.56514, 20.56357, 20.56187, 20.55939, 20.55994, 20.55846, 20.55677, 
  20.55745, 20.55725, 20.55607, 20.55527, 20.55426, 20.5522, 20.55305, 20.55097, 20.55104, 20.54685, 
  20.54535, 20.5425, 20.54025, 20.5402, 20.54201, 20.54123, 20.54158, 20.54022, 20.54108, 20.53941, 
  20.53952, 20.53611, 20.5366, 20.53555, 20.5369, 20.53552, 20.53533, 20.53647, 20.53791, 20.5376, 
  20.53638, 20.53358, 20.53334, 20.53485, 20.5338, 20.53086, 20.53126, 20.53375, 20.5341, 20.53319, 
  20.53124, 20.5306, 20.52933, 20.52922, 20.52663, 20.52498, 20.52231, 20.51913, 20.51227, 20.51205, 
  20.50952, 20.50952, 20.50729, 20.50662, 20.50514, 20.50488, 20.5059, 20.50771, 20.50567, 20.50562, 
  20.50408, 20.50094, 20.49974, 20.49899, 20.48815, 20.48974, 20.48897, 20.48689, 20.4815, 20.48169, 
  20.48051, 20.478, 20.47979, 20.47742, 20.48099, 20.48348, 20.49195, 20.49167, 20.49294, 20.4929, 
  20.49822, 20.49676, 20.50039, 20.50088, 20.50579, 20.51159, 20.51779, 20.52238, 20.5248, 20.52439, 
  20.53283, 20.53543, 20.53689, 20.53912, 20.54158, 20.54416, 20.54311, 20.54476, 20.55064, 20.55171, 
  20.55472, 20.55703, 20.56313)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.09884, 60.09925, 60.09915, 60.09706, 60.09522, 60.09546, 60.09362, 60.09285, 60.09163, 60.09149, 
  60.09092, 60.09029, 60.09016, 60.08938, 60.0882, 60.08735, 60.08754, 60.08645, 60.08596, 60.08621, 
  60.08446, 60.08421, 60.08345, 60.08348, 60.08313, 60.08267, 60.08267, 60.08236, 60.08182, 60.08076, 
  60.08049, 60.07953, 60.07963, 60.0786, 60.0783, 60.07688, 60.07749, 60.07865, 60.07883, 60.07865, 
  60.07913, 60.07898, 60.08021, 60.08037, 60.08026, 60.07998, 60.08, 60.07952, 60.07986, 60.0805, 
  60.08042, 60.08074, 60.08028, 60.08023, 60.07967, 60.07949, 60.07997, 60.07953, 60.07961, 60.07984, 
  60.07997, 60.08024, 60.08047, 60.08023, 60.08098, 60.08073, 60.08123, 60.08098, 60.08035, 60.07971, 
  60.07871, 60.07823, 60.07772, 60.07772, 60.07896, 60.07926, 60.07999, 60.08002, 60.08036, 60.08068, 
  60.08129, 60.08178, 60.08029, 60.07994, 60.07912, 60.07881, 60.07908, 60.07894, 60.07867, 60.07843, 
  60.07767, 60.07774, 60.07915, 60.07946, 60.07922, 60.07748, 60.07727, 60.07739, 60.07691, 60.07754, 
  60.07683, 60.0768, 60.07729, 60.07824, 60.07866, 60.07796, 60.07799, 60.08037, 60.08037, 60.07995, 
  60.07975, 60.0793, 60.07892, 60.0788, 60.07945, 60.08023, 60.08126, 60.08162, 60.082, 60.08191, 
  60.08219, 60.08195, 60.08224, 60.08332, 60.08591, 60.08736, 60.08762, 60.087, 60.08631, 60.08511, 
  60.08375, 60.08644, 60.08595, 60.08636, 60.08716, 60.08756, 60.08786, 60.08921, 60.08899, 60.08844, 
  60.08806, 60.08747, 60.08629, 60.08553, 60.08607, 60.08547, 60.08562, 60.08483, 60.08511, 60.08591, 
  60.08623, 60.08685, 60.0875, 60.08795, 60.08933, 60.08967, 60.09033, 60.0917, 60.09258, 60.0934, 
  60.09352, 60.09393, 60.0933, 60.09275, 60.09291, 60.09442, 60.09578, 60.09698, 60.09699, 60.09797, 
  60.09781, 60.09719, 60.09641, 60.09651, 60.09769, 60.09842, 60.09934)
LONGITUDE_VALUEs <- c(
  20.4975, 20.49667, 20.49553, 20.49722, 20.50134, 20.50239, 20.50476, 20.50714, 20.50757, 20.50899, 
  20.50999, 20.51443, 20.51865, 20.5194, 20.51836, 20.51951, 20.52145, 20.52346, 20.52704, 20.52947, 
  20.52885, 20.52523, 20.526, 20.52189, 20.52041, 20.52109, 20.52383, 20.52408, 20.52088, 20.52027, 
  20.52116, 20.5214, 20.52365, 20.52461, 20.52353, 20.52701, 20.5295, 20.5307, 20.52963, 20.52875, 
  20.52857, 20.52767, 20.52554, 20.52576, 20.52841, 20.52848, 20.52903, 20.53002, 20.53074, 20.53072, 
  20.53112, 20.53145, 20.53222, 20.5328, 20.53202, 20.53239, 20.53343, 20.5339, 20.53489, 20.53498, 
  20.53558, 20.53547, 20.53595, 20.53793, 20.5392, 20.54196, 20.54369, 20.5495, 20.55021, 20.54969, 
  20.55022, 20.54971, 20.55015, 20.55323, 20.55615, 20.5587, 20.55892, 20.55767, 20.55679, 20.55723, 
  20.56468, 20.56561, 20.56971, 20.5731, 20.57342, 20.57257, 20.57215, 20.57153, 20.57175, 20.57151, 
  20.57336, 20.57462, 20.57498, 20.57592, 20.57648, 20.5764, 20.58107, 20.58466, 20.58715, 20.58939, 
  20.59223, 20.59971, 20.60098, 20.60054, 20.59627, 20.59384, 20.59253, 20.59152, 20.59029, 20.59015, 
  20.5888, 20.58992, 20.58981, 20.58785, 20.5882, 20.58602, 20.58719, 20.58573, 20.58597, 20.58711, 
  20.58859, 20.59028, 20.59097, 20.5905, 20.57242, 20.57216, 20.5686, 20.56804, 20.56894, 20.56667, 
  20.56609, 20.56227, 20.56044, 20.55902, 20.55898, 20.56005, 20.55823, 20.55672, 20.55583, 20.55609, 
  20.5544, 20.55483, 20.55418, 20.55282, 20.5465, 20.54375, 20.54086, 20.53766, 20.53656, 20.53836, 
  20.53832, 20.54067, 20.54122, 20.54445, 20.54408, 20.5406, 20.5421, 20.54063, 20.53427, 20.5338, 
  20.53111, 20.53021, 20.52933, 20.52992, 20.52788, 20.52577, 20.52148, 20.5121, 20.51058, 20.5099, 
  20.5074, 20.50833, 20.50694, 20.50411, 20.50393, 20.50486, 20.50179)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.0249, 60.0248, 60.02288, 60.02194, 60.01757, 60.01414, 60.0122, 60.01204, 60.01344, 60.01233, 
  60.01159, 60.01173, 60.01255, 60.01303, 60.01427, 60.0139, 60.01176, 60.01133, 60.01241, 60.01201, 
  60.0124, 60.01238, 60.01305, 60.01331, 60.01404, 60.01591, 60.01579, 60.0146, 60.01357, 60.01523, 
  60.01597, 60.01575, 60.01456, 60.0148, 60.01549, 60.01548, 60.01511, 60.01547, 60.01573, 60.01575, 
  60.01702, 60.01695, 60.01957, 60.01776, 60.01812, 60.01934, 60.01868, 60.01939, 60.02003, 60.02086, 
  60.02085, 60.02128, 60.02115, 60.02175, 60.02171, 60.02261, 60.02252, 60.02409, 60.02505, 60.02592, 
  60.02591, 60.02501, 60.02494, 60.02562, 60.02608, 60.02695, 60.027, 60.03092, 60.03278, 60.03319, 
  60.03505, 60.03565, 60.03501, 60.03575, 60.03635, 60.03921, 60.03847, 60.03886, 60.04002, 60.0405, 
  60.03994, 60.0401, 60.04214, 60.04216, 60.0411, 60.04153, 60.04252, 60.04325, 60.04486, 60.04513, 
  60.04689, 60.04668, 60.04714, 60.04617, 60.04544, 60.04546, 60.04512, 60.04411, 60.04418, 60.0449, 
  60.04531, 60.04475, 60.04543, 60.04549, 60.04456, 60.04487, 60.04362, 60.04317, 60.04236, 60.04225, 
  60.04144, 60.0405, 60.04044, 60.04217, 60.04279, 60.04342, 60.04386, 60.04355, 60.04301, 60.04393, 
  60.04359, 60.04286, 60.04279, 60.04321, 60.04302, 60.04225, 60.04293, 60.04263, 60.04276, 60.04238, 
  60.04266, 60.04296, 60.04329, 60.04307, 60.04356, 60.04329, 60.04287, 60.04265, 60.04165, 60.04281, 
  60.04224, 60.04285, 60.04333, 60.0444, 60.04659, 60.04682, 60.04725, 60.04816, 60.04779, 60.04834, 
  60.04942, 60.04906, 60.04812, 60.04809, 60.0489, 60.04821, 60.04895, 60.04907, 60.04981, 60.05036, 
  60.05223, 60.056, 60.05857, 60.05884, 60.05881, 60.05946, 60.06018, 60.06068, 60.06124, 60.06079, 
  60.06192, 60.06191, 60.06141, 60.06124, 60.05967, 60.05968, 60.05929, 60.05909, 60.05861, 60.05814, 
  60.05788, 60.05681, 60.05701, 60.05636, 60.05711, 60.05684, 60.05756, 60.05831, 60.05771, 60.05786, 
  60.05865, 60.05863, 60.05894, 60.05882, 60.05951, 60.06018, 60.06085, 60.06224, 60.06211, 60.06274,
  60.06281, 60.06139, 60.06061, 60.06025, 60.05925, 60.05908, 60.05994, 60.05997, 60.06041, 60.05995, 
  60.05754, 60.05673, 60.05632, 60.05599, 60.05554, 60.0546, 60.05564, 60.05528, 60.05573, 60.05541, 
  60.05675, 60.05644, 60.05658, 60.05756, 60.05895, 60.05862, 60.05808, 60.05839, 60.05875, 60.05946, 
  60.06014, 60.06054, 60.06158, 60.06201, 60.0615, 60.06053, 60.05995, 60.05991, 60.05928, 60.05835, 
  60.05824, 60.05876, 60.05866, 60.05809, 60.05794, 60.0585, 60.05872, 60.05809, 60.05827, 60.05791, 
  60.05875, 60.05818, 60.05771, 60.05402, 60.05261, 60.05235, 60.05348, 60.05296, 60.05189, 60.05105, 
  60.04914, 60.04841, 60.04604, 60.04393, 60.04504, 60.04254, 60.04264, 60.042, 60.04036, 60.03902, 
  60.03843, 60.03827, 60.03749, 60.0375, 60.03608, 60.03583, 60.03621, 60.03556, 60.03617, 60.03527, 
  60.03424, 60.03121, 60.02828, 60.0285, 60.02757, 60.02413, 60.02283, 60.02303, 60.02182, 60.02145, 
  60.02058, 60.02018, 60.01938, 60.01718, 60.01703, 60.01815, 60.01803, 60.01735, 60.01714, 60.01721, 
  60.01693, 60.01658, 60.01671, 60.01587, 60.01555, 60.01624, 60.0152, 60.01518, 60.01483, 60.0149, 
  60.01558, 60.01642, 60.01911, 60.01851, 60.01789, 60.01729, 60.01611, 60.01366, 60.01217, 60.01215, 
  60.01115, 60.01256, 60.01202, 60.01034, 60.00828, 60.00827, 60.00747, 60.00829, 60.00723, 60.00633, 
  60.00444, 60.00442, 60.0058, 60.00608, 60.00712, 60.00516, 60.00743, 60.00684, 60.00598, 60.006, 
  60.00503, 60.0055, 60.00722, 60.00732, 60.00963, 60.0083, 60.00668, 60.00523, 60.00673, 60.00683, 
  60.00915, 60.00993, 60.01076, 60.01139, 60.01092, 60.01135, 60.01084, 60.01137, 60.01004, 60.01076, 
  60.01203, 60.01347, 60.01377, 60.01222, 60.01318, 60.01723, 60.0185, 60.01968, 60.01992, 60.02099, 
  60.02124, 60.02404)
LONGITUDE_VALUEs <- c(
  20.56142, 20.56188, 20.5599, 20.55971, 20.55527, 20.55589, 20.55881, 20.56426, 20.56599, 20.56645, 
  20.56945, 20.57131, 20.57048, 20.56769, 20.56833, 20.57254, 20.57563, 20.57916, 20.57955, 20.57818, 
  20.57801, 20.57737, 20.57757, 20.5783, 20.5771, 20.57788, 20.5789, 20.5792, 20.58218, 20.58449, 
  20.58487, 20.58623, 20.58619, 20.58819, 20.58881, 20.5898, 20.59063, 20.59254, 20.59248, 20.59159, 
  20.59152, 20.59309, 20.59123, 20.5934, 20.59512, 20.59411, 20.59544, 20.59531, 20.59608, 20.59597, 
  20.59734, 20.59761, 20.59893, 20.59945, 20.60008, 20.59969, 20.60091, 20.59942, 20.60021, 20.60005, 
  20.60044, 20.60092, 20.60273, 20.60308, 20.60143, 20.60186, 20.60274, 20.60504, 20.60514, 20.60883, 
  20.60935, 20.60484, 20.60321, 20.60229, 20.60549, 20.60703, 20.61463, 20.61525, 20.61327, 20.61426, 
  20.61617, 20.6187, 20.61794, 20.61884, 20.61978, 20.62206, 20.62355, 20.62691, 20.62705, 20.62783, 
  20.62644, 20.62394, 20.62247, 20.61887, 20.62041, 20.62215, 20.6228, 20.62244, 20.62204, 20.62209, 
  20.61973, 20.61871, 20.61796, 20.61633, 20.61592, 20.61437, 20.61001, 20.61062, 20.61033, 20.60979, 
  20.60963, 20.61029, 20.60978, 20.6084, 20.6095, 20.60946, 20.60742, 20.60558, 20.60416, 20.60221, 
  20.60116, 20.60207, 20.60147, 20.60059, 20.60007, 20.59974, 20.59881, 20.5979, 20.59679, 20.59629, 
  20.59553, 20.59604, 20.5954, 20.59422, 20.59249, 20.58987, 20.58978, 20.58592, 20.58229, 20.58018, 
  20.57836, 20.57783, 20.57932, 20.57849, 20.57943, 20.58112, 20.58142, 20.58067, 20.58177, 20.58232, 
  20.58041, 20.5795, 20.57983, 20.57907, 20.57839, 20.5768, 20.57683, 20.57518, 20.57524, 20.57352, 
  20.57656, 20.58913, 20.59426, 20.59367, 20.59229, 20.59294, 20.59179, 20.5923, 20.59044, 20.58988, 
  20.58834, 20.58756, 20.58807, 20.58624, 20.58677, 20.5884, 20.58837, 20.58978, 20.58914, 20.5892, 
  20.587, 20.58408, 20.58289, 20.58, 20.57981, 20.57822, 20.5777, 20.57878, 20.58037, 20.5835, 
  20.58396, 20.5825, 20.58119, 20.57802, 20.57838, 20.5773, 20.57886, 20.57753, 20.57643, 20.57492,
  20.57316, 20.57357, 20.5749, 20.57386, 20.57518, 20.57446, 20.57285, 20.57109, 20.5708, 20.56956, 
  20.5702, 20.57194, 20.57162, 20.57282, 20.57301, 20.56959, 20.5681, 20.56752, 20.5662, 20.56465, 
  20.56222, 20.56147, 20.55995, 20.56013, 20.55851, 20.55522, 20.55359, 20.55309, 20.55381, 20.55286, 
  20.55274, 20.55218, 20.55242, 20.55168, 20.54756, 20.54938, 20.54955, 20.54811, 20.54743, 20.54818, 
  20.54782, 20.54652, 20.54614, 20.54697, 20.54597, 20.54517, 20.54319, 20.54318, 20.54234, 20.54153, 
  20.5409, 20.53755, 20.53738, 20.53195, 20.53137, 20.52991, 20.52757, 20.52562, 20.52513, 20.52352, 
  20.52392, 20.5253, 20.52485, 20.52867, 20.53637, 20.53358, 20.53105, 20.53004, 20.53148, 20.52813, 
  20.52923, 20.52776, 20.52641, 20.52513, 20.52513, 20.52431, 20.52258, 20.52171, 20.51978, 20.51703, 
  20.51952, 20.51159, 20.50826, 20.50463, 20.50513, 20.49897, 20.4986, 20.49654, 20.49624, 20.49526, 
  20.49573, 20.49706, 20.49502, 20.49536, 20.49498, 20.4936, 20.49324, 20.49375, 20.49349, 20.49221, 
  20.4921, 20.49345, 20.4957, 20.49574, 20.49679, 20.49737, 20.49906, 20.50065, 20.50175, 20.50337, 
  20.50458, 20.50347, 20.50307, 20.50581, 20.50586, 20.50515, 20.50665, 20.50611, 20.50792, 20.50547, 
  20.50472, 20.50335, 20.50229, 20.50247, 20.50446, 20.50852, 20.51116, 20.51431, 20.51465, 20.51139, 
  20.51126, 20.51453, 20.51418, 20.51583, 20.51671, 20.52088, 20.52637, 20.53011, 20.52817, 20.53311, 
  20.5327, 20.53712, 20.53656, 20.53997, 20.54336, 20.54414, 20.54034, 20.54141, 20.5462, 20.54871, 
  20.55139, 20.54965, 20.55062, 20.5497, 20.54843, 20.5466, 20.54418, 20.5433, 20.5392, 20.53901, 
  20.54081, 20.53999, 20.5415, 20.54328, 20.54912, 20.54575, 20.54954, 20.5504, 20.55218, 20.55283, 
  20.55753, 20.55991)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  59.98641, 59.98447, 59.98405, 59.98107, 59.98074, 59.9792, 59.97797, 59.98, 59.98146, 59.982, 
  59.98283, 59.98307, 59.98382, 59.98383, 59.98158, 59.98114, 59.9806, 59.97938, 59.97974, 59.97924, 
  59.97908, 59.97865, 59.97848, 59.9781, 59.97727, 59.97725, 59.97762, 59.97734, 59.97762, 59.97863, 
  59.979, 59.97848, 59.97882, 59.98052, 59.98105, 59.98049, 59.98332, 59.98339, 59.98295, 59.98294, 
  59.98418, 59.98496, 59.98555, 59.98571, 59.98655, 59.98751, 59.9882, 59.98944, 59.98939, 59.99096, 
  59.99125, 59.99048, 59.99136, 59.98875, 59.98892, 59.99024, 59.9885, 59.98906, 59.99004, 59.99286, 
  59.99259, 59.99224, 59.99191, 59.9912, 59.99003, 59.99006, 59.98938, 59.98833, 59.98882, 59.98814, 
  59.9869, 59.98709, 59.98797, 59.98795, 59.98943, 59.9894, 59.98877, 59.98927, 59.98888, 59.98769, 
  59.9871, 59.98711, 59.98651, 59.98643, 59.985, 59.98449, 59.98488, 59.98551, 59.98569, 59.98741, 
  59.98661, 59.98629, 59.98547, 59.98567, 59.98624, 59.98666, 59.98685, 59.98726, 59.98727, 59.98692, 
  59.98646, 59.98566, 59.98394, 59.98354, 59.98358, 59.98278, 59.98254, 59.98223, 59.98222, 59.98148, 
  59.98056, 59.98059, 59.97989, 59.98, 59.97952, 59.97928, 59.97965, 59.98025, 59.97988, 59.97951, 
  59.97915, 59.97876, 59.97845, 59.97869, 59.9784, 59.97857, 59.97915, 59.97945, 59.97946, 59.97967, 
  59.97975, 59.97994, 59.97979, 59.98024, 59.98035, 59.9806, 59.98043, 59.98068, 59.98092, 59.98115, 
  59.98162, 59.98207, 59.98228, 59.98215, 59.9825, 59.98275, 59.98275, 59.98294, 59.98307, 59.98327, 
  59.98319, 59.9837, 59.98391, 59.98497, 59.98385, 59.98384, 59.98309, 59.98352, 59.98381, 59.98423, 
  59.98395, 59.98411, 59.98376, 59.98401, 59.98348, 59.98471, 59.98568, 59.98688, 59.99063, 59.99226, 
  59.99341, 59.99409, 59.99422, 59.99624, 59.99657, 59.99558, 59.99602, 59.99552, 59.99305, 59.99271, 
  59.99134, 59.98744, 59.9883, 59.98625, 59.98625, 59.98699, 59.98734, 59.98826, 59.9887, 59.99057, 
  59.99202, 59.99316, 59.99277, 59.99362, 59.99373, 59.99434, 59.99487, 59.99492, 59.99765, 60.00066, 
  60.00133, 60.00379, 60.00685, 60.00861, 60.01313, 60.0134, 60.01496, 60.01463, 60.01248, 60.01107, 
  60.01103, 60.01281, 60.01482, 60.01488, 60.01616, 60.01451, 60.01497, 60.01436, 60.0153, 60.0159, 
  60.01674, 60.01662, 60.01728, 60.01785, 60.01716, 60.01534, 60.01529, 60.01461, 60.01452, 60.01351, 
  60.01309, 60.01508, 60.01546, 60.0165, 60.01541, 60.01319, 60.01306, 60.01197, 60.01131, 60.00942, 
  60.00922, 60.01072, 60.01143, 60.01272, 60.01242, 60.01374, 60.01529, 60.01652, 60.0164, 60.01788, 
  60.01805, 60.0189, 60.01981, 60.02049, 60.02161, 60.02055, 60.01919, 60.01889, 60.01794, 60.01753,
  60.01614, 60.01535, 60.015, 60.01329, 60.01109, 60.00787, 60.00748, 60.00971, 60.0103, 60.00994, 
  60.01038, 60.00884, 60.00704, 60.00704, 60.00592, 60.00638, 60.00588, 60.00504, 60.00397, 60.00369, 
  60.00452, 60.00546, 60.00612, 60.00477, 60.00513, 60.00444, 60.00444, 60.00361, 60.00315, 60.00241, 
  60.00135, 60.00093, 60.00107, 60.0001, 59.99982, 59.99932, 59.99885, 59.99835, 59.99974, 60.00201, 
  60.00172, 59.99986, 59.99841, 59.99687, 59.99583, 59.99465, 59.99385, 59.99279, 59.99112, 59.99093, 
  59.99011, 59.98979, 59.98795, 59.98722, 59.98659, 59.98802, 59.98748)
LONGITUDE_VALUEs <- c(
  20.29112, 20.29389, 20.2934, 20.29792, 20.30016, 20.30305, 20.30884, 20.31022, 20.31204, 20.31076, 
  20.31125, 20.31251, 20.31314, 20.31738, 20.31797, 20.32129, 20.32039, 20.32174, 20.31878, 20.31842, 
  20.31591, 20.31593, 20.31734, 20.31664, 20.31788, 20.3196, 20.3199, 20.32131, 20.32283, 20.32249, 
  20.32378, 20.32519, 20.32642, 20.32578, 20.32655, 20.32846, 20.32558, 20.32646, 20.32863, 20.33348, 
  20.33494, 20.33234, 20.3323, 20.33095, 20.33183, 20.33073, 20.32732, 20.32507, 20.32089, 20.31973, 
  20.32142, 20.32433, 20.32667, 20.33138, 20.33237, 20.33205, 20.33441, 20.33815, 20.33728, 20.33782, 
  20.34259, 20.34201, 20.34368, 20.3425, 20.34385, 20.34516, 20.34452, 20.34583, 20.34359, 20.34327, 
  20.34411, 20.34711, 20.34642, 20.3481, 20.34822, 20.3493, 20.35008, 20.35084, 20.35193, 20.34995, 
  20.34979, 20.34866, 20.34856, 20.34559, 20.34647, 20.34884, 20.35018, 20.35038, 20.35227, 20.35294, 
  20.35614, 20.35567, 20.35871, 20.35908, 20.35856, 20.35857, 20.35752, 20.35722, 20.35856, 20.35889, 
  20.36135, 20.36106, 20.36677, 20.36646, 20.36384, 20.36154, 20.36246, 20.3621, 20.36037, 20.36061, 
  20.36422, 20.36844, 20.37038, 20.37138, 20.37126, 20.37287, 20.37412, 20.37415, 20.37522, 20.37541, 
  20.37967, 20.3786, 20.38279, 20.38308, 20.38607, 20.38625, 20.38541, 20.38571, 20.38644, 20.38651, 
  20.38757, 20.38744, 20.386, 20.38561, 20.38752, 20.38717, 20.3887, 20.38887, 20.38738, 20.38734, 
  20.38622, 20.38614, 20.38535, 20.38477, 20.38406, 20.38431, 20.3851, 20.38507, 20.38575, 20.38527, 
  20.38424, 20.38492, 20.38393, 20.38484, 20.38886, 20.39009, 20.39208, 20.39264, 20.39206, 20.39461, 
  20.39586, 20.39729, 20.39868, 20.40445, 20.40737, 20.41059, 20.40977, 20.41322, 20.41331, 20.41138, 
  20.41389, 20.41397, 20.41717, 20.41687, 20.4191, 20.41829, 20.42162, 20.42262, 20.42292, 20.42462, 
  20.42522, 20.43545, 20.43848, 20.44284, 20.44481, 20.44631, 20.44848, 20.4488, 20.45058, 20.44741, 
  20.44889, 20.44751, 20.44638, 20.44535, 20.44116, 20.44032, 20.44172, 20.44859, 20.45532, 20.45296, 
  20.45505, 20.45402, 20.44472, 20.44421, 20.43726, 20.43232, 20.42983, 20.4209, 20.42286, 20.4214, 
  20.41981, 20.41754, 20.41837, 20.40994, 20.40494, 20.4008, 20.39924, 20.39692, 20.3964, 20.39411, 
  20.39327, 20.39046, 20.39138, 20.39056, 20.38578, 20.38758, 20.38951, 20.38984, 20.38788, 20.38898, 
  20.38777, 20.38505, 20.38299, 20.38099, 20.3755, 20.37679, 20.37391, 20.37567, 20.37524, 20.37761, 
  20.37688, 20.37432, 20.37078, 20.37057, 20.36773, 20.36383, 20.36492, 20.36185, 20.35687, 20.35749, 
  20.35872, 20.35866, 20.35583, 20.35623, 20.35076, 20.34589, 20.3452, 20.34078, 20.33727, 20.33192,
  20.3294, 20.3296, 20.3273, 20.32627, 20.32207, 20.32578, 20.33487, 20.33925, 20.34271, 20.34466, 
  20.34659, 20.34571, 20.34047, 20.33599, 20.33631, 20.3335, 20.33299, 20.33597, 20.3364, 20.33496, 
  20.33039, 20.33144, 20.32696, 20.32692, 20.32492, 20.32374, 20.32185, 20.32228, 20.3252, 20.32494, 
  20.32728, 20.32687, 20.32577, 20.32537, 20.32726, 20.32706, 20.32844, 20.32788, 20.32172, 20.3167, 
  20.31601, 20.31717, 20.31277, 20.31378, 20.30938, 20.30913, 20.30664, 20.30683, 20.30453, 20.29941, 
  20.29945, 20.29812, 20.2975, 20.29926, 20.29744, 20.29533, 20.29173)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.02434, 60.02119, 60.02127, 60.01849, 60.01913, 60.01874, 60.01926, 60.01868, 60.01873, 60.01836, 
  60.01841, 60.01902, 60.0198, 60.02069, 60.02097, 60.02258, 60.02374, 60.02416, 60.02287, 60.02286, 
  60.02182, 60.02175, 60.02302, 60.02197, 60.02242, 60.02311, 60.02362, 60.02113, 60.02097, 60.0222, 
  60.02218, 60.02434, 60.02799, 60.02845, 60.03028, 60.03043, 60.0321, 60.03458, 60.03866, 60.04343, 
  60.04342, 60.04232, 60.04265, 60.04217, 60.03926, 60.03911, 60.03793, 60.03757, 60.03682, 60.03575, 
  60.03562, 60.03487, 60.03491, 60.03221, 60.03207, 60.03321, 60.03295, 60.03244, 60.03204, 60.03123, 
  60.03093, 60.03038, 60.02982, 60.02942, 60.02863, 60.02906, 60.02833, 60.02743, 60.02671, 60.02593, 
  60.02546, 60.02377, 60.02318, 60.02259, 60.02286, 60.02088, 60.02034, 60.01916, 60.01857, 60.01775, 
  60.01732, 60.01676, 60.01585, 60.01556, 60.01584, 60.01469, 60.0143, 60.01381, 60.01391, 60.01304, 
  60.01223, 60.01273, 60.01321, 60.01297, 60.0139, 60.01312, 60.01305, 60.01622, 60.01745, 60.0191, 
  60.01994, 60.02044, 60.02212, 60.02251, 60.0218, 60.02199, 60.02273, 60.02239, 60.02329, 60.02404, 
  60.02518, 60.02518, 60.02576, 60.02618, 60.02621, 60.02652, 60.02587, 60.02647, 60.02639, 60.02909, 
  60.02887, 60.0293, 60.03043, 60.03133, 60.031, 60.03138, 60.03221, 60.03254, 60.03174, 60.03191, 
  60.03243, 60.03246, 60.03301, 60.03326, 60.03372, 60.03407, 60.035, 60.03518, 60.03464, 60.03517, 
  60.03458, 60.03526, 60.03548, 60.03587, 60.03701, 60.03741, 60.03741, 60.03677, 60.03625, 60.03591, 
  60.03644, 60.03735, 60.03749, 60.03809, 60.03822, 60.0389, 60.03943, 60.04006, 60.04107, 60.04176, 
  60.04223, 60.04218, 60.04256, 60.04362, 60.04384, 60.04452, 60.046, 60.04684, 60.04655, 60.04718, 
  60.04785, 60.04842, 60.04846, 60.04801, 60.04769, 60.0492, 60.05034, 60.05098, 60.05117, 60.05241, 
  60.05282, 60.0521, 60.05189, 60.05297, 60.05371, 60.0543, 60.05353, 60.05457, 60.05433, 60.05463, 
  60.05533, 60.05586, 60.05713, 60.05757, 60.05767, 60.05832, 60.05853, 60.05775, 60.05786, 60.05862, 
  60.05875, 60.05903, 60.05951, 60.05972, 60.05914, 60.05999, 60.05922, 60.05945, 60.0591, 60.05919, 
  60.06023, 60.06023, 60.06176, 60.06214, 60.06288, 60.06224, 60.06222, 60.06187, 60.06083, 60.0606, 
  60.06156, 60.06213, 60.06242, 60.06253, 60.0634, 60.06324, 60.06363, 60.06416, 60.06504, 60.0654, 
  60.06452, 60.06452, 60.06483, 60.06524, 60.06485, 60.06432, 60.06346, 60.06371, 60.06289, 60.06242, 
  60.06192, 60.06134, 60.0599, 60.05963, 60.06026, 60.06061, 60.06144, 60.06198, 60.06099, 60.06191, 
  60.06204, 60.06299, 60.06277, 60.06097, 60.06081, 60.0623, 60.06129, 60.05958, 60.05891, 60.05923, 
  60.05869, 60.0585, 60.05929, 60.06064, 60.06055, 60.06191, 60.06285, 60.06534, 60.06578, 60.06619, 
  60.06669, 60.06793, 60.06727, 60.06747, 60.06707, 60.06765, 60.06764, 60.06841, 60.06656, 60.06661, 
  60.06737, 60.06771, 60.0684, 60.06949, 60.06944, 60.06987, 60.07053, 60.07039, 60.07005, 60.06986, 
  60.07005, 60.06988, 60.06956, 60.06919, 60.06904, 60.06856, 60.0677, 60.06794, 60.06759, 60.06722, 
  60.06718, 60.06624, 60.06588, 60.06503, 60.06473, 60.06414, 60.06366, 60.06301, 60.06324, 60.06242, 
  60.06138, 60.06095, 60.06149, 60.05987, 60.05701, 60.05801, 60.05712, 60.05607, 60.05562, 60.05697, 
  60.05623, 60.05611, 60.05542, 60.055, 60.0535, 60.05231, 60.05111, 60.04953, 60.04637, 60.04442, 
  60.04009, 60.03926, 60.03435, 60.03308, 60.03152, 60.03122, 60.02869, 60.02775, 60.02805, 60.02713)
LONGITUDE_VALUEs <- c(
  20.37414, 20.378, 20.38071, 20.39568, 20.39908, 20.40431, 20.40663, 20.40903, 20.41084, 20.41219, 
  20.4139, 20.4142, 20.4133, 20.41532, 20.41777, 20.41738, 20.41564, 20.41669, 20.41942, 20.42109, 
  20.42227, 20.42508, 20.42845, 20.42985, 20.43504, 20.43557, 20.43888, 20.43731, 20.43959, 20.44039, 
  20.44185, 20.44158, 20.44407, 20.44609, 20.4456, 20.44868, 20.44757, 20.45085, 20.4498, 20.45664, 
  20.45958, 20.46173, 20.46585, 20.46851, 20.47048, 20.46868, 20.47022, 20.46765, 20.46855, 20.46846, 
  20.46679, 20.46621, 20.46445, 20.4653, 20.46419, 20.46356, 20.46159, 20.46182, 20.46131, 20.46248, 
  20.46113, 20.46186, 20.46128, 20.4622, 20.46152, 20.46015, 20.45938, 20.46041, 20.45705, 20.45616, 
  20.45348, 20.4527, 20.45432, 20.45326, 20.45204, 20.45125, 20.45382, 20.45414, 20.45758, 20.45728, 
  20.45882, 20.4588, 20.4605, 20.45758, 20.45614, 20.45535, 20.45414, 20.4547, 20.45717, 20.45792, 
  20.46341, 20.46346, 20.46663, 20.46899, 20.4703, 20.47155, 20.47313, 20.47277, 20.47116, 20.47534, 
  20.47528, 20.47625, 20.47693, 20.48004, 20.48148, 20.48258, 20.48361, 20.48627, 20.48684, 20.49011, 
  20.49034, 20.49174, 20.49182, 20.4903, 20.48749, 20.48695, 20.48622, 20.48502, 20.48341, 20.48318, 
  20.48524, 20.48528, 20.48732, 20.48712, 20.49232, 20.4926, 20.49172, 20.495, 20.49638, 20.49742, 
  20.49743, 20.49833, 20.49863, 20.49928, 20.49924, 20.50166, 20.50345, 20.5051, 20.50627, 20.5066, 
  20.50835, 20.50883, 20.50736, 20.50887, 20.50772, 20.50831, 20.50914, 20.51016, 20.51007, 20.5111, 
  20.51257, 20.51124, 20.50965, 20.51044, 20.51306, 20.51361, 20.51505, 20.51538, 20.51812, 20.51845, 
  20.51986, 20.52119, 20.52162, 20.52103, 20.5195, 20.5204, 20.51902, 20.52041, 20.52224, 20.52255, 
  20.52083, 20.52051, 20.51916, 20.5198, 20.51889, 20.51815, 20.51401, 20.5139, 20.51265, 20.51155, 
  20.51303, 20.5152, 20.51951, 20.51951, 20.51733, 20.51933, 20.52289, 20.52586, 20.52744, 20.52871, 
  20.52856, 20.52717, 20.52994, 20.52949, 20.52654, 20.52632, 20.52884, 20.52983, 20.53054, 20.53058, 
  20.53154, 20.53122, 20.53173, 20.52885, 20.5281, 20.52695, 20.52685, 20.52577, 20.52515, 20.52396, 
  20.52442, 20.52525, 20.52668, 20.52569, 20.52694, 20.52978, 20.53499, 20.53598, 20.53552, 20.53711, 
  20.53874, 20.53809, 20.53819, 20.53877, 20.53732, 20.5366, 20.53562, 20.53611, 20.5334, 20.53019, 
  20.52942, 20.52639, 20.52597, 20.52058, 20.51911, 20.51933, 20.51802, 20.51635, 20.51422, 20.50964, 
  20.5085, 20.50987, 20.50897, 20.50694, 20.50694, 20.50814, 20.50803, 20.50623, 20.50383, 20.50306, 
  20.50184, 20.50135, 20.49824, 20.49749, 20.49667, 20.49435, 20.48768, 20.48311, 20.48264, 20.48111, 
  20.48079, 20.47632, 20.4724, 20.47207, 20.46717, 20.46592, 20.46899, 20.47253, 20.47215, 20.46929, 
  20.47071, 20.47032, 20.46873, 20.46736, 20.4659, 20.46513, 20.4643, 20.46305, 20.45977, 20.45442, 
  20.45335, 20.45161, 20.4509, 20.45193, 20.45271, 20.45307, 20.45234, 20.45164, 20.45172, 20.44962, 
  20.44866, 20.44762, 20.44815, 20.44762, 20.4459, 20.44727, 20.44727, 20.44899, 20.44932, 20.44872, 
  20.44765, 20.4475, 20.44517, 20.44543, 20.44464, 20.44442, 20.44017, 20.43871, 20.43471, 20.43293, 
  20.43293, 20.43119, 20.43032, 20.42642, 20.42518, 20.42339, 20.42148, 20.4229, 20.4203, 20.41902, 
  20.41876, 20.41794, 20.41816, 20.41702, 20.41773, 20.41453, 20.41483, 20.41041, 20.41076, 20.40707, 
  20.40372, 20.399, 20.39505, 20.3902, 20.3884, 20.38385, 20.38464, 20.38149, 20.37694, 20.37509)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.0733, 60.0709, 60.07019, 60.07384, 60.07339, 60.07524, 60.07645, 60.07707, 60.07823, 60.07833, 
  60.07894, 60.07868, 60.07797, 60.0768)
LONGITUDE_VALUEs <- c(
  19.9134, 19.91083, 19.91424, 19.91744, 19.91958, 19.92074, 19.91857, 19.91506, 19.91471, 19.90918, 
  19.90888, 19.906, 19.90746, 19.90731)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.0387, 60.03917, 60.04115, 60.04166, 60.04341, 60.04334, 60.04395, 60.04303, 60.04303, 60.04207, 
  60.04185, 60.04127, 60.04074, 60.03909, 60.03917, 60.03882, 60.03902)
LONGITUDE_VALUEs <- c(
  19.9052, 19.90917, 19.90861, 19.90722, 19.9069, 19.90406, 19.90265, 19.90121, 19.89926, 19.89922, 
  19.89789, 19.89825, 19.89647, 19.89683, 19.89883, 19.90016, 19.90183)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.06143, 60.06699, 60.06775, 60.06886, 60.07104, 60.07089, 60.07173, 60.07008, 60.0701, 60.06886, 
  60.06885, 60.06795, 60.06576, 60.06448, 60.06442, 60.06321, 60.06251, 60.06233, 60.06151, 60.06195, 
  60.05837, 60.05735, 60.05741, 60.05691, 60.0577, 60.05714, 60.06062)
LONGITUDE_VALUEs <- c(
  19.94788, 19.94865, 19.94563, 19.94539, 19.94209, 19.94024, 19.93833, 19.93681, 19.93539, 19.93486, 
  19.93329, 19.93305, 19.9305, 19.93155, 19.93468, 19.93473, 19.93666, 19.93544, 19.93398, 19.93237, 
  19.93164, 19.93231, 19.93583, 19.93717, 19.93915, 19.94016, 19.94338)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.04831, 60.04968, 60.04953, 60.0519, 60.05189, 60.05317, 60.05632, 60.05602, 60.05651, 60.05498, 
  60.05452, 60.05367, 60.05521, 60.05767, 60.0579, 60.05748, 60.05783, 60.05744, 60.05798, 60.05734, 
  60.0524, 60.051, 60.05007, 60.04854)
LONGITUDE_VALUEs <- c(
  19.94617, 19.94848, 19.9502, 19.95393, 19.95908, 19.96324, 19.96432, 19.96322, 19.96091, 19.95827, 
  19.95567, 19.95451, 19.95295, 19.95335, 19.95187, 19.95108, 19.94986, 19.94722, 19.94428, 19.94194, 
  19.94322, 19.94202, 19.94389, 19.94518)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.02107, 60.02244, 60.02372, 60.02443, 60.02527, 60.02531, 60.02632, 60.02736, 60.0265, 60.02683, 
  60.02599, 60.02562, 60.02585, 60.02547, 60.02557, 60.02447, 60.02394, 60.02318, 60.02288, 60.02265, 
  60.02169)
LONGITUDE_VALUEs <- c(
  19.96001, 19.9644, 19.96503, 19.9643, 19.9656, 19.96706, 19.96696, 19.96198, 19.96005, 19.95947, 
  19.95857, 19.95901, 19.95759, 19.95653, 19.95578, 19.9557, 19.95635, 19.95658, 19.95727, 19.95694, 
  19.958)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.01917, 60.02008, 60.01996, 60.02086, 60.02031, 60.02036, 60.01899, 60.01893, 60.01787, 60.01602, 
  60.01597, 60.01491, 60.01456, 60.01514, 60.01406, 60.01444, 60.01678, 60.018, 60.01854, 60.02012, 
  60.01956, 60.01978)
LONGITUDE_VALUEs <- c(
  19.97638, 19.97483, 19.97204, 19.97009, 19.96906, 19.96679, 19.96552, 19.97069, 19.96846, 19.97217, 
  19.97337, 19.97487, 19.97666, 19.97732, 19.98262, 19.98404, 19.98438, 19.98584, 19.98419, 19.98356, 
  19.98189, 19.97981)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.01257, 60.01317, 60.01449, 60.01668, 60.01672, 60.01518, 60.01511, 60.01627, 60.01793, 60.01932, 
  60.01904, 60.01941, 60.01834, 60.01666, 60.01641, 60.0176, 60.01923, 60.01949, 60.02132, 60.0211, 
  60.02046, 60.01924, 60.01831, 60.01728, 60.01611, 60.01392, 60.01229, 60.00892, 60.00899, 60.00819, 
  60.00987, 60.00902, 60.01077)
LONGITUDE_VALUEs <- c(
  20.04259, 20.04596, 20.04607, 20.04399, 20.04281, 20.04174, 20.04023, 20.03931, 20.04167, 20.04156, 
  20.0403, 20.03869, 20.03811, 20.03871, 20.03702, 20.03551, 20.03571, 20.0342, 20.03133, 20.03077, 
  20.03099, 20.0288, 20.02586, 20.02582, 20.02719, 20.0273, 20.03056, 20.02968, 20.03088, 20.0335, 
  20.03474, 20.03817, 20.04096)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(59.99099, 59.99543, 59.99378, 59.99434, 59.99127, 59.99069)
LONGITUDE_VALUEs <- c(20.10218, 20.10192, 20.09574, 20.08797, 20.08969, 20.09647)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  59.98743, 59.98619, 59.99164, 59.99278, 59.99301, 59.99387, 59.99329, 59.9939, 59.99375, 59.99277, 
  59.99217, 59.9917, 59.99018, 59.9905, 59.99004, 59.98943, 59.98794, 59.98766, 59.98678, 59.98534, 
  59.98534)
LONGITUDE_VALUEs <- c(
  20.13109, 20.13289, 20.13469, 20.13413, 20.13184, 20.13021, 20.12909, 20.12664, 20.12482, 20.12516, 
  20.12692, 20.12536, 20.12667, 20.12765, 20.12915, 20.12692, 20.12654, 20.1278, 20.12718, 20.12873, 
  20.12956)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.1023, 60.10244, 60.10126, 60.10337, 60.10291, 60.10339, 60.10317, 60.10413, 60.10591, 60.1067, 
  60.10636, 60.10642, 60.10794, 60.10791, 60.1071, 60.10786, 60.10636, 60.1039)
LONGITUDE_VALUEs <- c(
  20.05137, 20.05307, 20.0559, 20.05864, 20.06094, 20.06244, 20.06377, 20.06618, 20.06588, 20.06306, 
  20.06174, 20.05871, 20.05586, 20.05356, 20.05231, 20.05047, 20.04826, 20.0495)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(60.18094, 60.18366, 60.19134, 60.19205, 60.19121, 60.18882, 60.18831, 60.18699)
LONGITUDE_VALUEs <- c(20.06097, 20.06476, 20.0663, 20.06317, 20.05892, 20.05678, 20.05399, 20.05382)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(60.21676, 60.22122, 60.22694, 60.2289, 60.22681, 60.22554, 60.2245, 60.22153, 60.22345, 60.21699)
LONGITUDE_VALUEs <- c(20.03024, 20.03249, 20.04041, 20.03631, 20.02532, 20.02429, 20.02022, 20.02281, 20.02494, 20.02831)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.04741, 60.04839, 60.04849, 60.05154, 60.05084, 60.05289, 60.05236, 60.05226, 60.04952, 60.0498, 
  60.04929, 60.04949, 60.05009, 60.04983, 60.04591, 60.04592, 60.04444, 60.04435, 60.04197, 60.04197, 
  60.03989, 60.03776, 60.03833, 60.03708, 60.03433, 60.03544, 60.03452, 60.036, 60.03615, 60.03486, 
  60.03469, 60.0352, 60.0354, 60.03649, 60.03706, 60.03861, 60.03949, 60.04212, 60.04431, 60.04507, 
  60.04661, 60.04731)
LONGITUDE_VALUEs <- c(
  19.98338, 19.98398, 19.9864, 19.987, 19.98546, 19.98346, 19.98232, 19.9805, 19.9788, 19.97477, 
  19.97441, 19.97275, 19.97217, 19.97024, 19.97166, 19.97033, 19.96752, 19.96458, 19.96029, 19.95589, 
  19.95278, 19.95516, 19.96177, 19.96578, 19.96868, 19.97059, 19.97355, 19.9735, 19.97462, 19.97831, 
  19.98177, 19.98222, 19.9834, 19.98305, 19.98511, 19.98606, 19.98441, 19.98404, 19.98277, 19.98361, 
  19.98144, 19.98183)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.01046, 60.01161, 60.01261, 60.01328, 60.01316, 60.01389, 60.01464, 60.0173, 60.01696, 60.0164, 
  60.01647, 60.01862, 60.01866, 60.01807, 60.01885, 60.01825, 60.01841, 60.01942, 60.02003, 60.02099, 
  60.02411, 60.02616, 60.02641, 60.02621, 60.02667, 60.02618, 60.0272, 60.02666, 60.02528, 60.02628, 
  60.02855, 60.03005, 60.03153, 60.03074, 60.0312, 60.03086, 60.03282, 60.0327, 60.03318, 60.0329, 
  60.03319, 60.03251, 60.03234, 60.03399, 60.03525, 60.03528, 60.03683, 60.03625, 60.03513, 60.034, 
  60.03236, 60.03287, 60.02833, 60.02848, 60.02641, 60.02807, 60.02745, 60.02843, 60.0278, 60.02847, 
  60.02602, 60.02493, 60.02527, 60.02388, 60.02283, 60.02068, 60.02192, 60.02226, 60.02104, 60.02127, 
  60.01951, 60.0196, 60.01896, 60.01774, 60.01754, 60.01589, 60.01582, 60.01513, 60.01537, 60.01434, 
  60.0153, 60.01223, 60.01121, 60.01053, 60.01084, 60.01232, 60.01193, 60.01095, 60.01099, 60.01039, 
  60.01078, 60.01217, 60.01105, 60.00863, 60.00838, 60.00753, 60.00736, 60.00800, 60.00759, 60.0083, 
  60.00886, 60.0097, 60.01019, 60.00969, 60.0093, 60.00889, 60.00795, 60.00739, 60.00812)
LONGITUDE_VALUEs <- c(
  20.01421, 20.01601, 20.01596, 20.01666, 20.01736, 20.01806, 20.02131, 20.02164, 20.01978, 20.01965, 
  20.01726, 20.01695, 20.0152, 20.01458, 20.01404, 20.01364, 20.0127, 20.01272, 20.01358, 20.01235, 
  20.01198, 20.00891, 20.00664, 20.00432, 20.00176, 20.00121, 19.99915, 19.99586, 19.99357, 19.9891, 
  19.98732, 19.98994, 19.98524, 19.98211, 19.98024, 19.97874, 19.97462, 19.97318, 19.97147, 19.97014, 
  19.96936, 19.96747, 19.96458, 19.96623, 19.96542, 19.96336, 19.95939, 19.9567, 19.95683, 19.95546, 
  19.9567, 19.95857, 19.96054, 19.96535, 19.96936, 19.97091, 19.97406, 19.97949, 19.98114, 19.98434, 
  19.98269, 19.9844, 19.98236, 19.97724, 19.97663, 19.9788, 19.98105, 19.98762, 19.98831, 19.98983, 
  19.99185, 19.99258, 19.99303, 19.99243, 19.99105, 19.99213, 19.9912, 19.99047, 19.98912, 19.98801, 
  19.98655, 19.98277, 19.97945, 19.98097, 19.98303, 19.98462, 19.98575, 19.98518, 19.98668, 19.9888, 
  19.99374, 19.99543, 19.99822, 19.9997, 20.00191, 20.00178, 20.00337, 20.00449, 20.00721, 20.00785, 
  20.00776, 20.00628, 20.00627, 20.00847, 20.00879, 20.00851, 20.00923, 20.01159, 20.01351)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.26518, 60.27554, 60.27495, 60.28118, 60.27763, 60.28861, 60.28748, 60.2829, 60.28276, 60.27929, 
  60.27776, 60.27548, 60.27548, 60.27354, 60.27165, 60.27029, 60.26858)
LONGITUDE_VALUEs <- c(
  19.8401, 19.84542, 19.84808, 19.85083, 19.85392, 19.85735, 19.8504, 19.8495, 19.84636, 19.84276, 
  19.84452, 19.83821, 19.83448, 19.83207, 19.83529, 19.83426, 19.83714)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.2878, 60.2908, 60.29329, 60.29731, 60.30019, 60.30077, 60.30545, 60.30838, 60.31161, 60.30993, 
  60.30855, 60.30804, 60.309, 60.30708, 60.30827, 60.31044, 60.31153, 60.31355, 60.31316, 60.31525, 
  60.31546, 60.31922, 60.31809, 60.31911, 60.31712, 60.31461, 60.31514, 60.31408, 60.31074, 60.3077, 
  60.30462, 60.30175, 60.30294, 60.30228, 60.30026, 60.29907, 60.29728, 60.29539, 60.29348, 60.29033, 
  60.28833, 60.28769, 60.28603, 60.28546, 60.28329, 60.28263, 60.27254, 60.2739, 60.27203, 60.27305, 
  60.27295, 60.27616, 60.27865, 60.27735, 60.27803, 60.28031, 60.28242, 60.28005, 60.28342, 60.28429, 
  60.28335, 60.28548, 60.28473)
LONGITUDE_VALUEs <- c(
  19.83297, 19.83693, 19.838, 19.84411, 19.84409, 19.84802, 19.84804, 19.8492, 19.84799, 19.84229, 
  19.84289, 19.84126, 19.83984, 19.83641, 19.83413, 19.83379, 19.83177, 19.8319, 19.83568, 19.83585, 
  19.83413, 19.83357, 19.83181, 19.8289, 19.82542, 19.82748, 19.824, 19.82091, 19.81804, 19.81156, 
  19.8113, 19.80808, 19.80752, 19.80572, 19.80598, 19.80362, 19.80349, 19.80692, 19.80649, 19.81246, 
  19.81293, 19.81495, 19.81478, 19.8125, 19.81272, 19.81585, 19.82066, 19.82242, 19.82422, 19.82658, 
  19.82928, 19.82983, 19.83249, 19.83743, 19.83768, 19.83352, 19.83837, 19.84146, 19.84343, 19.84155, 
  19.83893, 19.83726, 19.83331)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.2587, 60.25904, 60.25887, 60.26367, 60.26548, 60.26556, 60.26681, 60.26827, 60.26751, 60.26581, 
  60.26639, 60.26579, 60.26463, 60.26303, 60.2613, 60.26179, 60.26042, 60.25919)
LONGITUDE_VALUEs <- c(
  19.44043, 19.44198, 19.44365, 19.44423, 19.44266, 19.43876, 19.43867, 19.43372, 19.43331, 19.43447, 
  19.43522, 19.43638, 19.43569, 19.43769, 19.43871, 19.44084, 19.44155, 19.44015)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.27718, 60.27611, 60.27761, 60.27894, 60.27844, 60.27981, 60.2811, 60.2842, 60.28304, 60.28551, 
  60.28576, 60.28661, 60.28626, 60.28768, 60.2868, 60.28688, 60.28527, 60.28447, 60.28168, 60.28057, 
  60.27917, 60.27635, 60.27505, 60.27514)
LONGITUDE_VALUEs <- c(
  19.47605, 19.47781, 19.48013, 19.4782, 19.47682, 19.47569, 19.47933, 19.47826, 19.47642, 19.47414, 
  19.47275, 19.47206, 19.46991, 19.46751, 19.46511, 19.4618, 19.46176, 19.46436, 19.46504, 19.46614, 
  19.46549, 19.46779, 19.47266, 19.47592)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.26852, 60.27142, 60.27761, 60.28276, 60.28361, 60.28364, 60.2859, 60.28615, 60.28523, 60.28362,
  60.2831, 60.27517, 60.27127, 60.26986, 60.26872, 60.26863, 60.26728)
LONGITUDE_VALUEs <- c(
  19.53609, 19.53621, 19.53154, 19.53111, 19.53034, 19.5297, 19.52918, 19.52852, 19.52798, 19.52843,
  19.52772, 19.53077, 19.52804, 19.53027, 19.53064, 19.5321, 19.53376)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.26522, 60.26885, 60.26956, 60.27, 60.27076, 60.26904, 60.26607, 60.26534, 60.26454, 60.26381, 
  60.26306, 60.26157, 60.26073, 60.2597, 60.25924, 60.25741, 60.25722, 60.25827, 60.25724, 60.25495, 
  60.25621, 60.25412, 60.25301, 60.24965, 60.24926, 60.24987, 60.24861, 60.24617, 60.24678, 60.24659, 
  60.24525, 60.2435, 60.24248, 60.2439, 60.24221, 60.23902, 60.23928, 60.23793, 60.23676, 60.23696, 
  60.23559, 60.2349, 60.23603, 60.23742, 60.23739, 60.23791, 60.23854, 60.23897, 60.2394, 60.23862, 
  60.23936, 60.23821, 60.23847, 60.23797, 60.23896, 60.2389, 60.24008, 60.24134, 60.24214, 60.24256, 
  60.24313, 60.24401, 60.24435, 60.24338, 60.24253, 60.24249, 60.2417, 60.24055, 60.2384, 60.23785, 
  60.2355, 60.23467, 60.23412, 60.23282, 60.23179, 60.23534, 60.23593, 60.23576, 60.23634, 60.236, 
  60.23685, 60.23469, 60.23532, 60.23765, 60.23775, 60.23721, 60.23874, 60.23976, 60.23931, 60.24068, 
  60.24119, 60.241, 60.24045, 60.24035, 60.2407, 60.24218, 60.24313, 60.24318, 60.24255, 60.24329, 
  60.24393, 60.24373, 60.24575, 60.24841, 60.24906, 60.25216, 60.25297, 60.2519, 60.25041, 60.24996, 
  60.24892, 60.24733, 60.24628, 60.24497, 60.24363, 60.24264, 60.24031, 60.24002, 60.24089, 60.24123, 
  60.24184, 60.24078, 60.23974, 60.23909, 60.23886, 60.23876, 60.23776, 60.23815, 60.23714, 60.23733, 
  60.23674, 60.23722, 60.23803, 60.23813, 60.23736, 60.23668, 60.23662, 60.23769, 60.23643, 60.23671, 
  60.24015, 60.23982, 60.23828, 60.23827, 60.23777, 60.23687, 60.23534, 60.23482, 60.23414, 60.23392, 
  60.23473, 60.23504, 60.23487, 60.23516, 60.23518, 60.23541, 60.23572, 60.23631, 60.23677, 60.23705, 
  60.23734, 60.23763, 60.23788, 60.23786, 60.23769, 60.23774, 60.2382, 60.2385, 60.23951, 60.23913, 
  60.24196, 60.24407, 60.2446, 60.2445, 60.24497, 60.2458, 60.24608, 60.24674, 60.2469, 60.24757, 
  60.24782, 60.24892, 60.24913, 60.24785, 60.24728, 60.2472, 60.24587, 60.24591, 60.2475, 60.24763,
  60.24831, 60.24924, 60.25024, 60.24956, 60.25176, 60.25362, 60.25426, 60.25396, 60.25733, 60.25765, 
  60.25948, 60.25968, 60.26035, 60.25997, 60.25912, 60.25979, 60.25878, 60.25902, 60.25983, 60.26031, 
  60.26209, 60.2626, 60.26398, 60.26371, 60.26504, 60.26387, 60.26396, 60.26311, 60.2623, 60.26274, 
  60.26245, 60.26306, 60.26324, 60.26416, 60.26372, 60.26243, 60.26212, 60.26062, 60.25766, 60.2547, 
  60.25335, 60.25244, 60.25279, 60.25078, 60.25206, 60.25112, 60.25167, 60.25605, 60.25898, 60.26233)
LONGITUDE_VALUEs <- c(
  19.49042, 19.49262, 19.49193, 19.49002, 19.48918, 19.47948, 19.48017, 19.48144, 19.48084, 19.48176, 
  19.48163, 19.48401, 19.48384, 19.4847, 19.48378, 19.48408, 19.48313, 19.48148, 19.47991, 19.48081, 
  19.47863, 19.47725, 19.47796, 19.47768, 19.47659, 19.47549, 19.47393, 19.47491, 19.4765, 19.47805, 
  19.47687, 19.47852, 19.47648, 19.47376, 19.47197, 19.47365, 19.47152, 19.47172, 19.47279, 19.47401, 
  19.47436, 19.47674, 19.47749, 19.47734, 19.47659, 19.47616, 19.47661, 19.47612, 19.47727, 19.47858, 
  19.48384, 19.48571, 19.48714, 19.48873, 19.48942, 19.49122, 19.49118, 19.49004, 19.49073, 19.48972, 
  19.49017, 19.49015, 19.49143, 19.49206, 19.4936, 19.49538, 19.49519, 19.49781, 19.49566, 19.49626, 
  19.4959, 19.49482, 19.49178, 19.49238, 19.49633, 19.49669, 19.49865, 19.50023, 19.50143, 19.50321, 
  19.50416, 19.50504, 19.50624, 19.50667, 19.50823, 19.5104, 19.51021, 19.51087, 19.5086, 19.51027, 
  19.50791, 19.50626, 19.50504, 19.50373, 19.50334, 19.50555, 19.50581, 19.50669, 19.50847, 19.50867, 
  19.50761, 19.50635, 19.5083, 19.50937, 19.51109, 19.51493, 19.51896, 19.52016, 19.51862, 19.51647, 
  19.51617, 19.51291, 19.51439, 19.51456, 19.5174, 19.51806, 19.52242, 19.52211, 19.52036, 19.51741, 
  19.51579, 19.51345, 19.51496, 19.51742, 19.51763, 19.51665, 19.51797, 19.51882, 19.51916, 19.51989, 
  19.52026, 19.52159, 19.52203, 19.52306, 19.52223, 19.52189, 19.52245, 19.52389, 19.5253, 19.52694, 
  19.52897, 19.53031, 19.53054, 19.53142, 19.53177, 19.53192, 19.53512, 19.53348, 19.53361, 19.53412, 
  19.53518, 19.53526, 19.53643, 19.53705, 19.5376, 19.53782, 19.53759, 19.53963, 19.53955, 19.53879, 
  19.53897, 19.53707, 19.53685, 19.53721, 19.53755, 19.53845, 19.5378, 19.53664, 19.53581, 19.53693, 
  19.53656, 19.53225, 19.53303, 19.53464, 19.53495, 19.53413, 19.53591, 19.53573, 19.53502, 19.53415, 
  19.53323, 19.53289, 19.53156, 19.52965, 19.52976, 19.52915, 19.52875, 19.52736, 19.52604, 19.52706,
  19.52734, 19.52714, 19.52586, 19.52535, 19.52322, 19.52296, 19.52062, 19.51746, 19.51757, 19.51991, 
  19.51869, 19.52, 19.52107, 19.52274, 19.52412, 19.52588, 19.52622, 19.52753, 19.5286, 19.53004, 
  19.53096, 19.53274, 19.53259, 19.52905, 19.5262, 19.52566, 19.5242, 19.52431, 19.52122, 19.51841, 
  19.51691, 19.51579, 19.51277, 19.51159, 19.5097, 19.50985, 19.50905, 19.50877, 19.50408, 19.5027, 
  19.50086, 19.49697, 19.49519, 19.49071, 19.49013, 19.48406, 19.4838, 19.49403, 19.49261, 19.49223)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.1615, 60.16437, 60.16814, 60.1691, 60.16462, 60.16281, 60.16189, 60.16052, 60.15561, 60.15375, 
  60.15627, 60.15324)
LONGITUDE_VALUEs <- c(
  19.61943, 19.62209, 19.61518, 19.60672, 19.60454, 19.6087, 19.60732, 19.60938, 19.60544, 19.6096, 
  19.61149, 19.6172)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.19096, 60.19405, 60.19471, 60.19087, 60.18812, 60.18701, 60.1862, 60.18639, 60.1846, 60.18362, 
  60.18588, 60.18547, 60.18908)
LONGITUDE_VALUEs <- c(
  19.68668, 19.68676, 19.68247, 19.67655, 19.67646, 19.67822, 19.67753, 19.67607, 19.6735, 19.67423, 
  19.67865, 19.68457, 19.68822)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.1624, 60.16308, 60.16165, 60.17126, 60.17416, 60.17574, 60.17837, 60.18084, 60.18198, 60.18475, 
  60.18217, 60.17937, 60.17527, 60.17231, 60.17139, 60.17058, 60.16972, 60.16763, 60.16755, 60.16296)
LONGITUDE_VALUEs <- c(
  19.68097, 19.68247, 19.68427, 19.68925, 19.692, 19.69105, 19.69427, 19.69298, 19.68976, 19.69024, 
  19.67616, 19.67638, 19.6729, 19.67453, 19.67238, 19.67359, 19.67264, 19.67393, 19.67629, 19.67929)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(60.27727, 60.28542, 60.2875, 60.28718, 60.28856, 60.28697, 60.28354, 60.28254, 60.2778)
LONGITUDE_VALUEs <- c(19.63792, 19.64123, 19.63925, 19.63436, 19.63204, 19.62986, 19.63174, 19.6341, 19.63642)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(60.23571, 60.23794, 60.23877, 60.23824, 60.23903, 60.24223, 60.2438, 60.24587, 60.24489, 60.23726)
LONGITUDE_VALUEs <- c(19.66406, 19.6653, 19.66269, 19.66144, 19.65951, 19.66071, 19.65724, 19.655, 19.65101, 19.65466)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.30536, 60.30441, 60.30706, 60.30856, 60.30913, 60.3117, 60.31158, 60.30811, 60.30723, 60.30419, 
  60.30363)
LONGITUDE_VALUEs <- c(
  19.63955, 19.64183, 19.65045, 19.65035, 19.64297, 19.64119, 19.64007, 19.63806, 19.63516, 19.63537, 
  19.63688)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.30077, 60.30379, 60.3063, 60.30798, 60.31157, 60.31255, 60.31552, 60.31605, 60.31399, 60.31731, 
  60.31542, 60.31025, 60.31076, 60.30774, 60.30541)
LONGITUDE_VALUEs <- c(
  19.62376, 19.63157, 19.63071, 19.62689, 19.62831, 19.63157, 19.63119, 19.62677, 19.62453, 19.62132, 
  19.61844, 19.62127, 19.62428, 19.62449, 19.62119)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(60.32011, 60.32018, 60.32372, 60.3242, 60.32955, 60.32989, 60.32602, 60.32591, 60.32326, 60.32141)
LONGITUDE_VALUEs <- c(19.56516, 19.57453, 19.57612, 19.57335, 19.57315, 19.56838, 19.56757, 19.56568, 19.56649, 19.56491)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.34849, 60.3494, 60.34996, 60.3496, 60.35058, 60.35109, 60.35208, 60.35298, 60.35373, 60.35393, 
  60.35259, 60.35257, 60.3539, 60.35355, 60.35188, 60.3504, 60.35037, 60.35159)
LONGITUDE_VALUEs <- c(
  19.5469, 19.54939, 19.54948, 19.55081, 19.55154, 19.55418, 19.55428, 19.5487, 19.54737, 19.5449, 
  19.54391, 19.54296, 19.54284, 19.54001, 19.5376, 19.53813, 19.53918, 19.5414)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.35128, 60.35195, 60.35521, 60.35565, 60.35516, 60.35403, 60.35477, 60.35235, 60.3516, 60.35126, 
  60.35127, 60.35186, 60.35205, 60.35348, 60.35369, 60.35187, 60.34908, 60.34924, 60.34844, 60.3484, 
  60.34763, 60.34823, 60.34924, 60.35032)
LONGITUDE_VALUEs <- c(
  19.53073, 19.53282, 19.53486, 19.53333, 19.53136, 19.5307, 19.52932, 19.52731, 19.5296, 19.5287, 
  19.52617, 19.52713, 19.52533, 19.52507, 19.52068, 19.51911, 19.51988, 19.52168, 19.52331, 19.52621, 
  19.53011, 19.53132, 19.53104, 19.53267)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.36201, 60.36112, 60.35649, 60.35722, 60.35477, 60.35371, 60.35208, 60.34972, 60.34953, 60.3466, 
  60.34624, 60.34417, 60.34368, 60.34279, 60.34175, 60.34072, 60.33939, 60.33866, 60.33827, 60.33881, 
  60.33743, 60.33615, 60.33483, 60.33076, 60.33002, 60.32953, 60.32724, 60.32942, 60.33421, 60.33606, 
  60.33712, 60.33847, 60.33983, 60.34238, 60.34578, 60.34946, 60.3523, 60.35447, 60.35468, 60.36114, 
  60.36141, 60.36405, 60.366, 60.36892, 60.36839, 60.36872, 60.37114, 60.37093, 60.37008, 60.36895, 
  60.36754, 60.36615, 60.36686, 60.36472, 60.36439, 60.36288)
LONGITUDE_VALUEs <- c(
  19.59658, 19.58838, 19.58263, 19.57915, 19.57945, 19.57821, 19.57988, 19.57765, 19.57426, 19.57469, 
  19.57312, 19.5729, 19.57357, 19.57192, 19.57318, 19.57241, 19.57606, 19.57563, 19.58133, 19.58273, 
  19.5867, 19.58696, 19.58494, 19.59075, 19.58953, 19.59121, 19.59244, 19.5938, 19.59498, 19.5935, 
  19.59425, 19.59305, 19.59331, 19.59575, 19.59741, 19.60142, 19.6023, 19.60423, 19.60211, 19.61146, 
  19.61376, 19.61974, 19.62144, 19.62176, 19.62316, 19.62466, 19.6241, 19.6214, 19.62144, 19.6102, 
  19.60921, 19.60576, 19.6025, 19.60108, 19.59846, 19.59842)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.34422, 60.34536, 60.3455, 60.34676, 60.34716, 60.34625, 60.34549, 60.34535, 60.34462, 60.34453, 
  60.34378, 60.34287, 60.34282, 60.34384, 60.34444, 60.34473, 60.3441, 60.34416, 60.34612, 60.34599, 
  60.34748, 60.3477, 60.34725, 60.34885, 60.34874, 60.34786, 60.34732, 60.34581, 60.34201, 60.34205, 
  60.34173, 60.3424, 60.34192, 60.34238, 60.34188, 60.3417, 60.34097, 60.34012, 60.34055, 60.3409, 
  60.34082, 60.3411, 60.34134, 60.34052, 60.34004, 60.34016, 60.34069, 60.34085, 60.3403, 60.33972, 
  60.33952, 60.33906, 60.33966, 60.34035, 60.34063, 60.34114, 60.34135, 60.3419, 60.34168, 60.3421, 
  60.34295, 60.34305, 60.34377)
LONGITUDE_VALUEs <- c(
  19.57249, 19.57239, 19.5703, 19.57148, 19.56915, 19.5673, 19.56721, 19.56595, 19.56566, 19.56639, 
  19.56577, 19.56584, 19.56463, 19.56392, 19.5646, 19.56345, 19.56324, 19.56231, 19.56252, 19.56156, 
  19.56133, 19.5606, 19.56006, 19.55951, 19.55812, 19.55765, 19.5582, 19.55533, 19.55608, 19.55716, 
  19.5575, 19.55956, 19.56051, 19.56119, 19.56169, 19.56142, 19.56327, 19.56144, 19.56054, 19.56086, 
  19.56166, 19.56161, 19.55997, 19.55957, 19.56026, 19.55845, 19.5587, 19.55826, 19.55732, 19.55792, 
  19.56168, 19.56242, 19.56463, 19.56486, 19.56615, 19.5667, 19.56558, 19.56571, 19.56702, 19.56782, 
  19.56829, 19.56911, 19.56994)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.33796, 60.33667, 60.33661, 60.34, 60.3424, 60.34377, 60.34487, 60.34373, 60.34359, 60.34256, 
  60.342, 60.34001, 60.33863)
LONGITUDE_VALUEs <- c(
  19.7305, 19.73067, 19.73282, 19.73417, 19.73621, 19.73603, 19.73172, 19.73041, 19.72887, 19.72876, 
  19.72743, 19.72773, 19.72571)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.32364, 60.32266, 60.31995, 60.31936, 60.31558, 60.31556, 60.31682, 60.31668, 60.32067, 60.31883, 
  60.31936, 60.31881, 60.3169, 60.31892, 60.31928, 60.32171, 60.32217, 60.32598, 60.32698, 60.32918, 
  60.33193, 60.3319, 60.3312, 60.32938, 60.32732, 60.32633, 60.32585, 60.32686, 60.32894, 60.32915, 
  60.32805, 60.32784, 60.32636, 60.32441, 60.32528, 60.32561)
LONGITUDE_VALUEs <- c(
  19.69733, 19.69452, 19.69415, 19.69582, 19.69733, 19.6987, 19.69947, 19.70196, 19.7055, 19.7079, 
  19.71147, 19.71556, 19.71722, 19.71994, 19.72355, 19.72494, 19.7211, 19.72331, 19.72144, 19.72159, 
  19.71827, 19.71582, 19.71535, 19.7122, 19.71376, 19.71578, 19.71458, 19.71164, 19.71102, 19.7073, 
  19.70644, 19.70505, 19.70773, 19.70591, 19.70509, 19.70005)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.32725, 60.32973, 60.33212, 60.337, 60.33693, 60.33487, 60.33496, 60.33727, 60.33886, 60.33934, 
  60.33967, 60.33999, 60.34083, 60.34157, 60.34363, 60.34241, 60.3414, 60.34124, 60.34219, 60.34944, 
  60.35225, 60.35276, 60.34808, 60.34742, 60.34573, 60.34473, 60.34375, 60.34236, 60.3412, 60.34202, 
  60.34534, 60.34993, 60.35087, 60.35016, 60.3471, 60.34675, 60.34391, 60.34395, 60.3432, 60.34383, 
  60.34321, 60.34183, 60.34044, 60.34226, 60.34088, 60.33824, 60.33575, 60.33353, 60.33232, 60.33292, 
  60.33277, 60.33381, 60.33403, 60.33269, 60.3313, 60.32991, 60.32828, 60.32818, 60.32738)
LONGITUDE_VALUEs <- c(
  19.6899, 19.69312, 19.69263, 19.694, 19.69499, 19.6963, 19.69739, 19.69812, 19.6973, 19.69561, 
  19.69587, 19.69739, 19.69651, 19.69694, 19.69595, 19.6949, 19.69542, 19.69456, 19.69316, 19.69612, 
  19.69565, 19.69413, 19.69175, 19.69348, 19.69033, 19.69108, 19.68997, 19.69147, 19.69014, 19.68861, 
  19.68831, 19.68969, 19.68724, 19.6822, 19.68295, 19.68409, 19.68417, 19.68535, 19.68492, 19.68145, 
  19.67874, 19.6798, 19.67844, 19.67753, 19.6751, 19.67556, 19.67977, 19.67918, 19.68094, 19.68118, 
  19.6823, 19.68272, 19.68438, 19.68588, 19.68444, 19.68656, 19.6868, 19.68774, 19.68834)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.39084, 60.39008, 60.3898, 60.39414, 60.39479, 60.39537, 60.39585, 60.39698, 60.39757, 60.39761, 
  60.39722, 60.39883, 60.3992, 60.40022, 60.39989, 60.40038, 60.40111, 60.40272, 60.40408, 60.404,
  60.40299, 60.4025, 60.4021, 60.40096, 60.40051, 60.39997, 60.39967, 60.39928, 60.39902, 60.399,
  60.39852, 60.3969, 60.39609, 60.39544, 60.39333, 60.39253, 60.39175, 60.39119)
LONGITUDE_VALUEs <- c(
  19.69896, 19.69876, 19.69969, 19.70093, 19.6989, 19.70072, 19.69723, 19.69962, 19.69975, 19.69908,
  19.69861, 19.69837, 19.69883, 19.698, 19.69652, 19.69611, 19.69717, 19.69788, 19.69726, 19.69476, 
  19.69432, 19.69479, 19.69445, 19.69511, 19.69573, 19.6949, 19.69339, 19.69351, 19.69278, 19.69177,
  19.69116, 19.69092, 19.69117, 19.69186, 19.69268, 19.69498, 19.69591, 19.69849)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.40128, 60.40006, 60.39876, 60.39722, 60.39728, 60.39925, 60.40043, 60.40253, 60.40346, 60.40254, 
  60.4033, 60.4022, 60.39965, 60.39475, 60.3922, 60.39382, 60.39188, 60.40086, 60.40311, 60.40382)
LONGITUDE_VALUEs <- c(
  19.74522, 19.74592, 19.74343, 19.74354, 19.74094, 19.74013, 19.73758, 19.73751, 19.73667, 19.7347, 
  19.73339, 19.73296, 19.73751, 19.73912, 19.74281, 19.74399, 19.74719, 19.7507, 19.75067, 19.74997)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.38008, 60.38172, 60.38291, 60.38291, 60.38112, 60.38129, 60.37857, 60.36788, 60.36715, 60.36593, 
  60.36555, 60.37228, 60.37514)
LONGITUDE_VALUEs <- c(
  19.77266, 19.77433, 19.77427, 19.7733, 19.77049, 19.76899, 19.77015, 19.7692, 19.76841, 19.76893, 
  19.77521, 19.77899, 19.77905)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(60.42624, 60.42729, 60.43191, 60.435, 60.4346, 60.43138, 60.42842)
LONGITUDE_VALUEs <- c(19.73165, 19.73572, 19.7428, 19.73976, 19.73633, 19.7353, 19.73122)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(60.43018, 60.43121, 60.4368, 60.43778, 60.43242, 60.43075)
LONGITUDE_VALUEs <- c(19.7595, 19.7631, 19.76353, 19.76027, 19.75332, 19.75645)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.42835, 60.41581, 60.40811, 60.40796, 60.40861, 60.40844, 60.40772, 60.40717, 60.40095, 60.40025, 
  60.39892, 60.39833, 60.39435, 60.39421, 60.3969, 60.39104, 60.39183, 60.39311, 60.39417, 60.3968, 
  60.39927, 60.40026, 60.40092, 60.40045, 60.39902, 60.39673, 60.39546, 60.39391, 60.39256, 60.39073, 
  60.38831, 60.38763, 60.38371, 60.38217, 60.38606, 60.38962, 60.39083, 60.39169, 60.39204, 60.39483, 
  60.39539, 60.39633, 60.39697, 60.40649, 60.4142, 60.41043, 60.41749, 60.42107, 60.41954, 60.42043, 
  60.41742, 60.41382, 60.41471, 60.41355, 60.41003, 60.40806, 60.40519, 60.40462, 60.40494, 60.40586, 
  60.40751, 60.40932, 60.41194, 60.4119, 60.41094, 60.41135, 60.41007, 60.40983, 60.40905, 60.40747, 
  60.40409, 60.40357, 60.40267, 60.40234, 60.40394, 60.40567, 60.40604, 60.40535, 60.40659, 60.40656, 
  60.40818, 60.4093, 60.41354, 60.41736, 60.42032, 60.42418, 60.42525, 60.4255, 60.42532, 60.42625, 
  60.42725, 60.42809, 60.42965, 60.42762, 60.42944)
LONGITUDE_VALUEs <- c(
  19.75293, 19.75053, 19.75524, 19.75637, 19.7571, 19.75991, 19.76046, 19.75944, 19.76118, 19.76305, 
  19.76112, 19.76313, 19.76461, 19.76517, 19.76646, 19.77083, 19.7733, 19.77352, 19.77244, 19.77279, 
  19.77412, 19.7727, 19.77305, 19.77607, 19.77489, 19.77513, 19.77474, 19.7759, 19.77568, 19.77755, 
  19.77468, 19.77223, 19.77403, 19.78034, 19.78491, 19.78654, 19.78547, 19.78658, 19.79015, 19.79176, 
  19.7927, 19.79257, 19.79131, 19.79512, 19.79997, 19.8028, 19.80589, 19.80567, 19.80318, 19.80151, 
  19.80108, 19.79749, 19.79604, 19.79033, 19.7873, 19.78837, 19.78739, 19.78631, 19.78509, 19.78578, 
  19.78262, 19.78395, 19.78159, 19.77863, 19.77779, 19.77631, 19.77539, 19.77702, 19.77599, 19.77586, 
  19.77393, 19.77207, 19.7714, 19.76928, 19.76801, 19.76898, 19.76797, 19.76726, 19.76537, 19.7638, 
  19.76108, 19.76378, 19.76825, 19.76777, 19.77123, 19.77189, 19.7711, 19.77168, 19.77273, 19.77402, 
  19.77267, 19.77314, 19.76883, 19.76382, 19.76236)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.3583, 60.35911, 60.3583, 60.35839, 60.35935, 60.35913, 60.36307, 60.36381, 60.36628, 60.36681, 
  60.36759, 60.36758, 60.36857, 60.36917, 60.3702, 60.37228, 60.37347, 60.37576, 60.37642, 60.37729, 
  60.37763, 60.37926, 60.37943, 60.38042, 60.38067, 60.38135, 60.38201, 60.38194, 60.38277, 60.38181, 
  60.38115, 60.38039, 60.37761, 60.37486, 60.37377, 60.37369, 60.37238, 60.37197, 60.37184, 60.37298, 
  60.36984, 60.36707, 60.36615, 60.36482, 60.3643, 60.36501, 60.36484, 60.36179)
LONGITUDE_VALUEs <- c(
  19.70357, 19.70481, 19.70649, 19.70727, 19.70818, 19.7099, 19.71142, 19.71241, 19.71028, 19.70872, 
  19.70869, 19.70769, 19.70763, 19.70678, 19.70734, 19.70719, 19.70421, 19.70234, 19.69923, 19.69942, 
  19.70084, 19.70116, 19.69925, 19.69914, 19.69788, 19.69764, 19.69603, 19.6932, 19.69071, 19.68908, 
  19.68957, 19.68912, 19.69146, 19.6902, 19.69114, 19.69279, 19.69511, 19.69466, 19.69318, 19.68955, 
  19.68642, 19.68736, 19.68925, 19.68996, 19.69086, 19.69138, 19.69331, 19.69496)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.371, 60.3724, 60.37519, 60.37483, 60.37558, 60.37623, 60.37746, 60.37779, 60.38137, 60.38199, 
  60.3806, 60.38108, 60.38199, 60.38286, 60.38517, 60.38573, 60.38986, 60.39016, 60.39112, 60.39403, 
  60.39412, 60.395, 60.39354, 60.39271, 60.39113, 60.39209, 60.39259, 60.39395, 60.39582, 60.39586, 
  60.39542, 60.39476, 60.39398, 60.39255, 60.39211, 60.39074, 60.38915, 60.38791, 60.38743, 60.38822, 
  60.38839, 60.38626, 60.38292, 60.38119, 60.38056, 60.37698, 60.37669, 60.37715, 60.37799, 60.37791, 
  60.37713, 60.37629, 60.37542, 60.37391, 60.37313, 60.37102)
LONGITUDE_VALUEs <- c(
  19.72004, 19.72232, 19.73064, 19.7326, 19.73747, 19.73758, 19.73552, 19.73745, 19.73995, 19.73958, 
  19.73635, 19.7354, 19.73505, 19.73417, 19.73655, 19.73848, 19.7397, 19.73817, 19.73714, 19.73589, 
  19.73521, 19.7343, 19.73404, 19.7344, 19.73393, 19.7321, 19.72865, 19.72614, 19.71755, 19.71369, 
  19.71226, 19.71213, 19.71028, 19.70881, 19.71004, 19.71019, 19.71278, 19.71339, 19.71262, 19.71125, 
  19.7088, 19.70535, 19.70258, 19.70299, 19.70558, 19.70608, 19.71019, 19.71163, 19.71255, 19.71312, 
  19.71232, 19.71456, 19.71434, 19.71547, 19.7149, 19.71823)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.3373, 60.33805, 60.34196, 60.34404, 60.34654, 60.34793, 60.34925, 60.35815, 60.3591, 60.35804, 
  60.35633, 60.35678, 60.35828, 60.36222, 60.36444, 60.36468, 60.3642, 60.36427, 60.36559, 60.36696, 
  60.36832, 60.3689, 60.37195, 60.37196, 60.37417, 60.37432, 60.37596, 60.37584, 60.37388, 60.37397, 
  60.37452, 60.37548, 60.37544, 60.37421, 60.37452, 60.37289, 60.37257, 60.37168, 60.37101, 60.36793, 
  60.36364, 60.36097, 60.35892, 60.35648, 60.35607, 60.35628, 60.355, 60.35403, 60.35403, 60.35534, 
  60.35318, 60.35333, 60.3572, 60.35742, 60.35873, 60.35899, 60.36266, 60.36379, 60.36509, 60.36514, 
  60.36419, 60.36359, 60.36254, 60.36136, 60.3609, 60.36041, 60.36105, 60.36038, 60.36057, 60.3567, 
  60.35546, 60.3506, 60.35339, 60.35, 60.34787, 60.34614, 60.33922, 60.337, 60.33698, 60.33582)
LONGITUDE_VALUEs <- c(
  19.77216, 19.77533, 19.77473, 19.77671, 19.77649, 19.77124, 19.77573, 19.78077, 19.77882, 19.77313, 
  19.77298, 19.76837, 19.76678, 19.76768, 19.76017, 19.75732, 19.75702, 19.7565, 19.75614, 19.75753, 
  19.76114, 19.76429, 19.76764, 19.76498, 19.7671, 19.76532, 19.76586, 19.76129, 19.75837, 19.75498, 
  19.75431, 19.7565, 19.75429, 19.75191, 19.75039, 19.74762, 19.74393, 19.74262, 19.73867, 19.73262, 
  19.72904, 19.72981, 19.72951, 19.73333, 19.73247, 19.73116, 19.73125, 19.73303, 19.73464, 19.73566, 
  19.73794, 19.73975, 19.73685, 19.73814, 19.73904, 19.73763, 19.74582, 19.74644, 19.74824, 19.7493, 
  19.74985, 19.75131, 19.75118, 19.75724, 19.75752, 19.7549, 19.75256, 19.74917, 19.74468, 19.74258, 
  19.74756, 19.75333, 19.75821, 19.76475, 19.7687, 19.76692, 19.76726, 19.76917, 19.77018, 19.77157)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.3853, 60.38627, 60.38613, 60.3854, 60.38617, 60.386, 60.38504, 60.38446, 60.38271, 60.38257, 
  60.38367, 60.38298, 60.38196, 60.38099, 60.3817, 60.38133, 60.38097, 60.38029, 60.3802, 60.37965, 
  60.3783, 60.37726, 60.37768, 60.37716, 60.37929, 60.37929, 60.37891, 60.37796, 60.37795, 60.37705, 
  60.37796, 60.37462, 60.37389, 60.37392, 60.37442, 60.37444, 60.37495, 60.37517, 60.37603, 60.37639, 
  60.37622, 60.37593, 60.37618, 60.37548, 60.37563, 60.37552, 60.37506, 60.37514, 60.37489, 60.37518, 
  60.37506, 60.37475, 60.37469, 60.37491, 60.37506, 60.3752, 60.37533, 60.37567, 60.37627, 60.38069)
LONGITUDE_VALUEs <- c(
  19.977, 19.9728, 19.96902, 19.96833, 19.9664, 19.96057, 19.96134, 19.95992, 19.96018, 19.95937, 
  19.95784, 19.95578, 19.95877, 19.95776, 19.95555, 19.95519, 19.95363, 19.95324, 19.9521, 19.95119, 
  19.95132, 19.95296, 19.95441, 19.95593, 19.95705, 19.95751, 19.95757, 19.95886, 19.95997, 19.96165, 
  19.96208, 19.96387, 19.96529, 19.96674, 19.96706, 19.96736, 19.96701, 19.96805, 19.96816, 19.96945, 
  19.97044, 19.97052, 19.97146, 19.97217, 19.97386, 19.97494, 19.97562, 19.97625, 19.97676, 19.97751, 
  19.97807, 19.97827, 19.9787, 19.97876, 19.97953, 19.97952, 19.97886, 19.97881, 19.97812, 19.98054)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.378, 60.37923, 60.37957, 60.38053, 60.38127, 60.38222, 60.38233, 60.38625, 60.38939, 60.39025, 
  60.39026, 60.39252, 60.39202, 60.39734, 60.39804, 60.39773, 60.39981, 60.401, 60.40172, 60.40249, 
  60.40256, 60.40448, 60.40401, 60.40426, 60.40324, 60.40324, 60.39949, 60.39876, 60.40027, 60.39977, 
  60.39676, 60.39676, 60.39573, 60.39646, 60.39548, 60.39551, 60.39475, 60.39191, 60.3877, 60.38873, 
  60.38016)
LONGITUDE_VALUEs <- c(
  19.99022, 19.99185, 19.99483, 19.99529, 19.99121, 19.9925, 19.99436, 19.99651, 19.99567, 19.99342, 
  19.99147, 19.98769, 19.9846, 19.9858, 19.98745, 19.98902, 19.99074, 19.99102, 19.98971, 19.99042, 
  19.99175, 19.99147, 19.99046, 19.98872, 19.98664, 19.98527, 19.98524, 19.98224, 19.98194, 19.97924, 
  19.98076, 19.97917, 19.97821, 19.97668, 19.97495, 19.97248, 19.97145, 19.97207, 19.97713, 19.97891, 
  19.98492)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.37904, 60.38034, 60.38229, 60.3801, 60.37424, 60.375, 60.37628, 60.37724, 60.37776, 60.37701, 
  60.37699, 60.37778, 60.37776)
LONGITUDE_VALUEs <- c(
  20.08, 20.08257, 20.07798, 20.07472, 20.07863, 20.08384, 20.08657, 20.08747, 20.08648, 20.08545, 
  20.08393, 20.08326, 20.08099)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.38856, 60.38494, 60.38315, 60.38283, 60.38328, 60.38145, 60.38166, 60.38264, 60.38565, 60.38604, 
  60.38308, 60.38443, 60.38425, 60.38264, 60.3828, 60.38178, 60.37943, 60.38046, 60.38022, 60.38281, 
  60.38355, 60.38515, 60.38531, 60.38517, 60.38718, 60.38832, 60.38862, 60.38793, 60.3881, 60.38714, 
  60.38524, 60.38423, 60.38412, 60.3851, 60.38558, 60.38625, 60.38666, 60.38788, 60.38866, 60.39047, 
  60.39168, 60.39215, 60.39154, 60.39238, 60.39218, 60.3926, 60.39116, 60.39113, 60.39264, 60.39347, 
  60.39278, 60.39071)
LONGITUDE_VALUEs <- c(
  20.02185, 20.0223, 20.02445, 20.02614, 20.02805, 20.03316, 20.03361, 20.03273, 20.03378, 20.03696, 
  20.04155, 20.04264, 20.0435, 20.04445, 20.04739, 20.0499, 20.05129, 20.05271, 20.05477, 20.0567, 
  20.05567, 20.05657, 20.05468, 20.05296, 20.0514, 20.05206, 20.05022, 20.04977, 20.04846, 20.04865, 
  20.04642, 20.04676, 20.04561, 20.04541, 20.04372, 20.0441, 20.04275, 20.04309, 20.04419, 20.04322, 
  20.04344, 20.04284, 20.04181, 20.04088, 20.03949, 20.03732, 20.03546, 20.03389, 20.03312, 20.03084, 
  20.03067, 20.0247)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.3582, 60.35667, 60.35674, 60.35842, 60.35823, 60.36049, 60.36128, 60.36216, 60.36155, 60.36272, 
  60.36129, 60.35949, 60.35847)
LONGITUDE_VALUEs <- c(
  20.13925, 20.14161, 20.14246, 20.14424, 20.14663, 20.14721, 20.1483, 20.14643, 20.14538, 20.13575, 
  20.13423, 20.1347, 20.13689)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.39073, 60.39202, 60.38976, 60.38624, 60.38479, 60.37955, 60.37845, 60.3761, 60.37638, 60.37528, 
  60.37565, 60.37469, 60.38123, 60.39198, 60.39285)
LONGITUDE_VALUEs <- c(
  20.12568, 20.123, 20.11841, 20.11603, 20.10886, 20.10594, 20.10931, 20.11137, 20.11337, 20.11607, 
  20.11736, 20.12064, 20.13111, 20.13249, 20.12914)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.38519, 60.38969, 60.39868, 60.40018, 60.39997, 60.40364, 60.40521, 60.40639, 60.40427, 60.40576, 
  60.40451, 60.40495, 60.39736, 60.39408, 60.39058, 60.38873, 60.38714, 60.38638, 60.38613, 60.38521, 
  60.38341, 60.38135)
LONGITUDE_VALUEs <- c(
  20.09983, 20.1124, 20.12034, 20.11931, 20.11588, 20.11601, 20.1185, 20.11588, 20.1076, 20.10425, 
  20.10103, 20.09858, 20.0942, 20.08017, 20.08103, 20.07781, 20.07837, 20.08618, 20.09069, 20.09111, 
  20.08785, 20.09639)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.43499, 60.43499, 60.43707, 60.43961, 60.44043, 60.44164, 60.44149, 60.43969, 60.4387, 60.43639, 
  60.43275, 60.43378)
LONGITUDE_VALUEs <- c(
  20.07768, 20.0818, 20.08111, 20.08227, 20.08038, 20.0809, 20.07506, 20.07309, 20.07747, 20.07343, 
  20.07832, 20.07953)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(60.42529, 60.42849, 60.43114, 60.42991, 60.42572)
LONGITUDE_VALUEs <- c(20.08858, 20.09249, 20.08309, 20.07381, 20.08128)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.41944, 60.4199, 60.42204, 60.42322, 60.42359, 60.42402, 60.42457, 60.42476, 60.42542, 60.42638, 
  60.42827, 60.42925, 60.42975, 60.42814, 60.42881, 60.43282, 60.43368, 60.4344, 60.43561, 60.43584, 
  60.43652, 60.4377, 60.44072, 60.44057, 60.4396, 60.43934, 60.43898, 60.43892, 60.43825, 60.43783, 
  60.43716, 60.43661, 60.43724, 60.439, 60.43946, 60.43977, 60.43976, 60.44014, 60.4402, 60.44107, 
  60.44134, 60.44012, 60.44052, 60.44086, 60.44104, 60.4409, 60.44164, 60.44085, 60.44017, 60.4393, 
  60.43806, 60.43731, 60.43693, 60.43605, 60.43558, 60.43521, 60.43522, 60.43563, 60.43665, 60.43673, 
  60.43756, 60.43777, 60.43911, 60.43912, 60.43849, 60.43946, 60.43962, 60.439, 60.43918, 60.43736, 
  60.43667, 60.43511, 60.43529, 60.43487, 60.43482, 60.43434, 60.4343, 60.43387, 60.43388, 60.43302, 
  60.43136, 60.43119, 60.43191, 60.43144, 60.4311, 60.43084, 60.43061, 60.4308, 60.43111, 60.43099, 
  60.43032, 60.42995, 60.42949, 60.42819, 60.42795, 60.42651, 60.42661, 60.42832, 60.42942, 60.42991, 
  60.43029, 60.43087, 60.4304, 60.43056, 60.43142, 60.43152, 60.433, 60.43315, 60.4326, 60.43228, 
  60.43015, 60.42933, 60.43009, 60.43024, 60.43094, 60.43053, 60.42973, 60.428, 60.42609, 60.42599, 
  60.42472, 60.42459, 60.42412, 60.42401, 60.42308, 60.42247, 60.42171, 60.42154)
LONGITUDE_VALUEs <- c(
  20.0641, 20.06616, 20.06653, 20.0659, 20.06517, 20.06586, 20.06532, 20.06397, 20.06498, 20.06541, 
  20.06234, 20.06193, 20.06359, 20.06908, 20.0703, 20.07114, 20.06895, 20.06962, 20.06922, 20.06758, 
  20.06877, 20.06818, 20.06907, 20.06787, 20.06684, 20.06497, 20.06448, 20.06126, 20.06123, 20.06205, 
  20.0622, 20.0611, 20.05897, 20.05799, 20.05714, 20.05753, 20.06, 20.0604, 20.06125, 20.06128, 
  20.06078, 20.05974, 20.05887, 20.05929, 20.05854, 20.05779, 20.0539, 20.0516, 20.0516, 20.05348, 
  20.05443, 20.0544, 20.0553, 20.05627, 20.05561, 20.05557, 20.05449, 20.0532, 20.0536, 20.05282, 
  20.05324, 20.05272, 20.0522, 20.05137, 20.04962, 20.04798, 20.04519, 20.0445, 20.04328, 20.04118, 
  20.04131, 20.04311, 20.04161, 20.04105, 20.04044, 20.04029, 20.03933, 20.03893, 20.03829, 20.03768, 
  20.03838, 20.03787, 20.03738, 20.03605, 20.03587, 20.03534, 20.03543, 20.03645, 20.03658, 20.0374, 
  20.03824, 20.03809, 20.04005, 20.04122, 20.04233, 20.04371, 20.04436, 20.04586, 20.04541, 20.04465, 
  20.04516, 20.04462, 20.04623, 20.04669, 20.04656, 20.04509, 20.04557, 20.0463, 20.04753, 20.04709, 
  20.04854, 20.04991, 20.05102, 20.05308, 20.05505, 20.05723, 20.05811, 20.05848, 20.05947, 20.06002, 
  20.06125, 20.06208, 20.06273, 20.06368, 20.06383, 20.0634, 20.06388, 20.0631)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.42357, 60.42438, 60.42443, 60.4261, 60.42861, 60.42855, 60.42922, 60.42885, 60.42975, 60.43024, 
  60.43114, 60.43351, 60.4345, 60.43493, 60.43684, 60.43883, 60.43913, 60.43956, 60.43964, 60.44053, 
  60.44107, 60.44107, 60.43958, 60.43924, 60.43975, 60.44003, 60.43979, 60.4391, 60.43926, 60.44047, 
  60.44099, 60.43986, 60.44021, 60.4411, 60.44203, 60.44214, 60.44163, 60.4412, 60.44109, 60.44077, 
  60.44001, 60.4399, 60.43923, 60.43857, 60.43804, 60.43769, 60.43648, 60.43643, 60.43384, 60.43407, 
  60.43472, 60.4353, 60.43562, 60.43566, 60.43491, 60.43473, 60.43419, 60.43443, 60.43387, 60.43486, 
  60.43507, 60.43601, 60.43612, 60.43639, 60.43766, 60.43733, 60.43745, 60.43702, 60.43748, 60.43707, 
  60.43647, 60.43671, 60.43568, 60.43599, 60.4357, 60.43576, 60.4363, 60.43679, 60.43753, 60.43752, 
  60.43726, 60.43697, 60.4366, 60.43604, 60.43651, 60.43574, 60.43577, 60.4352, 60.435, 60.43448, 
  60.43372, 60.43356, 60.43303, 60.43318, 60.43242, 60.43195, 60.43121, 60.43173, 60.4306, 60.4284, 
  60.42858, 60.42664, 60.42741, 60.42715, 60.42601, 60.42507, 60.42558, 60.42506, 60.42439, 60.42467, 
  60.4236, 60.42296, 60.42312, 60.42288, 60.42197, 60.42151, 60.42152, 60.42198, 60.4215, 60.42223, 
  60.42127, 60.42091, 60.42251, 60.42308)
LONGITUDE_VALUEs <- c(
  20.03556, 20.03805, 20.03968, 20.04256, 20.0387, 20.03785, 20.03588, 20.0345, 20.03378, 20.03262, 
  20.03284, 20.03538, 20.03563, 20.03487, 20.03531, 20.0342, 20.03215, 20.03137, 20.03061, 20.03125, 
  20.03074, 20.02965, 20.02875, 20.02792, 20.02734, 20.0255, 20.02449, 20.02391, 20.02327, 20.02199, 
  20.01947, 20.01863, 20.01701, 20.01804, 20.01619, 20.01393, 20.01323, 20.01372, 20.01258, 20.01225, 
  20.00916, 20.00741, 20.0063, 20.00708, 20.00645, 20.00516, 20.00445, 20.00311, 20.00434, 20.00966, 
  20.00979, 20.00895, 20.00931, 20.01049, 20.01142, 20.01273, 20.01329, 20.0156, 20.01706, 20.01737, 
  20.0156, 20.01577, 20.01666, 20.01663, 20.01901, 20.0199, 20.02051, 20.02122, 20.02159, 20.02313, 
  20.02308, 20.02356, 20.02435, 20.02504, 20.02555, 20.02598, 20.0263, 20.02596, 20.02621, 20.02673, 
  20.02671, 20.02732, 20.02711, 20.02724, 20.02835, 20.02998, 20.02887, 20.02899, 20.03029, 20.03099, 
  20.03015, 20.02841, 20.02793, 20.02593, 20.0252, 20.02351, 20.02293, 20.02229, 20.0218, 20.0231, 
  20.02411, 20.02444, 20.02666, 20.02825, 20.02946, 20.03147, 20.03335, 20.03478, 20.03345, 20.0322, 
  20.02856, 20.02834, 20.02791, 20.02694, 20.02686, 20.02725, 20.02781, 20.02851, 20.03024, 20.03222, 
  20.03231, 20.03279, 20.03502, 20.03514)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.46203, 60.46248, 60.46224, 60.4628, 60.46298, 60.46336, 60.46376, 60.46411, 60.46453, 60.46456, 
  60.46493, 60.46511, 60.46565, 60.46637, 60.46637, 60.46581, 60.46586, 60.46619, 60.46695, 60.46675, 
  60.46694, 60.46724, 60.46719, 60.46758, 60.46788, 60.46794, 60.46783, 60.46777, 60.46742, 60.46737, 
  60.46691, 60.46702, 60.46559, 60.46559, 60.4651, 60.46552, 60.46585, 60.46607, 60.46573, 60.46566, 
  60.46484, 60.46468, 60.46384, 60.46234, 60.46208, 60.46159, 60.46115, 60.46133, 60.46112, 60.46086, 
  60.46075, 60.46155)
LONGITUDE_VALUEs <- c(
  20.13027, 20.13207, 20.13313, 20.13357, 20.13511, 20.13416, 20.135, 20.13502, 20.1334, 20.13116, 
  20.13129, 20.13192, 20.13226, 20.13223, 20.13066, 20.13005, 20.12974, 20.12978, 20.12829, 20.12569, 
  20.12585, 20.12545, 20.12455, 20.12503, 20.12497, 20.12461, 20.12444, 20.12402, 20.12348, 20.1231, 
  20.1227, 20.12066, 20.11977, 20.12045, 20.12168, 20.12344, 20.12329, 20.12411, 20.12402, 20.12462, 
  20.12351, 20.12236, 20.12122, 20.12124, 20.12173, 20.12186, 20.12311, 20.12514, 20.1274, 20.1274, 
  20.12824, 20.12995)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.3777, 60.37651, 60.37662, 60.38145, 60.38246, 60.3835, 60.38286, 60.38162, 60.38212, 60.38134, 
  60.38091, 60.38037)
LONGITUDE_VALUEs <- c(
  20.52488, 20.52769, 20.53113, 20.53458, 20.5345, 20.53162, 20.53126, 20.52825, 20.52686, 20.52581, 
  20.52606, 20.52467)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.32624, 60.32898, 60.32927, 60.33057, 60.33217, 60.33371, 60.33375, 60.33453, 60.33499, 60.33654, 
  60.33626, 60.33674, 60.33499, 60.33348, 60.33225, 60.32897, 60.32723)
LONGITUDE_VALUEs <- c(
  20.53278, 20.53237, 20.53447, 20.53426, 20.53615, 20.53379, 20.53548, 20.53666, 20.5342, 20.53407, 
  20.53248, 20.53008, 20.52924, 20.53106, 20.52896, 20.52791, 20.5296)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.40824, 60.40684, 60.40819, 60.41027, 60.41135, 60.41288, 60.41309, 60.40968, 60.40868, 60.41097, 
  60.40892, 60.40417, 60.4041)
LONGITUDE_VALUEs <- c(
  20.48456, 20.48898, 20.4919, 20.4901, 20.49589, 20.49396, 20.48868, 20.48868, 20.48667, 20.48083, 
  20.48014, 20.48491, 20.48907)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.43213, 60.43187, 60.43209, 60.43385, 60.43404, 60.43436, 60.43425, 60.43546, 60.43569, 60.43665, 
  60.43683, 60.43647, 60.43696, 60.43727, 60.43768, 60.43768, 60.43737, 60.43742, 60.439, 60.43847, 
  60.43937, 60.43928, 60.44062, 60.44088, 60.44249, 60.44304, 60.44127, 60.44021, 60.44011, 60.43971, 
  60.43955, 60.43994, 60.43949, 60.43899, 60.43892, 60.43576, 60.43508, 60.43452, 60.43389, 60.43315, 
  60.43269, 60.43172, 60.43137, 60.43179, 60.43208, 60.43239, 60.43243, 60.43057, 60.43036, 60.43099, 
  60.43161)
LONGITUDE_VALUEs <- c(
  20.38453, 20.38537, 20.38652, 20.38655, 20.38416, 20.38429, 20.38715, 20.38792, 20.3868, 20.38788, 
  20.38723, 20.38588, 20.38532, 20.38663, 20.38668, 20.38792, 20.38796, 20.38869, 20.38961, 20.39144, 
  20.39204, 20.39075, 20.39155, 20.39262, 20.39139, 20.38925, 20.3871, 20.38948, 20.38833, 20.38848, 
  20.3874, 20.38689, 20.3818, 20.38133, 20.38039, 20.37704, 20.37753, 20.37492, 20.37577, 20.3732, 
  20.37367, 20.37305, 20.37459, 20.37515, 20.37462, 20.37481, 20.3768, 20.37929, 20.38135, 20.38313, 
  20.38358)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.43689, 60.43902, 60.43979, 60.44123, 60.4423, 60.44377, 60.44433, 60.44434, 60.44509, 60.44592, 
  60.44649, 60.44649, 60.44547, 60.44525, 60.44481, 60.44462, 60.44423, 60.44387, 60.44344, 60.44237, 
  60.44157, 60.44148, 60.44231, 60.44298, 60.44413, 60.44444, 60.44376, 60.44438, 60.44519, 60.44512, 
  60.44681, 60.44698, 60.44739, 60.44756, 60.44438, 60.44129, 60.44134, 60.44073, 60.44073, 60.43814, 
  60.43824, 60.4371)
LONGITUDE_VALUEs <- c(
  20.1653, 20.16599, 20.16414, 20.16433, 20.16747, 20.16747, 20.16637, 20.16553, 20.16553, 20.1664, 
  20.16576, 20.16456, 20.16418, 20.16271, 20.16302, 20.16435, 20.16477, 20.16281, 20.16295, 20.15911, 
  20.15931, 20.15803, 20.15764, 20.15947, 20.15917, 20.16037, 20.16164, 20.16185, 20.16094, 20.1596, 
  20.15967, 20.15841, 20.15856, 20.1564, 20.15523, 20.15518, 20.15715, 20.15726, 20.15944, 20.16025, 
  20.16209, 20.16325)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.45328, 60.45357, 60.45663, 60.45742, 60.45786, 60.45858, 60.45956, 60.46007, 60.45941, 60.46027, 
  60.46128, 60.46151, 60.46219, 60.46188, 60.46046, 60.4598, 60.45946, 60.4592, 60.45858, 60.45629, 
  60.45584, 60.45496, 60.4542, 60.45398, 60.45374, 60.45335)
LONGITUDE_VALUEs <- c(
  20.19323, 20.195, 20.19734, 20.19716, 20.19788, 20.19666, 20.19669, 20.19515, 20.19235, 20.19243, 
  20.19103, 20.18935, 20.18826, 20.18777, 20.18856, 20.18766, 20.188, 20.19001, 20.18918, 20.18941, 
  20.19016, 20.18968, 20.19166, 20.19133, 20.19252, 20.19246)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.44975, 60.44848, 60.44935, 60.44954, 60.45231, 60.45292, 60.45399, 60.45378, 60.4545, 60.45631, 
  60.45913, 60.45954, 60.46013, 60.46043, 60.46067, 60.46065, 60.46131, 60.46197, 60.4629, 60.46326, 
  60.46311, 60.46345, 60.46423, 60.46426, 60.4635, 60.46349, 60.4645, 60.46451, 60.46324, 60.46225, 
  60.46224, 60.46199, 60.46251, 60.46199, 60.46149, 60.45848, 60.45749, 60.45799, 60.45727, 60.4575, 
  60.458, 60.46049, 60.46025, 60.45964, 60.45778, 60.457, 60.45548, 60.45551, 60.45676, 60.4565, 
  60.456, 60.45624, 60.457, 60.45549, 60.45577, 60.45626, 60.45699, 60.45624, 60.45601, 60.45548, 
  60.45445, 60.45325, 60.45296, 60.45194, 60.45167, 60.44948)
LONGITUDE_VALUEs <- c(
  20.22146, 20.22422, 20.22525, 20.22703, 20.2303, 20.23251, 20.231, 20.22873, 20.22753, 20.23186, 
  20.22849, 20.22995, 20.22976, 20.23042, 20.23009, 20.23115, 20.23164, 20.23514, 20.23596, 20.23467, 
  20.23311, 20.23358, 20.23294, 20.2319, 20.23122, 20.22973, 20.22728, 20.22498, 20.22297, 20.22251, 
  20.22198, 20.22149, 20.22025, 20.21424, 20.21347, 20.21571, 20.21348, 20.21281, 20.21103, 20.21048, 
  20.21099, 20.2098, 20.209, 20.20947, 20.20574, 20.20648, 20.20902, 20.2105, 20.21062, 20.21174, 
  20.212, 20.21276, 20.21351, 20.2153, 20.21675, 20.21624, 20.21675, 20.21751, 20.21954, 20.22, 
  20.21779, 20.21722, 20.2155, 20.21604, 20.21538, 20.21847)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.44076, 60.44247, 60.44534, 60.4475, 60.44674, 60.4452, 60.444, 60.44502, 60.44475, 60.44345, 
  60.44376, 60.44296, 60.4425, 60.44199, 60.44129, 60.44071, 60.44178, 60.44097, 60.44125)
LONGITUDE_VALUEs <- c(
  20.22725, 20.22973, 20.23175, 20.23195, 20.22894, 20.22854, 20.22678, 20.22577, 20.22173, 20.22094, 
  20.2195, 20.21822, 20.21899, 20.21847, 20.21465, 20.21502, 20.22246, 20.22379, 20.22617)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.43851, 60.44005, 60.4423, 60.4438, 60.445, 60.44549, 60.44752, 60.44722, 60.4478, 60.44701, 
  60.44596, 60.44525, 60.44585, 60.44514, 60.44447, 60.44425, 60.44353, 60.44349, 60.44248, 60.44191, 
  60.44035, 60.43836, 60.43803, 60.43917)
LONGITUDE_VALUEs <- c(
  20.23974, 20.24439, 20.24547, 20.24776, 20.24851, 20.25029, 20.24995, 20.24755, 20.2448, 20.24319, 
  20.24371, 20.24326, 20.24137, 20.24145, 20.24055, 20.2389, 20.23869, 20.2357, 20.23545, 20.23624, 
  20.23538, 20.23661, 20.23845, 20.23834)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.44625, 60.44675, 60.44724, 60.44802, 60.44877, 60.44797, 60.44721, 60.44585, 60.44575, 60.44379,
  60.44349, 60.44224, 60.44251, 60.443, 60.44275, 60.44109, 60.43956, 60.44104)
LONGITUDE_VALUEs <- c(
  20.27173, 20.26952, 20.27042, 20.27023, 20.268, 20.2681, 20.26574, 20.26641, 20.26227, 20.26203,
  20.25898, 20.2589, 20.2575, 20.25776, 20.25575, 20.25508, 20.25849, 20.26527)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.43875, 60.43632, 60.435, 60.43592, 60.43443, 60.4357, 60.4355, 60.43772, 60.43957, 60.44122, 
  60.44051, 60.44002, 60.43924)
LONGITUDE_VALUEs <- c(
  20.2607, 20.25907, 20.25997, 20.2619, 20.26551, 20.27034, 20.27336, 20.27622, 20.27591, 20.26615, 
  20.26497, 20.26617, 20.26579)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.41488, 60.41828, 60.42038, 60.42275, 60.42305, 60.42631, 60.42879, 60.42944, 60.42868, 60.42894, 
  60.43165, 60.43332, 60.434, 60.42923, 60.42658, 60.42452, 60.42317, 60.42149, 60.42002, 60.41823, 
  60.41525)
LONGITUDE_VALUEs <- c(
  20.26346, 20.26496, 20.25952, 20.26325, 20.26591, 20.27011, 20.26788, 20.27054, 20.27217, 20.2738, 
  20.27325, 20.2735, 20.26788, 20.26608, 20.25596, 20.25306, 20.25344, 20.25091, 20.25329, 20.25295, 
  20.25982)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.40974, 60.40724, 60.40989, 60.41491, 60.4157, 60.41487, 60.41519, 60.41722, 60.41786, 60.419, 
  60.41926, 60.42031, 60.41983, 60.41654, 60.41339, 60.41256, 60.41017)
LONGITUDE_VALUEs <- c(
  20.28316, 20.28741, 20.29582, 20.29835, 20.29724, 20.29483, 20.29157, 20.29102, 20.29831, 20.29728, 
  20.29312, 20.29162, 20.28578, 20.28608, 20.28337, 20.27887, 20.27818)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.39621, 60.39242, 60.39229, 60.39602, 60.39726, 60.39703, 60.39913, 60.39836, 60.40037, 60.40038,
  60.39948, 60.40054, 60.40068, 60.39985, 60.39955, 60.4006, 60.40125, 60.40183, 60.40158, 60.40221, 
  60.40351, 60.40225, 60.4016, 60.4015, 60.39929, 60.39748, 60.39748, 60.39537)
LONGITUDE_VALUEs <- c(
  20.28514, 20.28739, 20.2908, 20.29181, 20.29046, 20.28943, 20.28715, 20.28514, 20.28282, 20.2802,
  20.27945, 20.27857, 20.27711, 20.27664, 20.27507, 20.274, 20.27555, 20.27582, 20.27694, 20.27754, 
  20.27342, 20.26872, 20.2687, 20.26743, 20.26574, 20.27269, 20.27559, 20.27896)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.39691, 60.39742, 60.39725, 60.39865, 60.40041, 60.40105, 60.40313, 60.40391, 60.40478, 60.40537,
  60.40792, 60.40711, 60.40721, 60.40622, 60.40624, 60.40292, 60.40159, 60.40061, 60.40098, 60.39904, 
  60.39684, 60.39472, 60.396)
LONGITUDE_VALUEs <- c(
  20.34464, 20.34732, 20.34867, 20.35093, 20.35088, 20.35277, 20.3502, 20.35208, 20.35221, 20.35318,
  20.35183, 20.34975, 20.34754, 20.34513, 20.34234, 20.34103, 20.34202, 20.34181, 20.33915, 20.33539, 
  20.33507, 20.34144, 20.34442)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.40351, 60.40251, 60.40422, 60.40375, 60.40499, 60.40578, 60.40965, 60.40831, 60.40841, 60.40916, 
  60.40902, 60.41447, 60.41611, 60.41986, 60.41974, 60.42074, 60.42042, 60.41967, 60.41921, 60.41826, 
  60.41763, 60.4169, 60.41625, 60.4157, 60.41269, 60.41328, 60.41181, 60.41148, 60.41023, 60.41026, 
  60.40902, 60.40845, 60.40775, 60.40798, 60.4058, 60.40298)
LONGITUDE_VALUEs <- c(
  20.30245, 20.30602, 20.30802, 20.30952, 20.31101, 20.31022, 20.30966, 20.31091, 20.31372, 20.31421, 
  20.31629, 20.31694, 20.31859, 20.31647, 20.31275, 20.31011, 20.30874, 20.30902, 20.30816, 20.31001, 
  20.31086, 20.30966, 20.31194, 20.30812, 20.30649, 20.30496, 20.30387, 20.30449, 20.30421, 20.30177, 
  20.30024, 20.30097, 20.2999, 20.29822, 20.29574, 20.29947)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(60.35827, 60.3622, 60.36397, 60.35947, 60.35876, 60.35741, 60.35628, 60.35739)
LONGITUDE_VALUEs <- c(20.25445, 20.2575, 20.25336, 20.24458, 20.24791, 20.24881, 20.25434, 20.25803)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.367, 60.36675, 60.36901, 60.37058, 60.37255, 60.37298, 60.3727, 60.37353, 60.37253, 60.37302, 
  60.37124, 60.37122, 60.36697, 60.36708, 60.36553, 60.36551)
LONGITUDE_VALUEs <- c(
  20.2785, 20.28125, 20.28221, 20.28427, 20.28332, 20.28143, 20.27925, 20.278, 20.27594, 20.27341, 
  20.27255, 20.26976, 20.26873, 20.27251, 20.27367, 20.27689)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.35249, 60.35158, 60.34949, 60.34929, 60.35053, 60.35023, 60.35243, 60.35295, 60.35981, 60.36215, 
  60.36354, 60.36203, 60.35799, 60.35623, 60.35725, 60.3565, 60.35645)
LONGITUDE_VALUEs <- c(
  20.26074, 20.26616, 20.26556, 20.26839, 20.27174, 20.27545, 20.27535, 20.27393, 20.27664, 20.27372, 
  20.27028, 20.26722, 20.27013, 20.26756, 20.2655, 20.26395, 20.26076)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(60.326, 60.32319, 60.32045, 60.31874, 60.31826, 60.32097, 60.32131, 60.32235, 60.32383, 60.32576)
LONGITUDE_VALUEs <- c(20.4195, 20.41875, 20.41974, 20.418, 20.41905, 20.42538, 20.42892, 20.42738, 20.42913, 20.42459)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.34085, 60.33932, 60.33839, 60.33767, 60.337, 60.33601, 60.33451, 60.33456, 60.33027, 60.32954, 
  60.32758, 60.32787, 60.3288, 60.3279, 60.32958, 60.3295, 60.32748, 60.32708, 60.32598, 60.32665, 
  60.32664, 60.32972, 60.33021, 60.33182, 60.33225, 60.33301, 60.33277, 60.33097, 60.33119, 60.33458, 
  60.33628, 60.3389, 60.34097)
LONGITUDE_VALUEs <- c(
  20.43057, 20.42924, 20.42971, 20.4284, 20.42892, 20.4271, 20.42624, 20.42461, 20.42351, 20.42416, 
  20.42356, 20.42564, 20.42684, 20.42864, 20.42997, 20.43136, 20.43205, 20.42969, 20.43143, 20.43321, 
  20.43561, 20.43568, 20.43495, 20.43465, 20.43546, 20.43497, 20.43388, 20.43328, 20.43059, 20.43343, 
  20.4363, 20.43709, 20.43398)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.34795, 60.34683, 60.34689, 60.34612, 60.34507, 60.34416, 60.34296, 60.34204, 60.33864, 60.3377, 
  60.33275, 60.33245, 60.3334, 60.3341, 60.33299, 60.33421, 60.33485, 60.33477, 60.33561, 60.33625, 
  60.33607, 60.3355, 60.33525, 60.33572, 60.33393, 60.33349, 60.33232, 60.33196, 60.33278, 60.33342, 
  60.33448, 60.33484, 60.33645, 60.33926, 60.33942, 60.34201, 60.34476, 60.34561, 60.34764, 60.34837, 
  60.35077, 60.35096, 60.35381, 60.35634, 60.3575, 60.36035, 60.36017, 60.36096, 60.36383, 60.36566, 
  60.36554, 60.3641, 60.36359, 60.36467, 60.3654, 60.36605, 60.36645, 60.36559, 60.36576, 60.36516, 
  60.36429, 60.36484, 60.36376, 60.36349, 60.36243, 60.36279, 60.36222, 60.36207, 60.36088, 60.36054, 
  60.35993, 60.35994, 60.35878, 60.35819, 60.35749, 60.35716, 60.35615, 60.35589, 60.35632, 60.35589, 
  60.35496, 60.35314, 60.35305, 60.35508, 60.35282, 60.35202, 60.35007, 60.35076)
LONGITUDE_VALUEs <- c(
  20.29191, 20.29189, 20.29069, 20.2903, 20.29153, 20.29161, 20.29324, 20.29206, 20.29339, 20.29241, 
  20.29942, 20.30187, 20.30178, 20.30361, 20.30474, 20.30708, 20.30736, 20.30874, 20.30792, 20.30927, 
  20.31116, 20.31105, 20.31288, 20.31526, 20.31504, 20.31395, 20.31509, 20.31944, 20.31983, 20.32155, 
  20.32142, 20.32064, 20.32193, 20.32637, 20.3282, 20.3303, 20.33037, 20.32876, 20.33024, 20.33303, 
  20.33401, 20.33285, 20.33049, 20.3312, 20.33363, 20.33436, 20.33155, 20.33112, 20.33635, 20.33296, 
  20.3314, 20.33235, 20.33127, 20.33054, 20.32848, 20.32857, 20.32501, 20.32359, 20.32247, 20.32048, 
  20.31994, 20.32192, 20.32241, 20.32378, 20.3228, 20.32187, 20.32162, 20.32046, 20.32016, 20.31771, 
  20.31741, 20.31629, 20.31492, 20.31589, 20.31574, 20.31434, 20.31439, 20.31297, 20.31149, 20.30756, 
  20.30441, 20.30462, 20.30275, 20.30235, 20.29816, 20.29922, 20.29593, 20.29411)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.33024, 60.32946, 60.33349, 60.3354, 60.3329, 60.33424, 60.33763, 60.3381, 60.34103, 60.34122,
  60.34307, 60.34528, 60.34545, 60.34426, 60.34776, 60.34632, 60.346, 60.34287, 60.3433, 60.34479, 
  60.34699, 60.3472, 60.34856, 60.349, 60.35058, 60.3495, 60.34929, 60.34847, 60.34771, 60.34783, 
  60.3485, 60.3484, 60.34687, 60.34495, 60.34386, 60.34344, 60.34177, 60.34093, 60.34072, 60.33501)
LONGITUDE_VALUEs <- c(
  20.38735, 20.38902, 20.39194, 20.3958, 20.39945, 20.40825, 20.40984, 20.41198, 20.41284, 20.42233,
  20.42451, 20.42173, 20.41834, 20.4152, 20.41035, 20.40928, 20.40555, 20.40013, 20.39938, 20.40124, 
  20.4019, 20.39856, 20.39944, 20.39695, 20.39551, 20.3945, 20.39261, 20.39489, 20.39523, 20.39414, 
  20.39371, 20.39279, 20.39064, 20.39118, 20.39111, 20.38871, 20.3895, 20.38768, 20.3942, 20.38821)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.3437, 60.34611, 60.3496, 60.35196, 60.35335, 60.35348, 60.3553, 60.35515, 60.35566, 60.35512,
  60.35721, 60.35697, 60.35708, 60.35521, 60.35477, 60.35653, 60.35775, 60.35965, 60.35969, 60.35797, 
  60.35808, 60.36045, 60.35944, 60.35943, 60.35985, 60.35946, 60.35807, 60.35574, 60.35446, 60.35418, 
  60.35336, 60.3534, 60.35015, 60.35025, 60.35077, 60.35083, 60.34919, 60.34929, 60.34714, 60.3471, 
  60.34875, 60.3485, 60.34686, 60.34701, 60.34862, 60.34765, 60.34659, 60.34703, 60.34592, 60.34552, 
  60.34265, 60.34282, 60.34192, 60.34217, 60.34037, 60.34037, 60.34003, 60.33913, 60.33804, 60.33828, 
  60.33984, 60.33996, 60.33807, 60.33782, 60.33847, 60.33859, 60.33748, 60.33645, 60.33598, 60.33483, 
  60.33491, 60.33566, 60.33567, 60.335, 60.33518, 60.33678, 60.33666, 60.33873, 60.33895, 60.33834, 
  60.33938, 60.33907, 60.33512, 60.33496, 60.33662, 60.33768, 60.33729, 60.33813, 60.33818, 60.33885, 
  60.33926, 60.33987, 60.34121, 60.34292, 60.34343, 60.34419, 60.34836, 60.34936, 60.35085, 60.35108, 
  60.35169, 60.35264, 60.35296, 60.35176, 60.35095, 60.35033, 60.35003, 60.34847, 60.34715, 60.34524, 
  60.34393)
LONGITUDE_VALUEs <- c(
  20.37618, 20.37723, 20.375, 20.37504, 20.37613, 20.37365, 20.37266, 20.37193, 20.37045, 20.36968,
  20.36564, 20.36341, 20.36146, 20.36075, 20.35895, 20.35856, 20.35604, 20.35551, 20.35448, 20.35317, 
  20.34927, 20.34622, 20.34506, 20.34348, 20.34277, 20.33901, 20.34039, 20.33773, 20.33815, 20.33927, 
  20.33923, 20.33845, 20.33925, 20.34021, 20.34081, 20.34184, 20.34283, 20.34045, 20.3403, 20.33968, 
  20.33858, 20.33783, 20.33809, 20.33622, 20.33674, 20.33155, 20.33268, 20.33382, 20.33515, 20.33376, 
  20.33873, 20.34034, 20.34303, 20.34458, 20.34981, 20.35329, 20.35389, 20.35065, 20.35209, 20.35385, 
  20.35449, 20.35634, 20.35499, 20.35726, 20.35745, 20.36028, 20.36325, 20.36262, 20.3652, 20.36606, 
  20.36666, 20.36661, 20.36747, 20.3679, 20.36902, 20.36878, 20.37108, 20.36876, 20.37022, 20.37069, 
  20.37267, 20.37464, 20.37548, 20.37691, 20.38123, 20.38165, 20.38382, 20.38367, 20.38509, 20.3847, 
  20.38333, 20.38633, 20.3867, 20.38554, 20.38644, 20.38558, 20.38485, 20.38676, 20.38713, 20.38633, 
  20.38666, 20.38625, 20.38374, 20.37949, 20.37915, 20.37994, 20.37848, 20.37945, 20.37801, 20.37964, 
  20.3793)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.30219, 60.30544, 60.30697, 60.30678, 60.30867, 60.30823, 60.3122, 60.31326, 60.31383, 60.31459, 
  60.31563, 60.31803, 60.3184, 60.31414, 60.31217, 60.31264, 60.31129, 60.30944, 60.3083, 60.30662, 
  60.30245, 60.30174, 60.29855, 60.29903, 60.30278, 60.302, 60.30299, 60.30445, 60.30385, 60.30455, 
  60.30619, 60.30627, 60.30503, 60.30491)
LONGITUDE_VALUEs <- c(
  20.44846, 20.45404, 20.4543, 20.45228, 20.45142, 20.44769, 20.44378, 20.44478, 20.44673, 20.44679, 
  20.45048, 20.44957, 20.44486, 20.43716, 20.43686, 20.43027, 20.42452, 20.42413, 20.41939, 20.4219, 
  20.41785, 20.41562, 20.41592, 20.42222, 20.42283, 20.42926, 20.43019, 20.43336, 20.43553, 20.43827, 
  20.43862, 20.44053, 20.4421, 20.44555)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.30153, 60.29947, 60.29878, 60.29751, 60.29704, 60.29564, 60.29507, 60.29431, 60.29448, 60.29250,
  60.29168, 60.29014, 60.2903, 60.2888, 60.28834, 60.28652, 60.28239, 60.28217, 60.28119, 60.28067, 
  60.2792, 60.28082, 60.2827, 60.28293, 60.28407, 60.28427, 60.28594, 60.28685, 60.29016, 60.29215, 
  60.29319, 60.29443, 60.29417, 60.29366, 60.29347, 60.29368, 60.29477, 60.29703, 60.2978, 60.29963)
LONGITUDE_VALUEs <- c(
  20.50451, 20.50106, 20.50121, 20.49868, 20.49516, 20.49439, 20.4964, 20.4963, 20.49452, 20.49255, 
  20.49486, 20.49773, 20.49967, 20.49909, 20.50014, 20.49911, 20.50072, 20.50222, 20.50222, 20.50473, 
  20.50694, 20.51445, 20.51591, 20.5175, 20.51733, 20.51636, 20.51696, 20.51619, 20.51477, 20.51183, 
  20.51453, 20.51357, 20.51237, 20.51235, 20.51125, 20.50861, 20.50969, 20.50861, 20.5069, 20.50816)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.26258, 60.26334, 60.26391, 60.26524, 60.26764, 60.26809, 60.26776, 60.26792, 60.26748, 60.26848, 
  60.26795, 60.26681, 60.26619, 60.26596, 60.26489, 60.2647, 60.26334, 60.26304, 60.26265)
LONGITUDE_VALUEs <- c(
  20.52715, 20.52801, 20.52756, 20.52977, 20.52971, 20.52803, 20.52732, 20.52569, 20.52507, 20.52218, 
  20.51883, 20.51896, 20.51767, 20.51904, 20.52057, 20.52177, 20.52305, 20.52529, 20.52617)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.27452, 60.27301, 60.27253, 60.27222, 60.27199, 60.27049, 60.26876, 60.2687, 60.26974, 60.27058, 
  60.27135, 60.27249, 60.27301, 60.27529, 60.27599, 60.27496)
LONGITUDE_VALUEs <- c(
  20.50823, 20.50645, 20.50726, 20.50698, 20.50417, 20.49977, 20.50196, 20.50758, 20.51175, 20.51175, 
  20.51276, 20.51155, 20.51372, 20.51681, 20.51494, 20.51355)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.22836, 60.22832, 60.22904, 60.22878, 60.22784, 60.22745, 60.22717, 60.22703, 60.22656, 60.22606, 
  60.22629, 60.22702, 60.22743, 60.22843, 60.2288, 60.22974, 60.23077, 60.23228, 60.23316, 60.23358, 
  60.23432, 60.23443, 60.23399, 60.23361, 60.2331, 60.23217, 60.23135, 60.23114, 60.23033, 60.22892, 
  60.22862)
LONGITUDE_VALUEs <- c(
  20.48423, 20.48365, 20.4823, 20.48011, 20.48114, 20.48324, 20.48329, 20.48465, 20.48669, 20.48816, 
  20.4892, 20.48952, 20.48918, 20.49126, 20.49025, 20.4911, 20.49321, 20.49336, 20.49248, 20.49275, 
  20.49236, 20.48912, 20.48861, 20.48929, 20.48912, 20.48713, 20.4863, 20.48522, 20.48441, 20.48485, 
  20.48401)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.27233, 60.27443, 60.27643, 60.27765, 60.28126, 60.28254, 60.28388, 60.28473, 60.28656, 60.29035,
  60.29011, 60.29094, 60.29226, 60.29243, 60.29445, 60.2976, 60.30449, 60.30517, 60.30925, 60.30761, 
  60.30991, 60.30763,60.30555, 60.30661, 60.30508, 60.29923, 60.29564, 60.29328, 60.29294, 60.29007, 
  60.28928, 60.28724, 60.28588, 60.28533, 60.28328, 60.27994, 60.27447, 60.27237, 60.27313)
LONGITUDE_VALUEs <- c(
  20.40215, 20.40675, 20.40726, 20.39894, 20.39705, 20.40284, 20.40194, 20.40276, 20.40211, 20.40627,
  20.40898, 20.41026, 20.40859, 20.40301, 20.39937, 20.39851, 20.40542, 20.39868, 20.39022, 20.38718, 
  20.37808, 20.37401,20.37701, 20.36731, 20.36559, 20.38035, 20.38327, 20.37872, 20.38482, 20.38164, 
  20.38739, 20.38945, 20.38795, 20.38478, 20.38542, 20.38005, 20.38456, 20.39173, 20.3976)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.26477, 60.26656, 60.26979, 60.26313, 60.26198, 60.26266, 60.26177, 60.26009, 60.26024, 60.25817, 
  60.26317, 60.26551, 60.26449)
LONGITUDE_VALUEs <- c(
  20.26423, 20.26564, 20.25693, 20.25041, 20.25152, 20.25526, 20.25925, 20.25933, 20.26217, 20.26182, 
  20.27233, 20.27161, 20.26539)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(60.29096, 60.29234, 60.29506, 60.29883, 60.30017, 60.29281, 60.29132, 60.288, 60.28985)
LONGITUDE_VALUEs <- c(20.3102, 20.30797, 20.3099, 20.30913, 20.30316, 20.30329, 20.3014, 20.30471, 20.30685)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.29011, 60.28771, 60.29005, 60.29204, 60.29324, 60.29102, 60.29079, 60.293, 60.29277, 60.28779, 
  60.28732, 60.28964, 60.28845)
LONGITUDE_VALUEs <- c(
  20.33453, 20.33955, 20.34346, 20.3417, 20.33355, 20.33003, 20.3266, 20.32913, 20.32449, 20.31939, 
  20.3214, 20.32591, 20.33127)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.27512, 60.27525, 60.27593, 60.27378, 60.27186, 60.26835, 60.26586, 60.26535, 60.26244, 60.26188, 
  60.2602, 60.25909, 60.25665, 60.2592, 60.25909, 60.25662, 60.2566, 60.2606, 60.26382, 60.26388, 
  60.26737, 60.26844, 60.26859, 60.27131, 60.27033, 60.27148)
LONGITUDE_VALUEs <- c(
  20.31765, 20.31439, 20.31195, 20.30611, 20.30937, 20.30581, 20.3092, 20.30634, 20.3059, 20.30757, 
  20.30727, 20.31075, 20.30941, 20.31375, 20.31474, 20.31379, 20.31538, 20.31748, 20.31525, 20.31293, 
  20.31062, 20.31182, 20.31324, 20.31615, 20.31864, 20.31963)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.2458, 60.24796, 60.24703, 60.2483, 60.25028, 60.25121, 60.25319, 60.25323, 60.25252, 60.2534, 
  60.25406, 60.2547, 60.25591, 60.25604, 60.25728, 60.25787, 60.25946, 60.25999, 60.26318, 60.26454, 
  60.26552, 60.26375, 60.26363, 60.26108, 60.26028, 60.26138, 60.26066, 60.25965, 60.25949, 60.25869, 
  60.25914, 60.25739, 60.25443, 60.25311, 60.24604)
LONGITUDE_VALUEs <- c(
  20.2888, 20.29123, 20.30039, 20.30339, 20.30299, 20.29962, 20.29837, 20.29983, 20.3008, 20.30187, 
  20.30118, 20.30236, 20.30187, 20.30447, 20.305, 20.30284, 20.30144, 20.30309, 20.30408, 20.30352, 
  20.3006, 20.29713, 20.29305, 20.29644, 20.29535, 20.29314, 20.29271, 20.29423, 20.29211, 20.29238, 
  20.28936, 20.28951, 20.29376, 20.28466, 20.28485)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.24093, 60.23871, 60.24046, 60.23939, 60.23565, 60.23411, 60.23562, 60.2369, 60.23908, 60.24278, 
  60.24446, 60.24621, 60.2467, 60.24596, 60.24474, 60.24457, 60.24348, 60.2431)
LONGITUDE_VALUEs <- c(
  20.29195, 20.2956, 20.29727, 20.29993, 20.2962, 20.29744, 20.31156, 20.31229, 20.31006, 20.30989, 
  20.30641, 20.30924, 20.30448, 20.29736, 20.29689, 20.29895, 20.29869, 20.29268)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.21344, 60.21141, 60.20853, 60.20875, 60.20981, 60.20988, 60.20896, 60.21082, 60.21114, 60.21325, 
  60.21563, 60.21666, 60.21913, 60.21968, 60.21832, 60.21817, 60.21461)
LONGITUDE_VALUEs <- c(
  20.40739, 20.40645, 20.40778, 20.40924, 20.40992, 20.41155, 20.41202, 20.41357, 20.4167, 20.41906, 
  20.41782, 20.42048, 20.42087, 20.41632, 20.41464, 20.41288, 20.411)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.18631, 60.18657, 60.18586, 60.18853, 60.1907, 60.19194, 60.19553, 60.19649, 60.19759, 60.19734, 
  60.19973, 60.19979, 60.19858, 60.1986, 60.19589, 60.19339, 60.19198, 60.19105, 60.18953, 60.18823)
LONGITUDE_VALUEs <- c(
  20.35006, 20.35495, 20.35701, 20.36216, 20.36366, 20.36727, 20.3704, 20.36821, 20.36671, 20.36405, 
  20.36439, 20.36263, 20.36169, 20.35727, 20.35135, 20.35473, 20.3531, 20.34946, 20.34929, 20.35139)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(60.19103, 60.18964, 60.18915, 60.19225, 60.19267, 60.19498, 60.195, 60.19391, 60.19282, 60.1912)
LONGITUDE_VALUEs <- c(20.42458, 20.4242, 20.43025, 20.43188, 20.43436, 20.43462, 20.42982, 20.42737, 20.42085, 20.42012)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.17208, 60.17153, 60.17206, 60.17217, 60.17298, 60.17351, 60.17477, 60.17484, 60.17605, 60.17616, 
  60.177, 60.17729, 60.17846, 60.18029, 60.17995, 60.18131, 60.18186, 60.18254, 60.18752, 60.18966, 
  60.19055, 60.19141, 60.19072, 60.18842, 60.18809, 60.18717, 60.18665, 60.18685, 60.18568, 60.18446, 
  60.18354, 60.18324, 60.18101, 60.18208, 60.18134, 60.17914, 60.17768, 60.17696, 60.17614)
LONGITUDE_VALUEs <- c(
  20.39008, 20.3915, 20.39291, 20.39664, 20.3978, 20.40222, 20.40368, 20.40703, 20.40904, 20.41273, 
  20.41359, 20.41187, 20.41134, 20.41297, 20.41511, 20.41638, 20.41496, 20.41646, 20.4155, 20.41674, 
  20.41867, 20.41876, 20.41346, 20.41368, 20.41172, 20.41101, 20.40915, 20.40704, 20.40492, 20.40597, 
  20.40561, 20.40445, 20.40426, 20.41069, 20.41202, 20.40207, 20.40014, 20.39531, 20.39638)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.16391, 60.16158, 60.16186, 60.17353, 60.17294, 60.17682, 60.17695, 60.17868, 60.17857, 60.17669,
  60.17539, 60.17552, 60.18026, 60.18004, 60.18386, 60.1841, 60.18258, 60.17925, 60.17492, 60.17193,
  60.17311, 60.17161, 60.16907, 60.16993, 60.16704, 60.16625, 60.16911, 60.16879, 60.16742, 60.16674,
  60.16795, 60.16792, 60.16716, 60.16718, 60.16651, 60.166, 60.16548, 60.16547, 60.16461, 60.16524, 
  60.16477, 60.16164, 60.15967, 60.15733, 60.15717, 60.15802, 60.15805, 60.15988, 60.15971)
LONGITUDE_VALUEs <- c(
  20.42068, 20.42497, 20.43239, 20.44007, 20.44252, 20.44312, 20.43883, 20.43711, 20.43591, 20.4369,
  20.43376, 20.43196, 20.43325, 20.43621, 20.43338, 20.42557, 20.42098, 20.41883, 20.4202, 20.41763,
  20.4145, 20.41342, 20.40733, 20.40368, 20.40325, 20.40098, 20.39862, 20.39713, 20.39705, 20.39438,
  20.39248, 20.38865, 20.38885, 20.38986, 20.39018, 20.38499, 20.38537, 20.38786, 20.38861, 20.3961, 
  20.39742, 20.39106, 20.39187, 20.40031, 20.40567, 20.40698, 20.41155, 20.4129, 20.41604)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.14723, 60.14624, 60.14759, 60.15135, 60.15107, 60.15239, 60.1518, 60.15297, 60.15372, 60.15464, 
  60.15705, 60.15726, 60.15829, 60.15904, 60.16115, 60.16105, 60.16009, 60.15986, 60.16495, 60.16514, 
  60.16396, 60.16487, 60.16404, 60.15966, 60.159, 60.159, 60.16211, 60.16186, 60.15984, 60.1592, 
  60.15973, 60.15906, 60.15725, 60.15648, 60.15516, 60.15303, 60.15261, 60.14806)
LONGITUDE_VALUEs <- c(
  20.30129, 20.30304, 20.30704, 20.30935, 20.31232, 20.31326, 20.31669, 20.31687, 20.3188, 20.31627, 
  20.31798, 20.31918, 20.31983, 20.31528, 20.31351, 20.3121, 20.31227, 20.30795, 20.29594, 20.29242, 
  20.29158, 20.28549, 20.2771, 20.27877, 20.28141, 20.28585, 20.29038, 20.29313, 20.29414, 20.29609, 
  20.2984, 20.29965, 20.29422, 20.29474, 20.29298, 20.29688, 20.30057, 20.3022)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.16114, 60.16056, 60.16123, 60.16122, 60.16304, 60.16373, 60.16547, 60.16741, 60.16812, 60.16915,
  60.17093, 60.17476, 60.17526, 60.17709, 60.17835, 60.17896, 60.17812, 60.17679, 60.1747, 60.17556,
  60.17426, 60.17301, 60.16976, 60.16808, 60.167, 60.1657, 60.16571, 60.16415, 60.16391, 60.16488, 
  60.16492, 60.16356, 60.1631, 60.16195, 60.15829, 60.15953, 60.15859, 60.15705, 60.15707, 60.15847, 
  60.15777, 60.15834, 60.15909, 60.16001, 60.1597)
LONGITUDE_VALUEs <- c(
  20.34074, 20.3443, 20.34435, 20.34636, 20.346, 20.34992, 20.35153, 20.35117, 20.34982, 20.3495,
  20.34619, 20.34681, 20.35065, 20.35134, 20.35023, 20.34752, 20.34677, 20.34355, 20.344, 20.34257,
  20.33613, 20.33671, 20.33001, 20.3295, 20.33066, 20.32877, 20.32739, 20.32791, 20.32495, 20.32535, 
  20.32209, 20.32351, 20.31549, 20.31409, 20.32111, 20.32094, 20.32417, 20.3248, 20.32572, 20.32576,
  20.32761, 20.32847, 20.32662, 20.33216, 20.33859)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.16962, 60.16939, 60.1699, 60.16943, 60.16996, 60.16989, 60.17094, 60.17094, 60.17286, 60.17327, 
  60.17294, 60.1732, 60.17433, 60.17558, 60.17659, 60.17724, 60.17827, 60.17801, 60.18167, 60.18476, 
  60.18587, 60.1845, 60.1816, 60.1798, 60.17878, 60.17747, 60.17719, 60.17599, 60.17544, 60.17387, 
  60.1736)
LONGITUDE_VALUEs <- c(
  20.29364, 20.29557, 20.29737, 20.30066, 20.30177, 20.30293, 20.30396, 20.30508, 20.30375, 20.3019, 
  20.301, 20.29982, 20.29888, 20.29967, 20.29806, 20.30139, 20.30008, 20.29759, 20.29704, 20.29415, 
  20.2912, 20.28853, 20.28999, 20.28907, 20.28298, 20.28302, 20.28465, 20.28493, 20.28708, 20.28815, 
  20.29021)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.22101, 60.22412, 60.22468, 60.22321, 60.22564, 60.22276, 60.22257, 60.22059, 60.2159, 60.21579, 
  60.21922, 60.21899, 60.215, 60.21315, 60.21097, 60.20765, 60.20788, 60.20389, 60.20455, 60.20287, 
  60.20368, 60.2075, 60.20852, 60.21319, 60.22142, 60.2227, 60.22074)
LONGITUDE_VALUEs <- c(
  20.27107, 20.26974, 20.26515, 20.26313, 20.25863, 20.25884, 20.25648, 20.25601, 20.25408, 20.25078, 
  20.24966, 20.24846, 20.24803, 20.24335, 20.24262, 20.24627, 20.25022, 20.25425, 20.25644, 20.25918, 
  20.26476, 20.26957, 20.27305, 20.27326, 20.28232, 20.2794, 20.27627)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.17966, 60.17727, 60.17548, 60.17627, 60.17644, 60.18117, 60.18036, 60.18188, 60.18243, 60.19408, 
  60.19588, 60.19628, 60.20153, 60.20043, 60.19844, 60.19763, 60.19658, 60.19619, 60.19511, 60.19509, 
  60.19664, 60.19832, 60.19836, 60.19892, 60.19982, 60.20072, 60.20119, 60.20928, 60.21194, 60.21208, 
  60.21501, 60.21595, 60.21879, 60.22094, 60.22498, 60.22606, 60.22764, 60.22809, 60.22651, 60.22481, 
  60.22648, 60.22291, 60.21844, 60.2175, 60.21452, 60.21096, 60.20749, 60.2073, 60.20657, 60.20695, 
  60.20631, 60.20567, 60.20519, 60.20253, 60.20139, 60.20059, 60.20013, 60.19818, 60.1955, 60.19397, 
  60.19114, 60.18484, 60.18155)
LONGITUDE_VALUEs <- c(
  20.25417, 20.25623, 20.26047, 20.26193, 20.26442, 20.26914, 20.27339, 20.27438, 20.27824, 20.27871, 
  20.28072, 20.28302, 20.28504, 20.29868, 20.3004, 20.30368, 20.30319, 20.30549, 20.30562, 20.30757, 
  20.30825, 20.30652, 20.30413, 20.30366, 20.30945, 20.31051, 20.31482, 20.32205, 20.31911, 20.31585, 
  20.31576, 20.3112, 20.31705, 20.31619, 20.31991, 20.31774, 20.31664, 20.31319, 20.311, 20.30499, 
  20.30025, 20.29943, 20.28963, 20.29074, 20.28673, 20.28929, 20.28467, 20.2825, 20.28164, 20.28004, 
  20.27799, 20.27784, 20.27592, 20.27435, 20.27854, 20.27826, 20.27386, 20.27084, 20.27449, 20.26389, 
  20.2553, 20.24867, 20.25007)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.1975, 60.19608, 60.19744, 60.20235, 60.20237, 60.20476, 60.20837, 60.21192, 60.21419, 60.2154, 
  60.21645, 60.21542, 60.21841, 60.21948, 60.21917, 60.21803, 60.2197, 60.21949, 60.22074, 60.22117, 
  60.22848, 60.23099, 60.23685, 60.24054, 60.24307, 60.24369, 60.24852, 60.24982, 60.25121, 60.2528, 
  60.2531, 60.25742, 60.2547, 60.25904, 60.26053, 60.26153, 60.26649, 60.26702, 60.26873, 60.26822, 
  60.2753, 60.27471, 60.27632, 60.27741, 60.27899, 60.2786, 60.27963, 60.28105, 60.27915, 60.28032, 
  60.27937, 60.28002, 60.28468, 60.28542, 60.28482, 60.28616, 60.2875, 60.28663, 60.28412, 60.28344, 
  60.28439, 60.2844, 60.28311, 60.28257, 60.28061, 60.27887, 60.27725, 60.27991, 60.2801, 60.28212, 
  60.28186, 60.28102, 60.27749, 60.27805, 60.2765, 60.27519, 60.2726, 60.27299, 60.26941, 60.26826, 
  60.26562, 60.26379, 60.26089, 60.25845, 60.2561, 60.25806, 60.25698, 60.25457, 60.25555, 60.25463, 
  60.24904, 60.24702, 60.24508, 60.24351, 60.2424, 60.23979, 60.23798, 60.23518, 60.23396, 60.23267, 
  60.23009, 60.23134, 60.22961, 60.23176, 60.23337, 60.23675, 60.23866, 60.23811, 60.23979, 60.23817, 
  60.24022, 60.23749, 60.23636, 60.23506, 60.23502, 60.23169, 60.23163, 60.23336, 60.23561, 60.23683, 
  60.23014, 60.22592, 60.22605, 60.22456, 60.22756, 60.22311, 60.2211, 60.21728, 60.21244, 60.21336, 
  60.2117, 60.21027, 60.20856, 60.20626, 60.20298, 60.20044)
LONGITUDE_VALUEs <- c(
  20.36908, 20.3732, 20.37871, 20.38528, 20.3935, 20.39532, 20.39193, 20.39734, 20.39775, 20.39903, 
  20.39397, 20.38689, 20.38659, 20.38818, 20.39118, 20.39264, 20.39987, 20.4042, 20.40622, 20.4112, 
  20.41645, 20.41517, 20.42259, 20.42045, 20.42564, 20.43062, 20.43079, 20.42182, 20.42941, 20.42894, 
  20.42225, 20.41787, 20.40053, 20.40628, 20.40624, 20.40401, 20.40405, 20.40075, 20.39933, 20.39431, 
  20.38045, 20.37457, 20.36946, 20.37182, 20.36966, 20.36657, 20.36702, 20.36286, 20.36084, 20.35494, 
  20.35037, 20.34954, 20.35066, 20.34336, 20.3407, 20.33791, 20.33821, 20.3325, 20.33115, 20.32896, 
  20.32806, 20.32488, 20.3275, 20.32654, 20.33186, 20.33076, 20.33289, 20.3346, 20.33604, 20.33604, 
  20.33892, 20.33885, 20.34233, 20.34628, 20.34684, 20.34329, 20.34379, 20.34641, 20.34845, 20.3445, 
  20.34352, 20.34566, 20.34175, 20.34532, 20.33742, 20.3305, 20.32595, 20.32639, 20.32317, 20.32201, 
  20.32495, 20.32237, 20.32405, 20.32988, 20.32731, 20.32729, 20.33145, 20.33006, 20.32548, 20.32495, 
  20.33302, 20.33829, 20.34104, 20.34229, 20.34909, 20.35381, 20.36695, 20.37407, 20.37763, 20.38004, 
  20.38279, 20.38266, 20.38425, 20.38257, 20.38077, 20.3806, 20.37867, 20.37643, 20.37712, 20.37368, 
  20.35836, 20.36231, 20.36686, 20.37141, 20.3779, 20.37614, 20.36746, 20.36695, 20.37523, 20.36943, 
  20.36729, 20.36875, 20.36751, 20.37004, 20.36819, 20.37004)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.14693, 60.15039, 60.143, 60.14821, 60.14922, 60.15424, 60.15449, 60.15336, 60.15065, 60.15052, 
  60.15541, 60.16214, 60.16265, 60.17029, 60.17085, 60.17426, 60.17542, 60.17712, 60.18071, 60.18037, 
  60.18274, 60.18792, 60.19266, 60.19155, 60.19517, 60.19876, 60.20213, 60.20345, 60.2223, 60.22468, 
  60.21837, 60.20567, 60.20302, 60.20029, 60.19449, 60.19364, 60.19808, 60.19556, 60.19232, 60.19219, 
  60.18169, 60.17875, 60.18604, 60.18421, 60.18032, 60.17729, 60.17358, 60.17098, 60.16816, 60.16496, 
  60.16483, 60.16952, 60.17081, 60.17461, 60.17862, 60.18438, 60.19654, 60.20673, 60.21808, 60.22421, 
  60.2272, 60.22907, 60.22515, 60.24152, 60.24305, 60.25655, 60.25681, 60.25161, 60.26102, 60.26285, 
  60.26962, 60.26664, 60.27371, 60.28524, 60.28579, 60.31301, 60.31343, 60.30008, 60.29426, 60.2723, 
  60.2706, 60.26494, 60.26481, 60.28192, 60.27775, 60.25979, 60.25962, 60.26443, 60.25791, 60.24311, 
  60.24155, 60.23774, 60.23743, 60.23398, 60.23283, 60.23171, 60.23335, 60.23368, 60.23412, 60.23339, 
  60.22956, 60.22915, 60.22304, 60.22254, 60.22154, 60.22075, 60.21895, 60.21742, 60.21831, 60.21765, 
  60.21637, 60.21513, 60.21336, 60.21232, 60.21323, 60.21024, 60.20597, 60.20439, 60.20055, 60.19754, 
  60.1921, 60.1889, 60.18385, 60.18111, 60.17749, 60.17247, 60.17019, 60.16897, 60.16496, 60.16397, 
  60.15245)
LONGITUDE_VALUEs <- c(
  19.54596, 19.55668, 19.57462, 19.58587, 19.59222, 19.59527, 19.59948, 19.60261, 19.60209, 19.60415, 
  19.60411, 19.59849, 19.59171, 19.59119, 19.59557, 19.59892, 19.59523, 19.59604, 19.59312, 19.60196, 
  19.60583, 19.60809, 19.59677, 19.59393, 19.58964, 19.59144, 19.58741, 19.59187, 19.58209, 19.58698, 
  19.58595, 19.59951, 19.59908, 19.60457, 19.60518, 19.61255, 19.61273, 19.61873, 19.61916, 19.61612, 
  19.61393, 19.63204, 19.65247, 19.65496, 19.65084, 19.6523, 19.64723, 19.64955, 19.64586, 19.64852, 
  19.65522, 19.65937, 19.66658, 19.66658, 19.6707, 19.66855, 19.67851, 19.67439, 19.67465, 19.67259, 
  19.67422, 19.66495, 19.65886, 19.64228, 19.64667, 19.64469, 19.64744, 19.65251, 19.65242, 19.64478, 
  19.64083, 19.62941, 19.62967, 19.61774, 19.61242, 19.60899, 19.60324, 19.60358, 19.58933, 19.58796, 
  19.57371, 19.57397, 19.57002, 19.56762, 19.56384, 19.56144, 19.55122, 19.54315, 19.53353, 19.53799, 
  19.53702, 19.53911, 19.54131, 19.54327, 19.53908, 19.53859, 19.53745, 19.53793, 19.53613, 19.53536, 
  19.53666, 19.5342, 19.5375, 19.53631, 19.53679, 19.54248, 19.53842, 19.53913, 19.54294, 19.54548, 
  19.54569, 19.54277, 19.54076, 19.53262, 19.52947, 19.51788, 19.51684, 19.5213, 19.5149, 19.51915, 
  19.51825, 19.52353, 19.51842, 19.52134, 19.51435, 19.52379, 19.51868, 19.52456, 19.52748, 19.53362, 
  19.53655)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  60.09981, 60.09536, 60.09057, 60.09489, 60.09211, 60.0934, 60.09699, 60.10747, 60.10745, 60.10343, 
  60.10063, 60.10039, 60.10666, 60.10713, 60.11034, 60.11072, 60.10895, 60.10645, 60.10185, 60.09451, 
  60.09295, 60.08914, 60.08933, 60.09378, 60.09378, 60.09061, 60.09233, 60.09329, 60.09248, 60.08665, 
  60.08673, 60.09349, 60.09641, 60.09526, 60.09293, 60.09269, 60.09055, 60.09002, 60.09175, 60.09203, 
  60.09585, 60.09968, 60.10202, 60.10189, 60.10356, 60.10564, 60.10523, 60.10963, 60.11111, 60.1122, 
  60.10866, 60.10448, 60.10523, 60.10593, 60.10636, 60.10788, 60.10861, 60.10945, 60.11184, 60.11093, 
  60.10655, 60.10396, 60.1013, 60.10128, 60.10045, 60.10017, 60.09853, 60.09649, 60.09865, 60.09852, 
  60.09701, 60.09663, 60.09354, 60.09354, 60.09224, 60.09012, 60.09117, 60.09161, 60.09125, 60.09152, 
  60.09323, 60.09541, 60.09447, 60.09256, 60.09176, 60.09248, 60.08993, 60.08988, 60.08814, 60.08725, 
  60.08478, 60.08362, 60.08431, 60.08601, 60.08608, 60.08511, 60.08007, 60.08006, 60.07908, 60.07907, 
  60.0797, 60.08032, 60.08116, 60.08074, 60.08287, 60.0823, 60.08533, 60.08606, 60.08777, 60.08763, 
  60.08852, 60.08879, 60.0881, 60.08725, 60.08675, 60.08789, 60.09064, 60.09164, 60.09373, 60.09364, 
  60.0961, 60.09563, 60.09692, 60.10194, 60.10461, 60.1104, 60.11128, 60.1158, 60.11845, 60.11851, 
  60.11635, 60.11563, 60.11547, 60.1102, 60.10945, 60.10796, 60.10769, 60.10549, 60.10205, 60.09237, 
  60.08873, 60.08706, 60.08017, 60.07978, 60.07392, 60.0725, 60.07424, 60.06779, 60.06662, 60.06405, 
  60.06122, 60.06094, 60.06253, 60.06227, 60.06559, 60.06612, 60.07865, 60.07923, 60.08556, 60.09104, 
  60.09658, 60.09784, 60.10238, 60.11006, 60.11091, 60.11215, 60.11194, 60.11365, 60.11455, 60.11301, 
  60.11525, 60.10379, 60.10155, 60.09228, 60.09095, 60.0962, 60.10989, 60.11087, 60.10206, 60.10163, 
  60.10531, 60.10572, 60.10368, 60.09485, 60.09446, 60.09541, 60.09603, 60.09468, 60.09063, 60.08928, 
  60.0895, 60.08488, 60.08453, 60.08852, 60.088, 60.08675, 60.08555, 60.0841, 60.08264, 60.0765, 
  60.07609, 60.07769, 60.07475, 60.07285, 60.07053, 60.07069, 60.06637, 60.06623, 60.07166, 60.07189, 
  60.06893, 60.06876, 60.06788, 60.06864, 60.07016, 60.06964, 60.06812, 60.06663, 60.06088, 60.0594, 
  60.05769, 60.05486, 60.0528, 60.05145, 60.04683, 60.04451, 60.04202, 60.04145, 60.03962, 60.03905, 
  60.04085, 60.04205, 60.04541, 60.04653, 60.04545, 60.04344, 60.04451, 60.04232, 60.04205, 60.04042, 
  60.0405, 60.03896, 60.04447, 60.04436, 60.04706, 60.04755, 60.04702, 60.05072, 60.04916, 60.04157, 
  60.04082, 60.0342, 60.03328, 60.02745, 60.02007, 60.01962, 60.01317, 60.01012, 60.00888, 60.01122, 
  60.00748, 60.00298, 59.99742, 59.99918, 59.99725, 59.99783, 60.00045, 60.0007, 60.00182, 60.00216, 
  60.00135, 60.00184, 60.00079, 60.00057, 59.99976, 59.99884, 59.99637, 59.99459, 59.99366, 59.99753, 
  59.99757, 59.99551, 59.99611, 60.00085, 59.99705, 59.99731, 60.00195, 60.00371, 60.00493, 60.00658, 
  60.00825, 60.01074, 60.01372, 60.01411, 60.01641, 60.0172, 60.01441, 60.01229, 60.01145, 60.00765, 
  60.00566, 59.99401, 59.98899, 59.9868, 59.98802, 59.98658, 59.98409, 59.98276, 59.98289, 59.98141, 
  59.98233, 59.98059, 59.97937, 59.97701, 59.97692, 59.97963, 59.98199, 59.98166, 59.97928, 59.97855, 
  59.97501, 59.9752, 59.97432, 59.97316, 59.97232, 59.97185, 59.97121, 59.9705, 59.96896, 59.96869, 
  59.97581, 59.97705, 59.97699, 59.97814, 59.97883, 59.97977, 59.98059, 59.98265, 59.98386, 59.98441, 
  59.98569, 59.9859, 59.9852, 59.9873, 59.9879, 59.98851, 59.98873, 59.99023, 59.99041, 59.98842, 
  59.98778, 59.98701, 59.98746, 59.98705, 59.98778, 59.98744, 60.00031, 59.99975, 60.00456, 60.00627, 
  60.00583, 60.00656, 60.00778, 60.00616, 60.00623, 60.00774, 60.00713, 60.0103, 60.0116, 60.01211, 
  60.01366, 60.01557, 60.01409, 60.02729, 60.04431, 60.0504, 60.06406, 60.06539, 60.06329, 60.06492, 
  60.06611, 60.06732, 60.06853, 60.06999, 60.07171, 60.07132, 60.07222, 60.07325, 60.07335, 60.07458, 
  60.07539, 60.07727, 60.07673, 60.07784, 60.07637, 60.07589, 60.07447, 60.0736, 60.07488, 60.07567, 
  60.07922, 60.08044, 60.08029, 60.08087, 60.07988, 60.08097, 60.07962, 60.07999, 60.07809, 60.07995, 
  60.07794, 60.07573, 60.0753, 60.07407, 60.07334, 60.07004, 60.06952, 60.06669, 60.06651, 60.06503, 
  60.06678, 60.06737, 60.06656, 60.06783, 60.0683, 60.06973, 60.07102, 60.0733, 60.07442, 60.07525, 
  60.07804, 60.08233, 60.0887, 60.08838, 60.08755, 60.08805, 60.09179, 60.09229, 60.09443, 60.09504, 
  60.09862, 60.10024, 60.10174, 60.10484, 60.10512, 60.10358, 60.10369, 60.10741, 60.10636, 60.10702, 
  60.10615, 60.10818, 60.10978, 60.11154, 60.11164, 60.11367, 60.11727, 60.11714, 60.11823, 60.11913, 
  60.11859, 60.11936, 60.12203, 60.1233, 60.12518, 60.12672, 60.13324, 60.14108, 60.14202, 60.14943, 
  60.14932, 60.15313, 60.153, 60.15659, 60.15616, 60.16274, 60.16611, 60.15983, 60.15962, 60.14928, 
  60.14928, 60.14578, 60.14381, 60.13817, 60.13586, 60.13621, 60.1395, 60.14351, 60.15419, 60.16077, 
  60.16888, 60.16816, 60.16389, 60.16111, 60.15599, 60.15266, 60.15026, 60.14287, 60.1439, 60.14074, 
  60.13702, 60.13398, 60.13574, 60.13056, 60.13082, 60.13911, 60.14304, 60.13026, 60.1173, 60.10854, 
  60.10298, 60.099, 60.09403, 60.09267, 60.09149, 60.08787, 60.08749, 60.0846, 60.08505, 60.08293, 
  60.0795, 60.08102, 60.0834, 60.08419, 60.08862, 60.0874, 60.08287, 60.08233, 60.08471, 60.09078, 
  60.09211, 60.09138, 60.09305, 60.09202, 60.09566, 60.09389, 60.09205, 60.09132, 60.08982, 60.08929, 
  60.09055, 60.08976, 60.09179, 60.09215, 60.09309, 60.09412, 60.10043, 60.10396, 60.10227, 60.11117, 
  60.10863, 60.10954, 60.10026, 60.10191, 60.09611, 60.09607, 60.0889, 60.08804, 60.09333, 60.0971, 
  60.09643, 60.08954, 60.08391, 60.08192, 60.07927, 60.07858, 60.0803, 60.0815, 60.08357, 60.08269, 
  60.08102, 60.08091, 60.0844, 60.08549, 60.08409, 60.08436, 60.08119, 60.08275, 60.08218, 60.08303, 
  60.08093, 60.08101, 60.0843, 60.08599, 60.08772, 60.08872, 60.0905, 60.09512, 60.09532, 60.10143, 
  60.10325, 60.10155, 60.09819, 60.09917, 60.10225, 60.10375, 60.0987, 60.10486, 60.10473, 60.10238, 
  60.10484, 60.10555, 60.10882, 60.11284, 60.11466, 60.11596, 60.11994, 60.12293, 60.12248, 60.12644, 
  60.12691, 60.12868, 60.1293, 60.12492, 60.13106, 60.13364, 60.14509, 60.14939, 60.14896, 60.1462, 
  60.14911, 60.15195, 60.15691, 60.15748, 60.16419, 60.16534, 60.16485, 60.16777, 60.16794, 60.16619, 
  60.16801, 60.1694, 60.17821, 60.17808, 60.19027, 60.19078, 60.19306, 60.18986, 60.1904, 60.18886, 
  60.18568, 60.18363, 60.18056, 60.18248, 60.18692, 60.18794, 60.18551, 60.18075, 60.17988, 60.17851, 
  60.17802, 60.17151, 60.16984, 60.16758, 60.1659, 60.16726, 60.16929, 60.1742, 60.17638, 60.17968, 
  60.1798, 60.17777, 60.18233, 60.18645, 60.19031, 60.19242, 60.19148, 60.19336, 60.19846, 60.19827, 
  60.19409, 60.19321, 60.20038, 60.20181, 60.20153, 60.20447, 60.204, 60.19596, 60.19445, 60.19944, 
  60.1975, 60.19899, 60.19601, 60.19123, 60.19067, 60.18521, 60.18329, 60.18077, 60.18436, 60.185, 
  60.19133, 60.19285, 60.19535, 60.19515, 60.19976, 60.20151, 60.20437, 60.20486, 60.20757, 60.2113, 
  60.21381, 60.21533, 60.21648, 60.22875, 60.2311, 60.23783, 60.23766, 60.23872, 60.23689, 60.23668, 
  60.23821, 60.2262, 60.22453, 60.22223, 60.22321, 60.22067, 60.21773, 60.21462, 60.21566, 60.21464, 
  60.20795, 60.20803, 60.20601, 60.20411, 60.20298, 60.20031, 60.19922, 60.1998, 60.19696, 60.1998, 
  60.20159, 60.20438, 60.20848, 60.21129, 60.21637, 60.21944, 60.22515, 60.22612, 60.22971, 60.2338, 
  60.22775, 60.22459, 60.2205, 60.21807, 60.21402, 60.20822, 60.20686, 60.20272, 60.1976, 60.18501, 
  60.18612, 60.18391, 60.18689, 60.18651, 60.18911, 60.18928, 60.19487, 60.1979, 60.19568, 60.19321, 
  60.18715, 60.18915, 60.18745, 60.18822, 60.1854, 60.18591, 60.18075, 60.17486, 60.17831, 60.17819, 
  60.18446, 60.19338, 60.19389, 60.20024, 60.20233, 60.20216, 60.20493, 60.20468, 60.19977, 60.2008, 
  60.19662, 60.19926, 60.20436, 60.2059, 60.20468, 60.20364, 60.20359, 60.20581, 60.20837, 60.2104, 
  60.20835, 60.21208, 60.2116, 60.21441, 60.21872, 60.21884, 60.22244, 60.22257, 60.21773, 60.22106, 
  60.22807, 60.23186, 60.2342, 60.23239, 60.23742, 60.24622, 60.24728, 60.2459, 60.24914, 60.24928, 
  60.24439, 60.24194, 60.23944, 60.23446, 60.23489, 60.24047, 60.24047, 60.245, 60.25116, 60.25474, 
  60.25633, 60.25987, 60.26225, 60.26295, 60.2673, 60.26802, 60.26766, 60.27068, 60.27064, 60.27377, 
  60.27919, 60.27962, 60.27957, 60.28021, 60.28019, 60.282, 60.28289, 60.2853, 60.28579, 60.28555, 
  60.28649, 60.28725, 60.28826, 60.28782, 60.28792, 60.28714, 60.28691, 60.28558, 60.28597, 60.28793, 
  60.28848, 60.2898, 60.28965, 60.29067, 60.29134, 60.29375, 60.29465, 60.293, 60.293, 60.29448, 
  60.29464, 60.29718, 60.29758, 60.29643, 60.29502, 60.29415, 60.2974, 60.29714, 60.2984, 60.29961, 
  60.30064, 60.30278, 60.30246, 60.30116, 60.30121, 60.30028, 60.30093, 60.30312, 60.3099, 60.31016, 
  60.30791, 60.30808, 60.30648, 60.30329, 60.30036, 60.29781, 60.29885, 60.29891, 60.29989, 60.29866, 
  60.29657, 60.29494, 60.28743, 60.28728, 60.28375, 60.28705, 60.28796, 60.28909, 60.28949, 60.29115, 
  60.29087, 60.29468, 60.29517, 60.30142, 60.30357, 60.30359, 60.30516, 60.30727, 60.31197, 60.31207, 
  60.31858, 60.31851, 60.32302, 60.32427, 60.32652, 60.32684, 60.32918, 60.32945, 60.33166, 60.33273, 
  60.33406, 60.33411, 60.33219, 60.33179, 60.33232, 60.33054, 60.32744, 60.32731, 60.33003, 60.33256, 
  60.33398, 60.3364, 60.33767, 60.34298, 60.34577, 60.34736, 60.34613, 60.34867, 60.34791, 60.35243, 
  60.35169, 60.35324, 60.35186, 60.34931, 60.34753, 60.34625, 60.34182, 60.34103, 60.33479, 60.33502, 
  60.33827, 60.34179, 60.34332, 60.3436, 60.34933, 60.35281, 60.34904, 60.34819, 60.34538, 60.3471, 
  60.34545, 60.35199, 60.35466, 60.35615, 60.35833, 60.35661, 60.35373, 60.35252, 60.35394, 60.34912, 
  60.34634, 60.34644, 60.34411, 60.34559, 60.35075, 60.35067, 60.3536, 60.35517, 60.35678, 60.36164, 
  60.36268, 60.36442, 60.36304, 60.36037, 60.36045, 60.36383, 60.36236, 60.36412, 60.36901, 60.36875, 
  60.36625, 60.37147, 60.37469, 60.37346, 60.36385, 60.3595, 60.35725, 60.35833, 60.35965, 60.36372, 
  60.3647, 60.36901, 60.37236, 60.3728, 60.37043, 60.36618, 60.36453, 60.36637, 60.3678, 60.37026, 
  60.37007, 60.37052, 60.37043, 60.37117, 60.37145, 60.37363, 60.37357, 60.37234, 60.37221, 60.37171, 
  60.37163, 60.37253, 60.3725, 60.37181, 60.3718, 60.37392, 60.37176, 60.37178, 60.37361, 60.3749, 
  60.37553, 60.37665, 60.37752, 60.37848, 60.37824, 60.37623, 60.37596, 60.37455, 60.37374, 60.37411, 
  60.37609, 60.37637, 60.37517, 60.37058, 60.35994, 60.35841, 60.35425, 60.35009, 60.3503, 60.35425, 
  60.36143, 60.36629, 60.36992, 60.36989, 60.36652, 60.36631, 60.37093, 60.37176, 60.37119, 60.37516, 
  60.37492, 60.37297, 60.37371, 60.36947, 60.36972, 60.37199, 60.37318, 60.37407, 60.37322, 60.37456, 
  60.37458, 60.37259, 60.37337, 60.36913, 60.35863, 60.35648, 60.35585, 60.35279, 60.35255, 60.35379, 
  60.35319, 60.3565, 60.35761, 60.361, 60.36546, 60.36627, 60.3686, 60.36945, 60.3705, 60.37136, 
  60.37358, 60.37412, 60.37296, 60.37482, 60.37496, 60.37373, 60.37304, 60.37463, 60.37573, 60.37708, 
  60.37608, 60.37663, 60.37519, 60.38035, 60.37936, 60.38285, 60.38421, 60.38371, 60.38467, 60.38408, 
  60.38529, 60.38528, 60.38625, 60.38763, 60.38956, 60.38982, 60.38729, 60.38712, 60.3863, 60.3948, 
  60.39823, 60.40005, 60.40068, 60.40036, 60.40151, 60.40108, 60.40307, 60.40087, 60.40165, 60.39936, 
  60.40071, 60.40239, 60.40291, 60.40219, 60.40083, 60.40055, 60.39811, 60.39539, 60.39519, 60.39672, 
  60.39653, 60.39826, 60.39719, 60.39542, 60.39578, 60.39482, 60.39659, 60.39846, 60.40123, 60.4022, 
  60.40132, 60.40275, 60.40301, 60.40519, 60.40512, 60.40587, 60.40573, 60.40651, 60.41043, 60.40828, 
  60.40857, 60.4075, 60.40789, 60.41507, 60.41601, 60.41122, 60.41024, 60.41421, 60.41759, 60.41785, 
  60.42201, 60.42331, 60.42099, 60.42132, 60.42038, 60.42268, 60.42387, 60.42331, 60.42466, 60.42576, 
  60.42361, 60.42425, 60.42505, 60.4252, 60.42493, 60.42484, 60.42429, 60.42449, 60.42363, 60.42388, 
  60.4246, 60.42478, 60.42526, 60.4256, 60.42602, 60.42665, 60.42576, 60.42609, 60.4268, 60.42603, 
  60.42657, 60.42778, 60.42771, 60.42703, 60.4265, 60.42626, 60.42548, 60.42481, 60.42422, 60.4245, 
  60.42365, 60.42382, 60.42523, 60.4261, 60.42449, 60.42434, 60.42367, 60.42346, 60.42237, 60.42221, 
  60.41832, 60.41734, 60.41734, 60.4167, 60.41753, 60.41875, 60.41937, 60.42097, 60.42129, 60.42259, 
  60.42245, 60.42301, 60.42333, 60.42642, 60.4264, 60.42495, 60.42382, 60.42252, 60.42096, 60.41896, 
  60.41771, 60.41755, 60.41667, 60.41717, 60.41678, 60.41776, 60.41529, 60.41484, 60.4139, 60.41436, 
  60.41462, 60.41483, 60.41455, 60.41459, 60.41501, 60.41562, 60.41595, 60.4164, 60.41648, 60.41742, 
  60.41722, 60.41829, 60.41867, 60.41706, 60.41325, 60.4075, 60.40243, 60.40167, 60.40222, 60.40386, 
  60.40418, 60.40696, 60.40833, 60.41084, 60.41146, 60.41088, 60.41119, 60.4094, 60.40945, 60.41078, 
  60.41171, 60.41298, 60.41323, 60.41469, 60.41574, 60.4156, 60.41571, 60.41532, 60.41619, 60.41652, 
  60.41587, 60.4168, 60.41739, 60.41787, 60.4187, 60.41903, 60.41891, 60.41956, 60.41977, 60.41917, 
  60.41713, 60.41654, 60.41577, 60.41377, 60.41243, 60.41218, 60.41185, 60.41172, 60.40981, 60.40938, 
  60.40921, 60.40847, 60.40835, 60.40692, 60.40655, 60.40734, 60.40632, 60.4056, 60.40581, 60.40542, 
  60.40584, 60.40676, 60.40787, 60.40789, 60.40983, 60.40991, 60.40736, 60.40541, 60.4058, 60.40431, 
  60.40524, 60.4034, 60.40444, 60.40231, 60.40155, 60.40046, 60.39859, 60.3986, 60.39007, 60.38915, 
  60.38921, 60.38789, 60.3867, 60.3853, 60.38497, 60.38433, 60.38455, 60.38065, 60.38101, 60.37966, 
  60.37908, 60.37754, 60.37621, 60.37637, 60.3747, 60.37583, 60.3771, 60.37863, 60.37785, 60.37655, 
  60.37636, 60.37704, 60.37671, 60.37761, 60.3752, 60.37363, 60.37233, 60.37119, 60.36763, 60.36657, 
  60.36413, 60.36224, 60.36133, 60.36249, 60.36222, 60.36336, 60.36453, 60.36313, 60.36203, 60.36107, 
  60.3602, 60.35878, 60.35812, 60.35799, 60.35596, 60.35634, 60.35528, 60.35039, 60.3477, 60.34585, 
  60.34349, 60.34309, 60.34434, 60.34411, 60.34053, 60.33789, 60.33047, 60.33113, 60.32931, 60.32803, 
  60.33468, 60.33281, 60.33077, 60.33149, 60.33084, 60.33608, 60.3392, 60.33804, 60.33638, 60.33581, 
  60.33368, 60.33156, 60.32933, 60.3289, 60.32716, 60.32765, 60.32542, 60.32788, 60.32653, 60.32608, 
  60.32364, 60.32283, 60.32136, 60.32111, 60.31939, 60.31703, 60.31771, 60.31509, 60.31218, 60.31464, 
  60.31233, 60.31331, 60.3095, 60.30767, 60.30629, 60.29662, 60.29555, 60.298, 60.29847, 60.30068, 
  60.3018, 60.30516, 60.30772, 60.31133, 60.31095, 60.30867, 60.30878, 60.30689, 60.30365, 60.30219, 
  60.29566, 60.29583, 60.29362, 60.28749, 60.28758, 60.29068, 60.28958, 60.29307, 60.29311, 60.29594, 
  60.2964, 60.2991, 60.29996, 60.30338, 60.30319, 60.2967, 60.29077, 60.28719, 60.28279, 60.2782, 
  60.26998, 60.27475, 60.27571, 60.27092, 60.26917, 60.26168, 60.25563, 60.25385, 60.25204, 60.24196, 
  60.24047, 60.23779, 60.23749, 60.2393, 60.24386, 60.24599, 60.24686, 60.2482, 60.24463, 60.24812, 
  60.24869, 60.25033, 60.25076, 60.25257, 60.25306, 60.25734, 60.26134, 60.26513, 60.26662, 60.26934, 
  60.27043, 60.26996, 60.26775, 60.269, 60.26234, 60.25184, 60.24995, 60.24803, 60.2432, 60.23817, 
  60.23661, 60.23539, 60.23433, 60.23294, 60.23165, 60.23181, 60.22934, 60.22945, 60.22822, 60.23171, 
  60.23167, 60.22881, 60.22634, 60.22378, 60.22182, 60.21585, 60.21539, 60.2127, 60.20758, 60.20737, 
  60.20101, 60.19892, 60.20136, 60.22084, 60.2289, 60.23418, 60.23814, 60.2439, 60.25075, 60.25369, 
  60.2505, 60.24615, 60.24304, 60.25101, 60.25518, 60.2588, 60.26319, 60.26493, 60.28562, 60.28481, 
  60.29587, 60.29655, 60.31326, 60.31156, 60.31441, 60.31947, 60.32326, 60.32066, 60.3219, 60.32096, 
  60.31578, 60.32, 60.32572, 60.32729, 60.32547, 60.32491, 60.32224, 60.31952, 60.32011, 60.32462, 
  60.32542, 60.33154, 60.33018, 60.32564, 60.32202, 60.32173, 60.32462, 60.32644, 60.33464, 60.33558, 
  60.33507, 60.33796, 60.33269, 60.32699, 60.32691, 60.32249, 60.31807, 60.31663, 60.3037, 60.30476, 
  60.30952, 60.30213, 60.29877, 60.29841, 60.30279, 60.29649, 60.28866, 60.28373, 60.28154, 60.28116, 
  60.28637, 60.28456, 60.29005, 60.29432, 60.29766, 60.29713, 60.29526, 60.29239, 60.29268, 60.29872, 
  60.2983, 60.28971, 60.28977, 60.2936, 60.28426, 60.28707, 60.28494, 60.28818, 60.29088, 60.29479, 
  60.29071, 60.29052, 60.28864, 60.28671, 60.28424, 60.28309, 60.28073, 60.27952, 60.27954, 60.27818, 
  60.27909, 60.28256, 60.28556, 60.2883, 60.2889, 60.29296, 60.29381, 60.29807, 60.30068, 60.29832, 
  60.30013, 60.30442, 60.30546, 60.30427, 60.30444, 60.2994, 60.29732, 60.30119, 60.30104, 60.29607, 
  60.29232, 60.28435, 60.28843, 60.29018, 60.28839, 60.28605, 60.28677, 60.28375, 60.27992, 60.27839, 
  60.2798, 60.27099, 60.26648, 60.26171, 60.24893, 60.23815, 60.23274, 60.22933, 60.2269, 60.2285, 
  60.22839, 60.22313, 60.21891, 60.21671, 60.21314, 60.2049, 60.19445, 60.1971, 60.18592, 60.17542, 
  60.16782, 60.16274, 60.15723, 60.15279, 60.14967, 60.14206, 60.13813, 60.12907, 60.12446, 60.11893, 
  60.1156)
LONGITUDE_VALUEs <- c(
  19.75383, 19.74886, 19.76851, 19.77633, 19.7789, 19.78268, 19.77838, 19.78787, 19.79169, 19.79697, 
  19.79852, 19.80482, 19.80538, 19.80302, 19.80174, 19.80869, 19.81049, 19.80847, 19.80903, 19.81414, 
  19.81422, 19.81658, 19.81804, 19.81929, 19.82087, 19.82431, 19.82658, 19.82972, 19.83525, 19.83485, 
  19.83948, 19.84472, 19.85146, 19.85517, 19.8565, 19.86173, 19.86203, 19.8698, 19.87066, 19.87315, 
  19.87527, 19.87532, 19.86864, 19.86465, 19.86025, 19.86122, 19.86448, 19.86233, 19.86414, 19.8672, 
  19.86611, 19.86805, 19.87415, 19.87393, 19.8756, 19.87507, 19.87661, 19.8762, 19.87966, 19.88241, 
  19.88309, 19.88698, 19.88507, 19.88217, 19.88163, 19.87949, 19.87773, 19.87921, 19.88161, 19.88292, 
  19.88322, 19.88187, 19.88734, 19.89009, 19.88919, 19.89474, 19.89665, 19.89584, 19.89459, 19.89408, 
  19.89751, 19.90043, 19.90183, 19.90097, 19.90541, 19.90852, 19.91058, 19.91363, 19.91545, 19.91496, 
  19.9123, 19.90672, 19.90487, 19.90764, 19.90343, 19.90047, 19.90691, 19.90852, 19.90899, 19.90994, 
  19.91047, 19.91367, 19.91526, 19.91828, 19.92195, 19.92271, 19.9236, 19.92478, 19.92272, 19.92096, 
  19.92144, 19.92067, 19.91888, 19.91957, 19.91732, 19.91811, 19.91635, 19.91725, 19.91543, 19.91931, 
  19.9197, 19.91736, 19.91635, 19.91878, 19.91743, 19.92032, 19.91929, 19.91923, 19.92135, 19.92356, 
  19.92562, 19.92532, 19.92388, 19.92352, 19.92619, 19.92679, 19.92441, 19.92466, 19.92289, 19.92758, 
  19.93123, 19.93058, 19.93612, 19.93363, 19.9384, 19.94256, 19.94599, 19.95316, 19.94972, 19.9496, 
  19.95526, 19.9581, 19.95822, 19.96037, 19.96071, 19.96381, 19.96118, 19.96307, 19.96402, 19.9544, 
  19.95166, 19.94749, 19.94543, 19.94522, 19.9441, 19.94548, 19.9511, 19.95303, 19.95796, 19.96461, 
  19.96891, 19.98097, 19.97976, 19.98148, 19.98775, 19.99238, 19.9874, 19.99217, 19.99976, 20.00114, 
  20.00097, 20.0035, 20.00419, 20.0153, 20.01453, 20.01358, 20.01028, 20.00611, 20.00723, 20.00473, 
  20.00278, 19.99906, 19.99512, 19.98546, 19.98428, 19.98481, 19.98327, 19.98409, 19.98359, 19.98784, 
  19.98559, 19.9802, 19.97469, 19.97522, 19.97803, 19.97971, 19.98402, 19.98589, 19.99327, 19.99687, 
  20.00125, 20.00595, 20.0097, 20.01164, 20.0141, 20.01717, 20.01812, 20.01586, 20.02421, 20.02378, 
  20.02683, 20.02725, 20.0297, 20.0294, 20.03279, 20.03824, 20.03906, 20.04459, 20.04502, 20.04751, 
  20.04764, 20.04987, 20.04768, 20.05056, 20.05326, 20.05309, 20.05545, 20.05695, 20.0591, 20.05996, 
  20.06287, 20.06856, 20.06658, 20.06903, 20.06976, 20.07345, 20.07624, 20.08298, 20.08783, 20.09207, 
  20.09499, 20.10293, 20.10254, 20.11345, 20.11739, 20.11503, 20.11456, 20.13031, 20.12932, 20.1177, 
  20.11246, 20.11091, 20.11877, 20.11885, 20.12104, 20.12246, 20.12336, 20.12894, 20.12919, 20.13138, 
  20.13439, 20.13572, 20.13679, 20.13834, 20.13709, 20.13722, 20.1407, 20.14052, 20.14675, 20.14623, 
  20.14761, 20.15177, 20.15371, 20.15521, 20.16035, 20.16138, 20.1622, 20.15661, 20.15593, 20.16293, 
  20.1628, 20.16494, 20.16473, 20.16718, 20.16799, 20.17048, 20.17774, 20.17782, 20.18194, 20.18331, 
  20.18052, 20.18524, 20.17915, 20.17923, 20.18391, 20.18932, 20.19087, 20.18713, 20.18511, 20.18417, 
  20.18142, 20.18095, 20.18404, 20.18292, 20.18022, 20.17988, 20.17709, 20.17563, 20.17709, 20.1746, 
  20.17503, 20.17769, 20.17825, 20.17696, 20.17765, 20.17687, 20.17825, 20.1771, 20.17768, 20.18071, 
  20.18801, 20.19095, 20.19324, 20.19426, 20.19587, 20.19658, 20.20007, 20.20449, 20.20442, 20.20395, 
  20.20423, 20.20251, 20.20034, 20.1973, 20.19816, 20.19771, 20.19906, 20.19873, 20.19996, 20.2032, 
  20.20279, 20.20388, 20.20586, 20.20764, 20.20809, 20.20983, 20.21238, 20.21453, 20.21762, 20.22365, 
  20.2247, 20.22652, 20.22661, 20.2291, 20.23109, 20.23159, 20.23403, 20.23478, 20.23237, 20.2279, 
  20.22837, 20.22464, 20.21812, 20.20534, 20.2141, 20.21135, 20.22259, 20.21933, 20.20963, 20.208, 
  20.21012, 20.20999, 20.21422, 20.21304, 20.22057, 20.2225, 20.2246, 20.22407, 20.21697, 20.21626, 
  20.22115, 20.22235, 20.22433, 20.22585, 20.22864, 20.22879, 20.22596, 20.23042, 20.23239, 20.23078, 
  20.23445, 20.23368, 20.23559, 20.23686, 20.23832, 20.24244, 20.24404, 20.24696, 20.24675, 20.25121, 
  20.25301, 20.24969, 20.24724, 20.24851, 20.24658, 20.24553, 20.24087, 20.24177, 20.25199, 20.25668, 
  20.25748, 20.26053, 20.2667, 20.26733, 20.26413, 20.26565, 20.2716, 20.27263, 20.2702, 20.27194, 
  20.26962, 20.27419, 20.27407, 20.27238, 20.2713, 20.26798, 20.26866, 20.27163, 20.27283, 20.27669, 
  20.28038, 20.27944, 20.2809, 20.27807, 20.27631, 20.27485, 20.27141, 20.27112, 20.2764, 20.28125, 
  20.28657, 20.2864, 20.28824, 20.28764, 20.29902, 20.30218, 20.30025, 20.29472, 20.29459, 20.29064, 
  20.28824, 20.28691, 20.28832, 20.29214, 20.28965, 20.2936, 20.29618, 20.29455, 20.2982, 20.29545, 
  20.2916, 20.28963, 20.28018, 20.27572, 20.27194, 20.26988, 20.25236, 20.25597, 20.26129, 20.26155, 
  20.25993, 20.2589, 20.25323, 20.25726, 20.25701, 20.25074, 20.25186, 20.24799, 20.25143, 20.24757, 
  20.2352, 20.22979, 20.22602, 20.2274, 20.22379, 20.22894, 20.22164, 20.22774, 20.23238, 20.23675, 
  20.23572, 20.23907, 20.22834, 20.22276, 20.21906, 20.2182, 20.21074, 20.20928, 20.22345, 20.2074, 
  20.21066, 20.20293, 20.20018, 20.20473, 20.20151, 20.20361, 20.19915, 20.20035, 20.19713, 20.19893, 
  20.19296, 20.18777, 20.18725, 20.18447, 20.1828, 20.17898, 20.18001, 20.17323, 20.16984, 20.17293, 
  20.1686, 20.16727, 20.16405, 20.16095, 20.15988, 20.15623, 20.15615, 20.15005, 20.1488, 20.1389, 
  20.13546, 20.13379, 20.13155, 20.12958, 20.12919, 20.12164, 20.11692, 20.10405, 20.10074, 20.08804, 
  20.08606, 20.08229, 20.08255, 20.07967, 20.07924, 20.07632, 20.07671, 20.07293, 20.07156, 20.06619, 
  20.05898, 20.06358, 20.07302, 20.07113, 20.07225, 20.07113, 20.06787, 20.06877, 20.06714, 20.06474, 
  20.06641, 20.06389, 20.06362, 20.06055, 20.05756, 20.05604, 20.05371, 20.04873, 20.04439, 20.04173, 
  20.04164, 20.03774, 20.0328, 20.03354, 20.02993, 20.03023, 20.02572, 20.02259, 20.0186, 20.01483, 
  20.01976, 20.02704, 20.02906, 20.03043, 20.02919, 20.03292, 20.0391, 20.0385, 20.04013, 20.04296, 
  20.04279, 20.04463, 20.0461, 20.04258, 20.04815, 20.04764, 20.05112, 20.0488, 20.04481, 20.04472, 
  20.04005, 20.03846, 20.03137, 20.02254, 20.02322, 20.01902, 20.02073, 20.01863, 20.02584, 20.02824, 
  20.03369, 20.03365, 20.03648, 20.03936, 20.0406, 20.0364, 20.02777, 20.02743, 20.03159, 20.03871, 
  20.03978, 20.03721, 20.03464, 20.04026, 20.04506, 20.03992, 20.03601, 20.02923, 20.02541, 20.02155, 
  20.02528, 20.02301, 20.02187, 20.01933, 20.02054, 20.0159, 20.00809, 20.00985, 20.0071, 20.00757, 
  20.00534, 20.0117, 20.01118, 20.01328, 20.00603, 20.0047, 20.0062, 20.0044, 19.99993, 19.99822, 
  19.996, 19.99029, 19.99317, 19.99024, 19.98912, 19.98114, 19.97629, 19.97286, 19.97294, 19.96839, 
  19.97062, 19.96835, 19.96242, 19.96401, 19.9656, 19.96698, 19.97234, 19.97659, 19.97908, 19.97942, 
  19.9829, 19.98436, 19.98492, 19.98964, 19.9914, 19.99655, 19.9974, 20.00221, 20.00152, 20.00337, 
  20.00895, 20.01328, 20.01208, 20.00564, 20.00461, 20.00642, 20.0032, 20.00067, 20.00054, 20.00345, 
  20.01166, 20.01183, 20.01564, 20.01611, 20.02079, 20.018, 20.02045, 20.02165, 20.02384, 20.02779, 
  20.03118, 20.04598, 20.04534, 20.04749, 20.04165, 20.04036, 20.03452, 20.03414, 20.03178, 20.02989, 
  20.03714, 20.04066, 20.045, 20.0447, 20.04174, 20.04405, 20.05079, 20.05375, 20.05719, 20.05981, 
  20.05873, 20.06389, 20.06638, 20.07385, 20.07685, 20.08278, 20.08123, 20.07547, 20.07583, 20.07969, 
  20.07995, 20.09033, 20.08629, 20.08758, 20.08046, 20.08338, 20.07273, 20.06561, 20.06492, 20.08081, 
  20.08784, 20.09376, 20.09702, 20.10166, 20.10388, 20.10766, 20.10775, 20.12114, 20.12474, 20.12088, 
  20.12826, 20.13212, 20.1353, 20.13762, 20.14268, 20.14603, 20.14963, 20.16801, 20.17385, 20.17857, 
  20.18354, 20.18011, 20.19117, 20.18963, 20.1922, 20.20019, 20.20208, 20.20448, 20.20912, 20.21273, 
  20.217, 20.22121, 20.22125, 20.22502, 20.22983, 20.23026, 20.23232, 20.23357, 20.23271, 20.23623, 
  20.24026, 20.23992, 20.24164, 20.24108, 20.24413, 20.2397, 20.23867, 20.23533, 20.23177, 20.22777, 
  20.23202, 20.22636, 20.22524, 20.22125, 20.22116, 20.21026, 20.21237, 20.21623, 20.21464, 20.21713, 
  20.22481, 20.23314, 20.23065, 20.23657, 20.23958, 20.23786, 20.2452, 20.25322, 20.25477, 20.25065, 
  20.25163, 20.25035, 20.24558, 20.24919, 20.24923, 20.25052, 20.25314, 20.25442, 20.25704, 20.25846, 
  20.25811, 20.25949, 20.26297, 20.26279, 20.26559, 20.26683, 20.27344, 20.27541, 20.2743, 20.27206, 
  20.27043, 20.2706, 20.26666, 20.2658, 20.26456, 20.26379, 20.26003, 20.25765, 20.2557, 20.25447, 
  20.25243, 20.25104, 20.24889, 20.2484, 20.24673, 20.24656, 20.24368, 20.24257, 20.23767, 20.23699, 
  20.23443, 20.2348, 20.23063, 20.22995, 20.23136, 20.22967, 20.22499, 20.21589, 20.21533, 20.21109, 
  20.2193, 20.2177, 20.21609, 20.21482, 20.211, 20.20667, 20.20532, 20.20999, 20.20806, 20.2045, 
  20.20235, 20.19965, 20.19596, 20.19488, 20.19832, 20.19583, 20.19454, 20.19184, 20.18986, 20.18673, 
  20.18686, 20.18351, 20.18501, 20.18146, 20.18082, 20.17795, 20.17288, 20.17288, 20.17885, 20.17833, 
  20.17601, 20.17443, 20.17808, 20.18151, 20.18615, 20.18902, 20.19078, 20.19061, 20.19494, 20.1967, 
  20.20284, 20.20644, 20.21177, 20.20833, 20.21056, 20.20691, 20.20687, 20.20824, 20.20919, 20.20597, 
  20.20528, 20.20223, 20.20236, 20.20073, 20.19635, 20.19116, 20.1891, 20.18747, 20.18829, 20.19168, 
  20.19151, 20.19322, 20.19138, 20.19387, 20.19142, 20.17614, 20.17426, 20.15963, 20.15671, 20.15297, 
  20.15065, 20.14653, 20.14391, 20.14662, 20.14567, 20.15044, 20.15108, 20.15452, 20.15443, 20.14606, 
  20.14152, 20.12726, 20.12799, 20.13791, 20.14061, 20.13743, 20.13623, 20.13254, 20.13091, 20.12456, 
  20.12018, 20.11774, 20.11928, 20.11568, 20.11469, 20.11027, 20.11396, 20.11091, 20.10851, 20.10366, 
  20.10384, 20.09847, 20.09898, 20.09302, 20.09718, 20.10066, 20.10225, 20.09963, 20.10512, 20.10474, 
  20.1119, 20.11349, 20.1168, 20.11662, 20.12053, 20.12195, 20.12706, 20.12766, 20.11958, 20.11641, 
  20.11331, 20.11018, 20.0877, 20.07829, 20.07265, 20.06802, 20.06298, 20.06199, 20.06499, 20.06839, 
  20.06336, 20.0695, 20.06881, 20.0598, 20.05254, 20.0541, 20.04602, 20.04559, 20.04869, 20.04736, 
  20.04639, 20.04516, 20.04248, 20.04224, 20.04551, 20.0457, 20.04469, 20.04461, 20.04381, 20.04377, 
  20.04267, 20.04222, 20.03969, 20.03952, 20.03825, 20.03683, 20.03211, 20.0313, 20.03164, 20.03063, 
  20.03115, 20.02679, 20.02684, 20.02456, 20.02385, 20.02559, 20.02424, 20.02392, 20.02158, 20.01808, 
  20.01697, 20.01287, 20.01179, 20.0124, 20.02673, 20.02459, 20.0271, 20.02225, 20.02062, 20.02243, 
  20.02024, 20.01178, 20.00874, 20.00603, 20.00672, 20.00401, 20.00221, 19.99724, 19.99492, 19.98727, 
  19.98226, 19.97813, 19.97406, 19.96921, 19.95839, 19.95929, 19.96123, 19.96054, 19.95698, 19.95534, 
  19.95277, 19.95139, 19.94847, 19.95093, 19.9359, 19.93715, 19.94385, 19.94385, 19.94045, 19.9362, 
  19.93152, 19.93445, 19.93105, 19.93247, 19.93814, 19.9408, 19.94097, 19.94325, 19.9432, 19.9441, 
  19.9439, 19.93998, 19.93796, 19.93752, 19.9348, 19.9342, 19.93137, 19.92825, 19.9284, 19.93115, 
  19.93254, 19.9337, 19.93804, 19.93915, 19.9404, 19.94368, 19.94306, 19.9455, 19.9457, 19.94699, 
  19.94737, 19.94889, 19.94992, 19.94979, 19.95061, 19.95284, 19.95211, 19.95378, 19.95563, 19.96361, 
  19.96102, 19.96185, 19.96138, 19.95986, 19.95793, 19.95679, 19.95578, 19.95411, 19.95312, 19.95196, 
  19.95074, 19.95111, 19.9498, 19.94739, 19.94716, 19.94246, 19.93898, 19.93939, 19.93804, 19.93748, 
  19.93516, 19.93415, 19.93314, 19.93281, 19.93159, 19.92978, 19.92738, 19.92755, 19.92611, 19.9283, 
  19.9318, 19.93249, 19.93137, 19.93287, 19.93369, 19.93429, 19.93573, 19.93624, 19.93472, 19.93335, 
  19.93133, 19.93047, 19.92931, 19.93041, 19.92828, 19.92262, 19.9188, 19.9224, 19.92049, 19.91891, 
  19.91779, 19.91345, 19.91249, 19.9101, 19.90787, 19.90927, 19.90835, 19.90504, 19.9047, 19.89968, 
  19.89985, 19.89781, 19.8974, 19.89519, 19.89502, 19.89373, 19.89365, 19.89174, 19.89135, 19.89056, 
  19.89075, 19.88957, 19.88981, 19.88903, 19.88955, 19.88822, 19.88571, 19.88408, 19.88322, 19.87903, 
  19.877, 19.87633, 19.87565, 19.87535, 19.8712, 19.8717, 19.8711, 19.87204, 19.8706, 19.86878, 
  19.86796, 19.8668, 19.86745, 19.86586, 19.86333, 19.8621, 19.86129, 19.85904, 19.85912, 19.85854, 
  19.86063, 19.85985, 19.85844, 19.85749, 19.85563, 19.85528, 19.85659, 19.85723, 19.85653, 19.85683, 
  19.85496, 19.85488, 19.85402, 19.8573, 19.8553, 19.84781, 19.84766, 19.84977, 19.84561, 19.84488, 
  19.84637, 19.84825, 19.8491, 19.85121, 19.85295, 19.85402, 19.85705, 19.85385, 19.85211, 19.8506, 
  19.85063, 19.84958, 19.84938, 19.8458, 19.84578, 19.84638, 19.84578, 19.84578, 19.84509, 19.8443, 
  19.84266, 19.8429, 19.84202, 19.83775, 19.83458, 19.83503, 19.83683, 19.83284, 19.83168, 19.83339, 
  19.83112, 19.8323, 19.83116, 19.83161, 19.83084, 19.83, 19.82882, 19.82685, 19.82453, 19.82445, 
  19.82518, 19.82511, 19.8246, 19.82638, 19.82481, 19.8239, 19.82276, 19.82116, 19.82087, 19.81985, 
  19.81921, 19.81887, 19.81909, 19.81695, 19.81753, 19.8167, 19.8159, 19.81583, 19.81527, 19.81461, 
  19.81558, 19.81539, 19.81703, 19.81528, 19.81515, 19.81603, 19.81603, 19.81475, 19.81484, 19.8156, 
  19.81519, 19.81533, 19.81578, 19.81562, 19.81705, 19.81765, 19.81878, 19.81868, 19.81782, 19.81704, 
  19.81525, 19.81488, 19.815, 19.81276, 19.81239, 19.81172, 19.80981, 19.80925, 19.80867, 19.80701, 
  19.80596, 19.80418, 19.80171, 19.80076, 19.79922, 19.79874, 19.79883, 19.79617, 19.79858, 19.7979, 
  19.79633, 19.79449, 19.7953, 19.79534, 19.79721, 19.79743, 19.79876, 19.80167, 19.80345, 19.80888, 
  19.80822, 19.81184, 19.81154, 19.80921, 19.80767, 19.80423, 19.80503, 19.80275, 19.80033, 19.80095, 
  19.8002, 19.79812, 19.79561, 19.78881, 19.78516, 19.786, 19.784, 19.78424, 19.78141, 19.77798, 
  19.77819, 19.77463, 19.77605, 19.7797, 19.78201, 19.78146, 19.78429, 19.78987, 19.79029, 19.78553, 
  19.7872, 19.79583, 19.79566, 19.79343, 19.79381, 19.79205, 19.78952, 19.78939, 19.79068, 19.78995, 
  19.79145, 19.78892, 19.78815, 19.78523, 19.78007, 19.78145, 19.7942, 19.80102, 19.80055, 19.80596, 
  19.81192, 19.81398, 19.81342, 19.81943, 19.82248, 19.82759, 19.82759, 19.83386, 19.83399, 19.83034, 
  19.83012, 19.83179, 19.82991, 19.83192, 19.83218, 19.83338, 19.83703, 19.84382, 19.84536, 19.84394, 
  19.84497, 19.8424, 19.84313, 19.84978, 19.8497, 19.85549, 19.84652, 19.84231, 19.84403, 19.85111, 
  19.8518, 19.85484, 19.85532, 19.85364, 19.8569, 19.85862, 19.86064, 19.86377, 19.86145, 19.86248, 
  19.86124, 19.86257, 19.86068, 19.86399, 19.86652, 19.86622, 19.86901, 19.86991, 19.86836, 19.87446, 
  19.87291, 19.86656, 19.86282, 19.86948, 19.87128, 19.87141, 19.87836, 19.88166, 19.8875, 19.8851, 
  19.88913, 19.88887, 19.89218, 19.89497, 19.89639, 19.89501, 19.89742, 19.8933, 19.89608, 19.89025, 
  19.88492, 19.88561, 19.88149, 19.87626, 19.86604, 19.86158, 19.86257, 19.86587, 19.85771, 19.85883, 
  19.86115, 19.85952, 19.8551, 19.85596, 19.85304, 19.85291, 19.84214, 19.83746, 19.83051, 19.83025, 
  19.82883, 19.82901, 19.82471, 19.8248, 19.82334, 19.82789, 19.82695, 19.83145, 19.82862, 19.83064, 
  19.82854, 19.82609, 19.82639, 19.82429, 19.80755, 19.81489, 19.81081, 19.81111, 19.81171, 19.80407, 
  19.80434, 19.80724, 19.80604, 19.80181, 19.80207, 19.80396, 19.80739, 19.82066, 19.8253, 19.83225, 
  19.83663, 19.82951, 19.82968, 19.8259, 19.81388, 19.81723, 19.81224, 19.81259, 19.82623, 19.81987, 
  19.82022, 19.81189, 19.80399, 19.79773, 19.79962, 19.79404, 19.79568, 19.79053, 19.79096, 19.784, 
  19.77946, 19.78469, 19.78152, 19.77199, 19.77517, 19.76735, 19.77207, 19.76615, 19.77911, 19.78212, 
  19.78881, 19.79457, 19.79989, 19.80478, 19.80925, 19.8092, 19.80234, 19.80217, 19.80062, 19.79779, 
  19.79848, 19.79302, 19.79702, 19.79256, 19.79024, 19.78672, 19.78638, 19.78174, 19.78037, 19.7808, 
  19.77762, 19.77848, 19.76904, 19.76749, 19.76938, 19.76603, 19.76586, 19.76071, 19.76432, 19.76363, 
  19.76037, 19.75479, 19.73789, 19.74441, 19.7487, 19.75367, 19.75024, 19.74286, 19.74698, 19.75444, 
  19.75638, 19.7668, 19.76453, 19.75908, 19.7538, 19.75076, 19.75222, 19.74797, 19.749, 19.74552, 
  19.74445, 19.73441, 19.73024, 19.73248, 19.73106, 19.72904, 19.72951, 19.72661, 19.72455, 19.72288, 
  19.71571, 19.71426, 19.70936, 19.70769, 19.69992, 19.697, 19.69327, 19.69288, 19.6976, 19.69052, 
  19.68662, 19.68237, 19.68224, 19.67911, 19.68001, 19.67902, 19.68108, 19.67953, 19.67735, 19.6773, 
  19.67511, 19.67584, 19.67425, 19.67417, 19.67739, 19.67954, 19.67821, 19.67868, 19.67134, 19.66683, 
  19.65602, 19.65941, 19.65731, 19.65413, 19.64842, 19.65228, 19.65147, 19.6467, 19.64357, 19.64413, 
  19.63464, 19.64564, 19.652, 19.65732, 19.66213, 19.65878, 19.65578, 19.64925, 19.65139, 19.65474, 
  19.65783, 19.66204, 19.66015, 19.66667, 19.65809, 19.67002, 19.67182, 19.68193, 19.68318, 19.68515, 
  19.68949, 19.69026, 19.69391, 19.69348, 19.69586, 19.68753, 19.68959, 19.69843, 19.69302, 19.70461, 
  19.70109, 19.70383, 19.71208, 19.70564, 19.7186, 19.71379, 19.72761, 19.73208, 19.72701, 19.73379, 
  19.73216)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
MGeo_1 <- MGeo_1 %>%
  mutate(NAME = "ÅLAND ISLANDS", VISUALIZATION_NAME = "Åland Islands",
         ISO2 = "AX", ISO3 = "ALA", M49_CODE = "248", SOVRN = "Finland", CONTINENT = "EUROPE",
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "FINLAND")
Geo_2 <- GeoDATA %>% filter(NAME == "RUSSIAN FEDERATION")
Geo_3 <- GeoDATA %>% filter(NAME == "SWEDEN")

##### FINLAND #####
Geo_0 <- st_cast(Geo_1, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0[32, ]))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
LATITUDE_VALUEs <- c(
  66.00135, 65.99572, 65.97923, 65.97371, 65.96973, 65.96604, 65.96338, 65.95696, 65.95135, 65.9498, 
  65.9467, 65.94511, 65.93615, 65.93065, 65.9295, 65.93177, 65.92642, 65.91759, 65.91388, 65.89443, 
  65.8884, 65.87315, 65.86258, 65.863, 65.85791, 65.85079, 65.8412, 65.81547, 65.80079,
  65.79635, 65.79199, 65.78818, 65.78607, 65.78227, 65.78565, 65.78692, 65.78086, 65.78009, 65.77318, 
  65.7722, 65.75141, 65.75515, 65.75966, 65.76487, 65.77354, 65.76854, 65.77178, 65.766, 65.76403, 
  65.7691, 65.77269, 65.78058, 65.78178, 65.78537, 65.7884, 65.78692, 65.79269, 65.79691, 65.80177, 
  65.80247, 65.79459, 65.79487, 65.79853, 65.79396, 65.79656, 65.79283, 65.79318, 65.79642, 65.79382, 
  65.79663, 65.79227, 65.79199, 65.79945, 65.79952, 65.79149, 65.79206, 65.78382, 65.78424, 65.78192, 
  65.78248, 65.78037, 65.77741, 65.77692, 65.77495, 65.77065, 65.77199, 65.77833, 65.7834, 65.77621, 
  65.77347, 65.77318, 65.77699, 65.77797, 65.78931, 65.79255, 65.80022, 65.8126, 65.82858, 65.84348, 
  65.86138, 65.87051, 65.88903, 65.89968, 65.8966, 65.88482, 65.8552, 65.85162, 65.80332, 65.80262, 
  65.78559, 65.78355, 65.77933, 65.7825, 65.77658, 65.77383, 65.76214, 65.75953, 65.75298, 65.74804, 
  65.75086, 65.74811, 65.74381, 65.74303, 65.74042, 65.74275, 65.74148, 65.7321, 65.72582, 65.72984, 
  65.7225, 65.72314, 65.71085, 65.71601, 65.70937, 65.70888, 65.70584, 65.70556, 65.7033, 65.69899, 
  65.70033, 65.69955, 65.70111, 65.6963, 65.69574, 65.69164, 65.69079, 65.68436, 65.68401, 65.67828, 
  65.67913, 65.68634, 65.68811, 65.68641, 65.69199, 65.7021, 65.69362, 65.68097, 65.68436, 65.68012, 
  65.67602, 65.67298, 65.66541, 65.65876, 65.65289, 65.65409, 65.64928, 65.6451, 65.6417, 65.64001, 
  65.63788, 65.63462, 65.63526, 65.62988, 65.63972, 65.64397, 65.64716, 65.65183, 65.64638, 65.65253, 
  65.65607, 65.65926, 65.65989, 65.66315, 65.66725, 65.66421, 65.66569, 65.66103, 65.66096, 65.64843, 
  65.65904, 65.66053, 65.66427, 65.67163, 65.66547, 65.66668, 65.66307, 65.66314, 65.65982, 65.66582, 
  65.66342, 65.6683, 65.66398, 65.6654, 65.66136, 65.65896, 65.6528, 65.64587, 65.64346, 65.63879, 
  65.63121, 65.6334, 65.63192, 65.63071, 65.63284, 65.63319, 65.63142, 65.63383, 65.62823, 65.62164, 
  65.62257, 65.6215, 65.62802, 65.61817, 65.61697, 65.5918, 65.59293, 65.58839, 65.59031, 65.56951, 
  65.57306, 65.55986, 65.55105, 65.55012, 65.56248, 65.55723, 65.57079, 65.56817, 65.56412, 65.56248, 
  65.58555, 65.56518, 65.56064, 65.56312, 65.56007, 65.54188, 65.53058, 65.51735, 65.51066, 65.50248, 
  65.48952, 65.48888, 65.4851, 65.48674, 65.4824, 65.47734, 65.47848, 65.47043, 65.46914, 65.4643, 
  65.46551, 65.46337, 65.46173, 65.45788, 65.45731, 65.45424, 65.45567, 65.45025, 65.44818, 65.44825, 
  65.44183, 65.43919, 65.44198, 65.43941, 65.43398, 65.42613, 65.42156, 65.42121, 65.42406, 65.42156, 
  65.42542, 65.42713, 65.42785, 65.42278, 65.42199, 65.41792, 65.41921, 65.41492, 65.40992, 65.40521, 
  65.39956, 65.41078, 65.40806, 65.41092, 65.39449, 65.3917, 65.3907, 65.38298, 65.38348, 65.37897, 
  65.38112, 65.37411, 65.37218, 65.36774, 65.36739, 65.3701, 65.36975, 65.36001, 65.35851, 65.353, 
  65.35801, 65.35994, 65.36381, 65.36631, 65.36696, 65.35586, 65.34964, 65.34548, 65.34298, 65.33603, 
  65.33209, 65.32593, 65.32643, 65.32449, 65.32607, 65.32908, 65.32836, 65.32392, 65.32091, 65.32048, 
  65.31596, 65.32335, 65.32456, 65.32922, 65.33101, 65.33947, 65.33574, 65.33452, 65.33066, 65.32793, 
  65.31983, 65.31797, 65.31539, 65.31639, 65.31001, 65.3042, 65.30406, 65.28856, 65.28533, 65.28713, 
  65.28232, 65.2722, 65.26573, 65.26897, 65.2666, 65.26775, 65.25934, 65.25726, 65.24971, 65.24454, 
  65.24439, 65.2428, 65.24417, 65.24137, 65.23863, 65.23993, 65.23439, 65.23281, 65.23029, 65.23087, 
  65.22979, 65.23173, 65.23403, 65.23741, 65.23497, 65.23209, 65.23223, 65.22411, 65.22166, 65.2172, 
  65.21857, 65.22238, 65.21936, 65.21194, 65.21424, 65.20971, 65.20733, 65.19848, 65.19963, 65.19668, 
  65.19797, 65.18018, 65.18148, 65.18774, 65.18947, 65.1827, 65.17823, 65.17715, 65.18811, 65.19235, 
  65.19848, 65.19286, 65.19221, 65.18883, 65.18731, 65.17377, 65.16894, 65.17355, 65.16872, 65.15769, 
  65.15495, 65.14297, 65.13677, 65.12695, 65.125, 65.12781, 65.12572, 65.12666, 65.12298, 65.11929, 
  65.12002, 65.11359, 65.10434, 65.106, 65.09718, 65.09003, 65.08533, 65.06645, 65.06414, 65.05878, 
  65.04314, 65.03191, 65.01278, 65.01198, 65.00502, 65.0027, 64.9974, 65.0027, 64.9966, 64.99196, 
  64.97384, 64.95982, 64.9535, 64.94747, 64.94812, 64.94638, 64.95001, 64.96113, 64.96258, 64.97282, 
  64.98655, 64.99083, 64.99032, 64.99779, 64.99758, 65.0028, 65.00171, 65.00331, 65.00382, 64.9983, 
  64.99351, 64.98567, 64.98074, 64.98088, 64.94369, 64.94034, 64.93569, 64.93169, 64.92049, 64.91474, 
  64.90469, 64.91132, 64.89916, 64.8304, 64.82952, 64.84018, 64.8501, 64.85171, 64.86017, 64.87388, 
  64.873, 64.88743, 64.88925, 64.89683, 64.90513, 64.89763, 64.90513, 64.91823, 64.91743, 64.92187, 
  64.91503, 64.90891, 64.91685, 64.9076, 64.90739, 64.89013, 64.88146, 64.88554, 64.88372, 64.88969, 
  64.8816, 64.88124, 64.87541, 64.87533, 64.87293, 64.87344, 64.86943, 64.86579, 64.86622, 64.86229, 
  64.8644, 64.85973, 64.85652, 64.85506, 64.85091, 64.84244, 64.83952, 64.83295, 64.82967, 64.82449, 
  64.82098, 64.8082, 64.8044, 64.80761, 64.81214, 64.82156, 64.82814, 64.83398, 64.83777, 64.83288, 
  64.81455, 64.80045, 64.79972, 64.78444, 64.77288, 64.77142, 64.76395, 64.75949, 64.75898, 64.75356, 
  64.74836, 64.74631, 64.73452, 64.72147, 64.71905, 64.71201, 64.71429, 64.70923, 64.70849, 64.70556, 
  64.70673, 64.70409, 64.70175, 64.69896, 64.69602, 64.70101, 64.70167, 64.69456, 64.69382, 64.69103, 
  64.69008, 64.68472, 64.68575, 64.67231, 64.67349, 64.66695, 64.66152, 64.65895, 64.65344, 64.65946, 
  64.64079, 64.63366, 64.63204, 64.63814, 64.63799, 64.61894, 64.60768, 64.60554, 64.59597, 64.592, 
  64.58758, 64.58065, 64.57638, 64.56392, 64.55743, 64.54504, 64.54002, 64.53367, 64.53205, 64.52924, 
  64.5302, 64.52408, 64.52851, 64.53375, 64.53685, 64.53906, 64.53456, 64.53596, 64.53139, 64.52637, 
  64.51544, 64.51233, 64.50783, 64.50066, 64.49844, 64.50443, 64.50642, 64.49874, 64.49926, 64.48832, 
  64.47671, 64.47915, 64.47301, 64.48129, 64.48588, 64.48003, 64.47626, 64.46886, 64.46642, 64.45858, 
  64.45355, 64.45503, 64.44851, 64.44799, 64.44348, 64.43999, 64.44251, 64.43629, 64.43214, 64.42644, 
  64.4151, 64.41406, 64.4102, 64.41495, 64.40331, 64.40516, 64.3927, 64.39292, 64.35327, 64.33023, 
  64.28945, 64.28408, 64.28974, 64.27285, 64.27471, 64.26808, 64.25757, 64.26145, 64.25608, 64.24989, 
  64.2396, 64.23363, 64.22497, 64.22086, 64.22393, 64.21855, 64.22572, 64.21579, 64.20989, 64.20548, 
  64.1948, 64.18598, 64.17873, 64.17544, 64.16736, 64.16145, 64.15741, 64.15344, 64.14311, 64.14596, 
  64.13645, 64.14424, 64.14027, 64.13031, 64.12701, 64.11712, 64.11517, 64.12656, 64.11675, 64.10333, 
  64.09448, 64.07265, 64.05516, 64.04659, 64.04434, 64.05613, 64.05576, 64.04569, 64.04546, 64.04148, 
  64.0428, 64.04168, 64.04551, 64.04949, 64.04941, 64.0561, 64.05415, 64.05828, 64.05385, 64.05715, 
  64.08177, 64.08282, 64.08657, 64.08027, 64.08125, 64.07434, 64.05768, 64.03273, 64.02416, 64.00814, 
  64.00182, 63.99671, 63.98775, 63.97555, 63.96855, 63.95061, 63.93915, 63.92927, 63.92301, 63.91961, 
  63.92346, 63.91229, 63.9135, 63.92678, 63.92987, 63.93259, 63.93658, 63.93953, 63.94043, 63.94413, 
  63.94428, 63.94624, 63.94594, 63.94782, 63.94382, 63.93817, 63.93259, 63.93545, 63.92949, 63.91946, 
  63.91418, 63.90957, 63.91478, 63.91953, 63.91395, 63.91538, 63.91048, 63.91244, 63.91017, 63.92052, 
  63.91697, 63.91765, 63.90942, 63.90859, 63.91191, 63.9024, 63.91327, 63.90746, 63.91418, 63.91493, 
  63.90995, 63.90912, 63.90497, 63.9187, 63.91802, 63.91221, 63.91357, 63.89817, 63.8879, 63.88646, 
  63.89341, 63.89636, 63.90278, 63.91531, 63.91402, 63.9175, 63.90806, 63.90527, 63.90074, 63.88956, 
  63.88684, 63.87278, 63.85758, 63.85607, 63.86847, 63.8718, 63.88004, 63.87792, 63.88238, 63.87664, 
  63.87346, 63.87618, 63.87361, 63.86794, 63.86862, 63.86666, 63.86076, 63.85917, 63.85962, 63.85645, 
  63.85546, 63.85319, 63.84949, 63.84124, 63.83314, 63.8236, 63.82534, 63.82928, 63.82353, 63.81982, 
  63.8158, 63.81383, 63.80656, 63.80542, 63.79693, 63.79026, 63.78533, 63.78131, 63.7939, 63.80406, 
  63.80747, 63.81391, 63.81701, 63.81716, 63.82216, 63.82141, 63.82565, 63.82451, 63.82989, 63.83057, 
  63.82867, 63.83102, 63.83625, 63.83821, 63.84705, 63.84841, 63.86581, 63.86672, 63.86051, 63.86475, 
  63.86604, 63.87428, 63.87072, 63.87669, 63.87783, 63.88486, 63.8912, 63.89302, 63.89014, 63.89475, 
  63.89649, 63.90117, 63.89732, 63.89959, 63.89521, 63.89951, 63.89294, 63.89506, 63.89279, 63.90495, 
  63.90366, 63.89921, 63.89906, 63.89302, 63.88818, 63.89022, 63.88659, 63.88554, 63.8739, 63.86808, 
  63.86815, 63.86112, 63.86535, 63.86142, 63.85893, 63.85545, 63.85409, 63.85076, 63.85159, 63.84985, 
  63.85325, 63.85295, 63.8475, 63.83585, 63.836, 63.83509, 63.83691, 63.83502, 63.83615, 63.83782, 
  63.84486, 63.84296, 63.83782, 63.83668, 63.83865, 63.84539, 63.84584, 63.85015, 63.85235, 63.85651, 
  63.8525, 63.85235, 63.85862, 63.85908, 63.85741, 63.85696, 63.86067, 63.85915, 63.85424, 63.85076, 
  63.84652, 63.8469, 63.84387, 63.84274, 63.83865, 63.83789, 63.84296, 63.83487, 63.84289, 63.84069, 
  63.84334, 63.84266, 63.84554, 63.84637, 63.8503, 63.84985, 63.84236, 63.84122, 63.8466, 63.841, 
  63.83857, 63.83804, 63.84198, 63.84047, 63.83494, 63.83388, 63.82957, 63.83078, 63.82593, 63.83358, 
  63.83214, 63.83048, 63.82737, 63.82571, 63.82474, 63.82618, 63.82216, 63.81997, 63.81724, 63.81716, 
  63.81292, 63.81572, 63.81194, 63.80868, 63.79936, 63.79974, 63.79481, 63.78708, 63.79868, 63.79936, 
  63.79654, 63.80101, 63.80063, 63.80533, 63.80563, 63.79798, 63.79373, 63.7951, 63.79843, 63.78941, 
  63.8029, 63.80154, 63.80571, 63.80851, 63.80192, 63.80048, 63.80594, 63.80298, 63.8048, 63.79813, 
  63.7766, 63.77515, 63.7722, 63.76764, 63.76529, 63.7577, 63.75778, 63.76226, 63.76119, 63.75315, 
  63.7451, 63.7369, 63.73188, 63.73234, 63.73712, 63.73234, 63.7309, 63.72618, 63.71813, 63.71988, 
  63.71539, 63.7274, 63.70977, 63.71113, 63.70558, 63.70422, 63.69395, 63.69425, 63.68953, 63.68444, 
  63.6887, 63.689, 63.6922, 63.69402, 63.70536, 63.70429, 63.70657, 63.6995, 63.69623, 63.69144, 
  63.69052, 63.68177, 63.67576, 63.66723, 63.65512, 63.64895, 63.6523, 63.65009, 63.6568, 63.6571, 
  63.66259, 63.66045, 63.675, 63.6769, 63.68192, 63.68862, 63.68215, 63.67576, 63.67401, 63.65924, 
  63.65969, 63.67523, 63.67964, 63.68718, 63.68748, 63.69707, 63.69745, 63.70429, 63.70452, 63.71364, 
  63.71995, 63.70764, 63.69083, 63.68413, 63.69684, 63.69288, 63.70376, 63.70399, 63.69387, 63.69326, 
  63.70193, 63.7125, 63.72406, 63.72071, 63.71547, 63.69418, 63.69113, 63.68444, 63.66586, 63.67507, 
  63.66914, 63.66426, 63.66221, 63.65794, 63.65223, 63.63996, 63.6318, 63.62227, 63.6209, 63.61876, 
  63.61991, 63.6138, 63.61289, 63.61716, 63.60846, 63.60686, 63.6032, 63.60495, 63.609, 63.60304, 
  63.59601, 63.59151, 63.59075, 63.59693, 63.58769, 63.58036, 63.58464, 63.60227, 63.60128, 63.59151, 
  63.58861, 63.58448, 63.5809, 63.57066, 63.57463, 63.56753, 63.57608, 63.56523, 63.56386, 63.56737, 
  63.56478, 63.5579, 63.55255, 63.55178, 63.54574, 63.541, 63.51797, 63.51291, 63.512, 63.50464, 
  63.50273, 63.49599, 63.49078, 63.47905, 63.47561, 63.47898, 63.48342, 63.4845, 63.48726, 63.49162, 
  63.48588, 63.47744, 63.47729, 63.48649, 63.48787, 63.48442, 63.48703, 63.49116, 63.49522, 63.49745, 
  63.50166, 63.50089, 63.50472, 63.5123, 63.51246, 63.50778, 63.51, 63.50939, 63.51284, 63.51781, 
  63.51399, 63.51781, 63.53718, 63.53756, 63.54246, 63.54483, 63.54491, 63.54009, 63.54567, 63.55355, 
  63.54567, 63.54674, 63.55034, 63.55339, 63.55737, 63.56509, 63.57693, 63.57777, 63.57426, 63.57548, 
  63.57808, 63.57938, 63.58213, 63.5822, 63.58488, 63.5874, 63.58144, 63.58037, 63.57655, 63.57006, 
  63.57021, 63.5631, 63.56112, 63.56073, 63.55722, 63.55706, 63.55339, 63.55393, 63.54858, 63.54491, 
  63.53336, 63.53213, 63.5218, 63.51522, 63.50955, 63.47308, 63.4424, 63.43787, 63.44585, 63.45429, 
  63.46296, 63.45215, 63.45261, 63.46028, 63.46296, 63.47699, 63.47485, 63.48772, 63.48466, 63.48481, 
  63.47968, 63.48244, 63.48021, 63.48121, 63.47002, 63.46511, 63.45744, 63.43948, 63.43449, 63.42182, 
  63.41875, 63.41437, 63.41583, 63.41069, 63.41337, 63.406, 63.39201, 63.37832, 63.33606, 63.32851, 
  63.3255, 63.32042, 63.32458, 63.32211, 63.3171, 63.31171, 63.30114, 63.29104, 63.2898, 63.29459, 
  63.29181, 63.30392, 63.30122, 63.31171, 63.31147, 63.31348, 63.30947, 63.30292, 63.30214, 63.29713, 
  63.3016, 63.29813, 63.29659, 63.29451, 63.28795, 63.28695, 63.28255, 63.28093, 63.27336, 63.25776, 
  63.25274, 63.2624, 63.25251, 63.241, 63.23566, 63.23172, 63.23767, 63.24324, 63.24672, 63.24084, 
  63.24347, 63.2379, 63.23736, 63.2311, 63.23327, 63.2277, 63.22847, 63.2161, 63.22082, 63.24911, 
  63.25653, 63.25699, 63.25166, 63.25158, 63.24865, 63.24996, 63.24679, 63.2437, 63.23636, 63.24339, 
  63.23381, 63.24061, 63.22963, 63.22368, 63.21687, 63.20573, 63.19536, 63.20341, 63.20798, 63.2, 
  63.20356, 63.2089, 63.2051, 63.19651, 63.19171, 63.18815, 63.1832, 63.17731, 63.1787, 63.17189, 
  63.15949, 63.15887, 63.17072, 63.16701, 63.17754, 63.1801, 63.18428, 63.18258, 63.18877, 63.19721, 
  63.20077, 63.21029, 63.21207, 63.2164, 63.21887, 63.21524, 63.21501, 63.21145, 63.21632, 63.22321, 
  63.22676, 63.2331, 63.23287, 63.22537, 63.22831, 63.23998, 63.23736, 63.24168, 63.24408, 63.24624, 
  63.24779, 63.24964, 63.25188, 63.25567, 63.25212, 63.25613, 63.25775, 63.26471, 63.26548, 63.25683, 
  63.24717, 63.25157, 63.25212, 63.26308, 63.25443, 63.25567, 63.24856, 63.24207, 63.22344, 63.22429, 
  63.24702, 63.25459, 63.26339, 63.27443, 63.27899, 63.27081, 63.26393, 63.25984, 63.26278, 63.25945, 
  63.26208, 63.2688, 63.26965, 63.26077, 63.25806, 63.25899, 63.25667, 63.25768, 63.25026, 63.25899, 
  63.26455, 63.2593, 63.27582, 63.27629, 63.26957, 63.27011, 63.26617, 63.25992, 63.25953, 63.25721, 
  63.24578, 63.24949, 63.23975, 63.23643, 63.23171, 63.22251, 63.21555, 63.22475, 63.23109, 63.23364, 
  63.23736, 63.2123, 63.21052, 63.2157, 63.21934, 63.22406, 63.22158, 63.22893, 63.22777, 63.2331, 
  63.2304, 63.23527, 63.23736, 63.24392, 63.24709, 63.25196, 63.25691, 63.25707, 63.26495, 63.2702, 
  63.27352, 63.27545, 63.28224, 63.28571, 63.28733, 63.27637, 63.27653, 63.27267, 63.26896, 63.26734, 
  63.26023, 63.2539, 63.24757, 63.24362, 63.23876, 63.23999, 63.2335, 63.23064, 63.22816, 63.2185, 
  63.21517, 63.19969, 63.19807, 63.19358, 63.19095, 63.18313, 63.18847, 63.18584, 63.18932, 63.18777, 
  63.18522, 63.18289, 63.1729, 63.17267, 63.1767, 63.17359, 63.17483, 63.17119, 63.1715, 63.16615, 
  63.16577, 63.16243, 63.15229, 63.15384, 63.16112, 63.1736, 63.17329, 63.16314, 63.1605, 63.15399, 
  63.14943, 63.14571, 63.1433, 63.135, 63.1312, 63.12779, 63.12352, 63.11987, 63.12018, 63.12562, 
  63.12119, 63.11933, 63.11009, 63.10388, 63.10256, 63.09549, 63.08259, 63.08236, 63.07459, 63.07622, 
  63.06168, 63.06596, 63.06153, 63.0532, 63.04114, 63.05087, 63.05048, 63.05655, 63.06114, 63.05289, 
  63.05639, 63.06339, 63.06308, 63.06845, 63.06829, 63.07568, 63.07195, 63.08057, 63.08073, 63.07754, 
  63.0805, 63.06751, 63.05811, 63.05632, 63.06067, 63.05499, 63.05772, 63.06417, 63.0658, 63.05834, 
  63.05569, 63.04861, 63.04099, 63.03461, 63.03406, 63.0241, 63.01997, 63.01818, 63.01086, 63.01366, 
  63.02815, 63.03359, 63.02425, 63.02207, 63.02456, 63.02028, 63.01903, 63.01794, 63.01148, 63.0146, 
  63.00751, 63.0054, 63.00049, 63.00057, 62.99745, 62.998, 62.99379, 62.99465, 62.98826, 62.98311, 
  62.98186, 62.97032, 62.96197, 62.94339, 62.93832, 62.92715, 62.89736, 62.88086, 62.88031, 62.89017, 
  62.89564, 62.89846, 62.90464, 62.90425, 62.88594, 62.87655, 62.87342, 62.87804, 62.87828, 62.89306, 
  62.8915, 62.88853, 62.8879, 62.885, 62.89056, 62.88696, 62.88219, 62.87522, 62.87389, 62.86599, 
  62.867, 62.86372, 62.86575, 62.86199, 62.85972, 62.85667, 62.85205, 62.85064, 62.84155, 62.83928, 
  62.83442, 62.83575, 62.81913, 62.82148, 62.81113, 62.8047, 62.80344, 62.80768, 62.81576, 62.81121, 
  62.80148, 62.79905, 62.77118, 62.76623, 62.75885, 62.74659, 62.75272, 62.7491, 62.74069, 62.74399, 
  62.72945, 62.71284, 62.70426, 62.70063, 62.70662, 62.69441, 62.69709, 62.69063, 62.70308, 62.68819, 
  62.68969, 62.68252, 62.68449, 62.68095, 62.6763, 62.67748, 62.64997, 62.64768, 62.64318, 62.63806, 
  62.63277, 62.62859, 62.62677, 62.62914, 62.62417, 62.62227, 62.62661, 62.62559, 62.62117, 62.62156, 
  62.62654, 62.62606, 62.61446, 62.61825, 62.61651, 62.6199, 62.6083, 62.60948, 62.60577, 62.61817, 
  62.61714, 62.62472, 62.63348, 62.639, 62.64484, 62.63971, 62.63001, 62.62519, 62.62204, 62.61627, 
  62.61943, 62.61856, 62.62543, 62.62093, 62.62085, 62.61335, 62.61288, 62.60798, 62.61067, 62.60703, 
  62.60087, 62.59384, 62.58207, 62.56681, 62.57282, 62.57289, 62.56143, 62.55905, 62.55763, 62.55336, 
  62.55502, 62.54901, 62.54663, 62.54291, 62.54576, 62.5426, 62.53579, 62.54418, 62.53555, 62.55075, 
  62.55186, 62.52281, 62.52614, 62.5316, 62.53754, 62.52867, 62.53318, 62.52938, 62.52028, 62.51013, 
  62.50942, 62.50253, 62.49983, 62.49642, 62.4877, 62.49452, 62.49032, 62.48786, 62.48064, 62.47977, 
  62.47176, 62.47112, 62.48326, 62.49127, 62.48493, 62.46478, 62.46541, 62.49547, 62.49301, 62.42618, 
  62.42563, 62.41903, 62.42674, 62.42761, 62.44668, 62.44692, 62.43985, 62.4381, 62.41371, 62.41183, 
  62.40293, 62.40603, 62.39688, 62.39736, 62.38869, 62.40189, 62.4166, 62.41096, 62.38479, 62.38026, 
  62.36003, 62.35565, 62.37054, 62.37564, 62.37094, 62.36489, 62.33191, 62.32266, 62.32808, 62.31804, 
  62.31788, 62.33119, 62.33167, 62.31604, 62.31453, 62.30934, 62.30615, 62.29714, 62.29969, 62.29482, 
  62.30424, 62.31485, 62.30216, 62.27638, 62.27417, 62.2689, 62.26115, 62.26459, 62.25995, 62.26059, 
  62.25548, 62.25108, 62.24652, 62.24924, 62.24644, 62.26514, 62.26522, 62.28511, 62.28551, 62.27904, 
  62.25947, 62.25252, 62.22949, 62.23237, 62.21677, 62.22789, 62.21405, 62.20365, 62.20221, 62.22061, 
  62.20085, 62.19892, 62.18251, 62.17858, 62.13481, 62.14154, 62.15935, 62.16279, 62.15053, 62.15149, 
  62.0847, 62.03507, 62.03829, 62.018, 62.01269, 62.00173, 61.99157, 61.98778, 62.0027, 61.99923, 
  62.00044, 61.98424, 61.98198, 61.98666, 61.98674, 61.99101, 61.98899, 61.98295, 61.97908, 61.97141, 
  61.96665, 61.96488, 61.95641, 61.95681, 61.95011, 61.93913, 61.94914, 61.94866, 61.95624, 61.95447, 
  61.94575, 61.94866, 61.94179, 61.9363, 61.92645, 61.91449, 61.91174, 61.88999, 61.86782, 61.86022, 
  61.84734, 61.85722, 61.85163, 61.84442, 61.84199, 61.83486, 61.84507, 61.84167, 61.85034, 61.84669, 
  61.83883, 61.84054, 61.81509, 61.79335, 61.79457, 61.78816, 61.78434, 61.79059, 61.79384, 61.79911, 
  61.80682, 61.80892, 61.80503, 61.81176, 61.80479, 61.81014, 61.80649, 61.79846, 61.79002, 61.77907, 
  61.77135, 61.77102, 61.76517, 61.76217, 61.76258, 61.7586, 61.74958, 61.74787, 61.7443, 61.74478, 
  61.74893, 61.75372, 61.75681, 61.74877, 61.74543, 61.72015, 61.71682, 61.73511, 61.72934, 61.72487, 
  61.70974, 61.72552, 61.72503, 61.70591, 61.70071, 61.70144, 61.69127, 61.69493, 61.68092, 61.67661, 
  61.66203, 61.65632, 61.65111, 61.64621, 61.64736, 61.63659, 61.63317, 61.62387, 61.61938, 61.61604, 
  61.61897, 61.60934, 61.60575, 61.60298, 61.59881, 61.5895, 61.59008, 61.58101, 61.5788, 61.57079, 
  61.56686, 61.55664, 61.56531, 61.57185, 61.57454, 61.5819, 61.58623, 61.60223, 61.60174, 61.59782, 
  61.59472, 61.59978, 61.58729, 61.59211, 61.58704, 61.58231, 61.58271, 61.5761, 61.56629, 61.57316, 
  61.56367, 61.54798, 61.53088, 61.52916, 61.53767, 61.53276, 61.52957, 61.51328, 61.50517, 61.50067, 
  61.49354, 61.50042, 61.50067, 61.50665, 61.51058, 61.50763, 61.51148, 61.50714, 61.50591, 61.49477, 
  61.49281, 61.48838, 61.47838, 61.48461, 61.46469, 61.45501, 61.44468, 61.43704, 61.42892, 61.43122, 
  61.42342, 61.42842, 61.42769, 61.43507, 61.4386, 61.43031, 61.43434, 61.42834, 61.40732, 61.39606, 
  61.38464, 61.38702, 61.38538, 61.38283, 61.37765, 61.37691, 61.38168, 61.37658, 61.37797, 61.3746, 
  61.37476, 61.37098, 61.37344, 61.37139, 61.36102, 61.35864, 61.34539, 61.34349, 61.34456, 61.33781, 
  61.33658, 61.33888, 61.33617, 61.32851, 61.32801, 61.31986, 61.32175, 61.31566, 61.31697, 61.31119, 
  61.30484, 61.29767, 61.28761, 61.28794, 61.28316, 61.27895, 61.27722, 61.28266, 61.27887, 61.28217, 
  61.27186, 61.25939, 61.24767, 61.23487, 61.22991, 61.22372, 61.21628, 61.21322, 61.229, 61.23181, 
  61.23999, 61.24173, 61.24866, 61.2461, 61.25007, 61.24321, 61.23883, 61.23685, 61.23313, 61.23726, 
  61.23347, 61.23239, 61.22966, 61.22768, 61.22454, 61.22677, 61.22272, 61.21694, 61.21107, 61.209, 
  61.20677, 61.20264, 61.2004, 61.18882, 61.18609, 61.19734, 61.19561, 61.19635, 61.19304, 61.19511, 
  61.19842, 61.21057, 61.20801, 61.20404, 61.19949, 61.20942, 61.21016, 61.21777, 61.21247, 61.21562, 
  61.21785, 61.2176, 61.2219, 61.22355, 61.21785, 61.21768, 61.21264, 61.20652, 61.20032, 61.2076, 
  61.21421, 61.21132, 61.18642, 61.17989, 61.17095, 61.16971, 61.16797, 61.17029, 61.16499, 61.16573, 
  61.15472, 61.15207, 61.14983, 61.14685, 61.14172, 61.13906, 61.13418, 61.13766, 61.13492, 61.13683, 
  61.12688, 61.12713, 61.12141, 61.11669, 61.11229, 61.10366, 61.10209, 61.09927, 61.09603, 61.09064, 
  61.08433, 61.07844, 61.08109, 61.0801, 61.07362, 61.07703, 61.07354, 61.07478, 61.07346, 61.0791, 
  61.08026, 61.08441, 61.08773, 61.08334, 61.09039, 61.08981, 61.09371, 61.09114, 61.09155, 61.08566, 
  61.08184, 61.07869, 61.08242, 61.07869, 61.07935, 61.07653, 61.08043, 61.07728, 61.07728, 61.07404, 
  61.07462, 61.07228, 61.07112, 61.06954, 61.06606, 61.06871, 61.05966, 61.04869, 61.04687, 61.06124, 
  61.06008, 61.07021, 61.06996, 61.08797, 61.08739, 61.07893, 61.0688, 61.05833, 61.05218, 61.05376, 
  61.04811, 61.04446, 61.04554, 61.0408, 61.03855, 61.03548, 61.02833, 61.03082, 61.02267, 61.02018, 
  61.02459, 61.01735, 61.01386, 60.99464, 60.99422, 60.99181, 60.99131, 60.98706, 60.9849, 60.98173, 
  60.97532, 60.97399, 60.97099, 60.96382, 60.96116, 60.94382, 60.93782, 60.93115, 60.92214, 60.91071, 
  60.93231, 60.92381, 60.92714, 60.92447, 60.92981, 60.93448, 60.93406, 60.93798, 60.93974, 60.95499, 
  60.95007, 60.96199, 60.96191, 60.98498, 60.98798, 61.00121, 61.00158, 61.00549, 61.00191, 61.00424, 
  60.99459, 60.99159, 60.9836, 60.98135, 60.95911, 60.95186, 60.94094, 60.94869, 60.94561, 60.92801, 
  60.92735, 60.91875, 60.90674, 60.90457, 60.92793, 60.9074, 60.90223, 60.89922, 60.89396, 60.89421, 
  60.89213, 60.89638, 60.89179, 60.89096, 60.89338, 60.89413, 60.89605, 60.89463, 60.89605, 60.89463, 
  60.90123, 60.89739, 60.89989, 60.89597, 60.9024, 60.89597, 60.89914, 60.89722, 60.88361, 60.88459, 
  60.88008, 60.88726, 60.88217, 60.88058, 60.8871, 60.88676, 60.88117, 60.87181, 60.86019, 60.84581, 
  60.8423, 60.83854, 60.83628, 60.83142, 60.82038, 60.82582, 60.82389, 60.82967, 60.82163, 60.81695, 
  60.80983, 60.80405, 60.79576, 60.79811, 60.79535, 60.7889, 60.78546, 60.78487, 60.77775, 60.77348, 
  60.77188, 60.76711, 60.76509, 60.75344, 60.74765, 60.74589, 60.73968, 60.73641, 60.73095, 60.72844, 
  60.72768, 60.71794, 60.71568, 60.71156, 60.70434, 60.69896, 60.69468, 60.68972, 60.69392, 60.68829, 
  60.68762, 60.67753, 60.67535, 60.6698, 60.67072, 60.66206, 60.6587, 60.65163, 60.64978, 60.64288, 
  60.64061, 60.63623, 60.64035, 60.63042, 60.62781, 60.63665, 60.62865, 60.64279, 60.63564, 60.63581, 
  60.61358, 60.60111, 60.59428, 60.58939, 60.58703, 60.58122, 60.58484, 60.58248, 60.5754, 60.57784, 
  60.57919, 60.58391, 60.58543, 60.58889, 60.58703, 60.59807, 60.59378, 60.58897, 60.59007, 60.5813, 
  60.56814, 60.56637, 60.56072, 60.55701, 60.54654, 60.52822, 60.51876, 60.51783, 60.5, 60.49239, 
  60.49628, 60.4956, 60.50169, 60.50008, 60.51918, 60.54308, 60.55507, 60.56418, 60.57514, 60.58535, 
  60.58374, 60.58847, 60.58602, 60.59411, 60.5904, 60.59352, 60.59614, 60.61602, 60.61998, 60.62747, 
  60.63732, 60.63581, 60.62789, 60.61459, 60.61088, 60.61375, 60.60574, 60.60094, 60.5942, 60.5963, 
  60.59377, 60.58964, 60.58593, 60.58087, 60.58003, 60.56915, 60.56569, 60.56231, 60.56248, 60.55438, 
  60.53826, 60.53885, 60.5353, 60.53201, 60.52542, 60.52542, 60.52112, 60.51731, 60.50464, 60.50041, 
  60.50134, 60.50033, 60.50405, 60.50608, 60.51098, 60.5114, 60.51723, 60.51943, 60.52728, 60.52838, 
  60.54079, 60.54417, 60.5494, 60.55016, 60.55328, 60.54552, 60.55573, 60.54383, 60.53767, 60.52804, 
  60.52754, 60.52196, 60.52069, 60.51537, 60.51334, 60.50616, 60.50278, 60.49914, 60.49289, 60.48968, 
  60.48435, 60.48088, 60.48046, 60.46819, 60.46608, 60.46083, 60.45998, 60.45736, 60.46244, 60.46286, 
  60.47251, 60.47403, 60.47148, 60.47723, 60.47935, 60.48343, 60.49248, 60.50279, 60.49941, 60.5, 
  60.49687, 60.49586, 60.49281, 60.49002, 60.48732, 60.48461, 60.48123, 60.47894, 60.47565, 60.47404, 
  60.47886, 60.48148, 60.49062, 60.49171, 60.49721, 60.48969, 60.50084, 60.49778, 60.4977, 60.49415, 
  60.49263, 60.48696, 60.47986, 60.48628, 60.48874, 60.49677, 60.50412, 60.50252, 60.51688, 60.5244, 
  60.52989, 60.53918, 60.54393, 60.55068, 60.55075, 60.54535, 60.54552, 60.53159, 60.53134, 60.53633, 
  60.55279, 60.5495, 60.54308, 60.54696, 60.52577, 60.53489, 60.53388, 60.54004, 60.5294, 60.52248, 
  60.51487, 60.50989, 60.50744, 60.50431, 60.51251, 60.5131, 60.49797, 60.48774, 60.48884, 60.48546, 
  60.49171, 60.49171, 60.48114, 60.48089, 60.47615, 60.47336, 60.4759, 60.47133, 60.46262, 60.46075, 
  60.45805, 60.45728, 60.45322, 60.45271, 60.44543, 60.44873, 60.45331, 60.46236, 60.47057, 60.47421, 
  60.47091, 60.46778, 60.46067, 60.44467, 60.44865, 60.44188, 60.43959, 60.44374, 60.44171, 60.44729, 
  60.44238, 60.43569, 60.44365, 60.43341, 60.43349, 60.42324, 60.424, 60.40663, 60.40832, 60.39713, 
  60.38433, 60.39705, 60.39671, 60.40086, 60.41332, 60.41214, 60.41748, 60.41968, 60.4157, 60.3906, 
  60.38212, 60.38399, 60.38136, 60.38645, 60.38034, 60.38305, 60.37567, 60.40019, 60.40705, 60.40375, 
  60.39255, 60.38356, 60.37711, 60.36116, 60.35097, 60.35505, 60.34791, 60.33865, 60.33424, 60.32701, 
  60.30797, 60.30474, 60.29955, 60.27999, 60.27241, 60.27275, 60.26569, 60.26594, 60.25683, 60.26073, 
  60.25391, 60.25604, 60.26124, 60.26626, 60.25724, 60.26081, 60.26924, 60.2695, 60.27571, 60.28005, 
  60.28669, 60.29213, 60.28907, 60.28482, 60.27656, 60.26958, 60.26447, 60.25996, 60.25834, 60.25485, 
  60.24829, 60.24011, 60.24105, 60.24957, 60.26064, 60.25911, 60.26252, 60.25902, 60.25391, 60.24616, 
  60.24966, 60.24761, 60.23611, 60.23193, 60.22904, 60.22673, 60.21403, 60.21386, 60.23031, 60.2321, 
  60.2373, 60.24531, 60.2442, 60.25, 60.26286, 60.29001, 60.29749, 60.29809, 60.30753, 60.30328, 
  60.30999, 60.32215, 60.33039, 60.33609, 60.32725, 60.33362, 60.34552, 60.36012, 60.36751, 60.37786, 
  60.36971, 60.35944, 60.35486, 60.35265, 60.3422, 60.33762, 60.31195, 60.30158, 60.28737, 60.28992, 
  60.28711, 60.28592, 60.27546, 60.26975, 60.2666, 60.25775, 60.25332, 60.24855, 60.22639, 60.20908, 
  60.19808, 60.17965, 60.16915, 60.15369, 60.15027, 60.14309, 60.13386, 60.12728, 60.12403, 60.11684, 
  60.11009, 60.10872, 60.1159, 60.12163, 60.12745, 60.12941, 60.13694, 60.12796, 60.12223, 60.13189, 
  60.1295, 60.1183, 60.10179, 60.0964, 60.09143, 60.08561, 60.08518, 60.06943, 60.06206, 60.06866, 
  60.06326, 60.07225, 60.0654, 60.05555, 60.05812, 60.05444, 60.05024, 60.04972, 60.04398, 60.04904, 
  60.05221, 60.05718, 60.04938, 60.04552, 60.03978, 60.05375, 60.06043, 60.06, 60.0666, 60.06943, 
  60.0648, 60.07046, 60.07011, 60.06352, 60.06506, 60.06138, 60.057, 60.05117, 60.04783, 60.0396, 
  60.03677, 60.04071, 60.06119, 60.06119, 60.06445, 60.05306, 60.04466, 60.00795, 60.00752, 60.01799, 
  60.01336, 60.00924, 60.00855, 60.01516, 60.02734, 60.03017, 60.03703, 60.042, 60.04723, 60.04337, 
  60.0486, 60.03788, 60.03, 60.02708, 60.02442, 60.02022, 60.02931, 60.02434, 60.02425, 60.01807, 
  60.00452, 60.00452, 59.99104, 59.98975, 59.98537, 59.98452, 59.99147, 59.97739, 59.97756, 59.97034, 
  59.98005, 59.98048, 59.9846, 59.99276, 59.98924, 59.97593, 59.97344, 59.97996, 59.97653, 59.97971, 
  59.97378, 59.97301, 59.96639, 59.96785, 59.97945, 59.98047, 59.98408, 59.98382, 59.9882, 59.98906, 
  59.99438, 60.00125, 60.00193, 60.007, 60.00854, 60.01206, 60.01549, 60.02004, 60.01652, 59.99944, 
  59.99584, 59.98931, 59.98476, 59.97867, 59.97411, 59.96363, 59.96638, 59.96011, 59.95487, 59.95023, 
  59.94335, 59.9166, 59.91591, 59.90816, 59.9036, 59.90782, 59.90575, 59.91118, 59.91049, 59.91479, 
  59.91049, 59.911, 59.91436, 59.92159, 59.91849, 59.92658, 59.91565, 59.93053, 59.92993, 59.93449, 
  59.93277, 59.9418, 59.94885, 59.95306, 59.94008, 59.93716, 59.94275, 59.93441, 59.93088, 59.92314, 
  59.92219, 59.9141, 59.91359, 59.91927, 59.91952, 59.92795, 59.93251, 59.93621, 59.9449, 59.9424, 
  59.9516, 59.95676, 59.95607, 59.96088, 59.96226, 59.96612, 59.96862, 59.98056, 59.97892, 59.98339, 
  59.97772, 59.9797, 59.98545, 59.98974, 59.98768, 59.9906, 59.98888, 60.00657, 60.00425, 60.00837, 
  60.00751, 60.01403, 60.01661, 60.03144, 60.03136, 60.03522, 60.03179, 60.03625, 60.02904, 60.0245, 
  60.02012, 60.01335, 60.01746, 60.00889, 60.00949, 60.00623, 60.00031, 59.97438, 59.96991, 59.95918, 
  59.95549, 59.94491, 59.94517, 59.94105, 59.94981, 59.96236, 59.96778, 59.96185, 59.95772, 59.94981, 
  59.95274, 59.94775, 59.94448, 59.95033, 59.97241, 59.9774, 59.95978, 59.96271, 59.94483, 59.93976, 
  59.9321, 59.9229, 59.92393, 59.91679, 59.90896, 59.91963, 59.91068, 59.90775, 59.90259, 59.90199, 
  59.89157, 59.8864, 59.88682, 59.87829, 59.87244, 59.8702, 59.86503, 59.86537, 59.85598, 59.85632, 
  59.84658, 59.84977, 59.8433, 59.8458, 59.83502, 59.83554, 59.8301, 59.82424, 59.82113, 59.81863, 
  59.80896, 59.81241, 59.80758, 59.81595, 59.82441, 59.82407, 59.81803, 59.82269, 59.82019, 59.82744, 
  59.82649, 59.82407, 59.8258, 59.82382, 59.82718, 59.82666, 59.82002, 59.82623, 59.82701, 59.83175, 
  59.83546, 59.83331, 59.82727, 59.82985, 59.83667, 59.83555, 59.83106, 59.84081, 59.83934, 59.8421, 
  59.84115, 59.8509, 59.84633, 59.84478, 59.84788, 59.85219, 59.85547, 59.86185, 59.86529, 59.89183, 
  59.89777, 59.89915, 59.90448, 59.91025, 59.92161, 59.93623, 59.93511, 59.94397, 59.94896, 59.95643, 
  59.96056, 59.9621, 59.97027, 59.97319, 59.97954, 59.98375, 59.98976, 59.998, 60.02949, 60.03704, 
  60.04552, 60.05075, 60.05178, 60.04707, 60.05144, 60.06112, 60.06258, 60.06934, 60.06652, 60.07337, 
  60.08638, 60.09143, 60.08912, 60.09742, 60.0916, 60.0791, 60.05444, 60.04569, 60.04038, 60.03918, 
  60.03446, 60.03772, 60.0216, 59.99989, 60.00084, 59.99586, 59.99981, 59.99809, 59.98787, 59.98306, 
  59.98633, 59.97267, 59.97173, 59.96589, 59.96717, 59.96296, 59.9664, 59.9646, 59.97027, 59.96889, 
  59.98212, 59.98521, 59.98272, 59.98452, 59.98264, 59.99225, 59.99028, 59.99302, 59.99071, 59.98607, 
  59.9883, 59.97688, 59.9725, 59.96133, 59.95248, 59.94801, 59.94887, 59.94569, 59.94638, 59.94294, 
  59.93864, 59.9407, 59.94337, 59.94483, 59.94087, 59.94681, 59.9481, 59.94569, 59.94792, 59.95059, 
  59.9536, 59.94792, 59.94277, 59.93967, 59.93683, 59.9333, 59.92771, 59.93416, 59.93029, 59.92667, 
  59.91661, 59.91902, 59.91609, 59.9252, 59.92486, 59.92813, 59.92821, 59.93578, 59.93767, 59.93455, 
  59.94151, 59.93962, 59.9416, 59.9385, 59.93782, 59.93549, 59.93678, 59.93936, 59.93696, 59.9373, 
  59.93911, 59.93893, 59.94246, 59.94753, 59.94375, 59.93885, 59.94289, 59.9404, 59.94186, 59.94341, 
  59.94753, 59.95011, 59.95295, 59.95243, 59.95441, 59.95501, 59.95742, 59.95785, 59.96154, 59.96283, 
  59.96567, 59.9673, 59.9722, 59.95974, 59.96017, 59.95819, 59.96214, 59.9606, 59.96824, 59.96781, 
  59.97305, 59.97099, 59.97743, 59.97546, 59.98688, 59.99117, 60.00482, 60.00148, 60.00499, 60.00311, 
  59.99856, 59.99478, 59.99761, 59.99736, 59.99212, 60.00216, 60.00045, 60.00559, 60.01941, 60.02095, 
  60.01898, 60.01435, 60.0146, 60.011, 60.01675, 60.01623, 60.02258, 60.02232, 60.03287, 60.03742, 
  60.04702, 60.04522, 60.03836, 60.03236, 60.02867, 60.02447, 60.03304, 60.02387, 60.02576, 60.02447, 
  60.02069, 60.02155, 60.02533, 60.03227, 60.04059, 60.03373, 60.03296, 60.02721, 60.03356, 60.03116, 
  60.03707, 60.03639, 60.0417, 60.04462, 60.04822, 60.04642, 60.05319, 60.04642, 60.04573, 60.03656, 
  60.03742, 60.03373, 60.02901, 60.02721, 60.02507, 60.02841, 60.02507, 60.0267, 60.02584, 60.02996, 
  60.02747, 60.02919, 60.04153, 60.04222, 60.04925, 60.0501, 60.05919, 60.05961, 60.05696, 60.0609, 
  60.05499, 60.05816, 60.05782, 60.0591, 60.05722, 60.05807, 60.05499, 60.04608, 60.04839, 60.04573, 
  60.05216, 60.05327, 60.0561, 60.05559, 60.05122, 60.04779, 60.04916, 60.04736, 60.04282, 60.04529, 
  60.04024, 60.03998, 60.04418, 60.04478, 60.04744, 60.04624, 60.04427, 60.04392, 60.04735, 60.05206, 
  60.05952, 60.05541, 60.05712, 60.05772, 60.06286, 60.06243, 60.05978, 60.05892, 60.06329, 60.0644, 
  60.06774, 60.06809, 60.07023, 60.07006, 60.07408, 60.07408, 60.07776, 60.07922, 60.08264, 60.08804, 
  60.0841, 60.08513, 60.08179, 60.07972, 60.07741, 60.0781, 60.08726, 60.08871, 60.09282, 60.09488, 
  60.09274, 60.08914, 60.09102, 60.08486, 60.08546, 60.08332, 60.0864, 60.08229, 60.08281, 60.07407, 
  60.07287, 60.06816, 60.06611, 60.06174, 60.06165, 60.04434, 60.03697, 60.02891, 60.01905, 60.01407, 
  60.00532, 60.00463, 60.00969, 60.01175, 60.01424, 60.02591, 60.02797, 60.02582, 60.02762, 60.02891, 
  60.0302, 60.03594, 60.03654, 60.02779, 60.01965, 60.01587, 60.01982, 60.01802, 60.0211, 60.02394, 
  60.02891, 60.03397, 60.02985, 60.03225, 60.032, 60.03826, 60.04288, 60.04031, 60.04451, 60.04126, 
  60.04537, 60.0512, 60.0536, 60.05797, 60.06182, 60.06105, 60.06816, 60.06431, 60.05685, 60.05343, 
  60.04966, 60.05077, 60.0476, 60.04614, 60.03405, 60.02908, 60.0332, 60.02814, 60.02385, 60.02112, 
  60.02001, 60.01512, 60.01572, 60.011, 60.01169, 60.00568, 60.00105, 60.00156, 60.00765, 60.00705, 
  59.99984, 59.99821, 59.99598, 59.99092, 59.98954, 59.98293, 59.98233, 59.97563, 59.974, 59.97116, 
  59.96884, 59.96627, 59.96567, 59.97434, 59.97589, 59.98293, 59.97838, 59.98242, 59.98662, 59.98834, 
  59.98353, 59.97658, 59.97975, 59.98413, 59.98714, 59.99135, 59.9922, 59.99667, 59.99675, 60.00062, 
  59.99315, 59.99092, 59.99512, 60.0019, 60.00697, 60.00748, 60.00199, 60.00173, 59.99547, 59.99753, 
  60.0019, 60.00611, 60.00843, 60.0146, 60.01984, 60.02147, 60.02498, 60.02721, 60.0219, 60.02147, 
  60.02653, 60.02704, 60.03073, 60.03253, 60.03047, 60.03613, 60.0387, 60.0435, 60.04385, 60.06021, 
  60.05961, 60.06724, 60.07435, 60.07871, 60.08163, 60.08394, 60.08608, 60.08685, 60.08933, 60.08933, 
  60.08539, 60.09412, 60.09806, 60.1008, 60.10294, 60.10602, 60.10645, 60.10918, 60.12159, 60.1209, 
  60.11483, 60.12039, 60.13167, 60.13253, 60.13663, 60.13843, 60.14638, 60.15039, 60.15518, 60.15825, 
  60.16278, 60.15825, 60.15902, 60.16329, 60.16073, 60.17345, 60.17661, 60.17345, 60.16893, 60.16765, 
  60.16209, 60.16457, 60.15774, 60.15637, 60.15159, 60.1515, 60.14697, 60.14364, 60.13757, 60.14039, 
  60.13594, 60.135, 60.12825, 60.12739, 60.12414, 60.1238, 60.12098, 60.1191, 60.11644, 60.11619, 
  60.11935, 60.122, 60.12363, 60.12645, 60.1285, 60.12525, 60.12568, 60.1226, 60.11268, 60.11114, 
  60.10746, 60.10729, 60.10943, 60.11174, 60.10781, 60.10704, 60.10926, 60.11097, 60.11371, 60.11867, 
  60.11662, 60.12217, 60.12141, 60.12671, 60.12799, 60.1332, 60.13432, 60.12978, 60.13269, 60.12833, 
  60.13679, 60.13679, 60.13953, 60.14261, 60.14132, 60.14551, 60.14594, 60.14953, 60.1491, 60.14568, 
  60.14389, 60.15081, 60.15038, 60.15688, 60.15389, 60.1567, 60.15576, 60.15833, 60.1591, 60.16191, 
  60.16251, 60.16747, 60.17028, 60.17549, 60.17618, 60.16892, 60.16559, 60.16781, 60.17088, 60.17959, 
  60.18096, 60.18975, 60.19239, 60.18778, 60.19708, 60.20041, 60.2057, 60.2057, 60.21005, 60.20962, 
  60.20144, 60.19734, 60.18813, 60.19256, 60.18864, 60.18778, 60.18377, 60.18727, 60.18112, 60.17899, 
  60.17583, 60.17635, 60.17413, 60.17267, 60.17028, 60.17038, 60.16688, 60.16679, 60.16081, 60.16184, 
  60.15817, 60.15594, 60.15526, 60.14902, 60.15278, 60.14766, 60.15569, 60.16167, 60.16141, 60.15817, 
  60.158, 60.15355, 60.14791, 60.14655, 60.15483, 60.15371, 60.15551, 60.15389, 60.15645, 60.16738, 
  60.16328, 60.16772, 60.1696, 60.16909, 60.183, 60.17985, 60.18403, 60.1778, 60.17566, 60.18958, 
  60.20255, 60.20639, 60.21501, 60.20725, 60.20818, 60.20255, 60.20605, 60.20733, 60.21458, 60.21415, 
  60.21125, 60.20784, 60.20494, 60.2011, 60.19445, 60.19897, 60.19906, 60.19667, 60.1982, 60.19701, 
  60.19052, 60.19061, 60.18455, 60.18617, 60.18353, 60.1831, 60.18011, 60.1796, 60.18156, 60.17866, 
  60.17892, 60.17439, 60.17567, 60.16961, 60.16799, 60.16534, 60.15911, 60.1597, 60.1638, 60.16466, 
  60.16005, 60.16705, 60.15987, 60.16073, 60.15859, 60.15953, 60.1568, 60.16133, 60.15697, 60.15962, 
  60.15962, 60.16363, 60.16884, 60.16363, 60.17123, 60.17268, 60.17115, 60.16807, 60.16449, 60.16713, 
  60.16816, 60.17661, 60.17909, 60.18728, 60.18788, 60.19368, 60.19633, 60.19906, 60.19854, 60.20085, 
  60.20093, 60.20614, 60.20767, 60.21424, 60.21364, 60.2191, 60.21995, 60.20614, 60.1982, 60.19573, 
  60.19479, 60.19061, 60.18703, 60.19462, 60.19377, 60.19897, 60.19189, 60.18831, 60.18796, 60.18327, 
  60.18438, 60.19112, 60.19522, 60.19283, 60.19658, 60.20034, 60.19914, 60.20255, 60.19752, 60.19752, 
  60.19257, 60.19692, 60.19155, 60.20034, 60.20784, 60.2104, 60.20818, 60.21091, 60.21611, 60.21756, 
  60.21219, 60.21594, 60.2197, 60.22166, 60.22413, 60.22771, 60.22745, 60.23095, 60.2312, 60.22737, 
  60.23027, 60.23274, 60.23794, 60.23299, 60.24109, 60.24083, 60.24646, 60.24816, 60.24578, 60.24969, 
  60.25957, 60.25838, 60.26119, 60.26119, 60.25387, 60.24969, 60.25412, 60.25634, 60.2548, 60.25608, 
  60.25566, 60.25412, 60.2537, 60.25651, 60.25736, 60.25404, 60.25651, 60.26, 60.26264, 60.25659, 
  60.26562, 60.264, 60.26647, 60.26596, 60.27056, 60.27081, 60.27379, 60.26894, 60.26902, 60.25455, 
  60.25412, 60.25216, 60.25523, 60.25404, 60.25779, 60.25693, 60.25915, 60.25983, 60.25617, 60.25378, 
  60.25097, 60.25191, 60.25813, 60.25617, 60.26025, 60.25608, 60.25242, 60.25549, 60.26323, 60.25532, 
  60.2468, 60.24543, 60.24867, 60.25046, 60.24578, 60.23683, 60.2295, 60.23078, 60.22515, 60.22447, 
  60.22976, 60.22703, 60.222, 60.23172, 60.23794, 60.24373, 60.24305, 60.24859, 60.25097, 60.25208, 
  60.25779, 60.25991, 60.264, 60.26621, 60.26902, 60.27141, 60.268, 60.27541, 60.27915, 60.28009, 
  60.28383, 60.28324, 60.28715, 60.28741, 60.28154, 60.31274, 60.32107, 60.32141, 60.326, 60.32634, 
  60.33085, 60.33578, 60.33263, 60.339, 60.33934, 60.33153, 60.3362, 60.34393, 60.34274, 60.32218, 
  60.31631, 60.31155, 60.31086, 60.31554, 60.3186, 60.322, 60.32268, 60.32982, 60.33296, 60.33356, 
  60.3395, 60.3435, 60.34163, 60.33729, 60.32965, 60.33262, 60.35173, 60.35734, 60.36566, 60.37559, 
  60.37694, 60.3828, 60.37228, 60.36379, 60.36167, 60.35114, 60.33424, 60.34044, 60.3389, 60.35838, 
  60.35218, 60.34453, 60.33927, 60.33281, 60.33833, 60.33443, 60.3295, 60.33086, 60.32669, 60.32304, 
  60.31071, 60.30757, 60.3017, 60.29158, 60.28332, 60.27643, 60.27941, 60.27286, 60.2732, 60.26281, 
  60.26349, 60.25523, 60.24995, 60.24458, 60.25472, 60.24799, 60.24305, 60.24237, 60.23691, 60.23939, 
  60.24671, 60.25191, 60.25455, 60.25744, 60.2646, 60.26681, 60.26315, 60.26511, 60.26162, 60.26587, 
  60.26673, 60.27183, 60.27737, 60.2812, 60.276, 60.28417, 60.30068, 60.30221, 60.3119, 60.31207, 
  60.30459, 60.31479, 60.31471, 60.32346, 60.31955, 60.30799, 60.30221, 60.28554, 60.29149, 60.27354, 
  60.26749, 60.26553, 60.26187, 60.25898, 60.2559, 60.25148, 60.2491, 60.2445, 60.25378, 60.25634, 
  60.26111, 60.25983, 60.26434, 60.26145, 60.26553, 60.27286, 60.27898, 60.28273, 60.2829, 60.29515, 
  60.29609, 60.30331, 60.30833, 60.32542, 60.3306, 60.33426, 60.33672, 60.334, 60.3368, 60.34029, 
  60.33638, 60.3425, 60.34572, 60.34555, 60.34887, 60.36186, 60.36805, 60.36814, 60.37111, 60.3751, 
  60.38859, 60.39198, 60.39707, 60.39512, 60.41233, 60.413, 60.39774, 60.37331, 60.36839, 60.35778, 
  60.35727, 60.35141, 60.35133, 60.37281, 60.37408, 60.35277, 60.34818, 60.34639, 60.34189, 60.34478, 
  60.31776, 60.31631, 60.31402, 60.31266, 60.3062, 60.30262, 60.30399, 60.30977, 60.31342, 60.30722, 
  60.30679, 60.31002, 60.31597, 60.31682, 60.32813, 60.3311, 60.34011, 60.34818, 60.34308, 60.34792, 
  60.34181, 60.35047, 60.35896, 60.361, 60.36847, 60.38467, 60.38425, 60.38764, 60.39367, 60.39841, 
  60.40028, 60.39892, 60.41215, 60.41986, 60.42113, 60.43299, 60.44824, 60.44917, 60.44603, 60.4473, 
  60.44307, 60.45086, 60.45941, 60.46212, 60.4677, 60.46516, 60.47219, 60.47523, 60.47794, 60.47472, 
  60.48124, 60.48589, 60.49147, 60.48131, 60.48004, 60.48393, 60.48004, 60.47615, 60.46431, 60.44975, 
  60.43942, 60.42976, 60.42976, 60.42273, 60.43086, 60.42968, 60.43502, 60.41002, 60.41002, 60.40442, 
  60.41053, 60.39459, 60.40247, 60.39603, 60.39332, 60.39561, 60.39408, 60.39128, 60.38458, 60.37363, 
  60.37151, 60.37983, 60.37898, 60.36668, 60.36345, 60.36786, 60.36897, 60.37805, 60.37669, 60.38229, 
  60.38551, 60.39357, 60.39688, 60.39815, 60.40349, 60.40892, 60.41095, 60.4196, 60.41112, 60.40926, 
  60.40307, 60.40646, 60.39569, 60.39934, 60.39722, 60.39001, 60.39077, 60.4029, 60.40264, 60.4068, 
  60.40943, 60.42139, 60.42639, 60.42944, 60.43436, 60.43885, 60.43639, 60.44316, 60.44697, 60.45062, 
  60.45756, 60.45629, 60.45332, 60.45095, 60.44545, 60.44079, 60.43215, 60.43393, 60.42944, 60.42885, 
  60.42173, 60.4169, 60.40546, 60.37365, 60.3723, 60.38273, 60.38324, 60.39842, 60.40309, 60.39842, 
  60.40953, 60.40987, 60.41377, 60.41436, 60.40648, 60.40376, 60.40181, 60.39495, 60.39317, 60.39071, 
  60.39546, 60.39011, 60.3745, 60.38282, 60.38926, 60.38748, 60.38214, 60.38095, 60.36983, 60.36355, 
  60.35634, 60.35838, 60.35744, 60.36415, 60.35999, 60.37331, 60.37213, 60.35821, 60.35812, 60.36177, 
  60.36169, 60.34768, 60.34708, 60.34411, 60.34504, 60.34114, 60.34487, 60.34385, 60.36975, 60.3695, 
  60.37942, 60.37323, 60.37552, 60.37399, 60.37934, 60.38808, 60.4086, 60.40181, 60.41462, 60.42394, 
  60.42724, 60.42267, 60.41402, 60.41673, 60.41173, 60.42529, 60.41682, 60.45248, 60.46314, 60.47211, 
  60.48201, 60.48378, 60.49131, 60.48564, 60.46534, 60.45679, 60.45426, 60.44858, 60.45265, 60.45231, 
  60.43436, 60.43148, 60.42843, 60.43198, 60.42851, 60.43105, 60.42284, 60.42487, 60.42004, 60.42139, 
  60.41597, 60.40665, 60.41673, 60.42055, 60.42216, 60.40529, 60.403, 60.39902, 60.38205, 60.37934, 
  60.37425, 60.38053, 60.37968, 60.39842, 60.40504, 60.40292, 60.41199, 60.40639, 60.41241, 60.41241, 
  60.41716, 60.41767, 60.41538, 60.41784, 60.42919, 60.43334, 60.4247, 60.4258, 60.43529, 60.43224, 
  60.43741, 60.43766, 60.45239, 60.45053, 60.48057, 60.48463, 60.48074, 60.47329, 60.47092, 60.46559, 
  60.46432, 60.45552, 60.45882, 60.45484, 60.46618, 60.45983, 60.45992, 60.46576, 60.46787, 60.4715, 
  60.47305, 60.47846, 60.47127, 60.47956, 60.48835, 60.48099, 60.47617, 60.4782, 60.47067, 60.4694, 
  60.46018, 60.45349, 60.44757, 60.44579, 60.4678, 60.47237, 60.47346, 60.47042, 60.4733, 60.47761, 
  60.47693, 60.48226, 60.49114, 60.48844, 60.50027, 60.49816, 60.49309, 60.49672, 60.50213, 60.50027, 
  60.49512, 60.48539, 60.49283, 60.48903, 60.49613, 60.48928, 60.49782, 60.50982, 60.50974, 60.51379, 
  60.51312, 60.50982, 60.51058, 60.50805, 60.51371, 60.51641, 60.52444, 60.53119, 60.53829, 60.54065, 
  60.55146, 60.55542, 60.55238, 60.54968, 60.54791, 60.53829, 60.53457, 60.53043, 60.5279, 60.51937, 
  60.52993, 60.52976, 60.53322, 60.53694, 60.53364, 60.53668, 60.53111, 60.53339, 60.54158, 60.54344, 
  60.54968, 60.54994, 60.55306, 60.55213, 60.5469, 60.54437, 60.54529, 60.53871, 60.52917, 60.53998, 
  60.53559, 60.52503, 60.52148, 60.52385, 60.51667, 60.529, 60.523, 60.52858, 60.53331, 60.53271, 
  60.54276, 60.54276, 60.55559, 60.55846, 60.56192, 60.56082, 60.56327, 60.56209, 60.56319, 60.55964, 
  60.56141, 60.56158, 60.56335, 60.56344, 60.56192, 60.5604, 60.5593, 60.55795, 60.55686, 60.55559, 
  60.55331, 60.55281, 60.54935, 60.54698, 60.54462, 60.54124, 60.53651, 60.53601, 60.52799, 60.52503, 
  60.52047, 60.51506, 60.51827, 60.51489, 60.51861, 60.52033, 60.53207, 60.53122, 60.52531, 60.52565, 
  60.51982, 60.51788, 60.51441, 60.50655, 60.51171, 60.51179, 60.51577, 60.52192, 60.52175, 60.5193, 
  60.51719, 60.51576, 60.50984, 60.50722, 60.50857, 60.50511, 60.50587, 60.5139, 60.50705, 60.50891, 
  60.5008, 60.49725, 60.49826, 60.4953, 60.4942, 60.48829, 60.48964, 60.48719, 60.49201, 60.49015, 
  60.48862, 60.48998, 60.48744, 60.49124, 60.49403, 60.49463, 60.49936, 60.50156, 60.50587, 60.51145, 
  60.51415, 60.5106, 60.50824, 60.50477, 60.50401, 60.48177, 60.47221, 60.46908, 60.46545, 60.46553, 
  60.47069, 60.47391, 60.46121, 60.46088, 60.46655, 60.47518, 60.47941, 60.48, 60.48507, 60.48736, 
  60.49108, 60.49175, 60.49471, 60.49412, 60.49784, 60.50071, 60.50063, 60.50621, 60.50646, 60.51052, 
  60.50671, 60.50604, 60.50173, 60.50223, 60.49251, 60.49726, 60.49362, 60.49303, 60.48889, 60.48779, 
  60.48178, 60.47459, 60.47222, 60.46943, 60.46943, 60.46757, 60.47019, 60.47349, 60.47941, 60.47891, 
  60.4877, 60.4921, 60.49168, 60.48762, 60.48491, 60.48187, 60.48271, 60.4872, 60.49193, 60.49345, 
  60.49218, 60.48787, 60.49032, 60.48432, 60.48593, 60.49362, 60.49548, 60.48965, 60.49041, 60.48398, 
  60.48652, 60.49531, 60.49819, 60.50436, 60.50858, 60.51399, 60.51543, 60.51086, 60.51323, 60.51686, 
  60.5172, 60.52067, 60.51889, 60.52143, 60.52784, 60.52464, 60.51957, 60.52835, 60.53224, 60.53604, 
  60.54313, 60.5514, 60.55638, 60.56094, 60.56482, 60.56625, 60.56903, 60.56929, 60.57123, 60.57131, 
  60.57435, 60.57241, 60.57494, 60.57662, 60.57637, 60.57882, 60.57646, 60.58177, 60.58008, 60.58253, 
  60.58, 60.57393, 60.56229, 60.5568, 60.55326, 60.55199,
  60.54541, 60.5547, 60.56154, 60.56592, 60.57453, 60.57832, 60.58245, 60.60462, 60.66901, 60.67111,
  60.67044, 60.6812, 60.68255, 60.71993, 60.74108, 60.77881, 60.78283, 60.81014, 60.8416, 60.85799,
  60.85423, 60.88465, 60.88356, 60.88557, 60.88757, 60.92363, 60.92597, 60.9288, 60.95706, 60.9544,
  60.95665, 60.95181, 60.95531, 60.94806, 60.95156, 60.97984, 61.04606, 61.09555, 61.12226, 61.13535,
  61.14331, 61.14447, 61.15242, 61.17395, 61.2708, 61.27773, 61.35452, 61.46165, 61.49198, 61.4923,
  61.49558, 61.49575, 61.52031, 61.52637, 61.58132, 61.6032, 61.63992, 61.65541, 61.67073, 61.67089, 
  61.67708, 61.77092, 61.81847, 61.85266, 61.88225, 66.11011)
LONGITUDE_VALUEs <- c(
  24.04598, 24.04915, 24.04923, 24.05283, 24.03902, 24.0431, 24.04207, 24.0504, 24.05377, 24.06121, 
  24.06464, 24.0734, 24.08091, 24.08983, 24.09987, 24.10742, 24.11901, 24.11532, 24.10957, 24.11798, 
  24.13282, 24.14116, 24.15291, 24.13077, 24.12528, 24.12536, 24.1451, 24.15532, 24.14159,
  24.1336, 24.13618, 24.13515, 24.13892, 24.1403, 24.14373, 24.16141, 24.15248, 24.14424, 24.14785, 
  24.1415, 24.16312, 24.17068, 24.16656, 24.1959, 24.19626, 24.20776, 24.21668, 24.22011, 24.22749, 
  24.22629, 24.23762, 24.21016, 24.22698, 24.2196, 24.22407, 24.22956, 24.23402, 24.22921, 24.2311, 
  24.23676, 24.24792, 24.25532, 24.26012, 24.27042, 24.27316, 24.27814, 24.28569, 24.28586, 24.29324, 
  24.2965, 24.30165, 24.31229, 24.31006, 24.3219, 24.33066, 24.34303, 24.3571, 24.36861, 24.37547, 
  24.38938, 24.39477, 24.39392, 24.39976, 24.40199, 24.42346, 24.43273, 24.43255, 24.4432, 24.43667, 
  24.43736, 24.4614, 24.47148, 24.48351, 24.52232, 24.54585, 24.55168, 24.54996, 24.5733, 24.56798, 
  24.60594, 24.60059, 24.60987, 24.68077, 24.67819, 24.6234, 24.61897, 24.59819, 24.58427, 24.56813, 
  24.55236, 24.5431, 24.53967, 24.52404, 24.51494, 24.5012, 24.48163, 24.45604, 24.45329, 24.46325, 
  24.46771, 24.48884, 24.49296, 24.53587, 24.54137, 24.54703, 24.55425, 24.55081, 24.55768, 24.57502, 
  24.58377, 24.5872, 24.60489, 24.61348, 24.62685, 24.6344, 24.63853, 24.64282, 24.63561, 24.63939, 
  24.64282, 24.65244, 24.65931, 24.65947, 24.66377, 24.6605, 24.6648, 24.66239, 24.65742, 24.66257, 
  24.65329, 24.65295, 24.64574, 24.6387, 24.63973, 24.62085, 24.60711, 24.63046, 24.63527, 24.6497, 
  24.64489, 24.65535, 24.66136, 24.67819, 24.67287, 24.65707, 24.66548, 24.65981, 24.66325, 24.65724, 
  24.68042, 24.68178, 24.6914, 24.6993, 24.7242, 24.71748, 24.72504, 24.72315, 24.73225, 24.73276, 
  24.74049, 24.73723, 24.74719, 24.74255, 24.75611, 24.7635, 24.77191, 24.77106, 24.77947, 24.7937, 
  24.80229, 24.81826, 24.80572, 24.80401, 24.81242, 24.82839, 24.82101, 24.82857, 24.8387, 24.84503, 
  24.85756, 24.87336, 24.87817, 24.89294, 24.88898, 24.89911, 24.90186, 24.89757, 24.90752, 24.91198, 
  24.94736, 24.95712, 24.95558, 24.96502, 24.9688, 24.98117, 24.9834, 24.99267, 24.99525, 25.03352, 
  25.03781, 25.04451, 25.05464, 25.05001, 25.05481, 25.08743, 25.06253, 25.06923, 25.08314, 25.08692, 
  25.10801, 25.11832, 25.11196, 25.12141, 25.12553, 25.13051, 25.1506, 25.16057, 25.15679, 25.16331, 
  25.17943, 25.17411, 25.19058, 25.20105, 25.21016, 25.21016, 25.25032, 25.26698, 25.26338, 25.28569, 
  25.28082, 25.28975, 25.29971, 25.31773, 25.33025, 25.32871, 25.31824, 25.33077, 25.32425, 25.333, 
  25.33506, 25.34313, 25.3421, 25.34982, 25.3433, 25.34811, 25.33626, 25.32373, 25.32957, 25.32184, 
  25.35085, 25.34965, 25.3306, 25.33111, 25.35771, 25.36595, 25.36064, 25.34879, 25.3457, 25.33798, 
  25.327, 25.33007, 25.32716, 25.31772, 25.32681, 25.32801, 25.33642, 25.32836, 25.32853, 25.31154, 
  25.30125, 25.28391, 25.27464, 25.25834, 25.26177, 25.26863, 25.25782, 25.29266, 25.27807, 25.28305, 
  25.26417, 25.2716, 25.25872, 25.25872, 25.27091, 25.27692, 25.31591, 25.33531, 25.32517, 25.31813, 
  25.31727, 25.30645, 25.30233, 25.30783, 25.291, 25.29684, 25.27417, 25.28293, 25.27795, 25.29032, 
  25.3233, 25.33616, 25.35161, 25.35763, 25.36501, 25.36793, 25.37703, 25.36432, 25.36123, 25.35556, 
  25.33839, 25.32912, 25.31641, 25.3104, 25.29067, 25.27367, 25.2668, 25.23743, 25.23039, 25.24739, 
  25.24962, 25.24344, 25.2522, 25.25925, 25.27779, 25.28003, 25.28568, 25.3178, 25.3111, 25.28723, 
  25.29566, 25.26543, 25.26921, 25.2857, 25.30267, 25.31606, 25.33787, 25.3116, 25.31179, 25.2917, 
  25.29752, 25.30044, 25.30593, 25.32242, 25.31864, 25.33547, 25.34715, 25.34251, 25.34303, 25.33839, 
  25.33341, 25.33204, 25.29494, 25.28361, 25.2745, 25.27811, 25.28567, 25.28498, 25.29257, 25.29222, 
  25.279, 25.26749, 25.25564, 25.2735, 25.28501, 25.29755, 25.28449, 25.30371, 25.31161, 25.31608, 
  25.32398, 25.359, 25.36724, 25.36999, 25.38184, 25.37171, 25.37291, 25.35952, 25.32585, 25.32242, 
  25.26474, 25.26406, 25.27144, 25.26784, 25.27728, 25.27539, 25.245, 25.23143, 25.22576, 25.22613, 
  25.23266, 25.23094, 25.24038, 25.22887, 25.23729, 25.23849, 25.25051, 25.26353, 25.29839, 25.29977, 
  25.31265, 25.32087, 25.34698, 25.36587, 25.38442, 25.37598, 25.38559, 25.39246, 25.40174, 25.39264, 
  25.41839, 25.40947, 25.4129, 25.39676, 25.40071, 25.42166, 25.41754, 25.38491, 25.37976, 25.41684, 
  25.48345, 25.4874, 25.48225, 25.45891, 25.43762, 25.43092, 25.4141, 25.40518, 25.38406, 25.35505, 
  25.33753, 25.32535, 25.30716, 25.26904, 25.26064, 25.25326, 25.23403, 25.22889, 25.21207, 25.22185, 
  25.20932, 25.21412, 25.20417, 25.19061, 25.2251, 25.24553, 25.25103, 25.27265, 25.28622, 25.31368, 
  25.33342, 25.35556, 25.39161, 25.3176, 25.29358, 25.29838, 25.28911, 25.30353, 25.29804, 25.25717, 
  25.21358, 25.19574, 25.20776, 25.20535, 25.16845, 25.15369, 25.13155, 25.12915, 25.10924, 25.09173, 
  25.08553, 25.03943, 25.00147, 24.9718, 24.94415, 24.96322, 24.9323, 24.87408, 24.84563, 24.80973, 
  24.80922, 24.79926, 24.7917, 24.74692, 24.73902, 24.73181, 24.71859, 24.71655, 24.71226, 24.70144, 
  24.70195, 24.69233, 24.69955, 24.68529, 24.6944, 24.6865, 24.67396, 24.67122, 24.6762, 24.66967, 
  24.67397, 24.67019, 24.65851, 24.6434, 24.64889, 24.64443, 24.65558, 24.64511, 24.65163, 24.61028, 
  24.54072, 24.55141, 24.56686, 24.58265, 24.57355, 24.55432, 24.5648, 24.56102, 24.55604, 24.56033, 
  24.55587, 24.56651, 24.56909, 24.55346, 24.54059, 24.52822, 24.51431, 24.49525, 24.51173, 24.5071, 
  24.49868, 24.49353, 24.50504, 24.49268, 24.48873, 24.48323, 24.47155, 24.46331, 24.44272, 24.43997, 
  24.44993, 24.45474, 24.46745, 24.44203, 24.43087, 24.40597, 24.40256, 24.41802, 24.406, 24.3914, 
  24.4005, 24.38127, 24.3847, 24.40428, 24.42317, 24.38643, 24.38145, 24.36324, 24.37733, 24.36445, 
  24.38059, 24.38025, 24.36445, 24.36033, 24.37578, 24.37114, 24.35211, 24.35108, 24.33854, 24.33081, 
  24.31776, 24.30213, 24.2819, 24.27537, 24.27812, 24.2685, 24.26129, 24.25133, 24.24394, 24.2582, 
  24.26541, 24.27982, 24.27536, 24.2927, 24.2702, 24.2678, 24.25423, 24.25203, 24.23005, 24.22147, 
  24.23298, 24.22508, 24.21701, 24.21804, 24.20464, 24.19502, 24.19985, 24.19195, 24.18044, 24.17907, 
  24.14406, 24.13101, 24.13016, 24.11728, 24.12123, 24.11075, 24.08087, 24.09495, 24.08722, 24.10113, 
  24.09289, 24.07331, 24.06077, 24.02986, 24.03144, 24.02011, 24.01461, 23.99967, 23.98532, 23.91699, 
  23.91492, 23.86443, 23.85138, 23.83403, 23.82063, 23.8251, 23.81634, 23.82664, 23.83575, 23.82047, 
  23.81634, 23.78474, 23.77292, 23.73805, 23.73242, 23.7204, 23.7058, 23.6833, 23.69756, 23.6967, 
  23.72006, 23.72057, 23.70941, 23.68914, 23.69824, 23.6737, 23.67164, 23.67714, 23.66065, 23.65361, 
  23.65001, 23.6318, 23.62717, 23.64452, 23.63507, 23.64212, 23.62992, 23.60244, 23.58098, 23.59852, 
  23.59577, 23.63389, 23.61603, 23.61706, 23.60366, 23.59336, 23.58271, 23.58975, 23.57551, 23.57001, 
  23.56164, 23.55889, 23.54637, 23.54328, 23.5244, 23.52131, 23.511, 23.50551, 23.49813, 23.47153, 
  23.43633, 23.41711, 23.40973, 23.40801, 23.39874, 23.40303, 23.37934, 23.379, 23.3917, 23.38895, 
  23.37471, 23.39238, 23.38604, 23.39582, 23.36355, 23.40234, 23.40509, 23.36681, 23.38432, 23.37574, 
  23.36286, 23.36973, 23.3548, 23.34193, 23.32732, 23.32732, 23.31496, 23.31393, 23.30466, 23.31084, 
  23.30192, 23.30535, 23.29419, 23.2827, 23.28664, 23.28064, 23.29557, 23.30329, 23.30175, 23.32338, 
  23.29266, 23.28825, 23.27229, 23.26834, 23.26062, 23.24842, 23.24567, 23.23674, 23.22386, 23.21115, 
  23.21287, 23.20703, 23.22043, 23.21699, 23.20806, 23.20621, 23.18714, 23.18646, 23.17924, 23.1528, 
  23.15967, 23.1528, 23.1528, 23.13459, 23.12686, 23.13408, 23.12188, 23.14425, 23.13463, 23.12364, 
  23.11832, 23.10629, 23.10475, 23.08417, 23.0785, 23.07232, 23.08005, 23.07541, 23.09325, 23.10544, 
  23.11592, 23.13188, 23.11574, 23.09943, 23.10338, 23.0931, 23.08726, 23.08056, 23.07249, 23.07283, 
  23.06304, 23.04054, 23.04193, 23.03609, 23.02166, 23.01943, 23.04279, 23.04055, 23.03575, 23.03369, 
  23.02201, 23.0318, 23.01738, 23.02545, 23.04347, 23.0275, 23.01616, 23.01565, 22.99676, 23.00828, 
  23.00949, 23.01721, 23.01533, 23.02151, 23.00554, 23.0143, 23.0119, 22.99884, 22.98579, 22.99558, 
  22.99044, 22.99095, 22.9853, 22.97637, 22.96864, 22.96194, 22.95644, 22.9458, 22.93858, 22.9494, 
  22.95644, 22.96761, 22.95644, 22.96108, 22.95335, 22.96366, 22.94357, 22.95164, 22.96693, 22.96899, 
  22.96074, 22.95868, 22.94804, 22.94477, 22.93395, 22.94117, 22.93877, 22.92606, 22.91747, 22.91765, 
  22.90169, 22.8986, 22.89362, 22.88915, 22.87679, 22.86614, 22.86734, 22.86408, 22.85171, 22.83986, 
  22.82389, 22.82715, 22.82011, 22.83402, 22.821, 22.80984, 22.81087, 22.8265, 22.82409, 22.84195, 
  22.85809, 22.87987, 22.89087, 22.90667, 22.90254, 22.91148, 22.90787, 22.91044, 22.90392, 22.89774, 
  22.89241, 22.88606, 22.88709, 22.90323, 22.89859, 22.8955, 22.89327, 22.88692, 22.87627, 22.88451, 
  22.87146, 22.8639, 22.87077, 22.85978, 22.85016, 22.84518, 22.85016, 22.84915, 22.83988, 22.83438, 
  22.82511, 22.8081, 22.80707, 22.80143, 22.79783, 22.78787, 22.7877, 22.77945, 22.78735, 22.78735, 
  22.8052, 22.82015, 22.8265, 22.80503, 22.80675, 22.7937, 22.77635, 22.77755, 22.76965, 22.76195, 
  22.75903, 22.75045, 22.74959, 22.73018, 22.73035, 22.72589, 22.72967, 22.72383, 22.71936, 22.71183, 
  22.7144, 22.70702, 22.7029, 22.69792, 22.70341, 22.70994, 22.71612, 22.70925, 22.71062, 22.69551, 
  22.69019, 22.69225, 22.69225, 22.69483, 22.69158, 22.68436, 22.68917, 22.68574, 22.69467, 22.67715, 
  22.67749, 22.66873, 22.66788, 22.67766, 22.68075, 22.69861, 22.7022, 22.72607, 22.72899, 22.73895, 
  22.74715, 22.77324, 22.7837, 22.7837, 22.79229, 22.79503, 22.80638, 22.81445, 22.81393, 22.84139, 
  22.83864, 22.84499, 22.84551, 22.85237, 22.85117, 22.86061, 22.86439, 22.86936, 22.87709, 22.87863, 
  22.9243, 22.91933, 22.92534, 22.92568, 22.93375, 22.93563, 22.91727, 22.91212, 22.89204, 22.90953, 
  22.85667, 22.87246, 22.87212, 22.88173, 22.8807, 22.88637, 22.91486, 22.92756, 22.92585, 22.91898, 
  22.90903, 22.8874, 22.90611, 22.8941, 22.90628, 22.8989, 22.89993, 22.87968, 22.8759, 22.85564, 
  22.85891, 22.8521, 22.85227, 22.84505, 22.84986, 22.83958, 22.83065, 22.8279, 22.84113, 22.83838, 
  22.82945, 22.83237, 22.85108, 22.86104, 22.85228, 22.85795, 22.84713, 22.83768, 22.83905, 22.82875, 
  22.82877, 22.82362, 22.8152, 22.80455, 22.80337, 22.78207, 22.77212, 22.77504, 22.78019, 22.77916, 
  22.77418, 22.7656, 22.76869, 22.76423, 22.7735, 22.76389, 22.75359, 22.74878, 22.73641, 22.72422, 
  22.6909, 22.68852, 22.69522, 22.68337, 22.67514, 22.67067, 22.66277, 22.648, 22.6504, 22.64079, 
  22.62636, 22.64371, 22.61815, 22.61042, 22.61591, 22.61076, 22.60097, 22.61025, 22.59222, 22.56611, 
  22.54535, 22.54845, 22.54037, 22.53934, 22.51667, 22.51704, 22.51257, 22.52492, 22.51274, 22.50982, 
  22.49969, 22.50364, 22.49539, 22.48938, 22.49213, 22.4753, 22.46259, 22.44885, 22.44181, 22.4288, 
  22.43567, 22.42588, 22.43979, 22.46057, 22.46827, 22.46621, 22.48321, 22.50449, 22.5148, 22.5196, 
  22.50827, 22.5093, 22.49899, 22.49884, 22.4851, 22.4911, 22.47393, 22.48114, 22.47135, 22.46431, 
  22.46159, 22.46897, 22.46742, 22.48082, 22.47961, 22.48494, 22.46055, 22.46038, 22.45265, 22.45351, 
  22.45059, 22.45214, 22.44578, 22.45077, 22.44596, 22.44064, 22.44339, 22.44133, 22.44305, 22.43875, 
  22.42845, 22.42502, 22.4142, 22.41437, 22.41008, 22.40544, 22.40338, 22.40922, 22.40459, 22.4149, 
  22.41198, 22.40373, 22.39893, 22.39686, 22.38641, 22.37885, 22.37009, 22.3591, 22.35756, 22.37679, 
  22.37937, 22.38658, 22.37696, 22.36854, 22.37198, 22.36477, 22.35395, 22.35189, 22.34553, 22.34708, 
  22.36116, 22.36425, 22.3603, 22.37232, 22.37043, 22.3804, 22.37662, 22.36923, 22.36975, 22.35962, 
  22.35673, 22.33562, 22.33682, 22.33099, 22.33339, 22.32137, 22.3303, 22.32326, 22.33785, 22.34128, 
  22.33562, 22.32635, 22.33047, 22.32532, 22.32755, 22.3339, 22.3327, 22.32206, 22.32034, 22.30987, 
  22.30764, 22.30111, 22.28944, 22.2994, 22.29356, 22.34248, 22.40617, 22.40153, 22.3751, 22.37133, 
  22.35468, 22.35382, 22.3497, 22.34455, 22.33597, 22.3267, 22.32086, 22.30473, 22.29253, 22.2788, 
  22.26215, 22.23383, 22.22748, 22.21581, 22.20225, 22.211, 22.20362, 22.23211, 22.22971, 22.25992, 
  22.25872, 22.26651, 22.27476, 22.28077, 22.29244, 22.30241, 22.29672, 22.34564, 22.39216, 22.38804, 
  22.3676, 22.36571, 22.35146, 22.34785, 22.36143, 22.35834, 22.37002, 22.36967, 22.36109, 22.3434, 
  22.3391, 22.32178, 22.31234, 22.31011, 22.29777, 22.29176, 22.2818, 22.28712, 22.27905, 22.27613, 
  22.26875, 22.26617, 22.25501, 22.26136, 22.25587, 22.25003, 22.24917, 22.24248, 22.23698, 22.24334, 
  22.23784, 22.20195, 22.1824, 22.1824, 22.18704, 22.18137, 22.17364, 22.17553, 22.15097, 22.1465, 
  22.1338, 22.13074, 22.12198, 22.11614, 22.10961, 22.10549, 22.09364, 22.08456, 22.08078, 22.09641, 
  22.08817, 22.07838, 22.0813, 22.05331, 22.04833, 22.04335, 22.0394, 22.04438, 22.04095, 22.03219, 
  22.03047, 22.02188, 22.02533, 22.04353, 22.03529, 22.04507, 22.03099, 22.02309, 22.00798, 21.98894, 
  21.9843, 21.98447, 21.97314, 21.98396, 21.97949, 21.98327, 21.9819, 21.99751, 22.00747, 22.00197, 
  22.01297, 21.99236, 21.97329, 21.96625, 21.96009, 21.95374, 21.96044, 21.96834, 21.97521, 21.96679, 
  21.96816, 21.95906, 21.9503, 21.95872, 21.97366, 21.97744, 21.98534, 21.99358, 22.01728, 22.0212, 
  22.01313, 22.00918, 22.00059, 21.99698, 21.99338, 22.00248, 22.00729, 22.0109, 22.01777, 22.01244, 
  22.01777, 22.0145, 22.01639, 22.01227, 21.99372, 21.98876, 21.99305, 21.98962, 21.97296, 21.9654, 
  21.96729, 21.9642, 21.95887, 21.94788, 21.93964, 21.93655, 21.93074, 21.93469, 21.93074, 21.92696, 
  21.92937, 21.91857, 21.93334, 21.92612, 21.91135, 21.88113, 21.88594, 21.88027, 21.87752, 21.86722, 
  21.85041, 21.85848, 21.85385, 21.83908, 21.84149, 21.83445, 21.83582, 21.82054, 21.81384, 21.81521, 
  21.80851, 21.79084, 21.81368, 21.80767, 21.7996, 21.78827, 21.79273, 21.78775, 21.77659, 21.78381, 
  21.76286, 21.75582, 21.73952, 21.74364, 21.74038, 21.7548, 21.74759, 21.73781, 21.7208, 21.72252, 
  21.69796, 21.67995, 21.66587, 21.66604, 21.64923, 21.65129, 21.62381, 21.62347, 21.60836, 21.61316, 
  21.60045, 21.60666, 21.59841, 21.59773, 21.57815, 21.5888, 21.5778, 21.58553, 21.58004, 21.5821, 
  21.56613, 21.58004, 21.58056, 21.58829, 21.57764, 21.5754, 21.56115, 21.55206, 21.55395, 21.54176, 
  21.55361, 21.54777, 21.56201, 21.54724, 21.54278, 21.52749, 21.52408, 21.52786, 21.51944, 21.52322, 
  21.51669, 21.52133, 21.53849, 21.54811, 21.56373, 21.55068, 21.54845, 21.53677, 21.53299, 21.52423, 
  21.52887, 21.51891, 21.5239, 21.51755, 21.51618, 21.50862, 21.50313, 21.5021, 21.51566, 21.51532, 
  21.52271, 21.51515, 21.52545, 21.53369, 21.52906, 21.53249, 21.53764, 21.53421, 21.53816, 21.53713, 
  21.54348, 21.53954, 21.54863, 21.55515, 21.56271, 21.55601, 21.56339, 21.56649, 21.58073, 21.58725, 
  21.59446, 21.60459, 21.58142, 21.58846, 21.60065, 21.60013, 21.61284, 21.63463, 21.63755, 21.65008, 
  21.65746, 21.67669, 21.67205, 21.68578, 21.66073, 21.63806, 21.62828, 21.63068, 21.62073, 21.60888, 
  21.5955, 21.59274, 21.58262, 21.58519, 21.57712, 21.57918, 21.56494, 21.5591, 21.54692, 21.54881, 
  21.52924, 21.5174, 21.52735, 21.51413, 21.50881, 21.49886, 21.48959, 21.49352, 21.4858, 21.48151, 
  21.46492, 21.46561, 21.47712, 21.48021, 21.49241, 21.50577, 21.50337, 21.50577, 21.50251, 21.49186, 
  21.48808, 21.47043, 21.46906, 21.45927, 21.44982, 21.44948, 21.44003, 21.45927, 21.45893, 21.4773, 
  21.467, 21.49482, 21.49565, 21.48929, 21.49204, 21.48294, 21.48397, 21.47435, 21.47607, 21.47126, 
  21.47882, 21.48861, 21.44517, 21.4268, 21.43283, 21.4318, 21.40484, 21.40553, 21.39077, 21.38407, 
  21.3918, 21.38459, 21.38459, 21.37017, 21.36709, 21.387, 21.35712, 21.34204, 21.32916, 21.29103, 
  21.26544, 21.26804, 21.26409, 21.26461, 21.24863, 21.24743, 21.26306, 21.26409, 21.25705, 21.26392, 
  21.24932, 21.24846, 21.24159, 21.24314, 21.25207, 21.24331, 21.24847, 21.2452, 21.25293, 21.24606, 
  21.24864, 21.2392, 21.2258, 21.21859, 21.20536, 21.21087, 21.20108, 21.17875, 21.17772, 21.13913, 
  21.13655, 21.12109, 21.12727, 21.13723, 21.13688, 21.15061, 21.1726, 21.1817, 21.18101, 21.17551, 
  21.17585, 21.14478, 21.1489, 21.13636, 21.13516, 21.12573, 21.11457, 21.10306, 21.09277, 21.0859, 
  21.08041, 21.08281, 21.09999, 21.10686, 21.10084, 21.09294, 21.08333, 21.08865, 21.08401, 21.08521, 
  21.08057, 21.08177, 21.08486, 21.09311, 21.09946, 21.08572, 21.07885, 21.07473, 21.07576, 21.0682, 
  21.06649, 21.05842, 21.06408, 21.06632, 21.07233, 21.07404, 21.08538, 21.09087, 21.09912, 21.10101, 
  21.10787, 21.10702, 21.12471, 21.12021, 21.13481, 21.14167, 21.13961, 21.15077, 21.14202, 21.14511, 
  21.15112, 21.16194, 21.19302, 21.19955, 21.18873, 21.19147, 21.20178, 21.20813, 21.21843, 21.22359, 
  21.19817, 21.20023, 21.16846, 21.17104, 21.164, 21.15387, 21.15765, 21.15112, 21.16349, 21.16469, 
  21.1695, 21.1683, 21.17757, 21.18152, 21.1877, 21.19148, 21.17963, 21.17001, 21.1537, 21.1324, 
  21.10375, 21.1132, 21.13072, 21.13054, 21.14257, 21.14102, 21.15064, 21.15699, 21.14684, 21.1446, 
  21.13791, 21.14049, 21.1331, 21.13774, 21.13207, 21.11988, 21.11232, 21.11937, 21.12366, 21.14152, 
  21.14444, 21.1575, 21.15765, 21.18101, 21.17036, 21.17001, 21.1858, 21.20777, 21.21, 21.16708, 
  21.17617, 21.17394, 21.18373, 21.19472, 21.23113, 21.24349, 21.23577, 21.24367, 21.2246, 21.23071, 
  21.22505, 21.23724, 21.23295, 21.23999, 21.25114, 21.28874, 21.29629, 21.30487, 21.28445, 21.30676, 
  21.30264, 21.32152, 21.32942, 21.34984, 21.36701, 21.35877, 21.35568, 21.34435, 21.33937, 21.33234, 
  21.32513, 21.31912, 21.3114, 21.30299, 21.31105, 21.30865, 21.32719, 21.31758, 21.32942, 21.33715, 
  21.33732, 21.35482, 21.35842, 21.34006, 21.34437, 21.33802, 21.34008, 21.32927, 21.32548, 21.31725, 
  21.32463, 21.31999, 21.33047, 21.33733, 21.35278, 21.36463, 21.37767, 21.37991, 21.38403, 21.38883, 
  21.38032, 21.38822, 21.37894, 21.39285, 21.39405, 21.41397, 21.41123, 21.3968, 21.40161, 21.42977, 
  21.41534, 21.37962, 21.3721, 21.35887, 21.36557, 21.32985, 21.33518, 21.32762, 21.32487, 21.31217, 
  21.32419, 21.3072, 21.30153, 21.29742, 21.29003, 21.2945, 21.28076, 21.28917, 21.32987, 21.33088, 
  21.33929, 21.34565, 21.33913, 21.33329, 21.32384, 21.32229, 21.30804, 21.32676, 21.32126, 21.32847, 
  21.31302, 21.32487, 21.32418, 21.33878, 21.33687, 21.36762, 21.38067, 21.39887, 21.39372, 21.42103, 
  21.42086, 21.40849, 21.41399, 21.40849, 21.44074, 21.43782, 21.41893, 21.46066, 21.4725, 21.46099, 
  21.46958, 21.47404, 21.48246, 21.48263, 21.49431, 21.49208, 21.4725, 21.46151, 21.44124, 21.43214, 
  21.44519, 21.46923, 21.51766, 21.51663, 21.50426, 21.50942, 21.48641, 21.48263, 21.49912, 21.49259, 
  21.49448, 21.48229, 21.47628, 21.45601, 21.45464, 21.43111, 21.42166, 21.45052, 21.44742, 21.47524, 
  21.47301, 21.48417, 21.50272, 21.50238, 21.50787, 21.51715, 21.51903, 21.53019, 21.52658, 21.54822, 
  21.54153, 21.52435, 21.54101, 21.55767, 21.55731, 21.60419, 21.59543, 21.54872, 21.53841, 21.55318, 
  21.5398, 21.51388, 21.50649, 21.53483, 21.53431, 21.5453, 21.54857, 21.52933, 21.54049, 21.55628, 
  21.55713, 21.58529, 21.58615, 21.60487, 21.58924, 21.59748, 21.61276, 21.61362, 21.6361, 21.63318, 
  21.6124, 21.6179, 21.63026, 21.61446, 21.63523, 21.6512, 21.63574, 21.66391, 21.65601, 21.66735, 
  21.64691, 21.66409, 21.61514, 21.61256, 21.57186, 21.55834, 21.53773, 21.52778, 21.49927, 21.50511, 
  21.48468, 21.46836, 21.47489, 21.49103, 21.49808, 21.49465, 21.48641, 21.49019, 21.48418, 21.50719, 
  21.52314, 21.52417, 21.53894, 21.57739, 21.57482, 21.59165, 21.58357, 21.63405, 21.62925, 21.58768, 
  21.57755, 21.55954, 21.54202, 21.52554, 21.49617, 21.48638, 21.46697, 21.44997, 21.47161, 21.48417, 
  21.51834, 21.49928, 21.51971, 21.53002, 21.57034, 21.57172, 21.60023, 21.58701, 21.58821, 21.57241, 
  21.55936, 21.55197, 21.52999, 21.50955, 21.46545, 21.48331, 21.45514, 21.44827, 21.53259, 21.52761, 
  21.55852, 21.53361, 21.53174, 21.53964, 21.53981, 21.52487, 21.50735, 21.50941, 21.51456, 21.51594, 
  21.52332, 21.52933, 21.51577, 21.50855, 21.53637, 21.52091, 21.57293, 21.5695, 21.55954, 21.57671, 
  21.56847, 21.56126, 21.55147, 21.5683, 21.541, 21.55011, 21.53655, 21.53723, 21.51645, 21.52503, 
  21.49191, 21.5113, 21.5125, 21.5355, 21.53756, 21.55764, 21.54889, 21.52537, 21.50684, 21.4883, 
  21.48556, 21.50186, 21.55112, 21.58254, 21.61292, 21.58632, 21.60297, 21.5937, 21.55852, 21.52383, 
  21.518, 21.50014, 21.49224, 21.47113, 21.44058, 21.4205, 21.43595, 21.42462, 21.43509, 21.4598, 
  21.45947, 21.46873, 21.45981, 21.48504, 21.48864, 21.49774, 21.49448, 21.50786, 21.50701, 21.52966, 
  21.50581, 21.50942, 21.50718, 21.53567, 21.52744, 21.49174, 21.48452, 21.47817, 21.47353, 21.45997, 
  21.47688, 21.45558, 21.48392, 21.48787, 21.50367, 21.50076, 21.48736, 21.46418, 21.45353, 21.44288, 
  21.44872, 21.4549, 21.45817, 21.44099, 21.44666, 21.4276, 21.43052, 21.45456, 21.45663, 21.43859, 
  21.40768, 21.40407, 21.44891, 21.44529, 21.45954, 21.45354, 21.45371, 21.44409, 21.44701, 21.43207, 
  21.46487, 21.45489, 21.464, 21.46005, 21.47997, 21.46932, 21.47395, 21.45987, 21.43823, 21.42587, 
  21.42604, 21.46502, 21.45386, 21.4585, 21.44493, 21.4573, 21.44391, 21.45249, 21.45112, 21.47688, 
  21.46486, 21.47156, 21.47946, 21.49543, 21.49165, 21.48804, 21.48238, 21.47448, 21.46348, 21.46245, 
  21.45799, 21.45421, 21.43223, 21.41248, 21.40355, 21.39843, 21.38796, 21.3792, 21.3713, 21.37405, 
  21.36735, 21.37422, 21.38589, 21.39344, 21.40031, 21.4034, 21.41113, 21.4125, 21.41817, 21.41576, 
  21.42366, 21.42298, 21.42693, 21.41731, 21.42298, 21.43277, 21.42521, 21.4307, 21.41439, 21.39498, 
  21.38914, 21.3663, 21.35329, 21.31344, 21.29867, 21.29695, 21.30915, 21.30589, 21.3234, 21.3447, 
  21.33937, 21.34831, 21.33663, 21.33165, 21.31722, 21.32873, 21.33903, 21.35844, 21.36511, 21.35773, 
  21.34966, 21.33901, 21.36013, 21.36717, 21.37094, 21.37215, 21.37661, 21.38125, 21.39602, 21.39447, 
  21.40907, 21.40581, 21.40237, 21.40409, 21.42779, 21.44168, 21.43121, 21.43292, 21.44632, 21.43721, 
  21.40871, 21.40304, 21.3972, 21.38552, 21.36358, 21.37438, 21.39533, 21.39533, 21.401, 21.38692, 
  21.37438, 21.36221, 21.35259, 21.32924, 21.31964, 21.30951, 21.3035, 21.29698, 21.29337, 21.28667, 
  21.28135, 21.25576, 21.25543, 21.24272, 21.3212, 21.31655, 21.3193, 21.31088, 21.29989, 21.32204, 
  21.28889, 21.2853, 21.3181, 21.30728, 21.25971, 21.20699, 21.22745, 21.21766, 21.22779, 21.24322, 
  21.25696, 21.28942, 21.28976, 21.30951, 21.31003, 21.32256, 21.31964, 21.31157, 21.30539, 21.29611, 
  21.28736, 21.3102, 21.32359, 21.3476, 21.38658, 21.40599, 21.41728, 21.43514, 21.43447, 21.41475, 
  21.4132, 21.38266, 21.38678, 21.36069, 21.36721, 21.33613, 21.34402, 21.30472, 21.36462, 21.33408, 
  21.35536, 21.35381, 21.35862, 21.35004, 21.35278, 21.36136, 21.372, 21.3763, 21.39517, 21.39158, 
  21.39724, 21.37665, 21.37922, 21.40325, 21.39605, 21.40858, 21.3945, 21.4139, 21.38421, 21.39037, 
  21.37201, 21.38247, 21.37115, 21.38951, 21.38007, 21.39226, 21.37252, 21.39449, 21.37063, 21.38179, 
  21.36325, 21.36583, 21.34249, 21.35913, 21.34042, 21.36703, 21.3581, 21.36153, 21.35055, 21.34711, 
  21.33878, 21.35439, 21.3683, 21.3726, 21.37895, 21.38325, 21.40366, 21.41087, 21.44917, 21.45207, 
  21.43765, 21.44933, 21.45792, 21.46084, 21.4337, 21.43096, 21.41997, 21.41086, 21.40846, 21.39352, 
  21.43853, 21.43166, 21.44933, 21.45122, 21.46255, 21.4617, 21.48333, 21.48023, 21.51526, 21.51507, 
  21.51044, 21.5082, 21.48845, 21.50511, 21.50872, 21.51662, 21.53173, 21.53397, 21.52555, 21.51336, 
  21.53721, 21.57327, 21.56091, 21.5731, 21.57276, 21.60744, 21.60829, 21.5918, 21.57223, 21.58613, 
  21.59472, 21.6064, 21.61567, 21.62598, 21.65909, 21.66871, 21.68433, 21.66562, 21.68057, 21.67232, 
  21.68022, 21.68176, 21.69928, 21.71955, 21.73548, 21.74012, 21.76433, 21.78646, 21.79849, 21.80621, 
  21.83092, 21.84878, 21.84174, 21.84569, 21.83882, 21.83315, 21.82868, 21.84345, 21.83366, 21.8213, 
  21.81926, 21.82733, 21.82338, 21.82699, 21.81617, 21.81771, 21.82972, 21.82663, 21.81238, 21.82526, 
  21.82235, 21.8117, 21.8172, 21.81033, 21.81446, 21.80518, 21.80673, 21.79694, 21.80295, 21.78887, 
  21.782, 21.7717, 21.76208, 21.77376, 21.76878, 21.77908, 21.7796, 21.78836, 21.78784, 21.79729, 
  21.80261, 21.79146, 21.79352, 21.78527, 21.77961, 21.77944, 21.75659, 21.74371, 21.74783, 21.73601, 
  21.72261, 21.72038, 21.71076, 21.71076, 21.70406, 21.71557, 21.70991, 21.71059, 21.69462, 21.70715, 
  21.70424, 21.71007, 21.69908, 21.69325, 21.69909, 21.69978, 21.70613, 21.71351, 21.71592, 21.72451, 
  21.72657, 21.73515, 21.74082, 21.73807, 21.72484, 21.73326, 21.73103, 21.75232, 21.75507, 21.7616, 
  21.76056, 21.74202, 21.73807, 21.74305, 21.73686, 21.74476, 21.74236, 21.76536, 21.75677, 21.76742, 
  21.77498, 21.76948, 21.76965, 21.77583, 21.77566, 21.80159, 21.82323, 21.83521, 21.84706, 21.85153, 
  21.86784, 21.86715, 21.88757, 21.89221, 21.90097, 21.88895, 21.89273, 21.88345, 21.87316, 21.87934, 
  21.86955, 21.87264, 21.86371, 21.8668, 21.87642, 21.87624, 21.88466, 21.88054, 21.88827, 21.88758, 
  21.89977, 21.92725, 21.91918, 21.91042, 21.91901, 21.93907, 21.94783, 21.96398, 21.95882, 21.96724, 
  21.96037, 21.96397, 21.95779, 21.97668, 21.98733, 21.99815, 21.98149, 21.99263, 22.00345, 22.00706, 
  22.01393, 22.02423, 22.02853, 22.01358, 22.03643, 22.02818, 22.02131, 22.01221, 22.01908, 22.03176, 
  22.03554, 22.06233, 22.068, 22.07487, 22.09067, 22.1063, 22.10642, 22.11879, 22.11398, 22.11982, 
  22.12737, 22.12239, 22.12634, 22.11655, 22.13527, 22.12943, 22.13801, 22.15381, 22.17116, 22.19915, 
  22.20808, 22.20911, 22.21907, 22.21959, 22.23108, 22.23795, 22.2455, 22.27209, 22.28532, 22.28393, 
  22.29355, 22.38178, 22.39157, 22.3962, 22.46301, 22.47499, 22.47946, 22.5011, 22.50556, 22.47191, 
  22.49474, 22.51312, 22.54283, 22.55365, 22.56459, 22.56785, 22.58314, 22.63106, 22.6338, 22.65252, 
  22.62968, 22.62608, 22.60684, 22.60153, 22.57697, 22.56941, 22.55636, 22.56667, 22.55344, 22.55293, 
  22.51225, 22.52427, 22.49765, 22.46882, 22.47123, 22.48119, 22.47088, 22.45319, 22.47397, 22.48659, 
  22.49929, 22.5113, 22.50924, 22.52608, 22.52505, 22.53775, 22.53209, 22.55817, 22.56573, 22.58307, 
  22.59182, 22.61482, 22.62048, 22.59525, 22.58495, 22.56299, 22.56762, 22.56693, 22.57242, 22.55217, 
  22.56126, 22.55251, 22.57448, 22.57191, 22.57826, 22.58358, 22.58752, 22.59422, 22.58049, 22.58975, 
  22.61138, 22.61378, 22.55423, 22.56161, 22.53071, 22.53311, 22.51904, 22.55851, 22.59989, 22.61602, 
  22.6186, 22.68675, 22.72108, 22.73395, 22.80879, 22.8651, 22.85361, 22.86734, 22.87677, 22.88896, 
  22.89573, 22.96028, 22.97639, 22.9982, 23.00404, 23.02723, 23.02482, 23.05984, 23.0485, 23.07029, 
  23.09915, 23.07408, 23.0715, 23.05742, 23.0478, 23.05005, 23.03323, 23.01812, 23.00816, 22.99666, 
  22.98979, 22.97673, 22.97829, 22.97073, 22.9484, 22.95031, 22.94516, 22.95117, 22.90516, 22.89246, 
  22.8703, 22.89228, 22.86894, 22.88405, 22.90482, 22.90396, 22.97126, 22.98379, 22.96576, 22.98517, 
  22.9704, 22.98774, 22.99822, 23.01608, 23.01196, 23.00045, 23.02913, 23.01917, 23.02845, 23.06258, 
  23.06431, 23.0334, 23.03031, 23.00009, 23.01915, 23.01709, 22.98463, 22.98961, 23.01022, 23.01967, 
  23.02568, 23.02929, 23.0456, 23.04972, 23.0593, 23.07149, 23.06377, 23.05158, 23.05811, 23.07974, 
  23.07184, 23.08576, 23.0861, 23.07854, 23.10413, 23.10362, 23.11441, 23.12386, 23.12729, 23.14687, 
  23.15683, 23.16542, 23.22789, 23.2351, 23.26241, 23.26498, 23.24713, 23.24301, 23.22996, 23.22549, 
  23.21879, 23.209, 23.23081, 23.197, 23.17123, 23.1544, 23.11596, 23.11459, 23.10686, 23.09829, 
  23.09005, 23.09417, 23.08541, 23.0849, 23.09622, 23.10927, 23.10618, 23.05071, 23.03508, 23.02431, 
  23.02156, 22.98997, 22.99564, 22.98997, 22.99719, 23.00028, 23.01333, 23.01178, 23.01882, 23.00646, 
  23.00817, 23.02483, 23.02413, 23.031, 23.02773, 23.01949, 23.01331, 23.00336, 22.99031, 22.97846, 
  22.96575, 22.94995, 22.95358, 22.93486, 22.90721, 22.91391, 22.9055, 22.9, 22.89399, 22.87682, 
  22.86894, 22.8607, 22.85727, 22.84937, 22.85005, 22.83701, 22.84045, 22.83032, 22.83564, 22.85402, 
  22.83204, 22.82466, 22.83754, 22.83462, 22.84441, 22.83462, 22.84629, 22.82191, 22.80954, 22.81727, 
  22.81126, 22.81504, 22.81092, 22.82535, 22.82242, 22.83358, 22.83874, 22.86055, 22.86226, 22.87119, 
  22.85779, 22.8856, 22.91615, 22.94105, 22.94533, 22.95478, 22.96457, 22.9692, 22.97951, 22.96422, 
  22.95907, 22.94516, 22.9577, 22.95855, 22.97178, 22.97983, 23.00748, 22.99357, 22.9843, 22.98224, 
  22.9618, 22.96799, 22.96679, 22.97829, 22.97984, 22.9922, 23.00474, 23.00284, 23.01348, 23.0164, 
  23.02739, 23.02618, 23.03185, 23.03546, 23.06397, 23.0691, 23.06343, 23.06859, 23.06189, 23.07185, 
  23.08884, 23.08404, 23.066, 23.07184, 23.0672, 23.07322, 23.06721, 23.077, 23.06738, 23.06412, 
  23.05073, 23.03012, 23.03065, 23.03889, 23.0516, 23.05538, 23.06551, 23.10207, 23.1139, 23.13981, 
  23.14548, 23.15682, 23.1788, 23.19183, 23.19733, 23.20093, 23.21725, 23.23391, 23.23339, 23.21004, 
  23.21759, 23.19767, 23.192, 23.16489, 23.15527, 23.15321, 23.1168, 23.10686, 23.10138, 23.10241, 
  23.09657, 23.09708, 23.10995, 23.123, 23.13537, 23.13056, 23.15804, 23.15769, 23.16714, 23.16678, 
  23.15819, 23.1551, 23.16747, 23.18619, 23.17673, 23.19407, 23.21176, 23.22945, 23.19338, 23.16178, 
  23.14737, 23.14686, 23.1606, 23.17107, 23.15819, 23.19236, 23.20816, 23.17106, 23.17349, 23.16249, 
  23.17005, 23.15562, 23.10892, 23.06976, 23.07303, 23.05418, 23.04817, 23.02721, 23.01382, 23.00145, 
  22.98754, 22.96607, 22.9589, 22.9364, 22.93091, 22.91889, 22.92679, 22.91891, 22.90019, 22.90379, 
  22.8916, 22.90585, 22.91496, 22.91393, 22.92887, 22.95286, 22.95784, 22.97416, 22.98498, 22.98618, 
  23.00404, 23.0061, 23.01726, 23.02465, 23.03667, 23.04955, 23.05762, 23.06243, 23.08764, 23.08095, 
  23.08816, 23.1043, 23.09881, 23.14174, 23.16076, 23.17209, 23.1733, 23.21348, 23.22788, 23.23354, 
  23.24505, 23.25278, 23.2387, 23.21431, 23.21311, 23.23217, 23.23045, 23.24007, 23.22875, 23.22205, 
  23.23817, 23.25964, 23.26925, 23.30168, 23.31353, 23.36093, 23.36795, 23.38101, 23.37946, 23.38873, 
  23.38496, 23.39268, 23.39508, 23.40539, 23.40298, 23.42531, 23.43132, 23.45157, 23.47217, 23.46461, 
  23.47131, 23.46324, 23.4744, 23.48179, 23.49398, 23.49106, 23.50271, 23.50666, 23.5125, 23.51903, 
  23.51473, 23.5295, 23.54101, 23.55268, 23.56023, 23.53671, 23.53534, 23.54374, 23.53945, 23.52468, 
  23.52279, 23.50974, 23.48279, 23.48984, 23.48177, 23.48126, 23.47336, 23.46047, 23.45927, 23.4502, 
  23.44196, 23.42805, 23.43578, 23.43149, 23.4229, 23.42462, 23.43973, 23.44883, 23.45776, 23.46944, 
  23.47955, 23.49724, 23.50565, 23.51252, 23.53328, 23.54942, 23.56125, 23.56846, 23.58031, 23.57791, 
  23.56984, 23.50973, 23.5041, 23.45396, 23.45069, 23.46031, 23.48745, 23.47972, 23.4701, 23.47697, 
  23.47646, 23.46718, 23.46804, 23.45739, 23.45293, 23.44743, 23.43249, 23.42511, 23.42356, 23.42751, 
  23.4191, 23.40965, 23.3887, 23.38719, 23.3774, 23.386, 23.38531, 23.37466, 23.35955, 23.36213, 
  23.35508, 23.4006, 23.41176, 23.46735, 23.48006, 23.48811, 23.50082, 23.51233, 23.54406, 23.58419, 
  23.61749, 23.63123, 23.64976, 23.65131, 23.63329, 23.63638, 23.67619, 23.67362, 23.68889, 23.70298, 
  23.7023, 23.68771, 23.68513, 23.69646, 23.72238, 23.72083, 23.72838, 23.73319, 23.74246, 23.73576, 
  23.73525, 23.7416, 23.76786, 23.72289, 23.71191, 23.69285, 23.69835, 23.70676, 23.70796, 23.70075, 
  23.71499, 23.71122, 23.71431, 23.72477, 23.73147, 23.74056, 23.7428, 23.76495, 23.76683, 23.80579, 
  23.81113, 23.81679, 23.81799, 23.82589, 23.83619, 23.83276, 23.85541, 23.86056, 23.87446, 23.887, 
  23.87677, 23.8869, 23.89652, 23.92228, 23.93429, 23.93893, 23.94442, 23.95609, 23.85977, 23.85892, 
  23.90185, 23.92155, 23.94697, 23.95848, 23.96913, 23.95574, 23.96862, 23.97875, 24.00228, 23.99659, 
  24.01445, 24.03334, 24.01805, 24.02819, 24.02611, 24.03814, 24.05016, 24.05239, 24.07142, 24.08551, 
  24.08774, 24.09358, 24.09049, 24.06833, 24.08808, 24.08705, 24.10508, 24.11401, 24.12123, 24.12775, 
  24.12758, 24.11556, 24.12037, 24.13115, 24.13201, 24.13527, 24.15434, 24.15124, 24.13768, 24.13579, 
  24.14712, 24.15331, 24.14918, 24.16086, 24.16567, 24.17356, 24.17768, 24.18232, 24.18782, 24.19314, 
  24.20156, 24.20619, 24.19022, 24.17889, 24.16979, 24.16139, 24.17307, 24.182, 24.18732, 24.19265, 
  24.19797, 24.20106, 24.20518, 24.20845, 24.20982, 24.21394, 24.20913, 24.21411, 24.21718, 24.22353, 
  24.22353, 24.21941, 24.22147, 24.22765, 24.23246, 24.23195, 24.23555, 24.24311, 24.24345, 24.26334, 
  24.25974, 24.26334, 24.27777, 24.27296, 24.27193, 24.26936, 24.2697, 24.26592, 24.26833, 24.26541, 
  24.28258, 24.30197, 24.30506, 24.31073, 24.30884, 24.31245, 24.31399, 24.31846, 24.31777, 24.30884, 
  24.30506, 24.29699, 24.29682, 24.30317, 24.30163, 24.29442, 24.29338, 24.30403, 24.30128, 24.30712, 
  24.31399, 24.3188, 24.32601, 24.31897, 24.32069, 24.33185, 24.33322, 24.33872, 24.33168, 24.33425, 
  24.34112, 24.34129, 24.35469, 24.36053, 24.36686, 24.37098, 24.38369, 24.39004, 24.37699, 24.37029, 
  24.3751, 24.37184, 24.37527, 24.37218, 24.37922, 24.35673, 24.36463, 24.33802, 24.33012, 24.31965, 
  24.31965, 24.33871, 24.35331, 24.34318, 24.34816, 24.34747, 24.35656, 24.37219, 24.37219, 24.37699, 
  24.37047, 24.36858, 24.37373, 24.38146, 24.37974, 24.38575, 24.40258, 24.4067, 24.4043, 24.40756, 
  24.40738, 24.41613, 24.42146, 24.42352, 24.42695, 24.42816, 24.44428, 24.446, 24.45012, 24.45115, 
  24.45785, 24.45356, 24.45923, 24.46009, 24.46524, 24.46867, 24.47503, 24.47726, 24.47142, 24.47451, 
  24.46902, 24.47675, 24.48018, 24.46437, 24.44376, 24.45046, 24.46678, 24.46163, 24.44823, 24.44607, 
  24.44041, 24.4392, 24.44264, 24.43526, 24.43285, 24.42376, 24.42324, 24.42891, 24.43028, 24.43715, 
  24.42754, 24.42891, 24.42531, 24.42565, 24.41415, 24.40316, 24.39836, 24.39012, 24.39424, 24.39184, 
  24.39424, 24.39029, 24.3951, 24.40042, 24.41106, 24.41226, 24.41758, 24.42359, 24.42324, 24.42547, 
  24.42942, 24.42599, 24.43905, 24.44059, 24.46119, 24.46291, 24.45227, 24.45192, 24.46033, 24.4684, 
  24.46531, 24.47097, 24.48814, 24.49089, 24.48626, 24.48952, 24.49501, 24.49878, 24.50273, 24.50685, 
  24.50383, 24.51482, 24.5119, 24.51328, 24.50744, 24.51617, 24.51634, 24.52665, 24.52493, 24.53197, 
  24.53747, 24.54571, 24.55001, 24.54674, 24.5373, 24.54176, 24.53798, 24.54382, 24.55136, 24.57008, 
  24.57455, 24.58502, 24.60872, 24.6111, 24.61952, 24.61711, 24.62038, 24.60715, 24.60853, 24.62072, 
  24.6257, 24.64235, 24.64184, 24.65111, 24.64836, 24.65145, 24.63771, 24.6475, 24.64115, 24.63428, 
  24.63359, 24.61264, 24.61781, 24.62588, 24.62742, 24.6221, 24.62193, 24.61146, 24.61266, 24.5893, 
  24.58776, 24.58037, 24.57215, 24.56545, 24.55017, 24.56133, 24.57541, 24.58039, 24.58039, 24.58967, 
  24.5931, 24.60615, 24.61368, 24.62399, 24.62776, 24.63428, 24.63394, 24.63961, 24.63961, 24.65506, 
  24.65077, 24.66348, 24.66348, 24.66776, 24.66673, 24.67274, 24.66879, 24.67531, 24.67377, 24.68218, 
  24.68802, 24.67617, 24.68098, 24.67995, 24.6918, 24.69901, 24.70468, 24.71413, 24.69318, 24.68613, 
  24.68425, 24.68802, 24.68837, 24.70451, 24.69987, 24.70434, 24.71962, 24.71911, 24.72804, 24.72873, 
  24.73285, 24.73799, 24.74194, 24.74142, 24.72751, 24.73129, 24.72064, 24.71669, 24.70467, 24.69969, 
  24.69557, 24.68458, 24.68595, 24.69969, 24.70776, 24.71343, 24.72116, 24.72339, 24.73816, 24.73215, 
  24.75018, 24.75585, 24.76181, 24.77006, 24.77469, 24.78431, 24.79255, 24.79324, 24.80372, 24.80337, 
  24.80853, 24.80784, 24.8154, 24.81522, 24.82312, 24.8202, 24.8336, 24.83738, 24.82828, 24.83789, 
  24.8336, 24.84167, 24.83634, 24.81865, 24.80938, 24.82466, 24.82964, 24.84235, 24.84355, 24.85265, 
  24.85282, 24.86775, 24.87359, 24.87995, 24.88422, 24.8923, 24.89573, 24.9026, 24.91359, 24.91101, 
  24.91428, 24.90844, 24.90723, 24.90157, 24.90706, 24.91668, 24.9105, 24.89762, 24.90294, 24.91462, 
  24.90363, 24.90517, 24.9014, 24.90723, 24.91325, 24.91239, 24.92321, 24.922, 24.92922, 24.93231, 
  24.9263, 24.92544, 24.91994, 24.92681, 24.93334, 24.94071, 24.9505, 24.95788, 24.96303, 24.95359, 
  24.97059, 24.98021, 24.97625, 24.95925, 24.96303, 24.96664, 24.97522, 24.97093, 24.97625, 24.98587, 
  24.97917, 24.9826, 24.98294, 24.99016, 24.99376, 24.99428, 24.99668, 25.00201, 25.00424, 25.0224, 
  25.01862, 25.02566, 25.01675, 25.02551, 25.02379, 25.01727, 25.01177, 25.00902, 25.00353, 24.99975, 
  25.01813, 25.02483, 25.02843, 25.04372, 25.042, 25.04681, 25.04612, 25.03874, 25.03187, 25.02826, 
  25.02191, 25.01933, 25.01572, 25.00885, 25.0159, 25.01126, 25.01229, 25.01864, 25.01796, 25.02483, 
  25.03393, 25.03204, 25.04525, 25.04782, 25.05555, 25.06036, 25.07204, 25.07874, 25.08063, 25.08612, 
  25.09537, 25.09812, 25.09056, 25.08524, 25.08558, 25.0806, 25.07528, 25.07666, 25.06207, 25.05812, 
  25.06808, 25.0631, 25.06704, 25.05949, 25.06911, 25.0734, 25.06481, 25.06516, 25.07752, 25.08113, 
  25.09779, 25.09588, 25.1079, 25.11374, 25.11666, 25.12112, 25.12525, 25.11494, 25.10069, 25.10498, 
  25.09725, 25.08954, 25.09005, 25.10706, 25.11891, 25.13041, 25.13522, 25.1323, 25.13916, 25.15341, 
  25.15478, 25.14465, 25.15272, 25.13898, 25.13417, 25.13417, 25.14173, 25.16183, 25.16045, 25.16595, 
  25.17144, 25.17728, 25.17745, 25.18415, 25.17487, 25.18445, 25.19012, 25.19407, 25.186, 25.18978, 
  25.19836, 25.20111, 25.19527, 25.19836, 25.18481, 25.18361, 25.17811, 25.17468, 25.18344, 25.19082, 
  25.19271, 25.18498, 25.18704, 25.20886, 25.20883, 25.21896, 25.21501, 25.2315, 25.23425, 25.23889, 
  25.22738, 25.23648, 25.2382, 25.24524, 25.24215, 25.25537, 25.28043, 25.28163, 25.2861, 25.28988, 
  25.29862, 25.29364, 25.30291, 25.30274, 25.30944, 25.31253, 25.32472, 25.32352, 25.33588, 25.34255, 
  25.34838, 25.35251, 25.35577, 25.36195, 25.35938, 25.37037, 25.37552, 25.37586, 25.38685, 25.37741, 
  25.38497, 25.38995, 25.40386, 25.41382, 25.41347, 25.4217, 25.42067, 25.42342, 25.43286, 25.42634, 
  25.4387, 25.44712, 25.44179, 25.44591, 25.44952, 25.4533, 25.44952, 25.47408, 25.49707, 25.48694, 
  25.44675, 25.41343, 25.41807, 25.41326, 25.40484, 25.42032, 25.41482, 25.42307, 25.41603, 25.42513, 
  25.42702, 25.43354, 25.43303, 25.45072, 25.46995, 25.46411, 25.48232, 25.49158, 25.49758, 25.49105, 
  25.49724, 25.50806, 25.50754, 25.51235, 25.50926, 25.5108, 25.5005, 25.51235, 25.51029, 25.5259, 
  25.52469, 25.5137, 25.51439, 25.53105, 25.53363, 25.55302, 25.54289, 25.53121, 25.52864, 25.51404, 
  25.52899, 25.52968, 25.54067, 25.5484, 25.55612, 25.56299, 25.5721, 25.57313, 25.58412, 25.57209, 
  25.58085, 25.5769, 25.58649, 25.58856, 25.58323, 25.58495, 25.59611, 25.59955, 25.59285, 25.59697, 
  25.59457, 25.60367, 25.60813, 25.60367, 25.60658, 25.61946, 25.6241, 25.64092, 25.64453, 25.66221, 
  25.67491, 25.67302, 25.70529, 25.69911, 25.6883, 25.718, 25.72091, 25.71062, 25.70073, 25.66405, 
  25.64208, 25.64345, 25.63882, 25.65495, 25.6946, 25.69597, 25.66113, 25.63607, 25.62749, 25.64276, 
  25.63847, 25.65392, 25.65118, 25.66834, 25.66165, 25.674, 25.70455, 25.71931, 25.70884, 25.71538, 
  25.72464, 25.74318, 25.74404, 25.75725, 25.75313, 25.77716, 25.77304, 25.78231, 25.78677, 25.79501, 
  25.78952, 25.79459, 25.78858, 25.79373, 25.78377, 25.78961, 25.80301, 25.81516, 25.82976, 25.83491, 
  25.84676, 25.84315, 25.85329, 25.84247, 25.81087, 25.77964, 25.77277, 25.76316, 25.75887, 25.75131, 
  25.74822, 25.73672, 25.74633, 25.74084, 25.76127, 25.76969, 25.78704, 25.80744, 25.85879, 25.85859, 
  25.87765, 25.86735, 25.86391, 25.87457, 25.85981, 25.89037, 25.8792, 25.88659, 25.92764, 25.92386, 
  25.93725, 25.92145, 25.92729, 25.91269, 25.9175, 25.90185, 25.91147, 25.90442, 25.88673, 25.88347, 
  25.89498, 25.90219, 25.88124, 25.86458, 25.86941, 25.88435, 25.88229, 25.8646, 25.86288, 25.87628, 
  25.89105, 25.91595, 25.91576, 25.91026, 25.9161, 25.90665, 25.91301, 25.90306, 25.90031, 25.88623, 
  25.88245, 25.86718, 25.86718, 25.86066, 25.84331, 25.85224, 25.89414, 25.90837, 25.93498, 25.94116, 
  25.96555, 25.97568, 25.9841, 25.98255, 25.99475, 25.99028, 25.99437, 26.00364, 26.0033, 26.01189, 
  26.02906, 26.02528, 26.02442, 26.01996, 26.01652, 26.02958, 26.04898, 26.05104, 26.0653, 26.06856, 
  26.08127, 26.08969, 26.08763, 26.10097, 26.11076, 26.1027, 26.10923, 26.09996, 26.09274, 26.08278, 
  26.07866, 26.06835, 26.07078, 26.05497, 26.05566, 26.03265, 26.02065, 26.01292, 26.0167, 26.00348, 
  26.01567, 26.02082, 26.03903, 26.03868, 26.02408, 25.99506, 25.99387, 25.98219, 25.97996, 25.97394, 
  25.96175, 25.95402, 25.96244, 25.97034, 25.96709, 25.95506, 25.96159, 25.97104, 25.96537, 25.9372, 
  25.92933, 25.91129, 25.92469, 25.9453, 25.95972, 25.96436, 25.97827, 25.97844, 26.00228, 26.0076, 
  26.03489, 26.03626, 26.0433, 26.05567, 26.05653, 26.06237, 26.07044, 26.09943, 26.1075, 26.11231, 
  26.12708, 26.13773, 26.1549, 26.17395, 26.17138, 26.16605, 26.15145, 26.16124, 26.15266, 26.18134, 
  26.17893, 26.15935, 26.153, 26.17859, 26.20401, 26.20212, 26.20847, 26.2028, 26.18443, 26.18614, 
  26.19642, 26.19007, 26.19419, 26.17463, 26.17085, 26.17411, 26.16742, 26.16862, 26.18425, 26.19936, 
  26.20692, 26.22323, 26.22441, 26.23626, 26.25687, 26.26202, 26.26821, 26.25927, 26.25017, 26.24982, 
  26.25824, 26.24776, 26.24965, 26.23935, 26.23746, 26.23196, 26.24313, 26.2378, 26.24141, 26.23334, 
  26.23626, 26.24502, 26.24605, 26.25172, 26.2512, 26.26424, 26.27248, 26.28931, 26.29858, 26.28742, 
  26.27969, 26.30012, 26.29119, 26.31728, 26.33497, 26.33239, 26.34785, 26.33238, 26.34973, 26.37222, 
  26.36673, 26.3803, 26.37772, 26.38476, 26.393, 26.38751, 26.40294, 26.41187, 26.40466, 26.41393, 
  26.41857, 26.42766, 26.42456, 26.39485, 26.38884, 26.38386, 26.38884, 26.38249, 26.39022, 26.38372, 
  26.39798, 26.40107, 26.40965, 26.4088, 26.42353, 26.42834, 26.4359, 26.44655, 26.46338, 26.47059, 
  26.50062, 26.50851, 26.5037, 26.50748, 26.51641, 26.52569, 26.53101, 26.54166, 26.53359, 26.49804, 
  26.48945, 26.48241, 26.47932, 26.46833, 26.47056, 26.44397, 26.42561, 26.4129, 26.41187, 26.40294, 
  26.41977, 26.42475, 26.4244, 26.43162, 26.44312, 26.43866, 26.4548, 26.45564, 26.44157, 26.45565, 
  26.44827, 26.45599, 26.45169, 26.4711, 26.48585, 26.50749, 26.50491, 26.525, 26.52775, 26.53496, 
  26.55281, 26.56687, 26.56893, 26.57305, 26.57649, 26.58404, 26.58782, 26.57752, 26.57151, 26.55794, 
  26.56086, 26.5461, 26.51416, 26.51332, 26.50611, 26.50628, 26.51435, 26.5092, 26.54063, 26.53616, 
  26.54387, 26.54765, 26.55572, 26.54438, 26.56292, 26.57786, 26.58216, 26.59126, 26.60431, 26.61852, 
  26.62539, 26.64497, 26.65819, 26.65957, 26.64669, 26.65922, 26.67502, 26.68052, 26.67537, 26.70989, 
  26.70748, 26.71467, 26.72188, 26.74696, 26.73337, 26.74195, 26.75089, 26.74917, 26.7545, 26.75518, 
  26.76377, 26.76906, 26.78365, 26.79343, 26.82484, 26.8293, 26.83617, 26.8317, 26.84493, 26.84853, 
  26.8451, 26.85366, 26.87339, 26.8885, 26.88781, 26.89999, 26.89999, 26.90978, 26.90926, 26.917, 
  26.92147, 26.93142, 26.93382, 26.94206, 26.96403, 26.96351, 26.94481, 26.94275, 26.93159, 26.93279, 
  26.94481, 26.94927, 26.94138, 26.9201, 26.90929, 26.91976, 26.92508, 26.93314, 26.9316, 26.94361, 
  26.94069, 26.95511, 26.95717, 26.96781, 26.97347, 26.98102, 26.99046, 26.97245, 26.98069, 26.98069, 
  26.98807, 26.99116, 27.00266, 27.00849, 27.01313, 27.02051, 27.02257, 27.01227, 27.01364, 27.00712, 
  27.00369, 27.01055, 27.02144, 27.02144, 27.02573, 27.02418, 27.03466, 27.02639, 27.03721, 27.0355, 
  27.05731, 27.0671, 27.05781, 27.06194, 27.07018, 27.0798, 27.09113, 27.09697, 27.08942, 27.09301, 
  27.09112, 27.09644, 27.10125, 27.10417, 27.09507, 27.09782, 27.10881, 27.10795, 27.12598, 27.16031, 
  27.16152, 27.12871, 27.13266, 27.14228, 27.16323, 27.16633, 27.17251, 27.18264, 27.1701, 27.17697, 
  27.17233, 27.17663, 27.17422, 27.16598, 27.16907, 27.17182, 27.17439, 27.1768, 27.17972, 27.18281, 
  27.18384, 27.18899, 27.19157, 27.19895, 27.19875, 27.20064, 27.19652, 27.19755, 27.19377, 27.20563, 
  27.20666, 27.19464, 27.18931, 27.19189, 27.18948, 27.19773, 27.1979, 27.20442, 27.20407, 27.19669, 
  27.19841, 27.19652, 27.20699, 27.22108, 27.22211, 27.23073, 27.22626, 27.2321, 27.23313, 27.25563, 
  27.25718, 27.26971, 27.2637, 27.27741, 27.2793, 27.28565, 27.28514, 27.30059, 27.30609, 27.30557, 
  27.31072, 27.29904, 27.31931, 27.32223, 27.32635, 27.33099, 27.33579, 27.33305, 27.34284, 27.35692, 
  27.36375, 27.35826, 27.35173, 27.3483, 27.33799, 27.34022, 27.34709, 27.35001, 27.35018, 27.35602, 
  27.35516, 27.36427, 27.3756, 27.38161, 27.37749, 27.36753, 27.36375, 27.37097, 27.36959, 27.35826, 
  27.36427, 27.36787, 27.37715, 27.37715, 27.38299, 27.41165, 27.40993, 27.42487, 27.42538, 27.43448, 
  27.43173, 27.45148, 27.47433, 27.49081, 27.49442, 27.48205, 27.48223, 27.46608, 27.46333, 27.45543, 
  27.45663, 27.46213, 27.46264, 27.47277, 27.46522, 27.46762, 27.48531, 27.47842, 27.48478, 27.49165, 
  27.49525, 27.50195, 27.50006, 27.5114, 27.53579, 27.54281, 27.54882, 27.55569, 27.55844, 27.56806, 
  27.56531, 27.57783, 27.59569, 27.60136, 27.60857, 27.6199, 27.61716, 27.62128, 27.6096, 27.59947, 
  27.58573, 27.58968, 27.6005, 27.61097, 27.61097, 27.61696, 27.63276, 27.6331, 27.62657, 27.63121, 
  27.65405, 27.6568, 27.66127, 27.67999, 27.68909, 27.69149, 27.70347, 27.72305, 27.73335, 27.73816, 
  27.74245, 27.73558, 27.74005, 27.74503, 27.73026, 27.73164, 27.72563, 27.72408, 27.71309, 27.71103, 
  27.69935, 27.69832, 27.71068, 27.71635, 27.71446, 27.73507, 27.74692, 27.74038, 27.71857, 27.72665, 
  27.71207, 27.7234, 27.71894, 27.72237, 27.71584, 27.72477, 27.72477, 27.73404, 27.73439, 27.73988, 
  27.73868, 27.72769, 27.73061, 27.7234, 27.73044, 27.73044, 27.73439, 27.73473, 27.75362, 27.75689, 
  27.77286, 27.76547, 27.77799, 27.77799, 27.78262, 27.77266,
  27.79654, 27.8144, 27.84751, 27.84168, 27.84478, 27.83784, 27.84797, 27.87286, 27.99079, 27.99509,
  27.99818, 28.01757, 28.01534, 28.08658, 28.13585, 28.17378, 28.22098, 28.25584, 28.31214, 28.32364,
  28.33617, 28.39214, 28.39729, 28.39986, 28.39798, 28.46544, 28.48432, 28.48277, 28.52449, 28.52895,
  28.53925, 28.57342, 28.61547, 28.64928, 28.65872, 28.68365, 28.71592, 28.80725, 28.81927, 28.87216,
  28.88349, 28.92021, 28.95866, 28.98543, 29.24533, 29.2419, 29.33357, 29.50248, 29.49664, 29.55705,
  29.57973, 29.59278, 29.64495, 29.64289, 29.74693, 29.75398, 29.81221, 29.81856, 29.84518, 29.86166, 
  29.86149, 30.04545, 30.07087, 30.14388, 30.19657, 28.16797)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_1, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, Geo_0[234])
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
LATITUDE_VALUEs <- c(
  65.72815, 65.72116, 65.7165, 65.70852, 65.70408, 65.70097, 65.6956, 65.69143, 65.69185, 65.68938, 
  65.69751, 65.69638, 65.70111, 65.70662, 65.70662, 65.72116)
LONGITUDE_VALUEs <- c(
  24.52321, 24.51737, 24.52098, 24.51308, 24.51411, 24.50502, 24.50484, 24.49592, 24.50535, 24.51719, 
  24.51187, 24.5232, 24.52046, 24.52526, 24.52972, 24.539)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  65.66508, 65.67032, 65.66487, 65.67484, 65.68658, 65.68891, 65.68841, 65.6952, 65.70127, 65.70445, 
  65.69068, 65.68636, 65.6829, 65.67541, 65.67767, 65.67463, 65.67541, 65.66982, 65.65546, 65.65857, 
  65.65737)
LONGITUDE_VALUEs <- c(
  24.58201, 24.58905, 24.60261, 24.60141, 24.58647, 24.59266, 24.59918, 24.60176, 24.60828, 24.59249, 
  24.58751, 24.57807, 24.57532, 24.55215, 24.53018, 24.52675, 24.51594, 24.51148, 24.54374, 24.56142, 
  24.58647)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  65.38052, 65.38187, 65.38609, 65.38631, 65.38967, 65.39067, 65.3946, 65.38974, 65.39117, 65.38781, 
  65.38988, 65.3793, 65.37172)
LONGITUDE_VALUEs <- c(
  24.83247, 24.8426, 24.84929, 24.85599, 24.85547, 24.84706, 24.84311, 24.84105, 24.82612, 24.82338, 
  24.81617, 24.816, 24.83522)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  65.40918, 65.40289, 65.40067, 65.40482, 65.41046, 65.41967, 65.42282, 65.41475, 65.41125, 65.40489, 
  65.41039)
LONGITUDE_VALUEs <- c(
  25.0134, 25.01134, 25.02078, 25.02524, 25.01563, 25.01512, 24.99401, 24.99761, 24.98886, 24.99367, 
  25.00757)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(65.10871, 65.09641, 65.08861, 65.09107, 65.08326, 65.08695, 65.09953, 65.10256)
LONGITUDE_VALUEs <- c(25.204, 25.19301, 25.21464, 25.22185, 25.2294, 25.24347, 25.23301, 25.24656)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(65.09776, 65.0846, 65.0846, 65.07216, 65.07318, 65.08316, 65.10036)
LONGITUDE_VALUEs <- c(25.29522, 25.29144, 25.32542, 25.334, 25.34911, 25.33366, 25.35082)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  64.19078, 64.18091, 64.1919, 64.17358, 64.17785, 64.18338, 64.20565, 64.21887, 64.21431, 64.20483, 
  64.20475, 64.19825, 64.20154, 64.19646, 64.1975, 64.19048, 64.19324)
LONGITUDE_VALUEs <- c(
  23.5948, 23.60733, 23.65006, 23.67651, 23.6832, 23.66896, 23.64716, 23.64527, 23.63668, 23.64218, 
  23.63238, 23.63839, 23.62758, 23.62603, 23.61522, 23.61282, 23.60218)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(65.62429, 65.62153, 65.62004, 65.62748, 65.6279, 65.63661, 65.63045)
LONGITUDE_VALUEs <- c(24.87265, 24.87574, 24.88638, 24.8929, 24.89994, 24.88741, 24.88312)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_make_valid(Geo_1)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  65.61811, 65.61861, 65.6208, 65.61634, 65.61428, 65.61308, 65.60854, 65.61201, 65.60762, 65.60422, 
  65.60117, 65.60181, 65.61031)
LONGITUDE_VALUEs <- c(
  25.04675, 25.0162, 25.00041, 25.01311, 25.01019, 25.0174, 25.0174, 25.02632, 25.02667, 25.04744, 
  25.04521, 25.05585, 25.05602)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  65.03014, 65.0405, 65.04492, 65.05477, 65.05839, 65.05643, 65.06179, 65.06049, 65.06338, 65.05933, 
  65.05911, 65.06534, 65.07098, 65.06736, 65.06895, 65.08335, 65.09282, 65.09608, 65.0874, 65.08277, 
  65.0848, 65.08386, 65.08617, 65.08184, 65.08285, 65.0746, 65.06136, 65.05086, 65.04333, 65.04007, 
  65.02086, 65.01644, 65.011, 65.00368, 64.98459, 64.98082, 64.9785, 64.97007, 64.96027, 64.96136, 
  64.96782, 64.97015, 64.97276, 64.97683, 64.97574, 64.98067, 64.97428, 64.97399, 64.96956, 64.95889, 
  64.95387, 64.94922, 64.94333, 64.94355, 64.94122, 64.9426, 64.94777, 64.94806, 64.94588, 64.94893, 
  64.95903, 64.96746, 64.98648, 65.00121, 65.00506, 65.01035, 65.01216, 65.02007, 65.02318, 65.03507, 
  65.03174, 65.04079, 65.04869, 65.05093, 65.04296, 65.04557, 65.04767, 65.05165, 65.05071, 65.05578, 
  65.04782, 65.04803, 65.03347, 65.035, 65.03174, 65.03318, 65.03181, 65.03224)
LONGITUDE_VALUEs <- c(
  25.01117, 25.0594, 25.06042, 25.04361, 25.02439, 24.98526, 24.95197, 24.92876, 24.90011, 24.89616, 
  24.88398, 24.879, 24.88432, 24.89341, 24.90131, 24.88706, 24.85772, 24.82357, 24.79471, 24.74855, 
  24.74203, 24.72452, 24.71062, 24.68274, 24.64327, 24.63112, 24.59062, 24.58665, 24.57584, 24.55524, 
  24.57429, 24.57121, 24.57773, 24.57619, 24.61876, 24.6191, 24.61395, 24.62478, 24.65309, 24.70374, 
  24.71198, 24.72588, 24.70495, 24.701, 24.72039, 24.74853, 24.75334, 24.73378, 24.74081, 24.73772, 
  24.7616, 24.75838, 24.77401, 24.78208, 24.79169, 24.79444, 24.79307, 24.80045, 24.80818, 24.82174, 
  24.83409, 24.87857, 24.8662, 24.87977, 24.87342, 24.87342, 24.86449, 24.86225, 24.84148, 24.84217, 
  24.82071, 24.8171, 24.83153, 24.82724, 24.79719, 24.7886, 24.7941, 24.79478, 24.81539, 24.83582, 
  24.86173, 24.90071, 24.92044, 24.95582, 24.97831, 24.98703, 24.99424, 25.00335)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  63.70126, 63.70977, 63.717, 63.72087, 63.72604, 63.7303, 63.72741, 63.72771, 63.72969, 63.7309, 
  63.73333, 63.74245, 63.74404, 63.74731, 63.74534, 63.74723, 63.7467, 63.74974, 63.74663, 63.74503, 
  63.73592, 63.73987, 63.75961, 63.76226, 63.77198, 63.76864, 63.77706, 63.77956, 63.78328, 63.78184, 
  63.78335, 63.77994, 63.77956, 63.77402, 63.79397, 63.79344, 63.79708, 63.78434, 63.78419, 63.78062, 
  63.78123, 63.77539, 63.77812, 63.76758, 63.77205, 63.77107, 63.76735, 63.76416, 63.76014, 63.75984, 
  63.76264, 63.77038, 63.77076, 63.76568, 63.76591, 63.76181, 63.75892, 63.7568, 63.74708, 63.74625, 
  63.74063, 63.73592, 63.7328, 63.73835, 63.73204, 63.72422, 63.72498, 63.72148, 63.71768, 63.71502, 
  63.70765, 63.70765, 63.70476)
LONGITUDE_VALUEs <- c(
  22.76591, 22.77329, 22.75819, 22.77466, 22.75115, 22.75544, 22.75955, 22.77586, 22.77517, 22.78186, 
  22.77946, 22.78101, 22.76968, 22.77037, 22.78358, 22.7853, 22.79336, 22.798, 22.79851, 22.79439, 
  22.79456, 22.8052, 22.80916, 22.81997, 22.81912, 22.82444, 22.83199, 22.82547, 22.82547, 22.81963, 
  22.80951, 22.80762, 22.79921, 22.79767, 22.77691, 22.76539, 22.76127, 22.7369, 22.72916, 22.72247, 
  22.71698, 22.71114, 22.70531, 22.71166, 22.69879, 22.69295, 22.69158, 22.68454, 22.68523, 22.68316, 
  22.68162, 22.68375, 22.67946, 22.67603, 22.67276, 22.67517, 22.67311, 22.68633, 22.69903, 22.69319, 
  22.70418, 22.69799, 22.70126, 22.71585, 22.70658, 22.71723, 22.72358, 22.73027, 22.75311, 22.73972, 
  22.74761, 22.75585, 22.75654)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  63.60703, 63.62152, 63.62389, 63.62702, 63.62641, 63.62869, 63.62633, 63.62046, 63.61664, 63.61054, 
  63.60627, 63.60497, 63.60184, 63.59902, 63.59657, 63.59268, 63.60001)
LONGITUDE_VALUEs <- c(
  22.40426, 22.39362, 22.38487, 22.38419, 22.3732, 22.36857, 22.36565, 22.36445, 22.3605, 22.36085, 
  22.35742, 22.3847, 22.37973, 22.38367, 22.38007, 22.38642, 22.40015)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  63.58298, 63.56954, 63.56044, 63.54401, 63.54408, 63.53911, 63.53896, 63.54339, 63.54592, 63.55494, 
  63.55456, 63.55785, 63.56159, 63.56312, 63.56541, 63.569, 63.57183, 63.57565, 63.57198, 63.57343, 
  63.58703, 63.58459, 63.58527)
LONGITUDE_VALUEs <- c(
  22.41888, 22.42557, 22.44067, 22.44462, 22.45732, 22.46144, 22.46848, 22.46453, 22.46642, 22.45938, 
  22.45286, 22.44702, 22.45406, 22.44685, 22.44891, 22.43878, 22.44341, 22.44238, 22.45268, 22.45543, 
  22.43209, 22.42814, 22.42402)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  63.25834, 63.25618, 63.26112, 63.26699, 63.27077, 63.27239, 63.27818, 63.27687, 63.28243, 63.28459, 
  63.28883, 63.28906, 63.28474, 63.28521, 63.28953, 63.28868, 63.29153, 63.28536, 63.28413, 63.28011, 
  63.27996, 63.27293, 63.27865, 63.27811, 63.29678, 63.30094, 63.33933, 63.34426, 63.35011, 63.3478, 
  63.3374, 63.33594, 63.34195, 63.34095, 63.326, 63.32053, 63.31166, 63.31143, 63.31883, 63.32477, 
  63.31028, 63.31143, 63.31829, 63.32053, 63.325, 63.32446, 63.32831, 63.32962, 63.32631, 63.32924, 
  63.33062, 63.33417, 63.32924, 63.33455, 63.33401, 63.33579, 63.32199, 63.3287, 63.32469, 63.31459, 
  63.31413, 63.30395, 63.3001, 63.29169, 63.29146, 63.28829, 63.29169, 63.29747, 63.29817, 63.30681, 
  63.30989, 63.31544, 63.31868, 63.32292, 63.32307, 63.32823, 63.32916, 63.32546, 63.326, 63.33486, 
  63.33478, 63.32877, 63.33124, 63.32962, 63.33216, 63.32785, 63.32053, 63.3139, 63.30742, 63.31382, 
  63.31444, 63.32153, 63.32091, 63.31683, 63.31536, 63.30997, 63.30619, 63.30141, 63.30017, 63.29369, 
  63.29169, 63.28906, 63.28737, 63.28011, 63.28181, 63.27888, 63.28112, 63.28073, 63.28328, 63.27973, 
  63.28266, 63.27942, 63.28166, 63.2842, 63.28775, 63.27795, 63.27201, 63.27355, 63.27046, 63.26699, 
  63.27008, 63.26583, 63.26652, 63.26398, 63.26398, 63.25733, 63.25656, 63.2595, 63.25749, 63.25309)
LONGITUDE_VALUEs <- c(
  22.14429, 22.1563, 22.16316, 22.1611, 22.16642, 22.16385, 22.16454, 22.1563, 22.1508, 22.13124, 
  22.12352, 22.13759, 22.14171, 22.15063, 22.14772, 22.15304, 22.1575, 22.15973, 22.16436, 22.16556, 
  22.18015, 22.20452, 22.20658, 22.21878, 22.23114, 22.23836, 22.23647, 22.23166, 22.23063, 22.2241, 
  22.23131, 22.22513, 22.22393, 22.21398, 22.20882, 22.21174, 22.19939, 22.1848, 22.19064, 22.16369, 
  22.15956, 22.15527, 22.15441, 22.14051, 22.13742, 22.14669, 22.14377, 22.1326, 22.12848, 22.12368, 
  22.1302, 22.12101, 22.11964, 22.11534, 22.11105, 22.10796, 22.07001, 22.06554, 22.05902, 22.06984, 
  22.0798, 22.08135, 22.09131, 22.09045, 22.07568, 22.07397, 22.05972, 22.06556, 22.06058, 22.06161, 
  22.0544, 22.05234, 22.04187, 22.04341, 22.03775, 22.03483, 22.0259, 22.02521, 22.01955, 22.02625, 
  22.0175, 22.00994, 22.00668, 22.00136, 21.99706, 21.9938, 22.01956, 22.02763, 22.02179, 22.01578, 
  22.00239, 21.99895, 21.98728, 21.98779, 21.98367, 21.98212, 21.97543, 21.97629, 21.97234, 21.97492, 
  21.96925, 21.97337, 21.96788, 21.97079, 21.98024, 21.98676, 21.99518, 22.00205, 22.00857, 22.02676, 
  22.02796, 22.04599, 22.04513, 22.04994, 22.04565, 22.08188, 22.0848, 22.0781, 22.05767, 22.05749, 
  22.069, 22.07466, 22.08136, 22.08394, 22.10214, 22.11156, 22.12307, 22.12289, 22.13783, 22.14573)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(63.27973, 63.28389, 63.30218, 63.30133, 63.29585, 63.2923, 63.28058)
LONGITUDE_VALUEs <- c(21.95282, 21.96089, 21.95626, 21.93446, 21.93566, 21.92743, 21.93944)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  63.35588, 63.36089, 63.36543, 63.36989, 63.37282, 63.37535, 63.37782, 63.37743, 63.38512, 63.3882, 
  63.38566, 63.39081, 63.38966, 63.39373, 63.38182, 63.39197, 63.39212, 63.39658, 63.3945, 63.38927, 
  63.38989, 63.38489, 63.38535, 63.37666, 63.37497, 63.37005, 63.36427, 63.35642, 63.35535, 63.34788, 
  63.33994, 63.33386, 63.33817, 63.33817, 63.34865, 63.34826, 63.35196, 63.34849, 63.35127, 63.34765, 
  63.34518, 63.33894, 63.34749, 63.34811, 63.35434)
LONGITUDE_VALUEs <- c(
  22.0692, 22.07401, 22.09443, 22.09015, 22.09238, 22.07796, 22.0814, 22.10079, 22.08929, 22.09306, 
  22.07179, 22.07316, 22.05632, 22.04362, 22.0292, 22.01908, 22.01307, 22.00861, 22.00415, 22.0081, 
  21.99952, 22.00261, 21.98751, 21.99488, 21.98407, 21.97995, 21.96467, 21.96656, 21.95437, 21.95471, 
  21.94132, 21.95591, 21.96809, 21.97564, 21.98576, 21.9949, 21.99679, 22.00211, 22.00519, 22.02098, 
  22.01978, 22.03471, 22.04175, 22.05307, 22.05616)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  63.2836, 63.28954, 63.29657, 63.30004, 63.29818, 63.31584, 63.3052, 63.30112, 63.29356, 63.2826,
  63.27473, 63.27542, 63.27202, 63.27897, 63.2826, 63.28268, 63.2863, 63.28846, 63.29155, 63.29479,
  63.28885, 63.29155, 63.29641, 63.2995, 63.3106, 63.30937, 63.31307, 63.31168, 63.31623, 63.31338,
  63.317, 63.32085, 63.32794, 63.32517, 63.32332, 63.31931, 63.3224, 63.31885, 63.31777, 63.31299,
  63.31076, 63.30991, 63.29973, 63.29926, 63.2951, 63.29332, 63.2907, 63.28978, 63.28738, 63.28214, 
  63.27388, 63.27156, 63.25658, 63.25874, 63.25673, 63.27048, 63.27658, 63.27974)
LONGITUDE_VALUEs <- c(
  21.66723, 21.67684, 21.67702, 21.68372, 21.6923, 21.69076, 21.71838, 21.71238, 21.71959, 21.72457,
  21.74207, 21.74808, 21.7637, 21.75598, 21.77177, 21.78567, 21.77606, 21.78189, 21.77143, 21.77246,
  21.7625, 21.75478, 21.76559, 21.7498, 21.75461, 21.74237, 21.73419, 21.7172, 21.71256, 21.70948, 
  21.70124, 21.71102, 21.69214, 21.68339, 21.69248, 21.68613, 21.65868, 21.66363, 21.65248, 21.65179,
  21.64338, 21.65334, 21.64115, 21.6276, 21.64887, 21.63463, 21.64201, 21.62931, 21.63926, 21.62982, 
  21.64509, 21.63222, 21.64962, 21.65941, 21.66645, 21.67589, 21.66953, 21.67331)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  63.29433, 63.29965, 63.30397, 63.32062, 63.33365, 63.3405, 63.35359, 63.36437, 63.36875, 63.37091,
  63.36652, 63.37037, 63.36906, 63.37283, 63.36937, 63.35144, 63.35074, 63.3559, 63.35398, 63.36121,
  63.35906, 63.35313, 63.34789, 63.34489, 63.3415, 63.33868, 63.33403, 63.33018, 63.3368, 63.32887, 
  63.32478, 63.31083, 63.30813, 63.31407, 63.32001, 63.32001, 63.31523, 63.31299, 63.30937, 63.30875,
  63.29911, 63.29394, 63.28916, 63.29001)
LONGITUDE_VALUEs <- c(
  21.35653, 21.36596, 21.36219, 21.39532, 21.39034, 21.40853, 21.41626, 21.39704, 21.40751, 21.39326,
  21.38486, 21.36409, 21.35174, 21.33835, 21.30918, 21.29318, 21.28477, 21.28254, 21.27087, 21.26074,
  21.24908, 21.25525, 21.24496, 21.2477, 21.24581, 21.25304, 21.23813, 21.24414, 21.2649, 21.28669, 
  21.27863, 21.27932, 21.29923, 21.303, 21.32791, 21.34953, 21.34696, 21.35571, 21.35022, 21.33581, 
  21.34113, 21.33358, 21.3425, 21.35726)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  63.19812, 63.18271, 63.16978, 63.17117, 63.16567, 63.16745, 63.16304, 63.16738, 63.16311, 63.15808, 
  63.15901, 63.15637, 63.16017, 63.15823, 63.16265, 63.15877, 63.16676, 63.17125, 63.17721, 63.17536, 
  63.17884, 63.18171, 63.18566, 63.1992, 63.19758, 63.20896, 63.20841, 63.21267, 63.2129, 63.19982, 
  63.20021, 63.18612, 63.19441, 63.1886, 63.19673, 63.19673, 63.18782, 63.18806, 63.20594, 63.20013, 
  63.20725, 63.20362, 63.21135, 63.21971, 63.23486, 63.24383, 63.25944, 63.27388, 63.28129, 63.27835, 
  63.28121, 63.27226, 63.26731, 63.27087, 63.26662, 63.26307, 63.25928, 63.25619, 63.25936, 63.25766, 
  63.26446, 63.26253, 63.26592, 63.26075, 63.25627, 63.24746, 63.25163, 63.24105, 63.24058, 63.24136, 
  63.23394, 63.23912, 63.23355, 63.24074, 63.24383, 63.25256, 63.2531, 63.26067, 63.26477, 63.27164, 
  63.27735, 63.28684, 63.28584, 63.29302, 63.29926, 63.30513, 63.29741, 63.2961, 63.30374, 63.30489, 
  63.30829, 63.3113, 63.32139, 63.32016, 63.31345, 63.3106, 63.30698, 63.30513, 63.30135, 63.30374, 
  63.30119, 63.29803, 63.29294, 63.28522, 63.28129, 63.28376, 63.28036, 63.28777, 63.28299, 63.28507, 
  63.27967, 63.28461, 63.29008, 63.29263, 63.29618, 63.29495, 63.29818, 63.29579, 63.29757, 63.2941, 
  63.29579, 63.30274, 63.30166, 63.30628, 63.30944, 63.31099, 63.31338, 63.31222, 63.31407, 63.317, 
  63.32085, 63.32147, 63.32579, 63.31831, 63.32155, 63.31715, 63.31823, 63.31554, 63.31623, 63.31207, 
  63.30829, 63.3025, 63.30027, 63.29495, 63.29641, 63.29926, 63.30096, 63.3042, 63.30436, 63.30806, 
  63.29903, 63.29101, 63.28731, 63.29093, 63.28684, 63.28129, 63.27966, 63.27456, 63.27341, 63.27016, 
  63.27124, 63.26422, 63.2629, 63.267, 63.2663, 63.27325, 63.27286, 63.26391, 63.26715, 63.26306, 
  63.26414, 63.26059, 63.25858, 63.25147, 63.25634, 63.24506, 63.23416, 63.2306, 63.22349, 63.22883, 
  63.219, 63.2122, 63.2026, 63.20632, 63.20469, 63.1978, 63.1937, 63.1848, 63.18542, 63.18341, 
  63.18759, 63.18558, 63.19092, 63.18434, 63.18496, 63.19588, 63.19425, 63.20191, 63.20021, 63.19363)
LONGITUDE_VALUEs <- c(
  21.22095, 21.23383, 21.22937, 21.2364, 21.24071, 21.24757, 21.2486, 21.26233, 21.25958, 21.27074, 
  21.28446, 21.29184, 21.29957, 21.30712, 21.31484, 21.32359, 21.3183, 21.33237, 21.33083, 21.30886, 
  21.30886, 21.32791, 21.3255, 21.34937, 21.35778, 21.354, 21.35864, 21.35967, 21.37785, 21.37528, 
  21.3691, 21.37323, 21.38267, 21.39382, 21.39811, 21.40909, 21.41235, 21.41853, 21.40875, 21.42574, 
  21.43844, 21.4556, 21.45854, 21.44206, 21.44257, 21.44927, 21.43347, 21.39692, 21.38937, 21.37682, 
  21.36893, 21.37346, 21.35131, 21.34444, 21.33757, 21.33911, 21.31885, 21.31802, 21.30429, 21.29398, 
  21.29089, 21.28591, 21.27578, 21.28299, 21.27252, 21.28643, 21.26325, 21.27303, 21.26548, 21.25364, 
  21.25759, 21.2423, 21.23406, 21.22925, 21.21655, 21.21517, 21.22118, 21.21622, 21.22618, 21.22446, 
  21.24163, 21.2473, 21.26379, 21.266, 21.27579, 21.2691, 21.25296, 21.23493, 21.23184, 21.24266, 
  21.24283, 21.25141, 21.24369, 21.21209, 21.20867, 21.19992, 21.19906, 21.1915, 21.19305, 21.18635, 
  21.17862, 21.18927, 21.1812, 21.18704, 21.17725, 21.16952, 21.16351, 21.15767, 21.15321, 21.14702, 
  21.14376, 21.12899, 21.12573, 21.11096, 21.12042, 21.12489, 21.12884, 21.13571, 21.14051, 21.14704, 
  21.15906, 21.15666, 21.16902, 21.17125, 21.15751, 21.16936, 21.16833, 21.17588, 21.18207, 21.17434, 
  21.17331, 21.16146, 21.14394, 21.13759, 21.12763, 21.12474, 21.11907, 21.11941, 21.12937, 21.12748, 
  21.11322, 21.10927, 21.11494, 21.10739, 21.10138, 21.10653, 21.10447, 21.10584, 21.09399, 21.08369, 
  21.08626, 21.10224, 21.09537, 21.09211, 21.08421, 21.08593, 21.10343, 21.11288, 21.1261, 21.12558, 
  21.11614, 21.12953, 21.12541, 21.11803, 21.11168, 21.10069, 21.07854, 21.09176, 21.09966, 21.10533, 
  21.10979, 21.11031, 21.10258, 21.10876, 21.11185, 21.13158, 21.13691, 21.14738, 21.15064, 21.13931, 
  21.14292, 21.1388, 21.14789, 21.157, 21.1618, 21.1527, 21.16008, 21.1642, 21.17415, 21.17879, 
  21.18274, 21.1903, 21.19734, 21.20043, 21.20884, 21.20712, 21.20163, 21.19648, 21.2085, 21.21777)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  63.38376, 63.39229, 63.39752, 63.39667, 63.3876, 63.38352, 63.38445, 63.37653, 63.37637, 63.37176, 
  63.3716, 63.36752, 63.36321, 63.36306, 63.36837, 63.36268, 63.36521, 63.3646, 63.3686, 63.36845, 
  63.37922)
LONGITUDE_VALUEs <- c(
  21.25424, 21.26334, 21.25614, 21.23589, 21.20876, 21.20876, 21.19744, 21.19726, 21.18937, 21.19315, 
  21.18542, 21.18079, 21.18508, 21.19332, 21.19297, 21.20808, 21.22335, 21.2369, 21.23744, 21.24396, 
  21.2546)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  63.09196, 63.09647, 63.09204, 63.09134, 63.08831, 63.08862, 63.08512, 63.08101, 63.08474, 63.08784, 
  63.10159, 63.10237, 63.09421)
LONGITUDE_VALUEs <- c(
  21.56665, 21.5615, 21.55635, 21.5476, 21.54811, 21.55446, 21.55583, 21.57471, 21.57557, 21.59136, 
  21.57917, 21.56836, 21.57299)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  62.73433, 62.74211, 62.74392, 62.74251, 62.74542, 62.74219, 62.74494, 62.71576, 62.70656, 62.7053, 
  62.71254, 62.7127, 62.7186, 62.71844, 62.72119, 62.72623, 62.72835)
LONGITUDE_VALUEs <- c(
  21.08337, 21.08114, 21.07289, 21.0674, 21.05796, 21.0559, 21.05058, 21.0499, 21.05934, 21.07067, 
  21.07496, 21.08165, 21.08406, 21.08972, 21.08818, 21.09264, 21.08612)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  62.83788, 62.83788, 62.85566, 62.85981, 62.86302, 62.85856, 62.85926, 62.86357, 62.86513, 62.87014, 
  62.87155, 62.8667, 62.86357, 62.85918, 62.86529, 62.862, 62.86325, 62.85574, 62.85448, 62.85151, 
  62.84579, 62.84038, 62.8403, 62.83701, 62.83654, 62.83333, 62.83121, 62.82988, 62.82831, 62.83239, 
  62.83223, 62.83529, 62.83262, 62.83059, 62.82871, 62.82863, 62.83145, 62.83098, 62.83333, 62.8338)
LONGITUDE_VALUEs <- c(
  21.20404, 21.21863, 21.23014, 21.23734, 21.2207, 21.22636, 21.21178, 21.2056, 21.18482, 21.17521, 
  21.15668, 21.16955, 21.16389, 21.16543, 21.15702, 21.13883, 21.12854, 21.13779, 21.13178, 21.13487, 
  21.10055, 21.10947, 21.10329, 21.10054, 21.08853, 21.09934, 21.0966, 21.11238, 21.11908, 21.1201, 
  21.12422, 21.12937, 21.13074, 21.14104, 21.13744, 21.14499, 21.14756, 21.17248, 21.17866, 21.19787)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  62.88873, 62.87966, 62.86698, 62.89468, 62.90973, 62.91449, 62.91918, 62.91989, 62.92512, 62.93169, 
  62.93176, 62.92137, 62.92786, 62.91621, 62.90777)
LONGITUDE_VALUEs <- c(
  21.20795, 21.20108, 21.23918, 21.23265, 21.21366, 21.19925, 21.20697, 21.19478, 21.20457, 21.1941, 
  21.18312, 21.18809, 21.179, 21.16853, 21.17368)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  62.94428, 62.94326, 62.95614, 62.95575, 62.95021, 62.94271, 62.94638, 62.94553, 62.95622, 62.96028, 
  62.97417, 62.99031, 62.99093, 62.98594, 62.99327, 62.99779, 63.00332, 63.00184, 63.00714, 63.00216, 
  63.00831, 63.01283, 63.00512, 63.00535, 62.99919, 62.98867, 62.97666, 62.97838, 62.97284, 62.97237, 
  62.96496, 62.96504, 62.96122, 62.96473, 62.96699, 62.97261, 62.97027, 62.96644, 62.96012, 62.94193)
LONGITUDE_VALUEs <- c(
  21.16675, 21.17567, 21.18151, 21.2009, 21.19987, 21.20673, 21.21051, 21.22132, 21.216, 21.21789, 
  21.20862, 21.21068, 21.20193, 21.19884, 21.19523, 21.17721, 21.17481, 21.16537, 21.16091, 21.14993, 
  21.15422, 21.14581, 21.14015, 21.13088, 21.11887, 21.13517, 21.14186, 21.15645, 21.16211, 21.15628, 
  21.15679, 21.15267, 21.14873, 21.14272, 21.14821, 21.14701, 21.13208, 21.13603, 21.1338, 21.16109)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  63.00496, 63.00449, 63.01618, 63.01657, 63.02545, 63.02739, 63.01929, 63.0161, 63.00582, 63.01236, 
  63.01314, 63.01633, 63.01213, 62.99841, 62.99896, 62.99654, 62.99654, 62.99421, 62.9988)
LONGITUDE_VALUEs <- c(
  21.18735, 21.17877, 21.17688, 21.19147, 21.18975, 21.19868, 21.19971, 21.21138, 21.21669, 21.22099, 
  21.23042, 21.23334, 21.24038, 21.22271, 21.21464, 21.21361, 21.20606, 21.19903, 21.1901)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  62.99717, 62.99335, 62.98984, 62.98836, 62.9914, 62.9928, 62.98805, 62.98797, 62.9861, 62.98922, 
  62.99015, 62.99374, 62.99888, 62.99787, 63.00348, 63.00667, 63.00925, 63.00629, 63.01096, 63.01844, 
  63.01618, 63.01408, 63.01065, 63.01189, 63.00255, 63.00021, 63.00901, 63.00823, 63.0133, 63.01034, 
  63.00488, 63.00839, 63.00582, 63.00473, 62.99537, 62.99912, 62.99226, 62.99265, 62.99031)
LONGITUDE_VALUEs <- c(
  21.38012, 21.39745, 21.40192, 21.41513, 21.40981, 21.42062, 21.41925, 21.43023, 21.43847, 21.43847, 
  21.43109, 21.42663, 21.40535, 21.41959, 21.41582, 21.3978, 21.399, 21.41461, 21.41564, 21.37909, 
  21.37, 21.38046, 21.38064, 21.36553, 21.37961, 21.37411, 21.35421, 21.34288, 21.33379, 21.32177, 
  21.32229, 21.33224, 21.34631, 21.33893, 21.34116, 21.35026, 21.36296, 21.37085, 21.37943)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  63.02366, 63.02093, 63.0189, 63.02062, 63.01922, 63.01649, 63.01696, 63.01493, 63.01345, 63.00917, 
  63.01065, 63.00964, 63.0087, 63.00644, 63.0073, 63.01018, 63.01322, 63.02046, 63.02, 63.02194, 
  63.02685, 63.02646, 63.03012, 63.02903, 63.03082, 63.03097, 63.03331, 63.03378, 63.04125, 63.03814, 
  63.04249, 63.04397, 63.04288, 63.05012, 63.05743, 63.05945, 63.06085, 63.06466, 63.07671, 63.07858, 
  63.0841, 63.08293, 63.08472, 63.08348, 63.08495, 63.08332, 63.0862, 63.08542, 63.07943, 63.07578, 
  63.07353, 63.07718, 63.07291, 63.07423, 63.07858, 63.07702, 63.07951, 63.08153, 63.07943, 63.07322, 
  63.06964, 63.06529, 63.06474, 63.06288, 63.06599, 63.06319, 63.06186, 63.05689, 63.05237, 63.046, 
  63.04109, 63.04327, 63.0393, 63.04234, 63.04109, 63.04522, 63.0467, 63.04102, 63.04187, 63.0372, 
  63.03806, 63.03541, 63.033, 63.02864, 63.02864, 63.02591, 63.02615)
LONGITUDE_VALUEs <- c(
  21.38372, 21.38424, 21.40759, 21.41136, 21.41806, 21.41325, 21.40639, 21.40484, 21.41771, 21.42698, 
  21.43247, 21.44259, 21.43521, 21.43779, 21.45581, 21.45632, 21.42475, 21.43195, 21.43745, 21.44414, 
  21.44208, 21.4359, 21.43505, 21.42681, 21.42423, 21.42886, 21.42955, 21.43607, 21.44019, 21.44568, 
  21.45358, 21.44362, 21.4371, 21.44345, 21.43796, 21.44843, 21.44466, 21.45324, 21.44946, 21.43968, 
  21.43797, 21.42973, 21.42475, 21.41994, 21.41754, 21.40742, 21.39489, 21.38219, 21.38236, 21.37447, 
  21.37773, 21.38207, 21.38482, 21.39444, 21.3977, 21.39152, 21.38928, 21.40766, 21.42071, 21.41968, 
  21.40852, 21.42689, 21.41762, 21.41333, 21.41023, 21.40165, 21.40544, 21.40183, 21.41557, 21.39737, 
  21.4008, 21.39427, 21.38998, 21.3826, 21.37212, 21.37384, 21.36817, 21.34842, 21.33795, 21.34259, 
  21.33623, 21.33434, 21.34946, 21.35444, 21.35941, 21.36405, 21.3747)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  62.39483, 62.37789, 62.37486, 62.35926, 62.35217, 62.34834, 62.33966, 62.34874, 62.3434, 62.35225, 
  62.35535, 62.33854, 62.33942, 62.34818, 62.34906, 62.36332, 62.37844, 62.38354, 62.38688, 62.3934)
LONGITUDE_VALUEs <- c(
  21.22725, 21.21712, 21.21986, 21.21832, 21.2142, 21.21695, 21.21592, 21.22124, 21.22467, 21.22861, 
  21.24423, 21.23496, 21.24286, 21.24595, 21.25659, 21.24785, 21.24784, 21.25351, 21.23721, 21.23721)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  62.38624, 62.36292, 62.36292, 62.37446, 62.37383, 62.36252, 62.38163, 62.38887, 62.39459, 62.39284, 
  62.40104, 62.3899, 62.41273, 62.42743, 62.41424, 62.41797, 62.40708, 62.40525, 62.39555, 62.38911, 
  62.37072, 62.3755, 62.36993)
LONGITUDE_VALUEs <- c(
  21.19532, 21.18382, 21.19824, 21.19618, 21.20407, 21.20974, 21.21454, 21.2118, 21.21729, 21.20974, 
  21.21351, 21.19721, 21.21162, 21.19823, 21.17901, 21.1924, 21.19669, 21.18931, 21.19669, 21.17438, 
  21.16613, 21.1742, 21.17798)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  61.67874, 61.6679, 61.66595, 61.66089, 61.65706, 61.64932, 61.6494, 61.65829, 61.66326, 61.66953, 
  61.66774, 61.67719, 61.6815, 61.67776)
LONGITUDE_VALUEs <- c(
  21.41187, 21.43332, 21.45066, 21.44414, 21.45083, 21.45821, 21.46714, 21.47383, 21.46765, 21.46542, 
  21.45032, 21.44498, 21.43211, 21.42576)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  61.64345, 61.6384, 61.63522, 61.62624, 61.62429, 61.6273, 61.62453, 61.61792, 61.62298, 61.61915, 
  61.62747, 61.62796, 61.62486, 61.62722, 61.62624, 61.62975, 61.62706, 61.63089, 61.63587, 61.63212, 
  61.63799, 61.64182, 61.64076, 61.64337)
LONGITUDE_VALUEs <- c(
  21.47245, 21.47571, 21.46867, 21.4788, 21.45923, 21.45065, 21.44362, 21.46884, 21.47931, 21.51037, 
  21.50954, 21.51778, 21.52344, 21.52842, 21.53408, 21.53374, 21.54661, 21.55485, 21.54249, 21.5334, 
  21.51366, 21.51418, 21.50577, 21.4953)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  61.60976, 61.6229, 61.63016, 61.62812, 61.63073, 61.63146, 61.63416, 61.63513, 61.63783, 61.64084, 
  61.63848, 61.63905, 61.63677, 61.63677, 61.63032, 61.62975, 61.62608, 61.6313, 61.62567, 61.61996, 
  61.618, 61.60894, 61.60454)
LONGITUDE_VALUEs <- c(
  21.4553, 21.42201, 21.42286, 21.4438, 21.44363, 21.43366, 21.43091, 21.42422, 21.42284, 21.40448, 
  21.40088, 21.39762, 21.39213, 21.38647, 21.38115, 21.39007, 21.39539, 21.40294, 21.41547, 21.41426, 
  21.42198, 21.43365, 21.45579)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  61.19358, 61.18697, 61.18457, 61.17944, 61.17745, 61.17364, 61.17207, 61.1758, 61.17613, 61.18233, 
  61.18026, 61.18465, 61.19301, 61.19681, 61.20028, 61.20525, 61.20913, 61.21583, 61.21401, 61.21616, 
  61.20731, 61.20285, 61.20599, 61.20161, 61.20144, 61.19805)
LONGITUDE_VALUEs <- c(
  21.33325, 21.35109, 21.3432, 21.35126, 21.34423, 21.35246, 21.3698, 21.36791, 21.38026, 21.37992, 
  21.40274, 21.41064, 21.39348, 21.36774, 21.38455, 21.38714, 21.40344, 21.39109, 21.37822, 21.36088, 
  21.36912, 21.36414, 21.35351, 21.35814, 21.35265, 21.35814)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.80195, 60.79106, 60.78696, 60.7857, 60.78252, 60.78302, 60.77984, 60.78143, 60.7888, 60.79276, 
  60.79902, 60.79885, 60.80178)
LONGITUDE_VALUEs <- c(
  21.13152, 21.13856, 21.13736, 21.15383, 21.15607, 21.16259, 21.16602, 21.17735, 21.17735, 21.16156, 
  21.15504, 21.14663, 21.14437)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.75838, 60.75368, 60.75997, 60.75712, 60.76391, 60.75989, 60.76576, 60.77372, 60.77498, 60.77112, 
  60.76626, 60.76718, 60.76358)
LONGITUDE_VALUEs <- c(
  21.25084, 21.26834, 21.27057, 21.28292, 21.28292, 21.29168, 21.30472, 21.29837, 21.27503, 21.26508, 
  21.27537, 21.2553, 21.25032)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(60.75267, 60.74982, 60.74429, 60.75175, 60.7598, 60.76508, 60.7681, 60.76181)
LONGITUDE_VALUEs <- c(21.34472, 21.33665, 21.35158, 21.37852, 21.36119, 21.35604, 21.33151, 21.32464)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(63.93613, 63.93538, 63.94141, 63.94111, 63.94578, 63.95332, 63.95362, 63.94428)
LONGITUDE_VALUEs <- c(23.20058, 23.22409, 23.22615, 23.22015, 23.2059, 23.20504, 23.18599, 23.18565)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  63.7228, 63.71847, 63.72819, 63.7307, 63.7269, 63.72987, 63.72363, 63.72379, 63.71581, 63.71687, 
  63.71482)
LONGITUDE_VALUEs <- c(
  22.8265, 22.83817, 22.84606, 22.82341, 22.82135, 22.81672, 22.80985, 22.80333, 22.815, 22.82118, 
  22.8301)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  62.55317, 62.5299, 62.53259, 62.53814, 62.53814, 62.54938, 62.55191, 62.56931, 62.58038, 62.57564, 
  62.5739, 62.56868, 62.56662)
LONGITUDE_VALUEs <- c(
  21.05283, 21.07067, 21.08578, 21.08989, 21.08063, 21.0844, 21.09024, 21.09573, 21.07205, 21.05695, 
  21.06415, 21.05969, 21.07136)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.29991, 60.29677, 60.28545, 60.27166, 60.26707, 60.26434, 60.2606, 60.25685, 60.25123, 60.2479, 
  60.23529, 60.24688, 60.23802, 60.22873, 60.22174, 60.22251, 60.21748, 60.21552, 60.21867, 60.21637, 
  60.20997, 60.20179, 60.20716, 60.21415, 60.21262, 60.2156, 60.21987, 60.22072, 60.22822, 60.22958, 
  60.23904, 60.23956, 60.24237, 60.24484, 60.24995, 60.25404, 60.25591, 60.26034, 60.25983, 60.27498, 
  60.27558, 60.28222, 60.28239, 60.296, 60.30416, 60.30212, 60.30995, 60.31649, 60.3085, 60.30876, 
  60.30433, 60.30451)
LONGITUDE_VALUEs <- c(
  25.57682, 25.57338, 25.57647, 25.56841, 25.58042, 25.56995, 25.57768, 25.57597, 25.59021, 25.58523, 
  25.61595, 25.641, 25.64392, 25.60017, 25.59897, 25.60772, 25.6211, 25.61956, 25.60926, 25.60583, 
  25.62797, 25.6218, 25.63947, 25.63999, 25.63089, 25.63364, 25.63055, 25.63707, 25.63484, 25.65853, 
  25.66505, 25.67912, 25.67535, 25.67758, 25.66814, 25.67397, 25.6678, 25.67157, 25.65613, 25.64789, 
  25.6345, 25.63639, 25.617, 25.60738, 25.61853, 25.60257, 25.61012, 25.60154, 25.5933, 25.58712, 
  25.58575, 25.57638)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.35286, 60.34606, 60.33816, 60.33443, 60.33188, 60.32797, 60.32499, 60.32202, 60.31947, 60.31335,
  60.30731, 60.30519, 60.30433, 60.30042, 60.29932, 60.3034, 60.30391, 60.30816, 60.30425, 60.30382,
  60.29643, 60.29285, 60.28988, 60.28451, 60.28145, 60.27771, 60.27081, 60.26775, 60.27183, 60.27166, 
  60.27468, 60.27345, 60.27592, 60.27609, 60.28137, 60.28358, 60.28715, 60.27711, 60.28034, 60.27839, 
  60.28264, 60.28358, 60.28979, 60.28826, 60.2926, 60.29226, 60.2977, 60.32278, 60.32278, 60.32958, 
  60.33646, 60.33799, 60.34402, 60.34003, 60.35464)
LONGITUDE_VALUEs <- c(
  25.93011, 25.9284, 25.93818, 25.9387, 25.94436, 25.9435, 25.95122, 25.94951, 25.95534, 25.9526,
  25.9574, 25.95586, 25.96135, 25.96255, 25.95345, 25.95569, 25.94831, 25.94333, 25.94093, 25.93321,
  25.93921, 25.93629, 25.94144, 25.94058, 25.93097, 25.93612, 25.93629, 25.94299, 25.94367, 25.95054, 
  25.95574, 25.96461, 25.96873, 25.98229, 25.98623, 25.99584, 25.99876, 26.00854, 26.01558, 26.02725, 
  26.02896, 26.03857, 26.03291, 26.01403, 26.01146, 25.98623, 26.00633, 26.01062, 25.99534, 25.98932, 
  25.99979, 25.98555, 25.97824, 25.9712, 25.94184)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.14441, 60.14603, 60.14629, 60.14475, 60.14578, 60.15859, 60.15834, 60.16397, 60.16594, 60.16312,
  60.16619, 60.17055, 60.17029, 60.1638, 60.16608, 60.16124, 60.16176, 60.16048, 60.16041, 60.15834, 
  60.15518, 60.15142, 60.15466, 60.15466, 60.14706, 60.14561, 60.14415)
LONGITUDE_VALUEs <- c(
  24.87765, 24.87919, 24.88262, 24.88537, 24.89034, 24.88794, 24.89395, 24.89206, 24.88005, 24.86872,
  24.861, 24.85911, 24.85534, 24.85499, 24.84892, 24.84738, 24.85180, 24.85326, 24.85659, 24.8586, 
  24.85294, 24.85928, 24.8634, 24.87404, 24.87627, 24.87113, 24.87353)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.13757, 60.13655, 60.1398, 60.14022, 60.1445, 60.14629, 60.14458, 60.1468, 60.1533, 60.15202, 
  60.1568, 60.14441, 60.14296, 60.13877, 60.13757, 60.13492, 60.13236, 60.13561, 60.13509)
LONGITUDE_VALUEs <- c(
  25.04947, 25.06303, 25.06337, 25.05805, 25.05737, 25.07075, 25.0759, 25.08482, 25.06561, 25.062, 
  25.05119, 25.02699, 25.03317, 25.02871, 25.03369, 25.02854, 25.03146, 25.03763, 25.0433)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.19692, 60.19982, 60.19377, 60.19957, 60.20904, 60.20486, 60.2087, 60.21449, 60.22703, 60.22507, 
  60.22848, 60.22242, 60.23265, 60.22779, 60.22967, 60.20435, 60.20068)
LONGITUDE_VALUEs <- c(
  25.8, 25.81853, 25.82677, 25.83243, 25.88442, 25.89613, 25.91775, 25.89922, 25.89167, 25.88374, 
  25.87156, 25.85234, 25.83724, 25.83329, 25.82162, 25.81372, 25.80256)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.32049, 60.317, 60.31955, 60.31683, 60.32125, 60.31972, 60.33324, 60.33205, 60.34632, 60.35107, 
  60.34122, 60.33986, 60.31632)
LONGITUDE_VALUEs <- c(
  26.20494, 26.21678, 26.22175, 26.2281, 26.23016, 26.2499, 26.23771, 26.2233, 26.20235, 26.16803, 
  26.16683, 26.17747, 26.19789)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.47456, 60.45789, 60.45358, 60.44858, 60.45205, 60.44689, 60.44977, 60.44824, 60.459, 60.45993, 
  60.4667, 60.46424, 60.47423)
LONGITUDE_VALUEs <- c(
  27.36383, 27.37602, 27.38323, 27.38511, 27.39026, 27.39798, 27.40107, 27.40708, 27.4196, 27.41171, 
  27.39798, 27.38889, 27.37585)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.37578, 60.37119, 60.37476, 60.3734, 60.39062, 60.39562, 60.39851, 60.4047, 60.40097, 60.40809, 
  60.40783, 60.39325, 60.3835, 60.37484)
LONGITUDE_VALUEs <- c(
  27.0447, 27.0562, 27.0598, 27.06461, 27.06547, 27.0586, 27.06924, 27.06065, 27.04727, 27.03508, 
  27.01381, 27.02049, 27.03302, 27.03645)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.44968, 60.45688, 60.46153, 60.45959, 60.46323, 60.46306, 60.46856, 60.46187, 60.454, 60.4529, 
  60.4601, 60.45789, 60.44994, 60.44723, 60.43961, 60.4297, 60.43266, 60.43622, 60.43283, 60.42385, 
  60.41928, 60.42038, 60.41665, 60.41758, 60.42538, 60.42063, 60.42461, 60.42885, 60.43046, 60.43232, 
  60.43757, 60.43851, 60.44596)
LONGITUDE_VALUEs <- c(
  26.9041, 26.91474, 26.90101, 26.89123, 26.89123, 26.88093, 26.88042, 26.86669, 26.87287, 26.86961, 
  26.86034, 26.85639, 26.86309, 26.84112, 26.85244, 26.84953, 26.86257, 26.86205, 26.88728, 26.88643, 
  26.89501, 26.89947, 26.90668, 26.91457, 26.90514, 26.91886, 26.92521, 26.91732, 26.92933, 26.92264, 
  26.92196, 26.91681, 26.91921)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.42648, 60.42461, 60.42877, 60.43224, 60.43732, 60.4402, 60.43622, 60.43724, 60.44427, 60.44469, 
  60.45409, 60.45891, 60.45426, 60.45188, 60.44333, 60.43918, 60.44012, 60.43605, 60.43656, 60.43232, 
  60.42012, 60.42046, 60.41589, 60.41572, 60.41173, 60.41385, 60.4125, 60.41563, 60.41868, 60.42487, 
  60.42275)
LONGITUDE_VALUEs <- c(
  27.02598, 27.03576, 27.03233, 27.03302, 27.03027, 27.03439, 27.03799, 27.04246, 27.04023, 27.02821, 
  27.03731, 27.03078, 27.02821, 27.00796, 27.00487, 27.01225, 26.99767, 26.99595, 26.992, 26.98874, 
  27.00247, 27.01122, 27.00144, 27.0174, 27.02255, 27.02495, 27.03164, 27.03216, 27.02049, 27.01843, 
  27.02804)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(65.78713, 65.78544, 65.78656, 65.79086, 65.79173, 65.79023, 65.78769)
LONGITUDE_VALUEs <- c(24.53591, 24.53694, 24.54758, 24.55187, 24.54695, 24.54277, 24.53968)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  65.10083, 65.09902, 65.10234, 65.10647, 65.10907, 65.10719, 65.10965, 65.1095, 65.11275, 65.11246, 
  65.11506, 65.11405, 65.11022, 65.10907, 65.10582)
LONGITUDE_VALUEs <- c(
  25.13688, 25.14289, 25.15522, 25.15352, 25.16794, 25.17927, 25.18304, 25.19522, 25.19076, 25.18287, 
  25.17824, 25.15404, 25.14769, 25.13671, 25.14649)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(65.00236, 64.99663, 64.99945, 64.99285, 64.99372, 64.99989, 64.99924, 65.00221, 65.00149, 65.00366)
LONGITUDE_VALUEs <- c(25.28107, 25.29497, 25.302, 25.31539, 25.32277, 25.31968, 25.31282, 25.30389, 25.29377, 25.28862)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(63.83233, 63.82634, 63.83172, 63.83263, 63.83687, 63.83702, 63.84217, 63.8355, 63.83747, 63.83081)
LONGITUDE_VALUEs <- c(22.99047, 22.99854, 23.00506, 22.99991, 22.9994, 22.99236, 22.98773, 22.98018, 22.96988, 22.98189)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  63.77824, 63.76003, 63.75373, 63.74773, 63.75267, 63.74485, 63.745, 63.77058, 63.773, 63.76678, 
  63.76898, 63.77831, 63.77922, 63.78597, 63.78476, 63.76276, 63.77604, 63.78271, 63.78249, 63.7796, 
  63.78977, 63.81068, 63.81356, 63.81621, 63.8203, 63.82644, 63.82742, 63.83015, 63.8359, 63.82969, 
  63.82129, 63.8178, 63.81083, 63.80902, 63.80409, 63.80803, 63.81038, 63.80879, 63.81909, 63.8178, 
  63.81015, 63.81485, 63.80121, 63.79886, 63.79401, 63.79052, 63.79378, 63.79272)
LONGITUDE_VALUEs <- c(
  22.59506, 22.57979, 22.60433, 22.60468, 22.61377, 22.61772, 22.63196, 22.61772, 22.63076, 22.65154, 
  22.6524, 22.63661, 22.64296, 22.63695, 22.64879, 22.66355, 22.68398, 22.6778, 22.66854, 22.66528, 
  22.65223, 22.64639, 22.65445, 22.65308, 22.65685, 22.65153, 22.6457, 22.64999, 22.64244, 22.63334, 
  22.64141, 22.63506, 22.63437, 22.64398, 22.63832, 22.63557, 22.62305, 22.61721, 22.60434, 22.59817, 
  22.59937, 22.58564, 22.5973, 22.58958, 22.60656, 22.59558, 22.58889, 22.58357)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(62.98652, 62.99362, 62.99673, 62.99868, 63.00164, 62.99822, 62.99829, 62.99229, 62.99112, 62.98863)
LONGITUDE_VALUEs <- c(21.46521, 21.47156, 21.46075, 21.46521, 21.44136, 21.44359, 21.43793, 21.44445, 21.45663, 21.45629)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(60.79407, 60.78888, 60.78829, 60.79801)
LONGITUDE_VALUEs <- c(21.33835, 21.33663, 21.3586, 21.35448)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.8857, 60.89121, 60.89046, 60.88737, 60.88444, 60.89288, 60.89338, 60.88895, 60.88469, 60.88035, 
  60.88561, 60.8821, 60.87935, 60.87024, 60.86715, 60.87091, 60.86915, 60.87492, 60.87283, 60.8679, 
  60.86631, 60.86063, 60.85963, 60.85628, 60.84725, 60.84282, 60.84165, 60.84449, 60.84098, 60.83512, 
  60.83839, 60.83496, 60.82709, 60.81638, 60.81295, 60.80483, 60.80734, 60.80257, 60.8127, 60.80868, 
  60.81111, 60.81002, 60.81328, 60.81203, 60.81504, 60.81412, 60.824, 60.82918, 60.82885, 60.82241, 
  60.82132, 60.82701, 60.82592, 60.83822, 60.84131, 60.83956, 60.84658, 60.84533, 60.85076, 60.8577, 
  60.85837, 60.85026, 60.84633, 60.8521, 60.85394, 60.86548, 60.86222, 60.86698, 60.86798, 60.8735, 
  60.87091, 60.87868, 60.87943, 60.88603)
LONGITUDE_VALUEs <- c(
  21.27257, 21.27806, 21.23756, 21.24597, 21.21714, 21.21165, 21.19415, 21.18008, 21.20136, 21.19192, 
  21.17733, 21.17373, 21.18145, 21.17423, 21.18076, 21.18402, 21.195, 21.19997, 21.21439, 21.20667, 
  21.18694, 21.1787, 21.19346, 21.18694, 21.20531, 21.19964, 21.20925, 21.21131, 21.24168, 21.24083, 
  21.22984, 21.22796, 21.2386, 21.23002, 21.24563, 21.24187, 21.26074, 21.27155, 21.28838, 21.3028, 
  21.30554, 21.31532, 21.31601, 21.32493, 21.32665, 21.33729, 21.3397, 21.33267, 21.32563, 21.32151, 
  21.30744, 21.31196, 21.31763, 21.31076, 21.29926, 21.29085, 21.28175, 21.26887, 21.26511, 21.26717, 
  21.25773, 21.26048, 21.24468, 21.22442, 21.2306, 21.22339, 21.23592, 21.24743, 21.2385, 21.23901, 
  21.24691, 21.25447, 21.26529, 21.25516)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  59.92568, 59.92258, 59.9169, 59.91906, 59.91604, 59.91768, 59.90864, 59.90795, 59.91845, 59.92232, 
  59.92069, 59.9169, 59.91398, 59.91949, 59.91931, 59.92362, 59.92215, 59.92577, 59.92275, 59.92534, 
  59.92344, 59.92878, 59.92903, 59.92611, 59.92731, 59.92146, 59.9372, 59.93437, 59.92989, 59.93359, 
  59.93093, 59.93265, 59.92938, 59.93411, 59.93359, 59.93144, 59.93161, 59.92783, 59.92817, 59.92353, 
  59.92198, 59.92413, 59.92043, 59.92043, 59.91183, 59.91355, 59.91079, 59.91475, 59.91122, 59.9132, 
  59.90968, 59.90942, 59.90391, 59.8996, 59.89633, 59.89539, 59.89849, 59.89504, 59.89952, 59.90184, 
  59.90339, 59.89883, 59.90133, 59.89022, 59.8897, 59.89358, 59.89366, 59.88858, 59.89194, 59.88557, 
  59.88652, 59.89496, 59.89401, 59.90012, 59.90029, 59.90425, 59.90331, 59.9095, 59.91622, 59.91613, 
  59.9206, 59.91845, 59.92095, 59.91372, 59.91733)
LONGITUDE_VALUEs <- c(
  23.52703, 23.56358, 23.56787, 23.57457, 23.58126, 23.58709, 23.58486, 23.59756, 23.60633, 23.62743, 
  23.63894, 23.63225, 23.63808, 23.64598, 23.67103, 23.67292, 23.67842, 23.68117, 23.68409, 23.68735, 
  23.69027, 23.69078, 23.69558, 23.69524, 23.7088, 23.71978, 23.72098, 23.68752, 23.67293, 23.67208, 
  23.6532, 23.64582, 23.6405, 23.62811, 23.61781, 23.61798, 23.54213, 23.52618, 23.51005, 23.5076, 
  23.49268, 23.48856, 23.47878, 23.46797, 23.45749, 23.43896, 23.42334, 23.41545, 23.40739, 23.38937, 
  23.38541, 23.41361, 23.39988, 23.41224, 23.41156, 23.41808, 23.42272, 23.43663, 23.44161, 23.43663, 
  23.44367, 23.44968, 23.45311, 23.47714, 23.49432, 23.48298, 23.49329, 23.51043, 23.52348, 23.53911, 
  23.55182, 23.5489, 23.55972, 23.56933, 23.54186, 23.53774, 23.53087, 23.5276, 23.54528, 23.55576, 
  23.5585, 23.54339, 23.53893, 23.52656, 23.51832)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  59.95045, 59.94864, 59.955, 59.95681, 59.9672, 59.96944, 59.97425, 59.9709, 59.96746, 59.9642, 
  59.96299, 59.95698, 59.95801, 59.95122, 59.95277, 59.94555, 59.95036, 59.94649, 59.95543, 59.94984, 
  59.95328, 59.95328, 59.95947, 59.96196, 59.96471, 59.96729, 59.96892, 59.97021, 59.96523, 59.9727, 
  59.96935, 59.9806, 59.97717, 59.98198, 59.9782, 59.98112, 59.98782, 59.9849, 59.9855, 59.99005, 
  59.98558, 59.98661, 59.98215, 59.98387, 59.99056, 59.99383, 59.99056, 59.99434, 59.97614, 59.97863, 
  59.97287, 59.96626, 59.96041)
LONGITUDE_VALUEs <- c(
  23.81799, 23.82589, 23.83635, 23.82898, 23.8566, 23.84854, 23.87325, 23.87393, 23.86021, 23.86004, 
  23.8542, 23.85472, 23.84682, 23.84734, 23.85763, 23.86501, 23.87394, 23.88097, 23.89693, 23.91773, 
  23.92288, 23.93112, 23.92975, 23.94021, 23.9191, 23.92013, 23.91378, 23.92047, 23.93197, 23.93368, 
  23.9819, 23.95959, 23.97675, 23.97967, 24.00147, 24.00147, 23.96972, 23.96183, 23.9402, 23.93814, 
  23.90966, 23.89885, 23.89387, 23.88581, 23.8925, 23.86999, 23.86862, 23.85489, 23.8391, 23.85195, 
  23.83788, 23.83661, 23.82544)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(59.88666, 59.88244, 59.88235, 59.88838, 59.89019, 59.89329, 59.89097, 59.8932, 59.88743)
LONGITUDE_VALUEs <- c(23.28716, 23.28853, 23.32903, 23.33126, 23.31702, 23.31049, 23.30294, 23.29368, 23.28235)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  59.89045, 59.89415, 59.89183, 59.89613, 59.89398, 59.90362, 59.90379, 59.90663, 59.90543, 59.9112, 
  59.90922, 59.90388, 59.90164, 59.8951, 59.89415, 59.89045)
LONGITUDE_VALUEs <- c(
  23.36902, 23.37143, 23.39288, 23.39751, 23.38979, 23.38035, 23.374, 23.37331, 23.36508, 23.35547, 
  23.34294, 23.34277, 23.36027, 23.36456, 23.35753, 23.3625)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  59.87753, 59.8752, 59.87133, 59.86693, 59.86374, 59.86676, 59.86848, 59.87512, 59.87572, 59.88175, 
  59.88218, 59.88709, 59.88399, 59.88933, 59.88037, 59.87727)
LONGITUDE_VALUEs <- c(
  23.38285, 23.37392, 23.37564, 23.35625, 23.39846, 23.40086, 23.41133, 23.41202, 23.42746, 23.4393, 
  23.42403, 23.42472, 23.40275, 23.37992, 23.35984, 23.37134)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(59.94461, 59.93352, 59.93274, 59.93601, 59.9373, 59.94212)
LONGITUDE_VALUEs <- c(23.82804, 23.80642, 23.82187, 23.8368, 23.8301, 23.83971)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  59.9453, 59.93902, 59.93472, 59.92724, 59.93205, 59.92638, 59.9238, 59.93635, 59.94427, 59.95028,
  59.94427, 59.94641, 59.94143, 59.94194, 59.93590)
LONGITUDE_VALUEs <- c(
  23.76507, 23.74687, 23.75288, 23.74601, 23.75785, 23.75133, 23.75408, 23.77896, 23.81345, 23.81328,
  23.80247, 23.79664, 23.78514, 23.77759, 23.76566)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.05036, 60.05507, 60.05559, 60.05147, 60.05045, 60.05567, 60.05893, 60.05764, 60.0627, 60.06253, 
  60.07007, 60.07049, 60.06244, 60.0627, 60.06039, 60.05944, 60.0567, 60.04873, 60.04633, 60.04925, 
  60.04942, 60.04513, 60.04976)
LONGITUDE_VALUEs <- c(
  24.58973, 24.60123, 24.60672, 24.59986, 24.60209, 24.61427, 24.61445, 24.60569, 24.60981, 24.61633, 
  24.62217, 24.60621, 24.59214, 24.58613, 24.58562, 24.57841, 24.5791, 24.56417, 24.56691, 24.57086, 
  24.5791, 24.58888, 24.59866)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(60.09875, 60.10611, 60.10979, 60.09627, 60.09379, 60.09473, 60.09627, 60.0967, 60.09875)
LONGITUDE_VALUEs <- c(24.67284, 24.67815, 24.66391, 24.65465, 24.64847, 24.65876, 24.65894, 24.66477, 24.66803)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(60.18626, 60.18276, 60.18071, 60.17781, 60.17593, 60.18455)
LONGITUDE_VALUEs <- c(24.88437, 24.87905, 24.88094, 24.87991, 24.88849, 24.88797)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(60.18805, 60.18984, 60.18131, 60.17439, 60.17379, 60.17627, 60.17951, 60.18233, 60.18583)
LONGITUDE_VALUEs <- c(24.8691, 24.86841, 24.84336, 24.85108, 24.85674, 24.854, 24.85932, 24.85588, 24.86978)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(60.18762, 60.19129, 60.19001, 60.1872, 60.18737, 60.18532, 60.179, 60.18097, 60.18318)
LONGITUDE_VALUEs <- c(25.01947, 25.01055, 25.00077, 24.99613, 24.99201, 24.99133, 25.0157, 25.0181, 25.01552)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.18028, 60.17823, 60.18105, 60.18438, 60.19001, 60.18848, 60.18941, 60.18779, 60.18583, 60.18455, 
  60.18455, 60.18592, 60.18139, 60.1796)
LONGITUDE_VALUEs <- c(
  25.07355, 25.07698, 25.0775, 25.08608, 25.08454, 25.07819, 25.07458, 25.07458, 25.07184, 25.07235, 
  25.06875, 25.06686, 25.06652, 25.07012)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.16039, 60.15518, 60.15372, 60.1556, 60.15261, 60.15851, 60.16056, 60.15526, 60.15629, 60.16167, 
  60.16261, 60.16098, 60.1597, 60.15782)
LONGITUDE_VALUEs <- c(
  25.1005, 25.09243, 25.09964, 25.10358, 25.11834, 25.14854, 25.13791, 25.12349, 25.12109, 25.12727, 
  25.10993, 25.1053, 25.1077, 25.10273)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(60.18336, 60.18028, 60.1784, 60.18156)
LONGITUDE_VALUEs <- c(24.98772, 24.98034, 24.99115, 25.00162)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(60.17738, 60.17379, 60.17217, 60.17661)
LONGITUDE_VALUEs <- c(24.98137, 24.97862, 24.98497, 24.99441)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.14168, 60.1398, 60.13783, 60.13826, 60.14142, 60.1433, 60.14338, 60.14911, 60.1492, 60.14612, 
  60.14535, 60.14338, 60.14193)
LONGITUDE_VALUEs <- c(
  24.98446, 24.9836, 24.98549, 24.99149, 24.98806, 24.98961, 24.99458, 24.99046, 24.98188, 24.98154, 
  24.97742, 24.98068, 24.98068)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.13997, 60.13031, 60.13364, 60.13373, 60.13142, 60.13398, 60.13535, 60.13834, 60.13843, 60.13697, 
  60.13638, 60.14005, 60.13988, 60.14099)
LONGITUDE_VALUEs <- c(
  24.99381, 24.99536, 25.00635, 25.01305, 25.01958, 25.02524, 25.02164, 25.02473, 25.02129, 25.02061, 
  25.00996, 25.01047, 24.99914, 24.99639)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(60.37091, 60.36038, 60.35809, 60.36412, 60.36794, 60.37388)
LONGITUDE_VALUEs <- c(25.66118, 25.6665, 25.67681, 25.6799, 25.68557, 25.67732)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(60.25548, 60.23716, 60.23673, 60.23324, 60.24287, 60.24551, 60.24883, 60.25454)
LONGITUDE_VALUEs <- c(25.52725, 25.51231, 25.52828, 25.53893, 25.53343, 25.54356, 25.53446, 25.53652)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.21859, 60.21134, 60.2133, 60.20921, 60.21876, 60.21978, 60.22345, 60.22387, 60.23265, 60.22089, 
  60.21901, 60.21475)
LONGITUDE_VALUEs <- c(
  25.66512, 25.67181, 25.6804, 25.68779, 25.68813, 25.68246, 25.68315, 25.6792, 25.66975, 25.66271, 
  25.65, 25.65584)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(60.23947, 60.237, 60.23777, 60.23708, 60.24705, 60.24194)
LONGITUDE_VALUEs <- c(25.91457, 25.90701, 25.89653, 25.88674, 25.91044, 25.92882)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(60.2456, 60.241, 60.24671, 60.25199)
LONGITUDE_VALUEs <- c(25.93037, 25.94016, 25.96832, 25.96214)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.22449, 60.21954, 60.22108, 60.2175, 60.21801, 60.21562, 60.21801, 60.22082, 60.21989, 60.22551, 
  60.22534, 60.22773, 60.22696, 60.23046, 60.23327, 60.23122, 60.23284, 60.23046, 60.22833, 60.22696, 
  60.22278)
LONGITUDE_VALUEs <- c(
  25.90971, 25.91864, 25.93083, 25.93169, 25.94199, 25.94904, 25.95453, 25.94474, 25.93409, 25.94165, 
  25.91778, 25.91555, 25.92585, 25.93753, 25.92242, 25.91915, 25.90146, 25.89459, 25.89889, 25.89408, 
  25.90232)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(60.21958, 60.22342, 60.2339, 60.23245, 60.23484, 60.22896, 60.2224, 60.22282, 60.22035)
LONGITUDE_VALUEs <- c(25.23016, 25.24939, 25.25128, 25.24166, 25.23016, 25.21556, 25.21779, 25.22999, 25.22501)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.23441, 60.22964, 60.22777, 60.22393, 60.23305, 60.23484, 60.24089, 60.23885, 60.24481, 60.24268, 
  60.24907, 60.24677, 60.23944, 60.24038, 60.23501)
LONGITUDE_VALUEs <- c(
  25.34706, 25.34122, 25.3486, 25.35015, 25.35976, 25.36852, 25.35994, 25.34843, 25.34001, 25.33229, 
  25.32353, 25.29553, 25.30704, 25.32318, 25.32937)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.30876, 60.3051, 60.3051, 60.30306, 60.29685, 60.29957, 60.29379, 60.29243, 60.28809, 60.28783, 
  60.29073, 60.29762, 60.29404, 60.28775, 60.28902, 60.28103, 60.27745, 60.28809, 60.276, 60.28375, 
  60.28783, 60.29311, 60.28996, 60.31071)
LONGITUDE_VALUEs <- c(
  26.0973, 26.09885, 26.11276, 26.09953, 26.11224, 26.09163, 26.10211, 26.09679, 26.10177, 26.09163, 
  26.09129, 26.06072, 26.03857, 26.04217, 26.07051, 26.06931, 26.07858, 26.08253, 26.13439, 26.13799, 
  26.11515, 26.12151, 26.14504, 26.12528)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(60.36746, 60.35922, 60.34412, 60.35812, 60.37119)
LONGITUDE_VALUEs <- c(26.74623, 26.74417, 26.77681, 26.78642, 26.75946)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.25051, 60.26022, 60.30209, 60.30617, 60.31467, 60.3077, 60.27265, 60.27826, 60.27028, 60.26645, 
  60.26202, 60.25896, 60.25291, 60.24661, 60.24652, 60.24294, 60.24064, 60.23724, 60.23928, 60.23596, 
  60.24209, 60.23519, 60.2369, 60.23459, 60.23664, 60.23485, 60.23868, 60.23528, 60.23792, 60.23417, 
  60.23562, 60.23187, 60.23442, 60.22735, 60.23059, 60.22479, 60.23016, 60.22164, 60.21823, 60.2155, 
  60.21593, 60.20902, 60.20979, 60.20254, 60.20953, 60.20687, 60.20704, 60.21471, 60.22034, 60.22904, 
  60.24097, 60.23688, 60.23125, 60.22443, 60.20345, 60.18076, 60.16848, 60.16489, 60.15892, 60.16711, 
  60.15755, 60.15968, 60.15866, 60.1631, 60.16199, 60.16344, 60.16148, 60.15746, 60.15319, 60.15558, 
  60.15165, 60.14875, 60.15165, 60.14926, 60.15388, 60.14388, 60.13747, 60.13901, 60.12447, 60.12362, 
  60.11216, 60.10805, 60.10454, 60.10335, 60.09162, 60.0876, 60.07758, 60.07457, 60.09648, 60.11051, 
  60.09306, 60.09083, 60.07645, 60.06052, 60.03206, 60.02126, 60.00084, 60.0089, 60.00839, 60.03223, 
  59.99792, 60.01405, 60.03995, 60.02795, 60.02006, 60.02846, 60.01851, 59.99845, 60.003, 60.00978, 
  60.00952, 59.99322, 59.99107, 60.0151, 60.01999, 60.0145, 60.0133, 60.00764, 60.00523, 60.01338, 
  60.01338, 60.01699, 60.01433, 60.00523, 60.00764, 60.0181, 60.02188, 60.0115, 60.01802, 60.02462, 
  60.02874, 60.03131, 60.03697, 60.0397, 60.05416, 60.06667, 60.07866, 60.07832, 60.08311, 60.08294, 
  60.09561, 60.12942, 60.13703, 60.14002, 60.1519, 60.15549, 60.16002, 60.16164, 60.16625, 60.17223, 
  60.17044, 60.17855, 60.18001, 60.17847, 60.18154, 60.18112, 60.18701, 60.18991, 60.19912, 60.20305, 
  60.20552, 60.20961, 60.21422, 60.21115, 60.21413, 60.21823, 60.21644, 60.22334, 60.23817, 60.23962, 
  60.24388, 60.24882)
LONGITUDE_VALUEs <- c(
  22.9004, 22.93887, 22.98487, 22.97662, 22.97937, 22.91342, 22.89458, 22.88016, 22.87015, 22.8796, 
  22.8674, 22.87084, 22.86397, 22.8669, 22.8566, 22.86261, 22.84835, 22.84526, 22.83169, 22.81984, 
  22.81967, 22.80559, 22.79498, 22.79189, 22.78554, 22.78021, 22.77008, 22.76063, 22.73041, 22.71824, 
  22.70244, 22.69643, 22.6887, 22.64439, 22.63306, 22.63031, 22.61881, 22.59119, 22.59532, 22.5881, 
  22.58244, 22.56406, 22.55685, 22.53864, 22.52112, 22.5111, 22.47297, 22.49908, 22.49358, 22.50835, 
  22.48225, 22.46466, 22.46466, 22.45436, 22.46157, 22.41384, 22.41212, 22.4195, 22.41384, 22.46156, 
  22.49091, 22.49297, 22.50757, 22.51684, 22.53212, 22.5395, 22.54791, 22.54053, 22.59357, 22.61022, 
  22.61949, 22.61537, 22.60988, 22.5922, 22.54825, 22.46551, 22.46207, 22.43855, 22.42637, 22.44113, 
  22.45178, 22.49331, 22.49228, 22.47546, 22.47563, 22.48679, 22.48421, 22.46672, 22.46123, 22.42003, 
  22.3929, 22.36234, 22.36921, 22.36303, 22.38398, 22.37539, 22.38913, 22.40526, 22.42106, 22.43617, 
  22.44612, 22.47461, 22.59993, 22.57418, 22.58654, 22.60955, 22.625, 22.61056, 22.63133, 22.62858, 
  22.65468, 22.66189, 22.68404, 22.677, 22.68627, 22.68644, 22.69485, 22.69125, 22.70395, 22.70326, 
  22.72094, 22.72351, 22.74291, 22.75253, 22.76214, 22.74824, 22.75922, 22.76368, 22.78257, 22.77536, 
  22.79373, 22.7812, 22.78841, 22.7745, 22.77915, 22.77056, 22.77331, 22.78121, 22.78636, 22.79837, 
  22.84197, 22.86016, 22.8823, 22.85466, 22.8672, 22.85484, 22.85604, 22.84557, 22.85638, 22.84677, 
  22.83424, 22.82788, 22.83509, 22.83801, 22.84797, 22.85672, 22.86977, 22.85621, 22.85277, 22.85844, 
  22.85449, 22.86256, 22.85689, 22.83595, 22.83509, 22.86307, 22.87183, 22.89518, 22.89672, 22.90067, 
  22.90067, 22.91114)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.48459, 60.45955, 60.45837, 60.45481, 60.44617, 60.43805, 60.42991, 60.42212, 60.42178, 60.42686, 
  60.42144, 60.42653, 60.44262, 60.44636, 60.44331, 60.44569, 60.44094, 60.44281, 60.4495, 60.45838, 
  60.46355, 60.4693, 60.46617, 60.47539, 60.48487)
LONGITUDE_VALUEs <- c(
  21.92327, 21.93014, 21.93942, 21.93564, 21.94182, 21.98304, 21.98098, 21.99197, 22.01842, 22.02769, 
  22.03353, 22.06479, 22.07372, 22.06576, 22.06353, 22.05442, 22.05339, 22.0266, 22.03828, 22.02901, 
  22.00359, 21.99724, 21.98831, 21.97957, 21.9332)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.08126, 60.07989, 60.09119, 60.09017, 60.0947, 60.09376, 60.09085, 60.08983, 60.08734, 60.08555, 
  60.0834, 60.0882, 60.08306, 60.08914, 60.09034, 60.09881, 60.09984, 60.10318, 60.10797, 60.11045, 
  60.11472, 60.11969, 60.12311, 60.12191, 60.12413, 60.12114, 60.11926, 60.10865, 60.10326, 60.08503, 
  60.08409, 60.0876, 60.0846, 60.07895, 60.07964, 60.08349, 60.08512, 60.08169, 60.07741)
LONGITUDE_VALUEs <- c(
  22.90345, 22.91307, 22.92166, 22.92715, 22.93986, 22.94742, 22.94467, 22.93093, 22.93145, 22.92767, 
  22.93128, 22.93797, 22.95326, 22.96183, 22.9699, 22.96835, 22.962, 22.9687, 22.96595, 22.95462, 
  22.9565, 22.96475, 22.94843, 22.93418, 22.91082, 22.90241, 22.88918, 22.87855, 22.86652, 22.86913, 
  22.86003, 22.84904, 22.8377, 22.83925, 22.86329, 22.87016, 22.88321, 22.88133, 22.89867)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.37915, 60.3744, 60.37083, 60.36786, 60.36354, 60.36897, 60.36498, 60.37448, 60.37474, 60.37847, 
  60.38059, 60.38424, 60.38212, 60.38933, 60.39518, 60.39467, 60.39976, 60.4023, 60.40866, 60.39773, 
  60.39832, 60.3951, 60.38517)
LONGITUDE_VALUEs <- c(
  22.30966, 22.30743, 22.31567, 22.30777, 22.3143, 22.32117, 22.3483, 22.38591, 22.39514, 22.41215, 
  22.43602, 22.44048, 22.44838, 22.46762, 22.46915, 22.45661, 22.46125, 22.48066, 22.47413, 22.40221, 
  22.39792, 22.38864, 22.32218)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.34035, 60.35207, 60.35369, 60.35963, 60.36557, 60.37279, 60.3772, 60.3755, 60.36922, 60.36651, 
  60.37016, 60.37083, 60.37542, 60.38246, 60.38178, 60.37457, 60.36107, 60.35437, 60.34842, 60.35258, 
  60.35606, 60.36031, 60.35776, 60.36269, 60.35785, 60.35148, 60.35488, 60.34995, 60.34757, 60.3457)
LONGITUDE_VALUEs <- c(
  22.1778, 22.25592, 22.28237, 22.30795, 22.30195, 22.30246, 22.29422, 22.26024, 22.22469, 22.18158, 
  22.18845, 22.21353, 22.21627, 22.23104, 22.13852, 22.11791, 22.11621, 22.10109, 22.09852, 22.11638, 
  22.11518, 22.12737, 22.13287, 22.15966, 22.14386, 22.14867, 22.16996, 22.1598, 22.16443, 22.16203)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.40646, 60.40315, 60.40154, 60.39705, 60.38984, 60.38509, 60.38729, 60.38585, 60.38848, 60.38483, 
  60.38483, 60.38967, 60.38916, 60.39281, 60.39747, 60.39696, 60.39026, 60.39026, 60.39823, 60.39773, 
  60.40112, 60.40383, 60.41977, 60.42299, 60.43154, 60.43112, 60.42366, 60.4229, 60.41799, 60.41799, 
  60.40604, 60.40112, 60.40451)
LONGITUDE_VALUEs <- c(
  22.17182, 22.17045, 22.1823, 22.15568, 22.16993, 22.1701, 22.18092, 22.1902, 22.20153, 22.20634, 
  22.22523, 22.23279, 22.24859, 22.24959, 22.24358, 22.25818, 22.26934, 22.27913, 22.2769, 22.26591, 
  22.26591, 22.25904, 22.24753, 22.22967, 22.22469, 22.20374, 22.1952, 22.18232, 22.17614, 22.16566, 
  22.14539, 22.15707, 22.16171)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.44247, 60.44535, 60.43806, 60.43933, 60.43214, 60.43163, 60.43527, 60.42866, 60.42595, 60.4201, 
  60.42629, 60.41485, 60.41104, 60.40637, 60.40977, 60.41646, 60.41892, 60.42349, 60.42561, 60.42129, 
  60.42171, 60.42654, 60.42222, 60.43425, 60.43561, 60.4395)
LONGITUDE_VALUEs <- c(
  22.206, 22.1993, 22.18368, 22.16375, 22.15122, 22.13816, 22.12425, 22.10708, 22.08716, 22.09471, 
  22.10897, 22.10711, 22.11192, 22.10642, 22.12205, 22.12444, 22.13338, 22.1308, 22.13818, 22.13784, 
  22.14419, 22.15639, 22.17219, 22.19757, 22.2053, 22.20461)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.11975, 60.14232, 60.14454, 60.1495, 60.14625, 60.15616, 60.17939, 60.17905, 60.18366, 60.18485, 
  60.19424, 60.20311, 60.19441, 60.18349, 60.18656, 60.17171, 60.16795, 60.16231, 60.15719, 60.14208, 
  60.13909, 60.13525, 60.12627, 60.1261, 60.12285, 60.11874, 60.11207, 60.11584, 60.11541, 60.12114, 
  60.11541, 60.11284, 60.1048, 60.10788, 60.10326, 60.11626, 60.10951, 60.10822, 60.11396, 60.10822, 
  60.11284, 60.11224)
LONGITUDE_VALUEs <- c(
  21.66963, 21.65658, 21.64455, 21.65074, 21.66585, 21.69024, 21.68849, 21.63938, 21.64144, 21.65998, 
  21.66788, 21.6143, 21.60331, 21.63182, 21.57691, 21.55595, 21.53672, 21.54256, 21.51336, 21.50457, 
  21.52277, 21.50423, 21.49874, 21.5166, 21.51333, 21.52089, 21.51059, 21.50458, 21.49685, 21.4874, 
  21.47933, 21.46095, 21.46765, 21.48242, 21.49685, 21.53652, 21.52982, 21.56881, 21.57568, 21.58388, 
  21.60569, 21.64399)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.50203, 60.4858, 60.47768, 60.48056, 60.48699, 60.48547, 60.4902, 60.49232, 60.5017, 60.50212, 
  60.50795, 60.51193, 60.51057, 60.52477, 60.52679, 60.53169, 60.53271, 60.52443, 60.52257, 60.52865, 
  60.53228, 60.53727, 60.54081, 60.5474, 60.55415, 60.54588, 60.54562, 60.55794, 60.56039, 60.55195, 
  60.55643, 60.55415, 60.56005, 60.56039, 60.56554, 60.5641, 60.569, 60.56385, 60.57583, 60.583, 
  60.59353, 60.598, 60.6178, 60.61544, 60.62352, 60.62386, 60.63876, 60.63531, 60.62866, 60.62765, 
  60.63396, 60.63439, 60.64331, 60.64449, 60.64516, 60.65509, 60.65248, 60.65955, 60.65845, 60.66812, 
  60.66291, 60.6709, 60.66913, 60.6714, 60.66602, 60.6619, 60.65391, 60.64928, 60.65458, 60.6481, 
  60.62816, 60.62959, 60.62294, 60.62075, 60.60752, 60.61072, 60.6071, 60.60651, 60.6007, 60.60061, 
  60.58359, 60.58645, 60.59682, 60.60289, 60.57954, 60.57743, 60.56857, 60.56453, 60.58055, 60.57406, 
  60.55423, 60.55794, 60.549, 60.54486, 60.52848, 60.52992, 60.5164, 60.51378, 60.50576)
LONGITUDE_VALUEs <- c(
  21.43239, 21.43307, 21.47051, 21.48057, 21.47834, 21.48641, 21.48367, 21.49826, 21.49998, 21.4919, 
  21.48709, 21.49431, 21.50495, 21.50908, 21.49963, 21.49465, 21.51388, 21.51371, 21.5326, 21.53466, 
  21.52419, 21.52642, 21.52041, 21.51646, 21.48898, 21.48675, 21.47816, 21.47267, 21.44882, 21.45466, 
  21.43938, 21.42924, 21.43234, 21.42255, 21.41653, 21.4301, 21.43234, 21.44487, 21.44281, 21.40195, 
  21.40178, 21.36676, 21.35096, 21.33089, 21.32608, 21.3563, 21.33604, 21.329, 21.33535, 21.32934, 
  21.32608, 21.31488, 21.31797, 21.30081, 21.30905, 21.31042, 21.32313, 21.3142, 21.32501, 21.3166, 
  21.29308, 21.29463, 21.27076, 21.25995, 21.2572, 21.28724, 21.27712, 21.25754, 21.25068, 21.23162, 
  21.23351, 21.21618, 21.22356, 21.21463, 21.22871, 21.24158, 21.24673, 21.25514, 21.25686, 21.27763, 
  21.29154, 21.32432, 21.3214, 21.33891, 21.3681, 21.34286, 21.34973, 21.32466, 21.29668, 21.28518, 
  21.31883, 21.33187, 21.34784, 21.3317, 21.36706, 21.38303, 21.38543, 21.40329, 21.40483)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.42051, 60.42381, 60.42466, 60.42924, 60.43296, 60.44067, 60.44609, 60.44982, 60.45379, 60.45963, 
  60.46268, 60.47825, 60.4769, 60.48941, 60.49034, 60.48704, 60.48806, 60.48358, 60.48062, 60.47791, 
  60.47224, 60.46387, 60.4593, 60.45786, 60.46057, 60.45837, 60.45557, 60.4532, 60.44905, 60.44736, 
  60.44592, 60.44313, 60.44651, 60.44363, 60.45024, 60.44617, 60.44126, 60.43838, 60.43661, 60.43415, 
  60.43127, 60.43229, 60.42924, 60.42407, 60.42661, 60.42322, 60.42441, 60.42009, 60.42026, 60.42364, 
  60.42288, 60.41593, 60.41458, 60.41627, 60.40856, 60.40949, 60.40729, 60.40305, 60.40186, 60.39559, 
  60.39627, 60.39033, 60.39024, 60.38456, 60.38236, 60.37557, 60.37243, 60.36895, 60.36657, 60.36352, 
  60.36555, 60.36207, 60.35944, 60.36148, 60.36589, 60.3636, 60.36496, 60.367, 60.35672, 60.35749, 
  60.34594, 60.34645, 60.34331, 60.34042, 60.3473, 60.34815, 60.35087, 60.35248, 60.35571, 60.35961, 
  60.35893, 60.36233, 60.36717, 60.36878, 60.37217, 60.37362, 60.37548, 60.3776, 60.37837, 60.38151, 
  60.38371, 60.37837, 60.37803, 60.3804, 60.381, 60.38736, 60.38668, 60.39041, 60.39313, 60.39677, 
  60.40101, 60.39847, 60.40076, 60.39618, 60.40161, 60.40051, 60.40373, 60.40551, 60.40831, 60.41161, 
  60.41526)
LONGITUDE_VALUEs <- c(
  21.95723, 21.96444, 21.95672, 21.95586, 21.93662, 21.93836, 21.92617, 21.92531, 21.91913, 21.9193, 
  21.90987, 21.89682, 21.88583, 21.85698, 21.83759, 21.83914, 21.82248, 21.81767, 21.82471, 21.8187, 
  21.82334, 21.81853, 21.83021, 21.82815, 21.81647, 21.80943, 21.81458, 21.81132, 21.81252, 21.8187, 
  21.81372, 21.81458, 21.8072, 21.80119, 21.80239, 21.7847, 21.7835, 21.80376, 21.78985, 21.81235, 
  21.81149, 21.79449, 21.7792, 21.78487, 21.80531, 21.80737, 21.81733, 21.81527, 21.82249, 21.82197, 
  21.83278, 21.82811, 21.80957, 21.80047, 21.79188, 21.8233, 21.80957, 21.80734, 21.79189, 21.79154, 
  21.81455, 21.79927, 21.81266, 21.82828, 21.81901, 21.85197, 21.85163, 21.88064, 21.87858, 21.91309, 
  21.9239, 21.92339, 21.92974, 21.89248, 21.87463, 21.86175, 21.84081, 21.82518, 21.82725, 21.84115, 
  21.91875, 21.94895, 21.97711, 21.98483, 22.00664, 22.03308, 22.036, 22.05128, 22.04509, 22.04818, 
  22.02861, 22.02655, 22.03703, 22.01934, 22.0293, 22.01093, 22.01333, 22.00767, 22.01728, 22.01728, 
  21.95943, 21.95702, 21.94621, 21.94707, 21.95308, 21.9572, 21.98655, 21.99737, 21.99325, 22.00132, 
  21.98982, 21.98037, 21.97849, 21.94879, 21.93934, 21.96613, 21.97797, 21.97385, 21.97883, 21.96681, 
  21.97248)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.01834, 60.02623, 60.03309, 60.04167, 60.0624, 60.06628, 60.07234, 60.066, 60.06943, 60.05572, 
  60.04904, 60.03944, 60.04527, 60.03826, 60.03225, 60.01373, 60.01055, 60.00513, 60.0077)
LONGITUDE_VALUEs <- c(
  22.87659, 22.89926, 22.8838, 22.91746, 22.91403, 22.93447, 22.90923, 22.90339, 22.89102, 22.84534, 
  22.88621, 22.88587, 22.85152, 22.85034, 22.86185, 22.85206, 22.8615, 22.85771, 22.88794)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.02068, 60.01965, 60.03002, 60.03491, 60.03122, 60.03517, 60.03808, 60.04263, 60.04614, 60.05206, 
  60.0374, 60.02591, 60.02291, 60.01604, 60.01879, 60.01913, 60.00875, 60.0121, 60.0042, 60.01047, 
  60.01038, 60.01441, 60.01716)
LONGITUDE_VALUEs <- c(
  22.94115, 22.95867, 22.95592, 22.96588, 22.96966, 22.97584, 22.97051, 22.97326, 22.95678, 22.95076, 
  22.92174, 22.91934, 22.92725, 22.91883, 22.91557, 22.90595, 22.90595, 22.9178, 22.92845, 22.92845, 
  22.93292, 22.93292, 22.93979)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.49007, 60.49565, 60.48686, 60.49337, 60.49168, 60.50005, 60.50706, 60.51526, 60.51796, 60.53857,
  60.55182, 60.55166, 60.56313, 60.57376, 60.58329, 60.58362, 60.5762, 60.58632, 60.587, 60.57266, 
  60.56591, 60.56456, 60.55975, 60.54836, 60.55267, 60.53072, 60.53646, 60.52683, 60.5286, 60.53713,
  60.52632, 60.52894, 60.51095, 60.50732, 60.51298, 60.51585, 60.51086, 60.50951, 60.50284, 60.50343, 
  60.49607)
LONGITUDE_VALUEs <- c(
  21.28537, 21.29996, 21.31456, 21.31748, 21.34101, 21.35544, 21.33517, 21.34049, 21.31336, 21.32332,
  21.31183, 21.30376, 21.29723, 21.26221, 21.2605, 21.25397, 21.25363, 21.2447, 21.23474, 21.22976, 
  21.23886, 21.25775, 21.24487, 21.25071, 21.27269, 21.2811, 21.27097, 21.27646, 21.26084, 21.24796, 
  21.25105, 21.2416, 21.23697, 21.24487, 21.25552, 21.27304, 21.27424, 21.26291, 21.26617, 21.28764,
  21.27493)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.47104, 60.46114, 60.46436, 60.45962, 60.46215, 60.46529, 60.46926, 60.46833, 60.47222, 60.47933,
  60.47975, 60.47705, 60.47899)
LONGITUDE_VALUEs <- c(
  21.67471, 21.67351, 21.66802, 21.66201, 21.6426, 21.64432, 21.63985, 21.64895, 21.65033, 21.6414,
  21.64809, 21.65401, 21.66115)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.431, 60.42549, 60.44235, 60.44751, 60.45979, 60.44522, 60.43769, 60.44243, 60.43566, 60.43193,
  60.42803, 60.42422, 60.41744, 60.41651, 60.42049, 60.41846, 60.41405, 60.41558, 60.4043, 60.40769,
  60.41151, 60.41651, 60.41892, 60.42134, 60.42701)
LONGITUDE_VALUEs <- c(
  21.62218, 21.644, 21.64056, 21.64554, 21.63198, 21.61549, 21.61961, 21.60948, 21.60348, 21.60605,
  21.60451, 21.60794, 21.60399, 21.61086, 21.61206, 21.61567, 21.61292, 21.60021, 21.60124, 21.61429,
  21.61429, 21.62734, 21.62353, 21.62958, 21.62133)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.41473, 60.40659, 60.40693, 60.4143, 60.42091, 60.42507, 60.42964, 60.43532, 60.44912, 60.44903, 
  60.4382, 60.44048, 60.41829, 60.41795, 60.41108)
LONGITUDE_VALUEs <- c(
  21.71111, 21.7075, 21.72056, 21.72536, 21.71729, 21.72279, 21.70699, 21.713, 21.70304, 21.67865, 
  21.67848, 21.69823, 21.68861, 21.6972, 21.69977)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.32995, 60.32485, 60.3257, 60.32018, 60.31686, 60.307, 60.31142, 60.30896, 60.31593, 60.32553, 
  60.32868, 60.3325, 60.33743, 60.33513, 60.33658)
LONGITUDE_VALUEs <- c(
  21.94988, 21.95332, 21.93546, 21.92172, 21.96325, 22.00911, 22.01443, 22.02508, 22.03916, 22.03745, 
  22.02044, 22.02165, 22.00585, 21.99039, 21.983)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.27808, 60.27595, 60.28029, 60.27825, 60.28131, 60.28361, 60.28812, 60.28573, 60.28344, 60.28156, 
  60.29058, 60.2979, 60.29986, 60.29577, 60.29492, 60.28582, 60.30096, 60.30224, 60.30538, 60.30632, 
  60.31049, 60.3104, 60.31329, 60.31202, 60.31474, 60.31108, 60.30896, 60.30998, 60.307, 60.30249, 
  60.29433, 60.29186, 60.28854, 60.28854, 60.28242, 60.28114, 60.2768)
LONGITUDE_VALUEs <- c(
  21.93426, 21.95745, 21.9456, 21.96037, 21.96054, 21.94989, 21.96002, 21.96981, 21.96724, 21.98166, 
  22.01017, 22.0124, 22.00347, 21.99369, 21.98716, 21.97462, 21.97136, 21.97771, 21.9784, 21.98853, 
  21.97702, 21.96534, 21.96191, 21.95057, 21.92996, 21.92361, 21.89854, 21.87312, 21.86865, 21.88703, 
  21.89015, 21.8783, 21.87847, 21.89634, 21.89531, 21.90956, 21.91935)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.40229, 60.40144, 60.39762, 60.39652, 60.405, 60.40932, 60.41542, 60.41814, 60.40949, 
  60.40771, 60.39923)
LONGITUDE_VALUEs <- c(
  22.04892, 22.05407, 22.04549, 22.04686, 22.06934, 22.06025, 22.06145, 22.04995, 22.03468, 
  22.02352, 22.03245)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.3754, 60.3771, 60.38074, 60.37896, 60.38006, 60.37328, 60.3737, 60.36666, 60.367, 60.3642, 
  60.36369, 60.35757, 60.35112, 60.35469, 60.35672, 60.35469, 60.36538, 60.367)
LONGITUDE_VALUEs <- c(
  22.52114, 22.53421, 22.533, 22.51893, 22.50143, 22.4633, 22.45558, 22.44013, 22.46279, 22.46279, 
  22.44477, 22.43207, 22.46382, 22.47102, 22.48835, 22.49608, 22.50157, 22.51428)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.34365, 60.34866, 60.34416, 60.34603, 60.34348, 60.34772, 60.35324, 60.35749, 60.35868, 60.37497, 
  60.37116, 60.36623, 60.36632, 60.35995, 60.36343, 60.35571, 60.35146, 60.35036, 60.3467, 60.34467, 
  60.33982, 60.32767, 60.32691, 60.32003, 60.32096, 60.31323, 60.31382, 60.32598, 60.33413, 60.32462, 
  60.33073, 60.32946, 60.32589, 60.32818, 60.33192, 60.33311, 60.32878, 60.32869, 60.32564, 60.32835, 
  60.32411, 60.31688, 60.30897, 60.30141, 60.29911, 60.28533, 60.27367, 60.28329, 60.27341, 60.2735, 
  60.27086, 60.27171, 60.27018, 60.26907, 60.26643, 60.26533, 60.2695, 60.26967, 60.27826, 60.2758, 
  60.26618, 60.26218, 60.25834, 60.26481, 60.25988, 60.26362, 60.25954, 60.26107, 60.26073, 60.26516, 
  60.26856, 60.26141, 60.26132, 60.258, 60.25332, 60.25162, 60.24974, 60.24812, 60.24974, 60.2431, 
  60.23892, 60.23364, 60.23756, 60.23977, 60.23287, 60.23534, 60.22869, 60.23347, 60.24293, 60.23858, 
  60.21983, 60.2177, 60.21088, 60.21207, 60.20439, 60.2049, 60.1939, 60.19501, 60.18741, 60.19347, 
  60.19569, 60.19962, 60.19893, 60.21403, 60.21326, 60.22341, 60.22409, 60.23764, 60.24446, 60.24267, 
  60.24991, 60.24608, 60.25068, 60.24974, 60.25374, 60.25707, 60.26047, 60.26754, 60.27094, 60.27503, 
  60.27886, 60.28329, 60.29392, 60.29579, 60.3151, 60.32598, 60.33141, 60.33711, 60.34042)
LONGITUDE_VALUEs <- c(
  22.52235, 22.51755, 22.50056, 22.48512, 22.46123, 22.45677, 22.4185, 22.41729, 22.40545, 22.42672, 
  22.39309, 22.38571, 22.36752, 22.35019, 22.34075, 22.3368, 22.34453, 22.31896, 22.32271, 22.31602, 
  22.31842, 22.30487, 22.32271, 22.31808, 22.29851, 22.30212, 22.29028, 22.28633, 22.24289, 22.22693, 
  22.21766, 22.19741, 22.1883, 22.18504, 22.19757, 22.1883, 22.15776, 22.12464, 22.1164, 22.11228, 
  22.10027, 22.11517, 22.09904, 22.10196, 22.09029, 22.08857, 22.10968, 22.11877, 22.1296, 22.13955, 
  22.14161, 22.15662, 22.1616, 22.15352, 22.15301, 22.16297, 22.17636, 22.19147, 22.20143, 22.21242, 
  22.20263, 22.20881, 22.20572, 22.18786, 22.16846, 22.1585, 22.13583, 22.13154, 22.11952, 22.12364, 
  22.1154, 22.10784, 22.1166, 22.11454, 22.10149, 22.1089, 22.10632, 22.12229, 22.12659, 22.13515, 
  22.11266, 22.11334, 22.12725, 22.15644, 22.1561, 22.14357, 22.14013, 22.16829, 22.1731, 22.18667, 
  22.17103, 22.20812, 22.20091, 22.1937, 22.1882, 22.20125, 22.19232, 22.21224, 22.21637, 22.23045, 
  22.26012, 22.26459, 22.27592, 22.29051, 22.29909, 22.30578, 22.31179, 22.32828, 22.36467, 22.37291, 
  22.40503, 22.41035, 22.41464, 22.42203, 22.4196, 22.42201, 22.41789, 22.42458, 22.41668, 22.43728, 
  22.43814, 22.45016, 22.44878, 22.46733, 22.46389, 22.4929, 22.49685, 22.51591, 22.51642)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(60.21437, 60.20371, 60.2113, 60.21974, 60.22008, 60.22776, 60.23014)
LONGITUDE_VALUEs <- c(22.30521, 22.30864, 22.34519, 22.34982, 22.36561, 22.37505, 22.33781)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.1624, 60.1729, 60.18315, 60.18639, 60.1945, 60.19808, 60.21053, 60.20431, 60.1997, 60.2003, 
  60.19117, 60.19347, 60.18784, 60.18178, 60.17572, 60.17589, 60.16684, 60.16009, 60.15616, 60.15369, 
  60.15138, 60.14395, 60.14847, 60.14608, 60.14882, 60.14685, 60.16479, 60.15949, 60.16103, 60.15881)
LONGITUDE_VALUEs <- c(
  22.30435, 22.36819, 22.37352, 22.38227, 22.37644, 22.38502, 22.38776, 22.35396, 22.34984, 22.33783, 
  22.32084, 22.30969, 22.30797, 22.29373, 22.29611, 22.31087, 22.28616, 22.298, 22.29096, 22.30555, 
  22.28804, 22.29028, 22.3004, 22.3119, 22.32013, 22.33592, 22.33987, 22.32803, 22.3167, 22.30589)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.15719, 60.13711, 60.13215, 60.12959, 60.12933, 60.13668, 60.136, 60.14907, 60.15454, 60.15557,
  60.16007, 60.16265, 60.16342, 60.15659)
LONGITUDE_VALUEs <- c(
  22.28426, 22.27808, 22.25886, 22.25697, 22.25199, 22.25869, 22.24959, 22.25096, 22.25783, 22.2501,
  22.27596, 22.27482, 22.28116, 22.2779)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.16906, 60.17589, 60.17691, 60.1805, 60.1741, 60.17973, 60.17726, 60.1723, 60.16855, 60.1647, 
  60.16812, 60.16547, 60.16727, 60.16231, 60.16633, 60.16257, 60.16564, 60.16556)
LONGITUDE_VALUEs <- c(
  22.24837, 22.26742, 22.25009, 22.24442, 22.24357, 22.22538, 22.20101, 22.20804, 22.17372, 22.18694, 
  22.19003, 22.1938, 22.20118, 22.20684, 22.21457, 22.21765, 22.2367, 22.25026)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.23475, 60.23841, 60.23918, 60.24582, 60.25153, 60.25179, 60.24897, 60.24787, 60.24582, 60.24241, 
  60.23773, 60.2333, 60.23057, 60.2281, 60.22852, 60.23398)
LONGITUDE_VALUEs <- c(
  22.07878, 22.07998, 22.08771, 22.08427, 22.08839, 22.06299, 22.06145, 22.04669, 22.05236, 22.04034, 
  22.05579, 22.05064, 22.06111, 22.06299, 22.07466, 22.0726)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.15642, 60.15992, 60.1565, 60.15146, 60.14967, 60.1442, 60.13719, 60.13907, 60.13779, 60.14668, 
  60.15129, 60.15394)
LONGITUDE_VALUEs <- c(
  22.1313, 22.13165, 22.1114, 22.10951, 22.11466, 22.10351, 22.11106, 22.11792, 22.12753, 22.13834, 
  22.13268, 22.13422)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.16872, 60.17393, 60.17615, 60.18221, 60.19433, 60.19475, 60.19236, 60.18997, 60.17999, 60.18135, 
  60.18485, 60.18024, 60.18554, 60.18349, 60.17598, 60.17171, 60.17521, 60.16607)
LONGITUDE_VALUEs <- c(
  22.10797, 22.11123, 22.14023, 22.1325, 22.15601, 22.13148, 22.12959, 22.11981, 22.12049, 22.11088, 
  22.11226, 22.09784, 22.07141, 22.06695, 22.07382, 22.07347, 22.09492, 22.09184)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.1224, 60.12172, 60.11479, 60.11051, 60.11796, 60.12377, 60.13112, 60.13634, 60.13241, 60.13959, 
  60.14583, 60.14471, 60.12864, 60.1224, 60.12428, 60.11599, 60.11496)
LONGITUDE_VALUEs <- c(
  21.92654, 21.94181, 21.94319, 21.97322, 22.01903, 22.01818, 21.96961, 21.97528, 22.00462, 22.02986, 
  22.02214, 21.99245, 21.92137, 21.92206, 21.91417, 21.90507, 21.92618)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.20601, 60.20371, 60.20678, 60.2078, 60.2107, 60.20627, 60.20798, 60.21403, 60.21326, 60.21514, 
  60.2125, 60.21599, 60.21079, 60.20772, 60.20917, 60.20473, 60.19859, 60.20252, 60.20218)
LONGITUDE_VALUEs <- c(
  21.95673, 21.97389, 21.97475, 21.96737, 21.96926, 21.98848, 22.00375, 22.00701, 21.98951, 21.9847, 
  21.97046, 21.96394, 21.93047, 21.92481, 21.90988, 21.91091, 21.93665, 21.93923, 21.95364)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.19526, 60.19774, 60.21497, 60.20661, 60.22196, 60.22179, 60.21821, 60.2171, 60.20789, 60.20687, 
  60.19706, 60.20269, 60.19757, 60.19381, 60.19373, 60.1904, 60.19074, 60.18409, 60.18033, 60.17546, 
  60.17555, 60.18144, 60.17128, 60.15984, 60.16692, 60.16189, 60.15035, 60.15386, 60.14779, 60.14976, 
  60.15668, 60.15736, 60.16505, 60.16744, 60.17854, 60.18852, 60.18844)
LONGITUDE_VALUEs <- c(
  22.08701, 22.10555, 22.10008, 22.08326, 22.0963, 22.07794, 22.07056, 22.04877, 22.04274, 22.03313, 
  22.02009, 22.00945, 21.96841, 21.96755, 21.95502, 21.9715, 21.95811, 21.95296, 21.96206, 21.95897, 
  21.94456, 21.94473, 21.90749, 21.91606, 21.93854, 21.96102, 21.96583, 21.99157, 22.0017, 22.02967, 
  22.03639, 22.05732, 22.04291, 22.06487, 22.06745, 22.03742, 22.07603)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.17026, 60.16991, 60.17196, 60.17171, 60.17504, 60.17623, 60.17931, 60.17931, 60.18281, 60.1799, 
  60.18161, 60.17939, 60.18904, 60.18622, 60.18784, 60.18451, 60.18485, 60.18281, 60.18332, 60.18059, 
  60.18878, 60.19108, 60.19484, 60.19441, 60.19834, 60.19945, 60.20653, 60.20473, 60.20943, 60.21122, 
  60.21463, 60.21983, 60.22179, 60.21318, 60.21548, 60.21335, 60.21514, 60.21258, 60.20132, 60.1974, 
  60.21139, 60.19876, 60.18938, 60.18118, 60.17632, 60.17657, 60.17137, 60.17316, 60.17188, 60.17452, 
  60.16846, 60.16838, 60.16539, 60.16675, 60.16095, 60.153, 60.14326, 60.14523, 60.13993, 60.13625, 
  60.13463, 60.12762, 60.12617, 60.12274, 60.12582, 60.12009, 60.12394, 60.11419, 60.12471, 60.11736, 
  60.12403, 60.12591, 60.13352, 60.13224, 60.13959, 60.14369, 60.1448, 60.14788, 60.14899, 60.15292, 
  60.1483, 60.14753, 60.15087, 60.15744, 60.15616, 60.15864, 60.15924, 60.16308, 60.16445, 60.16752, 
  60.16889, 60.16581, 60.16701, 60.15855, 60.15497, 60.13993, 60.13788, 60.13377, 60.13377, 60.13147, 
  60.13275, 60.13668, 60.14112, 60.14232, 60.1524, 60.15471, 60.14916, 60.16026, 60.15967)
LONGITUDE_VALUEs <- c(
  21.86369, 21.87932, 21.88344, 21.89511, 21.90094, 21.91004, 21.90866, 21.89768, 21.89064, 21.88275, 
  21.87572, 21.86628, 21.86422, 21.87177, 21.88001, 21.88653, 21.89596, 21.90986, 21.91896, 21.92788, 
  21.94231, 21.93236, 21.93167, 21.91039, 21.91073, 21.90215, 21.8946, 21.88017, 21.88017, 21.89389, 
  21.88188, 21.88892, 21.86747, 21.82371, 21.805, 21.79213, 21.78304, 21.77169, 21.77821, 21.76963, 
  21.76328, 21.72295, 21.72877, 21.71899, 21.7219, 21.70937, 21.71933, 21.72293, 21.73168, 21.74198, 
  21.7533, 21.74258, 21.74618, 21.71699, 21.71098, 21.71751, 21.71374, 21.70704, 21.70086, 21.7115, 
  21.68952, 21.72693, 21.78272, 21.79079, 21.79886, 21.80556, 21.81723, 21.84385, 21.86686, 21.8976, 
  21.90224, 21.87165, 21.87079, 21.88521, 21.89483, 21.9065, 21.8816, 21.88401, 21.89363, 21.9005, 
  21.90084, 21.91595, 21.92007, 21.90857, 21.895, 21.89072, 21.89707, 21.89776, 21.89329, 21.8969, 
  21.88986, 21.88574, 21.87973, 21.87646, 21.85053, 21.83149, 21.83682, 21.83115, 21.82394, 21.82359, 
  21.80419, 21.81123, 21.81003, 21.81827, 21.80865, 21.81518, 21.82445, 21.84162, 21.8533)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.29664, 60.30175, 60.29775, 60.29469, 60.29137, 60.28337, 60.2866, 60.28277, 60.27929, 60.27801, 
  60.28005, 60.28158, 60.28609, 60.28924, 60.28609, 60.29834, 60.30481, 60.30379)
LONGITUDE_VALUEs <- c(
  21.54629, 21.53737, 21.52707, 21.53291, 21.51712, 21.52879, 21.53342, 21.55041, 21.54818, 21.56688, 
  21.56602, 21.55556, 21.55281, 21.57049, 21.58061, 21.58061, 21.56276, 21.55075)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.25707, 60.26243, 60.25741, 60.26499, 60.27435, 60.2729, 60.25604, 60.25391, 60.25008, 60.2356, 
  60.22929, 60.21667, 60.22486, 60.22025, 60.22435, 60.23645, 60.23909, 60.23636, 60.24122, 60.2465, 
  60.25059, 60.25596, 60.25306, 60.25511, 60.25315, 60.254)
LONGITUDE_VALUEs <- c(
  21.59984, 21.60139, 21.61305, 21.61563, 21.60156, 21.58251, 21.57444, 21.58045, 21.56586, 21.56517, 
  21.55642, 21.55917, 21.58216, 21.59503, 21.60928, 21.59881, 21.61185, 21.61837, 21.62697, 21.62354, 
  21.63933, 21.63641, 21.61805, 21.60827, 21.60278, 21.58596)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.28754, 60.29162, 60.28414, 60.28669, 60.2826, 60.28065, 60.27733, 60.27256, 60.27094, 60.26737, 
  60.27129, 60.27069, 60.29137)
LONGITUDE_VALUEs <- c(
  21.43402, 21.42355, 21.41703, 21.39455, 21.38889, 21.37688, 21.38168, 21.37808, 21.3882, 21.39061, 
  21.42475, 21.44569, 21.44552)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.21412, 60.21386, 60.22068, 60.22494, 60.22946, 60.23134, 60.2356, 60.23602, 60.23057, 60.23313,
  60.24122, 60.24395, 60.23773, 60.21335, 60.21053)
LONGITUDE_VALUEs <- c(
  21.43712, 21.46269, 21.46612, 21.45188, 21.4687, 21.45497, 21.46921, 21.44896, 21.42064, 21.4191,
  21.44913, 21.44535, 21.41601, 21.40073, 21.41995)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.26354, 60.26592, 60.26277, 60.26286, 60.2569, 60.26354, 60.26013, 60.25102, 60.24983, 60.24437, 
  60.2402, 60.235, 60.24097, 60.23926, 60.24706)
LONGITUDE_VALUEs <- c(
  21.4208, 21.40484, 21.39506, 21.37327, 21.37224, 21.35954, 21.34959, 21.35798, 21.30701, 21.31799, 
  21.30101, 21.34168, 21.37119, 21.40174, 21.42545)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.20132, 60.21028, 60.20968, 60.2055, 60.20772, 60.20252, 60.2252, 60.22392, 60.23048, 60.23458, 
  60.231, 60.23313, 60.23108, 60.22222, 60.21881, 60.22716, 60.22844, 60.22315, 60.2298, 60.22315, 
  60.22844, 60.22477, 60.22648, 60.21403, 60.21224, 60.21505, 60.19898, 60.18721, 60.1756, 60.18784, 
  60.18579, 60.17674, 60.18793, 60.19228)
LONGITUDE_VALUEs <- c(
  21.4584, 21.47024, 21.44501, 21.43197, 21.40383, 21.37191, 21.40157, 21.33551, 21.38338, 21.38337, 
  21.34991, 21.32846, 21.31731, 21.31336, 21.29363, 21.29978, 21.29394, 21.28777, 21.27541, 21.27112, 
  21.25877, 21.25722, 21.24778, 21.2598, 21.25533, 21.24349, 21.26447, 21.36022, 21.36503, 21.39298, 
  21.39865, 21.39607, 21.42064, 21.45153)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.39966, 60.38753, 60.38499, 60.37489, 60.36589, 60.3776, 60.39041, 60.38872, 60.39347, 60.40025, 
  60.39635, 60.40585, 60.40449)
LONGITUDE_VALUEs <- c(
  21.35404, 21.36656, 21.36485, 21.39008, 21.40055, 21.40792, 21.39849, 21.41324, 21.41273, 21.39402, 
  21.39076, 21.3796, 21.36313)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.36869, 60.38006, 60.39245, 60.38999, 60.39482, 60.38778, 60.38745, 60.37514, 60.35859, 60.37234, 
  60.36309, 60.36768, 60.35808, 60.35027, 60.36946)
LONGITUDE_VALUEs <- c(
  21.34562, 21.34734, 21.32793, 21.31952, 21.31317, 21.29618, 21.31488, 21.29035, 21.31455, 21.32245, 
  21.32605, 21.33995, 21.33017, 21.36312, 21.35814)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(60.3403, 60.34828, 60.35372, 60.35932, 60.36305, 60.34318, 60.34692, 60.34284, 60.34556, 60.3403)
LONGITUDE_VALUEs <- c(21.71625, 21.71625, 21.68158, 21.69291, 21.63902, 21.65962, 21.67026, 21.67746, 21.68467, 21.69943)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.28933, 60.28763, 60.2838, 60.28601, 60.28039, 60.2838, 60.28243, 60.29018, 60.29469, 60.29477, 
  60.29953)
LONGITUDE_VALUEs <- c(
  21.64329, 21.61291, 21.61137, 21.63419, 21.65358, 21.66748, 21.68482, 21.67984, 21.66474, 21.65118, 
  21.64432)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(60.25724, 60.24378, 60.25332, 60.26124)
LONGITUDE_VALUEs <- c(21.75041, 21.75333, 21.78936, 21.78576)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  59.95906, 59.93654, 59.93912, 59.94909, 59.94823, 59.95442, 59.95442, 59.95768, 59.96181, 59.9603, 
  59.96339, 59.97018, 59.97576, 59.98495, 59.98856, 59.99019, 59.98444, 59.98023, 59.97534, 59.97052, 
  59.9701, 59.96408, 59.96365)
LONGITUDE_VALUEs <- c(
  22.58663, 22.6364, 22.65219, 22.62473, 22.65219, 22.64875, 22.61649, 22.62953, 22.62713, 22.63909, 
  22.64785, 22.63875, 22.64012, 22.62107, 22.62622, 22.60786, 22.61284, 22.59911, 22.60305, 22.60117, 
  22.61078, 22.60923, 22.59705)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  59.97611, 59.97224, 59.96168, 59.9591, 59.9548, 59.95403, 59.94586, 59.95471, 59.95738, 59.96107, 
  59.96391, 59.9676, 59.96881, 59.97147, 59.97422, 59.98186, 59.98787, 59.98298)
LONGITUDE_VALUEs <- c(
  22.50624, 22.50143, 22.50298, 22.51774, 22.51379, 22.52409, 22.5282, 22.54193, 22.56905, 22.5627, 
  22.57351, 22.56939, 22.54674, 22.5603, 22.55549, 22.56013, 22.51636, 22.50195)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  59.80724, 59.80845, 59.80465, 59.80534, 59.81001, 59.81001, 59.81398, 59.81355, 59.81657, 59.82088, 
  59.82528, 59.82908, 59.82494, 59.8233, 59.8195, 59.80016, 59.80396)
LONGITUDE_VALUEs <- c(
  22.31878, 22.32325, 22.3296, 22.33989, 22.34006, 22.33286, 22.33783, 22.32445, 22.32908, 22.32239, 
  22.32513, 22.31724, 22.32067, 22.31896, 22.3205, 22.30746, 22.32239)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  59.81216, 59.80897, 59.80819, 59.81191, 59.8113, 59.81941, 59.81777, 59.82114, 59.81993, 59.8233, 
  59.81458, 59.80854)
LONGITUDE_VALUEs <- c(
  22.38316, 22.38316, 22.39002, 22.39174, 22.40444, 22.40341, 22.40066, 22.39774, 22.38985, 22.3871, 
  22.37286, 22.37475)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  59.85211, 59.85176, 59.85711, 59.86262, 59.86047, 59.86736, 59.87227, 59.87374, 59.87555, 59.87822, 
  59.87675, 59.87882, 59.88657, 59.88339, 59.88692, 59.88907, 59.89122, 59.89484, 59.89587, 59.90061, 
  59.89691, 59.89906, 59.89682, 59.89708, 59.89183, 59.88795, 59.88726, 59.89097, 59.88855, 59.88416, 
  59.88347, 59.87934, 59.87805, 59.8746, 59.87158, 59.87262, 59.86891, 59.87305, 59.86262, 59.86607, 
  59.86116, 59.86116, 59.85495, 59.85288, 59.84736)
LONGITUDE_VALUEs <- c(
  22.42538, 22.44374, 22.46348, 22.46537, 22.48819, 22.50727, 22.50538, 22.51534, 22.51156, 22.51654, 
  22.50126, 22.49011, 22.50178, 22.51276, 22.52357, 22.51911, 22.52803, 22.52632, 22.53284, 22.52837, 
  22.51842, 22.51104, 22.5064, 22.49988, 22.48993, 22.49645, 22.48667, 22.48546, 22.47465, 22.47894, 
  22.47345, 22.47516, 22.4707, 22.48374, 22.48083, 22.47293, 22.46778, 22.4489, 22.43912, 22.42024, 
  22.42178, 22.40994, 22.41698, 22.41114, 22.4156)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(59.93236, 59.95016, 59.95325, 59.96219, 59.96021, 59.96382, 59.96056, 59.96219, 59.9456)
LONGITUDE_VALUEs <- c(22.34367, 22.37353, 22.36667, 22.37079, 22.35328, 22.35002, 22.34401, 22.33612, 22.33063)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.51886, 60.51726, 60.51379, 60.51067, 60.5034, 60.50458, 60.50002, 60.49444, 60.49503, 60.49021, 
  60.48438, 60.48522, 60.49013, 60.48928, 60.49402, 60.49537, 60.499, 60.49951, 60.50391, 60.51151, 
  60.51447, 60.51675, 60.52216, 60.52672, 60.52528, 60.51853, 60.51599, 60.51041, 60.50568, 60.50255, 
  60.50162, 60.50779, 60.51033, 60.51751)
LONGITUDE_VALUEs <- c(
  21.52451, 21.52194, 21.52674, 21.52194, 21.52691, 21.52262, 21.5137, 21.5185, 21.53875, 21.53652, 
  21.55026, 21.56021, 21.5561, 21.54683, 21.5494, 21.56021, 21.55849, 21.56621, 21.56535, 21.57582, 
  21.57445, 21.56896, 21.56878, 21.55111, 21.54682, 21.5542, 21.55059, 21.56278, 21.56175, 21.56364, 
  21.55729, 21.54133, 21.54459, 21.53223)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(60.52155, 60.52484, 60.53126, 60.53489, 60.5397, 60.54578, 60.54333, 60.52493)
LONGITUDE_VALUEs <- c(21.58527, 21.59745, 21.59316, 21.58304, 21.58115, 21.56468, 21.55901, 21.56811)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(60.54808, 60.53415, 60.53381, 60.53204, 60.55255, 60.55306, 60.55694, 60.55644, 60.55289)
LONGITUDE_VALUEs <- c(21.52511, 21.53798, 21.5457, 21.55754, 21.55016, 21.54467, 21.54038, 21.52493, 21.52699)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.41416, 60.41187, 60.40823, 60.4006, 60.40035, 60.41416, 60.41645, 60.42755, 60.42069, 60.42247, 
  60.41281, 60.41111)
LONGITUDE_VALUEs <- c(
  21.41375, 21.41838, 21.4134, 21.41443, 21.43314, 21.44292, 21.42953, 21.42336, 21.41975, 21.41392, 
  21.40036, 21.40808)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.41676, 60.41235, 60.41142, 60.41549, 60.41481, 60.41947, 60.41913, 60.43955, 60.43972, 60.43032, 
  60.42676, 60.42007, 60.42015)
LONGITUDE_VALUEs <- c(
  21.35379, 21.35534, 21.36975, 21.37593, 21.38451, 21.38554, 21.39086, 21.39429, 21.38382, 21.37867, 
  21.36838, 21.36855, 21.36048)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  60.39494, 60.3957, 60.39774, 60.40452, 60.39621, 60.39706, 60.41944, 60.4246, 60.43113, 60.42554, 
  60.43265, 60.44129, 60.44129, 60.4296, 60.4163, 60.40986, 60.41418, 60.40494)
LONGITUDE_VALUEs <- c(
  21.20703, 21.21218, 21.20909, 21.21338, 21.23003, 21.23397, 21.2175, 21.22265, 21.21509, 21.20874, 
  21.20377, 21.20651, 21.20171, 21.1993, 21.21303, 21.21217, 21.20582, 21.19844)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  59.92556, 59.9241, 59.92789, 59.95257, 59.95257, 59.96142, 59.95936, 59.96485, 59.96357, 59.96958, 
  59.96967, 59.96219, 59.96228, 59.97783, 59.97396, 59.9774, 59.97473, 59.98264, 59.98744, 59.97362, 
  59.97972, 59.96898, 59.96116, 59.95927, 59.95196, 59.9487, 59.94044, 59.93632, 59.92015, 59.92152)
LONGITUDE_VALUEs <- c(
  22.41491, 22.42074, 22.42555, 22.42538, 22.42967, 22.43414, 22.43791, 22.44666, 22.44889, 22.45507, 
  22.46022, 22.464, 22.46829, 22.46589, 22.46022, 22.45713, 22.45078, 22.45216, 22.44289, 22.43311, 
  22.42555, 22.4132, 22.41748, 22.40461, 22.40392, 22.39328, 22.39843, 22.39586, 22.40616, 22.41216)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo) %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### RUSSIAN FEDERATION #####
Geo_0 <- Geometric_Operations(Geo_2, Geo_1)
Geo_2 <- st_set_geometry(Geo_2, Geo_0)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  61.88225, 61.85266, 61.81847, 61.77092, 61.67708, 61.67089, 61.67073, 61.65541, 61.63992, 61.6032, 
  61.58132, 61.52637, 61.52031, 61.49575, 61.49558, 61.4923, 61.49198, 61.46165, 61.35452, 61.27773, 
  61.2708, 61.17395, 61.15242, 61.14447, 61.14331, 61.13535, 61.12226, 61.09555, 61.04606, 60.97984, 
  60.95156, 60.94806, 60.95531, 60.95181, 60.95665, 60.9544, 60.95706, 60.9288, 60.92597, 60.92363, 
  60.88757, 60.88557, 60.88356, 60.88465, 60.85423, 60.85799, 60.8416, 60.81014, 60.78283, 60.77881, 
  60.74108, 60.71993, 60.68255, 60.6812, 60.67044, 60.67111, 60.66901, 60.60462, 60.58245, 60.57832, 
  60.57453, 60.56592, 60.56154, 60.5547, 60.54541,
  60.53854, 60.53297, 60.5366, 60.53584, 60.52773, 60.52486, 60.52106, 60.51346, 60.51472, 60.50323, 
  60.50238, 60.50585, 60.5072, 60.51024, 60.51354, 60.5105, 60.5056, 60.50492, 60.48607, 60.48311, 
  60.48818, 60.48116, 60.47482, 60.47101, 60.4749, 60.47237, 60.48784, 60.49224, 60.49943, 60.50686, 
  60.50619, 60.51193, 60.51591, 60.52427, 60.52748, 60.54842, 60.54192, 60.54285, 60.54952, 60.55298, 
  60.54555, 60.53888, 60.54082, 60.53314, 60.5317, 60.51177, 60.51008, 60.50433, 60.5056, 60.51126, 
  60.51337, 60.50712, 60.5225, 60.51557, 60.51776, 60.51219, 60.5181, 60.51227, 60.50763, 60.50729, 
  60.49698, 60.49824, 60.50636, 60.50551, 60.50855, 60.51422, 60.51616, 60.52444, 60.52258, 60.52511, 
  60.52376, 60.51329, 60.5143, 60.50855, 60.50492, 60.50424, 60.50162, 60.4996, 60.51109, 60.51295, 
  60.52038, 60.51903, 60.52435, 60.52427, 60.52841, 60.52723, 60.51962, 60.52292, 60.52081, 60.52342, 
  60.52114, 60.52368, 60.52174, 60.51439, 60.51658, 60.51244, 60.51464, 60.51312, 60.52554, 60.52663, 
  60.53559, 60.53407, 60.54074, 60.54259, 60.53677, 60.53955, 60.53246, 60.53516, 60.51819, 60.51151, 
  60.51236, 60.52486, 60.52697, 60.55551, 60.55947, 60.56259, 60.56656, 60.57095, 60.5717, 60.57001, 
  60.57751, 60.57397, 60.56537, 60.56579, 60.57633, 60.57507, 60.58114, 60.58468, 60.58789, 60.58493, 
  60.59261, 60.59454, 60.59943, 60.59867, 60.59016, 60.59884, 60.60154, 60.59943, 60.60112, 60.6082, 
  60.61755, 60.62437, 60.62302, 60.62454, 60.62167, 60.62159, 60.61552, 60.62049, 60.6103, 60.61064, 
  60.60423, 60.61418, 60.6167, 60.63944, 60.64768, 60.64381, 60.65012, 60.65828, 60.66266, 60.64945, 
  60.64895, 60.65274, 60.65055, 60.65308, 60.65257, 60.65796, 60.64651, 60.6625, 60.66258, 60.66738, 
  60.67024, 60.67402, 60.67856, 60.67427, 60.66982, 60.66738, 60.66284, 60.65989, 60.66578, 60.66679, 
  60.67091, 60.66923, 60.67368, 60.66881, 60.67932, 60.68159, 60.68049, 60.67192, 60.67082, 60.66654, 
  60.65653, 60.66082, 60.65871, 60.6646, 60.67394, 60.67108, 60.67402, 60.67015, 60.66738, 60.66494, 
  60.68049, 60.68083, 60.68831, 60.69058, 60.68823, 60.69091, 60.69419, 60.69436, 60.70259, 60.70503, 
  60.69986, 60.71334, 60.712, 60.71737, 60.72249, 60.73693, 60.73332, 60.7397, 60.73643, 60.72971, 
  60.72392, 60.72913, 60.72417, 60.72333, 60.71746, 60.71796, 60.70889, 60.71494, 60.69806, 60.69654, 
  60.691, 60.6915, 60.66376, 60.65846, 60.66368, 60.66225, 60.66855, 60.65922, 60.66199, 60.64593, 
  60.63339, 60.62875, 60.65703, 60.65813, 60.66889, 60.66721, 60.66014, 60.65039, 60.63902, 60.63886, 
  60.63423, 60.63221, 60.61503, 60.61545, 60.59076, 60.58848, 60.60087, 60.59624, 60.59969, 60.59329, 
  60.59262, 60.58191, 60.55272, 60.55061, 60.5561, 60.54411, 60.54183, 60.52917, 60.53018, 60.54031, 
  60.53407, 60.5344, 60.52224, 60.52571, 60.51244, 60.50839, 60.50923, 60.48142, 60.45993, 60.44384, 
  60.43182, 60.42978, 60.46974, 60.47786, 60.51033, 60.51278, 60.5192, 60.52072, 60.53035, 60.54757, 
  60.5496, 60.49004, 60.45925, 60.42639, 60.41206, 60.41164, 60.40359, 60.39697, 60.3738, 60.36294, 
  60.366, 60.3609, 60.35649, 60.35105, 60.35445, 60.35462, 60.32098, 60.32285, 60.31928, 60.32965, 
  60.32557, 60.35955, 60.35751, 60.33892, 60.33662, 60.31912, 60.3141, 60.29897, 60.29046, 60.26169, 
  60.27097, 60.27063, 60.25948, 60.24798, 60.25105, 60.23392, 60.23963, 60.23665, 60.22301, 60.21755, 
  60.20655, 60.20246, 60.1929, 60.18539, 60.18181, 60.17763, 60.18172, 60.1649, 60.16046, 60.16618, 
  60.16089, 60.17174, 60.17822, 60.18275, 60.18966, 60.19504, 60.1941, 60.19743, 60.19504, 60.17942, 
  60.16106, 60.1632, 60.14526, 60.115, 60.1008, 60.09327, 60.09002, 60.08685, 60.08368, 60.08154, 
  60.07777, 60.0746, 60.06947, 60.06099, 60.04333, 60.03699, 60.01083, 59.99684, 59.99864, 59.98783, 
  59.98619, 59.97975, 59.98207, 59.97769, 59.97546, 59.97022, 59.96756, 59.96154, 59.96481, 59.96042, 
  59.95295, 59.9508, 59.94366, 59.94512, 59.92887, 59.92973, 59.91588, 59.91347, 59.91631, 59.90831, 
  59.90512, 59.88928, 59.88782, 59.88394, 59.86369, 59.86197, 59.86456, 59.86059, 59.86232, 59.86068, 
  59.86456, 59.86619, 59.88454, 59.88584, 59.91528, 59.92896, 59.93558, 59.93558, 59.92904, 59.93604, 
  59.95948, 59.95793, 59.97872, 59.9758, 59.97924, 59.9758, 59.98714, 59.99109, 59.9813, 59.98508, 
  59.98061, 59.97993, 59.98388, 59.96927, 59.9569, 59.92836, 59.9139, 59.90994, 59.90289, 59.90667, 
  59.89806, 59.89789, 59.8848, 59.86223, 59.85344, 59.84516, 59.83981, 59.82567, 59.81082, 59.80469, 
  59.80694, 59.78224, 59.77878, 59.78405, 59.7926, 59.8002, 59.79157, 59.78517, 59.7736, 59.77437, 
  59.78155, 59.79027, 59.78975, 59.80063, 59.80754, 59.80832, 59.81315, 59.81591, 59.82126, 59.81963, 
  59.82592, 59.8261, 59.84033, 59.84533, 59.84826, 59.8405, 59.84102, 59.83222, 59.82756, 59.78958, 
  59.77887, 59.76884, 59.67589, 59.66341, 59.67884, 59.6771, 59.68819, 59.71417, 59.778, 59.7901, 
  59.76176, 59.74861, 59.72958, 59.68975, 59.67554, 59.6752, 59.66722, 59.66583, 59.65038, 59.64812, 
  59.62869, 59.61532, 59.59187, 59.53273, 59.49964, 59.47734, 59.48058, 59.47858, 58.9464)
LONGITUDE_VALUEs <- c(
  30.19657, 30.14388, 30.07087, 30.04545, 29.86149, 29.86166, 29.84518, 29.81856, 29.81221, 29.75398, 
  29.74693, 29.64289, 29.64495, 29.59278, 29.57973, 29.55705, 29.49664, 29.50248, 29.33357, 29.2419, 
  29.24533, 28.98543, 28.95866, 28.92021, 28.88349, 28.87216, 28.81927, 28.80725, 28.71592, 28.68365, 
  28.65872, 28.64928, 28.61547, 28.57342, 28.53925, 28.52895, 28.52449, 28.48277, 28.48432, 28.46544, 
  28.39798, 28.39986, 28.39729, 28.39214, 28.33617, 28.32364, 28.31214, 28.25584, 28.22098, 28.17378, 
  28.13585, 28.08658, 28.01534, 28.01757, 27.99818, 27.99509, 27.99079, 27.87286, 27.84797, 27.83784, 
  27.84478, 27.84168, 27.84751, 27.8144, 27.79654,
  27.81115, 27.80343, 27.79365, 27.78335, 27.78919, 27.80566, 27.79038, 27.79999, 27.80514, 27.82265, 
  27.7921, 27.7885, 27.79588, 27.79638, 27.78626, 27.783, 27.78471, 27.77631, 27.78111, 27.80136, 
  27.80445, 27.81491, 27.80805, 27.81612, 27.82315, 27.83053, 27.84306, 27.84014, 27.84822, 27.84239, 
  27.829, 27.82523, 27.83827, 27.83346, 27.82282, 27.84084, 27.85097, 27.85664, 27.85115, 27.8587, 
  27.86934, 27.86453, 27.85629, 27.85303, 27.85715, 27.8678, 27.88925, 27.89013, 27.89751, 27.89442, 
  27.90059, 27.90631, 27.92005, 27.92812, 27.94254, 27.95027, 27.9592, 27.97036, 27.96487, 27.97552, 
  27.99437, 28.00056, 27.99301, 28.00451, 28.00074, 28.00331, 27.9985, 28.0028, 28.01035, 28.01516, 
  28.02821, 28.038, 28.04538, 28.0536, 28.05257, 28.05807, 28.05944, 28.07283, 28.07198, 28.05772, 
  28.06219, 28.07112, 28.06768, 28.0718, 28.07318, 28.08056, 28.09224, 28.0955, 28.1022, 28.10203, 
  28.10684, 28.10752, 28.118, 28.12534, 28.13084, 28.13909, 28.14286, 28.153, 28.14836, 28.1396, 
  28.13909, 28.1554, 28.15369, 28.16468, 28.16999, 28.17583, 28.18665, 28.18785, 28.22235, 28.22647, 
  28.23145, 28.2208, 28.23042, 28.22098, 28.23334, 28.22527, 28.23506, 28.23334, 28.23779, 28.2438, 
  28.24192, 28.25909, 28.25995, 28.26372, 28.26699, 28.28107, 28.28432, 28.27625, 28.27951, 28.28672, 
  28.28071, 28.27127, 28.28037, 28.30355, 28.32278, 28.34442, 28.33943, 28.33359, 28.32861, 28.3238, 
  28.29977, 28.29771, 28.30561, 28.31265, 28.31711, 28.32793, 28.33772, 28.34733, 28.36431, 28.37513, 
  28.38567, 28.38388, 28.39419, 28.37255, 28.37479, 28.38887, 28.3978, 28.39178, 28.40054, 28.4172, 
  28.42746, 28.4288, 28.43412, 28.43635, 28.44664, 28.45488, 28.47737, 28.46776, 28.50431, 28.5038, 
  28.51427, 28.50947, 28.51393, 28.52046, 28.52081, 28.52681, 28.53282, 28.54243, 28.53762, 28.52956, 
  28.52767, 28.53368, 28.53402, 28.54277, 28.53711, 28.54586, 28.55187, 28.55753, 28.55187, 28.55324, 
  28.57297, 28.5728, 28.59048, 28.60386, 28.60575, 28.61453, 28.62551, 28.62414, 28.61453, 28.61676, 
  28.64559, 28.65314, 28.65708, 28.65279, 28.64593, 28.64233, 28.64559, 28.63804, 28.61589, 28.61709, 
  28.65708, 28.6485, 28.66068, 28.66712, 28.65699, 28.65545, 28.66901, 28.67948, 28.68944, 28.68326, 
  28.69511, 28.70919, 28.71777, 28.70266, 28.70661, 28.71623, 28.72578, 28.72668, 28.74008, 28.73269, 
  28.73184, 28.72325, 28.74471, 28.74059, 28.73407, 28.72909, 28.71913, 28.71741, 28.69972, 28.7042, 
  28.72172, 28.71107, 28.68395, 28.6709, 28.66352, 28.65201, 28.65957, 28.64377, 28.65647, 28.66592, 
  28.66747, 28.65356, 28.66626, 28.67657, 28.70095, 28.68875, 28.67381, 28.6666, 28.65424, 28.65218, 
  28.6455, 28.6467, 28.68189, 28.66506, 28.65063, 28.66935, 28.65527, 28.663, 28.64703, 28.63106, 
  28.62591, 28.62145, 28.62522, 28.63621, 28.65682, 28.65664, 28.68463, 28.70627, 28.70283, 28.71623, 
  28.70009, 28.66987, 28.60123, 28.56002, 28.52242, 28.50697, 28.50216, 28.5104, 28.51366, 28.49495, 
  28.4376, 28.49861, 28.51922, 28.57074, 28.57769, 28.5722, 28.57511, 28.5904, 28.58784, 28.60603, 
  28.61427, 28.62286, 28.61393, 28.61736, 28.62698, 28.6517, 28.75298, 28.76019, 28.76878, 28.78046, 
  28.79248, 28.78664, 28.8045, 28.82093, 28.81681, 28.82951, 28.82676, 28.85287, 28.85046, 28.91226, 
  28.91432, 28.93648, 28.95809, 28.95105, 28.9629, 28.97233, 28.98383, 28.99671, 28.99877, 28.98933, 
  28.99551, 29.00237, 29.00409, 29.01696, 29.01696, 29.03997, 29.05697, 29.13884, 29.14571, 29.16615, 
  29.44424, 29.45659, 29.48303, 29.52648, 29.52955, 29.54861, 29.5596, 29.57197, 29.62156, 29.77932, 
  29.85089, 29.86429, 29.92677, 29.94586, 29.94517, 29.93659, 29.91772, 29.93083, 29.92997, 29.94027, 
  29.93958, 29.95657, 29.93684, 29.96155, 29.96618, 29.95606, 29.96481, 30.02164, 30.05341, 30.14061, 
  30.18505, 30.19981, 30.22401, 30.22641, 30.20993, 30.21045, 30.23688, 30.23293, 30.21302, 30.18625, 
  30.183, 30.1945, 30.19038, 30.17734, 30.19861, 30.23277, 30.26126, 30.235, 30.21304, 30.20669, 
  30.21629, 30.19278, 30.1679, 30.17217, 30.14557, 30.11194, 30.09066, 30.06234, 30.04239, 30.02454, 
  30.01613, 30.00258, 29.95951, 29.92171, 29.78294, 29.76791, 29.74069, 29.66999, 29.64423, 29.60619, 
  29.55528, 29.45644, 29.33628, 29.31326, 29.3009, 29.26518, 29.24286, 29.20886, 29.20851, 29.18859, 
  29.1842, 29.14127, 29.12169, 29.1265, 29.0585, 29.05613, 29.02866, 28.99397, 29.0029, 29.00908, 
  29.03072, 29.05442, 29.06747, 29.0606, 29.03759, 29.03724, 29.01698, 29.00289, 28.9629, 28.91585, 
  28.88099, 28.84737, 28.82024, 28.7998, 28.80289, 28.789, 28.77664, 28.78299, 28.75518, 28.71929, 
  28.70455, 28.70386, 28.69287, 28.66694, 28.67433, 28.66318, 28.65357, 28.63399, 28.63107, 28.61527, 
  28.59415, 28.57337, 28.55146, 28.55146, 28.54356, 28.536, 28.51986, 28.50921, 28.47247, 28.43984, 
  28.45017, 28.43677, 28.42579, 28.36262, 28.30321, 28.24929, 28.21599, 28.22252, 28.18408, 28.10063, 
  28.07246, 28.02507, 28.03852, 28.00006, 28.0131, 28.02718, 28.01619, 28.02546, 28.02615, 28.05157, 
  28.05465, 28.0835, 28.0962, 28.08521, 28.06599, 28.04485, 28.0175, 28.0175, 31.07083)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_2, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, st_union(Geo_0[c(1:108, 110:213, 248)]))
Geo_2 <- st_union(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  60.03364, 60.03167, 60.02524, 60.01658, 60.00036, 59.99212, 59.98053, 59.98671, 59.99564, 60.00577, 
  59.99942, 59.99495, 59.99246, 59.98319, 59.97804, 59.97031, 59.97271, 59.97855, 59.97958, 59.98499, 
  59.98422, 59.99272, 59.99641, 60.00268, 60.00345, 60.00765, 60.01023, 60.02164, 60.01941, 60.02884, 
  60.02987)
LONGITUDE_VALUEs <- c(
  29.63883, 29.63386, 29.67075, 29.68602, 29.69943, 29.68707, 29.68741, 29.69703, 29.69908, 29.71316, 
  29.73958, 29.73478, 29.75109, 29.75195, 29.77598, 29.78404, 29.79159, 29.7849, 29.79503, 29.79228, 
  29.80361, 29.79434, 29.78061, 29.77598, 29.76842, 29.76481, 29.74903, 29.7679, 29.72277, 29.67384, 
  29.65616)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  60.10456, 60.09669, 60.05113, 60.03947, 60.0345, 60.01546, 60.01083, 60.02301, 60.07443, 60.08317, 
  60.09156)
LONGITUDE_VALUEs <- c(
  26.95656, 26.94181, 26.96858, 26.96996, 26.98025, 26.98128, 27.00771, 27.03036, 26.99055, 26.97167, 
  26.98025)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(59.86068, 59.8449, 59.83679, 59.83524, 59.84309, 59.84688, 59.85594, 59.86706)
LONGITUDE_VALUEs <- c(27.17653, 27.17429, 27.18597, 27.19799, 27.21463, 27.22939, 27.22132, 27.19438)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  60.00774, 59.99675, 59.99143, 59.9868, 59.98628, 59.98147, 59.9916, 60.00173, 60.00259, 59.98886, 
  60.00345, 60.01289, 60.00534, 60.00705, 60.02078, 60.02044, 60.02696, 60.01889)
LONGITUDE_VALUEs <- c(
  27.81212, 27.79256, 27.80629, 27.80663, 27.82002, 27.82517, 27.85605, 27.85949, 27.88145, 27.89106, 
  27.89827, 27.88729, 27.87459, 27.86155, 27.84679, 27.83306, 27.82173, 27.80114)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(60.03416, 60.02001, 60.014, 60.00259, 60.0062, 60.02078, 60.03227)
LONGITUDE_VALUEs <- c(28.35774, 28.3706, 28.37009, 28.38914, 28.40063, 28.39017, 28.38965)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  60.36619, 60.3633, 60.33833, 60.32202, 60.31403, 60.30195, 60.30076, 60.31692, 60.32202, 60.32627, 
  60.33154, 60.33765, 60.347, 60.35311, 60.36686, 60.36415, 60.36839)
LONGITUDE_VALUEs <- c(
  28.42015, 28.41466, 28.45962, 28.47714, 28.50563, 28.51009, 28.5173, 28.51558, 28.52691, 28.52347, 
  28.52691, 28.50563, 28.51112, 28.48948, 28.47953, 28.46649, 28.4483)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  60.28698, 60.29821, 60.29651, 60.30808, 60.30808, 60.3278, 60.3346, 60.34326, 60.33222, 60.33171, 
  60.34241, 60.34054, 60.35294, 60.33561, 60.31199, 60.3057, 60.29464, 60.29209, 60.27949, 60.2766, 
  60.26724, 60.26826, 60.2623, 60.28239)
LONGITUDE_VALUEs <- c(
  28.72087, 28.7044, 28.66767, 28.66184, 28.65152, 28.61514, 28.61583, 28.59352, 28.59146, 28.58322, 
  28.57979, 28.55062, 28.53757, 28.54718, 28.53895, 28.55062, 28.55645, 28.57292, 28.58976, 28.60726, 
  28.61824, 28.63437, 28.68174, 28.69787)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  60.38307, 60.38078, 60.38341, 60.37196, 60.37696, 60.38909, 60.39003, 60.41258, 60.4219, 60.41402, 
  60.43012, 60.43038, 60.43834, 60.45959, 60.46382, 60.45891, 60.45129, 60.45019, 60.42368, 60.41995, 
  60.41673, 60.40215, 60.39308, 60.38994, 60.39596, 60.38859, 60.36916, 60.36254, 60.35405, 60.35829, 
  60.35031, 60.35073, 60.3644, 60.36355)
LONGITUDE_VALUEs <- c(
  28.50037, 28.51135, 28.51615, 28.52748, 28.53331, 28.52285, 28.51512, 28.49521, 28.49642, 28.51014, 
  28.49693, 28.48372, 28.48955, 28.45625, 28.44012, 28.43806, 28.44407, 28.43326, 28.46346, 28.4765, 
  28.47514, 28.48578, 28.4995, 28.4959, 28.48663, 28.48818, 28.50741, 28.5002, 28.51239, 28.51891, 
  28.5268, 28.53332, 28.52526, 28.51908)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  60.51791, 60.51774, 60.52449, 60.52466, 60.52804, 60.51706, 60.50067, 60.48748, 60.48519, 60.47462, 
  60.47564, 60.47259, 60.46726, 60.46828, 60.46311, 60.46252, 60.45473, 60.44728, 60.44957, 60.45507, 
  60.46176, 60.4654, 60.46388, 60.46853, 60.47056, 60.47158, 60.4753, 60.47191, 60.48198, 60.48274, 
  60.49974, 60.50929, 60.51495, 60.51343)
LONGITUDE_VALUEs <- c(
  28.60158, 28.59523, 28.58442, 28.57653, 28.57052, 28.56246, 28.56984, 28.59266, 28.60931, 28.62717, 
  28.63729, 28.64913, 28.65737, 28.67161, 28.67659, 28.66492, 28.66631, 28.68913, 28.69462, 28.68141, 
  28.67677, 28.68295, 28.69187, 28.69651, 28.69427, 28.68707, 28.68552, 28.67231, 28.66373, 28.65548, 
  28.61807, 28.61721, 28.61136, 28.60467)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  60.57635, 60.56969, 60.59709, 60.59945, 60.57863, 60.58942, 60.59886, 60.60181, 60.60611, 60.60653, 
  60.61386, 60.60948, 60.62792, 60.62792, 60.63701, 60.6222, 60.61057, 60.5992, 60.59726, 60.60316, 
  60.60754, 60.60392, 60.60131, 60.59566, 60.59094, 60.59085, 60.57956, 60.57627, 60.56902, 60.5723, 
  60.56623, 60.5729, 60.55813, 60.55822, 60.56927)
LONGITUDE_VALUEs <- c(
  28.60763, 28.62908, 28.59751, 28.61175, 28.62651, 28.63938, 28.63183, 28.61261, 28.61313, 28.62685, 
  28.62548, 28.60043, 28.57656, 28.58445, 28.57347, 28.55751, 28.57244, 28.57381, 28.55974, 28.56146, 
  28.55322, 28.55425, 28.54533, 28.55803, 28.55751, 28.56455, 28.57501, 28.5642, 28.57536, 28.57759, 
  28.58755, 28.58978, 28.60351, 28.61913, 28.60609)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  60.52791, 60.52977, 60.54834, 60.55552, 60.55248, 60.54817, 60.54412, 60.53821, 60.53863, 60.52647, 
  60.52267)
LONGITUDE_VALUEs <- c(
  28.59956, 28.6054, 28.60746, 28.59545, 28.58687, 28.59682, 28.59459, 28.59905, 28.5903, 28.59339, 
  28.60266)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  60.6174, 60.61765, 60.6131, 60.61344, 60.62321, 60.62455, 60.62784, 60.6259, 60.6286, 60.6302, 
  60.63331, 60.63945, 60.64417, 60.64434, 60.64198, 60.64922, 60.64955, 60.63903, 60.62801, 60.6259, 
  60.62228, 60.61411)
LONGITUDE_VALUEs <- c(
  28.53674, 28.54137, 28.54601, 28.54841, 28.53948, 28.54652, 28.54721, 28.55253, 28.55373, 28.55132, 
  28.5551, 28.54943, 28.53553, 28.53038, 28.53021, 28.52026, 28.50825, 28.50962, 28.52009, 28.52918, 
  28.52644, 28.53657)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(60.60747, 60.59416, 60.58674, 60.58716, 60.58936, 60.58919, 60.60368, 60.60107)
LONGITUDE_VALUEs <- c(28.42908, 28.43834, 28.46048, 28.47146, 28.47095, 28.46203, 28.44538, 28.44143)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)

##### SWEDEN #####
Geo_0 <- Geometric_Operations(Geo_3, Geo_1)
Geo_3 <- st_set_geometry(Geo_3, Geo_0)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(
  66.00135, 65.99572, 65.97923, 65.97371, 65.96973, 65.96604, 65.96338, 65.95696, 65.95135, 65.9498, 
  65.9467, 65.94511, 65.93615, 65.93065, 65.9295, 65.93177, 65.92642, 65.91759, 65.91388, 65.89443, 
  65.8884, 65.87315, 65.86258, 65.863, 65.85791, 65.85079, 65.8412, 65.81547, 65.80079,
  65.80348, 65.79292, 65.78877, 65.7899, 65.7968, 65.80967, 65.81354, 65.81389, 65.81227, 65.81319, 
  65.80847, 65.82191, 65.80299, 65.80362, 65.7975, 65.80531, 65.80369, 65.79511, 65.79032, 65.7956, 
  65.79482, 65.80109, 65.79482, 65.79623, 65.78328, 65.78194, 65.77342, 65.77659, 65.76799, 65.78011, 
  65.79898, 65.80503, 65.79884, 65.79771, 65.79067, 65.78659, 65.78335, 65.77455, 65.77011, 65.77229, 
  65.77166, 65.78074, 65.77912, 65.78476, 65.7856, 65.7918, 65.78933, 65.79419, 65.79391, 65.81009, 
  65.81853, 65.82648, 65.83217, 65.83751, 65.82472, 65.81255, 65.80721, 65.80249, 65.79222, 65.79884, 
  65.81094, 65.80946, 65.79116, 65.79074, 65.78624, 65.7875, 65.78518, 65.79229, 65.78377, 65.7875, 
  65.7963, 65.80418, 65.81094, 65.81579, 65.8051, 65.81466, 65.81417, 65.80045, 65.8013, 65.79799, 
  65.80031, 65.80313, 65.81108, 65.81347, 65.81382, 65.81649, 65.8205, 65.82029, 65.80651, 65.78673, 
  65.78553, 65.79004, 65.77898, 65.78138, 65.77567, 65.77687, 65.77314, 65.77659, 65.77222, 65.7699, 
  65.76736, 65.76356, 65.76341, 65.7503, 65.75242, 65.75848, 65.75771, 65.76905, 65.76814, 65.76553, 
  65.76623, 65.75961, 65.76017, 65.7663, 65.76947, 65.77525, 65.7737, 65.77743, 65.78722, 65.79743, 
  65.8001, 65.80306, 65.80531, 65.81234, 65.81262, 65.8243, 65.81572, 65.81051, 65.79271, 65.7894, 
  65.79166, 65.80749, 65.80911, 65.80341, 65.81241, 65.81902, 65.82261, 65.82085, 65.8366, 65.84032,
  65.84868, 65.85325, 65.86406, 65.88237, 65.88034, 65.87248, 65.87494, 65.84131, 65.83379, 65.83175, 
  65.82064, 65.8141, 65.81044, 65.80503, 65.7982, 65.79511, 65.78771, 65.78588, 65.7806, 65.77905, 
  65.77307, 65.77314, 65.76595, 65.76954, 65.76292, 65.76053, 65.75312, 65.75982, 65.7496, 65.74516, 
  65.72689, 65.72138, 65.72117, 65.71644, 65.71531, 65.69667, 65.70564, 65.70987, 65.71468, 65.71926, 
  65.7247, 65.73952, 65.73895, 65.74488, 65.74495, 65.74967, 65.7551, 65.75503, 65.74939, 65.75171, 
  65.75066, 65.757, 65.75883, 65.76489, 65.76278, 65.76489, 65.76384, 65.76778, 65.77039, 65.77286, 
  65.77018, 65.7787, 65.778, 65.78539, 65.78624, 65.7982, 65.79447, 65.79616, 65.79567, 65.80418, 
  65.80566, 65.81621, 65.81769, 65.82887, 65.8392, 65.84229, 65.84714, 65.85704, 65.85774, 65.86441, 
  65.86209, 65.8689, 65.86694, 65.86069, 65.87571, 65.88265, 65.8931, 65.88714, 65.88896, 65.89598, 
  65.90488, 65.89955, 65.90537, 65.90719, 65.90607, 65.90249, 65.90193, 65.89822, 65.89121, 65.89359, 
  65.88462, 65.88216, 65.87592, 65.86504, 65.8503, 65.838, 65.83126, 65.8243, 65.81684, 65.81516, 
  65.8205, 65.82085, 65.81452, 65.80552, 65.78757, 65.78412, 65.7799, 65.77243, 65.77462, 65.76694, 
  65.757, 65.75482, 65.75749, 65.7563, 65.75038, 65.75707, 65.76201, 65.76644, 65.77152, 65.78258, 
  65.78166, 65.78462, 65.78757, 65.79208, 65.79862, 65.80271, 65.80489, 65.80784, 65.80833, 65.80615, 
  65.80179, 65.79841, 65.79672, 65.78645, 65.78039, 65.78152, 65.77772, 65.7799, 65.77603, 65.78074, 
  65.78187, 65.77736, 65.77511, 65.78208, 65.78687, 65.79095, 65.79292, 65.7906, 65.7925, 65.79609, 
  65.81375, 65.8503, 65.85605, 65.86336, 65.8576, 65.86967, 65.86055, 65.86588, 65.8444, 65.83653, 
  65.79152, 65.80883, 65.77927, 65.78448, 65.77969, 65.78279, 65.77419, 65.76898, 65.73923, 65.73923, 
  65.73063, 65.72667, 65.71976, 65.71693, 65.70889, 65.70309, 65.70055, 65.70295, 65.68953, 65.6884, 
  65.67285, 65.66549, 65.66733, 65.65856, 65.65813, 65.66691, 65.66294, 65.66245, 65.65148, 65.65169, 
  65.64738, 65.63208, 65.64313, 65.64391, 65.63768, 65.63768, 65.62025, 65.6194, 65.61671, 65.61876, 
  65.6165, 65.61749, 65.61465, 65.62549, 65.61947, 65.61487, 65.61175, 65.60501, 65.60813, 65.6048, 
  65.60062, 65.60423, 65.60203, 65.57834, 65.56762, 65.55242, 65.55029, 65.53529, 65.54709, 65.56379, 
  65.56158, 65.55619, 65.5613, 65.54873, 65.54461, 65.54866, 65.54731, 65.55683, 65.57117, 65.57962, 
  65.58047, 65.57777, 65.57798, 65.58842, 65.58473, 65.5909, 65.5926, 65.59544, 65.59274, 65.59381,
  65.60687, 65.61141, 65.61772, 65.60836, 65.60552, 65.59936, 65.59843, 65.59091, 65.59248, 65.5873, 
  65.59482, 65.60347, 65.61963, 65.6231, 65.63281, 65.63713, 65.64095, 65.6418, 65.6476, 65.64463, 
  65.6452, 65.64888, 65.6532, 65.65822, 65.6694, 65.67307, 65.68262, 65.69032, 65.70721, 65.70375, 
  65.72387, 65.68849, 65.68022, 65.6689, 65.65525, 65.66041, 65.6498, 65.63592, 65.62657, 65.61736, 
  65.61353, 65.60694, 65.59666, 65.5895, 65.58268, 65.58765, 65.58148, 65.58176, 65.57502, 65.56906, 
  65.56082, 65.55578, 65.54761, 65.54448, 65.55116, 65.55414, 65.55286, 65.54149, 65.53552, 65.52927, 
  65.5245, 65.51319, 65.51511, 65.52201, 65.52756, 65.51846, 65.50408, 65.50423, 65.51981, 65.51718, 
  65.51746, 65.51326, 65.51469, 65.51291, 65.52002, 65.51732, 65.51924, 65.51846, 65.52208, 65.52237, 
  65.52856, 65.52578, 65.53588, 65.52023, 65.52493, 65.48927, 65.49269, 65.51397, 65.51597, 65.51013, 
  65.46783, 65.47296, 65.4674, 65.47389, 65.47189, 65.46469, 65.46626, 65.45813, 65.45307, 65.44515, 
  65.44587, 65.43674, 65.43745, 65.43017, 65.42746, 65.42282, 65.41525, 65.41696, 65.41068, 65.41025, 
  65.43681, 65.44023, 65.43588, 65.41025, 65.40882, 65.39703, 65.40382, 65.4091, 65.39939, 65.4066, 
  65.41803, 65.40368, 65.40196, 65.39274, 65.40103, 65.3966, 65.39732, 65.3996, 65.40039, 65.39431, 
  65.38581, 65.37515, 65.37229, 65.36893, 65.36628, 65.36091, 65.35683, 65.34831, 65.3521, 65.35103, 
  65.35811, 65.36384, 65.37006, 65.37636, 65.37943, 65.3833, 65.3903, 65.39052, 65.37529, 65.38065, 
  65.38036, 65.38558, 65.38809, 65.39523, 65.39824, 65.39609, 65.40617, 65.40452, 65.4076, 65.40345, 
  65.41038, 65.41124, 65.41745, 65.41967, 65.42317, 65.42966, 65.42424, 65.42345, 65.42038, 65.41967, 
  65.41381, 65.4086, 65.40567, 65.40338, 65.39888, 65.39659, 65.38673, 65.38365, 65.37879, 65.36212, 
  65.35575, 65.35203, 65.34365, 65.34186, 65.33742, 65.34244, 65.34179, 65.34945, 65.35153, 65.34738, 
  65.34365, 65.34193, 65.35283, 65.35469, 65.36335, 65.36728, 65.36929, 65.37301, 65.37522, 65.37723, 
  65.38216, 65.3833, 65.38545, 65.38459, 65.39267, 65.39317, 65.39624, 65.39732, 65.39989, 65.39732, 
  65.40518, 65.39724, 65.39424, 65.3931, 65.38488, 65.38445, 65.37916, 65.37858, 65.37522, 65.37415, 
  65.37773, 65.3768, 65.38745, 65.38645, 65.38917, 65.38838, 65.39002, 65.38767, 65.38831, 65.38302, 
  65.37279, 65.37508, 65.37279, 65.37358, 65.3675, 65.36328, 65.36385, 65.3597, 65.36262, 65.3579,
  65.35804, 65.36076, 65.35862, 65.36133, 65.35947, 65.35618, 65.35697, 65.35296, 65.35332, 65.34952, 
  65.34945, 65.33692, 65.33076, 65.32567, 65.32388, 65.31714, 65.31743, 65.32309, 65.32288, 65.32789, 
  65.32804, 65.34358, 65.34107, 65.34129, 65.33606, 65.33248, 65.32718, 65.32567, 65.33799, 65.33542, 
  65.33577, 65.32108, 65.31944, 65.31478, 65.32001, 65.31893, 65.31772, 65.31277, 65.31205, 65.30589, 
  65.30309, 65.29505, 65.28982, 65.29175, 65.30811, 65.30703, 65.31435, 65.31772, 65.32051, 65.32388, 
  65.32574, 65.31392, 65.31463, 65.31069, 65.29699, 65.29498, 65.28056, 65.26936, 65.2611, 65.26167, 
  65.25815, 65.25923, 65.25715, 65.25722, 65.24651, 65.23939, 65.24471, 65.23911, 65.23594, 65.22875, 
  65.23659, 65.23026, 65.23652, 65.21573, 65.18995, 65.21076, 65.20882, 65.21623, 65.22048, 65.22256, 
  65.22753, 65.23004, 65.234, 65.23486, 65.23134, 65.23637, 65.24838, 65.24601, 65.23609, 65.23378, 
  65.22796, 65.21567, 65.20422, 65.15522, 65.13805, 65.14281, 65.12722, 65.12346, 65.11335, 65.11111, 
  65.09514, 65.09506, 65.09051, 65.09543, 65.08169, 65.07727, 65.06751, 65.06338, 65.06352, 65.05592, 
  65.05628, 65.06627, 65.06301, 65.05614, 65.06366, 65.07126, 65.06699, 65.04926, 65.03991, 65.04209, 
  65.03694, 65.04107, 65.03441, 65.03448, 65.01977, 65.0239, 65.01085, 65.02115, 65.00991, 65.00461, 
  64.99692, 64.99402, 64.97253, 64.96636, 64.95597, 64.95902, 64.95415, 64.9644, 64.95517, 64.95757, 
  64.95285, 64.94427, 67.28652)
LONGITUDE_VALUEs <- c(
  24.04598, 24.04915, 24.04923, 24.05283, 24.03902, 24.0431, 24.04207, 24.0504, 24.05377, 24.06121, 
  24.06464, 24.0734, 24.08091, 24.08983, 24.09987, 24.10742, 24.11901, 24.11532, 24.10957, 24.11798, 
  24.13282, 24.14116, 24.15291, 24.13077, 24.12528, 24.12536, 24.1451, 24.15532, 24.14159,
  24.13659, 24.11461, 24.11204, 24.10363, 24.099, 24.13573, 24.13368, 24.12371, 24.11427, 24.0923, 
  24.07016, 24.03687, 24.03686, 24.02965, 24.02742, 24.01129, 24.00099, 24.01163, 23.99584, 23.9845, 
  23.96373, 23.94623, 23.94468, 23.92786, 23.93472, 23.94296, 23.94279, 23.92683, 23.90859, 23.87735, 
  23.86946, 23.84749, 23.84783, 23.82964, 23.84749, 23.83378, 23.84271, 23.82108, 23.82211, 23.807, 
  23.79808, 23.78418, 23.76581, 23.76273, 23.75414, 23.75363, 23.76358, 23.77148, 23.78692, 23.75568, 
  23.75825, 23.73637, 23.7362, 23.67746, 23.66529, 23.6737, 23.65944, 23.66101, 23.6404, 23.61962, 
  23.61259, 23.59714, 23.60384, 23.6095, 23.61122, 23.6004, 23.59577, 23.5743, 23.5767, 23.55094, 
  23.55388, 23.5659, 23.56693, 23.55148, 23.54031, 23.5072, 23.48539, 23.49226, 23.48179, 23.472, 
  23.46942, 23.47732, 23.46788, 23.47046, 23.47784, 23.4775, 23.44951, 23.42495, 23.40952, 23.41553, 
  23.42051, 23.42171, 23.43287, 23.40831, 23.40814, 23.41656, 23.41741, 23.42875, 23.42875, 23.43957, 
  23.42257, 23.41913, 23.41244, 23.40248, 23.37963, 23.38479, 23.40557, 23.40763, 23.40351, 23.40144, 
  23.39475, 23.39183, 23.3829, 23.38942, 23.4023, 23.40299, 23.39423, 23.38066, 23.37845, 23.36591, 
  23.35441, 23.35493, 23.34669, 23.3527, 23.34412, 23.34223, 23.33742, 23.32248, 23.30773, 23.29141, 
  23.28145, 23.26908, 23.25845, 23.2521, 23.23132, 23.23545, 23.22892, 23.22291, 23.19528, 23.17244,
  23.16138, 23.13135, 23.11709, 23.06251, 23.04381, 23.04793, 23.05376, 23.15811, 23.16448, 23.17615, 
  23.19348, 23.19125, 23.2, 23.1892, 23.2007, 23.18663, 23.19624, 23.20962, 23.21049, 23.22301, 
  23.22456, 23.23571, 23.22353, 23.1995, 23.19417, 23.16723, 23.15727, 23.14681, 23.12879, 23.15281, 
  23.14028, 23.15366, 23.13376, 23.12312, 23.09875, 23.09839, 23.07952, 23.08122, 23.07539, 23.07934, 
  23.07367, 23.09564, 23.07676, 23.07212, 23.06114, 23.06509, 23.05633, 23.03642, 23.03007, 23.02389, 
  23.00553, 23.00214, 22.99031, 22.97588, 22.97022, 22.96541, 22.9515, 22.95407, 22.93468, 22.93949, 
  22.9522, 22.94103, 22.92732, 22.90775, 22.88852, 22.86791, 22.85451, 22.84747, 22.83682, 22.83685, 
  22.825, 22.82964, 22.842, 22.83547, 22.81025, 22.79719, 22.8008, 22.78981, 22.78225, 22.77625, 
  22.77161, 22.76577, 22.75839, 22.76045, 22.72562, 22.72287, 22.69865, 22.68285, 22.67873, 22.68785, 
  22.6681, 22.6535, 22.65401, 22.64766, 22.63358, 22.63066, 22.64491, 22.63323, 22.64457, 22.65831, 
  22.66277, 22.67822, 22.67565, 22.69007, 22.68509, 22.69282, 22.70501, 22.7081, 22.7184, 22.71617, 
  22.70483, 22.69642, 22.70209, 22.69882, 22.71136, 22.68285, 22.69386, 22.69042, 22.69901, 22.68974, 
  22.69609, 22.68819, 22.6827, 22.67291, 22.67136, 22.65075, 22.66123, 22.65642, 22.68081, 22.67669, 
  22.65711, 22.66295, 22.64666, 22.64013, 22.61815, 22.61334, 22.6233, 22.61746, 22.60716, 22.58844, 
  22.59205, 22.60321, 22.57195, 22.54604, 22.54914, 22.54141, 22.54587, 22.53694, 22.53368, 22.53213, 
  22.52303, 22.52784, 22.52166, 22.50191, 22.50311, 22.49298, 22.49624, 22.50775, 22.51256, 22.50485, 
  22.53203, 22.44581, 22.46848, 22.42836, 22.40363, 22.37375, 22.36516, 22.34661, 22.3655, 22.33871, 
  22.37272, 22.31467, 22.35761, 22.33356, 22.3291, 22.31192, 22.28994, 22.31914, 22.35451, 22.33425, 
  22.33187, 22.30783, 22.31985, 22.30955, 22.34184, 22.33221, 22.33633, 22.35556, 22.36621, 22.35316, 
  22.37068, 22.36518, 22.34182, 22.34491, 22.33235, 22.31277, 22.31225, 22.29972, 22.32788, 22.31449, 
  22.30814, 22.31243, 22.32136, 22.3406, 22.35, 22.367, 22.38658, 22.37939, 22.38076, 22.37132, 
  22.36874, 22.35964, 22.35689, 22.33766, 22.33748, 22.34281, 22.33165, 22.33319, 22.32254, 22.31361, 
  22.31378, 22.30004, 22.29386, 22.37663, 22.38229, 22.40084, 22.39534, 22.39774, 22.35243, 22.3186, 
  22.30572, 22.30521, 22.27859, 22.30487, 22.30058, 22.26367, 22.25233, 22.19669, 22.17183, 22.17097, 
  22.14469, 22.14093, 22.13114, 22.12359, 22.149, 22.1454, 22.1521, 22.14437, 22.13956, 22.12909,
  22.09491, 22.09165, 22.06162, 22.05716, 22.07003, 22.07346, 22.08633, 22.07569, 22.06058, 22.05406, 
  22.02248, 22.01116, 22.02762, 22.0223, 22.01784, 22.00428, 22.00152, 21.9835, 21.97372, 21.96651, 
  21.94609, 21.94575, 21.9217, 21.932, 21.89922, 21.84086, 21.82969, 21.83466, 21.80841, 21.806, 
  21.76292, 21.79536, 21.81493, 21.82076, 21.85922, 21.87724, 21.88445, 21.94196, 21.94214, 21.96668, 
  21.96411, 21.97389, 22.00307, 22.01337, 22.05251, 22.06968, 22.09405, 22.10966, 22.11654, 22.12993, 
  22.13988, 22.13755, 22.1427, 22.16812, 22.17138, 22.17791, 22.18358, 22.18237, 22.15884, 22.15009, 
  22.15918, 22.13703, 22.12208, 22.11556, 22.07606, 22.06408, 22.06923, 22.06287, 22.04108, 22.03198, 
  22.02219, 22.01274, 22.0057, 21.99625, 21.97363, 21.96916, 21.96178, 21.95439, 21.94443, 21.93552, 
  21.91406, 21.89327, 21.8627, 21.88177, 21.83059, 21.9096, 21.91544, 21.87131, 21.88693, 21.90993, 
  21.981, 21.99474, 22.01415, 22.01432, 22.03304, 22.03352, 22.02253, 22.0203, 22.00244, 22.00657, 
  21.99747, 22.00623, 21.9997, 22.00726, 21.9961, 21.99232, 21.99713, 21.98545, 21.9937, 21.98992, 
  21.9465, 21.91455, 21.89326, 21.93259, 21.91731, 21.92281, 21.89344, 21.88897, 21.87729, 21.85569, 
  21.8471, 21.84625, 21.82272, 21.82478, 21.78872, 21.78099, 21.76951, 21.76968, 21.7592, 21.74941, 
  21.78651, 21.79216, 21.80436, 21.80762, 21.81552, 21.81174, 21.82376, 21.83011, 21.81225, 21.79782, 
  21.78889, 21.75458, 21.75355, 21.73399, 21.73382, 21.7218, 21.72128, 21.71235, 21.71733, 21.70084, 
  21.68195, 21.67714, 21.66186, 21.65262, 21.65467, 21.66979, 21.66326, 21.65347, 21.64368, 21.6253, 
  21.61314, 21.59802, 21.59425, 21.58429, 21.58499, 21.54326, 21.54618, 21.55975, 21.55837, 21.5649, 
  21.55786, 21.56559, 21.56233, 21.57245, 21.56798, 21.57468, 21.58018, 21.59322, 21.59665, 21.64489, 
  21.63596, 21.65896, 21.68026, 21.6794, 21.68421, 21.66188, 21.65518, 21.64333, 21.63406, 21.62994, 
  21.63818, 21.63371, 21.59613, 21.57948, 21.58858, 21.58394, 21.58738, 21.58464, 21.58635, 21.58275, 
  21.5824, 21.57244, 21.57055, 21.56008, 21.55613, 21.56181, 21.55494, 21.53158, 21.51612, 21.51355, 
  21.49657, 21.5, 21.51494, 21.50945, 21.50773, 21.51562, 21.52609, 21.54636, 21.54567, 21.52781, 
  21.52266, 21.51476, 21.48385, 21.47682, 21.4715, 21.46721, 21.45725, 21.45587, 21.44917, 21.44935, 
  21.46722, 21.47117, 21.4801, 21.48954, 21.49109, 21.49882, 21.49315, 21.49418, 21.48405, 21.4789,
  21.46699, 21.46253, 21.45532, 21.44451, 21.43884, 21.44983, 21.46098, 21.46047, 21.4512, 21.45103, 
  21.46304, 21.48142, 21.50132, 21.50047, 21.4948, 21.49188, 21.5039, 21.51282, 21.52587, 21.5293, 
  21.53908, 21.54785, 21.55763, 21.57222, 21.57222, 21.58184, 21.58613, 21.59454, 21.60587, 21.61342, 
  21.62629, 21.63762, 21.62955, 21.62595, 21.60123, 21.59128, 21.59747, 21.60296, 21.61119, 21.62115, 
  21.61308, 21.64775, 21.65411, 21.67436, 21.67265, 21.68106, 21.68089, 21.67162, 21.67316, 21.66046, 
  21.66149, 21.69675, 21.7007, 21.70978, 21.70875, 21.68264, 21.66601, 21.66327, 21.67082, 21.65914, 
  21.6545, 21.64678, 21.64626, 21.63784, 21.64042, 21.65281, 21.6346, 21.64181, 21.65315, 21.66431, 
  21.66569, 21.68561, 21.68406, 21.73383, 21.75082, 21.69692, 21.68764, 21.66703, 21.66448, 21.65572, 
  21.65572, 21.65023, 21.65229, 21.64628, 21.63821, 21.62397, 21.6135, 21.58842, 21.56064, 21.53951, 
  21.52492, 21.54294, 21.53033, 21.5863, 21.57703, 21.50387, 21.531, 21.52695, 21.53486, 21.52575, 
  21.52885, 21.52439, 21.51717, 21.50635, 21.5103, 21.53725, 21.55099, 21.54361, 21.53555, 21.54139, 
  21.52851, 21.51632, 21.50601, 21.51254, 21.46961, 21.46102, 21.44165, 21.44611, 21.45348, 21.47615, 
  21.49573, 21.50964, 21.51906, 21.53606, 21.5237, 21.50326, 21.50046, 21.37578, 21.40422, 21.38293, 
  21.39701, 21.3613, 21.35598, 21.37898, 21.38792, 21.36696, 21.35271, 21.33763, 21.29092, 21.27822, 
  21.27701, 21.22927, 19.09920)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_3, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_3 <- st_set_geometry(Geo_3, st_union(Geo_0[c(1:18, 20)]))
Geo_3 <- st_union(Geo_3, Geo)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(
  65.71778, 65.70776, 65.70507, 65.69843, 65.70338, 65.70352, 65.71228, 65.7175, 65.73006, 65.72872, 
  65.74763, 65.75425, 65.74904, 65.74459, 65.73923, 65.74177, 65.7441, 65.74826, 65.735, 65.7374, 
  65.74332, 65.74375, 65.73676, 65.73324, 65.75002, 65.74551, 65.73338, 65.71771)
LONGITUDE_VALUEs <- c(
  23.68476, 23.68888, 23.72663, 23.74483, 23.75341, 23.76542, 23.76164, 23.78567, 23.78293, 23.79637, 
  23.80563, 23.79619, 23.78761, 23.79876, 23.79172, 23.78383, 23.79069, 23.77302, 23.75156, 23.74349, 
  23.74126, 23.71534, 23.71655, 23.69767, 23.69095, 23.67516, 23.68323, 23.67894)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  65.71588, 65.70592, 65.71086, 65.70896, 65.70295, 65.70663, 65.71348, 65.72992, 65.73606, 65.73874, 
  65.74205, 65.74516, 65.75834, 65.75686, 65.75947, 65.75813, 65.76659, 65.76666, 65.77208, 65.77434, 
  65.76158, 65.75982, 65.75327, 65.7508, 65.74057, 65.73161, 65.72724, 65.72244)
LONGITUDE_VALUEs <- c(
  22.73156, 22.76795, 22.78048, 22.7997, 22.81514, 22.81943, 22.80759, 22.80347, 22.79695, 22.79867, 
  22.79472, 22.79918, 22.78064, 22.77566, 22.76348, 22.75593, 22.7561, 22.74837, 22.74939, 22.73601, 
  22.73309, 22.73824, 22.73429, 22.74133, 22.73034, 22.74013, 22.72279, 22.7324)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  65.73147, 65.72773, 65.70853, 65.70599, 65.68684, 65.67122, 65.6674, 65.67384, 65.67553, 65.69271, 
  65.69349, 65.69836, 65.70309, 65.6908, 65.6925, 65.70903, 65.72484, 65.73006, 65.72618, 65.73253, 
  65.74177, 65.74227, 65.74593, 65.74149, 65.74086, 65.74382, 65.73867)
LONGITUDE_VALUEs <- c(
  22.87952, 22.87385, 22.87849, 22.89703, 22.92879, 22.93857, 22.96912, 22.96998, 22.96089, 22.95728, 
  22.96552, 22.95883, 22.96415, 22.98371, 22.99161, 22.9844, 22.93239, 22.93411, 22.96397, 22.96963, 
  22.94989, 22.93205, 22.919, 22.9154, 22.90304, 22.89051, 22.87644)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(65.23615, 65.21356, 65.20896, 65.20046, 65.1911, 65.22004, 65.23658)
LONGITUDE_VALUEs <- c(21.75701, 21.78929, 21.8243, 21.82396, 21.85141, 21.84077, 21.78586)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  65.26547, 65.28658, 65.28859, 65.285, 65.28285, 65.26391, 65.25182, 65.25426, 65.24665, 65.25642, 65.25153, 
  65.24607, 65.2419, 65.24765, 65.26332)
LONGITUDE_VALUEs <- c(
  21.8243, 21.78208, 21.74604, 21.7426, 21.75839, 21.75379, 21.78997, 21.80439, 21.81915, 21.83322, 21.84523, 
  21.84283, 21.85622, 21.86892, 21.85141)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  65.45512, 65.43287, 65.42716, 65.41816, 65.41759, 65.4273, 65.43601, 65.43972, 65.45455, 65.46311, 
  65.47252, 65.48064, 65.47223, 65.47237, 65.45812)
LONGITUDE_VALUEs <- c(
  22.1412, 22.14669, 22.19818, 22.22117, 22.23525, 22.22769, 22.23833, 22.21396, 22.19749, 22.2222, 
  22.17585, 22.17173, 22.15388, 22.13534, 22.16246)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  65.5508, 65.5454, 65.53858, 65.53858, 65.52592, 65.51924, 65.51284, 65.50088, 65.49604, 65.47439, 
  65.47453, 65.51013, 65.51881, 65.48949, 65.50074, 65.50714, 65.50686, 65.52137, 65.5336)
LONGITUDE_VALUEs <- c(
  22.21142, 22.19666, 22.19426, 22.17812, 22.19631, 22.19254, 22.2121, 22.22034, 22.25226, 22.26977, 
  22.28796, 22.26153, 22.27629, 22.34906, 22.37206, 22.35527, 22.3333, 22.32232, 22.25024)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(65.46512, 65.43845, 65.44016, 65.45129, 65.45942, 65.44815, 65.43045, 65.43374, 65.43103, 65.44915)
LONGITUDE_VALUEs <- c(22.37174, 22.34703, 22.31442, 22.32094, 22.28525, 22.2952, 22.27701, 22.34051, 22.37449, 22.42426)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(65.50515, 65.47709, 65.47424, 65.48365, 65.50643, 65.51027, 65.50458)
LONGITUDE_VALUEs <- c(22.5585, 22.57944, 22.53207, 22.50324, 22.50324, 22.5331, 22.54786)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  65.57836, 65.57765, 65.58091, 65.58531, 65.60077, 65.59482, 65.58744, 65.59099, 65.59425, 65.5995, 
  65.5985, 65.61254, 65.62119, 65.60474, 65.59226, 65.58602, 65.57921, 65.57608, 65.58432, 65.57878, 
  65.56188, 65.56075, 65.55436, 65.56188, 65.55265, 65.56402, 65.56487, 65.57594, 65.5741)
LONGITUDE_VALUEs <- c(
  22.62613, 22.64021, 22.64021, 22.65497, 22.63437, 22.62922, 22.5997, 22.59181, 22.6052, 22.60073, 
  22.61618, 22.60485, 22.57774, 22.54959, 22.58803, 22.57533, 22.58185, 22.57156, 22.53826, 22.52659, 
  22.53929, 22.55199, 22.56812, 22.5695, 22.60211, 22.60897, 22.62133, 22.61172, 22.62545)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(65.33305, 65.32001, 65.31643, 65.31865, 65.31435, 65.31643, 65.33448)
LONGITUDE_VALUEs <- c(21.74752, 21.76073, 21.78991, 21.80467, 21.81479, 21.82063, 21.77515)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(65.39974, 65.38873, 65.37629, 65.36913, 65.37035, 65.38894, 65.39002, 65.39881)
LONGITUDE_VALUEs <- c(21.97634, 21.96844, 21.9808, 22.00174, 22.02508, 22.01684, 22.00242, 21.99213)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  65.33914, 65.34057, 65.33434, 65.33692, 65.34466, 65.34602, 65.35454, 65.35067, 65.35382, 65.35146, 
  65.34093, 65.34007, 65.34716, 65.34322, 65.33169, 65.33348)
LONGITUDE_VALUEs <- c(
  21.50786, 21.51336, 21.52434, 21.53344, 21.52159, 21.53395, 21.51318, 21.50855, 21.4907, 21.48332, 
  21.50306, 21.4998, 21.48212, 21.47611, 21.50529, 21.51748)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  65.51717, 65.51425, 65.5102, 65.4919, 65.48855, 65.49696, 65.49454, 65.50079, 65.50286, 65.51183,
  65.51475, 65.51361)
LONGITUDE_VALUEs <- c(
  22.07744, 22.07401, 22.08122, 22.08087, 22.08997, 22.08808, 22.10902, 22.10271, 22.12498, 22.1164, 
  22.09769, 22.08791)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(65.53275, 65.52749, 65.51582, 65.51269, 65.52294, 65.53176, 65.54341)
LONGITUDE_VALUEs <- c(22.55405, 22.54513, 22.56332, 22.61652, 22.61721, 22.57121, 22.54478)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  65.74278, 65.73403, 65.72965, 65.72711, 65.71921, 65.70707, 65.70947, 65.71413, 65.71631, 65.73657, 
  65.74334, 65.7178, 65.71752, 65.73219, 65.74292, 65.74926, 65.75081, 65.7573, 65.76336, 65.76153,
  65.75335, 65.75688, 65.76181, 65.76012, 65.74489)
LONGITUDE_VALUEs <- c(
  23.20396, 23.21185, 23.2273, 23.22352, 23.24412, 23.25613, 23.263, 23.25476, 23.26486, 23.24515, 
  23.25888, 23.28977, 23.31483, 23.27982, 23.2805, 23.25751, 23.27844, 23.26574, 23.27947, 23.23897, 
  23.25167, 23.23005, 23.22352, 23.18817, 23.1916)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(65.79554, 65.78871, 65.78653, 65.7842, 65.78878, 65.79371, 65.79765)
LONGITUDE_VALUEs <- c(23.20389, 23.22345, 23.21985, 23.23375, 23.24645, 23.24508, 23.22191)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(65.75687, 65.75179, 65.75024, 65.74439, 65.75419, 65.76145)
LONGITUDE_VALUEs <- c(23.41486, 23.41503, 23.40816, 23.42996, 23.43168, 23.42121)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  65.72915, 65.72365, 65.71666, 65.71158, 65.70875, 65.71334, 65.71744, 65.7204, 65.72428, 65.7288, 
  65.73945, 65.74368, 65.74672, 65.74178, 65.73966)
LONGITUDE_VALUEs <- c(
  23.49434, 23.48387, 23.50789, 23.50446, 23.51356, 23.51785, 23.51167, 23.51665, 23.51201, 23.51442, 
  23.49639, 23.49708, 23.48781, 23.49141, 23.48575)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(65.77815, 65.76547, 65.76307, 65.76652, 65.77336)
LONGITUDE_VALUEs <- c(23.84486, 23.83868, 23.84932, 23.86511, 23.85825)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(65.64845, 65.64845, 65.63889, 65.63896, 65.63487, 65.63598, 65.63889, 65.64073, 65.65729)
LONGITUDE_VALUEs <- c(23.77569, 23.76333, 23.76951, 23.79354, 23.80433, 23.81568, 23.80452, 23.80521, 23.78341)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  65.58324, 65.57927, 65.56955, 65.57168, 65.56053, 65.56436, 65.58466, 65.60041, 65.60502, 65.60786, 
  65.59772)
LONGITUDE_VALUEs <- c(
  23.7393, 23.72231, 23.72163, 23.73501, 23.75973, 23.77809, 23.74977, 23.75062, 23.76453, 23.76041, 
  23.74136)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(65.80103, 65.80349, 65.80574, 65.80841, 65.81073, 65.80482, 65.79821, 65.79744)
LONGITUDE_VALUEs <- c(24.08863, 24.1015, 24.1039, 24.11111, 24.09292, 24.07061, 24.0761, 24.08537)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo) %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("FINLAND", "RUSSIAN FEDERATION", "SWEDEN"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, MGeo_1)

Numeric Code (M49_CODE) for ANTARCTICA.

No suitable Geometries in available sources.

We create our own Geometries (ice shelves are not included).

Ice shelves could be included to retrieve climate data because ice shelves have an influence on climate environment.

##### ANTARCTICA #####
LATITUDE_VALUEs <- c(
  -84.35652, -84.36462, -84.29187, -84.41723, -84.39743, -84.40386, -84.36893, -84.39582, -84.43324, -84.49155, 
  -84.54351, -84.48891, -84.41456, -84.43697, -84.65825, -84.78309, -84.81744, -84.85107, -84.86485, -84.77058, 
  -84.80651, -84.93226, -85.0179, -85.02656, -85.04284, -90, -90)
LONGITUDE_VALUEs <- c(
  -180, -179.8894, -178.456, -177.7365, -177.5381, -177.2745, -176.9724, -176.0498, -176.5166, -176.0222, 
  -175.8684, -175.2094, -175.1984, -173.6003, -168.151, -167.9419, -167.4421, -167.5794, -167.4037, -166.4426, 
  -165.2556, -163.3334, -162.9542, -162.526, -162.5123, -162.2836, -180)
MGeo_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  -90, -85.00968, -84.93069, -84.89612, -84.88682, -84.90198, -84.87849, -84.87506, -84.85638, -84.83615, 
  -84.79395, -84.79345, -84.76346, -84.64226, -84.61036, -84.54339, -84.51301, -84.48299, -84.47506, -84.42993, 
  -84.41444, -84.44324, -84.36827, -84.35532, -84.37635, -84.36072, -84.38765, -84.37043, -84.36666, -84.34071, 
  -84.29394, -84.26052, -84.24182, -84.22083, -84.13222, -84.11534, -84.07976, -84.05307, -84.06501, -84.04053, 
  -83.98265, -83.97689, -83.91723, -83.89624, -83.80325, -83.76459, -83.7902, -83.808, -83.8346, -83.77651, 
  -83.78009, -83.82338, -83.83578, -83.78722, -83.75982, -83.75504, -83.73709, -83.74846, -83.71608, -83.71187, 
  -83.60875, -83.53743, -83.51265, -83.47905, -83.47718, -83.45906, -83.43837, -83.29048, -83.15304, -82.92839, 
  -82.76214, -82.75591, -82.91011, -82.92027, -82.87272, -82.87408, -82.9392, -83.11129, -83.18925, -83.31319, 
  -83.22952, -83.25667, -83.20292, -83.21396, -83.19186, -83.20552, -83.17033, -83.20487, -83.26505, -83.28306, 
  -83.46371, -83.48244, -83.52223, -83.51603, -83.39773, -83.31895, -83.33618, -83.38129, -83.40593, -83.46184, 
  -83.47496, -83.53523, -83.5092, -83.51727, -83.48868, -83.52595, -83.48307, -83.55561, -83.52904, -83.46059, 
  -83.40845, -83.37812, -83.34319, -83.30999, -83.29526, -83.22045, -83.18143, -83.16837, -83.13628, -83.03377, 
  -83.05904, -83.07363, -83.01376, -82.94932, -82.86658, -82.79391, -82.56078, -82.34215, -82.10959, -82.06725, 
  -81.94682, -81.82093, -81.76447, -81.67985, -81.40846, -81.37805, -81.24445, -81.28865, -81.23357, -81.04318, 
  -81.17674, -81.07164, -80.90617, -80.84956, -80.86527, -80.83645, -80.81543, -80.7512, -80.7406, -80.76179, 
  -80.72379, -80.70607, -80.68831, -80.67941, -80.65536, -80.62857, -80.6616, -80.62588, -80.62588, -80.59362, 
  -80.61245, -80.58913, -80.56845, -80.54682, -80.53057, -80.51519, -80.48981, -80.42424, -80.33663, -80.31447, 
  -80.29875, -80.24491, -80.21602, -80.22069, -80.18329, -80.12694, -80.11374, -80.07121, -80.10336, -80.13165, 
  -80.14299, -80.12793, -80.10153, -80.08452, -80.05136, -80.06984, -80.04234, -80.02427, -80.00236, -79.94594, 
  -79.93778, -79.90414, -79.88727, -79.87376, -79.86893, -79.85685, -79.86216, -79.88775, -79.88727, -79.91665, 
  -79.90703, -79.89306, -79.881, -79.86461, -79.86727, -79.83654, -79.84501, -79.83872, -79.80304, -79.80158, 
  -79.82271, -79.81835, -79.79282, -79.77504, -79.72639, -79.67286, -79.65611, -79.62895, -79.64673, -79.56547, 
  -79.56298, -79.34532, -79.25962, -79.31374, -79.21654, -79.14642, -79.17638, -79.11846, -79.16812, -79.08731, 
  -78.66125, -78.59083, -78.55492, -78.497, -78.46849, -78.42117, -78.44651, -78.40904, -78.39579, -78.35816, 
  -78.30817, -78.29592, -78.20868, -78.26089, -78.16933, -78.20307, -78.18509, -78.20532, -78.15919, -78.25126, 
  -78.25462, -78.19183, -78.16483, -77.97354, -77.9827, -77.89949, -77.90698, -77.87183, -77.83195, -77.75238, 
  -77.73372, -77.62177, -77.57458, -77.49751, -77.41579, -77.37384, -77.27802, -77.19611, -77.11368, -77.04612, 
  -77.36783, -77.35401, -77.32391, -77.24289, -77.15099, -77.06889, -77.06458, -77.11123, -77.16811, -77.16628, 
  -77.13574, -77.1131, -77.11034, -77.15682, -77.16201, -77.15041, -77.16018, -77.17269, -77.17695, -77.20983, 
  -77.24717, -77.29498, -77.33208, -77.3387, -77.37417, -77.38797, -77.40685, -77.4478, -77.43944, -77.45258, 
  -77.46838, -77.46719, -77.48625, -77.46212, -77.47136, -77.4922, -77.5219, -77.49695, -77.49487, -77.43466, 
  -77.41673, -77.41792, -77.40266, -77.38107, -77.36246, -77.34923, -77.34231, -77.31822, -77.30193, -77.30736, 
  -77.34081, -77.35705, -77.43735, -77.43556, -77.42659, -77.41673, -77.39756, -77.38587, -77.39367, -77.39127, 
  -77.41164, -77.45258, -77.47106, -77.50052, -77.51032, -77.59406, -77.6353, -77.6588, -77.76577, -77.78903, 
  -77.82036, -77.81952, -77.79371, -77.80039, -77.77657, -77.77453, -77.76348, -77.7562, -77.74134, -77.72967, 
  -77.70279, -77.68994, -77.675, -77.65447, -77.6527, -77.66034, -77.64565, -77.63742, -77.59973, -77.59472, 
  -77.60645, -77.61323, -77.60438, -77.60851, -77.68021, -77.67611, -77.71094, -77.689, -77.7086, -77.6764, 
  -77.66995, -77.63001, -77.55358, -77.54766, -77.56186, -77.53314, -77.52128, -77.49811, -77.50732, -77.49157, 
  -77.49543, -77.47966, -77.45732, -77.44538, -77.4418, -77.43164, -77.42178, -77.40412, -77.39813, -77.34649, 
  -77.3501, -77.33144, -77.28135, -77.26562, -77.24744, -77.23652, -77.23167, -77.21436, -77.21922, -77.19915, 
  -77.17692, -77.12317, -77.09805, -77.12041, -77.1888, -77.20037, -77.26895, -77.27923, -77.31909, -77.32481, 
  -77.34589, -77.37294, -77.4125, -77.41101, -77.42596, -77.43045, -77.42477, -77.4119, -77.41011, -77.39154, 
  -77.34348, -77.33686, -77.38674, -77.38554, -77.3501, -77.34619, -77.36423, -77.35461, -77.26743, -77.23258, 
  -77.24768, -77.29579, -77.46917, -77.50815, -77.50369, -77.51735, -77.52062, -77.53248, -77.51676, -77.47543, 
  -77.47215, -77.53011, -77.50191, -77.4796, -77.45665, -77.45099, -77.41992, -77.36957, -77.36807, -77.39417, 
  -77.40106, -77.38397, -77.36837, -77.36686, -77.34131, -77.34432, -77.32896, -77.30803, -77.2881, -77.24451, 
  -77.24404, -77.26404, -77.24283, -77.25283, -77.23494, -77.2495, -77.23464, -77.2401, -77.2152, -77.20699, 
  -77.18965, -77.13075, -77.06728, -77.07097, -77.06082, -76.99764, -76.99578, -77.00814, -77.0069, -77.01739, 
  -77.02511, -77.0325, -77.0248, -77.03497, -77.03928, -77.06205, -77.05313, -77.05959, -77.04482, -77.01863, 
  -76.9998, -76.98156, -76.96205, -76.91612, -76.92389, -76.8903, -76.86535, -76.83599, -76.83474, -76.7937, 
  -76.77549, -76.75317, -76.74026, -76.70904, -76.70209, -76.68348, -76.68126, -76.65308, -76.63309, -76.61975, 
  -76.61721, -76.57869, -76.55221, -76.53559, -76.48209, -76.46506, -76.42612, -76.43965, -76.43256, -76.44673, 
  -76.42773, -76.44931, -76.43997, -76.46313, -76.47759, -76.51735, -76.44062, -76.3932, -76.33623, -76.29627, 
  -76.28878, -76.30115, -76.26402, -76.25946, -76.2317, -76.21699, -76.19996, -76.15436, -76.10629, -76.0855, 
  -76.08616, -76.09838, -76.09904, -76.12244, -76.14778, -76.18259, -76.20062, -76.21699, -76.23072, -76.22287, 
  -76.23334, -76.23334, -76.27185, -76.28325, -76.31935, -76.31122, -76.35341, -76.37154, -76.32487, -76.34239, 
  -76.39934, -76.39934, -76.42451, -76.40386, -76.41935, -76.41032, -76.44931, -76.46249, -76.43546, -76.43578, 
  -76.38222, -76.36474, -76.33428, -76.28781, -76.26761, -76.06931, -76.01963, -76.00602, -75.90705, -75.90605, 
  -75.88363, -75.88497, -75.90237, -75.89066, -75.90571, -75.893, -75.91407, -75.9027, -75.88664, -75.87994, 
  -75.83535, -75.84577, -75.79194, -75.80945, -75.79969, -75.72606, -75.69691, -75.68062, -75.66668, -75.6306, 
  -75.6173, -75.61287, -75.57939, -75.58076, -75.54207, -75.53075, -75.5568, -75.54686, -75.5592, -75.44782, 
  -75.43228, -75.43842, -75.43186, -75.44809, -75.44636, -75.46816, -75.49399, -75.50533, -75.52491, -75.769, 
  -75.7565, -75.75853, -75.73486, -75.7352, -75.75211, -75.74061, -75.77305, -75.78553, -75.79194, -75.80878, 
  -75.80777, -75.74196, -75.71895, -75.67348, -75.66906, -75.60297, -75.57392, -75.56365, -75.5232, -75.49811, 
  -75.49158, -75.50155, -75.50189, -75.51392, -75.46782, -75.44989, -75.41569, -75.3977, -75.38904, -75.39493, 
  -75.31535, -75.31434, -75.2896, -75.19936, -75.17619, -75.14066, -75.14981, -75.13612, -75.1488, -75.11144, 
  -75.11638, -75.10368, -75.09273, -75.08213, -75.07894, -75.06975, -75.08142, -75.07541, -75.11179, -75.15548, 
  -75.15302, -75.17869, -75.17763, -75.19659, -75.19554, -75.14739, -75.16814, -75.18466, -75.16533, -75.14133, 
  -75.13146, -75.12159, -75.11983, -75.09901, -75.06224, -75.06436, -74.95709, -74.9332, -74.93712, -74.90568, 
  -74.90211, -74.87776, -74.8706, -74.83328, -74.79999, -74.78197, -74.77532, -74.76666, -74.77676, -74.75836, 
  -74.75295, -74.77172, -74.75259, -74.76306, -74.74608, -74.74247, -74.71751, -74.71281, -74.69216, -74.73235, 
  -74.74897, -74.75186, -74.68635, -74.67801, -74.6213, -74.56438, -74.57717, -74.63841, -74.6791, -74.68998, 
  -74.73379, -74.7955, -74.80343, -74.82968, -74.83723, -74.85374, -74.86092, -74.87311, -74.85267, -74.8541, 
  -74.88242, -74.87848, -74.85948, -74.88063, -74.87526, -74.90997, -74.87597, -74.88314, -74.85087, -74.84405, 
  -74.83328, -74.84297, -74.82321, -74.82932, -74.77208, -74.76883, -74.82537, -74.80127, -74.81818, -74.75764, 
  -74.78253, -74.84656, -74.83184, -74.81206, -74.83328, -74.81746, -74.83938, -74.82393, -74.88763, -74.8998, 
  -74.91911, -74.86112, -74.869, -74.8403, -74.85466, -74.82305, -74.82449, -74.76181, -74.76253, -74.7452, 
  -74.75459, -74.71699, -74.72929, -74.70975, -74.72133, -74.69163, -74.70395, -74.67785, -74.68873, -74.68003, 
  -74.69236, -74.7264, -74.71192, -74.76759, -74.70975, -74.71699, -74.80291, -74.75387, -74.80003, -74.76542, 
  -74.77264, -74.73074, -74.77696, -74.7358, -74.78201, -74.74665, -74.75604, -74.73436, -74.72206, -74.74881, 
  -74.71916, -74.74737, -74.67131, -74.7083, -74.65969, -74.69308, -74.63214, -74.64524, -74.59716, -74.60445, 
  -74.56722, -74.50938, -74.50718, -74.41078, -74.40389, -74.34025, -74.341, -74.32245, -74.32097, -74.25738, 
  -74.26297, -74.33618, -74.38985, -74.40573, -74.40389, -74.4157, -74.47241, -74.51207, -74.52233, -74.49629, 
  -74.54138, -74.53149, -74.55601, -74.53406, -74.50803, -74.51977, -74.49225, -74.50767, -74.50033, -74.42971, 
  -74.38652, -74.38652, -74.42455, -74.52673, -74.53149, -74.5139, -74.51647, -74.47535, -74.48748, -74.40832, 
  -74.37654, -74.36433, -74.318, -74.3024, -74.27525, -74.21559, -74.19616, -74.17258, -74.15309, -74.14409, 
  -74.11442, -74.09034, -74.07679, -74.06171, -74.04662, -74.03038, -74.01526, -73.98611, -73.96602, -73.94211, 
  -73.92234, -73.93071, -73.9212, -73.90826, -73.88541, -73.86333, -73.86486, -73.8946, -73.90678, -73.9581, 
  -74.00849, -74.02664, -74.06062, -74.02173, -74.02777, -74.12085, -74.13137, -74.17187, -74.19956, -74.22684, 
  -74.24064, -74.24363, -74.27418, -74.27046, -74.2779, -74.26636, -74.27343, -74.27269, -74.29018, -74.30096, 
  -74.35067, -74.36215, -74.39211, -74.41611, -74.45627, -74.46731, -74.4548, -74.4662, -74.42459, -74.40319, 
  -74.46878, -74.54105, -74.61008, -74.59988, -74.60753, -74.60134, -74.65921, -74.70347, -74.72049, -74.67809, 
  -74.69912, -74.71542, -74.73062, -74.79342, -74.83946, -74.90175, -74.97099, -75.06153, -75.07285, -75.06086, 
  -75.05874, -75.03287, -75.04016, -74.97229, -74.95519, -74.96446, -74.95127, -74.95698, -74.90735, -74.87908, 
  -74.88051, -74.90878, -74.88875, -74.84824, -74.8425, -74.85936, -74.84609, -74.86223, -74.82705, -74.82848, 
  -74.80511, -74.80511, -74.79034, -74.79899, -74.79322, -74.80403, -74.79358, -74.76799, -74.74163, -74.72716, 
  -74.7344, -74.71848, -74.65101, -74.61425, -74.59931, -74.58143, -74.53206, -74.52144, -74.48768, -74.49649, 
  -74.5064, -74.48842, -74.47298, -74.46306, -74.45606, -74.39781, -74.30558, -74.25759, -74.22887, -74.21692, 
  -74.20683, -74.2031, -74.17391, -74.17279, -74.1814, -74.1784, -74.18739, -74.18552, -74.20048, -74.19225, 
  -74.21879, -74.2285, -74.2628, -74.26727, -74.29629, -74.31523, -74.33193, -74.28588, -74.26653, -74.24529, 
  -74.23671, -74.27807, -74.31449, -74.37009, -74.41037, -74.41738, -74.40557, -74.44392, -74.42623, -74.4336, 
  -74.47923, -74.48732, -74.51044, -74.51007, -74.57011, -74.60915, -74.60441, -74.64665, -74.66191, -74.71631, 
  -74.76185, -74.82561, -74.82848, -74.88588, -74.88624, -74.9445, -74.97408, -75.11689, -75.13487, -75.15142, 
  -75.15458, -75.18271, -75.19148, -75.21113, -75.23914, -75.20517, -75.18762, -75.20657, -75.22899, -75.24789, 
  -75.22829, -75.22549, -75.24194, -75.2374, -75.21603, -75.25488, -75.20517, -75.19675, -75.18236, -75.18622, 
  -75.20166, -75.21358, -75.19184, -75.20762, -75.24929, -75.24299, -75.25139, -75.2353, -75.27165, -75.25908, 
  -75.28666, -75.28561, -75.31105, -75.32567, -75.30722, -75.33297, -75.3278, -75.30935, -75.29925, -75.33127, 
  -75.33545, -75.35699, -75.36809, -75.35247, -75.35629, -75.36948, -75.36393, -75.30134, -75.29437, -75.27518, 
  -75.27867, -75.26261, -75.26226, -75.23568, -75.21397, -75.21362, -75.201, -75.20976, -75.19082, -75.1852, 
  -75.15638, -75.15673, -75.14266, -75.13385, -75.11658, -75.10776, -75.11728, -75.10881, -75.13702, -75.14266, 
  -75.13702, -75.13984, -75.15251, -75.15392, -75.1423, -75.13878, -75.12433, -75.1194, -75.13455, -75.13561, 
  -75.12328, -75.12116, -75.14125, -75.14582, -75.16307, -75.16271, -75.15005, -75.1511, -75.15709, -75.1497, 
  -75.15216, -75.14125, -75.09151, -75.09222, -75.08554, -75.09826, -75.09084, -75.10815, -75.09826, -75.10073, 
  -75.09473, -75.13389, -75.11238, -75.13495, -75.12437, -75.13213, -75.11168, -75.11238, -75.08802, -75.13741, 
  -75.17927, -75.29894, -75.33618, -75.35043, -75.36431, -75.35598, -75.3709, -75.3917, -75.42595, -75.41731, 
  -75.42975, -75.42042, -75.42042, -75.39031, -75.3917, -75.34591, -75.34417, -75.3605, -75.34035, -75.33896, 
  -75.37264, -75.36882, -75.34174, -75.33583, -75.36431, -75.34591, -75.33027, -75.34417, -75.30068, -75.31914, 
  -75.29894, -75.27033, -75.24622, -75.24676, -75.28483, -75.26354, -75.23977, -75.21946, -75.21455, -75.18719, 
  -75.16471, -75.16682, -75.1886, -75.17736, -75.15697, -75.10058, -75.07867, -75.04752, -75.02199, -74.99499, 
  -75.01276, -74.95012, -74.92728, -74.94584, -74.93514, -74.93228, -74.87112, -74.83128, -74.8399, -74.86538, 
  -74.84285, -74.81042, -74.79783, -74.78269, -74.76466, -74.73359, -74.72057, -74.69739, -74.68579, -74.64511, 
  -74.6251, -74.57587, -74.57331, -74.56016, -74.55101, -74.52722, -74.51842, -74.52758, -74.49935, -74.52245, 
  -74.46739, -74.49311, -74.4718, -74.48025, -74.54479, -74.54479, -74.52355, -74.53381, -74.52135, -74.47805, 
  -74.47033, -74.42615, -74.43426, -74.41877, -74.41545, -74.38628, -74.37407, -74.3552, -74.33333, -74.32554, 
  -74.29658, -74.291, -74.27017, -74.28394, -74.28356, -74.27501, -74.25713, -74.25601, -74.2314, -74.15509, 
  -74.15434, -74.11567, -74.10138, -74.04712, -74.00933, -73.9923, -74.00214, -73.9559, -73.95894, -73.92285, 
  -73.94071, -73.93425, -73.89202, -73.83782, -73.82826, -73.75044, -73.7239, -73.70811, -73.67418, -73.62043, 
  -73.60028, -73.58709, -73.59602, -73.58787, -73.60726, -73.60455, -73.63978, -73.66336, -73.68112, -73.67109, 
  -73.67379, -73.65989, -73.69732, -73.75044, -73.76311, -73.77616, -73.76772, -73.77271, -73.78192, -73.77079, 
  -73.78422, -73.74736, -73.75197, -73.72352, -73.72625, -73.71355, -73.71162, -73.72741, -73.72356, -73.74587, 
  -73.72895, -73.71316, -73.72048, -73.70083, -73.70584, -73.69081, -73.68232, -73.66263, -73.65993, -73.63441, 
  -73.6166, -73.65529, -73.63248, -73.60769, -73.58015, -73.55801, -73.56967, -73.5409, -73.5191, -73.51871, 
  -73.49414, -73.49882, -73.48595, -73.45, -73.47814, -73.4496, -73.42377, -73.36214, -73.36608, -73.37826, 
  -73.36726, -73.37119, -73.35743, -73.35743, -73.34444, -73.34562, -73.32357, -73.33184, -73.3149, -73.32987, 
  -73.32041, -73.3342, -73.30977, -73.33696, -73.32869, -73.33617, -73.31647, -73.3003, -73.30306, -73.3149, 
  -73.30977, -73.3212, -73.33499, -73.3216, -73.32554, -73.30385, -73.23071, -73.21723, -73.17674, -73.16441, 
  -73.13256, -73.06869, -73.03947, -72.99896, -72.97043, -72.83153, -72.74624, -72.6977, -72.73483, -72.72342, 
  -72.74095, -72.75764, -72.77148, -72.7849, -72.7914, -72.81414, -72.8259, -72.86519, -72.88824, -72.89268, 
  -72.9173, -72.92698, -72.9423, -72.96082, -72.96082, -72.99017, -72.98615, -73.04272, -73.04752, -73.0315, 
  -73.03631, -73.00423, -73.01386, -72.98937, -72.98928, -72.96837, -72.98044, -72.96878, -73.01216, -73.01337, 
  -73.04023, -73.07744, -73.05424, -73.05664, -73.01778, -73.027, -72.9941, -73.0274, -73.01377, -73.02299, 
  -73.00373, -72.99008, -73.01778, -73.00735, -73.0282, -73.01297, -73.025, -73.05144, -73.07424, -73.09861, 
  -73.18742, -73.19973, -73.12813, -73.12614, -73.15044, -73.14049, -73.16556, -73.18305, -73.19774, -73.18663, 
  -73.20092, -73.23027, -73.2374, -73.26629, -73.26747, -73.29197, -73.30341, -73.29118, -73.29197, -73.30184, 
  -73.29513, -73.31012, -73.33534, -73.33455, -73.2967, -73.2469, -73.24611, -73.22234, -73.22274, -73.20775, 
  -73.2152, -73.25165, -73.2271, -73.23819, -73.25205, -73.3117, -73.32431, -73.30775, -73.29473, -73.28644, 
  -73.21481, -73.21719, -73.18027, -73.1759, -73.18861, -73.17868, -73.18583, -73.18305, -73.19774, -73.19099, 
  -73.19258, -73.18027, -73.1755, -73.17629, -73.16675, -73.16675, -73.14925, -73.14407, -73.15601, -73.16993, 
  -73.17431, -73.16834, -73.17788, -73.17152, -73.17709, -73.158, -73.18901, -73.22036, -73.22234, -73.24096, 
  -73.23462, -73.24888, -73.25007, -73.26747, -73.26866, -73.28446, -73.28288, -73.3046, -73.34007, -73.3184, 
  -73.26984, -73.28881, -73.26708, -73.24096, -73.22789, -73.19576, -73.18265, -73.17629, -73.14208, -73.13889, 
  -73.14646, -73.13013, -73.12614, -73.11258, -73.12933, -73.14088, -73.14088, -73.10181, -73.1046, -73.12495, 
  -73.10301, -73.09063, -73.06264, -73.02861, -72.94422, -72.91843, -72.91444, -72.88334, -72.85907, -72.77509, 
  -72.74905, -72.71766, -72.68826, -72.64243, -72.63465, -72.66536, -72.69684, -72.68458, -72.69807, -72.76045, 
  -72.84895, -72.90192, -72.92694, -72.94064, -72.93581, -72.97043, -72.97914, -72.99454, -72.99936, -73.04588, 
  -73.05629, -73.12937, -73.14093, -73.13336, -73.16879, -73.17236, -73.24853, -73.26277, -73.21604, -73.20692, 
  -73.22119, -73.23982, -73.24536, -73.20057, -73.21723, -73.20533, -73.17992, -73.17674, -73.19699, -73.18945, 
  -73.20335, -73.18508, -73.18866, -73.16958, -73.17316, -73.18349, -73.19739, -73.21763, -73.22357, -73.25367, 
  -73.27265, -73.2691, -73.2853, -73.29245, -73.31178, -73.33661, -73.34409, -73.35826, -73.37791, -73.36651, 
  -73.38607, -73.34991, -73.33613, -73.31643, -73.30105, -73.25917, -73.27182, -73.23779, -73.18433, -73.17559, 
  -73.2454, -73.26598, -73.28613, -73.31446, -73.32549, -73.32549, -73.34597, -73.3444, -73.35424, -73.37114, 
  -73.38214, -73.40373, -73.41667, -73.4566, -73.46016, -73.47619, -73.48907, -73.52377, -73.52572, -73.51442, 
  -73.52689, -73.53389, -73.58054, -73.54712, -73.57044, -73.55801, -73.61002, -73.63867, -73.65838, -73.69441, 
  -73.73215, -73.68901, -73.70905, -73.74138, -73.70751, -73.85251, -73.87219, -73.89125, -73.81334, -73.82559, 
  -73.69347, -73.61307, -73.57894, -73.498, -73.3444, -73.31209, -73.24017, -73.26629, -73.32707, -73.34361, 
  -73.30894, -73.1074, -73.09223, -72.9945, -72.94382, -73.04423, -73.07704, -73.20052, -73.22749, -73.29473, 
  -73.29078, -73.36013, -73.37468, -73.40648, -73.53035, -73.55175, -73.57252, -73.59175, -73.57623, -73.59951, 
  -73.55991, -73.56885, -73.54436, -73.54902, -73.51048, -73.50736, -73.45621, -73.49566, -73.48746, -73.50346, 
  -73.50034, -73.46442, -73.45738, -73.53735, -73.5933, -73.66336, -73.70503, -73.81793, -73.83056, -73.84967, 
  -73.83362, -73.84585, -73.80338, -73.79725, -73.77655, -73.7938, -73.78997, -73.81755, -73.80721, -73.78307, 
  -73.76618, -73.77233, -73.75044, -73.73352, -73.72659, -73.69694, -73.67611, -73.65525, -73.66143, -73.71042, 
  -73.70927, -73.71928, -73.70696, -73.71119, -73.69925, -73.69886, -73.68344, -73.61772, -73.63978, -73.72813, 
  -73.70118, -73.65564, -73.66993, -73.6537, -73.69231, -73.66105, -73.65757, -73.63978, -73.6568, -73.63476, 
  -73.60145, -73.59447, -73.56496, -73.57856, -73.55719, -73.55641, -73.53852, -73.54747, -73.52334, -73.52412, 
  -73.4198, -73.45191, -73.43508, -73.43665, -73.47302, -73.45034, -73.42999, -73.41784, -73.37821, -73.38764, 
  -73.37429, -73.38293, -73.35148, -73.3566, -73.32431, -73.32195, -73.28841, -73.28209, -73.30617, -73.30065, 
  -73.28723, -73.24927, -73.27222, -73.25442, -73.29043, -73.27858, -73.27305, -73.21366, -73.22119, -73.20335, 
  -73.2208, -73.21247, -73.21247, -73.17395, -73.18389, -73.1656, -73.17316, -73.13814, -73.10664, -73.07189, 
  -73.09706, -73.08867, -73.05028, -73.05629, -73.03867, -73.03867, -73.0102, -73.01542, -72.98892, -72.99936, 
  -72.96842, -72.93379, -72.94749, -72.8445, -72.87445, -72.84166, -72.84693, -72.78932, -72.77631, -72.76045, 
  -72.73642, -72.63547, -72.65595, -72.59608, -72.5109, -72.46213, -72.44557, -72.4041, -72.39164, -72.33672, 
  -72.30586, -72.2703, -72.24478, -72.13135, -72.10141, -72.0993, -72.071, -72.03922, -71.96751, -71.93347, 
  -71.89809, -71.89084, -71.76621, -71.74729, -71.71199, -71.71544, -71.67187, -71.62604, -71.61261, -71.61608, 
  -71.58314, -71.53579, -71.45777, -71.40836, -71.37813, -71.38251, -71.36102, -71.34126, -71.26819, -71.20767, 
  -71.20369, -71.17402, -71.17181, -71.11499, -71.07851, -71.06114, -71.07049, -71.03571, -71.00087, -70.95835, 
  -70.92023, -70.86269, -70.8334, -70.75616, -70.70177, -70.65042, -70.61444, -70.61307, -70.53176, -70.49649, 
  -70.47722, -70.38154, -70.34786, -70.33353, -70.29236, -70.27985, -70.25389, -70.22324, -70.18417, -70.15441, 
  -70.11843, -70.11142, -70.09459, -70.08945, -70.07261, -70.06184, -69.97596, -69.95809, -69.92464, -69.88407, 
  -69.87981, -69.7533, -69.73429, -69.71477, -69.70001, -69.66234, -69.65613, -69.64324, -69.63798, -69.59972, 
  -69.57817, -69.53836, -69.47297, -69.45032, -69.42814, -69.39433, -69.39965, -69.38515, -69.38757, -69.37596, 
  -69.39337, -69.38128, -69.40883, -69.40303, -69.34789, -69.3091, -69.28531, -69.279, -69.29794, -69.32123, 
  -69.33577, -69.32947, -69.34353, -69.35079, -69.37451, -69.38418, -69.40351, -69.36048, -69.37209, -69.38515, 
  -69.39143, -69.38321, -69.40738, -69.41076, -69.44165, -69.47778, -69.52251, -69.51146, -69.49944, -69.4773, 
  -69.46044, -69.44936, -69.39337, -69.33432, -69.2994, -69.29648, -69.28046, -69.25712, -69.26199, -69.22743, 
  -69.23425, -69.21769, -69.15718, -69.11659, -69.10876, -69.09259, -69.09553, -69.0666, -69.06268, -69.03862, 
  -69.03223, -69.04402, -69.03469, -69.02092, -69.02879, -69.00371, -68.99337, -68.97761, -68.98106, -68.96283, 
  -68.96535, -68.94464, -68.94908, -68.93575, -68.9318, -68.92143, -68.91748, -68.82839, -68.78812, -68.79954, 
  -68.78911, -68.8065, -68.78116, -68.79259, -68.74335, -68.71895, -68.70349, -68.60752, -68.60151, -68.57494, 
  -68.5644, -68.50611, -68.47186, -68.48144, -68.46027, -68.43, -68.41283, -68.37692, -68.34299, -68.34907, 
  -68.32576, -68.29124, -68.28718, -68.30952, -68.3014, -68.31612, -68.2643, -68.24039, -68.22205, -68.19401, 
  -68.18432, -68.20013, -68.22715, -68.22154, -68.19656, -68.10866, -68.08868, -68.07382, -68.05843, -68.07536, 
  -68.042, -68.0122, -67.98648, -67.98236, -67.96433, -67.93804, -67.95145, -67.91946, -67.91585, -67.8988, 
  -67.8833, -67.86313, -67.86313, -67.82946, -67.8025, -67.77447, -67.77654, -67.76615, -67.77135, -67.78589, 
  -67.77758, -67.74068, -67.749, -67.72507, -67.736, -67.71465, -67.69277, -67.70632, -67.69173, -67.67452, 
  -67.64947, -67.6155, -67.59666, -67.59666, -67.57991, -67.60242, -67.58776, -67.58619, -67.56891, -67.53954, 
  -67.51645, -67.48544, -67.47966, -67.54164, -67.5343, -67.5217, -67.49491, -67.49543, -67.47071, -67.48649, 
  -67.47481, -67.49543, -67.52327, -67.5364, -67.55633, -67.54164, -67.49438, -67.47334, -67.48702, -67.40221, 
  -67.38796, -67.36841, -67.34621, -67.33933, -67.31445, -67.30862, -67.2922, -67.28477, -67.237, -67.18487, 
  -67.17528, -67.1886, -67.18434, -67.17102, -67.15503, -67.13369, -67.11234, -67.10379, -67.08829, -67.08241, 
  -67.0503, -67.04388, -67.09685, -67.08615, -67.1086, -67.1086, -67.0776, -67.0578, -67.03477, -66.96179, 
  -66.95701, -67.01553, -67.01982, -66.98387, -66.97958, -66.95862, -66.92958, -66.92743, -66.94357, -66.94572, 
  -66.97689, -66.99085, -67.07712, -67.08621, -67.16042, -67.15722, -67.27635, -67.2896, -67.26361, -67.31133, 
  -67.29385, -67.26998, -67.24715, -67.24821, -67.20941, -67.23068, -67.23174, -67.34521, -67.33569, -67.25512, 
  -67.16682, -67.11133, -67.08996, -67.07177, -67.07498, -67.06589, -67.05625, -67.04126, -67.04929, -67.03858, 
  -66.98065, -66.95056, -66.91343, -66.91505, -66.90643, -66.9032, -66.84657, -66.83523, -66.80928, -66.79954, 
  -66.79305, -66.80117, -66.79413, -66.77248, -66.72586, -66.66882, -66.62036, -66.60673, -66.58873, -66.58867, 
  -66.58103, -66.59086, -66.59631, -66.62139, -66.63392, -66.6312, -66.65624, -66.67637, -66.68833, -66.678, 
  -66.6943, -66.73773, -66.74099, -66.75779, -66.74478, -66.70571, -66.67365, -66.66821, -66.63011, -66.62194, 
  -66.59631, -66.61322, -66.58049, -66.57885, -66.53241, -66.52475, -66.49026, -66.45353, -66.42773, -66.40301, 
  -66.37496, -66.37826, -66.33199, -66.31986, -66.32924, -66.32207, -66.29889, -66.27073, -66.28122, -66.25912, 
  -66.1888, -66.1433, -66.14608, -66.12996, -66.12996, -66.11329, -66.10884, -66.0966, -66.10216, -66.11829, 
  -66.12385, -66.11718, -66.12719, -66.16606, -66.18215, -66.16828, -66.19102, -66.18104, -66.15829, -66.1544, 
  -66.14219, -66.15329, -66.14774, -66.16162, -66.16273, -66.18825, -66.14496, -66.13385, -66.11551, -66.09159, 
  -66.06375, -66.04591, -66.00964, -65.99289, -65.97053, -65.96382, -65.96717, -65.95319, -65.99959, -65.99121, 
  -65.9655, -65.96829, -65.94143, -65.93863, -65.92239, -65.93919, -65.97333, -66.01244, -66.01299, -66.04312, 
  -66.03699, -66.00127, -66.00964, -66.00015, -65.96885, -65.97668, -65.88034, -65.88707, -65.8354, -65.81684, 
  -65.80278, -65.78814, -65.77011, -65.73571, -65.73401, -65.7718, -65.77912, -65.79377, -65.79264, -65.81122, 
  -65.7994, -65.74191, -65.73514, -65.7086, -65.67016, -65.65035, -65.64299, -65.62769, -65.64185, -65.63506, 
  -65.65488, -65.67638, -65.69278, -65.67582, -65.69617, -65.69448, -65.62032, -65.62775, -65.60394, -65.60451, 
  -65.55795, -65.55227, -65.54147, -65.53976, -65.51986, -65.52327, -65.51246, -65.51872, -65.52725, -65.51872, 
  -65.575, -65.58067, -65.59203, -65.59373, -65.61018, -65.60281, -65.63172, -65.61131, -65.59259, -65.58465, 
  -65.57102, -65.57045, -65.53578, -65.52327, -65.49879, -65.49708, -65.46688, -65.48626, -65.45832, -65.46745, 
  -65.44863, -65.4452, -65.43436, -65.42408, -65.40922, -65.40808, -65.3915, -65.38063, -65.36003, -65.3503, 
  -65.32623, -65.30444, -65.26826, -65.28894, -65.27056, -65.2516, -65.21017, -65.17214, -65.14445, -65.13983, 
  -65.15253, -65.13232, -65.11384, -65.09129, -65.09881, -65.08846, -65.07226, -65.07515, -65.02765, -65.03506, 
  -65.05186, -65.07445, -65.07213, -65.05418, -65.03854, -65.06924, -65.06171, -65.08602, -65.08139, -65.09354, 
  -65.07965, -65.10279, -65.09585, -65.11551, -65.11377, -65.08602, -65.08717, -65.11377, -65.12648, -65.16227, 
  -65.19859, -65.19628, -65.14438, -65.13803, -65.16343, -65.16919, -65.12937, -65.13284, -65.12244, -65.10799, 
  -65.08949, -65.08544, -65.04897, -65.0368, -65.02057, -65.04028, -64.98575, -64.97645, -64.95844, -64.95088, 
  -64.9567, -64.93809, -64.93285, -64.91714, -64.90258, -64.93227, -64.93227, -64.91539, -64.91772, -64.93111, 
  -64.93402, -64.91714, -64.92005, -64.90899, -64.8985, -64.89035, -64.87052, -64.87111, -64.85944, -64.85594, 
  -64.82266, -64.80513, -64.82909, -64.92121, -64.88219, -64.89501, -64.88627, -64.87985, -64.85477, -64.85069, 
  -64.86761, -64.84952, -64.8466, -64.83609, -64.82149, -64.80162, -64.76652, -64.75598, -64.76593, -64.75598, 
  -64.71495, -64.70439, -64.6527, -64.64035, -64.64682, -64.62623, -64.63159, -64.61747, -64.60981, -64.58979, 
  -64.60628, -64.621, -64.62747, -64.66922, -64.66922, -64.64042, -64.65629, -64.68156, -64.67216, -64.67686, 
  -64.69213, -64.71443, -64.72674, -64.70621, -64.73846, -64.75018, -64.77126, -64.77126, -64.74784, -64.73378, 
  -64.73553, -64.70915, -64.6886, -64.70211, -64.69565, -64.7244, -64.72557, -64.71032, -64.69858, -64.66981, 
  -64.65688, -64.63983, -64.60451, -64.57151, -64.578, -64.59391, -64.59155, -64.5609, -64.48943, -64.49002, 
  -64.53316, -64.56326, -64.62924, -64.64453, -64.62747, -64.63159, -64.65394, -64.67333, -64.64571, -64.62218, 
  -64.60628, -64.60216, -64.578, -64.56562, -64.52961, -64.53257, -64.51898, -64.53257, -64.53434, -64.50657, 
  -64.49475, -64.46635, -64.48824, -64.46339, -64.4474, -64.4314, -64.43496, -64.40768, -64.41836, -64.41243, 
  -64.38988, -64.37919, -64.36197, -64.36078, -64.37504, -64.35959, -64.37801, -64.39048, -64.41243, -64.4148, 
  -64.40353, -64.40887, -64.43259, -64.43318, -64.40412, -64.38988, -64.40353, -64.39344, -64.39522, -64.3786, 
  -64.37623, -64.3001, -64.30129, -64.25122, -64.2375, -64.21481, -64.20764, -64.1915, -64.19449, -64.17588, 
  -64.16152, -64.1705, -64.14656, -64.13637, -64.12319, -64.08661, -64.0806, -64.06379, -64.05478, -64.06559, 
  -64.04637, -64.08, -64.06619, -64.09261, -64.0704, -64.05658, -64.04577, -64.02412, -64.00788, -64.0151, 
  -63.91625, -63.93255, -63.91806, -63.92711, -63.9422, -63.95667, -63.93737, -63.91806, -63.90175, -63.89208, 
  -63.87334, -63.8558, -63.84975, -63.86911, -63.85459, -63.86669, -63.86004, -63.87879, -63.86669, -63.89873, 
  -63.87999, -63.91625, -63.9096, -63.88604, -63.8679, -63.85338, -63.82311, -63.81462, -63.79886, -63.79219, 
  -63.71081, -63.67794, -63.72358, -63.67185, -63.67429, -63.54733, -63.4591, -63.45481, -63.47444, -63.41489, 
  -63.42287, -63.39091, -63.3866, -63.31083, -63.31083, -63.28244, -63.26639, -63.2293, -63.22002, -63.26453, 
  -63.32687, -63.35213, -63.37306, -63.38599, -63.4155, -63.42042, -63.3946, -63.40075, -63.44253, -63.46708, 
  -63.47934, -63.47505, -63.49222, -63.52346, -63.52346, -63.5406, -63.59623, -63.65053, -63.63589, -63.60844, 
  -63.61271, -63.64992, -63.64626, -63.59256, -63.54672, -63.52713, -63.48057, -63.47076, -63.48609, -63.4775, 
  -63.43884, -63.44867, -63.49406, -63.51856, -63.53632, -63.54305, -63.55711, -63.56445, -63.55406, -63.56323, 
  -63.54916, -63.56078, -63.5834, -63.59562, -63.61027, -63.60233, -63.60416, -63.62613, -63.62735, -63.64809, 
  -63.65235, -63.68281, -63.67246, -63.67611, -63.65906, -63.72297, -63.72905, -63.78067, -63.79704, -63.84188, 
  -63.84067, -63.8552, -63.88181, -63.92228, -63.9247, -63.99283, -64.06319, -64.09981, -64.14117, -64.21833, 
  -64.20697, -64.16212, -64.17708, -64.21653, -64.22072, -64.23803, -64.25951, -64.27918, -64.28395, -64.26011, 
  -64.28574, -64.33158, -64.3619, -64.37735, -64.39219, -64.40762, -64.42659, -64.41058, -64.45444, -64.55729, 
  -64.5567, -64.52423, -64.52016, -64.49534, -64.48114, -64.42014, -64.42962, -64.45036, -64.45214, -64.47523, 
  -64.4314, -64.32748, -64.32332, -64.30487, -64.34354, -64.39226, -64.39166, -64.40828, -64.4237, -64.48055, 
  -64.49711, -64.53729, -64.59568, -64.60216, -64.57387, -64.57033, -64.41658, -64.41955, -64.36969, -64.38929, 
  -64.44385, -64.48174, -64.4841, -64.5113, -64.51839, -64.57623, -64.56503, -64.53375, -64.53375, -64.54555, 
  -64.54201, -64.57505, -64.58212, -64.61099, -64.6104, -64.65512, -64.65453, -64.62689, -64.63277, -64.66981, 
  -64.72498, -64.76482, -64.78947, -64.87299, -64.89339, -64.96206, -64.98878, -65.02939, -65.03925, -64.99226, 
  -64.9882, -65.04388, -65.05199, -65.0178, -65.00039, -64.98239, -64.99517, -64.98297, -64.96148, -64.9452, 
  -64.95218, -64.94694, -64.96787, -64.97949, -65.063, -65.08499, -65.11448, -65.13239, -65.12315, -65.16298, 
  -65.17509, -65.19123, -65.19756, -65.23901, -65.23671, -65.24591, -65.22923, -65.21484, -65.20908, -65.18316, 
  -65.18373, -65.2039, -65.19929, -65.18489, -65.18028, -65.19872, -65.20505, -65.22405, -65.25568, -65.27292, 
  -65.29417, -65.30048, -65.32234, -65.34979, -65.34463, -65.35437, -65.36754, -65.37555, -65.38871, -65.38756, 
  -65.41443, -65.41614, -65.43157, -65.4504, -65.46865, -65.46295, -65.49885, -65.52333, -65.55006, -65.53016, 
  -65.53174, -65.52207, -65.55448, -65.58175, -65.57096, -65.59196, -65.5596, -65.58742, -65.59934, -65.6679, 
  -65.686, -65.69956, -65.70408, -65.7295, -65.73119, -65.77405, -65.77743, -65.7994, -65.80503, -65.82078, 
  -65.86462, -65.94031, -65.94143, -66.00294, -66.11774, -66.11384, -66.13663, -66.12385, -66.09827, -66.0565, 
  -66.01355, -66.09159, -65.9873, -65.95655, -65.92071, -65.91623, -65.96438, -66.05037, -66.03587, -65.91062, 
  -65.92687, -65.91343, -65.93695, -65.96214, -65.98283, -66.01634, -66.0342, -66.0604, -66.03922, -66.13608, 
  -66.1333, -66.06375, -66.03699, -66.08268, -66.06932, -66.11496, -66.18381, -66.22814, -66.26188, -66.28233, 
  -66.34963, -66.35146, -66.27957, -66.22703, -66.18048, -66.14996, -66.17105, -66.15607, -66.16773, -66.26415, 
  -66.21872, -66.2309, -66.27846, -66.31821, -66.35624, -66.39861, -66.47053, -66.46834, -66.32593, -66.3149, 
  -66.25801, -66.24806, -66.20765, -66.20155, -66.22094, -66.17494, -66.19157, -66.18381, -66.21042, -66.21152, 
  -66.23589, -66.24861, -66.28122, -66.28896, -66.30386, -66.32593, -66.33806, -66.3656, -66.39421, -66.48314, 
  -66.51819, -66.58267, -66.59958, -66.58649, -66.60013, -66.64971, -66.67093, -66.64209, -66.65189, -66.66821, 
  -66.69322, -66.74207, -66.6508, -66.60558, -66.58485, -66.52858, -66.4645, -66.46012, -66.43432, -66.34412, 
  -66.27128, -66.26575, -66.24806, -66.27017, -66.25746, -66.25856, -66.20377, -66.21706, -66.18603, -66.20044, 
  -66.22758, -66.23976, -66.25469, -66.27238, -66.27625, -66.30276, -66.30331, -66.32489, -66.33591, -66.33095, 
  -66.34969, -66.39922, -66.37722, -66.38052, -66.41186, -66.43878, -66.44262, -66.47662, -66.48156, -66.52591, 
  -66.54723, -66.5991, -66.60783, -66.5991, -66.60395, -66.5598, -66.56908, -66.63017, -66.62636, -66.64868, 
  -66.66882, -66.69002, -66.70306, -66.72043, -66.73617, -66.79143, -66.80874, -66.85251, -66.90535, -66.94196, 
  -66.8811, -66.87894, -66.84657, -66.83901, -66.91612, -66.89081, -66.9032, -66.88488, -66.80171, -66.75568, 
  -66.75568, -66.81577, -66.82766, -66.81631, -66.83036, -66.83793, -66.866, -66.8811, -66.95809, -66.98871, 
  -66.99139, -66.97689, -66.99568, -67.01982, -67.02518, -67.03965, -67.06969, -67.08681, -67.10872, -67.09002, 
  -67.09696, -67.12047, -67.14715, -67.1722, -67.17753, -67.19936, -67.1967, -67.20947, -67.21532, -67.23393, 
  -67.24562, -67.26102, -67.26579, -67.31987, -67.32939, -67.29814, -67.31298, -67.33733, -67.36536, -67.32992, 
  -67.33892, -67.36642, -67.39441, -67.39758, -67.35109, -67.29443, -67.29973, -67.33469, -67.36378, -67.47346, 
  -67.48188, -67.50291, -67.52549, -67.55592, -67.61457, -67.63809, -67.65689, -67.70852, -67.70904, -67.7257, 
  -67.73039, -67.76211, -67.78964, -67.82284, -67.84409, -67.8679, -67.89065, -67.90718, -67.95414, -67.95156, 
  -67.99277, -67.99997, -68.02825, -68.04674, -68.03961, -68.09449, -68.09142, -68.11805, -68.12982, -68.15078, 
  -68.16355, -68.16713, -68.1564, -68.1564, -68.14976, -68.14669, -68.15793, -68.15334, -68.13851, -68.15742, 
  -68.16151, -68.138, -68.14107, -68.16798, -68.17768, -68.15725, -68.14601, -68.11634, -68.06202, -68.03481, 
  -68.02042, -68.02762, -68.03892, -68.04919, -68.08305, -68.10866, -68.08868, -68.07023, -68.07177, -68.1102, 
  -68.12913, -68.16747, -68.1736, -68.20268, -68.19809, -68.2195, -68.22562, -68.20625, -68.25718, -68.25057, 
  -68.27295, -68.31053, -68.30444, -68.32322, -68.33488, -68.36478, -68.3921, -68.36984, -68.37186, -68.36072, 
  -68.36933, -68.36168, -68.40626, -68.49805, -68.49302, -68.51365, -68.51466, -68.55235, -68.55838, -68.58948, 
  -68.62955, -68.63905, -68.62454, -68.65256, -68.65256, -68.67504, -68.67354, -68.6965, -68.66405, -68.67704, 
  -68.69501, -68.72692, -68.74435, -68.78265, -68.76326, -68.78713, -68.72841, -68.84221, -68.80501, -68.74236, 
  -68.77271, -68.75182, -68.63505, -68.65206, -68.62554, -68.58998, -68.5654, -68.58747, -68.56289, -68.48698, 
  -68.41434, -68.41535, -68.4411, -68.51214, -68.44817, -68.45422, -68.54833, -68.5403, -68.64156, -68.67854, 
  -68.68103, -68.72692, -68.73041, -68.75231, -68.74186, -68.75829, -68.76674, -68.77022, -68.78116, -68.8065, 
  -68.85361, -68.86154, -68.82238, -68.80352, -68.84023, -68.86104, -68.89766, -68.90013, -68.92582, -68.93915, 
  -68.9505, -68.94754, -68.97022, -68.93076, -68.95494, -68.95642, -68.97564, -68.98106, -69.00125, -69.01059, 
  -69.05875, -69.04844, -69.08622, -69.10386, -69.16647, -69.2016, -69.17526, -69.14936, -69.1694, -69.20404, 
  -69.26636, -69.30765, -69.38321, -69.34401, -69.39637, -69.49051, -69.48185, -69.51744, -69.59552, -69.70213, 
  -69.75864, -69.77906, -69.83357, -69.83405, -69.86952, -69.91768, -69.93088, -69.95066, -69.96954, -70.00849, 
  -70.00004, -70.07692, -70.1275, -70.21508, -70.30506, -70.25316, -70.24759, -70.22066, -70.21787, -70.28469, 
  -70.29395, -70.40847, -70.42596, -70.50036, -70.56352, -70.56992, -70.51136, -70.55072, -70.50311, -70.49486, 
  -70.58088, -70.58453, -70.60643, -70.60826, -70.69016, -70.71548, -70.73044, -70.74041, -70.71366, -70.72953, 
  -70.72319, -70.78113, -70.79243, -70.90057, -70.93155, -70.92617, -70.84793, -70.8326, -70.85874, -70.92123, 
  -70.94456, -70.96652, -71.01751, -71.02688, -71.02867, -71.05276, -71.0746, -71.1102, -71.11376, -71.15683, 
  -71.20954, -71.23606, -71.21042, -71.25059, -71.27886, -71.33388, -71.37252, -71.37647, -71.35321, -71.31013, 
  -71.32685, -71.36945, -71.38349, -71.40583, -71.41152, -71.4299, -71.44083, -71.4618, -71.4535, -71.46878, 
  -71.45569, -71.49147, -71.54458, -71.53414, -71.60101, -71.62484, -71.61574, -71.62873, -71.61877, -71.66289, 
  -71.67585, -71.68621, -71.67715, -71.69355, -71.67887, -71.57933, -71.55371, -71.52892, -71.54632, -71.57282, 
  -71.59104, -71.59017, -71.61401, -71.65252, -71.66981, -71.65555, -71.67887, -71.72238, -71.75594, -71.78558, 
  -71.78902, -71.74041, -71.74041, -71.72233, -71.72534, -71.76062, -71.77179, -71.8057, -71.8057, -71.82284, 
  -71.83055, -71.85452, -71.85324, -71.87205, -71.86521, -71.87589, -71.8481, -71.86563, -71.89724, -71.916, 
  -71.95688, -72.01464, -72.0299, -72.03498, -72.10263, -72.13131, -72.11149, -72.08954, -72.10305, -72.09334, 
  -72.09799, -72.04345, -72.0663, -72.06207, -72.14647, -72.14942, -72.1633, -72.16583, -72.07772, -72.04896, 
  -72.05488, -71.99979, -71.99725, -72.11951, -72.12203, -72.13767, -72.14357, -72.15494, -72.1583, -72.16672, 
  -72.16503, -72.18689, -72.19529, -72.18059, -72.21544, -72.2749, -72.29575, -72.31912, -72.33538, -72.31203, 
  -72.31745, -72.33955, -72.35371, -72.37534, -72.36536, -72.37701, -72.3691, -72.38781, -72.40027, -72.44175, 
  -72.47321, -72.46452, -72.47404, -72.40443, -72.4065, -72.43222, -72.46618, -72.50626, -72.54132, -72.52318, 
  -72.55656, -72.56973, -72.64485, -72.65549, -72.66409, -72.64116, -72.66204, -72.669, -72.68249, -72.71721, 
  -72.76813, -72.78968, -72.69516, -72.67922, -72.65058, -72.65549, -72.81283, -72.91399, -72.90995, -72.92407, 
  -72.94503, -72.9949, -73.06745, -73.07424, -73.02139, -73.04063, -72.98084, -73.05984, -73.02339, -72.87481, 
  -72.88289, -72.93818, -73.00695, -73.12136, -73.18345, -73.25323, -73.30539, -73.33101, -73.30617, -73.24492, 
  -73.22511, -73.18782, -73.39785, -73.3951, -73.31564, -73.25244, -73.26154, -73.29552, -73.35345, -73.34912, 
  -73.30381, -73.26194, -73.24373, -73.20132, -73.20687, -73.1751, -73.17669, -73.1584, -73.12495, -73.1365, 
  -73.09742, -73.13929, -73.21084, -73.2469, -73.2896, -73.24848, -73.2366, -73.2473, -73.31091, -73.34518, 
  -73.33337, -73.38921, -73.39745, -73.37075, -73.36171, -73.38803, -73.39235, -73.4151, -73.41902, -73.45152, 
  -73.45465, -73.48746, -73.53657, -73.55291, -73.50463, -73.4902, -73.47458, -73.45465, -73.45856, -73.4777, 
  -73.47419, -73.50424, -73.52489, -73.51438, -73.54747, -73.58981, -73.63746, -73.65602, -73.6568, -73.6873, 
  -73.69578, -73.71736, -73.72506, -73.7366, -73.75121, -73.68884, -73.68614, -73.70118, -73.82329, -73.83285, 
  -73.8554, -73.8749, -73.96088, -73.96315, -73.92593, -73.89434, -73.86918, -73.90196, -73.87567, -73.88939, 
  -73.88939, -73.90272, -73.92099, -73.97226, -74.02752, -74.04678, -74.04603, -74.01278, -74.03886, -74.0615, 
  -74.06979, -74.05509, -74.07808, -74.18211, -74.24748, -74.25568, -74.2236, -74.24562, -74.27579, -74.29365, 
  -74.3241, -74.33931, -74.31853, -74.32262, -74.24599, -74.24375, -74.26313, -74.36487, -74.3926, -74.41402, 
  -74.44056, -74.47625, -74.5181, -74.53532, -74.54996, -74.53532, -74.53715, -74.50196, -74.5082, -74.46559, 
  -74.46301, -74.41033, -74.40848, -74.39888, -74.40405, -74.42176, -74.44093, -74.54703, -74.5781, -74.66155, 
  -74.67499, -74.71088, -74.73874, -74.81338, -74.92451, -74.94628, -74.96446, -74.99791, -74.98155, -74.93986, 
  -74.88732, -74.78674, -74.7633, -74.73331, -74.72644, -74.70617, -74.70472, -74.65574, -74.65574, -74.67027, 
  -74.67244, -74.66337, -74.667, -74.68986, -74.70943, -74.74199, -74.77845, -74.86044, -74.87227, -74.90592, 
  -74.92411, -74.86649, -74.87657, -74.88732, -74.89841, -74.93022, -74.96517, -74.97443, -75.00751, -75.01354, 
  -75.03413, -75.04228, -75.00573, -75.02597, -75.07769, -75.08511, -75.14367, -75.17814, -75.17174, -75.15423, 
  -75.14895, -75.18552, -75.19394, -75.22199, -75.23005, -75.24509, -75.27479, -75.29398, -75.32358, -75.33993, 
  -75.35417, -75.37811, -75.34514, -75.36181, -75.32184, -75.33749, -75.35868, -75.5357, -75.69401, -75.79074, 
  -75.79343, -75.86202, -75.85397, -75.89084, -76.03408, -76.03805, -76.12526, -76.12394, -76.15487, -76.14895, 
  -76.17588, -76.22829, -76.25768, -76.29612, -76.29352, -76.33569, -76.32465, -76.37456, -76.37521, -76.39267, 
  -76.40946, -76.46485, -76.45585, -76.48605, -76.49182, -76.53026, -76.60427, -76.62462, -76.61381, -76.62398, 
  -76.63161, -76.65001, -76.64811, -76.67409, -76.68232, -76.66396, -76.68548, -76.67915, -76.69812, -76.67789, 
  -76.70697, -76.73347, -76.73094, -76.74292, -76.74795, -76.73094, -76.74921, -76.74481, -76.76557, -76.69054, 
  -76.70697, -76.67472, -76.71454, -76.68295, -76.68801, -76.65001, -76.66712, -76.70191, -76.7177, -76.55774, 
  -76.60109, -76.60427, -76.53921, -76.59791, -76.64303, -76.64049, -76.58581, -76.52962, -76.57561, -76.53857, 
  -76.596, -76.62017, -76.21121, -76.10805, -76.12453, -76.10343, -76.17647, -76.26478, -76.30125, -76.35967, 
  -76.45778, -76.53026, -76.6278, -76.73536, -77.02463, -77.02031, -77.08861, -77.08492, -77.3306, -77.37631, 
  -77.3955, -77.43858, -77.435, -77.36429, -77.46841, -77.41706, -77.57641, -77.72911, -78.00618, -78.14353, 
  -78.1672, -78.23124, -78.10396, -77.96502, -77.96616, -77.91797, -77.95356, -77.80361, -77.73845, -77.73962, 
  -77.68936, -77.76758, -77.85919, -77.83375, -77.85226, -78.01075, -78.29604, -78.44333, -78.65056, -78.69157, 
  -78.84882, -78.85201, -78.75387, -78.51245, -78.26815, -78.29493, -78.19758, -78.21442, -78.48288, -78.52776, 
  -78.51974, -78.49046, -78.47209, -78.43342, -78.39701, -78.40143, -78.35717, -78.32943, -78.42681, -78.43011, 
  -78.56702, -78.85732, -78.88171, -78.92294, -78.97454, -78.98189, -79.07598, -79.11443, -79.11443, -79.22487, 
  -79.19505, -79.20842, -79.22179, -79.3281, -79.46958, -79.58242, -79.54361, -79.39099, -79.25973, -79.23205, 
  -79.25461, -79.32607, -79.52687, -79.78528, -79.94956, -80.03737, -79.95723, -79.98783, -80.10746, -80.18829, 
  -80.14701, -80.16204, -80.08667, -80.27589, -80.27218, -80.52142, -80.60608, -80.76963, -80.83635, -80.84684, 
  -80.89739, -80.87476, -80.92862, -80.87476, -80.87825, -80.83635, -80.80832, -80.97527, -80.95974, -80.74139, 
  -80.77315, -80.62399, -80.64188, -80.83285, -80.98388, -81.03538, -80.99592, -81.04565, -81.1103, -81.54658, 
  -81.54174, -81.58164, -81.53769, -81.56393, -81.58807, -81.5965, -81.62135, -81.66407, -81.71448, -81.71963, 
  -81.68276, -81.63974, -81.64493, -81.6768, -81.70181, -81.68792, -81.61174, -81.60854, -81.68554, -81.69705, 
  -81.63015, -81.62455, -81.76775, -81.79797, -81.82497, -81.77482, -81.776, -81.83238, -81.85965, -81.89071, 
  -81.90619, -81.90077, -81.92048, -81.90851, -81.88761, -81.88528, -81.87015, -81.95208, -81.95707, -81.97166, 
  -81.96783, -81.99159, -82.08631, -82.20959, -82.21496, -82.24319, -82.258, -82.2997, -82.3144, -82.30705, 
  -82.32578, -82.26761, -82.27315, -82.28939, -82.29638, -82.35288, -82.37259, -82.4017, -82.40823, -82.38788, 
  -82.38606, -82.36347, -82.37077, -82.35763, -82.37951, -82.37967, -82.38805, -82.41166, -82.42036, -82.40622, 
  -82.39168, -82.37749, -82.35158, -82.33291, -82.30585, -82.30787, -82.31871, -82.32146, -82.31412, -82.32018, 
  -82.31669, -82.32751, -82.33118, -82.32586, -82.34436, -82.32531, -82.30677, -82.28855, -82.26622, -82.25123, 
  -82.26012, -82.28781, -82.27619, -82.27711, -82.29223, -82.28486, -82.25586, -82.26659, -82.25605, -82.26492, 
  -82.26271, -82.2832, -82.27305, -82.27896, -82.29591, -82.29794, -82.2797, -82.27638, -82.26178, -82.25919, 
  -82.24605, -82.25734, -82.23845, -82.21244, -82.18082, -82.15473, -82.15979, -82.19922, -82.18896, -82.18933, 
  -82.17233, -82.17663, -82.24197, -82.35058, -82.33906, -82.34345, -82.39815, -82.45155, -82.48397, -82.50174, 
  -82.49959, -82.51355, -82.52035, -82.59374, -82.68802, -82.72116, -82.72185, -82.74062, -82.85596, -82.89921, 
  -82.96646, -83.0067, -83.01873, -83.03507, -83.02607, -82.99934, -82.99733, -83.04439, -83.04139, -83.02674, 
  -83.01071, -82.97117, -82.92057, -82.92057, -82.94726, -82.9449, -82.90736, -82.90702, -83.01539, -83.1443, 
  -83.20386, -83.23078, -83.37808, -83.34952, -83.38695, -83.38157, -83.40148, -83.39011, -83.42574, -83.44238, 
  -83.46993, -83.45509, -83.39471, -83.35351, -83.33568, -83.29476, -82.82843, -82.67317, -82.49339, -82.47345, 
  -82.46085, -82.47489, -82.46085, -82.47794, -82.49913, -82.51381, -82.51059, -82.51882, -82.51131, -82.45147, 
  -82.42834, -82.39079, -82.36219, -82.3494, -82.34465, -82.35306, -82.3494, -82.30356, -82.29031, -82.30099, 
  -82.29638, -82.30632, -82.28791, -82.29104, -82.2506, -82.26135, -82.24837, -82.2263, -82.20267, -82.19373, 
  -82.19801, -82.1954, -82.18234, -82.18197, -82.17206, -82.19652, -82.15221, -82.15033, -82.12779, -82.12365, 
  -82.14583, -82.14508, -82.16383, -82.11688, -82.11198, -82.07798, -82.02938, -81.95976, -81.99924, -81.95246, 
  -81.89458, -81.91121, -81.89652, -81.92126, -81.90503, -81.93707, -81.97895, -81.97301, -81.97914, -81.99924, 
  -82.00459, -82.02214, -82.021, -82.03376, -82.04935, -82.04593, -82.07287, -82.05619, -81.99178, -81.98527, 
  -81.93784, -81.93071, -81.91469, -81.91604, -81.97377, -82.09462, -82.13099, -82.13212, -82.21198, -82.2224, 
  -82.37004, -82.40061, -82.48729, -82.51453, -82.51739, -82.55023, -82.54274, -82.45526, -82.44985, -82.52208, 
  -82.51707, -82.39483, -82.38538, -82.40791, -82.39701, -82.37117, -82.20346, -82.15975, -82.11805, -82.02637, 
  -82.02256, -81.97784, -81.9425, -81.88261, -81.70027, -81.63979, -81.61419, -81.53774, -81.377, -81.1838, 
  -81.19432, -81.16821, -81.1981, -81.16611, -81.164, -81.12298, -81.06472, -81.04551, -80.92674, -80.90376, 
  -80.90245, -80.86677, -80.8942, -80.92284, -80.91417, -80.99148, -81.01896, -81.02796, -81.08816, -81.04551, 
  -81.03567, -81.00308, -80.99965, -80.97986, -81.0048, -80.93453, -80.91981, -80.89072, -80.86721, -80.83927, 
  -80.82307, -80.8029, -80.74389, -80.7231, -80.69783, -80.64485, -80.59875, -80.66403, -80.64887, -80.62026, 
  -80.62747, -80.60862, -80.60772, -80.53212, -80.53077, -80.4682, -80.47639, -80.42307, -80.48184, -80.45546, 
  -80.36944, -80.3416, -80.29937, -80.26227, -80.29335, -80.26599, -80.25763, -80.2059, -80.14968, -80.1647, 
  -80.10494, -80.0851, -80.11626, -80.10966, -80.11767, -80.09597, -80.09455, -80.01248, -80.01438, -79.99484, 
  -79.96521, -79.98529, -79.95803, -80.04197, -80.02158, -79.98582, -79.94178, -79.95281, -79.89563, -79.91633, 
  -79.88357, -79.86136, -79.84733, -79.82503, -79.81144, -79.78955, -79.73586, -79.66958, -79.63356, -79.59444, 
  -79.61674, -79.53186, -79.27632, -79.25586, -79.31815, -79.25176, -79.29471, -79.23228, -79.13849, -79.10532, 
  -79.10739, -79.03867, -79.10324, -79.07933, -79.1633, -79.15297, -79.25791, -79.17053, -79.08557, -78.97267, 
  -78.84906, -78.60531, -78.58141, -78.39063, -78.18996, -78.15844, -78.17196, -78.08835, -78.05087, -77.98816, 
  -77.84442, -77.81724, -77.86179, -77.84445, -77.85457, -77.82448, -77.79345, -77.76118, -77.73291, -77.67266, 
  -77.6183, -77.60121, -77.47437, -77.3955, -77.31011, -77.28716, -77.27143, -77.17242, -77.12293, -77.17546, 
  -77.14922, -77.04496, -77.03326, -76.99128, -76.91066, -76.88514, -76.86268, -76.84957, -76.81077, -76.79666, 
  -76.74386, -76.73, -76.66719, -76.6285, -76.57632, -76.49253, -76.49189, -76.44305, -76.33251, -76.32927, 
  -76.25246, -76.25572, -76.22306, -76.23156, -76.16012, -76.16604, -76.13184, -76.14961, -76.06057, -76.04862, 
  -76.05126, -76.03404, -76.03768, -75.98923, -75.97159, -75.92625, -75.90687, -75.87975, -75.89047, -75.87406, 
  -75.88009, -75.85159, -75.82975, -75.83412, -75.81798, -75.78871, -75.75428, -75.74685, -75.737, -75.73802, 
  -75.71127, -75.6994, -75.71228, -75.68039, -75.64332, -75.65727, -75.67359, -75.67393, -75.64979, -75.64094, 
  -75.65795, -75.67733, -75.70957, -75.70754, -75.68107, -75.70788, -75.70143, -75.70448, -75.6899, -75.67291, 
  -75.69024, -75.70991, -75.70991, -75.71567, -75.70211, -75.70279, -75.67495, -75.6685, -75.65863, -75.64809, 
  -75.63242, -75.6348, -75.6024, -75.62219, -75.61298, -75.54526, -75.47861, -75.50235, -75.52194, -75.52022, 
  -75.54835, -75.53944, -75.51953, -75.52091, -75.4996, -75.52297, -75.54698, -75.52743, -75.53361, -75.48791, 
  -75.4793, -75.49444, -75.47758, -75.4824, -75.46104, -75.47896, -75.44241, -75.42284, -75.39793, -75.37229, 
  -75.35911, -75.33896, -75.32366, -75.31252, -75.27417, -75.25741, -75.24622, -75.22802, -75.23082, -75.20069, 
  -75.18875, -75.14798, -75.15642, -75.09932, -75.06609, -75.02569, -75.00439, -74.96454, -74.97451, -74.93316, 
  -74.92744, -74.86446, -74.81706, -74.75652, -74.7305, -74.70734, -74.68269, -74.63182, -74.61944, -74.57713, 
  -74.58808, -74.35351, -74.32385, -74.32682, -74.2986, -74.3624, -74.41488, -74.38164, -74.39346, -74.36906, 
  -74.36018, -74.32979, -74.26437, -74.17474, -74.18373, -74.11321, -74.135, -74.0703, -74.04842, -73.98716, 
  -73.90666, -73.83417, -73.83188, -73.88761, -73.93176, -73.95607, -73.92902, -73.9119, -73.88943, -73.89248, 
  -73.88677, -73.85968, -73.85285, -73.883, -73.85858, -73.82686, -73.82686, -73.80006, -73.76862, -73.71325, 
  -73.72403, -73.68524, -73.58076, -73.52476, -73.50762, -73.40595, -73.29815, -73.27841, -73.25073, -73.21983, 
  -73.12521, -73.09569, -73.06211, -73.09329, -73.0861, -73.0477, -73.0501, -73.03569, -73.0861, -73.16264, 
  -73.13079, -73.13478, -73.11245, -73.14195, -73.11165, -73.13717, -73.0893, -73.0821, -72.96569, -72.82919, 
  -72.79266, -72.74751, -72.74629, -72.7202, -72.70347, -72.71694, -72.71979, -72.79226, -72.79226, -72.85714, 
  -72.83081, -72.83284, -72.80525, -72.80525, -72.67813, -72.5974, -72.58754, -72.57973, -72.56904, -72.56451, 
  -72.60562, -72.5785, -72.6089, -72.611, -72.5843, -72.58553, -72.5555, -72.56579, -72.53615, -72.53532, 
  -72.51057, -72.49984, -72.48332, -72.48662, -72.45808, -72.43821, -72.38883, -72.37303, -72.31972, -72.32348, 
  -72.23402, -72.18493, -72.14666, -72.12517, -72.09438, -72.05845, -72.0593, -71.96629, -71.75465, -71.74261, 
  -71.77184, -71.76411, -71.6421, -71.43078, -71.35102, -71.30353, -71.29208, -71.25681, -71.26294, -71.27837, 
  -71.33339, -71.41853, -71.4159, -71.56934, -71.5867, -71.52152, -71.39576, -71.29913, -71.19582, -71.10798, 
  -71.03046, -71.02867, -70.99829, -70.91764, -70.92662, -71.01706, -71.09908, -71.09819, -71.20025, -71.27622, 
  -71.33296, -71.35053, -71.40491, -71.43422, -71.41848, -71.45869, -71.47659, -71.5193, -71.53888, -71.57798, 
  -71.59793, -71.71678, -71.70298, -71.71979, -71.70816, -71.61353, -71.57364, -71.60703, -71.65896, -71.6771, 
  -71.65593, -71.59273, -71.57103, -71.4936, -71.34487, -71.33999, -71.22585, -71.11771, -71.0487, -71.03755, 
  -70.97408, -70.83931, -70.77521, -70.80096, -70.83571, -70.91759, -70.86049, -70.82263, -70.739, -70.68956, 
  -70.69682, -70.75168, -70.86094, -70.89423, -71.04335, -71.11326, -71.13947, -71.16166, -71.21082, -71.28322, 
  -71.31097, -71.37686, -71.3558, -71.35975, -71.34306, -71.35624, -71.33256, -71.35277, -71.33081, -71.3519, 
  -71.32729, -71.36331, -71.34048, -71.36857, -71.36682, -71.329, -71.31493, -71.31273, -71.29027, -71.30348, 
  -71.38957, -71.45695, -71.45913, -71.48488, -71.43335, -71.44078, -71.38826, -71.44209, -71.29292, -71.29336, 
  -71.3413, -71.33427, -71.35185, -71.32108, -71.28454, -71.26603, -71.29027, -71.25897, -71.29732, -71.31493, 
  -71.37379, -71.37335, -71.40009, -71.4386, -71.4386, -71.48444, -71.46088, -71.39746, -71.45258, -71.41323, 
  -71.43685, -71.42548, -71.46874, -71.44472, -71.40622, -71.39483, -71.33691, -71.25853, -71.25853, -71.29159, 
  -71.38256, -71.39133, -71.67883, -71.64474, -71.66851, -71.63955, -71.69915, -71.75255, -71.75857, -71.85889, 
  -71.76845, -71.72587, -71.35726, -71.17722, -71.16171, -70.933, -70.9312, -70.86019, -70.87549, -70.83135, 
  -70.76993, -70.78801, -70.72283, -70.7183, -70.68471, -70.69107, -70.63651, -70.6538, -70.63079, -70.65653, 
  -70.61464, -70.62467, -70.58088, -70.60187, -70.57845, -70.55423, -70.53278, -70.54193, -70.57621, -70.52134, 
  -70.5401, -70.56525, -70.5401, -70.54285, -70.51859, -70.54696, -70.51676, -70.53187, -70.5195, -70.54147, 
  -70.51945, -70.49562, -70.47916, -70.51538, -70.51172, -70.47044, -70.37104, -70.22985, -70.19265, -70.15819, 
  -70.19824, -70.24883, -70.3516, -70.37145, -70.42627, -70.42995, -70.45661, -70.47728, -70.47636, -70.50158, 
  -70.47085, -70.48599, -70.44191, -70.41845, -70.42167, -70.36868, -70.37468, -70.35622, -70.38067, -70.3026, 
  -70.27573, -70.26971, -70.21167, -70.1628, -70.07406, -70.07359, -70.11194, -70.14415, -70.26553, -70.31694, 
  -70.32989, -70.3516, -70.33266, -70.3419, -70.50113, -70.48278, -70.61358, -70.69955, -70.69728, -70.75168, 
  -70.73447, -70.75847, -70.77159, -70.76707, -70.78606, -70.68911, -70.6532, -70.62816, -70.58119, -70.52541, 
  -70.51029, -70.47085, -70.4534, -70.3945, -70.38528, -70.35853, -70.37652, -70.35437, -70.36822, -70.3516, 
  -70.3248, -70.31971, -70.29473, -70.29287, -70.2493, -70.23862, -70.25997, -70.23315, -70.17444, -70.13995, 
  -70.14368, -70.11287, -70.07968, -70.05486, -70.07687, -70.04081, -70.07172, -70.12922, -70.14974, -70.17212, 
  -70.27341, -70.26414, -70.28732, -70.29334, -70.33312, -70.33035, -70.35345, -70.34329, -70.32156, -70.34144, 
  -70.29889, -70.30537, -70.26971, -70.33451, -70.28176, -70.31925, -70.31093, -70.33035, -70.3026, -70.34421, 
  -70.20981, -70.18236, -70.18562, -70.1572, -70.13062, -70.16047, -70.25997, -70.38759, -70.45478, -70.44145, 
  -70.48966, -70.46396, -70.54646, -70.53776, -70.5428, -70.52449, -70.49883, -70.49929, -70.44375, -70.42995, 
  -70.38759, -70.35068, -70.32758, -70.24512, -70.1805, -70.16746, -70.2298, -70.25538, -70.24564, -70.27393, 
  -70.36181, -70.38533, -70.3881, -70.40607, -70.4461, -70.47779, -70.61819, -70.63231, -70.65234, -70.6578, 
  -70.71775, -70.73361, -70.74313, -70.77028, -70.7472, -70.77209, -70.77616, -70.79695, -70.80463, -70.83936, 
  -70.85198, -70.86549, -70.87764, -70.82088, -70.86144, -70.86234, -70.92213, -70.90192, -70.92342, -70.90417, 
  -70.83891, -70.82539, -70.87539, -70.86099, -70.8335, -70.79876, -70.86234, -70.83711, -70.85784, -70.8105, 
  -70.76304, -70.7114, -70.69733, -70.6578, -70.48237, -70.4709, -70.41528, -70.25816, -70.2266, -70.23356, 
  -70.32912, -70.35442, -70.3904, -70.44564, -70.481, -70.54971, -70.57941, -70.61135, -70.61864, -70.61089, 
  -70.64233, -70.63231, -70.65643, -70.68825, -70.6937, -70.71961, -70.73276, -70.77169, -70.76128, -70.77269, 
  -70.7554, -70.77983, -70.76536, -70.82724, -70.81506, -70.82724, -70.62689, -70.59087, -70.56713, -70.56164, 
  -70.40197, -70.4098, -70.40013, -70.46223, -70.48243, -70.54976, -70.56347, -70.58174, -70.60045, -70.60501, 
  -70.62963, -70.63919, -70.67012, -70.68421, -70.79293, -70.78661, -70.83716, -70.85558, -70.90646, -70.90601, 
  -70.98895, -70.97522, -71.04939, -71.01458, -71.02083, -70.93758, -70.96895, -70.89987, -70.99044, -70.97791, 
  -70.92397, -70.90422, -70.84032, -70.83806, -70.79248, -70.79836, -70.74318, -70.72505, -70.73774, -70.71235, 
  -70.72777, -70.71281, -70.72142, -70.70283, -70.71271, -70.6782, -70.69001, -70.67048, -70.67457, -70.62315, 
  -70.56657, -70.48416, -70.45707, -70.41799, -70.36637, -70.36314, -70.31555, -70.30954, -70.29565, -70.2799, 
  -70.30167, -70.26924, -70.29797, -70.26739, -70.28593, -70.21214, -70.23816, -70.22654, -70.23862, -70.22236, 
  -70.23119, -70.19679, -70.20888, -70.04549, -70.04831, -70.01266, -70.01642, -69.95814, -69.94307, -69.90253, 
  -69.85198, -69.61891, -69.6036, -69.4942, -69.45953, -69.40212, -69.37601, -69.35811, -69.13768, -69.07303, 
  -68.90414, -68.86407, -68.7469, -68.6726, -68.6671, -68.69407, -68.68758, -68.71451, -68.81102, -68.81152, 
  -68.83582, -68.85862, -68.85911, -68.89227, -68.89376, -68.91106, -68.91847, -68.95006, -68.96338, -69.00721, 
  -69.04113, -69.0642, -69.05537, -69.08235, -69.09068, -69.12056, -69.11958, -69.14795, -69.12448, -69.13817, 
  -69.12741, -69.1279, -69.10685, -69.07549, -69.07696, -69.04358, -69.04358, -69.06224, -69.08529, -69.09509, 
  -69.12448, -69.11028, -69.13084, -69.13133, -69.14404, -69.14306, -69.18068, -69.18605, -69.20605, -69.22554, 
  -69.28342, -69.27176, -69.29168, -69.36101, -69.38133, -69.39584, -69.40936, -69.46194, -69.47832, -69.50286, 
  -69.54753, -69.60312, -69.61174, -69.681, -69.72673, -69.72958, -69.68576, -69.68815, -69.66334, -69.67909, 
  -69.64807, -69.68147, -69.63612, -69.68386, -69.66334, -69.58732, -69.57439, -69.62656, -69.62417, -69.63612, 
  -69.63087, -69.64233, -69.69948, -69.75526, -69.76866, -69.80378, -69.82368, -69.87997, -69.87714, -69.85066, 
  -69.8483, -69.81752, -69.7867, -69.73207, -69.73302, -69.71017, -69.71779, -69.73159, -69.73349, -69.74871, 
  -69.76344, -69.74871, -69.73968, -69.71969, -69.71112, -69.68587, -69.68921, -69.6749, -69.68253, -69.75869, 
  -69.73302, -69.73968, -69.71255, -69.74728, -69.78575, -69.81184, -69.80567, -69.83599, -69.86769, -69.8743, 
  -69.90641, -69.94176, -69.96436, -69.96436, -70.02825, -69.98787, -69.99868, -69.99727, -70.02544, -70.08072, 
  -70.11952, -70.12185, -70.1615, -70.19224, -70.1806, -70.21271, -70.19224, -70.18479, -70.05169, -70.047, 
  -69.99022, -69.97565, -69.97659, -69.97095, -69.96765, -69.95683, -69.95165, -69.94176, -69.93847, -69.90405, 
  -69.90358, -69.85066, -69.84215, -69.83978, -69.8251, -69.81847, -69.79761, -69.7886, -69.76914, -69.73349, 
  -69.70626, -69.68576, -69.66239, -69.65762, -69.64472, -69.63995, -69.68481, -69.68719, -69.69816, -69.69339, 
  -69.70244, -69.69148, -69.68147, -69.65141, -69.64998, -69.64377, -69.65809, -69.65284, -69.64233, -69.62513, 
  -69.60695, -69.6103, -69.57918, -69.59211, -69.54513, -69.5216, -69.4942, -69.5019, -69.48024, -69.46146, 
  -69.46483, -69.42964, -69.44395, -69.43977, -69.41854, -69.41226, -69.43784, -69.46483, -69.47254, -69.46917, 
  -69.47302, -69.46194, -69.46194, -69.44845, -69.44073, -69.4605, -69.45616, -69.44411, -69.43012, -69.42095, 
  -69.40936, -69.39874, -69.39584, -69.3794, -69.36682, -69.32177, -69.31789, -69.27711, -69.28828, -69.27759, 
  -69.26787, -69.25134, -69.1919, -69.17824, -69.09117, -69.02933, -69.01655, -69.00179, -68.95598, -68.9471, 
  -68.92637, -68.8987, -68.8705, -68.86258, -68.84524, -68.82491, -68.84722, -68.813, -68.80059, -68.77028, 
  -68.7673, -68.72498, -68.71551, -68.72897, -68.74391, -68.71501, -68.7205, -68.6716, -68.6706, -68.63911, 
  -68.63911, -68.58502, -68.54588, -68.51773, -68.482, -68.49811, -68.47646, -68.45125, -68.40075, -68.43258, 
  -68.41541, -68.38609, -68.37647, -68.38963, -68.36534, -68.31567, -68.25673, -68.25113, -68.21854, -68.19713, 
  -68.17723, -68.11742, -68.09643, -68.08515, -68.06721, -68.04309, -68.04309, -68.08105, -68.04925, -68.06926, 
  -68.05335, -68.05181, -68.0323, -68.0102, -68.00403, -67.98859, -67.97521, -67.98087, -67.95872, -67.96851, 
  -67.96387, -67.98396, -67.95408, -67.96233, -67.94377, -67.97269, -67.96084, -67.86169, -67.78497, -67.73351, 
  -67.73351, -67.75068, -67.72726, -67.72466, -67.71164, -67.71633, -67.69289, -67.71373, -67.70852, -67.73143, 
  -67.78237, -67.74964, -67.72414, -67.7106, -67.68194, -67.68611, -67.64958, -67.67568, -67.64958, -67.65689, 
  -67.67151, -67.73767, -67.73663, -67.76107, -67.75172, -67.6835, -67.58579, -67.55277, -67.52024, -67.4987, 
  -67.47136, -67.4503, -67.41341, -67.38438, -67.32992, -67.32304, -67.29019, -67.26898, -67.28966, -67.27163, 
  -67.27959, -67.26102, -67.28542, -67.31086, -67.3458, -67.35955, -67.35267, -67.36219, -67.35532, -67.39705, 
  -67.40919, -67.40708, -67.41446, -67.44503, -67.4682, -67.49029, -67.49502, -67.56169, -67.56902, -67.54386, 
  -67.53284, -67.54018, -67.52339, -67.53494, -67.54858, -67.58579, -67.57944, -67.5375, -67.51598, -67.52123, 
  -67.51703, -67.53435, -67.54695, -67.54695, -67.57944, -67.58101, -67.59829, -67.59201, -67.5962, -67.58782, 
  -67.5852, -67.57106, -67.56739, -67.57525, -67.58258, -67.60509, -67.60823, -67.62549, -67.63019, -67.65109, 
  -67.65527, -67.67927, -67.70586, -67.72304, -67.7246, -67.74126, -67.73137, -67.65788, -67.64221, -67.65475, 
  -67.64535, -67.66779, -67.6537, -67.69908, -67.72304, -67.71992, -67.73761, -67.77764, -67.87198, -67.88439, 
  -67.90248, -67.90041, -67.919, -67.95254, -67.99477, -68.02819, -68.02922, -68.05797, -68.05797, -68.01328, 
  -67.92881, -67.75686, -67.7449, -67.76205, -67.75946, -67.78076, -67.77712, -67.77764, -67.74022, -67.71627, 
  -67.60195, -67.57211, -67.55219, -67.53331, -67.5081, -67.49496, -67.49181, -67.48077, -67.44656, -67.43865, 
  -67.42126, -67.39277, -67.36953, -67.37164, -67.39752, -67.39699, -67.35579, -67.35314, -67.32775, -67.28907, 
  -67.27369, -67.24874, -67.24131, -67.22643, -67.22111, -67.23387, -67.19504, -67.17481, -67.19398, -67.19132, 
  -67.16255, -67.13269, -67.13109, -67.15189, -67.22483, -67.21579, -67.19664, -67.18866, -67.12361, -67.02036, 
  -66.94196, -66.94142, -66.90051, -66.8811, -66.8255, -66.81955, -66.88056, -66.95862, -66.96131, -66.99944, 
  -66.98602, -67.02786, -67.03054, -67.01178, -67.0284, -67.02089, -67.03376, -67.02518, -67.03858, -67.08568, 
  -67.13962, -67.19504, -67.22483, -67.23653, -67.28695, -67.29385, -67.22909, -67.24562, -67.15568, -67.15355, 
  -67.14288, -67.17061, -67.20362, -67.21479, -67.19457, -67.2488, -67.24349, -67.19936, -67.21213, -67.1786, 
  -67.2116, -67.15568, -67.14555, -67.16315, -67.15248, -67.13435, -67.11887, -67.11086, -67.05149, -67.01935, 
  -66.99306, -66.96943, -66.96137, -66.93502, -66.91511, -66.88116, -66.85203, -66.83745, -66.84879, -66.82988, 
  -66.82448, -66.80664, -66.80718, -66.77308, -66.76821, -66.72592, -66.75087, -66.72917, -66.74761, -66.73894, 
  -66.78337, -66.79257, -66.76929, -66.77416, -66.72646, -66.55931, -66.52651, -66.48381, -66.35801, -66.28963, 
  -66.28908, -66.26643, -66.25316, -66.20832, -66.22604, -66.13509, -66.03147, -66.03147, -65.97227, -65.97618, 
  -65.95829, -65.95885, -65.89779, -65.9034, -65.83884, -65.88969, -65.88046, -65.88383, -65.87373, -65.88046, 
  -65.87092, -65.8928, -65.88663, -65.90334, -65.891, -65.91567, -65.92799, -66.01411, -66.02025, -66.11051, 
  -66.12663, -66.25193, -66.23865, -66.32207, -66.33916, -66.32813, -66.33916, -66.35348, -66.42444, -66.33695, 
  -66.40356, -66.44695, -66.45628, -66.39971, -66.38376, -66.39201, -66.38211, -66.41235, -66.44146, -66.46724, 
  -66.46615, -66.50724, -66.53296, -66.60558, -66.62521, -66.63937, -66.63828, -66.64862, -66.6644, -66.6818, 
  -66.68072, -66.71006, -66.71657, -66.70843, -66.72634, -66.69865, -66.72369, -66.70577, -66.70686, -66.68023, 
  -66.67806, -66.60946, -66.68404, -66.61982, -66.61927, -66.58601, -66.58, -66.62418, -66.68078, -66.73345, 
  -66.75731, -66.76706, -66.81361, -66.83414, -66.87193, -66.89458, -66.86762, -66.87894, -66.92743, -66.93066, 
  -66.9468, -66.96937, -67.00212, -67.015, -67.10332, -67.17534, -67.19558, -67.19717, -67.21899, -67.26255, 
  -67.29013, -67.28324, -67.25299, -67.19824, -67.3616, -67.38802, -67.45551, -67.45603, -67.34891, -67.19611, 
  -67.12735, -67.07177, -67.05947, -67.06963, -67.04501, -67.04769, -67.09423, -67.08996, -67.04554, -67.02572, 
  -67.03429, -67.00588, -67.00856, -66.99085, -67.00266, -67.015, -67.01607, -67.03108, -67.03429, -67.05893, 
  -67.06803, -67.12255, -67.09209, -67.10118, -67.14016, -67.20303, -67.22058, -67.23015, -67.26361, -67.23281, 
  -67.23015, -67.20196, -67.14869, -67.08354, -67.08835, -67.12788, -67.15402, -67.2009, -67.1925, -67.18505, 
  -67.17173, -67.16054, -67.15414, -67.18345, -67.15574, -67.16853, -67.19729, -67.23346, -67.24514, -67.2547, 
  -67.29131, -67.3141, -67.28336, -67.27806, -67.25842, -67.23611, -67.25205, -67.25524, -67.26904, -67.26532, 
  -67.30986, -67.30986, -67.35062, -67.33316, -67.35908, -67.36383, -67.3818, -67.38338, -67.44246, -67.43561, 
  -67.4551, -67.46826, -67.4772, -67.49245, -67.50401, -67.48088, -67.51592, -67.53272, -67.56419, -67.54648, 
  -67.59102, -67.59469, -67.55749, -67.51761, -67.52076, -67.50763, -67.50501, -67.45872, -67.45715, -67.43239, 
  -67.42554, -67.39177, -67.38966, -67.39863, -67.39758, -67.40971, -67.39969, -67.40391, -67.41235, -67.38913, 
  -67.39441, -67.38491, -67.40286, -67.39863, -67.41604, -67.41604, -67.43608, -67.43133, -67.45557, -67.43871, 
  -67.44293, -67.41763, -67.44609, -67.43502, -67.46925, -67.4682, -67.44819, -67.46346, -67.46557, -67.49502, 
  -67.48766, -67.51026, -67.52654, -67.53861, -67.55382, -67.56378, -67.54123, -67.54648, -67.57269, -67.59573, 
  -67.58055, -67.547, -67.54176, -67.5664, -67.55539, -67.56483, -67.54123, -67.54333, -67.53284, -67.55382, 
  -67.54596, -67.57059, -67.55539, -67.56116, -67.54123, -67.55644, -67.55068, -67.55161, -67.58986, -67.58933, 
  -67.6202, -67.60922, -67.64529, -67.66356, -67.62491, -67.63327, -67.62595, -67.63797, -67.64738, -67.66669, 
  -67.64738, -67.66565, -67.60922, -67.60347, -67.58881, -67.5841, -67.55895, -67.56, -67.52852, -67.5343, 
  -67.52642, -67.52957, -67.5175, -67.51645, -67.50647, -67.50909, -67.49753, -67.50279, -67.49491, -67.50909, 
  -67.50279, -67.51487, -67.51067, -67.53482, -67.52275, -67.55947, -67.56629, -67.66774, -67.68651, -67.76667, 
  -67.75212, -67.762, -67.79056, -67.77031, -67.78122, -67.75732, -67.78693, -67.80924, -67.8305, -67.83465, 
  -67.89932, -67.8683, -67.88382, -67.83516, -67.7542, -67.72351, -67.75628, -67.83516, -67.88795, -67.94268, 
  -67.98905, -67.9942, -68.05945, -68.16747, -68.2139, -68.24446, -68.2526, -68.26481, -68.35313, -68.36528, 
  -68.39716, -68.40828, -68.48597, -68.50258, -68.54331, -68.5418, -68.57845, -68.57443, -68.58948, -68.57393, 
  -68.57795, -68.599, -68.57995, -68.59199, -68.60401, -68.60952, -68.63005, -68.64256, -68.66755, -68.68053, 
  -68.72642, -68.72044, -68.76973, -68.80252, -68.81394, -68.82932, -68.87441, -68.88134, -68.89618, -68.8655, 
  -68.86797, -68.90507, -68.90458, -68.93619, -68.94359, -68.96529, -68.96579, -68.98451, -68.98697, -69.00814, 
  -69.01748, -69.05089, -69.06022, -69.10729, -69.11463, -69.1347, -69.13616, -69.18307, -69.21233, -69.22646, 
  -69.23084, -69.32656, -69.35612, -69.31201, -69.37838, -69.36386, -69.33771, -69.32317, -69.34067, -69.33873, 
  -69.31401, -69.32565, -69.35714, -69.35569, -69.39294, -69.4026, -69.46243, -69.48987, -69.52881, -69.55089, 
  -69.54849, -69.61269, -69.69339, -69.70911, -69.71149, -69.73957, -69.7467, -69.78138, -69.78612, -69.87609, 
  -70.00844, -70.03096, -70.00797, -69.96426, -69.89545, -69.85434, -69.83541, -69.86285, -69.90489, -69.92705, 
  -69.96802, -70.0197, -70.01078, -70.02861, -70.0895, -70.09371, -70.111, -70.12035, -70.13342, -70.15674, 
  -70.17025, -70.18143, -70.24048, -70.26878, -70.28315, -70.27202, -70.27156, -70.27712, -70.31648, -70.3756, 
  -70.37934, -70.39363, -70.3775, -70.39317, -70.40284, -70.41758, -70.41436, -70.45529, -70.43552, -70.46355, 
  -70.42448, -70.41482, -70.50484, -70.54834, -70.593, -70.59848, -70.61682, -70.62229, -70.7386, -70.82674, 
  -70.8299, -70.80056, -70.80101, -70.76395, -70.7635, -70.64551, -70.62138, -70.58078, -70.5721, -70.47916, 
  -70.48192, -70.45666, -70.46172, -70.45023, -70.44701, -70.38026, -70.33641, -70.30496, -70.30126, -70.42264, 
  -70.75807, -70.77164, -70.86549, -70.88439, -70.90147, -71.01259, -71.18687, -71.21519, -71.25073, -71.29835, 
  -71.31859, -71.34321, -71.33266, -71.37481, -71.37779, -71.40408, -71.39532, -71.41109, -71.42684, -71.60761, 
  -71.68199, -71.62493, -71.62753, -71.68544, -71.77499, -71.79388, -71.81618, -71.81627, -71.86592, -71.8625, 
  -71.90947, -71.91714, -71.93674, -71.94525, -72.08095, -72.10122, -72.16779, -72.22238, -72.23412, -72.64048, 
  -72.66968, -72.99477, -73.13876, -73.20952, -73.20872, -73.27287, -73.30762, -73.30683, -73.32812, -73.31498, 
  -73.29052, -73.25455, -73.23515, -73.21177, -73.21732, -73.18398, -73.16887, -73.17563, -73.15137, -73.14619, 
  -73.10593, -73.06358, -73.02366, -73.01323, -72.92232, -72.69094, -72.47555, -72.49209, -72.47472, -72.49291, 
  -72.42669, -72.4101, -72.25422, -72.25924, -72.31523, -72.26761, -72.23412, -72.21819, -72.18545, -72.08095, 
  -72.05982, -72.07504, -72.05135, -72.05135, -71.98777, -71.97233, -71.89354, -71.83926, -71.82341, -71.83412, 
  -71.82384, -71.8307, -71.81827, -71.82084, -71.80403, -71.7727, -71.72625, -71.75503, -71.61868, -71.63859, 
  -71.60308, -71.47611, -71.4088, -71.30608, -71.24965, -71.19661, -71.03661, -70.95163, -70.95163, -70.90407, 
  -70.87799, -70.81581, -70.79504, -70.76611, -70.75706, -70.71084, -70.69178, -70.66088, -70.66906, -70.71901, 
  -70.70812, -70.66634, -70.68451, -70.59893, -70.60532, -70.54503, -70.52398, -70.40366, -70.41195, -70.47355, 
  -70.33815, -70.25481, -70.15436, -70.14036, -70.03841, -69.99805, -69.95291, -69.94538, -69.89729, -69.8954, 
  -69.85476, -69.84435, -69.80457, -69.7799, -69.80457, -69.80172, -69.82826, -69.80552, -69.80741, -69.76946, 
  -69.75473, -69.76138, -69.7419, -69.7514, -69.75045, -69.72905, -69.73238, -69.71382, -69.72429, -69.71144, 
  -69.73143, -69.73096, -69.74713, -69.81689, -69.86422, -69.86895, -69.89398, -69.88218, -69.93737, -69.90578, 
  -69.92936, -69.88832, -69.89681, -69.86375, -69.82068, -69.83631, -69.86044, -69.88832, -69.82921, -69.92747, 
  -69.90342, -69.8869, -69.868, -69.85665, -69.8401, -69.83157, -69.81026, -69.82163, -69.84152, -69.86847, 
  -69.86611, -69.87981, -69.89776, -69.89681, -69.94396, -69.88501, -69.89587, -69.8784, -69.85949, -69.8453, 
  -69.83299, -69.81642, -69.815, -69.78797, -69.77468, -69.77088, -69.75378, -69.70573, -69.70239, -69.75235, 
  -69.69715, -69.66854, -69.61742, -69.60977, -69.59876, -69.60929, -69.59685, -69.59541, -69.55851, -69.55276, 
  -69.53548, -69.53404, -69.51867, -69.50328, -69.48308, -69.47206, -69.4605, -69.46002, -69.44845, -69.44025, 
  -69.44363, -69.43639, -69.42964, -69.4306, -69.40743, -69.39535, -69.4026, -69.44122, -69.43832, -69.40502, 
  -69.41854, -69.40212, -69.40502, -69.46194, -69.47302, -69.44749, -69.4417, -69.39729, -69.40019, -69.34067, 
  -69.34358, -69.30188, -69.29217, -69.2635, -69.26107, -69.3523, -69.25912, -69.28342, -69.26398, -69.29022, 
  -69.21677, -69.19873, -69.21141, -69.19093, -69.1797, -69.18458, -69.21872, -69.1758, -69.12741, -69.11028, 
  -69.0897, -69.07598, -69.06028, -69.00721, -69.00573, -68.98604, -68.97865, -68.96683, -68.94464, -68.9239, 
  -68.92687, -68.89326, -68.84871, -68.84078, -68.82144, -68.81549, -68.80457, -68.7668, -68.7459, -68.73992, 
  -68.70953, -68.70853, -68.66011, -68.65167, -68.63616, -68.62616, -68.60563, -68.53538, -68.49716, -68.48004, 
  -68.41445, -68.39373, -68.38311, -68.37501, -68.36793, -68.36388, -68.35172, -68.34412, -68.30405, -68.23897, 
  -68.1977, -68.18647, -68.16196, -68.10161, -68.09597, -68.03184, -68.03493, -67.92113, -67.92422, -67.87876, 
  -67.89479, -67.87255, -67.83632, -67.76211, -67.77666, -67.76731, -67.76315, -67.72935, -67.73559, -67.71477, 
  -67.71008, -67.6908, -67.70279, -67.66629, -67.6908, -67.68142, -67.67985, -67.65115, -67.6908, -67.68142, 
  -67.72831, -67.70279, -67.70435, -67.66733, -67.65538, -67.64024, -67.62404, -67.60573, -67.59841, -67.61201, 
  -67.59945, -67.63501, -67.61463, -67.62351, -67.60678, -67.61358, -67.57537, -67.59056, -67.57799, -67.59736, 
  -67.59265, -67.50086, -67.47089, -67.44351, -67.38497, -67.37282, -67.33739, -67.33157, -67.26373, -67.26797, 
  -67.24143, -67.24302, -67.22123, -67.20953, -67.19463, -67.17706, -67.14561, -67.14028, -67.1029, -67.0997, 
  -67.12747, -67.10664, -67.11519, -67.06761, -67.09008, -67.13494, -67.13654, -67.16054, -67.15041, -67.1728, 
  -67.17173, -67.19144, -67.18292, -67.1941, -67.17599, -67.1925, -67.16107, -67.16907, -67.15361, -67.14721, 
  -67.12854, -67.09435, -67.07617, -67.04138, -67.05102, -67.01672, -67.03066, -67.01565, -67.02631, -67.02095, 
  -67.06434, -67.03221, -67.03114, -66.98071, -66.97373, -66.95707, -66.93287, -66.93813, -66.92845, -66.92952, 
  -66.9123, -66.90853, -66.88643, -66.88158, -66.83138, -66.84111, -66.78379, -66.78108, -66.71386, -66.71711, 
  -66.80489, -66.78054, -66.7984, -66.84219, -66.84921, -66.79894, -66.7984, -66.77404, -66.81355, -66.78812, 
  -66.80544, -66.82328, -66.86918, -66.85137, -66.78758, -66.7957, -66.77296, -66.80544, -66.77404, -66.80273, 
  -66.80381, -66.73882, -66.74424, -66.703, -66.71006, -66.68615, -66.68017, -66.65842, -66.6263, -66.62085, 
  -66.57066, -66.60013, -66.61867, -66.56247, -66.5581, -66.52967, -66.53296, -66.49957, -66.51381, -66.56083, 
  -66.57066, -66.62847, -66.6203, -66.64209, -66.59904, -66.55318, -66.58867, -66.57885, -66.59631, -66.57776, 
  -66.61376, -66.62521, -66.63719, -66.6606, -66.68072, -66.70517, -66.73068, -66.67909, -66.69919, -66.74207, 
  -66.73014, -66.67419, -66.61976, -66.57776, -66.56411, -66.54061, -66.5056, -66.50943, -66.53733, -66.52475, 
  -66.53842, -66.51928, -66.53897, -66.64971, -66.65896, -66.67909, -66.63664, -66.66277, -66.65515, -66.57448, 
  -66.58813, -66.62194, -66.58376, -66.62085, -66.48204, -66.51983, -66.55045, -66.5914, -66.55591, -66.58158, 
  -66.61976, -66.66114, -66.55865, -66.58213, -66.45792, -66.43872, -66.51162, -66.54334, -66.58704, -66.70625, 
  -66.73339, -66.74804, -66.81409, -66.82706, -66.88428, -66.90906, -66.86486, -66.82274, -66.7106, -66.68996, 
  -66.74695, -66.73122, -66.74207, -66.71494, -66.7144, -66.76917, -66.75291, -66.722, -66.68724, -66.68996, 
  -66.66821, -66.64372, -66.61049, -66.54614, -66.54996, -66.61818, -66.57564, -66.62363, -66.64923, -66.59092, 
  -66.59583, -66.53411, -66.51496, -66.48539, -66.50183, -66.48649, -66.49799, -66.45469, -66.46182, -66.42999, 
  -66.41791, -66.47882, -66.45085, -66.51496, -66.48485, -66.43438, -66.39482, -66.37832, -66.3541, -66.25199, 
  -66.17666, -66.17722, -66.16446, -66.15558, -66.0872, -66.07272, -66.05378, -66.05099, -66.03315, -66.03538, 
  -66.00356, -65.96276, -65.97842, -65.95325, -65.88713, -65.88601, -65.86075, -65.86861, -65.85626, -65.88825, 
  -65.88096, -65.89835, -65.92694, -65.91293, -65.93646, -65.95829, -65.95829, -65.99742, -65.99407, -66.01864, 
  -65.99965, -65.98066, -66.03482, -65.97618, -65.98904, -66.02031, -66.04994, -66.09617, -66.07446, -66.07, 
  -66.10031, -66.10284, -66.1433, -66.14108, -66.16458, -66.17346, -66.20174, -66.21669, -66.27588, -66.47053, 
  -66.46066, -66.48314, -66.4793, -66.49903, -66.49465, -66.55427, -66.53788, -66.5428, -66.53788, -66.55154, 
  -66.54662, -66.6361, -66.71277, -66.85029, -66.84057, -66.79678, -66.80165, -66.72851, -66.67256, -66.61049, 
  -66.62847, -66.67963, -66.71657, -66.73394, -66.76971, -66.75942, -66.80435, -66.88643, -66.89721, -66.91445, 
  -66.93275, -66.98059, -66.92629, -66.95856, -66.93221, -66.91068, -66.87565, -66.8956, -66.8805, -66.90745, 
  -66.88266, -66.86918, -66.92683, -66.84219, -66.84813, -66.83354, -66.85946, -66.82112, -66.83084, -66.82003, 
  -66.82382, -66.78054, -66.78487, -66.76754, -66.7865, -66.75996, -66.74261, -66.69599, -66.6902, -66.71844, 
  -66.68422, -66.70867, -66.6902, -66.64723, -66.64614, -66.72604, -66.71627, -66.66446, -66.65739, -66.60564, 
  -66.59146, -66.56581, -66.55397, -66.53265, -66.52828, -66.51843, -66.50036, -66.50365, -66.47461, -66.45213, 
  -66.4049, -66.3741, -66.3741, -66.36639, -66.36529, -66.35263, -66.34547, -66.35318, -66.34216, -66.30962, 
  -66.28423, -66.27484, -66.2566, -66.23336, -66.18739, -66.14799, -66.04839, -66.04616, -66.00822, -65.99649, 
  -65.97581, -65.92936, -65.93664, -65.88732, -65.8862, -65.82328, -65.79233, -65.76472, -65.8497, -65.85701, 
  -65.90583, -65.92096, -65.97581, -65.98755, -66.13188, -66.12966, -66.21208, -66.21177, -66.25605, -66.26434, 
  -66.32728, -66.39721, -66.4093, -66.43731, -66.45652, -66.48832, -66.51788, -66.48284, -66.48119, -66.50967, 
  -66.50201, -66.52335, -66.52773, -66.5638, -66.57964, -66.643, -66.66966, -66.79768, -66.95462, -67.02548, 
  -67.02441, -67.06458, -67.06083, -67.12925, -67.17031, -67.22353, -67.29679, -67.32669, -67.33916, -67.35978, 
  -67.38725, -67.40467, -67.43842, -67.47106, -67.47948, -67.50472, -67.48684, -67.49052, -67.42788, -67.42841, 
  -67.39517, -67.39992, -67.37458, -67.37669, -67.34339, -67.37405, -67.32751, -67.32434, -67.29626, -67.28778, 
  -67.24532, -67.2708, -67.24851, -67.2655, -67.31904, -67.32275, -67.29626, -67.29308, -67.22619, -67.21769, 
  -67.19108, -67.21183, -67.14632, -67.1767, -67.09025, -67.094, -67.15112, -67.15379, -67.12017, -67.11697, 
  -67.07475, -67.04745, -66.96054, -66.94978, -67.07956, -67.12925, -67.14472, -67.09987, -67.11109, -67.08384, 
  -67.10308, -67.15219, -67.15112, -67.07688, -67.09079, -67.07261, -67.07742, -67.0603, -67.06511, -67.03084, 
  -67.0694, -67.08598, -67.1143, -67.13939, -67.19061, -67.16232, -67.19374, -67.16392, -67.19321, -67.16338, 
  -67.17937, -67.15645, -67.18309, -67.15539, -67.15805, -67.11964, -67.13565, -67.09613, -67.09827, -67.08116, 
  -67.08223, -67.0437, -67.05441, -67.02119, -67.01958, -66.98417, -66.99008, -66.97289, -66.97504, -66.93365, 
  -66.94656, -66.93472, -66.9788, -67.11483, -67.17297, -67.23576, -67.24107, -67.26284, -67.26656, -67.27982, 
  -67.32492, -67.34345, -67.35878, -67.34926, -67.39154, -67.42477, -67.43057, -67.35191, -67.36248, -67.27192, 
  -67.28253, -67.24644, -67.2406, -67.17676, -67.17783, -67.14425, -67.14851, -67.09405, -67.07801, -67.05286, 
  -67.02661, -66.96704, -66.90248, -66.90464, -66.86042, -66.86462, -66.83451, -66.83018, -66.81667, -66.81721, 
  -66.79395, -66.75117, -66.75767, -66.73436, -66.76146, -66.74683, -66.7555, -66.74358, -66.74683, -66.68223, 
  -66.65721, -66.58473, -66.6011, -66.58473, -66.59619, -66.63707, -66.6436, -66.67951, -66.67933, -66.70052, 
  -66.73309, -66.73255, -66.71355, -66.73255, -66.73526, -66.75478, -66.77753, -66.75478, -66.76128, -66.74448, 
  -66.7255, -66.73255, -66.65812, -66.67987, -66.62872, -66.61564, -66.5496, -66.53484, -66.45323, -66.41754, 
  -66.42139, -66.40215, -66.40545, -66.3818, -66.35373, -66.30411, -66.32948, -66.34381, -66.41864, -66.42853, 
  -66.4439, -66.4428, -66.46749, -66.44994, -66.47955, -66.46091, -66.50036, -66.42963, -66.3686, -66.35042, 
  -66.373, -66.38511, -66.42303, -66.45268, -66.42578, -66.41699, -66.46146, -66.43072, -66.44939, -66.43347, 
  -66.44994, -66.48503, -66.49817, -66.53429, -66.54687, -66.59874, -66.61182, -66.6456, -66.64015, -66.70107, 
  -66.71138, -66.81649, -66.84513, -66.81325, -66.85754, -66.94536, -66.95558, -66.98244, -67.00606, -67.06714, 
  -67.07356, -67.1462, -67.06553, -67.02911, -66.96686, -66.96472, -66.96782, -67.07237, -67.04828, -67.05738, 
  -67.04293, -67.06381, -67.02095, -67.02953, -67.04614, -67.06274, -67.08307, -67.08253, -67.11139, -67.07451, 
  -67.08681, -67.14715, -67.11139, -67.07986, -67.07451, -67.03382, -67.03918, -67.09269, -67.10498, -67.15035, 
  -67.15195, -67.08788, -67.00808, -66.97546, -66.86564, -66.80838, -66.77266, -66.73472, -66.68476, -66.5911, 
  -66.56927, -66.42029, -66.33665, -66.34326, -66.27926, -66.25605, -66.283, -66.2432, -66.19613, -66.18172, 
  -66.15508, -66.16396, -66.14287, -66.18061, -66.18449, -66.21386, -66.21829, -66.19613, -66.21386, -66.19835, 
  -66.24154, -66.20777, -66.24763, -66.17783, -66.18005, -66.16396, -66.16618, -66.14731, -66.14898, -66.20057, 
  -66.22162, -66.17506, -66.19835, -66.15286, -66.15397, -66.10173, -66.09227, -66.07724, -66.08336, -66.07668, 
  -66.11063, -66.10062, -66.14786, -66.17783, -66.19779, -66.22328, -66.24375, -66.2515, -66.28853, -66.283, 
  -66.31998, -66.31723, -66.26397, -66.29791, -66.40478, -66.43719, -66.48381, -66.50134, -66.45201, -66.46188, 
  -66.43499, -66.43994, -66.35195, -66.37178, -66.29846, -66.25482, -66.22162, -66.16507, -66.0995, -66.12509, 
  -66.2405, -66.25432, -66.22445, -66.25322, -66.27975, -66.26262, -66.27201, -66.24271, -66.25654, -66.23386, 
  -66.24492, -66.22389, -66.36909, -66.41858, -66.45536, -66.52165, -66.52384, -66.40979, -66.35257, -66.33493, 
  -66.34155, -66.32556, -66.37624, -66.44439, -66.43121, -66.46414, -66.46469, -66.4899, -66.49483, -66.54243, 
  -66.55009, -66.62811, -66.54353, -66.53204, -66.57521, -66.56211, -66.58394, -66.56757, -66.59704, -66.63634, 
  -66.64282, -66.62157, -66.62975, -66.67818, -66.68579, -66.70644, -66.76339, -66.77043, -66.74388, -66.76177, 
  -66.71784, -66.73683, -66.7726, -66.78072, -66.7352, -66.72381, -66.75309, -66.75093, -66.78776, -66.81319, 
  -66.82778, -66.87205, -66.86612, -66.84291, -66.84939, -66.8213, -66.82238, -66.79431, -66.80243, -66.77591, 
  -66.78457, -66.78024, -66.78836, -66.7797, -66.80243, -66.80622, -66.9023, -66.96095, -66.96955, -66.99425, 
  -66.99908, -67.01839, -67.01518, -67.02911, -67.02375, -67.02804, -67.01786, -67.01732, -67.00606, -67.00981, 
  -67.02054, -67.02107, -67.04465, -67.02536, -67.03822, -67.01088, -66.96848, -66.9545, -66.94429, -66.95128, 
  -66.93514, -66.9163, -66.89745, -66.88667, -66.87319, -66.84297, -66.88937, -66.9416, -66.98137, -66.99372, 
  -67.00391, -67.04626, -67.065, -67.07944, -67.0896, -67.12432, -67.08479, -67.1051, -67.14887, -67.1494, 
  -67.04947, -67.04144, -67.02965, -67.00284, -66.99801, -67.01786, -67.11044, -67.19203, -67.19788, -67.15633, 
  -67.16646, -67.22023, -67.22023, -67.35015, -67.36548, -67.37869, -67.42723, -67.43092, -67.46726, -67.64813, 
  -67.84472, -67.85973, -67.83643, -67.86048, -67.90994, -67.9342, -67.90012, -67.95225, -67.87686, -67.81627, 
  -67.72848, -67.7654, -67.74461, -67.73889, -67.52881, -67.50939, -67.51726, -67.51516, -67.54875, -67.55662, 
  -67.5891, -67.63617, -67.62886, -67.64401, -67.69671, -67.69775, -67.74097, -67.57182, -67.57653, -67.5912, 
  -67.58596, -67.59381, -67.58439, -67.60585, -67.63252, -67.68368, -67.69879, -67.74877, -67.76592, -67.78722, 
  -67.80279, -67.85927, -67.8427, -67.72484, -67.80331, -67.88979, -67.9213, -67.98058, -67.97749, -67.94555, 
  -67.91097, -67.9311, -67.93678, -67.98058, -67.97698, -67.95328, -67.92904, -67.93626, -67.91975, -67.94348, 
  -67.96668, -68.11355, -68.16469, -68.15856, -68.20195, -68.03407, -68.08641, -68.1514, -68.20755, -68.22896, 
  -68.24734, -68.28142, -68.29615, -68.28142, -68.28955, -68.32964, -68.3063, -68.37321, -68.41973, -68.38283, 
  -68.398, -68.34992, -68.37878, -68.36815, -68.4076, -68.41316, -68.44749, -68.43791, -68.44346, -68.42024, 
  -68.40508, -68.41316, -68.46918, -68.47422, -68.4485, -68.46212, -68.43589, -68.41013, -68.4374, -68.43942, 
  -68.46464, -68.45607, -68.46666, -68.41518, -68.39851, -68.45809, -68.45859, -68.40457, -68.38384, -68.448, 
  -68.45002, -68.49324, -68.46464, -68.45708, -68.37372, -68.35043, -68.43488, -68.43841, -68.45809, -68.43235, 
  -68.47774, -68.45657, -68.45153, -68.39547, -68.35397, -68.34485, -68.37878, -68.4717, -68.53348, -68.57978, 
  -68.71978, -68.76956, -68.79695, -68.82872, -68.82078, -68.78111, -68.76216, -68.73976, -68.72332, -68.74225, 
  -68.77061, -68.789, -68.74424, -68.78354, -68.7298, -68.6924, -68.66994, -68.65494, -68.67343, -68.64394, 
  -68.6929, -68.68841, -68.70537, -68.67093, -68.6934, -68.71036, -68.68042, -68.68741, -68.74573, -68.74324, 
  -68.84458, -68.80788, -68.86588, -68.85746, -68.83566, -68.81731, -68.76365, -68.79993, -68.77061, -68.77857, 
  -68.75718, -68.76216, -68.63444, -68.52851, -68.51242, -68.47013, -68.44239, -68.34023, -68.28441, -68.26662, 
  -68.28644, -68.31995, -68.32604, -68.36354, -68.41715, -68.4429, -68.52298, -68.57672, -68.62182, -68.64683, 
  -68.61932, -68.68431, -68.71324, -68.80876, -68.80379, -68.81918, -68.71972, -68.70825, -68.89843, -68.86231, 
  -68.86577, -68.87864, -68.89348, -68.96754, -68.99807, -68.99807, -69.01382, -69.01775, -69.02808, -69.03299, 
  -69.07031, -69.09678, -69.06148, -69.03103, -68.95028, -68.94535, -68.98478, -69.00693, -69.03004, -69.10021, 
  -69.09629, -69.11344, -69.12078, -69.09237, -69.15843, -69.17455, -69.20041, -69.19407, -69.22624, -69.20626, 
  -69.21796, -69.15843, -69.1809, -69.17016, -69.19602, -69.14035, -69.19212, -69.24766, -69.33217, -69.43034, 
  -69.47227, -69.38397, -69.34525, -69.2608, -69.20821, -69.22429, -69.20967, -69.24426, -69.17309, -69.1809, 
  -69.2126, -69.21065, -69.23062, -69.27489, -69.28316, -69.29627, -69.32538, -69.34137, -69.36558, -69.35009, 
  -69.36752, -69.35106, -69.32877, -69.32004, -69.50067, -69.47372, -69.43371, -69.4313, -69.50596, -69.53046, 
  -69.5271, -69.56571, -69.56981, -69.58993, -69.59089, -69.60382, -69.58993, -69.61243, -69.62056, -69.64658, 
  -69.61626, -69.60477, -69.7198, -69.72884, -69.77067, -69.79535, -69.85124, -69.86023, -69.83846, -69.84604, 
  -69.87866, -69.88716, -69.91925, -69.92962, -69.93904, -69.97387, -69.97105, -70.04523, -70.11869, -70.1014, 
  -70.11261, -70.14762, -70.21467, -70.25925, -70.28984, -70.34211, -70.34396, -70.30697, -70.35642, -70.39701, 
  -70.4053, -70.4761, -70.52515, -70.51874, -70.65749, -70.66159, -70.6884, -70.72832, -70.77541, -70.76817, 
  -70.79258, -70.84627, -70.87374, -70.90971, -70.89578, -70.91644, -70.87824, -70.88544, -70.92632, -71.00023, 
  -71.04667, -71.07742, -71.11346, -71.15698, -71.21234, -71.24112, -71.23626, -71.24333, -71.19203, -71.18096, 
  -71.07613, -71.08281, -71.01547, -71.06544, -71.01413, -70.97925, -70.92547, -70.90976, -70.85398, -70.79037, 
  -70.65572, -70.56454, -70.55905, -70.45136, -70.37032, -70.36155, -70.37355, -70.36294, -70.34354, -70.29359, 
  -70.27553, -70.28294, -70.26625, -70.28943, -70.36063, -70.38277, -70.42561, -70.45962, -70.52337, -70.53527, 
  -70.59833, -70.63114, -70.71976, -70.71387, -70.64344, -70.66391, -70.65163, -70.68482, -70.62978, -70.63297, 
  -70.73517, -70.71523, -70.72203, -70.66891, -70.66164, -70.53115, -70.49221, -70.51879, -70.55768, -70.5819, 
  -70.55723, -70.57185, -70.59102, -70.56454, -70.58509, -70.57048, -70.57596, -70.64303, -70.63529, -70.66851, 
  -70.72435, -70.72253, -70.69168, -70.68032, -70.66623, -70.65759, -70.62937, -70.62892, -70.61616, -70.59016, 
  -70.6116, -70.60339, -70.62664, -70.66078, -70.66078, -70.68078, -70.70983, -70.69849, -70.6994, -70.68078, 
  -70.70348, -70.70257, -70.71119, -70.70983, -70.72299, -70.7325, -70.75741, -70.75968, -70.8297, -70.83646, 
  -70.80352, -70.79991, -70.76375, -70.79494, -70.7746, -70.78048, -70.7642, -70.77189, -70.79088, -70.75651, 
  -70.75696, -70.78365, -70.7963, -70.83726, -70.85754, -70.93484, -70.95143, -70.93843, -70.94695, -70.94291, 
  -70.97517, -70.97786, -70.99218, -71.00872, -71.0315, -71.01989, -71.03819, -70.99844, -71.00246, -71.01408, 
  -71.01006, -71.02569, -71.06985, -71.1299, -71.141, -71.13079, -71.17958, -71.2088, -71.18889, -71.2004, 
  -71.18047, -71.2119, -71.20172, -71.22737, -71.26931, -71.26799, -71.29619, -71.28782, -71.33799, -71.35994, 
  -71.34458, -71.41517, -71.40773, -71.44666, -71.46806, -71.51209, -71.5282, -71.50164, -71.5747, -71.57209, 
  -71.65958, -71.64402, -71.67384, -71.66088, -71.64013, -71.61372, -71.60679, -71.58728, -71.54429, -71.53342, 
  -71.52341, -71.48594, -71.34941, -71.29135, -71.3006, -71.44229, -71.46675, -71.65612, -71.71481, -71.7686, 
  -71.79178, -71.84278, -71.89193, -71.96137, -71.96605, -71.98305, -71.95839, -71.91922, -71.92008, -71.90217, 
  -71.90686, -71.8979, -71.91198, -71.91624, -71.93967, -71.93627, -71.94818, -71.99663, -72.00045, -72.03268, 
  -72.01996, -72.06823, -72.09189, -72.10793, -72.12227, -72.14923, -72.1812, -72.18582, -72.13196, -72.09147, 
  -72.06654, -72.07119, -72.10287, -72.12143, -72.12311, -72.1366, -72.15218, -72.20304, -72.21604, -72.29473, 
  -72.31852, -72.32311, -72.36892, -72.3843, -72.39095, -72.41586, -72.44322, -72.46103, -72.4544, -72.46765, 
  -72.48295, -72.46227, -72.46185, -72.43162, -72.45233, -72.42291, -72.34436, -72.3131, -72.36231, -72.45114, 
  -72.53706, -72.59261, -72.62176, -72.58562, -72.56794, -72.55148, -72.53624, -72.55189, -72.54242, -72.54365, 
  -72.50324, -72.50613, -72.45652, -72.48713, -72.48837, -72.45155, -72.35981, -72.3856, -72.36564, -72.37687, 
  -72.43623, -72.45776, -72.48754, -72.51644, -72.58768, -72.57699, -72.64389, -72.66559, -72.68563, -72.66723, 
  -72.66068, -72.70197, -72.76149, -72.96422, -73.05731, -73.07731, -73.07611, -73.11006, -73.07731, -73.10766, 
  -73.13557, -73.14832, -73.17378, -73.16821, -73.27525, -73.27999, -73.25824, -73.26734, -73.23212, -73.24043, 
  -73.21269, -73.19563, -73.18292, -73.09613, -73.08455, -73.12366, -73.11409, -73.09693, -73.09932, -73.06376, 
  -73.07455, -73.05615, -73.0213, -73.02451, -72.99401, -73.00324, -73.04334, -73.07615, -73.08135, -73.15831, 
  -73.16149, -73.13761, -73.13084, -73.15274, -73.11608, -73.11648, -73.14916, -73.11569, -73.12565, -73.15115, 
  -73.14199, -73.11489, -73.1113, -73.14279, -73.1408, -73.15553, -73.14836, -73.13084, -73.12605, -73.10212, 
  -73.09533, -73.06616, -73.04895, -73.02491, -73.01127, -72.99039, -73.00003, -72.98437, -72.97874, -73.02322, 
  -73.03212, -73.07695, -73.1392, -73.14836, -73.16308, -73.18415, -73.18137, -73.19647, -73.20559, -73.19567, 
  -73.22344, -73.24206, -73.26066, -73.24879, -73.27568, -73.29425, -73.35493, -73.36516, -73.38009, -73.35061, 
  -73.37381, -73.39898, -73.40016, -73.43934, -73.45147, -73.44287, -73.45108, -73.42838, -73.43347, -73.41898, 
  -73.41898, -73.39113, -73.40486, -73.39034, -73.38171, -73.4029, -73.3978, -73.42603, -73.44991, -73.4546, 
  -73.47727, -73.47024, -73.48781, -73.49796, -73.51186, -73.5329, -73.52472, -73.48807, -73.48885, -73.46073, 
  -73.46698, -73.50173, -73.56246, -73.57139, -73.57838, -73.5644, -73.55585, -73.56246, -73.59003, -73.58964, 
  -73.56945, -73.56129, -73.54185, -73.53407, -73.50836, -73.47441, -73.51031, -73.50095, -73.53484, -73.5679, 
  -73.57994, -73.59856, -73.57722, -73.60554, -73.54846, -73.49158, -73.52706, -73.5068, -73.5329, -73.57489, 
  -73.55741, -73.57334, -73.60554, -73.65237, -73.68442, -73.69754, -73.71526, -73.70833, -73.72257, -73.73604, 
  -73.7495, -73.75257, -73.73912, -73.74796, -73.75449, -73.76601, -73.77868, -73.7921, -73.80666, -73.81547, 
  -73.78903, -73.80666, -73.81011, -73.83498, -73.81738, -73.82235, -73.79402, -73.81126, -73.8621, -73.87545, 
  -73.89147, -73.91697, -73.9048, -73.88499, -73.89908, -73.8766, -73.74219, -73.71526, -73.68751, -73.67362, 
  -73.65972, -73.60127, -73.61522, -73.59662, -73.63574, -73.64387, -73.674, -73.67516, -73.71218, -73.72758, 
  -73.73412, -73.77714, -73.78213, -73.81929, -73.96522, -73.96332, -73.9432, -74.01786, -74.019, -74.04997, 
  -74.0511, -74.0628, -74.05542, -74.03088, -74.02257, -74.01349, -74.01295, -73.98759, -73.97015, -73.93447, 
  -73.97243, -73.98721, -74.00008, -74.03298, -74.06129, -74.09218, -74.0888, -74.13917, -74.15117, -74.17516, 
  -74.2107, -74.24541, -74.23534, -74.25026, -74.25622, -74.27745, -74.29567, -74.32389, -74.32946, -74.35207, 
  -74.36207, -74.3802, -74.42598, -74.4698, -74.49955, -74.53768, -74.54975, -74.57205, -74.59542, -74.64786, 
  -74.64495, -74.59724, -74.58119, -74.57096, -74.55049, -74.53255, -74.52522, -74.55963, -74.55122, -74.58374, 
  -74.55085, -74.55487, -74.53438, -74.56328, -74.54317, -74.63032, -74.6264, -74.6624, -74.69796, -74.70448, 
  -74.73886, -74.76703, -74.77063, -74.79622, -74.89352, -74.8971, -74.87526, -74.83759, -74.81602, -74.83579, 
  -74.78722, -74.72077, -74.61073, -74.60563, -74.61802, -74.6049, -74.6308, -74.60782, -74.61729, -74.48964, 
  -74.46171, -74.45582, -74.47384, -74.35096, -74.35096, -74.36281, -74.34874, -74.38685, -74.38168, -74.41418, 
  -74.41455, -74.43888, -74.44441, -74.49441, -74.53108, -74.60089, -74.60198, -74.62385, -74.6515, -74.68962, 
  -74.66785, -74.7081, -74.68925, -74.68635, -74.6584, -74.59578, -74.61037, -74.59907, -74.65222, -74.67583, 
  -74.70343, -74.73275, -74.75226, -74.7851, -74.8326, -74.84983, -74.85486, -74.8778, -74.85952, -74.82685, 
  -74.84194, -74.88747, -74.9025, -74.95678, -74.95393, -74.97708, -75.02151, -75.03145, -75.04138, -75.04846, 
  -75.09551, -75.09799, -75.12586, -75.1248, -75.14981, -75.13925, -75.16037, -75.22215, -75.26622, -75.2725, 
  -75.24315, -75.18778, -75.20392, -75.18989, -75.22565, -75.27704, -75.28542, -75.31086, -75.31399, -75.37168, 
  -75.37792, -75.40562, -75.43052, -75.39766, -75.35814, -75.37688, -75.36127, -75.39178, -75.4281, -75.43639, 
  -75.46365, -75.41393, -75.45778, -75.49429, -75.53208, -75.56395, -75.57456, -75.63363, -75.67786, -75.63772, 
  -75.64181, -75.61829, -75.63363, -75.56776, -75.57597, -75.5568, -75.55749, -75.64116, -75.65648, -75.66736, 
  -75.69453, -75.69861, -75.68435, -75.69148, -75.68673, -75.70064, -75.70268, -75.71657, -75.74737, -75.73621, 
  -75.76697, -75.76393, -75.78249, -75.78216, -75.79092, -75.78013, -75.82863, -75.88467, -75.885, -75.87495, 
  -75.88266, -75.87797, -75.90776, -75.90241, -75.91444, -75.94849, -75.93749, -75.94616, -75.95783, -75.97647, 
  -76.01735, -76.02166, -76.08224, -76.08851, -76.04155, -76.06836, -76.09313, -76.09478, -76.1093, -76.1317, 
  -76.14256, -76.17935, -76.2431, -76.22872, -76.23983, -76.22055, -76.23657, -76.24571, -76.23983, -76.26105, 
  -76.28712, -76.33522, -76.35337, -76.36536, -76.43672, -76.54546, -76.54802, -76.53332, -76.54387, -76.56367, 
  -76.56813, -76.58917, -76.61081, -76.62511, -76.64004, -76.65241, -76.66096, -76.66762, -76.66255, -76.67268, 
  -76.65621, -76.64606, -76.61809, -76.65589, -76.65146, -76.68186, -76.69324, -76.70177, -76.70209, -76.71409, 
  -76.71219, -76.7245, -76.73143, -76.74057, -76.77203, -76.78366, -76.79244, -76.79589, -76.80311, -76.82347, 
  -76.84474, -76.84912, -76.83411, -76.83536, -76.81157, -76.79056, -76.76512, -76.78428, -76.79934, -76.80499, 
  -76.81596, -76.80185, -76.83818, -76.85505, -76.86754, -76.85974, -76.86317, -76.88625, -76.87471, -76.92886, 
  -76.93973, -76.95214, -76.95214, -76.96175, -77.00196, -76.98589, -76.99145, -77.0211, -77.00072, -77.02819, 
  -77.01091, -77.02356, -77.01647, -77.03497, -77.06298, -77.07312, -77.10319, -77.10442, -77.15733, -77.17411, 
  -77.23372, -77.24131, -77.26071, -77.29307, -77.31118, -77.32776, -77.35545, -77.38097, -77.39597, -77.39597, 
  -77.42351, -77.43666, -77.45636, -77.48674, -77.51676, -77.54493, -77.54641, -77.57155, -77.57865, -77.57717, 
  -77.60108, -77.63847, -77.65756, -77.68601, -77.76629, -77.77676, -77.80058, -77.81044, -77.82377, -77.80841, 
  -77.82088, -77.80174, -77.81421, -77.79826, -77.80377, -77.71818, -77.70824, -77.68161, -77.68161, -77.66314, 
  -77.6561, -77.67868, -77.73278, -77.73249, -77.85357, -77.87321, -77.91324, -77.91784, -77.94311, -77.94627, 
  -78.01379, -78.02491, -78.02947, -78.03972, -78.05053, -78.06729, -78.08006, -78.12282, -78.13327, -78.20787, 
  -78.2345, -78.25633, -78.25884, -78.2219, -78.21909, -78.25884, -78.26694, -78.28815, -78.28954, -78.32155, 
  -78.33128, -78.29595, -78.2471, -78.20871, -78.19187, -78.15528, -78.07354, -78.04029, -78.00694, -78.03374, 
  -78.11462, -78.20731, -78.22246, -78.25689, -78.26443, -78.30959, -78.33655, -78.336, -78.37508, -78.42975, 
  -78.47596, -78.47651, -78.50281, -78.49871, -78.505, -78.52524, -78.53562, -78.55116, -78.64618, -78.68289, 
  -78.71088, -78.70228, -78.71921, -78.69178, -78.60365, -78.59524, -78.5656, -78.55089, -78.54571, -78.56233, 
  -78.56043, -78.5773, -78.59089, -78.6158, -78.60142, -78.57969, -78.62474, -78.64504, -78.67582, -78.69656, 
  -78.70867, -78.72861, -78.73639, -78.7047, -78.72781, -78.72324, -78.7589, -78.78244, -78.74095, -78.73961, 
  -78.75435, -78.73961, -78.77843, -78.80459, -78.84982, -78.87844, -78.89617, -78.9308, -78.95687, -78.93001, 
  -78.89938, -78.89409, -78.90334, -78.83361, -78.81152, -78.67561, -78.66994, -78.61152, -78.60935, -78.55307, 
  -78.55416, -78.52688, -78.52141, -78.53562, -78.58383, -78.68424, -78.69528, -78.71061, -78.74041, -78.81072, 
  -78.80219, -78.82031, -78.86575, -78.89118, -78.90572, -78.95503, -78.96134, -78.98236, -79.05899, -79.078, 
  -79.04256, -79.01852, -78.98262, -78.94795, -78.96952, -78.97477, -79.02534, -79.04467, -79.0598, -79.03789, 
  -79.08843, -79.16594, -79.25262, -79.27973, -79.30932, -79.3027, -79.32307, -79.35204, -79.38497, -79.39935, 
  -79.39986, -79.42408, -79.42232, -79.46082, -79.48165, -79.47061, -79.47137, -79.44373, -79.47137, -79.49017, 
  -79.52543, -79.54763, -79.57201, -79.57748, -79.54862, -79.52618, -79.5414, -79.59461, -79.60031, -79.62309, 
  -79.62804, -79.66432, -79.65545, -79.65816, -79.64681, -79.64879, -79.61666, -79.64854, -79.70367, -79.72329, 
  -79.72206, -79.76217, -79.76022, -79.77729, -79.77705, -79.80601, -79.81961, -79.82738, -79.82665, -79.85281, 
  -79.87601, -79.89579, -79.92081, -79.92922, -79.95369, -79.94194, -79.9297, -79.9261, -79.87794, -79.8591, 
  -79.86515, -79.88012, -79.90133, -79.89748, -79.9237, -79.9249, -79.93666, -79.96686, -79.90253, -79.8847, 
  -79.87843, -79.89121, -79.95273, -79.96829, -79.99075, -79.97786, -80.05668, -80.08982, -80.12663, -80.14027, 
  -80.23809, -80.26274, -80.30862, -80.33586, -80.41118, -80.45045, -80.43266, -80.44498, -80.39241, -80.40295, 
  -80.37635, -80.49863, -80.52625, -80.46684, -80.47548, -80.54251, -80.55784, -80.59067, -80.54973, -80.58256, 
  -80.64684, -80.66044, -80.68581, -80.65331, -80.61039, -80.61442, -80.64259, -80.63746, -80.68026, -80.69159, 
  -80.72618, -80.75799, -80.7864, -80.79695, -80.78112, -80.8088, -80.79431, -80.81998, -80.8423, -80.85082, 
  -80.86784, -80.86784, -80.89352, -80.89222, -80.90373, -80.90026, -80.91588, -80.93148, -80.98888, -81.00201, 
  -81.05875, -81.06771, -81.07922, -81.07624, -81.11153, -81.12383, -81.11301, -81.14393, -81.1488, -81.16442, 
  -81.17496, -81.18528, -81.19579, -81.18696, -81.21028, -81.22559, -81.22412, -81.22894, -81.21888, -81.22161, 
  -81.21553, -81.23104, -81.24902, -81.26217, -81.20147, -81.19159, -81.15091, -81.17601, -81.25236, -81.25696, 
  -81.28509, -81.30338, -81.29674, -81.31335, -81.35865, -81.36814, -81.38008, -81.39551, -81.36896, -81.35205, 
  -81.3842, -81.44059, -81.44754, -81.44325, -81.44815, -81.44223, -81.44488, -81.43773, -81.43896, -81.4277, 
  -81.44223, -81.46386, -81.47934, -81.49316, -81.49885, -81.53531, -81.56256, -81.58291, -81.58814, -81.56319, 
  -81.56419, -81.54826, -81.56842, -81.57728, -81.58693, -81.59817, -81.61701, -81.6068, -81.61681, -81.61802, 
  -81.63961, -81.646, -81.6432, -81.65836, -81.65577, -81.66891, -81.68342, -81.69593, -81.70465, -81.70524, 
  -81.7357, -81.75364, -81.74911, -81.7564, -81.76545, -81.77489, -81.78804, -81.79882, -81.80998, -81.82601, 
  -81.85116, -81.8326, -81.84644, -81.8406, -81.82089, -81.80074, -81.82557, -81.84332, -81.87851, -81.89847, 
  -81.88879, -81.89228, -81.88879, -81.9037, -81.9122, -81.93189, -81.91587, -81.9261, -81.93863, -81.93901, 
  -81.95344, -81.95075, -81.95094, -81.95767, -81.95767, -81.9667, -81.96151, -81.97475, -81.97264, -81.98031, 
  -81.96727, -81.97418, -81.99256, -81.99639, -82.01148, -82.01701, -82.03987, -82.04405, -82.0564, -82.05829, 
  -82.07819, -82.08311, -82.07838, -82.08765, -82.11011, -82.11746, -82.13026, -82.12273, -82.1248, -82.14416, 
  -82.15092, -82.16328, -82.1775, -82.19505, -82.24172, -82.25561, -82.24154, -82.21926, -82.19263, -82.18516, 
  -82.16235, -82.13571, -82.10049, -82.11256, -82.14435, -82.17844, -82.17825, -82.20083, -82.26671, -82.27059, 
  -82.28922, -82.30652, -82.3214, -82.32213, -82.34375, -82.35253, -82.36404, -82.3686, -82.38354, -82.40135, 
  -82.42637, -82.42384, -82.43361, -82.44608, -82.44228, -82.45113, -82.47293, -82.48551, -82.47527, -82.49646, 
  -82.50094, -82.53313, -82.53492, -82.5433, -82.54062, -82.51598, -82.50345, -82.51902, -82.50076, -82.48246, 
  -82.46609, -82.48102, -82.47742, -82.49395, -82.52813, -82.54062, -82.55808, -82.55968, -82.54953, -82.56252, 
  -82.54544, -82.49126, -82.43723, -82.41967, -82.39263, -82.40117, -82.38081, -82.36969, -82.35728, -82.34613, 
  -82.3324, -82.33387, -82.35783, -82.36969, -82.37862, -82.39154, -82.3819, -82.40444, -82.40335, -82.45854, 
  -82.46287, -82.49917, -82.56454, -82.58051, -82.58548, -82.60813, -82.60353, -82.62295, -82.61554, -82.63388, 
  -82.65392, -82.6381, -82.64162, -82.70397, -82.71443, -82.73113, -82.75195, -82.77029, -82.75749, -82.75645, 
  -82.80443, -82.81749, -82.8408, -82.85107, -82.87461, -82.87632, -82.91335, -82.92181, -82.95625, -82.96197, 
  -82.97408, -82.98113, -83.01728, -83.02529, -83.03629, -83.05989, -83.06089, -83.05425, -83.05525, -82.95928, 
  -82.99354, -82.99756, -83.01829, -83.02496, -83.05226, -83.07912, -83.08738, -83.15155, -83.19139, -83.18911, 
  -83.20664, -83.2167, -83.22594, -83.23226, -83.25246, -83.27678, -83.29684, -83.30405, -83.30037, -83.34174, 
  -83.34794, -83.3548, -83.35829, -83.37004, -83.34573, -83.34923, -83.36385, -83.36798, -83.35098, -83.37701, 
  -83.38603, -83.39093, -83.37923, -83.37764, -83.36115, -83.3629, -83.3478, -83.34589, -83.33586, -83.34366, 
  -83.35893, -83.36718, -83.36433, -83.38255, -83.40041, -83.45198, -83.46043, -83.48198, -83.49195, -83.48774, 
  -83.47808, -83.45996, -83.46012, -83.44571, -83.44163, -83.41995, -83.43049, -83.44602, -83.44461, -83.48182, 
  -83.52935, -83.53368, -83.55114, -83.5533, -83.57746, -83.57899, -83.58882, -83.60505, -83.62277, -83.65138, 
  -83.66594, -83.68002, -83.68334, -83.70717, -83.70943, -83.72025, -83.70777, -83.70175, -83.68002, -83.67835, 
  -83.662, -83.65882, -83.6927, -83.72206, -83.74544, -83.74708, -83.74185, -83.75456, -83.75545, -83.77916, 
  -83.80401, -83.86044, -83.88872, -83.88872, -83.88082, -83.87877, -83.86749, -83.86734, -83.85133, -83.85486, 
  -83.87921, -83.88331, -83.86044, -83.86602, -83.85118, -83.84912, -83.83999, -83.84029, -83.8335, -83.8335, 
  -83.8279, -83.84308, -83.85926, -83.87189, -83.89004, -83.89909, -83.94388, -83.9449, -83.96095, -83.95835, 
  -83.96095, -83.94852, -83.96168, -83.97971, -83.98719, -84.005, -84.01532, -84.06482, -84.0651, -84.05942, 
  -84.07135, -84.08523, -84.08778, -84.1129, -84.11685, -84.14297, -84.1354, -84.11459, -84.12191, -84.15613, 
  -84.17651, -84.16814, -84.17957, -84.20459, -84.29157, -84.3112, -84.3408, -84.337, -84.35652, -90)
LONGITUDE_VALUEs <- c(
  -156.5951, -156.9685, -157.2541, -157.7209, -157.666, -155.7658, -156.1502, -155.6175, -155.9088, -155.5847, 
  -156.9797, -158.3253, -158.3695, -161.0225, -162.3079, -163.9115, -163.8625, -164.1317, -163.5989, -163.6758, 
  -164.648, -165.2027, -166.4713, -166.2681, -165.9441, -165.6036, -164.3899, -164.2965, -163.0224, -163.0005, 
  -164.1866, -164.1262, -164.2854, -164.1866, -165.1919, -165.0106, -165.2084, -165.0271, -163.8409, -163.6871, 
  -164.066, -163.8518, -164.0715, -164.4615, -164.9611, -165.6641, -165.983, -165.8128, -166.3235, -167.4219, 
  -167.6196, -167.1837, -167.3485, -168.1014, -168.0241, -168.2769, -168.2549, -167.6614, -167.7823, -168.2769, 
  -168.628, -168.5071, -169.0622, -169.0787, -168.8369, -168.9523, -169.4689, -170.5724, -172.4129, -174.0225, 
  -174.4234, -174.2145, -173.2316, -172.6876, -172.5941, -172.1435, -171.3861, -170.7544, -170.7434, -169.5343, 
  -169.7487, -168.1236, -168.1017, -167.6341, -167.3153, -166.5789, -165.7765, -164.9866, -164.8051, -164.9755, 
  -164.6734, -164.9152, -164.4755, -164.1018, -164.2392, -163.0469, -162.7611, -162.871, -162.261, -162.2775, 
  -162.4863, -162.1021, -161.9042, -161.4921, -161.2008, -160.7243, -160.1252, -159.3943, -159.0261, -159.0645, 
  -157.6915, -157.5262, -157.5591, -157.3393, -157.4218, -156.9161, -157.438, -158.3668, -158.5756, -157.0588, 
  -156.8405, -155.9446, -155.3841, -155.5268, -155.0872, -155.0872, -152.5493, -152.9834, -154.2798, -154.1204, 
  -154.8827, -154.3456, -153.6971, -153.8075, -155.5928, -156.8564, -157.7906, -159.9052, -159.9877, -154.3733, 
  -152.1925, -148.972, -147.5181, -147.6335, -147.8635, -147.858, -148.4296, -148.5285, -148.7593, -148.8362, 
  -149.2814, -149.2814, -148.9022, -149.3638, -149.0011, -148.9408, -148.2868, -148.3417, -148.6825, -149.0672, 
  -149.4024, -149.7816, -149.4903, -149.6882, -149.5618, -150.3305, -150.1162, -151.0395, -150.4293, -150.6216, 
  -150.4897, -150.77, -150.748, -150.3084, -150.1105, -150.182, -150.0226, -150.1875, -149.5005, -149.4785, 
  -149.1379, -148.9265, -148.9402, -149.2917, -149.3026, -148.2812, -148.196, -148.4294, -148.3855, -148.5255, 
  -148.6408, -148.7067, -148.8495, -148.8632, -149.0006, -148.9923, -148.6051, -148.6271, -148.358, -148.2427, 
  -147.9077, -147.9104, -147.5806, -147.6775, -147.8244, -147.8945, -147.9398, -148.0386, -147.992, -147.8066, 
  -147.7283, -147.661, -147.764, -147.6116, -148.5749, -149.138, -149.116, -149.3687, -149.4483, -150.1817, 
  -150.4371, -152.0053, -151.7239, -152.2511, -152.4434, -152.2786, -152.6026, -152.6521, -152.9376, -154.6077, 
  -156.5743, -156.5279, -156.0497, -156.0942, -154.9786, -154.9786, -154.6324, -154.5444, -154.2696, -154.3246, 
  -154.1652, -154.4455, -154.5389, -155.0907, -155.4346, -155.6874, -155.9567, -156.2919, -156.7041, -156.9019, 
  -157.2317, -157.3353, -157.5716, -158.2665, -158.349, -158.4424, -158.5248, -158.6348, -158.6483, -158.5247, 
  -158.4202, -158.3132, -158.1208, -158.3079, -158.1293, -158.3078, -158.3407, -158.1621, -158.3491, -158.0386, 
  -157.0056, -156.896, -156.9345, -156.4728, -156.627, -156.3632, -155.8521, -155.5745, -155.4567, -155.3166, 
  -155.3235, -155.1929, -154.8426, -154.7893, -154.7055, -154.63, -154.2535, -154.2373, -154.185, -154.1356, 
  -153.5889, -153.4008, -153.361, -153.3197, -153.3211, -153.3802, -153.6797, -153.6042, -153.3692, -153.129, 
  -153.1112, -153.0383, -152.9009, -152.8762, -152.78, -152.7635, -152.5794, -152.6, -152.4984, -152.5932, 
  -152.5591, -152.5028, -152.4629, -152.5248, -152.4519, -152.4794, -152.4656, -152.489, -152.4258, -152.2802, 
  -152.1496, -152.1785, -152.0977, -152.0523, -152.0523, -152.0097, -152.0386, -152.0262, -151.9067, -151.7803, 
  -151.5482, -151.3724, -151.3917, -151.5236, -151.2543, -150.8261, -150.7437, -150.5268, -150.186, -149.9854, 
  -149.9497, -149.8331, -149.7548, -149.5968, -149.5501, -149.3371, -149.3442, -149.2522, -149.3139, -149.2782, 
  -149.4472, -149.4513, -149.5186, -149.5282, -149.634, -149.7673, -149.8332, -149.7824, -149.8289, -149.7795, 
  -149.7672, -149.7067, -149.6052, -149.439, -149.0379, -148.9871, -148.858, -148.8196, -148.7111, -148.7207, 
  -148.6274, -148.7551, -148.8237, -148.7825, -148.5368, -148.3993, -148.1645, -148.1563, -148.0807, -147.9792, 
  -147.8034, -147.7663, -147.7347, -147.8007, -147.916, -147.9599, -148.332, -148.3884, -148.4736, -148.8182, 
  -148.9528, -149.0572, -149.0215, -149.0517, -148.913, -148.9034, -149.0558, -149.0448, -148.9514, -148.9666, 
  -148.8636, -148.8718, -148.6713, -148.3938, -148.1563, -148.0409, -147.8199, -147.8322, -147.7773, -147.802, 
  -147.7539, -147.7822, -147.7053, -147.6641, -147.6874, -147.6613, -147.6242, -147.6256, -147.5926, -147.6613, 
  -147.7355, -147.6929, -147.6036, -147.5624, -147.5116, -147.325, -147.2219, -147.1491, -147.2988, -147.0213, 
  -146.8944, -146.834, -146.4069, -146.411, -146.2476, -146.1514, -145.9276, -145.8878, -145.8658, -145.955, 
  -145.7971, -145.4676, -145.4512, -145.5348, -145.4854, -145.5746, -145.5815, -145.7188, -145.8768, -145.8603, 
  -145.9633, -146.0773, -146.0375, -145.9455, -145.9441, -145.7807, -145.8658, -145.8469, -145.9265, -145.9458, 
  -145.9235, -145.7587, -145.7656, -145.5404, -145.5349, -145.4278, -145.3866, -145.2809, -145.3, -145.3741, 
  -145.3988, -145.7477, -145.9221, -145.9991, -146.2311, -146.3835, -146.0389, -145.9701, -145.9427, -145.8809, 
  -145.8823, -145.8273, -145.7724, -145.7175, -145.5514, -145.4072, -145.3825, -145.2988, -145.318, -145.4717, 
  -145.4676, -145.5692, -145.5294, -145.5953, -145.826, -145.9647, -145.9661, -146.0155, -145.7669, -145.4621, 
  -145.5177, -145.5245, -145.4833, -145.7238, -145.9999, -146.0217, -146.1151, -146.1591, -146.273, -146.2785, 
  -146.4448, -146.4764, -146.4323, -146.6109, -146.7662, -146.9558, -147.0998, -147.1904, -147.3471, -147.4872, 
  -147.7496, -147.9457, -148.046, -148.0884, -148.2601, -148.4731, -149.5869, -149.7188, -149.6624, -149.4879, 
  -149.2955, -149.0157, -148.9113, -148.7491, -148.587, -148.5913, -148.719, -148.6806, -148.5349, -148.3755, 
  -148.2082, -148.1834, -148.1161, -148.0598, -147.8441, -147.766, -147.3895, -147.3059, -147.3059, -147.2578, 
  -147.2262, -147.1699, -147.1479, -147.0396, -146.8843, -146.7442, -146.7359, -146.5821, -146.534, -146.4364, 
  -146.4007, -146.3268, -146.2512, -146.1468, -146.0643, -146.0052, -145.9434, -145.7854, -145.702, -145.4946, 
  -145.4355, -145.4904, -145.4959, -145.6785, -145.8763, -146.53, -146.3638, -146.383, -146.188, -146.0547, 
  -145.9942, -145.8392, -145.8076, -145.7444, -145.6606, -145.3913, -145.3075, -145.1499, -145.2351, -145.0744, 
  -144.904, -144.5715, -144.3532, -144.22, -144.1458, -144.22, -144.106, -144.176, -144.1417, -144.3574, 
  -144.3464, -144.0812, -143.8164, -143.6694, -143.4811, -143.0157, -142.8811, -142.8371, -142.6915, -142.5831, 
  -142.476, -142.4347, -142.3715, -142.2863, -142.2231, -142.086, -142.0585, -141.8992, -141.8511, -141.5545, 
  -141.4776, -141.4116, -141.3828, -141.3127, -141.255, -141.1959, -140.8843, -140.8926, -140.8445, -140.7978, 
  -140.6247, -140.7786, -140.743, -140.8486, -140.9282, -141.2193, -141.2852, -141.2783, -141.3237, -141.3086, 
  -141.141, -141.0423, -140.8884, -140.8707, -140.2579, -140.2678, -140.2266, -140.1112, -140.1112, -140.1565, 
  -140.0879, -139.9903, -140.0206, -139.669, -139.6786, -139.5481, -139.3874, -139.272, -139.0155, -138.4495, 
  -138.2681, -138.3148, -137.8494, -137.8384, -137.8041, -137.7958, -137.631, -137.609, -137.3411, -137.2177, 
  -137.1902, -137.1476, -137.1202, -137.0831, -137.057, -137.0487, -136.4952, -136.3949, -136.3262, -136.3792, 
  -136.4478, -136.4176, -136.3215, -136.3778, -136.6318, -136.6867, -136.7911, -136.7692, -136.8268, -136.8502, 
  -136.82, -136.8653, -136.8364, -136.8543, -136.8226, -136.85, -136.8488, -136.8268, -136.7994, -136.7911, 
  -136.7541, -136.7266, -136.7019, -136.5563, -136.4835, -136.4148, -136.3626, -136.3118, -136.25, -135.867, 
  -135.8778, -135.6746, -135.6526, -135.7103, -135.61, -135.4206, -134.9509, -134.5087, -134.5032, -134.554, 
  -134.6035, -134.5527, -134.4195, -134.4524, -134.4084, -134.4332, -134.3865, -134.3782, -134.2602, -134.1215, 
  -134.1256, -133.9444, -133.9037, -133.8545, -133.8037, -133.7652, -133.5852, -133.5343, -133.4821, -133.3533, 
  -133.3368, -133.1939, -133.15, -133.0799, -132.8642, -132.7625, -132.6103, -132.4537, -132.3479, -132.0511, 
  -131.7808, -131.5747, -131.1602, -131.0379, -130.9404, -130.8044, -130.7874, -130.6684, -130.3937, -130.0969, 
  -130.0364, -129.6572, -129.5006, -129.3989, -129.3302, -129.2264, -128.6713, -128.4954, -128.2487, -128.1662, 
  -128.0151, -127.9684, -127.8227, -127.7788, -127.6139, -127.5287, -127.3693, -127.2485, -127.133, -127.0369, 
  -126.8445, -126.8665, -126.7657, -126.2436, -125.7133, -124.274, -124.0025, -123.2496, -123.0463, -122.8319, 
  -122.5901, -122.4582, -122.3217, -122.1376, -121.8051, -121.7561, -121.4649, -121.4731, -121.2478, -121.1846, 
  -121.0692, -120.9098, -120.4069, -120.2283, -120.1761, -120.036, -119.5722, -119.3936, -119.2233, -118.8798, 
  -118.7039, -118.8221, -119.1491, -119.0804, -118.9227, -118.641, -118.5191, -118.4243, -118.1413, -117.9792, 
  -117.9338, -117.8253, -117.9173, -117.8611, -117.8076, -117.7567, -117.857, -117.8721, -117.7965, -117.6454, 
  -117.4286, -117.0823, -116.9083, -116.5552, -116.4672, -116.2721, -116.2147, -116.1405, -116.0526, -116.1253, 
  -115.9879, -115.9014, -115.944, -115.7477, -115.5227, -115.4485, -115.274, -114.9841, -114.8426, -114.9017, 
  -114.8206, -114.9182, -114.9964, -114.9607, -115.0486, -115.0953, -115.061, -115.1406, -115.1145, -115.1434, 
  -115.0774, -115.1338, -115.0872, -115.0858, -115.0089, -114.9869, -114.899, -114.9168, -114.8042, -114.8248, 
  -114.7245, -114.5486, -114.5459, -114.4415, -114.3934, -114.2494, -114.1821, -114.1148, -113.954, -113.976, 
  -114.1725, -114.1999, -114.1023, -113.8497, -113.5598, -113.4268, -113.4707, -113.4144, -113.5187, -113.8018, 
  -113.854, -113.924, -113.9309, -113.8911, -113.8568, -113.7922, -113.7658, -113.7259, -113.715, -113.6834, 
  -113.8415, -113.7605, -113.8085, -113.7495, -113.803, -113.7522, -113.6849, -113.6299, -113.4969, -113.2235, 
  -113.2496, -113.5366, -113.6932, -113.7289, -113.8525, -113.9501, -114.1052, -114.3415, -114.3072, -113.8922, 
  -113.8071, -113.8332, -113.7919, -113.9349, -113.928, -114.0214, -114.2316, -114.3016, -114.2343, -114.1848, 
  -113.9801, -113.9608, -113.886, -113.8269, -113.7307, -113.6868, -113.6003, -113.5399, -113.1019, -113.0058, 
  -112.8367, -112.7406, -112.6486, -112.6898, -112.5965, -112.4399, -112.3878, -112.2381, -112.212, -112.1638, 
  -112.0855, -111.9729, -111.8576, -111.8013, -111.6654, -111.5624, -111.5144, -111.5885, -111.5199, -111.5487, 
  -111.6174, -111.7382, -111.8165, -111.9332, -111.9126, -111.9524, -111.9332, -111.8879, -111.8398, -111.5322, 
  -111.4772, -111.4663, -111.3029, -111.3193, -111.5006, -111.7931, -111.9085, -111.8879, -111.9167, -111.8096, 
  -111.7986, -111.7025, -111.6928, -111.614, -111.5592, -111.5207, -111.4685, -111.4039, -111.3132, -111.2212, 
  -111.1594, -111.0549, -111.0304, -110.9521, -110.8422, -110.8394, -110.7501, -110.6952, -110.7185, -110.7117, 
  -110.6045, -110.3931, -110.378, -110.2502, -110.4728, -110.4522, -110.3519, -110.4165, -110.2708, -110.1939, 
  -110.1349, -110.1885, -110.2022, -110.1432, -110.1075, -110.139, -110.2668, -110.2901, -110.3533, -110.231, 
  -110.2544, -110.4618, -110.6885, -110.7501, -110.7872, -110.8779, -111.3547, -111.5289, -111.6182, -111.6017, 
  -111.5563, -111.5522, -111.4808, -111.4725, -111.2898, -111.1538, -110.6623, -110.3698, -110.3451, -110.1761, 
  -110.1115, -110.0044, -109.9785, -109.8794, -109.7997, -109.7174, -109.5842, -109.4772, -109.4415, -109.4003, 
  -109.4072, -109.3632, -109.2656, -109.1228, -109.0914, -108.8812, -108.7589, -108.6284, -108.3965, -108.1011, 
  -108.0518, -107.9928, -107.9419, -107.7042, -107.4432, -107.313, -107.1577, -107.1412, -106.9118, -106.8238, 
  -106.6892, -106.6854, -106.6099, -106.5673, -106.4532, -106.4326, -106.3035, -106.3131, -106.1441, -106.1084, 
  -106.0136, -105.9205, -105.7954, -105.6965, -105.6951, -105.5153, -105.4741, -105.4109, -105.3505, -105.1719, 
  -105.1171, -105.0786, -105.0347, -105.1226, -105.1185, -105.0608, -105.0278, -104.8148, -104.7709, -104.7159, 
  -104.6871, -104.6458, -104.6362, -104.5923, -104.5469, -104.4126, -104.3274, -104.2065, -104.1735, -104.109, 
  -104.1172, -104.0952, -104.0444, -103.9757, -103.94, -103.8891, -103.8671, -103.8191, -103.7971, -103.76, 
  -103.7163, -103.686, -103.3989, -103.3359, -103.2768, -103.1862, -103.0763, -102.9773, -102.9004, -102.8592, 
  -102.8317, -102.594, -102.4116, -102.3566, -102.2069, -102.0667, -101.9667, -101.8636, -101.7221, -101.5767, 
  -101.5409, -101.6838, -101.6357, -101.523, -101.4942, -101.4406, -101.1452, -101.1839, -101.1468, -101.0232, 
  -100.9531, -100.9119, -100.8363, -100.7553, -100.6192, -100.4643, -100.3311, -100.217, -100.2418, -100.1689, 
  -100.0645, -100.0274, -100.081, -100.0481, -99.99721, -99.96039, -99.77216, -99.62653, -99.59768, -99.41906, 
  -99.37922, -99.60313, -99.60451, -99.52399, -99.26175, -99.20683, -99.39647, -99.36901, -99.20425, -99.32507, 
  -99.30311, -99.11638, -99.0395, -99.00105, -99.04224, -99.36626, -99.35528, -99.43771, -99.41849, -99.47615, 
  -99.61345, -99.66837, -99.96768, -100.0967, -100.1639, -100.3218, -100.5923, -100.4275, -100.2587, -100.2271, 
  -100.0401, -100.0898, -99.9827, -99.98944, -99.92628, -99.97708, -100.1075, -100.0952, -100.021, -100.0183, 
  -100.1598, -99.92084, -99.85906, -99.81787, -99.84121, -99.78904, -99.83572, -99.88377, -99.94281, -100.0636, 
  -100.0719, -100.2696, -100.3177, -100.6034, -100.8589, -101.2593, -101.3816, -101.431, -101.4997, -101.5257, 
  -101.4597, -101.3993, -101.4501, -101.4419, -101.391, -101.4364, -101.4144, -101.4405, -101.4213, -101.332, 
  -101.3265, -101.2701, -101.2908, -101.3457, -101.4268, -101.435, -101.3924, -101.365, -101.3444, -101.3883, 
  -101.4323, -101.4199, -101.4926, -101.5558, -101.5215, -101.6451, -101.8773, -102.0421, -102.2606, -102.3853, 
  -102.5529, -102.748, -102.9156, -102.8893, -102.9222, -102.7807, -102.8151, -102.7917, -103.0047, -102.9593, 
  -102.9977, -102.8906, -102.8425, -102.7135, -102.3593, -102.27, -101.8688, -101.8279, -101.6781, -101.6616, 
  -101.5765, -101.413, -101.2563, -101.2428, -101.1727, -101.1755, -101.0986, -100.8155, -100.7705, -100.6991, 
  -100.6208, -100.6111, -100.5301, -100.4806, -100.4092, -100.4133, -100.3694, -100.3226, -100.1935, -100.0135, 
  -99.87091, -99.85717, -99.76649, -99.69917, -99.54529, -99.53155, -99.46285, -99.47384, -99.5302, -99.58791, 
  -99.50547, -99.2774, -99.08808, -99.08121, -98.98092, -99.13205, -99.32302, -99.55083, -99.59205, -99.53022, 
  -99.50961, -99.4258, -99.40107, -99.66064, -99.72522, -99.76644, -99.70461, -99.79249, -99.84875, -99.87348, 
  -99.9408, -100.0164, -100.0356, -100.1222, -100.1441, -100.2046, -100.2266, -100.2925, -100.5767, -100.7127, 
  -100.9957, -101.0699, -101.299, -101.5093, -101.5931, -101.6947, -101.8002, -101.8249, -101.9733, -102.0324, 
  -102.1615, -102.3663, -102.4775, -102.7013, -102.737, -102.9005, -102.9855, -103.0816, -103.1366, -103.278, 
  -103.3165, -103.2341, -103.2972, -103.2573, -103.3356, -103.4181, -103.2698, -102.9827, -102.5873, -102.4527, 
  -102.2754, -102.2686, -102.0887, -102.1079, -102.1821, -102.1931, -102.1422, -102.2081, -102.1326, -102.2356, 
  -102.3318, -102.2754, -102.4389, -102.4362, -102.5571, -102.5872, -101.9733, -102.0214, -101.9307, -101.8771, 
  -101.7524, -101.5271, -101.4405, -101.3143, -101.2034, -101.0372, -100.9439, -100.8258, -100.6693, -100.5347, 
  -100.5169, -100.3039, -100.2833, -100.2298, -100.1433, -100.0156, -99.8234, -99.70807, -99.61452, -99.54725, 
  -99.37013, -98.77694, -98.40879, -98.23442, -97.99827, -97.86372, -97.71406, -97.75383, -97.73323, -97.8321, 
  -97.97626, -97.8115, -97.58359, -97.41318, -97.33766, -97.27588, -97.2086, -97.2086, -97.05071, -97.01227, 
  -96.94774, -96.92572, -96.7994, -96.72389, -96.59208, -96.55762, -96.44229, -96.34344, -96.21153, -96.16348, 
  -96.06737, -95.96852, -95.93968, -95.87927, -95.89712, -95.71541, -95.55466, -95.45161, -95.29498, -95.23076, 
  -95.11362, -95.00783, -94.67714, -94.52326, -94.54387, -94.36126, -94.37088, -94.05213, -94.05488, -93.93018, 
  -93.77492, -93.5757, -93.63066, -93.54135, -93.43418, -93.35724, -93.29434, -93.249, -93.18718, -93.14321, 
  -92.9962, -93.00857, -92.97559, -92.94674, -92.93025, -92.86705, -92.86705, -92.78736, -92.76126, -92.78049, 
  -92.74638, -92.71752, -92.6818, -92.60486, -92.57189, -92.51418, -91.93301, -91.91279, -91.85921, -91.78914, 
  -91.75616, -91.70945, -91.50198, -91.48559, -91.43064, -91.40728, -91.35507, -91.10501, -91.10639, -90.81967, 
  -90.63007, -90.53939, -90.52153, -90.38826, -90.38973, -90.28674, -90.31697, -90.24965, -90.21118, -90.13973, 
  -90.06966, -90.02157, -89.90754, -89.85945, -89.77427, -89.77289, -89.70007, -89.5672, -89.49438, -89.45179, 
  -89.38172, -89.28692, -89.29929, -89.27181, -89.04374, -89.05607, -89.10554, -89.13988, -89.0863, -89.10426, 
  -89.15509, -89.08777, -89.3445, -89.42831, -89.24998, -88.72376, -88.55751, -88.43111, -88.24184, -88.12374, 
  -88.10038, -88.27064, -88.47536, -88.46849, -88.33247, -88.34895, -88.43004, -88.41898, -88.37089, -88.43135, 
  -88.52051, -88.72523, -88.68676, -88.61943, -88.6263, -88.53562, -88.4821, -88.42027, -88.32272, -88.1606, 
  -88.07288, -88.077, -87.93961, -87.90801, -87.83794, -87.78298, -87.80383, -87.7475, -87.69941, -87.63346, 
  -87.54965, -87.51255, -87.46172, -87.40401, -87.3202, -87.35043, -87.32159, -87.32846, -87.39715, -87.37654, 
  -87.29281, -87.27632, -87.1087, -87.11026, -87.07591, -87.08278, -87.03744, -87.03332, -86.90279, -86.84921, 
  -86.70788, -86.63919, -86.4221, -86.46057, -86.3962, -86.37422, -86.2066, -86.05135, -85.98281, -85.82481, 
  -85.6243, -85.6559, -85.58312, -85.57763, -85.59961, -85.56664, -85.53229, -85.51168, -85.49382, -85.52682, 
  -85.48285, -85.47598, -85.36195, -85.26577, -85.16981, -85.13409, -85.14645, -85.08463, -85.0283, -84.97746, 
  -84.90052, -84.90739, -84.46649, -84.2635, -84.03817, -83.72354, -83.77726, -83.75116, -83.8226, -83.81141, 
  -83.59997, -83.50929, -83.27023, -83.22626, -82.95697, -82.20955, -82.22198, -82.05997, -81.94189, -81.79086, 
  -81.10438, -81.14264, -81.0685, -81.33211, -81.29374, -81.3514, -81.22509, -80.7775, -80.73356, -80.52728, 
  -80.31035, -80.53833, -80.65092, -80.662, -80.4533, -79.6211, -79.59627, -79.2036, -79.21176, -79.0168, 
  -78.93442, -78.73671, -78.75156, -78.72684, -78.88338, -78.83533, -78.89197, -78.86004, -78.75158, -78.71722, 
  -78.48518, -78.41379, -78.33812, -78.18984, -78.07451, -77.92211, -77.5169, -77.33293, -77.30547, -77.27114, 
  -77.17091, -77.08579, -76.86886, -76.70121, -76.72183, -76.94982, -76.98693, -77.26839, -77.19649, -77.19099, 
  -76.9904, -76.97529, -76.88735, -76.82003, -76.75271, -76.56472, -76.45618, -76.3284, -76.24185, -76.24597, 
  -76.17357, -76.14197, -75.96611, -75.9771, -75.76551, -75.74633, -75.7848, -75.78754, -75.74633, -75.66664, 
  -75.60069, -75.57046, -75.55398, -75.50864, -75.50314, -75.4578, -75.48803, -75.30825, -74.89195, -74.59404, 
  -74.51573, -74.56931, -74.33437, -74.2904, -74.15713, -74.1314, -74.02148, -73.98851, -73.86211, -73.7412, 
  -73.75769, -73.69187, -73.66027, -73.54898, -73.56684, -73.47891, -73.45693, -73.34564, -73.32503, -73.2316, 
  -73.12054, -72.97765, -72.91307, -72.74957, -72.61937, -72.37618, -72.44625, -72.38167, -72.46409, -72.28578, 
  -71.94505, -71.83376, -71.85437, -71.40509, -71.39721, -71.35325, -71.37248, -71.3134, -71.22547, -71.19662, 
  -71.2186, -70.90672, -70.57318, -70.47975, -70.36983, -70.34236, -70.18847, -70.2243, -70.17346, -70.08141, 
  -69.94401, -69.89897, -69.73272, -69.54587, -69.40298, -69.36451, -69.29032, -69.19162, -68.90172, -68.88936, 
  -68.74235, -68.63655, -68.67113, -68.56809, -68.52412, -68.45542, -68.52412, -68.39222, -68.32627, -68.21636, 
  -68.23422, -68.08478, -67.98585, -67.78124, -67.63697, -67.59026, -67.51882, -67.5037, -67.60529, -67.50911, 
  -67.52844, -67.42547, -67.36777, -67.20299, -67.23284, -67.18618, -67.21366, -67.06252, -67.09275, -66.95536, 
  -66.99108, -66.88432, -66.95301, -66.73593, -66.75797, -66.83354, -66.74561, -66.78606, -66.75174, -66.87534, 
  -66.85749, -66.98518, -67.18707, -67.12666, -67.20355, -67.3079, -67.31343, -67.44252, -67.43428, -67.53176, 
  -67.53176, -67.62378, -67.5922, -67.64849, -67.64437, -67.6073, -67.59218, -67.60454, -67.48783, -67.52354, 
  -67.55649, -67.50294, -67.45763, -67.56335, -67.56335, -67.47411, -67.38624, -67.44115, -67.38623, -67.54842, 
  -67.51941, -67.65259, -67.64576, -67.69381, -67.66773, -67.80779, -67.75425, -67.69796, -67.77485, -67.87096, 
  -67.85311, -67.92867, -67.90945, -67.94652, -67.96299, -68.0454, -68.0605, -68.22114, -68.19315, -68.28261, 
  -68.29476, -68.33323, -68.33735, -68.4349, -68.43891, -68.47188, -68.49249, -68.45815, -68.50898, -68.45268, 
  -68.3881, -68.39634, -68.34833, -68.36207, -68.3236, -68.37032, -68.42253, -68.43489, -68.50908, -68.50771, 
  -68.59833, -68.58322, -68.76317, -68.7644, -68.84134, -68.8331, -68.75616, -68.72319, -68.60915, -68.56106, 
  -68.49511, -68.45389, -68.35222, -68.30176, -68.28665, -68.35534, -68.31821, -68.266, -68.19868, -68.17944, 
  -68.09013, -68.01594, -68.0022, -68.02017, -68.01742, -68.03666, -68.0078, -67.88415, -67.77836, -67.78939, 
  -67.76604, -67.73443, -67.66854, -67.61359, -67.5655, -67.39513, -67.32094, -67.30445, -67.32094, -67.27422, 
  -67.27972, -67.3127, -67.33743, -67.26889, -67.27576, -67.2208, -67.21544, -67.12751, -67.02996, -66.98462, 
  -66.95028, -66.88295, -66.88575, -66.97368, -66.91598, -66.87888, -66.8514, -66.81019, -66.76089, -66.78425, 
  -66.88729, -66.93512, -66.94749, -66.89116, -66.77849, -66.77574, -66.86368, -66.86368, -66.93375, -66.91863, 
  -67.0148, -67.1096, -67.24974, -67.28257, -67.33615, -67.34989, -67.37325, -67.49415, -67.38495, -67.33141, 
  -67.2614, -67.14196, -67.09803, -67.01154, -66.95526, -67.01004, -66.99631, -67.03475, -67.08966, -67.1076, 
  -67.14878, -67.20369, -67.12819, -66.99777, -66.94972, -66.96611, -66.92218, -66.9716, -66.94003, -67.12124, 
  -67.16654, -67.15556, -67.01004, -66.92493, -66.88374, -66.77392, -66.69964, -66.61453, -66.66946, -66.67083, 
  -66.75595, -66.83695, -66.87401, -66.96462, -66.93167, -67.13073, -67.1295, -67.21736, -67.1803, -67.10891, 
  -67.07459, -67.18167, -67.17618, -67.25168, -67.27502, -67.13774, -67.09101, -66.98393, -66.83429, -66.8391, 
  -66.81025, -66.82951, -66.85561, -66.8982, -66.75395, -66.76082, -66.83912, -66.90369, -67.00672, -67.04519, 
  -67.09327, -66.99711, -66.90919, -66.8144, -66.74159, -66.71411, -66.81302, -66.95589, -66.97234, -66.88854, 
  -66.9064, -66.79101, -66.79101, -66.72369, -66.72781, -66.61104, -66.58655, -66.54945, -66.55358, -66.49588, 
  -66.51511, -66.47939, -66.50962, -66.61952, -66.73079, -66.73332, -66.82536, -66.92153, -66.97785, -67.05616, 
  -67.13056, -67.16194, -67.35564, -67.3735, -67.5672, -67.63589, -67.51912, -67.60154, -67.66336, -67.57658, 
  -67.58619, -67.54361, -67.53124, -67.48591, -67.51613, -67.5546, -67.56421, -67.58894, -67.55185, -67.45843, 
  -67.47354, -67.55047, -67.6274, -67.5752, -67.59443, -67.53125, -67.53537, -67.51476, -67.51476, -67.48042, 
  -67.50927, -67.45157, -67.42134, -67.36365, -67.3554, -67.30595, -67.2771, -67.29221, -67.24561, -67.22638, 
  -67.19616, -67.16044, -67.10961, -67.05878, -67.09999, -67.12748, -67.11787, -66.95714, -66.95851, -66.91043, 
  -66.90219, -66.93928, -66.90911, -66.95032, -66.93933, -66.88713, -66.99436, -66.97924, -66.92292, -66.81577, 
  -66.77455, -66.81027, -66.78829, -66.75532, -66.69487, -66.66602, -66.6097, -66.53964, -66.44504, -66.4669, 
  -66.44492, -66.5301, -66.40508, -66.42981, -66.46417, -66.50675, -66.50538, -66.5411, -66.59193, -66.61528, 
  -66.59467, -66.52882, -66.50547, -66.45601, -66.4409, -66.41068, -66.43266, -66.50951, -66.56034, -66.51225, 
  -66.51638, -66.58919, -66.59056, -66.53836, -66.52737, -66.5686, -66.50403, -66.37905, -66.34746, -66.29049, 
  -66.26029, -66.21636, -66.06535, -66.07908, -66.0294, -65.99233, -65.95527, -65.98547, -65.91134, -65.89212, 
  -65.82622, -65.83446, -65.76994, -65.72875, -65.68208, -65.70816, -65.67384, -65.62716, -65.67109, -65.77268, 
  -65.76856, -65.69443, -65.67247, -65.74797, -65.72464, -65.65738, -65.70954, -65.62992, -65.68758, -65.54069, 
  -65.61471, -65.65041, -65.66002, -65.69845, -65.78631, -65.87424, -65.87287, -65.78776, -65.75069, -65.6999, 
  -65.63537, -65.715, -65.65734, -65.6518, -65.61199, -65.63395, -65.62022, -65.62022, -65.57767, -65.57767, 
  -65.53865, -65.51255, -65.47683, -65.51666, -65.45072, -65.42462, -65.36005, -65.3367, -65.35181, -65.38066, 
  -65.37791, -65.3312, -65.29686, -65.25839, -65.2158, -65.15124, -65.08804, -65.12239, -65.1375, -65.23504, 
  -65.23504, -65.33944, -65.33815, -65.31067, -65.32716, -65.28457, -65.23374, -65.1623, -65.09224, -65.04004, 
  -65.07026, -65.01394, -65.01394, -64.97135, -64.94525, -64.82182, -64.81907, -64.74626, -64.70917, -64.70505, 
  -64.56767, -64.5663, -64.51821, -64.48112, -64.49486, -64.44678, -64.54706, -64.61713, -64.70642, -64.65698, 
  -64.66523, -64.64462, -64.68171, -64.67072, -64.62951, -64.5567, -64.47977, -64.4674, -64.43031, -64.40284, 
  -64.35063, -64.38223, -64.34102, -64.34514, -64.44688, -64.45925, -64.48672, -64.47299, -64.40979, -64.27791, 
  -64.21746, -64.22296, -64.18999, -64.14878, -64.11306, -64.03063, -64.15977, -64.08434, -64.09258, -64.11044, 
  -64.17226, -64.23408, -64.22171, -64.18462, -64.18462, -64.14753, -64.1228, -64.07472, -64.07609, -63.98817, 
  -63.9813, -63.93734, -63.93459, -63.91261, -63.90712, -63.86316, -63.82744, -63.77524, -63.79035, -63.73128, 
  -63.74227, -63.79859, -63.83843, -63.68319, -63.69418, -63.75875, -63.756, -63.83156, -63.82332, -63.95108, 
  -63.97164, -64.01286, -64.01423, -64.08017, -64.08979, -64.04583, -64.05682, -63.98401, -63.98675, -64.0156, 
  -64.01698, -64.09803, -64.12825, -64.04445, -64.02934, -64.08706, -64.06234, -64.09393, -64.05684, -63.9854, 
  -63.96892, -63.93045, -63.99777, -63.9593, -63.91397, -63.88516, -63.89478, -63.93599, -63.82609, -63.78955, 
  -63.81564, -63.80603, -63.78544, -63.77994, -63.70307, -63.69757, -63.64815, -63.66463, -63.60285, -63.57539, 
  -63.52323, -63.51636, -63.45321, -63.40928, -63.36261, -63.34751, -63.22944, -63.26926, -63.21983, -63.28161, 
  -63.26376, -63.21983, -63.17728, -63.12374, -63.13609, -63.08393, -63.06608, -63.01918, -62.978, -63.00271, 
  -62.9931, -63.0233, -63.03291, -62.98761, -62.99996, -63.11665, -63.21138, -63.2004, -63.26904, -63.25531, 
  -63.19902, -63.1524, -63.05218, -63.09199, -63.05767, -63.0261, -62.99727, -62.99315, -62.93275, -62.93, 
  -62.90327, -62.88678, -62.84969, -62.83183, -62.86892, -62.84145, -62.84694, -62.79749, -62.78512, -62.82359, 
  -62.86068, -62.81122, -62.71094, -62.58592, -62.53113, -62.49679, -62.47618, -62.38689, -62.36491, -62.39376, 
  -62.44459, -62.45146, -62.53388, -62.52701, -62.60255, -62.61629, -62.70696, -62.63827, -62.60668, -62.53936, 
  -62.53387, -62.56408, -62.58194, -62.55453, -62.52156, -62.52431, -62.47761, -62.47487, -62.53257, -62.45289, 
  -62.42266, -62.4625, -62.42266, -62.40068, -62.37321, -62.36222, -62.30315, -62.31551, -62.34985, -62.36634, 
  -62.33886, -62.38969, -62.36359, -62.31276, -62.3004, -62.34299, -62.28392, -62.19188, -62.23172, -62.20012, 
  -62.14379, -62.1644, -62.13418, -62.11769, -62.09434, -62.07785, -62.03664, -62.04213, -61.97757, -61.93086, 
  -61.95284, -61.91575, -61.96795, -61.90912, -61.88027, -61.894, -61.80059, -61.81982, -61.80608, -61.78273, 
  -61.77311, -61.71816, -61.7264, -61.7031, -61.67425, -61.65227, -61.66738, -61.60418, -61.54099, -61.53275, 
  -61.48329, -61.54236, -61.55609, -61.61654, -61.62066, -61.58906, -61.57807, -61.53823, -61.45031, -61.46817, 
  -61.43245, -61.47092, -61.51763, -61.58493, -61.57394, -61.59729, -61.55059, -61.54921, -61.49564, -61.45305, 
  -61.47228, -61.45854, -61.46541, -61.44343, -61.41184, -61.36513, -61.35963, -61.42832, -61.43107, -61.40909, 
  -61.39123, -61.34315, -61.34727, -61.29369, -61.29644, -61.26759, -61.2305, -61.1908, -61.08914, -61.08914, 
  -61.1331, -61.10155, -60.94219, -60.92433, -60.98753, -60.98753, -60.89971, -60.92438, -60.9601, -60.93812, 
  -60.95186, -60.85295, -60.83509, -60.89416, -60.89141, -60.96285, -61.02329, -61.02741, -60.97109, -60.93262, 
  -60.88592, -60.83234, -60.7664, -60.77189, -60.71694, -60.73755, -60.71557, -60.71694, -60.67298, -60.62367, 
  -60.29809, -60.25287, -60.23089, -60.09214, -60.0784, -59.95751, -59.93416, -59.97125, -59.9163, -59.93192, 
  -59.9278, -59.94702, -59.89898, -59.84544, -59.81249, -59.7713, -59.72463, -59.68482, -59.61755, -59.55165, 
  -59.49674, -59.45418, -59.41574, -59.41437, -59.38417, -59.43359, -59.43084, -59.35534, -59.36632, -59.31827, 
  -59.36215, -59.21114, -59.10132, -59.02032, -58.9256, -58.94191, -58.36803, -58.21673, -58.16044, -58.10828, 
  -58.04376, -58.00532, -57.95178, -57.86666, -57.76095, -57.71546, -57.52327, -57.42168, -57.23223, -57.0318, 
  -57.01528, -57.04548, -56.98371, -57.04548, -57.06333, -57.02077, -56.97272, -56.94252, -56.93017, -57.01391, 
  -56.99945, -56.95549, -56.90885, -56.93221, -56.83467, -56.76873, -56.76048, -56.83879, -56.90885, -56.93633, 
  -56.99952, -57.04348, -57.14651, -57.17399, -57.09431, -57.14377, -57.13827, -57.20559, -57.26466, -57.34846, 
  -57.43363, -57.51194, -57.45287, -57.48309, -57.4664, -57.37573, -57.37436, -57.498, -57.52685, -57.61477, 
  -57.66834, -57.74115, -57.73291, -57.76314, -57.7494, -57.67377, -57.58997, -57.63118, -57.70537, -57.75345, 
  -57.84, -57.9183, -57.96364, -58.02683, -58.07217, -58.17367, -58.27945, -58.31792, -58.37424, -58.3715, 
  -58.44695, -58.47718, -58.43047, -58.5019, -58.58708, -58.71621, -58.73403, -58.69007, -58.79311, -58.82196, 
  -58.98956, -59.02527, -59.07336, -59.06924, -59.18051, -59.19562, -59.00609, -59.01433, -58.9896, -58.96488, 
  -58.75881, -58.75194, -58.94839, -58.94011, -58.90851, -58.93873, -58.88104, -58.80273, -58.7519, -58.80136, 
  -58.90714, -58.94148, -58.99506, -59.01979, -58.9827, -59.0033, -59.04177, -59.05688, -59.11595, -59.16815, 
  -59.37679, -59.40289, -59.45772, -59.47283, -59.58273, -59.6156, -59.67055, -59.67467, -59.62659, -59.60598, 
  -59.63621, -59.54554, -59.57301, -59.6623, -59.71176, -59.77907, -59.75022, -59.85593, -59.93286, -60.02491, 
  -59.97408, -60.02894, -60.07565, -60.15121, -60.25287, -60.24188, -60.29683, -60.31469, -60.34216, -60.35178, 
  -60.41085, -60.39574, -60.45206, -60.44932, -60.35727, -60.35856, -60.40939, -60.4245, -60.47121, -60.49181, 
  -60.74184, -60.75558, -60.69644, -60.88464, -60.8763, -61.01917, -61.00403, -61.05208, -61.10153, -61.13176, 
  -61.1922, -61.32821, -61.40514, -61.42162, -61.41201, -61.46558, -61.49855, -61.53427, -61.53839, -61.60831, 
  -61.62068, -61.68112, -61.70036, -61.78278, -61.76074, -61.78959, -61.76898, -61.6248, -61.57397, -61.56161, 
  -61.63854, -61.63991, -61.58908, -61.60005, -61.74018, -61.80887, -61.84172, -61.84034, -61.88156, -61.92002, 
  -61.96536, -61.97909, -62.06289, -62.07388, -62.1357, -62.12883, -62.15494, -62.15082, -61.9997, -62.09449, 
  -62.11098, -62.2304, -62.33551, -62.3142, -62.27024, -62.07654, -62.07929, -62.01197, -62.00236, -62.1466, 
  -62.14248, -62.11088, -62.1205, -62.21391, -62.19605, -62.08478, -61.93923, -61.95434, -61.90351, -61.84169, 
  -61.77372, -61.70645, -61.71057, -61.77921, -61.82589, -61.89178, -61.93434, -61.99474, -62.09916, -62.04289, 
  -62.07446, -62.06485, -62.11565, -62.128, -62.18704, -62.26529, -62.33667, -62.33393, -62.38198, -62.36008, 
  -62.41774, -62.36832, -62.26395, -62.2763, -62.01811, -61.95633, -61.92613, -61.81631, -61.81081, -61.65019, 
  -61.63772, -61.31099, -61.3151, -61.38375, -61.36178, -61.23948, -61.1173, -61.08709, -61.02394, -61.02394, 
  -60.89889, -60.82475, -60.58314, -60.53784, -60.56255, -60.5447, -60.61054, -60.58857, -60.71213, -60.69565, 
  -60.76292, -60.82691, -60.92307, -60.93269, -61.00687, -61.05633, -60.87639, -60.92585, -60.90936, -61.01239, 
  -60.97388, -61.13121, -61.17995, -61.12912, -61.1757, -61.3172, -61.35429, -61.39963, -61.49442, -61.49624, 
  -61.6002, -61.75269, -61.74292, -61.66736, -61.72506, -61.65637, -61.70573, -61.83075, -61.87741, -61.92824, 
  -61.99144, -61.95297, -61.95434, -62.06005, -62.09852, -62.22628, -62.29909, -62.43921, -62.45158, -62.52301, 
  -62.50516, -62.73732, -62.72064, -62.7701, -62.74537, -62.75911, -62.7124, -62.71515, -62.56821, -62.51326, 
  -62.7289, -62.72478, -62.63411, -62.54619, -62.51185, -62.58883, -62.54212, -62.44046, -62.42397, -62.46931, 
  -62.45694, -62.63828, -62.79894, -62.7852, -62.84702, -62.83462, -62.91567, -62.97199, -62.98562, -63.16833, 
  -63.20131, -63.24927, -63.2685, -63.31658, -63.35642, -63.39626, -63.56249, -63.65453, -63.78504, -63.80839, 
  -63.72871, -63.79191, -63.67651, -63.65453, -63.78367, -63.76031, -63.68194, -63.78223, -63.77261, -63.65996, 
  -63.57753, -63.55555, -63.67507, -63.85916, -63.8935, -63.75474, -63.89349, -63.87151, -63.93745, -63.80694, 
  -63.84127, -63.79181, -63.82203, -63.86874, -63.94346, -64.00337, -64.08442, -64.06931, -64.13251, -64.1503, 
  -64.11321, -64.12832, -63.92363, -63.90724, -63.82206, -63.75475, -63.77261, -63.70942, -63.7424, -64.10507, 
  -64.18184, -64.22306, -64.24504, -64.31647, -64.37005, -64.42363, -64.50331, -64.55826, -64.51142, -64.52515, 
  -64.54713, -64.58148, -64.63368, -64.65292, -64.68726, -64.75183, -64.69824, -64.7422, -64.68312, -64.69136, 
  -64.83286, -64.88506, -64.9249, -64.92765, -64.97161, -64.98397, -64.89465, -64.8974, -64.84794, -64.82321, 
  -64.71881, -64.74079, -64.69133, -64.79025, -64.85756, -64.86306, -64.98395, -64.977, -65.0292, -65.0292, 
  -64.87946, -64.84649, -64.75857, -64.75033, -64.92068, -64.95365, -65.03333, -64.9825, -65.08004, -65.15559, 
  -65.20083, -65.22418, -65.19946, -65.32859, -65.38079, -65.38079, -65.45086, -65.433, -65.52092, -65.50157, 
  -65.61834, -65.64032, -65.58393, -65.60591, -65.38063, -65.42871, -65.34912, -65.36011, -65.481, -65.50985, 
  -65.57991, -65.60326, -65.57027, -65.58263, -65.52219, -65.7049, -65.68292, -65.56613, -65.50019, -65.4109, 
  -65.31611, -65.35869, -65.40403, -65.54965, -65.61421, -65.6568, -65.7351, -65.73088, -65.76248, -65.75286, 
  -65.76523, -65.746, -65.73226, -65.71028, -65.69517, -65.6622, -65.64296, -65.58664, -65.50146, -65.4946, 
  -65.46162, -65.40255, -65.33815, -65.32092, -65.266, -65.22606, -65.16703, -65.13683, -65.01739, -64.99543, 
  -64.93502, -64.91992, -64.95973, -64.94875, -64.99955, -64.9007, -64.84442, -64.85265, -64.83069, -64.75107, 
  -64.78676, -64.78676, -64.82933, -64.89797, -64.94328, -64.96112, -65.09566, -65.14371, -65.23706, -65.31943, 
  -65.31684, -65.42667, -65.48433, -65.51453, -65.48295, -65.49668, -65.3443, -65.2839, -65.25211, -65.18896, 
  -65.11758, -65.06752, -64.97755, -65.15063, -65.20005, -65.19456, -65.27144, -65.31819, -65.3635, -65.24955, 
  -65.29074, -65.22072, -65.16718, -65.14232, -65.00915, -64.9481, -64.87391, -64.78324, -64.67059, -64.64469, 
  -64.65431, -64.59798, -64.61447, -64.50182, -64.49083, -64.34658, -64.41115, -64.06084, -64.02512, -64.1831, 
  -64.02924, -63.98672, -64.33706, -64.1516, -64.14336, -64.27112, -64.25464, -64.12962, -64.16816, -63.96759, 
  -63.27677, -62.87581, -62.84559, -62.93351, -63.14095, -63.31267, -63.44575, -63.6793, -63.85361, -63.75882, 
  -63.8701, -63.79873, -63.72179, -63.66272, -63.59129, -63.48006, -63.46358, -63.39489, -63.39214, -63.263, 
  -63.19294, -63.25888, -63.36879, -63.52265, -63.49655, -63.42236, -63.37153, -63.47868, -63.4938, -63.38252, 
  -63.41549, -63.56386, -63.66964, -63.81938, -63.83312, -63.91692, -63.92791, -63.88532, -63.9128, -63.80697, 
  -63.47177, -63.32203, -63.29593, -63.35368, -63.44572, -63.30422, -63.19707, -63.22042, -63.14487, -63.13676, 
  -63.05021, -63.0928, -62.97059, -62.78376, -62.62178, -62.58029, -62.45115, -62.3962, -62.4144, -62.3825, 
  -62.43635, -62.42399, -62.51466, -62.57785, -62.52563, -62.3072, -62.31276, -62.28528, -62.35015, -62.26467, 
  -62.22763, -61.99409, -61.97598, -61.85783, -62.06115, -62.04192, -62.18754, -62.23425, -62.41833, -62.31942, 
  -62.4456, -62.42912, -62.13238, -62.13796, -62.24512, -62.16544, -61.97036, -61.92915, -61.80826, -61.44319, 
  -61.34978, -61.45137, -61.50632, -61.64369, -61.64095, -61.81152, -61.79229, -61.828, -62.01758, -62.0588, 
  -62.13298, -62.14397, -62.00932, -62.06702, -61.97503, -61.78545, -61.68384, -61.52173, -61.27033, -61.25672, 
  -61.29793, -61.2773, -61.37621, -61.36522, -61.19075, -61.1688, -61.21688, -61.20589, -61.10835, -60.96284, 
  -60.91338, -60.94635, -61.26095, -61.27746, -61.03158, -60.92717, -60.96971, -61.03428, -61.05489, -61.37478, 
  -61.40775, -61.31713, -61.23608, -61.22647, -61.13168, -61.15091, -61.24432, -61.28966, -61.46138, -61.48336, 
  -61.56167, -61.5245, -61.62067, -61.74705, -61.71676, -61.80468, -62.00382, -62.02718, -62.08075, -62.13845, 
  -62.07663, -61.77996, -61.7099, -61.60412, -61.49575, -61.26086, -61.26498, -61.1537, -61.09738, -61.12211, 
  -61.08227, -61.03968, -60.94214, -61.02463, -60.95319, -60.92159, -60.77735, -60.83921, -60.7664, -60.80485, 
  -60.89827, -61.03016, -61.05901, -61.10984, -61.13594, -61.14693, -61.07824, -61.05351, -61.12495, -61.1222, 
  -61.0329, -61.03152, -61.07823, -61.08235, -61.22385, -61.35024, -61.48075, -61.77717, -61.86784, -62.49016, 
  -62.45719, -62.09714, -62.1232, -62.19601, -62.38147, -62.24959, -62.22084, -62.15902, -62.09033, -61.97905, 
  -61.9296, -61.70155, -61.4847, -61.3899, -61.28279, -61.23059, -61.22372, -61.14542, -61.19777, -61.13595, 
  -60.90378, -60.7458, -60.66612, -60.67443, -60.79807, -60.8103, -60.86113, -60.88173, -60.96553, -60.97515, 
  -61.03559, -61.10016, -61.04796, -60.90234, -60.71551, -60.65112, -60.68602, -60.64072, -60.6668, -60.80546, 
  -60.92626, -60.92077, -61.02236, -60.97569, -60.89332, -60.84669, -60.71765, -60.72863, -60.63116, -60.65312, 
  -60.89062, -60.94279, -61.02927, -61.4001, -61.4907, -61.47423, -61.36029, -61.48109, -61.42755, -61.29302, 
  -61.2477, -61.27516, -61.22025, -61.1722, -61.19828, -61.35478, -61.34929, -61.4042, -61.28888, -61.21201, 
  -61.23397, -61.12277, -61.04452, -60.81506, -60.74779, -60.52539, -60.4842, -60.61467, -60.68606, -60.71351, 
  -60.61467, -60.72037, -60.79176, -60.75469, -60.67507, -60.64212, -60.54602, -60.31874, -60.2323, -60.10733, 
  -59.95622, -59.95351, -59.89993, -60.04138, -60.04824, -59.98366, -60.12378, -60.35595, -60.46293, -60.4959, 
  -60.45194, -60.59344, -60.6978, -60.84067, -60.79808, -60.87216, -60.91887, -60.89414, -60.96825, -61.0809, 
  -61.19767, -61.21553, -61.26209, -61.26621, -61.36787, -61.43518, -61.55608, -61.70719, -61.81984, -61.87342, 
  -62.02027, -62.07522, -61.87469, -61.64389, -61.59993, -61.73044, -61.81836, -61.84172, -61.72769, -61.7689, 
  -61.63702, -61.51338, -61.57382, -61.67823, -61.90765, -61.95573, -61.89391, -61.88567, -61.81698, -61.76752, 
  -61.66593, -61.72225, -61.70439, -61.59037, -61.54778, -61.589, -61.56015, -61.57801, -61.53954, -61.52168, 
  -61.4681, -61.27469, -61.24584, -61.19227, -60.9079, -60.75129, -60.88449, -60.8996, -60.93807, -61.02187, 
  -60.99439, -61.06444, -61.03834, -61.11252, -61.00262, -60.81029, -60.75122, -60.72512, -60.87628, -60.85428, 
  -60.89548, -60.8886, -60.98749, -61.19356, -61.35841, -61.36103, -61.40774, -61.5616, -61.68799, -61.70036, 
  -61.76492, -61.76904, -61.84323, -61.58633, -61.86384, -61.85422, -61.69898, -61.50665, -61.40225, -61.4078, 
  -61.33499, -61.26355, -61.03413, -61.16201, -61.38855, -61.49708, -61.56989, -61.65095, -61.61798, -61.65095, 
  -61.54523, -61.39137, -61.22239, -61.17019, -60.85708, -60.72932, -60.61942, -60.73758, -61.02052, -61.04388, 
  -60.90787, -60.93258, -61.06443, -61.29522, -61.34331, -61.4792, -61.59322, -61.64405, -61.74022, -62.05736, 
  -62.12879, -62.21122, -62.27579, -62.32655, -62.36227, -62.33892, -62.37464, -62.15763, -62.02712, -61.931, 
  -61.88017, -61.90078, -61.80466, -61.8115, -62.06148, -62.08614, -62.2716, -62.43646, -62.5601, -62.58191, 
  -62.55855, -62.60523, -62.70137, -62.73434, -62.79616, -62.81402, -62.88127, -63.07497, -63.12855, -63.11756, 
  -63.18075, -63.23295, -63.27829, -63.24532, -63.30851, -63.26449, -63.16008, -63.08318, -63.05022, -63.05709, 
  -63.23288, -63.54335, -63.59961, -63.58587, -63.61609, -63.57763, -63.83441, -64.03911, -64.08994, -64.03498, 
  -64.04587, -63.74657, -63.35794, -63.23158, -63.17388, -63.10244, -63.03236, -63.35234, -63.44576, -63.4334, 
  -63.52406, -63.66007, -63.93595, -64.22571, -64.22432, -64.31911, -64.3356, -64.43312, -64.4551, -64.36306, 
  -64.39467, -64.32186, -64.18586, -64.04573, -63.84403, -63.22878, -63.0708, -63.61014, -64.32159, -65.02204, 
  -65.30504, -65.3957, -65.54132, -65.54383, -66.431, -66.70009, -67.46391, -67.85103, -67.92521, -68.05984, 
  -68.18074, -67.95269, -68.33438, -68.54869, -68.91411, -69.46327, -69.57318, -69.70506, -69.84518, -69.81496, 
  -70.14467, -70.16626, -69.771, -69.82045, -70.08147, -69.99896, -70.16931, -70.0413, -69.83813, -69.81616, 
  -70.00836, -70.0111, -70.12916, -70.18408, -70.07974, -69.96443, -69.93422, -70.0111, -70.1072, -70.29116, 
  -70.58494, -70.56297, -70.46139, -70.46139, -70.62063, -70.75242, -70.86499, -71.10966, -71.74116, -72.44177, 
  -72.51048, -72.88114, -72.90585, -73.16668, -73.39202, -73.9082, -73.94114, -73.76542, -73.82034, -75.30059, 
  -75.25117, -75.42414, -75.70185, -75.58928, -75.68263, -75.83639, -75.91875, -76.27294, -76.35531, -76.56398, 
  -76.63291, -76.88002, -77.50918, -77.98708, -78.09965, -78.25066, -78.43187, -78.37217, -78.15544, -78.22687, 
  -77.71583, -77.70023, -77.52439, -77.55461, -76.79376, -77.0218, -76.85909, -76.74918, -76.11175, -76.23818, 
  -76.19422, -76.24368, -76.02387, -75.96343, -75.49085, -75.34798, -72.74965, -72.7941, -73.54671, -74.28854, 
  -74.90949, -75.02489, -75.32162, -76.91993, -77.33668, -77.68837, -77.85322, -80.1172, -80.37442, -80.48432, 
  -80.70962, -80.69314, -81.16022, -81.43487, -81.67116, -80.73757, -78.06788, -77.36451, -77.3425, -77.6777, 
  -78.86409, -80.22138, -81.08888, -82.27582, -83.00618, -83.13806, -83.44578, -83.56668, -82.92925, -83.04464, 
  -83.19573, -83.23282, -83.15727, -83.15454, -83.2972, -83.43458, -83.44557, -83.68735, -83.77527, -83.89067, 
  -83.72028, -83.09954, -82.56102, -82.6874, -82.48429, -82.22602, -81.76443, -81.84686, -81.61607, -81.38556, 
  -81.23719, -81.09432, -81.24269, -81.33061, -81.13828, -80.63299, -80.36923, -80.5672, -80.47928, -79.99022, 
  -77.32616, -76.54036, -76.02297, -76.13287, -76.64941, -78.06714, -79.48352, -79.65936, -79.04391, -77.70428, 
  -77.51745, -77.27566, -76.35249, -76.19862, -75.96847, -75.39698, -75.77064, -75.23212, -75.80346, -75.66059, 
  -75.57267, -75.22098, -74.90226, -74.7484, -74.60553, -74.48464, -74.078, -72.79215, -72.53937, -72.46244, 
  -72.34155, -71.14496, -70.44158, -70.39762, -69.96901, -69.14474, -68.90296, -68.50807, -68.45447, -65.00457, 
  -64.15239, -63.93274, -63.00703, -62.29866, -62.30415, -62.20256, -62.22727, -62.08718, -62.38096, -63.2376, 
  -63.41373, -63.29292, -63.58396, -63.68006, -64.03699, -64.08916, -63.83931, -63.94913, -64.19898, -64.72889, 
  -64.51748, -64.70967, -65.27022, -64.92702, -64.938, -64.46026, -63.47963, -63.58946, -63.51258, -63.93009, 
  -63.98774, -64.15248, -64.59453, -65.31144, -65.3032, -65.58326, -65.6821, -66.29754, -66.15477, -66.06142, 
  -65.89668, -65.61937, -65.9597, -66.11019, -65.92402, -65.96246, -65.90755, -66.11073, -66.07229, -65.91465, 
  -65.69759, -65.33491, -65.19204, -65.22226, -65.13454, -65.22796, -65.07135, -65.13999, -65.05756, -64.9614, 
  -64.8602, -64.6981, -64.61292, -64.48928, -64.54973, -64.53599, -64.50847, -64.50847, -64.40681, -64.37109, 
  -64.24471, -64.26669, -64.01116, -63.98094, -63.80291, -63.74796, -63.78368, -63.74246, -63.66279, -63.60784, 
  -63.53915, -63.5886, -63.55151, -63.48282, -63.34544, -63.23691, -63.23966, -63.16823, -63.23565, -63.05706, 
  -63.01997, -63.08866, -62.99249, -62.84, -62.82352, -62.7991, -62.45429, -62.42819, -62.34576, -62.31141, 
  -62.24547, -62.26471, -62.19739, -62.15068, -62.17953, -62.13008, -62.07116, -62.00659, -61.99835, -61.92005, 
  -61.88158, -61.78679, -61.41889, -61.30212, -60.88863, -60.72261, -60.62644, -60.68964, -60.6237, -60.56188, 
  -60.46983, -60.40664, -60.59481, -61.13594, -61.21287, -61.30204, -61.71406, -61.89394, -62.19744, -62.48031, 
  -62.52427, -62.65335, -62.82233, -62.73689, -62.46501, -62.51447, -62.42105, -62.43475, -62.09141, -62.08867, 
  -61.96503, -61.998, -62.24254, -62.21231, -61.91008, -61.91283, -61.8304, -61.68753, -61.59137, -61.53642, 
  -61.57763, -61.41864, -61.34996, -61.3005, -61.20708, -61.13565, -61.1274, -61.05872, -60.95712, -61.07216, 
  -61.218, -61.4433, -61.86626, -61.5338, -61.45695, -61.22891, -61.12725, -60.93767, -60.82265, -59.88618, 
  -59.60044, -59.27578, -58.87473, -58.83077, -58.6879, -58.73735, -57.42989, -56.46866, -55.89961, -55.91107, 
  -55.81772, -55.77516, -55.62003, -55.41256, -55.41256, -55.29312, -55.22723, -55.16133, -55.1174, -55.19291, 
  -55.07469, -55.15706, -55.01835, -55.0307, -54.98403, -54.91127, -54.83439, -54.81929, -54.68186, -54.63382, 
  -54.57341, -54.47594, -54.43613, -54.31258, -54.1285, -54.28072, -54.3207, -54.20676, -53.94867, -54.02555, 
  -54.14636, -54.30011, -54.23284, -54.05301, -53.96652, -53.8059, -53.41318, -53.3061, -53.28139, -53.20177, 
  -53.06449, -52.91897, -52.70755, -52.36709, -52.24354, -52.13921, -51.25442, -50.73516, -50.66377, -49.46067, 
  -48.90797, -48.78158, -48.39967, -48.2568, -48.16063, -47.51221, -47.47974, -47.35082, -47.29175, -47.38649, 
  -47.46892, -47.49914, -47.57744, -47.60492, -47.48952, -47.33841, -47.30413, -47.15851, -47.07893, -46.73979, 
  -46.52831, -46.34697, -46.29065, -46.22471, -46.28648, -46.01289, -46.07088, -45.97883, -46.15329, -46.07911, 
  -46.48533, -46.69964, -46.43593, -46.5211, -46.31229, -46.23261, -46.01281, -45.86444, -45.6886, -45.7135, 
  -45.56788, -44.85935, -44.30709, -44.22466, -44.03233, -43.98331, -43.28562, -43.35431, -43.10981, -43.27192, 
  -43.16752, -43.16202, -43.23621, -43.13459, -42.21719, -42.23917, -41.91237, -41.93708, -41.68713, -41.00871, 
  -40.97574, -40.84935, -40.63779, -40.41524, -40.2916, -40.1573, -39.84131, -39.84416, -39.0147, -38.96525, 
  -38.7949, -38.84161, -38.6218, -38.54762, -38.44871, -37.60018, -37.65514, -37.47105, -37.30345, -37.26498, 
  -37.09464, -37.04518, -36.90231, -36.83637, -36.60283, -36.55939, -36.01262, -36.0319, -35.8643, -35.88903, 
  -35.77638, -35.79287, -35.48264, -35.16978, -35.17491, -35.51282, -35.18037, -34.41105, -33.98014, -33.86475, 
  -33.5794, -33.60648, -33.38393, -33.19472, -32.79083, -32.33796, -32.1841, -31.96155, -30.61525, -30.64273, 
  -31.34795, -31.19549, -31.27216, -30.83255, -30.13742, -30.15116, -29.71767, -29.83848, -29.7588, -29.58296, 
  -28.66589, -27.70974, -26.64148, -26.50411, -26.25408, -26.32002, -25.99856, -26.19079, -26.64413, -27.08099, 
  -27.33926, -28.53657, -28.66021, -30.20939, -30.2391, -30.53034, -30.54957, -30.75563, -30.9807, -31.14555, 
  -31.68957, -31.72803, -32.00004, -31.98081, -32.12891, -32.10967, -31.72227, -32.17303, -32.05214, -31.48339, 
  -31.04928, -30.50767, -29.5136, -29.60702, -29.81583, -29.90925, -30.56317, -30.57965, -29.92574, -29.97519, 
  -30.19474, -30.2387, -30.57939, -30.69479, -31.12281, -31.3591, -32.69441, -34.16709, -34.23303, -34.9849, 
  -36.30351, -36.5451, -36.41871, -36.27594, -35.9134, -35.69909, -35.60018, -35.64414, -35.49577, -35.52877, 
  -35.33095, -34.99047, -34.67032, -34.59344, -34.49597, -34.43694, -34.67444, -34.61547, -34.72804, -34.76922, 
  -34.69097, -34.57555, -34.3712, -33.86601, -33.7477, -33.53903, -33.13817, -32.95146, -32.57257, -32.13816, 
  -31.87458, -31.86909, -31.7975, -31.76455, -31.2923, -30.92439, -30.86399, -30.6663, -30.64708, -30.44605, 
  -30.47491, -30.4049, -30.21016, -30.16623, -29.6226, -29.51259, -29.42198, -29.32039, -28.66382, -28.41397, 
  -27.95819, -27.6699, -27.72756, -27.59531, -27.32075, -26.97205, -26.88144, -26.692, -26.60414, -26.59678, 
  -26.51852, -26.4691, -26.38609, -26.25434, -26.06064, -25.94662, -25.66938, -25.52925, -25.40699, -25.23252, 
  -25.10064, -25.0391, -24.80968, -24.65857, -24.66269, -24.48824, -23.94147, -23.40845, -23.35132, -23.25379, 
  -23.20433, -23.00513, -22.87737, -22.60949, -22.56415, -22.44352, -22.44077, -22.3501, -22.35972, -22.26218, 
  -22.25669, -22.1358, -22.10145, -22.06299, -22.06711, -21.85005, -21.82279, -21.76784, -21.78158, -21.52606, 
  -21.42165, -21.3928, -21.31725, -21.28977, -21.28977, -21.14415, -21.15514, -21.11133, -21.11133, -21.00967, 
  -20.97121, -20.84619, -20.76926, -20.68409, -20.64013, -20.78449, -20.40819, -20.05393, -19.99623, -19.94678, 
  -19.78193, -19.70637, -19.70637, -19.63081, -19.63218, -19.49766, -19.4331, -19.37952, -19.24764, -19.26275, 
  -19.19698, -19.01289, -18.94832, -18.81919, -18.75874, -18.59544, -18.59818, -18.47304, -18.58019, -18.53623, 
  -18.64338, -18.70108, -18.67361, -18.76153, -18.88517, -18.84945, -18.88792, -18.8521, -18.78341, -18.70922, 
  -18.72021, -18.69274, -18.59658, -18.51415, -18.57185, -18.5224, -18.5801, -18.55537, -18.35755, -18.55537, 
  -18.20918, -18.27238, -17.95654, -17.93736, -17.86318, -17.97308, -17.90439, -17.96484, -17.778, -17.72031, 
  -17.62964, -17.56929, -17.11635, -16.7839, -16.65476, -15.94865, -15.82547, -15.81997, -15.63863, -15.66611, 
  -15.5617, -15.5672, -15.27871, -15.39948, -15.56159, -15.53411, -15.06978, -15.01483, -14.8747, -14.88863, 
  -14.40507, -14.38583, -14.96556, -15.43776, -15.58338, -15.97623, -16.24026, -16.24988, -16.41611, -16.46545, 
  -16.53551, -16.55612, -16.50942, -16.39402, -16.3638, -16.11398, -15.9876, -15.82412, -15.83512, -16.19367, 
  -16.45744, -16.61072, -16.60799, -16.56132, -16.58879, -16.43768, -15.96802, -16.00374, -15.94879, -16.00653, 
  -15.8719, -15.61638, -15.52296, -15.42405, -15.26469, -15.16578, -14.993, -14.92157, -14.58094, -14.4491, 
  -14.46009, -14.4024, -14.36393, -14.29249, -14.24853, -14.04247, -13.91883, -14.03422, -13.91522, -14.23248, 
  -14.22011, -14.31902, -14.37947, -14.42614, -14.36432, -14.27503, -14.10743, -13.793, -13.64326, -13.51571, 
  -13.41543, -13.34674, -13.28629, -13.17227, -12.86051, -12.96218, -12.94981, -12.97729, -12.98004, -12.92646, 
  -12.8825, -12.71902, -12.76435, -12.65047, -12.59277, -12.53507, -12.42251, -12.31398, -12.24667, -12.17809, 
  -12.07506, -11.82091, -11.81553, -11.77569, -11.68365, -11.42547, -11.31969, -11.34442, -11.30321, -11.40487, 
  -11.31698, -11.17689, -11.15353, -11.28403, -11.16451, -11.17139, -11.06012, -10.94479, -10.89125, -11.02171, 
  -11.26075, -11.49136, -12.15608, -12.38917, -12.36725, -12.21888, -12.01282, -11.88368, -11.72613, -11.66156, 
  -11.74261, -11.62105, -11.33825, -11.04166, -10.77808, -10.5804, -10.75612, -10.58282, -10.12436, -9.98433, 
  -10.23144, -10.42089, -10.47031, -10.20947, -9.93766, -10.00355, -9.87176, -9.4352, -9.05036, -8.97074, 
  -9.08725, -9.06803, -9.12706, -8.98564, -8.82091, -8.78247, -8.71657, -8.75913, -8.72202, -8.74398, 
  -8.63278, -8.76872, -8.64242, -8.59712, -8.39257, -8.27847, -8.14393, -8.06156, -8.08765, -7.91034, 
  -7.63303, -7.58082, -7.71124, -7.7964, -7.69638, -7.65906, -7.53551, -7.57671, -7.6852, -7.78953, 
  -7.89661, -7.92552, -7.45263, -7.20672, -7.09697, -6.63401, -6.55853, -6.56128, -6.45418, -6.19465, 
  -5.85945, -5.66045, -5.56706, -5.67284, -5.74015, -6.07388, -6.0615, -6.10683, -6.03402, -6.18094, 
  -6.3348, -6.15896, -6.06692, -5.88421, -5.77843, -5.4696, -5.01503, -4.78973, -4.69906, -4.58367, 
  -4.39409, -4.19626, -4.16054, -4.03416, -3.9325, -3.97813, -4.07841, -4.00698, -3.96714, -3.89158, 
  -3.70337, -3.71858, -3.60181, -3.56472, -3.46581, -3.41223, -3.43971, -3.33942, -3.31901, -3.25444, 
  -3.1885, -3.09096, -2.97969, -3.0209, -3.0154, -2.91512, -2.75439, -2.68313, -2.6584, -2.54301, 
  -2.48394, -2.23822, -2.18601, -2.20799, -2.15716, -2.14617, -2.02116, -1.98132, -1.88653, -1.74939, 
  -1.5969, -1.5708, -1.49799, -1.38671, -1.38122, -1.30428, -1.31405, -1.21926, -1.11073, -0.96649, 
  -0.8526, -0.78941, -0.97207, -0.87454, -0.86767, -0.7454, -0.57643, -0.59708, -0.55724, -0.69599, 
  -0.48168, -0.44742, 0.22307, 0.94232, 1.1319, 2.17312, 2.31577, 2.64548, 2.91724, 3.71129, 
  4.08717, 4.23279, 4.44435, 4.68064, 4.87846, 4.96638, 5.02133, 5.33689, 5.44449, 5.58142, 
  5.74627, 6.31776, 6.48262, 6.73814, 6.81732, 6.78703, 6.81725, 6.88045, 6.90655, 6.96699, 
  7.10849, 7.13322, 7.17581, 7.25411, 7.28022, 7.3805, 7.41047, 7.47641, 7.50526, 7.54372, 
  7.59041, 7.56706, 7.59866, 7.64949, 7.69894, 7.66463, 7.46269, 7.4023, 7.45584, 7.84737, 
  7.92835, 7.92773, 7.85359, 7.87829, 7.82887, 7.86594, 7.86182, 7.93467, 8.11588, 8.25729, 
  8.3273, 8.42065, 8.70102, 8.69964, 8.77378, 8.89733, 8.97833, 8.99617, 9.16503, 9.17611, 
  9.12944, 8.98529, 8.89045, 8.90144, 9.11979, 9.26805, 9.42318, 9.41769, 9.68139, 9.67045, 
  9.6375, 9.67045, 9.68143, 9.76105, 10.17025, 10.31302, 10.61389, 11.02725, 11.1412, 11.22219, 
  11.3787, 11.57528, 11.61372, 11.72217, 11.86083, 12.10656, 12.10248, 12.14092, 12.05306, 12.08877, 
  12.15603, 12.14231, 12.21991, 12.1388, 12.24046, 12.24046, 12.3586, 12.3641, 12.45477, 12.54658, 
  12.53971, 12.60703, 12.64686, 12.73341, 12.58504, 12.64549, 12.8021, 13.05098, 12.98196, 12.78414, 
  12.66065, 12.42848, 12.42573, 12.49992, 12.77467, 12.9615, 13.09201, 13.15246, 13.12086, 13.21539, 
  13.31705, 13.3981, 13.40772, 13.58494, 13.67129, 13.72899, 13.83889, 14.07518, 14.12739, 14.21668, 
  14.21943, 14.33895, 14.39527, 14.85933, 15.00495, 15.14621, 15.22177, 15.28908, 15.61055, 15.85508, 
  15.88921, 16.02658, 16.10626, 16.15984, 16.52087, 16.63627, 16.58276, 16.58968, 16.47016, 16.88348, 
  16.92332, 17.28582, 18.08373, 18.21287, 18.34612, 18.31315, 18.43817, 18.53433, 18.401, 18.4065, 
  18.3227, 18.30621, 18.25538, 18.80208, 18.81844, 18.93933, 19.25805, 19.29231, 19.1879, 19.15355, 
  19.29366, 19.28818, 19.23461, 19.24285, 19.13707, 19.17279, 18.9668, 18.89948, 18.89811, 18.92833, 
  18.94207, 18.91051, 18.93524, 18.93661, 19.00118, 19.02728, 19.06025, 19.04102, 19.09459, 19.06703, 
  19.12336, 19.11237, 19.20578, 19.30332, 19.34591, 19.383, 19.3569, 19.46656, 19.61993, 19.75917, 
  19.71246, 19.76192, 19.95287, 20.36473, 20.41694, 20.59415, 20.76038, 20.79198, 20.99255, 21.15989, 
  21.15304, 21.19014, 21.26157, 21.16129, 21.30417, 21.46618, 21.46206, 21.62137, 21.71341, 21.78897, 
  22.04176, 22.0388, 22.19678, 22.26959, 22.45352, 22.58265, 22.57444, 22.47553, 22.27771, 22.18155, 
  21.95919, 21.82318, 21.81494, 22.05398, 22.37269, 22.38911, 22.33553, 22.32454, 22.38636, 22.41497, 
  22.45917, 22.53181, 22.70353, 22.87113, 23.17865, 23.32153, 23.55496, 23.56187, 23.53302, 23.6388, 
  23.72803, 23.91876, 24.07537, 24.30205, 24.30754, 24.42979, 24.40781, 24.4078, 24.45588, 24.43252, 
  24.45862, 24.38311, 24.36525, 24.24985, 24.46965, 24.55345, 24.57532, 24.72226, 24.76896, 25.00387, 
  25.27161, 25.44741, 26.03813, 26.21397, 26.54093, 26.5794, 26.81843, 26.87339, 27.22472, 27.31814, 
  27.289, 27.19421, 27.13239, 27.35758, 27.42213, 27.57599, 27.5155, 27.61441, 27.73805, 27.9551, 
  28.0551, 28.07158, 28.14165, 28.13615, 28.28952, 28.29501, 28.41582, 28.49407, 28.57919, 28.6109, 
  29.05452, 29.17807, 29.35524, 29.38544, 29.58999, 29.76983, 29.77689, 30.01859, 30.04467, 30.29178, 
  30.32198, 30.47299, 30.5128, 30.624, 30.72444, 30.96331, 31.09945, 31.1928, 31.26419, 31.34244, 
  31.43167, 31.5113, 31.57994, 32.44092, 32.60579, 32.67444, 32.76092, 32.79799, 32.868, 32.88177, 
  32.82962, 33.0095, 32.97793, 33.00539, 32.97244, 32.97518, 32.9312, 32.93807, 32.57696, 32.52887, 
  32.51651, 32.56605, 32.87631, 33.23204, 33.7949, 34.03453, 34.21861, 34.34088, 34.37797, 34.33948, 
  34.27079, 34.14715, 34.07984, 34.08671, 34.05236, 34.07022, 34.02221, 33.99199, 33.92193, 33.86016, 
  33.66234, 33.68432, 33.77773, 33.80789, 33.8752, 33.9274, 34.05242, 34.13896, 34.29283, 34.33679, 
  34.37113, 34.42196, 34.38212, 34.48494, 34.54539, 34.56324, 34.61407, 34.60583, 34.64842, 34.61957, 
  34.68826, 34.74046, 34.7623, 34.79527, 34.82549, 34.85709, 34.88457, 34.94776, 34.92715, 35.03293, 
  35.13597, 35.1607, 35.20187, 35.11807, 35.1689, 35.15107, 35.16481, 35.12085, 35.14695, 35.10986, 
  35.25959, 35.15791, 35.07411, 35.06724, 35.23889, 35.37215, 35.40512, 35.44771, 35.48617, 35.62492, 
  35.74554, 35.91726, 36.07112, 36.19751, 36.37885, 36.30054, 36.33475, 36.52159, 36.62993, 36.66839, 
  36.69587, 36.76731, 36.73592, 36.95687, 36.93764, 36.99533, 36.95137, 37.00358, 37.03236, 37.05297, 
  37.19996, 37.25629, 37.19309, 37.22606, 37.28925, 37.28101, 37.34695, 37.35794, 37.4019, 37.41427, 
  37.48708, 37.49944, 37.59972, 37.59972, 37.52005, 37.50906, 37.6971, 37.69848, 37.8125, 37.79738, 
  37.94575, 37.99246, 38.03092, 38.21213, 38.28356, 38.20526, 38.16542, 38.04732, 38.03358, 38.14486, 
  38.13795, 38.22724, 38.22175, 38.29593, 38.20938, 38.35637, 38.37553, 38.41674, 38.4085, 38.51972, 
  38.53345, 38.58016, 38.69003, 38.66668, 38.78894, 38.9744, 39.04858, 39.14063, 38.79015, 38.83274, 
  38.76824, 38.81219, 38.88912, 38.89187, 38.90835, 38.89187, 38.91934, 38.92209, 38.97017, 39.03879, 
  39.15693, 39.19677, 39.17618, 39.1487, 39.13634, 39.11848, 39.12947, 39.10062, 39.15827, 39.13492, 
  39.22278, 39.44396, 39.36428, 39.38077, 39.38077, 39.45441, 39.49834, 39.53815, 39.54914, 39.63425, 
  39.64935, 39.68504, 39.64798, 39.62739, 39.66171, 39.66308, 39.76192, 39.81134, 39.80585, 39.73035, 
  39.74408, 39.79077, 39.76881, 39.70977, 39.68094, 39.74272, 39.66447, 39.59171, 39.53948, 39.57105, 
  39.53261, 39.5436, 39.59412, 39.61636, 39.55183, 39.58066, 39.65205, 39.58615, 39.60812, 39.62734, 
  39.65617, 39.65617, 39.71108, 39.65617, 39.71383, 39.75089, 39.78659, 39.7756, 39.80855, 39.78659, 
  39.81679, 39.77286, 39.89366, 39.88955, 39.73991, 39.75643, 39.70564, 39.67882, 39.75575, 39.82993, 
  39.78181, 39.845, 39.7351, 39.82852, 39.71866, 39.68845, 39.71455, 39.70219, 39.74203, 39.77769, 
  39.79006, 39.85463, 39.84089, 39.87661, 39.86012, 39.92877, 40.00845, 40.11822, 40.27345, 40.34077, 
  40.40534, 40.46441, 40.56607, 40.73343, 40.76503, 40.79388, 40.89004, 40.9353, 40.96277, 41.00124, 
  41.07268, 41.01222, 41.39138, 41.36653, 41.51902, 41.58496, 41.68524, 41.65227, 42.00371, 42.09987, 
  42.22488, 42.2029, 42.35264, 42.37737, 42.52986, 42.44469, 42.48166, 42.53249, 42.54897, 42.64239, 
  42.61079, 42.96377, 42.88134, 43.04052, 43.07487, 43.24659, 43.36473, 43.36886, 43.44991, 43.54333, 
  43.59123, 43.85774, 43.94978, 43.91956, 43.99366, 44.01015, 43.9291, 44.24369, 44.29707, 44.35889, 
  44.41659, 44.54435, 44.49627, 44.65151, 44.62816, 44.77103, 44.85895, 44.60755, 44.69409, 44.93434, 
  45.05935, 45.1198, 45.18574, 45.22145, 45.23382, 45.35608, 45.39318, 45.46444, 45.48642, 45.58121, 
  45.63754, 45.75843, 45.75843, 45.73095, 45.79415, 45.8847, 46.01109, 46.16357, 46.23226, 46.2721, 
  46.25816, 46.30899, 46.34746, 46.38867, 46.43813, 46.37356, 46.40378, 46.27329, 46.29115, 46.26917, 
  46.31862, 46.22941, 46.2665, 46.20743, 46.28023, 46.32419, 46.38189, 46.56322, 46.68663, 46.74433, 
  46.81439, 46.88033, 46.99435, 46.95177, 46.96001, 47.06167, 47.15218, 47.19477, 47.22225, 47.4132, 
  47.41183, 47.45167, 47.45304, 47.3198, 47.32255, 47.16601, 47.05336, 46.94895, 46.9778, 47.07671, 
  47.3652, 47.38581, 47.44213, 47.44763, 47.41466, 47.4284, 47.45249, 47.4772, 47.51564, 47.55408, 
  47.59938, 47.60487, 47.57742, 47.54447, 47.51701, 47.62684, 47.66253, 47.72568, 47.76, 47.77785, 
  47.80531, 47.8108, 47.8863, 47.89179, 47.91925, 47.89866, 47.7902, 47.6996, 47.5431, 47.54584, 
  47.66665, 47.66252, 47.59114, 47.59663, 47.55819, 47.56231, 47.69135, 47.85334, 47.97018, 47.97705, 
  48.03882, 48.07863, 48.17473, 48.29561, 48.21049, 48.38484, 48.43838, 48.34917, 48.25032, 48.19816, 
  48.21326, 48.24346, 48.24481, 48.20362, 48.23932, 48.22833, 48.26814, 48.2962, 48.40473, 48.42122, 
  48.57215, 48.71639, 48.74936, 48.85652, 48.90597, 49.03099, 49.05288, 49.0886, 49.12706, 48.88803, 
  48.58723, 48.57216, 48.59964, 48.56392, 48.57218, 48.55707, 48.57356, 48.56532, 48.63538, 48.72193, 
  48.7549, 49.05705, 49.08452, 49.1642, 49.15321, 49.23151, 49.25899, 49.1697, 49.18066, 49.30973, 
  49.29599, 49.33445, 49.27538, 49.25065, 49.31247, 49.43886, 49.38941, 49.25203, 49.16685, 49.07893, 
  49.149, 49.12289, 49.03497, 49.05146, 48.78082, 48.59154, 48.56132, 48.45966, 48.34152, 48.34292, 
  48.53512, 48.59819, 48.77403, 49.1216, 49.171, 49.26304, 49.32482, 49.33581, 49.2699, 49.17236, 
  49.24517, 49.2328, 49.35919, 49.44986, 49.59398, 49.63925, 49.71756, 49.76427, 49.85494, 49.89203, 
  49.86867, 49.79446, 49.78347, 49.70791, 49.67219, 49.71478, 49.86315, 49.90986, 49.99091, 50.15562, 
  50.24217, 50.36581, 50.33559, 50.40833, 50.47977, 50.64874, 50.71468, 50.62951, 50.74628, 50.7243, 
  50.81615, 50.81615, 50.87522, 50.9604, 50.9865, 50.93845, 50.9467, 50.92334, 51.01813, 50.99066, 
  50.50582, 50.42476, 50.50169, 50.4385, 50.45632, 50.5717, 50.56621, 50.64176, 50.66374, 50.69671, 
  50.78738, 50.80249, 50.85195, 50.85607, 50.81348, 50.76403, 50.74479, 50.69396, 50.66374, 50.57994, 
  50.57582, 50.53598, 50.49339, 50.26809, 50.22152, 50.19132, 50.2284, 50.22977, 50.37262, 50.57998, 
  50.70087, 50.80803, 51.06733, 51.1841, 51.36132, 51.43138, 51.81272, 51.87313, 52.19589, 52.31258, 
  52.46496, 52.92623, 53.25749, 53.37555, 53.77092, 53.97098, 54.05801, 54.11429, 54.20078, 54.24746, 
  54.27766, 54.38062, 54.4673, 54.7221, 54.80089, 54.94797, 55.21429, 55.48199, 55.61253, 55.76766, 
  55.74844, 55.93522, 56.0272, 56.15903, 56.13981, 56.08765, 56.02999, 56.10275, 56.21532, 56.20845, 
  56.34436, 56.35946, 56.413, 56.40477, 56.51068, 56.53128, 56.56834, 56.85938, 56.90479, 56.99952, 
  57.05031, 57.13135, 57.2398, 57.29884, 57.27005, 57.29339, 57.1163, 57.10806, 57.23711, 57.2528, 
  57.28852, 57.29264, 57.25692, 57.21846, 57.01102, 56.93409, 56.78181, 56.73512, 56.6939, 56.65406, 
  56.59224, 56.53042, 56.49608, 56.32995, 56.26813, 56.1596, 56.03596, 56.11976, 56.09504, 56.4082, 
  56.42744, 56.37798, 56.42744, 56.3821, 56.48514, 56.41782, 56.3299, 56.26396, 56.33677, 56.11284, 
  56.1046, 56.28321, 56.25849, 56.36152, 56.16651, 55.85342, 55.8438, 55.76, 55.77099, 55.646, 
  55.67897, 55.83008, 55.85481, 56.16647, 56.05658, 56.12802, 56.1239, 56.16511, 56.19258, 56.38347, 
  56.50564, 56.70072, 56.82153, 56.91357, 56.89983, 57.05232, 57.28037, 57.38203, 57.29685, 57.35987, 
  57.44641, 57.49862, 57.52747, 57.57555, 57.67858, 57.70056, 57.75551, 57.76925, 57.80497, 57.83244, 
  57.95593, 58.01912, 58.08918, 58.14688, 58.15375, 58.0177, 58.03006, 57.99709, 58.00945, 58.05616, 
  58.10974, 58.11935, 58.25124, 58.24986, 58.29245, 58.27734, 58.41609, 58.41472, 58.52443, 58.52305, 
  58.63433, 58.65219, 58.70164, 58.74835, 58.77171, 58.88985, 58.97365, 58.99838, 59.0285, 58.9653, 
  59.05872, 58.99278, 58.83892, 58.72627, 58.68505, 58.51883, 58.52982, 58.43091, 58.46113, 58.55454, 
  58.57515, 58.61645, 58.69612, 58.75108, 58.84861, 58.90769, 58.92005, 58.95838, 59.104, 59.12042, 
  59.15751, 59.12317, 59.19186, 59.12729, 59.19048, 59.27428, 59.32779, 59.38961, 59.4267, 59.44319, 
  59.48028, 59.5737, 59.51598, 59.50636, 59.58467, 59.59566, 59.66435, 59.63675, 59.66697, 59.64362, 
  59.67659, 59.63538, 59.70681, 59.75215, 59.79473, 59.8332, 59.86068, 60.07901, 60.12572, 60.1738, 
  60.21364, 60.24661, 60.34964, 60.38536, 60.40597, 60.42932, 60.43344, 60.47314, 60.56381, 60.5693, 
  60.59815, 60.63524, 60.75751, 60.80823, 60.82609, 60.85906, 60.87554, 60.90302, 61.01704, 61.05001, 
  61.08423, 61.18314, 61.14467, 61.15154, 61.10209, 61.16116, 61.20512, 61.24083, 61.23121, 61.28204, 
  61.34523, 61.32188, 61.35073, 61.39606, 61.44415, 61.51146, 61.55267, 61.57576, 61.6417, 61.71589, 
  61.75985, 61.83403, 61.85052, 61.89173, 61.92882, 62.01537, 62.05933, 62.05878, 62.20991, 62.25521, 
  62.28404, 62.33072, 62.33484, 62.39936, 62.39524, 62.41309, 62.45564, 62.55723, 62.53664, 62.63411, 
  62.68765, 62.76315, 62.84278, 62.90181, 62.9282, 62.96664, 63.01195, 63.04352, 63.10804, 63.17943, 
  63.21512, 63.24807, 63.29063, 63.33319, 63.36613, 63.43203, 63.48831, 63.50891, 63.53774, 63.59402, 
  63.64344, 63.70659, 63.77386, 63.82603, 63.92506, 64.13528, 64.29315, 64.78874, 65.55516, 66.1388, 
  66.25961, 66.29962, 66.71971, 66.76913, 66.88444, 67.08762, 67.30885, 67.32395, 67.49331, 67.96726, 
  68.37234, 68.6098, 68.81861, 69.17289, 69.1976, 69.40504, 69.65644, 69.64408, 69.68689, 69.62472, 
  69.62472, 69.59725, 69.57527, 69.64256, 69.7346, 69.74834, 69.79091, 69.79228, 69.9351, 69.99967, 
  69.99692, 70.0505, 70.07798, 70.03402, 70.01341, 69.99005, 69.92411, 69.88702, 69.86641, 69.81696, 
  69.72364, 69.75936, 69.63572, 69.62473, 69.70303, 69.63709, 69.62748, 69.70166, 69.64679, 69.66327, 
  69.59596, 69.6619, 69.53144, 69.32538, 69.36384, 69.29378, 69.27592, 69.33224, 69.30889, 69.66882, 
  69.84318, 69.83631, 69.76625, 69.73884, 69.77044, 69.73472, 69.69213, 69.65916, 69.60009, 69.58635, 
  69.4476, 69.31434, 69.08492, 69.09191, 69.45596, 69.48069, 69.59317, 69.75527, 69.76214, 69.81297, 
  69.76489, 69.71683, 69.58358, 69.34317, 69.27997, 69.13573, 69.12474, 69.03575, 69.01515, 68.96432, 
  68.94783, 68.86266, 68.89563, 68.82007, 68.83106, 68.77886, 68.89835, 68.73212, 68.72525, 68.83235, 
  68.96424, 69.3434, 69.26775, 69.15235, 68.97102, 68.95453, 69.00948, 69.04932, 69.2128, 69.173, 
  68.88047, 68.5645, 68.53702, 68.38883, 68.31609, 68.31884, 68.26939, 68.0853, 68.07568, 67.89714, 
  67.95759, 67.82708, 67.61552, 67.53877, 67.57586, 67.52503, 67.51404, 67.54564, 67.51954, 67.54426, 
  67.52641, 67.56625, 67.58955, 67.55795, 67.59367, 67.62115, 67.7338, 67.77226, 67.68433, 67.68296, 
  67.74341, 67.75577, 67.87804, 67.90826, 67.86289, 67.86289, 67.89723, 67.96867, 68.05916, 68.09625, 
  68.16357, 68.28995, 68.28858, 68.24461, 68.24604, 68.20483, 68.2062, 68.15537, 68.13065, 68.1993, 
  68.31195, 68.39163, 68.4768, 68.57284, 68.60581, 68.78711, 68.77063, 68.78711, 68.74178, 68.79946, 
  68.85304, 68.84617, 68.78572, 68.77198, 68.67307, 68.63055, 68.73902, 68.95869, 69.15376, 69.27598, 
  69.19802, 69.14856, 69.11285, 69.16505, 69.08812, 68.98925, 68.54418, 68.66782, 68.50053, 68.45657, 
  68.21203, 68.20654, 68.14884, 68.11312, 68.19108, 68.15677, 68.09221, 68.07572, 67.99604, 67.63252, 
  67.63252, 67.78638, 67.94024, 67.96222, 67.73967, 67.59954, 67.65175, 67.73143, 67.67098, 67.76989, 
  67.71222, 67.6133, 67.65727, 67.51439, 67.43751, 67.50889, 67.34129, 67.33026, 67.44016, 67.04534, 
  67.08316, 66.99527, 66.78095, 66.82768, 66.9156, 67.0255, 66.97601, 67.11064, 67.23978, 67.25311, 
  67.38774, 67.40559, 67.66368, 67.66918, 67.75161, 67.75161, 67.82023, 67.89579, 67.92463, 67.99195, 
  67.96721, 68.05372, 68.04724, 68.09669, 68.09944, 67.91816, 68.46477, 68.55796, 68.61017, 68.74205, 
  68.8492, 69.25584, 69.20079, 69.37389, 69.51401, 69.83519, 69.84343, 69.95059, 69.81051, 69.84348, 
  70.1619, 70.29378, 70.35972, 70.46963, 70.50809, 70.45976, 70.50097, 70.40756, 70.45829, 70.50912, 
  70.59841, 70.70694, 70.72205, 70.80173, 70.81677, 70.94315, 70.92392, 71.05618, 71.10011, 71.43508, 
  71.5504, 71.15507, 71.23207, 71.24854, 71.46545, 71.31993, 71.50944, 71.49572, 71.70713, 71.68249, 
  71.74564, 71.65228, 71.73191, 71.67974, 71.75113, 71.77584, 71.94607, 71.94607, 72.08347, 72.15761, 
  72.23723, 72.22076, 72.34156, 72.46237, 72.50905, 72.53925, 72.42942, 72.41295, 72.55572, 72.62436, 
  72.78104, 72.54766, 72.55312, 72.6904, 72.77551, 73.02811, 73.00351, 73.11059, 73.06666, 73.21492, 
  73.23688, 73.31925, 73.3522, 73.49223, 73.50321, 73.55812, 73.60755, 73.64873, 73.71367, 73.68422, 
  73.73368, 73.75417, 73.82836, 73.85034, 73.88468, 73.90117, 73.93139, 74.00008, 74.04266, 74.09899, 
  74.17317, 74.23911, 74.23637, 74.32558, 74.30772, 74.342, 74.33101, 74.38871, 74.40654, 74.53007, 
  74.59327, 74.58777, 74.63311, 74.62212, 74.71965, 74.77598, 74.73751, 74.82406, 74.90649, 75.08508, 
  75.16455, 75.16317, 75.20576, 75.17829, 75.21263, 75.20988, 75.23461, 75.33902, 75.31704, 75.33764, 
  75.36509, 75.40768, 75.39531, 75.42966, 75.41592, 75.53406, 75.61924, 75.61099, 75.63298, 75.60825, 
  75.62611, 75.60275, 75.67281, 75.59855, 75.60542, 75.67685, 75.52986, 75.57794, 75.64797, 75.67545, 
  75.70704, 75.77711, 75.73176, 75.6878, 75.70841, 75.7771, 75.77435, 75.80732, 75.81968, 75.89799, 
  75.87051, 75.91712, 75.93085, 76.04762, 76.03801, 76.07781, 76.0627, 76.1149, 76.11628, 76.05171, 
  76.01874, 75.97753, 75.98028, 76.06133, 76.05034, 76.10941, 76.14513, 76.13963, 76.18771, 76.17123, 
  76.24816, 76.24816, 76.3979, 76.35394, 76.41576, 76.43637, 76.49819, 76.50094, 76.52278, 76.60933, 
  76.70549, 76.69313, 76.71648, 76.6931, 76.71233, 76.82498, 76.79339, 76.84421, 76.92389, 76.97884, 
  76.97747, 77.12293, 77.26031, 77.27679, 77.33861, 77.44302, 77.43752, 77.53897, 77.85356, 77.77801, 
  77.8412, 77.81098, 77.88643, 77.90566, 78.02793, 78.02793, 77.93866, 77.96614, 77.94553, 78.04032, 
  77.90432, 77.9524, 77.93317, 77.97024, 77.96749, 78.01969, 78.02382, 78.13234, 78.11998, 78.07877, 
  78.28209, 78.50999, 78.52647, 78.30805, 78.47428, 78.4523, 78.57869, 78.52645, 78.5553, 78.50175, 
  78.50724, 78.54159, 78.53198, 78.54571, 78.54022, 78.57319, 78.58418, 78.62265, 78.65967, 78.79014, 
  78.93163, 79.01681, 79.04154, 79.39851, 79.53451, 79.73903, 79.88328, 80.45318, 80.57408, 80.76622, 
  80.88437, 80.957, 81.22901, 81.45019, 81.58894, 81.60253, 81.64099, 81.67671, 81.79898, 81.82645, 
  81.86354, 81.88278, 81.93498, 81.95421, 82.05175, 82.0667, 82.10517, 82.10929, 82.20133, 82.24667, 
  82.28513, 82.30849, 82.35107, 82.37992, 82.44713, 82.44713, 82.55284, 82.55558, 82.63389, 82.67373, 
  82.80286, 82.8605, 82.89622, 82.94018, 82.98277, 83.11877, 83.19699, 83.3165, 83.36871, 83.41679, 
  83.50471, 83.38653, 83.39203, 83.36318, 83.64886, 83.63238, 83.67359, 83.58017, 84.05535, 84.11717, 
  84.16525, 84.2518, 84.23932, 84.2929, 84.23932, 84.31075, 84.31075, 84.38214, 84.39451, 84.47006, 
  84.55524, 84.65533, 84.70891, 84.96168, 85.07708, 85.00154, 85.07435, 85.11282, 85.16777, 85.20468, 
  85.32008, 85.38189, 85.39975, 85.47119, 85.51515, 85.63879, 85.71023, 85.75968, 85.76091, 85.81174, 
  85.78976, 85.8502, 86.02176, 86.05748, 86.25805, 86.38719, 86.45588, 86.51357, 86.54222, 86.60679, 
  86.69471, 86.72768, 86.8211, 86.90346, 86.95566, 86.88835, 86.94605, 87.05537, 87.05537, 87.13911, 
  87.15696, 87.22834, 87.19952, 87.49764, 87.60335, 87.71866, 87.75303, 87.7901, 87.81343, 87.8807, 
  88.02553, 88.18763, 88.25083, 88.23709, 88.47675, 88.53441, 88.67307, 88.74171, 88.89821, 89.02198, 
  89.2279, 89.23751, 89.54228, 89.55601, 89.85966, 89.9434, 90.09029, 90.21689, 90.31024, 90.32671, 
  90.42418, 90.46949, 90.56696, 90.66855, 90.73993, 90.75778, 90.81555, 90.82241, 90.93499, 91.00775, 
  91.08462, 91.39625, 91.43469, 91.55825, 91.65454, 91.71769, 91.80852, 91.97875, 92.20526, 92.33156, 
  92.3184, 92.44204, 92.63558, 92.74686, 92.9227, 93.00238, 93.16976, 93.325, 93.41704, 93.52282, 
  93.72614, 93.71089, 93.75073, 93.71913, 93.74386, 93.6999, 93.74111, 93.8414, 93.95954, 94.01037, 
  94.09967, 94.12028, 94.44014, 94.46065, 94.51973, 94.53209, 94.73678, 94.84531, 94.87828, 94.92087, 
  95.00467, 95.11846, 95.30254, 95.46733, 95.59784, 95.63218, 95.7201, 95.81077, 95.92866, 96.08252, 
  96.18555, 96.19517, 96.39849, 96.59631, 97.09086, 97.29113, 97.26915, 97.50819, 97.63155, 97.68925, 
  97.6549, 97.74557, 97.83624, 97.92279, 98.19461, 98.46799, 98.70016, 98.68495, 98.56817, 98.85666, 
  98.8223, 98.83329, 98.7715, 98.79486, 98.78799, 98.85805, 98.88965, 98.85668, 98.96378, 99.03109, 
  99.12176, 99.12863, 99.17671, 99.17122, 99.20419, 99.24815, 99.32096, 99.30837, 99.36745, 99.41141, 
  99.40732, 99.43755, 99.41694, 99.51448, 99.56943, 99.51036, 99.58179, 99.56393, 99.59278, 99.66147, 
  99.70681, 99.86182, 99.84946, 99.92364, 100.0102, 100.0473, 100.094, 100.1064, 100.1531, 100.1737, 
  100.2767, 100.3179, 100.4388, 100.5017, 100.5484, 100.5031, 100.5086, 100.9262, 100.8973, 101.0938, 
  101.1295, 101.2159, 101.2159, 101.275, 101.2956, 101.4508, 101.4412, 101.4754, 101.4905, 101.5894, 
  101.5798, 101.4246, 101.9657, 102.349, 102.5164, 102.5768, 102.6386, 102.7073, 102.7252, 102.9312, 
  102.956, 103.0837, 103.0961, 103.1192, 103.3129, 103.35, 103.4489, 103.5094, 103.5588, 103.6467, 
  103.6426, 103.7525, 103.8116, 103.8666, 103.9831, 104.0202, 104.2839, 104.3128, 104.3581, 104.4378, 
  104.4712, 104.5216, 104.5846, 104.8635, 104.932, 105.0625, 105.1505, 105.37, 105.7025, 106.7328, 
  107.1147, 107.1535, 107.2015, 107.2662, 107.3376, 107.4818, 107.5353, 107.582, 107.6616, 107.6904, 
  107.7687, 107.8813, 107.7358, 107.6864, 107.7468, 107.7811, 107.8182, 107.876, 108.06, 108.1162, 
  108.211, 108.1972, 108.3016, 108.2755, 108.3029, 108.3963, 108.4966, 108.7012, 108.6765, 108.7245, 
  108.7163, 108.8947, 108.8838, 109.0183, 108.9977, 109.0224, 108.9552, 109.0213, 109.057, 109.2519, 
  109.2368, 109.381, 109.58, 109.5265, 109.5677, 109.613, 109.8395, 109.7956, 109.8754, 109.9111, 
  109.9482, 109.9111, 109.9968, 110.0462, 110.141, 110.1437, 110.2028, 110.1127, 110.1534, 110.2468, 
  110.2633, 110.3691, 110.3952, 110.336, 110.4074, 110.6327, 110.7563, 110.6656, 110.7206, 110.6436, 
  110.6684, 110.6203, 110.6546, 110.6326, 110.5928, 110.6258, 110.6134, 110.6519, 110.737, 110.7054, 
  110.726, 110.6216, 110.5803, 110.5817, 110.6147, 110.5968, 110.5405, 110.4965, 110.4911, 110.5653, 
  110.487, 110.5804, 110.5475, 110.6532, 110.7163, 110.7122, 110.9402, 111.0392, 111.1352, 111.2588, 
  111.2918, 111.7037, 111.826, 112.0785, 112.2736, 112.7833, 112.8616, 113.2281, 113.2968, 113.4507, 
  113.5137, 113.7239, 113.7554, 113.8268, 114.1592, 114.2512, 114.3072, 114.3899, 114.3871, 114.4366, 
  114.3116, 114.3885, 114.4366, 114.4022, 114.4681, 114.2937, 114.3019, 114.5245, 114.7251, 114.8254, 
  114.924, 115.0326, 115.2483, 115.354, 115.6012, 115.6947, 115.6727, 115.7743, 115.538, 115.2689, 
  115.1988, 114.979, 114.7936, 114.5561, 114.1907, 113.9738, 113.9106, 113.8174, 113.9326, 113.8735, 
  113.8653, 113.7293, 113.7417, 113.629, 113.6895, 113.6909, 113.7994, 114.0535, 114.1948, 114.2662, 
  114.2992, 114.4338, 114.4791, 114.5657, 114.6343, 114.8129, 115.0628, 115.2139, 115.2249, 115.1562, 
  115.2468, 115.3114, 115.424, 115.4529, 115.4062, 115.435, 115.4817, 115.5655, 115.678, 115.7508, 
  115.7934, 115.8758, 116.0503, 116.1561, 116.2246, 116.27, 116.2851, 116.3373, 116.3414, 116.5502, 
  116.5901, 116.7216, 116.8165, 116.9429, 116.8852, 116.7121, 117.0748, 117.2891, 117.4591, 117.5375, 
  117.6377, 117.6721, 117.7518, 117.8136, 117.8765, 117.9369, 118.0221, 118.0798, 118.2158, 118.4384, 
  118.4082, 118.3354, 118.3258, 118.2544, 118.2703, 118.4179, 118.4494, 118.5717, 118.672, 118.6952, 
  118.7639, 118.7776, 118.8696, 118.8861, 119.0002, 119.151, 119.3049, 119.4217, 119.5151, 119.5506, 
  119.6028, 119.6619, 119.7567, 119.8171, 119.9147, 120.008, 120.0698, 120.0863, 120.1949, 120.3226, 
  120.3776, 120.4105, 120.4655, 119.7841, 119.6194, 119.2074, 118.9368, 118.9258, 118.7692, 118.7321, 
  118.8736, 118.8269, 118.8269, 118.8901, 118.9107, 118.8462, 118.9657, 119.2156, 119.4519, 120.0025, 
  120.122, 120.3169, 120.4817, 120.7261, 120.8539, 120.9335, 121.1396, 121.3661, 121.6587, 121.6463, 
  121.8001, 121.8042, 121.9813, 122.0679, 122.1681, 122.3582, 122.4414, 122.5252, 122.5499, 122.587, 
  122.6886, 122.9345, 123.0238, 123.1433, 123.1255, 123.3274, 123.3769, 123.4233, 123.5387, 123.7007, 
  123.6924, 124.0179, 124.0701, 124.0962, 124.2542, 124.2542, 124.3229, 124.3215, 124.3485, 124.3622, 
  124.3087, 124.3649, 124.424, 124.4707, 124.5434, 124.6354, 124.6587, 124.6917, 124.7301, 124.7288, 
  124.7727, 124.8084, 125.112, 125.1298, 125.1766, 125.2206, 125.2425, 125.2947, 125.3153, 125.3963, 
  125.4512, 125.5171, 125.6256, 125.7425, 125.7699, 125.9553, 125.9951, 126.0843, 126.12, 126.1022, 
  126.109, 126.1475, 126.1749, 126.234, 126.3108, 126.3479, 126.3918, 126.4179, 126.3891, 126.4426, 
  126.4824, 126.5442, 126.5236, 126.5706, 126.5912, 126.664, 126.6997, 126.7422, 126.7806, 126.8099, 
  126.8566, 126.8291, 126.7701, 126.733, 126.766, 126.7262, 126.6286, 126.641, 126.7042, 126.8278, 
  126.6658, 126.6534, 126.7303, 126.9309, 127.0613, 126.9968, 127.0682, 127.0448, 127.075, 127.0434, 
  127.075, 127.0736, 127.1671, 127.1437, 127.2083, 127.3443, 127.3429, 127.4294, 127.4748, 127.5419, 
  127.6353, 127.7081, 127.829, 127.9414, 127.9552, 128.0747, 128.0884, 128.1241, 128.1887, 128.2684, 
  128.3687, 128.4964, 128.7094, 128.6984, 128.7272, 128.7465, 128.8465, 128.9358, 129.021, 129.0127, 
  129.0952, 129.2312, 129.2394, 129.4222, 129.3755, 129.5266, 129.5211, 129.5953, 129.4744, 129.5787, 
  129.6749, 129.7683, 129.944, 130.0319, 130.0703, 130.2792, 130.2871, 130.5193, 130.5619, 130.6675, 
  130.6867, 130.7183, 130.7279, 130.8323, 130.8955, 130.9244, 131.0013, 131.0329, 131.0535, 131.1895, 
  131.313, 131.416, 131.7991, 132.1987, 132.2742, 132.3292, 132.3704, 132.4226, 132.4638, 132.3965, 
  132.4542, 132.5298, 132.8347, 132.9457, 132.9979, 133.0859, 133.1888, 133.2396, 133.3564, 133.4567, 
  133.6174, 133.7905, 133.9073, 133.8976, 133.9565, 134.1543, 134.146, 134.1776, 134.1831, 134.2711, 
  134.2711, 134.3439, 134.4242, 134.4909, 134.271, 134.2669, 134.1721, 134.2367, 134.385, 134.4441, 
  134.4867, 134.5348, 134.7312, 134.7862, 135.1801, 135.176, 135.3092, 135.2941, 135.3408, 135.496, 
  135.5069, 135.5605, 135.5962, 135.6059, 135.7212, 135.7666, 135.8408, 135.8518, 135.9259, 135.9452, 
  136.0386, 136.143, 136.3378, 136.5617, 136.5534, 136.618, 136.6715, 136.644, 136.6962, 136.7869, 
  136.8501, 136.916, 137.6521, 137.7593, 137.8651, 137.9212, 137.9721, 138.0064, 138.1287, 138.1245, 
  138.1753, 138.152, 138.3264, 138.5296, 138.6862, 138.9484, 139.0061, 139.094, 139.48, 139.4673, 
  139.5309, 139.5679, 139.6927, 139.7916, 139.9125, 139.9208, 139.8356, 139.8933, 139.973, 140.0238, 
  140.0952, 140.3437, 140.3657, 140.3946, 140.3946, 140.5168, 140.6198, 140.9233, 141.073, 141.0854, 
  141.1745, 141.2652, 141.316, 141.2954, 141.371, 141.3915, 141.4355, 141.463, 141.4863, 141.5619, 
  141.6017, 141.6841, 141.7377, 141.8614, 141.9656, 142.059, 142.2416, 142.2636, 142.3543, 142.3688, 
  142.4059, 142.4265, 142.458, 142.4841, 142.5212, 142.5802, 142.6104, 142.6612, 142.653, 142.6873, 
  142.6955, 142.7518, 142.7779, 142.7916, 142.8122, 142.8287, 142.9909, 143.006, 143.0554, 143.0925, 
  143.1076, 143.1874, 143.2121, 143.2917, 143.3054, 143.4839, 143.7941, 143.8905, 143.8822, 143.8108, 
  143.8809, 143.8905, 143.9303, 143.9303, 143.8465, 143.8204, 144.0428, 144.0827, 144.0758, 144.1156, 
  144.176, 144.2145, 144.22, 144.279, 144.4218, 144.5302, 144.6718, 144.6142, 144.4728, 144.3396, 
  144.322, 144.4251, 144.5185, 144.432, 144.3345, 144.3716, 144.2796, 144.2068, 144.1587, 144.1945, 
  143.8333, 143.891, 143.972, 144.0185, 143.9021, 143.9722, 144.0312, 144.2648, 144.391, 144.4143, 
  144.6122, 144.6987, 144.7328, 144.9114, 145.2218, 145.3262, 145.3879, 145.4333, 145.4827, 145.4704, 
  145.4978, 145.4814, 145.5184, 145.5472, 145.5321, 145.5857, 145.6599, 145.7464, 145.8397, 145.8837, 
  145.9235, 146.0155, 146.0403, 146.0581, 146.179, 146.1845, 146.2161, 146.0856, 146.1914, 146.1901, 
  146.2339, 146.2889, 146.3685, 146.4193, 146.543, 146.4509, 146.3685, 146.4056, 146.4468, 146.4399, 
  146.5704, 146.5842, 146.5279, 146.5388, 146.5801, 146.5718, 146.7078, 146.7463, 146.8452, 146.826, 
  146.8617, 146.5717, 146.5401, 146.5786, 146.6486, 147.0332, 147.0881, 147.0524, 146.8587, 146.8381, 
  146.8614, 146.7886, 146.9095, 146.9466, 147.0401, 147.0414, 147.1115, 147.0895, 147.2831, 147.3257, 
  147.4439, 147.6594, 147.7377, 147.8709, 147.8902, 147.9795, 147.9904, 148.0495, 148.1512, 148.1388, 
  148.1938, 148.3201, 148.2965, 148.4394, 148.5259, 148.6097, 148.6097, 148.6921, 148.7389, 148.8268, 
  148.8845, 148.9518, 149.0067, 149.0768, 149.1617, 149.1878, 149.2579, 149.295, 149.4255, 149.534, 
  149.6053, 149.8347, 149.8361, 149.8759, 149.6795, 149.7578, 149.924, 150.1093, 150.1766, 150.255, 
  150.4967, 150.5682, 150.7207, 150.7207, 150.8138, 150.9553, 151.0899, 151.1119, 151.0393, 151.0761, 
  150.9896, 151.0789, 151.0652, 151.1229, 151.1654, 151.1431, 151.1696, 151.1462, 151.2506, 151.2712, 
  151.241, 151.3413, 151.3811, 151.5377, 151.5266, 151.5623, 151.5362, 151.6612, 151.8178, 151.9181, 
  151.9991, 152.0307, 152.1187, 152.1242, 152.356, 152.4192, 152.4577, 152.5923, 152.6308, 152.6636, 
  153.106, 153.0881, 153.2474, 153.2708, 153.2323, 153.2584, 153.1925, 153.6361, 153.6799, 153.7417, 
  153.7417, 153.8406, 153.798, 153.6903, 153.8634, 153.862, 153.6986, 153.6739, 153.711, 153.8153, 
  153.9334, 153.9622, 154.0775, 154.1077, 154.3344, 154.3262, 154.7011, 154.6874, 154.7656, 154.6942, 
  154.546, 154.4938, 154.6077, 154.5171, 154.5432, 154.5528, 154.6984, 154.8178, 155.0567, 155.1309, 
  155.1762, 155.1695, 155.3342, 155.3836, 155.3383, 155.3767, 155.3822, 155.3149, 155.3094, 155.4, 
  155.4206, 155.6185, 155.6226, 155.5361, 155.5402, 155.7283, 155.8697, 155.8767, 155.9673, 155.9495, 
  155.9866, 155.9921, 156.0346, 156.0909, 156.2735, 156.2461, 156.3312, 156.3628, 156.4671, 156.4685, 
  156.5385, 156.6581, 156.7199, 156.7899, 156.8654, 157.0466, 157.1935, 157.21, 157.342, 157.3571, 
  157.4533, 157.5947, 157.5095, 157.4903, 157.5974, 157.6331, 157.6537, 157.8335, 157.8912, 158.0024, 
  158.0518, 158.1179, 158.2846, 158.3354, 158.3876, 158.3752, 158.4096, 158.3725, 158.4206, 158.4797, 
  158.5016, 158.6211, 158.6156, 158.8382, 159.0427, 159.1471, 159.1787, 159.2694, 159.4835, 159.4807, 
  159.445, 159.4682, 159.5645, 159.5769, 159.6098, 159.6345, 159.6565, 159.7087, 159.7884, 159.8199, 
  159.8296, 159.9052, 160.0933, 160.1935, 160.247, 160.3322, 160.3501, 160.2539, 160.1701, 160.1426, 
  160.1701, 160.1083, 160.1302, 160.0918, 160.144, 160.1536, 160.1851, 160.5052, 160.5052, 160.6933, 
  160.7963, 160.8128, 160.9117, 160.9007, 160.9941, 161.0064, 161.0765, 161.0792, 161.1218, 161.0957, 
  161.1698, 161.2619, 161.2069, 161.277, 161.2948, 161.3676, 161.4638, 161.3759, 161.3539, 161.255, 
  161.2604, 161.3676, 161.325, 161.4184, 161.4541, 161.5187, 161.5434, 161.5832, 161.5777, 161.7151, 
  161.6835, 161.7288, 161.7192, 161.9637, 162.0489, 162.23, 162.3674, 162.4237, 162.3701, 162.3824, 
  162.2712, 162.3179, 162.2972, 162.4305, 162.4236, 162.3632, 162.3138, 162.2396, 162.2423, 162.1133, 
  162.09, 162.0035, 162.0941, 161.9897, 162.0446, 162.0968, 162.1559, 162.2136, 162.2095, 162.2795, 
  162.4073, 162.4622, 162.5817, 162.7246, 162.6999, 162.8026, 162.7161, 162.8741, 162.9469, 163.1034, 
  163.1762, 163.1542, 163.3355, 163.3753, 163.3643, 163.477, 163.5402, 163.6157, 163.738, 163.8025, 
  163.907, 163.9671, 164.0537, 164.1155, 164.1952, 164.0372, 164.1485, 164.4837, 164.5125, 164.636, 
  164.6442, 164.7569, 164.7514, 165.1003, 165.2897, 165.2965, 165.3941, 165.6153, 165.6304, 165.7993, 
  165.7443, 165.8377, 165.898, 165.9887, 165.9805, 166.045, 166.0437, 166.1096, 166.1218, 166.3732, 
  166.4474, 166.4735, 166.7634, 166.799, 166.8292, 166.8457, 166.7935, 166.7426, 166.6932, 166.674, 
  166.5902, 166.4075, 166.4116, 166.3044, 166.2728, 166.435, 166.4473, 166.5696, 166.5902, 166.6836, 
  166.6877, 166.7248, 166.7715, 166.8526, 166.9061, 166.9954, 167.0573, 167.3469, 167.4101, 167.3991, 
  167.4829, 167.5474, 167.7205, 167.7736, 167.845, 167.8807, 167.7667, 167.7132, 167.6774, 167.4976, 
  167.3178, 167.2066, 167.1901, 166.9993, 167.0322, 167.1366, 167.2299, 167.5539, 167.7804, 167.7997, 
  167.8409, 167.9219, 167.9507, 168.1114, 168.0002, 167.8643, 167.8327, 167.9384, 168.0826, 168.1773, 
  168.2103, 168.5207, 168.5633, 168.6964, 168.7033, 168.7417, 168.7733, 168.8502, 168.9725, 168.9326, 
  169.1304, 169.1853, 169.2842, 169.3227, 169.486, 169.493, 169.5534, 169.7606, 169.9077, 169.9819, 
  170.0588, 170.1109, 170.2002, 170.2784, 170.2902, 170.2462, 170.2778, 170.2764, 170.3451, 170.3149, 
  170.3451, 170.3505, 170.2297, 170.2077, 170.286, 170.4687, 170.4742, 170.7021, 170.6883, 170.8202, 
  170.8353, 170.9822, 170.8641, 170.7446, 170.6567, 170.5976, 170.5249, 170.496, 170.4384, 170.4026, 
  170.3037, 170.2584, 170.2295, 170.1554, 170.1402, 170.2131, 170.2598, 170.2378, 170.2021, 170.1609, 
  170.0551, 170.0442, 170.0909, 170.0607, 170.0717, 170.0099, 170.0154, 169.9851, 169.9274, 169.9535, 
  169.8835, 169.8395, 169.8903, 169.8285, 169.7021, 169.7516, 169.709, 169.7764, 169.7036, 170.0072, 
  169.9838, 169.9289, 169.922, 169.8836, 169.6528, 169.775, 169.7847, 169.7215, 169.6706, 169.6432, 
  169.7393, 169.8273, 169.9221, 169.9729, 170.0182, 170.01, 170.1363, 170.264, 170.2708, 170.3093, 
  170.2489, 170.2681, 170.1898, 170.0236, 170.0374, 169.9316, 169.9014, 169.7956, 169.7145, 169.6019, 
  169.5444, 169.4647, 169.418, 169.315, 169.1034, 169.0432, 168.719, 168.6475, 168.3989, 168.3577, 
  168.5844, 168.5445, 168.6544, 168.6805, 168.936, 169.3152, 169.4111, 169.3988, 169.5292, 169.5595, 
  169.6364, 169.8878, 169.9207, 169.6144, 169.6474, 169.598, 169.5224, 169.4152, 169.3534, 169.1996, 
  169.2546, 169.1461, 169.1406, 169.2189, 169.2382, 169.1818, 169.1159, 169.0046, 169.0046, 168.9318, 
  168.9126, 168.9428, 168.8741, 168.9992, 168.9182, 168.8069, 168.7053, 168.7382, 168.7877, 168.7657, 
  168.6764, 168.6106, 168.5873, 168.5227, 168.4595, 168.4018, 168.443, 168.4211, 168.3978, 168.4019, 
  168.3057, 168.3057, 168.215, 168.1793, 168.068, 168.0049, 167.9568, 167.9087, 167.8208, 167.8167, 
  167.6738, 167.6724, 167.6161, 167.5639, 167.4735, 167.2647, 167.1315, 167.1301, 167.0669, 167.0875, 
  167.0368, 167.0505, 166.9997, 166.9928, 166.8884, 166.8856, 166.8596, 166.8157, 166.5986, 166.6363, 
  166.6989, 166.7662, 166.7154, 166.7319, 166.7236, 166.7511, 166.6893, 166.703, 166.7758, 166.7951, 
  166.8733, 166.8431, 166.9942, 167.111, 167.332, 167.3238, 167.9391, 167.8827, 167.8553, 167.6231, 
  167.6011, 167.652, 167.6822, 167.7605, 167.718, 167.6754, 167.6328, 167.619, 167.5861, 167.5586, 
  167.5298, 167.4955, 167.4295, 167.4336, 167.3952, 167.3595, 167.2866, 167.2138, 167.2716, 167.2276, 
  167.2537, 167.3045, 167.3567, 167.4323, 167.4358, 167.3122, 167.2546, 167.212, 167.1557, 167.0637, 
  167.0253, 167.0925, 167.0334, 167.054, 167.0046, 167.0005, 166.9387, 166.8701, 166.8687, 166.8262, 
  166.8179, 166.8454, 166.844, 166.763, 166.8303, 166.763, 166.7136, 166.6312, 166.671, 166.5939, 
  166.6323, 166.5568, 166.4827, 166.447, 166.3838, 166.1985, 166.2369, 166.1738, 166.1669, 166.2314, 
  165.8429, 165.8196, 165.8745, 166.1614, 166.219, 166.1228, 166.1887, 166.2601, 166.2903, 166.245, 
  166.2684, 166.2327, 166.1544, 166.1352, 166.1571, 166.1566, 166.1758, 166.1387, 166.1813, 166.1003, 
  166.0385, 166.0288, 165.9711, 165.9766, 165.8599, 165.8186, 165.651, 165.5659, 165.673, 165.809, 
  165.6689, 165.6661, 165.5138, 165.4492, 165.3498, 165.2056, 165.2728, 165.2179, 165.2261, 165.178, 
  165.2329, 165.1396, 165.0751, 165.0009, 164.9803, 164.9158, 164.9213, 164.8843, 164.8733, 164.7923, 
  164.9021, 164.8623, 164.7373, 164.8513, 164.9872, 165.0298, 165.0147, 165.4019, 165.3429, 165.2495, 
  165.1946, 165.1452, 165.0781, 165.03, 165.0754, 165.0273, 164.9516, 164.8691, 164.8636, 164.6302, 
  164.611, 164.6947, 164.6796, 164.8018, 164.8485, 164.8553, 164.8073, 164.8443, 164.8073, 164.8842, 
  164.832, 164.8691, 164.9981, 165.0243, 165.0654, 165.0558, 165.0915, 165.0709, 165.143, 165.1073, 
  165.132, 165.0976, 165.2474, 165.2584, 165.4849, 165.4534, 165.4822, 165.441, 165.4671, 165.43, 
  165.3874, 165.3558, 165.3118, 165.316, 165.2198, 165.2089, 165.1471, 165.0234, 164.9245, 164.8503, 
  164.6786, 164.6086, 164.5426, 164.4893, 164.3121, 164.2293, 164.0429, 164.0594, 164.0154, 164.0649, 
  164.1239, 164.0333, 163.933, 164.047, 163.944, 163.9028, 163.8987, 163.9579, 163.8933, 163.848, 
  163.7354, 163.6969, 164.0115, 163.9703, 163.9002, 163.8837, 163.771, 163.7244, 163.6653, 163.6337, 
  163.6791, 163.6076, 163.4922, 163.5719, 163.4881, 163.4634, 163.403, 163.4208, 163.3508, 163.2781, 
  163.1091, 163.0802, 163.2066, 163.2011, 163.2753, 163.2959, 163.175, 163.1819, 163.2987, 163.2835, 
  163.1764, 163.039, 163.028, 162.9827, 163.0088, 162.9401, 162.8893, 162.8151, 162.8508, 162.7892, 
  162.7878, 162.7191, 162.568, 162.6422, 162.6024, 162.6134, 162.5776, 162.5474, 162.4636, 162.4513, 
  162.3578, 162.4801, 162.4513, 162.5392, 162.6162, 162.7796, 162.7644, 162.6187, 162.6174, 162.697, 
  162.6628, 162.579, 162.568, 162.498, 162.5488, 162.579, 162.6614, 162.6189, 162.4018, 162.2288, 
  161.95, 161.8154, 161.7879, 161.7247, 161.5804, 161.5861, 160.9803, 160.9215, 160.8144, 160.8391, 
  160.6055, 160.6674, 160.8844, 161.0548, 160.9806, 161.3184, 161.7509, 162.2358, 162.2399, 162.3207, 
  162.3592, 162.5694, 162.6188, 162.5241, 162.498, 162.2919, 162.3044, 162.2, 162.3469, 162.4417, 
  162.4829, 162.5846, 162.6258, 162.7795, 162.8633, 162.9251, 162.9883, 162.877, 162.8825, 162.8372, 
  162.8262, 162.7342, 162.671, 162.6284, 162.5556, 162.535, 162.4855, 162.5048, 162.4801, 162.5474, 
  162.638, 162.6971, 162.7273, 162.7548, 162.7699, 162.8139, 162.8963, 162.7795, 162.7287, 162.7054, 
  162.6792, 162.6229, 162.5378, 162.4897, 162.4746, 162.5652, 162.627, 162.6614, 162.6449, 162.7273, 
  162.6943, 162.7191, 162.726, 162.5721, 162.3372, 162.3124, 162.3715, 162.3372, 162.3221, 162.4513, 
  162.4375, 162.0845, 162.1079, 162.1643, 162.222, 162.5173, 162.5638, 162.7191, 162.7782, 162.768, 
  162.7831, 162.7062, 162.7309, 162.7034, 162.8998, 162.7213, 162.6609, 162.5648, 162.5333, 162.5772, 
  162.4852, 162.5029, 162.4206, 162.4563, 162.3519, 162.3272, 162.2284, 162.2352, 162.3011, 162.367, 
  162.5057, 162.4878, 162.5759, 162.6471, 162.702, 162.9093, 162.8902, 162.9094, 162.941, 162.9396, 
  162.9877, 162.9808, 163.0041, 162.9314, 162.9739, 162.9643, 162.9739, 162.9231, 162.9561, 162.9135, 
  162.9012, 162.849, 162.7996, 162.7433, 162.6005, 162.6169, 162.5139, 162.3533, 162.3382, 162.2997, 
  162.3189, 162.4115, 162.5214, 162.4871, 162.3882, 162.3593, 162.3456, 162.3992, 162.5008, 162.5654, 
  162.3415, 162.2865, 162.1121, 162.0461, 162.1368, 162.3044, 162.3662, 162.3662, 162.6437, 162.6739, 
  162.8399, 162.9072, 163.0116, 163.1627, 163.16, 163.1229, 163.1572, 163.23, 163.2548, 163.3798, 
  163.4222, 163.4717, 163.4772, 163.5431, 163.4909, 163.5321, 163.4978, 163.6035, 163.602, 163.7476, 
  163.7312, 163.8053, 163.7381, 163.8521, 163.8452, 163.6886, 163.5567, 163.4866, 163.5293, 163.5623, 
  163.69, 163.6983, 163.5815, 163.2135, 162.8344, 162.7288, 162.6464, 162.531, 162.6285, 162.7192, 
  162.759, 162.851, 162.8689, 162.9403, 162.9637, 163.5197, 163.7928, 163.9921, 164.0401, 164.0621, 
  164.238, 164.3396, 164.4358, 164.4865, 164.4796, 164.5526, 164.5704, 164.5278, 164.5196, 164.5402, 
  164.514, 164.4509, 164.3327, 164.3602, 164.341, 164.422, 164.4206, 164.205, 164.2229, 163.7613, 
  163.8108, 163.6913, 163.9496, 163.9936, 164.1199, 164.3437, 164.3245, 164.4041, 164.4687, 164.5346, 
  164.7104, 164.7283, 165.132, 165.1348, 165.2323, 165.1485, 165.3476, 165.3614, 165.4493, 165.5743, 
  165.6155, 165.327, 165.4396, 165.5303, 165.6581, 165.7569, 165.6936, 165.7458, 165.6524, 165.82, 
  166.1744, 166.4038, 166.5189, 166.6673, 167.0685, 167.0737, 167.1301, 167.1136, 167.2386, 167.218, 
  167.0559, 166.8856, 166.7056, 166.4311, 166.2663, 166.1208, 166.0851, 165.9203, 165.6909, 165.5853, 
  165.4754, 165.4328, 165.4767, 165.1361, 165.1539, 164.3559, 164.2448, 164.3066, 164.0717, 164.1418, 
  163.9578, 163.9496, 163.7353, 163.6309, 163.6241, 163.576, 163.6158, 163.4716, 163.4235, 163.2175, 
  163.1598, 163.065, 163.0144, 163.0433, 162.8784, 162.9113, 162.8508, 162.8167, 162.6093, 162.531, 
  162.5722, 162.5269, 162.4953, 162.4185, 162.2632, 161.9597, 161.8567, 161.7826, 161.7345, 161.7455, 
  161.6604, 161.6425, 161.5051, 161.5216, 161.3513, 161.42, 161.4791, 161.4626, 161.5491, 161.5188, 
  161.6068, 161.6823, 161.7414, 161.7372, 161.7936, 161.8073, 161.8787, 161.8732, 162.06, 162.0325, 
  161.5682, 161.4996, 161.4968, 161.3857, 161.3582, 161.181, 161.0616, 161.0877, 161.0245, 160.6907, 
  160.7333, 160.3774, 160.4944, 160.423, 160.4285, 160.5383, 160.6729, 160.7525, 160.6015, 160.6246, 
  160.6644, 160.6904, 160.965, 161.0543, 160.9953, 160.8676, 160.7496, 160.6809, 160.4378, 160.4776, 
  160.4213, 160.2099, 160.1934, 159.9765, 159.9131, 159.7031, 159.6413, 159.7511, 159.6949, 159.7141, 
  159.7827, 159.8335, 159.9627, 160.0822, 160.2373, 160.5311, 160.7961, 160.77, 160.3787, 160.3512, 
  160.3032, 160.1316, 160.0108, 159.9339, 159.7513, 159.6797, 159.4601, 159.4669, 159.6523, 159.6633, 
  159.5246, 159.6385, 159.6473, 159.5196, 159.8217, 159.9164, 159.937, 160.0318, 160.1816, 160.3849, 
  160.4082, 160.3629, 160.4151, 160.4879, 160.5798, 160.643, 160.6348, 160.7694, 161.2555, 161.2486, 
  161.3626, 161.4203, 161.3118, 161.1484, 161.0192, 160.8818, 160.5945, 160.2072, 160.1357, 159.8391, 
  158.9987, 158.6745, 158.6306, 158.3366, 158.0673, 158.2706, 158.647, 159.0674, 159.9432, 160.3389, 
  160.7812, 161.0229, 160.9789, 160.6657, 160.5421, 160.6438, 160.347, 160.1052, 159.9047, 159.7723, 
  159.8354, 160.0703, 160.2529, 160.5714, 160.7596, 160.9643, 161.0014, 161.169, 161.2102, 161.1127, 
  161.1511, 160.9945, 161.1223, 161.0618, 160.9368, 160.6208, 160.4315, 160.0056, 159.9452, 160.3312, 
  160.4961, 160.5895, 160.5922, 160.6622, 160.6746, 160.7117, 160.8834, 160.7762, 160.7309, 160.6059, 
  160.5839, 160.6843, 160.687, 160.7694, 160.8409, 160.7062, 160.5455, 160.562, 160.7557, 160.7062, 
  160.7845, 160.7639, 160.7941, 160.6347, 160.5825, 160.746, 160.8545, 160.8943, 160.9699, 161.018, 
  161.0441, 161.1196, 161.0756, 160.9506, 160.0826, 160.0922, 159.9604, 159.7504, 159.8918, 159.9866, 
  159.9577, 159.9892, 160.0415, 160.4316, 160.2941, 160.3312, 160.2983, 160.3354, 160.5153, 160.8107, 
  161.1346, 160.882, 160.9094, 160.9561, 160.9973, 161.0412, 161.0728, 161.158, 161.2473, 161.3998, 
  161.511, 161.4986, 161.5343, 161.4876, 161.2953, 161.0728, 161.044, 160.9781, 161.0138, 161.1374, 
  161.2418, 161.3447, 161.5837, 161.5809, 161.482, 161.4367, 161.6633, 161.7732, 161.879, 162.0246, 
  161.8955, 161.9751, 162.0259, 162.1413, 162.2333, 162.4105, 162.42, 162.4777, 162.4337, 162.3403, 
  162.4681, 162.4818, 162.5697, 162.6123, 162.5615, 162.5725, 162.3994, 162.3706, 162.4599, 162.2772, 
  162.3211, 162.6576, 162.6906, 162.7772, 162.7236, 162.8747, 162.935, 163.0366, 163.0586, 162.9185, 
  162.8196, 162.7536, 162.6767, 162.6768, 162.5847, 162.6273, 162.7853, 162.9117, 162.9254, 163.0243, 
  162.9899, 162.9557, 162.8787, 162.8678, 162.9035, 162.898, 162.9667, 162.9873, 163.0395, 163.0669, 
  163.1631, 163.2071, 163.1039, 163.1685, 163.1479, 163.3361, 163.2097, 163.2427, 163.2413, 163.4117, 
  163.3704, 163.3979, 163.5435, 163.6122, 163.6011, 163.5448, 163.6643, 163.6973, 163.8003, 163.7494, 
  163.6175, 163.6285, 163.8589, 163.896, 163.7532, 163.5307, 163.0872, 162.9443, 162.8935, 162.8001, 
  162.7452, 162.5598, 161.9569, 161.8471, 161.8292, 162.0229, 162.233, 162.3319, 162.281, 162.189, 
  162.1162, 161.7839, 161.6507, 161.4667, 161.3376, 161.1055, 161.0506, 160.9792, 160.9503, 160.7443, 
  160.6152, 160.1923, 159.9657, 159.9602, 160.2074, 160.309, 160.3117, 160.4724, 160.7031, 160.8144, 
  160.9956, 161.0039, 161.0959, 161.1288, 161.2401, 161.2346, 161.685, 161.8004, 161.7812, 162.2261, 
  162.3799, 162.5722, 162.715, 162.8262, 162.9004, 163.0157, 163.0089, 163.0638, 163.1902, 163.3604, 
  163.4813, 163.3838, 163.0885, 163.2643, 164.0745, 164.2091, 164.2627, 164.5223, 164.4962, 164.606, 
  164.6445, 164.6664, 164.7145, 164.8656, 164.8711, 164.9795, 165.11, 165.1677, 165.2844, 165.4204, 
  165.3751, 165.5907, 165.4059, 165.4443, 165.3345, 165.4388, 165.5817, 165.6476, 165.7904, 165.9937, 
  166.0513, 166.142, 166.2381, 166.5292, 166.4798, 166.5018, 166.4331, 166.6309, 166.7709, 166.944, 
  167.2873, 167.2818, 167.3724, 167.3202, 167.334, 167.2104, 167.2076, 167.3944, 167.3779, 167.2324, 
  167.29, 167.4933, 167.518, 167.4851, 167.5674, 167.5894, 167.6718, 167.7075, 167.7707, 168.0783, 
  168.4079, 168.5397, 168.6112, 168.5644, 168.5727, 168.6716, 168.7842, 168.8776, 168.7705, 168.6551, 
  168.5968, 168.4485, 168.4238, 168.5542, 168.5062, 168.3112, 168.3098, 168.1642, 167.9994, 167.9678, 
  168.0283, 168.0063, 168.075, 168.123, 168.3084, 168.3606, 168.2919, 168.329, 168.4663, 168.6133, 
  168.5666, 168.6284, 168.7245, 168.8, 168.8289, 168.9058, 169.0568, 169.2024, 169.3013, 169.4304, 
  169.4304, 169.5897, 169.7778, 170.0058, 170.1253, 170.1074, 170.1665, 170.1953, 170.378, 170.4192, 
  170.367, 170.4315, 170.4727, 170.5606, 170.7062, 170.746, 171.2733, 171.3255, 171.4752, 171.7471, 
  171.4697, 171.3132, 171.2445, 171.353, 171.5247, 171.651, 171.7787, 171.7526, 172.0561, 171.9751, 
  172.085, 172.0616, 171.9284, 171.9325, 171.9751, 172.0396, 172.1097, 172.2374, 172.3019, 172.3898, 
  172.5368, 172.7936, 172.9652, 173.2935, 173.3347, 173.4267, 173.5324, 173.5942, 173.6972, 173.7439, 
  173.5495, 173.3019, 173.545, 173.6535, 173.6865, 173.7525, 173.7896, 173.8376, 173.9036, 173.9778, 
  173.953, 174.1836, 174.2921, 174.3801, 174.4376, 174.5173, 174.5283, 174.6272, 174.6588, 174.7852, 
  174.8552, 175.0558, 175.0778, 175.2397, 175.296, 175.4347, 175.3208, 175.4676, 175.7039, 175.7918, 
  175.899, 176.0006, 176.4606, 176.5868, 176.7352, 176.7888, 176.9893, 177.2716, 177.398, 177.4667, 
  177.6041, 177.5848, 177.7717, 177.9803, 178.1617, 178.1781, 178.3458, 178.365, 178.5518, 178.398, 
  178.5161, 178.7711, 178.8724, 179.4739, 179.787, 179.6222, 179.7458, 179.9841, 180, 180)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -83.17233, -83.22859, -83.21465, -83.14026, -83.0726, -83.04272, -82.8703, -82.86757, -82.83243, -82.84852, 
  -82.88774, -83.13263)
LONGITUDE_VALUEs <- c(
  -169.8337, -168.9715, -168.7738, -169.1142, -169.6762, -169.7586, -171.313, -171.4449, -171.8717, -171.9101, 
  -171.5422, -169.929)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -83.14838, -83.11751, -83.04406, -83.02874, -82.98728, -82.94288, -82.87098, -82.87643, -82.8489, -82.8486, 
  -82.83338, -82.8416, -82.92125, -82.98996, -83.03807, -83.07592, -83.0779)
LONGITUDE_VALUEs <- c(
  -162.5788, -161.9527, -161.8538, -161.6287, -161.755, -162.3426, -162.425, -162.6392, -162.9114, -163.0322, 
  -163.2707, -163.8364, -163.5618, -163.6445, -163.2106, -163.282, -163.0953)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -81.58106, -81.61717, -81.5722, -81.44322, -81.41539, -81.35533, -81.32969, -81.25151, -81.30897, -81.40965, 
  -81.49538, -81.56979)
LONGITUDE_VALUEs <- c(
  -161.3483, -160.9309, -159.9973, -160.7003, -161.074, -161.4036, -162.0406, -162.5898, -163.831, -164.0067, 
  -163.3751, -162.057)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -78.71823, -78.79, -78.81454, -78.95012, -79.00054, -79.18142, -79.41097, -79.49643, -79.56431, -79.83053, 
  -79.85959, -79.82568, -79.71545, -79.37761, -79.24619, -78.78039, -78.7162)
LONGITUDE_VALUEs <- c(
  -163.2985, -163.293, -163.5457, -163.8972, -164.1883, -164.3201, -164.0016, -163.3093, -163.1388, -161.3978, 
  -159.5959, -159.0741, -158.9698, -159.684, -160.3763, -161.9855, -162.6514)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -80.22649, -80.4354, -80.783, -80.890, -80.89159, -80.79016, -80.69472, -80.61624, -80.64307, -80.48638, 
  -80.16329, -79.94509, -79.96042, -79.43192, -79.22852, -79.175, -79.08384, -78.91403, -78.79297, -78.8079, 
  -78.64035, -78.59699, -78.27324, -77.93354, -77.79497, -77.77637, -78.04557, -78.6706, -79.56607, -80.15578)
LONGITUDE_VALUEs <- c(
  -53.51551, -53.96001, -54.385, -54.066, -51.82915, -49.72026, -49.76314, -49.33477, -47.6213, -45.53321, 
  -43.44628, -43.81973, -43.12775, -42.95203, -43.36947, -43.18274, -43.44635, -43.50127, -43.77587, -45.33609, 
  -45.33609, -43.89721, -43.74344, -44.97383, -46.13812, -47.48913, -49.07079, -50.27973, -50.28014, -52.29048)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -79.65052, -79.62581, -79.54937, -79.53142, -79.54239, -79.46735, -79.40996, -79.41299, -79.29119, -78.95959, 
  -78.65465, -78.50455, -78.45848, -78.46178, -78.72145, -78.83264, -78.94906, -79.16078, -79.47438, -79.64755, 
  -79.70662, -79.68363, -79.64371, -79.62444)
LONGITUDE_VALUEs <- c(
  -70.26627, -70.28274, -70.01364, -69.80495, -69.6347, -69.65666, -69.48634, -69.69503, -69.51921, -68.51955, 
  -67.38228, -67.15712, -67.32187, -67.79967, -69.61813, -70.03021, -70.83234, -71.48044, -71.82643, -71.48036, 
  -70.76092, -70.19327, -69.88573, -69.93241)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -80.59043, -80.60837, -80.78948, -80.88482, -80.89178, -80.96281, -80.93949, -80.84558, -80.59402, -80.15881, 
  -80.0957, -79.83732, -79.7458, -79.74385, -79.81889, -80.09381, -80.16689, -80.25608, -80.30199, -80.40966, 
  -80.46805, -80.43799, -80.41103, -80.37895, -80.33248, -80.1978, -80.22535, -80.3251, -80.35183, -80.39455, 
  -80.52338, -80.68969, -80.738, -80.72871, -80.67546, -80.6389)
LONGITUDE_VALUEs <- c(
  -63.61959, -63.04294, -62.94958, -62.32307, -62.07044, -61.10936, -60.49976, -60.17513, -59.87321, -59.74694, 
  -59.98859, -59.89527, -60.19733, -60.63668, -61.11447, -61.44977, -61.41247, -61.19005, -61.33011, -62.15402, 
  -63.46384, -63.9009, -65.44726, -66.04588, -66.2326, -66.19429, -66.60069, -66.83684, -66.77918, -66.76826, 
  -66.16397, -65.00771, -64.38712, -64.25532, -64.25532, -64.12351)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -79.83452, -79.81317, -79.82627, -79.80442, -79.75227, -79.77277, -79.71457, -79.68757, -79.66394, -79.65359, 
  -79.6664, -79.65507, -79.67133, -79.66147, -79.66936, -79.65704, -79.65161, -79.63828, -79.66, -79.65013, 
  -79.62889, -79.62691, -79.60711, -79.63433, -79.6185, -79.63384, -79.61949, -79.62296, -79.60612, -79.5843, 
  -79.56143, -79.57635, -79.55695, -79.57237, -79.56342, -79.5669, -79.54699, -79.55645, -79.543, -79.55098, 
  -79.53403, -79.52904, -79.55347, -79.59075, -79.58877, -79.6368, -79.7942, -79.79031, -79.82724, -79.8877, 
  -79.91852, -79.919, -79.93917, -79.91563, -79.94013, -79.93725, -79.95978, -79.95882, -80.01232, -80.02327, 
  -80.07405, -80.08588, -80.07027, -79.95547, -79.93005, -79.88963, -79.86984, -79.88288)
LONGITUDE_VALUEs <- c(
  -65.90035, -65.72736, -65.67793, -65.54331, -65.66413, -66.01012, -66.35634, -66.64467, -66.69959, -66.63643, 
  -66.61721, -66.49089, -66.4497, -66.33712, -66.26847, -66.19982, -66.0433, -65.96916, -65.97191, -65.89228, 
  -65.85658, -65.78244, -65.82363, -66.20531, -66.29318, -66.39478, -66.48266, -66.65016, -66.70522, -66.93588, 
  -66.93039, -67.09515, -67.16654, -67.30384, -67.33415, -67.45223, -67.50715, -67.59776, -67.59227, -67.69387, 
  -67.64444, -67.68014, -67.84764, -67.81744, -67.76527, -67.67185, -66.86721, -66.81504, -66.83701, -67.03197, 
  -67.0155, -66.94277, -66.89331, -66.76965, -66.70371, -66.61028, -66.55852, -66.40189, -66.33045, -66.39914, 
  -66.36342, -66.17931, -66.13013, -65.4514, -65.5201, -65.50638, -65.59431, -65.74544)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -79.44233, -79.4795, -79.47549, -79.49804, -79.48452, -79.48953, -79.50705, -79.50155, -79.51355, -79.49754, 
  -79.48702, -79.47248, -79.45641, -79.42319, -79.4242, -79.39593, -79.33816, -79.30457, -79.32086, -79.2632, 
  -79.24784, -79.18978, -79.22989, -79.2862, -79.31476, -79.32901, -79.28467, -79.28314, -79.30202, -79.29845, 
  -79.31577, -79.35745, -79.39037, -79.42873, -79.44585)
LONGITUDE_VALUEs <- c(
  -68.46826, -68.34744, -68.18543, -68.0399, -68.00145, -67.72411, -67.66096, -67.59505, -67.51817, -67.47972, 
  -67.35615, -67.34792, -67.24357, -67.33419, -67.41657, -67.51267, -67.39175, -67.24622, -67.23249, -67.03478, 
  -67.20228, -67.51532, -68.06177, -68.16886, -68.4462, -68.4105, -68.04254, -67.69381, -67.71578, -67.48512, 
  -67.47688, -67.79266, -68.44633, -68.57814, -68.55342)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-77.09161, -77.11551, -77.15709, -77.12011, -77.08516, -77.06304, -77.06028)
LONGITUDE_VALUEs <- c(-154.5743, -154.5894, -154.1583, -154.0663, -154.1033, -154.264, -154.3917)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-77.21625, -77.25842, -77.25569, -77.23022, -77.20591, -77.20104, -77.20561, -77.20226)
LONGITUDE_VALUEs <- c(-153.4656, -153.1896, -153.0853, -153.0509, -153.1003, -153.2349, -153.2857, -153.4175)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-77.27506, -77.30468, -77.31704, -77.32578, -77.28655, -77.26538, -77.27174, -77.26599)
LONGITUDE_VALUEs <- c(-153.2376, -153.1772, -153.1896, -153.0839, -152.9342, -153.1045, -153.158, -153.1868)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-77.32368, -77.3694, -77.3727, -77.33813)
LONGITUDE_VALUEs <- c(-153.1992, -153.2459, -153.1264, -153.0207)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -77.24053, -77.29139, -77.34445, -77.35287, -77.38051, -77.34505, -77.34204, -77.30347, -77.2793,
  -77.22293, -77.21807, -77.23022)
LONGITUDE_VALUEs <- c(
  -151.4248, -151.5045, -151.0789, -150.8839, -150.4253, -150.3567, -150.494, -150.5571, -150.7768,
  -150.9345, -151.1777, -151.2683)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-77.53528, -77.53113, -77.55039, -77.58498, -77.55335, -77.54417, -77.564, -77.54832)
LONGITUDE_VALUEs <- c(-149.4266, -149.5927, -149.5968, -149.1218, -149.0628, -149.1685, -149.185, -149.3909)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-77.43589, -77.43768, -77.45619, -77.4696, -77.45947, -77.43201, -77.42184)
LONGITUDE_VALUEs <- c(-149.1107, -149.1917, -149.1917, -149.0668, -148.8128, -148.9514, -149.1038)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -77.29713, -77.34776, -77.3757, -77.3913, -77.38651, -77.34686, -77.31162, -77.29199, -77.29864, -77.2796, 
  -77.2935, -77.29079)
LONGITUDE_VALUEs <- c(
  -149.2302, -149.2, -148.9364, -148.9089, -149.1959, -149.5228, -149.6601, -149.6642, -149.5461, -149.5544, 
  -149.4432, -149.347)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -76.96312, -76.99839, -77.02863, -77.04742, -77.07541, -77.10639, -77.13211, -77.11895, -77.13272, -77.14128, 
  -77.12171, -77.08861, -77.07971, -77.01692, -76.90382, -76.88763, -76.87797, -76.89728, -76.9231, -76.93956, 
  -76.95383)
LONGITUDE_VALUEs <- c(
  -150.7601, -150.7903, -150.6995, -150.532, -150.4648, -149.8318, -149.8358, -149.7356, -149.7081, -149.3525, 
  -149.2001, -149.2921, -149.428, -149.4541, -149.7411, -149.8194, -150.0171, -150.2053, -150.3509, -150.6199, 
  -150.6804)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-77.229, -77.21108, -77.18278, -77.17059, -77.19222, -77.2129, -77.25478, -77.25387)
LONGITUDE_VALUEs <- c(-147.3104, -147.1786, -147.2706, -147.585, -147.6166, -147.4985, -147.4463, -147.3145)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -76.93335, -76.91191, -76.9144, -76.89261, -76.91315, -76.99932, -77.00488, -77.02802, -77.00951, -77.01753, 
  -76.99035, -76.96002, -76.95383, -76.94204, -76.92279)
LONGITUDE_VALUEs <- c(
  -148.8869, -148.9734, -149.0654, -149.259, -149.303, -149.2357, -149.1107, -149.0448, -148.7524, -148.5601, 
  -148.4544, -148.4393, -148.5299, -148.534, -148.6823)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -76.77563, -76.775, -76.7426, -76.70034, -76.68927, -76.68073, -76.69654, -76.72401, -76.75393, -76.77154, 
  -76.79039, -76.80074)
LONGITUDE_VALUEs <- c(
  -150.2987, -150.1902, -150.0858, -150.1133, -150.2108, -150.4346, -150.7518, -150.8616, -150.8603, -150.7161, 
  -150.6612, -150.4388)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -76.99035, -76.99777, -76.94049, -76.94669, -76.9259, -76.89293, -76.89542, -76.91844, -76.94545, -76.94638, 
  -76.9563, -76.94979, -76.8867, -76.86206, -76.86612, -76.83863, -76.83675, -76.82392, -76.82048, -76.84113, 
  -76.84613, -76.8867, -76.91782, -76.93801, -76.95847, -76.99468)
LONGITUDE_VALUEs <- c(
  -147.0082, -146.908, -146.5263, -146.4945, -146.3984, -146.3751, -146.3229, -146.3298, -146.2611, -146.1993, 
  -146.1609, -146.1115, -146.2269, -146.3188, -146.4287, -146.5647, -146.654, -146.6924, -147.0851, -147.1331, 
  -147.0988, -147.1332, -147.0151, -147.0357, -147.0028, -147.0673)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-76.56157, -76.56189, -76.57848, -76.60491, -76.6592, -76.6611, -76.67092, -76.66586, -76.61763)
LONGITUDE_VALUEs <- c(-147.8336, -147.9531, -148.0094, -147.9764, -147.7306, -147.6592, -147.57, -147.5535, -147.6057)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -76.66459, -76.67757, -76.69054, -76.70855, -76.68611, -76.69686, -76.69149, -76.69686, -76.68769, -76.6858, 
  -76.67314, -76.61731, -76.63034)
LONGITUDE_VALUEs <- c(
  -149.0036, -148.9954, -148.8855, -148.8279, -148.762, -148.7057, -148.6535, -148.5794, -148.5505, -148.4874, 
  -148.4805, -148.8732, -149.2233)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -76.7662, -76.83769, -76.84394, -76.80513, -76.80356, -76.78379, -76.78693, -76.74953, -76.72149, -76.71076, 
  -76.69907, -76.70476, -76.72022, -76.72811, -76.69686, -76.70886, -76.73094, -76.73189, -76.70665, -76.70539, 
  -76.7322, -76.72054, -76.76054)
LONGITUDE_VALUEs <- c(
  -149.4815, -149.1657, -148.8059, -148.6906, -148.5449, -148.4213, -148.3225, -148.328, -148.4104, -148.4996, 
  -148.5298, -148.5943, -148.5463, -148.582, -148.7564, -148.7934, -148.7523, -148.8072, -148.9144, -149.0929, 
  -149.2303, -149.5117, -149.5913)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -76.6278, -76.63002, -76.66047, -76.68137, -76.68232, -76.71581, -76.70255, -76.67599, -76.66997, -76.6351, 
  -76.63669, -76.65033, -76.65413, -76.66997, -76.64398, -76.57688, -76.5504, -76.50977, -76.51202, -76.50208, 
  -76.49952, -76.51778, -76.54529, -76.567, -76.58358)
LONGITUDE_VALUEs <- c(
  -147.3598, -147.2856, -147.2829, -147.1771, -147.0824, -146.8778, -146.8202, -146.952, -146.8696, -146.9616, 
  -146.8105, -146.79, -146.8572, -146.805, -146.7144, -146.8119, -147.0907, -147.066, -147.136, -147.1525, 
  -147.2692, -147.3117, -147.3049, -147.3941, -147.3392)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -76.06942, -76.12683, -76.15972, -76.28498, -76.30223, -76.29117, -76.25695, -76.20302, -76.17187, -76.11366, 
  -76.08759, -76.08066, -76.06645)
LONGITUDE_VALUEs <- c(
  -147.5273, -147.368, -147.206, -146.9135, -146.8187, -146.702, -146.6636, -146.6993, -146.8174, -146.8874, 
  -147.0069, -147.3392, -147.4518)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -75.55962, -75.61397, -75.65451, -75.68137, -75.71563, -75.70072, -75.59006, -75.56544, -75.52293, -75.50644, 
  -75.51194)
LONGITUDE_VALUEs <- c(
  -146.1567, -146.0799, -145.7901, -145.6802, -145.2546, -145.1997, -145.3809, -145.521, -145.6665, -145.8121, 
  -146.0043)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -75.3977, -75.4048, -75.4028, -75.3916, -75.3901, -75.3838, -75.3860, -75.3908, -75.3957, -75.41612,
  -75.43132, -75.43789, -75.43063, -75.40124)
LONGITUDE_VALUEs <- c(
  -143.1501, -143.1299, -143.0805, -143.0530, -143.0403, -143.0167, -142.9823, -142.9854, -142.9735, -142.9982, 
  -142.979, -143.0682, -143.1575, -143.1794)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -74.42742, -74.44363, -74.4749, -74.49364, -74.4860, -74.45872, -74.4451, -74.42115, -74.39605, -74.37794, -74.38903, 
  -74.39272, -74.41008, -74.40713, -74.42225)
LONGITUDE_VALUEs <- c(
  -132.8428, -132.8277, -132.8373, -132.7714, -132.4474, -132.4886, -132.398, -132.4886, -132.4433, -132.5435, -132.5984, 
  -132.6849, -132.744, -132.7906, -132.8126)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -74.41672, -74.42963, -74.45983, -74.50282, -74.53104, -74.53288, -74.60267, -74.59684, -74.54496, -74.47233, 
  -74.41377, -74.41008, -74.43516, -74.43552, -74.42299, -74.38274, -74.32571, -74.32311, -74.33201, -74.33424, 
  -74.36536, -74.39679)
LONGITUDE_VALUEs <- c(
  -132.1424, -132.1548, -132.0422, -132.0408, -131.7058, -131.5163, -131.1964, -131.0866, -130.9835, -130.9423, 
  -130.9532, -130.9848, -131.0741, -131.1317, -131.1647, -131.5382, -131.6934, -131.8307, -131.8514, -131.8899, 
  -132.0244, -132.0231)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -74.3038, -74.33387, -74.4252, -74.51675, -74.53288, -74.55227, -74.5753, -74.6198, -74.64346, -74.63946, 
  -74.58297, -74.5658, -74.55483, -74.51822, -74.47086, -74.4027, -74.40085, -74.41488, -74.31792)
LONGITUDE_VALUEs <- c(
  -128.1833, -128.1916, -128.105, -127.9608, -127.8633, -127.9031, -127.7329, -127.5928, -127.5928, -127.4418, 
  -127.2111, -127.2303, -127.1822, -127.2454, -127.1163, -127.3181, -127.3703, -127.3895, -127.8962)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -74.09381, -74.19213, -74.21829, -74.13141, -74.07574, -74.06217, -74.04179, -74.02366, -73.96686, -73.94865, 
  -73.90302, -73.85879)
LONGITUDE_VALUEs <- c(
  -117.406, -117.428, -117.1232, -116.5493, -116.4971, -116.6316, -116.6316, -116.4559, -116.3624, -116.2141, 
  -116.1647, -116.3871)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-74.36277, -74.38977, -74.3855, -74.31495, -74.26735, -74.28261, -74.28038, -74.30492, -74.33276)
LONGITUDE_VALUEs <- c(-117.4757, -117.4593, -117.3754, -116.9882, -116.9635, -117.1022, -117.2134, -117.2065, -117.407)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -73.59714, -73.66139, -73.72694, -73.73925, -73.67143, -73.66139, -73.75769, -73.84581, -73.90606, -74.05538, 
  -74.10435, -74.16592, -74.18389, -74.21456, -74.18464, -74.23845, -74.19661, -74.27199, -74.22576, -74.06745, 
  -74.04179, -74.01988, -73.98506, -73.91976, -73.87558, -73.89007, -73.85497, -73.84733, -73.82286, -73.81904, 
  -73.76077, -73.77075, -73.72001, -73.78072, -73.79529, -73.84963, -73.85574, -73.81368, -73.81291, -73.78686, 
  -73.75155, -73.72771, -73.70768, -73.61032, -73.60412, -73.55987, -73.56997, -73.54042, -73.44443, -73.39741, 
  -73.43112, -73.44052, -73.47415, -73.45382, -73.4632, -73.44834, -73.42721, -73.39662, -73.3652, -73.33687, 
  -73.27612, -73.2777, -73.29903, -73.28087, -73.3085, -73.29666, -73.32269, -73.33057, -73.35183, -73.43739, 
  -73.48586, -73.54976)
LONGITUDE_VALUEs <- c(
  -127.162, -127.2691, -127.2334, -127.0796, -126.9725, -126.5576, -126.338, -126.4533, -126.0083, -125.621, 
  -125.1569, -125.2228, -125.0469, -124.9701, -124.8794, -124.7861, -124.2561, -123.9788, -123.7948, -123.792, 
  -123.9375, -123.9485, -124.0886, -124.2149, -124.1957, -124.0474, -124.0034, -124.1243, -124.1463, -124.2781, 
  -124.344, -124.4593, -124.5857, -124.7614, -124.9179, -124.9481, -125.0525, -125.0909, -125.2337, -125.2666, 
  -125.4863, -125.4726, -125.2666, -125.2421, -125.3739, -125.5304, -125.6265, -125.7061, -125.5497, -125.8435, 
  -125.9204, -125.8507, -125.8919, -125.9634, -126.1255, -126.1338, -126.0156, -126.0321, -126.153, -126.0238, 
  -126.1802, -126.5209, -126.6775, -126.9358, -127.1117, -127.2216, -127.2541, -127.364, -127.353, -127.5069, 
  -127.4107, -127.4684)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -73.76921, -73.8244, -73.84351, -73.87711, -73.90226, -73.99423, -74.13825, -74.21912, -74.24375, -74.33671, 
  -74.39371, -74.38484, -74.4343, -74.35154, -74.26909, -74.25866, -74.1465, -74.1375, -74.19819, -74.19371, 
  -74.22584, -74.169, -74.12097, -74.08712, -74.02148, -73.84054, -73.77851, -73.78925, -73.78388, -73.81147, 
  -73.82525, -74.07507, -74.10819, -74.01013, -73.93354, -73.88558, -73.81683, -73.80074, -73.7693, -73.75394, 
  -73.77314, -73.76469, -73.79538, -73.82448, -73.80304, -73.75471, -73.76085, -73.73087, -73.73318, -73.67074, 
  -73.68695, -73.67692)
LONGITUDE_VALUEs <- c(
  -123.289, -123.2204, -122.9595, -122.9128, -122.3444, -122.6602, -122.8525, -122.7481, -123.0337, -122.9129, 
  -122.5338, -122.4184, -122.0697, -121.2761, -121.2569, -121.0755, -121.0343, -120.875, -120.7624, -120.507, 
  -120.2105, -120.172, -119.6253, -119.5812, -119.1034, -118.8865, -119.1418, -119.389, -119.5373, -119.6361, 
  -119.7789, -119.7984, -120.1252, -120.2817, -120.1911, -120.581, -120.3423, -120.3889, -120.4109, -120.5976, 
  -120.7102, -120.9958, -121.0754, -121.4187, -121.5148, -121.3061, -121.4712, -121.6524, -121.9737, -122.3197, 
  -122.6821, -123.1293)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-72.58996, -72.70301, -72.78774, -72.76985, -72.59982, -72.53399)
LONGITUDE_VALUEs <- c(-100.7512, -100.4601, -99.64182, -99.14755, -98.86197, -100.4326)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -73.21604, -73.10544, -73.05429, -73.04067, -72.97887, -72.93863, -72.82626, -72.83112, -72.75656, -72.65759, 
  -72.56566, -72.53271, -72.57882, -72.61743, -72.65677, -72.75149, -72.88859, -72.96842, -73.15725)
LONGITUDE_VALUEs <- c(
  -91.49207, -90.91542, -90.9264, -90.81107, -90.80002, -90.70666, -90.73961, -90.93458, -90.74608, -90.75606, 
  -90.86316, -91.22837, -91.63751, -91.67596, -91.58809, -91.58548, -91.3356, -91.47012, -91.51955)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -73.05749, -73.09027, -73.05989, -73.01261, -72.9225, -72.88698, -72.88051, -72.84814, -72.86595, -72.94507, 
  -72.99173, -72.9346, -72.94749, -73.01662, -73.09187, -73.09187)
LONGITUDE_VALUEs <- c(
  -90.06386, -89.77828, -89.53389, -89.53664, -89.31696, -89.47073, -89.70414, -89.84144, -89.90459, -89.94029, 
  -90.05837, -90.17644, -90.3055, -90.35768, -90.20116, -90.06111)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -72.60406, -72.64999, -72.67127, -72.65982, -72.65777, -72.64016, -72.62212, -72.61227, -72.56419, -72.52382, 
  -72.48749, -72.47427, -72.50691, -72.5164, -72.57119, -72.57982)
LONGITUDE_VALUEs <- c(
  -95.2271, -95.2779, -95.24221, -95.17218, -94.93594, -94.88377, -94.71215, -94.40323, -94.43746, -94.51572, 
  -94.46766, -94.54592, -94.66812, -94.80404, -95.01548, -95.11983)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -72.45919, -72.49805, -72.54672, -72.5854, -72.50053, -72.55907, -72.57224, -72.49475, -72.56977, -72.56154, 
  -72.58046, -72.56319, -72.5566, -72.50383, -72.4716, -72.46084, -72.42853, -72.4418, -72.37373, -72.33626, 
  -72.31541, -72.34209, -72.29788, -72.28285, -72.30123, -72.24687, -72.21334, -72.24268, -72.14862, -72.12588, 
  -72.09044, -72.08283, -72.0617, -72.05916, -72.15788, -72.20663, -72.25859, -72.22005, -72.1663, -72.06085, 
  -71.99135, -72.02698, -71.98965, -71.88405, -71.83617, -71.86696, -71.91136, -71.84815, -71.82846, -71.871, 
  -72.03734, -72.17279, -72.19338, -72.17699, -72.13196, -72.08724, -72.03183, -71.97413, -71.95627, -71.95839, 
  -71.9435, -71.91326, -71.86544, -71.87912, -71.89918, -71.90174, -71.94563, -72.0013, -72.05892, -72.08133, 
  -72.1248, -72.16564, -72.15681, -72.11173, -72.09653, -72.06696, -72.16186, -72.15554, -72.04327, -71.9686, 
  -71.96732, -71.86288, -71.85091, -71.87698, -71.86886, -71.89321, -71.8804, -71.84877, -71.82351, -71.80851, 
  -71.86031, -71.85989, -71.83336, -71.83293, -71.75785, -71.73721, -71.78749, -71.82651, -71.86972, -71.90942, 
  -71.91539, -71.94095, -71.99366, -72.01784, -72.06019, -72.10202, -72.11341, -72.07795, -72.09231, -72.04199, 
  -71.99961, -71.99748, -72.07753, -72.07753, -72.03734, -71.96265, -71.93839, -71.95031, -71.97667, -71.99494, 
  -72.03056, -72.04199, -72.06738, -72.04834, -71.99281, -71.96817, -71.93286, -71.92391, -71.91155, -71.88638, 
  -71.86164, -71.83127, -71.82698, -71.86378, -71.9052, -71.90563, -71.91458, -71.91586, -71.95376, -71.93333, 
  -71.88984, -71.87917, -71.90264, -71.88472, -71.90563, -71.95844, -71.93248, -71.92524, -71.89582, -71.92822, 
  -71.93205, -71.96907, -72.01408, -72.06658, -72.11726, -72.12485, -72.14086, -72.14044, -72.16947, -72.18124, 
  -72.19343, -72.1993, -72.16443, -72.19805, -72.19259, -72.22951, -72.20728, -72.22741, -72.20728, -72.2249, 
  -72.24585, -72.29561, -72.27095, -72.27764, -72.32232, -72.34149, -72.36605, -72.35898, -72.38144, -72.35482, 
  -72.36772, -72.44161, -72.459, -72.47348, -72.48258, -72.46852, -72.47307, -72.45859, -72.47018)
LONGITUDE_VALUEs <- c(
  -98.60841, -98.55349, -98.70177, -98.19102, -97.16378, -97.19948, -96.76837, -96.71619, -96.59812, -96.26003, 
  -96.12823, -96.07056, -95.92777, -96.00741, -95.94425, -96.14196, -95.99917, -95.774, -95.43076, -95.41982, 
  -95.65048, -95.96627, -95.85643, -96.15848, -96.42759, -96.36717, -95.94979, -95.71913, -95.5022, -95.67794, 
  -95.66151, -95.58187, -95.61482, -95.78782, -95.97454, -96.56492, -96.59513, -96.99878, -96.90542, -96.36722, 
  -96.52099, -96.25463, -96.08438, -96.09539, -96.33978, -96.61437, -96.69126, -96.77364, -96.92192, -97.06461, 
  -97.12776, -97.33033, -97.4375, -97.51993, -97.52543, -97.62023, -97.37023, -97.3771, -97.498, -97.60105, 
  -97.62715, -97.49798, -97.70682, -97.81673, -97.8346, -97.89093, -97.82086, -97.85908, -97.85908, -97.74784, 
  -97.75746, -97.82753, -97.90447, -97.84814, -98.01163, -98.08583, -98.30428, -98.33726, -98.23401, -98.28072, 
  -98.13921, -97.9826, -98.05405, -98.14198, -98.19831, -98.29723, -98.31922, -98.2148, -98.21342, -98.31647, 
  -98.42364, -98.50882, -98.51981, -98.44699, -98.52934, -98.74917, -98.91523, -98.91523, -99.08682, -99.15827, 
  -99.0566, -99.08545, -98.76958, -98.7682, -98.67212, -98.6886, -98.76005, -98.85622, -98.97713, -99.07034, 
  -99.2407, -99.31902, -99.36985, -99.40008, -99.44679, -99.40122, -99.53175, -99.65952, -99.64166, -99.69662, 
  -99.67738, -99.7502, -99.79279, -99.92469, -99.87248, -100.0016, -99.98224, -99.91904, -99.99873, -99.95476, 
  -100.0344, -100.0619, -100.2323, -100.3793, -100.4123, -100.4958, -100.5233, -100.5975, -100.6772, -100.8063, 
  -100.6181, -100.699, -100.7691, -100.8131, -101.0439, -101.1894, -101.188, -101.3158, -101.4504, -101.6098, 
  -101.8351, -101.9364, -102.2483, -102.339, -102.3127, -102.2784, -102.2646, -102.1918, -102.1025, -102.0022, 
  -101.9954, -101.8254, -101.7073, -101.5795, -101.4929, -101.3528, -101.3432, -101.2484, -101.1673, -101.1222, 
  -100.4725, -100.3338, -100.2088, -100.1483, -100.0645, -99.86969, -99.78862, -99.63887, -99.53582, -99.47399, 
  -99.18432, -99.43713, -99.41102, -99.47697, -99.43444, -99.15278, -99.06495, -98.8726, -98.72559)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -72.88455, -72.86353, -72.50796, -72.42439, -72.39451, -72.50961, -72.49227, -72.36957, -72.35958, -72.32209, 
  -72.30123, -72.34459, -72.46581, -72.50466, -72.49557, -72.578, -72.75231, -72.82139, -72.81409, -72.87728, 
  -72.94668, -73.1217, -73.1209, -73.02945, -72.9354)
LONGITUDE_VALUEs <- c(
  -78.12991, -77.53129, -77.31708, -77.42967, -77.67955, -77.98709, -78.4237, -78.53628, -78.65436, -78.68495, 
  -78.94306, -79.18471, -79.2918, -79.20114, -79.06659, -78.80573, -78.65462, -78.88528, -79.01983, -79.32189, 
  -79.33013, -78.8835, -78.7915, -78.48712, -78.33884)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -73.20908, -73.20828, -73.13234, -73.08805, -73.08446, -73.1132, -73.1423, -73.1928, -73.22097, -73.25147, 
  -73.27757, -73.31152, -73.34855, -73.35721, -73.39885, -73.40356, -73.37057, -73.37333, -73.33556, -73.32847, 
  -73.29495, -73.25543, -73.23524)
LONGITUDE_VALUEs <- c(
  -73.70761, -73.61974, -73.52772, -73.64717, -73.74328, -73.87371, -73.89156, -73.84488, -74.04679, -74.00148, 
  -74.15388, -74.15936, -74.03717, -74.08522, -74.05914, -73.9795, -74.0152, -73.88065, -73.87653, -73.77081, 
  -73.75293, -73.68153, -73.71448)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -73.6228, -73.58869, -73.4699, -73.39122, -73.36686, -73.31647, -73.31253, -73.27779, -73.277, -72.97646, -72.91201, 
  -72.81571, -72.89667, -72.99173, -72.96922, -73.06709, -73.10864, -73.05589, -73.05028, -73.11582, -73.11103, 
  -73.05509, -73.07589, -73.15168, -73.19144, -73.26752, -73.39357, -73.48126, -73.5584, -73.58947)
LONGITUDE_VALUEs <- c(
  -74.5978, -74.46599, -74.3659, -74.52646, -74.50449, -74.54293, -74.76261, -74.75712, -74.58412, -74.21341, -74.33975, 
  -75.41616, -75.79236, -75.49854, -75.37223, -74.86699, -74.89719, -75.07568, -75.47659, -75.42441, -75.5013, 
  -75.70199, -76.07269, -76.14683, -76.06171, -76.07546, -75.77056, -75.24609, -74.97424, -74.73809)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -69.76545, -69.78681, -69.7925, -69.84509, -69.8555, -69.87204, -69.86874, -69.93716, -69.99643, -70.01709, 
  -70.10046, -70.17372, -70.16207, -70.17046, -70.15881, -70.13689, -70.12896, -70.07895, -70.0532, -70.01334, 
  -69.99221, -69.97105, -69.98845, -69.97716, -69.91642, -69.89708, -69.89424, -69.85881, -69.86023, -69.80436, 
  -69.76117, -69.7217, -69.71504)
LONGITUDE_VALUEs <- c(
  -75.44208, -75.42697, -75.31713, -75.34459, -75.58486, -75.63978, -75.69744, -75.81423, -75.79778, -75.8376, 
  -75.76758, -75.03152, -74.87482, -74.77734, -74.71967, -74.72105, -74.62631, -74.57551, -74.64283, -74.65244, 
  -74.73893, -74.71559, -74.52063, -74.39981, -74.44649, -74.50143, -74.59342, -74.63186, -74.54811, -74.72249, 
  -74.71425, -74.8337, -74.98198)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -70.94815, -71.14618, -70.96607, -70.71548, -70.56109, -70.54737, -70.65956, -70.57479, -70.59305, -70.67593, 
  -70.76209, -70.58392, -70.60035, -70.70681, -70.79554, -70.8127)
LONGITUDE_VALUEs <- c(
  -76.5537, -76.33402, -74.31849, -73.50522, -73.90021, -74.15009, -74.12263, -74.4137, -74.49334, -74.46038, 
  -74.57297, -74.86678, -75.0288, -75.0233, -75.22959, -75.89136)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -69.48506, -69.53985, -69.57726, -69.65475, -69.6891, -69.65093, -69.66621, -69.69959, -69.70149, -69.66334, 
  -69.59642, -69.56288, -69.46002, -69.40888)
LONGITUDE_VALUEs <- c(
  -72.96625, -72.97174, -72.84268, -72.77952, -72.48845, -72.23582, -72.13422, -72.13697, -71.96947, -71.95024, 
  -72.2825, -72.24406, -72.40607, -72.76305)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -72.44097, -72.58786, -72.61332, -72.55084, -72.56566, -72.60758, -72.65759, -72.66741, -72.63219, -72.62891, 
  -72.65841, -72.57553, -72.58046, -72.67232, -72.67723, -72.63957, -72.58951, -72.50714, -72.44842, -72.36707, 
  -72.3765, -72.2798, -72.2464, -72.21511, -72.24613, -72.14535, -72.06517, -71.9821, -71.85252, -71.66251, 
  -71.58458, -71.42164, -71.11914, -71.02292, -70.83265, -70.59133, -70.56576, -70.3323, -70.14845, -70.07744, 
  -70.05778, -69.79856, -69.62715, -69.56587, -69.41478, -69.40512, -69.27819, -69.30409, -69.30069, -69.32107, 
  -69.31379, -69.28952, -69.28564, -69.26085, -69.23068, -69.20534, -69.19705, -69.15751, -69.13845, -69.10516, 
  -69.09684, -69.04926, -68.99468, -68.98681, -68.95034, -68.9222, -68.86385, -68.81427, -68.78149, -68.81973, 
  -68.80534, -68.8242, -68.82072, -68.85196, -68.87028, -68.86286, -68.84403, -68.85939, -68.84899, -68.86484, 
  -68.91924, -68.94886, -69.00059, -69.08115, -69.16581, -69.22727, -69.27009, -69.31767, -69.33077, -69.35935, 
  -69.3608, -69.37918, -69.38934, -69.41929, -69.45402, -69.49543, -69.52571, -69.56363, -69.623, -69.6383, 
  -69.65979, -69.68174, -69.68555, -69.69985, -69.70938, -69.72128, -69.73888, -69.75315, -69.7674, -69.78022, 
  -69.80346, -69.78164, -69.79682, -69.87026, -69.88396, -69.92548, -69.93632, -70.03831, -70.1015, -70.12673, 
  -70.14493, -70.18546, -70.18034, -70.2064, -70.23568, -70.25007, -70.19524, -70.20315, -70.14306, -70.11926, 
  -70.14772, -70.14866, -70.17103, -70.15985, -70.19943, -70.22732, -70.24821, -70.23568, -70.25564, -70.23754, 
  -70.26352, -70.25146, -70.30337, -70.31262, -70.3436, -70.36068, -70.31447, -70.35006, -70.4031, -70.40863, 
  -70.43578, -70.45554, -70.49272, -70.51655, -70.59153, -70.62573, -70.74926, -70.7746, -70.8297, -70.84412, 
  -70.81887, -70.84637, -70.88374, -70.89273, -70.84683, -70.84998, -70.89363, -70.83511, -70.83691, -70.85854, 
  -70.86979, -70.93494, -70.93943, -70.95019, -70.94436, -70.95646, -70.95019, -70.9587, -70.97706, -70.99675, 
  -70.97348, -71.00122, -70.9802, -70.98736, -70.96094, -70.97706, -71.01731, -71.05613, -71.15175, -71.14155, 
  -71.14643, -71.11667, -71.11978, -71.09093, -71.10294, -71.04816, -71.06421, -71.04414, -71.05083, -71.06955, 
  -71.08915, -71.06554, -71.07757, -71.09048, -71.10783, -71.0936, -71.12117, -71.13227, -71.14071, -71.22698, 
  -71.31918, -71.38066, -71.36224, -71.40345, -71.39994, -71.34731, -71.30334, -71.35521, -71.50391, -71.51437, 
  -71.54917, -71.54569, -71.60299, -71.60819, -71.54569, -71.52568, -71.47514, -71.37891, -71.38855, -71.43495, 
  -71.5074, -71.5396, -71.57957, -71.63849, -71.68429, -71.65233, -71.64368, -71.52655, -71.53264, -71.60645, 
  -71.61598, -71.66702, -71.69728, -71.70073, -71.72745, -71.74638, -71.76702, -71.79064, -71.81423, -71.78635, 
  -71.78849, -71.83736, -71.90444, -72.0697, -72.0836, -72.02538, -72.0694, -72.1504, -72.1748, -72.14535, 
  -72.14451, -72.0956, -72.0087, -71.84568, -71.8217, -71.85509, -71.82855, -71.94043, -71.90378, -71.71946, 
  -71.73324, -71.62272, -71.62445, -71.81227, -71.85851, -71.89951, -71.8277, -71.90549, -71.83969, -71.87048, 
  -71.88329, -71.90805, -71.93276, -71.9838, -72.07278, -72.06348, -72.10151, -72.12175, -72.18825, -72.19329, 
  -72.21763, -72.20588, -72.21931, -72.24696, -72.26036, -72.2821, -72.25785, -72.25701, -72.27458, -72.21176, 
  -72.16387, -72.16387, -72.13103, -72.22769, -72.25952, -72.39709, -72.38463, -72.36134, -72.31884, -72.33052, 
  -72.36134, -72.37548, -72.2796, -72.27291, -72.38296)
LONGITUDE_VALUEs <- c(
  -73.16671, -72.82622, -72.66695, -72.54613, -72.43629, -72.52136, -72.49115, -72.34836, -71.99688, -71.39788, 
  -70.90087, -70.84595, -70.70041, -70.68943, -70.53016, -70.38737, -69.51927, -69.14308, -69.26668, -69.11016, 
  -68.9479, -68.7761, -68.7912, -68.73397, -68.44015, -68.43455, -68.32471, -68.43455, -68.20664, -68.21213, 
  -68.11877, -68.27254, -68.22862, -68.31375, -68.33571, -68.50326, -68.59388, -68.74774, -69.08556, -69.12126, 
  -69.18716, -69.34096, -69.33545, -69.48922, -69.57444, -69.6376, -69.74743, -69.8254, -69.90915, -69.93523, 
  -70.02997, -70.03821, -70.10686, -70.11647, -70.05817, -70.05679, -70.02107, -70.02659, -70.10903, -70.09941, 
  -69.99224, -70.08153, -70.1076, -70.06776, -70.10485, -70.0815, -70.13783, -70.35205, -70.43036, -70.59936, 
  -70.7656, -70.83155, -70.89888, -70.93048, -71.02356, -71.13622, -71.17469, -71.31071, -71.48383, -71.62809, 
  -71.74603, -71.98234, -72.03714, -72.2185, -72.0976, -72.14007, -72.04114, -72.01366, -71.95338, -71.91354, 
  -71.78988, -71.7624, -71.64974, -71.68134, -71.636, -71.6896, -71.66899, -71.73906, -71.7528, -71.72945, 
  -71.73632, -71.69787, -71.6539, -71.64978, -71.62779, -71.65253, -71.57833, -71.60993, -71.59482, -71.64016, 
  -71.66077, -71.70336, -71.82564, -71.85716, -71.90937, -71.87502, -71.92164, -71.79264, -71.58123, -71.37239, 
  -71.39169, -71.32437, -71.14438, -71.11154, -71.13077, -71.04559, -70.88506, -70.83285, -70.81911, -70.7408, 
  -70.70783, -70.66249, -70.62264, -70.55807, -70.47975, -70.50998, -70.36862, -70.24222, -70.19826, -70.18727, 
  -70.043, -69.97843, -69.88637, -69.81505, -69.75048, -69.92359, -70.13518, -70.18174, -70.49912, -70.74642, 
  -70.80525, -71.00584, -71.03185, -70.99613, -71.11703, -71.23245, -71.2297, -70.89867, -70.81074, -70.4923, 
  -70.39475, -70.18591, -70.20652, -70.08561, -70.1392, -70.00867, -69.92624, -69.85479, -69.81495, -69.83143, 
  -69.77648, -69.8152, -69.90021, -69.93868, -70.35773, -70.48248, -70.57041, -70.61987, -70.5869, -70.74078, 
  -71.06365, -71.18318, -71.24746, -71.30242, -71.35875, -71.3986, -71.35875, -71.36141, -71.64032, -71.76947, 
  -71.91098, -71.9382, -72.00415, -72.04125, -72.09895, -72.37634, -72.48213, -72.55632, -72.59204, -72.55083, 
  -72.5838, -72.75142, -72.83222, -72.82398, -72.91603, -72.98885, -73.09876, -73.10562, -73.12623, -72.9545, 
  -72.19332, -72.24278, -72.56703, -72.64122, -72.85281, -72.96272, -73.44635, -73.71014, -73.49814, -73.36899, 
  -73.32777, -73.4157, -73.41845, -73.5476, -73.6218, -73.77568, -73.79216, -74.14076, -74.34685, -74.43203, 
  -74.42104, -74.36892, -74.39365, -74.259, -74.36068, -74.48983, -74.67943, -74.83331, -75.11909, -75.19053, 
  -75.33892, -75.42685, -75.33034, -75.24104, -75.24104, -75.17243, -75.1532, -75.05977, -75.1161, -75.24937, 
  -75.36753, -75.44716, -75.40456, -74.8348, -74.6673, -74.41122, -74.27921, -74.21605, -74.07326, -73.9442, 
  -73.83162, -73.81514, -73.5074, -73.91938, -73.78757, -73.62556, -73.45806, -73.10657, -72.75479, -72.6779, 
  -72.50216, -72.37579, -72.27694, -71.81012, -71.87594, -71.79356, -71.37068, -71.11805, -70.82149, -70.69243, 
  -70.7501, -70.72264, -70.79128, -70.73911, -71.35409, -71.49413, -71.7495, -72.06529, -71.99115, -71.90332, 
  -71.82369, -71.73033, -71.61774, -71.65619, -71.49143, -71.38983, -71.35413, -71.19487, -71.2031, -70.79945, 
  -70.71707, -70.57124, -70.41472, -70.32136, -70.13738, -70.76901, -71.64705, -71.84215, -72.05373, -72.14167, 
  -72.10045, -72.1664, -72.37194, -72.73191, -73.10287)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -67.73339, -67.75264, -67.66513, -67.65939, -67.62909, -67.61288, -67.5998, -67.58305, -67.57938, -67.55633, 
  -67.53692, -67.51172, -67.51172, -67.5196, -67.54217, -67.56943, -67.54427, -67.52222, -67.48229, -67.46756, 
  -67.40432, -67.38321, -67.38849, -67.37634, -67.36154, -67.35256, -67.32769, -67.30121, -67.27363, -67.26674, 
  -67.24337, -67.24603, -67.23381, -67.23168, -67.21574, -67.21042, -67.19179, -67.18913, -67.20776, -67.20031, 
  -67.19019, -67.15716, -67.1465, -67.13316, -67.13369, -67.12409, -67.12249, -67.10646, -67.09952, -67.07492, 
  -67.0776, -67.05887, -67.05566, -67.03852, -67.03477, -67.02244, -67.00206, -66.99079, -66.97737, -66.96448, 
  -66.94136, -66.90045, -66.88859, -66.87727, -66.85676, -66.85299, -66.83625, -66.80652, -66.81787, -66.80219, 
  -66.78, -66.76754, -66.76321, -66.72634, -66.72363, -66.69376, -66.68724, -66.66168, -66.65189, -66.6263, 
  -66.62248, -66.63283, -66.63283, -66.65515, -66.65407, -66.66332, -66.67256, -66.67637, -66.69811, -66.69811, 
  -66.71331, -66.71549, -66.72634, -66.72634, -66.767, -66.78054, -66.78596, -66.80814, -66.81192, -66.84921, 
  -66.86756, -66.89937, -66.90799, -66.92952, -66.9419, -67.19871, -67.2269, -67.24337, -67.26992, -67.28583, 
  -67.31763, -67.32187, -67.33827, -67.33563, -67.45598, -67.51014, -67.53377, -67.56943, -67.58357, -67.62177, 
  -67.64006, -67.63902, -67.66513, -67.67243, -67.69433, -67.6985, -67.72715, -67.74796, -67.76667, -67.7542, 
  -67.75946, -67.74282, -67.7423)
LONGITUDE_VALUEs <- c(
  -68.65104, -68.57552, -68.45058, -68.41351, -68.40794, -68.38598, -68.40932, -68.41344, -68.4409, -68.42305, 
  -68.31046, -68.26516, -68.23907, -68.22259, -68.2322, -68.13335, -68.12237, -68.05784, -68.03587, -67.97675, 
  -67.93831, -68.11405, -68.17034, -68.26507, -68.25276, -68.18823, -68.16901, -67.97954, -67.97542, -67.99601, 
  -67.96993, -67.91214, -67.90116, -67.8586, -67.86409, -67.84624, -67.84212, -67.7872, -67.77896, -67.75288, 
  -67.76249, -67.67599, -67.68148, -67.75016, -67.79409, -67.79684, -67.78174, -67.78174, -67.79409, -67.82018, 
  -67.88196, -67.89375, -67.96657, -67.96795, -67.93222, -67.95009, -67.91986, -67.95, -67.95687, -67.99671, 
  -68.02556, -67.99671, -67.97198, -67.98297, -67.97885, -67.92527, -67.95555, -67.90471, -67.84838, -67.81953, 
  -67.83877, -67.81266, -67.74259, -67.74946, -67.69588, -67.68351, -67.64779, -67.67805, -67.65469, -67.68217, 
  -67.85803, -67.89644, -67.91155, -67.91842, -67.93354, -67.93354, -67.95827, -67.98987, -68.01735, -68.04482, 
  -68.05572, -68.08045, -68.08732, -68.11343, -68.28929, -68.28929, -68.32227, -68.32364, -68.36761, -68.41007, 
  -68.46502, -68.46502, -68.50761, -68.48288, -68.55021, -68.79055, -68.774, -68.82758, -68.80835, -68.88391, 
  -68.88529, -68.93475, -68.94162, -68.98284, -69.14482, -69.16817, -69.20252, -69.15856, -69.17642, -69.10509, 
  -69.12295, -69.07212, -69.06525, -69.00205, -68.9938, -68.94846, -68.94984, -68.91137, -68.91137, -68.84679, 
  -68.81931, -68.71352, -68.67643)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-67.86519, -67.87916, -67.88743, -67.87451, -67.84915, -67.85588, -67.85433)
LONGITUDE_VALUEs <- c(-67.04843, -67.04843, -66.93172, -66.86582, -66.91662, -66.97017, -67.00175)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -67.8957, -67.87968, -67.83672, -67.81236, -67.81547, -67.83257, -67.82169, -67.80613, -67.80769, -67.79524, 
  -67.79731, -67.78797, -67.80821, -67.81236, -67.80821, -67.82013, -67.82532, -67.84863, -67.85743, -67.87606, 
  -67.88485, -67.89467)
LONGITUDE_VALUEs <- c(
  -67.25163, -67.16925, -67.08275, -67.12257, -67.15826, -67.1871, -67.21044, -67.1816, -67.15826, -67.17199, 
  -67.21456, -67.24888, -67.26261, -67.2887, -67.30517, -67.34224, -67.2379, -67.24064, -67.29144, -67.30929, 
  -67.28183, -67.27634)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -67.7807, -67.79316, -67.78537, -67.73287, -67.71205, -67.70267, -67.71309, -67.67765, -67.64424, -67.61968, 
  -67.60922, -67.61341, -67.59405, -67.59666, -67.62229, -67.60556, -67.58619, -67.60294, -67.61759, -67.62805, 
  -67.67035, -67.69746, -67.70215, -67.67608, -67.68286, -67.69069, -67.69642, -67.71465, -67.72663, -67.77499, 
  -67.78693)
LONGITUDE_VALUEs <- c(
  -67.58397, -67.52493, -67.4302, -67.2929, -67.32173, -67.29977, -67.25308, -67.24347, -67.12806, -67.12119, 
  -67.16513, -67.20906, -67.24476, -67.3038, -67.36146, -67.40952, -67.40952, -67.58388, -67.58251, -67.66764, 
  -67.77077, -67.76665, -67.7337, -67.66779, -67.62935, -67.64445, -67.68015, -67.65681, -67.74331, -67.68836, 
  -67.61285)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -67.58357, -67.58462, -67.593, -67.56209, -67.5558, -67.5196, -67.50699, -67.52852, -67.52327, -67.51382, 
  -67.50699, -67.50016, -67.50437, -67.5133, -67.528, -67.54741, -67.56419, -67.56733, -67.57519, -67.55056, 
  -67.5631, -67.58567, -67.59771, -67.60137)
LONGITUDE_VALUEs <- c(
  -67.03193, -66.99486, -66.97563, -66.93033, -66.88502, -66.8095, -66.94955, -67.0182, -67.05115, -67.03879, 
  -67.05527, -67.05664, -67.12666, -67.09371, -67.12666, -67.21316, -67.21179, -67.19256, -67.17883, -67.10195, 
  -67.1005, -67.15961, -67.15138, -67.08273)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-67.32769, -67.36154, -67.37423, -67.34304, -67.33034, -67.31392, -67.30333, -67.32239)
LONGITUDE_VALUEs <- c(-67.71994, -67.75152, -67.73092, -67.63619, -67.63207, -67.6101, -67.61971, -67.67188)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-67.27098, -67.20988, -67.19499, -67.21095, -67.24125, -67.26674, -67.28902)
LONGITUDE_VALUEs <- c(-67.66636, -67.58535, -67.64577, -67.66636, -67.7762, -67.82151, -67.75972)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-67.12782, -67.1465, -67.10219, -67.08081, -67.06957, -67.04334, -67.04656, -67.08402, -67.10433)
LONGITUDE_VALUEs <- c(-67.68419, -67.62241, -67.53317, -67.56475, -67.5414, -67.57436, -67.60868, -67.66635, -67.63751)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -66.8805, -66.85245, -66.83571, -66.81787, -66.80544, -66.78162, -66.7735, -66.75129, -66.73339, -66.7258, 
  -66.74044, -66.78108, -66.78596, -66.81247, -66.81571, -66.84813, -66.85622, -66.87619, -66.87835, -66.88482, 
  -66.91553, -66.91068, -66.91068, -66.88266, -66.87619)
LONGITUDE_VALUEs <- c(
  -67.30798, -67.27915, -67.22423, -67.26267, -67.24894, -67.30111, -67.28464, -67.33679, -67.35326, -67.45349, 
  -67.50978, -67.52489, -67.49468, -67.49605, -67.53724, -67.56333, -67.53862, -67.55921, -67.6004, -67.60315, 
  -67.47271, -67.45349, -67.38622, -67.38347, -67.33679)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -66.39855, -66.3826, -66.36829, -66.35508, -66.3402, -66.33028, -66.31263, -66.32862, -66.3413, -66.35122, 
  -66.35452, -66.3771, -66.39415)
LONGITUDE_VALUEs <- c(
  -67.12147, -67.11186, -67.02948, -67.02536, -67.05556, -67.05556, -67.12009, -67.15991, -67.14755, -67.15305, 
  -67.12696, -67.12833, -67.17364)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -66.26182, -66.25684, -66.26624, -66.25795, -66.24191, -66.24246, -66.26845, -66.29552, -66.29221, -66.26403, 
  -66.25297, -66.26569, -66.25463)
LONGITUDE_VALUEs <- c(
  -66.99927, -67.01849, -67.04458, -67.07479, -67.0487, -67.08852, -67.10499, -66.99103, -66.94161, -66.88257, 
  -66.92239, -66.94435, -66.97731)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -66.28834, -66.31263, -66.32752, -66.30987, -66.29221, -66.28282, -66.2795, -66.26735, -66.21312, -66.18042, 
  -66.16711, -66.15434, -66.14157, -66.12101, -66.106, -66.09487, -66.09097, -66.06536, -66.07148, -66.06424, 
  -66.09487, -66.09932, -66.09375, -66.10933, -66.12157, -66.13379, -66.16267, -66.18098, -66.17709, -66.1965, 
  -66.20149, -66.22863, -66.27453, -66.28448)
LONGITUDE_VALUEs <- c(
  -66.90858, -66.92369, -66.84543, -66.81934, -66.75618, -66.76168, -66.74383, -66.73834, -66.61477, -66.58317, 
  -66.59689, -66.58591, -66.62435, -66.62573, -66.58866, -66.58866, -66.56806, -66.58179, -66.60651, -66.6422, 
  -66.6628, -66.71085, -66.74518, -66.75891, -66.80421, -66.77538, -66.79735, -66.78087, -66.76165, -66.75067, 
  -66.77538, -66.77264, -66.86465, -66.87014)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -65.87635, -65.864, -65.86793, -65.83703, -65.83534, -65.84321, -65.84152, -65.83365, -65.82916, -65.7723, 
  -65.72322, -65.70685, -65.67462, -65.68819, -65.67858, -65.64689, -65.63499, -65.59757, -65.57884, -65.53225, 
  -65.5476, -65.54191, -65.5294, -65.51859, -65.52656, -65.5203, -65.53452, -65.53111, -65.54191, -65.54476, 
  -65.55385, -65.55499, -65.56862, -65.58282, -65.59644, -65.62309, -65.63216, -65.65029, -65.66387, -65.67858, 
  -65.68197, -65.70063, -65.71475, -65.73, -65.73677, -65.752, -65.77399, -65.76215, -65.78582, -65.81734, 
  -65.83928, -65.8741, -65.87073, -65.88645, -65.87635)
LONGITUDE_VALUEs <- c(
  -66.09012, -66.05305, -65.98577, -65.91163, -65.8622, -65.82788, -65.79767, -65.79767, -65.85259, -65.82788, 
  -65.86769, -65.92261, -65.88966, -65.79767, -65.66861, -65.65212, -65.68782, -65.64388, -65.67134, -65.64251, 
  -65.68507, -65.72626, -65.75647, -65.75097, -65.7853, -65.80589, -65.8155, -65.84296, -65.85944, -65.88827, 
  -65.90063, -65.9679, -65.95692, -65.97752, -65.95006, -65.96104, -65.99125, -66.0036, -66.05028, -66.05028, 
  -66.07225, -66.08461, -66.06401, -66.06813, -66.03655, -66.04208, -66.08739, -66.16702, -66.15878, -66.19448, 
  -66.17388, -66.18434, -66.16098, -66.14037, -66.11839)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -65.8449, -65.8595, -65.86961, -65.87129, -65.88027, -65.89262, -65.90608, -65.88364, -65.86063, -65.84321, 
  -65.83478, -65.83309)
LONGITUDE_VALUEs <- c(
  -65.34582, -65.31973, -65.33758, -65.29639, -65.28129, -65.29914, -65.22912, -65.19617, -65.20166, -65.2607, 
  -65.2607, -65.30875)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -65.48043, -65.4753, -65.4668, -65.46048, -65.4696, -65.46789, -65.47929, -65.48442, -65.4998, -65.51461, 
  -65.50151, -65.50721, -65.48784, -65.47416, -65.46618)
LONGITUDE_VALUEs <- c(
  -65.57243, -65.58753, -65.5709, -65.57105, -65.59577, -65.61362, -65.61499, -65.65481, -65.70561, -65.66991, 
  -65.63833, -65.59851, -65.5738, -65.52986, -65.54771)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-65.89374, -65.92625, -65.92457, -65.89374, -65.88645, -65.87466, -65.88925)
LONGITUDE_VALUEs <- c(-65.98303, -66.02422, -65.95557, -65.89104, -65.90752, -65.91301, -65.94733)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-65.94697, -65.96935, -65.98109, -65.99618, -65.99897, -65.98891, -65.97829, -65.9632, -65.94473)
LONGITUDE_VALUEs <- c(-65.78389, -65.77016, -65.79899, -65.80174, -65.76329, -65.73309, -65.74682, -65.7427, -65.76192)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -64.54254, -64.59561, -64.62447, -64.65094, -64.66034, -64.6856, -64.69089, -64.71847, -64.71553, -64.72199, 
  -64.71377, -64.72081, -64.70204, -64.72374, -64.73488, -64.75949, -64.77061, -64.79109, -64.78349, -64.80571, 
  -64.81097, -64.82324, -64.8396, -64.85652, -64.85186, -64.80045, -64.79109, -64.76534, -64.76242, -64.75129, 
  -64.75246, -64.73606, -64.72668, -64.70556, -64.69441, -64.7038, -64.71964, -64.72726, -64.7384, -64.74602, 
  -64.7548, -64.76476, -64.763, -64.76827, -64.73664, -64.7343, -64.70556, -64.69911, -64.67914, -64.67679, 
  -64.6574, -64.64564, -64.64858, -64.63212, -64.63388, -64.61505, -64.62505, -64.61681, -64.62447, -64.6015, 
  -64.6015, -64.58265, -64.56909, -64.55257, -64.52955, -64.51596, -64.54018, -64.54018, -64.51183, -64.53427, 
  -64.55021, -64.55788, -64.58206, -64.58206, -64.5685, -64.58383, -64.55198, -64.53959, -64.51242, -64.50887, 
  -64.49646, -64.49527, -64.46688, -64.45563, -64.48522, -64.47457, -64.40524, -64.38447, -64.42897, -64.43371, 
  -64.4503, -64.43608, -64.41711, -64.39694, -64.39338, -64.37675, -64.38803, -64.37853, -64.35715, -64.36606, 
  -64.32623, -64.31373, -64.30956, -64.2762, -64.28395, -64.2762, -64.28455, -64.26726, -64.25354, -64.27084, 
  -64.29408, -64.31968, -64.32444, -64.35537, -64.35596, -64.39634, -64.41948, -64.42719, -64.44556, -64.45681, 
  -64.43134, -64.45267, -64.46155, -64.47871, -64.47871, -64.49646, -64.50237, -64.54018)
LONGITUDE_VALUEs <- c(
  -64.03128, -64.20015, -64.1823, -64.19741, -64.23173, -64.25095, -64.2894, -64.29077, -64.27155, -64.25919, 
  -64.23448, -64.17407, -64.11915, -64.10816, -64.07384, -64.07109, -63.9722, -63.91454, -63.78273, -63.77312, 
  -63.74841, -63.76214, -63.7182, -63.71683, -63.68251, -63.63994, -63.58502, -63.56306, -63.515, -63.515, 
  -63.57953, -63.57816, -63.49297, -63.50532, -63.44766, -63.41196, -63.43667, -63.41196, -63.41608, -63.3996, 
  -63.4202, -63.41608, -63.39411, -63.34743, -63.32272, -63.28839, -63.28153, -63.2169, -63.21278, -63.17708, 
  -63.20042, -63.18059, -63.15311, -63.13115, -63.08718, -63.08718, -63.03772, -63.03085, -62.97315, -62.95391, 
  -62.91819, -62.89896, -62.80965, -62.87285, -62.88109, -62.94017, -62.9649, -63.01574, -63.00887, -63.05284, 
  -63.06245, -63.13252, -63.12565, -63.17649, -63.20672, -63.26442, -63.31251, -63.21771, -63.20809, -63.16953, 
  -63.16129, -63.12557, -63.10908, -63.14343, -63.18602, -63.25334, -63.14343, -63.17915, -63.25059, -63.29319, 
  -63.32753, -63.377, -63.30555, -63.30006, -63.26982, -63.2712, -63.31516, -63.3289, -63.29868, -63.21761, 
  -63.16266, -63.20387, -63.15716, -63.16815, -63.21074, -63.23273, -63.26708, -63.28494, -63.46217, -63.56247, 
  -63.54324, -63.55285, -63.67376, -63.68338, -63.63392, -63.67513, -63.65315, -63.70261, -63.70661, -63.76843, 
  -63.8179, -63.87011, -63.94018, -63.91682, -63.88797, -63.8811, -63.85224, -63.90427)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -64.44556, -64.44437, -64.45503, -64.46155, -64.50059, -64.50651, -64.52423, -64.53073, -64.50473, -64.49764, 
  -64.48522, -64.45148, -64.46036, -64.45326, -64.45859, -64.47398, -64.49054, -64.46688, -64.4793, -64.45859, 
  -64.44793, -64.43548, -64.4426, -64.40762, -64.3999, -64.37378, -64.37378, -64.39634, -64.3821, -64.37378, 
  -64.36309, -64.35596, -64.31075, -64.30539, -64.2917, -64.28157, -64.21235, -64.21474, -64.18725, -64.19622, 
  -64.18964, -64.19383, -64.17588, -64.14895, -64.16511, -64.15135, -64.14716, -64.13817, -64.13817, -64.119, 
  -64.12079, -64.09441, -64.0794, -64.068, -64.05358, -64.03314, -64.0175, -64.01269, -64.03254, -64.04096, 
  -64.05598, -64.06439, -64.0782, -64.0812, -64.1076, -64.1172, -64.13218, -64.14536, -64.15075, -64.1723, 
  -64.20996, -64.21175, -64.23564, -64.24161, -64.25951, -64.2607, -64.31194, -64.32385, -64.34526, -64.36903, 
  -64.37378, -64.39516, -64.40228)
LONGITUDE_VALUEs <- c(
  -62.64835, -62.5948, -62.58656, -62.6607, -62.67306, -62.61952, -62.62775, -62.59617, -62.59068, -62.54949, 
  -62.56734, -62.54949, -62.53164, -62.50693, -62.49046, -62.51517, -62.45476, -62.46162, -62.42043, -62.37101, 
  -62.38748, -62.3765, -62.3257, -62.32433, -62.34217, -62.28863, -62.2598, -62.2749, -62.21852, -62.22127, 
  -62.1691, -62.21715, -62.19106, -62.22402, -62.22264, -62.14987, -62.05235, -62.09766, -62.1059, -62.15258, 
  -62.17318, -62.20475, -62.21848, -62.08531, -62.0551, -62.03588, -62.0043, -62.0043, -62.07432, -62.12649, 
  -62.19102, -62.28806, -62.29484, -62.26736, -62.29209, -62.27148, -62.29896, -62.4707, -62.48307, -62.56825, 
  -62.56688, -62.51467, -62.53116, -62.49406, -62.50636, -62.61764, -62.60116, -62.60803, -62.5723, -62.5778, 
  -62.50775, -62.4734, -62.46378, -62.48164, -62.48577, -62.52286, -62.52836, -62.58331, -62.57507, -62.59568, 
  -62.65064, -62.65476, -62.68499)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -64.82733, -64.84252, -64.85186, -64.8886, -64.89734, -64.91306, -64.89559, -64.90258, -64.88976, -64.87752, 
  -64.87111, -64.86002, -64.85419, -64.7946, -64.79753, -64.77354, -64.74543, -64.72902, -64.70673, -64.80396, 
  -64.79987, -64.78641, -64.78349, -64.81857, -64.81915, -64.83025)
LONGITUDE_VALUEs <- c(
  -63.45172, -63.45172, -63.48605, -63.53685, -63.58765, -63.59726, -63.45172, -63.40916, -63.40504, -63.42701, 
  -63.32816, -63.32541, -63.29658, -63.28834, -63.24029, -63.23479, -63.14555, -63.17161, -63.18259, -63.3597, 
  -63.38716, -63.37618, -63.44483, -63.51073, -63.47778, -63.47915)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -64.84252, -64.83317, -64.85711, -64.84485, -64.86294, -64.87052, -64.86294, -64.86177, -64.87111, -64.86527, 
  -64.83609)
LONGITUDE_VALUEs <- c(
  -63.54368, -63.57938, -63.59585, -63.61096, -63.63155, -63.61096, -63.59173, -63.55466, -63.55878, -63.52858, 
  -63.48327)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -64.84719, -64.8431, -64.86586, -64.87519, -64.88568, -64.88393, -64.89967, -64.89268, -64.87636, -64.87519, 
  -64.86586, -64.85711, -64.86936, -64.86411)
LONGITUDE_VALUEs <- c(
  -63.01635, -63.06303, -63.12894, -63.10697, -63.11521, -63.05617, -63.00125, -62.93809, -62.92436, -62.96143, 
  -62.9532, -62.98752, -63.00949, -63.03557)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-64.8139, -64.81448, -64.83259, -64.82383, -64.83259, -64.81974, -64.80747, -64.79343)
LONGITUDE_VALUEs <- c(-63.03283, -62.9985, -62.94633, -62.93672, -62.89141, -62.88729, -62.85022, -63.00811)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -64.67986, -64.70862, -64.70745, -64.7315, -64.74966, -64.74146, -64.74439, -64.70804, -64.70276, -64.68867, 
  -64.67105)
LONGITUDE_VALUEs <- c(
  -62.70861, -62.72096, -62.77451, -62.71685, -62.7292, -62.69488, -62.64957, -62.63859, -62.65506, -62.6482, 
  -62.67291)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -64.57865, -64.57453, -64.55447, -64.55211, -64.53795, -64.53617, -64.54916, -64.54739, -64.55742, -64.57512, 
  -64.57747, -64.59457, -64.60105, -64.61812, -64.60635, -64.6034, -64.59398)
LONGITUDE_VALUEs <- c(
  -62.06319, -62.02337, -62.02063, -62.04259, -62.04259, -62.05907, -62.06181, -62.08516, -62.07829, -62.11261, 
  -62.15655, -62.12497, -62.14007, -62.103, -62.07966, -62.04397, -62.06319)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -64.35596, -64.36487, -64.36963, -64.3916, -64.38982, -64.39812, -64.38803, -64.39397, -64.37378, -64.37081, 
  -64.34883, -64.36368)
LONGITUDE_VALUEs <- c(
  -61.6115, -61.62249, -61.60052, -61.59091, -61.57443, -61.55796, -61.52501, -61.49206, -61.48107, -61.52775, 
  -61.55659, -61.57718)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -64.09441, -64.12139, -64.12679, -64.13757, -64.15614, -64.16571, -64.1705, -64.16392, -64.17529, -64.1711, 
  -64.14536, -64.13937, -64.1172, -64.116, -64.09981)
LONGITUDE_VALUEs <- c(
  -61.72824, -61.76119, -61.73099, -61.7557, -61.73373, -61.74197, -61.72412, -61.70627, -61.69117, -61.67332, 
  -61.66096, -61.68431, -61.68431, -61.71726, -61.7049)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -64.0794, -64.0812, -64.06199, -64.05538, -64.04877, -64.03855, -64.03735, -64.02653, -64.0163, -64.0145, 
  -63.98319, -63.96933, -63.96933, -63.98801, -63.98982, -64.00908, -64.00427, -64.02352, -64.03495, -64.05057, 
  -64.05959, -64.08481)
LONGITUDE_VALUEs <- c(
  -62.02211, -61.96582, -61.95895, -61.90129, -61.93836, -61.93149, -61.88893, -61.88207, -61.89717, -61.85186, 
  -61.82715, -61.79008, -61.82715, -61.84911, -61.94248, -61.9466, -62.01799, -62.00701, -62.03584, -62.02897, 
  -62.06604, -62.06055)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -63.72722, -63.73573, -63.77703, -63.78188, -63.7934, -63.80189, -63.81462, -63.78188, -63.72905, -63.71871)
LONGITUDE_VALUEs <- c(
  -61.74465, -61.72268, -61.7117, -61.68149, -61.66914, -61.68149, -61.67326, -61.61284, -61.62657, -61.71445)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-63.56017, -63.58951, -63.59195, -63.60355, -63.59623, -63.57729, -63.56201, -63.55528)
LONGITUDE_VALUEs <- c(-59.8647, -59.87019, -59.83724, -59.83312, -59.7782, -59.80704, -59.78232, -59.82351)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -63.70107, -63.7102, -63.7254, -63.72175, -63.72905, -63.71628, -63.72114, -63.74424, -63.75396, -63.75517, 
  -63.79462, -63.80796, -63.83037, -63.8437, -63.83159, -63.85398, -63.87032, -63.88785, -63.90417, -63.90538, 
  -63.89208, -63.88544, -63.9096, -63.9096, -63.88725, -63.89027, -63.87516, -63.86488, -63.81523, -63.80856, 
  -63.7934, -63.78127, -63.75153, -63.74181, -63.72114, -63.70776, -63.69255, -63.70351, -63.67855)
LONGITUDE_VALUEs <- c(
  -60.79299, -60.77376, -60.77514, -60.7312, -60.72708, -60.68589, -60.66393, -60.70511, -60.70511, -60.78337, 
  -60.782, -60.75042, -60.74905, -60.8177, -60.83692, -60.90282, -60.85477, -60.85752, -60.89596, -60.81495, 
  -60.79573, -60.75866, -60.75866, -60.73807, -60.72708, -60.69413, -60.68452, -60.64333, -60.71473, -60.69139, 
  -60.69825, -60.67216, -60.65981, -60.61587, -60.61724, -60.55821, -60.57331, -60.71335, -60.77102)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -68.77354, -68.78646, -68.81179, -68.82965, -68.84453, -68.85146, -68.8683, -68.89601, -68.92665, -68.91776, 
  -68.92171, -68.89799, -68.88117, -68.87424, -68.83412, -68.81725, -68.81477, -68.79938, -68.80286, -68.78, 
  -68.77553, -68.75862)
LONGITUDE_VALUEs <- c(
  -90.69827, -90.68454, -90.72161, -90.71337, -90.74495, -90.72024, -90.72161, -90.67768, -90.67218, -90.55274, 
  -90.52253, -90.43466, -90.4429, -90.41407, -90.46761, -90.46075, -90.48958, -90.49507, -90.54312, -90.54587, 
  -90.62138, -90.67905)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -63.35192, -63.36362, -63.35192, -63.34638, -63.35685, -63.34453, -63.35316, -63.35562, -63.34207, -63.33591, 
  -63.35377, -63.33344, -63.31186, -63.30014, -63.27792, -63.26556, -63.26309, -63.2495, -63.25197, -63.26803, 
  -63.26742, -63.27483, -63.26186, -63.24702, -63.24517, -63.23095, -63.2328, -63.24146, -63.24393, -63.24826, 
  -63.26, -63.27112, -63.281, -63.28224, -63.29273, -63.29458, -63.30322, -63.30816, -63.32111, -63.32604)
LONGITUDE_VALUEs <- c(
  -62.27525, -62.26426, -62.25465, -62.22856, -62.20522, -62.17776, -62.16953, -62.14207, -62.12559, -62.06793, 
  -62.01575, -61.96495, -61.95671, -62.00751, -62.02124, -62.00614, -62.03497, -62.05008, -62.08303, -62.09127, 
  -62.11461, -62.13657, -62.17502, -62.16541, -62.18188, -62.18875, -62.21072, -62.20797, -62.22719, -62.21209, 
  -62.21483, -62.26701, -62.26701, -62.23543, -62.23817, -62.26563, -62.22856, -62.2519, -62.25328, -62.23131)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -63.08896, -63.09828, -63.04293, -62.9294, -62.87874, -62.87561, -62.88938, -62.9194, -62.95939, -62.96376, 
  -62.97998, -62.9856, -63.00493, -63.01988, -63.03919, -63.05226, -63.07715)
LONGITUDE_VALUEs <- c(
  -62.72023, -62.70925, -62.54999, -62.36052, -62.31095, -62.35763, -62.38509, -62.532, -62.54586, -62.5747, 
  -62.57744, -62.60627, -62.59941, -62.63785, -62.63648, -62.67356, -62.68454)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -62.77211, -62.80163, -62.81042, -62.8261, -62.83676, -62.76772, -62.75074, -62.72684, -62.70922, -62.74446, 
  -62.75012)
LONGITUDE_VALUEs <- c(
  -61.51993, -61.51032, -61.48149, -61.47462, -61.41559, -61.26319, -61.26319, -61.23298, -61.32772, -61.40323, 
  -61.49659)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -62.92128, -62.93753, -62.94939, -62.9962, -63.00119, -63.01614, -63.01614, -62.98622, -62.98622, -62.97125, 
  -62.96438, -62.90001, -62.89376)
LONGITUDE_VALUEs <- c(
  -60.73716, -60.74128, -60.75364, -60.7303, -60.68911, -60.66989, -60.56554, -60.5573, -60.51611, -60.51611, 
  -60.49689, -60.53671, -60.66577)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -62.6083, -62.58112, -62.57416, -62.59692, -62.62535, -62.63735, -62.67267, -62.65438, -62.67898, -62.65754, 
  -62.63293, -62.60703, -62.62788, -62.65501, -62.62851, -62.63735, -62.61588, -62.6064, -62.6304, -62.64176, 
  -62.66321, -62.66448, -62.72369, -62.67772, -62.69536, -62.7111, -62.76395, -62.75452, -62.7325, -62.73313, 
  -62.7111, -62.70859, -62.67267, -62.61209, -62.61461, -62.63798, -62.61461, -62.56151, -62.52858, -62.50894, 
  -62.50323, -62.48801, -62.48103, -62.46834, -62.47913, -62.50387, -62.51401, -62.56783, -62.54948, -62.57479, 
  -62.57732, -62.56467, -62.56214, -62.48928, -62.4804, -62.58491, -62.59313, -62.62725, -62.61335)
LONGITUDE_VALUEs <- c(
  -61.09838, -61.13271, -61.18214, -61.17527, -61.11898, -61.14781, -61.15193, -61.03797, -60.85399, -60.76612, 
  -60.77985, -60.72067, -60.60809, -60.60122, -60.52845, -60.46804, -60.42136, -60.34585, -60.31839, -60.37462, 
  -60.35814, -60.4062, -60.43091, -60.31284, -60.28126, -60.33892, -60.33068, -60.24556, -60.2181, -60.16044, 
  -60.14945, -60.05609, -60.00117, -59.79385, -59.95037, -59.97371, -60.06021, -60.11925, -60.01216, -60.03551, 
  -60.10141, -60.10003, -60.06708, -60.11651, -60.16456, -60.16868, -60.24694, -60.32658, -60.41719, -60.47486, 
  -60.61627, -60.61315, -60.69009, -60.71345, -60.81924, -60.82474, -60.90975, -61.00181, -61.05402)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -62.46326, -62.5026, -62.5026, -62.51844, -62.50513, -62.52035, -62.51528, -62.52541, -62.53112, -62.55771, 
  -62.55201, -62.55771, -62.53872, -62.51591, -62.51464, -62.49626, -62.46643, -62.5083, -62.48611, -62.45119, 
  -62.44675, -62.45437, -62.4423, -62.45056, -62.44484, -62.45818, -62.44484, -62.455, -62.46516)
LONGITUDE_VALUEs <- c(
  -59.97629, -59.94334, -59.87332, -59.8541, -59.81565, -59.78133, -59.7525, -59.74151, -59.78133, -59.72916, 
  -59.6866, -59.65227, -59.58088, -59.59598, -59.56303, -59.55754, -59.6509, -59.69209, -59.78957, -59.72504, 
  -59.74701, -59.77447, -59.80467, -59.84861, -59.88018, -59.90078, -59.93373, -60.02984, -60.00787)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -62.37297, -62.38379, -62.41052, -62.43213, -62.44548, -62.44421, -62.46516, -62.43213, -62.44421, -62.40543, 
  -62.37488, -62.3787, -62.36533, -62.36405, -62.33665, -62.34239, -62.36023, -62.37106, -62.3787, -62.39334, 
  -62.38952, -62.37934)
LONGITUDE_VALUEs <- c(
  -59.63164, -59.60143, -59.62066, -59.57123, -59.57535, -59.51356, -59.51082, -59.43256, -59.38313, -59.34469, 
  -59.38725, -59.4408, -59.46963, -59.51219, -59.52317, -59.64949, -59.69205, -59.67695, -59.69892, -59.69342, 
  -59.65498, -59.65635)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -62.27772, -62.23169, -62.23041, -62.1984, -62.18238, -62.15545, -62.17084, -62.21121, -62.1952, -62.20416, 
  -62.22465, -62.2432, -62.21953, -62.22401, -62.24384, -62.26174, -62.23041, -62.23617, -62.21057, -62.15481, 
  -62.18046, -62.18495, -62.15674, -62.15096, -62.12658, -62.1163, -62.0996, -62.08803, -62.05587, -62.0771, 
  -62.09124, -62.11373, -62.12914, -62.133, -62.19263, -62.18431, -62.15353, -62.16187, -62.13941, -62.11373, 
  -62.07646, -62.05909, -62.04171, -62.08096, -62.03334, -62.00563, -62.02754, -62.02239, -61.96887, -61.95725, 
  -61.9411, -61.93206, -61.90426, -61.94885, -61.93658, -61.94498, -61.89973, -61.93141, -61.94433, -61.96822, 
  -61.9424, -61.95079, -61.93852, -61.94046, -61.95983, -61.97339, -61.99145, -61.99467, -62.01079, -62.00692, 
  -62.01852, -62.0578, -62.06874, -62.09317, -62.1163, -62.1407, -62.16251, -62.17533, -62.18687, -62.19968, 
  -62.21121, -62.23681, -62.27389, -62.30518, -62.30709, -62.33261, -62.34918, -62.34664, -62.35365, -62.33707, 
  -62.33899, -62.32113, -62.32559, -62.31603, -62.31347, -62.26494, -62.25855)
LONGITUDE_VALUEs <- c(
  -58.98742, -58.99429, -58.94761, -58.96409, -58.86387, -58.8419, -58.79797, -58.80209, -58.72796, -58.71698, 
  -58.79797, -58.74169, -58.67717, -58.63598, -58.68678, -58.61127, -58.52325, -58.46559, -58.42853, -58.47383, 
  -58.53835, -58.63994, -58.60699, -58.53561, -58.47795, -58.49991, -58.4601, -58.51227, -58.43671, -58.27883, 
  -58.29393, -58.39552, -58.40239, -58.331, -58.28432, -58.2198, -58.21294, -58.17038, -58.12096, -58.20195, 
  -58.17587, -58.21019, -58.17999, -57.92993, -57.90659, -57.72538, -57.69243, -57.61281, -57.70341, -57.66223, 
  -57.67047, -57.64232, -57.6643, -57.81404, -57.91296, -57.9473, -57.99676, -58.05024, -58.15877, -58.22196, 
  -58.29615, -58.35522, -58.36209, -58.42116, -58.42391, -58.49789, -58.52399, -58.56657, -58.5968, -58.65312, 
  -58.70945, -58.70666, -58.76986, -58.79184, -58.87976, -58.89624, -58.97455, -58.97304, -58.99914, -58.99364, 
  -59.01425, -59.01288, -59.19834, -59.23955, -59.16262, -59.11457, -59.11319, -59.07198, -59.03626, -59.01978, 
  -58.97582, -58.95933, -58.91125, -58.88652, -58.83569, -58.87141, -58.94007)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -61.2079, -61.20261, -61.16223, -61.15627, -61.14567, -61.14434, -61.12246, -61.11914, -61.10189, -61.10588, 
  -61.09725, -61.11251, -61.10455, -61.11583, -61.07866, -61.07932, -61.06072, -61.05806, -61.11649, -61.14036, 
  -61.16223, -61.17084, -61.23302, -61.27595)
LONGITUDE_VALUEs <- c(
  -55.12867, -55.06551, -55.05864, -54.75384, -54.73462, -54.69755, -54.68657, -54.64812, -54.65774, -54.71815, 
  -54.74423, -54.82387, -54.85819, -54.99411, -55.15618, -55.27289, -55.3127, -55.37311, -55.45686, -55.36899, 
  -55.35115, -55.38822, -55.36213, -55.21522)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -61.18276, -61.22708, -61.27067, -61.29443, -61.31355, -61.27001, -61.20062, -61.16819, -61.1556, -61.1271, 
  -61.13108, -61.15627)
LONGITUDE_VALUEs <- c(
  -54.12341, -54.14675, -54.22776, -54.22089, -54.0987, -54.04103, -54.05476, -54.04241, -54.00122, -54.02044, 
  -54.04652, -54.06163)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -60.59618, -60.59416, -60.57932, -60.57797, -60.60158, -60.62045, -60.62449, -60.65681, -60.65815, -60.63796, 
  -60.6319, -60.63931, -60.66219, -60.63257, -60.63931, -60.65815, -60.66219, -60.65142, -60.65479, -60.66825, 
  -60.67094, -60.68371, -60.68371, -60.69783, -60.70052, -60.72269, -60.72202, -60.73545, -60.73008, -60.70791, 
  -60.69783, -60.68506, -60.68237, -60.68977, -60.67295, -60.6595, -60.63257, -60.62853, -60.63661, -60.62045, 
  -60.61371, -60.58674, -60.5368, -60.56448, -60.55098, -60.55503, -60.50774, -60.53747, -60.52936, -60.5557, 
  -60.54625, -60.52058, -60.53477, -60.56785, -60.58, -60.59416, -60.60832, -60.63324, -60.61977)
LONGITUDE_VALUEs <- c(
  -45.87406, -45.82875, -45.82463, -45.78619, -45.75186, -45.76422, -45.73951, -45.70106, -45.66262, -45.66262, 
  -45.63104, -45.60221, -45.59122, -45.54592, -45.48139, -45.47309, -45.44014, -45.42229, -45.39208, -45.38522, 
  -45.33991, -45.31931, -45.29185, -45.28636, -45.25341, -45.23144, -45.2136, -45.19025, -45.16142, -45.193, 
  -45.17927, -45.18888, -45.17103, -45.1573, -45.1628, -45.22321, -45.2136, -45.31245, -45.34815, -45.36462, 
  -45.3962, -45.37973, -45.49646, -45.52392, -45.5857, -45.62415, -45.70653, -45.75321, -45.81224, -45.83147, 
  -45.87815, -45.91477, -45.95873, -45.96011, -46.0082, -45.99995, -46.02468, -46.00545, -45.87905)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -60.71732, -60.70791, -60.67295, -60.70254, -60.68439, -60.71866, -60.72269, -60.67228, -60.72135, -60.72068, 
  -60.73746, -60.72873, -60.73545, -60.73209, -60.71127, -60.71866, -60.74619, -60.74216, -60.77704, -60.77235, 
  -60.74552, -60.73746, -60.75021, -60.73478)
LONGITUDE_VALUEs <- c(
  -44.52548, -44.45134, -44.51724, -44.55019, -44.58726, -44.57902, -44.6106, -44.68612, -44.6765, -44.73692, 
  -44.74103, -44.77811, -44.78634, -44.81518, -44.8344, -44.8495, -44.82891, -44.75888, -44.73966, -44.71907, 
  -44.73966, -44.72593, -44.63257, -44.51312)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-60.67497, -60.67363, -60.71597, -60.73679, -60.72672, -60.73075, -60.70388, -60.69044, -60.68304)
LONGITUDE_VALUEs <- c(-45.61036, -45.62684, -45.66803, -45.65842, -45.61723, -45.58428, -45.60762, -45.59938, -45.61174)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -60.70186, -60.7153, -60.72336, -60.7059, -60.6938, -60.68573, -60.67497, -60.65883, -60.64873, -60.63055, 
  -60.62786, -60.64806, -60.68573, -60.69985)
LONGITUDE_VALUEs <- c(
  -45.05007, -45.05968, -45.02536, -45.00202, -45.03085, -45.02536, -45.04046, -45.03222, -45.0487, -45.05145, 
  -45.07341, -45.0638, -45.08302, -45.07479)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -63.15773, -63.18996, -63.13788, -63.1056, -63.07887, -63.03033, -63.00479, -62.99481, -63.00977, -63.00977, 
  -62.98234, -62.9867, -62.97547, -63.00292, -63.00479, -63.02597, -63.04279, -63.14223)
LONGITUDE_VALUEs <- c(
  -56.37653, -56.32024, -56.15823, -56.1445, -56.04976, -56.02917, -56.08133, -56.16783, -56.24609, -56.3216, 
  -56.38201, -56.45066, -56.49185, -56.49734, -56.5454, -56.5756, -56.62778, -56.485)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -63.53047, -63.52741, -63.5023, -63.44403, -63.41885, -63.39856, -63.40163, -63.3918, -63.44464, -63.46612, 
  -63.48146, -63.49923, -63.54393, -63.54454, -63.558, -63.58917, -63.58856, -63.55311, -63.54882)
LONGITUDE_VALUEs <- c(
  -55.86982, -55.78058, -55.72703, -55.72566, -55.82726, -55.87669, -55.94533, -56.00575, -56.20071, -56.20345, 
  -56.24464, -56.20345, -56.16227, -56.04968, -56.03046, -56.02085, -55.94671, -55.92062, -55.88492)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-63.17385, -63.20977, -63.22277, -63.16269, -63.14657, -63.16641)
LONGITUDE_VALUEs <- c(-56.70197, -56.69648, -56.60998, -56.57154, -56.61822, -56.66353)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-63.5745, -63.61908, -63.60871, -63.6203, -63.60566, -63.58734, -63.56472, -63.55494)
LONGITUDE_VALUEs <- c(-56.6896, -56.68274, -56.62919, -56.56054, -56.51798, -56.51661, -56.48091, -56.56054)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -63.33207, -63.37826, -63.39918, -63.43052, -63.4428, -63.40348, -63.40594, -63.39303, -63.38687, -63.36718, 
  -63.33454, -63.33885, -63.2926, -63.30185, -63.32159, -63.32652, -63.29877, -63.29198, -63.28704, -63.29753, 
  -63.31481, -63.33885, -63.32652, -63.35918, -63.36287, -63.31851, -63.22462, -63.19925, -63.21534, -63.18686, 
  -63.21287, -63.17695, -63.15215, -63.1174, -63.12485, -63.14843, -63.15587, -63.12485, -63.14657, -63.14409, 
  -63.16579, -63.17447, -63.21596, -63.22401, -63.29815, -63.31481, -63.32652)
LONGITUDE_VALUEs <- c(
  -56.54402, -56.55638, -56.45341, -56.46714, -56.33396, -56.25432, -56.13076, -56.11016, -56.03877, -56.01543, 
  -56.02366, -55.94678, -55.90147, -55.84501, -55.84501, -55.76949, -55.77636, -55.80794, -55.78872, -55.72281, 
  -55.70771, -55.61847, -55.4235, -55.36447, -55.15976, -55.04306, -55.05267, -55.13647, -55.20375, -55.33967, 
  -55.44814, -55.53875, -55.50031, -55.60609, -55.70082, -55.71867, -55.77222, -55.83812, -55.96044, -56.05518, 
  -56.10323, -56.1911, -56.26661, -56.35998, -56.48638, -56.43421, -56.45755)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-63.691, -63.69221, -63.63007, -63.63312, -63.62824, -63.63677, -63.63799, -63.65506, -63.65994)
LONGITUDE_VALUEs <- c(-57.54242, -57.44906, -57.4065, -57.48064, -57.52458, -57.54654, -57.57949, -57.57126, -57.53693)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -63.86998, -63.90142, -63.90444, -63.85909, -63.84154, -63.80338, -63.82095, -63.81004, -63.78579, -63.80095, 
  -63.79792, -63.81186, -63.79125, -63.79853, -63.83125, -63.85002, -63.91229, -63.8845, -63.87784, -63.90444, 
  -63.87361)
LONGITUDE_VALUEs <- c(
  -57.25956, -57.25819, -57.21975, -57.14011, -57.0495, -57.20876, -57.32684, -57.35293, -57.3337, -57.53553, 
  -57.58908, -57.61379, -57.64262, -57.68381, -57.70853, -57.63027, -57.62203, -57.54377, -57.42844, -57.34881, 
  -57.31311)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -64.44523, -64.54988, -64.57643, -64.53867, -64.49967, -64.46122, -64.43101, -64.3687, -64.33422, -64.32887, 
  -64.36276, -64.37761, -64.44286, -64.43219)
LONGITUDE_VALUEs <- c(
  -57.45447, -57.44623, -57.26088, -57.18124, -57.03571, -57.00138, -56.93548, -56.9547, -56.88602, -56.92995, 
  -56.98081, -57.07829, -57.28012, -57.32955)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-64.20963, -64.25977, -64.24247, -64.30209, -64.31102, -64.32411, -64.30804, -64.26514, -64.24128)
LONGITUDE_VALUEs <- c(-56.61822, -56.71708, -56.80357, -56.85575, -56.89968, -56.88733, -56.70197, -56.66216, -56.57566)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-65.10607, -65.12918, -65.18514, -65.21682, -65.25651, -65.25537, -65.23294, -65.11936, -65.10144)
LONGITUDE_VALUEs <- c(-59.8352, -59.84619, -59.78989, -59.6169, -59.52765, -59.44665, -59.43017, -59.63063, -59.76106)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -64.09021, -64.08901, -64.06679, -64.0776, -64.08781, -64.10521, -64.13158, -64.13158, -64.18545, -64.19502, 
  -64.21653, -64.22012, -64.2434, -64.27561, -64.28097, -64.29884, -64.30123, -64.32444, -64.35537, -64.38566, 
  -64.38566, -64.372, -64.38091, -64.3999, -64.34764, -64.38329, -64.41948, -64.44023, -64.43904, -64.41948, 
  -64.42185, -64.38507, -64.38329, -64.3518, -64.33634, -64.39338, -64.3821, -64.3821, -64.35834, -64.35418, 
  -64.37853, -64.37022, -64.38803, -64.38566, -64.34466, -64.30123, -64.27918, -64.28395, -64.27322, -64.25116, 
  -64.24221, -64.24161, -64.21414, -64.22669, -64.18187, -64.15314, -64.16511, -64.14057, -64.12918, -64.0752, 
  -64.06379, -64.074, -64.04517, -64.06619, -64.06199, -64.05118, -64.02292, -64.00005, -63.99283, -63.97114, 
  -63.93858, -63.97837, -63.99222, -64.00968, -64.00908, -64.03134, -64.04036, -64.08421, -64.0788, -64.09141, 
  -64.06499, -64.05658, -63.99825, -63.97777, -63.94461, -63.91745, -63.90417, -63.84975, -63.8328, -63.79947, 
  -63.80492, -63.8443, -63.86306, -63.84067, -63.86246, -63.89873, -63.91685, -63.88544, -63.90054, -63.92047, 
  -63.91745, -63.95667, -63.97054, -63.96632, -63.99042, -63.99524, -64.01389, -63.99463, -63.99102, -64.03374, 
  -64.04937, -64.06559, -64.05959, -64.09141, -64.1106, -64.1154, -64.14117, -64.13338, -64.14716)
LONGITUDE_VALUEs <- c(
  -58.25515, -58.19474, -58.07941, -58.0341, -58.04234, -58.02861, -58.06843, -58.14806, -58.18791, -58.17281, 
  -58.18105, -58.13437, -58.11652, -58.1632, -58.214, -58.24832, -58.28539, -58.32246, -58.2277, -58.23045, 
  -58.19337, -58.17553, -58.1412, -58.1412, -58.04647, -57.99292, -58.0396, -57.97644, -57.91603, -57.92564, 
  -57.85425, -57.81306, -57.81581, -57.82954, -57.76363, -57.69498, -57.65506, -57.60701, -57.59053, -57.50953, 
  -57.50953, -57.46147, -57.43401, -57.31868, -57.2926, -57.41205, -57.39694, -57.33241, -57.30083, -57.33379, 
  -57.3077, -57.26018, -57.23292, -57.2027, -57.06256, -57.0708, -57.22331, -57.24941, -57.17247, -57.14911, 
  -57.23969, -57.28229, -57.29603, -57.34411, -57.38121, -57.37709, -57.51448, -57.48832, -57.51442, -57.4732, 
  -57.53778, -57.58174, -57.66693, -57.67105, -57.737, -57.75074, -57.69028, -57.71364, -57.77822, -57.82355, 
  -57.87164, -57.81531, -57.82081, -57.89225, -57.80844, -57.84554, -57.77272, -57.78093, -57.81115, -57.8084, 
  -57.96366, -57.9403, -57.96503, -58.02823, -58.12441, -58.09252, -58.12687, -58.19007, -58.2258, -58.23816, 
  -58.28625, -58.33571, -58.27114, -58.18595, -58.18733, -58.24228, -58.29861, -58.29587, -58.33846, -58.4154, 
  -58.40011, -58.40423, -58.44133, -58.46056, -58.40835, -58.45094, -58.4482, -58.39873, -58.32866)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-74.73359, -74.74697, -74.76177, -74.76213, -74.75202, -74.73649, -74.73215)
LONGITUDE_VALUEs <- c(-140.3945, -140.4014, -140.3836, -140.2998, -140.2627, -140.2984, -140.3506)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-74.13783, -74.15509, -74.17682, -74.16596, -74.12845, -74.12995)
LONGITUDE_VALUEs <- c(-132.3031, -132.2921, -132.1823, -132.1137, -132.1713, -132.2564)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -67.66188, -67.68536, -67.67075, -67.65614, -67.62009, -67.60701, -67.60597, -67.58869, -67.59812, -67.61015, 
  -67.61643, -67.64778, -67.68118, -67.67753, -67.65614)
LONGITUDE_VALUEs <- c(
  -64.77384, -64.73678, -64.69422, -64.6242, -64.5638, -64.57753, -64.70246, -64.7656, -64.94544, -64.97015, 
  -65.01271, -64.95231, -64.95917, -64.92485, -64.88779)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-68.69468, -68.71413, -68.74949, -68.80617, -68.78978, -68.74302, -68.68669, -68.68569)
LONGITUDE_VALUEs <- c(-61.02444, -61.04092, -60.97639, -60.7389, -60.66064, -60.67575, -60.84048, -60.94894)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -69.73175, -69.72889, -69.54156, -69.53676, -69.50697, -69.4935, -69.40384, -69.3758, -69.29049, -69.25939, 
  -69.16093, -69.14236, -69.18534, -69.21655, -69.26328, -69.30603, -69.34482, -69.40867, -69.44631, -69.56267, 
  -69.61439, -69.6679)
LONGITUDE_VALUEs <- c(
  -62.12122, -61.97844, -61.91255, -61.79174, -61.79723, -61.73134, -61.84117, -61.82469, -62.03611, -62.03336, 
  -62.29435, -62.4838, -62.59912, -62.53871, -62.56342, -62.49204, -62.47548, -62.30525, -62.29682, -62.15954, 
  -62.22269, -62.13483)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-69.94506, -69.99539, -69.98364, -69.94742, -69.8535, -69.8464, -69.88564)
LONGITUDE_VALUEs <- c(-61.40349, -61.24011, -61.1344, -61.10557, -61.20854, -61.29365, -61.39387)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-70.54005, -70.61677, -70.7177, -70.70953, -70.62406, -70.5135, -70.50983)
LONGITUDE_VALUEs <- c(-60.95818, -60.99387, -60.87032, -60.67812, -60.43376, -60.46945, -60.75225)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-70.97607, -71.01765, -71.03194, -71.0694, -71.06317, -70.97025, -70.91599, -70.90881, -70.94605)
LONGITUDE_VALUEs <- c(-60.96195, -60.8988, -60.77662, -60.65581, -60.54324, -60.51029, -60.61188, -60.75602, -60.92076)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-72.19021, -72.22294, -72.25854, -72.25771, -72.21203, -72.17802, -72.17298)
LONGITUDE_VALUEs <- c(-60.25479, -60.25891, -60.21086, -60.14496, -60.11064, -60.15457, -60.22047)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-72.54196, -72.53124, -72.57448, -72.59174, -72.58023, -72.56461, -72.55308)
LONGITUDE_VALUEs <- c(-60.80717, -60.91563, -60.94857, -60.92798, -60.8868, -60.7756, -60.80168)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -74.07356, -73.66457, -73.6042, -73.64911, -73.93886, -74.01921, -74.04792, -74.11271, -74.07356, -74.10218, 
  -74.17574, -74.47258, -74.49462, -74.35598, -74.16825)
LONGITUDE_VALUEs <- c(
  -20.74159, -20.49982, -20.60416, -20.87323, -21.07131, -21.44471, -21.94991, -22.05974, -21.6424, -21.29096, 
  -20.99443, -20.82946, -20.43409, -20.35721, -20.69767)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-72.45689, -72.47675, -72.57489, -72.69049, -72.71743, -72.68804, -72.50071)
LONGITUDE_VALUEs <- c(-16.31691, -16.45969, -16.50362, -16.40752, -16.17139, -16.0753, -16.2318)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-71.99579, -72.0678, -72.15723, -72.21604, -72.16816, -72.02547)
LONGITUDE_VALUEs <- c(-12.89474, -12.96338, -12.87826, -12.60096, -12.4472, -12.71353)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-70.48416, -70.54646, -70.62861, -70.57022, -70.56657, -70.48232, -70.40878, -70.40694)
LONGITUDE_VALUEs <- c(-6.34342, -6.20065, -6.1677, -6.01943, -5.84371, -5.96452, -5.95903, -6.14573)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-70.52571, -70.52388, -70.31956, -70.30105, -70.49639, -70.54768)
LONGITUDE_VALUEs <- c(-3.27315, -2.72402, -2.6746, -3.22922, -3.52575, -3.43239)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-71.09661, -71.1446, -71.2367, -71.23228, -71.20398, -71.16678, -71.13572, -71.12062, -71.05385, -71.04939)
LONGITUDE_VALUEs <- c(-3.36557, -3.40401, -3.23927, -2.94274, -2.94274, -3.10474, -3.09925, -3.22005, -3.22829, -3.42598)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -70.82769, -70.83446, -70.88639, -70.94117, -70.98238, -71.0378, -71.06901, -71.17653, -71.12062, -71.08148, 
  -71.06455, -70.98417, -70.96268, -70.87739, -70.87544, -70.82499, -70.80377, -70.83536, -70.78525, -70.76038, 
  -70.7246, -70.69738, -70.69783, -70.66467, -70.69647, -70.6774, -70.73547, -70.74635)
LONGITUDE_VALUEs <- c(
  -3.19891, -3.02868, -2.929, -2.96744, -2.81369, -2.89605, -2.82188, -2.79168, -2.4924, -2.47044, 
  -2.34963, -2.27001, -2.35778, -2.24795, -2.10864, -2.06746, -2.15807, -2.71543, -2.76507, -2.50561, 
  -2.50423, -2.63053, -2.91471, -3.12612, -3.39931, -3.55169, -3.59837, -3.44187)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -70.05185, -70.10145, -70.2189, -70.31165, -70.40858, -70.42515, -70.25141, -70.19751, -70.12387, -70.04341, 
  -70.02184)
LONGITUDE_VALUEs <- c(
  0.98761, 0.92172, 0.95467, 1.14424, 1.14149, 1.17993, 1.27603, 1.40235, 1.45727, 1.42706, 
  1.26233)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-70.51513, -70.58463, -70.62477, -70.58555, -70.48946, -70.38554, -70.36801, -70.43343, -70.44262)
LONGITUDE_VALUEs <- c(2.59183, 2.59732, 2.78402, 3.0833, 3.25627, 3.22332, 3.11624, 2.93778, 2.80599)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-70.26904, -70.32829, -70.46743, -70.47569, -70.44078, -70.34493, -70.22262, -70.24306)
LONGITUDE_VALUEs <- c(4.04733, 4.05008, 4.23678, 4.43172, 4.56351, 4.56901, 4.47565, 4.1956)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-69.82847, -69.77347, -69.72974, -69.70117, -69.76017, -69.88522, -69.97946, -69.97946, -70.03018)
LONGITUDE_VALUEs <- c(16.27699, 16.62294, 16.60647, 16.11225, 15.72237, 15.54116, 15.7059, 15.88162, 16.05185)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-70.28922, -70.38994, -70.39547, -70.45621, -70.36873, -70.10218, -70.05726, -70.08909, -70.1498, -70.19172)
LONGITUDE_VALUEs <- c(25.8897, 25.98313, 26.17533, 26.48559, 26.85625, 26.65313, 26.43897, 26.17814, 26.14519, 25.98045)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-66.78974, -66.75291, -66.69213, -66.70734, -66.69865, -66.73231, -66.82112, -66.7735)
LONGITUDE_VALUEs <- c(48.73374, 48.82434, 48.74197, 48.59096, 48.3768, 48.26972, 48.31915, 48.55252)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-67.26768, -67.29579, -67.3191, -67.31751, -67.33181, -67.32016, -67.28943, -67.25813, -67.26556)
LONGITUDE_VALUEs <- c(59.30791, 59.29967, 59.33262, 59.39165, 59.49324, 59.52481, 59.41911, 59.36145, 59.34497)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-72.31495, -72.23049, -72.16667, -72.08236, -72.11529, -72.19609, -72.25896, -72.30243)
LONGITUDE_VALUEs <- c(68.43599, 68.85058, 68.85607, 68.71604, 68.63093, 68.56778, 68.41951, 68.40029)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-72.00064, -72.00107, -71.95943, -71.8887, -71.88998, -71.90748, -71.95263)
LONGITUDE_VALUEs <- c(69.73271, 69.82057, 69.90706, 69.93863, 69.85214, 69.77389, 69.69702)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -70.61859, -70.62725, -70.64364, -70.63954, -70.65775, -70.65365, -70.55606, -70.5135, -70.40049, -70.26507, 
  -70.26043, -70.3248, -70.49425)
LONGITUDE_VALUEs <- c(
  71.82241, 71.9336, 71.95557, 72.11756, 72.19856, 72.24112, 72.20268, 72.09149, 72.00361, 71.82785, 
  71.74274, 71.63978, 71.65759)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-69.76096, -69.78992, -69.87561, -69.8638, -69.81268, -69.76143, -69.74623, -69.73577, -69.75098, -69.74718)
LONGITUDE_VALUEs <- c(74.32726, 74.37119, 74.41649, 74.46042, 74.49474, 74.45355, 74.46179, 74.42747, 74.3808, 74.35197)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-66.57448, -66.61267, -66.64862, -66.61049, -66.56465, -66.51217, -66.52858)
LONGITUDE_VALUEs <- c(85.08864, 85.03922, 85.25887, 85.35222, 85.19297, 85.15728, 85.06118)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -66.7437, -66.94566, -66.98542, -66.98006, -66.95265, -66.94674, -66.89506, -66.82436, -66.767, -66.73556, 
  -66.72146)
LONGITUDE_VALUEs <- c(
  85.25641, 85.6355, 85.59157, 85.73297, 85.81533, 85.87299, 85.9334, 85.89086, 85.78231, 85.62169, 
  85.33202)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-66.70788, -66.73611, -66.79948, -66.78108, -66.75779, -66.73611, -66.6905, -66.6693, -66.68398, -66.66658)
LONGITUDE_VALUEs <- c(86.2466, 86.22463, 86.31249, 86.55273, 86.55548, 86.65295, 86.4937, 86.52528, 86.42781, 86.39486)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-65.7374, -65.68317, -65.71821, -65.79039, -65.82528, -65.7825)
LONGITUDE_VALUEs <- c(92.66354, 92.39172, 92.25444, 92.24071, 92.46036, 92.69923)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-66.10494, -66.1827, -66.22371, -66.20377, -66.14274, -66.12052, -66.05595, -66.076, -66.03587, -66.04703)
LONGITUDE_VALUEs <- c(96.33291, 96.29173, 96.34664, 96.97012, 97.05249, 97.00032, 96.96463, 96.72576, 96.67908, 96.43747)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-65.59934, -65.66959, -65.70691, -65.67751, -65.5596, -65.49588, -65.40802, -65.38629, -65.43087)
LONGITUDE_VALUEs <- c(100.2636, 100.2938, 100.7441, 101.0186, 101.2465, 101.252, 101.0598, 100.7193, 100.4805)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -65.778, -65.85732, -65.87865, -65.85956, -65.87921, -65.87192, -65.83315, -65.79377, -65.77856, -65.79264, 
  -65.778)
LONGITUDE_VALUEs <- c(
  100.522, 100.3902, 100.478, 100.6428, 100.7045, 100.894, 101.0422, 101.0189, 100.8061, 100.6839, 
  100.6249)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-66.3634, -66.40796, -66.42389, -66.35183, -66.33144)
LONGITUDE_VALUEs <- c(97.03253, 97.05312, 97.41829, 97.37436, 97.20413)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-66.37826, -66.42993, -66.46066, -66.48862, -66.47821, -66.44585, -66.414, -66.37165)
LONGITUDE_VALUEs <- c(98.58153, 98.61311, 98.70234, 98.72019, 98.86982, 98.88767, 98.97553, 98.72293)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-66.13052, -66.21374, -66.2381, -66.21042, -66.17993, -66.1705, -66.11218)
LONGITUDE_VALUEs <- c(100.1525, 100.0702, 100.1415, 100.3063, 100.2514, 100.3228, 100.2884)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -65.12533, -65.23255, -65.24406, -65.30839, -65.37714, -65.42401, -65.46739, -65.46967, -65.42401, -65.37256, 
  -65.29576, -65.2314, -65.12995)
LONGITUDE_VALUEs <- c(
  102.7848, 102.7546, 102.9386, 103.117, 103.161, 103.1115, 103.1886, 103.411, 103.422, 103.2216, 
  103.1474, 103.1996, 102.9303)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-70.34924, -70.36494, -70.39215, -70.38293, -70.37094, -70.36724, -70.33215, -70.34878)
LONGITUDE_VALUEs <- c(163.3486, 163.3307, 163.3801, 163.4694, 163.4886, 163.5696, 163.5133, 163.4282)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -66.23589, -66.28619, -66.33034, -66.35569, -66.37055, -66.39476, -66.40356, -66.47985, -66.4804, -66.50286, 
  -66.50614, -66.53952, -66.52311, -66.50231, -66.47656, -66.31821, -66.27846, -66.23976)
LONGITUDE_VALUEs <- c(
  162.276, 162.2376, 162.2788, 162.2651, 162.3008, 162.2953, 162.3379, 162.4079, 162.434, 162.4532, 
  162.482, 162.5548, 162.5877, 162.5602, 162.6303, 162.39, 162.368, 162.3021)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -66.9026, -66.81463, -66.80057, -66.78325, -66.76538, -66.75725, -66.71766, -66.71494, -66.70028, -66.70408, 
  -66.68833, -66.68833, -66.88589)
LONGITUDE_VALUEs <- c(
  163.2772, 163.3074, 163.2854, 163.3142, 163.2566, 163.2799, 163.2552, 163.2277, 163.214, 163.1701, 
  163.1453, 163.0835, 163.203)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-67.38321, -67.50226, -67.57153, -67.56838, -67.40221, -67.38321, -67.25081, -67.27416)
LONGITUDE_VALUEs <- c(164.668, 164.6433, 164.6873, 164.8657, 164.9261, 164.8575, 164.7175, 164.55)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-73.33005, -73.33162, -73.42903, -73.55779, -73.58964, -73.62607, -73.62452, -73.49315)
LONGITUDE_VALUEs <- c(169.8206, 169.6833, 169.6613, 169.4499, 169.6366, 169.6668, 169.8892, 169.9414)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -77.86028, -77.78961, -77.78961, -77.76111, -77.75704, -77.66878, -77.66761, -77.63942, -77.62, -77.64764, 
  -77.63589, -77.68285, -77.68109, -77.69924, -77.65646, -77.65352, -77.58816, -77.58403, -77.51712, -77.46537, 
  -77.44866, -77.44269, -77.41998, -77.4128, -77.36543, -77.37804, -77.40262, -77.42238, -77.39963, -77.38404, 
  -77.37684, -77.31848, -77.27258, -77.19915, -77.16747, -77.16503, -77.21496, -77.26895, -77.35581, -77.44926, 
  -77.46894, -77.54025, -77.55447, -77.58107, -77.58107, -77.60763, -77.62294, -77.64, -77.63883, -77.69046, 
  -77.71679, -77.7562, -77.83198)
LONGITUDE_VALUEs <- c(
  166.689, 166.8894, 166.9251, 166.9279, 167.0707, 167.359, 167.4469, 167.4524, 167.6391, 167.9356, 
  168.1552, 168.2463, 168.3589, 168.5126, 168.6389, 168.8284, 169.0182, 169.1088, 169.3614, 169.3202, 
  169.2158, 169.0017, 168.9605, 168.6694, 168.3973, 168.1008, 167.9909, 167.7219, 167.3784, 167.3729, 
  167.2576, 167.0571, 167.1313, 167.0351, 166.9033, 166.6781, 166.431, 166.3676, 166.6807, 166.4362, 
  166.4774, 166.1562, 166.2303, 166.2495, 166.3264, 166.3154, 166.4225, 166.4088, 166.6641, 166.9854, 
  166.8784, 166.8315, 166.62)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -78.24688, -78.23373, -78.2508, -78.2494, -78.19474, -78.13503, -78.09826, -78.07672, -78.03608, -78.00615, 
  -78.00615, -78.06906, -78.096, -78.1387, -78.14124, -78.23289, -78.19502, -78.19221, -78.15985, -78.14773, 
  -78.1466, -78.11157, -78.12288, -78.11157, -78.11836, -78.13757, -78.14265, -78.15337, -78.14547, -78.1652, 
  -78.17055, -78.23905, -78.25192, -78.27287, -78.27538, -78.28849, -78.30214, -78.30993, -78.30047, -78.28598, 
  -78.28068, -78.28514, -78.27287, -78.27064)
LONGITUDE_VALUEs <- c(
  166.7788, 167.0011, 167.0975, 167.4544, 167.5726, 167.6412, 167.6316, 167.5904, 167.5808, 167.5176, 
  167.4119, 167.3514, 167.2113, 167.1989, 167.1111, 166.728, 166.7486, 166.6855, 166.5702, 166.4299, 
  166.3544, 166.2089, 166.1623, 166.1101, 166.0154, 166.0332, 166.0675, 166.0813, 166.1472, 166.1623, 
  166.1252, 166.143, 166.0647, 166.0881, 166.1402, 166.1896, 166.2034, 166.2596, 166.3544, 166.3516, 
  166.4177, 166.5934, 166.6181, 166.7471)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
MGeo_1 <- MGeo_1 %>% 
  mutate(NAME = "ANTARCTICA", VISUALIZATION_NAME = "Antarctica", 
         ISO2 = "AQ", ISO3 = "ATA", M49_CODE = "010", SOVRN = NA, CONTINENT = NA, 
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, MGeo_1)

Numeric Code (M49_CODE) for FRENCH SOUTHERN TERRITORIES:

  • ADÉLIE LAND (We leave ADÉLIE LAND in ANTARCTICA)
  • CROZET ISLANDS \(\Rightarrow\) PIG ISLAND | PENGUIN ISLAND | APOSTLE ISLETS | POSSESSION ISLAND | EAST ISLAND
  • KERGUELEN ISLANDS
  • SAINT-PAUL AND AMSTERDAM ISLANDS
  • SCATTERED ISLANDS (in Indian Ocean around MADAGASCAR):
    • BASSAS DA INDIA | EUROPA ISLAND | GLORIOSO ISLANDS | JUAN DE NOVA ISLAND | TROMELIN ISLAND

No suitable Geometries in available sources. We create our own Geometries.

##### FRENCH SOUTHERN TERRITORIES #####
LATITUDE_VALUEs <- c(
  -46.07496, -46.0646, -46.05936, -46.05924, -46.05781, -46.06139, -46.06103, -46.0646, -46.06222, -46.06305,
  -46.06162, -46.06365, -46.07663, -46.08151, -46.08866, -46.09128, -46.09449, -46.09878, -46.10366, -46.10746, 
  -46.11294, -46.11651, -46.12103, -46.1221, -46.12496, -46.12591, -46.1246, -46.13055, -46.12983, -46.13198, 
  -46.1386, -46.14735, -46.14497, -46.14497, -46.14277, -46.14301, -46.13938, -46.13272, -46.13349, -46.13115, 
  -46.11671, -46.11338, -46.11082, -46.10047, -46.09595, -46.08928, -46.081)
LONGITUDE_VALUEs <- c(
  50.27373, 50.27184, 50.26601, 50.26086, 50.25502, 50.24747, 50.23941, 50.23374, 50.22516, 50.2195, 
  50.21607, 50.19238, 50.17282, 50.17091, 50.16491, 50.16611, 50.16525, 50.16903, 50.16748, 50.1752, 
  50.17812, 50.18842, 50.18876, 50.19563, 50.19443, 50.20095, 50.2049, 50.22103, 50.22859, 50.23957, 
  50.24818, 50.25324, 50.25634, 50.25942, 50.26346, 50.26655, 50.2668, 50.27212, 50.27959, 50.28561, 
  50.29135, 50.29676, 50.29444, 50.29487, 50.29238, 50.29478, 50.28998)
MGeo_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  -46.40319, -46.40366, -46.40479, -46.40727, -46.40834, -46.40929, -46.41035, -46.41272, -46.41289, -46.41496, 
  -46.41464, -46.41686, -46.41772, -46.41822, -46.42135, -46.42135, -46.4247, -46.42381, -46.42419, -46.4266, 
  -46.42655, -46.42712, -46.42792, -46.42788, -46.42881, -46.42937, -46.42881, -46.42888, -46.42941, -46.42938, 
  -46.42508, -46.42541, -46.42467, -46.42335, -46.42054, -46.41996, -46.41888, -46.41878, -46.41686, -46.41453, 
  -46.41425, -46.41337, -46.41242, -46.41283, -46.41273, -46.41319, -46.41338, -46.41427, -46.414, -46.41254, 
  -46.4118, -46.41143, -46.41121, -46.41038, -46.41058, -46.40967, -46.41041, -46.40936, -46.40916)
LONGITUDE_VALUEs <- c(
  50.39017, 50.3839, 50.38425, 50.39128, 50.39188, 50.39008, 50.3918, 50.3918, 50.38931, 50.39042, 
  50.38712, 50.3903, 50.38686, 50.39042, 50.39051, 50.39519, 50.40716, 50.41068, 50.41209, 50.4109, 
  50.41349, 50.41484, 50.41547, 50.41701, 50.41634, 50.41828, 50.41969, 50.42081, 50.42074, 50.42152, 
  50.42261, 50.42514, 50.42497, 50.42273, 50.42164, 50.41841, 50.41746, 50.41536, 50.41439, 50.41645, 
  50.41759, 50.41553, 50.41497, 50.41433, 50.4121, 50.41137, 50.40965, 50.40924, 50.40296, 50.4021, 
  50.4028, 50.40172, 50.40288, 50.40189, 50.40114, 50.39932, 50.39698, 50.39604, 50.39494)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -45.9613, -45.96148, -45.96041, -45.957, -45.95712, -45.95539, -45.95575, -45.95342, -45.95307, -45.95193, 
  -45.95289, -45.95098, -45.95056, -45.95151, -45.95128, -45.94871, -45.94996, -45.94913, -45.94787, -45.94704, 
  -45.95002, -45.9468, -45.94811, -45.9539, -45.95545)
LONGITUDE_VALUEs <- c(
  50.42681, 50.43102, 50.43068, 50.43265, 50.43471, 50.43479, 50.44063, 50.44054, 50.4432, 50.44398, 
  50.44775, 50.44689, 50.44964, 50.45127, 50.4541, 50.45384, 50.45196, 50.45015, 50.45118, 50.44947, 
  50.44501, 50.43848, 50.43239, 50.42124, 50.42081)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -45.96112, -45.95927, -45.95813, -45.95733, -45.95676, -45.95611, -45.95602, -45.95724, -45.95694, -45.95599,
  -45.95778, -45.95793, -45.95871, -45.95896, -45.95979, -45.96093, -45.96191, -45.9625, -45.96316, 
  -45.96382, -45.96423, -45.96423, -45.96453)
LONGITUDE_VALUEs <- c(
  50.4154, 50.41746, 50.41639, 50.41677, 50.41579, 50.4157, 50.41403, 50.4136, 50.41167, 50.41038,
  50.41008, 50.40819, 50.40735, 50.40805, 50.40851, 50.41142, 50.41194, 50.41301, 50.41302, 
  50.41188, 50.41201, 50.4133, 50.41446)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -46.3916, -46.39799, -46.40414, -46.40699, -46.41882, -46.42994, -46.44154, -46.4387, -46.44154, -46.45029, 
  -46.45266, -46.46779, -46.45857, -46.46252, -46.46122, -46.46359, -46.46335, -46.46607, -46.46619, -46.46879, 
  -46.47305, -46.46583, -46.46489, -46.46134, -46.46134, -46.45519, -46.45507, -46.45011, -46.45011, -46.44325, 
  -46.44313, -46.43792, -46.43449, -46.42633, -46.42597, -46.42219, -46.41781, -46.41367, -46.41367, -46.40976, 
  -46.41035, -46.40775, -46.40656, -46.39982, -46.39319, -46.39982, -46.39544, -46.3894, -46.39011, -46.38644, 
  -46.38241, -46.37448, -46.37578, -46.37104, -46.36642, -46.35801, -46.35114, -46.35256, -46.35837, -46.35564, 
  -46.35221, -46.34711, -46.3464, -46.34391, -46.34462, -46.34166, -46.35375, -46.35185, -46.36026, -46.35659, 
  -46.36476, -46.36619, -46.3701, -46.37353, -46.37827, -46.38549, -46.38904)
LONGITUDE_VALUEs <- c(
  51.6414, 51.65719, 51.65581, 51.65135, 51.67023, 51.67263, 51.68945, 51.69666, 51.70318, 51.70181, 
  51.72378, 51.72687, 51.75364, 51.76645, 51.77417, 51.78086, 51.79305, 51.79597, 51.80026, 51.80077, 
  51.80781, 51.8116, 51.83082, 51.83133, 51.83751, 51.8382, 51.84249, 51.84558, 51.85467, 51.85124,
  51.85811, 51.86257, 51.87235, 51.86275, 51.86669, 51.86772, 51.87459, 51.87442, 51.86738, 51.86738, 
  51.86086, 51.86412, 51.85554, 51.8533, 51.84438, 51.82996, 51.82087, 51.81846, 51.80559, 51.80015,
  51.8036, 51.8048, 51.79776, 51.78368, 51.78421, 51.79005, 51.78764, 51.77974, 51.77528, 51.766,
  51.76995, 51.76653, 51.75451, 51.75176, 51.74283, 51.73287, 51.73029, 51.72377, 51.7181, 51.70573, 
  51.69391, 51.68704, 51.68361, 51.66918, 51.66746, 51.64806, 51.64651)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -46.4103, -46.4219, -46.43562, -46.44154, -46.45076, -46.44627, -46.44911, -46.44674, -46.45289, -46.45336, 
  -46.46637, -46.47205, -46.47276, -46.4763, -46.47441, -46.46448, -46.46448, -46.47536, -46.46761, -46.46359, 
  -46.4624, -46.45495, -46.4423, -46.4384, -46.42727, -46.42443, -46.41899, -46.41828, -46.41213, -46.41189, 
  -46.39804, -46.39236, -46.38854, -46.38978, -46.39369, -46.39055, -46.38291, -46.38315, -46.38185, -46.3835, 
  -46.38185, -46.38386, -46.38386, -46.38765, -46.38718, -46.39499, -46.39617, -46.39262, -46.396, -46.40049, 
  -46.40629, -46.40547)
LONGITUDE_VALUEs <- c(
  52.09217, 52.09045, 52.10521, 52.11551, 52.1162, 52.12135, 52.12444, 52.13061, 52.14022, 52.15018, 
  52.17628, 52.18142, 52.19309, 52.19618, 52.2106, 52.21609, 52.22914, 52.25968, 52.28401, 52.28744, 
  52.3046, 52.30821, 52.32537, 52.31747, 52.31593, 52.31902, 52.31713, 52.3125, 52.30717, 52.29945, 
  52.27559, 52.27182, 52.25247, 52.23994, 52.23188, 52.21729, 52.21788, 52.2026, 52.19737, 52.19436, 
  52.18913, 52.18681, 52.18355, 52.17935, 52.17566, 52.16424, 52.15737, 52.15188, 52.1445, 52.1197, 
  52.11017, 52.09825)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -49.72614, -49.72026, -49.71538, -49.71693, -49.72093, -49.7196, -49.72104, -49.72293, -49.72048, -49.72248, 
  -49.71715, -49.71915, -49.70905, -49.70794, -49.71016, -49.70827, -49.71061, -49.70716, -49.70694, -49.70184, 
  -49.70039, -49.69284, -49.68751, -49.67385, -49.66841, -49.66541, -49.66007, -49.65474, -49.65118, -49.65029, 
  -49.64273, -49.64218, -49.63729, -49.63662, -49.62717, -49.62539, -49.62016, -49.61494, -49.61293, -49.60682, 
  -49.59068, -49.58267, -49.57265, -49.56764, -49.55985, -49.55406, -49.53691, -49.53869, -49.5456, -49.54949, 
  -49.55517, -49.55918, -49.56464, -49.56753, -49.57176, -49.57555, -49.58167, -49.5918, -49.59736, -49.60348, 
  -49.60648, -49.61438, -49.60893, -49.61494, -49.61939, -49.62672, -49.63006, -49.64207, -49.64084, -49.62828, 
  -49.62083, -49.61605, -49.61104, -49.60693, -49.60404, -49.60392, -49.59925, -49.60092, -49.5968, -49.5958, 
  -49.60593, -49.61049, -49.61004, -49.59803, -49.5997, -49.59625, -49.59625, -49.59335, -49.59091, -49.59291, 
  -49.58979, -49.58134, -49.5889, -49.57967, -49.56686, -49.56831, -49.57822, -49.57989, -49.5721, -49.56531, 
  -49.5594, -49.55618, -49.54069, -49.53501, -49.52844, -49.52131, -49.52209, -49.51841, -49.51852, -49.52487, 
  -49.52554, -49.52967, -49.531, -49.52799, -49.53902, -49.54649, -49.57265, -49.58211, -49.58256, -49.57443, 
  -49.56609, -49.5623, -49.55829, -49.55183, -49.54738, -49.54337, -49.53189, -49.52655, -49.51774, -49.50949, 
  -49.50593, -49.51084, -49.5231, -49.52611, -49.52388, -49.51631, -49.51051, -49.49713, -49.4842, -49.48442, 
  -49.52221, -49.55474, -49.56977, -49.57155, -49.57589, -49.57678, -49.58068, -49.57912, -49.57289, -49.56788, 
  -49.58024, -49.5819, -49.57478, -49.57044, -49.56565, -49.55496, -49.55285, -49.54973, -49.54706, -49.54538, 
  -49.54383, -49.54227, -49.53636, -49.5328, -49.52934, -49.52845, -49.52243, -49.52021, -49.50984, -49.50806, 
  -49.50226, -49.49881, -49.48308, -49.47706, -49.47304, -49.46724, -49.46189, -49.46903, -49.46903, -49.48531, 
  -49.50404, -49.50694, -49.54227, -49.55541, -49.56443, -49.56855, -49.56587, -49.5661, -49.57155, -49.57045, 
  -49.57246, -49.57012, -49.5729, -49.57735, -49.57869, -49.58136, -49.5847, -49.58526, -49.62475, -49.62642, 
  -49.63564, -49.63531, -49.64243, -49.64287, -49.64754, -49.64287, -49.64331, -49.64921, -49.64387, -49.64721, 
  -49.64454, -49.64854, -49.63998, -49.65276, -49.66676, -49.67299, -49.67154, -49.67132, -49.66621, -49.65976, 
  -49.65018, -49.64618, -49.62272, -49.62016, -49.60181, -49.59391, -49.56497, -49.55929, -49.55562, -49.54337, 
  -49.54281, -49.52911, -49.52499, -49.50827, -49.50203, -49.50972, -49.5232, -49.52621, -49.53524, -49.54638, 
  -49.54593, -49.54192, -49.54125, -49.53401, -49.52978, -49.52298, -49.51529, -49.50537, -49.50403, -49.49946, 
  -49.49879, -49.49523, -49.49846, -49.49601, -49.49121, -49.48876, -49.48274, -49.49077, -49.49812, -49.50359, 
  -49.5086, -49.51574, -49.51184, -49.50247, -49.50035, -49.50704, -49.50883, -49.52008, -49.52443, -49.53, 
  -49.52733, -49.55027, -49.55206, -49.55105, -49.55929, -49.57143, -49.57789, -49.59035, -49.6324, -49.64118, 
  -49.64618, -49.65641, -49.65896, -49.67263, -49.67574, -49.68218, -49.6854, -49.68796, -49.69273, -49.68984, 
  -49.69018, -49.69817, -49.70195, -49.70272, -49.70972, -49.71216, -49.7065, -49.71027, -49.70816, -49.71127, 
  -49.70816, -49.70938, -49.69995, -49.69129, -49.69195, -49.69584, -49.6934, -49.69961, -49.69562, -49.69928, 
  -49.71271, -49.72204, -49.71416, -49.71449, -49.71194, -49.71538, -49.71138, -49.72115, -49.71949, -49.72426, 
  -49.73402, -49.73069, -49.73358, -49.71505, -49.70916, -49.70372, -49.69373, -49.68862, -49.69528, -49.69406, 
  -49.70328, -49.69662, -49.69373, -49.68973, -49.6924, -49.68729, -49.68729, -49.6844, -49.68518, -49.69939, 
  -49.69362, -49.68962, -49.66841, -49.64084, -49.63763, -49.63107, -49.63241, -49.62963, -49.63519, -49.63452, 
  -49.63975, -49.6363, -49.63074, -49.62929, -49.62607, -49.62585, -49.62329, -49.62496, -49.6194, -49.61962, 
  -49.61673, -49.62084, -49.61862, -49.62362, -49.63252, -49.62907, -49.63052, -49.62685, -49.62918, -49.61272, 
  -49.59849, -49.59815, -49.5868, -49.574, -49.56454, -49.56098, -49.5573, -49.55441, -49.55051, -49.54327, 
  -49.53324, -49.53725, -49.53525, -49.52745, -49.53035, -49.52745, -49.52344, -49.51853, -49.51463, -49.51508, 
  -49.50928, -49.51363, -49.51976, -49.53681, -49.53603, -49.54327, -49.58369, -49.59515, -49.62829, -49.62996, 
  -49.63674, -49.63975, -49.60405, -49.60228, -49.59049, -49.59494, -49.59427, -49.59783, -49.5798, -49.5699, 
  -49.56722, -49.56021, -49.56065, -49.5498, -49.5488, -49.54446, -49.54546, -49.54178, -49.54011, -49.53323, 
  -49.53278, -49.53011, -49.53111, -49.5261, -49.52632, -49.52164, -49.52131, -49.51295, -49.51685, -49.51362, 
  -49.51384, -49.5076, -49.50191, -49.49612, -49.48876, -49.48485, -49.48597, -49.48296, -49.48575, -49.48207, 
  -49.47694, -49.47906, -49.47158, -49.47058, -49.46768, -49.4679, -49.46478, -49.46534, -49.46165, -49.46043, 
  -49.46288, -49.46076, -49.45384, -49.45284, -49.44793, -49.43956, -49.43822, -49.42851, -49.42627, -49.41868, 
  -49.42772, -49.43945, -49.44525, -49.45295, -49.45094, -49.45775, -49.4486, -49.44603, -49.44949, -49.45797, 
  -49.45741, -49.46645, -49.47058, -49.47459, -49.48853, -49.4814, -49.47058, -49.46812, -49.46612, -49.46143, 
  -49.45038, -49.43777, -49.43252, -49.4275, -49.42326, -49.42181, -49.42538, -49.42884, -49.42516, -49.42259, 
  -49.41756, -49.41086, -49.40673, -49.40472, -49.39936, -49.39399, -49.39042, -49.39344, -49.40047, -49.41667, 
  -49.41712, -49.42393, -49.41399, -49.41164, -49.40628, -49.40315, -49.39824, -49.3912, -49.3883, -49.39679, 
  -49.39533, -49.40517, -49.40986, -49.41667, -49.4198, -49.42415, -49.4323, -49.43353, -49.4515, -49.45351, 
  -49.45206, -49.45049, -49.44536, -49.44067, -49.43185, -49.43197, -49.44045, -49.44458, -49.45061, -49.45351, 
  -49.44558, -49.44726, -49.44302, -49.43342, -49.43096, -49.42549, -49.42672, -49.42147, -49.41946, -49.40572, 
  -49.40416, -49.40248, -49.39969, -49.39824, -49.40818, -49.40304, -49.40181, -49.40494, -49.40081, -49.39679, 
  -49.39198, -49.3873, -49.3844, -49.38015, -49.3854, -49.37926, -49.37758, -49.3721, -49.37467, -49.37054, 
  -49.37076, -49.36595, -49.33923, -49.33677, -49.34057, -49.35053, -49.3522, -49.3626, -49.36081, -49.35511, 
  -49.35522, -49.35097, -49.3418, -49.33822, -49.34404, -49.34918, -49.34751, -49.35377, -49.35231, -49.37579, 
  -49.36428, -49.373, -49.36696, -49.36685, -49.37076, -49.36148, -49.3702, -49.34952, -49.34225, -49.34706, 
  -49.34437, -49.34862, -49.35388, -49.35019, -49.35545, -49.3503, -49.35265, -49.35377, -49.35914, -49.36607, 
  -49.37523, -49.38306, -49.38842, -49.39356, -49.39434, -49.41422, -49.42439, -49.42885, -49.43689, -49.43421, 
  -49.45162, -49.44705, -49.44025, -49.434, -49.42295, -49.41681, -49.41278, -49.41446, -49.40943, -49.40742, 
  -49.41267, -49.41245, -49.39927, -49.39826, -49.39167, -49.38463, -49.37893, -49.38005, -49.37804, -49.38508, 
  -49.37815, -49.3731, -49.36114, -49.35409, -49.35264, -49.3485, -49.34514, -49.34816, -49.35364, -49.34816, 
  -49.35364, -49.36203, -49.3608, -49.37142, -49.38304, -49.38114, -49.37779, -49.36874, -49.36639, -49.35767, 
  -49.35387, -49.34761, -49.33609, -49.32702, -49.31729, -49.308, -49.30285, -49.27688, -49.27184, -49.25268, 
  -49.24338, -49.2306, -49.22074, -49.20874, -49.1927, -49.17609, -49.15746, -49.13377, -49.12456, -49.11669, 
  -49.09905, -49.08556, -49.08207, -49.06757, -49.07432, -49.07083, -49.06644, -49.0552, -49.0579, -49.05418, 
  -49.05576, -49.05036, -49.05958, -49.06127, -49.07938, -49.076, -49.09568, -49.12242, -49.13556, -49.13927, 
  -49.15117, -49.15263, -49.15903, -49.15544, -49.16622, -49.16049, -49.15578, -49.15218, -49.15028, -49.14533, 
  -49.14623, -49.15196, -49.15106, -49.1542, -49.15701, -49.16599, -49.16958, -49.17721, -49.17508, -49.15914, 
  -49.1505, -49.14152, -49.1231, -49.11759, -49.11826, -49.12714, -49.14253, -49.1441, -49.13983, -49.14095, 
  -49.13871, -49.13983, -49.145, -49.15757, -49.1569, -49.15241, -49.16869, -49.17946, -49.18821, -49.19393, 
  -49.19573, -49.1881, -49.19135, -49.18182, -49.19158, -49.19427, -49.20324, -49.2075, -49.19932, -49.20178, 
  -49.21008, -49.21502, -49.21008, -49.21603, -49.20941, -49.22175, -49.22545, -49.23688, -49.24237, -49.24652, 
  -49.2473, -49.26556, -49.2678, -49.25951, -49.26276, -49.26915, -49.27016, -49.28763, -49.29569, -49.29121, 
  -49.28528, -49.27822, -49.27441, -49.2631, -49.26646, -49.29267, -49.29514, -49.30253, -49.30298, -49.31104, 
  -49.30745, -49.31271, -49.31294, -49.30499, -49.30163, -49.30734, -49.30309, -49.2966, -49.29313, -49.29772, 
  -49.29447, -49.29637, -49.29391, -49.3032, -49.30466, -49.291, -49.29245, -49.2807, -49.28372, -49.27767, 
  -49.27487, -49.26625, -49.25493, -49.25213, -49.26087, -49.26076, -49.27207, -49.26983, -49.27297, -49.2723, 
  -49.27823, -49.26827, -49.27028, -49.27331, -49.28014, -49.2798, -49.27555, -49.2751, -49.27689, -49.27465, 
  -49.27655, -49.26748, -49.26916, -49.26468, -49.25168, -49.24855, -49.25168, -49.24519, -49.24675, -49.2416, 
  -49.24328, -49.23812, -49.23958, -49.23868, -49.24137, -49.24048, -49.2425, -49.24025, -49.24698, -49.24821, 
  -49.24306, -49.24083, -49.23814, -49.23489, -49.23634, -49.23186, -49.22984, -49.22726, -49.22973, -49.22502, 
  -49.2248, -49.23264, -49.23197, -49.22805, -49.22816, -49.22502, -49.2211, -49.22581, -49.22435, -49.22726, 
  -49.22334, -49.21504, -49.22177, -49.2239, -49.21986, -49.21852, -49.2137, -49.20304, -49.20114, -49.19811, 
  -49.20046, -49.19171, -49.18779, -49.18375, -49.18386, -49.1934, -49.19351, -49.18969, -49.18969, -49.18431, 
  -49.18431, -49.18094, -49.18195, -49.17926, -49.1769, -49.17275, -49.17275, -49.17814, -49.17477, -49.17511, 
  -49.16972, -49.16938, -49.16669, -49.16007, -49.15973, -49.1512, -49.14233, -49.14008, -49.16446, -49.1621, 
  -49.15727, -49.15357, -49.15076, -49.14548, -49.1365, -49.13145, -49.12976, -49.13605, -49.14504, -49.14425, 
  -49.13695, -49.14032, -49.14649, -49.14773, -49.15076, -49.14694, -49.1557, -49.15638, -49.16266, -49.17097, 
  -49.17355, -49.17923, -49.17306, -49.18417, -49.17991, -49.16779, -49.16072, -49.15982, -49.13994, -49.13152, 
  -49.12836, -49.12398, -49.12084, -49.11747, -49.11039, -49.10668, -49.10926, -49.11713, -49.1096, -49.11297, 
  -49.12511, -49.12477, -49.12803, -49.13106, -49.13252, -49.13656, -49.1342, -49.13465, -49.13252, -49.13319, 
  -49.12915, -49.12836, -49.12533, -49.12499, -49.12218, -49.11949, -49.11679, -49.12061, -49.1205, -49.12443, 
  -49.12331, -49.13039, -49.12702, -49.12286, -49.11634, -49.11005, -49.10556, -49.10938, -49.11095, -49.10803, 
  -49.10657, -49.10117, -49.09791, -49.09724, -49.09319, -49.09094, -49.09566, -49.09499, -49.09859, -49.09364, 
  -49.09735, -49.09319, -49.08712, -49.08937, -49.08409, -49.07903, -49.07948, -49.07453, -49.07666, -49.07273, 
  -49.0761, -49.06519, -49.06193, -49.05586, -49.04697, -49.05282, -49.06148, -49.058, -49.0526, -49.0499, 
  -49.04596, -49.04382, -49.04843, -49.04393, -49.04438, -49.04022, -49.03864, -49.04348, -49.04708, -49.03696, 
  -49.02885, -49.03077, -49.02638, -49.02018, -49.02018, -49.01624, -49.01669, -49.02604, -49.02277, -49.02041, 
  -49.01771, -49.01917, -49.01658, -49.01095, -49.01264, -49.01039, -49.00341, -49.0069, -49.00622, -49.01546, 
  -49.00701, -49.00093, -48.99507, -48.99395, -48.98832, -48.98606, -48.97423, -48.97164, -48.9757, -48.98178, 
  -48.98606, -48.98572, -48.99034, -48.98392, -48.98922, -48.98077, -48.97615, -48.97412, -48.96713, -48.95723, 
  -48.95768, -48.95396, -48.94877, -48.94426, -48.95869, -48.97177, -48.98393, -48.98799, -48.99633, -48.99666, 
  -49.00714, -49.01648, -49.02492, -49.02898, -49.02616, -49.03303, -49.03359, -49.03776, -49.03978, -49.06048, 
  -49.06262, -49.06858, -49.07881, -49.08815, -49.09152, -49.08432, -49.07893, -49.06926, -49.05778, -49.06206, 
  -49.0534, -49.04867, -49.04001, -49.02875, -49.02076, -49.01603, -49.01659, -49.01344, -49.01626, -49.02053, 
  -49.02402, -49.04552, -49.0292, -49.03157, -49.03686, -49.04417, -49.057, -49.06318, -49.0868, -49.08983, 
  -49.0986, -49.10017, -49.09759, -49.09972, -49.09691, -49.10737, -49.11546, -49.11197, -49.11546, -49.13343, 
  -49.12703, -49.11546, -49.11546, -49.12512, -49.12422, -49.11175, -49.11411, -49.10613, -49.09759, -49.08119, 
  -49.07646, -49.0705, -49.05768, -49.05105, -49.04835, -49.02865, -49.02124, -49.00074, -48.99061, -48.98745, 
  -48.99556, -49.01065, -49.03497, -49.06512, -49.07951, -49.09648, -49.10108, -49.11142, -49.11187, -49.12131, 
  -49.11873, -49.10232, -49.0967, -49.08996, -49.09052, -49.08535, -49.0885, -49.08254, -49.08051, -49.05858, 
  -49.04238, -49.03552, -49.01447, -49.01694, -49.01345, -49.01165, -49.00264, -48.99521, -48.97933, -48.97392, 
  -48.96006, -48.94924, -48.94766, -48.94371, -48.93808, -48.93616, -48.92736, -48.91361, -48.91485, -48.92568, 
  -48.94428, -48.948, -48.9383, -48.93808, -48.93097, -48.93413, -48.92815, -48.91924, -48.91744, -48.90659, 
  -48.88967, -48.88536, -48.88085, -48.87983, -48.88559, -48.88017, -48.87193, -48.86504, -48.87136, -48.84652, 
  -48.84053, -48.83703, -48.81725, -48.82494, -48.83217, -48.8368, -48.84053, -48.849, -48.8411, -48.81702, 
  -48.81296, -48.79882, -48.79961, -48.79645, -48.7969, -48.78989, -48.78582, -48.77892, -48.78423, -48.78163, 
  -48.76953, -48.75765, -48.76025, -48.7581, -48.76546, -48.76772, -48.78978, -48.78808, -48.81194, -48.82697, 
  -48.83601, -48.83997, -48.85352, -48.85307, -48.84381, -48.83217, -48.81917, -48.82765, -48.829, -48.83522, 
  -48.84279, -48.84979, -48.85589, -48.86978, -48.87148, -48.87419, -48.87814, -48.88107, -48.88322, -48.8734, 
  -48.86448, -48.85646, -48.85601, -48.86007, -48.86685, -48.87012, -48.87453, -48.88074, -48.89281, -48.89428, 
  -48.88841, -48.89022, -48.89609, -48.9015, -48.90207, -48.89462, -48.89225, -48.8857, -48.87419, -48.87136, 
  -48.85815, -48.85522, -48.84629, -48.84437, -48.81951, -48.82109, -48.81103, -48.81005, -48.80493, -48.80595, 
  -48.79984, -48.79984, -48.77632, -48.77417, -48.75018, -48.7298, -48.71984, -48.71893, -48.72391, -48.73954, 
  -48.75957, -48.76953, -48.76455, -48.75188, -48.74293, -48.73625, -48.73207, -48.71848, -48.71225, -48.72165, 
  -48.72323, -48.73365, -48.73512, -48.73229, -48.72946, -48.71621, -48.71825, -48.70942, -48.70851, -48.69219, 
  -48.69253, -48.69673, -48.69673, -48.68505, -48.67961, -48.67542, -48.67871, -48.67633, -48.67757, -48.66919, 
  -48.67043, -48.66046, -48.66125, -48.6583, -48.66329, -48.67304, -48.68199, -48.67974, -48.67124, -48.66534, 
  -48.67022, -48.69051, -48.69334, -48.69674, -48.7015, -48.69833, -48.70331, -48.70524, -48.71305, -48.71396, 
  -48.72121, -48.7263, -48.7271, -48.72155, -48.72087, -48.71724, -48.72132, -48.728, -48.73196, -48.73921, 
  -48.74408, -48.75177, -48.75789, -48.76004, -48.76626, -48.77022, -48.77656, -48.77927, -48.79318, -48.79397, 
  -48.80336, -48.80347, -48.815, -48.81975, -48.8245, -48.82009, -48.83399, -48.83105, -48.83862, -48.83376, 
  -48.83964, -48.83828, -48.84597, -48.86381, -48.86731, -48.87826, -48.87375, -48.88052, -48.88967, -48.90817, 
  -48.91584, -48.92702, -48.93424, -48.93796, -48.93977, -48.95318, -48.96355, -48.97279, -48.98406, -48.98733, 
  -48.99656, -48.99758, -48.99363, -48.99431, -48.99071, -48.98417, -48.96874, -48.95747, -48.96243, -48.96231, 
  -48.96783, -48.97009, -48.97493, -48.97426, -48.96941, -48.96964, -48.9631, -48.96355, -48.96795, -48.9693, 
  -48.97423, -48.97525, -48.98246, -48.98482, -48.99102, -48.9935, -49.00025, -48.99834, -49.00206, -49.01489, 
  -49.01624, -49.02097, -49.02514, -49.04157, -49.04067, -49.05181, -49.05597, -49.05822, -49.04382, -49.04337, 
  -49.03684, -49.03257, -49.03617, -49.03594, -49.02908, -49.03718, -49.04494, -49.04652, -49.0517, -49.05192, 
  -49.06182, -49.06396, -49.05991, -49.06182, -49.07475, -49.07734, -49.08195, -49.07824, -49.08285, -49.08802, 
  -49.09589, -49.09229, -49.09544, -49.10342, -49.11263, -49.11353, -49.10803, -49.10926, -49.11758, -49.11556, 
  -49.1096, -49.1132, -49.12095, -49.12072, -49.12657, -49.12409, -49.13241, -49.13712, -49.14162, -49.14476, 
  -49.1515, -49.15251, -49.15677, -49.15026, -49.1616, -49.14555, -49.146, -49.1433, -49.14465, -49.13903, 
  -49.14532, -49.15655, -49.16474, -49.16957, -49.17709, -49.17675, -49.18954, -49.18865, -49.18337, -49.18416, 
  -49.19201, -49.19112, -49.18158, -49.17114, -49.17552, -49.17047, -49.17081, -49.17832, -49.18618, -49.20009, 
  -49.20132, -49.20749, -49.20996, -49.19785, -49.19661, -49.18842, -49.18618, -49.18966, -49.19605, -49.202, 
  -49.20211, -49.20783, -49.21175, -49.21568, -49.21792, -49.22902, -49.23732, -49.23821, -49.24774, -49.252, 
  -49.24292, -49.24348, -49.25435, -49.25648, -49.26029, -49.26387, -49.27082, -49.27149, -49.27541, -49.27003, 
  -49.27608, -49.27552, -49.2809, -49.28302, -49.27966, -49.28269, -49.28168, -49.28907, -49.28717, -49.29041, 
  -49.29355, -49.29467, -49.29612, -49.30061, -49.30364, -49.30878, -49.30487, -49.30688, -49.31516, -49.32009, 
  -49.31953, -49.32288, -49.32098, -49.32244, -49.29726, -49.29065, -49.2939, -49.29905, -49.30464, -49.31483, 
  -49.32479, -49.32288, -49.32747, -49.32937, -49.33183, -49.33116, -49.33463, -49.33172, -49.33183, -49.33038, 
  -49.33251, -49.33284, -49.34011, -49.3428, -49.34011, -49.34302, -49.34268, -49.34928, -49.34705, -49.34179, 
  -49.34828, -49.34526, -49.33676, -49.32792, -49.32915, -49.33374, -49.3343, -49.3372, -49.33362, -49.33631, 
  -49.34022, -49.33922, -49.34514, -49.34649, -49.34358, -49.34089, -49.33664, -49.34268, -49.33888, -49.34268, 
  -49.33351, -49.33341, -49.32793, -49.32804, -49.32581, -49.32726, -49.32178, -49.32502, -49.33006, -49.33106, 
  -49.33487, -49.33733, -49.34024, -49.33878, -49.3418, -49.34784, -49.35064, -49.35299, -49.35444, -49.3569, 
  -49.35701, -49.36059, -49.35869, -49.3635, -49.35835, -49.36193, -49.35914, -49.35947, -49.36238, -49.36428, 
  -49.36215, -49.35779, -49.3607, -49.35556, -49.36238, -49.36394, -49.37244, -49.36282, -49.36584, -49.36428, 
  -49.37065, -49.37009, -49.36148, -49.36025, -49.36238, -49.35522, -49.35321, -49.35041, -49.35287, -49.35064, 
  -49.34985, -49.35445, -49.35993, -49.36116, -49.36619, -49.36597, -49.36921, -49.37636, -49.37334, -49.37871, 
  -49.38662, -49.38316, -49.38724, -49.38288, -49.38311, -49.37081, -49.37819, -49.38042, -49.38283, -49.38663, 
  -49.38864, -49.391, -49.39055, -49.39357, -49.39346, -49.39726, -49.3967, -49.40072, -49.39958, -49.40284, 
  -49.40039, -49.40988, -49.41267, -49.4206, -49.42965, -49.43154, -49.43523, -49.43902, -49.44806, -49.45376, 
  -49.45885, -49.46376, -49.46119, -49.4622, -49.4593, -49.46186, -49.45785, -49.46198, -49.4622, -49.46443, 
  -49.47447, -49.48161, -49.48172, -49.48852, -49.50112, -49.50157, -49.50647, -49.5087, -49.51316, -49.51773, 
  -49.52196, -49.5301, -49.53923, -49.54647, -49.54324, -49.54547, -49.54725, -49.5487, -49.55293, -49.55293, 
  -49.55828, -49.55962, -49.56563, -49.56674, -49.57175, -49.57687, -49.60714, -49.64028, -49.65128, -49.65373, 
  -49.66195, -49.65906, -49.66906, -49.67184, -49.6775, -49.69005, -49.68916, -49.69083, -49.68717, -49.69705, 
  -49.6986, -49.70637, -49.7107, -49.71703, -49.73101, -49.72824, -49.73468, -49.72768, -49.73068, -49.72325, 
  -49.72535, -49.71903, -49.72236, -49.71914, -49.72169, -49.72624, -49.72824, -49.73268)
LONGITUDE_VALUEs <- c(
  68.92509, 68.92011, 68.92955, 68.94637, 68.94637, 68.95257, 68.96613, 68.96716, 68.97265, 68.97454, 
  69.002, 69.00595, 69.01077, 69.01591, 69.0166, 69.01986, 69.02312, 69.02793, 69.04045, 69.0499, 
  69.05642, 69.06397, 69.08662, 69.08783, 69.08423, 69.088, 69.08508, 69.09401, 69.09384, 69.09143, 
  69.09126, 69.0892, 69.0904, 69.08663, 69.08423, 69.07668, 69.07324, 69.07272, 69.06637, 69.06809, 
  69.05573, 69.05452, 69.06242, 69.0583, 69.06225, 69.05402, 69.06638, 69.08765, 69.09058, 69.08337, 
  69.08543, 69.08017, 69.08344, 69.08, 69.08069, 69.07846, 69.0843, 69.0812, 69.08824, 69.08481, 
  69.09443, 69.1013, 69.1061, 69.11349, 69.11074, 69.12345, 69.11795, 69.11933, 69.13855, 69.14353, 
  69.13391, 69.14644, 69.14026, 69.14112, 69.13408, 69.12154, 69.12292, 69.1303, 69.1303, 69.13374, 
  69.14782, 69.14679, 69.15366, 69.1564, 69.16413, 69.16362, 69.1686, 69.16945, 69.17495, 69.17976, 
  69.18216, 69.1698, 69.13803, 69.11777, 69.12378, 69.13254, 69.13237, 69.14988, 69.16671, 69.16722, 
  69.16121, 69.16791, 69.15726, 69.13734, 69.13442, 69.1188, 69.11588, 69.11313, 69.1291, 69.13562, 
  69.14266, 69.14541, 69.15537, 69.16138, 69.16653, 69.18456, 69.18918, 69.20703, 69.21596, 69.21013, 
  69.21493, 69.20909, 69.20944, 69.19948, 69.20171, 69.19451, 69.19124, 69.16531, 69.166, 69.14608, 
  69.14917, 69.16463, 69.1739, 69.18352, 69.19124, 69.18592, 69.19451, 69.18421, 69.19004, 69.23452, 
  69.2333, 69.25236, 69.2551, 69.26524, 69.26574, 69.27089, 69.27484, 69.27827, 69.27793, 69.28789, 
  69.29939, 69.30643, 69.3085, 69.30626, 69.30609, 69.29389, 69.28737, 69.28806, 69.28531, 69.29097, 
  69.29115, 69.29287, 69.29029, 69.29665, 69.29218, 69.28583, 69.28874, 69.29493, 69.2951, 69.30094, 
  69.30076, 69.30489, 69.29544, 69.28291, 69.28548, 69.27999, 69.29338, 69.29561, 69.30437, 69.3188, 
  69.32188, 69.31021, 69.29699, 69.30952, 69.31295, 69.32549, 69.32514, 69.33407, 69.34025, 69.34316, 
  69.34556, 69.35191, 69.36651, 69.36514, 69.37063, 69.37286, 69.37097, 69.37629, 69.41338, 69.41183, 
  69.41973, 69.42642, 69.42883, 69.44033, 69.45235, 69.45903, 69.47122, 69.49217, 69.52377, 69.53025, 
  69.54142, 69.56065, 69.58795, 69.61611, 69.62091, 69.64287, 69.65301, 69.66297, 69.67069, 69.68563, 
  69.68762, 69.69379, 69.69551, 69.70134, 69.68985, 69.70083, 69.68281, 69.6732, 69.67577, 69.66101, 
  69.64951, 69.62307, 69.62925, 69.61861, 69.63646, 69.64332, 69.6471, 69.66084, 69.67594, 69.68418, 
  69.6931, 69.6931, 69.70339, 69.70322, 69.7053, 69.69809, 69.69963, 69.66994, 69.67371, 69.6677, 
  69.65758, 69.66033, 69.6756, 69.678, 69.66925, 69.65449, 69.66719, 69.6732, 69.68641, 69.68812, 
  69.707, 69.71507, 69.72021, 69.70581, 69.70822, 69.72212, 69.74082, 69.73928, 69.74874, 69.75492, 
  69.76041, 69.77627, 69.77318, 69.76596, 69.76167, 69.76116, 69.76854, 69.76597, 69.79669, 69.79721, 
  69.82108, 69.82639, 69.81849, 69.82347, 69.83514, 69.83343, 69.83771, 69.83651, 69.84613, 69.85128, 
  69.86038, 69.86845, 69.86571, 69.87069, 69.85626, 69.85815, 69.87257, 69.87532, 69.87979, 69.88374, 
  69.89095, 69.89747, 69.89902, 69.92338, 69.93488, 69.94106, 69.95085, 69.95892, 69.96579, 69.97539, 
  69.99239, 69.9941, 70.00166, 70.01314, 70.01675, 70.02207, 70.03649, 70.04371, 70.04954, 70.0674, 
  70.07031, 70.08216, 70.08491, 70.12269, 70.1232, 70.1311, 70.11907, 70.12748, 70.13796, 70.14465, 
  70.15547, 70.17127, 70.17144, 70.18381, 70.19136, 70.19733, 70.20455, 70.20953, 70.21622, 70.2188, 
  70.22842, 70.24267, 70.25057, 70.22121, 70.20611, 70.19804, 70.18756, 70.17949, 70.16575, 70.15322, 
  70.14137, 70.1369, 70.14068, 70.14549, 70.14824, 70.15717, 70.15992, 70.1649, 70.16868, 70.18207, 
  70.19426, 70.21161, 70.2248, 70.25107, 70.26464, 70.27065, 70.27615, 70.2825, 70.28937, 70.28868, 
  70.29966, 70.31322, 70.30927, 70.31837, 70.31512, 70.30928, 70.30928, 70.30069, 70.29795, 70.26566, 
  70.2528, 70.23992, 70.21828, 70.21261, 70.20063, 70.18586, 70.18191, 70.16817, 70.16319, 70.15255, 
  70.13537, 70.11032, 70.10362, 70.03787, 70.02928, 70.00541, 70.02363, 70.06569, 70.11822, 70.13419, 
  70.13196, 70.11444, 70.04715, 70.02281, 70.01011, 69.99706, 69.96752, 69.93901, 69.92425, 69.90313, 
  69.88544, 69.86844, 69.84389, 69.81574, 69.7905, 69.79342, 69.80372, 69.80613, 69.7984, 69.79825, 
  69.78032, 69.78032, 69.79044, 69.79216, 69.80074, 69.79594, 69.7762, 69.76899, 69.78461, 69.78736, 
  69.79902, 69.79611, 69.7992, 69.79302, 69.76573, 69.76779, 69.775, 69.7798, 69.78512, 69.78976, 
  69.78426, 69.77105, 69.76728, 69.75954, 69.75285, 69.74289, 69.73534, 69.72831, 69.72728, 69.74495, 
  69.75285, 69.75902, 69.75439, 69.7501, 69.75113, 69.73895, 69.72573, 69.73224, 69.72744, 69.73173, 
  69.73722, 69.75833, 69.75441, 69.76041, 69.7623, 69.77208, 69.77362, 69.77997, 69.78632, 69.7889, 
  69.79525, 69.79858, 69.80631, 69.80202, 69.81301, 69.81936, 69.81112, 69.80562, 69.81421, 69.80682, 
  69.80391, 69.78845, 69.77557, 69.77952, 69.7687, 69.77025, 69.78296, 69.78536, 69.79068, 69.7869, 
  69.78484, 69.76424, 69.76235, 69.75479, 69.75771, 69.74793, 69.75154, 69.75961, 69.7627, 69.78947, 
  69.79479, 69.79995, 69.8142, 69.81006, 69.80972, 69.80079, 69.80766, 69.77967, 69.79118, 69.81075, 
  69.81539, 69.81745, 69.83273, 69.83942, 69.85418, 69.84475, 69.8554, 69.86227, 69.88458, 69.89746, 
  69.89728, 69.89076, 69.88887, 69.87874, 69.88183, 69.8875, 69.8923, 69.90106, 69.89969, 69.90913, 
  69.90896, 69.9227, 69.91291, 69.91428, 69.90999, 69.90879, 69.89917, 69.89488, 69.882, 69.87926, 
  69.87531, 69.8796, 69.87531, 69.87823, 69.8863, 69.8875, 69.89231, 69.90897, 69.92322, 69.92133, 
  69.90897, 69.90467, 69.88836, 69.88235, 69.86329, 69.85934, 69.87084, 69.86741, 69.85969, 69.85557, 
  69.84853, 69.85042, 69.80234, 69.81419, 69.82398, 69.82982, 69.84184, 69.85455, 69.8597, 69.86056, 
  69.87498, 69.8743, 69.85283, 69.85936, 69.87327, 69.8779, 69.88494, 69.89112, 69.91633, 69.98947, 
  70.0051, 70.02021, 70.02622, 70.03958, 70.05452, 70.06929, 70.08148, 70.08114, 70.11305, 70.12799, 
  70.15048, 70.18446, 70.18892, 70.19768, 70.20489, 70.22979, 70.23082, 70.22533, 70.22206, 70.24576, 
  70.25227, 70.24643, 70.25639, 70.25742, 70.26206, 70.28231, 70.28094, 70.26737, 70.27802, 70.28557, 
  70.38139, 70.38925, 70.44282, 70.44111, 70.42428, 70.39408, 70.38789, 70.36248, 70.3599, 70.33964, 
  70.33157, 70.31904, 70.31732, 70.31202, 70.31013, 70.30086, 70.31665, 70.32266, 70.3261, 70.33159, 
  70.33382, 70.32369, 70.31768, 70.32129, 70.32764, 70.33022, 70.33966, 70.35494, 70.36078, 70.36782, 
  70.38371, 70.38748, 70.4031, 70.41959, 70.41821, 70.44551, 70.44207, 70.44877, 70.45958, 70.4637, 
  70.48276, 70.48258, 70.49769, 70.49631, 70.5219, 70.52361, 70.53288, 70.53803, 70.54352, 70.54953, 
  70.55794, 70.55313, 70.55691, 70.55296, 70.55347, 70.52618, 70.5133, 70.50866, 70.51314, 70.52395, 
  70.52275, 70.49734, 70.47708, 70.45117, 70.43864, 70.4285, 70.4261, 70.39263, 70.37084, 70.34971, 
  70.33426, 70.31813, 70.30233, 70.28654, 70.27127, 70.25995, 70.23573, 70.23024, 70.2371, 70.22646, 
  70.22646, 70.22036, 70.21624, 70.20318, 70.19254, 70.1862, 70.18998, 70.17899, 70.18791, 70.1862, 
  70.17916, 70.17624, 70.16903, 70.16696, 70.15769, 70.15443, 70.14704, 70.14206, 70.1352, 70.14653, 
  70.14621, 70.14981, 70.10293, 70.10018, 70.05453, 70.03976, 70.04338, 70.03805, 70.03325, 70.02346, 
  70.01625, 69.98826, 69.98053, 69.98671, 69.97538, 69.97246, 69.93711, 69.92783, 69.93487, 69.93248, 
  69.92613, 69.91617, 69.9117, 69.90827, 69.899, 69.87753, 69.87499, 69.88475, 69.89557, 69.89883, 
  69.89351, 69.88304, 69.88115, 69.86226, 69.85453, 69.85402, 69.84766, 69.85299, 69.84217, 69.84114, 
  69.85007, 69.85385, 69.84629, 69.8341, 69.82723, 69.82414, 69.81075, 69.80664, 69.79548, 69.78724, 
  69.7996, 69.79994, 69.78878, 69.79051, 69.77248, 69.75687, 69.73663, 69.73182, 69.72478, 69.71242, 
  69.70057, 69.68546, 69.66863, 69.66777, 69.62863, 69.61095, 69.58296, 69.5778, 69.58296, 69.61215, 
  69.62486, 69.64289, 69.64787, 69.6774, 69.70846, 69.68992, 69.71138, 69.69026, 69.71104, 69.71207, 
  69.70365, 69.72906, 69.72648, 69.70192, 69.68134, 69.67018, 69.64116, 69.63498, 69.6235, 69.61251, 
  69.59207, 69.54831, 69.54385, 69.5454, 69.50007, 69.47688, 69.46984, 69.4393, 69.43037, 69.42573, 
  69.39911, 69.3998, 69.44994, 69.43809, 69.51345, 69.5174, 69.5265, 69.52718, 69.54229, 69.54263, 
  69.53577, 69.53233, 69.52291, 69.51569, 69.51123, 69.5011, 69.49371, 69.4774, 69.46916, 69.43981, 
  69.43981, 69.44376, 69.43621, 69.44376, 69.44995, 69.45389, 69.46796, 69.46882, 69.47809, 69.47792, 
  69.49973, 69.5035, 69.52102, 69.52119, 69.5114, 69.50694, 69.49183, 69.46658, 69.45748, 69.43088, 
  69.43912, 69.43758, 69.42607, 69.41199, 69.41251, 69.42504, 69.43088, 69.4144, 69.44514, 69.44325, 
  69.42677, 69.42539, 69.40566, 69.40326, 69.38093, 69.37629, 69.36874, 69.36788, 69.35689, 69.35534, 
  69.36325, 69.36411, 69.37304, 69.37064, 69.37545, 69.37081, 69.38077, 69.39571, 69.41663, 69.44171, 
  69.43896, 69.42058, 69.43175, 69.4369, 69.4532, 69.46608, 69.45698, 69.44187, 69.41321, 69.4072, 
  69.41802, 69.41767, 69.42008, 69.41613, 69.43518, 69.43346, 69.41526, 69.38813, 69.38246, 69.37233, 
  69.37782, 69.35842, 69.36101, 69.36651, 69.36874, 69.38025, 69.37132, 69.36256, 69.35604, 69.35793, 
  69.35175, 69.35175, 69.32101, 69.3109, 69.30351, 69.3042, 69.31673, 69.3272, 69.33304, 69.35089, 
  69.35029, 69.35338, 69.34789, 69.34789, 69.33673, 69.33982, 69.35287, 69.3618, 69.40453, 69.42993, 
  69.45432, 69.46205, 69.47561, 69.47767, 69.50529, 69.53275, 69.53756, 69.56384, 69.57276, 69.581, 
  69.57654, 69.59267, 69.60177, 69.63197, 69.63835, 69.65465, 69.63801, 69.62065, 69.604, 69.5877, 
  69.58255, 69.56574, 69.56265, 69.56745, 69.56059, 69.56779, 69.59765, 69.60314, 69.61687, 69.62236, 
  69.6469, 69.65516, 69.65138, 69.64195, 69.64349, 69.62908, 69.61844, 69.61003, 69.59664, 69.58237, 
  69.56974, 69.56613, 69.57643, 69.59395, 69.60921, 69.60904, 69.61711, 69.61711, 69.63943, 69.64647, 
  69.65781, 69.66416, 69.65248, 69.65763, 69.64699, 69.6324, 69.62553, 69.62106, 69.62896, 69.62604, 
  69.63119, 69.62656, 69.61145, 69.60217, 69.59582, 69.59565, 69.57298, 69.57487, 69.56852, 69.55478, 
  69.57985, 69.58947, 69.60853, 69.60802, 69.60253, 69.60253, 69.58999, 69.57162, 69.55994, 69.56355, 
  69.56028, 69.5699, 69.57179, 69.58741, 69.60562, 69.60888, 69.60012, 69.59171, 69.57041, 69.55513, 
  69.54637, 69.58553, 69.59291, 69.61043, 69.61145, 69.62021, 69.62296, 69.60407, 69.59857, 69.59892, 
  69.58999, 69.58346, 69.57762, 69.57419, 69.5462, 69.55324, 69.57797, 69.56715, 69.58724, 69.58725, 
  69.57626, 69.5742, 69.58244, 69.57591, 69.53573, 69.52769, 69.52648, 69.52185, 69.52837, 69.52185, 
  69.51653, 69.50691, 69.51086, 69.50708, 69.49987, 69.49884, 69.49455, 69.49558, 69.48837, 69.49781, 
  69.49283, 69.49283, 69.46896, 69.4566, 69.43702, 69.43479, 69.45677, 69.4592, 69.44975, 69.45937, 
  69.46898, 69.46246, 69.46366, 69.4537, 69.45713, 69.45164, 69.447, 69.44305, 69.43584, 69.4367, 
  69.43378, 69.43756, 69.42657, 69.41197, 69.40751, 69.3924, 69.39173, 69.37559, 69.35276, 69.33782, 
  69.3404, 69.33576, 69.33044, 69.32408, 69.31412, 69.25387, 69.24185, 69.2355, 69.22949, 69.22196, 
  69.19895, 69.19723, 69.18813, 69.18435, 69.17679, 69.17491, 69.15327, 69.15378, 69.17715, 69.1835, 
  69.17028, 69.18986, 69.18677, 69.16634, 69.17252, 69.16754, 69.12875, 69.11433, 69.12466, 69.11642, 
  69.09169, 69.08277, 69.03915, 69.04671, 69.034, 69.04772, 69.0642, 69.06128, 69.0551, 69.05853, 
  69.0508, 69.04205, 69.03158, 69.03158, 69.01389, 69.00496, 68.98573, 68.98539, 69.00994, 69.01545, 
  68.99089, 69.00274, 69.00136, 69.01373, 69.01938, 69.02952, 69.03106, 69.05648, 69.07295, 69.10265, 
  69.1181, 69.1145, 69.10918, 69.10677, 69.10952, 69.09664, 69.10763, 69.10162, 69.09544, 69.09322, 
  69.06386, 69.04394, 69.03913, 69.03346, 69.03741, 69.05132, 69.06282, 69.06746, 69.07381, 69.07226, 
  69.09647, 69.10968, 69.10333, 69.10831, 69.1181, 69.12239, 69.1059, 69.11157, 69.12497, 69.15048, 
  69.14602, 69.15031, 69.14257, 69.13347, 69.13141, 69.123, 69.12626, 69.12162, 69.11167, 69.10617, 
  69.09485, 69.10446, 69.11066, 69.11392, 69.12593, 69.13726, 69.15184, 69.15905, 69.17518, 69.18016, 
  69.16797, 69.17021, 69.14206, 69.1261, 69.11032, 69.09573, 69.07184, 69.06052, 69.01108, 69.02961, 
  69.02395, 69.01485, 69.01434, 69.01056, 69.00473, 69.01005, 69.00369, 68.98567, 68.97023, 68.96577, 
  68.9366, 68.93915, 68.93692, 68.96695, 68.96473, 68.96781, 68.96455, 68.96696, 68.96044, 68.95889, 
  68.93167, 68.92583, 68.91845, 68.91055, 68.91296, 68.9054, 68.90901, 68.90695, 68.91794, 68.91434, 
  68.9085, 68.89957, 68.89648, 68.89922, 68.89528, 68.89047, 68.89682, 68.89871, 68.89304, 68.90043, 
  68.903, 68.91193, 68.90936, 68.91759, 68.94678, 68.95657, 68.96652, 68.95596, 68.95896, 68.96944, 
  68.98487, 68.99414, 69.03192, 69.04412, 69.06849, 69.12361, 69.12051, 69.11124, 69.1102, 69.05663, 
  69.0175, 68.96804, 68.96719, 69.01338, 69.01939, 69.04137, 69.04153, 69.07673, 69.06299, 69.03689, 
  69.01079, 68.98984, 68.9725, 68.97181, 68.98606, 69.00907, 69.02298, 69.02865, 69.0393, 69.07209, 
  69.06402, 69.05784, 69.0484, 69.04222, 69.0223, 69.02419, 69.04136, 69.04754, 69.05665, 69.05871, 
  69.05201, 69.03535, 69.02161, 69.01131, 69.01337, 69.00599, 69.00959, 68.9684, 68.96943, 68.94882, 
  68.93526, 68.94178, 68.96652, 68.96755, 68.93973, 68.92376, 68.92101, 68.92668, 68.92994, 68.95759, 
  68.93681, 68.9351, 68.92874, 68.92205, 68.91037, 68.90676, 68.90127, 68.91312, 68.91191, 68.92823, 
  68.926, 68.95158, 68.95003, 68.93012, 68.93235, 68.92479, 68.93561, 68.90951, 68.90573, 68.89732, 
  68.89491, 68.88049, 68.88291, 68.89047, 68.88772, 68.87055, 68.84445, 68.83243, 68.82298, 68.80841, 
  68.80395, 68.79674, 68.78077, 68.78747, 68.78214, 68.79073, 68.80258, 68.80772, 68.80893, 68.82181, 
  68.84034, 68.84309, 68.86232, 68.86249, 68.85888, 68.86112, 68.88137, 68.87656, 68.88824, 68.88377, 
  68.88944, 68.88411, 68.88257, 68.87845, 68.87261, 68.87244, 68.86197, 68.84703, 68.84412, 68.83484, 
  68.83742, 68.83158, 68.83227, 68.8242, 68.82059, 68.81544, 68.80771, 68.80344, 68.80172, 68.79417, 
  68.79307, 68.78655, 68.78295, 68.79187, 68.78741, 68.79256, 68.79239, 68.78535, 68.78071, 68.78586, 
  68.79015, 68.79359, 68.79273, 68.81092, 68.82276, 68.81795, 68.82173, 68.81521, 68.80148, 68.79239, 
  68.79307, 68.78398, 68.78089, 68.77351, 68.76459, 68.74931, 68.75292, 68.74861, 68.75152, 68.74209, 
  68.75152, 68.74535, 68.73985, 68.73248, 68.7378, 68.72819, 68.73608, 68.74175, 68.74792, 68.73711, 
  68.75376, 68.76954, 68.78224, 68.7656, 68.76285, 68.78396, 68.79168, 68.80681, 68.81865, 68.84336, 
  68.85143, 68.85855, 68.84911, 68.83486, 68.8206, 68.79536, 68.78609, 68.79365, 68.79519, 68.8055, 
  68.81031, 68.82267, 68.83143, 68.83435, 68.85049, 68.87536, 68.88841, 68.89322, 68.8994, 68.92052, 
  68.92619, 68.88618, 68.87811, 68.85974, 68.86231, 68.87863, 68.88687, 68.8618, 68.85579, 68.84669, 
  68.84772, 68.83793, 68.83982, 68.8134, 68.79812, 68.79331, 68.77699, 68.78472, 68.77802, 68.7897, 
  68.79949, 68.80018, 68.79056, 68.77957, 68.77373, 68.77013, 68.7636, 68.76189, 68.77013, 68.76463, 
  68.7557, 68.76137, 68.76002, 68.76276, 68.75744, 68.76826, 68.76826, 68.78285, 68.77803, 68.78713, 
  68.78782, 68.79194, 68.79829, 68.80327, 68.79966, 68.81115, 68.81768, 68.8266, 68.83296, 68.84927, 
  68.8515, 68.84687, 68.84893, 68.84086, 68.83536, 68.83107, 68.81115, 68.81235, 68.80445, 68.80634, 
  68.80445, 68.81184, 68.80755, 68.8115, 68.81029, 68.82197, 68.82643, 68.83433, 68.8333, 68.84189, 
  68.85133, 68.86061, 68.87177, 68.87984, 68.89615, 68.91604, 68.92257, 68.91742, 68.92154, 68.90008, 
  68.90402, 68.9224, 68.92394, 68.89904, 68.89149, 68.8829, 68.86951, 68.86524, 68.85872, 68.85322, 
  68.84584, 68.83588, 68.83777, 68.83193, 68.82884, 68.81922, 68.81064, 68.80445, 68.79879, 68.7993, 
  68.78316, 68.7823, 68.79381, 68.78679, 68.78215, 68.78284, 68.77855, 68.77717, 68.77168, 68.76481, 
  68.76206, 68.75502, 68.7521, 68.74472, 68.743, 68.74935, 68.74439, 68.73288, 68.72224, 68.71588, 
  68.70678, 68.7032, 68.69272, 68.68585, 68.6795, 68.67709, 68.66713, 68.6582, 68.65752, 68.65391, 
  68.65408, 68.67898, 68.66095, 68.65408, 68.64774, 68.64276, 68.64912, 68.64517, 68.64929, 68.64808, 
  68.67058, 68.67968, 68.68363, 68.68981, 68.71025, 68.71829, 68.72, 68.7346, 68.73477, 68.74353, 
  68.74868, 68.74198, 68.75332, 68.76087, 68.76517, 68.76225, 68.77581, 68.7789, 68.78232, 68.7861, 
  68.78679, 68.79211, 68.79142, 68.79503, 68.79881, 68.80001, 68.79588, 68.79846, 68.80258, 68.80396, 
  68.80997, 68.80928, 68.8134, 68.80482, 68.80551, 68.80293, 68.80121, 68.80361, 68.80567, 68.81701, 
  68.81219, 68.81855, 68.82576, 68.82747, 68.83073, 68.83537, 68.84688, 68.84395, 68.85271, 68.85134, 
  68.84069, 68.84086, 68.84636, 68.8443, 68.84808, 68.84911, 68.84636, 68.84001, 68.85769, 68.85649, 
  68.86232, 68.87246, 68.88738, 68.8867, 68.89769, 68.89236, 68.8915, 68.88618, 68.89785, 68.89614, 
  68.90466, 68.89762, 68.89109, 68.88663, 68.88491, 68.88113, 68.87702, 68.87307, 68.8626, 68.86758, 
  68.84372, 68.84269, 68.82124, 68.82053, 68.80886, 68.83941, 68.84559, 68.83769, 68.8413, 68.82534, 
  68.82258, 68.83889, 68.82808, 68.82447, 68.81486, 68.81263, 68.81487, 68.81143, 68.81246, 68.80577, 
  68.80526, 68.81349, 68.80834, 68.79256, 68.78964, 68.7941, 68.76201, 68.78449, 68.7802, 68.77076, 
  68.76801, 68.75343, 68.74226, 68.74312, 68.7402, 68.75531, 68.7596, 68.76372, 68.76921, 68.77041, 
  68.76131, 68.76173, 68.77392, 68.77253, 68.79348, 68.80103, 68.80808, 68.81769, 68.82336, 68.82954, 
  68.83538, 68.8486, 68.85767, 68.86317, 68.8812, 68.87948, 68.9049, 68.91005)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -48.99221, -49.01901, -49.04129, -49.05457, -49.07347, -49.08359, -49.09303, -49.10135, -49.11843, -49.0991, 
  -49.0928, -49.08831, -49.08044, -49.07796, -49.07009, -49.07054, -49.06559, -49.07302, -49.06897, -49.05772, 
  -49.0521, -49.0485, -49.03814, -49.03432, -49.02396, -49.01653, -49.01023, -49.00888, -49.00032, -48.99964, 
  -48.99378, -48.98387, -48.96449, -48.95818, -48.95119, -48.93834, -48.92887, -48.93437, -48.93403, -48.94418, 
  -48.94327, -48.94857, -48.95331, -48.95229, -48.96334, -48.96154, -48.94801, -48.92625, -48.92783, -48.9214, 
  -48.91519, -48.91756, -48.91316, -48.90966, -48.8933, -48.88348, -48.89432, -48.90244, -48.90368, -48.91497, 
  -48.91609, -48.90808, -48.90899, -48.91587, -48.92196, -48.92049, -48.92534, -48.94699, -48.95139, -48.95759, 
  -48.96402, -48.96548, -48.95973, -48.96886)
LONGITUDE_VALUEs <- c(
  69.19275, 69.20064, 69.20032, 69.2161, 69.21542, 69.20478, 69.2065, 69.19826, 69.21061, 69.23224, 
  69.31529, 69.3122, 69.34927, 69.32971, 69.32936, 69.32113, 69.3201, 69.28131, 69.27926, 69.33043, 
  69.33249, 69.3445, 69.32254, 69.33901, 69.3421, 69.31293, 69.31396, 69.35137, 69.35892, 69.35205, 
  69.35068, 69.37505, 69.3905, 69.40869, 69.40594, 69.41349, 69.40457, 69.38354, 69.3705, 69.35162, 
  69.33669, 69.32055, 69.31798, 69.313, 69.30288, 69.29704, 69.30974, 69.35352, 69.3609, 69.37669, 
  69.37411, 69.36284, 69.36146, 69.37606, 69.37022, 69.35065, 69.3249, 69.3225, 69.3134, 69.3153, 
  69.31118, 69.30671, 69.30087, 69.30242, 69.29589, 69.29143, 69.27185, 69.25916, 69.24372, 69.23908, 
  69.24234, 69.23788, 69.2317, 69.21573)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -48.9539, -48.94555, -48.93541, -48.93157, -48.93405, -48.92142, -48.91375, -48.91849, -48.91488, -48.91172, 
  -48.90472, -48.9063, -48.89502, -48.89353, -48.88359, -48.87953, -48.89433, -48.88416, -48.88089, -48.87806, 
  -48.87129, -48.86677, -48.85751, -48.85299, -48.84881, -48.85638, -48.8705, -48.87321, -48.92422, -48.92388,
  -48.92681, -48.93707, -48.94327, -48.95962, -48.98114, -48.98362, -48.96988)
LONGITUDE_VALUEs <- c(
  69.19343, 69.21162, 69.20167, 69.20476, 69.21711, 69.22295, 69.21574, 69.20373, 69.20132, 69.20922, 
  69.2099, 69.22501, 69.22707, 69.23368, 69.24312, 69.23626, 69.21900, 69.20503, 69.20914, 69.20743, 
  69.21069, 69.20193, 69.20296, 69.21721, 69.21532, 69.19661, 69.18803, 69.18133, 69.15233, 69.14598, 
  69.14186, 69.15164, 69.1482, 69.15198, 69.13825, 69.15628, 69.18374)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -49.18689, -49.19833, -49.19788, -49.2008, -49.20001, -49.20237, -49.20574, -49.2054, -49.21302, -49.21224, 
  -49.21459, -49.21022, -49.21045, -49.20809, -49.20843, -49.2063, -49.20517, -49.20316, -49.2036, -49.19889, 
  -49.20304, -49.198, -49.19452, -49.19194, -49.18779, -49.1842, -49.18498, -49.18341, -49.1824, -49.17993, 
  -49.18083, -49.1769, -49.17533, -49.17006, -49.1668, -49.16388, -49.1622, -49.15659, -49.1585, -49.15479, 
  -49.15524, -49.15198, -49.15277, -49.14951, -49.14828, -49.14581, -49.14525, -49.14862, -49.15513, -49.15883, 
  -49.16849, -49.16893, -49.16175, -49.16624, -49.17432)
LONGITUDE_VALUEs <- c(
  69.52208, 69.51401, 69.50887, 69.51127, 69.51487, 69.53735, 69.53924, 69.54682, 69.57805, 69.58903, 
  69.62164, 69.63332, 69.62457, 69.62749, 69.63813, 69.64362, 69.63641, 69.63641, 69.64379, 69.64447, 
  69.64928, 69.66335, 69.651, 69.65168, 69.64207, 69.64396, 69.65254, 69.65237, 69.64568, 69.64465, 
  69.63538, 69.63538, 69.64997, 69.64293, 69.65237, 69.65134, 69.63881, 69.63795, 69.65082, 69.65065, 
  69.65855, 69.6558, 69.66524, 69.66884, 69.65649, 69.65477, 69.63263, 69.6268, 69.60157, 69.59726, 
  69.63658, 69.62411, 69.59766, 69.58189, 69.56987)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -49.51665, -49.52846, -49.52713, -49.53559, -49.5337, -49.5376, -49.53582, -49.53838, -49.53738, -49.54896, 
  -49.54729, -49.5503, -49.5493, -49.56578, -49.58036, -49.58492, -49.58125, -49.568, -49.54417, -49.53671, 
  -49.52846, -49.51654, -49.51699, -49.51297, -49.51253, -49.50918, -49.50751, -49.49636, -49.49692, -49.51197, 
  -49.51832, -49.51944)
LONGITUDE_VALUEs <- c(
  69.83553, 69.84342, 69.84651, 69.8635, 69.86573, 69.87208, 69.87689, 69.88395, 69.88738, 69.90471, 
  69.91468, 69.92241, 69.9291, 69.9588, 69.96755, 69.99072, 70.00135, 69.99586, 69.96136, 69.92908, 
  69.92908, 69.91175, 69.90008, 69.8951, 69.86799, 69.85855, 69.84172, 69.83588, 69.81838, 69.82661, 
  69.82644, 69.83279)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -48.64821, -48.64639, -48.64095, -48.6397, -48.63437, -48.62915, -48.62439, -48.62654, -48.62371, -48.6304, 
  -48.63029, -48.62132, -48.62212, -48.63142, -48.63051, -48.6329, -48.63187, -48.63959, -48.64242, -48.64764, 
  -48.64571, -48.65297, -48.65184)
LONGITUDE_VALUEs <- c(
  68.65312, 68.6593, 68.65913, 68.66977, 68.66977, 68.67629, 68.6708, 68.66102, 68.64969, 68.64317, 
  68.63013, 68.6243, 68.62069, 68.6176, 68.61108, 68.60919, 68.6037, 68.59855, 68.60834, 68.6049, 
  68.62515, 68.63768, 68.64849)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -48.5951, -48.59964, -48.59885, -48.60021, -48.59828, -48.60203, -48.60475, -48.60907, -48.60566, -48.60929, 
  -48.61281, -48.6068, -48.60294, -48.60237, -48.5993, -48.59806, -48.58795, -48.58046, -48.57319, -48.57046, 
  -48.5842, -48.59113)
LONGITUDE_VALUEs <- c(
  68.77656, 68.77553, 68.77244, 68.76884, 68.76214, 68.75923, 68.76403, 68.763, 68.77141, 68.7793, 
  68.78051, 68.79475, 68.79681, 68.80041, 68.8023, 68.80951, 68.81002, 68.80127, 68.79938, 68.77862, 
  68.77175, 68.77244)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -48.67089, -48.67519, -48.67825, -48.68664, -48.69242, -48.70058, -48.69843, -48.69423, -48.6897, -48.68596, 
  -48.68562, -48.68097, -48.66896, -48.67021, -48.66862, -48.67043, -48.6693)
LONGITUDE_VALUEs <- c(
  69.46818, 69.46801, 69.47676, 69.48071, 69.47161, 69.4893, 69.50594, 69.50783, 69.4869, 69.48432, 
  69.48878, 69.48638, 69.51006, 69.49787, 69.4862, 69.4802, 69.47316)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-48.72731, -48.72674, -48.72403, -48.72221, -48.71576, -48.71632, -48.72289, -48.7247)
LONGITUDE_VALUEs <- c(69.46096, 69.46491, 69.46594, 69.48464, 69.4855, 69.46663, 69.45805, 69.46045)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-49.11016, -49.12174, -49.12207, -49.11668, -49.11398, -49.10983, -49.10567, -49.10275, -49.10376, -49.10814)
LONGITUDE_VALUEs <- c(69.65511, 69.65992, 69.68377, 69.68806, 69.68463, 69.68446, 69.67502, 69.67519, 69.66729, 69.66129)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -49.42715, -49.43407, -49.44379, -49.4555, -49.45695, -49.46778, -49.467, -49.46822, -49.46711, -49.47146, 
  -49.47904, -49.48339, -49.48808, -49.4864, -49.48875, -49.49142, -49.49321, -49.48997, -49.48808, -49.48272, 
  -49.47826, -49.47871, -49.4748, -49.46923, -49.46677, -49.4641, -49.45852, -49.45807, -49.46153, -49.45807, 
  -49.4555, -49.45249, -49.45327, -49.44981, -49.45361, -49.44981, -49.44847, -49.44859, -49.44658, -49.44591, 
  -49.442, -49.43899, -49.43419, -49.43262, -49.43106, -49.42961, -49.42581, -49.42302, -49.42458, -49.42269, 
  -49.42157, -49.419, -49.41811, -49.41599, -49.41811, -49.42704)
LONGITUDE_VALUEs <- c(
  69.80413, 69.8055, 69.81957, 69.82129, 69.82507, 69.83434, 69.83726, 69.84121, 69.84567, 69.86231, 
  69.87245, 69.87245, 69.88343, 69.88464, 69.88927, 69.88875, 69.89442, 69.89699, 69.90265, 69.89253, 
  69.89407, 69.89785, 69.90111, 69.89218, 69.89236, 69.88052, 69.87502, 69.86404, 69.85031, 69.84877, 
  69.84156, 69.84208, 69.8462, 69.84533, 69.86112, 69.86678, 69.86386, 69.85992, 69.85975, 69.85477, 
  69.85425, 69.85906, 69.84499, 69.84825, 69.84464, 69.84653, 69.83451, 69.83571, 69.84189, 69.84189, 
  69.83399, 69.82804, 69.83096, 69.83079, 69.81671, 69.82272)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -49.36951, -49.37778, -49.37375, -49.37577, -49.3856, -49.39119, -49.39264, -49.38717, -49.3865, -49.38135, 
  -49.37744, -49.37845, -49.37141, -49.36694, -49.36705, -49.36559, -49.36705, -49.36492)
LONGITUDE_VALUEs <- c(
  69.87056, 69.89029, 69.88944, 69.89716, 69.91535, 69.92101, 69.93011, 69.93113, 69.94727, 69.9531, 
  69.94761, 69.93903, 69.9344, 69.91895, 69.90231, 69.89853, 69.88429, 69.87983)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -49.47246, -49.47547, -49.47347, -49.47982, -49.47335, -49.47436, -49.46934, -49.46789, -49.46376, -49.46555, 
  -49.46387, -49.4651, -49.46365, -49.46722, -49.46677, -49.46499, -49.46688, -49.47492)
LONGITUDE_VALUEs <- c(
  69.91775, 69.92221, 69.92548, 69.93423, 69.93611, 69.94367, 69.94984, 69.94658, 69.94693, 69.94246, 
  69.93886, 69.93629, 69.92994, 69.92994, 69.9193, 69.91741, 69.90746, 69.91123)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -49.60892, -49.6127, -49.61403, -49.61804, -49.6157, -49.62004, -49.62605, -49.62493, -49.62616, -49.62255, 
  -49.6226, -49.61893, -49.61626, -49.60936, -49.60603, -49.60336, -49.59701, -49.59267, -49.58689, -49.58833, 
  -49.59601, -49.60113, -49.60781, -49.60625)
LONGITUDE_VALUEs <- c(
  69.22528, 69.22374, 69.22734, 69.22854, 69.23077, 69.23283, 69.23026, 69.23386, 69.23729, 69.23821, 
  69.24193,69.24261, 69.24776, 69.24193, 69.24313, 69.23987, 69.23901, 69.22888, 69.22613, 69.22442, 
  69.22751, 69.23712, 69.23677, 69.23008)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -49.61838, -49.64173, -49.64763, -49.64674, -49.63751, -49.62895, -49.61171, -49.60949, -49.60348, -49.59614, 
  -49.60893, -49.6086, -49.61093, -49.60904, -49.6116, -49.61193)
LONGITUDE_VALUEs <- c(
  69.74498, 69.73126, 69.73366, 69.74053, 69.74516, 69.75717, 69.74396, 69.73537, 69.73537, 69.72679, 
  69.71821, 69.72267, 69.72439, 69.72988, 69.73263, 69.73674)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -49.66241, -49.66685, -49.66496, -49.67196, -49.67696, -49.67718, -49.67585, -49.67474, -49.66918, -49.65918, 
  -49.65607, -49.65118, -49.6504, -49.64796, -49.64674, -49.64507, -49.63695, -49.64229, -49.64307, -49.64529, 
  -49.64885, -49.65318, -49.6554, -49.65918, -49.65929)
LONGITUDE_VALUEs <- c(
  69.75461, 69.75427, 69.75736, 69.77846, 69.78293, 69.79013, 69.79065, 69.79305, 69.79133, 69.797, 
  69.78859, 69.78653, 69.78172, 69.77949, 69.77486, 69.77486, 69.76765, 69.75958, 69.75427, 69.75598, 
  69.75169, 69.75341, 69.74603, 69.74414, 69.75083)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -48.90772, -48.91765, -48.90513, -48.90885, -48.90648, -48.91269, -48.91584, -48.90885, -48.89836, -48.89937, 
  -48.89441, -48.89362, -48.89057, -48.89057, -48.88854, -48.8882, -48.88425, -48.88188, -48.88323, -48.89407, 
  -48.89553, -48.90242)
LONGITUDE_VALUEs <- c(
  69.40267, 69.41091, 69.41708, 69.42601, 69.4303, 69.4291, 69.43493, 69.4478, 69.44385, 69.43648, 
  69.43613, 69.43287, 69.43064, 69.42635, 69.42481, 69.41932, 69.42035, 69.41194, 69.4061, 69.40576, 
  69.40147, 69.40421)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -48.87962, -48.88899, -48.88323, -48.88571, -48.8926, -48.89486, -48.87973, -48.87951, -48.87499, -48.86833, 
  -48.86471, -48.86415, -48.85884, -48.8532, -48.85602, -48.85489, -48.85828, -48.8585, -48.86088, -48.84811, 
  -48.84924, -48.848, -48.85161, -48.84529, -48.83862, -48.83478, -48.82744, -48.82597, -48.82337, -48.82992, 
  -48.83026, -48.83354, -48.83455, -48.84913, -48.85353, -48.86223, -48.86991, -48.87522)
LONGITUDE_VALUEs <- c(
  69.43562, 69.43991, 69.44454, 69.45038, 69.44523, 69.45707, 69.47786, 69.48318, 69.48816, 69.5012, 
  69.50103, 69.49777, 69.50291, 69.49296, 69.48953, 69.48593, 69.48438, 69.47632, 69.47065, 69.477, 
  69.46051, 69.45227, 69.44472, 69.44129, 69.45159, 69.45073, 69.45399, 69.44524, 69.43974, 69.414, 
  69.40285, 69.40079, 69.3953, 69.39564, 69.40129, 69.40506, 69.42222, 69.42531)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-49.52993, -49.55465, -49.57169, -49.562, -49.54975, -49.53795, -49.53483, -49.53093)
LONGITUDE_VALUEs <- c(69.7084, 69.72024, 69.73345, 69.73911, 69.73002, 69.72659, 69.71578, 69.712)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-49.54519, -49.54519, -49.54173, -49.53984, -49.53761, -49.53594, -49.53427, -49.53215, -49.54708, -49.54753)
LONGITUDE_VALUEs <- c(69.75216, 69.75748, 69.75765, 69.7537, 69.75387, 69.74804, 69.74855, 69.74066, 69.74752, 69.75233)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-49.0353, -49.04296, -49.03474, -49.02664, -49.03125, -49.03069, -49.03508)
LONGITUDE_VALUEs <- c(69.5953, 69.6032, 69.65279, 69.65348, 69.63031, 69.62104, 69.60491)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-48.99218, -49.01369, -49.01459, -49.00491, -49.00221, -48.99669, -48.9897, -48.98835)
LONGITUDE_VALUEs <- c(69.4657, 69.45627, 69.47411, 69.47463, 69.48304, 69.48115, 69.48836, 69.47617)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -49.23976, -49.25074, -49.25186, -49.25399, -49.24984, -49.24704, -49.24312, -49.24267, -49.24009, -49.24166, 
  -49.23841)
LONGITUDE_VALUEs <- c(
  69.54761, 69.544, 69.58124, 69.59205, 69.59754, 69.58381, 69.58999, 69.58296, 69.57712, 69.57163, 
  69.56185)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-49.48783, -49.49675, -49.50021, -49.50678, -49.50556, -49.49385, -49.49195, -49.48716, -49.48337)
LONGITUDE_VALUEs <- c(69.90627, 69.92326, 69.92532, 69.93922, 69.94265, 69.93167, 69.9248, 69.92411, 69.91348)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-49.50258, -49.49723, -49.49567, -49.5037, -49.51529, -49.51072, -49.50727)
LONGITUDE_VALUEs <- c(69.99713, 69.99833, 69.99163, 69.97156, 69.9961, 69.99798, 70.00416)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-49.48412, -49.49349, -49.49438, -49.49171, -49.49126, -49.48847, -49.48513, -49.48055, -49.481)
LONGITUDE_VALUEs <- c(69.95925, 69.96612, 69.97693, 69.9783, 69.98294, 69.98173, 69.98517, 69.97985, 69.96698)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-49.48825, -49.4849, -49.48279, -49.4858, -49.4916, -49.49918, -49.49717, -49.49349, -49.49204, -49.48937, 
  -49.49293, -49.48959)
LONGITUDE_VALUEs <- c(70.07512, 70.077, 70.06945, 70.05813, 70.05641, 70.08576, 70.10189, 70.1012, 70.11029, 70.10961, 
  70.09125, 70.08352)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -49.47378, -49.47857, -49.47891, -49.47668, -49.47266, -49.47277, -49.46987, -49.46742, -49.46441, -49.46385, 
  -49.46998)
LONGITUDE_VALUEs <- c(
  70.07491, 70.07354, 70.09036, 70.09019, 70.09997, 70.10855, 70.10992, 70.1034, 70.1034, 70.09242, 
  70.08487)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -49.41298, -49.42035, -49.42002, -49.42326, -49.42136, -49.42315, -49.417, -49.41622, -49.41164, -49.41164, 
  -49.40785, -49.40449, -49.39679, -49.4036, -49.40271, -49.40561, -49.40584, -49.40919, -49.4084, -49.41187)
LONGITUDE_VALUEs <- c(
  69.9199, 69.92161, 69.92625, 69.93294, 69.93997, 69.94752, 69.94787, 69.95216, 69.95096, 69.95799, 
  69.95851, 69.94941, 69.94495, 69.93328, 69.92676, 69.92299, 69.93826, 69.93809, 69.92848, 69.92573)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-49.46314, -49.46961, -49.46827, -49.46972, -49.46403, -49.46046, -49.45343, -49.45477, -49.46024, -49.45209)
LONGITUDE_VALUEs <- c(69.97822, 69.99247, 70.00276, 70.01272, 70.0074, 70.01289, 70.01186, 70.00414, 69.99967, 69.97994)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -49.20517, -49.2119, -49.21258, -49.21459, -49.21426, -49.21684, -49.22177, -49.21269, -49.21392, -49.21067, 
  -49.20876, -49.20697)
LONGITUDE_VALUEs <- c(
  69.68866, 69.67785, 69.68351, 69.67991, 69.66875, 69.66669, 69.69278, 69.69895, 69.68849, 69.6878, 
  69.69964, 69.70084)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -49.17283, -49.18281, -49.18371, -49.1873, -49.18719, -49.18304, -49.17788, -49.18023, -49.1818, -49.17866, 
  -49.17743, -49.17664, -49.17372, -49.17058)
LONGITUDE_VALUEs <- c(
  69.4477, 69.45028, 69.46795, 69.47876, 69.48631, 69.49129, 69.49026, 69.48631, 69.47207, 69.46847, 
  69.4544, 69.46366, 69.46915, 69.45903)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-49.21422, -49.21994, -49.21826, -49.21164)
LONGITUDE_VALUEs <- c(69.53232, 69.57093, 69.5826, 69.55257)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-49.24382, -49.24314, -49.23956, -49.23776, -49.23788)
LONGITUDE_VALUEs <- c(69.61541, 69.6221, 69.62245, 69.61249, 69.59362)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-49.50189, -49.50702, -49.51259, -49.50557)
LONGITUDE_VALUEs <- c(70.03381, 70.03089, 70.05354, 70.05818)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-49.42333, -49.42054, -49.41507, -49.41261, -49.4106, -49.41328, -49.41674, -49.41775, -49.42623, -49.42568)
LONGITUDE_VALUEs <- c(69.98647, 69.98836, 69.97961, 69.98442, 69.98047, 69.9652, 69.96794, 69.97738, 69.98287, 69.98853)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-49.51778, -49.53126, -49.53068, -49.52733, -49.52265, -49.52042, -49.51518)
LONGITUDE_VALUEs <- c(70.25507, 70.2597, 70.26722, 70.26748, 70.27195, 70.26182, 70.26199)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-49.50957, -49.50455, -49.49764, -49.50689)
LONGITUDE_VALUEs <- c(70.24552, 70.24535, 70.2263, 70.2311)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-49.39137, -49.39841, -49.39789, -49.39104, -49.38769, -49.38858)
LONGITUDE_VALUEs <- c(70.02046, 70.02406, 70.03245, 70.02921, 70.03195, 70.02475)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-49.39048, -49.39629, -49.39685, -49.39182, -49.38869)
LONGITUDE_VALUEs <- c(69.9827, 69.98408, 69.99248, 69.99197, 69.99763)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-49.39701, -49.40148, -49.40416, -49.40628, -49.41041, -49.39768)
LONGITUDE_VALUEs <- c(70.00879, 70.00485, 70.00725, 70.00313, 70.01188, 70.01325)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -37.79997, -37.80899, -37.8239, -37.83739, -37.84056, -37.84903, -37.85853, -37.86158, -37.86854, -37.87287, 
  -37.88005, -37.87972, -37.87245, -37.8568, -37.85297, -37.8306, -37.81367, -37.79594, -37.79248, -37.79797)
LONGITUDE_VALUEs <- c(
  77.52976, 77.52805, 77.51791, 77.51259, 77.51508, 77.51619, 77.52412, 77.53038, 77.53671, 77.53636, 
  77.55473, 77.56382, 77.57636, 77.59601, 77.59694, 77.59411, 77.58899, 77.57598, 77.55779, 77.54363)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -38.72168, -38.72818, -38.72938, -38.7348, -38.73634, -38.73507, -38.73608, -38.73554, -38.73658, -38.73785, 
  -38.73741, -38.73899, -38.73902, -38.73631, -38.73469, -38.73544, -38.73387, -38.73099, -38.72978, -38.72757, 
  -38.7257, -38.72473, -38.72345, -38.72128, -38.72037, -38.71873, -38.71637, -38.71346, -38.71242, -38.71145, 
  -38.71112, -38.70994, -38.70765, -38.70721, -38.70485, -38.70376, -38.70296, -38.70365, -38.70222, -38.70284, 
  -38.7056, -38.71334, -38.71493, -38.71714, -38.71796, -38.71979, -38.72057)
LONGITUDE_VALUEs <- c(
  77.50871, 77.50982, 77.51094, 77.51008, 77.5118, 77.51634, 77.51866, 77.52132, 77.52553, 77.52639, 
  77.53334, 77.53493, 77.53699, 77.53866, 77.54375, 77.54809, 77.54847, 77.54747, 77.54635, 77.54631, 
  77.54176, 77.54158, 77.54008, 77.53892, 77.53716, 77.53601, 77.532, 77.53281, 77.53075, 77.53133, 
  77.52983, 77.52968, 77.52403, 77.52395, 77.52028, 77.51972, 77.5156, 77.51401, 77.50945, 77.50773, 
  77.50558, 77.50453, 77.50532, 77.50496, 77.50569, 77.50644, 77.50777)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -21.46999, -21.50321, -21.5175, -21.52597, -21.52469, -21.51583, -21.50097, -21.48372, -21.47478, -21.47142, 
  -21.47398, -21.46423, -21.45641, -21.44195, -21.43715, -21.43516, -21.43899, -21.44155, -21.45353)
LONGITUDE_VALUEs <- c(
  39.62735, 39.6361, 39.64623, 39.6658, 39.69275, 39.71636, 39.73687, 39.74648, 39.74554, 39.73721, 
  39.7264, 39.71678, 39.70477, 39.7082, 39.70296, 39.68597, 39.67344, 39.65705, 39.63628)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -22.34777, -22.35927, -22.36847, -22.37474, -22.38491, -22.39368, -22.39828, -22.3986, -22.39458, -22.38839, 
  -22.37713, -22.373, -22.36951, -22.34204, -22.33705, -22.33602, -22.34046, -22.34372, -22.34644, -22.34596, 
  -22.34124, -22.33971, -22.33927, -22.3405, -22.34137, -22.34499, -22.34648)
LONGITUDE_VALUEs <- c(
  40.33156, 40.33262, 40.32893, 40.3303, 40.34326, 40.35051, 40.36218, 40.36781, 40.37725, 40.3818, 
  40.39459, 40.3963, 40.39922, 40.39021, 40.38729, 40.38403, 40.38192, 40.38192, 40.37813, 40.37542, 
  40.37147, 40.36871, 40.35129, 40.34806, 40.34283, 40.33691, 40.33242)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -11.57418, -11.58343, -11.5957, -11.59638, -11.53937, -11.53045, -11.52187, -11.51483, -11.50768, -11.50877, 
  -11.51079, -11.50953, -11.51811, -11.52711, -11.52896, -11.5266, -11.52854, -11.54107, -11.55503, -11.54998, 
  -11.5372, -11.53039, -11.53064, -11.55477, -11.55183, -11.56722)
LONGITUDE_VALUEs <- c(
  47.28106, 47.28106, 47.29084, 47.3147, 47.39297, 47.39898, 47.41322, 47.41391, 47.41056, 47.39099, 
  47.38499, 47.37641, 47.36953, 47.37228, 47.36987, 47.36395, 47.35434, 47.33863, 47.33314, 47.31684, 
  47.32173, 47.31958, 47.31298, 47.30182, 47.29547, 47.28791)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -17.04605, -17.05264, -17.05446, -17.05623, -17.05893, -17.06259, -17.0638, -17.06402, -17.06164, -17.06174, 
  -17.05961, -17.05932, -17.06049, -17.06084, -17.06031, -17.05955, -17.05713, -17.05487, -17.05389, -17.04995, 
  -17.0479, -17.04685, -17.04679, -17.04548)
LONGITUDE_VALUEs <- c(
  42.69879, 42.71058, 42.71152, 42.71073, 42.71201, 42.7206, 42.72154, 42.72343, 42.72798, 42.73188, 
  42.73216, 42.73397, 42.74012, 42.74903, 42.75011, 42.75006, 42.74737, 42.746, 42.74203, 42.73163, 
  42.7147, 42.70974, 42.70536, 42.69933)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -15.88607, -15.88861, -15.89344, -15.89493, -15.89701, -15.89758, -15.89723, -15.89448, -15.89331, -15.89116, 
  -15.88732, -15.88599, -15.88527, -15.8851, -15.88537)
LONGITUDE_VALUEs <- c(
  54.51811, 54.51768, 54.52069, 54.52254, 54.52439, 54.52571, 54.52689, 54.52837, 54.52847, 54.52773, 
  54.52339, 54.51975, 54.5189, 54.51813, 54.51786)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
MGeo_1 <- MGeo_1 %>%
  mutate(NAME = "FRENCH SOUTHERN TERRITORIES",
         VISUALIZATION_NAME = "French Southern Territories",
         ISO2 = "TF", ISO3 = "ATF", M49_CODE = "260", SOVRN = "France", CONTINENT = "AFRICA",
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, MGeo_1)

ARUNACHAL PRADESH is included in INDIA in GeoDATA.

ARUNACHAL PRADESH is an Indian State (claimed by CHINA).

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "INDIA")
Geo_2 <- GeoDATA %>% filter(NAME == "BHUTAN")
Geo_3 <- GeoDATA %>% filter(NAME == "CHINA")
Geo_4 <- GeoDATA %>% filter(NAME == "MYANMAR")

##### INDIA #####
LATITUDE_VALUEs <- c(
  26.71127, 26.70161, 26.72093, 26.73473, 26.7358, 26.72261, 26.72185, 26.73243, 26.72982, 26.76799, 
  26.77243, 26.78194, 26.79144, 26.80032, 26.83541, 26.8593, 26.85945, 26.84873, 26.87339, 26.90018, 
  26.90385, 26.8158, 26.79144, 26.77795, 26.78454, 26.77151, 26.76876, 26.77443, 26.77627, 26.78853, 
  26.78209, 26.79082, 26.77979, 26.82101, 26.81059, 26.81304, 26.80063, 26.78745, 26.78086, 26.79603, 
  26.83924, 26.80063, 26.79174, 26.80584, 26.82131, 26.80722, 26.81304, 26.81381, 26.86389, 26.9135, 
  26.91962, 26.90171, 26.86022, 26.85011, 26.8495, 26.86925, 26.88074,
  26.89452, 26.91074, 26.91702, 26.92896, 26.93447, 26.94059, 26.95161, 26.96125, 26.97456, 26.98052, 
  26.9871, 26.9894, 27.00546, 27.01998, 27.04032, 27.05316, 27.06417, 27.06906, 27.07884, 27.09229, 
  27.11078, 27.13844, 27.16868, 27.18181, 27.18639, 27.21067, 27.21495, 27.23754, 27.24685, 27.25249, 
  27.25555, 27.25967, 27.26104, 27.26989, 27.27767, 27.26943, 27.2708, 27.28164, 27.28942, 27.30391, 
  27.30498, 27.32801, 27.34326, 27.36033, 27.37756, 27.38137, 27.40225, 27.41795, 27.42328, 27.42633, 
  27.43684, 27.44019, 27.45009, 27.46198, 27.47233, 27.4801, 27.47599, 27.47964, 27.4766, 27.46685, 
  27.4635, 27.46639, 27.46, 27.46045, 27.47355, 27.47051, 27.47538, 27.46974, 27.4798, 27.48436, 
  27.48162, 27.48467, 27.48604, 27.4766, 27.46807, 27.47431, 27.47538, 27.46518, 27.467, 27.47401, 
  27.47568, 27.47112, 27.46974, 27.47538, 27.49868, 27.49822, 27.50614, 27.50096, 27.4932, 27.49289, 
  27.4836, 27.48452, 27.50172, 27.50507, 27.51116, 27.51497, 27.53506, 27.53857, 27.54374, 27.54115, 
  27.54952, 27.55683, 27.56687, 27.58346, 27.60993, 27.63062, 27.66194, 27.66954, 27.68034, 27.68262, 
  27.69067, 27.69812, 27.7159, 27.71788, 27.7355, 27.74811, 27.75206, 27.77014, 27.77363, 27.80446, 
  27.82374, 27.82207, 27.81767, 27.81889, 27.81114, 27.81782,
  27.82592, 27.83321, 27.83108, 27.83457, 27.83305, 27.8367, 27.84186, 27.83214, 27.83138, 27.81195, 
  27.79252, 27.78021, 27.79358, 27.7916, 27.79996, 27.7869, 27.77551, 27.7708, 27.77809, 27.7752, 
  27.78811, 27.78416, 27.79009, 27.77915, 27.76715, 27.75986, 27.73388, 27.72917, 27.72021, 27.72385, 
  27.72963, 27.71702, 27.72674, 27.72598, 27.73662, 27.73874, 27.75196, 27.75682, 27.7793, 27.78128, 
  27.77611, 27.779, 27.77566, 27.78113, 27.77976, 27.78902, 27.80375, 27.83503, 27.83017, 27.84732, 
  27.84732, 27.85689, 27.86463, 27.87297, 27.88754, 27.87995, 27.88723, 27.87161, 27.84596, 27.83564, 
  27.81317, 27.79798, 27.79616, 27.80649, 27.80375, 27.80983, 27.82091, 27.82197, 27.82941, 27.83564, 
  27.83138, 27.82425, 27.81681, 27.81332, 27.80178, 27.80482, 27.79312, 27.83791, 27.85127, 27.84748, 
  27.85506, 27.86599, 27.87682, 27.87469, 27.8838, 27.88015, 27.91717, 27.91171, 27.94932, 27.94811, 
  27.96327, 27.98086, 28.0036, 28.04087, 28.06542, 28.06875, 28.0839, 28.10146, 28.15021, 28.15112, 
  28.16807, 28.15445, 28.16171, 28.16262, 28.18744, 28.17533, 28.20136, 28.20045, 28.21527, 28.22889, 
  28.24885, 28.2685, 28.27183, 28.29662, 28.31113, 28.30539, 28.32503, 28.36885, 28.37821, 28.43317, 
  28.44615, 28.54995, 28.55839, 28.54482, 28.5409, 28.52642, 28.53185, 28.5478, 28.58459, 28.58489, 
  28.61805, 28.62829, 28.66806, 28.68704, 28.65391, 28.67831, 28.66294, 28.71986, 28.73642, 28.73462, 
  28.74786, 28.74274, 28.75719, 28.73973, 28.74365, 28.77405, 28.82128, 28.80714, 28.79661, 28.7909, 
  28.79511, 28.8282, 28.85496, 28.85887, 28.87631, 28.90938, 28.9241, 28.93732, 28.92861, 28.96947, 
  29.02322, 29.03613, 29.03853, 29.08024, 29.08804, 29.10964, 29.12554, 29.15073, 29.15703, 29.1849, 
  29.18401, 29.21338, 29.20798, 29.23016, 29.21907, 29.27568, 29.28347, 29.29605, 29.29665, 29.30712, 
  29.30413, 29.3191, 29.29092, 29.28763, 29.27326, 29.25828, 29.24151, 29.22383, 29.21424, 29.18367, 
  29.16389, 29.18337, 29.17618, 29.15699, 29.16029, 29.1471, 29.1315, 29.12581, 29.1366, 29.1477,
  29.1739, 29.1724, 29.16535, 29.15036, 29.15366, 29.14437, 29.14511, 29.13687, 29.13702, 29.12937, 
  29.11273, 29.10118, 29.09548, 29.09998, 29.08768, 29.10328, 29.10118, 29.10898, 29.10388, 29.08318, 
  29.08198, 29.06817, 29.07282, 29.10478, 29.11018, 29.11647, 29.13897, 29.13567, 29.12367, 29.12547, 
  29.14497, 29.14826, 29.16385, 29.16715, 29.18454, 29.18364, 29.19308, 29.18873, 29.17974, 29.17689, 
  29.1712, 29.16655, 29.16086, 29.15396, 29.14841, 29.13747, 29.13672, 29.14467, 29.12547, 29.12727, 
  29.13432, 29.14347, 29.1646, 29.1724, 29.17779, 29.18724, 29.19533, 29.18814, 29.19488, 29.19623, 
  29.17944, 29.19383, 29.20672, 29.22799, 29.23623, 29.2232, 29.21601, 29.21001, 29.2244, 29.2238, 
  29.21316, 29.20552, 29.20402, 29.21601, 29.2172, 29.22589, 29.23563, 29.27742, 29.30107, 29.32307, 
  29.32307, 29.34807, 29.3524, 29.34028, 29.33505, 29.32113, 29.31454, 29.3319, 29.34896, 29.36527, 
  29.36707, 29.37619, 29.36198, 29.36976, 29.36288, 29.37724, 29.38218, 29.37425, 29.34432, 29.32771, 
  29.31604, 29.30975, 29.29388, 29.29418, 29.26424, 29.26304, 29.24926, 29.24417, 29.21541, 29.19593, 
  29.15816, 29.15936, 29.15126, 29.13177, 29.11318, 29.07357, 29.05797, 29.03906, 29.02796, 29.07838, 
  29.10058, 29.10028, 29.10958, 29.09308, 29.06937, 29.06877, 29.03666, 29.02735, 29.00514, 28.99553, 
  28.93814, 28.92973, 28.94806, 28.9458, 28.91681, 28.90914, 28.86208, 28.84344, 28.82509, 28.81908, 
  28.7911, 28.77846, 28.78117, 28.75799, 28.73903, 28.73421, 28.70079, 28.69266, 28.6773, 28.66706, 
  28.66013, 28.66616, 28.66104, 28.67881, 28.68423, 28.69838, 28.68543, 28.68694, 28.67881, 28.66555, 
  28.62488, 28.62639, 28.6068, 28.60047, 28.58811, 28.56188, 28.53111, 28.51784, 28.50789, 28.50396, 
  28.48858, 28.49114, 28.43183, 28.43334, 28.53232, 28.57997, 28.61312, 28.60921, 28.56127, 28.54348, 
  28.51513, 28.48676, 28.44815, 28.42279, 28.39939, 28.38502, 28.36388, 28.3533, 28.34575, 28.33151, 
  28.32124, 28.35901, 28.3711, 28.35297, 28.33393, 28.33272, 28.3019, 28.30794, 28.3025, 28.29434, 
  28.28345, 28.2638, 28.2635, 28.24384, 28.24596, 28.23326, 28.23326, 28.21453, 28.2165,
  28.20742, 28.20788, 28.20304, 28.17384, 28.16597, 28.15779, 28.15204, 28.14932, 28.13842, 28.11435, 
  28.08634, 28.06861, 28.05998, 28.05968, 28.06649, 28.06604, 28.03695, 28.01604, 27.983, 27.97709, 
  27.97694, 27.96177, 27.95252, 27.93706, 27.92993, 27.92219, 27.8917, 27.88381, 27.87698, 27.87304, 
  27.88563, 27.88685, 27.89458, 27.91825, 27.8917, 27.88321, 27.84694, 27.83601, 27.83145, 27.81536, 
  27.80898, 27.7982, 27.78848, 27.78712, 27.77846, 27.7698, 27.76282, 27.75492, 27.73912, 27.74778, 
  27.75127, 27.73638, 27.70827, 27.68927, 27.67301, 27.67027, 27.66084, 27.6651, 27.65978, 27.63834, 
  27.63119, 27.62389, 27.61705, 27.61035, 27.59727, 27.58388, 27.58008, 27.56973, 27.55954, 27.5434, 
  27.53914, 27.51555, 27.50595, 27.49514, 27.49179, 27.45539, 27.43026, 27.41913, 27.40786, 27.40679, 
  27.39704, 27.38847, 27.37536, 27.3534, 27.34609, 27.34456, 27.31803, 27.30643, 27.28203, 27.28081, 
  27.26463, 27.23991, 27.21366, 27.19045, 27.1761, 27.16235, 27.14952, 27.14402, 27.11988, 27.11805, 
  27.09177, 27.09757, 27.1046, 27.10735, 27.09544, 27.12722, 27.12661, 27.14005, 27.13944, 27.15502, 
  27.16451, 27.1616, 27.1671, 27.17352, 27.20421, 27.21642, 27.23367, 27.24847, 27.25931, 27.26145, 
  27.3214, 27.33009, 27.33848, 27.35678, 27.35815, 27.37705, 27.37263, 27.34168, 27.33284, 27.36394, 
  27.36669, 27.32948, 27.29913, 27.29882, 27.2886, 27.29699, 27.29562, 27.30599, 27.29074, 27.28799, 
  27.29425, 27.28296, 27.26953, 27.27487, 27.27319, 27.26358, 27.26068, 27.25, 27.24802, 27.22114, 
  27.20602, 27.20606, 27.17857, 27.14081, 27.13593, 27.11072, 27.10002, 27.05111, 27.02313, 27.0138, 
  27.01441, 27.00799, 27.01609, 27.01212, 27.00722, 26.98872, 26.9777, 26.97755, 26.95062, 26.91328, 
  26.88771, 26.88373, 26.90685, 26.89062, 26.87546, 26.86291, 26.8384, 26.81404, 26.81359, 26.82526,
  26.8302, 26.804, 26.74622, 26.7358, 26.70253, 26.70069, 26.67906, 26.66955, 26.67446, 26.67231, 
  26.66525, 26.66449, 26.65099, 26.65897, 26.65544, 26.67292, 26.68397, 26.68213, 26.64731, 26.64101, 
  26.64301, 26.6338, 26.62153, 26.61569, 26.5919, 26.583, 26.57855, 26.55613, 26.55798, 26.55137, 
  26.54201, 26.53433, 26.52864, 26.52358, 26.51697, 26.50499, 26.49301, 26.48625, 26.47887, 26.47718, 
  26.44937, 26.44122, 26.44691, 26.44629, 26.42001, 26.3994, 26.39371, 26.39556, 26.38357, 26.36573, 
  26.35388, 26.33804, 26.3305, 26.31804, 26.30711, 26.30296, 26.29265, 26.28634, 26.27679, 26.26171, 
  26.25355, 26.24985, 26.24647, 26.23384, 26.21028, 26.18563, 26.17685, 26.16314, 26.1445, 26.10951, 
  26.09826, 26.09317, 26.08685, 26.09348, 26.07375, 26.06526, 26.0139, 25.98536, 25.97857, 25.96129, 
  25.94662, 25.93304, 25.92223, 25.91729, 25.90571, 25.88842, 25.87174, 25.85814, 25.82709, 25.8087, 
  25.79757, 25.77717, 25.75692, 25.74037, 25.73836, 25.73156, 25.73357, 25.7212, 25.70635, 25.66242, 
  25.64245, 25.61274, 25.59724, 25.59786, 25.59229, 25.58516, 25.57138, 25.56565, 25.56736, 25.56395, 
  25.56395, 25.54506, 25.52322, 25.51129, 25.49549, 25.49006, 25.48185, 25.48138, 25.49518, 25.48076, 
  25.46542, 25.44419, 25.42682, 25.40481, 25.40543, 25.39566, 25.37565, 25.35766, 25.34727, 25.26781, 
  25.25912, 25.24918, 25.23117, 25.21611, 25.18254, 25.18596, 25.16576, 25.16731, 25.15271, 25.15739,
  25.12735, 24.61698, 26.70216)
LONGITUDE_VALUEs <- c(
  89.81064, 89.86264, 89.86418, 89.85972, 89.86453, 89.90159, 89.96822, 90.01627, 90.0451, 90.19069, 
  90.18983, 90.1955, 90.18469, 90.18331, 90.20133, 90.22965, 90.2535, 90.30073, 90.34484, 90.35428, 
  90.41674, 90.54722, 90.63614, 90.64558, 90.67321, 90.69092, 90.71734, 90.74308, 90.82635, 90.96146, 
  90.95614, 90.99526, 91.0543, 91.09686, 91.14594, 91.23449, 91.27816, 91.29824, 91.33805, 91.37876, 
  91.40828, 91.46872, 91.49806, 91.59334, 91.62697, 91.69184, 91.70647, 91.7238, 91.82491, 91.85958, 
  91.89459, 91.93396, 91.98857, 92.02014, 92.05654, 92.10254, 92.10065,
  92.11501, 92.1186, 92.11431, 92.11671, 92.11431, 92.11877, 92.11242, 92.12134, 92.11808, 92.10435, 
  92.10452, 92.10761, 92.10229, 92.07741, 92.08221, 92.0441, 92.03654, 92.03843, 92.03071, 92.03157, 
  92.02247, 92.03706, 92.02573, 92.03981, 92.05629, 92.06109, 92.06916, 92.07191, 92.06058, 92.05989, 
  92.03827, 92.03707, 92.04308, 92.04685, 92.07688, 92.08737, 92.11963, 92.12529, 92.12083, 92.09783, 
  92.08771, 92.06471, 92.0623, 92.04702, 92.04857, 92.05371, 92.0556, 92.03706, 92.03775, 92.04324, 
  92.04135, 92.02667, 92.02118, 92.02273, 92.01844, 92.01878, 92.00607, 91.99886, 91.99268, 91.98942, 
  91.97825, 91.97242, 91.96007, 91.94118, 91.92332, 91.89759, 91.88454, 91.87166, 91.86789, 91.86171, 
  91.85536, 91.85398, 91.84935, 91.84248, 91.82582, 91.81535, 91.80592, 91.77552, 91.76608, 91.7659, 
  91.75062, 91.7465, 91.73156, 91.71284, 91.71682, 91.706, 91.69381, 91.68558, 91.68163, 91.67064, 
  91.65811, 91.6509, 91.64643, 91.63545, 91.63305, 91.6236, 91.61364, 91.6145, 91.61175, 91.59441, 
  91.59117, 91.58207, 91.58361, 91.5649, 91.58327, 91.56112, 91.57331, 91.59442, 91.59648, 91.60386, 
  91.6073, 91.62945, 91.62772, 91.63201, 91.63905, 91.63425, 91.64197, 91.64507, 91.6394, 91.63408, 
  91.61125, 91.60078, 91.59838, 91.58876, 91.57966, 91.56884,
  91.56607, 91.57653, 91.59095, 91.59406, 91.59835, 91.60968, 91.61105, 91.63319, 91.6567, 91.69173, 
  91.70563, 91.72571, 91.73414, 91.7386, 91.74358, 91.77481, 91.77069, 91.77979, 91.78167, 91.80759, 
  91.80724, 91.81445, 91.82801, 91.84019, 91.83645, 91.85241, 91.86202, 91.87129, 91.87214, 91.89617, 
  91.89994, 91.92568, 91.93772, 91.94304, 91.95265, 91.96552, 91.96757, 91.97547, 91.97926, 92.01223, 
  92.01686, 92.02854, 92.03746, 92.04621, 92.05754, 92.06183, 92.11144, 92.14354, 92.16242, 92.1746, 
  92.1873, 92.19253, 92.21416, 92.21176, 92.24456, 92.25604, 92.26583, 92.29399, 92.3029, 92.29603, 
  92.32023, 92.32041, 92.33792, 92.35491, 92.36366, 92.36933, 92.39732, 92.40814, 92.4102, 92.42256, 
  92.42772, 92.42085, 92.42513, 92.42221, 92.42684, 92.43423, 92.45964, 92.47886, 92.50186, 92.51079, 
  92.52847, 92.53088, 92.55444, 92.56234, 92.56783, 92.58054, 92.59599, 92.64614, 92.67529, 92.68525, 
  92.70002, 92.73333, 92.71994, 92.73779, 92.71993, 92.66571, 92.65506, 92.66639, 92.67326, 92.69898, 
  92.71375, 92.73882, 92.74775, 92.7687, 92.78004, 92.83018, 92.88438, 92.92181, 92.93658, 92.92765, 
  92.93209, 92.96609, 92.99253, 93.00593, 93.05298, 93.06603, 93.07698, 93.15116, 93.14635, 93.17417, 
  93.14978, 93.25346, 93.28022, 93.28332, 93.29809, 93.30908, 93.39219, 93.38977, 93.41827, 93.44025, 
  93.46012, 93.5034, 93.50786, 93.62561, 93.63488, 93.68778, 93.7125, 93.78664, 93.78836, 93.79964, 
  93.84222, 93.86077, 93.89546, 93.91023, 93.91984, 93.91229, 93.97615, 93.98783, 93.98543, 93.99573, 
  94.0208, 94.01701, 94.02903, 94.05788, 94.05857, 94.17596, 94.16497, 94.17836, 94.25976, 94.27796, 
  94.36687, 94.36, 94.32806, 94.31159, 94.28034, 94.27278, 94.29476, 94.29545, 94.38402, 94.39021, 
  94.44994, 94.45646, 94.49321, 94.50935, 94.54095, 94.59686, 94.61918, 94.62468, 94.64288, 94.65833, 
  94.66692, 94.69165, 94.7167, 94.73525, 94.73559, 94.74898, 94.74589, 94.75825, 94.80049, 94.79602, 
  94.80666, 94.85097, 94.89866, 94.91618, 94.96014, 94.99277, 94.9986, 95.02333, 95.01436, 95.01436,
  94.98896, 94.99994, 95.00646, 95.04422, 95.05404, 95.07086, 95.08355, 95.08767, 95.09745, 95.09883, 
  95.11993, 95.10034, 95.10206, 95.12746, 95.13535, 95.18192, 95.1917, 95.21023, 95.23065, 95.2384, 
  95.25676, 95.26191, 95.27272, 95.27202, 95.28334, 95.27785, 95.30702, 95.39248, 95.39797, 95.41273, 
  95.4097, 95.41519, 95.41399, 95.42017, 95.41914, 95.42688, 95.43494, 95.44592, 95.4473, 95.45416, 
  95.45296, 95.45519, 95.44987, 95.45434, 95.45245, 95.45983, 95.46806, 95.47956, 95.50721, 95.5115, 
  95.50995, 95.5162, 95.51449, 95.50659, 95.50659, 95.50127, 95.50573, 95.52977, 95.53218, 95.55038, 
  95.57353, 95.60564, 95.59465, 95.59791, 95.60581, 95.63792, 95.63689, 95.64857, 95.66571, 95.69868, 
  95.70555, 95.70298, 95.70864, 95.72101, 95.73749, 95.74299, 95.72786, 95.75155, 95.73919, 95.75807, 
  95.77867, 95.81213, 95.83927, 95.8427, 95.83703, 95.83909, 95.87773, 95.89198, 95.93898, 95.94087, 
  95.95581, 95.96594, 95.98191, 95.99582, 96.01814, 96.03838, 96.05504, 96.06208, 96.13898, 96.14349, 
  96.13937, 96.14727, 96.14898, 96.1665, 96.19053, 96.21697, 96.23312, 96.263, 96.25781, 96.3004, 
  96.29834, 96.26571, 96.24579, 96.23927, 96.18329, 96.19875, 96.18192, 96.18673, 96.21524, 96.24546, 
  96.28187, 96.345, 96.36835, 96.35599, 96.35256, 96.36183, 96.36389, 96.40097, 96.436, 96.42673, 
  96.44747, 96.47408, 96.48181, 96.50926, 96.52763, 96.51802, 96.52354, 96.55306, 96.56749, 96.58947, 
  96.57023, 96.57916, 96.6032, 96.60388, 96.61761, 96.63135, 96.62894, 96.64715, 96.63958, 96.64714, 
  96.63477, 96.62928, 96.60387, 96.60077, 96.57673, 96.56543, 96.55547, 96.54379, 96.5352, 96.54551, 
  96.51084, 96.49435, 96.49367, 96.45967, 96.4473, 96.48509, 96.45521, 96.41057, 96.40885, 96.43873, 
  96.44594, 96.47831, 96.48752, 96.50641, 96.51327, 96.54315, 96.61901, 96.6537, 96.7591, 96.75017, 
  96.7656, 96.86176, 96.86547, 96.89311, 96.88298, 96.88984, 96.92194, 96.92349, 96.9556, 96.97228, 
  97.02208, 97.05333, 97.07838, 97.14604, 97.157, 97.17967, 97.20783, 97.21845, 97.22086, 97.23871,
  97.23631, 97.24627, 97.26515, 97.27202, 97.28438, 97.28438, 97.29743, 97.32999, 97.34545,
  97.34761, 97.35396, 97.36202, 97.35379, 97.36082, 97.35258, 97.35292, 97.34091, 97.32306, 97.34452, 
  97.3071, 97.30658, 97.3131, 97.3397, 97.34845, 97.35635, 97.3713, 97.39705, 97.37559, 97.37542, 
  97.36735, 97.36152, 97.37799, 97.36581, 97.37061, 97.36907, 97.37902, 97.3665, 97.3665, 97.35946, 
  97.34179, 97.31913, 97.32014, 97.304, 97.24994, 97.24769, 97.20324, 97.1986, 97.18093, 97.17526, 
  97.14746, 97.14555, 97.12925, 97.1066, 97.10282, 97.1126, 97.10642, 97.10865, 97.10127, 97.09012, 
  97.07124, 97.02444, 97.01706, 97.00058, 96.99817, 96.981, 96.97585, 96.95868, 96.93635, 96.9429, 
  96.92384, 96.92847, 96.9034, 96.89756, 96.91234, 96.9156, 96.90805, 96.90478, 96.9223, 96.91509, 
  96.92746, 96.92265, 96.93535, 96.93071, 96.92316, 96.91303, 96.94548, 96.94324, 96.95697, 96.97277, 
  96.9702, 96.97815, 96.97265, 96.99291, 96.98021, 96.99085, 96.9984, 97.02966, 97.04028, 97.05092, 
  97.05573, 97.08905, 97.09042, 97.12267, 97.12301, 97.14877, 97.15014, 97.1656, 97.16079, 97.14877, 
  97.13915, 97.12304, 97.12098, 97.09625, 97.07633, 97.03889, 97.03138, 97.00974, 96.99326, 96.98536, 
  96.9441, 96.93156, 96.9187, 96.89277, 96.85792, 96.85741, 96.88677, 96.88711, 96.87356, 96.85913, 
  96.82171, 96.80815, 96.80455, 96.77552, 96.74207, 96.71304, 96.70171, 96.68849, 96.66325, 96.62996, 
  96.60695, 96.59323, 96.56301, 96.54051, 96.52231, 96.51152, 96.47374, 96.43238, 96.40851, 96.33659, 
  96.31667, 96.28971, 96.27875, 96.25454, 96.23187, 96.22036, 96.20233, 96.19, 96.15514, 96.08853, 
  96.07258, 96.06589, 96.02073, 96.01043, 95.99703, 95.98315, 95.96787, 95.94451, 95.87757, 95.87533, 
  95.8434, 95.83018, 95.80219, 95.80067, 95.80256, 95.78212, 95.78024, 95.76788, 95.75552, 95.75878, 
  95.73028, 95.71105, 95.67825, 95.65733, 95.64978, 95.6369, 95.63158, 95.60891, 95.59758, 95.57493,
  95.54992, 95.50015, 95.48434, 95.46528, 95.44057, 95.41705, 95.36917, 95.35991, 95.34103, 95.33104, 
  95.32521, 95.31474, 95.30187, 95.27407, 95.25706, 95.25672, 95.24934, 95.23371, 95.20847, 95.19217, 
  95.18187, 95.16626, 95.16471, 95.14771, 95.146, 95.15423, 95.14685, 95.13895, 95.12437, 95.12231, 
  95.10635, 95.11372, 95.11304, 95.11595, 95.1132, 95.09981, 95.09621, 95.08402, 95.08231, 95.07647, 
  95.06137, 95.06549, 95.07287, 95.08368, 95.10394, 95.0969, 95.10033, 95.10514, 95.12985, 95.12968, 
  95.12076, 95.1289, 95.12271, 95.12512, 95.1222, 95.12855, 95.12838, 95.12426, 95.12443, 95.11739, 
  95.12701, 95.12443, 95.12495, 95.11361, 95.14178, 95.12066, 95.12529, 95.11619, 95.1265, 95.11585, 
  95.12014, 95.1452, 95.14812, 95.16529, 95.18659, 95.17799, 95.15327, 95.12185, 95.12048, 95.09438, 
  95.08116, 95.02897, 95.03088, 95.02745, 95.02693, 95.01715, 95.01834, 95.03225, 95.03276, 95.04117, 
  95.05182, 95.04616, 95.04633, 95.0398, 95.02865, 95.02298, 95.0144, 94.99241, 94.98882, 94.93164, 
  94.92154, 94.91741, 94.89991, 94.89338, 94.88239, 94.88239, 94.89819, 94.89819, 94.88909, 94.88394, 
  94.85183, 94.82763, 94.82454, 94.81218, 94.80789, 94.78986, 94.7823, 94.76273, 94.7538, 94.7406, 
  94.68599, 94.67451, 94.67382, 94.65992, 94.65082, 94.63588, 94.63314, 94.63417, 94.62472, 94.58525, 
  94.58886, 94.58525, 94.58456, 94.57735, 94.60292, 94.61906, 94.63692, 94.64928, 94.68156, 94.68721,
  94.72643, 94.20104, 89.77432)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_1, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_union(Geo_0[10:49]))
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### BHUTAN #####
Geo_0 <- Geometric_Operations(Geo_2, Geo_1)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0))
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  26.71127, 26.70161, 26.72093, 26.73473, 26.7358, 26.72261, 26.72185, 26.73243, 26.72982, 26.76799, 
  26.77243, 26.78194, 26.79144, 26.80032, 26.83541, 26.8593, 26.85945, 26.84873, 26.87339, 26.90018, 
  26.90385, 26.8158, 26.79144, 26.77795, 26.78454, 26.77151, 26.76876, 26.77443, 26.77627, 26.78853, 
  26.78209, 26.79082, 26.77979, 26.82101, 26.81059, 26.81304, 26.80063, 26.78745, 26.78086, 26.79603, 
  26.83924, 26.80063, 26.79174, 26.80584, 26.82131, 26.80722, 26.81304, 26.81381, 26.86389, 26.9135, 
  26.91962, 26.90171, 26.86022, 26.85011, 26.8495, 26.86925, 26.88074,
  26.89452, 26.91074, 26.91702, 26.92896, 26.93447, 26.94059, 26.95161, 26.96125, 26.97456, 26.98052, 
  26.9871, 26.9894, 27.00546, 27.01998, 27.04032, 27.05316, 27.06417, 27.06906, 27.07884, 27.09229, 
  27.11078, 27.13844, 27.16868, 27.18181, 27.18639, 27.21067, 27.21495, 27.23754, 27.24685, 27.25249, 
  27.25555, 27.25967, 27.26104, 27.26989, 27.27767, 27.26943, 27.2708, 27.28164, 27.28942, 27.30391, 
  27.30498, 27.32801, 27.34326, 27.36033, 27.37756, 27.38137, 27.40225, 27.41795, 27.42328, 27.42633, 
  27.43684, 27.44019, 27.45009, 27.46198, 27.47233, 27.4801, 27.47599, 27.47964, 27.4766, 27.46685, 
  27.4635, 27.46639, 27.46, 27.46045, 27.47355, 27.47051, 27.47538, 27.46974, 27.4798, 27.48436, 
  27.48162, 27.48467, 27.48604, 27.4766, 27.46807, 27.47431, 27.47538, 27.46518, 27.467, 27.47401, 
  27.47568, 27.47112, 27.46974, 27.47538, 27.49868, 27.49822, 27.50614, 27.50096, 27.4932, 27.49289, 
  27.4836, 27.48452, 27.50172, 27.50507, 27.51116, 27.51497, 27.53506, 27.53857, 27.54374, 27.54115, 
  27.54952, 27.55683, 27.56687, 27.58346, 27.60993, 27.63062, 27.66194, 27.66954, 27.68034, 27.68262, 
  27.69067, 27.69812, 27.7159, 27.71788, 27.7355, 27.74811, 27.75206, 27.77014, 27.77363, 27.80446, 
  27.82374, 27.82207, 27.81767, 27.81889, 27.81114, 27.81782,
  27.81851, 27.81882, 27.82428, 27.82641, 27.83112, 27.84113, 27.84538, 27.8466, 27.85191, 27.84918, 
  27.85343, 27.85828, 27.86451, 27.86086, 27.85586, 27.85449, 27.8639, 27.85874, 27.86769, 27.88469, 
  27.88681, 27.89212, 27.89501, 27.8944, 27.9076, 27.90472, 27.89698, 27.8988, 27.91973, 27.92004, 
  27.92383, 27.92246, 27.93884, 27.93824, 27.94536, 27.96447, 27.97827, 27.98008, 27.99555, 27.99721, 
  28.00646, 28.00979, 28.00267, 28.00419, 28.01616, 28.02025, 28.01843, 28.02086, 28.03086, 28.03146, 
  28.04919, 28.04874, 28.0657, 28.0657, 28.06176, 28.06373, 28.06055, 28.05646, 28.05313, 28.04525, 
  28.03949, 28.03131, 28.02768, 28.03101, 28.02131, 28.01419, 28.01176, 27.99024, 27.98554, 27.9766, 
  27.97084, 27.97448, 27.98297, 27.98691, 27.99039, 27.98964, 27.99221, 27.98539, 27.98691, 27.99307,
  27.98727, 27.98496, 27.99058, 27.99603, 27.99223, 28.00001, 27.99716, 28.00057, 28.00467, 27.9916, 
  28.00119, 28.00745, 28.00682, 28.01045, 28.01074, 28.016, 28.02393, 28.0212, 28.0174, 28.00572, 
  28.00533, 28.00218, 28.00179, 28.00648, 28.0096, 28.00905, 28.01225, 28.01545, 28.0174, 28.02496, 
  28.03354, 28.04391, 28.03845, 28.03099, 28.02572, 28.03009, 28.03356, 28.03507, 28.03666, 28.04387, 
  28.04296, 28.04538, 28.04501, 28.05194, 28.05194, 28.0536, 28.05277, 28.04595, 28.04598, 28.04806, 
  28.04727, 28.04905, 28.04762, 28.04772, 28.04217, 28.04291, 28.04736, 28.04623, 28.04885, 28.04763, 
  28.04949, 28.04756, 28.04559, 28.04623,
  28.04837, 28.0414, 28.05185, 28.04731, 28.06245, 28.06882, 28.07063, 28.07866, 28.08063, 28.06518, 
  28.0617, 28.05564, 28.05791, 28.04685, 28.04776, 28.0223, 28.03049, 28.03049, 28.04412, 28.05155, 
  28.05034, 28.05579, 28.06109, 28.0667, 28.05124, 28.04731, 28.06427, 28.06776, 28.06609, 28.07185, 
  28.06276, 28.0617, 28.06624, 28.09683, 28.10637, 28.10562, 28.13696, 28.13378, 28.14967, 28.15527, 
  28.1636, 28.15194, 28.14286, 28.15406, 28.1471, 28.1524, 28.16496, 28.16913, 28.17555, 28.1807, 
  28.18418, 28.19219, 28.19356, 28.17449, 28.16087, 28.15209, 28.14786, 28.14195, 28.13968, 28.14392, 
  28.14695, 28.15073, 28.15542, 28.15663, 28.13635, 28.14271, 28.14801, 28.15573, 28.16904, 28.1695, 
  28.19431, 28.18811, 28.17086, 28.17479, 28.18917, 28.18841, 28.1813, 28.18478, 28.18962, 28.19613, 
  28.20067, 28.21368, 28.22094, 28.22971, 28.22532, 28.23742, 28.2409, 28.23742, 28.24725, 28.2465, 
  28.22926, 28.2282, 28.22109, 28.21095, 28.20929, 28.18387, 28.19023, 28.17101, 28.17676, 28.18478, 
  28.18085, 28.17041, 28.17192, 28.16844, 28.17283, 28.16556, 28.16995, 28.16435, 28.14634, 28.13756, 
  28.11834, 28.12121, 28.11637, 28.10547, 28.08699, 28.09471, 28.09138, 28.08078, 28.03337, 28.02276,
  28.01352, 28.00776, 27.97498, 27.96407, 27.95391, 27.95072, 27.94632, 27.94496, 27.93571, 27.9345, 
  27.92555, 27.91963, 27.9081, 27.90477, 27.8899, 27.88337, 27.87215, 27.87199, 27.86, 27.85393)
LONGITUDE_VALUEs <- c(
  89.81064, 89.86264, 89.86418, 89.85972, 89.86453, 89.90159, 89.96822, 90.01627, 90.0451, 90.19069, 
  90.18983, 90.1955, 90.18469, 90.18331, 90.20133, 90.22965, 90.2535, 90.30073, 90.34484, 90.35428, 
  90.41674, 90.54722, 90.63614, 90.64558, 90.67321, 90.69092, 90.71734, 90.74308, 90.82635, 90.96146, 
  90.95614, 90.99526, 91.0543, 91.09686, 91.14594, 91.23449, 91.27816, 91.29824, 91.33805, 91.37876, 
  91.40828, 91.46872, 91.49806, 91.59334, 91.62697, 91.69184, 91.70647, 91.7238, 91.82491, 91.85958, 
  91.89459, 91.93396, 91.98857, 92.02014, 92.05654, 92.10254, 92.10065,
  92.11501, 92.1186, 92.11431, 92.11671, 92.11431, 92.11877, 92.11242, 92.12134, 92.11808, 92.10435, 
  92.10452, 92.10761, 92.10229, 92.07741, 92.08221, 92.0441, 92.03654, 92.03843, 92.03071, 92.03157, 
  92.02247, 92.03706, 92.02573, 92.03981, 92.05629, 92.06109, 92.06916, 92.07191, 92.06058, 92.05989, 
  92.03827, 92.03707, 92.04308, 92.04685, 92.07688, 92.08737, 92.11963, 92.12529, 92.12083, 92.09783, 
  92.08771, 92.06471, 92.0623, 92.04702, 92.04857, 92.05371, 92.0556, 92.03706, 92.03775, 92.04324, 
  92.04135, 92.02667, 92.02118, 92.02273, 92.01844, 92.01878, 92.00607, 91.99886, 91.99268, 91.98942, 
  91.97825, 91.97242, 91.96007, 91.94118, 91.92332, 91.89759, 91.88454, 91.87166, 91.86789, 91.86171, 
  91.85536, 91.85398, 91.84935, 91.84248, 91.82582, 91.81535, 91.80592, 91.77552, 91.76608, 91.7659, 
  91.75062, 91.7465, 91.73156, 91.71284, 91.71682, 91.706, 91.69381, 91.68558, 91.68163, 91.67064, 
  91.65811, 91.6509, 91.64643, 91.63545, 91.63305, 91.6236, 91.61364, 91.6145, 91.61175, 91.59441, 
  91.59117, 91.58207, 91.58361, 91.5649, 91.58327, 91.56112, 91.57331, 91.59442, 91.59648, 91.60386, 
  91.6073, 91.62945, 91.62772, 91.63201, 91.63905, 91.63425, 91.64197, 91.64507, 91.6394, 91.63408, 
  91.61125, 91.60078, 91.59838, 91.58876, 91.57966, 91.56884,
  91.56523, 91.55271, 91.54859, 91.54052, 91.54001, 91.55013, 91.54979, 91.55408, 91.55683, 91.56232, 
  91.5661, 91.56318, 91.57399, 91.58823, 91.58909, 91.59321, 91.60145, 91.61125, 91.62138, 91.6188, 
  91.62395, 91.62584, 91.61845, 91.60987, 91.59065, 91.57555, 91.56885, 91.55444, 91.54688, 91.53794, 
  91.53451, 91.5285, 91.50516, 91.49418, 91.48336, 91.49143, 91.48559, 91.47444, 91.46757, 91.46362, 
  91.46534, 91.44576, 91.43907, 91.43306, 91.43066, 91.42018, 91.41521, 91.40645, 91.39822, 91.38224, 
  91.36405, 91.34369, 91.3406, 91.3334, 91.32842, 91.3231, 91.3085, 91.3092, 91.30594, 91.31315, 
  91.30852, 91.30663, 91.29907, 91.29222, 91.28277, 91.28156, 91.27418, 91.27315, 91.2613, 91.25907, 
  91.24911, 91.24671, 91.22661, 91.22678, 91.22335, 91.21991, 91.21493, 91.20497, 91.19055, 91.18215,
  91.17289, 91.15651, 91.14902, 91.13096, 91.1115, 91.1015, 91.09166, 91.08922, 91.07443, 91.07293, 
  91.052, 91.05081, 91.0409, 91.03843, 91.03518, 91.02837, 91.02586, 90.99522, 90.99002, 90.9898, 
  90.98549, 90.98266, 90.97642, 90.97018, 90.96912, 90.96479, 90.96011, 90.96002, 90.95243, 90.94545, 
  90.94624, 90.92698, 90.91815, 90.91909, 90.90608, 90.895, 90.89663, 90.8998, 90.90023, 90.88611, 
  90.88336, 90.87504, 90.87182, 90.86392, 90.85989, 90.85543, 90.85272, 90.85259, 90.84934, 90.84561, 
  90.84042, 90.83617, 90.83434, 90.83199, 90.82752, 90.82124, 90.819, 90.81132, 90.80982, 90.80355, 
  90.80295, 90.79832, 90.79699, 90.79471,
  90.79356, 90.78034, 90.77211, 90.76267, 90.72593, 90.72473, 90.70328, 90.70019, 90.69075, 90.66997, 
  90.67031, 90.6571, 90.65469, 90.63513, 90.61692, 90.58466, 90.57916, 90.57418, 90.56697, 90.55358, 
  90.54878, 90.52955, 90.52543, 90.5057, 90.48423, 90.45265, 90.44167, 90.42381, 90.41746, 90.4075, 
  90.39, 90.38004, 90.3718, 90.36149, 90.35257, 90.34793, 90.32133, 90.30348, 90.29558, 90.29661, 
  90.29044, 90.2621, 90.25541, 90.24666, 90.20942, 90.20562, 90.18314, 90.18900, 90.18657, 90.18108, 
  90.17078, 90.1622, 90.11812, 90.12313, 90.12313, 90.12931, 90.12485, 90.12571, 90.11832, 90.08947, 
  90.0893, 90.07917, 90.07728, 90.05547, 90.0419, 90.02249, 90.02581, 90.0241, 90.01379, 90.0016, 
  89.97652,89.95712, 89.94939, 89.93685, 89.94029, 89.91592, 89.90699, 89.89565, 89.89568, 89.88761, 
  89.88864, 89.87043, 89.87026, 89.86049, 89.83817, 89.82717, 89.81773, 89.80639, 89.79746, 89.79248, 
  89.78754, 89.77809, 89.76916, 89.77603, 89.78238, 89.76521, 89.74752, 89.71954, 89.71336, 89.68227, 
  89.67528, 89.6691, 89.66275, 89.65759, 89.64094, 89.62462, 89.61346, 89.59645, 89.59271, 89.57966, 
  89.57073, 89.55973, 89.55047, 89.55305, 89.53347, 89.51217, 89.50739, 89.50584, 89.45931, 89.47168,
  89.46859, 89.45124, 89.45263, 89.43923, 89.43872, 89.43391, 89.43323, 89.42086, 89.41519, 89.41056, 
  89.41313, 89.39873, 89.39787, 89.39272, 89.38929, 89.37452, 89.36818, 89.35925, 89.33452, 89.32954)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_2, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, Geo_0[15])
Geo_2 <- st_union(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
Geo_2 <- Geo_2 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### CHINA #####
Geo_0 <- Geometric_Operations(Geo_3, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0))
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(
  27.86, 27.87199, 27.87215, 27.88337, 27.8899, 27.90477, 27.9081, 27.91963, 27.92555, 27.9345, 
  27.93571, 27.94496, 27.94632, 27.95072, 27.95391, 27.96407, 27.97498, 28.00776, 28.01352, 28.02276, 
  28.03337, 28.08078, 28.09138, 28.09471, 28.08699, 28.10547, 28.11637, 28.12121, 28.11834, 28.13756, 
  28.14634, 28.16435, 28.16995, 28.16556, 28.17283, 28.16844, 28.17192, 28.17041, 28.18085, 28.18478, 
  28.17676, 28.17101, 28.19023, 28.18387, 28.20929, 28.21095, 28.22109, 28.2282, 28.22926, 28.2465, 
  28.24725, 28.23742, 28.2409, 28.23742, 28.22532, 28.22971, 28.22094, 28.21368, 28.20067, 28.19613, 
  28.18962, 28.18478, 28.1813, 28.18841, 28.18917, 28.17479, 28.17086, 28.18811, 28.19431, 28.1695, 
  28.16904, 28.15573, 28.14801, 28.14271, 28.13635, 28.15663, 28.15542, 28.15073, 28.14695, 28.14392, 
  28.13968, 28.14195, 28.14786, 28.15209, 28.16087, 28.17449, 28.19356, 28.19219, 28.18418, 28.1807, 
  28.17555, 28.16913, 28.16496, 28.1524, 28.1471, 28.15406, 28.14286, 28.15194, 28.1636, 28.15527, 
  28.14967, 28.13378, 28.13696, 28.10562, 28.10637, 28.09683, 28.06624, 28.0617, 28.06276, 28.07185, 
  28.06609, 28.06776, 28.06427, 28.04731, 28.05124, 28.0667, 28.06109, 28.05579, 28.05034, 28.05155, 
  28.04412, 28.03049, 28.03049, 28.0223, 28.04776, 28.04685, 28.05791, 28.05564, 28.0617, 28.06518, 
  28.08063, 28.07866, 28.07063, 28.06882, 28.06245, 28.04731, 28.05185, 28.0414, 28.04837, 28.04623, 
  28.04559, 28.04756, 28.04949, 28.04763, 28.04885, 28.04623, 28.04736, 28.04291, 28.04217, 28.04772, 
  28.04762, 28.04905, 28.04727, 28.04806, 28.04598, 28.04595, 28.05277, 28.0536, 28.05194, 28.05194, 
  28.04501, 28.04538, 28.04296, 28.04387, 28.03666, 28.03507, 28.03356, 28.03009, 28.02572, 28.03099, 
  28.03845, 28.04391, 28.03354, 28.02496, 28.0174, 28.01545, 28.01225, 28.00905, 28.0096, 28.00648, 
  28.00179, 28.00218, 28.00533, 28.00572, 28.0174, 28.0212, 28.02393, 28.016, 28.01074, 28.01045, 
  28.00682, 28.00745, 28.00119, 27.9916, 28.00467, 28.00057, 27.99716, 28.00001, 27.99223, 27.99603, 
  27.99058, 27.98496, 27.98727, 27.99307, 27.98691, 27.98539, 27.99221, 27.98964, 27.99039, 27.98691, 
  27.98297, 27.97448, 27.97084, 27.9766, 27.98554, 27.99024, 28.01176, 28.01419, 28.02131, 28.03101, 
  28.02768, 28.03131, 28.03949, 28.04525, 28.05313, 28.05646, 28.06055, 28.06373, 28.06176, 28.0657, 
  28.0657, 28.04874, 28.04919, 28.03146, 28.03086, 28.02086, 28.01843, 28.02025, 28.01616, 28.00419, 
  28.00267, 28.00979, 28.00646, 27.99721, 27.99555, 27.98008, 27.97827, 27.96447, 27.94536, 27.93824, 
  27.93884, 27.92246, 27.92383, 27.92004, 27.91973, 27.8988, 27.89698, 27.90472, 27.9076, 27.8944, 
  27.89501, 27.89212, 27.88681, 27.88469, 27.86769, 27.85874, 27.8639, 27.85449, 27.85586, 27.86086, 
  27.86451, 27.85828, 27.85343, 27.84918, 27.85191, 27.8466, 27.84538, 27.84113, 27.83112, 27.82641, 
  27.82428, 27.81882, 27.81851, 27.81782,
  27.82592, 27.83321, 27.83108, 27.83457, 27.83305, 27.8367, 27.84186, 27.83214, 27.83138, 27.81195, 
  27.79252, 27.78021, 27.79358, 27.7916, 27.79996, 27.7869, 27.77551, 27.7708, 27.77809, 27.7752, 
  27.78811, 27.78416, 27.79009, 27.77915, 27.76715, 27.75986, 27.73388, 27.72917, 27.72021, 27.72385, 
  27.72963, 27.71702, 27.72674, 27.72598, 27.73662, 27.73874, 27.75196, 27.75682, 27.7793, 27.78128, 
  27.77611, 27.779, 27.77566, 27.78113, 27.77976, 27.78902, 27.80375, 27.83503, 27.83017, 27.84732, 
  27.84732, 27.85689, 27.86463, 27.87297, 27.88754, 27.87995, 27.88723, 27.87161, 27.84596, 27.83564, 
  27.81317, 27.79798, 27.79616, 27.80649, 27.80375, 27.80983, 27.82091, 27.82197, 27.82941, 27.83564, 
  27.83138, 27.82425, 27.81681, 27.81332, 27.80178, 27.80482, 27.79312, 27.83791, 27.85127, 27.84748, 
  27.85506, 27.86599, 27.87682, 27.87469, 27.8838, 27.88015, 27.91717, 27.91171, 27.94932, 27.94811, 
  27.96327, 27.98086, 28.0036, 28.04087, 28.06542, 28.06875, 28.0839, 28.10146, 28.15021, 28.15112, 
  28.16807, 28.15445, 28.16171, 28.16262, 28.18744, 28.17533, 28.20136, 28.20045, 28.21527, 28.22889, 
  28.24885, 28.2685, 28.27183, 28.29662, 28.31113, 28.30539, 28.32503, 28.36885, 28.37821, 28.43317, 
  28.44615, 28.54995, 28.55839, 28.54482, 28.5409, 28.52642, 28.53185, 28.5478, 28.58459, 28.58489, 
  28.61805, 28.62829, 28.66806, 28.68704, 28.65391, 28.67831, 28.66294, 28.71986, 28.73642, 28.73462, 
  28.74786, 28.74274, 28.75719, 28.73973, 28.74365, 28.77405, 28.82128, 28.80714, 28.79661, 28.7909, 
  28.79511, 28.8282, 28.85496, 28.85887, 28.87631, 28.90938, 28.9241, 28.93732, 28.92861, 28.96947, 
  29.02322, 29.03613, 29.03853, 29.08024, 29.08804, 29.10964, 29.12554, 29.15073, 29.15703, 29.1849, 
  29.18401, 29.21338, 29.20798, 29.23016, 29.21907, 29.27568, 29.28347, 29.29605, 29.29665, 29.30712, 
  29.30413, 29.3191, 29.29092, 29.28763, 29.27326, 29.25828, 29.24151, 29.22383, 29.21424, 29.18367, 
  29.16389, 29.18337, 29.17618, 29.15699, 29.16029, 29.1471, 29.1315, 29.12581, 29.1366, 29.1477,
  29.1739, 29.1724, 29.16535, 29.15036, 29.15366, 29.14437, 29.14511, 29.13687, 29.13702, 29.12937, 
  29.11273, 29.10118, 29.09548, 29.09998, 29.08768, 29.10328, 29.10118, 29.10898, 29.10388, 29.08318, 
  29.08198, 29.06817, 29.07282, 29.10478, 29.11018, 29.11647, 29.13897, 29.13567, 29.12367, 29.12547, 
  29.14497, 29.14826, 29.16385, 29.16715, 29.18454, 29.18364, 29.19308, 29.18873, 29.17974, 29.17689, 
  29.1712, 29.16655, 29.16086, 29.15396, 29.14841, 29.13747, 29.13672, 29.14467, 29.12547, 29.12727, 
  29.13432, 29.14347, 29.1646, 29.1724, 29.17779, 29.18724, 29.19533, 29.18814, 29.19488, 29.19623, 
  29.17944, 29.19383, 29.20672, 29.22799, 29.23623, 29.2232, 29.21601, 29.21001, 29.2244, 29.2238, 
  29.21316, 29.20552, 29.20402, 29.21601, 29.2172, 29.22589, 29.23563, 29.27742, 29.30107, 29.32307, 
  29.32307, 29.34807, 29.3524, 29.34028, 29.33505, 29.32113, 29.31454, 29.3319, 29.34896, 29.36527, 
  29.36707, 29.37619, 29.36198, 29.36976, 29.36288, 29.37724, 29.38218, 29.37425, 29.34432, 29.32771, 
  29.31604, 29.30975, 29.29388, 29.29418, 29.26424, 29.26304, 29.24926, 29.24417, 29.21541, 29.19593, 
  29.15816, 29.15936, 29.15126, 29.13177, 29.11318, 29.07357, 29.05797, 29.03906, 29.02796, 29.07838, 
  29.10058, 29.10028, 29.10958, 29.09308, 29.06937, 29.06877, 29.03666, 29.02735, 29.00514, 28.99553, 
  28.93814, 28.92973, 28.94806, 28.9458, 28.91681, 28.90914, 28.86208, 28.84344, 28.82509, 28.81908, 
  28.7911, 28.77846, 28.78117, 28.75799, 28.73903, 28.73421, 28.70079, 28.69266, 28.6773, 28.66706, 
  28.66013, 28.66616, 28.66104, 28.67881, 28.68423, 28.69838, 28.68543, 28.68694, 28.67881, 28.66555, 
  28.62488, 28.62639, 28.6068, 28.60047, 28.58811, 28.56188, 28.53111, 28.51784, 28.50789, 28.50396, 
  28.48858, 28.49114, 28.43183, 28.43334, 28.53232, 28.57997, 28.61312, 28.60921, 28.56127, 28.54348, 
  28.51513, 28.48676, 28.44815, 28.42279, 28.39939, 28.38502, 28.36388, 28.3533, 28.34575, 28.33151, 
  28.32124, 28.35901, 28.3711, 28.35297, 28.33393, 28.33272, 28.3019, 28.30794, 28.3025, 28.29434, 
  28.28345, 28.2638, 28.2635, 28.24384, 28.24596, 28.23326, 28.23326, 28.21453, 28.2165,
  28.24097, 28.24324, 28.23749, 28.24157, 28.25034, 28.25004, 28.25443, 28.27408, 28.2833, 28.29585, 
  28.29842, 28.26939, 28.27574, 28.28073, 28.283, 28.30567, 28.31081, 28.3161, 28.31837, 28.31429, 
  28.32713, 28.33, 28.33363, 28.33862, 28.34254, 28.34965, 28.36324, 28.36717, 28.37774, 28.3797, 
  28.39194, 28.39284, 28.39919, 28.39979, 28.40613, 28.41534, 28.42455, 28.4318, 28.43708, 28.44659, 
  28.45067, 28.45233, 28.46651, 28.48764, 28.49231, 28.49699, 28.49201, 28.49609, 28.50408, 28.50815, 
  28.52324, 28.52263, 28.52987, 28.52942, 28.53591, 28.54676, 28.54752, 28.52966, 28.52196, 28.52242, 
  28.51729, 28.52438, 28.53689, 28.53508, 28.54142, 28.5382, 28.52387, 28.52508, 28.51905, 28.50577, 
  28.49672, 28.48239, 28.48118, 28.46383, 28.44919, 28.44587, 28.43319, 28.43198, 28.41824, 28.41326, 
  28.40768, 28.39816, 28.39454, 28.37868, 28.38548, 28.35814, 28.34983, 28.32913, 28.32989, 28.33381, 
  28.33472, 28.32958, 28.32928, 28.33517, 28.35149, 28.36781, 28.36735, 28.35767, 28.34362, 28.33999, 
  28.32866, 28.32488, 28.30373, 28.29496, 28.29405, 28.28906, 28.28453, 28.27244, 28.24567, 28.24658, 
  28.2307, 28.22435, 28.22268, 28.21346, 28.19122, 28.19122, 28.20393, 28.2065, 28.19939, 28.19999, 
  28.16444, 28.16716, 28.15823, 28.15036, 28.14643, 28.12135, 28.1165, 28.10484, 28.09258, 28.08864, 
  28.0741, 28.06471, 28.04517, 28.02911, 28.02714, 28.01865, 28.01229, 27.99728, 27.99561, 27.98606, 
  27.98, 27.9562, 27.94039, 27.94282, 27.9322, 27.90536, 27.87547, 27.87486, 27.85179, 27.83464, 
  27.81381, 27.81411, 27.7646, 27.75397, 27.75002, 27.73696, 27.72814, 27.71435, 27.70721, 27.69322, 
  27.67574, 27.66115, 27.66419, 27.6353, 27.63682, 27.63043, 27.61583, 27.59757, 27.58708, 27.54751, 
  27.53366, 27.52392, 27.51159, 27.51737, 27.50946, 27.52316, 27.54538, 27.55299, 27.57308, 27.59803, 
  27.60518, 27.61537, 27.63149, 27.64229, 27.6502, 27.65856, 27.66632, 27.66951, 27.66008, 27.65963, 
  27.63971, 27.63651, 27.62876, 27.62876, 27.62237, 27.62389, 27.63971, 27.64199, 27.64913, 27.64929, 
  27.61355, 27.58966, 27.57369, 27.56882, 27.57293, 27.57901, 27.58221, 27.57764, 27.57917, 27.56836, 
  27.5889, 27.58845, 27.5638, 27.56593, 27.55695, 27.54854, 27.51989, 27.51867, 27.50756, 27.48914, 
  27.46462, 27.45167, 27.45121, 27.42491, 27.41576, 27.36455, 27.35235, 27.34168, 27.33101, 27.30152, 
  27.28825, 27.27177, 27.25865, 27.24797, 27.23698, 27.22461, 27.2153, 27.1982, 27.1808, 27.07771, 
  27.0703, 27.07543, 27.0525, 27.021, 27.01575, 27.00382,
  27.32231, 36.63875, 36.10800)
LONGITUDE_VALUEs <- c(
  89.33452, 89.35925, 89.36818, 89.37452, 89.38929, 89.39272, 89.39787, 89.39873, 89.41313, 89.41056, 
  89.41519, 89.42086, 89.43323, 89.43391, 89.43872, 89.43923, 89.45263, 89.45124, 89.46859, 89.47168, 
  89.45931, 89.50584, 89.50739, 89.51217, 89.53347, 89.55305, 89.55047, 89.55973, 89.57073, 89.57966, 
  89.59271, 89.59645, 89.61346, 89.62462, 89.64094, 89.65759, 89.66275, 89.6691, 89.67528, 89.68227, 
  89.71336, 89.71954, 89.74752, 89.76521, 89.78238, 89.77603, 89.76916, 89.77809, 89.78754, 89.79248, 
  89.79746, 89.80639, 89.81773, 89.82717, 89.83817, 89.86049, 89.87026, 89.87043, 89.88864, 89.88761, 
  89.89568, 89.89565, 89.90699, 89.91592, 89.94029, 89.93685, 89.94939, 89.95712, 89.97652, 90.0016, 
  90.01379, 90.0241, 90.02581, 90.02249, 90.0419, 90.05547, 90.07728, 90.07917, 90.0893, 90.08947, 
  90.11832, 90.12571, 90.12485, 90.12931, 90.12313, 90.12313, 90.11812, 90.1622, 90.17078, 90.18108, 
  90.18657, 90.189, 90.18314, 90.20562, 90.20942, 90.24666, 90.25541, 90.2621, 90.29044, 90.29661, 
  90.29558, 90.30348, 90.32133, 90.34793, 90.35257, 90.36149, 90.3718, 90.38004, 90.39, 90.4075, 
  90.41746, 90.42381, 90.44167, 90.45265, 90.48423, 90.5057, 90.52543, 90.52955, 90.54878, 90.55358, 
  90.56697, 90.57418, 90.57916, 90.58466, 90.61692, 90.63513, 90.65469, 90.6571, 90.67031, 90.66997, 
  90.69075, 90.70019, 90.70328, 90.72473, 90.72593, 90.76267, 90.77211, 90.78034, 90.79356, 90.79471, 
  90.79699, 90.79832, 90.80295, 90.80355, 90.80982, 90.81132, 90.819, 90.82124, 90.82752, 90.83199, 
  90.83434, 90.83617, 90.84042, 90.84561, 90.84934, 90.85259, 90.85272, 90.85543, 90.85989, 90.86392, 
  90.87182, 90.87504, 90.88336, 90.88611, 90.90023, 90.8998, 90.89663, 90.895, 90.90608, 90.91909, 
  90.91815, 90.92698, 90.94624, 90.94545, 90.95243, 90.96002, 90.96011, 90.96479, 90.96912, 90.97018, 
  90.97642, 90.98266, 90.98549, 90.9898, 90.99002, 90.99522, 91.02586, 91.02837, 91.03518, 91.03843, 
  91.0409, 91.05081, 91.052, 91.07293, 91.07443, 91.08922, 91.09166, 91.1015, 91.1115, 91.13096, 
  91.14902, 91.15651, 91.17289, 91.18215, 91.19055, 91.20497, 91.21493, 91.21991, 91.22335, 91.22678, 
  91.22661, 91.24671, 91.24911, 91.25907, 91.2613, 91.27315, 91.27418, 91.28156, 91.28277, 91.29222, 
  91.29907, 91.30663, 91.30852, 91.31315, 91.30594, 91.3092, 91.3085, 91.3231, 91.32842, 91.3334, 
  91.3406, 91.34369, 91.36405, 91.38224, 91.39822, 91.40645, 91.41521, 91.42018, 91.43066, 91.43306, 
  91.43907, 91.44576, 91.46534, 91.46362, 91.46757, 91.47444, 91.48559, 91.49143, 91.48336, 91.49418, 
  91.50516, 91.5285, 91.53451, 91.53794, 91.54688, 91.55444, 91.56885, 91.57555, 91.59065, 91.60987, 
  91.61845, 91.62584, 91.62395, 91.6188, 91.62138, 91.61125, 91.60145, 91.59321, 91.58909, 91.58823, 
  91.57399, 91.56318, 91.5661, 91.56232, 91.55683, 91.55408, 91.54979, 91.55013, 91.54001, 91.54052, 
  91.54859, 91.55271, 91.56523, 91.56884,
  91.56607, 91.57653, 91.59095, 91.59406, 91.59835, 91.60968, 91.61105, 91.63319, 91.6567, 91.69173, 
  91.70563, 91.72571, 91.73414, 91.7386, 91.74358, 91.77481, 91.77069, 91.77979, 91.78167, 91.80759, 
  91.80724, 91.81445, 91.82801, 91.84019, 91.83645, 91.85241, 91.86202, 91.87129, 91.87214, 91.89617, 
  91.89994, 91.92568, 91.93772, 91.94304, 91.95265, 91.96552, 91.96757, 91.97547, 91.97926, 92.01223, 
  92.01686, 92.02854, 92.03746, 92.04621, 92.05754, 92.06183, 92.11144, 92.14354, 92.16242, 92.1746, 
  92.1873, 92.19253, 92.21416, 92.21176, 92.24456, 92.25604, 92.26583, 92.29399, 92.3029, 92.29603, 
  92.32023, 92.32041, 92.33792, 92.35491, 92.36366, 92.36933, 92.39732, 92.40814, 92.4102, 92.42256, 
  92.42772, 92.42085, 92.42513, 92.42221, 92.42684, 92.43423, 92.45964, 92.47886, 92.50186, 92.51079, 
  92.52847, 92.53088, 92.55444, 92.56234, 92.56783, 92.58054, 92.59599, 92.64614, 92.67529, 92.68525, 
  92.70002, 92.73333, 92.71994, 92.73779, 92.71993, 92.66571, 92.65506, 92.66639, 92.67326, 92.69898, 
  92.71375, 92.73882, 92.74775, 92.7687, 92.78004, 92.83018, 92.88438, 92.92181, 92.93658, 92.92765, 
  92.93209, 92.96609, 92.99253, 93.00593, 93.05298, 93.06603, 93.07698, 93.15116, 93.14635, 93.17417, 
  93.14978, 93.25346, 93.28022, 93.28332, 93.29809, 93.30908, 93.39219, 93.38977, 93.41827, 93.44025, 
  93.46012, 93.5034, 93.50786, 93.62561, 93.63488, 93.68778, 93.7125, 93.78664, 93.78836, 93.79964, 
  93.84222, 93.86077, 93.89546, 93.91023, 93.91984, 93.91229, 93.97615, 93.98783, 93.98543, 93.99573, 
  94.0208, 94.01701, 94.02903, 94.05788, 94.05857, 94.17596, 94.16497, 94.17836, 94.25976, 94.27796, 
  94.36687, 94.36, 94.32806, 94.31159, 94.28034, 94.27278, 94.29476, 94.29545, 94.38402, 94.39021, 
  94.44994, 94.45646, 94.49321, 94.50935, 94.54095, 94.59686, 94.61918, 94.62468, 94.64288, 94.65833, 
  94.66692, 94.69165, 94.7167, 94.73525, 94.73559, 94.74898, 94.74589, 94.75825, 94.80049, 94.79602, 
  94.80666, 94.85097, 94.89866, 94.91618, 94.96014, 94.99277, 94.9986, 95.02333, 95.01436, 95.01436,
  94.98896, 94.99994, 95.00646, 95.04422, 95.05404, 95.07086, 95.08355, 95.08767, 95.09745, 95.09883, 
  95.11993, 95.10034, 95.10206, 95.12746, 95.13535, 95.18192, 95.1917, 95.21023, 95.23065, 95.2384, 
  95.25676, 95.26191, 95.27272, 95.27202, 95.28334, 95.27785, 95.30702, 95.39248, 95.39797, 95.41273, 
  95.4097, 95.41519, 95.41399, 95.42017, 95.41914, 95.42688, 95.43494, 95.44592, 95.4473, 95.45416, 
  95.45296, 95.45519, 95.44987, 95.45434, 95.45245, 95.45983, 95.46806, 95.47956, 95.50721, 95.5115, 
  95.50995, 95.5162, 95.51449, 95.50659, 95.50659, 95.50127, 95.50573, 95.52977, 95.53218, 95.55038, 
  95.57353, 95.60564, 95.59465, 95.59791, 95.60581, 95.63792, 95.63689, 95.64857, 95.66571, 95.69868, 
  95.70555, 95.70298, 95.70864, 95.72101, 95.73749, 95.74299, 95.72786, 95.75155, 95.73919, 95.75807, 
  95.77867, 95.81213, 95.83927, 95.8427, 95.83703, 95.83909, 95.87773, 95.89198, 95.93898, 95.94087, 
  95.95581, 95.96594, 95.98191, 95.99582, 96.01814, 96.03838, 96.05504, 96.06208, 96.13898, 96.14349, 
  96.13937, 96.14727, 96.14898, 96.1665, 96.19053, 96.21697, 96.23312, 96.263, 96.25781, 96.3004, 
  96.29834, 96.26571, 96.24579, 96.23927, 96.18329, 96.19875, 96.18192, 96.18673, 96.21524, 96.24546, 
  96.28187, 96.345, 96.36835, 96.35599, 96.35256, 96.36183, 96.36389, 96.40097, 96.436, 96.42673, 
  96.44747, 96.47408, 96.48181, 96.50926, 96.52763, 96.51802, 96.52354, 96.55306, 96.56749, 96.58947, 
  96.57023, 96.57916, 96.6032, 96.60388, 96.61761, 96.63135, 96.62894, 96.64715, 96.63958, 96.64714, 
  96.63477, 96.62928, 96.60387, 96.60077, 96.57673, 96.56543, 96.55547, 96.54379, 96.5352, 96.54551, 
  96.51084, 96.49435, 96.49367, 96.45967, 96.4473, 96.48509, 96.45521, 96.41057, 96.40885, 96.43873, 
  96.44594, 96.47831, 96.48752, 96.50641, 96.51327, 96.54315, 96.61901, 96.6537, 96.7591, 96.75017, 
  96.7656, 96.86176, 96.86547, 96.89311, 96.88298, 96.88984, 96.92194, 96.92349, 96.9556, 96.97228, 
  97.02208, 97.05333, 97.07838, 97.14604, 97.157, 97.17967, 97.20783, 97.21845, 97.22086, 97.23871,
  97.23631, 97.24627, 97.26515, 97.27202, 97.28438, 97.28438, 97.29743, 97.32999, 97.34545,
  97.35006, 97.36912, 97.37478, 97.39658, 97.40671, 97.41083, 97.41443, 97.40088, 97.40036, 97.41461, 
  97.42457, 97.46112, 97.47056, 97.46953, 97.48242, 97.46714, 97.47916, 97.48036, 97.49856, 97.50336, 
  97.51143, 97.51726, 97.51692, 97.50165, 97.50216, 97.48912, 97.49478, 97.48636, 97.4831, 97.47761, 
  97.48551, 97.49289, 97.49718, 97.50215, 97.50112, 97.50867, 97.50009, 97.5073, 97.5073, 97.52395, 
  97.52069, 97.51262, 97.5037, 97.50387, 97.49958, 97.50885, 97.52052, 97.52344, 97.52001, 97.53614, 
  97.53717, 97.54358, 97.54805, 97.55629, 97.55492, 97.56557, 97.57999, 97.59663, 97.58994, 97.59507, 
  97.60606, 97.62461, 97.62976, 97.64522, 97.65293, 97.66461, 97.66718, 97.68057, 97.69035, 97.6907, 
  97.72333, 97.72383, 97.72915, 97.73756, 97.73361, 97.73808, 97.73653, 97.73258, 97.73499, 97.74375, 
  97.73619, 97.73516, 97.74391, 97.75747, 97.76331, 97.78683, 97.78631, 97.79748, 97.80606, 97.81001, 
  97.82049, 97.82358, 97.84282, 97.84797, 97.84385, 97.87387, 97.9101, 97.9142, 97.92794, 97.93824, 
  97.94185, 97.96055, 97.95299, 97.96655, 97.98854, 97.99401, 97.99333, 98.01291, 98.02441, 98.01548, 
  98.01137, 98.01378, 98.00605, 98.00724, 98.02923, 98.05138, 98.05001, 98.07986, 98.08295, 98.08948, 
  98.09582, 98.11609, 98.12929, 98.13204, 98.13891, 98.15043, 98.14785, 98.16003, 98.15832, 98.16107, 
  98.15248, 98.15301, 98.13789, 98.14012, 98.1427, 98.14339, 98.13875, 98.14115, 98.13343, 98.13137, 
  98.13652, 98.1396, 98.15626, 98.19043, 98.1887, 98.20192, 98.20175, 98.18165, 98.17068, 98.176, 
  98.21386, 98.22451, 98.2173, 98.22553, 98.24305, 98.24477, 98.22519, 98.22234, 98.23247, 98.23367, 
  98.26423, 98.26492, 98.27831, 98.28809, 98.29684, 98.30268, 98.2977, 98.30216, 98.31058, 98.30697, 
  98.31933, 98.31521, 98.34029, 98.35142, 98.37271, 98.394, 98.40155, 98.4304, 98.43452, 98.43023, 
  98.43435, 98.42971, 98.43967, 98.43246, 98.43504, 98.42971, 98.43228, 98.44362, 98.45219, 98.45803, 
  98.46849, 98.50696, 98.5073, 98.52001, 98.52685, 98.53595, 98.53767, 98.54866, 98.54969, 98.55914, 
  98.57355, 98.58746, 98.58248, 98.59072, 98.59896, 98.59725, 98.60618, 98.61405, 98.62092, 98.6484, 
  98.65819, 98.67192, 98.68927, 98.70335, 98.70748, 98.69802, 98.70523, 98.68944, 98.6927, 98.68394, 
  98.70437, 98.70163, 98.68823, 98.68628, 98.70174, 98.70414, 98.73607, 98.73092, 98.74122, 98.73252, 
  98.73321, 98.71707, 98.71449, 98.73098, 98.71724, 98.72428, 98.69492, 98.692, 98.70746, 98.71313, 
  98.72852, 98.73985, 98.76527, 98.76218, 98.74317, 98.73304, 
  100.10449, 101.78831, 90.65940)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_3, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_0 <- st_union(Geo_0)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_3 <- st_set_geometry(Geo_3, st_union(Geo_0[1:139]))
Geo_3 <- st_union(Geo_3, Geo)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}

##### MYANMAR #####
Geo_0 <- Geometric_Operations(Geo_4, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_3)
Geo_4 <- st_set_geometry(Geo_4, st_geometry(Geo_0))
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
LATITUDE_VALUEs <- c(
  25.15739, 25.15271, 25.16731, 25.16576, 25.18596, 25.18254, 25.21611, 25.23117, 25.24918, 25.25912, 
  25.26781, 25.34727, 25.35766, 25.37565, 25.39566, 25.40543, 25.40481, 25.42682, 25.44419, 25.46542, 
  25.48076, 25.49518, 25.48138, 25.48185, 25.49006, 25.49549, 25.51129, 25.52322, 25.54506, 25.56395, 
  25.56395, 25.56736, 25.56565, 25.57138, 25.58516, 25.59229, 25.59786, 25.59724, 25.61274, 25.64245, 
  25.66242, 25.70635, 25.7212, 25.73357, 25.73156, 25.73836, 25.74037, 25.75692, 25.77717, 25.79757, 
  25.8087, 25.82709, 25.85814, 25.87174, 25.88842, 25.90571, 25.91729, 25.92223, 25.93304, 25.94662, 
  25.96129, 25.97857, 25.98536, 26.0139, 26.06526, 26.07375, 26.09348, 26.08685, 26.09317, 26.09826, 
  26.10951, 26.1445, 26.16314, 26.17685, 26.18563, 26.21028, 26.23384, 26.24647, 26.24985, 26.25355, 
  26.26171, 26.27679, 26.28634, 26.29265, 26.30296, 26.30711, 26.31804, 26.3305, 26.33804, 26.35388, 
  26.36573, 26.38357, 26.39556, 26.39371, 26.3994, 26.42001, 26.44629, 26.44691, 26.44122, 26.44937, 
  26.47718, 26.47887, 26.48625, 26.49301, 26.50499, 26.51697, 26.52358, 26.52864, 26.53433, 26.54201, 
  26.55137, 26.55798, 26.55613, 26.57855, 26.583, 26.5919, 26.61569, 26.62153, 26.6338, 26.64301, 
  26.64101, 26.64731, 26.68213, 26.68397, 26.67292, 26.65544, 26.65897, 26.65099, 26.66449, 26.66525, 
  26.67231, 26.67446, 26.66955, 26.67906, 26.70069, 26.70253, 26.7358, 26.74622, 26.804, 26.8302, 
  26.82526, 26.81359, 26.81404, 26.8384, 26.86291, 26.87546, 26.89062, 26.90685, 26.88373, 26.88771, 
  26.91328, 26.95062, 26.97755, 26.9777, 26.98872, 27.00722, 27.01212, 27.01609, 27.00799, 27.01441, 
  27.0138, 27.02313, 27.05111, 27.10002, 27.11072, 27.13593, 27.14081, 27.17857, 27.20606, 27.20602, 
  27.22114, 27.24802, 27.25, 27.26068, 27.26358, 27.27319, 27.27487, 27.26953, 27.28296, 27.29425, 
  27.28799, 27.29074, 27.30599, 27.29562, 27.29699, 27.2886, 27.29882, 27.29913, 27.32948, 27.36669, 
  27.36394, 27.33284, 27.34168, 27.37263, 27.37705, 27.35815, 27.35678, 27.33848, 27.33009, 27.3214, 
  27.26145, 27.25931, 27.24847, 27.23367, 27.21642, 27.20421, 27.17352, 27.1671, 27.1616, 27.16451, 
  27.15502, 27.13944, 27.14005, 27.12661, 27.12722, 27.09544, 27.10735, 27.1046, 27.09757, 27.09177, 
  27.11805, 27.11988, 27.14402, 27.14952, 27.16235, 27.1761, 27.19045, 27.21366, 27.23991, 27.26463, 
  27.28081, 27.28203, 27.30643, 27.31803, 27.34456, 27.34609, 27.3534, 27.37536, 27.38847, 27.39704, 
  27.40679, 27.40786, 27.41913, 27.43026, 27.45539, 27.49179, 27.49514, 27.50595, 27.51555, 27.53914, 
  27.5434, 27.55954, 27.56973, 27.58008, 27.58388, 27.59727, 27.61035, 27.61705, 27.62389, 27.63119, 
  27.63834, 27.65978, 27.6651, 27.66084, 27.67027, 27.67301, 27.68927, 27.70827, 27.73638, 27.75127, 
  27.74778, 27.73912, 27.75492, 27.76282, 27.7698, 27.77846, 27.78712, 27.78848, 27.7982, 27.80898, 
  27.81536, 27.83145, 27.83601, 27.84694, 27.88321, 27.8917, 27.91825, 27.89458, 27.88685, 27.88563, 
  27.87304, 27.87698, 27.88381, 27.8917, 27.92219, 27.92993, 27.93706, 27.95252, 27.96177, 27.97694, 
  27.97709, 27.983, 28.01604, 28.03695, 28.06604, 28.06649, 28.05968, 28.05998, 28.06861, 28.08634, 
  28.11435, 28.13842, 28.14932, 28.15204, 28.15779, 28.16597, 28.17384, 28.20304, 28.20788, 28.20742, 
  28.2165, 
  28.24097, 28.24324, 28.23749, 28.24157, 28.25034, 28.25004, 28.25443, 28.27408, 28.2833, 28.29585, 
  28.29842, 28.26939, 28.27574, 28.28073, 28.283, 28.30567, 28.31081, 28.3161, 28.31837, 28.31429, 
  28.32713, 28.33, 28.33363, 28.33862, 28.34254, 28.34965, 28.36324, 28.36717, 28.37774, 28.3797, 
  28.39194, 28.39284, 28.39919, 28.39979, 28.40613, 28.41534, 28.42455, 28.4318, 28.43708, 28.44659, 
  28.45067, 28.45233, 28.46651, 28.48764, 28.49231, 28.49699, 28.49201, 28.49609, 28.50408, 28.50815, 
  28.52324, 28.52263, 28.52987, 28.52942, 28.53591, 28.54676, 28.54752, 28.52966, 28.52196, 28.52242, 
  28.51729, 28.52438, 28.53689, 28.53508, 28.54142, 28.5382, 28.52387, 28.52508, 28.51905, 28.50577, 
  28.49672, 28.48239, 28.48118, 28.46383, 28.44919, 28.44587, 28.43319, 28.43198, 28.41824, 28.41326, 
  28.40768, 28.39816, 28.39454, 28.37868, 28.38548, 28.35814, 28.34983, 28.32913, 28.32989, 28.33381, 
  28.33472, 28.32958, 28.32928, 28.33517, 28.35149, 28.36781, 28.36735, 28.35767, 28.34362, 28.33999, 
  28.32866, 28.32488, 28.30373, 28.29496, 28.29405, 28.28906, 28.28453, 28.27244, 28.24567, 28.24658, 
  28.2307, 28.22435, 28.22268, 28.21346, 28.19122, 28.19122, 28.20393, 28.2065, 28.19939, 28.19999, 
  28.16444, 28.16716, 28.15823, 28.15036, 28.14643, 28.12135, 28.1165, 28.10484, 28.09258, 28.08864, 
  28.0741, 28.06471, 28.04517, 28.02911, 28.02714, 28.01865, 28.01229, 27.99728, 27.99561, 27.98606, 
  27.98, 27.9562, 27.94039, 27.94282, 27.9322, 27.90536, 27.87547, 27.87486, 27.85179, 27.83464, 
  27.81381, 27.81411, 27.7646, 27.75397, 27.75002, 27.73696, 27.72814, 27.71435, 27.70721, 27.69322, 
  27.67574, 27.66115, 27.66419, 27.6353, 27.63682, 27.63043, 27.61583, 27.59757, 27.58708, 27.54751, 
  27.53366, 27.52392, 27.51159, 27.51737, 27.50946, 27.52316, 27.54538, 27.55299, 27.57308, 27.59803, 
  27.60518, 27.61537, 27.63149, 27.64229, 27.6502, 27.65856, 27.66632, 27.66951, 27.66008, 27.65963, 
  27.63971, 27.63651, 27.62876, 27.62876, 27.62237, 27.62389, 27.63971, 27.64199, 27.64913, 27.64929, 
  27.61355, 27.58966, 27.57369, 27.56882, 27.57293, 27.57901, 27.58221, 27.57764, 27.57917, 27.56836, 
  27.5889, 27.58845, 27.5638, 27.56593, 27.55695, 27.54854, 27.51989, 27.51867, 27.50756, 27.48914, 
  27.46462, 27.45167, 27.45121, 27.42491, 27.41576, 27.36455, 27.35235, 27.34168, 27.33101, 27.30152, 
  27.28825, 27.27177, 27.25865, 27.24797, 27.23698, 27.22461, 27.2153, 27.1982, 27.1808, 27.07771, 
  27.0703, 27.07543, 27.0525, 27.021, 27.01575, 27.00382)
LONGITUDE_VALUEs <- c(
  94.68721, 94.68156, 94.64928, 94.63692, 94.61906, 94.60292, 94.57735, 94.58456, 94.58525, 94.58886, 
  94.58525, 94.62472, 94.63417, 94.63314, 94.63588, 94.65082, 94.65992, 94.67382, 94.67451, 94.68599, 
  94.7406, 94.7538, 94.76273, 94.7823, 94.78986, 94.80789, 94.81218, 94.82454, 94.82763, 94.85183, 
  94.88394, 94.88909, 94.89819, 94.89819, 94.88239, 94.88239, 94.89338, 94.89991, 94.91741, 94.92154, 
  94.93164, 94.98882, 94.99241, 95.0144, 95.02298, 95.02865, 95.0398, 95.04633, 95.04616, 95.05182, 
  95.04117, 95.03276, 95.03225, 95.01834, 95.01715, 95.02693, 95.02745, 95.03088, 95.02897, 95.08116, 
  95.09438, 95.12048, 95.12185, 95.15327, 95.17799, 95.18659, 95.16529, 95.14812, 95.1452, 95.12014, 
  95.11585, 95.1265, 95.11619, 95.12529, 95.12066, 95.14178, 95.11361, 95.12495, 95.12443, 95.12701, 
  95.11739, 95.12443, 95.12426, 95.12838, 95.12855, 95.1222, 95.12512, 95.12271, 95.1289, 95.12076, 
  95.12968, 95.12985, 95.10514, 95.10033, 95.0969, 95.10394, 95.08368, 95.07287, 95.06549, 95.06137, 
  95.07647, 95.08231, 95.08402, 95.09621, 95.09981, 95.1132, 95.11595, 95.11304, 95.11372, 95.10635, 
  95.12231, 95.12437, 95.13895, 95.14685, 95.15423, 95.146, 95.14771, 95.16471, 95.16626, 95.18187, 
  95.19217, 95.20847, 95.23371, 95.24934, 95.25672, 95.25706, 95.27407, 95.30187, 95.31474, 95.32521, 
  95.33104, 95.34103, 95.35991, 95.36917, 95.41705, 95.44057, 95.46528, 95.48434, 95.50015, 95.54992, 
  95.57493, 95.59758, 95.60891, 95.63158, 95.6369, 95.64978, 95.65733, 95.67825, 95.71105, 95.73028, 
  95.75878, 95.75552, 95.76788, 95.78024, 95.78212, 95.80256, 95.80067, 95.80219, 95.83018, 95.8434, 
  95.87533, 95.87757, 95.94451, 95.96787, 95.98315, 95.99703, 96.01043, 96.02073, 96.06589, 96.07258, 
  96.08853, 96.15514, 96.19, 96.20233, 96.22036, 96.23187, 96.25454, 96.27875, 96.28971, 96.31667, 
  96.33659, 96.40851, 96.43238, 96.47374, 96.51152, 96.52231, 96.54051, 96.56301, 96.59323, 96.60695, 
  96.62996, 96.66325, 96.68849, 96.70171, 96.71304, 96.74207, 96.77552, 96.80455, 96.80815, 96.82171, 
  96.85913, 96.87356, 96.88711, 96.88677, 96.85741, 96.85792, 96.89277, 96.9187, 96.93156, 96.9441, 
  96.98536, 96.99326, 97.00974, 97.03138, 97.03889, 97.07633, 97.09625, 97.12098, 97.12304, 97.13915, 
  97.14877, 97.16079, 97.1656, 97.15014, 97.14877, 97.12301, 97.12267, 97.09042, 97.08905, 97.05573, 
  97.05092, 97.04028, 97.02966, 96.9984, 96.99085, 96.98021, 96.99291, 96.97265, 96.97815, 96.9702, 
  96.97277, 96.95697, 96.94324, 96.94548, 96.91303, 96.92316, 96.93071, 96.93535, 96.92265, 96.92746, 
  96.91509, 96.9223, 96.90478, 96.90805, 96.9156, 96.91234, 96.89756, 96.9034, 96.92847, 96.92384, 
  96.9429, 96.93635, 96.95868, 96.97585, 96.981, 96.99817, 97.00058, 97.01706, 97.02444, 97.07124, 
  97.09012, 97.10127, 97.10865, 97.10642, 97.1126, 97.10282, 97.1066, 97.12925, 97.14555, 97.14746, 
  97.17526, 97.18093, 97.1986, 97.20324, 97.24769, 97.24994, 97.304, 97.32014, 97.31913, 97.34179, 
  97.35946, 97.3665, 97.3665, 97.37902, 97.36907, 97.37061, 97.36581, 97.37799, 97.36152, 97.36735, 
  97.37542, 97.37559, 97.39705, 97.3713, 97.35635, 97.34845, 97.3397, 97.3131, 97.30658, 97.3071, 
  97.34452, 97.32306, 97.34091, 97.35292, 97.35258, 97.36082, 97.35379, 97.36202, 97.35396, 97.34761, 
  97.34545,
  97.35006, 97.36912, 97.37478, 97.39658, 97.40671, 97.41083, 97.41443, 97.40088, 97.40036, 97.41461, 
  97.42457, 97.46112, 97.47056, 97.46953, 97.48242, 97.46714, 97.47916, 97.48036, 97.49856, 97.50336, 
  97.51143, 97.51726, 97.51692, 97.50165, 97.50216, 97.48912, 97.49478, 97.48636, 97.4831, 97.47761, 
  97.48551, 97.49289, 97.49718, 97.50215, 97.50112, 97.50867, 97.50009, 97.5073, 97.5073, 97.52395, 
  97.52069, 97.51262, 97.5037, 97.50387, 97.49958, 97.50885, 97.52052, 97.52344, 97.52001, 97.53614, 
  97.53717, 97.54358, 97.54805, 97.55629, 97.55492, 97.56557, 97.57999, 97.59663, 97.58994, 97.59507, 
  97.60606, 97.62461, 97.62976, 97.64522, 97.65293, 97.66461, 97.66718, 97.68057, 97.69035, 97.6907, 
  97.72333, 97.72383, 97.72915, 97.73756, 97.73361, 97.73808, 97.73653, 97.73258, 97.73499, 97.74375, 
  97.73619, 97.73516, 97.74391, 97.75747, 97.76331, 97.78683, 97.78631, 97.79748, 97.80606, 97.81001, 
  97.82049, 97.82358, 97.84282, 97.84797, 97.84385, 97.87387, 97.9101, 97.9142, 97.92794, 97.93824, 
  97.94185, 97.96055, 97.95299, 97.96655, 97.98854, 97.99401, 97.99333, 98.01291, 98.02441, 98.01548, 
  98.01137, 98.01378, 98.00605, 98.00724, 98.02923, 98.05138, 98.05001, 98.07986, 98.08295, 98.08948, 
  98.09582, 98.11609, 98.12929, 98.13204, 98.13891, 98.15043, 98.14785, 98.16003, 98.15832, 98.16107, 
  98.15248, 98.15301, 98.13789, 98.14012, 98.1427, 98.14339, 98.13875, 98.14115, 98.13343, 98.13137, 
  98.13652, 98.1396, 98.15626, 98.19043, 98.1887, 98.20192, 98.20175, 98.18165, 98.17068, 98.176, 
  98.21386, 98.22451, 98.2173, 98.22553, 98.24305, 98.24477, 98.22519, 98.22234, 98.23247, 98.23367, 
  98.26423, 98.26492, 98.27831, 98.28809, 98.29684, 98.30268, 98.2977, 98.30216, 98.31058, 98.30697, 
  98.31933, 98.31521, 98.34029, 98.35142, 98.37271, 98.394, 98.40155, 98.4304, 98.43452, 98.43023, 
  98.43435, 98.42971, 98.43967, 98.43246, 98.43504, 98.42971, 98.43228, 98.44362, 98.45219, 98.45803, 
  98.46849, 98.50696, 98.5073, 98.52001, 98.52685, 98.53595, 98.53767, 98.54866, 98.54969, 98.55914, 
  98.57355, 98.58746, 98.58248, 98.59072, 98.59896, 98.59725, 98.60618, 98.61405, 98.62092, 98.6484, 
  98.65819, 98.67192, 98.68927, 98.70335, 98.70748, 98.69802, 98.70523, 98.68944, 98.6927, 98.68394, 
  98.70437, 98.70163, 98.68823, 98.68628, 98.70174, 98.70414, 98.73607, 98.73092, 98.74122, 98.73252, 
  98.73321, 98.71707, 98.71449, 98.73098, 98.71724, 98.72428, 98.69492, 98.692, 98.70746, 98.71313, 
  98.72852, 98.73985, 98.76527, 98.76218, 98.74317, 98.73304)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_4, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_4 <- st_set_geometry(Geo_4, Geo_0)
Geo_4 <- st_union(Geo_4, Geo)
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
Geo_4 <- Geo_4 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("INDIA", "BHUTAN", "CHINA", "MYANMAR"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3, Geo_4)

Numeric Code (M49_CODE) for HEARD ISLAND AND MCDONALD ISLANDS.

No suitable Geometries in available sources. We create our own Geometries.

##### HEARD ISLAND AND MCDONALD ISLANDS #####
LATITUDE_VALUEs <- c(
  -53.07618, -53.07933, -53.08928, -53.09515, -53.14048, -53.14666, -53.15664, -53.16735, -53.17229, -53.18026, 
  -53.18356, -53.18957, -53.19482, -53.1943, -53.18669, -53.18556, -53.18757, -53.1923, -53.18628, -53.17208, 
  -53.16837, -53.16765, -53.16445, -53.16203, -53.16105, -53.15263, -53.15279, -53.14666, -53.12565, -53.12173, 
  -53.1207, -53.12039, -53.11514, -53.10752, -53.10546, -53.09845, -53.0868, -53.07572, -53.06437, -53.06071, 
  -53.05576, -53.04487, -53.04018, -53.03646, -53.03605, -53.01886, -53.02051, -53.01777, -53.01307, -53.01741, 
  -53.01759, -53.01235, -53.01088, -53.01336, -53.0195, -53.02428, -53.03016, -53.02423, -53.01855, -53.01426, 
  -53.00972, -53.00827, -53.00068, -53.00109, -53.01313, -53.01958, -53.01979, -53.02371, -53.02763, -53.02763, 
  -53.02443, -53.0186, -53.0108, -53.00837, -53.00631, -53.00181, -53.00089, -52.98032, -52.97841, -52.97492, -52.97665, 
  -52.97308, -52.96797, -52.96559, -52.96321, -52.96179, -52.96287, -52.9644, -52.96546, -52.96587, -52.96877, 
  -52.97138, -52.97577, -52.97757, -52.97867, -52.97733, -52.97958, -52.9795, -52.98239, -52.989, -52.99293, 
  -53.00274, -53.0046, -53.01101, -53.01994, -53.0235, -53.01746, -53.01819, -53.02139, -53.02128, -53.02304, 
  -53.02748, -53.03032, -53.02898, -53.03052, -53.03135, -53.03439, -53.03398, -53.03522, -53.03883, -53.04007, 
  -53.04461, -53.04188, -53.04549, -53.06081, -53.07108, -53.07335, -53.07752)
LONGITUDE_VALUEs <- c(
  73.37998, 73.38573, 73.39431, 73.39359, 73.40698, 73.42002, 73.42553, 73.44049, 73.45233, 73.46375, 
  73.46632, 73.48684, 73.49508, 73.51026, 73.5185, 73.52632, 73.5464, 73.57284, 73.60296, 73.62483, 
  73.62843, 73.63684, 73.63834, 73.64221, 73.65207, 73.67334, 73.6766, 73.68365, 73.74808, 73.77898, 
  73.77315, 73.75871, 73.73691, 73.72579, 73.71875, 73.70785, 73.67704, 73.6742, 73.6597, 73.65815, 
  73.65249, 73.64708, 73.64167, 73.62313, 73.60923, 73.57207, 73.56125, 73.54391, 73.53791, 73.52229, 
  73.50625, 73.50699, 73.49609, 73.49172, 73.49378, 73.48219, 73.43827, 73.41082, 73.40799, 73.41641, 
  73.41486, 73.41744, 73.40877, 73.40044, 73.38834, 73.38731, 73.39229, 73.39383, 73.38645, 73.38121, 
  73.38079, 73.36628, 73.36234, 73.3583, 73.35787, 73.35152, 73.34748, 73.33092, 73.32277, 73.31929, 73.31143, 
  73.30688, 73.30735, 73.30898, 73.30869, 73.3065, 73.3028, 73.30323, 73.30225, 73.30388, 73.30255, 
  73.29817, 73.27975, 73.27805, 73.27384, 73.27049, 73.26916, 73.26405, 73.25745, 73.25127, 73.25564, 
  73.25487, 73.25873, 73.26079, 73.29436, 73.29616, 73.31924, 73.32747, 73.33949, 73.36233, 73.36945, 
  73.37263, 73.36954, 73.36576, 73.36413, 73.36044, 73.36147, 73.36653, 73.37065, 73.37126, 73.36585, 
  73.36731, 73.37366, 73.38018, 73.38259, 73.37383, 73.36344, 73.36644)
MGeo_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  -53.0455, -53.04483, -53.04364, -53.04222, -53.04173, -53.04165, -53.03825, -53.03724, -53.03523, -53.03298, 
  -53.03257, -53.03164, -53.02991, -53.02919, -53.02947, -53.02914, -53.02978, -53.03004, -53.03094, -53.03115, 
  -53.03342, -53.03376, -53.03466, -53.03517, -53.0359, -53.03533, -53.03541, -53.03512, -53.0361, -53.03603, 
  -53.03745, -53.03827, -53.03902, -53.04052, -53.04132, -53.04237, -53.0432, -53.04526, -53.04552, -53.04715, 
  -53.04679, -53.04777, -53.04931, -53.04908, -53.05073, -53.05045, -53.04957, -53.0488, -53.04777, -53.04684)
LONGITUDE_VALUEs <- c(
  72.60653, 72.60773, 72.60782, 72.61378, 72.61348, 72.61099, 72.60632, 72.60584, 72.60194, 72.60194, 
  72.60052, 72.59997, 72.60057, 72.5997, 72.59876, 72.59769, 72.59713, 72.59812, 72.59807, 72.59726, 
  72.59571, 72.59387, 72.5931, 72.59056, 72.58953, 72.58902, 72.58825, 72.58734, 72.58627, 72.5843, 
  72.58499, 72.58383, 72.58447, 72.58233, 72.58293, 72.58241, 72.5846, 72.58438, 72.58692, 72.58846, 
  72.59018, 72.59318, 72.59215, 72.59876, 72.60254, 72.60387, 72.60357, 72.60675, 72.60786, 72.6067)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-52.91371, -52.91795, -52.92096, -52.92054, -52.91423)
LONGITUDE_VALUEs <- c(73.58273, 73.58204, 73.57621, 73.58564, 73.58479)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-53.02175, -53.02392, -53.0235, -53.02164)
LONGITUDE_VALUEs <- c(72.57835, 72.57955, 72.58144, 72.58041)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
MGeo_1 <- MGeo_1 %>% 
  mutate(NAME = "HEARD ISLAND AND MCDONALD ISLANDS", 
         VISUALIZATION_NAME = "Heard Island and McDonald Islands", 
         ISO2 = "HM", ISO3 = "HMD", M49_CODE = "334", SOVRN = "Australia", CONTINENT = "OCEANIA", 
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, MGeo_1)

HALA’IB TRIANGLE is included in SUDAN in GeoDATA.

HALA’IB TRIANGLE is an area claimed by EGYPT and by SUDAN.

HALA’IB TRIANGLE has been controlled by EGYPT since 2000.

BIR TAWIL is included in EGYPT in GeoDATA.

BIR TAWIL is a Terra Nullius.

##### HALA'IB TRIANGLE #####
LATITUDE_VALUEs <- c(
  22.00002, 22.00001, 22.00001, 22, 22, 21.99907, 22.00153, 22.00014, 22.00119, 22.00569, 
  21.99893, 22.00032, 21.99483, 22.00131, 22.0001, 22.00006, 21.99879, 21.9995, 21.99798, 21.99885, 
  21.99372, 22.00005,
  22.00863, 22.015, 22.02773, 22.04778, 22.05541, 22.05812, 22.06241, 22.06623, 22.0656, 22.08039, 
  22.0858, 22.11013, 22.11809, 22.11983, 22.12906, 22.13097, 22.14273, 22.14687, 22.15132, 22.15323, 
  22.16467, 22.17214, 22.17135, 22.1661, 22.16118, 22.15784, 22.16229, 22.16451, 22.17071, 22.17437, 
  22.18041, 22.18168, 22.18502, 22.18788, 22.19742, 22.19583, 22.19933, 22.20028, 22.20393, 22.20632, 
  22.21172, 22.2273, 22.23858, 22.25161, 22.25733, 22.27305, 22.2783, 22.30736, 22.32562, 22.32832, 
  22.33817, 22.34039, 22.36055, 22.36929, 22.3796, 22.40119, 22.4142, 22.41563, 22.42531, 22.43531, 
  22.43642, 22.43213, 22.46434, 22.49606, 22.51969, 22.57249, 22.58992, 22.59515, 22.61227, 22.61338, 
  22.62352, 22.63176, 22.64031, 22.65346, 22.66107, 22.66376, 22.65932, 22.66091, 22.66946, 22.66661, 
  22.66724, 22.67643, 22.67738, 22.68277, 22.68197, 22.69132, 22.69005, 22.6948, 22.69639, 22.70177, 
  22.70351, 22.69607, 22.68704, 22.71127, 22.71159, 22.69195, 22.69227, 22.69686, 22.70811, 22.70811, 
  22.71697, 22.72157, 22.72822, 22.73471, 22.73851, 22.7594, 22.7727, 22.81448, 22.81749, 22.82397, 
  22.82635, 22.83805, 22.84201, 22.84723, 22.84549, 22.8515, 22.87902, 22.87317, 22.8757, 22.88709, 
  22.90875, 22.91444, 22.91176, 22.92045, 22.91745, 22.91666, 22.9097, 22.91033, 22.90859, 22.91885, 
  22.94636, 22.94415, 22.94937, 22.95458, 22.97055, 22.97639, 22.97513, 22.96928, 22.96897, 22.98003, 
  23.00263, 23.01669, 23.05887, 23.06708, 23.08256, 23.08982, 23.1094, 23.11603, 23.12314, 23.14239,
  23.14621, 22.78561, 22.86025, 22.30271, 22.29592, 22.20392)
LONGITUDE_VALUEs <- c(
  34.07986, 34.60927, 35.00058, 35.55804, 36.35975, 36.36778, 36.37072, 36.47465, 36.60471, 36.61968, 
  36.65875, 36.67527, 36.70407, 36.73199, 36.73334, 36.73414, 36.73693, 36.80982, 36.84415, 36.85865, 
  36.87397, 36.88045,
  36.88364, 36.88845, 36.89291, 36.89153, 36.8948, 36.89291, 36.89377, 36.89188, 36.88278, 36.8639, 
  36.84211, 36.82545, 36.81343, 36.80537, 36.79472, 36.79713, 36.79438, 36.79558, 36.79455, 36.78974, 
  36.77498, 36.77069, 36.76794, 36.76932, 36.76571, 36.735, 36.73137, 36.72262, 36.71644, 36.70786, 
  36.70632, 36.70066, 36.69894, 36.70117, 36.69293, 36.68521, 36.68125, 36.67508, 36.67645, 36.67079, 
  36.66804, 36.64436, 36.64538, 36.61792, 36.61723, 36.59389, 36.59458, 36.54873, 36.51096, 36.49569, 
  36.48316, 36.47206, 36.43652, 36.43688, 36.42813, 36.42057, 36.42074, 36.42332, 36.42384, 36.41456, 
  36.40769, 36.40289, 36.34177, 36.3076, 36.29559, 36.28512, 36.27329, 36.26092, 36.25646, 36.2472, 
  36.23501, 36.23329, 36.19775, 36.1878, 36.18849, 36.1787, 36.16565, 36.15209, 36.14384, 36.13732, 
  36.09613, 36.08256, 36.07073, 36.05922, 36.03898, 35.99793, 35.97836, 35.96771, 35.97355, 35.97218, 
  35.96376, 35.96204, 35.94161, 35.94095, 35.93236, 35.93048, 35.91726, 35.91743, 35.92756, 35.91056, 
  35.89081, 35.89717, 35.88171, 35.87828, 35.88652, 35.84739, 35.84001, 35.7988, 35.80653, 35.80001, 
  35.80173, 35.79504, 35.79109, 35.79041, 35.78457, 35.7868, 35.77633, 35.76586, 35.75744, 35.76448, 
  35.75641, 35.74663, 35.74079, 35.7341, 35.7281, 35.7214, 35.71728, 35.71298, 35.70474, 35.69375, 
  35.68345, 35.67317, 35.67008, 35.66201, 35.65926, 35.66407, 35.66922, 35.66991, 35.67334, 35.67094, 
  35.65823, 35.66046, 35.65428, 35.65566, 35.6493, 35.64862, 35.63196, 35.63694, 35.62699, 35.62493,
  35.61937, 35.20720, 34.94719, 34.68975, 34.68763, 34.14938)
Claimed_Area_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  22.25574, 22.26114, 22.25701, 22.25002, 22.25351, 22.26495, 22.26686, 22.27194, 22.27575, 22.28084, 
  22.27861, 22.28052, 22.28576, 22.27893, 22.27941, 22.27464, 22.26765, 22.26622, 22.26273, 22.26257, 
  22.2532, 22.2497, 22.2559)
LONGITUDE_VALUEs <- c(
  36.64178, 36.6531, 36.66065, 36.66186, 36.6658, 36.66392, 36.65568, 36.65259, 36.64195, 36.64641, 
  36.65087, 36.65207, 36.64624, 36.64161, 36.63732, 36.63869, 36.63406, 36.63062, 36.63114, 36.63388, 
  36.63097, 36.63165, 36.6356)
Claimed_Area <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Claimed_Area_1 <- st_union(Claimed_Area_1, Claimed_Area)
Claimed_Area_1 <- Claimed_Area_1 %>% 
  mutate(NAME = "HALA'IB TRIANGLE", VISUALIZATION_NAME = "Hala'ib Triangle", 
         ISO2 = NA, ISO3 = NA, M49_CODE = NA, SOVRN = NA, CONTINENT = "AFRICA", 
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

##### BIR TAWIL #####
LATITUDE_VALUEs <- c(22, 21.725, 21.76668, 22.00002)
LONGITUDE_VALUEs <- c(33.16667, 33.55292, 34, 34.07986)
Claimed_Area_2 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Claimed_Area_2 <- Claimed_Area_2 %>% 
  mutate(NAME = "BIR TAWIL", VISUALIZATION_NAME = "Bir Tawil", 
         ISO2 = NA, ISO3 = NA, M49_CODE = NA, SOVRN = "Terra Nullius", CONTINENT = "AFRICA", 
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "EGYPT")
Geo_2 <- GeoDATA %>% filter(NAME == "SUDAN")
Geo_3 <- GeoDATA %>% filter(NAME == "ERITREA")

##### EGYPT #####
Geo_0 <- Geometric_Operations(Geo_1, Claimed_Area_1)
Geo_0 <- Geometric_Operations(Geo_0, Claimed_Area_2)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_union(Geo_0[c(3:5, 8)]))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
LATITUDE_VALUEs <- c(
  21.99969, 22, 21.99996, 22.04157, 22.08166, 22.1149, 22.14941, 22.18693, 22.20695, 22.22602,
  22.21474, 22.19885, 22.18518, 22.17787, 22.16642, 22.11888, 22.08055, 22.00001, 22, 
  22.00002, 22.20392, 22.29592, 22.30271, 22.86025, 22.78561, 23.14621,
  23.15172, 23.16309, 23.1825, 23.20191, 23.2139, 23.23567, 23.24639, 23.25964, 23.26658, 23.28834, 
  23.3049, 23.31499, 23.36463, 23.37472, 23.42592, 23.46876, 23.47191, 23.48356, 23.48875, 23.50702, 
  23.50953, 23.50214, 23.5045, 23.50229, 23.51772, 23.54196, 23.56005, 23.56241, 23.57988, 23.58617, 
  23.59026, 23.62943, 23.631, 23.62235, 23.62565, 23.6332, 23.63556, 23.63933, 23.64704, 23.65144, 
  23.63698, 23.63163, 23.63273, 23.63949, 23.64547, 23.68509, 23.68918, 23.74183, 23.75487, 23.76272, 
  23.76005, 23.76555, 23.76351, 23.75471, 23.75157, 23.77246, 23.78503, 23.78597, 23.76806, 23.77121, 
  23.78629, 23.78095, 23.7833, 23.79273, 23.79508, 23.81346, 23.81597, 23.83419, 23.84267, 23.84565, 
  23.85397, 23.85319, 23.84753, 23.84329, 23.84958, 23.86967, 23.89321, 23.90043, 23.90514, 23.90938, 
  23.90514, 23.91534, 23.91785, 23.91754, 23.93276, 23.93402, 23.92868, 23.93715, 23.93888, 23.94202, 
  23.94029, 23.94453, 23.94923, 23.95457, 23.95865, 23.96727, 23.97418, 23.97888, 23.96633, 23.95112, 
  23.93213, 23.92633, 23.93103, 23.9257, 23.91001, 23.91958, 23.92444, 23.92743, 23.9337, 23.93182, 
  23.93464, 23.93543, 23.93762, 23.94092, 23.93339, 23.92225, 23.90828, 23.90012, 23.89557, 23.89384, 
  23.90812, 23.92382, 23.93925, 23.94787, 23.95336, 23.95619, 23.96905, 23.99179, 24.00654, 23.99948, 
  24.01171, 24.0161, 24.04542, 24.08882, 24.11499, 24.11561, 24.1399, 24.1377, 24.12439, 24.11749, 
  24.11279, 24.10574, 24.11499, 24.1189, 24.12407, 24.1283, 24.15744, 24.17341, 24.18485, 24.19048, 
  24.19784, 24.20802, 24.21256, 24.21882, 24.22195, 24.24277, 24.25592, 24.29958, 24.3182, 24.31913, 
  24.32289, 24.32179, 24.33352, 24.33352, 24.35245, 24.36058, 24.36246, 24.35808, 24.35917, 24.35839, 
  24.36668, 24.37637, 24.39123, 24.39388, 24.41327, 24.42687, 24.4489, 24.45531, 24.4589, 24.47156, 
  24.47875, 24.48093, 24.49734, 24.50936, 24.52498, 24.53545, 24.5559, 24.56183, 24.56839, 24.57994,
  24.60957, 24.61269, 24.61846, 24.64093, 24.66543, 24.66886, 24.68992, 24.69491, 24.71331, 24.75385, 
  24.82881, 24.86105, 24.86681, 24.89407, 24.9596, 24.98544, 25.00068, 25.01282, 25.02091, 25.03024, 
  25.04159, 25.05403, 25.06057, 25.07689, 25.07751, 25.08389, 25.08591, 25.09493, 25.0999, 25.11545, 
  25.12042, 25.14995, 25.16859, 25.17154, 25.17822, 25.21706, 25.22094, 25.27264, 25.30089, 25.37334, 
  25.38094, 25.40622, 25.4504, 25.46156, 25.469, 25.47179, 25.47939, 25.48574, 25.50402, 25.50604, 
  25.511, 25.51471, 25.53206, 25.57481, 25.59757, 25.61088, 25.6228, 25.62729, 25.65747, 25.66273, 
  25.66984, 25.67588, 25.67835, 25.70016, 25.70573, 25.70914, 25.73496, 25.74857, 25.75352, 25.76743, 
  25.77903, 25.78521, 25.78413, 25.78984, 25.81766, 25.82508, 25.82647, 25.83497, 25.83528, 25.84331, 
  25.8498, 25.86571, 25.86726, 25.87328, 25.88255, 25.90509, 25.90926, 25.9193, 25.9318, 25.9335, 
  25.93798, 25.94091, 25.94307, 25.9528, 25.96437, 25.97965, 26.04691, 26.05971, 26.07544, 26.09625, 
  26.10288, 26.1035, 26.11614, 26.11876, 26.12986, 26.14496, 26.15605, 26.17963, 26.21213, 26.24246, 
  26.25185, 26.26063, 26.27356, 26.28895, 26.30803, 26.34158, 26.3465, 26.35357, 26.37603, 26.38556, 
  26.3891, 26.39571, 26.40062, 26.4412, 26.44535, 26.46472, 26.47747, 26.52694, 26.53248, 26.5397,
  26.55576, 26.57526, 26.59475, 26.61179, 26.62437, 26.63419, 26.63558, 26.64463, 26.65215, 26.66411, 
  26.66779, 26.67316, 26.67945, 26.68375, 26.68973, 26.6974, 26.70491, 26.72515, 26.73021, 26.74064, 
  26.75229, 26.76838, 26.79183, 26.80378, 26.83105, 26.83672, 26.84438, 26.86383, 26.86107, 26.85571, 
  26.85448, 26.84652, 26.84606, 26.84376, 26.8456, 26.84315, 26.84667, 26.8551, 26.86551, 26.88266, 
  26.90149, 26.89981, 26.88955, 26.89674, 26.89797, 26.90027, 26.91159, 26.93379, 26.98122, 26.99009, 
  26.99499, 27.00049, 27.00768, 27.00982, 27.01701, 27.03016, 27.04025, 27.04882, 27.04377, 27.04591, 
  27.07343, 27.0826, 27.08565, 27.0933, 27.10308, 27.10705, 27.11286, 27.12798, 27.13837, 27.15349, 
  27.16815, 27.18373, 27.18465, 27.19198, 27.19992, 27.21396, 27.22755, 27.23274, 27.24022, 27.25822, 
  27.25944, 27.26234, 27.26158, 27.26952, 27.27379, 27.27867, 27.28218, 27.29164, 27.29347, 27.30247, 
  27.30689, 27.3133, 27.31498, 27.32901, 27.33541, 27.35097, 27.35615, 27.36682, 27.37719, 27.39273, 
  27.40965, 27.41788, 27.42731, 27.4334, 27.43554, 27.44133, 27.44879, 27.46661, 27.48504, 27.4989, 
  27.49829, 27.52174, 27.52615, 27.53955, 27.56664, 27.57044, 27.58794, 27.58855, 27.61715, 27.63313, 
  27.6377, 27.6418, 27.65184, 27.65062, 27.65959, 27.6792, 27.68072, 27.67008, 27.6667, 27.65839, 
  27.66022, 27.65733, 27.66934, 27.67907, 27.66736, 27.65991, 27.65672, 27.64197, 27.64273, 27.65231, 
  27.65824, 27.66311, 27.66934, 27.68257, 27.68348, 27.6888, 27.70111, 27.70612, 27.7549, 27.76295, 
  27.75156, 27.74958, 27.7666, 27.76918, 27.78254, 27.79363, 27.7991, 27.7991, 27.80881, 27.83553, 
  27.83705, 27.83189, 27.83219, 27.82597, 27.82658, 27.81215, 27.81064, 27.81656, 27.81595, 27.812, 
  27.80988, 27.80122, 27.79606, 27.78664, 27.79363, 27.79044, 27.7915, 27.81352, 27.82218, 27.83037, 
  27.84586, 27.85405, 27.86043, 27.86999, 27.8932, 27.90852, 27.92961, 27.93461, 27.94326, 27.95069, 
  27.98829, 28.01011, 28.01951, 28.02163, 28.03406, 28.02997, 28.03466, 28.03815, 28.04087, 28.04815, 
  28.04769, 28.05178, 28.05299, 28.05724, 28.05905, 28.06511, 28.0686, 28.07238, 28.07859, 28.08435,
  28.11167, 28.12197, 28.12803, 28.13862, 28.14074, 28.14952, 28.1698, 28.17479, 28.18523, 28.19416, 
  28.21035, 28.21973, 28.23198, 28.24045, 28.27265, 28.29352, 28.30772, 28.31709, 28.35834, 28.36861, 
  28.41965, 28.43218, 28.44154, 28.46509, 28.47112, 28.47942, 28.49013, 28.49194, 28.50763, 28.51699, 
  28.5188, 28.55393, 28.56811, 28.57881, 28.58574, 28.65235, 28.65657, 28.66786, 28.68067, 28.71063, 
  28.72448, 28.7302, 28.73788, 28.78785, 28.80801, 28.84411, 28.86546, 28.93849, 28.97694, 29.03819, 
  29.052, 29.09161, 29.10704, 29.11244, 29.12684)
LONGITUDE_VALUEs <- c(
  25.00153, 25.00386, 31.31496, 31.32766, 31.33848, 31.3541, 31.37745, 31.41555, 31.4389, 31.46962, 
  31.48456, 31.48971, 31.50636, 31.49949, 31.4964, 31.4559, 31.4298, 31.39888, 33.16667, 
  34.07986, 34.14938, 34.68763, 34.68975, 34.94719, 35.2072, 35.61937,
  35.61318, 35.61113, 35.59224, 35.58675, 35.56925, 35.56958, 35.56512, 35.56924, 35.5634, 35.55465, 
  35.55464, 35.55019, 35.55379, 35.54555, 35.53182, 35.49234, 35.49285, 35.4853, 35.4901, 35.47861, 
  35.48324, 35.48358, 35.48702, 35.48959, 35.48994, 35.50127, 35.50144, 35.50436, 35.50436, 35.5071, 
  35.50281, 35.49508, 35.49285, 35.49337, 35.48822, 35.48993, 35.4853, 35.48908, 35.48582, 35.49423, 
  35.49834, 35.50521, 35.50985, 35.51019, 35.50659, 35.51191, 35.50676, 35.50109, 35.48307, 35.49079, 
  35.4956, 35.50152, 35.50804, 35.50495, 35.50907, 35.51353, 35.50821, 35.50066, 35.48898, 35.48039, 
  35.4876, 35.47867, 35.47199, 35.47456, 35.4713, 35.4749, 35.48418, 35.47729, 35.47918, 35.47472, 
  35.47695, 35.48073, 35.48125, 35.48606, 35.48417, 35.4888, 35.48056, 35.48417, 35.48211, 35.48314, 
  35.47472, 35.48091, 35.47884, 35.47266, 35.47283, 35.47644, 35.47884, 35.48674, 35.48262, 35.48365, 
  35.48983, 35.49309, 35.49292, 35.4967, 35.49344, 35.50013, 35.49617, 35.51214, 35.55559, 35.56261, 
  35.58545, 35.61808, 35.64189, 35.6467, 35.69033, 35.70115, 35.71554, 35.71571, 35.72378, 35.73409, 
  35.73563, 35.74096, 35.73924, 35.74285, 35.76414, 35.76466, 35.78388, 35.78714, 35.78491, 35.78852, 
  35.7935, 35.77203, 35.76844, 35.76861, 35.76106, 35.7638, 35.75385, 35.71967, 35.6608, 35.63847, 
  35.61565, 35.59865, 35.60055, 35.58339, 35.54441, 35.52709, 35.50287, 35.48999, 35.50751, 35.50785, 
  35.51283, 35.49806, 35.48999, 35.49222, 35.48879, 35.49258, 35.45308, 35.44382, 35.43028, 35.42924, 
  35.42323, 35.43199, 35.42547, 35.42581, 35.41516, 35.41294, 35.40572, 35.36623, 35.35696, 35.35354, 
  35.34977, 35.34084, 35.33706, 35.33208, 35.31817, 35.31955, 35.30907, 35.30787, 35.30426, 35.29722, 
  35.28589, 35.26444, 35.2586, 35.2435, 35.22238, 35.21913, 35.20213, 35.20333, 35.19406, 35.19218, 
  35.18376, 35.16831, 35.1551, 35.13896, 35.13466, 35.14857, 35.14582, 35.16712, 35.16471, 35.14221,
  35.13116, 35.11675, 35.11846, 35.09546, 35.10971, 35.09083, 35.08242, 35.08791, 35.08963, 35.07074, 
  34.99247, 34.99315, 34.98697, 34.98697, 34.93342, 34.94714, 34.942, 34.92551, 34.92551, 34.9147, 
  34.91367, 34.9044, 34.90456, 34.89564, 34.8898, 34.88963, 34.88311, 34.87899, 34.88088, 34.87144, 
  34.87367, 34.85462, 34.85032, 34.84071, 34.8414, 34.80158, 34.80347, 34.78253, 34.75231, 34.73051, 
  34.71781, 34.69652, 34.68897, 34.67763, 34.67643, 34.6797, 34.67455, 34.67592, 34.66202, 34.6512, 
  34.64811, 34.65092, 34.64027, 34.6377, 34.61779, 34.59892, 34.59394, 34.58758, 34.57865, 34.58226, 
  34.56698, 34.56715, 34.562, 34.56578, 34.55599, 34.55977, 34.5407, 34.53813, 34.52664, 34.51599, 
  34.49625, 34.4937, 34.48666, 34.48889, 34.47154, 34.47068, 34.46175, 34.45436, 34.43204, 34.43479, 
  34.42502, 34.42175, 34.41196, 34.42055, 34.41265, 34.41265, 34.4087, 34.40562, 34.39841, 34.39515, 
  34.39686, 34.38724, 34.38793, 34.38055, 34.37626, 34.34657, 34.3148, 34.31566, 34.30656, 34.28339, 
  34.28253, 34.2863, 34.28716, 34.27996, 34.26691, 34.26536, 34.24477, 34.23929, 34.21542, 34.21113, 
  34.20151, 34.20512, 34.19019, 34.1847, 34.18762, 34.16925, 34.15602, 34.15311, 34.13268, 34.13183, 
  34.12719, 34.12582, 34.11328, 34.09646, 34.08976, 34.08101, 34.08187, 34.06281, 34.05302, 34.05337,
  34.03621, 34.03261, 34.01888, 34.01768, 33.9957, 33.99158, 33.98162, 33.97098, 33.94661, 33.94111, 
  33.93493, 33.9351, 33.93184, 33.93528, 33.93442, 33.93957, 33.93682, 33.93734, 33.94317, 33.93957, 
  33.95639, 33.94197, 33.93459, 33.94918, 33.94163, 33.9533, 33.94746, 33.966, 33.97424, 33.97595, 
  33.98076, 33.98505, 33.98918, 33.99124, 33.99416, 33.99707, 34.00188, 34.00308, 33.9921, 33.98695, 
  33.99638, 33.97905, 33.96995, 33.96445, 33.96188, 33.96359, 33.96016, 33.93664, 33.91914, 33.90025, 
  33.89854, 33.91167, 33.9103, 33.90102, 33.89828, 33.88438, 33.88352, 33.89125, 33.90395, 33.9067, 
  33.88952, 33.87733, 33.855, 33.85328, 33.83199, 33.83302, 33.82615, 33.83098, 33.82978, 33.83201, 
  33.82617, 33.82806, 33.83321, 33.83475, 33.85158, 33.84213, 33.84076, 33.84814, 33.84883, 33.83114, 
  33.82378, 33.82017, 33.80935, 33.80094, 33.78361, 33.78104, 33.77193, 33.76197, 33.75476, 33.75184, 
  33.72489, 33.72214, 33.71441, 33.70773, 33.6921, 33.69468, 33.68454, 33.68455, 33.68043, 33.68798, 
  33.67751, 33.6782, 33.66549, 33.66446, 33.65759, 33.65587, 33.64009, 33.62893, 33.6267, 33.61468, 
  33.60386, 33.5884, 33.55769, 33.55442, 33.56679, 33.56027, 33.55941, 33.55426, 33.53555, 33.51511, 
  33.51391, 33.49364, 33.49313, 33.49828, 33.49982, 33.52455, 33.54052, 33.54516, 33.551, 33.55272, 
  33.55615, 33.56457, 33.55547, 33.55753, 33.57401, 33.5802, 33.57882, 33.58844, 33.59342, 33.59428, 
  33.58329, 33.58432, 33.57659, 33.57659, 33.54877, 33.54534, 33.54602, 33.53572, 33.55907, 33.55341, 
  33.53709, 33.51872, 33.51133, 33.50103, 33.50121, 33.49022, 33.48868, 33.48078, 33.46824, 33.47855, 
  33.48954, 33.49538, 33.51152, 33.51596, 33.52472, 33.53932, 33.55254, 33.55443, 33.55924, 33.56025, 
  33.56626, 33.56626, 33.57141, 33.57158, 33.5788, 33.58447, 33.58876, 33.57948, 33.58447, 33.58035, 
  33.58584, 33.57176, 33.56971, 33.55992, 33.55751, 33.53915, 33.53073, 33.52284, 33.51941, 33.50876, 
  33.48319, 33.44164, 33.43565, 33.42242, 33.41246, 33.37605, 33.37161, 33.37247, 33.3656, 33.3656, 
  33.35547, 33.34946, 33.33915, 33.339, 33.33556, 33.33573, 33.33333, 33.33436, 33.33196, 33.33625,
  33.29761, 33.29074, 33.2813, 33.27736, 33.24766, 33.24045, 33.24302, 33.23358, 33.22637, 33.21162, 
  33.202, 33.18467, 33.18071, 33.16544, 33.15514, 33.12321, 33.12406, 33.11188, 33.10913, 33.07721, 
  33.04098, 33.03909, 33.02965, 33.0209, 33.00562, 32.99995, 32.99858, 32.97884, 32.96305, 32.96391, 
  32.95532, 32.92666, 32.86984, 32.86246, 32.86795, 32.85353, 32.84546, 32.84048, 32.84288, 32.82863, 
  32.82794, 32.83224, 32.82262, 32.79921, 32.7412, 32.72438, 32.68764, 32.66258, 32.61863, 32.63099, 
  32.62103, 32.66686, 32.66202, 32.66631, 32.65309)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_1, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_union(Geo_0[c(1, 6:7, 94)]))
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  23.62048, 23.6145, 23.61325, 23.59641, 23.59814, 23.60695, 23.60632, 23.60978, 23.60963, 23.61356, 
  23.61875, 23.623, 23.62174, 23.62551)
LONGITUDE_VALUEs <- c(
  36.18709, 36.184, 36.18898, 36.18589, 36.19602, 36.20408, 36.21421, 36.21421, 36.2082, 36.20511, 
  36.19687, 36.19619, 36.19224, 36.18623)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  27.51862, 27.52821, 27.53095, 27.53522, 27.53598, 27.52258, 27.52517, 27.51741, 27.50355, 27.50599, 
  27.50218, 27.49472, 27.49487, 27.47629, 27.47157, 27.47233, 27.46792, 27.46198, 27.45512, 27.44766, 
  27.44903, 27.45604, 27.5034, 27.50386, 27.50812)
LONGITUDE_VALUEs <- c(
  33.97914, 33.97039, 33.96352, 33.96078, 33.92782, 33.92165, 33.91581, 33.91718, 33.93263, 33.94482, 
  33.95426, 33.96095, 33.97777, 33.99872, 33.99992, 34.00558, 34.01451, 34.01537, 34.02429, 34.02258, 
  34.03631, 34.03957, 34.01932, 34.00524, 34.00369)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  27.24761, 27.24425, 27.24746, 27.24273, 27.23418, 27.22991, 27.22975, 27.22029, 27.20777, 27.20609, 
  27.19861, 27.19388, 27.18227, 27.1809, 27.18456, 27.1954, 27.2096, 27.2151, 27.22517, 27.22716, 
  27.23769, 27.24364, 27.25204, 27.25295, 27.2647, 27.26668, 27.26104)
LONGITUDE_VALUEs <- c(
  33.90756, 33.90276, 33.89452, 33.89366, 33.90345, 33.90242, 33.90791, 33.91941, 33.9249, 33.94292, 
  33.94601, 33.94378, 33.94791, 33.95718, 33.96232, 33.95031, 33.94705, 33.93933, 33.93777, 33.93279, 
  33.92747, 33.92971, 33.92799, 33.92524, 33.91718, 33.90791, 33.90225)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  27.61693, 27.61966, 27.62727, 27.62651, 27.6043, 27.58498, 27.58118, 27.57585, 27.57144, 27.56642, 
  27.56581, 27.55576, 27.55622, 27.56231, 27.5722, 27.58163, 27.59624)
LONGITUDE_VALUEs <- c(
  33.77761, 33.77195, 33.76697, 33.75925, 33.75186, 33.74002, 33.75598, 33.7625, 33.77898, 33.77795, 
  33.76337, 33.76732, 33.77624, 33.77573, 33.79958, 33.80267, 33.77281)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(27.18884, 27.2009, 27.21052, 27.21159, 27.19769, 27.18762)
LONGITUDE_VALUEs <- c(33.9836, 33.98205, 33.9745, 33.9697, 33.96712, 33.97193)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(27.77394, 27.7633, 27.75784, 27.75586, 27.76892, 27.78123, 27.78609)
LONGITUDE_VALUEs <- c(33.58415, 33.59754, 33.59908, 33.60766, 33.60389, 33.60595, 33.59513)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(27.66453, 27.65981, 27.65434, 27.65069, 27.64278, 27.63305, 27.6186, 27.63487, 27.6513, 27.65616)
LONGITUDE_VALUEs <- c(33.79753, 33.78552, 33.7862, 33.78328, 33.78946, 33.79118, 33.80697, 33.81658, 33.81383, 33.80474)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(27.71615, 27.72087, 27.7157, 27.69746, 27.69625, 27.68348, 27.68697, 27.70704, 27.71509)
LONGITUDE_VALUEs <- c(33.67982, 33.67588, 33.66884, 33.67622, 33.68171, 33.69236, 33.69562, 33.68652, 33.68601)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  27.70349, 27.6816, 27.68039, 27.67415, 27.66138, 27.65363, 27.65028, 27.65789, 27.6629, 27.67066, 
  27.66944, 27.67583, 27.67248, 27.67522, 27.70775)
LONGITUDE_VALUEs <- c(
  33.72564, 33.72238, 33.69852, 33.69749, 33.70659, 33.70299, 33.70505, 33.71345, 33.71208, 33.71998, 
  33.7265, 33.72821, 33.73439, 33.73885, 33.73714)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
Geo_1 <- Geo_1 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### SUDAN #####
Geo_0 <- Geometric_Operations(Geo_2, Claimed_Area_1)
Geo_0 <- Geometric_Operations(Geo_0, Claimed_Area_2)
Geo_0 <- Geometric_Operations(Geo_0, Geo_1)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, Geo_0[12])
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  21.99969, 22, 21.99996, 22.04157, 22.08166, 22.1149, 22.14941, 22.18693, 22.20695, 22.22602,
  22.21474, 22.19885, 22.18518, 22.17787, 22.16642, 22.11888, 22.08055, 22.00001, 
  22, 21.725, 21.76668, 22.00002,
  22.00001, 22.00001, 22, 22, 21.99907, 22.00153, 22.00014, 22.00119, 22.00569, 21.99893, 
  22.00032, 21.99483, 22.00131, 22.0001, 22.00006, 21.99879, 21.9995, 21.99798, 21.99885, 21.99372, 
  22.00005,
  21.9951, 21.9873, 21.98444, 21.97696, 21.97664, 21.97298, 21.97345, 21.96518, 21.96613, 21.96072, 
  21.95037, 21.94512, 21.93906, 21.93094, 21.92824, 21.92489, 21.92537, 21.91486, 21.91183, 21.90801, 
  21.91056, 21.90626, 21.90292, 21.90403, 21.87377, 21.86931, 21.85656, 21.85194, 21.83585, 21.83234, 
  21.83202, 21.81625, 21.8129, 21.79186, 21.79122, 21.76699, 21.76651, 21.7241, 21.72012, 21.71836, 
  21.70688, 21.70161, 21.68694, 21.68487, 21.67418, 21.67019, 21.66317, 21.64865, 21.64419, 21.64626, 
  21.6461, 21.64195, 21.63637, 21.63653, 21.64275, 21.64131, 21.64498, 21.63381, 21.62344, 21.61594, 
  21.60605, 21.60589, 21.59424, 21.59344, 21.58945, 21.58945, 21.58226, 21.56454, 21.55816, 21.55497, 
  21.55193, 21.53485, 21.51489, 21.50642, 21.50371, 21.49939, 21.47352, 21.44348, 21.4323, 21.43038, 
  21.41823, 21.40289, 21.38627, 21.36997, 21.36197, 21.35782, 21.35542, 21.34119, 21.32424, 21.32152, 
  21.31848, 21.2721, 21.23242, 21.23098, 21.22538, 21.2201, 21.21514, 21.20538, 21.20618, 21.1993, 
  21.18713, 21.18697, 21.17865, 21.17577, 21.17369, 21.14167, 21.13158, 21.08706, 21.08626, 21.06608, 
  21.06047, 21.06015, 21.05374, 21.04862, 21.04702, 21.04141, 21.03099, 21.02891, 21.02619, 21.01785, 
  21.02058, 21.01769, 21.00183, 20.99686, 21.01593, 21.0209, 21.03099, 21.07729, 21.07809, 21.08274, 
  21.0973, 21.1005, 21.09585, 21.10114, 21.08432, 21.06862, 21.0651, 21.05485, 21.05261, 21.04251, 
  21.04427, 21.04892, 21.04956, 21.05693, 21.06302, 21.07007, 21.07135, 21.08064, 21.08448, 21.09105, 
  21.10082, 21.10787, 21.11795, 21.12084, 21.125, 21.13349, 21.13829, 21.13701, 21.13445, 21.14485, 
  21.14405, 21.14565, 21.14277, 21.13749, 21.13525, 21.1322, 21.13637, 21.13733, 21.14085, 21.14549, 
  21.14549, 21.14373, 21.14645, 21.14934, 21.1631, 21.1615, 21.1535, 21.14693, 21.14629, 21.14037, 
  21.14677, 21.14677, 21.16919, 21.19336, 21.2172, 21.22472, 21.22808, 21.22968, 21.22391, 21.20326, 
  21.20054, 21.2007, 21.18902, 21.18278, 21.17381, 21.16725, 21.1594, 21.15604, 21.15172, 21.15652, 
  21.15348, 21.145, 21.13427, 21.12866, 21.1221, 21.11923, 21.11107, 21.10274, 21.0992, 21.09023, 
  21.08735, 21.08366, 21.0763, 21.06925, 21.0795, 21.07309, 21.03416, 21.03432, 21.02791, 21.02006, 
  21.01029, 21.01045, 21.00179, 20.9957, 20.98817, 20.98529, 20.97984, 20.97695, 20.97311, 20.96717, 
  20.95114, 20.9388, 20.92998, 20.92934, 20.92421, 20.92613, 20.91908, 20.91475, 20.9101, 20.90529, 
  20.90256, 20.89711, 20.89198, 20.8769, 20.86519, 20.85894, 20.85364, 20.84145, 20.83551, 20.79397,
  20.78716, 20.77962, 20.77753, 20.78459, 20.78331, 20.77111, 20.76533, 20.7557, 20.75554, 20.74864, 
  20.7496, 20.72536, 20.70866, 20.69855, 20.68955, 20.68345, 20.66225, 20.65968, 20.6494, 20.62852, 
  20.62065, 20.61936, 20.61438, 20.61326, 20.59574, 20.5816, 20.56489, 20.52808, 20.48965, 20.48032, 
  20.47871, 20.4636, 20.46408, 20.46118, 20.46424, 20.46424, 20.4607, 20.46617, 20.45942, 20.43271, 
  20.42757, 20.42113, 20.39893, 20.37061, 20.35902, 20.33375, 20.33182, 20.33649, 20.33408, 20.32313, 
  20.31186, 20.30671, 20.28513, 20.22023, 20.21169, 20.20702, 20.19639, 20.19188, 20.17899, 20.17544, 
  20.17319, 20.0818, 20.06939, 20.06987, 20.066, 20.06245, 20.04423, 20.04842, 20.05262, 20.05439, 
  20.04278, 20.04262, 20.03907, 20.03552, 20.03343, 20.0302, 20.01891, 20.01923, 20.01633, 20.01117, 
  20.00391, 20.00181, 19.98213, 19.98116, 19.96906, 19.966, 19.94712, 19.94405, 19.93534, 19.94196, 
  19.93921, 19.93502, 19.91791, 19.91307, 19.91146, 19.90661, 19.90548, 19.90226, 19.90419, 19.9, 
  19.89515, 19.89112, 19.89241, 19.88773, 19.86109, 19.84947, 19.84704, 19.84204, 19.84252, 19.83913, 
  19.83316, 19.83316, 19.83865, 19.83897, 19.84591, 19.84446, 19.83816, 19.8359, 19.81765, 19.78713, 
  19.78341, 19.75304, 19.74997, 19.72751, 19.71216, 19.70845, 19.70505, 19.7002, 19.68129, 19.68275, 
  19.65931, 19.66606, 19.66509, 19.66121, 19.65669, 19.65588, 19.65313, 19.65216, 19.62726, 19.62128, 
  19.60495, 19.60495, 19.59638, 19.59153, 19.58296, 19.58166, 19.56969, 19.56872, 19.55789, 19.55044, 
  19.50644, 19.49725, 19.48884, 19.4911, 19.47848, 19.47215, 19.47215, 19.48056, 19.47943, 19.46632, 
  19.46551, 19.45354, 19.44496, 19.43379, 19.43006, 19.42067, 19.41792, 19.40886, 19.40481, 19.40076, 
  19.38117, 19.37566, 19.36999, 19.35347, 19.34521, 19.33485, 19.32788, 19.30844, 19.30909, 19.25789, 
  19.24606, 19.23958, 19.23212, 19.22661, 19.20521, 19.18868, 19.17587, 19.15982, 19.13971, 19.1405,
  19.13697, 19.1381, 19.13535, 19.12156, 19.12918, 19.1287, 19.12497, 19.11945, 19.11994, 19.11799, 
  19.12026, 19.12318, 19.12464, 19.11102, 19.10664, 19.09285, 19.07777, 19.07582, 19.06122, 19.057, 
  19.04613, 19.03964, 19.02406, 19.01757, 19.01156, 18.99874, 18.99371, 19.00685, 18.98819, 18.97683, 
  18.95832, 18.97845, 18.96286, 18.93737, 18.93478, 18.92503, 18.91058, 18.89272, 18.88947, 18.87258, 
  18.87241, 18.8781, 18.87859, 18.87258, 18.8703, 18.86413, 18.86754, 18.86705, 18.83749, 18.81019, 
  18.79085, 18.78614, 18.77558, 18.75835, 18.75656, 18.74924, 18.74811, 18.74469, 18.74095, 18.73185, 
  18.73039, 18.72746, 18.7325, 18.71706, 18.71917, 18.71673, 18.72112, 18.72063, 18.72242, 18.72128, 
  18.72405, 18.72112, 18.71819, 18.71494, 18.71006, 18.71673, 18.71364, 18.72518, 18.72892, 18.73364, 
  18.739, 18.73673, 18.72275, 18.70632, 18.70811, 18.7047, 18.71202, 18.70909, 18.70925, 18.69901, 
  18.6925, 18.69104, 18.67868, 18.67299, 18.66632, 18.65087, 18.63054, 18.62029, 18.58466, 18.56514, 
  18.536, 18.49075, 18.45477, 18.41764, 18.40803, 18.39223, 18.37284, 18.3546, 18.3401, 18.33309, 
  18.32608, 18.31647, 18.31044, 18.31076, 18.3018, 18.30131, 18.29756, 18.29985, 18.29593, 18.28045, 
  18.27768, 18.26904, 18.25176, 18.25241, 18.25779, 18.25665, 18.24475, 18.23578, 18.23839, 18.23741, 
  18.22991, 18.23252, 18.22712, 18.23136, 18.22549, 18.2281, 18.24, 18.25321, 18.26038, 18.27782, 
  18.28059, 18.27489, 18.27538, 18.27424, 18.27978, 18.28874, 18.28972, 18.28777, 18.28793, 18.29461, 
  18.29901, 18.29901, 18.29706, 18.29722, 18.29119, 18.28989, 18.29249, 18.292, 18.29314, 18.27831, 
  18.26788, 18.26495, 18.26185, 18.26397, 18.26935, 18.27163, 18.26772, 18.27212, 18.27163, 18.26054, 
  18.25924, 18.25468, 18.25207, 18.24522, 18.24245, 18.23348, 18.23136, 18.22663, 18.2237, 18.21, 
  18.20266, 18.20038, 18.18603, 18.17119, 18.17722, 18.18799, 18.18603, 18.19125, 18.19696, 18.19272, 
  18.1958, 18.20118, 18.20428, 18.20314, 18.19466, 18.17313, 18.16285, 18.16546, 18.15682, 18.15372, 
  18.14556, 18.13692, 18.12223, 18.11979, 18.11718, 18.10837, 18.11195, 18.10869, 18.09939, 18.10934, 
  18.11848, 18.12011, 18.12533, 18.11995, 18.11489, 18.10102, 18.09548, 18.10706, 18.10396, 18.09972, 
  18.08764, 18.08601, 18.08161, 18.07948, 18.08356, 18.08063, 18.07247, 18.0741, 18.071, 18.06104, 
  18.05174, 18.06806, 18.0648, 18.06969, 18.07475, 18.07785, 18.08405, 18.08911, 18.10233, 18.10233, 
  18.10771, 18.11571, 18.11525, 18.11281, 18.10987, 18.1034, 18.1016, 18.08197, 18.04933, 18.04508, 
  18.04688, 18.04394, 18.04345, 18.04117, 18.04035, 18.03578, 18.02876, 18.02827, 18.02321, 18.02354, 
  18.02599, 18.02876, 18.03088, 18.03219, 18.01929,
  17.89936, 17.75441, 17.74084, 17.70258, 17.69832, 17.65236, 17.64402, 17.62341, 17.6185, 17.60574, 
  17.5897, 17.57858, 17.55845, 17.54781, 17.53406, 17.52751, 17.52898, 17.54093, 17.56156, 17.56139, 
  17.55354, 17.5483, 17.55075, 17.54846, 17.54388, 17.51753, 17.49788, 17.48282, 17.48151, 17.4892, 
  17.50623, 17.54224, 17.54977, 17.5537, 17.54584, 17.49985, 17.4576, 17.44679, 17.44106, 17.44352, 
  17.45285, 17.47676, 17.4838, 17.48167, 17.46923, 17.45695, 17.43517, 17.42403, 17.39717, 17.38275, 
  17.37423, 17.35179, 17.34474, 17.32622, 17.32753, 17.31688, 17.31131, 17.30836, 17.29312, 17.28525, 
  17.27837, 17.2646, 17.25886, 17.25722, 17.24886, 17.2441, 17.24017, 17.22771, 17.22295, 17.21836, 
  17.2118, 17.20721, 17.19721, 17.19475, 17.1895, 17.16982, 17.16261, 17.14998, 17.13833, 17.12307, 
  17.10142, 17.10043, 17.09371, 17.09239, 17.08763, 17.08714, 17.07615, 17.07402, 17.05843, 17.05432, 
  17.05744, 17.05662, 17.06105, 17.06302, 17.05662, 17.06138, 17.06105, 17.05399, 17.03118, 17.02429, 
  17.02659, 17.03233, 17.03151, 17.01477, 17.0192, 17.05153, 17.05416, 17.05367, 17.06433, 17.07303, 
  17.07746, 17.07369, 17.06122, 17.04776, 17.02133, 17.00328, 16.97767, 16.95484, 16.94105, 16.91297, 
  16.89342, 16.86813, 16.85498, 16.84973, 16.82935, 16.81407, 16.78564, 16.70526, 16.69274, 16.68058, 
  16.66808, 16.65081, 16.63568, 16.62384, 16.6064, 16.59242, 16.56017, 16.52265, 16.49829, 16.47163, 
  16.43623, 16.41878, 16.37053, 16.34697, 16.3048, 16.28206)
LONGITUDE_VALUEs <- c(
  25.00153, 25.00386, 31.31496, 31.32766, 31.33848, 31.3541, 31.37745, 31.41555, 31.4389, 31.46962, 
  31.48456, 31.48971, 31.50636, 31.49949, 31.4964, 31.4559, 31.4298, 31.39888, 
  33.16667, 33.55292, 34, 34.07986,
  34.60927, 35.00058, 35.55804, 36.35975, 36.36778, 36.37072, 36.47465, 36.60471, 36.61968, 36.65875, 
  36.67527, 36.70407, 36.73199, 36.73334, 36.73414, 36.73693, 36.80982, 36.84415, 36.85865, 36.87397, 
  36.88045,
  36.8766, 36.87489, 36.87111, 36.86751, 36.86253, 36.86236, 36.86665, 36.86545, 36.86905, 36.87524, 
  36.87695, 36.88433, 36.8833, 36.88536, 36.88158, 36.88038, 36.87695, 36.873, 36.87626, 36.87489, 
  36.87043, 36.86785, 36.87232, 36.87643, 36.87953, 36.87455, 36.87489, 36.88158, 36.88278, 36.87953, 
  36.88639, 36.88691, 36.88415, 36.87575, 36.87969, 36.88638, 36.88192, 36.90029, 36.8972, 36.90063, 
  36.9008, 36.89892, 36.90029, 36.89806, 36.90115, 36.90578, 36.9039, 36.90527, 36.89978, 36.89755, 
  36.89206, 36.89195, 36.89796, 36.90174, 36.90294, 36.90586, 36.90758, 36.91599, 36.91668, 36.91101, 
  36.91359, 36.91771, 36.91754, 36.92474, 36.92869, 36.93401, 36.92937, 36.94019, 36.93899, 36.9462, 
  36.94569, 36.95977, 36.96509, 36.97058, 36.96491, 36.97402, 36.98963, 37.00079, 37.0104, 37.01607, 
  37.01572, 37.02568, 37.04457, 37.05143, 37.05864, 37.05606, 37.06156, 37.07288, 37.09246, 37.09091, 
  37.0952, 37.1285, 37.17125, 37.17827, 37.18308, 37.19682, 37.19544, 37.20077, 37.20489, 37.2145, 
  37.22034, 37.22274, 37.22893, 37.23734, 37.23683, 37.25982, 37.27562, 37.28917, 37.29347, 37.31974, 
  37.31802, 37.31493, 37.30823, 37.30789, 37.31201, 37.30652, 37.30291, 37.29948, 37.29948, 37.29261, 
  37.26599, 37.25432, 37.2581, 37.25363, 37.24576, 37.24576, 37.23683, 37.21537, 37.20918, 37.21331, 
  37.20575, 37.20644, 37.21194, 37.21812, 37.23082, 37.2358, 37.24455, 37.25417, 37.26188, 37.27665, 
  37.28008, 37.27355, 37.28248, 37.28094, 37.27099, 37.26549, 37.25828, 37.24799, 37.24816, 37.24163, 
  37.24129, 37.23339, 37.23356, 37.24249, 37.23785, 37.23854, 37.23579, 37.22635, 37.22017, 37.2157, 
  37.20935, 37.20677, 37.20196, 37.2042, 37.20918, 37.20059, 37.20042, 37.19407, 37.1975, 37.19322, 
  37.19683, 37.1982, 37.20335, 37.20095, 37.20009, 37.18257, 37.17862, 37.18017, 37.1836, 37.18051, 
  37.17399, 37.16506, 37.16162, 37.17519, 37.16301, 37.14326, 37.14497, 37.1321, 37.12009, 37.10223, 
  37.10309, 37.10773, 37.0952, 37.10069, 37.09502, 37.10395, 37.09846, 37.11598, 37.12302, 37.13384, 
  37.13452, 37.12061, 37.11924, 37.12851, 37.1225, 37.12421, 37.11666, 37.12559, 37.1237, 37.12542, 
  37.13023, 37.12525, 37.12662, 37.11185, 37.10309, 37.09124, 37.09469, 37.10429, 37.1115, 37.10704, 
  37.11081, 37.11665, 37.12214, 37.13038, 37.12936, 37.13399, 37.13159, 37.1364, 37.1364, 37.14275, 
  37.14292, 37.15443, 37.157, 37.1546, 37.15511, 37.15838, 37.15906, 37.16216, 37.16095, 37.16113, 
  37.15838, 37.15838, 37.16662, 37.17022, 37.16884, 37.17108, 37.16884, 37.17194, 37.16833, 37.1678,
  37.17188, 37.16828, 37.17051, 37.17445, 37.17703, 37.17652, 37.17995, 37.17909, 37.17343, 37.1712, 
  37.17669, 37.18391, 37.17807, 37.18185, 37.17841, 37.18768, 37.19403, 37.20073, 37.20777, 37.20725, 
  37.21206, 37.20742, 37.20828, 37.2124, 37.22356, 37.22631, 37.23694, 37.24055, 37.22957, 37.23008, 
  37.23403, 37.23763, 37.23041, 37.21565, 37.21394, 37.2081, 37.20501, 37.19986, 37.18716, 37.19128, 
  37.19934, 37.19849, 37.20759, 37.18803, 37.19265, 37.18561, 37.19042, 37.19145, 37.19419, 37.19282, 
  37.19609, 37.19238, 37.20509, 37.20336, 37.20629, 37.20526, 37.20818, 37.20629, 37.21419, 37.20715, 
  37.2111, 37.21728, 37.21453, 37.21299, 37.21127, 37.21333, 37.20114, 37.19959, 37.202, 37.19908, 
  37.18963, 37.18517, 37.18517, 37.18105, 37.18311, 37.18156, 37.18465, 37.18826, 37.18861, 37.19324, 
  37.19049, 37.19565, 37.1941, 37.19718, 37.20045, 37.20766, 37.21127, 37.20354, 37.21212, 37.21367, 
  37.21831, 37.21642, 37.22345, 37.22259, 37.22774, 37.22808, 37.23083, 37.2286, 37.22602, 37.22654, 
  37.23478, 37.23444, 37.23907, 37.24061, 37.25727, 37.25178, 37.25932, 37.25863, 37.25605, 37.25296, 
  37.25537, 37.25932, 37.25983, 37.26412, 37.26498, 37.26876, 37.26807, 37.26378, 37.26653, 37.26293, 
  37.26567, 37.26688, 37.26327, 37.26035, 37.26293, 37.26104, 37.26173, 37.2564, 37.25537, 37.2607, 
  37.24645, 37.24389, 37.23547, 37.2377, 37.23221, 37.23667, 37.23719, 37.24131, 37.23822, 37.24217, 
  37.23942, 37.23307, 37.24011, 37.24011, 37.24577, 37.24148, 37.24663, 37.24217, 37.24714, 37.24714, 
  37.27907, 37.28113, 37.28886, 37.28954, 37.29487, 37.29195, 37.288, 37.28645, 37.28061, 37.28422, 
  37.28834, 37.29074, 37.29486, 37.29366, 37.30207, 37.30155, 37.30361, 37.30464, 37.30069, 37.30722, 
  37.31031, 37.31425, 37.31408, 37.32026, 37.31906, 37.32112, 37.30945, 37.317, 37.32748, 37.32438, 
  37.33143, 37.3292, 37.33194, 37.33039, 37.33555, 37.33091, 37.33331, 37.34035, 37.34001, 37.35271,
  37.35651, 37.3584, 37.36063, 37.34741, 37.36166, 37.36716, 37.37059, 37.36733, 37.36458, 37.362, 
  37.35926, 37.36132, 37.35754, 37.35445, 37.36097, 37.3668, 37.36628, 37.37367, 37.36646, 37.37882, 
  37.38275, 37.38, 37.39357, 37.39185, 37.39511, 37.39426, 37.40267, 37.40044, 37.40903, 37.40422, 
  37.40095, 37.39941, 37.39322, 37.40181, 37.41057, 37.40834, 37.41743, 37.4097, 37.4128, 37.4128, 
  37.41778, 37.41812, 37.42653, 37.42653, 37.4317, 37.43015, 37.42483, 37.42036, 37.4334, 37.46551, 
  37.47339, 37.48349, 37.48384, 37.4931, 37.49963, 37.50186, 37.50976, 37.51199, 37.51886, 37.51182, 
  37.51457, 37.51354, 37.52504, 37.54358, 37.54649, 37.54958, 37.55525, 37.55954, 37.56297, 37.56572, 
  37.57259, 37.5731, 37.5695, 37.57293, 37.57053, 37.58306, 37.5925, 37.66632, 37.66495, 37.67095, 
  37.67284, 37.67747, 37.67781, 37.70219, 37.70872, 37.71902, 37.72674, 37.73137, 37.74064, 37.74527, 
  37.75128, 37.74459, 37.74407, 37.76399, 37.76982, 37.76588, 37.79334, 37.7954, 37.90767, 37.94097, 
  37.96981, 37.99779, 38.04088, 38.11212, 38.11967, 38.08654, 38.07985, 38.0783, 38.08122, 38.08723, 
  38.08431, 38.08706, 38.09307, 38.0989, 38.0965, 38.08723, 38.08637, 38.09272, 38.0989, 38.10251, 
  38.10714, 38.10989, 38.148, 38.15641, 38.15761, 38.16328, 38.15469, 38.16379, 38.1674, 38.17804, 
  38.18645, 38.19211, 38.19795, 38.20499, 38.2122, 38.23744, 38.25632, 38.25821, 38.24688, 38.25185, 
  38.26095, 38.27056, 38.2764, 38.28447, 38.28807, 38.28618, 38.28327, 38.28189, 38.27794, 38.27142, 
  38.27228, 38.27812, 38.27794, 38.28, 38.27812, 38.28121, 38.28086, 38.28344, 38.2867, 38.29236, 
  38.3049, 38.3164, 38.3073, 38.29855, 38.29872, 38.29443, 38.29168, 38.28464, 38.26507, 38.26009, 
  38.26524, 38.26644, 38.27537, 38.27589, 38.27228, 38.27074, 38.26507, 38.26541, 38.26215, 38.26061, 
  38.27348, 38.29665, 38.30713, 38.34232, 38.37133, 38.37116, 38.36498, 38.36481, 38.35742, 38.35399, 
  38.35296, 38.35656, 38.36429, 38.37425, 38.38918, 38.40703, 38.40411, 38.39742, 38.39244, 38.39708, 
  38.39467, 38.40412, 38.40257, 38.4072, 38.40652, 38.41853, 38.42266, 38.43244, 38.44068, 38.45355, 
  38.45287, 38.45905, 38.46111, 38.46454, 38.46351, 38.48119, 38.47621, 38.4551, 38.45355, 38.45887, 
  38.45767, 38.46111, 38.46196, 38.47038, 38.47381, 38.47896, 38.47913, 38.48669, 38.4896, 38.48291, 
  38.49904, 38.51862, 38.52548, 38.52857, 38.5169, 38.51827, 38.51724, 38.52102, 38.5114, 38.50591, 
  38.50299, 38.50454, 38.50814, 38.50763, 38.51072, 38.51055, 38.51964, 38.54522, 38.56187, 38.56135, 
  38.55758, 38.55844, 38.55432, 38.55449, 38.56376, 38.55226, 38.55655, 38.56135, 38.56427, 38.57148, 
  38.56908, 38.57372, 38.56994, 38.57526, 38.58144,
  38.45202, 38.38816, 38.3904, 38.3686, 38.3686, 38.34526, 38.3444, 38.30953, 38.29425, 38.27398, 
  38.27246, 38.27486, 38.27436, 38.2711, 38.26062, 38.24516, 38.22112, 38.19982, 38.18905, 38.17222, 
  38.16655, 38.15608, 38.14234, 38.13306, 38.131, 38.13857, 38.13583, 38.12209, 38.10508, 38.09461, 
  38.08963, 38.09788, 38.08706, 38.06113, 38.04107, 37.96534, 37.93325, 37.9159, 37.89169, 37.87335, 
  37.85549, 37.8433, 37.83282, 37.81857, 37.79061, 37.78151, 37.77704, 37.75901, 37.75696, 37.7465, 
  37.73001, 37.59419, 37.57257, 37.53772, 37.52004, 37.50218, 37.5015, 37.49841, 37.50115, 37.50682, 
  37.52073, 37.52107, 37.50785, 37.49772, 37.49772, 37.50098, 37.49618, 37.49618, 37.49274, 37.49652, 
  37.49806, 37.50682, 37.50442, 37.49051, 37.48519, 37.47781, 37.4694, 37.4718, 37.45755, 37.46253, 
  37.44313, 37.42528, 37.42288, 37.41808, 37.41516, 37.41087, 37.41344, 37.40486, 37.40434, 37.39439, 
  37.39078, 37.37962, 37.37447, 37.36177, 37.34443, 37.32142, 37.30528, 37.29121, 37.26632, 37.24864, 
  37.22254, 37.20967, 37.1901, 37.15628, 37.13758, 37.1053, 37.08574, 37.05552, 37.04196, 37.03595, 
  37.02548, 36.99543, 36.99029, 36.99304, 37.01519, 37.01862, 37.00918, 36.99012, 36.98669, 37.01398, 
  37.01312, 37.0078, 37.02256, 37.02256, 37.00763, 37.00574, 37.01106, 36.98034, 36.96403, 36.94119, 
  36.92884, 36.91648, 36.91013, 36.9103, 36.92043, 36.91974, 36.90446, 36.89605, 36.89914, 36.91631, 
  36.95253, 36.95836, 36.94738, 36.94944, 36.97055, 36.9745)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_2, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, Geo_0[7])
Geo_2 <- st_union(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  20.82207, 20.75627, 20.75451, 20.76013, 20.7582, 20.77425, 20.80779, 20.81854, 20.82817, 20.84566, 
  20.84566, 20.85223, 20.85191, 20.83828, 20.83138)
LONGITUDE_VALUEs <- c(
  37.25169, 37.24911, 37.25461, 37.2613, 37.26782, 37.27726, 37.27882, 37.28242, 37.28208, 37.29049, 
  37.2807, 37.27161, 37.26663, 37.25514, 37.25737)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(18.79, 18.77521, 18.76871, 18.7679, 18.76563, 18.77391, 18.78919)
LONGITUDE_VALUEs <- c(37.99511, 37.99493, 38.00094, 38.01228, 38.02859, 38.03066, 38.01623)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(18.81974, 18.83371, 18.84086, 18.82819, 18.81308, 18.80333, 18.80414)
LONGITUDE_VALUEs <- c(38.17449, 38.17827, 38.16213, 38.14032, 38.16144, 38.16573, 38.17862)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(18.2271, 18.22107, 18.21634, 18.21194, 18.21096, 18.21797, 18.2227, 18.22874)
LONGITUDE_VALUEs <- c(38.3023, 38.30522, 38.31982, 38.32549, 38.33957, 38.34696, 38.34095, 38.31347)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  18.24413, 18.2368, 18.23533, 18.22816, 18.22473, 18.2275, 18.22783, 18.2425, 18.24919, 18.25114, 
  18.24902, 18.24511)
LONGITUDE_VALUEs <- c(
  38.34476, 38.34716, 38.35661, 38.36262, 38.37189, 38.37241, 38.37619, 38.36279, 38.35026, 38.34167, 
  38.33789, 38.33978)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  18.18168, 18.17532, 18.18315, 18.18657, 18.19832, 18.19864, 18.1944, 18.18511, 18.18315, 18.18951, 
  18.18331, 18.18266, 18.18576, 18.1825, 18.17548, 18.17369, 18.1688, 18.16651, 18.15542, 18.15232, 
  18.15151, 18.16178, 18.17157, 18.16358, 18.15314, 18.14384, 18.14433, 18.13683, 18.13307, 18.1303, 
  18.13258, 18.13764, 18.14074, 18.16782, 18.17467)
LONGITUDE_VALUEs <- c(
  38.4512, 38.4615, 38.46236, 38.46768, 38.46013, 38.45171, 38.45326, 38.44553, 38.4354, 38.42561, 
  38.42166, 38.4244, 38.42818, 38.43265, 38.43145, 38.43351, 38.43351, 38.43608, 38.4323, 38.42526, 
  38.43797, 38.43849, 38.44656, 38.46355, 38.47042, 38.47334, 38.4766, 38.47712, 38.47403, 38.47866, 
  38.4809, 38.48004, 38.48158, 38.46183, 38.44672)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

##### ERITREA #####
Geo_0 <- Geometric_Operations(Geo_3, Geo_2)
Geo_3 <- st_set_geometry(Geo_3, Geo_0)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(
  16.28206, 16.3048, 16.34697, 16.37053, 16.41878, 16.43623, 16.47163, 16.49829, 16.52265, 16.56017, 
  16.59242, 16.6064, 16.62384, 16.63568, 16.65081, 16.66808, 16.68058, 16.69274, 16.70526, 16.78564, 
  16.81407, 16.82935, 16.84973, 16.85498, 16.86813, 16.89342, 16.91297, 16.94105, 16.95484, 16.97767, 
  17.00328, 17.02133, 17.04776, 17.06122, 17.07369, 17.07746, 17.07303, 17.06433, 17.05367, 17.05416, 
  17.05153, 17.0192, 17.01477, 17.03151, 17.03233, 17.02659, 17.02429, 17.03118, 17.05399, 17.06105, 
  17.06138, 17.05662, 17.06302, 17.06105, 17.05662, 17.05744, 17.05432, 17.05843, 17.07402, 17.07615, 
  17.08714, 17.08763, 17.09239, 17.09371, 17.10043, 17.10142, 17.12307, 17.13833, 17.14998, 17.16261, 
  17.16982, 17.1895, 17.19475, 17.19721, 17.20721, 17.2118, 17.21836, 17.22295, 17.22771, 17.24017, 
  17.2441, 17.24886, 17.25722, 17.25886, 17.2646, 17.27837, 17.28525, 17.29312, 17.30836, 17.31131, 
  17.31688, 17.32753, 17.32622, 17.34474, 17.35179, 17.37423, 17.38275, 17.39717, 17.42403, 17.43517, 
  17.45695, 17.46923, 17.48167, 17.4838, 17.47676, 17.45285, 17.44352, 17.44106, 17.44679, 17.4576, 
  17.49985, 17.54584, 17.5537, 17.54977, 17.54224, 17.50623, 17.4892, 17.48151, 17.48282, 17.49788, 
  17.51753, 17.54388, 17.54846, 17.55075, 17.5483, 17.55354, 17.56139, 17.56156, 17.54093, 17.52898, 
  17.52751, 17.53406, 17.54781, 17.55845, 17.57858, 17.5897, 17.60574, 17.6185, 17.62341, 17.64402, 
  17.65236, 17.69832, 17.70258, 17.74084, 17.75441, 17.89936, 18.01929,
  18.01884, 18.01656, 18.01329, 18.01296, 18.00741, 17.99958, 17.99207, 17.98652, 17.98701, 17.98096, 
  17.96758, 17.96758, 17.96235, 17.96251, 17.95582, 17.95353, 17.92446, 17.92593, 17.91776, 17.91989, 
  17.91711, 17.89228, 17.86614, 17.77833, 17.76198, 17.75577, 17.75087, 17.74138, 17.73811, 17.64228, 
  17.63573, 17.63312, 17.62723, 17.62624, 17.63148, 17.62886, 17.61119, 17.59974, 17.5873, 17.5621, 
  17.55588, 17.51332, 17.48124, 17.36418, 17.31961, 17.29011, 17.21601, 17.19109, 17.13598, 16.88844, 
  16.83127, 16.80301, 16.76291, 16.73595, 16.69583, 16.59715, 16.55503, 16.53265, 16.51356, 16.49513, 
  16.42533, 16.4003, 16.3807, 16.36324, 16.34397, 16.29043, 16.26423, 16.24709, 16.20407, 16.18989, 
  16.07316, 16.00618, 15.97813, 15.9537, 15.89758, 15.89361, 15.83549, 15.80543, 15.78065, 15.76876, 
  15.74185, 15.71987, 15.69178, 15.66963, 15.65062, 15.64186, 15.63922, 15.64467, 15.64484, 15.63476, 
  15.62599, 15.62533, 15.62914, 15.62947, 15.61855, 15.61326, 15.61607, 15.60235, 15.60004, 15.58879, 
  15.58135, 15.56564, 15.5544, 15.52546, 15.51371, 15.51619, 15.52231, 15.52761, 15.53654, 15.53737, 
  15.52761, 15.52628, 15.52016, 15.51917, 15.51156, 15.49453, 15.4884, 15.48146, 15.39492, 15.33102, 
  15.32837, 15.31993, 15.31049, 15.28665, 15.27754, 15.26777, 15.26115, 15.25353, 15.24293, 15.23846, 
  15.23382, 15.2262, 15.2166, 15.17684, 15.15994, 15.12613, 15.11238, 15.08918, 15.0852, 15.08702, 
  15.07459, 15.06199, 15.06166, 15.06945, 15.06398, 15.07094, 15.06829, 15.07111, 15.07061, 15.10094, 
  15.12464, 15.13906, 15.14782, 15.16738, 15.20631, 15.21277, 15.22039, 15.23347, 15.24788, 15.25981, 
  15.27786, 15.27289, 15.25947, 15.25302, 15.25285, 15.25848, 15.26063, 15.31379, 15.331, 15.34243, 
  15.34971, 15.36577, 15.39988, 15.41246, 15.42768, 15.43594, 15.44587, 15.45315, 15.43792, 15.44372, 
  15.43246, 15.43428, 15.44554, 15.45364, 15.47829, 15.47499, 15.4596, 15.45298, 15.46208, 15.48342, 
  15.48508, 15.49318, 15.50327, 15.50691, 15.50526, 15.48987, 15.48293, 15.47449, 15.46456, 15.46506, 
  15.42982, 15.42022, 15.42336, 15.39655, 15.37967, 15.3661, 15.36825, 15.35882, 15.33216, 15.33299, 
  15.32206, 15.31528, 15.30118, 15.28777, 15.27088, 15.24853, 15.25018, 15.24472, 15.23544, 15.23693, 
  15.22948, 15.23329, 15.23014, 15.22103, 15.21623, 15.21639, 15.20281, 15.20032, 15.19685, 15.19436, 
  15.18674, 15.1879, 15.17962, 15.14598, 15.12974, 15.12908, 15.12428, 15.11731, 15.11947, 15.11218, 
  15.10986, 15.10803, 15.10489, 15.10323, 15.09564, 15.09233, 15.09183, 15.0842, 15.08238, 15.07936, 
  15.07936, 15.09511, 15.0956, 15.09212, 15.0908, 15.08467, 15.084, 15.07605, 15.07356, 15.06743, 
  15.06245, 15.0724, 15.06792, 15.06809, 15.05798, 15.05466, 15.04256, 15.04256, 15.03726, 15.04206, 
  15.03643, 15.03479, 15.01837, 15.00478, 14.99829, 14.99033, 14.96351, 14.96152, 14.94642, 14.94626, 
  14.93699, 14.92953, 14.90249, 14.90348, 14.91742, 14.9219, 14.93185, 14.93467, 14.92737, 14.9282, 
  14.93749, 14.935, 14.95125, 14.95192, 14.97215, 14.97314, 14.9816, 14.98558, 14.99139, 14.98226, 
  14.98392, 14.98193, 14.97115, 14.96037, 14.9554, 14.94926, 14.95092, 14.94711, 14.96353, 14.96535, 
  14.96933, 14.97165, 14.98044, 14.99487, 14.99785, 15.00216, 15.00548, 15.00548, 15.00084, 15.0015, 
  15.00531, 14.99885, 14.97911, 14.98525, 14.97779, 14.97182, 14.97298, 14.96684, 14.96883, 14.97563, 
  14.97397, 14.95855, 14.95275, 14.95822, 14.94595, 14.94628, 14.95258, 14.95921, 14.97397, 14.9826, 
  14.99105, 14.9952, 15.00067, 15.002, 15.00896, 15.01277, 15.02272, 15.02057, 15.01195, 15.002, 
  15.00332, 14.99769, 14.99852, 14.99238, 14.99039, 14.96651, 14.94014, 14.95208, 14.95076, 14.94445, 
  14.96004, 14.95905, 14.94213, 14.93052, 14.92339, 14.89983, 14.89983, 14.89303, 14.88789, 14.88888, 
  14.88042, 14.88474, 14.87793, 14.88772, 14.89187, 14.87959, 14.86383, 14.83247, 14.83347, 14.84558, 
  14.84558, 14.83629, 14.83413, 14.78717, 14.78202, 14.76741, 14.73936, 14.73272, 14.73637, 14.71545, 
  14.7123, 14.70483, 14.70665, 14.71678, 14.71645, 14.70682, 14.71578, 14.72093, 14.72674, 14.71861, 
  14.72093, 14.71811, 14.72591, 14.72043, 14.72774, 14.70466, 14.70283, 14.68855, 14.69204, 14.67311, 
  14.66263, 14.67126, 14.66877, 14.65632, 14.65499, 14.63655, 14.62327, 14.59802, 14.59004, 14.56429, 
  14.53239, 14.52591, 14.52342, 14.51744, 14.51727, 14.51145, 14.50962, 14.49483, 14.49417, 14.48819, 
  14.47755, 14.46741, 14.41022, 14.39044, 14.35949, 14.29895, 14.29096, 14.23639, 14.12888, 14.12722, 
  14.06628, 14.04463, 14.03098, 14.01032, 13.9327, 13.93936, 13.91604, 13.91304, 13.9187, 13.91404, 
  13.92337, 13.92337, 13.90504, 13.90137, 13.89104, 13.88771, 13.86138, 13.86506, 13.86423, 13.86823, 
  13.86406, 13.86723, 13.8624, 13.8644, 13.87506, 13.86856, 13.86006, 13.85656, 13.8454, 13.85273, 
  13.85123, 13.83521, 13.83288, 13.82571, 13.82571, 13.82121, 13.82371, 13.80921, 13.80804, 13.7957, 
  13.7867, 13.77253, 13.77236, 13.76736, 13.77253, 13.76686, 13.76569, 13.75169, 13.74752, 13.73951, 
  13.73801, 13.72801, 13.72901, 13.721, 13.71734, 13.70716, 13.67885, 13.67014, 13.66334, 13.64449, 
  13.63342, 13.63931, 13.64395, 13.64512, 13.64945, 13.64095, 13.61909, 13.61242, 13.61175, 13.60641, 
  13.59006, 13.58389, 13.56353, 13.56186, 13.5435, 13.54033, 13.54584, 13.55303, 13.56303, 13.59757, 
  13.60925, 13.59723, 13.60341, 13.62558, 13.6159, 13.60556, 13.5972, 13.57851, 13.56216, 13.51977, 
  13.51643, 13.50558, 13.4767, 13.45533, 13.455, 13.44498, 13.44131, 13.42461, 13.41426, 13.40407, 
  13.39539, 13.37017, 13.23844, 13.2224, 13.21789, 13.20953, 13.20736, 13.20118, 13.20385, 13.20017, 
  13.20268, 13.19928, 13.20028, 13.18775, 13.18959, 13.18474, 13.18708, 13.18324, 13.18992, 13.19494, 
  13.2048, 13.20747, 13.21666, 13.21917, 13.22602, 13.22719, 13.21934, 13.217, 13.20714, 13.20079, 
  13.19377, 13.19343, 13.19828, 13.18457, 13.15566, 13.15165, 13.14646, 13.14446, 13.10801, 13.08544, 
  13.0826, 13.07173, 13.07106, 13.05401, 13.04815, 13.05217, 13.03895, 13.03996, 13.02691, 13.02257, 
  13.00651, 13.003, 12.98627, 12.98008, 12.97105, 12.96569, 12.96034, 12.95616, 12.95817, 12.95382, 
  12.91835, 12.88723, 12.88405, 12.87401, 12.85995, 12.85074, 12.84037, 12.84305, 12.84171, 12.84706, 
  12.85275, 12.85459, 12.85392, 12.86145, 12.85995, 12.8653, 12.86597, 12.86346, 12.84807, 12.84556, 
  12.8402, 12.8402, 12.82882, 12.82078, 12.80622, 12.80354, 12.80338, 12.80522, 12.80957, 12.81258, 
  12.81175, 12.81392, 12.81476, 12.81158, 12.81325, 12.80957, 12.79869, 12.8017, 12.79685, 12.78864, 
  12.78396, 12.78898, 12.7945, 12.79986, 12.8089, 12.80421, 12.81158, 12.81677, 12.81459, 12.83016, 
  12.84673, 12.86062, 12.86781, 12.87668, 12.87903, 12.88421, 12.88656, 12.89191, 12.88338, 12.87852, 
  12.87484, 12.86965, 12.86865, 12.86196, 12.8479, 12.83217, 12.82698, 12.82363, 12.8243, 12.82681, 
  12.82681, 12.82949, 12.8248, 12.82614, 12.80153, 12.76839, 12.7488, 12.73741, 12.73725, 12.73072, 
  12.73423, 12.73172, 12.71665, 12.71514, 12.71563, 12.71127, 12.7096, 12.70876, 12.65566, 14.39483)
LONGITUDE_VALUEs <- c(
  36.9745, 36.97055, 36.94944, 36.94738, 36.95836, 36.95253, 36.91631, 36.89914, 36.89605, 36.90446, 
  36.91974, 36.92043, 36.9103, 36.91013, 36.91648, 36.92884, 36.94119, 36.96403, 36.98034, 37.01106, 
  37.00574, 37.00763, 37.02256, 37.02256, 37.0078, 37.01312, 37.01398, 36.98669, 36.99012, 37.00918, 
  37.01862, 37.01519, 36.99304, 36.99029, 36.99543, 37.02548, 37.03595, 37.04196, 37.05552, 37.08574, 
  37.1053, 37.13758, 37.15628, 37.1901, 37.20967, 37.22254, 37.24864, 37.26632, 37.29121, 37.30528, 
  37.32142, 37.34443, 37.36177, 37.37447, 37.37962, 37.39078, 37.39439, 37.40434, 37.40486, 37.41344, 
  37.41087, 37.41516, 37.41808, 37.42288, 37.42528, 37.44313, 37.46253, 37.45755, 37.4718, 37.4694, 
  37.47781, 37.48519, 37.49051, 37.50442, 37.50682, 37.49806, 37.49652, 37.49274, 37.49618, 37.49618, 
  37.50098, 37.49772, 37.49772, 37.50785, 37.52107, 37.52073, 37.50682, 37.50115, 37.49841, 37.5015, 
  37.50218, 37.52004, 37.53772, 37.57257, 37.59419, 37.73001, 37.7465, 37.75696, 37.75901, 37.77704, 
  37.78151, 37.79061, 37.81857, 37.83282, 37.8433, 37.85549, 37.87335, 37.89169, 37.9159, 37.93325, 
  37.96534, 38.04107, 38.06113, 38.08706, 38.09788, 38.08963, 38.09461, 38.10508, 38.12209, 38.13583, 
  38.13857, 38.131, 38.13306, 38.14234, 38.15608, 38.16655, 38.17222, 38.18905, 38.19982, 38.22112, 
  38.24516, 38.26062, 38.2711, 38.27436, 38.27486, 38.27246, 38.27398, 38.29425, 38.30953, 38.3444, 
  38.34526, 38.3686, 38.3686, 38.3904, 38.38816, 38.45202, 38.58144,
  38.58202, 38.58202, 38.57859, 38.5755, 38.56984, 38.56692, 38.5664, 38.56846, 38.57498, 38.57241, 
  38.58168, 38.58701, 38.5889, 38.59473, 38.59336, 38.59919, 38.60485, 38.61275, 38.61498, 38.61996, 
  38.63335, 38.64554, 38.64709, 38.69955, 38.7222, 38.72186, 38.72735, 38.72392, 38.73524, 38.80183, 
  38.79738, 38.80116, 38.80185, 38.80631, 38.80631, 38.81214, 38.82281, 38.82349, 38.83688, 38.84649, 
  38.8537, 38.86262, 38.89112, 38.94006, 38.93937, 38.9634, 38.96889, 39.0005, 38.99706, 39.0664, 
  39.09661, 39.0969, 39.12369, 39.123, 39.14702, 39.13878, 39.169, 39.14428, 39.17793, 39.16763, 
  39.19508, 39.18753, 39.1951, 39.19252, 39.20333, 39.19664, 39.21106, 39.20333, 39.21844, 39.21655, 
  39.2411, 39.27338, 39.27268, 39.29397, 39.30531, 39.32898, 39.37741, 39.43851, 39.44366, 39.42477, 
  39.42667, 39.44848, 39.44795, 39.45345, 39.47835, 39.47955, 39.47268, 39.46993, 39.46547, 39.461, 
  39.46186, 39.47113, 39.47165, 39.47886, 39.48057, 39.46958, 39.46271, 39.45103, 39.44245, 39.44262, 
  39.44966, 39.45018, 39.45928, 39.46219, 39.48726, 39.50238, 39.50684, 39.52522, 39.53672, 39.56794, 
  39.57995, 39.5906, 39.59129, 39.60073, 39.59678, 39.61447, 39.61327, 39.62064, 39.64674, 39.6579, 
  39.66665, 39.66836, 39.68535, 39.69325, 39.70458, 39.70544, 39.71283, 39.71214, 39.71677, 39.71437, 
  39.71574, 39.70733, 39.70956, 39.69926, 39.70029, 39.69342, 39.70717, 39.71455, 39.73497, 39.75334, 
  39.76261, 39.76416, 39.78285, 39.78337, 39.79058, 39.79229, 39.79762, 39.80775, 39.81359, 39.82423, 
  39.82252, 39.84055, 39.84071, 39.8529, 39.84965, 39.84227, 39.84312, 39.83265, 39.82665, 39.82699, 
  39.81703, 39.80072, 39.79849, 39.80089, 39.79316, 39.79282, 39.78647, 39.7772, 39.7839, 39.77909, 
  39.79351, 39.78235, 39.77634, 39.80468, 39.80227, 39.80518, 39.80569, 39.81394, 39.81461, 39.81873, 
  39.82526, 39.83109, 39.83315, 39.82903, 39.83419, 39.8414, 39.83865, 39.84363, 39.85565, 39.85634, 
  39.87111, 39.87489, 39.86647, 39.87076, 39.87952, 39.88467, 39.88158, 39.89256, 39.89942, 39.90268, 
  39.953, 39.95676, 39.97067, 39.98439, 40.02044, 40.03108, 40.04534, 40.06009, 40.08173, 40.08568, 
  40.08877, 40.08465, 40.08156, 40.05563, 40.05186, 40.02936, 40.01717, 40.01083, 40.01186, 40.02577, 
  40.03556, 40.03968, 40.05514, 40.05805, 40.05238, 40.03676, 40.03195, 40.03727, 40.03315, 40.04156, 
  40.04636, 40.04825, 40.05873, 40.08464, 40.08413, 40.09151, 40.09443, 40.09477, 40.10009, 40.10147, 
  40.09838, 40.10301, 40.10043, 40.10267, 40.0982, 40.09958, 40.10232, 40.10301, 40.11074, 40.10919, 
  40.10456, 40.09546, 40.08739, 40.08824, 40.09202, 40.09151, 40.097, 40.09133, 40.09631, 40.09614, 
  40.11211, 40.11469, 40.12036, 40.12705, 40.12087, 40.1461, 40.14112, 40.1437, 40.14438, 40.14988, 
  40.15262, 40.15811, 40.16515, 40.15451, 40.15674, 40.15485, 40.19055, 40.19897, 40.2115, 40.2316, 
  40.24134, 40.27463, 40.29285, 40.31636, 40.3179, 40.33146, 40.32908, 40.33645, 40.33714, 40.34812, 
  40.34932, 40.35396, 40.3682, 40.35911, 40.36735, 40.37284, 40.37147, 40.37697, 40.3768, 40.38572, 
  40.39138, 40.3931, 40.37663, 40.38795, 40.38504, 40.38709, 40.39464, 40.40786, 40.41644, 40.42588, 
  40.42879, 40.43617, 40.41386, 40.42073, 40.44494, 40.44735, 40.44494, 40.45232, 40.45404, 40.45987, 
  40.46005, 40.46519, 40.4561, 40.4446, 40.43962, 40.45061, 40.4549, 40.4597, 40.46657, 40.46777, 
  40.48167, 40.48327, 40.49838, 40.50594, 40.51041, 40.51865, 40.51882, 40.5238, 40.52054, 40.53857, 
  40.53891, 40.53513, 40.53427, 40.52998, 40.53118, 40.52586, 40.52362, 40.53204, 40.53496, 40.54715, 
  40.55196, 40.55883, 40.56982, 40.57256, 40.56157, 40.55606, 40.58731, 40.5995, 40.61374, 40.62456, 
  40.63057, 40.63538, 40.63658, 40.64242, 40.63555, 40.62318, 40.61802, 40.61545, 40.63073, 40.64155, 
  40.64842, 40.65357, 40.65512, 40.66456, 40.68191, 40.68601, 40.70867, 40.73769, 40.74164, 40.73855, 
  40.74541, 40.74626, 40.7485, 40.74145, 40.72772, 40.72789, 40.7466, 40.74506, 40.77734, 40.77167, 
  40.77579, 40.7775, 40.79536, 40.79519, 40.8103, 40.81545, 40.83314, 40.82352, 40.82816, 40.8484, 
  40.85252, 40.86608, 40.87398, 40.89012, 40.89905, 40.91432, 40.93269, 40.9442, 40.96017, 40.9696, 
  40.99242, 41.0235, 41.05046, 41.07996, 41.10555, 41.1433, 41.19052, 41.19395, 41.20717, 41.21712, 
  41.27308, 41.27721, 41.28202, 41.2846, 41.28889, 41.29301, 41.29799, 41.30812, 41.31087, 41.31138, 
  41.31705, 41.32683, 41.33799, 41.36888, 41.39827, 41.42162, 41.43946, 41.49544, 41.54969, 41.55825, 
  41.62419, 41.63309, 41.65267, 41.65198, 41.69112, 41.72444, 41.72341, 41.73646, 41.74985, 41.77012, 
  41.7842, 41.81373, 41.81916, 41.82912, 41.83221, 41.848, 41.8614, 41.8727, 41.88043, 41.88541, 
  41.89228, 41.89915, 41.90378, 41.91031, 41.91477, 41.92336, 41.92198, 41.93692, 41.93898, 41.94754, 
  41.9709, 41.96901, 41.97382, 41.97708, 41.98257, 41.99047, 41.99992, 42.00249, 42.00661, 42.00386, 
  42.01004, 42.0121, 42.01725, 42.02275, 42.03202, 42.03339, 42.03717, 42.03888, 42.04317, 42.0442, 
  42.04781, 42.05382, 42.06376, 42.06977, 42.08076, 42.07664, 42.09329, 42.09346, 42.10205, 42.10187, 
  42.11887, 42.12573, 42.12676, 42.13689, 42.14531, 42.15132, 42.175, 42.17689, 42.18118, 42.18221, 
  42.19646, 42.19285, 42.21345, 42.22152, 42.2308, 42.24368, 42.24642, 42.23293, 42.24093, 42.2035, 
  42.20075, 42.21998, 42.23063, 42.23388, 42.24418, 42.24744, 42.25654, 42.26839, 42.2919, 42.30221, 
  42.30736, 42.30272, 42.30701, 42.32195, 42.32658, 42.33172, 42.341, 42.34546, 42.35353, 42.3537, 
  42.35834, 42.35765, 42.38186, 42.37946, 42.38272, 42.38375, 42.39077, 42.39747, 42.40056, 42.40726, 
  42.41773, 42.42282, 42.43037, 42.44753, 42.45268, 42.46143, 42.47773, 42.49352, 42.50694, 42.52119, 
  42.51981, 42.5253, 42.52977, 42.52771, 42.53062, 42.55122, 42.55122, 42.5471, 42.54847, 42.54349, 
  42.54693, 42.55396, 42.56254, 42.56479, 42.58693, 42.60118, 42.60135, 42.60822, 42.64443, 42.65027, 
  42.65559, 42.66023, 42.66503, 42.67241, 42.69095, 42.71242, 42.7349, 42.74125, 42.74451, 42.74914, 
  42.74742, 42.74193, 42.73799, 42.74228, 42.73027, 42.73473, 42.73164, 42.73593, 42.7392, 42.74727, 
  42.76802, 42.76957, 42.77239, 42.75899, 42.77221, 42.77479, 42.79041, 42.79556, 42.80089, 42.80655, 
  42.80638, 42.81102, 42.81926, 42.82853, 42.83815, 42.84071, 42.84448, 42.84637, 42.84311, 42.84654, 
  42.84808, 42.85306, 42.8668, 42.87006, 42.8917, 42.89187, 42.89891, 42.90011, 42.90904, 42.90834, 
  42.90576, 42.90456, 42.90816, 42.91366, 42.92121, 42.92911, 42.92705, 42.91778, 42.90765, 42.90593, 
  42.92482, 42.92929, 42.93959, 42.93427, 42.94371, 42.9547, 42.96071, 42.97288, 42.97872, 42.99709, 
  42.98129, 42.99348, 42.98953, 42.98936, 42.98455, 42.98541, 42.98335, 42.99279, 43.00482, 43.00413, 
  43.00944, 43.01151, 43.01683, 43.01889, 43.04001, 43.04635, 43.057, 43.0582, 43.06266, 43.06318, 
  43.06747, 43.07125, 43.07468, 43.0788, 43.08927, 43.09065, 43.09734, 43.09768, 43.10249, 43.10558, 
  43.11211, 43.11553, 43.11468, 43.11794, 43.1224, 43.12309, 43.12635, 43.12085, 42.62932, 41.03257)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_3, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_3 <- st_set_geometry(Geo_3, Geo_0[74])
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  12.93224, 12.92638, 12.91467, 12.91316, 12.92136, 12.90965, 12.91935, 12.91935, 12.9217, 12.92303, 
  12.92303, 12.92906, 12.93608, 12.93441, 12.93659, 12.94345, 12.94211, 12.94846, 12.95198, 12.98259, 
  12.97657, 12.96887, 12.95281, 12.94562, 12.91985, 12.91985, 12.92655, 12.92688, 12.93106, 12.92621, 
  12.92738, 12.92153, 12.90831, 12.90362, 12.89241, 12.88856, 12.88304, 12.87518, 12.86631, 12.86932, 
  12.88103, 12.89325, 12.89927, 12.91734)
LONGITUDE_VALUEs <- c(
  42.95152, 42.9668, 42.96662, 42.97417, 42.97538, 42.99324, 42.98586, 42.9826, 42.98054, 42.98243, 
  42.98431, 42.98431, 42.97676, 42.96853, 42.96166, 42.95994, 42.94981, 42.94501, 42.93385, 42.88613, 
  42.87481, 42.88356, 42.88973, 42.88888, 42.90535, 42.91136, 42.90896, 42.91428, 42.91634, 42.92852, 
  42.93418, 42.93762, 42.93333, 42.92698, 42.93711, 42.93677, 42.94466, 42.94809, 42.96148, 42.96354, 
  42.94998, 42.945, 42.94998, 42.9553)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(14.97729, 15.00283, 15.01145, 15.0214, 15.05157, 15.05522, 15.02504, 14.9879, 14.9753, 14.98094)
LONGITUDE_VALUEs <- c(40.30704, 40.32523, 40.34925, 40.3393, 40.33037, 40.29468, 40.2885, 40.26414, 40.27169, 40.2885)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  15.16658, 15.15863, 15.1742, 15.18646, 15.18646, 15.20038, 15.19375, 15.18116, 15.17089, 15.15399, 
  15.15001, 15.11952, 15.12052, 15.11124, 15.10494, 15.11787, 15.11555, 15.12151, 15.12682, 15.1351, 
  15.15863)
LONGITUDE_VALUEs <- c(
  40.26448, 40.27855, 40.2782, 40.28575, 40.29811, 40.29742, 40.26001, 40.25384, 40.23084, 40.23565, 
  40.22775, 40.23221, 40.24457, 40.25212, 40.25212, 40.26928, 40.27306, 40.28026, 40.27855, 40.28232, 
  40.26036)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  15.57542, 15.55954, 15.63494, 15.63031, 15.64949, 15.6475, 15.68453, 15.69973, 15.68849, 15.67527, 
  15.70502, 15.71956, 15.73873, 15.73575, 15.70832, 15.67792, 15.72485, 15.75921, 15.77706, 15.78565, 
  15.80712, 15.80415, 15.81736, 15.84345, 15.8669, 15.88176, 15.88705, 15.87945, 15.87846, 15.86096, 
  15.86459, 15.84312, 15.81967, 15.81373, 15.82793, 15.80316, 15.77706, 15.78135, 15.7764, 15.78069, 
  15.77772, 15.76979, 15.76483, 15.76781, 15.76285, 15.76913, 15.77078, 15.78598, 15.78862, 15.76087, 
  15.76615, 15.7612, 15.74368, 15.72518, 15.72501, 15.73873, 15.72749, 15.72898, 15.71493, 15.70568, 
  15.70254, 15.69824, 15.69477, 15.70204, 15.68932, 15.68453, 15.67643, 15.67378, 15.66271, 15.6513, 
  15.64965, 15.64106, 15.62717, 15.62353, 15.6189, 15.61824, 15.60965, 15.60055, 15.61246, 15.60006, 
  15.58782, 15.58832, 15.58336, 15.57873, 15.57674, 15.58418, 15.58402, 15.59245, 15.59807, 15.59857, 
  15.60254, 15.60287, 15.58418, 15.59063, 15.58815, 15.59377, 15.58749, 15.56632, 15.56169, 15.56781)
LONGITUDE_VALUEs <- c(
  40.36289, 40.42535, 40.40956, 40.38622, 40.3622, 40.33818, 40.32994, 40.25787, 40.22395, 40.20988, 
  40.20611, 40.21537, 40.20611, 40.17625, 40.18723, 40.15257, 40.13197, 40.14227, 40.13883, 40.14638, 
  40.14638, 40.10485, 40.10451, 40.09076, 40.0307, 40.01765, 39.95275, 39.95446, 39.96922, 39.9802, 
  40.0207, 40.04165, 40.04646, 40.03548, 40.00699, 39.98707, 39.99154, 40.00321, 40.01419, 40.02071, 
  40.03581, 40.03581, 40.02311, 40.01453, 39.99909, 39.99017, 39.96408, 39.94933, 39.93114, 39.938, 
  39.92839, 39.92161, 39.92848, 39.92314, 39.92657, 39.94083, 39.94323, 39.93842, 39.93361, 39.92365, 
  39.92726, 39.92692, 39.93155, 39.93945, 39.94237, 39.94993, 39.95147, 39.95508, 39.9537, 39.95627, 
  39.96263, 39.96932, 39.95868, 39.96366, 39.96263, 39.97533, 39.97774, 39.99937, 40.00779, 40.03508, 
  40.04725, 40.05378, 40.05773, 40.05446, 40.07026, 40.07129, 40.0986, 40.12092, 40.11955, 40.11422, 
  40.1156, 40.1259, 40.16399, 40.18046, 40.19024, 40.20432, 40.26047, 40.28863, 40.3209, 40.32897)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  16.0115, 15.99549, 15.99021, 15.98311, 15.97651, 15.97536, 15.98575, 15.97998, 15.98922, 15.99912, 
  16.01051, 16.02156, 16.0115, 16.01183, 16.03097, 16.04037, 16.04928, 16.05423, 16.05208, 16.06577, 
  16.07501, 16.08672, 16.08623, 16.08078, 16.07914, 16.09645, 16.10338, 16.10025, 16.11806, 16.10866, 
  16.0793, 16.06957, 16.05687, 16.05109, 16.06017, 16.05687, 16.00902, 16.00242, 16.00325, 16.00671, 
  16.00721, 16.01117)
LONGITUDE_VALUEs <- c(
  40.04649, 40.05939, 40.05613, 40.0841, 40.09045, 40.10692, 40.11378, 40.11928, 40.12031, 40.09954, 
  40.09474, 40.07809, 40.08118, 40.07655, 40.07294, 40.07569, 40.08496, 40.10057, 40.1167, 40.1246, 
  40.11979, 40.08529, 40.08152, 40.08512, 40.08152, 40.06316, 40.06933, 40.06007, 40.04891, 40.03947, 
  40.04188, 40.05475, 40.0532, 40.04411, 40.0055, 39.99211, 39.98902, 39.99262, 40.01287, 40.0163, 
  40.03758, 40.04239)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  13.01586, 13.00482, 13.00666, 13.01234, 13.01184, 13.01803, 13.02589, 13.03559, 13.04262, 13.04111, 
  13.04278, 13.04278, 13.04546, 13.04245, 13.03676, 13.02957, 13.02439, 13.02071, 13.01987)
LONGITUDE_VALUEs <- c(
  42.84674, 42.8766, 42.88072, 42.87711, 42.86991, 42.8675, 42.84605, 42.84588, 42.85687, 42.86201, 
  42.8651, 42.86974, 42.86802, 42.84914, 42.84211, 42.83868, 42.84176, 42.84056, 42.84417)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  12.98525, 12.97939, 12.9824, 12.97739, 12.97739, 12.96752, 12.96568, 12.95815, 12.96417, 12.96233, 
  12.95547, 12.95363, 12.95614, 12.95346, 12.94125, 12.94175, 12.95129, 12.96434, 12.96501, 12.97588, 
  12.9911)
LONGITUDE_VALUEs <- c(
  42.82993, 42.8313, 42.8464, 42.84812, 42.84417, 42.84314, 42.83799, 42.84005, 42.84314, 42.84657, 
  42.84915, 42.84537, 42.84245, 42.84091, 42.8488, 42.85601, 42.86099, 42.85447, 42.84898, 42.85241, 
  42.84469)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(12.82177, 12.82528, 12.83349, 12.8375, 12.84821, 12.84503, 12.82612)
LONGITUDE_VALUEs <- c(42.95436, 42.95762, 42.95316, 42.94441, 42.93669, 42.93068, 42.93772)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(12.86227, 12.86729, 12.87265, 12.87315, 12.87834, 12.8765, 12.87031, 12.86512, 12.86512)
LONGITUDE_VALUEs <- c(42.8131, 42.81413, 42.81979, 42.80486, 42.7956, 42.79062, 42.78907, 42.79354, 42.80812)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(12.87951, 12.87683, 12.87466, 12.86763, 12.87399)
LONGITUDE_VALUEs <- c(42.86615, 42.84916, 42.84916, 42.86306, 42.86632)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(12.87516, 12.86813, 12.85976, 12.86026, 12.86428, 12.8683, 12.87215, 12.87198)
LONGITUDE_VALUEs <- c(42.87833, 42.87541, 42.8876, 42.89206, 42.89034, 42.89154, 42.88948, 42.88382)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(13.15766, 13.16203, 13.17172, 13.17323, 13.17055)
LONGITUDE_VALUEs <- c(42.59221, 42.59506, 42.5882, 42.58339, 42.58116)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(15.24179, 15.22854, 15.22258, 15.21429, 15.22523, 15.23881, 15.25106)
LONGITUDE_VALUEs <- c(40.23235, 40.22857, 40.23476, 40.23579, 40.27151, 40.277, 40.24953)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(16.03067, 16.01863, 16.03562, 16.04552, 16.04519, 16.06086, 16.06103, 16.05195, 16.05525, 16.03859)
LONGITUDE_VALUEs <- c(40.15528, 40.16559, 40.19168, 40.19288, 40.18206, 40.16764, 40.14789, 40.14497, 40.13518, 40.13707)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  16.12502, 16.12898, 16.14168, 16.15685, 16.15223, 16.16097, 16.19394, 16.1913, 16.16591, 16.15421, 
  16.14019, 16.12766, 16.09435, 16.08593, 16.0889, 16.08824, 16.09863, 16.09863)
LONGITUDE_VALUEs <- c(
  40.16422, 40.157, 40.15786, 40.16628, 40.17864, 40.20319, 40.17399, 40.16472, 40.15768, 40.1618, 
  40.15596, 40.12592, 40.12816, 40.13949, 40.14482, 40.15392, 40.15907, 40.1668)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  16.50522, 16.50506, 16.51214, 16.51148, 16.53073, 16.54489, 16.55048, 16.53814, 16.53682, 16.55114, 
  16.54719, 16.54735, 16.5309, 16.52234, 16.51197, 16.51066, 16.50144, 16.49222, 16.4863, 16.48712, 
  16.47691, 16.49979, 16.50292, 16.50654, 16.50835)
LONGITUDE_VALUEs <- c(
  40.16435, 40.17242, 40.1786, 40.18891, 40.17431, 40.18272, 40.17671, 40.16984, 40.16039, 40.15473, 
  40.15266, 40.14734, 40.14236, 40.13171, 40.13068, 40.13583, 40.13566, 40.12879, 40.12965, 40.13377, 
  40.13687, 40.13841, 40.15112, 40.15352, 40.16057)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  16.32129, 16.31174, 16.31009, 16.31388, 16.30086, 16.31586, 16.32459, 16.32162, 16.32525, 16.32986, 
  16.32591, 16.32508, 16.32904, 16.332, 16.34518, 16.34996, 16.34205, 16.33908, 16.34139, 16.33941, 
  16.33711, 16.33233, 16.33546, 16.32508)
LONGITUDE_VALUEs <- c(
  39.8768, 39.88333, 39.88968, 39.89638, 39.9084, 39.90651, 39.92729, 39.93123, 39.93552, 39.93054, 
  39.92401, 39.91594, 39.90581, 39.9101, 39.90137, 39.89021, 39.85294, 39.85449, 39.86204, 39.87046, 
  39.85723, 39.85638, 39.86067, 39.86239)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
Geo_3 <- Geo_3 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("EGYPT", "SUDAN", "ERITREA"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, Claimed_Area_1, Claimed_Area_2)

Numeric Code (M49_CODE) for BOUVET ISLAND.

No suitable Geometries in available sources. We create our own Geometries.

##### BOUVET ISLAND #####
LATITUDE_VALUEs <- c(
  -54.44556, -54.44725, -54.44626, -54.44695, -54.44596, -54.44606, -54.44466, -54.44496, -54.44076, -54.43897, 
  -54.43707, -54.42159, -54.41091, -54.41011, -54.40591, -54.39961, -54.39912, -54.39282, -54.39182, -54.39272, 
  -54.39102, -54.38702, -54.38762, -54.39332, -54.39612, -54.39572, -54.39802, -54.39902, -54.39862, -54.39912, 
  -54.39912, -54.39852, -54.39942, -54.39882, -54.39892, -54.39971, -54.39902, -54.39732, -54.39702, -54.39902, 
  -54.39932, -54.40121, -54.40691, -54.415, -54.42069, -54.42229, -54.42509, -54.42789, -54.43228, -54.43348,
  -54.43707, -54.43717, -54.43887, -54.44316, -54.44506, -54.45184, -54.45224, -54.45045)
LONGITUDE_VALUEs <- c(
  3.36458, 3.37796, 3.38946, 3.39615, 3.39872, 3.40456, 3.40851, 3.41486, 3.41932, 3.42412, 
  3.42396, 3.43323, 3.42791, 3.42431, 3.42001, 3.40902, 3.40353, 3.38603, 3.37951, 3.36336, 
  3.35753, 3.35478, 3.35084, 3.35221, 3.34123, 3.339, 3.33145, 3.32115, 3.31874, 3.31771, 
  3.3153, 3.31376, 3.31136, 3.30947, 3.30398, 3.29952, 3.29643, 3.29694, 3.29111, 3.29145, 
  3.29368, 3.2942, 3.28527, 3.2899, 3.28715, 3.28904, 3.28715, 3.29247, 3.29127, 3.29608, 
  3.29923, 3.30283, 3.30575, 3.30867, 3.31537, 3.31983, 3.33735, 3.34027)
MGeo_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- MGeo_1 %>% 
  mutate(NAME = "BOUVET ISLAND", VISUALIZATION_NAME = "Bouvet Island", 
         ISO2 = "BV", ISO3 = "BVT", M49_CODE = "074", SOVRN = "Norway", CONTINENT = "AMERICAS", 
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, MGeo_1)

ILEMI TRIANGLE is included in SOUTH SUDAN in GeoDATA.

ILEMI TRIANGLE is an area claimed by KENYA and by SOUTH SUDAN.

##### ILEMI TRIANGLE #####
LATITUDE_VALUEs <- c(
  4.61, 4.6114, 4.64272, 4.66547, 4.70209, 4.72433, 5.4056,
  5.39906, 5.39752, 5.37872, 5.36659, 5.36129, 5.3495, 5.35035, 5.34266, 5.33514, 5.35941, 
  5.35804, 5.36248, 5.36471, 5.37, 5.37582, 5.37804, 5.38624, 5.39376, 5.39, 5.41205, 
  5.4117, 5.41529, 5.41905, 5.417, 5.42333, 5.42298, 5.41871, 5.41888, 5.42196, 5.42264, 
  5.41632, 5.41188, 5.42042, 5.39906, 5.40572, 5.38128, 5.3941, 5.38658, 5.39188, 5.37411, 
  5.37906, 5.37086, 5.35992, 5.34864, 5.35872, 5.34539, 5.34779, 5.34266, 5.33531, 5.33804, 
  5.33565, 5.32796, 5.32129, 5.30078, 5.2613, 5.25514, 5.24745, 5.23087, 5.22318, 5.21121, 
  5.19446, 5.18369, 5.14881, 5.14932, 5.12248, 5.12077, 5.10316, 4.77445, 4.63091, 4.61911,
  4.61996, 4.61842, 4.61791, 4.61722, 4.61586)
LONGITUDE_VALUEs <- c(
  34.3875, 34.38917, 34.41205, 34.43111, 34.4572, 34.47591, 35.29232,
  35.29491, 35.2913, 35.28873, 35.29714, 35.29611, 35.30247, 35.3083, 35.3162, 35.31517, 35.3804, 
  35.38882, 35.39054, 35.41113, 35.41474, 35.43071, 35.43071, 35.44375, 35.4489, 35.45182, 35.4743, 
  35.47876, 35.47996, 35.49232, 35.49781, 35.50605, 35.51447, 35.51705, 35.52408, 35.52546, 35.5421, 
  35.54554, 35.56699, 35.58313, 35.59875, 35.61608, 35.61951, 35.65454, 35.65763, 35.71617, 35.72853, 
  35.73539, 35.75359, 35.75427, 35.77401, 35.77281, 35.79942, 35.80474, 35.81881, 35.82157, 35.83015, 
  35.84062, 35.8388, 35.86147, 35.86319, 35.82799, 35.82868, 35.8261, 35.84121, 35.84155, 35.85443, 
  35.85683, 35.86627, 35.85632, 35.85151, 35.83726, 35.82988, 35.81855, 35.81786, 35.94885, 35.94422,
  35.93288, 35.69838, 35.60828, 35.50816, 35.41478)
Claimed_Area_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Claimed_Area_1 <- Claimed_Area_1 %>% 
  mutate(NAME = "ILEMI TRIANGLE", VISUALIZATION_NAME = "Ilemi Triangle", 
         ISO2 = NA, ISO3 = NA, M49_CODE = NA, SOVRN = NA, CONTINENT = "AFRICA", 
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "SOUTH SUDAN")
Geo_2 <- GeoDATA %>% filter(NAME == "KENYA")
Geo_3 <- GeoDATA %>% filter(NAME == "ETHIOPIA")
Geo_4 <- GeoDATA %>% filter(NAME == "UGANDA")

##### SOUTH SUDAN #####
Geo_0 <- Geometric_Operations(Geo_1, Claimed_Area_1)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, Geo_0[10])
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
LATITUDE_VALUEs <- c(
  3.75172, 3.75498, 4.23404, 4.28266,
  4.61, 4.6114, 4.64272, 4.66547, 4.70209, 4.72433, 5.4056,
  5.43103, 5.43821, 5.4659, 5.46965, 5.49255, 5.4987, 5.62428, 5.68783, 5.83949, 5.89004, 
  5.8967, 5.8967, 5.91838, 5.92453, 5.94878, 5.97609, 5.99112, 6.00068, 6.00802, 6.02202, 
  6.02355, 6.03243, 6.03277, 6.03806, 6.07664, 6.07494, 6.08091, 6.0821, 6.07937, 6.0874, 
  6.092, 6.08671, 6.09388, 6.10173, 6.12597, 6.13007, 6.13911, 6.14202, 6.14901, 6.15021, 
  6.16045, 6.17615, 6.17478, 6.18724, 6.18775, 6.19885, 6.21455, 6.22103, 6.22905, 6.23707, 
  6.24595, 6.25158, 6.2538, 6.27803, 6.28263, 6.28861, 6.29475, 6.30737, 6.31573, 6.31898, 
  6.32785, 6.33791, 6.35173, 6.3775, 6.38125, 6.3862, 6.39541, 6.40735, 6.42475, 6.43481, 
  6.43396, 6.46142, 6.47507, 6.4865, 6.49963, 6.50867, 6.50406, 6.5114, 6.51907, 6.52624, 
  6.5351, 6.53476, 6.54176, 6.55079, 6.5525, 6.55864, 6.55608, 6.5641, 6.56307, 6.57177, 
  6.57655, 6.57825, 6.58149, 6.57706, 6.57893, 6.58388, 6.58746, 6.59104, 6.59888, 6.60673, 
  6.604, 6.60843, 6.60997, 6.60144, 6.60485, 6.60383, 6.6069, 6.59667, 6.58933, 6.59019, 
  6.59616, 6.59701, 6.60349, 6.59394, 6.60264, 6.60946, 6.62327, 6.641, 6.64049, 6.64678,
  6.65368, 6.67669, 6.6842, 6.6917, 6.69204, 6.69852, 6.69971, 6.71318, 6.71369, 6.73227, 
  6.74506, 6.72375, 6.7246, 6.73313, 6.72818, 6.73807, 6.735, 6.74949, 6.74557, 6.75529, 
  6.75631, 6.79108, 6.79978, 6.80762, 6.81767, 6.84699, 6.85227, 6.86301, 6.85585, 6.87375, 
  6.91107, 6.91141, 6.92249, 6.91278, 6.92419, 6.91226, 6.92573, 6.92147, 6.94805, 6.94686, 
  6.97872, 6.97872, 6.99235, 6.98843, 7.0024, 7.01195, 7.00206, 7.00462, 7.01092, 7.01655, 
  7.02949, 7.04449, 7.06851, 7.0835, 7.09662, 7.1174, 7.11876, 7.13188, 7.14738, 7.14584, 
  7.16662, 7.17122, 7.18519, 7.18842, 7.21806, 7.22385, 7.24309, 7.24326, 7.27102, 7.26455, 
  7.27442, 7.33078, 7.35717, 7.38152, 7.39156, 7.40109, 7.4188, 7.42509, 7.42492, 7.44109, 
  7.44365, 7.45029, 7.44841, 7.46918, 7.46901, 7.47463, 7.47241, 7.47633, 7.48194, 7.50577, 
  7.51071, 7.51275, 7.51871, 7.52449, 7.53947, 7.54798, 7.54542, 7.56006, 7.55938, 7.56431, 
  7.56312, 7.5735, 7.57265, 7.57725, 7.59137, 7.6026, 7.606, 7.62251, 7.62149, 7.65415, 
  7.65636, 7.66334, 7.66045, 7.69481, 7.68903, 7.69719, 7.69039, 7.69481, 7.68954, 7.6999, 
  7.6936, 7.7067, 7.71657, 7.71453, 7.72779, 7.72916, 7.73715, 7.73001, 7.7414, 7.73273, 
  7.74804, 7.74991, 7.73817, 7.75603, 7.73783, 7.73936, 7.73001, 7.74276, 7.72031, 7.72967, 
  7.71742, 7.70925, 7.73133, 7.72555, 7.73766, 7.78018, 7.76828, 7.79766, 7.78031, 7.80314, 
  7.79005, 7.81114, 7.83052, 7.84719, 7.8579, 7.86845, 7.87372, 7.88205, 7.8914, 7.88902, 
  7.89514, 7.91606, 7.92915, 7.93952, 7.9419, 7.94615, 7.95176, 7.95788, 7.9606, 7.96502, 
  7.96791, 7.97913, 7.99222, 8.00123, 8.00786, 8.01602, 8.01653, 8.02248, 8.02061, 8.0388,
  8.04576, 8.05647, 8.06055, 8.07432, 8.07687, 8.0614, 8.06497, 8.10933, 8.11613, 8.11086, 
  8.12989, 8.12615, 8.13652, 8.16014, 8.16796, 8.17645, 8.19106, 8.1914, 8.19837, 8.21757, 
  8.2383, 8.24764, 8.25223, 8.25002, 8.25596, 8.27754, 8.28756, 8.29521, 8.30132, 8.29792, 
  8.31219, 8.33478, 8.33529, 8.33071, 8.34175, 8.36111, 8.35092, 8.38624, 8.39626, 8.40136, 
  8.40798, 8.40951, 8.40509, 8.42021, 8.427, 8.43549, 8.4236, 8.44024, 8.44347, 8.44788, 
  8.44907, 8.46249, 8.45688, 8.44109, 8.43973, 8.46809, 8.46486, 8.45569, 8.44704, 8.45026, 
  8.44687, 8.44721, 8.43753, 8.43651, 8.43056, 8.42564, 8.43277, 8.44534, 8.44619, 8.45332, 
  8.44381, 8.45994, 8.45569, 8.46486, 8.47709, 8.48082, 8.47132, 8.47488, 8.46741, 8.47166, 
  8.46707, 8.47437, 8.46758, 8.46249, 8.46232, 8.454, 8.44704, 8.4489, 8.44211, 8.44721, 
  8.45349, 8.47199, 8.46486, 8.46588, 8.45569, 8.44873, 8.44551, 8.43668, 8.43209, 8.42547, 
  8.42156, 8.40934, 8.40713, 8.39473, 8.38658, 8.38522, 8.37707, 8.3786, 8.37062, 8.36807, 
  8.37334, 8.37877, 8.36858, 8.38268, 8.38743, 8.39932, 8.39728, 8.40221, 8.40492, 8.39762, 
  8.41121, 8.40934, 8.41426, 8.41155, 8.42326, 8.42581, 8.43787, 8.43973, 8.45654, 8.47845, 
  8.48303, 8.4876, 8.48777, 8.4932, 8.50101, 8.49405, 8.50406, 8.49303, 8.49048, 8.49609, 
  8.49558, 8.48878, 8.49014, 8.50916, 8.51765, 8.53004, 8.53462, 8.5409, 8.54566, 8.55737, 
  8.55398, 8.59998, 8.59879, 8.60767, 8.30792)
LONGITUDE_VALUEs <- c(
  33.51103, 33.51446, 33.98762, 34.05696,
  34.3875, 34.38917, 34.41205, 34.43111, 34.4572, 34.47591, 35.29232,
  35.29498, 35.30116, 35.30889, 35.30597, 35.31043, 35.31438, 35.12608, 35.12984, 35.04041, 35.00607, 
  34.99801, 35.00521, 35.01156, 35.00453, 34.99097, 34.9956, 35.00607, 35.00521, 35.00882, 35.00624, 
  35.00109, 35.00024, 34.99474, 34.99337, 35.00384, 35.00127, 35.00041, 34.9956, 34.98994, 34.98908, 
  34.98272, 34.97363, 34.97071, 34.97414, 34.96299, 34.96745, 34.9635, 34.96677, 34.96625, 34.96986, 
  34.96728, 34.97174, 34.97741, 34.97827, 34.97398, 34.97535, 34.96402, 34.96642, 34.96042, 34.96333, 
  34.9496, 34.95156, 34.96272, 34.9641, 34.96066, 34.96822, 34.96753, 34.97388, 34.98865, 34.98573, 
  34.99226, 34.98881, 34.99997, 34.98916, 34.99208, 34.98984, 34.99294, 35.0132, 35.01182, 35.01783, 
  35.02195, 35.01784, 35.00891, 34.9816, 34.97989, 34.96736, 34.95809, 34.9574, 34.96067, 34.95002, 
  34.95259, 34.94624, 34.94229, 34.9459, 34.94006, 34.93851, 34.92649, 34.92221, 34.91689, 34.90796, 
  34.90847, 34.9138, 34.90899, 34.89956, 34.8896, 34.88943, 34.88153, 34.88874, 34.89097, 34.8762, 
  34.87157, 34.86555, 34.85216, 34.83979, 34.83261, 34.81955, 34.81663, 34.79207, 34.79345, 34.78624, 
  34.784, 34.77799, 34.7761, 34.7682, 34.76463, 34.76652, 34.74884, 34.73887, 34.72737, 34.72704,
  34.71566, 34.7064, 34.71206, 34.70416, 34.69798, 34.68889, 34.6779, 34.66898, 34.66074, 34.65197, 
  34.62503, 34.62246, 34.61302, 34.60889, 34.58778, 34.56169, 34.55019, 34.54537, 34.53061, 34.52958, 
  34.53765, 34.5325, 34.54228, 34.53507, 34.54297, 34.52186, 34.53027, 34.52237, 34.51156, 34.51413, 
  34.46658, 34.45972, 34.458, 34.42985, 34.39398, 34.37938, 34.34265, 34.33338, 34.31346, 34.29338, 
  34.30144, 34.28925, 34.2829, 34.27638, 34.27364, 34.2527, 34.23691, 34.23089, 34.23415, 34.21904, 
  34.22436, 34.19166, 34.19612, 34.18736, 34.19543, 34.18925, 34.19509, 34.19011, 34.15784, 34.14067, 
  34.1283, 34.10307, 34.09742, 34.1024, 34.06978, 34.03783, 34.03304, 34.02325, 34.01106, 34.02566, 
  34.03974, 34.02996, 34.037, 34.00798, 34.00385, 34.00815, 34.00369, 33.99804, 33.99427, 33.98276, 
  33.97194, 33.96438, 33.95872, 33.95597, 33.9462, 33.94087, 33.92782, 33.9249, 33.93057, 33.90465, 
  33.90465, 33.89949, 33.89881, 33.90619, 33.89606, 33.87907, 33.87289, 33.86533, 33.84937, 33.83048, 
  33.81966, 33.8104, 33.80439, 33.80269, 33.78225, 33.77882, 33.76302, 33.7534, 33.73983, 33.72663, 
  33.71771, 33.71531, 33.69968, 33.64455, 33.63682, 33.62343, 33.60213, 33.59204, 33.58105, 33.55685, 
  33.54157, 33.53951, 33.52888, 33.52064, 33.52493, 33.51515, 33.51738, 33.50175, 33.49849, 33.4899, 
  33.47822, 33.46416, 33.45437, 33.43135, 33.4183, 33.4027, 33.40013, 33.38108, 33.36322, 33.34965, 
  33.34554, 33.32013, 33.31705, 33.30365, 33.30212, 33.23257, 33.22381, 33.16282, 33.1058, 33.09285, 
  33.04528, 33.04874, 33.02746, 33.01818, 33.00444, 33.00463, 32.99982, 33.00428, 33.00514, 33.01424, 
  33.01716, 32.99896, 33.00601, 33.00446, 32.99793, 32.99759, 33.00909, 33.01321, 33.02815, 33.03262, 
  33.03846, 33.04, 33.03448, 33.03963, 33.03826, 33.04805, 33.06127, 33.06797, 33.07725, 33.07895,
  33.08252, 33.07892, 33.08853, 33.08355, 33.10415, 33.11702, 33.12337, 33.11753, 33.14621, 33.16131, 
  33.17058, 33.191, 33.19375, 33.18225, 33.1898, 33.17556, 33.1771, 33.16766, 33.1656, 33.19976, 
  33.2056, 33.20011, 33.18895, 33.18295, 33.17436, 33.17041, 33.17539, 33.16938, 33.1723, 33.19667, 
  33.20285, 33.19049, 33.19993, 33.20319, 33.21847, 33.21692, 33.19444, 33.18586, 33.19478, 33.18809, 
  33.19101, 33.20577, 33.21658, 33.2171, 33.2135, 33.21916, 33.23186, 33.24971, 33.24268, 33.24285, 
  33.25761, 33.27263, 33.28173, 33.28499, 33.29478, 33.31176, 33.31811, 33.31931, 33.33803, 33.349, 
  33.36033, 33.36823, 33.3715, 33.38146, 33.38421, 33.39795, 33.39863, 33.40942, 33.41801, 33.42247, 
  33.44549, 33.46695, 33.4764, 33.49044, 33.48855, 33.49748, 33.50761, 33.51105, 33.52084, 33.53389, 
  33.54351, 33.56051, 33.56377, 33.56085, 33.5672, 33.56531, 33.57871, 33.5921, 33.59605, 33.60258, 
  33.60103, 33.61852, 33.6276, 33.63464, 33.65749, 33.66092, 33.67689, 33.6793, 33.67414, 33.67432, 
  33.67929, 33.67912, 33.68393, 33.69113, 33.68855, 33.69559, 33.7004, 33.70898, 33.71414, 33.73389, 
  33.73629, 33.75089, 33.76734, 33.79121, 33.78812, 33.80099, 33.81181, 33.8094, 33.81765, 33.82589, 
  33.84681, 33.85386, 33.85746, 33.8767, 33.87601, 33.88339, 33.88219, 33.87498, 33.87601, 33.8973, 
  33.89661, 33.9081, 33.92699, 33.92802, 33.94708, 33.95704, 33.97353, 33.9749, 33.99239, 33.99856, 
  34.00697, 34.0123, 34.02483, 34.03495, 34.03495, 34.04628, 34.05882, 34.0626, 34.07582, 34.0863, 
  34.09795, 34.13351, 34.13968, 34.14546, 27.97643)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_1, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, Geo_0[167])
Geo_0 <- st_union(st_geometry(Geo_1), st_geometry(Geo))
if (length(Geo_0) > 1) {Geo_0 <- Geo_0[st_geometry_type(Geo_0) %in% c("POLYGON", "MULTIPOLYGON")]}
Geo_1 <- st_set_geometry(Geo_1, Geo_0)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### KENYA #####
Geo_0 <- Geometric_Operations(Geo_2, Claimed_Area_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_1)
Geo_2 <- st_set_geometry(Geo_2, Geo_0)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  3.980286, 3.98212, 3.97972, 3.98229, 3.97578, 3.96636, 3.96636, 3.96294, 3.9626, 3.96705, 
  3.9602, 3.96191, 3.95061, 3.94873, 3.95386, 3.95489, 3.9501, 3.94667, 3.95095, 3.95232, 
  3.94736, 3.95318, 3.95917, 3.95746, 3.98178, 3.97647, 3.97904, 3.97219, 3.97664, 3.98263,
  3.98726, 3.99256, 3.98315, 3.97835, 3.96996, 3.97047, 3.96003, 3.96568, 3.96568, 3.98383, 
  3.97373, 3.97304, 3.97493, 3.96945, 3.97133, 3.96636, 3.98349, 3.97133, 3.95951, 3.95421,
  3.96517, 3.95763, 3.95215, 3.95626, 3.95386, 3.94667, 3.94513, 3.96277, 3.95078, 3.96071, 
  3.95095, 3.94701, 3.93828, 3.9477, 3.94855, 3.95797, 3.95489, 3.959, 3.9501, 3.95352, 
  3.9477, 3.93759, 3.94136, 3.93982, 3.94273, 3.95181, 3.96619, 3.97356, 3.97441, 3.98794, 
  3.98606, 4.01483, 4.0227, 4.04873, 4.05883, 4.07082, 4.07099, 4.0775, 4.08931, 4.10575,
  4.11106, 4.13212, 4.15506, 4.1703, 4.19495, 4.21019, 4.22114, 4.22662, 4.24648, 4.25521, 
  4.27319, 4.28363, 4.28192, 4.28602, 4.26124, 4.24549, 4.24686, 4.12154, 4.10476, 4.10682,
  4.04291, 4.04411, 4.02681, 3.87423, 3.69704, 3.6662, 3.65764, 3.65867, 3.50209, 3.49198, 
  3.42173, 3.39654, 3.40562, 3.46286, 3.46457, 3.45772, 3.4584, 3.45377, 3.45686, 3.45069, 
  3.46183, 3.45874, 3.46354, 3.46421, 3.48003, 3.49888, 3.50042, 3.47506, 3.47831, 3.46958, 
  3.47437, 3.47437, 3.48003, 3.4766, 3.4898, 3.48757, 3.50008, 3.5095, 3.50967, 3.52029,
  3.53931, 3.53897, 3.53124, 3.5201, 3.52627, 3.52216, 3.52199, 3.50965, 3.50948, 3.51513,
  3.51428, 3.52267, 3.51925, 3.5309, 3.52456, 3.51531, 3.51188, 3.51805, 3.57287, 3.58332, 
  3.61057, 3.62496, 3.62119, 3.60834, 3.59412, 3.60491, 3.60217, 3.61296, 3.60594, 3.60594, 
  3.61468, 3.62256, 3.63523, 3.64209, 3.64757, 3.65425, 3.651, 3.6402, 3.62547, 3.62204, 
  3.60183, 3.62052, 3.60784, 3.62429, 3.68733, 3.72879, 3.7305, 4.29276, 4.29087, 4.30406,
  4.34154, 4.34668, 4.34616, 4.36037, 4.36379, 4.3679, 4.37355, 4.37218, 4.38177, 4.36996, 
  4.37749, 4.37578, 4.39614, 4.39529, 4.40162, 4.42216, 4.42935, 4.44715, 4.43971, 4.45177, 
  4.45194, 4.44184, 4.44355, 4.44834, 4.45519, 4.44869, 4.44715, 4.52792, 4.53169, 4.54298, 
  4.563, 4.56985, 4.5743,
  4.61911, 4.61996, 4.61842, 4.61791, 4.61722, 4.61586, 4.61,
  4.28266, 4.23404,
  4.1789, 4.14397, 4.12103, 4.0938, 4.08558, 4.06127, 4.04911, 4.03627, 4.02754, 4.00938, 
  4.00254, 3.97633, 3.96144, 3.89893, 3.88523, 3.85995, 3.87263, 3.86852, 3.88051, 3.88119, 
  3.83084, 3.83152, 3.80994, 3.8072, 3.80035, 3.79795, 3.78322, 3.77397, 3.76678, 3.78528, 
  3.77397, 3.78596, 3.76301, 3.74725, 3.71128, 3.73286, 3.73629, 3.7195, 3.69141, 3.67393, 
  3.61089, 3.57491, 3.51734, 3.4913, 3.48821, 3.45052, 3.43201, 3.41145, 3.36895, 3.34393, 
  3.25687, 3.17598, 3.16706, 3.14101, 3.14924, 3.13648, 3.11025, 3.10751, 3.09106, 3.06894, 
  3.04974, 3.03483, 3.01975, 3.0062, 2.98186, 2.9246, 2.90677, 2.86734, 2.86271, 2.8778, 
  2.87351, 2.86494, 2.85637, 2.82516, 2.82774, 2.81556, 2.80185, 2.78779, 2.77013, 2.74972, 
  2.69742, 2.68336, 2.65558, 2.6206, 2.58322, 2.57087, 2.57224, 2.58922, 2.59334, 2.51668, 
  2.51599, 2.49902, 2.47226, 2.47295, 2.45734, 2.45614, 2.43402, 2.42836, 2.42167, 2.39371, 
  2.39148, 2.38805, 2.21026, 2.05175, 1.98416, 1.9622, 1.75872, 1.66503, 1.57676, 1.55239, 
  1.55548, 1.5282, 1.45492, 1.45218, 1.43073, 1.42352, 1.41185, 1.40413, 1.38388, 1.36517, 
  1.30991, 1.30305, 1.29652, 1.27505, 1.27042, 1.26252, 1.25034, 1.24862, 1.23026, 1.22837, 
  1.22288, 1.2246, 1.21928, 1.22237, 1.20915, 1.19182, 1.18838, 1.18375, 1.16521, 1.15972, 
  1.14977, 1.09879, 1.10772, 1.1036, 1.1024, 1.08026, 1.07648, 1.03169, 1.02516, 0.99787, 
  0.98105, 0.94158, 0.93506, 0.93231, 0.90759, 0.8985, 0.88408, 0.87395, 0.86503, 0.85404, 
  0.84906, 0.84271, 0.83997, 0.83173, 0.82932, 0.81971, 0.81765, 0.81353, 0.80787, 0.80049, 
  0.80238, 0.7895, 0.79448, 0.77886, 0.76135, 0.72874, 0.72651, 0.72033, 0.69613, 0.67862, 
  0.66386, 0.6606, 0.64326, 0.62884, 0.63296, 0.62833, 0.62575, 0.6309, 0.62283, 0.62573, 
  0.62178, 0.62487, 0.61801, 0.61972, 0.61337, 0.61063, 0.6041, 0.60599, 0.58007, 0.58316,
  0.55823, 0.53815, 0.52304, 0.52099, 0.51652, 0.51086, 0.48305, 0.47859, 0.45387, 0.43962, 
  0.43619, 0.42434, 0.41473, 0.37302, 0.35242, 0.34744, 0.32255, 0.32186, 0.31002, 0.3035, 
  0.29199, 0.28908, 0.27311, 0.26625, 0.25286, 0.24668, 0.24033, 0.10797, 0.09853, -0.13355, 
  -0.45747, -0.56201, -0.90479, -0.99078, -1.001099, 3.93025)
LONGITUDE_VALUEs <- c(
  41.905273, 41.90507, 41.89838, 41.89597, 41.88258, 41.87743, 41.87228, 41.87142, 41.86782, 41.86473, 
  41.86233, 41.85151, 41.85186, 41.84465, 41.84087, 41.83246, 41.8347, 41.83298, 41.83092, 41.82646, 
  41.82251, 41.81719, 41.81994, 41.79728, 41.79195, 41.78714, 41.78199, 41.77547, 41.75419, 41.75282, 
  41.72328, 41.72071, 41.7135, 41.69205, 41.68724, 41.68209, 41.67403, 41.66407, 41.65498, 41.62904, 
  41.61668, 41.60776, 41.60192, 41.59025, 41.57893, 41.56537, 41.54872, 41.52331, 41.51816, 41.50614,
  41.50597, 41.48158, 41.47944, 41.4578, 41.4365, 41.43496, 41.42757, 41.39099, 41.37574, 41.35496,
  41.34809, 41.33813, 41.32817, 41.30945, 41.27823, 41.27446, 41.25196, 41.23341, 41.22671, 41.21469,
  41.20289, 41.20255, 41.18589, 41.18091, 41.16871, 41.16253, 41.1325, 41.13559, 41.12529, 41.11894,
  41.10451, 41.08991, 41.07207, 41.05696, 41.04375, 41.03637, 41.0252, 41.02299, 41.00942, 40.99911, 
  40.98091, 40.96685, 40.90348, 40.89888, 40.88153, 40.88343, 40.87364, 40.85561, 40.84376, 40.81269, 
  40.7847, 40.78161, 40.77354, 40.76014, 40.74804, 40.71575, 40.69721, 40.40326, 40.38711, 40.37475, 
  40.21358, 40.19146, 40.17085, 39.8687, 39.78397, 39.77471, 39.7675, 39.75857, 39.6054, 39.58788, 
  39.56042, 39.55443, 39.51493, 39.4976, 39.49211, 39.48438, 39.47047, 39.45467, 39.44299, 39.42908,
  39.42825, 39.41847, 39.41108, 39.33071, 39.33624, 39.33263, 39.32422, 39.30138, 39.28437, 39.26583, 
  39.25454, 39.23375, 39.22551, 39.19151, 39.18773, 39.17727, 39.15065, 39.15031, 39.1311, 39.10585,
  39.08765, 39.07889, 39.07841, 39.05334, 39.03582, 39.03153, 39.02174, 39.02157, 39.01592, 39.013, 
  39.00837, 39.00322, 38.99926, 38.9656, 38.95908, 38.96011, 38.90587, 38.893, 38.71409, 38.71274,
  38.69336, 38.68752, 38.67361, 38.67739, 38.66469, 38.62622, 38.61935, 38.61386, 38.60527, 38.57972, 
  38.55963, 38.55862, 38.55141, 38.55072, 38.54248, 38.53938, 38.51586, 38.52341, 38.52238, 38.50475,
  38.44773, 38.18551, 38.12712, 38.11236, 38.03239, 38.00353, 37.99014, 37.13642, 37.13195, 37.11358,
  37.09076, 37.07805, 37.06672, 37.05505, 37.05522, 37.0487, 37.04818, 37.04406, 37.03308, 37.02107, 
  37.01111, 37.0039, 36.97934, 36.9596, 36.95994, 36.90948, 36.87961, 36.8446, 36.66182, 36.64495, 
  36.62607, 36.54692, 36.51431, 36.26456, 36.24706, 36.23367, 36.03968, 35.96432, 35.95693, 35.95384, 
  35.96071, 35.95384, 35.94491,
  35.94422, 35.93288, 35.69838, 35.60828, 35.50816, 35.41478, 34.3875,
  34.05696, 33.98762,
  34.04758, 34.06577, 34.0493, 34.06303, 34.07967, 34.09152, 34.09118, 34.08723, 34.05891, 34.05994, 
  34.08225, 34.10594, 34.1346, 34.11899, 34.09119, 34.08871, 34.12303, 34.16559, 34.17143, 34.21605, 
  34.22738, 34.17967, 34.16354, 34.15289, 34.15392, 34.18724, 34.18964, 34.1663, 34.17042, 34.22293, 
  34.22808, 34.24113, 34.26071, 34.26586, 34.30842, 34.32695, 34.3654, 34.39529, 34.40593, 34.46327, 
  34.45297, 34.4564, 34.4516, 34.42446, 34.38808, 34.41794, 34.41897, 34.40146, 34.40043, 34.42962, 
  34.45124, 34.4562, 34.48265, 34.49399, 34.51219, 34.54581, 34.55886, 34.56315, 34.57242, 34.57483, 
  34.5726, 34.57586, 34.57672, 34.58736, 34.58839, 34.59851, 34.63956, 34.65293, 34.69243, 34.70171, 
  34.70888, 34.71146, 34.73636, 34.74959, 34.75525, 34.76623, 34.76726, 34.77585, 34.77755, 34.78494, 
  34.77533, 34.79078, 34.79918, 34.83198, 34.85102, 34.86854, 34.8785, 34.87987, 34.8967, 34.91334, 
  34.93344, 34.93651, 34.9487, 34.95437, 34.95334, 34.94819, 34.93102, 34.93256, 34.91659, 34.91471, 
  34.91935, 34.91763, 34.9451, 34.97977, 34.98389, 35.00003, 35.00002, 34.99109, 34.94355, 34.90577, 
  34.89031, 34.8639, 34.84347, 34.8299, 34.81685, 34.80004, 34.79283, 34.79987, 34.8076, 34.78717, 
  34.82889, 34.83009, 34.82786, 34.82905, 34.8318, 34.81944, 34.81789, 34.81377, 34.80519, 34.80075, 
  34.79319, 34.77997, 34.76966, 34.75678, 34.6687, 34.66409, 34.65621, 34.65535, 34.61722, 34.61276, 
  34.57875, 34.57431, 34.52553, 34.52626, 34.52145, 34.51424, 34.50463, 34.49089, 34.49192, 34.48729, 
  34.48986, 34.47973, 34.48076, 34.47647, 34.46497, 34.45243, 34.45209, 34.44659, 34.44797, 34.4423, 
  34.42204, 34.42154, 34.41501, 34.41553, 34.40849, 34.40917, 34.41501, 34.41106, 34.41518, 34.39749, 
  34.3865, 34.38376, 34.37809, 34.36884, 34.31389, 34.30773, 34.30996, 34.30738, 34.31374, 34.27734, 
  34.28095, 34.2782, 34.27906, 34.24815, 34.24128, 34.24042, 34.22908, 34.2217, 34.21586, 34.2073, 
  34.20524, 34.1982, 34.19614, 34.19202, 34.19133, 34.18566, 34.18635, 34.17725, 34.14258, 34.13828,
  34.12693, 34.1271, 34.11577, 34.12229, 34.12281, 34.11714, 34.1192, 34.1113, 34.08882, 34.09226, 
  34.08951, 34.0902, 34.10049, 34.10925, 34.0981, 34.09998, 34.07046, 34.05673, 34.06068, 34.049, 
  34.04968, 34.04025, 34.04093, 34.02429, 34.02239, 34.01329, 34.01209, 33.91184, 33.90944, 33.98394, 
  33.92901, 33.92503, 33.93364, 33.9333, 33.921082, 41.86716)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_2, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, st_union(Geo_0[c(1, 76)]))
Geo_2 <- st_union(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
Geo_2 <- Geo_2 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### ETHIOPIA #####
Geo_0 <- Geometric_Operations(Geo_3, Claimed_Area_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_3 <- st_set_geometry(Geo_3, Geo_0)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(
  3.98212, 3.97972, 3.98229, 3.97578, 3.96636, 3.96636, 3.96294, 3.9626, 3.96705, 3.9602, 
  3.96191, 3.95061, 3.94873, 3.95386, 3.95489, 3.9501, 3.94667, 3.95095, 3.95232, 3.94736, 
  3.95318, 3.95917, 3.95746, 3.98178, 3.97647, 3.97904, 3.97219, 3.97664, 3.98263, 3.98726, 
  3.99256, 3.98315, 3.97835, 3.96996, 3.97047, 3.96003, 3.96568, 3.96568, 3.98383, 3.97373, 
  3.97304, 3.97493, 3.96945, 3.97133, 3.96636, 3.98349, 3.97133, 3.95951, 3.95421, 3.96517, 
  3.95763, 3.95215, 3.95626, 3.95386, 3.94667, 3.94513, 3.96277, 3.95078, 3.96071, 3.95095, 
  3.94701, 3.93828, 3.9477, 3.94855, 3.95797, 3.95489, 3.959, 3.9501, 3.95352, 3.9477, 
  3.93759, 3.94136, 3.93982, 3.94273, 3.95181, 3.96619, 3.97356, 3.97441, 3.98794, 3.98606, 
  4.01483, 4.0227, 4.04873, 4.05883, 4.07082, 4.07099, 4.0775, 4.08931, 4.10575, 4.11106, 
  4.13212, 4.15506, 4.1703, 4.19495, 4.21019, 4.22114, 4.22662, 4.24648, 4.25521, 4.27319, 
  4.28363, 4.28192, 4.28602, 4.26124, 4.24549, 4.24686, 4.12154, 4.10476, 4.10682, 4.04291, 
  4.04411, 4.02681, 3.87423, 3.69704, 3.6662, 3.65764, 3.65867, 3.50209, 3.49198, 3.42173, 
  3.39654, 3.40562, 3.46286, 3.46457, 3.45772, 3.4584, 3.45377, 3.45686, 3.45069, 3.46183, 
  3.45874, 3.46354, 3.46421, 3.48003, 3.49888, 3.50042, 3.47506, 3.47831, 3.46958, 3.47437, 
  3.47437, 3.48003, 3.4766, 3.4898, 3.48757, 3.50008, 3.5095, 3.50967, 3.52029, 3.53931, 
  3.53897, 3.53124, 3.5201, 3.52627, 3.52216, 3.52199, 3.50965, 3.50948, 3.51513, 3.51428, 
  3.52267, 3.51925, 3.5309, 3.52456, 3.51531, 3.51188, 3.51805, 3.57287, 3.58332, 3.61057, 
  3.62496, 3.62119, 3.60834, 3.59412, 3.60491, 3.60217, 3.61296, 3.60594, 3.60594, 3.61468, 
  3.62256, 3.63523, 3.64209, 3.64757, 3.65425, 3.651, 3.6402, 3.62547, 3.62204, 3.60183, 
  3.62052, 3.60784, 3.62429, 3.68733, 3.72879, 3.7305, 4.29276, 4.29087, 4.30406, 4.34154, 
  4.34668, 4.34616, 4.36037, 4.36379, 4.3679, 4.37355, 4.37218, 4.38177, 4.36996, 4.37749, 
  4.37578, 4.39614, 4.39529, 4.40162, 4.42216, 4.42935, 4.44715, 4.43971, 4.45177, 4.45194, 
  4.44184, 4.44355, 4.44834, 4.45519, 4.44869, 4.44715, 4.52792, 4.53169, 4.54298, 4.563, 
  4.56985, 4.5743, 4.61911,
  4.63091, 4.77445, 5.10316, 5.12077, 5.12248, 5.14932, 5.14881, 5.18369, 5.19446, 5.21121, 
  5.22318, 5.23087, 5.24745, 5.25514, 5.2613, 5.30078, 5.32129, 5.32796, 5.33565, 5.33804, 
  5.33531, 5.34266, 5.34779, 5.34539, 5.35872, 5.34864, 5.35992, 5.37086, 5.37906, 5.37411, 
  5.39188, 5.38658, 5.3941, 5.38128, 5.40572, 5.39906, 5.42042, 5.41188, 5.41632, 5.42264, 
  5.42196, 5.41888, 5.41871, 5.42298, 5.42333, 5.417, 5.41905, 5.41529, 5.4117, 5.41205, 
  5.39, 5.39376, 5.38624, 5.37804, 5.37582, 5.37, 5.36471, 5.36248, 5.35804, 5.35941, 
  5.33514, 5.34266, 5.35035, 5.3495, 5.36129, 5.36659, 5.37872, 5.39752, 5.39906, 5.4056,
  5.43103, 5.43821, 5.4659, 5.46965, 5.49255, 5.4987, 5.62428, 5.68783, 5.83949, 5.89004, 
  5.8967, 5.8967, 5.91838, 5.92453, 5.94878, 5.97609, 5.99112, 6.00068, 6.00802, 6.02202, 
  6.02355, 6.03243, 6.03277, 6.03806, 6.07664, 6.07494, 6.08091, 6.0821, 6.07937, 6.0874, 
  6.092, 6.08671, 6.09388, 6.10173, 6.12597, 6.13007, 6.13911, 6.14202, 6.14901, 6.15021, 
  6.16045, 6.17615, 6.17478, 6.18724, 6.18775, 6.19885, 6.21455, 6.22103, 6.22905, 6.23707, 
  6.24595, 6.25158, 6.2538, 6.27803, 6.28263, 6.28861, 6.29475, 6.30737, 6.31573, 6.31898, 
  6.32785, 6.33791, 6.35173, 6.3775, 6.38125, 6.3862, 6.39541, 6.40735, 6.42475, 6.43481, 
  6.43396, 6.46142, 6.47507, 6.4865, 6.49963, 6.50867, 6.50406, 6.5114, 6.51907, 6.52624, 
  6.5351, 6.53476, 6.54176, 6.55079, 6.5525, 6.55864, 6.55608, 6.5641, 6.56307, 6.57177, 
  6.57655, 6.57825, 6.58149, 6.57706, 6.57893, 6.58388, 6.58746, 6.59104, 6.59888, 6.60673, 
  6.604, 6.60843, 6.60997, 6.60144, 6.60485, 6.60383, 6.6069, 6.59667, 6.58933, 6.59019, 
  6.59616, 6.59701, 6.60349, 6.59394, 6.60264, 6.60946, 6.62327, 6.641, 6.64049, 6.64678,
  6.65368, 6.67669, 6.6842, 6.6917, 6.69204, 6.69852, 6.69971, 6.71318, 6.71369, 6.73227, 
  6.74506, 6.72375, 6.7246, 6.73313, 6.72818, 6.73807, 6.735, 6.74949, 6.74557, 6.75529, 
  6.75631, 6.79108, 6.79978, 6.80762, 6.81767, 6.84699, 6.85227, 6.86301, 6.85585, 6.87375, 
  6.91107, 6.91141, 6.92249, 6.91278, 6.92419, 6.91226, 6.92573, 6.92147, 6.94805, 6.94686, 
  6.97872, 6.97872, 6.99235, 6.98843, 7.0024, 7.01195, 7.00206, 7.00462, 7.01092, 7.01655, 
  7.02949, 7.04449, 7.06851, 7.0835, 7.09662, 7.1174, 7.11876, 7.13188, 7.14738, 7.14584, 
  7.16662, 7.17122, 7.18519, 7.18842, 7.21806, 7.22385, 7.24309, 7.24326, 7.27102, 7.26455, 
  7.27442, 7.33078, 7.35717, 7.38152, 7.39156, 7.40109, 7.4188, 7.42509, 7.42492, 7.44109, 
  7.44365, 7.45029, 7.44841, 7.46918, 7.46901, 7.47463, 7.47241, 7.47633, 7.48194, 7.50577, 
  7.51071, 7.51275, 7.51871, 7.52449, 7.53947, 7.54798, 7.54542, 7.56006, 7.55938, 7.56431, 
  7.56312, 7.5735, 7.57265, 7.57725, 7.59137, 7.6026, 7.606, 7.62251, 7.62149, 7.65415, 
  7.65636, 7.66334, 7.66045, 7.69481, 7.68903, 7.69719, 7.69039, 7.69481, 7.68954, 7.6999, 
  7.6936, 7.7067, 7.71657, 7.71453, 7.72779, 7.72916, 7.73715, 7.73001, 7.7414, 7.73273, 
  7.74804, 7.74991, 7.73817, 7.75603, 7.73783, 7.73936, 7.73001, 7.74276, 7.72031, 7.72967, 
  7.71742, 7.70925, 7.73133, 7.72555, 7.73766, 7.78018, 7.76828, 7.79766, 7.78031, 7.80314, 
  7.79005, 7.81114, 7.83052, 7.84719, 7.8579, 7.86845, 7.87372, 7.88205, 7.8914, 7.88902, 
  7.89514, 7.91606, 7.92915, 7.93952, 7.9419, 7.94615, 7.95176, 7.95788, 7.9606, 7.96502, 
  7.96791, 7.97913, 7.99222, 8.00123, 8.00786, 8.01602, 8.01653, 8.02248, 8.02061, 8.0388,
  8.04576, 8.05647, 8.06055, 8.07432, 8.07687, 8.0614, 8.06497, 8.10933, 8.11613, 8.11086, 
  8.12989, 8.12615, 8.13652, 8.16014, 8.16796, 8.17645, 8.19106, 8.1914, 8.19837, 8.21757, 
  8.2383, 8.24764, 8.25223, 8.25002, 8.25596, 8.27754, 8.28756, 8.29521, 8.30132, 8.29792, 
  8.31219, 8.33478, 8.33529, 8.33071, 8.34175, 8.36111, 8.35092, 8.38624, 8.39626, 8.40136, 
  8.40798, 8.40951, 8.40509, 8.42021, 8.427, 8.43549, 8.4236, 8.44024, 8.44347, 8.44788, 
  8.44907, 8.46249, 8.45688, 8.44109, 8.43973, 8.46809, 8.46486, 8.45569, 8.44704, 8.45026, 
  8.44687, 8.44721, 8.43753, 8.43651, 8.43056, 8.42564, 8.43277, 8.44534, 8.44619, 8.45332, 
  8.44381, 8.45994, 8.45569, 8.46486, 8.47709, 8.48082, 8.47132, 8.47488, 8.46741, 8.47166, 
  8.46707, 8.47437, 8.46758, 8.46249, 8.46232, 8.454, 8.44704, 8.4489, 8.44211, 8.44721, 
  8.45349, 8.47199, 8.46486, 8.46588, 8.45569, 8.44873, 8.44551, 8.43668, 8.43209, 8.42547, 
  8.42156, 8.40934, 8.40713, 8.39473, 8.38658, 8.38522, 8.37707, 8.3786, 8.37062, 8.36807, 
  8.37334, 8.37877, 8.36858, 8.38268, 8.38743, 8.39932, 8.39728, 8.40221, 8.40492, 8.39762, 
  8.41121, 8.40934, 8.41426, 8.41155, 8.42326, 8.42581, 8.43787, 8.43973, 8.45654, 8.47845, 
  8.48303, 8.4876, 8.48777, 8.4932, 8.50101, 8.49405, 8.50406, 8.49303, 8.49048, 8.49609, 
  8.49558, 8.48878, 8.49014, 8.50916, 8.51765, 8.53004, 8.53462, 8.5409, 8.54566, 8.55737, 
  8.55398, 8.59998, 8.59879, 8.60767)
LONGITUDE_VALUEs <- c(
  41.90507, 41.89838, 41.89597, 41.88258, 41.87743, 41.87228, 41.87142, 41.86782, 41.86473, 41.86233, 
  41.85151, 41.85186, 41.84465, 41.84087, 41.83246, 41.8347, 41.83298, 41.83092, 41.82646, 41.82251, 
  41.81719, 41.81994, 41.79728, 41.79195, 41.78714, 41.78199, 41.77547, 41.75419, 41.75282, 41.72328, 
  41.72071, 41.7135, 41.69205, 41.68724, 41.68209, 41.67403, 41.66407, 41.65498, 41.62904, 41.61668, 
  41.60776, 41.60192, 41.59025, 41.57893, 41.56537, 41.54872, 41.52331, 41.51816, 41.50614, 41.50597, 
  41.48158, 41.47944, 41.4578, 41.4365, 41.43496, 41.42757, 41.39099, 41.37574, 41.35496, 41.34809, 
  41.33813, 41.32817, 41.30945, 41.27823, 41.27446, 41.25196, 41.23341, 41.22671, 41.21469, 41.20289, 
  41.20255, 41.18589, 41.18091, 41.16871, 41.16253, 41.1325, 41.13559, 41.12529, 41.11894, 41.10451, 
  41.08991, 41.07207, 41.05696, 41.04375, 41.03637, 41.0252, 41.02299, 41.00942, 40.99911, 40.98091, 
  40.96685, 40.90348, 40.89888, 40.88153, 40.88343, 40.87364, 40.85561, 40.84376, 40.81269, 40.7847, 
  40.78161, 40.77354, 40.76014, 40.74804, 40.71575, 40.69721, 40.40326, 40.38711, 40.37475, 40.21358, 
  40.19146, 40.17085, 39.8687, 39.78397, 39.77471, 39.7675, 39.75857, 39.6054, 39.58788, 39.56042, 
  39.55443, 39.51493, 39.4976, 39.49211, 39.48438, 39.47047, 39.45467, 39.44299, 39.42908, 39.42825, 
  39.41847, 39.41108, 39.33071, 39.33624, 39.33263, 39.32422, 39.30138, 39.28437, 39.26583, 39.25454, 
  39.23375, 39.22551, 39.19151, 39.18773, 39.17727, 39.15065, 39.15031, 39.1311, 39.10585, 39.08765, 
  39.07889, 39.07841, 39.05334, 39.03582, 39.03153, 39.02174, 39.02157, 39.01592, 39.013, 39.00837, 
  39.00322, 38.99926, 38.9656, 38.95908, 38.96011, 38.90587, 38.893, 38.71409, 38.71274, 38.69336, 
  38.68752, 38.67361, 38.67739, 38.66469, 38.62622, 38.61935, 38.61386, 38.60527, 38.57972, 38.55963, 
  38.55862, 38.55141, 38.55072, 38.54248, 38.53938, 38.51586, 38.52341, 38.52238, 38.50475, 38.44773, 
  38.18551, 38.12712, 38.11236, 38.03239, 38.00353, 37.99014, 37.13642, 37.13195, 37.11358, 37.09076, 
  37.07805, 37.06672, 37.05505, 37.05522, 37.0487, 37.04818, 37.04406, 37.03308, 37.02107, 37.01111, 
  37.0039, 36.97934, 36.9596, 36.95994, 36.90948, 36.87961, 36.8446, 36.66182, 36.64495, 36.62607, 
  36.54692, 36.51431, 36.26456, 36.24706, 36.23367, 36.03968, 35.96432, 35.95693, 35.95384, 35.96071, 
  35.95384, 35.94491, 35.94422,
  35.94885, 35.81786, 35.81855, 35.82988, 35.83726, 35.85151, 35.85632, 35.86627, 35.85683, 35.85443, 
  35.84155, 35.84121, 35.8261, 35.82868, 35.82799, 35.86319, 35.86147, 35.8388, 35.84062, 35.83015, 
  35.82157, 35.81881, 35.80474, 35.79942, 35.77281, 35.77401, 35.75427, 35.75359, 35.73539, 35.72853, 
  35.71617, 35.65763, 35.65454, 35.61951, 35.61608, 35.59875, 35.58313, 35.56699, 35.54554, 35.5421, 
  35.52546, 35.52408, 35.51705, 35.51447, 35.50605, 35.49781, 35.49232, 35.47996, 35.47876, 35.4743, 
  35.45182, 35.4489, 35.44375, 35.43071, 35.43071, 35.41474, 35.41113, 35.39054, 35.38882, 35.3804, 
  35.31517, 35.3162, 35.3083, 35.30247, 35.29611, 35.29714, 35.28873, 35.2913, 35.29491, 35.29232,
  35.29498, 35.30116, 35.30889, 35.30597, 35.31043, 35.31438, 35.12608, 35.12984, 35.04041, 35.00607, 
  34.99801, 35.00521, 35.01156, 35.00453, 34.99097, 34.9956, 35.00607, 35.00521, 35.00882, 35.00624, 
  35.00109, 35.00024, 34.99474, 34.99337, 35.00384, 35.00127, 35.00041, 34.9956, 34.98994, 34.98908, 
  34.98272, 34.97363, 34.97071, 34.97414, 34.96299, 34.96745, 34.9635, 34.96677, 34.96625, 34.96986, 
  34.96728, 34.97174, 34.97741, 34.97827, 34.97398, 34.97535, 34.96402, 34.96642, 34.96042, 34.96333, 
  34.9496, 34.95156, 34.96272, 34.9641, 34.96066, 34.96822, 34.96753, 34.97388, 34.98865, 34.98573, 
  34.99226, 34.98881, 34.99997, 34.98916, 34.99208, 34.98984, 34.99294, 35.0132, 35.01182, 35.01783, 
  35.02195, 35.01784, 35.00891, 34.9816, 34.97989, 34.96736, 34.95809, 34.9574, 34.96067, 34.95002, 
  34.95259, 34.94624, 34.94229, 34.9459, 34.94006, 34.93851, 34.92649, 34.92221, 34.91689, 34.90796, 
  34.90847, 34.9138, 34.90899, 34.89956, 34.8896, 34.88943, 34.88153, 34.88874, 34.89097, 34.8762, 
  34.87157, 34.86555, 34.85216, 34.83979, 34.83261, 34.81955, 34.81663, 34.79207, 34.79345, 34.78624, 
  34.784, 34.77799, 34.7761, 34.7682, 34.76463, 34.76652, 34.74884, 34.73887, 34.72737, 34.72704,
  34.71566, 34.7064, 34.71206, 34.70416, 34.69798, 34.68889, 34.6779, 34.66898, 34.66074, 34.65197, 
  34.62503, 34.62246, 34.61302, 34.60889, 34.58778, 34.56169, 34.55019, 34.54537, 34.53061, 34.52958, 
  34.53765, 34.5325, 34.54228, 34.53507, 34.54297, 34.52186, 34.53027, 34.52237, 34.51156, 34.51413, 
  34.46658, 34.45972, 34.458, 34.42985, 34.39398, 34.37938, 34.34265, 34.33338, 34.31346, 34.29338, 
  34.30144, 34.28925, 34.2829, 34.27638, 34.27364, 34.2527, 34.23691, 34.23089, 34.23415, 34.21904, 
  34.22436, 34.19166, 34.19612, 34.18736, 34.19543, 34.18925, 34.19509, 34.19011, 34.15784, 34.14067, 
  34.1283, 34.10307, 34.09742, 34.1024, 34.06978, 34.03783, 34.03304, 34.02325, 34.01106, 34.02566, 
  34.03974, 34.02996, 34.037, 34.00798, 34.00385, 34.00815, 34.00369, 33.99804, 33.99427, 33.98276, 
  33.97194, 33.96438, 33.95872, 33.95597, 33.9462, 33.94087, 33.92782, 33.9249, 33.93057, 33.90465, 
  33.90465, 33.89949, 33.89881, 33.90619, 33.89606, 33.87907, 33.87289, 33.86533, 33.84937, 33.83048, 
  33.81966, 33.8104, 33.80439, 33.80269, 33.78225, 33.77882, 33.76302, 33.7534, 33.73983, 33.72663, 
  33.71771, 33.71531, 33.69968, 33.64455, 33.63682, 33.62343, 33.60213, 33.59204, 33.58105, 33.55685, 
  33.54157, 33.53951, 33.52888, 33.52064, 33.52493, 33.51515, 33.51738, 33.50175, 33.49849, 33.4899, 
  33.47822, 33.46416, 33.45437, 33.43135, 33.4183, 33.4027, 33.40013, 33.38108, 33.36322, 33.34965, 
  33.34554, 33.32013, 33.31705, 33.30365, 33.30212, 33.23257, 33.22381, 33.16282, 33.1058, 33.09285, 
  33.04528, 33.04874, 33.02746, 33.01818, 33.00444, 33.00463, 32.99982, 33.00428, 33.00514, 33.01424, 
  33.01716, 32.99896, 33.00601, 33.00446, 32.99793, 32.99759, 33.00909, 33.01321, 33.02815, 33.03262, 
  33.03846, 33.04, 33.03448, 33.03963, 33.03826, 33.04805, 33.06127, 33.06797, 33.07725, 33.07895,
  33.08252, 33.07892, 33.08853, 33.08355, 33.10415, 33.11702, 33.12337, 33.11753, 33.14621, 33.16131, 
  33.17058, 33.191, 33.19375, 33.18225, 33.1898, 33.17556, 33.1771, 33.16766, 33.1656, 33.19976, 
  33.2056, 33.20011, 33.18895, 33.18295, 33.17436, 33.17041, 33.17539, 33.16938, 33.1723, 33.19667, 
  33.20285, 33.19049, 33.19993, 33.20319, 33.21847, 33.21692, 33.19444, 33.18586, 33.19478, 33.18809, 
  33.19101, 33.20577, 33.21658, 33.2171, 33.2135, 33.21916, 33.23186, 33.24971, 33.24268, 33.24285, 
  33.25761, 33.27263, 33.28173, 33.28499, 33.29478, 33.31176, 33.31811, 33.31931, 33.33803, 33.349, 
  33.36033, 33.36823, 33.3715, 33.38146, 33.38421, 33.39795, 33.39863, 33.40942, 33.41801, 33.42247, 
  33.44549, 33.46695, 33.4764, 33.49044, 33.48855, 33.49748, 33.50761, 33.51105, 33.52084, 33.53389, 
  33.54351, 33.56051, 33.56377, 33.56085, 33.5672, 33.56531, 33.57871, 33.5921, 33.59605, 33.60258, 
  33.60103, 33.61852, 33.6276, 33.63464, 33.65749, 33.66092, 33.67689, 33.6793, 33.67414, 33.67432, 
  33.67929, 33.67912, 33.68393, 33.69113, 33.68855, 33.69559, 33.7004, 33.70898, 33.71414, 33.73389, 
  33.73629, 33.75089, 33.76734, 33.79121, 33.78812, 33.80099, 33.81181, 33.8094, 33.81765, 33.82589, 
  33.84681, 33.85386, 33.85746, 33.8767, 33.87601, 33.88339, 33.88219, 33.87498, 33.87601, 33.8973, 
  33.89661, 33.9081, 33.92699, 33.92802, 33.94708, 33.95704, 33.97353, 33.9749, 33.99239, 33.99856, 
  34.00697, 34.0123, 34.02483, 34.03495, 34.03495, 34.04628, 34.05882, 34.0626, 34.07582, 34.0863, 
  34.09795, 34.13351, 34.13968, 34.14546)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_3, Geo)
Geo_3 <- st_set_geometry(Geo_3, Geo_0)
Geo_3 <- st_union(Geo_3, Geo)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}

##### UGANDA #####
Geo_0 <- Geometric_Operations(Geo_4, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_4 <- st_set_geometry(Geo_4, Geo_0)
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
LATITUDE_VALUEs <- c(
  3.75172, 3.75498, 4.23404,
  4.1789, 4.14397, 4.12103, 4.0938, 4.08558, 4.06127, 4.04911, 4.03627, 4.02754, 4.00938, 
  4.00254, 3.97633, 3.96144, 3.89893, 3.88523, 3.85995, 3.87263, 3.86852, 3.88051, 3.88119, 
  3.83084, 3.83152, 3.80994, 3.8072, 3.80035, 3.79795, 3.78322, 3.77397, 3.76678, 3.78528, 
  3.77397, 3.78596, 3.76301, 3.74725, 3.71128, 3.73286, 3.73629, 3.7195, 3.69141, 3.67393, 
  3.61089, 3.57491, 3.51734, 3.4913, 3.48821, 3.45052, 3.43201, 3.41145, 3.36895, 3.34393, 
  3.25687, 3.17598, 3.16706, 3.14101, 3.14924, 3.13648, 3.11025, 3.10751, 3.09106, 3.06894, 
  3.04974, 3.03483, 3.01975, 3.0062, 2.98186, 2.9246, 2.90677, 2.86734, 2.86271, 2.8778, 
  2.87351, 2.86494, 2.85637, 2.82516, 2.82774, 2.81556, 2.80185, 2.78779, 2.77013, 2.74972, 
  2.69742, 2.68336, 2.65558, 2.6206, 2.58322, 2.57087, 2.57224, 2.58922, 2.59334, 2.51668, 
  2.51599, 2.49902, 2.47226, 2.47295, 2.45734, 2.45614, 2.43402, 2.42836, 2.42167, 2.39371, 
  2.39148, 2.38805, 2.21026, 2.05175, 1.98416, 1.9622, 1.75872, 1.66503, 1.57676, 1.55239, 
  1.55548, 1.5282, 1.45492, 1.45218, 1.43073, 1.42352, 1.41185, 1.40413, 1.38388, 1.36517, 
  1.30991, 1.30305, 1.29652, 1.27505, 1.27042, 1.26252, 1.25034, 1.24862, 1.23026, 1.22837, 
  1.22288, 1.2246, 1.21928, 1.22237, 1.20915, 1.19182, 1.18838, 1.18375, 1.16521, 1.15972, 
  1.14977, 1.09879, 1.10772, 1.1036, 1.1024, 1.08026, 1.07648, 1.03169, 1.02516, 0.99787, 
  0.98105, 0.94158, 0.93506, 0.93231, 0.90759, 0.8985, 0.88408, 0.87395, 0.86503, 0.85404, 
  0.84906, 0.84271, 0.83997, 0.83173, 0.82932, 0.81971, 0.81765, 0.81353, 0.80787, 0.80049, 
  0.80238, 0.7895, 0.79448, 0.77886, 0.76135, 0.72874, 0.72651, 0.72033, 0.69613, 0.67862, 
  0.66386, 0.6606, 0.64326, 0.62884, 0.63296, 0.62833, 0.62575, 0.6309, 0.62283, 0.62573, 
  0.62178, 0.62487, 0.61801, 0.61972, 0.61337, 0.61063, 0.6041, 0.60599, 0.58007, 0.58316,
  0.55823, 0.53815, 0.52304, 0.52099, 0.51652, 0.51086, 0.48305, 0.47859, 0.45387, 0.43962, 
  0.43619, 0.42434, 0.41473, 0.37302, 0.35242, 0.34744, 0.32255, 0.32186, 0.31002, 0.3035, 
  0.29199, 0.28908, 0.27311, 0.26625, 0.25286, 0.24668, 0.24033, 0.10797, 0.09853, -0.13355, 
  -0.45747, -0.56201, -0.90479, -0.99078, -1.001099)
LONGITUDE_VALUEs <- c(
  33.51103, 33.51446, 33.98762,
  34.04758, 34.06577, 34.0493, 34.06303, 34.07967, 34.09152, 34.09118, 34.08723, 34.05891, 34.05994, 
  34.08225, 34.10594, 34.1346, 34.11899, 34.09119, 34.08871, 34.12303, 34.16559, 34.17143, 34.21605, 
  34.22738, 34.17967, 34.16354, 34.15289, 34.15392, 34.18724, 34.18964, 34.1663, 34.17042, 34.22293, 
  34.22808, 34.24113, 34.26071, 34.26586, 34.30842, 34.32695, 34.3654, 34.39529, 34.40593, 34.46327, 
  34.45297, 34.4564, 34.4516, 34.42446, 34.38808, 34.41794, 34.41897, 34.40146, 34.40043, 34.42962, 
  34.45124, 34.4562, 34.48265, 34.49399, 34.51219, 34.54581, 34.55886, 34.56315, 34.57242, 34.57483, 
  34.5726, 34.57586, 34.57672, 34.58736, 34.58839, 34.59851, 34.63956, 34.65293, 34.69243, 34.70171, 
  34.70888, 34.71146, 34.73636, 34.74959, 34.75525, 34.76623, 34.76726, 34.77585, 34.77755, 34.78494, 
  34.77533, 34.79078, 34.79918, 34.83198, 34.85102, 34.86854, 34.8785, 34.87987, 34.8967, 34.91334, 
  34.93344, 34.93651, 34.9487, 34.95437, 34.95334, 34.94819, 34.93102, 34.93256, 34.91659, 34.91471, 
  34.91935, 34.91763, 34.9451, 34.97977, 34.98389, 35.00003, 35.00002, 34.99109, 34.94355, 34.90577, 
  34.89031, 34.8639, 34.84347, 34.8299, 34.81685, 34.80004, 34.79283, 34.79987, 34.8076, 34.78717, 
  34.82889, 34.83009, 34.82786, 34.82905, 34.8318, 34.81944, 34.81789, 34.81377, 34.80519, 34.80075, 
  34.79319, 34.77997, 34.76966, 34.75678, 34.6687, 34.66409, 34.65621, 34.65535, 34.61722, 34.61276, 
  34.57875, 34.57431, 34.52553, 34.52626, 34.52145, 34.51424, 34.50463, 34.49089, 34.49192, 34.48729, 
  34.48986, 34.47973, 34.48076, 34.47647, 34.46497, 34.45243, 34.45209, 34.44659, 34.44797, 34.4423, 
  34.42204, 34.42154, 34.41501, 34.41553, 34.40849, 34.40917, 34.41501, 34.41106, 34.41518, 34.39749, 
  34.3865, 34.38376, 34.37809, 34.36884, 34.31389, 34.30773, 34.30996, 34.30738, 34.31374, 34.27734, 
  34.28095, 34.2782, 34.27906, 34.24815, 34.24128, 34.24042, 34.22908, 34.2217, 34.21586, 34.2073, 
  34.20524, 34.1982, 34.19614, 34.19202, 34.19133, 34.18566, 34.18635, 34.17725, 34.14258, 34.13828,
  34.12693, 34.1271, 34.11577, 34.12229, 34.12281, 34.11714, 34.1192, 34.1113, 34.08882, 34.09226, 
  34.08951, 34.0902, 34.10049, 34.10925, 34.0981, 34.09998, 34.07046, 34.05673, 34.06068, 34.049, 
  34.04968, 34.04025, 34.04093, 34.02429, 34.02239, 34.01329, 34.01209, 33.91184, 33.90944, 33.98394, 
  33.92901, 33.92503, 33.93364, 33.9333, 33.921082)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_4, Geo)
Geo_4 <- st_set_geometry(Geo_4, Geo_0)
Geo_4 <- st_union(Geo_4, Geo)
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
Geo_4 <- Geo_4 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("SOUTH SUDAN", "KENYA", "ETHIOPIA", "UGANDA"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3, Geo_4)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, Claimed_Area_1)

Numeric Code (M49_CODE) for SOUTH GEORGIA AND THE SOUTH SANDWICH ISLANDS (SGSSI).

No suitable Geometries in available sources. We create our own Geometries.

##### SOUTH GEORGIA AND THE SOUTH SANDWICH ISLANDS #####
LATITUDE_VALUEs <- c(-53.54857, -53.54857, -53.54785, -53.54759, -53.5468, -53.54704, -53.5479)
LONGITUDE_VALUEs <- c(-42.01996, -42.01751, -42.01717, -42.01861, -42.0197, -42.02167, -42.02159)
MGeo_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(-53.63595, -53.63596, -53.63483, -53.63419, -53.63408, -53.63534)
LONGITUDE_VALUEs <- c(-41.77772, -41.77676, -41.77469, -41.77486, -41.77557, -41.77782)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-54.00682, -54.00924, -54.01226, -54.01146, -54.01337, -54.01569, -54.01791, -54.01852, -54.01731, -54.01852, 
  -54.0169, -54.01852, -54.0169, -54.0163, -54.01791, -54.016, -54.01731, -54.01499, -54.01418, -54.01065, 
  -54.01085, -54.00682, -54.00793, -54.0046, -54.00207, -54.00369, -54.00278, -54.00107, -54.00016, -54.0047, 
  -54.00278, -54.00682, -54.00803)
LONGITUDE_VALUEs <- c(-38.23084, -38.23598, -38.23255, -38.23839, -38.24336, -38.23753, -38.23513, -38.23118, -38.23049, -38.22775, 
  -38.22397, -38.21299, -38.21333, -38.20492, -38.20355, -38.20166, -38.20012, -38.19909, -38.19291, -38.19291, 
  -38.19068, -38.18896, -38.19256, -38.19634, -38.196, -38.20303, -38.20561, -38.20389, -38.20681, -38.22191, 
  -38.22895, -38.2365, -38.23581)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -54.00172, -54.00525, -54.00535, -54.00131, -53.99879, -54.00121, -53.99849, -53.9998, -53.99839, -53.99828, 
  -54.0003, -54.00192, -54.00626, -54.00656)
LONGITUDE_VALUEs <- c(
  -38.16636, -38.16602, -38.16293, -38.15452, -38.15829, -38.1631, -38.16396, -38.16567, -38.16619, -38.17219, 
  -38.17683, -38.17425, -38.17408, -38.17134)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -54.00391, -54.003, -53.99998, -53.99988, -54.0025, -54.00078, -54.00684, -54.00643, -54.00785, -54.00643, 
  -54.00845, -54.00946, -54.01067, -54.01178, -54.01269, -54.01602, -54.01531, -54.02167, -54.02136, -54.01935, 
  -54.02136, -54.02096, -54.01854, -54.01622, -54.0135, -54.01229, -54.0142, -54.01148, -54.00966, -54.00865, 
  -54.01269, -54.01249, -54.01047, -54.01067, -54.00906, -54.00906)
LONGITUDE_VALUEs <- c(
  -38.01675, -38.01023, -38.01212, -38.03494, -38.04198, -38.05159, -38.06068, -38.06377, -38.06858, -38.07338, 
  -38.07819, -38.07132, -38.07716, -38.07356, -38.07785, -38.07991, -38.07287, -38.08076, -38.07716, -38.07476, 
  -38.0739, -38.06755, -38.06772, -38.06068, -38.0636, -38.0612, -38.05965, -38.05536, -38.05811, -38.05227, 
  -38.05004, -38.04043, -38.04181, -38.03494, -38.03014, -38.02361)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -54.49956, -54.49766, -54.49985, -54.49896, -54.50195, -54.50334, -54.50833, -54.50833, -54.51241, -54.51451, 
  -54.51112, -54.51421, -54.51361, -54.50962, -54.51082, -54.50803, -54.50853, -54.50653, -54.50952, -54.50474, 
  -54.50235, -54.50514, -54.49916, -54.49766, -54.49347, -54.49138, -54.48969, -54.48869, -54.48639, -54.48629, 
  -54.4841, -54.4837, -54.48171, -54.48161, -54.47872, -54.48001, -54.47822, -54.47672, -54.47383, -54.47512, 
  -54.47582, -54.47343, -54.47582, -54.47702, -54.47882, -54.47732, -54.47852, -54.48201, -54.48181, -54.4846, 
  -54.48739, -54.49108, -54.49108, -54.49317, -54.49856)
LONGITUDE_VALUEs <- c(
  -37.08951, -37.08299, -37.08162, -37.07853, -37.0775, -37.08694, -37.08643, -37.09037, -37.10016, -37.0981, 
  -37.08969, -37.08643, -37.07922, -37.07905, -37.07716, -37.07064, -37.06206, -37.05811, -37.05141, -37.05038, 
  -37.04232, -37.03391, -37.02396, -37.03357, -37.03751, -37.04524, -37.04369, -37.04764, -37.04936, -37.05399, 
  -37.05708, -37.0624, -37.06412, -37.06704, -37.0691, -37.07253, -37.07665, -37.07476, -37.0842, -37.08489, 
  -37.08987, -37.0921, -37.10274, -37.10016, -37.10892, -37.11441, -37.11715, -37.11235, -37.12591, -37.11338, 
  -37.11321, -37.11848, -37.10405, -37.09873, -37.09564)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -54.81404, -54.82492, -54.82265, -54.82601, -54.82334, -54.82185, -54.82057, -54.82136, -54.81414, -54.81325, 
  -54.80989, -54.80632, -54.80712, -54.80286, -54.80128, -54.80316, -54.80256, -54.80454, -54.80444, -54.80583)
LONGITUDE_VALUEs <- c(
  -35.79897, -35.80292, -35.79331, -35.78593, -35.78027, -35.78095, -35.77958, -35.77752, -35.77598, -35.77855, 
  -35.77666, -35.77769, -35.77306, -35.77186, -35.77804, -35.78044, -35.79777, -35.80344, -35.80927, -35.81047)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-54.01964, -54.02428, -54.0271, -54.03012, -54.02307, -54.02377, -54.01954, -54.02044, -54.01883)
LONGITUDE_VALUEs <- c(-37.34016, -37.33724, -37.34891, -37.33072, -37.31905, -37.32506, -37.33175, -37.33467, -37.33724)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-54.1562, -54.16223, -54.16233, -54.15992, -54.15861, -54.15841, -54.1561)
LONGITUDE_VALUEs <- c(-36.67067, -36.67118, -36.66432, -36.66741, -36.66655, -36.66071, -36.66569)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-54.02917, -54.02736, -54.02201, -54.0208, -54.02383, -54.02564, -54.02887, -54.03048, -54.03149)
LONGITUDE_VALUEs <- c(-37.25424, -37.25493, -37.24961, -37.25545, -37.25527, -37.26248, -37.26231, -37.26506, -37.25871)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -54.1377, -54.13609, -54.14303, -54.14172, -54.14504, -54.14263, -54.14384, -54.13609, -54.13549, -54.1381, 
  -54.1366)
LONGITUDE_VALUEs <- c(
  -37.75385, -37.75676, -37.76346, -37.75402, -37.7499, -37.74681, -37.74286, -37.73703, -37.74063, -37.74698, 
  -37.75041)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-54.63401, -54.6355, -54.63818, -54.63699, -54.63937, -54.63679, -54.63917)
LONGITUDE_VALUEs <- c(-36.75455, -36.76708, -36.76639, -36.76382, -36.7633, -36.75781, -36.75764)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -54.02481, -54.01745, -54.02058, -54.01019, -54.01584, -54.01816, -54.02562, -54.02461, -54.02784, -54.02844, 
  -54.03026, -54.03207, -54.0356, -54.03883, -54.04135, -54.04629, -54.05062, -54.05364, -54.05586, -54.06019, 
  -54.06402, -54.05989, -54.05959, -54.07027, -54.06845, -54.061, -54.05757, -54.05274, -54.04609, -54.05012, 
  -54.04619, -54.04659, -54.03419, -54.03399, -54.03812, -54.04115, -54.03832, -54.03893, -54.04447, -54.04619, 
  -54.04649, -54.0483, -54.04488, -54.04578, -54.04901, -54.05012, -54.05153, -54.05082, -54.0481, -54.0483, 
  -54.05385, -54.05455, -54.05868, -54.05526, -54.05677, -54.05284, -54.05808, -54.05465, -54.05687, -54.0485, 
  -54.04931, -54.04447, -54.04185, -54.03661, -54.0355, -54.04115, -54.04609, -54.05405, -54.05193, -54.05868, 
  -54.04992, -54.04921, -54.05244, -54.0481, -54.05284, -54.05324, -54.05808, -54.05314, -54.05334, -54.04941, 
  -54.04609, -54.04931, -54.04941, -54.04699, -54.0477, -54.035, -54.03691, -54.03328, -54.03893, -54.04095, 
  -54.04256, -54.04538, -54.04669, -54.04609, -54.04992, -54.05052, -54.04951, -54.04911, -54.05102, -54.05002, 
  -54.04357, -54.05556, -54.06805, -54.07963, -54.07772, -54.08527, -54.08819, -54.09142, -54.09454, -54.09615, 
  -54.09977, -54.10148, -54.10259, -54.10561, -54.10621, -54.11104, -54.11074, -54.11306, -54.11074, -54.11185, 
  -54.10903, -54.11316, -54.1035, -54.10591, -54.11578, -54.11538, -54.12132, -54.12031, -54.13108, -54.13218, 
  -54.13741, -54.14244, -54.14928, -54.14948, -54.14706, -54.14797, -54.15269, -54.15219, -54.15903, -54.15591, 
  -54.16064, -54.16435, -54.17481, -54.17983, -54.17631, -54.18194, -54.17953, -54.18676, -54.18023, -54.18355, 
  -54.18053, -54.18164, -54.17471, -54.17953, -54.17541, -54.17531, -54.16928, -54.16928, -54.16415, -54.1538, 
  -54.15199, -54.14807, -54.15018, -54.14696, -54.14425, -54.14264, -54.12846, -54.12876, -54.12534, -54.136, 
  -54.14083, -54.14194, -54.13299, -54.12605, -54.12796, -54.13852, -54.14324, -54.14153, -54.15089, -54.15291, 
  -54.14989, -54.1524, -54.14647, -54.14899, -54.14425, -54.1503, -54.1489, -54.15171, -54.15684, -54.15925, 
  -54.16779, -54.16287, -54.16779, -54.17392, -54.17563, -54.17101, -54.17372, -54.18096, -54.17563, -54.18136, 
  -54.18588, -54.18426, -54.20706, -54.20917, -54.21167, -54.21318, -54.20987, -54.21208, -54.21489, -54.21991, 
  -54.22482, -54.22452, -54.23165, -54.22763, -54.23145, -54.23195, -54.23596, -54.23757, -54.24198, -54.2485, 
  -54.25151, -54.25321, -54.26154, -54.26324, -54.26986, -54.27327, -54.27627, -54.26966, -54.27166, -54.26775, 
  -54.26675, -54.27166, -54.26855, -54.27156, -54.26725, -54.26796, -54.27658, -54.27939, -54.2815, -54.2815, 
  -54.27578, -54.27488, -54.27989, -54.27839, -54.27448, -54.26997, -54.27308, -54.26967, -54.27338, -54.26265, 
  -54.26526, -54.26085, -54.26185, -54.25333, -54.25252, -54.2461, -54.23928, -54.24049, -54.2456, -54.2449, 
  -54.24089, -54.23878, -54.23517, -54.22905, -54.23166, -54.23587, -54.23778, -54.24119, -54.25553, -54.25312, 
  -54.25633, -54.25914, -54.26476, -54.26857, -54.27204, -54.26412, -54.27044, -54.27224, -54.28347, -54.27745, 
  -54.28046, -54.28758, -54.28758, -54.27956, -54.28758, -54.29489, -54.31021, -54.31742, -54.32664, -54.32984, 
  -54.33895, -54.33614, -54.34835, -54.34915, -54.35666, -54.35666, -54.36076, -54.36046, -54.36386, -54.35726, 
  -54.35956, -54.35636, -54.35836, -54.35115, -54.34135, -54.34215, -54.33815, -54.34015, -54.33845, -54.34135, 
  -54.34055, -54.34775, -54.34695, -54.35326, -54.35396, -54.36066, -54.36136, -54.36376, -54.36256, -54.36616, 
  -54.36666, -54.37186, -54.37146, -54.37536, -54.37626, -54.38965, -54.39005, -54.38406, -54.38975, -54.38156, 
  -54.38276, -54.38536, -54.38925, -54.39675, -54.40494, -54.40584, -54.40854, -54.40904, -54.40574, -54.40604, 
  -54.40914, -54.40095, -54.41084, -54.41134, -54.41953, -54.42692, -54.43251, -54.43261, -54.44968, -54.44998, 
  -54.45347, -54.45926, -54.45836, -54.46425, -54.46166, -54.47153, -54.46655, -54.47323, -54.47782, -54.48151, 
  -54.48649, -54.4856, -54.49118, -54.4841, -54.4844, -54.47971, -54.48041, -54.48689, -54.49198, -54.49487, 
  -54.50843, -54.50863, -54.51251, -54.51849, -54.51311, -54.51949, -54.50972, -54.50703, -54.51032, -54.50414, 
  -54.50892, -54.49756, -54.51211, -54.5155, -54.5154, -54.52068, -54.52566, -54.52188, -54.52806, -54.52467, 
  -54.52915, -54.54927, -54.55444, -54.56599, -54.56997, -54.57196, -54.57594, -54.57564, -54.57992, -54.57803, 
  -54.584, -54.5836, -54.59076, -54.58868, -54.59325, -54.59763, -54.60369, -54.60707, -54.60986, -54.60459, 
  -54.60648, -54.61433, -54.62328, -54.62557, -54.63154, -54.63134, -54.64177, -54.64157, -54.64733, -54.65001, 
  -54.65796, -54.65816, -54.66292, -54.6662, -54.67414, -54.6796, -54.69528, -54.69815, -54.70916, -54.71065, 
  -54.71303, -54.71303, -54.72245, -54.72909, -54.73256, -54.74535, -54.75208, -54.75614, -54.75575, -54.75951, 
  -54.76347, -54.76229, -54.76664, -54.76644, -54.77011, -54.77239, -54.77476, -54.7806, -54.78506, -54.7905, 
  -54.79604, -54.79565, -54.8005, -54.80129, -54.80446, -54.80208, -54.80416, -54.80198, -54.80525, -54.80703, 
  -54.80742, -54.81306, -54.80841, -54.81079, -54.81138, -54.81614, -54.8198, -54.82326, -54.82336, -54.82633, 
  -54.82583, -54.829, -54.8283, -54.82989, -54.83008, -54.83275, -54.83048, -54.83483, -54.83532, -54.83859, 
  -54.84234, -54.84709, -54.84768, -54.85134, -54.84867, -54.85302, -54.8631, -54.86428, -54.85746, -54.85657, 
  -54.86883, -54.86794, -54.87446, -54.87673, -54.87939, -54.88147, -54.8871, -54.88641, -54.89162, -54.89322, 
  -54.90013, -54.89638, -54.89035, -54.88581, -54.88196, -54.88117, -54.87752, -54.87673, -54.87139, -54.87671, 
  -54.8847, -54.88669, -54.88462, -54.88541, -54.87375, -54.87277, -54.86723, -54.86307, -54.85863, -54.85803, 
  -54.87394, -54.87671, -54.88382, -54.87917, -54.88322, -54.87572, -54.87196, -54.86209, -54.85428, -54.85191, 
  -54.85873, -54.86861, -54.87108, -54.87335, -54.87789, -54.88342, -54.87414, -54.87305, -54.86604, -54.86041, 
  -54.85695, -54.85092, -54.84924, -54.85981, -54.85912, -54.86001, -54.85626, -54.85329, -54.84796, -54.84341, 
  -54.84064, -54.83629, -54.83244, -54.8353, -54.83263, -54.84519, -54.83362, -54.83145, -54.8352, -54.83975, 
  -54.8358, -54.82779, -54.8268, -54.82403, -54.82413, -54.81928, -54.82324, -54.81958, -54.82166, -54.81533, 
  -54.80909, -54.81632, -54.81295, -54.79811, -54.79425, -54.78564, -54.78693, -54.78238, -54.77941, -54.78238, 
  -54.77723, -54.76356, -54.7596, -54.77188, -54.79138, -54.78683, -54.7899, -54.79386, -54.79643, -54.8084, 
  -54.81533, -54.81088, -54.81167, -54.81434, -54.81444, -54.81127, -54.81167, -54.80801, -54.80623, -54.79465, 
  -54.79277, -54.80336, -54.80346, -54.79821, -54.79791, -54.7901, -54.79198, -54.79544, -54.79603, -54.80078, 
  -54.7989, -54.80009, -54.79861, -54.80019, -54.79683, -54.79841, -54.79465, -54.79732, -54.79336, -54.7897, 
  -54.7896, -54.78426, -54.78416, -54.78158, -54.78287, -54.78069, -54.78376, -54.77851, -54.77713, -54.77267, 
  -54.7696, -54.77069, -54.76822, -54.76782, -54.76079, -54.76386, -54.75861, -54.76485, -54.76297, -54.76376, 
  -54.7598, -54.75772, -54.75514, -54.75098, -54.75098, -54.75702, -54.74583, -54.74306, -54.73324, -54.73711, 
  -54.73067, -54.73007, -54.74058, -54.73324, -54.72799, -54.71629, -54.70945, -54.72085, -54.71738, -54.71917, 
  -54.71629, -54.70727, -54.70827, -54.69349, -54.68913, -54.69825, -54.69607, -54.69875, -54.69518, -54.70093, 
  -54.69786, -54.69795, -54.69577, -54.69369, -54.68645, -54.68446, -54.68198, -54.6795, -54.67305, -54.67067, 
  -54.66987, -54.66679, -54.66342, -54.66282, -54.65617, -54.64932, -54.64544, -54.64395, -54.63362, -54.63243, 
  -54.6213, -54.6218, -54.62845, -54.61703, -54.61891, -54.61394, -54.61305, -54.60619, -54.60042, -54.59167, 
  -54.5866, -54.59137, -54.57426, -54.57058, -54.5675, -54.56531, -54.56242, -54.55874, -54.55485, -54.55266, 
  -54.5452, -54.54759, -54.54689, -54.55336, -54.55923, -54.56521, -54.5659, -54.57416, -54.57386, -54.57904, 
  -54.59734, -54.59694, -54.59298, -54.59188, -54.57942, -54.58054, -54.57686, -54.57258, -54.56571, -54.57188, 
  -54.57198, -54.5695, -54.57228, -54.57567, -54.58422, -54.59248, -54.58969, -54.61445, -54.61227, -54.5698, 
  -54.5683, -54.5467, -54.55058, -54.53893, -54.53654, -54.5213, -54.51682, -54.52041, -54.51662, -54.51303, 
  -54.50974, -54.51214, -54.50935, -54.51074, -54.50496, -54.50596, -54.50396, -54.50596, -54.50267, -54.50207, 
  -54.49798, -54.50067, -54.48442, -54.48223, -54.47545, -54.47485, -54.46816, -54.47275, -54.47116, -54.47535, 
  -54.46806, -54.46946, -54.46458, -54.46448, -54.46139, -54.46702, -54.46049, -54.46379, -54.4567, -54.4562, 
  -54.43883, -54.43294, -54.43324, -54.42266, -54.41117, -54.40265, -54.39065, -54.38975, -54.37506, -54.38835, 
  -54.38556, -54.38656, -54.38206, -54.39325, -54.38845, -54.38116, -54.37596, -54.36926, -54.36726, -54.36226, 
  -54.36036, -54.35916, -54.35155, -54.35005, -54.34845, -54.34905, -54.34485, -54.35125, -54.34835, -54.34525, 
  -54.34055, -54.33735, -54.34035, -54.33735, -54.33204, -54.33404, -54.32994, -54.33254, -54.32754, -54.32353, 
  -54.32033, -54.32403, -54.32333, -54.32403, -54.32253, -54.31853, -54.31392, -54.30941, -54.3015, -54.29379, 
  -54.29058, -54.29158, -54.29018, -54.28607, -54.28798, -54.29038, -54.29379, -54.28968, -54.29329, -54.29419, 
  -54.29719, -54.3005, -54.2992, -54.2998, -54.29238, -54.28998, -54.28277, -54.28307, -54.28096, -54.28226, 
  -54.27785, -54.28096, -54.27956, -54.27505, -54.27224, -54.27014, -54.26552, -54.27395, -54.27294, -54.26843, 
  -54.26302, -54.26242, -54.25961, -54.26362, -54.26532, -54.26161, -54.26282, -54.2566, -54.2566, -54.25189, 
  -54.24958, -54.24487, -54.24788, -54.25119, -54.25259, -54.26542, -54.27104, -54.27455, -54.27695, -54.3006, 
  -54.30471, -54.31142, -54.31772, -54.32453, -54.33104, -54.35205, -54.35906, -54.39455, -54.38086, -54.37886, 
  -54.35796, -54.32403, -54.31853, -54.31582, -54.32293, -54.32613, -54.36536, -54.36556, -54.37426, -54.37266, 
  -54.36916, -54.36216, -54.35646, -54.35265, -54.35696, -54.33835, -54.31112, -54.30591, -54.3002, -54.29248, 
  -54.28277, -54.27896, -54.28126, -54.28377, -54.28096, -54.26873, -54.26502, -54.25991, -54.2571, -54.25329, 
  -54.25229, -54.24627, -54.24587, -54.23945, -54.24457, -54.24376, -54.24687, -54.24778, -54.25169, -54.25339, 
  -54.24798, -54.24025, -54.23975, -54.24457, -54.24366, -54.24809, -54.2536, -54.25762, -54.27045, -54.27175, 
  -54.27716, -54.28077, -54.28368, -54.28448, -54.27486, -54.27486, -54.28448, -54.28608, -54.28849, -54.2958, 
  -54.29921, -54.30382, -54.30061, -54.2934, -54.28979, -54.28147, -54.27135, -54.26102, -54.25561, -54.24819, 
  -54.25701, -54.25611, -54.2511, -54.24799, -54.24287, -54.23966, -54.24989, -54.24719, -54.24739, -54.23595, 
  -54.23073, -54.21999, -54.2225, -54.22762, -54.22632, -54.22993, -54.23314, -54.23665, -54.23475, -54.24347, 
  -54.23776, -54.23996, -54.22632, -54.21698, -54.21588, -54.21949, -54.21427, -54.21347, -54.20474, -54.20203, 
  -54.1956, -54.19469, -54.18907, -54.19289, -54.18977, -54.19851, -54.199, -54.19488, -54.18986, -54.18836, 
  -54.19629, -54.19539, -54.1976, -54.19689, -54.20011, -54.19227, -54.19117, -54.18956, -54.18956, -54.18153, 
  -54.18183, -54.18504, -54.18574, -54.18374, -54.18534, -54.17942, -54.17881, -54.1756, -54.1761, -54.17289, 
  -54.17278, -54.16947, -54.16766, -54.16424, -54.16575, -54.16454, -54.16846, -54.16736, -54.17007, -54.16716, 
  -54.1758, -54.17439, -54.17861, -54.17711, -54.18333, -54.18223, -54.19257, -54.19187, -54.18765, -54.18715, 
  -54.17409, -54.17379, -54.17037, -54.17027, -54.16736, -54.16897, -54.16776, -54.16575, -54.16505, -54.16676, 
  -54.16434, -54.16424, -54.16083, -54.15691, -54.1561, -54.15359, -54.15288, -54.14655, -54.14203, -54.13861, 
  -54.1368, -54.13971, -54.14434, -54.14625, -54.14072, -54.13881, -54.13469, -54.13116, -54.12302, -54.12684, 
  -54.12322, -54.12473, -54.12342, -54.12815, -54.12644, -54.11728, -54.11477, -54.11547, -54.11849, -54.11829, 
  -54.11607, -54.1195, -54.11809, -54.11255, -54.11426, -54.11155, -54.11406, -54.11245, -54.10521, -54.11366, 
  -54.10692, -54.11014, -54.11004, -54.11869, -54.12724, -54.15138, -54.1551, -54.15188, -54.14293, -54.1381, 
  -54.13177, -54.12443, -54.121, -54.11607, -54.10923, -54.10118, -54.09514, -54.09232, -54.08588, -54.09383, 
  -54.08638, -54.08819, -54.08306, -54.07963, -54.08417, -54.08094, -54.0884, -54.08578, -54.09615, -54.10088, 
  -54.10631, -54.1205, -54.12694, -54.13086, -54.12704, -54.13479, -54.14113, -54.11357, -54.11116, -54.1031, 
  -54.09183, -54.0881, -54.0874, -54.08267, -54.08055, -54.07904, -54.07572, -54.0735, -54.07068, -54.07189, 
  -54.06121, -54.0594, -54.06585, -54.06363, -54.05617, -54.05859, -54.06141, -54.06262, -54.06675, -54.06756, 
  -54.07401, -54.08257, -54.08025, -54.07411, -54.0734, -54.06837, -54.07239, -54.08075, -54.07834, -54.0869, 
  -54.08831, -54.10995, -54.11729, -54.11991, -54.12916, -54.12816, -54.13208, -54.12574, -54.13419, -54.13128, 
  -54.12715, -54.12011, -54.11609, -54.11659, -54.11075, -54.09938, -54.09113, -54.08055, -54.07582, -54.07169, 
  -54.06756, -54.06665, -54.06907, -54.06665, -54.06674, -54.06372, -54.06917, -54.06736, -54.06857, -54.06635, 
  -54.06282, -54.0593, -54.0591, -54.058, -54.05679, -54.0576, -54.05336, -54.04913, -54.04258, -54.0453, 
  -54.0449, -54.04742, -54.0451, -54.04581, -54.04419, -54.04308, -54.04661, -54.0445, -54.0456, -54.04812, 
  -54.05467, -54.05951, -54.05951, -54.06425, -54.06566, -54.06757, -54.06787, -54.06948, -54.06938, -54.06777, 
  -54.06485, -54.06666, -54.06092, -54.05931, -54.05568, -54.0575, -54.05518, -54.06122, -54.06334, -54.07231, 
  -54.07513, -54.07774, -54.09275, -54.09406, -54.09043, -54.09013, -54.086, -54.08348, -54.07875, -54.07583, 
  -54.07422, -54.06415, -54.06132, -54.0586, -54.05679, -54.05568, -54.06203, -54.06042, -54.05296, -54.05397, 
  -54.05023, -54.05214, -54.05247, -54.05438, -54.05989, -54.06352, -54.0613, -54.06815, -54.06352, -54.06483, 
  -54.06211, -54.06473, -54.06332, -54.06624, -54.06312, -54.05969, -54.0604, -54.05667, -54.05747, -54.05606, 
  -54.05566, -54.05364, -54.04709, -54.0473, -54.04467, -54.04175, -54.03883, -54.03843, -54.03389, -54.03328, 
  -54.02925, -54.02522, -54.02139, -54.02098, -54.01604, -54.00928, -54.0111, -54.00807, -54.00565, -54.00504, 
  -54.00797, -54.00817, -53.99728, -53.99344, -53.99384, -53.99142, -53.99051, -53.99263, -53.99062, -53.99112, 
  -53.99475, -53.99001, -53.98688, -53.98587, -53.99132, -53.99193, -53.99546, -54.00353, -54.00151, -53.99586, 
  -53.99808, -54.0004, -54.00141, -54.00484, -54.00767, -54.01221, -54.01402, -54.0112, -54.01876, -54.02128, 
  -54.02532, -54.02461, -54.02512, -54.01987, -54.02108, -54.02058, -54.02461, -54.02774, -54.02481, -54.02028, 
  -54.02108, -54.01382, -54.01312, -54.01019, -54.0111, -54.01342, -54.01433, -54.01301, -54.01584, -54.01231, 
  -54.01241, -54.00666, -54.00999, -54.00807, -54.01271, -54.01503, -54.0118, -54.01533, -54.01574, -54.00888, 
  -54.00686, -54.00232, -54.00172, -53.99314, -53.9893, -53.98728, -53.98991, -53.98668, -53.99203, -53.98224, 
  -53.98173, -53.9781, -53.97547, -53.98113, -53.97628, -53.97709, -53.98294, -53.98668, -53.9888, -53.99294, 
  -53.99465, -53.99707, -53.99788, -54.00182, -54.00212, -54.00504, -54.00757, -54.00454, -54.00737, -54.00656, 
  -54.00938, -54.01009, -54.01453, -54.01503, -54.01695, -54.01816, -54.01775, -54.01433, -54.01352, -54.01634, 
  -54.01533, -54.01987, -54.02391, -54.01866, -54.01402, -54.0115, -54.00797, -54.00404, -54.00777, -54.00161, 
  -54.00404, -54.00101, -54.0118, -54.01392, -54.01513, -54.01665, -54.01806, -54.01917, -54.02128, -54.02563, 
  -54.03047, -54.02846, -54.02452)
LONGITUDE_VALUEs <- c(
  -37.97427, -37.97839, -37.98406, -38.00877, -38.02061, -38.01083, -38.00791, -38.00259, -38.00173, -37.99435, 
  -37.99693, -37.99109, -38.00208, -38.00019, -38.01152, -38.00568, -38.01667, -38.00757, -38.00723, -38.02147, 
  -38.02113, -38.0086, -37.99762, -38.0134, -37.98903, -37.98595, -37.97754, -37.99126, -37.97993, -37.97839, 
  -37.97187, -37.9662, -37.96861, -37.95882, -37.95727, -37.94405, -37.94114, -37.93702, -37.94028, -37.94749, 
  -37.94199, -37.93805, -37.93736, -37.92277, -37.92054, -37.92775, -37.92809, -37.91762, -37.91831, -37.91076, 
  -37.9099, -37.90364, -37.90433, -37.89402, -37.89024, -37.88166, -37.86706, -37.86074, -37.85868, -37.84597, 
  -37.84081, -37.84219, -37.82656, -37.8257, -37.81608, -37.81042, -37.82244, -37.82089, -37.81454, -37.7941, 
  -37.79547, -37.79001, -37.78915, -37.77936, -37.77404, -37.7603, -37.76081, -37.74604, -37.7402, -37.73818, 
  -37.73131, -37.72787, -37.71482, -37.71396, -37.70881, -37.70074, -37.68854, -37.66879, -37.6645, -37.67206, 
  -37.66416, -37.66398, -37.66828, -37.67343, -37.66965, -37.66142, -37.6609, -37.65438, -37.65232, -37.63604, 
  -37.61046, -37.60496, -37.64377, -37.64462, -37.67434, -37.70193, -37.69918, -37.71309, -37.71017, -37.72151, 
  -37.72133, -37.73078, -37.71875, -37.71772, -37.72769, -37.72889, -37.71706, -37.71277, -37.69783, -37.69233, 
  -37.68666, -37.68357, -37.6755, -37.65815, -37.64769, -37.64219, -37.64082, -37.66005, -37.68341, -37.69713, 
  -37.70589, -37.72873, -37.7289, -37.72255, -37.72255, -37.70074, -37.70572, -37.69731, -37.68838, -37.67396, 
  -37.66966, -37.68478, -37.68496, -37.67105, -37.65404, -37.65026, -37.63154, -37.61922, -37.61132, -37.60153, 
  -37.5993, -37.58916, -37.58693, -37.57749, -37.56564, -37.55843, -37.55293, -37.54658, -37.5416, -37.54606, 
  -37.58349, -37.57903, -37.56597, -37.56134, -37.56563, -37.55773, -37.56786, -37.55996, -37.55584, -37.5409, 
  -37.54382, -37.51038, -37.48893, -37.48893, -37.47673, -37.47416, -37.45475, -37.44668, -37.42986, -37.40464, 
  -37.38644, -37.38403, -37.32569, -37.31761, -37.28825, -37.25836, -37.24807, -37.23434, -37.23365, -37.22232, 
  -37.22094, -37.2589, -37.29734, -37.28995, -37.2951, -37.3018, -37.34351, -37.34626, -37.35279, -37.39864, 
  -37.39638, -37.4127, -37.40051, -37.39021, -37.39467, -37.38179, -37.38025, -37.37097, -37.37097, -37.33851, 
  -37.33613, -37.32926, -37.32703, -37.31106, -37.30591, -37.31174, -37.31501, -37.33476, -37.33029, -37.40447, 
  -37.40859, -37.4177, -37.4122, -37.41701, -37.41426, -37.41804, -37.41546, -37.40344, -37.39657, -37.39245, 
  -37.38455, -37.38661, -37.37922, -37.37579, -37.36909, -37.35123, -37.36463, -37.36068, -37.36755, -37.35655, 
  -37.3569, -37.34762, -37.34659, -37.34161, -37.34178, -37.32755, -37.32274, -37.31519, -37.30282, -37.29235, 
  -37.2841, -37.28052, -37.27297, -37.27194, -37.26455, -37.26506, -37.25442, -37.25012, -37.24961, -37.24222, 
  -37.24223, -37.23656, -37.23862, -37.23021, -37.21716, -37.21716, -37.21339, -37.21596, -37.20549, -37.19501, 
  -37.19433, -37.20944, -37.21133, -37.1739, -37.1698, -37.15331, -37.14987, -37.13837, -37.13236, -37.11192, 
  -37.10291, -37.11012, -37.10497, -37.09262, -37.07854, -37.08867, -37.08421, -37.1048, -37.10326, -37.06807, 
  -37.06961, -37.05382, -37.04267, -37.02396, -37.0236, -37.01365, -37.01382, -36.99048, -36.97744, -36.96833, 
  -36.96009, -36.95666, -36.94962, -36.94276, -36.95237, -36.93777, -36.93794, -36.93022, -36.92112, -36.91615, 
  -36.91066, -36.9007, -36.8856, -36.86945, -36.85315, -36.85057, -36.8746, -36.88181, -36.89228, -36.89451, 
  -36.9024, -36.90189, -36.88404, -36.88455, -36.88867, -36.89022, -36.87958, -36.87546, -36.85504, -36.8492, 
  -36.8444, -36.84775, -36.84328, -36.84827, -36.83523, -36.84124, -36.83866, -36.83282, -36.83076, -36.8184, 
  -36.80809, -36.80088, -36.78939, -36.77377, -36.76896, -36.80383, -36.78888, -36.80313, -36.81086, -36.81842, 
  -36.81533, -36.81876, -36.80193, -36.78873, -36.76794, -36.75214, -36.74287, -36.73308, -36.73703, -36.71181, 
  -36.70855, -36.68983, -36.68313, -36.67059, -36.65582, -36.65479, -36.64174, -36.64449, -36.64105, -36.65788, 
  -36.6603, -36.65154, -36.65275, -36.63422, -36.62752, -36.61343, -36.61103, -36.59767, -36.59114, -36.58564, 
  -36.5561, -36.55215, -36.48964, -36.49893, -36.51886, -36.51817, -36.50666, -36.4943, -36.48176, -36.47506, 
  -36.46478, -36.47371, -36.49345, -36.49414, -36.4986, -36.48556, -36.48316, -36.47594, -36.47457, -36.46564, 
  -36.46152, -36.44451, -36.43507, -36.42597, -36.41791, -36.41962, -36.41447, -36.41997, -36.41533, -36.40279, 
  -36.40004, -36.41277, -36.40848, -36.39766, -36.39663, -36.39062, -36.38667, -36.38118, -36.37843, -36.35628, 
  -36.34769, -36.3235, -36.3113, -36.32007, -36.31869, -36.33759, -36.32247, -36.32763, -36.32437, -36.3096, 
  -36.31132, -36.32179, -36.31389, -36.31733, -36.30342, -36.31304, -36.30274, -36.30188, -36.2969, -36.29553, 
  -36.28831, -36.28453, -36.28127, -36.27526, -36.27234, -36.27646, -36.255, -36.25414, -36.26204, -36.2574, 
  -36.26462, -36.24814, -36.24763, -36.25673, -36.2514, -36.2466, -36.24351, -36.2375, -36.23183, -36.23389, 
  -36.22925, -36.23252, -36.22204, -36.22084, -36.21586, -36.22032, -36.19939, -36.19544, -36.1884, -36.18875, 
  -36.18549, -36.18549, -36.18136, -36.1805, -36.1757, -36.17673, -36.16196, -36.16043, -36.15442, -36.15511, 
  -36.14532, -36.14652, -36.14188, -36.14257, -36.13398, -36.12746, -36.13587, -36.11905, -36.12025, -36.10617, 
  -36.11441, -36.12266, -36.12987, -36.12815, -36.1321, -36.12557, -36.123, -36.11235, -36.10326, -36.10755, 
  -36.10498, -36.09089, -36.09845, -36.08077, -36.08112, -36.07751, -36.07889, -36.09108, -36.08318, -36.07459, 
  -36.07408, -36.0691, -36.06377, -36.05948, -36.0423, -36.05089, -36.05467, -36.04316, -36.04574, -36.04213, 
  -36.02822, -36.03647, -36.03372, -36.02032, -36.0162, -36.01088, -36.01431, -36.00869, -36.03325, -36.02999, 
  -36.00343, -36.00154, -36.00634, -35.99313, -35.99312, -35.98248, -35.97836, -35.97167, -35.96532, -35.97853, 
  -35.97956, -35.99569, -35.99329, -35.96, -35.95605, -35.94489, -35.93957, -35.94421, -35.93906, -35.96412, 
  -35.95983, -35.96189, -35.97682, -35.98042, -35.99964, -36.01955, -36.05044, -36.04736, -36.02848, -36.02539, 
  -36.00805, -36.00823, -35.9969, -35.99827, -36.01836, -36.03329, -36.04994, -36.05818, -36.06848, -36.07019, 
  -36.08701, -36.04565, -36.03622, -36.06557, -36.08633, -36.09131, -36.12032, -36.13542, -36.1337, -36.11671, 
  -36.11397, -36.13434, -36.12318, -36.10583, -36.04782, -36.03373, -36.02841, -36.0394, -36.0286, -36.00455, 
  -35.96437, -35.95239, -35.93968, -35.93951, -35.91529, -35.91649, -35.90911, -35.90739, -35.91649, -35.90791, 
  -35.89246, -35.89057, -35.88593, -35.88559, -35.88181, -35.88146, -35.87288, -35.87717, -35.86601, -35.86377, 
  -35.85917, -35.8535, -35.84887, -35.84062, -35.83598, -35.82912, -35.8231, -35.82173, -35.81417, -35.81572, 
  -35.8195, -35.8183, -35.8219, -35.81984, -35.81538, -35.81143, -35.80078, -35.80165, -35.79513, -35.8044, 
  -35.8032, -35.79478, -35.79478, -35.79169, -35.79427, -35.80165, -35.81333, -35.82243, -35.82999, -35.83566, 
  -35.84253, -35.83685, -35.8396, -35.83668, -35.84389, -35.85368, -35.86708, -35.85864, -35.87238, -35.88302, 
  -35.88904, -35.9148, -35.93211, -35.97213, -35.96955, -36.00113, -35.99099, -35.95012, -35.93417, -35.92919, 
  -35.92558, -35.94997, -35.96422, -35.99322, -35.98584, -35.96781, -35.96128, -35.95149, -35.93449, -35.92061, 
  -35.9201, -35.9158, -35.91872, -35.91718, -35.92267, -35.9189, -35.92354, -35.91976, -35.92989, -35.92611, 
  -35.93023, -35.928, -35.93178, -35.9225, -35.93109, -35.92576, -35.93537, -35.93433, -35.94498, -35.96267, 
  -35.96507, -35.96043, -35.95167, -35.94154, -35.93107, -35.92574, -35.93244, -35.93142, -35.91992, -35.92524, 
  -35.91992, -35.90721, -35.91203, -35.90619, -35.9086, -35.90396, -35.90671, -35.8928, -35.8897, -35.89692, 
  -35.89383, -35.90138, -35.91066, -35.90963, -35.92732, -35.93625, -35.94758, -35.95991, -35.96489, -35.98413, 
  -35.98911, -35.99529, -35.99598, -36.00353, -36.00094, -35.99579, -35.99527, -36.01089, -36.01982, -36.02995, 
  -36.04934, -36.05827, -36.06841, -36.09537, -36.09828, -36.09003, -36.10549, -36.11886, -36.13003, -36.11886, 
  -36.14119, -36.13655, -36.10856, -36.09622, -36.08007, -36.08849, -36.08041, -36.03974, -36.0418, -36.02995, 
  -36.02892, -36.01999, -36.01639, -36.00917, -36.00934, -36.01295, -36.01741, -36.01999, -36.02325, -36.02686, 
  -36.02583, -36.03648, -36.05192, -36.04608, -36.05329, -36.04711, -36.05226, -36.05655, -36.06394, -36.07373, 
  -36.07476, -36.0885, -36.08883, -36.09896, -36.10772, -36.11457, -36.13194, -36.14825, -36.15577, -36.16951, 
  -36.18891, -36.18685, -36.18084, -36.17981, -36.16642, -36.18393, -36.18531, -36.1726, -36.15801, -36.1848, 
  -36.18652, -36.20283, -36.2073, -36.26225, -36.2662, -36.2535, -36.25951, -36.24782, -36.23545, -36.23013, 
  -36.23218, -36.22771, -36.21998, -36.20882, -36.2102, -36.21603, -36.21844, -36.24764, -36.24539, -36.24745, 
  -36.24299, -36.25456, -36.26554, -36.27052, -36.25851, -36.24666, -36.24769, -36.24083, -36.24357, -36.23791, 
  -36.24495, -36.25044, -36.25387, -36.26125, -36.26194, -36.25456, -36.25507, -36.26469, -36.25989, -36.26486, 
  -36.26006, -36.2568, -36.25096, -36.25525, -36.26435, -36.26263, -36.2719, -36.2834, -36.28357, -36.28786, 
  -36.2858, -36.28872, -36.29232, -36.30125, -36.31068, -36.3021, -36.29798, -36.29422, -36.2925, -36.28426, 
  -36.29267, -36.29576, -36.30366, -36.29662, -36.30057, -36.29422, -36.30984, -36.31464, -36.32837, -36.33489, 
  -36.32923, -36.34073, -36.34378, -36.34787, -36.35749, -36.35869, -36.36625, -36.37483, -36.38462, -36.39321, 
  -36.38926, -36.40163, -36.40352, -36.39785, -36.40472, -36.39304, -36.40266, -36.39766, -36.40144, -36.37243, 
  -36.37706, -36.35542, -36.36247, -36.35217, -36.35338, -36.32934, -36.34394, -36.35217, -36.37639, -36.39992, 
  -36.3913, -36.4277, -36.42787, -36.44608, -36.4459, -36.45775, -36.48367, -36.49294, -36.49927, -36.5192, 
  -36.51027, -36.5058, -36.52521, -36.52057, -36.50391, -36.49087, -36.49602, -36.48211, -36.49499, -36.49173, 
  -36.51062, -36.50427, -36.49448, -36.49706, -36.47817, -36.47422, -36.47044, -36.4756, -36.47044, -36.47233, 
  -36.46718, -36.46924, -36.4804, -36.49019, -36.49174, -36.49929, -36.49672, -36.50187, -36.49826, -36.50874, 
  -36.51458, -36.5132, -36.52437, -36.53141, -36.53948, -36.55043, -36.55473, -36.57533, -36.5889, -36.60659, 
  -36.60553, -36.61257, -36.61171, -36.63095, -36.62837, -36.63558, -36.64726, -36.66255, -36.66184, -36.67163, 
  -36.67094, -36.68416, -36.70254, -36.69412, -36.67935, -36.67643, -36.65102, -36.68244, -36.68433, -36.71937, 
  -36.72589, -36.73208, -36.72881, -36.73311, -36.73036, -36.77464, -36.80229, -36.80486, -36.81551, -36.82307, 
  -36.7978, -36.77256, -36.74219, -36.73995, -36.72916, -36.70786, -36.70477, -36.68159, -36.67643, -36.64621, 
  -36.64329, -36.63129, -36.61292, -36.6167, -36.60776, -36.6021, -36.592, -36.58564, -36.58307, -36.59337, 
  -36.58908, -36.59972, -36.59182, -36.5853, -36.57602, -36.55696, -36.54597, -36.53962, -36.54323, -36.5307, 
  -36.51319, -36.50708, -36.50227, -36.49609, -36.48974, -36.49215, -36.49918, -36.49918, -36.49541, -36.49695, 
  -36.50176, -36.50313, -36.51274, -36.51857, -36.52801, -36.53299, -36.53951, -36.54054, -36.54964, -36.55307, 
  -36.54689, -36.54363, -36.55119, -36.55291, -36.55617, -36.56218, -36.56973, -36.57625, -36.58363, -36.59925, 
  -36.60869, -36.61538, -36.62345, -36.63599, -36.63908, -36.64543, -36.66311, -36.67907, -36.68096, -36.7067, 
  -36.71013, -36.6825, -36.67924, -36.66465, -36.6595, -36.65401, -36.65247, -36.66053, -36.6753, -36.68114, 
  -36.68834, -36.70533, -36.71217, -36.71147, -36.70786, -36.70597, -36.6821, -36.68725, -36.68485, -36.68931, 
  -36.68742, -36.67145, -36.66853, -36.64363, -36.64672, -36.64243, -36.64638, -36.62665, -36.64142, -36.6476, 
  -36.65464, -36.65636, -36.66048, -36.66684, -36.6756, -36.6634, -36.66682, -36.67387, -36.67232, -36.67747, 
  -36.68383, -36.68383, -36.69808, -36.70169, -36.70512, -36.70839, -36.71405, -36.72623, -36.73052, -36.74151, 
  -36.758, -36.76023, -36.77998, -36.78737, -36.7827, -36.78682, -36.80278, -36.81617, -36.82063, -36.81823, 
  -36.82682, -36.82269, -36.81273, -36.81343, -36.80742, -36.81703, -36.81051, -36.84331, -36.85632, -36.87264, 
  -36.87916, -36.88792, -36.88792, -36.89977, -36.90613, -36.91746, -36.92519, -36.93893, -36.94199, -36.95177, 
  -36.95658, -37.00535, -36.99881, -37.00362, -37.01289, -37.01375, -37.05308, -37.03814, -37.02594, -37.01856, 
  -36.98045, -36.98131, -36.97478, -36.97839, -36.971, -36.98148, -36.98165, -36.98852, -36.98611, -36.97701, 
  -36.97426, -36.97855, -36.98336, -36.99092, -36.98869, -37.00174, -36.99676, -37.00243, -36.99916, -37.00706, 
  -37.00517, -37.01325, -37.0208, -37.02063, -37.01634, -37.02269, -37.05275, -37.05237, -37.07075, -37.07744, 
  -37.08912, -37.10764, -37.10678, -37.11382, -37.10781, -37.12275, -37.12894, -37.13769, -37.15556, -37.15951, 
  -37.1571, -37.16088, -37.15693, -37.14302, -37.15038, -37.15073, -37.15605, -37.14799, -37.11931, -37.12068, 
  -37.10505, -37.10849, -37.12223, -37.12274, -37.12772, -37.1327, -37.14009, -37.14971, -37.15813, -37.16225, 
  -37.15298, -37.15744, -37.13271, -37.12928, -37.13408, -37.14181, -37.14817, -37.12807, -37.13683, -37.14336, 
  -37.14697, -37.15023, -37.15847, -37.16637, -37.16569, -37.16895, -37.17255, -37.17685, -37.17925, -37.17633, 
  -37.17771, -37.18128, -37.1885, -37.17888, -37.18128, -37.18094, -37.18661, -37.18815, -37.19554, -37.19829, 
  -37.19743, -37.20636, -37.20825, -37.21357, -37.2146, -37.21958, -37.22336, -37.22336, -37.22834, -37.22473, 
  -37.23227, -37.22935, -37.24172, -37.25202, -37.25288, -37.24687, -37.2503, -37.24584, -37.25339, -37.25012, 
  -37.25871, -37.27159, -37.26695, -37.26953, -37.26626, -37.27262, -37.28687, -37.32551, -37.33788, -37.34664, 
  -37.36035, -37.36138, -37.35829, -37.35794, -37.36789, -37.39107, -37.40704, -37.41924, -37.44208, -37.45925, 
  -37.46797, -37.48017, -37.49322, -37.50455, -37.50713, -37.50455, -37.497, -37.49597, -37.48927, -37.48789, 
  -37.48309, -37.48686, -37.47622, -37.45337, -37.45217, -37.44273, -37.44307, -37.45698, -37.45887, -37.45423, 
  -37.45389, -37.43919, -37.44056, -37.45292, -37.45841, -37.44296, -37.43078, -37.41568, -37.41671, -37.40744, 
  -37.40658, -37.38889, -37.36916, -37.37139, -37.37637, -37.37431, -37.38186, -37.38598, -37.38838, -37.39816, 
  -37.40571, -37.41155, -37.40589, -37.41395, -37.42339, -37.43197, -37.42339, -37.43849, -37.44589, -37.45327, 
  -37.46545, -37.46031, -37.46545, -37.46322, -37.47095, -37.47009, -37.47404, -37.48382, -37.49944, -37.49704, 
  -37.50081, -37.50718, -37.51353, -37.52246, -37.53619, -37.54974, -37.54768, -37.55112, -37.56313, -37.56107, 
  -37.57888, -37.5715, -37.59326, -37.59704, -37.60735, -37.60563, -37.61439, -37.61851, -37.62452, -37.63208, 
  -37.63689, -37.64564, -37.64891, -37.65543, -37.65337, -37.66831, -37.67072, -37.67518, -37.68824, -37.69493, 
  -37.68703, -37.68738, -37.67776, -37.68478, -37.67328, -37.67843, -37.68616, -37.68993, -37.71552, -37.71827, 
  -37.72325, -37.71879, -37.72239, -37.73613, -37.743, -37.7473, -37.73854, -37.75485, -37.74524, -37.75107, 
  -37.73785, -37.73851, -37.74693, -37.74452, -37.75225, -37.74676, -37.75534, -37.76462, -37.76565, -37.77406, 
  -37.77149, -37.78025, -37.77762, -37.78243, -37.78002, -37.78363, -37.79256, -37.79153, -37.80063, -37.80201, 
  -37.80733, -37.8051, -37.84048, -37.84769, -37.84425, -37.86124, -37.86312, -37.88081, -37.88786, -37.89421, 
  -37.90194, -37.91585, -37.96531, -37.96355, -37.96492, -37.96303, -37.96423, -37.9608, -37.96286, -37.95616, 
  -37.96338, -37.9663, -37.96544)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-55.0361, -55.03816, -55.03856, -55.0373, -55.03467, -55.03295, -55.03408, -55.03423, -55.03556)
LONGITUDE_VALUEs <- c(-34.73919, -34.73782, -34.73164, -34.73271, -34.72975, -34.73237, -34.73623, -34.73906, -34.73837)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -55.0328, -55.03333, -55.03264, -55.03238, -55.03186, -55.03082, -55.03119, -55.03079, -55.03045, -55.03029, 
  -55.03065, -55.03059, -55.03028, -55.03031, -55.0307, -55.03088, -55.03261, -55.03243, -55.03329, -55.03444, 
  -55.03381)
LONGITUDE_VALUEs <- c(
  -34.70646, -34.70601, -34.70513, -34.70578, -34.70569, -34.70842, -34.70848, -34.70941, -34.70964, -34.71091, 
  -34.71107, -34.71144, -34.71147, -34.71195, -34.71196, -34.7124, -34.71177, -34.71119, -34.71104, -34.7076, 
  -34.70621)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -56.31356, -56.31176, -56.31023, -56.30823, -56.30766, -56.30833, -56.30795, -56.30814, -56.30633, -56.30614, 
  -56.3028, -56.30128, -56.29899, -56.29299, -56.28994, -56.28766, -56.28671, -56.28251, -56.28223, -56.27927, 
  -56.28251, -56.28747, -56.28899, -56.28899, -56.29118, -56.29233, -56.2948, -56.29737, -56.2988, -56.30138, 
  -56.30223, -56.30699, -56.31594, -56.31718, -56.31861, -56.31899, -56.31766, -56.31718, -56.3149)
LONGITUDE_VALUEs <- c(
  -27.56899, -27.56916, -27.56453, -27.56195, -27.55955, -27.55783, -27.55595, -27.5508, -27.55183, -27.5496, 
  -27.54822, -27.54342, -27.54857, -27.54925, -27.55458, -27.55492, -27.56144, -27.56316, -27.56625, -27.57277, 
  -27.59062, -27.59028, -27.59422, -27.60435, -27.60538, -27.60143, -27.6004, -27.60263, -27.60658, -27.60538, 
  -27.59971, -27.59439, -27.59165, -27.58307, -27.58324, -27.5726, -27.57208, -27.5702, -27.57191)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -56.67639, -56.67441, -56.67545, -56.67517, -56.67441, -56.67432, -56.67375, -56.67385, -56.673, -56.67309, 
  -56.67215, -56.67205, -56.6713, -56.66913, -56.66828, -56.6679, -56.66828, -56.66875, -56.66885, -56.66951, 
  -56.66904, -56.67036, -56.67403, -56.6763)
LONGITUDE_VALUEs <- c(
  -28.09651, -28.09394, -28.09239, -28.09051, -28.09102, -28.08965, -28.09068, -28.09325, -28.09531, -28.09703, 
  -28.0972, -28.09806, -28.09874, -28.09874, -28.09703, -28.09737, -28.09909, -28.09926, -28.10098, -28.10201, 
  -28.10355, -28.10578, -28.1063, -28.10149)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -56.72643, -56.72267, -56.71937, -56.71146, -56.7092, -56.70552, -56.6961, -56.68931, -56.68893, -56.68262, 
  -56.68384, -56.68139, -56.68526, -56.69336, -56.6944, -56.70307, -56.70599, -56.70693, -56.71155, -56.71362, 
  -56.71692, -56.72295, -56.72361, -56.72709, -56.72615, -56.72794, -56.72794, -56.72917, -56.7287, -56.73105)
LONGITUDE_VALUEs <- c(
  -27.18413, -27.15427, -27.15255, -27.13057, -27.13727, -27.13555, -27.14619, -27.16765, -27.17829, -27.20472, 
  -27.2133, -27.21879, -27.22155, -27.24094, -27.24953, -27.25313, -27.25896, -27.2533, -27.25297, -27.2564, 
  -27.25279, -27.25588, -27.24679, -27.24181, -27.23683, -27.22482, -27.21916, -27.21229, -27.20731, -27.19993)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -57.09578, -57.09401, -57.09307, -57.08561, -57.08515, -57.08263, -57.08039, -57.07572, -57.07675, -57.07834, 
  -57.08039, -57.08207, -57.08198, -57.07983, -57.07302, -57.07516, -57.07544, -57.07918, -57.08254, -57.0844, 
  -57.08888, -57.08944, -57.08701, -57.08776, -57.08664, -57.0899, -57.09447, -57.09419, -57.0913, -57.09214, 
  -57.09494, -57.09615, -57.1052, -57.10753, -57.10837, -57.11135, -57.11107, -57.10893, -57.10958, -57.11154, 
  -57.10911, -57.10678, -57.10305)
LONGITUDE_VALUEs <- c(
  -26.692, -26.68925, -26.69268, -26.69697, -26.70023, -26.70332, -26.70349, -26.70761, -26.71139, -26.70899, 
  -26.71123, -26.71706, -26.72084, -26.72152, -26.74332, -26.74538, -26.75104, -26.74606, -26.74692, -26.75241, 
  -26.75053, -26.74126, -26.74057, -26.73577, -26.73096, -26.72753, -26.73045, -26.73491, -26.7404, -26.74229, 
  -26.73954, -26.73165, -26.72753, -26.72959, -26.72392, -26.72427, -26.72015, -26.71792, -26.69423, -26.69115, 
  -26.68926, -26.68548, -26.69046)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -57.12058, -57.12598, -57.12542, -57.1244, -57.12253, -57.12048, -57.11955, -57.1189, -57.11554, -57.11554, 
  -57.11443, -57.11256, -57.11014, -57.10893, -57.11135, -57.11293, -57.11703, -57.11881)
LONGITUDE_VALUEs <- c(
  -26.83155, -26.80959, -26.80461, -26.80598, -26.80341, -26.80306, -26.80152, -26.80272, -26.80324, -26.80066, 
  -26.79997, -26.81508, -26.82074, -26.82915, -26.82829, -26.82966, -26.82984, -26.83172)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -57.77983, -57.78184, -57.78413, -57.78715, -57.79383, -57.79749, -57.80252, -57.80352, -57.8059, -57.80791, 
  -57.80974, -57.8123, -57.81569, -57.81962, -57.81998, -57.82849, -57.82757, -57.82922, -57.83077, -57.83095, 
  -57.82675, -57.82812, -57.82666, -57.82254, -57.82245, -57.8177, -57.81313, -57.80627, -57.80608, -57.80782, 
  -57.80526, -57.79785, -57.78587, -57.77754, -57.77049, -57.76207, -57.76289, -57.77342, -57.77873)
LONGITUDE_VALUEs <- c(
  -26.51827, -26.51776, -26.52033, -26.53355, -26.53835, -26.53492, -26.53767, -26.54247, -26.54007, -26.54213, 
  -26.53629, -26.53784, -26.5332, -26.53509, -26.52806, -26.50436, -26.49973, -26.48926, -26.48789, -26.47914, 
  -26.4618, -26.45322, -26.45046, -26.42523, -26.41991, -26.4127, -26.39211, -26.38438, -26.3873, -26.39176, 
  -26.41682, -26.43657, -26.45321, -26.45854, -26.45339, -26.48788, -26.50161, -26.51311, -26.5138)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -58.49447, -58.49465, -58.5064, -58.51026, -58.51169, -58.51447, -58.51205, -58.48963, -58.48272, -58.44752, 
  -58.44132, -58.4203, -58.41661, -58.4105, -58.40546, -58.40564, -58.40186, -58.40699, -58.41292, -58.41032, 
  -58.41454, -58.41463, -58.4203, -58.42245, -58.44097, -58.44249, -58.46252, -58.47033, -58.48083, -58.48101, 
  -58.48353, -58.48406, -58.49474, -58.50227)
LONGITUDE_VALUEs <- c(
  -26.34933, -26.32788, -26.29235, -26.29304, -26.27982, -26.27759, -26.27124, -26.26918, -26.27999, -26.28257, 
  -26.27673, -26.27604, -26.2872, -26.29149, -26.31071, -26.35191, -26.36049, -26.37903, -26.43843, -26.44426, 
  -26.45593, -26.46949, -26.46916, -26.46487, -26.47345, -26.48049, -26.47877, -26.44959, -26.44581, -26.43809, 
  -26.43036, -26.41542, -26.37646, -26.36376)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -59.00191, -59.00642, -59.01137, -59.01632, -59.0233, -59.03549, -59.05615, -59.06207, -59.04653, -59.04432, 
  -59.03629, -59.02056, -59.01491, -59.00121, -58.99298, -58.98113, -58.97025, -58.96768, -58.97432, -58.98838, 
  -58.98741, -58.99342, -58.99599)
LONGITUDE_VALUEs <- c(
  -26.61507, -26.63, -26.62623, -26.62468, -26.60305, -26.57834, -26.55464, -26.52272, -26.4846, -26.47345, 
  -26.45715, -26.43981, -26.43998, -26.47054, -26.48272, -26.51826, -26.52478, -26.54314, -26.55036, -26.57954, 
  -26.59412, -26.60168, -26.61043)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -59.41257, -59.40986, -59.40776, -59.40497, -59.4047, -59.40829, -59.4179, -59.41833, -59.41982, -59.4206, 
  -59.41641)
LONGITUDE_VALUEs <- c(
  -27.07478, -27.07169, -27.07856, -27.07804, -27.0813, -27.08817, -27.09555, -27.09109, -27.08988, -27.07684, 
  -27.07238)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -59.45677, -59.45127, -59.45031, -59.44595, -59.44429, -59.44263, -59.43329, -59.43146, -59.43146, -59.43032, 
  -59.43006, -59.42753, -59.42867, -59.42116, -59.42316, -59.43024, -59.44167, -59.45127, -59.45162, -59.45057, 
  -59.45432, -59.45467, -59.46174, -59.46122, -59.46174)
LONGITUDE_VALUEs <- c(
  -27.14175, -27.14072, -27.13883, -27.13643, -27.13265, -27.13626, -27.13918, -27.13677, -27.13334, -27.13368, 
  -27.14055, -27.14381, -27.1493, -27.20267, -27.22689, -27.23375, -27.23084, -27.24766, -27.24526, -27.242, 
  -27.22036, -27.20921, -27.18467, -27.17144, -27.16303)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -59.43745, -59.43518, -59.43204, -59.43108, -59.41868, -59.41641, -59.41528, -59.41196, -59.41912, -59.43038, 
  -59.43117, -59.43623, -59.4419, -59.44173, -59.44871, -59.44836, -59.45351, -59.45621, -59.45587, -59.45726, 
  -59.45621, -59.45726, -59.45822, -59.4577, -59.45787, -59.45997, -59.4618, -59.46145, -59.46241, -59.46127, 
  -59.45979, -59.45866, -59.45744, -59.45621, -59.45648, -59.4597, -59.45979, -59.46084, -59.45927, -59.45665, 
  -59.4556, -59.44784, -59.44452, -59.44217)
LONGITUDE_VALUEs <- c(
  -27.34726, -27.3452, -27.34537, -27.33971, -27.33662, -27.32306, -27.32289, -27.34606, -27.37489, -27.39635, 
  -27.4082, -27.40717, -27.41678, -27.4118, -27.40081, -27.39841, -27.38554, -27.38228, -27.37318, -27.36718, 
  -27.36288, -27.35705, -27.3555, -27.35258, -27.34915, -27.34246, -27.34315, -27.34057, -27.33834, -27.33594, 
  -27.33748, -27.33371, -27.33302, -27.32615, -27.31912, -27.31706, -27.31429, -27.30811, -27.29919, -27.30005, 
  -27.31652, -27.33576, -27.33714, -27.34452)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
MGeo_1 <- MGeo_1 %>% 
  mutate(NAME = "SOUTH GEORGIA AND THE SOUTH SANDWICH ISLANDS", 
         VISUALIZATION_NAME = "South Georgia and the South Sandwich Islands", 
         ISO2 = "GS", ISO3 = "SGS", M49_CODE = "239", 
         SOVRN = "United Kingdom of Great Britain and Northern Ireland", CONTINENT = "AMERICAS", 
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, MGeo_1)

KURIL ISLANDS are included in RUSSIAN FEDERATION in GeoDATA.

KURIL ISLANDS are claimed by JAPAN (4 southernmost islands).

KURIL ISLANDS have been controlled by RUSSIAN FEDERATION since 1945.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "RUSSIAN FEDERATION")

##### RUSSIAN FEDERATION #####
Geo_0 <- st_cast(Geo_1, "POLYGON")
Geo_1 <- st_set_geometry(
  Geo_1, st_union(Geo_0[c(1:69, 71, 74:75, 77:78, 80, 84, 86:185, 190:199, 202:205, 210:226), ]))
LATITUDE_VALUEs <- c(
  50.71731, 50.72554, 50.74249, 50.75987, 50.84492, 50.84951, 50.86727, 50.85167, 50.8469, 50.78693, 
  50.77292, 50.76913, 50.77206, 50.7674, 50.74752, 50.7334, 50.71927, 50.70754, 50.70123, 50.69253, 
  50.67633, 50.67698, 50.67023, 50.66893, 50.64531, 50.63475, 50.63453, 50.63856, 50.63824, 50.6329, 
  50.63443, 50.62669, 50.63388, 50.63225, 50.63704, 50.63388, 50.63802, 50.63312, 50.63737, 50.65554, 
  50.66468, 50.67241, 50.67306)
LONGITUDE_VALUEs <- c(
  156.464, 156.48, 156.4848, 156.5068, 156.4944, 156.4871, 156.4822, 156.429, 156.3824, 156.2837, 
  156.2536, 156.2341, 156.218, 156.1996, 156.2047, 156.1922, 156.1944, 156.173, 156.1792, 156.1783, 
  156.1915, 156.2039, 156.2087, 156.2257, 156.2669, 156.2745, 156.2822, 156.2866, 156.2952, 156.3022, 
  156.3163, 156.3333, 156.3385, 156.3565, 156.3603, 156.3819, 156.3915, 156.4011, 156.4128, 156.4023, 
  156.4224, 156.4269, 156.4348)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  50.85538, 50.86708, 50.87769, 50.90238, 50.91018, 50.90606, 50.91386, 50.92241, 50.91342, 50.91516, 
  50.91104, 50.90271, 50.89416, 50.88712, 50.88203, 50.87585, 50.86946, 50.85668, 50.83446, 50.82513, 
  50.80941, 50.80659, 50.80951, 50.80333, 50.8055, 50.80409, 50.80984, 50.80756, 50.81331, 50.81808, 
  50.83402, 50.84475)
LONGITUDE_VALUEs <- c(
  155.6592, 155.6675, 155.6606, 155.6551, 155.6276, 155.617, 155.5984, 155.5194, 155.4894, 155.4794, 
  155.4725, 155.477, 155.4686, 155.4694, 155.4573, 155.4655, 155.4636, 155.4768, 155.487, 155.5079, 
  155.5246, 155.5396, 155.5455, 155.608, 155.6147, 155.6298, 155.6457, 155.66, 155.6629, 155.6739, 
  155.665, 155.6676)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  50.07896, 50.04777, 50.05427, 50.06089, 50.05438, 50.03145, 50.02186, 50.01645, 50.0105, 50.00399, 
  49.99924, 50.00509, 50.01601, 50.01745, 50.0309, 50.04292, 50.05449, 50.06926, 50.07598, 50.08083, 
  50.08843, 50.08997, 50.09757, 50.12278, 50.12652, 50.1318, 50.14303, 50.15084, 50.1493, 50.16008, 
  50.16502, 50.16799, 50.17261, 50.1714, 50.17789, 50.18569, 50.18316, 50.18734, 50.17844, 50.17921, 
  50.18393, 50.18503, 50.18855, 50.1869, 50.19086, 50.18756, 50.19174, 50.19141, 50.18174, 50.1836, 
  50.18767, 50.19383, 50.22129, 50.2337, 50.24292, 50.246, 50.24325, 50.24666, 50.2832, 50.28418, 
  50.2912, 50.30239, 50.31072, 50.31357, 50.32212, 50.32387, 50.38116, 50.38203, 50.40108, 50.40764, 
  50.41968, 50.4352, 50.45237, 50.45794, 50.47903, 50.49508, 50.48558, 50.48667, 50.49574, 50.50982, 
  50.51976, 50.52663, 50.53285, 50.54584, 50.549, 50.56307, 50.58356, 50.58956, 50.5937, 50.60067, 
  50.60329, 50.60503, 50.62006, 50.62682, 50.62823, 50.65218, 50.66111, 50.6697, 50.6734, 50.67873, 
  50.6783, 50.68286, 50.68885, 50.69863, 50.70266, 50.7195, 50.72526, 50.72668, 50.73298, 50.73581, 
  50.73906, 50.74232, 50.74134, 50.74428, 50.74743, 50.7496, 50.74547, 50.74558, 50.75351, 50.75427, 
  50.74732, 50.74743, 50.7509, 50.75112, 50.7559, 50.75536, 50.76752, 50.76806, 50.71188, 50.70819, 
  50.68557, 50.68198, 50.66555, 50.65478, 50.63813, 50.62942, 50.57047, 50.56393, 50.54888, 50.53633, 
  50.5335, 50.5276, 50.51767, 50.50599, 50.49027, 50.48197, 50.47508, 50.45399, 50.4517, 50.4365, 
  50.43071, 50.41037, 50.37622, 50.36812, 50.37162, 50.38169, 50.3887, 50.38421, 50.38377, 50.38093, 
  50.38071, 50.3737, 50.36221, 50.36407, 50.35191, 50.35607, 50.35179, 50.34522, 50.34697, 50.33755, 
  50.3244, 50.29587, 50.2803, 50.29784, 50.30245, 50.28052, 50.24128, 50.21886, 50.20436, 50.18524, 
  50.15313, 50.08906)
LONGITUDE_VALUEs <- c(
  155.2111, 155.2262, 155.238, 155.3117, 155.3515, 155.3936, 155.3967, 155.3903, 155.3957, 155.3879, 
  155.39, 155.4063, 155.4137, 155.4264, 155.4238, 155.4314, 155.4296, 155.4374, 155.4484, 155.4482, 
  155.4545, 155.4602, 155.4598, 155.4858, 155.4959, 155.5002, 155.518, 155.5434, 155.5532, 155.5627, 
  155.5805, 155.5793, 155.5817, 155.5919, 155.595, 155.6166, 155.6263, 155.6365, 155.6507, 155.6603, 
  155.6667, 155.6809, 155.6822, 155.6913, 155.6933, 155.7157, 155.7251, 155.7371, 155.7549, 155.7695, 
  155.774, 155.7889, 155.8064, 155.8215, 155.845, 155.8601, 155.8768, 155.8867, 155.9111, 155.9206, 
  155.9181, 155.9269, 155.9231, 155.936, 155.9439, 155.9503, 155.9894, 156.005, 156.0266, 156.0212, 
  156.0242, 156.0196, 156.0368, 156.0321, 156.0593, 156.1094, 156.1288, 156.1369, 156.1422, 156.1666, 
  156.1549, 156.1569, 156.1487, 156.1502, 156.1466, 156.1483, 156.1566, 156.1667, 156.1657, 156.1708, 
  156.1684, 156.1535, 156.1526, 156.147, 156.1355, 156.124, 156.1286, 156.1379, 156.1468, 156.1439, 
  156.1351, 156.13, 156.1298, 156.1379, 156.1477, 156.1494, 156.1537, 156.148, 156.1461, 156.1547, 
  156.154, 156.1566, 156.1496, 156.1451, 156.1492, 156.1447, 156.1427, 156.136, 156.1346, 156.1298, 
  156.1245, 156.1138, 156.1092, 156.0993, 156.0872, 156.0708, 156.0493, 156.032, 155.9406, 155.9269, 
  155.8984, 155.8988, 155.8833, 155.8594, 155.8536, 155.8565, 155.8313, 155.837, 155.8286, 155.8122, 
  155.8019, 155.8037, 155.7762, 155.7841, 155.7794, 155.7695, 155.7722, 155.7559, 155.747, 155.7379, 
  155.7195, 155.6983, 155.6462, 155.614, 155.6019, 155.5982, 155.5807, 155.5784, 155.5719, 155.5733, 
  155.5669, 155.5697, 155.5491, 155.5118, 155.4634, 155.4475, 155.4219, 155.4071, 155.4016, 155.3865, 
  155.3944, 155.3776, 155.3385, 155.3045, 155.2269, 155.2008, 155.2155, 155.2573, 155.2624, 155.2538, 
  155.2614, 155.2276)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(50.18701, 50.18613, 50.19185, 50.19734, 50.20218, 50.20459, 50.20987, 50.2147, 50.20569)
LONGITUDE_VALUEs <- c(154.9629, 154.9901, 155.0042, 155.0055, 155.0145, 155.0035, 154.9993, 154.9791, 154.9578)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  49.74943, 49.75553, 49.77127, 49.78491, 49.81106, 49.81793, 49.80419, 49.79267, 49.78801, 49.77615, 
  49.77371, 49.7603, 49.75375, 49.739, 49.73823, 49.73434, 49.72691, 49.73456, 49.74166, 49.74444)
LONGITUDE_VALUEs <- c(
  154.454, 154.4669, 154.4707, 154.4937, 154.4756, 154.4366, 154.3989, 154.3999, 154.392, 154.3908, 
  154.3886, 154.3963, 154.3879, 154.4073, 154.4152, 154.4159, 154.4435, 154.4556, 154.4525, 154.4559)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  49.28637, 49.27943, 49.28816, 49.296, 49.31055, 49.32554, 49.36402, 49.36894, 49.38212, 49.40715, 
  49.44556, 49.47568, 49.48327, 49.48327, 49.48951, 49.50668, 49.52786, 49.53142, 49.56261, 49.57018, 
  49.59288, 49.60369, 49.6097, 49.61103, 49.60936, 49.61036, 49.60792, 49.61048, 49.61659, 49.61759, 
  49.62238, 49.62493, 49.63494, 49.63272, 49.61059, 49.61025, 49.60336, 49.59167, 49.58833, 49.58099, 
  49.57954, 49.56307, 49.55939, 49.52364, 49.51862, 49.51383, 49.5067, 49.47904, 49.4555, 49.40247, 
  49.36403, 49.36325, 49.35564, 49.34547, 49.33059, 49.3147, 49.28605, 49.27686, 49.27194, 49.2641, 
  49.26925, 49.25838, 49.25928, 49.25726, 49.26163, 49.2632, 49.26891, 49.27003, 49.2772, 49.27922)
LONGITUDE_VALUEs <- c(
  154.775, 154.7887, 154.8007, 154.8261, 154.823, 154.8388, 154.8378, 154.823, 154.8309, 154.8131, 
  154.8065, 154.8144, 154.8216, 154.8288, 154.8268, 154.8371, 154.8659, 154.8907, 154.8927, 154.9016, 
  154.9009, 154.9061, 154.9166, 154.9152, 154.9061, 154.8986, 154.8883, 154.8747, 154.8735, 154.8579, 
  154.8562, 154.8608, 154.8478, 154.8157, 154.8186, 154.8128, 154.8145, 154.7959, 154.7776, 154.7741, 
  154.7681, 154.7647, 154.7692, 154.7396, 154.7439, 154.734, 154.7324, 154.7065, 154.7036, 154.6459, 
  154.6329, 154.6141, 154.6103, 154.621, 154.6146, 154.6212, 154.6193, 154.6277, 154.6584, 154.6708, 
  154.6927, 154.7116, 154.7154, 154.7199, 154.7187, 154.7319, 154.7274, 154.7348, 154.742, 154.7576)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  49.13141, 49.12557, 49.11961, 49.0959, 49.0877, 49.07994, 49.06926, 49.07353, 49.08713, 49.08623, 
  49.09309, 49.10534, 49.10759, 49.12029, 49.12624, 49.12984, 49.13511, 49.14724, 49.15286, 49.1578, 
  49.16027, 49.16565, 49.15825, 49.16341, 49.167, 49.1688, 49.16532, 49.15712, 49.13916, 49.1368, 
  49.13444)
LONGITUDE_VALUEs <- c(
  154.4702, 154.4695, 154.4735, 154.4761, 154.4948, 154.4979, 154.5174, 154.5348, 154.5583, 154.5734, 
  154.5911, 154.5988, 154.6034, 154.6036, 154.5985, 154.5988, 154.5766, 154.5658, 154.5447, 154.5418, 
  154.5257, 154.515, 154.4898, 154.48, 154.4814, 154.4786, 154.4597, 154.4517, 154.4575, 154.4623, 
  154.462)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  48.73366, 48.72064, 48.72064, 48.72608, 48.72653, 48.74306, 48.77904, 48.80223, 48.79974, 48.81579, 
  48.81568, 48.83297, 48.83885, 48.86573, 48.8698, 48.87657, 48.8803, 48.88413, 48.90208, 48.90388, 
  48.88775, 48.87939, 48.85816, 48.85749, 48.84167, 48.83885, 48.83094, 48.82009, 48.8176, 48.81252, 
  48.80833, 48.80042, 48.78436, 48.78018, 48.78741, 48.78628, 48.78379, 48.78334, 48.78425, 48.77769, 
  48.77644, 48.77022, 48.76117, 48.75585, 48.74906)
LONGITUDE_VALUEs <- c(
  153.9796, 153.9983, 154.0163, 154.0215, 154.0297, 154.0579, 154.0708, 154.1082, 154.1238, 154.1578, 
  154.1679, 154.1851, 154.1985, 154.2064, 154.215, 154.217, 154.2267, 154.2273, 154.1945, 154.1727, 
  154.0997, 154.1037, 154.0996, 154.0929, 154.0943, 154.0881, 154.0951, 154.0933, 154.0888, 154.0886, 
  154.0792, 154.083, 154.0634, 154.035, 154.0325, 154.0263, 154.0268, 154.0215, 154.015, 154.0078, 
  153.994, 153.9928, 153.9822, 153.983, 153.9753)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  48.92194, 48.93175, 48.95283, 48.95982, 48.96072, 48.95689, 48.95745, 48.95982, 48.96467, 48.96399, 
  48.96963, 48.96658, 48.97379, 48.96963, 48.97154, 48.96974, 48.96433, 48.96253, 48.96591, 48.96534, 
  48.94415, 48.93953, 48.93457, 48.92848, 48.92442, 48.92532, 48.92126, 48.92487, 48.92442)
LONGITUDE_VALUEs <- c(
  153.97, 154.0114, 154.0028, 154.0081, 154.005, 154.0018, 153.9832, 153.9767, 153.9719, 153.9631, 
  153.9594, 153.9492, 153.9444, 153.9369, 153.9329, 153.9254, 153.9267, 153.9219, 153.9154, 153.9049, 
  153.9008, 153.9135, 153.9168, 153.9125, 153.9152, 153.9312, 153.9358, 153.9424, 153.9547)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  48.98585, 48.97774, 48.97244, 48.97244, 48.96703, 48.97244, 48.9765, 48.9792, 48.9836, 48.98979, 
  48.99114, 48.99407, 48.99103, 48.99182, 48.98743)
LONGITUDE_VALUEs <- c(
  153.4687, 153.4668, 153.4696, 153.4735, 153.4844, 153.5009, 153.5012, 153.505, 153.5017, 153.5033, 
  153.4938, 153.488, 153.4801, 153.473, 153.4729)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  48.29299, 48.28522, 48.28488, 48.28248, 48.28248, 48.28385, 48.28385, 48.28831, 48.28991, 48.29116, 
  48.29322, 48.2955, 48.2987, 48.30133, 48.3011, 48.29767)
LONGITUDE_VALUEs <- c(
  153.2313, 153.2361, 153.2402, 153.2457, 153.2538, 153.2564, 153.2598, 153.2658, 153.2658, 153.2694, 
  153.2668, 153.2689, 153.2675, 153.2581, 153.24, 153.2332)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  48.04536, 48.03755, 48.04272, 48.0426, 48.04054, 48.03709, 48.03732, 48.04008, 48.04065, 48.04306, 
  48.04214, 48.04627, 48.04891, 48.05327, 48.05832, 48.06234, 48.06853, 48.07714, 48.08436, 48.08448, 
  48.09159, 48.0909, 48.10763, 48.10775, 48.11302, 48.11084, 48.11279, 48.12368, 48.12024, 48.1066, 
  48.08723, 48.07002, 48.06073, 48.05821)
LONGITUDE_VALUEs <- c(
  153.2241, 153.2314, 153.2488, 153.2624, 153.2684, 153.2708, 153.2807, 153.2809, 153.2835, 153.2804, 
  153.2756, 153.2734, 153.2766, 153.2672, 153.2658, 153.2691, 153.2689, 153.2627, 153.2663, 153.272, 
  153.2605, 153.2534, 153.2349, 153.2292, 153.2237, 153.2167, 153.2091, 153.1999, 153.1722, 153.1618, 
  153.1625, 153.1698, 153.1818, 153.1982)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  47.72478, 47.74579, 47.75248, 47.77118, 47.77971, 47.79044, 47.79874, 47.80681, 47.80151, 47.79644, 
  47.75098, 47.74071, 47.73517, 47.7205, 47.71427, 47.7078, 47.70687, 47.70514, 47.70341, 47.69578, 
  47.6855, 47.68504, 47.68226, 47.67914, 47.67602, 47.67602, 47.68273, 47.68758, 47.69463, 47.69521, 
  47.69763, 47.69544, 47.69948, 47.70237, 47.71103, 47.71334, 47.71819)
LONGITUDE_VALUEs <- c(
  153.0483, 153.0542, 153.0602, 153.0581, 153.0612, 153.0487, 153.0509, 153.0418, 153.0367, 153.008, 
  152.9673, 152.9745, 152.9718, 152.973, 152.9617, 152.9594, 152.9637, 152.9642, 152.9582, 152.9694, 
  152.9668, 152.9629, 152.9673, 152.9639, 152.9675, 152.9706, 152.9699, 152.9754, 152.9757, 152.9833, 
  152.991, 153.0022, 153.0082, 153.025, 153.0245, 153.041, 153.0398)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  47.51871, 47.50294, 47.50665, 47.50653, 47.50317, 47.50816, 47.51024, 47.51488, 47.51836, 47.52705, 
  47.52358, 47.52346)
LONGITUDE_VALUEs <- c(
  152.7939, 152.8036, 152.8072, 152.8159, 152.82, 152.8224, 152.8264, 152.8242, 152.8281, 152.8252, 
  152.8231, 152.8049)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  47.53343, 47.53633, 47.53772, 47.53691, 47.54015, 47.542, 47.54965, 47.54965, 47.5449, 47.54537, 
  47.54293, 47.53331, 47.53157)
LONGITUDE_VALUEs <- c(
  152.8319, 152.8329, 152.8418, 152.8446, 152.8502, 152.8496, 152.8513, 152.8494, 152.8406, 152.835, 
  152.8351, 152.8233, 152.824)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  47.34801, 47.34301, 47.31427, 47.31206, 47.30543, 47.30193, 47.30124, 47.29681, 47.29972, 47.29879, 
  47.30089, 47.29926, 47.30077, 47.29402, 47.29926, 47.29798, 47.31206, 47.32812, 47.32998, 47.33312, 
  47.33708, 47.34278, 47.35592, 47.37278, 47.3772, 47.37603, 47.37824, 47.37813, 47.35894)
LONGITUDE_VALUEs <- c(
  152.4118, 152.4192, 152.4206, 152.4316, 152.4395, 152.4362, 152.4306, 152.4307, 152.4522, 152.4599, 
  152.4647, 152.4723, 152.4805, 152.4942, 152.497, 152.5117, 152.5358, 152.5437, 152.5427, 152.5435, 
  152.5396, 152.5411, 152.5342, 152.5114, 152.4784, 152.4661, 152.4585, 152.4458, 152.4149)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  46.87427, 46.86442, 46.84822, 46.85784, 46.8515, 46.85784, 46.8562, 46.85057, 46.85526, 46.85174, 
  46.84493, 46.83953, 46.82872, 46.81134, 46.80781, 46.78995, 46.76973, 46.77467, 46.82144, 46.83319, 
  46.8562, 46.86043, 46.89797, 46.89844, 46.92166, 46.92495, 46.94065, 46.95214, 46.95706, 46.97205, 
  46.97885, 46.98587, 46.99126, 46.99946, 47.03223, 47.04159, 47.05913, 47.09771, 47.09771, 47.10963, 
  47.10869, 47.11383, 47.1157, 47.12598, 47.13065, 47.14069, 47.15249, 47.14945, 47.15564, 47.15704, 
  47.16393, 47.16171, 47.16731, 47.16533, 47.09093, 47.07901, 47.0589, 47.05515, 47.04065, 47.03106, 
  46.99852, 46.99501, 46.98634, 46.98775, 46.97838, 46.95425, 46.95495, 46.94182, 46.92119, 46.91791)
LONGITUDE_VALUEs <- c(
  151.873, 151.8785, 151.8497, 151.8122, 151.792, 151.7875, 151.7463, 151.7336, 151.7233, 151.7167, 
  151.7188, 151.7051, 151.7274, 151.7253, 151.7315, 151.7364, 151.7765, 151.8202, 151.873, 151.8765, 
  151.9101, 151.9424, 152.0145, 152.0268, 152.0388, 152.0453, 152.055, 152.067, 152.08, 152.0859, 
  152.0965, 152.1398, 152.1384, 152.1525, 152.1607, 152.1563, 152.1673, 152.2387, 152.249, 152.2593, 
  152.2662, 152.2675, 152.2772, 152.2713, 152.2874, 152.285, 152.2927, 152.2824, 152.2697, 152.2591, 
  152.2553, 152.2429, 152.2267, 152.2001, 152.1346, 152.1178, 152.1126, 152.1006, 152.0934, 152.0748, 
  152.0584, 152.0484, 152.0391, 152.0299, 152.0038, 151.9708, 151.9629, 151.9245, 151.9106, 151.9159)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  46.72205, 46.71888, 46.71582, 46.70428, 46.70381, 46.70216, 46.72041, 46.72429, 46.72806, 46.73464, 
  46.739, 46.73123, 46.72747)
LONGITUDE_VALUEs <- c(
  150.708, 150.717, 150.7173, 150.7343, 150.7391, 150.7415, 150.7506, 150.7486, 150.7489, 150.7421, 
  150.719, 150.711, 150.711)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  46.51333, 46.5131, 46.52018, 46.52987, 46.53341, 46.5412, 46.54177, 46.5374, 46.53362, 46.54496, 
  46.54319, 46.54637, 46.54496, 46.5348, 46.50834, 46.50326, 46.49901, 46.49972, 46.49546, 46.49712, 
  46.49724, 46.50019, 46.50031, 46.50823, 46.51012)
LONGITUDE_VALUEs <- c(
  150.8853, 150.9052, 150.8959, 150.899, 150.8911, 150.8983, 150.9074, 150.9103, 150.9187, 150.9098, 
  150.9029, 150.8899, 150.8724, 150.8531, 150.8301, 150.8389, 150.8399, 150.8463, 150.8557, 150.8612, 
  150.8689, 150.871, 150.8754, 150.8847, 150.8837)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  46.47443, 46.47466, 46.47052, 46.47029, 46.45917, 46.4516, 46.45172, 46.44711, 46.45196, 46.45042, 
  46.44238, 46.44545, 46.46343, 46.47265, 46.47443, 46.47856, 46.47974, 46.48518, 46.48376)
LONGITUDE_VALUEs <- c(
  150.7963, 150.7857, 150.7836, 150.7791, 150.7791, 150.7894, 150.7944, 150.802, 150.8073, 150.8155, 
  150.8253, 150.8454, 150.8265, 150.8248, 150.8219, 150.8233, 150.8155, 150.8107, 150.8023)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  45.58257, 45.57512, 45.5881, 45.5893, 45.60227, 45.61644, 45.73494, 45.74453, 45.78668, 45.78859, 
  45.80344, 45.8288, 45.82162, 45.88332, 45.88857, 45.90817, 45.91677, 45.92823, 45.99362, 46.13132, 
  46.13893, 46.19552, 46.20597, 46.21975, 46.20027, 46.22213, 46.22545, 46.21215, 46.21643, 46.19552, 
  46.19124, 46.15748, 46.10942, 46.088, 46.09419, 46.05131, 46.01747, 46.00984, 45.99124, 45.9817, 
  45.94638, 45.93444, 45.89957, 45.84267, 45.85367, 45.78381, 45.77638, 45.6858, 45.66805, 45.61452, 
  45.60011, 45.5917, 45.59122, 45.58425, 45.58185, 45.57416, 45.57945, 45.57416)
LONGITUDE_VALUEs <- c(
  149.4519, 149.5223, 149.5412, 149.5669, 149.5735, 149.6507, 149.8008, 149.8276, 149.877, 149.9107, 
  149.9038, 149.9485, 149.9959, 150.1003, 150.1276, 150.1413, 150.1331, 150.1729, 150.1867, 150.3879, 
  150.4181, 150.5026, 150.5431, 150.5451, 150.4496, 150.4194, 150.3377, 150.3248, 150.3076, 150.2863, 
  150.2252, 150.1771, 150.1922, 150.1366, 150.0638, 149.9904, 149.9773, 149.934, 149.9183, 149.8949, 
  149.8743, 149.8523, 149.8468, 149.7507, 149.6792, 149.6092, 149.5834, 149.5285, 149.4766, 149.4588, 
  149.4324, 149.4302, 149.4069, 149.4113, 149.3993, 149.4055, 149.4203, 149.4234)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  44.42924, 44.42581, 44.42949, 44.43525, 44.44469, 44.44959, 44.45106, 44.45817, 44.51083, 44.53775, 
  44.53935, 44.54485, 44.56112, 44.57054, 44.56112, 44.56124, 44.55892, 44.56552, 44.56454, 44.57213, 
  44.56993, 44.57286, 44.57103, 44.57763, 44.58203, 44.5945, 44.59438, 44.59976, 44.60049, 44.60575, 
  44.61271, 44.62542, 44.64594, 44.66609, 44.66755, 44.68306, 44.68574, 44.69123, 44.69868, 44.69892, 
  44.70612, 44.70966, 44.71442, 44.71661, 44.71332, 44.72112, 44.72393, 44.731, 44.7332, 44.73771, 
  44.74881, 44.74893, 44.75624, 44.76611, 44.7649, 44.77245, 44.77989, 44.77891, 44.78196, 44.78184, 
  44.78756, 44.79987, 44.81083, 44.81716, 44.81472, 44.81728, 44.81558, 44.82215, 44.82191, 44.82994, 
  44.85392, 44.86451, 44.87448, 44.87874, 44.88908, 44.89382, 44.90999, 44.9151, 44.91814, 44.92519, 
  44.9258, 44.93856, 44.95387, 44.97196, 44.99127, 45.00353, 45.0062, 45.00256, 44.99734, 44.99382, 
  44.98216, 44.97634, 44.95982, 44.95557, 44.94706, 44.95229, 44.96589, 44.96383, 44.96638, 44.962, 
  44.96917, 44.96601, 44.9614, 44.96079, 44.96528, 44.96978, 44.97233, 44.96966, 44.98204, 44.98872, 
  44.98993, 44.9971, 45.00329, 45.01239, 45.01591, 45.0261, 45.02962, 45.03581, 45.04878, 45.05655, 
  45.0654, 45.06649, 45.07158, 45.07207, 45.08419, 45.08867, 45.09449, 45.1169, 45.14742, 45.14972, 
  45.15974, 45.16277, 45.16869, 45.18829, 45.18817, 45.18466, 45.18478, 45.18962, 45.1895, 45.1924, 
  45.19579, 45.19349, 45.19821, 45.20099, 45.21393, 45.22336, 45.22324, 45.22578, 45.2259, 45.22481, 
  45.22723, 45.22759, 45.23412, 45.23219, 45.23412, 45.23074, 45.23533, 45.2529, 45.25205, 45.25362, 
  45.25169, 45.25278, 45.24867, 45.26136, 45.26123, 45.25616, 45.26136, 45.27307, 45.27295, 45.27658, 
  45.28105, 45.27851, 45.29373, 45.29469, 45.31679, 45.318, 45.32101, 45.32186, 45.33332, 45.3326, 
  45.33586, 45.33127, 45.33658, 45.33308, 45.33706, 45.32462, 45.33634, 45.33839, 45.3361, 45.34539, 
  45.3507, 45.39399, 45.41894, 45.41846, 45.42568, 45.42737, 45.45844, 45.48445, 45.51573, 45.54074, 
  45.55253, 45.55349, 45.53954, 45.5369, 45.50755, 45.49071, 45.48974, 45.45291, 45.44568, 45.42568, 
  45.41942, 45.39941, 45.38591, 45.37506, 45.37434, 45.3589, 45.35962, 45.32005, 45.30846, 45.28817, 
  45.26764, 45.2558, 45.26015, 45.2703, 45.2802, 45.27875, 45.28721, 45.29011, 45.30146, 45.31111, 
  45.33043, 45.33598, 45.35215, 45.38278, 45.38736, 45.39483, 45.42087, 45.42038, 45.43749, 45.42737, 
  45.36493, 45.35263, 45.34539, 45.3297, 45.31908, 45.31474, 45.30749, 45.2988, 45.26281, 45.25749, 
  45.24951, 45.23428, 45.2251, 45.22002, 45.21107, 45.20671, 45.21808, 45.21566, 45.20817, 45.20817, 
  45.19438, 45.19704, 45.19172, 45.17453, 45.16679, 45.15674, 45.1433, 45.14173, 45.13277, 45.11775, 
  45.11291, 45.1106, 45.10491, 45.09364, 45.08661, 45.08201, 45.07425, 45.07631, 45.08055, 45.08346, 
  45.08698, 45.09255, 45.09497, 45.10031, 45.106, 45.10552, 45.10879, 45.10515, 45.10927, 45.10951, 
  45.11678, 45.11278, 45.11048, 45.09825, 45.08637, 45.08164, 45.06891, 45.06891, 45.03544, 45.03215, 
  45.02657, 45.02609, 45.01966, 45.01286, 45.00825, 45.00886, 45.00667, 44.99757, 44.99466, 44.99623, 
  44.99223, 44.98834, 44.98931, 44.97122, 44.91776, 44.91594, 44.91047, 44.88724, 44.88992, 44.88031, 
  44.88286, 44.87557, 44.87715, 44.86425, 44.84843, 44.83334, 44.80911, 44.79364, 44.81836, 44.81775, 
  44.8236, 44.82275, 44.82956, 44.82299, 44.81313, 44.80886, 44.80107, 44.77926, 44.77683, 44.77244, 
  44.77025, 44.76951, 44.76561, 44.76354, 44.74891, 44.72526, 44.68609, 44.68207, 44.65118, 44.63762, 
  44.63897, 44.63603, 44.64471, 44.64723, 44.6557, 44.65411, 44.65912, 44.65716, 44.66205, 44.65924, 
  44.66083, 44.65435, 44.64897, 44.64506, 44.63859, 44.63492, 44.62527, 44.61721, 44.59753, 44.57406, 
  44.57944, 44.58592, 44.59582, 44.61024, 44.61708, 44.62661, 44.63052, 44.60535, 44.59203, 44.59007, 
  44.57956, 44.57467, 44.55449, 44.5414, 44.52219, 44.52011, 44.49807, 44.47982, 44.47615, 44.46966, 
  44.46574, 44.45777, 44.45312, 44.44282, 44.43706, 44.43351, 44.42824)
LONGITUDE_VALUEs <- c(
  146.9312, 146.9485, 146.9606, 146.9631, 146.9824, 146.9848, 146.9899, 146.9863, 147.0191, 147.0476, 
  147.0591, 147.0577, 147.0831, 147.1106, 147.1302, 147.1372, 147.1454, 147.1662, 147.1689, 147.1909, 
  147.1987, 147.2005, 147.2076, 147.212, 147.2211, 147.2335, 147.2416, 147.2407, 147.2534, 147.251, 
  147.2596, 147.2608, 147.2716, 147.291, 147.301, 147.3073, 147.3157, 147.314, 147.3205, 147.3284, 
  147.3271, 147.3331, 147.3338, 147.3422, 147.3471, 147.3475, 147.3677, 147.3689, 147.3761, 147.3741, 
  147.3897, 147.3977, 147.4044, 147.4237, 147.4329, 147.4395, 147.4628, 147.4719, 147.4741, 147.4886, 
  147.4959, 147.4966, 147.5114, 147.5299, 147.5407, 147.5464, 147.551, 147.5533, 147.5613, 147.5642, 
  147.5976, 147.5979, 147.6053, 147.6118, 147.6144, 147.6226, 147.6338, 147.641, 147.6515, 147.6508, 
  147.6339, 147.6106, 147.6127, 147.6249, 147.6479, 147.6779, 147.709, 147.7292, 147.7282, 147.7308, 
  147.7278, 147.7308, 147.755, 147.7685, 147.784, 147.814, 147.8516, 147.8566, 147.8676, 147.8786, 
  147.8921, 147.8974, 147.8966, 147.905, 147.9113, 147.9098, 147.9146, 147.9201, 147.9258, 147.9357, 
  147.9455, 147.9527, 147.9835, 147.9888, 147.9955, 147.9998, 148.0078, 148.0085, 148.0252, 148.0303, 
  148.041, 148.0533, 148.0562, 148.0607, 148.0641, 148.0753, 148.0765, 148.105, 148.17, 148.1946, 
  148.1999, 148.2135, 148.2121, 148.25, 148.2595, 148.2595, 148.2658, 148.2646, 148.2688, 148.2693, 
  148.2736, 148.2796, 148.2813, 148.2765, 148.2985, 148.3256, 148.341, 148.3474, 148.3542, 148.3575, 
  148.3647, 148.3781, 148.3922, 148.3954, 148.397, 148.4052, 148.4042, 148.4368, 148.4392, 148.4425, 
  148.4451, 148.4493, 148.4572, 148.4756, 148.4869, 148.4926, 148.5029, 148.4988, 148.5074, 148.5037, 
  148.5091, 148.5156, 148.5331, 148.5422, 148.5719, 148.5949, 148.5965, 148.607, 148.6305, 148.6354, 
  148.6404, 148.65, 148.6547, 148.6596, 148.7484, 148.7765, 148.8014, 148.821, 148.8418, 148.8482, 
  148.8409, 148.8784, 148.8518, 148.8442, 148.8415, 148.8281, 148.8285, 148.892, 148.8927, 148.8563, 
  148.8092, 148.7597, 148.7003, 148.6512, 148.6382, 148.6066, 148.5761, 148.5552, 148.5205, 148.505, 
  148.4847, 148.4724, 148.482, 148.4728, 148.4587, 148.459, 148.4501, 148.3931, 148.3557, 148.3402, 
  148.2475, 148.1229, 148.0624, 148.0284, 148.0274, 148.0174, 148.0198, 148.0085, 148.0041, 148.0068, 
  147.9934, 148.0054, 147.9814, 147.969, 147.9762, 147.9639, 147.9629, 147.9546, 147.9265, 147.899, 
  147.8489, 147.8568, 147.8527, 147.8599, 147.8568, 147.8643, 147.8633, 147.8733, 147.8667, 147.8839, 
  147.8822, 147.8678, 147.8726, 147.8619, 147.8544, 147.8379, 147.829, 147.8118, 147.8012, 147.7768, 
  147.7672, 147.7575, 147.7318, 147.7304, 147.7074, 147.7083, 147.7007, 147.693, 147.6909, 147.6959, 
  147.6981, 147.6947, 147.6988, 147.6897, 147.6655, 147.6619, 147.6351, 147.6255, 147.6252, 147.5864, 
  147.5775, 147.5752, 147.5675, 147.5737, 147.5648, 147.5565, 147.5529, 147.5363, 147.5299, 147.5213, 
  147.5073, 147.5049, 147.4964, 147.5282, 147.5337, 147.5316, 147.5345, 147.527, 147.5239, 147.5157, 
  147.517, 147.511, 147.516, 147.5139, 147.5219, 147.5167, 147.5141, 147.5188, 147.5138, 147.5055, 
  147.511, 147.5057, 147.4863, 147.4535, 147.395, 147.3871, 147.383, 147.3305, 147.3253, 147.3044, 
  147.2975, 147.2932, 147.2851, 147.2631, 147.2644, 147.2523, 147.2457, 147.196, 147.1711, 147.1577, 
  147.1553, 147.1432, 147.1344, 147.1092, 147.099, 147.1028, 147.1016, 147.114, 147.1258, 147.1244, 
  147.145, 147.1607, 147.1631, 147.1947, 147.2008, 147.1986, 147.1797, 147.1633, 147.1296, 147.097, 
  147.0884, 147.0711, 147.0726, 147.0582, 147.0597, 147.0469, 147.0458, 147.0376, 147.0269, 147.0211, 
  147.0094, 147.0034, 147.0115, 147.0149, 147.0342, 147.035, 147.0302, 147.0347, 147.0268, 146.9931, 
  146.9722, 146.9706, 146.9569, 146.9562, 146.95, 146.953, 146.9476, 146.9348, 146.9355, 146.9312, 
  146.9322, 146.9411, 146.9545, 146.9463, 146.9186, 146.8985, 146.8749, 146.8695, 146.8654, 146.8668, 
  146.8623, 146.863, 146.8579, 146.8649, 146.8857, 146.8896, 146.9164)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  44.26463, 44.27667, 44.28994, 44.29093, 44.29633, 44.29682, 44.3069, 44.30911, 44.31967, 44.31967, 
  44.33711, 44.36411, 44.37958, 44.35405, 44.36731, 44.36731, 44.37467, 44.37859, 44.39086, 44.43697, 
  44.454, 44.44518, 44.43868, 44.42495, 44.41772, 44.42152, 44.41662, 44.41833, 44.42275, 44.43562, 
  44.44371, 44.44346, 44.45167, 44.45351, 44.48242, 44.4932, 44.5052, 44.50557, 44.50936, 44.5156, 
  44.51695, 44.5112, 44.51389, 44.5074, 44.49051, 44.48328, 44.47103, 44.44947, 44.41637, 44.41392, 
  44.40681, 44.40374, 44.39982, 44.3943, 44.39013, 44.38632, 44.3835, 44.38252, 44.37933, 44.37307, 
  44.33478, 44.33171, 44.3209, 44.30149, 44.29719, 44.29105, 44.27802, 44.2779, 44.2479, 44.24225, 
  44.21875, 44.20202, 44.16349, 44.15302, 44.15007, 44.15031, 44.14378, 44.12555, 44.12062, 44.11717, 
  44.10817, 44.1041, 44.09264, 44.08413, 44.07464, 44.07217, 44.06724, 44.06045, 44.05688, 44.0512, 
  44.03701, 44.03652, 44.03306, 44.03306, 44.02837, 44.02516, 44.02257, 44.01948, 44.01183, 44.00442, 
  43.98849, 43.98738, 43.97503, 43.97194, 43.95995, 43.95155, 43.94463, 43.94302, 43.93598, 43.93487, 
  43.93042, 43.9314, 43.92065, 43.89814, 43.84877, 43.84295, 43.82821, 43.8183, 43.81112, 43.80728, 
  43.78745, 43.78361, 43.76713, 43.75312, 43.73985, 43.72124, 43.7262, 43.73562, 43.73152, 43.72545, 
  43.71453, 43.71006, 43.7077, 43.70175, 43.702, 43.71391, 43.68449, 43.67034, 43.65184, 43.65258, 
  43.67258, 43.6912, 43.70125, 43.72718, 43.77344, 43.79686, 43.84479, 43.87016, 43.87165, 43.86769, 
  43.8865, 43.8834, 43.89578, 43.90691, 43.91161, 43.90579, 43.91037, 43.90913, 43.93213, 43.93189, 
  43.93312, 43.93485, 43.94301, 43.94857, 43.97081, 43.99082, 43.99367, 44.01058, 44.02502, 44.03218, 
  44.03194, 44.02934, 44.02021, 44.02108, 44.01996, 44.02243, 44.02219, 44.02404, 44.02614, 44.03379, 
  44.05612, 44.06906, 44.07105, 44.07438, 44.07512, 44.07758, 44.07845, 44.08634, 44.0893, 44.09386, 
  44.09693, 44.09409, 44.09446, 44.10026, 44.10297, 44.10987, 44.11197, 44.12158, 44.1254, 44.12959, 
  44.13661, 44.13858, 44.15225, 44.15423, 44.15139, 44.15546, 44.15607, 44.1509, 44.15115, 44.1541, 
  44.15533, 44.15891, 44.17159, 44.17356, 44.16962, 44.17233, 44.17442, 44.17319, 44.17639, 44.17614, 
  44.18279, 44.18661, 44.18452, 44.18599, 44.18292, 44.18439, 44.1903, 44.19449, 44.19289, 44.19584, 
  44.19744, 44.21934, 44.23546)
LONGITUDE_VALUEs <- c(
  146.1103, 146.2951, 146.305, 146.3133, 146.3157, 146.3277, 146.3273, 146.3431, 146.3449, 146.3672, 
  146.3627, 146.3943, 146.4479, 146.4898, 146.5017, 146.5162, 146.5165, 146.5333, 146.5323, 146.5575, 
  146.5735, 146.551, 146.5505, 146.5053, 146.4399, 146.3949, 146.3539, 146.3309, 146.3324, 146.2791, 
  146.2782, 146.2603, 146.2557, 146.2391, 146.2262, 146.1929, 146.186, 146.1743, 146.1682, 146.1725, 
  146.1656, 146.1599, 146.1491, 146.1288, 146.1095, 146.0919, 146.0791, 146.0715, 146.0501, 146.0447, 
  146.0406, 146.0349, 146.0329, 146.0248, 146.0239, 146.0157, 146.0133, 146.0075, 146.0062, 146.0104, 
  145.9997, 145.9956, 145.991, 145.9687, 145.9675, 145.9547, 145.9458, 145.9369, 145.8856, 145.8842, 
  145.8614, 145.8561, 145.8166, 145.7937, 145.7925, 145.7884, 145.7879, 145.767, 145.7654, 145.7577, 
  145.7541, 145.7443, 145.7422, 145.746, 145.746, 145.7481, 145.7465, 145.7477, 145.7428, 145.7429, 
  145.7173, 145.7093, 145.7048, 145.6971, 145.6921, 145.6758, 145.6758, 145.6815, 145.6775, 145.6562, 
  145.6418, 145.6289, 145.6101, 145.5975, 145.5905, 145.5908, 145.5759, 145.5591, 145.5536, 145.5481, 
  145.5412, 145.5338, 145.534, 145.4715, 145.4398, 145.407, 145.3977, 145.412, 145.4123, 145.4166, 
  145.4216, 145.4259, 145.426, 145.4188, 145.4212, 145.4322, 145.4495, 145.5156, 145.5517, 145.5587, 
  145.552, 145.5577, 145.5496, 145.5505, 145.5464, 145.5462, 145.5364, 145.535, 145.5385, 145.5467, 
  145.5544, 145.5551, 145.5589, 145.5601, 145.5721, 145.5687, 145.5761, 145.5907, 145.5996, 145.6032, 
  145.6164, 145.624, 145.6312, 145.6432, 145.6623, 145.6748, 145.688, 145.7029, 145.7664, 145.7764, 
  145.7803, 145.7783, 145.7816, 145.7893, 145.7879, 145.7961, 145.8016, 145.8085, 145.8205, 145.8363, 
  145.8493, 145.8543, 145.8524, 145.8588, 145.8639, 145.8655, 145.8727, 145.8755, 145.8679, 145.8634, 
  145.8639, 145.8686, 145.8742, 145.8742, 145.8789, 145.8789, 145.8823, 145.8796, 145.8907, 145.8892, 
  145.8962, 145.9008, 145.9046, 145.9057, 145.8988, 145.8997, 145.9019, 145.905, 145.9127, 145.9144, 
  145.9221, 145.9283, 145.9426, 145.95, 145.953, 145.9546, 145.9584, 145.965, 145.9688, 145.968, 
  145.9742, 145.9693, 145.9836, 145.9978, 146.0008, 146.0044, 146.0104, 146.0131, 146.0174, 146.025, 
  146.0257, 146.0339, 146.0361, 146.0397, 146.0421, 146.0476, 146.0435, 146.0474, 146.0523, 146.054, 
  146.0474, 146.0564, 146.0691)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  43.83044, 43.83094, 43.83737, 43.84926, 43.86424, 43.86882, 43.86944, 43.87463, 43.87612, 43.87859, 
  43.8823, 43.88466, 43.88688, 43.88849, 43.88639, 43.88948, 43.88565, 43.88094, 43.87562, 43.87241, 
  43.86708, 43.86548, 43.8682, 43.8729, 43.87773, 43.87562, 43.87216, 43.86944, 43.87401, 43.87562, 
  43.87946, 43.87773, 43.86436, 43.86473, 43.86065, 43.85854, 43.86263, 43.863, 43.87216, 43.87315, 
  43.87649, 43.8656, 43.8448, 43.83614, 43.83614, 43.83267, 43.83366, 43.82908, 43.81991, 43.8188, 
  43.82734, 43.82834, 43.83143, 43.83069, 43.82363, 43.82276, 43.83019, 43.82796, 43.82524, 43.82796, 
  43.8266, 43.82759, 43.82474, 43.81855, 43.82066, 43.80827, 43.80678, 43.7882, 43.78758, 43.78299, 
  43.77766, 43.77047, 43.7675, 43.76291, 43.76291, 43.76118, 43.76056, 43.75795, 43.75746, 43.75461, 
  43.75287, 43.74841, 43.74791, 43.7432, 43.74679, 43.74344, 43.73886, 43.73675, 43.73923, 43.73948, 
  43.73576, 43.7365, 43.73997, 43.74332, 43.74816, 43.75746, 43.75783, 43.76192, 43.76229, 43.75894, 
  43.7556, 43.75832, 43.75882, 43.75473, 43.75535, 43.74927, 43.74506, 43.74208, 43.73538, 43.72993, 
  43.72844, 43.72434, 43.71938, 43.7205, 43.71504, 43.71553, 43.71057, 43.70772, 43.70089, 43.70784, 
  43.7066, 43.71467, 43.7195, 43.72447, 43.72422, 43.7272, 43.7329, 43.73501, 43.73438, 43.73611, 
  43.73797, 43.7407, 43.74418, 43.74666, 43.74207, 43.73921, 43.73698, 43.73425, 43.73661, 43.7412, 
  43.74182, 43.74678, 43.74467, 43.74827, 43.74814, 43.75, 43.74728, 43.75, 43.75558, 43.75472, 
  43.74926, 43.75224, 43.75769, 43.7562, 43.75819, 43.76005, 43.7655, 43.76674, 43.7562, 43.75819, 
  43.76191, 43.76538, 43.77021, 43.77071, 43.7743, 43.77579, 43.77864, 43.78186, 43.78199, 43.78657, 
  43.78595, 43.77988, 43.78335, 43.78818, 43.7919, 43.7888, 43.79017, 43.78459, 43.78447, 43.78112, 
  43.7867, 43.78645, 43.78942, 43.79128, 43.79562, 43.79426, 43.80008, 43.80962, 43.80826, 43.81148, 
  43.81073, 43.80688, 43.80801, 43.8059, 43.81024, 43.81049, 43.81482, 43.81098, 43.80838, 43.80652, 
  43.81135, 43.81086, 43.81841, 43.81965, 43.82349, 43.82584)
LONGITUDE_VALUEs <- c(
  146.9029, 146.9146, 146.9187, 146.8883, 146.8737, 146.8744, 146.8641, 146.8641, 146.849, 146.8481, 
  146.8524, 146.8438, 146.8455, 146.8424, 146.8316, 146.823, 146.8179, 146.8211, 146.8193, 146.8277, 
  146.8254, 146.8181, 146.8114, 146.8162, 146.8129, 146.8093, 146.8107, 146.8043, 146.8019, 146.797, 
  146.7934, 146.7872, 146.7947, 146.7997, 146.8037, 146.799, 146.7952, 146.792, 146.7863, 146.7786, 
  146.7736, 146.763, 146.7223, 146.7218, 146.7273, 146.7312, 146.7381, 146.7468, 146.7501, 146.747, 
  146.7384, 146.7291, 146.7257, 146.7113, 146.7113, 146.7068, 146.7017, 146.685, 146.6807, 146.673, 
  146.6665, 146.6623, 146.6568, 146.6321, 146.6102, 146.5968, 146.5853, 146.5913, 146.5949, 146.5947, 
  146.6074, 146.6052, 146.6083, 146.6052, 146.5992, 146.5987, 146.5949, 146.595, 146.5911, 146.5918, 
  146.5885, 146.589, 146.5853, 146.5856, 146.5971, 146.5983, 146.5926, 146.5935, 146.599, 146.6064, 
  146.6053, 146.611, 146.6102, 146.615, 146.6055, 146.6096, 146.6268, 146.6299, 146.6441, 146.6465, 
  146.6438, 146.6412, 146.6314, 146.6301, 146.6266, 146.6189, 146.6225, 146.6187, 146.6225, 146.623, 
  146.6294, 146.6282, 146.6349, 146.6411, 146.6411, 146.6503, 146.6498, 146.6405, 146.6421, 146.6649, 
  146.6769, 146.6759, 146.6872, 146.6838, 146.6764, 146.6835, 146.6819, 146.685, 146.6901, 146.6898, 
  146.6917, 146.6883, 146.6927, 146.702, 146.7121, 146.7101, 146.7181, 146.7204, 146.7326, 146.7322, 
  146.7288, 146.7274, 146.7334, 146.7334, 146.7389, 146.7416, 146.7449, 146.7521, 146.7485, 146.7571, 
  146.7585, 146.766, 146.7679, 146.7698, 146.7732, 146.7689, 146.7684, 146.7714, 146.7822, 146.7866, 
  146.7844, 146.7918, 146.7935, 146.7889, 146.7897, 146.7865, 146.7887, 146.7871, 146.7926, 146.7968, 
  146.7995, 146.8007, 146.8098, 146.8064, 146.8101, 146.8151, 146.8242, 146.827, 146.8331, 146.8352, 
  146.8421, 146.8489, 146.8464, 146.8323, 146.833, 146.8278, 146.8247, 146.8416, 146.846, 146.8462, 
  146.8498, 146.8505, 146.8537, 146.8567, 146.8653, 146.8697, 146.8785, 146.8925, 146.8917, 146.8979, 
  146.9004, 146.9054, 146.9052, 146.902, 146.9049, 146.9006)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  43.47223, 43.47422, 43.47759, 43.47871, 43.47634, 43.48195, 43.48768, 43.48693, 43.49042, 43.49478, 
  43.49615, 43.50287, 43.51507, 43.53362, 43.5325, 43.5381, 43.54942, 43.54021, 43.54096, 43.53362, 
  43.53399, 43.52378, 43.52154, 43.50909, 43.50138, 43.50113, 43.49079, 43.47871, 43.47161, 43.45803, 
  43.46276, 43.46264)
LONGITUDE_VALUEs <- c(
  146.1466, 146.1638, 146.1611, 146.1643, 146.1661, 146.1858, 146.1868, 146.1915, 146.1882, 146.1963, 
  146.1827, 146.1776, 146.1825, 146.2047, 146.1741, 146.1502, 146.1368, 146.1192, 146.1101, 146.0934, 
  146.0847, 146.0596, 146.0732, 146.0861, 146.0879, 146.0955, 146.1079, 146.1079, 146.1183, 146.1156, 
  146.1211, 146.1285)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  43.61967, 43.61793, 43.6234, 43.62564, 43.62949, 43.63396, 43.63595, 43.63955, 43.63844, 43.63893, 
  43.63732, 43.63844, 43.63757, 43.63881, 43.63844, 43.64179, 43.64452, 43.64576, 43.64427, 43.64477, 
  43.65024, 43.65123, 43.64862, 43.64067, 43.63384, 43.63036, 43.6285, 43.62775, 43.62887, 43.62651, 
  43.62402, 43.62489, 43.62489, 43.62092, 43.6239, 43.62141, 43.61843)
LONGITUDE_VALUEs <- c(
  146.3401, 146.3567, 146.3561, 146.3507, 146.3492, 146.3533, 146.3507, 146.3511, 146.348, 146.3454, 
  146.3444, 146.3404, 146.3349, 146.3322, 146.3291, 146.3253, 146.3289, 146.326, 146.3231, 146.3195, 
  146.3171, 146.3116, 146.3078, 146.3119, 146.3003, 146.2979, 146.2896, 146.2764, 146.2704, 146.2697, 
  146.2814, 146.2845, 146.2962, 146.3085, 146.3179, 146.3305, 146.3317)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  43.40854, 43.40817, 43.40642, 43.4033, 43.40442, 43.4018, 43.40517, 43.41465, 43.41939, 43.41814, 
  43.4159, 43.41727, 43.41577, 43.4134, 43.41502, 43.42063, 43.4235, 43.42438, 43.43148, 43.43273, 
  43.43198, 43.43871, 43.43871, 43.44195, 43.44619, 43.44806, 43.44233, 43.44233, 43.43871, 43.4336, 
  43.42587, 43.42413, 43.42687, 43.42338, 43.4235, 43.42986, 43.43285, 43.4321, 43.4336, 43.42388, 
  43.42201, 43.43023, 43.424, 43.42026, 43.41664, 43.41939, 43.41415, 43.41216)
LONGITUDE_VALUEs <- c(
  146.0242, 146.0321, 146.0357, 146.0364, 146.039, 146.0416, 146.0496, 146.0545, 146.0718, 146.0771, 
  146.0766, 146.0797, 146.0824, 146.0802, 146.0857, 146.0845, 146.092, 146.0891, 146.0934, 146.0996, 
  146.1061, 146.1058, 146.1025, 146.0999, 146.1011, 146.0985, 146.0917, 146.0881, 146.0822, 146.0889, 
  146.0871, 146.0824, 146.0778, 146.0737, 146.0701, 146.0677, 146.0711, 146.0661, 146.0618, 146.0634, 
  146.0568, 146.0505, 146.0383, 146.0414, 146.0325, 146.0278, 146.0277, 146.0239)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  43.36076, 43.37361, 43.37785, 43.37735, 43.37823, 43.37623, 43.37324, 43.37424, 43.37074, 43.37299, 
  43.37174, 43.37349, 43.37548, 43.36899, 43.36612, 43.36862)
LONGITUDE_VALUEs <- c(
  146.0057, 146.0143, 146.022, 146.0191, 146.0156, 146.0156, 146.0112, 146.0098, 146.005, 146.0011, 
  145.999, 145.994, 145.993, 145.9866, 145.9896, 145.9944)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  43.42874, 43.42737, 43.42375, 43.42849, 43.42662, 43.42375, 43.42263, 43.41864, 43.42575, 43.42712, 
  43.42288, 43.42338, 43.42575, 43.43123, 43.43435, 43.43522, 43.43722, 43.43684, 43.44282, 43.45055, 
  43.4518, 43.45429, 43.45691, 43.45691, 43.44756, 43.44656, 43.44856, 43.45255, 43.45392, 43.45965, 
  43.45541, 43.45716, 43.45454, 43.45005, 43.45267, 43.44881, 43.44856, 43.4432, 43.43559, 43.42974)
LONGITUDE_VALUEs <- c(
  145.8914, 145.8933, 145.8926, 145.8964, 145.9022, 145.9005, 145.9039, 145.9053, 145.9091, 145.9195, 
  145.9372, 145.9494, 145.9533, 145.9439, 145.9439, 145.9404, 145.9394, 145.936, 145.9331, 145.9384, 
  145.9495, 145.9499, 145.9427, 145.9355, 145.9267, 145.9169, 145.897, 145.891, 145.8934, 145.8891, 
  145.8764, 145.8654, 145.862, 145.8723, 145.8824, 145.8878, 145.8941, 145.8991, 145.9003, 145.8962)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "RUSSIAN FEDERATION")
GeoDATA <- rbind(GeoDATA, Geo_1)

GAZA STRIP \(+\) WEST BANK in GeoDATA_from_GeoHUB \(=\) STATE OF PALESTINE in GeoDATA.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "STATE OF PALESTINE")
Geo_2 <- GeoDATA %>% filter(NAME == "ISRAEL")
Geo_3 <- GeoDATA %>% filter(NAME == "EGYPT")
Geo_4 <- GeoDATA %>% filter(NAME == "JORDAN")
Geo_5 <- GeoDATA %>% filter(NAME == "SYRIAN ARAB REPUBLIC")
Geo_6 <- GeoDATA %>% filter(NAME == "LEBANON")

##### STATE OF PALESTINE #####
LATITUDE_VALUEs <- c(
  31.32322, 31.29653, 31.29594, 31.22008,
  31.23461, 31.24121, 31.25413, 31.26601, 31.27834, 31.2914, 31.30621, 31.36237, 31.37014, 31.3697, 
  31.38039, 31.38758, 31.38963, 31.41204, 31.41175, 31.42083, 31.42318, 31.44149, 31.44471, 31.47736, 
  31.50078, 31.50283, 31.50678, 31.51337, 31.51717, 31.51878, 31.52244, 31.52508, 31.52844, 31.53239, 
  31.54102, 31.59485,
  31.54907, 31.52815, 31.52698, 31.52537, 31.52347, 31.52449, 31.5223, 31.49742, 31.42581, 31.39871, 
  31.39857, 31.36559)
LONGITUDE_VALUEs <- c(
  34.21879, 34.23562, 34.24025, 34.26738,
  34.28574, 34.29141, 34.32042, 34.33484, 34.34187, 34.3671, 34.37328, 34.36436, 34.36694, 34.3714, 
  34.37415, 34.37999, 34.37999, 34.40453, 34.40779, 34.41741, 34.42359, 34.43783, 34.44694, 34.47937, 
  34.51267, 34.52453, 34.5295, 34.54718, 34.55028, 34.55422, 34.55371, 34.55834, 34.55834, 34.5652, 
  34.56726, 34.49122,
  34.45637, 34.43645, 34.43354, 34.43422, 34.43165, 34.42873, 34.4289, 34.4078, 34.33809, 34.30702, 
  34.30308, 34.26823)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  31.49309, 31.52543, 31.56332, 31.61947, 31.6604, 31.72116, 31.75941, 31.76116, 31.76525, 31.76729, 
  31.7721, 31.77371, 31.78363, 31.79618, 31.80508, 31.81981, 31.82463, 31.84679, 31.85671, 31.86633, 
  31.87071, 31.87289, 31.87523, 31.87391, 31.87989, 31.88251, 31.88557, 31.88674, 31.8984, 31.90656, 
  31.91705, 31.92317, 31.92463, 31.92987, 31.93585, 31.93774, 31.96993, 31.98624, 31.99643, 32.00138, 
  32.00007, 32.00444, 32.01928, 32.02321, 32.0481, 32.05013, 32.06847, 32.07123, 32.07574, 32.07559, 
  32.08068, 32.08257, 32.10802, 32.10875, 32.12867, 32.13056, 32.13448, 32.13507, 32.14335, 32.14408, 
  32.1512, 32.15265, 32.15934, 32.15992, 32.16384, 32.16733, 32.16762, 32.17154, 32.17707, 32.17314, 
  32.19014, 32.1868, 32.19552, 32.20452, 32.21178, 32.22442, 32.23008, 32.22921, 32.24301, 32.2417, 
  32.2523, 32.25012, 32.25607, 32.26159, 32.26667, 32.27349, 32.2748, 32.28409, 32.29468, 32.29831, 
  32.30977, 32.32413, 32.33428, 32.34386, 32.34908, 32.36024, 32.36735, 32.36343, 32.37271, 32.3788, 
  32.37779, 32.38098, 32.38083, 32.38547, 32.38605, 32.38924,
  32.38859, 32.38715, 32.39294, 32.4028, 32.41077, 32.41309, 32.41048, 32.41135, 32.40541, 32.41729, 
  32.43758, 32.45641, 32.45902, 32.48494, 32.48726, 32.5013, 32.50535, 32.50492, 32.51028, 32.51737, 
  32.5194, 32.51129, 32.5097, 32.5233, 32.53618, 32.55239, 32.5482, 32.54472, 32.53966, 32.5233, 
  32.52461, 32.52084, 32.51882, 32.50883, 32.50362, 32.50304, 32.49623, 32.49623, 32.49276, 32.47567, 
  32.47886, 32.47611, 32.46843, 32.46829, 32.45844, 32.45395, 32.45033, 32.44163, 32.43729, 32.42801, 
  32.42352, 32.41874, 32.4157, 32.41077, 32.40294, 32.3799, 32.37555, 32.3667, 32.35974, 32.35597, 
  32.34568, 32.34669, 32.34017, 32.34031, 32.29215, 32.28054, 32.27938, 32.28054, 32.27938, 32.2653, 
  32.25485, 32.2486, 32.2428, 32.2335, 32.23525, 32.21201, 32.20809, 32.20025, 32.20054, 32.18993, 
  32.17555, 32.17337, 32.16886, 32.16901, 32.15855, 32.15186, 32.14837, 32.14837, 32.14183, 32.12686, 
  32.10781, 32.1004, 32.08891, 32.08964, 32.04105, 32.02067, 32.01776, 31.99404, 31.97234, 31.97045, 
  31.96084, 31.95006, 31.94948, 31.9435, 31.93928, 31.93505, 31.92719, 31.92529, 31.91845, 31.90256, 
  31.87064, 31.85635, 31.85694, 31.85271, 31.84702, 31.83696, 31.83229, 31.82865, 31.83113, 31.85125, 
  31.85723, 31.85504, 31.84775, 31.83361, 31.83258, 31.82456, 31.8234, 31.82617, 31.81041, 31.80895, 
  31.825, 31.82704, 31.82237, 31.81712, 31.81887, 31.83988, 31.86377, 31.86552, 31.87252, 31.882, 
  31.88287, 31.86232, 31.85342, 31.8419, 31.84555, 31.84511, 31.83942, 31.83082, 31.82644, 31.81259, 
  31.81025, 31.80398, 31.80077, 31.79231, 31.78983, 31.78428, 31.764, 31.75714, 31.75349, 31.74896, 
  31.73831, 31.72502, 31.72006, 31.71202, 31.70954, 31.71334, 31.71918, 31.71582, 31.72385, 31.72049, 
  31.73247, 31.73363, 31.73699, 31.72896, 31.72955, 31.73509, 31.73013, 31.71378, 31.71538, 31.69406, 
  31.69026, 31.68325, 31.65915, 31.65272, 31.64016, 31.61385, 31.59426, 31.57993, 31.54966, 31.52786,
  31.52339, 31.50978, 31.50158, 31.48079, 31.45927, 31.43701, 31.39233, 31.36419, 31.35598, 31.35027, 
  31.34162, 31.34836, 31.35217, 31.35716, 31.35965, 31.35525, 31.36214, 31.3746, 31.39189, 31.49163, 
  31.49602, 31.4969)
LONGITUDE_VALUEs <- c(
  35.47584, 35.48133, 35.48335, 35.49055, 35.50085, 35.52695, 35.56167, 35.55738, 35.55875, 35.55257, 
  35.556, 35.55171, 35.54691, 35.55223, 35.54279, 35.54159, 35.54845, 35.5452, 35.5361, 35.54812, 
  35.54503, 35.54966, 35.54348, 35.53902, 35.53885, 35.53198, 35.53627, 35.53198, 35.53095, 35.52357, 
  35.52752, 35.52597, 35.53593, 35.53559, 35.54605, 35.54039, 35.54571, 35.53352, 35.53781, 35.53369, 
  35.52905, 35.52494, 35.52802, 35.5215, 35.52047, 35.5294, 35.52974, 35.5354, 35.53317, 35.53832, 
  35.53935, 35.5458, 35.53258, 35.53721, 35.55111, 35.5451, 35.55145, 35.54579, 35.54321, 35.55746, 
  35.56038, 35.55575, 35.55832, 35.55077, 35.55197, 35.54802, 35.55798, 35.55197, 35.55334, 35.5597, 
  35.55952, 35.5657, 35.57034, 35.5621, 35.5712, 35.56622, 35.57309, 35.56364, 35.56244, 35.56794, 
  35.57103, 35.56279, 35.5621, 35.56485, 35.55919, 35.55747, 35.56244, 35.56742, 35.56279, 35.55472, 
  35.56382, 35.55403, 35.55678, 35.55369, 35.55901, 35.55317, 35.55403, 35.56125, 35.56416, 35.56262, 
  35.56004, 35.55849, 35.56279, 35.56279, 35.55781, 35.55506,
  35.5474, 35.54088, 35.53179, 35.49077, 35.48028, 35.453, 35.44819, 35.44493, 35.44098, 35.41867, 
  35.41077, 35.4166, 35.42038, 35.40459, 35.4063, 35.40287, 35.39033, 35.38467, 35.38038, 35.36511, 
  35.3428, 35.31635, 35.29301, 35.25217, 35.23635, 35.22451, 35.21593, 35.21541, 35.20117, 35.18676, 
  35.18041, 35.17765, 35.17765, 35.16341, 35.16032, 35.15568, 35.14453, 35.13904, 35.13852, 35.10815, 
  35.10092, 35.09131, 35.08478, 35.08272, 35.07208, 35.07294, 35.06556, 35.06556, 35.06076, 35.05921, 
  35.05612, 35.05739, 35.05293, 35.05499, 35.05413, 35.03953, 35.04966, 35.05139, 35.04864, 35.04074, 
  35.04195, 35.02838, 35.02683, 35.01705, 35.01379, 35.00881, 35.01361, 35.01653, 35.02048, 35.03044, 
  35.0234, 35.02391, 35.0191, 35.01996, 35.01361, 34.99112, 34.98975, 34.97361, 34.96433, 34.95714, 
  34.95955, 34.96452, 34.96418, 34.96693, 34.97757, 34.97397, 34.97929, 34.98685, 34.99045, 34.98444, 
  34.99422, 34.9865, 34.98255, 34.98684, 35.00281, 35.00521, 34.99937, 34.99903, 34.99422, 34.98701, 
  34.99027, 35.00074, 35.00504, 35.00864, 35.00228, 35.00245, 35.0119, 35.02924, 35.03542, 35.03903, 
  35.03731, 35.03267, 35.01533, 34.99386, 34.99251, 34.97757, 34.97757, 35.0155, 35.02666, 35.04829, 
  35.06099, 35.07954, 35.08863, 35.0967, 35.10323, 35.10494, 35.11061, 35.11868, 35.14854, 35.18804, 
  35.181, 35.19522, 35.20742, 35.20999, 35.21566, 35.21583, 35.21086, 35.20622, 35.20381, 35.20776, 
  35.22116, 35.22785, 35.22407, 35.23214, 35.2421, 35.24896, 35.25738, 35.25068, 35.26493, 35.25532, 
  35.25721, 35.25618, 35.25961, 35.25961, 35.2627, 35.25703, 35.25171, 35.25978, 35.25892, 35.26373, 
  35.25153, 35.24965, 35.24364, 35.24278, 35.23883, 35.23076, 35.22698, 35.21857, 35.20537, 35.18012, 
  35.16501, 35.1537, 35.14992, 35.14048, 35.13602, 35.13567, 35.12606, 35.11868, 35.10734, 35.08434, 
  35.08537, 35.067, 35.02786, 35.00502, 34.99215, 34.97155, 34.95198, 34.94666, 34.94117, 34.94203,
  34.94008, 34.9442, 34.94301, 34.93443, 34.92104, 34.89942, 34.8795, 34.89598, 34.91074, 34.91022, 
  34.92533, 34.95006, 34.98747, 35, 35.02299, 35.13423, 35.15349, 35.2302, 35.25029, 35.39723, 
  35.4132, 35.45164)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### ISRAEL #####
LATITUDE_VALUEs <- c(
  31.41857, 31.36641, 31.27549, 31.24379, 31.20827, 31.15687, 31.1216, 31.07662, 31.0478, 31.00426, 
  30.95069, 30.92654, 30.92742, 30.90857, 30.8632, 30.8408, 30.81846, 30.81551, 30.79885, 30.79723, 
  30.79045, 30.76936, 30.76228, 30.76183, 30.73498, 30.72303, 30.71875, 30.71049, 30.71004, 30.70089, 
  30.68967, 30.68451, 30.67993, 30.67255, 30.66753, 30.65823, 30.61879, 30.60697, 30.582, 30.54845, 
  30.53381, 30.49876, 30.48796, 30.4714, 30.44106, 30.40976, 30.34579, 30.30222, 30.28206, 30.25211, 
  30.24055, 30.20584, 30.16287, 30.15501, 30.14387, 30.13452, 30.12858, 30.12205, 30.11388, 30.06279, 
  30.0616, 30.03946, 30.01226, 30.00929, 30.00334, 30.00156, 29.99502, 29.9916, 29.97227, 29.96989, 
  29.96305, 29.9571, 29.95011, 29.94699, 29.93925, 29.92735, 29.92095, 29.88554, 29.84638, 29.81913, 
  29.8105, 29.802, 29.78815, 29.77459, 29.69872, 29.67218, 29.63899, 29.62169, 29.5784, 29.54397, 
  29.54308,
  29.54965, 29.54965, 29.54293, 29.53815, 29.52994, 29.51664, 29.51261, 29.51141, 29.49842, 29.49617, 
  29.4902,
  29.49363, 29.51291, 29.52755, 29.54383, 29.57936, 29.59742, 29.6131, 29.64383, 29.68784, 29.75954, 
  29.80871, 29.84341, 30.37148, 30.41272, 30.44173, 30.495, 30.53248, 30.54712, 30.59249, 30.67993, 
  30.85907, 30.96091, 31.06669,
  31.22008, 31.23461, 31.24121, 31.25413, 31.26601, 31.27834, 31.2914, 31.30621, 31.36237, 31.37014, 
  31.3697, 31.38039, 31.38758, 31.38963, 31.41204, 31.41175, 31.42083, 31.42318, 31.44149, 31.44471,
  31.47736, 31.50078, 31.50283, 31.50678, 31.51337, 31.51717, 31.51878, 31.52244, 31.52508, 31.52844, 
  31.53239, 31.54102, 31.59485,
  31.71444, 31.84111, 31.92215, 31.94226, 32.01768, 32.05464, 32.05799, 32.09944, 32.10264, 32.11035, 
  32.15701, 32.16239, 32.16602, 32.27073, 32.40576, 32.48833, 32.50397, 32.51034, 32.60612, 32.61567, 
  32.66279, 32.69804, 32.70007, 32.7057, 32.70989, 32.80286, 32.82565, 32.82623, 32.83128, 32.83171, 
  32.83633, 32.83517, 32.82551, 32.82378, 32.81758, 32.82291, 32.8144, 32.81469, 32.82089, 32.82133, 
  32.81238, 32.81815, 32.82479, 32.82436, 32.83171, 32.83171, 32.82262, 32.82537, 32.84339, 32.86762, 
  32.89962, 32.91418, 32.92038, 32.92196, 32.91908, 32.9198, 32.93623, 32.96792, 32.98491, 32.98793, 
  33.0363, 33.03903, 33.04177, 33.04464, 33.04896, 33.05788, 33.0796, 33.08579, 33.09169, 33.09269, 
  33.09427,
  33.09097, 33.08608, 33.09456, 33.08593, 33.08867, 33.09959, 33.09873, 33.09586, 33.09183, 33.10305, 
  33.10851, 33.10492, 33.10089, 33.10089, 33.10477, 33.096, 33.08737, 33.0586, 33.05529, 33.06177, 
  33.0609, 33.06637, 33.09111, 33.09327, 33.09255, 33.08982, 33.11541, 33.11642, 33.12519, 33.12964, 
  33.14316, 33.19862, 33.20925, 33.23251, 33.23811, 33.25434, 33.25821, 33.26424, 33.27457, 33.28347, 
  33.29108, 33.28189, 33.26582, 33.26151, 33.25419, 33.24271, 33.245, 33.2463, 33.24946, 33.25347, 
  33.25434, 33.26453, 33.27156, 33.28075, 33.27414, 33.27874, 33.30715, 33.32192, 33.32952, 33.32967, 
  33.32522, 33.3311, 33.32881, 33.33569,
  33.31705, 33.27673, 33.26582, 33.25132, 33.24486, 33.20264, 33.19287, 33.16773, 33.12734, 33.11268, 
  33.10132, 32.98088, 32.94473, 32.92643, 32.92311, 32.88939, 32.87007, 32.85349, 32.82839, 32.80589, 
  32.78222, 32.78208, 32.77429, 32.74585,
  32.73126, 32.73444, 32.72274, 32.72693, 32.71509, 32.71855, 32.70469, 32.69833, 32.69371, 32.68548, 
  32.68013, 32.68591, 32.67738, 32.68663, 32.67738, 32.68027, 32.67551, 32.6703, 32.66857, 32.65918, 
  32.65152, 32.65224, 32.64284, 32.6453, 32.64024, 32.64761, 32.64732, 32.64487, 32.64386, 32.63966, 
  32.63793, 32.63374, 32.6255, 32.62261, 32.61379, 32.60598, 32.60395, 32.59658, 32.59817, 32.58587, 
  32.58035, 32.56577, 32.56678, 32.55332, 32.54913, 32.539, 32.53914, 32.54566, 32.54508, 32.53075, 
  32.52626, 32.52105, 32.52163, 32.51367, 32.50962, 32.51512, 32.50643, 32.50296, 32.49702, 32.48674,
  32.48109, 32.47718, 32.47385, 32.46922, 32.46821, 32.46227, 32.46024, 32.45024, 32.43445, 32.43474,
  32.42996, 32.42431, 32.42591, 32.41866, 32.41924, 32.41518, 32.41098, 32.40808, 32.40127, 32.39997, 
  32.40431, 32.40083, 32.39533, 32.39315, 32.39141,
  32.38924, 32.38859, 32.38715, 32.39294, 32.4028, 32.41077, 32.41309, 32.41048, 32.41135, 32.40541, 
  32.41729, 32.43758, 32.45641, 32.45902, 32.48494, 32.48726, 32.5013, 32.50535, 32.50492, 32.51028, 
  32.51737, 32.5194, 32.51129, 32.5097, 32.5233, 32.53618, 32.55239, 32.5482, 32.54472, 32.53966, 
  32.5233, 32.52461, 32.52084, 32.51882, 32.50883, 32.50362, 32.50304, 32.49623, 32.49623, 32.49276, 
  32.47567, 32.47886, 32.47611, 32.46843, 32.46829, 32.45844, 32.45395, 32.45033, 32.44163, 32.43729, 
  32.42801, 32.42352, 32.41874, 32.4157, 32.41077, 32.40294, 32.3799, 32.37555, 32.3667, 32.35974, 
  32.35597, 32.34568, 32.34669, 32.34017, 32.34031, 32.29215, 32.28054, 32.27938, 32.28054, 32.27938, 
  32.2653, 32.25485, 32.2486, 32.2428, 32.2335, 32.23525, 32.21201, 32.20809, 32.20025, 32.20054, 
  32.18993, 32.17555, 32.17337, 32.16886, 32.16901, 32.15855, 32.15186, 32.14837, 32.14837, 32.14183, 
  32.12686, 32.10781, 32.1004, 32.08891, 32.08964, 32.04105, 32.02067, 32.01776, 31.99404, 31.97234, 
  31.97045, 31.96084, 31.95006, 31.94948, 31.9435, 31.93928, 31.93505, 31.92719, 31.92529, 31.91845, 
  31.90256, 31.87064, 31.85635, 31.85694, 31.85271, 31.84702, 31.83696, 31.83229, 31.82865, 31.83113, 
  31.85125, 31.85723, 31.85504, 31.84775, 31.83361, 31.83258, 31.82456, 31.8234, 31.82617, 31.81041, 
  31.80895, 31.825, 31.82704, 31.82237, 31.81712, 31.81887, 31.83988, 31.86377, 31.86552, 31.87252, 
  31.882, 31.88287, 31.86232, 31.85342, 31.8419, 31.84555, 31.84511, 31.83942, 31.83082, 31.82644, 
  31.81259, 31.81025, 31.80398, 31.80077, 31.79231, 31.78983, 31.78428, 31.764, 31.75714, 31.75349, 
  31.74896, 31.73831, 31.72502, 31.72006, 31.71202, 31.70954, 31.71334, 31.71918, 31.71582, 31.72385, 
  31.72049, 31.73247, 31.73363, 31.73699, 31.72896, 31.72955, 31.73509, 31.73013, 31.71378, 31.71538, 
  31.69406, 31.69026, 31.68325, 31.65915, 31.65272, 31.64016, 31.61385, 31.59426, 31.57993, 31.54966, 
  31.52786, 31.52339, 31.50978, 31.50158, 31.48079, 31.45927, 31.43701, 31.39233, 31.36419, 31.35598, 
  31.35027, 31.34162, 31.34836, 31.35217, 31.35716, 31.35965, 31.35525, 31.36214, 31.3746, 31.39189, 
  31.49163, 31.49602, 31.4969, 31.49309)
LONGITUDE_VALUEs <- c(
  35.47252, 35.45879, 35.40317, 35.39836, 35.41175, 35.45022, 35.4564, 35.4461, 35.42619, 35.41794, 
  35.41691, 35.39322, 35.37092, 35.35374, 35.33109, 35.32971, 35.33757, 35.34083, 35.33705, 35.32177, 
  35.31508, 35.3137, 35.30821, 35.29569, 35.29448, 35.28624, 35.29413, 35.29276, 35.28143, 35.27576, 
  35.27353, 35.26787, 35.27062, 35.26255, 35.26581, 35.26288, 35.22152, 35.2186, 35.20384, 35.20367, 
  35.19492, 35.19302, 35.18598, 35.18152, 35.16178, 35.16285, 35.19134, 35.15255, 35.14534, 35.15049, 
  35.14466, 35.15236, 35.14246, 35.15516, 35.15087, 35.16083, 35.15774, 35.16203, 35.15705, 35.14606, 
  35.13026, 35.11242, 35.10074, 35.11036, 35.11019, 35.11671, 35.1162, 35.09834, 35.08839, 35.09216, 
  35.08856, 35.07791, 35.07551, 35.0841, 35.08427, 35.07602, 35.08255, 35.08478, 35.06092, 35.04993, 
  35.05079, 35.04478, 35.04392, 35.03053, 35.01079, 35.02144, 35.01572, 35.00026, 34.97828, 34.97801, 
  34.9775,
  34.9606, 34.95391, 34.95046, 34.94411, 34.94051, 34.92524, 34.9266, 34.92386, 34.91356, 34.90841, 
  34.90241,
  34.90343, 34.89536, 34.88506, 34.87836, 34.87253, 34.86618, 34.87683, 34.87871, 34.85657, 34.84832, 
  34.82549, 34.81348, 34.6111, 34.54315, 34.54143, 34.55688, 34.5184, 34.51634, 34.51857, 34.4966, 
  34.40274, 34.36407, 34.32254,
  34.26738, 34.28574, 34.29141, 34.32042, 34.33484, 34.34187, 34.3671, 34.37328, 34.36436, 34.36694, 
  34.3714, 34.37415, 34.37999, 34.37999, 34.40453, 34.40779, 34.41741, 34.42359, 34.43783, 34.44694,
  34.47937, 34.51267, 34.52453, 34.5295, 34.54718, 34.55028, 34.55422, 34.55371, 34.55834, 34.55834,
  34.5652, 34.56726, 34.49122,
  34.58147, 34.65355, 34.69337, 34.70813, 34.73821, 34.74886, 34.75829, 34.77306, 34.77735, 34.77753, 
  34.79503, 34.79211, 34.79726, 34.83262, 34.86713, 34.88905, 34.88871, 34.89626, 34.91755, 34.91446, 
  34.92807, 34.92738, 34.93528, 34.93459, 34.943, 34.95656, 34.95485, 34.95931, 34.96395, 34.97167, 
  34.98146, 34.98661, 34.99296, 34.99897, 35.00446, 35.00894, 35.011, 35.01409, 35.01288, 35.0158, 
  35.01752, 35.03451, 35.03142, 35.02713, 35.02558, 35.03296, 35.03845, 35.04532, 35.05837, 35.06969, 
  35.08, 35.08075, 35.07783, 35.07217, 35.06942, 35.06581, 35.07234, 35.07613, 35.08196, 35.08127, 
  35.09638, 35.0981, 35.09655, 35.1005, 35.10016, 35.10342, 35.10565, 35.10496, 35.10599, 35.10342, 
  35.10393,
  35.1557, 35.1557, 35.17612, 35.19432, 35.20754, 35.21011, 35.22659, 35.22779, 35.23722, 35.28444, 
  35.29302, 35.30074, 35.29972, 35.30864, 35.31722, 35.32425, 35.32117, 35.34984, 35.37816, 35.3821, 
  35.39552, 35.43225, 35.4458, 35.46419, 35.4889, 35.50366, 35.50263, 35.5203, 35.52529, 35.53335, 
  35.52649, 35.54228, 35.53661, 35.53748, 35.54709, 35.54657, 35.55584, 35.5567, 35.56477, 35.56219, 
  35.56734, 35.58485, 35.58416, 35.59396, 35.59825, 35.62382, 35.62297, 35.62571, 35.62262, 35.62348, 
  35.61902, 35.62286, 35.61977, 35.64209, 35.65924, 35.66234, 35.70869, 35.71178, 35.72088, 35.73084, 
  35.74131, 35.74629, 35.75162, 35.77306,
  35.81332, 35.77745, 35.78397, 35.81008, 35.81505, 35.81712, 35.83805, 35.84423, 35.81763, 35.81694, 
  35.85076, 35.87187, 35.8947, 35.8796, 35.87221, 35.85059, 35.84406, 35.84578, 35.83771, 35.81573, 
  35.79994, 35.79462, 35.78226, 35.75652,
  35.74261, 35.73626, 35.73266, 35.72459, 35.71652, 35.71189, 35.67534, 35.67669, 35.67051, 35.67497, 
  35.66228, 35.6573, 35.64494, 35.63465, 35.62315, 35.6168, 35.60683, 35.60546, 35.59756, 35.60717, 
  35.6058, 35.5919, 35.58881, 35.58109, 35.57423, 35.57096, 35.56153, 35.56151, 35.56821, 35.56769, 
  35.56083, 35.56838, 35.56117, 35.56804, 35.57284, 35.57301, 35.56615, 35.56701, 35.5785, 35.57559, 
  35.57811, 35.57627, 35.56974, 35.57781, 35.57077, 35.57043, 35.56631, 35.56425, 35.56134, 35.56014, 
  35.56734, 35.56511, 35.55574, 35.55282, 35.56072, 35.56226, 35.5645, 35.55711, 35.57669, 35.58012, 
  35.56501, 35.57051, 35.56415, 35.56776, 35.56261, 35.56244, 35.57377, 35.56639, 35.56587, 35.55711, 
  35.55522, 35.56244, 35.55248, 35.55179, 35.55849, 35.5566, 35.56159, 35.55747, 35.56073, 35.55455, 
  35.55214, 35.54648, 35.55026, 35.5494, 35.55507, 
  35.55506, 35.5474, 35.54088, 35.53179, 35.49077, 35.48028, 35.453, 35.44819, 35.44493, 35.44098, 
  35.41867, 35.41077, 35.4166, 35.42038, 35.40459, 35.4063, 35.40287, 35.39033, 35.38467, 35.38038, 
  35.36511, 35.3428, 35.31635, 35.29301, 35.25217, 35.23635, 35.22451, 35.21593, 35.21541, 35.20117, 
  35.18676, 35.18041, 35.17765, 35.17765, 35.16341, 35.16032, 35.15568, 35.14453, 35.13904, 35.13852, 
  35.10815, 35.10092, 35.09131, 35.08478, 35.08272, 35.07208, 35.07294, 35.06556, 35.06556, 35.06076, 
  35.05921, 35.05612, 35.05739, 35.05293, 35.05499, 35.05413, 35.03953, 35.04966, 35.05139, 35.04864, 
  35.04074, 35.04195, 35.02838, 35.02683, 35.01705, 35.01379, 35.00881, 35.01361, 35.01653, 35.02048, 
  35.03044, 35.0234, 35.02391, 35.0191, 35.01996, 35.01361, 34.99112, 34.98975, 34.97361, 34.96433, 
  34.95714, 34.95955, 34.96452, 34.96418, 34.96693, 34.97757, 34.97397, 34.97929, 34.98685, 34.99045, 
  34.98444, 34.99422, 34.9865, 34.98255, 34.98684, 35.00281, 35.00521, 34.99937, 34.99903, 34.99422, 
  34.98701, 34.99027, 35.00074, 35.00504, 35.00864, 35.00228, 35.00245, 35.0119, 35.02924, 35.03542, 
  35.03903, 35.03731, 35.03267, 35.01533, 34.99386, 34.99251, 34.97757, 34.97757, 35.0155, 35.02666, 
  35.04829, 35.06099, 35.07954, 35.08863, 35.0967, 35.10323, 35.10494, 35.11061, 35.11868, 35.14854, 
  35.18804, 35.181, 35.19522, 35.20742, 35.20999, 35.21566, 35.21583, 35.21086, 35.20622, 35.20381, 
  35.20776, 35.22116, 35.22785, 35.22407, 35.23214, 35.2421, 35.24896, 35.25738, 35.25068, 35.26493, 
  35.25532, 35.25721, 35.25618, 35.25961, 35.25961, 35.2627, 35.25703, 35.25171, 35.25978, 35.25892, 
  35.26373, 35.25153, 35.24965, 35.24364, 35.24278, 35.23883, 35.23076, 35.22698, 35.21857, 35.20537, 
  35.18012, 35.16501, 35.1537, 35.14992, 35.14048, 35.13602, 35.13567, 35.12606, 35.11868, 35.10734, 
  35.08434, 35.08537, 35.067, 35.02786, 35.00502, 34.99215, 34.97155, 34.95198, 34.94666, 34.94117, 
  34.94203, 34.94008, 34.9442, 34.94301, 34.93443, 34.92104, 34.89942, 34.8795, 34.89598, 34.91074, 
  34.91022, 34.92533, 34.95006, 34.98747, 35, 35.02299, 35.13423, 35.15349, 35.2302, 35.25029, 
  35.39723, 35.4132, 35.45164, 35.47584)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

##### EGYPT #####
Geo_0 <- Geometric_Operations(Geo_3, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0))
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(
  29.11244, 29.13034, 29.17598, 29.18197, 29.19636, 29.20475, 29.2479, 29.25688, 29.26826, 29.28294, 
  29.29252, 29.29761, 29.34371, 29.35209, 29.38291, 29.42867, 29.43943, 29.44571, 29.46036, 29.47291, 
  29.48726, 29.49144, 29.53447, 29.59509, 29.63717, 29.67954, 29.78775, 29.81754, 29.86043, 29.86218, 
  29.88335, 29.89318, 29.94161, 29.9547, 29.95604, 29.95455, 29.95991, 29.95203, 29.94756, 29.94385, 
  29.93834, 29.93537, 29.93343, 29.92585, 29.91513, 29.89906, 29.89192, 29.8757, 29.87168, 29.85947, 
  29.83475, 29.82046, 29.81703, 29.7707, 29.75818, 29.75476, 29.72674, 29.7078, 29.69453, 29.68096, 
  29.66053, 29.64904, 29.61054, 29.59756, 29.58368, 29.57054, 29.56695, 29.56038, 29.56068, 29.55202, 
  29.55053, 29.535, 29.51648, 29.50766, 29.50602, 29.48988, 29.47823, 29.47524, 29.46508, 29.46493, 
  29.4437, 29.43129, 29.41051, 29.41081, 29.40243, 29.38404, 29.36055, 29.34289, 29.31491, 29.30997, 
  29.29814, 29.30039, 29.29021, 29.26715, 29.25487, 29.22956, 29.22162, 29.20499, 29.20783, 29.20439, 
  29.16707, 29.1648, 29.13482, 29.13512, 29.11907, 29.10633, 29.08308, 29.06747, 29.05622, 29.04617, 
  29.04316, 29.03296, 29.02215, 29.00834, 29.00654, 28.99948, 28.98252, 28.9723, 28.96284, 28.94617, 
  28.92784, 28.91777, 28.89674, 28.88607, 28.87103, 28.84127, 28.81675, 28.80562, 28.78607, 28.76982, 
  28.67262, 28.6449, 28.62983, 28.61778, 28.6006, 28.5801, 28.5807, 28.50953, 28.44947, 28.43468, 
  28.36069, 28.33954, 28.31899, 28.31294, 28.29753, 28.29511, 28.22889, 28.23857, 28.23887, 28.23403, 
  28.22858, 28.17866, 28.16111, 28.13114, 28.12811, 28.11539, 28.08117, 28.06935, 28.06572, 28.05815, 
  28.04875, 28.03481, 28.02178, 28.00481, 27.99026, 27.98207, 27.97207, 27.95539, 27.93173, 27.93901, 
  27.89169, 27.88531, 27.81489, 27.79727, 27.78877, 27.79636, 27.79419, 27.78675, 27.76852, 27.76715, 
  27.74087, 27.73692, 27.73799, 27.73312, 27.72613, 27.72294, 27.72446, 27.73935, 27.73647, 27.72932, 
  27.72765, 27.73176, 27.73191, 27.74025, 27.76167, 27.76592, 27.76683, 27.76303, 27.76516, 27.76182, 
  27.78111, 27.79007, 27.79113, 27.79675, 27.78779, 27.79508, 27.78612, 27.78916, 27.78901, 27.8133, 
  27.81679, 27.82469, 27.82621, 27.82864, 27.83987, 27.85444, 27.85808, 27.8552, 27.85125, 27.84837, 
  27.85732, 27.85808, 27.86233, 27.86172, 27.84761, 27.84958, 27.84776, 27.86127, 27.86734, 27.8769, 
  27.88176, 27.88555, 27.89147, 27.90527, 27.90891, 27.91574, 27.90891, 27.91361, 27.91741, 27.91407, 
  27.92044, 27.92802, 27.93318, 27.93288, 27.94031, 27.94535, 27.95278, 27.95247, 27.96324, 27.9643, 
  27.97203, 27.97476, 27.97855, 27.98431, 27.98628, 28.02993, 28.04008, 28.05751, 28.06781, 28.06644, 
  28.08416, 28.09416, 28.147, 28.15305, 28.17666, 28.18392, 28.18801, 28.19467, 28.19164, 28.19709, 
  28.19845, 28.20737, 28.20435, 28.20858, 28.211, 28.23339, 28.24473, 28.27149, 28.32092, 28.33361, 
  28.34404, 28.35975, 28.37032, 28.37803, 28.39434, 28.4194, 28.43661, 28.4425, 28.45548, 28.47902, 
  28.48008, 28.47706, 28.47932, 28.47223, 28.47072, 28.50331, 28.51779, 28.55414, 28.57886, 28.61021, 
  28.62498, 28.63462, 28.6405, 28.64788, 28.65481, 28.65933, 28.67198, 28.7301, 28.74997, 28.76637, 
  28.77781, 28.84384, 28.85376, 28.85587, 28.86564, 28.87902, 28.896, 28.91779, 28.92951, 28.94093, 
  28.94979, 28.96031, 28.96406, 28.97007, 28.97758, 28.98313, 29.01466, 29.02232, 29.03057, 29.04468, 
  29.05738, 29.07274, 29.08684, 29.09464, 29.10649, 29.14698, 29.16302, 29.16962, 29.17246, 29.1891, 
  29.19554, 29.22851, 29.25532, 29.2667, 29.28257, 29.2941, 29.31191, 29.31805, 29.32568, 29.32853, 
  29.33691, 29.3402, 29.37431, 29.37551, 29.37955, 29.38688, 29.40064, 29.40228, 29.40019, 29.41305, 
  29.42262, 29.43279, 29.4286, 29.43174, 29.43249, 29.45073, 29.46104, 29.46522, 29.47329, 29.47389, 
  29.48256, 29.49048, 29.48854, 29.4902,
  29.49363, 29.51291, 29.52755, 29.54383, 29.57936, 29.59742, 29.6131, 29.64383, 29.68784, 29.75954, 
  29.80871, 29.84341, 30.37148, 30.41272, 30.44173, 30.495, 30.53248, 30.54712, 30.59249, 30.67993, 
  30.85907, 30.96091, 31.06669, 31.22008, 31.29594, 31.29653, 31.32322,
  31.26168, 31.21471, 31.19562, 31.19694, 31.15861, 31.15949, 31.15244, 31.1545, 31.14568, 31.12849, 
  31.11909, 31.11306, 31.11674, 31.12423, 31.14466, 31.15494, 31.16463, 31.17183, 31.18578, 31.20017, 
  31.20458, 31.21251, 31.2175, 31.22146, 31.22807, 31.23012, 31.22807, 31.21779, 31.15891, 31.14172, 
  31.14759, 31.12394, 31.08881, 31.0672, 31.05632, 31.05749, 31.07131, 31.08969, 31.0941, 31.10336, 
  31.10865, 31.12026, 31.14392, 31.14862, 31.17301, 31.20223, 31.21618, 31.22088, 31.22469, 31.22719, 
  31.22704, 31.2335, 31.23056, 31.24231, 31.24788, 31.25317, 31.25639, 31.27356, 31.27283, 31.2806, 
  31.28897, 31.29909, 31.30349, 31.30452, 31.31273, 31.36126, 31.39116, 31.41021, 31.43159, 31.43599, 
  31.46776, 31.50407, 31.48636, 31.49851, 31.50656, 31.51168, 31.51183, 31.51563, 31.51753, 31.51943, 
  31.52251, 31.52646, 31.50963, 31.47977, 31.47099, 31.46366, 31.46147, 31.46352, 31.46044, 31.45327, 
  31.45107, 31.46293, 31.46161, 31.48343, 31.47069, 31.44521, 31.44199, 31.46205, 31.53495, 31.56157, 
  31.60047, 31.59988, 31.58205, 31.45854, 31.4562, 31.4644, 31.48138, 31.46557, 31.43101, 31.34601, 
  31.30026, 31.27151, 31.27972, 31.33311, 31.29087, 31.28911, 31.20106, 31.20987, 31.18343, 31.13349, 
  31.14583, 31.10645, 31.07904, 30.99962, 30.93694)
LONGITUDE_VALUEs <- c(
  32.66631, 32.64935, 32.6456, 32.63942, 32.63599, 32.62535, 32.62672, 32.61572, 32.61778, 32.60268, 
  32.60989, 32.60199, 32.59376, 32.58243, 32.56664, 32.49866, 32.50003, 32.47909, 32.47257, 32.45128, 
  32.44373, 32.43001, 32.37233, 32.34213, 32.37199, 32.35826, 32.43858, 32.47878, 32.50932, 32.47808, 
  32.47329, 32.45716, 32.4813, 32.517, 32.53744, 32.54345, 32.55803, 32.56678, 32.56713, 32.56129, 
  32.56507, 32.55786, 32.5649, 32.56061, 32.58464, 32.59871, 32.61142, 32.62497, 32.63321, 32.63493, 
  32.62566, 32.60849, 32.62428, 32.66264, 32.66625, 32.68101, 32.6975, 32.69663, 32.68839, 32.69131, 
  32.68083, 32.68632, 32.6913, 32.67757, 32.71225, 32.71379, 32.71688, 32.71637, 32.72032, 32.72221, 
  32.72719, 32.72203, 32.72461, 32.71912, 32.72616, 32.73629, 32.73302, 32.74092, 32.73474, 32.74539, 
  32.75208, 32.78778, 32.80254, 32.80975, 32.81971, 32.82641, 32.81508, 32.83036, 32.82898, 32.84478, 
  32.84873, 32.85626, 32.86863, 32.88134, 32.87481, 32.88923, 32.90914, 32.92614, 32.93644, 32.95173, 
  32.97627, 32.99582, 33.01866, 33.02777, 33.03702, 33.05625, 33.07875, 33.07514, 33.0978, 33.09797, 
  33.12511, 33.12817, 33.15548, 33.15891, 33.17557, 33.18261, 33.17917, 33.17178, 33.17316, 33.17058, 
  33.18741, 33.18844, 33.17401, 33.18106, 33.17247, 33.17745, 33.19341, 33.21109, 33.2171, 33.23204, 
  33.19918, 33.20982, 33.22321, 33.21875, 33.22459, 33.22424, 33.26202, 33.28673, 33.36946, 33.36946, 
  33.43744, 33.48927, 33.5061, 33.53289, 33.55041, 33.56655, 33.60671, 33.60808, 33.61667, 33.61495, 
  33.62285, 33.62731, 33.67023, 33.66989, 33.68328, 33.68498, 33.71486, 33.70902, 33.72995, 33.73442, 
  33.76086, 33.7667, 33.75983, 33.79692, 33.7993, 33.81682, 33.82266, 33.85975, 33.87726, 33.91401, 
  33.95277, 33.98574, 34.04823, 34.08738, 34.09288, 34.1049, 34.16294, 34.1899, 34.20552, 34.2117, 
  34.23264, 34.23264, 34.23951, 34.24294, 34.24191, 34.24724, 34.25187, 34.24312, 34.24844, 34.25325, 
  34.25823, 34.2572, 34.26012, 34.25582, 34.25033, 34.25497, 34.24501, 34.23917, 34.22766, 34.22268, 
  34.20568, 34.20517, 34.21255, 34.21341, 34.22217, 34.23419, 34.23968, 34.24844, 34.25875, 34.26389, 
  34.26921, 34.26303, 34.27041, 34.2699, 34.27676, 34.2711, 34.28432, 34.28793, 34.28518, 34.28758, 
  34.29394, 34.28947, 34.28964, 34.29737, 34.30115, 34.31145, 34.31643, 34.3178, 34.32467, 34.31917, 
  34.3214, 34.33084, 34.32552, 34.33119, 34.32672, 34.33239, 34.34733, 34.3487, 34.35609, 34.3633, 
  34.36983, 34.36639, 34.36948, 34.37549, 34.38717, 34.38423, 34.38543, 34.39264, 34.40071, 34.41634, 
  34.42201, 34.42716, 34.42336, 34.42439, 34.43229, 34.44276, 34.43675, 34.43984, 34.43761, 34.43091, 
  34.42646, 34.43522, 34.44156, 34.4486, 34.44774, 34.43865, 34.4426, 34.43693, 34.43384, 34.42938, 
  34.42217, 34.42732, 34.42096, 34.41581, 34.42131, 34.40946, 34.41684, 34.40757, 34.40912, 34.4189, 
  34.42096, 34.44088, 34.44082, 34.44768, 34.44562, 34.45763, 34.4554, 34.47051, 34.46965, 34.48715, 
  34.49712, 34.50158, 34.50913, 34.50467, 34.50793, 34.52063, 34.51188, 34.51943, 34.54312, 34.54964, 
  34.57539, 34.57333, 34.579, 34.57385, 34.57556, 34.58586, 34.58741, 34.62654, 34.61865, 34.62809, 
  34.62363, 34.62191, 34.6341, 34.64542, 34.64869, 34.64457, 34.6492, 34.64371, 34.64851, 34.63959, 
  34.63942, 34.64285, 34.65024, 34.6523, 34.68148, 34.6868, 34.68474, 34.67306, 34.67477, 34.66242, 
  34.67324, 34.6698, 34.67358, 34.68061, 34.67554, 34.69185, 34.69047, 34.69956, 34.71811, 34.72292, 
  34.73322, 34.7406, 34.73236, 34.74368, 34.74231, 34.74609, 34.74111, 34.75347, 34.75244, 34.75862, 
  34.76171, 34.7782, 34.78694, 34.80377, 34.80445, 34.81063, 34.8084, 34.81321, 34.81664, 34.8156, 
  34.8326, 34.82797, 34.83329, 34.83483, 34.84188, 34.85561, 34.85423, 34.85784, 34.85853, 34.86643, 
  34.86935, 34.88942, 34.89904, 34.90241,
  34.90343, 34.89536, 34.88506, 34.87836, 34.87253, 34.86618, 34.87683, 34.87871, 34.85657, 34.84832, 
  34.82549, 34.81348, 34.6111, 34.54315, 34.54143, 34.55688, 34.5184, 34.51634, 34.51857, 34.4966, 
  34.40274, 34.36407, 34.32254, 34.26738, 34.24025, 34.23562, 34.21879,
  34.12763, 34.03202, 33.97982, 33.97365, 33.86963, 33.8662, 33.83548, 33.82739, 33.80489, 33.739, 
  33.67925, 33.59034, 33.52509, 33.49212, 33.46758, 33.44989, 33.42535, 33.41849, 33.38295, 33.32203, 
  33.28734, 33.26795, 33.27086, 33.23, 33.19139, 33.13267, 33.10264, 33.07172, 32.95571, 32.92737, 
  32.92153, 32.88204, 32.80396, 32.73528, 32.65188, 32.60637, 32.5645, 32.53735, 32.52706, 32.52208, 
  32.51247, 32.50748, 32.48413, 32.48396, 32.45238, 32.40517, 32.37787, 32.3777, 32.36722, 32.36447, 
  32.35761, 32.35495, 32.34568, 32.33967, 32.3292, 32.32542, 32.32851, 32.32079, 32.31221, 32.2485, 
  32.20835, 32.18293, 32.17881, 32.1704, 32.1661, 32.07031, 32.02552, 32.0027, 31.99068, 31.98484, 
  31.96544, 31.95102, 31.9718, 31.96854, 31.95858, 31.9457, 31.91771, 31.91292, 31.91447, 31.91189, 
  31.84818, 31.84374, 31.8185, 31.75857, 31.75927, 31.77318, 31.77112, 31.76769, 31.76443, 31.77215, 
  31.76923, 31.75601, 31.75069, 31.75344, 31.71499, 31.59841, 31.56736, 31.48805, 31.33684, 31.26407, 
  31.11124, 31.05704, 30.96505, 30.53859, 30.44188, 30.43364, 30.38418, 30.36083, 30.3547, 30.30868, 
  30.25376, 30.18164, 30.08822, 30.06761, 30.03258, 30.01335, 29.89668, 29.87676, 29.88019, 29.81631, 
  29.78678, 29.75044, 29.70093, 29.58762, 29.48313)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_3, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_3 <- st_set_geometry(Geo_3, st_union(Geo_0[c(2:10, 94)]))
Geo_0 <- st_union(st_geometry(Geo_3), st_geometry(Geo))
if (length(Geo_0) > 1) {Geo_0 <- Geo_0[st_geometry_type(Geo_0) %in% c("POLYGON", "MULTIPOLYGON")]}
Geo_3 <- st_set_geometry(Geo_3, Geo_0)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}

##### JORDAN #####
Geo_0 <- Geometric_Operations(Geo_4, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_4 <- st_set_geometry(Geo_4, st_geometry(Geo_0))
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
LATITUDE_VALUEs <- c(
  33.17463, 33.16299, 33.14086, 32.8421, 32.81238, 32.77746, 32.77313, 32.76245, 32.75754, 32.74686, 
  32.73328, 32.72375, 32.72462, 32.71798, 32.69573, 32.68938, 32.6651, 32.64414, 32.60496, 32.59238, 
  32.56316, 32.56447, 32.55752, 32.56533, 32.56475, 32.573, 32.55622, 32.52829, 32.51787, 32.46038, 
  32.42837, 32.4275, 32.37851, 32.37837, 32.36619, 32.34052, 32.31165, 32.32094, 32.32094, 32.31354, 
  32.32399, 32.3353, 32.34908, 32.34792, 32.35531, 32.35705, 32.37112, 32.37271, 32.37112, 32.37315, 
  32.37808, 32.3846, 32.38677, 32.45894, 32.49919, 32.49384, 32.49427, 32.50976, 32.52612, 32.52757, 
  32.51483, 32.5238, 32.52554, 32.51425, 32.53364, 32.54247, 32.54783, 32.56909, 32.57517, 32.57908, 
  32.57879, 32.60048, 32.61364, 32.65238, 32.65513, 32.65918, 32.65816, 32.66163, 32.66106, 32.68576, 
  32.69328, 32.69992, 32.70743, 32.72115, 32.7226, 32.7187, 32.72332, 32.71928, 32.72448, 32.71827, 
  32.71827, 32.73357, 32.73256, 32.72462, 32.7317, 32.72635, 32.73444, 32.73588, 32.74209, 32.7356, 
  32.7418, 32.74513, 32.74975, 32.75667, 32.747, 32.74845, 32.74527, 32.74787,
  32.74585, 32.73126, 32.73444, 32.72274, 32.72693, 32.71509, 32.71855, 32.70469, 32.69833, 32.69371, 
  32.68548, 32.68013, 32.68591, 32.67738, 32.68663, 32.67738, 32.68027, 32.67551, 32.6703, 32.66857, 
  32.65918, 32.65152, 32.65224, 32.64284, 32.6453, 32.64024, 32.64761, 32.64732, 32.64487, 32.64386, 
  32.63966, 32.63793, 32.63374, 32.6255, 32.62261, 32.61379, 32.60598, 32.60395, 32.59658, 32.59817, 
  32.58587, 32.58035, 32.56577, 32.56678, 32.55332, 32.54913, 32.539, 32.53914, 32.54566, 32.54508, 
  32.53075, 32.52626, 32.52105, 32.52163, 32.51367, 32.50962, 32.51512, 32.50643, 32.50296, 32.49702, 
  32.48674, 32.48109, 32.47718, 32.47385, 32.46922, 32.46821, 32.46227, 32.46024, 32.45024, 32.43445, 
  32.43474, 32.42996, 32.42431, 32.42591, 32.41866, 32.41924, 32.41518, 32.41098, 32.40808, 32.40127, 
  32.39997, 32.40431, 32.40083, 32.39533, 32.39315, 32.39141,
  32.38924, 32.38605, 32.38547, 32.38083, 32.38098, 32.37779, 32.3788, 32.37271, 32.36343, 32.36735, 
  32.36024, 32.34908, 32.34386, 32.33428, 32.32413, 32.30977, 32.29831, 32.29468, 32.28409, 32.2748, 
  32.27349, 32.26667, 32.26159, 32.25607, 32.25012, 32.2523, 32.2417, 32.24301, 32.22921, 32.23008, 
  32.22442, 32.21178, 32.20452, 32.19552, 32.1868, 32.19014, 32.17314, 32.17707, 32.17154, 32.16762, 
  32.16733, 32.16384, 32.15992, 32.15934, 32.15265, 32.1512, 32.14408, 32.14335, 32.13507, 32.13448, 
  32.13056, 32.12867, 32.10875, 32.10802, 32.08257, 32.08068, 32.07559, 32.07574, 32.07123, 32.06847, 
  32.05013, 32.0481, 32.02321, 32.01928, 32.00444, 32.00007, 32.00138, 31.99643, 31.98624, 31.96993, 
  31.93774, 31.93585, 31.92987, 31.92463, 31.92317, 31.91705, 31.90656, 31.8984, 31.88674, 31.88557, 
  31.88251, 31.87989, 31.87391, 31.87523, 31.87289, 31.87071, 31.86633, 31.85671, 31.84679, 31.82463, 
  31.81981, 31.80508, 31.79618, 31.78363, 31.77371, 31.7721, 31.76729, 31.76525, 31.76116, 31.75941, 
  31.72116, 31.6604, 31.61947, 31.56332, 31.52543, 31.49309,
  31.41857, 31.36641, 31.27549, 31.24379, 31.20827, 31.15687, 31.1216, 31.07662, 31.0478, 31.00426, 
  30.95069, 30.92654, 30.92742, 30.90857, 30.8632, 30.8408, 30.81846, 30.81551, 30.79885, 30.79723, 
  30.79045, 30.76936, 30.76228, 30.76183, 30.73498, 30.72303, 30.71875, 30.71049, 30.71004, 30.70089, 
  30.68967, 30.68451, 30.67993, 30.67255, 30.66753, 30.65823, 30.61879, 30.60697, 30.582, 30.54845, 
  30.53381, 30.49876, 30.48796, 30.4714, 30.44106, 30.40976, 30.34579, 30.30222, 30.28206, 30.25211, 
  30.24055, 30.20584, 30.16287, 30.15501, 30.14387, 30.13452, 30.12858, 30.12205, 30.11388, 30.06279, 
  30.0616, 30.03946, 30.01226, 30.00929, 30.00334, 30.00156, 29.99502, 29.9916, 29.97227, 29.96989, 
  29.96305, 29.9571, 29.95011, 29.94699, 29.93925, 29.92735, 29.92095, 29.88554, 29.84638, 29.81913, 
  29.8105, 29.802, 29.78815, 29.77459, 29.69872, 29.67218, 29.63899, 29.62169, 29.5784, 29.54397, 
  29.54308,
  29.53178, 29.52655, 29.51938, 29.51923, 29.51565, 29.51415, 29.51684, 29.51759, 29.50011, 29.47486, 
  29.47232, 29.4638, 29.45871, 29.44631, 29.43136, 29.41955, 29.40863, 29.39682, 29.38694, 29.37797, 
  29.37214, 29.3684, 29.36599, 29.36188)
LONGITUDE_VALUEs <- c(
  38.41503, 38.36235, 38.34997, 37.79496, 37.78532, 37.76198, 37.74894, 37.74276, 37.70638, 37.68476, 
  37.56564, 37.56083, 37.54848, 37.52068, 37.50352, 37.48292, 37.47361, 37.44618, 37.423, 37.37718, 
  37.36154, 37.33031, 37.31829, 37.30096, 37.27007, 37.25686, 37.20432, 37.18199, 37.16208, 37.11126, 
  37.06595, 37.02648, 36.93652, 36.92674, 36.91387, 36.86785, 36.83901, 36.78545, 36.73996, 36.71971, 
  36.6926, 36.689, 36.59388, 36.58462, 36.54547, 36.51098, 36.47337, 36.45072, 36.43785, 36.43613, 
  36.40095, 36.39792, 36.38864, 36.30418, 36.23654, 36.2266, 36.20943, 36.20307, 36.20462, 36.19638, 
  36.16411, 36.1569, 36.12187, 36.07914, 36.07673, 36.08085, 36.0745, 36.0697, 36.06301, 36.06301, 
  36.05975, 36.02695, 36.02404, 36.02902, 36.02387, 36.02336, 36.01924, 36.00258, 35.97012, 35.94471, 
  35.94988, 35.93752, 35.93906, 35.93494, 35.92465, 35.91675, 35.91143, 35.90456, 35.90473, 35.89975, 
  35.88653, 35.87589, 35.85425, 35.85562, 35.84498, 35.83572, 35.82524, 35.80927, 35.80893, 35.8012, 
  35.79949, 35.79313, 35.80258, 35.79588, 35.78456, 35.77752, 35.77048, 35.76275,
  35.75652, 35.74261, 35.73626, 35.73266, 35.72459, 35.71652, 35.71189, 35.67534, 35.67669, 35.67051, 
  35.67497, 35.66228, 35.6573, 35.64494, 35.63465, 35.62315, 35.6168, 35.60683, 35.60546, 35.59756, 
  35.60717, 35.6058, 35.5919, 35.58881, 35.58109, 35.57423, 35.57096, 35.56153, 35.56151, 35.56821, 
  35.56769, 35.56083, 35.56838, 35.56117, 35.56804, 35.57284, 35.57301, 35.56615, 35.56701, 35.5785, 
  35.57559, 35.57811, 35.57627, 35.56974, 35.57781, 35.57077, 35.57043, 35.56631, 35.56425, 35.56134, 
  35.56014, 35.56734, 35.56511, 35.55574, 35.55282, 35.56072, 35.56226, 35.5645, 35.55711, 35.57669, 
  35.58012, 35.56501, 35.57051, 35.56415, 35.56776, 35.56261, 35.56244, 35.57377, 35.56639, 35.56587, 
  35.55711, 35.55522, 35.56244, 35.55248, 35.55179, 35.55849, 35.5566, 35.56159, 35.55747, 35.56073, 
  35.55455, 35.55214, 35.54648, 35.55026, 35.5494, 35.55507,
  35.55506, 35.55781, 35.56279, 35.56279, 35.55849, 35.56004, 35.56262, 35.56416, 35.56125, 35.55403, 
  35.55317, 35.55901, 35.55369, 35.55678, 35.55403, 35.56382, 35.55472, 35.56279, 35.56742, 35.56244, 
  35.55747, 35.55919, 35.56485, 35.5621, 35.56279, 35.57103, 35.56794, 35.56244, 35.56364, 35.57309, 
  35.56622, 35.5712, 35.5621, 35.57034, 35.5657, 35.55952, 35.5597, 35.55334, 35.55197, 35.55798, 
  35.54802, 35.55197, 35.55077, 35.55832, 35.55575, 35.56038, 35.55746, 35.54321, 35.54579, 35.55145, 
  35.5451, 35.55111, 35.53721, 35.53258, 35.5458, 35.53935, 35.53832, 35.53317, 35.5354, 35.52974, 
  35.5294, 35.52047, 35.5215, 35.52802, 35.52494, 35.52905, 35.53369, 35.53781, 35.53352, 35.54571, 
  35.54039, 35.54605, 35.53559, 35.53593, 35.52597, 35.52752, 35.52357, 35.53095, 35.53198, 35.53627, 
  35.53198, 35.53885, 35.53902, 35.54348, 35.54966, 35.54503, 35.54812, 35.5361, 35.5452, 35.54845, 
  35.54159, 35.54279, 35.55223, 35.54691, 35.55171, 35.556, 35.55257, 35.55875, 35.55738, 35.56167, 
  35.52695, 35.50085, 35.49055, 35.48335, 35.48133, 35.47584,
  35.47252, 35.45879, 35.40317, 35.39836, 35.41175, 35.45022, 35.4564, 35.4461, 35.42619, 35.41794, 
  35.41691, 35.39322, 35.37092, 35.35374, 35.33109, 35.32971, 35.33757, 35.34083, 35.33705, 35.32177, 
  35.31508, 35.3137, 35.30821, 35.29569, 35.29448, 35.28624, 35.29413, 35.29276, 35.28143, 35.27576, 
  35.27353, 35.26787, 35.27062, 35.26255, 35.26581, 35.26288, 35.22152, 35.2186, 35.20384, 35.20367, 
  35.19492, 35.19302, 35.18598, 35.18152, 35.16178, 35.16285, 35.19134, 35.15255, 35.14534, 35.15049, 
  35.14466, 35.15236, 35.14246, 35.15516, 35.15087, 35.16083, 35.15774, 35.16203, 35.15705, 35.14606, 
  35.13026, 35.11242, 35.10074, 35.11036, 35.11019, 35.11671, 35.1162, 35.09834, 35.08839, 35.09216, 
  35.08856, 35.07791, 35.07551, 35.0841, 35.08427, 35.07602, 35.08255, 35.08478, 35.06092, 35.04993, 
  35.05079, 35.04478, 35.04392, 35.03053, 35.01079, 35.02144, 35.01572, 35.00026, 34.97828, 34.97801, 
  34.9775,
  34.99785, 35.00111, 34.9994, 35.00111, 35.00111, 34.99699, 34.99785, 34.99648, 34.99183, 34.97931, 
  34.97553, 34.97433, 34.97639, 34.96746, 34.97484, 34.97192, 34.97862, 34.96352, 34.96849, 34.96317, 
  34.96592, 34.95957, 34.96051, 34.96324)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_4, Geo)
Geo_0 <- st_union(Geo_0)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_4 <- st_set_geometry(Geo_4, Geo_0[1])
Geo_4 <- st_union(Geo_4, Geo)
Geo_0 <- st_union(Geo_4)
Geo_4 <- st_set_geometry(Geo_4, Geo_0)
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
Geo_4 <- Geo_4 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### SYRIAN ARAB REPUBLIC #####
Geo_0 <- Geometric_Operations(Geo_5, Geo_2)
Geo_0 <- Geometric_Operations(Geo_0, Geo_4)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_5 <- st_set_geometry(Geo_5, Geo_0[1])
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}
LATITUDE_VALUEs <- c(
  33.16299, 33.14086, 32.8421, 32.81238, 32.77746, 32.77313, 32.76245, 32.75754, 32.74686, 32.73328, 
  32.72375, 32.72462, 32.71798, 32.69573, 32.68938, 32.6651, 32.64414, 32.60496, 32.59238, 32.56316, 
  32.56447, 32.55752, 32.56533, 32.56475, 32.573, 32.55622, 32.52829, 32.51787, 32.46038, 32.42837, 
  32.4275, 32.37851, 32.37837, 32.36619, 32.34052, 32.31165, 32.32094, 32.32094, 32.31354, 32.32399, 
  32.3353, 32.34908, 32.34792, 32.35531, 32.35705, 32.37112, 32.37271, 32.37112, 32.37315, 32.37808, 
  32.3846, 32.38677, 32.45894, 32.49919, 32.49384, 32.49427, 32.50976, 32.52612, 32.52757, 32.51483, 
  32.5238, 32.52554, 32.51425, 32.53364, 32.54247, 32.54783, 32.56909, 32.57517, 32.57908, 32.57879, 
  32.60048, 32.61364, 32.65238, 32.65513, 32.65918, 32.65816, 32.66163, 32.66106, 32.68576, 32.69328, 
  32.69992, 32.70743, 32.72115, 32.7226, 32.7187, 32.72332, 32.71928, 32.72448, 32.71827, 32.71827, 
  32.73357, 32.73256, 32.72462, 32.7317, 32.72635, 32.73444, 32.73588, 32.74209, 32.7356, 32.7418, 
  32.74513, 32.74975, 32.75667, 32.747, 32.74845, 32.74527, 32.74787, 32.74585,
  32.77429, 32.78208, 32.78222, 32.80589, 32.82839, 32.85349, 32.87007, 32.88939, 32.92311, 32.92643, 
  32.94473, 32.98088, 33.10132, 33.11268, 33.12734, 33.16773, 33.19287, 33.20264, 33.24486, 33.25132, 
  33.26582, 33.27673, 33.31705, 33.33569,
  33.35749, 33.36265, 33.39548, 33.40766, 33.43316, 33.44791, 33.46997, 33.48744, 33.50046, 33.50891, 
  33.51936, 33.52866, 33.54297, 33.53767, 33.54683, 33.54826, 33.57959, 33.58803, 33.59131, 33.58788, 
  33.58874, 33.59346, 33.5956, 33.61548, 33.62091, 33.61834, 33.63049, 33.64235, 33.64149, 33.63663, 
  33.64492, 33.65707, 33.67993, 33.67964, 33.69352, 33.7152, 33.72163, 33.72905, 33.75275, 33.76259, 
  33.76702, 33.77116, 33.7713, 33.82237, 33.82693, 33.81966, 33.82494, 33.83706, 33.83977, 33.85573, 
  33.85588, 33.83777, 33.83249, 33.83563, 33.83592, 33.84162, 33.84376, 33.8563, 33.85388, 33.85844, 
  33.85474, 33.85659, 33.84048, 33.84362, 33.84105, 33.83264, 33.83278, 33.82907, 33.83264, 33.82822, 
  33.83264, 33.84461, 33.85531, 33.86315, 33.86742, 33.87811, 33.88167, 33.87754, 33.88239, 33.89706, 
  33.90846, 33.91815, 33.94122, 33.9529, 33.98237, 33.99902, 34.01909, 34.0326, 34.03474, 34.05081, 
  34.05081, 34.05963, 34.05934, 34.04853, 34.04868, 34.05749, 34.05934, 34.06318, 34.06404, 34.10285, 
  34.11536, 34.1317, 34.13568, 34.15841, 34.16452, 34.19107, 34.19193, 34.19604, 34.19562, 34.19832, 
  34.20385, 34.22628, 34.22827, 34.27764, 34.29509, 34.30601, 34.31579, 34.31494, 34.31835, 34.31806, 
  34.36923, 34.40521, 34.42644, 34.43012, 34.43337, 34.42615, 34.43521, 34.44017, 34.44399, 34.44965, 
  34.44852, 34.45744, 34.46593, 34.48023, 34.4972, 34.50711, 34.50951, 34.49933, 34.50371, 34.49918, 
  34.50117, 34.49777, 34.50187, 34.50258, 34.52323, 34.53242, 34.53978, 34.53964, 34.55787, 34.57752, 
  34.58233, 34.59378, 34.60042, 34.6072, 34.612, 34.60593, 34.60607, 34.59957, 34.59208, 34.59151, 
  34.61144, 34.62246, 34.63715, 34.63856, 34.62627, 34.62684, 34.63715, 34.63008, 34.64788, 34.6644, 
  34.66624, 34.6716, 34.67471, 34.68332, 34.68402, 34.68939, 34.68854, 34.69193, 34.68896, 34.6836, 
  34.68318, 34.66638, 34.65508, 34.65254, 34.64068, 34.63884, 34.63475, 34.63376, 34.63008, 34.63277, 
  34.62811, 34.63037, 34.62669, 34.63051, 34.63503, 34.62726, 34.62993, 34.62541, 34.63007, 34.63063, 
  34.63643, 34.63685, 34.63275, 34.62837, 34.6336, 34.63289, 34.63614, 34.63445, 34.64236, 34.63332, 
  34.63643, 34.62908, 34.63402, 34.62781, 34.63318, 34.63572, 34.62795, 34.62993, 34.62753, 34.64504, 
  34.64222, 34.65041, 34.64801, 34.64984, 34.64476, 34.64363, 34.6353, 34.63388, 34.70295, 34.89074)
LONGITUDE_VALUEs <- c(
  38.36235, 38.34997, 37.79496, 37.78532, 37.76198, 37.74894, 37.74276, 37.70638, 37.68476, 37.56564, 
  37.56083, 37.54848, 37.52068, 37.50352, 37.48292, 37.47361, 37.44618, 37.423, 37.37718, 37.36154, 
  37.33031, 37.31829, 37.30096, 37.27007, 37.25686, 37.20432, 37.18199, 37.16208, 37.11126, 37.06595, 
  37.02648, 36.93652, 36.92674, 36.91387, 36.86785, 36.83901, 36.78545, 36.73996, 36.71971, 36.6926, 
  36.689, 36.59388, 36.58462, 36.54547, 36.51098, 36.47337, 36.45072, 36.43785, 36.43613, 36.40095, 
  36.39792, 36.38864, 36.30418, 36.23654, 36.2266, 36.20943, 36.20307, 36.20462, 36.19638, 36.16411, 
  36.1569, 36.12187, 36.07914, 36.07673, 36.08085, 36.0745, 36.0697, 36.06301, 36.06301, 36.05975, 
  36.02695, 36.02404, 36.02902, 36.02387, 36.02336, 36.01924, 36.00258, 35.97012, 35.94471, 35.94988, 
  35.93752, 35.93906, 35.93494, 35.92465, 35.91675, 35.91143, 35.90456, 35.90473, 35.89975, 35.88653, 
  35.87589, 35.85425, 35.85562, 35.84498, 35.83572, 35.82524, 35.80927, 35.80893, 35.8012, 35.79949, 
  35.79313, 35.80258, 35.79588, 35.78456, 35.77752, 35.77048, 35.76275, 35.75652,
  35.78226, 35.79462, 35.79994, 35.81573, 35.83771, 35.84578, 35.84406, 35.85059, 35.87221, 35.8796, 
  35.8947, 35.87187, 35.85076, 35.81694, 35.81763, 35.84423, 35.83805, 35.81712, 35.81505, 35.81008, 
  35.78397, 35.77745, 35.81332, 35.77306,
  35.80185, 35.81335, 35.82072, 35.82861, 35.89109, 35.90603, 35.93829, 35.95289, 35.95546, 35.95049, 
  35.93847, 35.94139, 35.97623, 35.99531, 36.01333, 36.0274, 36.06, 36.06103, 36.05383, 36.04679, 
  36.03598, 36.03426, 36.02688, 36.01899, 35.99461, 35.98689, 35.97299, 35.97213, 35.96422, 35.94912, 
  35.93471, 35.93384, 35.95941, 35.96542, 35.97343, 35.96732, 35.9723, 35.98929, 36.00164, 36.0116, 
  36.00835, 36.0123, 36.03495, 36.06756, 36.07855, 36.08884, 36.10394, 36.11321, 36.1395, 36.15185, 
  36.16112, 36.17519, 36.20086, 36.2077, 36.21422, 36.21886, 36.23414, 36.23998, 36.2453, 36.25114, 
  36.25801, 36.27038, 36.28772, 36.29785, 36.30949, 36.32289, 36.33422, 36.35517, 36.37114, 36.38574, 
  36.39656, 36.38969, 36.39089, 36.38401, 36.37199, 36.36684, 36.35585, 36.33061, 36.31945, 36.31003, 
  36.28152, 36.28324, 36.30367, 36.30864, 36.33372, 36.35241, 36.3859, 36.39328, 36.40359, 36.40496, 
  36.41902, 36.43087, 36.43911, 36.4544, 36.4714, 36.48408, 36.49267, 36.49439, 36.50572, 36.51121, 
  36.53233, 36.54365, 36.56666, 36.57301, 36.58674, 36.59584, 36.60219, 36.60648, 36.61232, 36.62297, 
  36.62486, 36.60117, 36.59293, 36.57988, 36.60133, 36.60271, 36.59464, 36.57798, 36.57283, 36.5639, 
  36.52717, 36.57215, 36.53267, 36.53353, 36.5289, 36.52477, 36.52065, 36.50915, 36.51361, 36.5076, 
  36.49678, 36.48667, 36.46143, 36.45971, 36.44873, 36.44942, 36.41404, 36.39876, 36.37918, 36.37543, 
  36.36771, 36.35895, 36.34985, 36.33594, 36.33491, 36.36855, 36.37422, 36.38109, 36.41595, 36.39757, 
  36.40272, 36.40169, 36.40736, 36.4029, 36.41457, 36.41509, 36.41972, 36.43089, 36.43157, 36.45232, 
  36.46108, 36.45628, 36.46435, 36.45388, 36.43035, 36.41644, 36.40167, 36.38965, 36.35928, 36.34932, 
  36.35156, 36.35019, 36.35499, 36.35517, 36.35087, 36.34452, 36.34108, 36.3392, 36.31996, 36.31687, 
  36.3112, 36.30279, 36.30882, 36.30453, 36.30178, 36.298, 36.29749, 36.29148, 36.28873, 36.28341, 
  36.27757, 36.2731, 36.26469, 36.26211, 36.24288, 36.23721, 36.22694, 36.22591, 36.22042, 36.21132, 
  36.2029, 36.18762, 36.17646, 36.17508, 36.15705, 36.14866, 36.14591, 36.14007, 36.12376, 36.1126, 
  36.09819, 36.09235, 36.0793, 36.07449, 36.07174, 36.06075, 36.05131, 36.04584, 36.03314, 36.00326, 
  35.99089, 35.989, 35.98643, 35.98093, 35.9811, 35.97578, 35.97836, 35.97527, 35.94792, 38.87448)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_5, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_5 <- st_set_geometry(Geo_5, Geo_0[1])
Geo_5 <- st_union(Geo_5, Geo)
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}
Geo_5 <- Geo_5 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### LEBANON #####
LATITUDE_VALUEs <- c(
  33.35749, 33.36265, 33.39548, 33.40766, 33.43316, 33.44791, 33.46997, 33.48744, 33.50046, 33.50891, 
  33.51936, 33.52866, 33.54297, 33.53767, 33.54683, 33.54826, 33.57959, 33.58803, 33.59131, 33.58788, 
  33.58874, 33.59346, 33.5956, 33.61548, 33.62091, 33.61834, 33.63049, 33.64235, 33.64149, 33.63663, 
  33.64492, 33.65707, 33.67993, 33.67964, 33.69352, 33.7152, 33.72163, 33.72905, 33.75275, 33.76259, 
  33.76702, 33.77116, 33.7713, 33.82237, 33.82693, 33.81966, 33.82494, 33.83706, 33.83977, 33.85573, 
  33.85588, 33.83777, 33.83249, 33.83563, 33.83592, 33.84162, 33.84376, 33.8563, 33.85388, 33.85844, 
  33.85474, 33.85659, 33.84048, 33.84362, 33.84105, 33.83264, 33.83278, 33.82907, 33.83264, 33.82822, 
  33.83264, 33.84461, 33.85531, 33.86315, 33.86742, 33.87811, 33.88167, 33.87754, 33.88239, 33.89706, 
  33.90846, 33.91815, 33.94122, 33.9529, 33.98237, 33.99902, 34.01909, 34.0326, 34.03474, 34.05081, 
  34.05081, 34.05963, 34.05934, 34.04853, 34.04868, 34.05749, 34.05934, 34.06318, 34.06404, 34.10285, 
  34.11536, 34.1317, 34.13568, 34.15841, 34.16452, 34.19107, 34.19193, 34.19604, 34.19562, 34.19832, 
  34.20385, 34.22628, 34.22827, 34.27764, 34.29509, 34.30601, 34.31579, 34.31494, 34.31835, 34.31806, 
  34.36923, 34.40521, 34.42644, 34.43012, 34.43337, 34.42615, 34.43521, 34.44017, 34.44399, 34.44965, 
  34.44852, 34.45744, 34.46593, 34.48023, 34.4972, 34.50711, 34.50951, 34.49933, 34.50371, 34.49918, 
  34.50117, 34.49777, 34.50187, 34.50258, 34.52323, 34.53242, 34.53978, 34.53964, 34.55787, 34.57752, 
  34.58233, 34.59378, 34.60042, 34.6072, 34.612, 34.60593, 34.60607, 34.59957, 34.59208, 34.59151, 
  34.61144, 34.62246, 34.63715, 34.63856, 34.62627, 34.62684, 34.63715, 34.63008, 34.64788, 34.6644, 
  34.66624, 34.6716, 34.67471, 34.68332, 34.68402, 34.68939, 34.68854, 34.69193, 34.68896, 34.6836, 
  34.68318, 34.66638, 34.65508, 34.65254, 34.64068, 34.63884, 34.63475, 34.63376, 34.63008, 34.63277, 
  34.62811, 34.63037, 34.62669, 34.63051, 34.63503, 34.62726, 34.62993, 34.62541, 34.63007, 34.63063, 
  34.63643, 34.63685, 34.63275, 34.62837, 34.6336, 34.63289, 34.63614, 34.63445, 34.64236, 34.63332, 
  34.63643, 34.62908, 34.63402, 34.62781, 34.63318, 34.63572, 34.62795, 34.62993, 34.62753, 34.64504, 
  34.64222, 34.65041, 34.64801, 34.64984, 34.64476, 34.64363, 34.6353, 34.63388,
  34.59224, 34.56764, 34.55181, 34.52749, 34.519, 34.51971, 34.51646, 34.51816, 34.50953, 34.50755, 
  34.49779, 34.49227, 34.48633, 34.46609, 34.46736, 34.46213, 34.45986, 34.45576, 34.45632, 34.45816, 
  34.45774, 34.46114, 34.46298, 34.45901, 34.46142, 34.45746, 34.45137, 34.45123, 34.45618, 34.45179, 
  34.44429, 34.43693, 34.4273, 34.42674, 34.41385, 34.40422, 34.40025, 34.39147, 34.38255, 34.3766, 
  34.36129, 34.35945, 34.35449, 34.345, 34.33975, 34.33309, 34.32869, 34.32628, 34.32203, 34.31352, 
  34.30431, 34.31466, 34.31267, 34.30303, 34.29963, 34.29778, 34.29353, 34.29225, 34.28616, 34.28389, 
  34.27325, 34.2724, 34.26516, 34.25523, 34.25239, 34.24984, 34.24572, 34.23948, 34.23508, 34.21805, 
  34.21606, 34.21038, 34.2047, 34.19193, 34.18681, 34.17432, 34.16068, 34.14903, 34.14094, 34.13468, 
  34.13127, 34.11749, 34.11536, 34.09574, 34.07669, 34.07143, 34.05806, 34.05408, 34.03673, 34.03004, 
  34.02748, 34.01567, 34.01482, 34.0124, 34.01283, 33.9976, 33.99362, 33.98664, 33.98323, 33.98707, 
  33.98636, 33.97383, 33.97198, 33.95945, 33.95418, 33.94478, 33.94493, 33.91872, 33.91786, 33.90718, 
  33.90191, 33.90504, 33.90148, 33.90504, 33.90533, 33.90903, 33.90932, 33.89984, 33.90069, 33.90511, 
  33.90553, 33.90881, 33.90154, 33.90354, 33.89984, 33.893, 33.89129, 33.88758, 33.88587, 33.88402, 
  33.88288, 33.87034, 33.86649, 33.86164, 33.83897, 33.84311, 33.84254, 33.82414, 33.82386, 33.79134, 
  33.74575, 33.70963, 33.70603, 33.6986, 33.69489, 33.68789, 33.68475, 33.65275, 33.6486, 33.63774, 
  33.60815, 33.60672, 33.58971, 33.58556, 33.58041, 33.56668, 33.56583, 33.55724, 33.54923, 33.53292, 
  33.51346, 33.49872, 33.49399, 33.48726, 33.47237, 33.47037, 33.46478, 33.46349, 33.437, 33.40376, 
  33.39774, 33.39028, 33.38484, 33.37695, 33.36936, 33.36448, 33.33365, 33.32003, 33.31529, 33.30812, 
  33.28602, 33.27368, 33.27225, 33.27612, 33.26808, 33.26765, 33.25804, 33.24038, 33.19974, 33.19744, 
  33.17876, 33.16511, 33.16425, 33.12703, 33.12544, 33.12027, 33.11409, 33.10244,
  33.09427, 33.09097, 33.08608, 33.09456, 33.08593, 33.08867, 33.09959, 33.09873, 33.09586, 33.09183, 
  33.10305, 33.10851, 33.10492, 33.10089, 33.10089, 33.10477, 33.096, 33.08737, 33.0586, 33.05529, 
  33.06177, 33.0609, 33.06637, 33.09111, 33.09327, 33.09255, 33.08982, 33.11541, 33.11642, 33.12519, 
  33.12964, 33.14316, 33.19862, 33.20925, 33.23251, 33.23811, 33.25434, 33.25821, 33.26424, 33.27457, 
  33.28347, 33.29108, 33.28189, 33.26582, 33.26151, 33.25419, 33.24271, 33.245, 33.2463, 33.24946, 
  33.25347, 33.25434, 33.26453, 33.27156, 33.28075, 33.27414, 33.27874, 33.30715, 33.32192, 33.32952, 
  33.32967, 33.32522, 33.3311, 33.32881, 33.33569)
LONGITUDE_VALUEs <- c(
  35.80185, 35.81335, 35.82072, 35.82861, 35.89109, 35.90603, 35.93829, 35.95289, 35.95546, 35.95049, 
  35.93847, 35.94139, 35.97623, 35.99531, 36.01333, 36.0274, 36.06, 36.06103, 36.05383, 36.04679, 
  36.03598, 36.03426, 36.02688, 36.01899, 35.99461, 35.98689, 35.97299, 35.97213, 35.96422, 35.94912, 
  35.93471, 35.93384, 35.95941, 35.96542, 35.97343, 35.96732, 35.9723, 35.98929, 36.00164, 36.0116, 
  36.00835, 36.0123, 36.03495, 36.06756, 36.07855, 36.08884, 36.10394, 36.11321, 36.1395, 36.15185, 
  36.16112, 36.17519, 36.20086, 36.2077, 36.21422, 36.21886, 36.23414, 36.23998, 36.2453, 36.25114, 
  36.25801, 36.27038, 36.28772, 36.29785, 36.30949, 36.32289, 36.33422, 36.35517, 36.37114, 36.38574, 
  36.39656, 36.38969, 36.39089, 36.38401, 36.37199, 36.36684, 36.35585, 36.33061, 36.31945, 36.31003, 
  36.28152, 36.28324, 36.30367, 36.30864, 36.33372, 36.35241, 36.3859, 36.39328, 36.40359, 36.40496, 
  36.41902, 36.43087, 36.43911, 36.4544, 36.4714, 36.48408, 36.49267, 36.49439, 36.50572, 36.51121, 
  36.53233, 36.54365, 36.56666, 36.57301, 36.58674, 36.59584, 36.60219, 36.60648, 36.61232, 36.62297, 
  36.62486, 36.60117, 36.59293, 36.57988, 36.60133, 36.60271, 36.59464, 36.57798, 36.57283, 36.5639, 
  36.52717, 36.57215, 36.53267, 36.53353, 36.5289, 36.52477, 36.52065, 36.50915, 36.51361, 36.5076, 
  36.49678, 36.48667, 36.46143, 36.45971, 36.44873, 36.44942, 36.41404, 36.39876, 36.37918, 36.37543, 
  36.36771, 36.35895, 36.34985, 36.33594, 36.33491, 36.36855, 36.37422, 36.38109, 36.41595, 36.39757, 
  36.40272, 36.40169, 36.40736, 36.4029, 36.41457, 36.41509, 36.41972, 36.43089, 36.43157, 36.45232, 
  36.46108, 36.45628, 36.46435, 36.45388, 36.43035, 36.41644, 36.40167, 36.38965, 36.35928, 36.34932, 
  36.35156, 36.35019, 36.35499, 36.35517, 36.35087, 36.34452, 36.34108, 36.3392, 36.31996, 36.31687, 
  36.3112, 36.30279, 36.30882, 36.30453, 36.30178, 36.298, 36.29749, 36.29148, 36.28873, 36.28341, 
  36.27757, 36.2731, 36.26469, 36.26211, 36.24288, 36.23721, 36.22694, 36.22591, 36.22042, 36.21132, 
  36.2029, 36.18762, 36.17646, 36.17508, 36.15705, 36.14866, 36.14591, 36.14007, 36.12376, 36.1126, 
  36.09819, 36.09235, 36.0793, 36.07449, 36.07174, 36.06075, 36.05131, 36.04584, 36.03314, 36.00326, 
  35.99089, 35.989, 35.98643, 35.98093, 35.9811, 35.97578, 35.97836, 35.97527,
  35.98877, 35.99203, 35.99169, 35.98568, 35.9783, 35.97659, 35.9723, 35.9632, 35.95239, 35.94381, 
  35.93933, 35.93041, 35.92698, 35.90244, 35.8966, 35.88028, 35.86553, 35.85746, 35.84562, 35.84408, 
  35.84064, 35.84167, 35.83738, 35.83206, 35.82949, 35.82451, 35.8276, 35.81988, 35.81216, 35.80478, 
  35.81384, 35.81143, 35.8147, 35.82019, 35.82053, 35.81178, 35.80063, 35.79119, 35.77334, 35.73696, 
  35.73386, 35.72836, 35.73145, 35.72716, 35.73042, 35.7251, 35.72544, 35.72218, 35.72321, 35.71892, 
  35.70485, 35.69066, 35.68141, 35.67196, 35.67196, 35.66973, 35.6723, 35.66801, 35.66492, 35.65736, 
  35.65204, 35.65547, 35.65891, 35.65564, 35.65822, 35.65702, 35.66062, 35.6596, 35.6553, 35.65341, 
  35.64981, 35.64826, 35.63865, 35.63178, 35.63487, 35.63006, 35.63333, 35.62577, 35.628, 35.64208, 
  35.64105, 35.6438, 35.64861, 35.65084, 35.64655, 35.64226, 35.64209, 35.63505, 35.62457, 35.62612, 
  35.62131, 35.62389, 35.63333, 35.63418, 35.64329, 35.6438, 35.63848, 35.63573, 35.62629, 35.61908, 
  35.61375, 35.60827, 35.60312, 35.599, 35.5923, 35.5911, 35.58766, 35.5796, 35.58303, 35.57617, 
  35.56483, 35.55762, 35.55264, 35.54886, 35.54113, 35.54234, 35.53203, 35.51747, 35.50768, 35.50716, 
  35.51214, 35.51077, 35.48879, 35.479, 35.46887, 35.46681, 35.47232, 35.46854, 35.473, 35.473, 
  35.4785, 35.48125, 35.47987, 35.48331, 35.48313, 35.47935, 35.47643, 35.48262, 35.47815, 35.47918, 
  35.44776, 35.44347, 35.43935, 35.43678, 35.42132, 35.41566, 35.41842, 35.41618, 35.39781, 35.40005, 
  35.39747, 35.3882, 35.38683, 35.38254, 35.3834, 35.37447, 35.36657, 35.36847, 35.35988, 35.36091, 
  35.3537, 35.33498, 35.33465, 35.32469, 35.31421, 35.30495, 35.30134, 35.28949, 35.27284, 35.2622, 
  35.25671, 35.25482, 35.25534, 35.25019, 35.25105, 35.24796, 35.24418, 35.2325, 35.23268, 35.22272, 
  35.21757, 35.20641, 35.1992, 35.19198, 35.19198, 35.2004, 35.21035, 35.21259, 35.20452, 35.19611, 
  35.19166, 35.1805, 35.16727, 35.14599, 35.13586, 35.1302, 35.11457, 35.10617,
  35.10393, 35.1557, 35.1557, 35.17612, 35.19432, 35.20754, 35.21011, 35.22659, 35.22779, 35.23722, 
  35.28444, 35.29302, 35.30074, 35.29972, 35.30864, 35.31722, 35.32425, 35.32117, 35.34984, 35.37816, 
  35.3821, 35.39552, 35.43225, 35.4458, 35.46419, 35.4889, 35.50366, 35.50263, 35.5203, 35.52529, 
  35.53335, 35.52649, 35.54228, 35.53661, 35.53748, 35.54709, 35.54657, 35.55584, 35.5567, 35.56477, 
  35.56219, 35.56734, 35.58485, 35.58416, 35.59396, 35.59825, 35.62382, 35.62297, 35.62571, 35.62262, 
  35.62348, 35.61902, 35.62286, 35.61977, 35.64209, 35.65924, 35.66234, 35.70869, 35.71178, 35.72088, 
  35.73084, 35.74131, 35.74629, 35.75162, 35.77306)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_6 <- st_set_geometry(Geo_6, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_6) == FALSE) {Geo_6 <- st_make_valid(Geo_6)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% 
  filter(!NAME %in% c("STATE OF PALESTINE", "ISRAEL", "EGYPT", "JORDAN", "SYRIAN ARAB REPUBLIC", "LEBANON"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3, Geo_4, Geo_5, Geo_6)

BONAIRE \(+\) SINT EUSTATIUS \(+\) SABA in GeoDATA_from_GeoHUB \(=\) BONAIRE, SINT EUSTATIUS AND SABA in GeoDATA.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "BONAIRE, SINT EUSTATIUS AND SABA")

##### BONAIRE, SINT EUSTATIUS AND SABA #####
LATITUDE_VALUEs <- c(
  17.61441, 17.61801, 17.61932, 17.62259, 17.62963, 17.63093, 17.63175, 17.63143, 17.63421, 17.63764, 
  17.63699, 17.63895, 17.64108, 17.64288, 17.64353, 17.64288, 17.64369, 17.64599, 17.64746, 17.64582, 
  17.64729, 17.65024, 17.64582, 17.64517, 17.64042, 17.63928, 17.63339, 17.62815, 17.62001, 17.61788, 
  17.61494)
LONGITUDE_VALUEs <- c(
  -63.23682, -63.22978, -63.22189, -63.22206, -63.21811, -63.2188, -63.21794, -63.2164, -63.21503, -63.21726, 
  -63.22086, -63.22223, -63.22086, -63.22189, -63.22086, -63.21983, -63.21829, -63.21829, -63.22069, -63.22309, 
  -63.23596, -63.24162, -63.24729, -63.25261, -63.25192, -63.25398, -63.25518, -63.2581, -63.2586, -63.25671,
  -63.24453)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  17.4987, 17.49444, 17.48871, 17.48265, 17.47299, 17.46579, 17.46481, 17.46661, 17.46775, 17.46808, 
  17.48315, 17.4915, 17.49166, 17.49362, 17.49428, 17.49608, 17.49575, 17.4987, 17.50148, 17.49952, 
  17.50754, 17.5136, 17.51687, 17.51605, 17.52522, 17.52555, 17.51687, 17.51294, 17.50508)
LONGITUDE_VALUEs <- c(
  -62.99982, -62.99982, -62.99724, -62.98695, -62.98506, -62.97647, -62.96274, -62.96103, -62.95708, -62.95211, 
  -62.94576, -62.95073, -62.95519, -62.95537, -62.95914, -62.95966, -62.96171, -62.96326, -62.96789, -62.97201, 
  -62.98145, -62.97956, -62.98231, -62.99003, -62.99346, -62.99912, -63.00101, -62.99878, -63.00359)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### COUNTRIE(s) from Global Administrative Areas (GADM) #####
Geo_0 <- GeoDATA_from_GADM_level_0_low_resolution %>% filter(NAME == "Bonaire, Sint Eustatius and Saba")

##### BONAIRE, SINT EUSTATIUS AND SABA #####
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_0 <- st_union(Geo_0[1:2, ])
Geo_1 <- st_union(Geo_1, Geo_0) %>% 
  mutate(SOURCE = paste(SOURCE, "and Global Administrative Areas (GADM)"))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "BONAIRE, SINT EUSTATIUS AND SABA")
GeoDATA <- rbind(GeoDATA, Geo_1)

GALÁPAGOS ISLANDS are included in ECUADOR in GeoDATA.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "ECUADOR")

##### ECUADOR #####
Geo_0 <- st_cast(Geo_1, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_union(Geo_0[c(1:2, 13:14), ]))
LATITUDE_VALUEs <- c(
  1.67485, 1.67914, 1.68051, 1.68017, 1.6812, 1.6812, 1.68086, 1.68103, 1.67949, 1.67897, 
  1.67846, 1.67622, 1.67451, 1.67485, 1.67571, 1.67434)
LONGITUDE_VALUEs <- c(
  -91.99862, -91.99896, -92.00017, -92.00154, -92.00377, -92.00549, -92.00634, -92.00806, -92.00772, -92.00926, 
  -92.00789, -92.00634, -92.00823, -92.00446, -92.00308, -92.00051)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  1.37392, 1.37564, 1.37598, 1.38302, 1.38559, 1.38902, 1.39349, 1.39452, 1.39091, 1.39074, 
  1.39228, 1.39057, 1.38954, 1.39023, 1.38988, 1.3837, 1.3825, 1.3789, 1.37718, 1.37787, 
  1.3765, 1.37667, 1.37478, 1.37409, 1.3753, 1.3753)
LONGITUDE_VALUEs <- c(
  -91.81888, -91.81682, -91.81442, -91.81116, -91.81579, -91.81854, -91.81734, -91.8182, -91.82111, -91.82351, 
  -91.82489, -91.82626, -91.82386, -91.82283, -91.82043, -91.81957, -91.8182, -91.8182, -91.82094, -91.82214, 
  -91.82283, -91.82403, -91.82489, -91.8242, -91.82317, -91.82094)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  0.5528, 0.55194, 0.54559, 0.54387, 0.54576, 0.5425, 0.54078, 0.54525, 0.54525, 0.54027, 
  0.54061, 0.5552, 0.55692, 0.56636, 0.56842, 0.60035, 0.60498, 0.62043, 0.62403, 0.63948, 
  0.64, 0.64377, 0.64189, 0.63107, 0.62661, 0.61391, 0.60635, 0.58129, 0.57734, 0.56636, 
  0.56207)
LONGITUDE_VALUEs <- c(
  -90.77986, -90.76957, -90.76099, -90.75395, -90.75052, -90.7476, -90.74074, -90.73885, -90.73113, -90.72735, 
  -90.72272, -90.71843, -90.72015, -90.7198, -90.72169, -90.7313, -90.73817, -90.7488, -90.75601, -90.76099, 
  -90.76854, -90.77695, -90.7821, -90.7845, -90.78879, -90.78656, -90.79033, -90.78261, -90.78432, -90.78244, 
  -90.78381)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  0.27668, 0.27702, 0.28423, 0.28458, 0.29522, 0.32217, 0.36405, 0.36611, 0.38551, 0.38688, 
  0.36852, 0.34586, 0.33642, 0.33315, 0.322, 0.31359, 0.30672, 0.3026, 0.30346, 0.29985, 
  0.29419, 0.29075, 0.28749, 0.28252)
LONGITUDE_VALUEs <- c(
  -90.48164, -90.471, -90.45452, -90.44472, -90.4183, -90.40077, -90.43769, -90.44558, -90.46137, -90.48903, 
  -90.5297, -90.54362, -90.5407, -90.54276, -90.53864, -90.54001, -90.5237, -90.52267, -90.51786, -90.50722, 
  -90.50791, -90.50293, -90.50242, -90.49142)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  0.33933, 0.33985, 0.32715, 0.31513, 0.30672, 0.30758, 0.31341, 0.31856, 0.31788, 0.31341, 
  0.3062, 0.30329, 0.30037, 0.30054, 0.30346, 0.30672, 0.30895, 0.32268, 0.3347, 0.3359, 
  0.3383, 0.34603, 0.34603)
LONGITUDE_VALUEs <- c(
  -89.96494, -89.97095, -89.9773, -89.97781, -89.967, -89.96322, -89.96391, -89.95687, -89.94778, -89.94486, 
  -89.94555, -89.95396, -89.95327, -89.94452, -89.94503, -89.94229, -89.94332, -89.93577, -89.93954, -89.94177, 
  -89.94212, -89.95018, -89.95533)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -0.9338, -0.92556, -0.91698, -0.89604, -0.85175, -0.82875, -0.82017, -0.81605, -0.79168, -0.77863, 
  -0.75357, -0.7443, -0.73194, -0.72336, -0.71375, -0.71135, -0.69624, -0.6935, -0.70482, -0.69727, 
  -0.68835, -0.69247, -0.68526, -0.69178, -0.70345, -0.70585, -0.71203, -0.71238, -0.71959, -0.7165, 
  -0.72542, -0.72748, -0.73229, -0.73744, -0.74739, -0.75769, -0.77142, -0.7728, -0.78069, -0.7855, 
  -0.8006, -0.82051, -0.81777, -0.82532, -0.81639, -0.84454, -0.88848, -0.90221, -0.89913, -0.91801, 
  -0.92624, -0.93517, -0.93551, -0.9513, -0.95439, -0.93895, -0.93757, -0.93311)
LONGITUDE_VALUEs <- c(
  -89.43428, -89.42844, -89.40064, -89.39481, -89.36218, -89.36184, -89.34674, -89.32134, -89.30555, -89.28423, 
  -89.27496, -89.25643, -89.25437, -89.24201, -89.24201, -89.25471, -89.25368, -89.26192, -89.28013, -89.30106, 
  -89.3069, -89.31719, -89.34911, -89.36181, -89.36215, -89.37044, -89.37524, -89.38382, -89.39103, -89.40235, 
  -89.40888, -89.42157, -89.42329, -89.43702, -89.44182, -89.46344, -89.4583, -89.46586, -89.46449, -89.47204, 
  -89.46792, -89.4837, -89.4964, -89.51905, -89.53795, -89.54173, -89.61209, -89.61037, -89.62169, -89.62925, 
  -89.61209, -89.60684, -89.59963, -89.55601, -89.51995, -89.49385, -89.45026, -89.44442)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -1.39924, -1.39238, -1.39513, -1.38552, -1.38552, -1.37642, -1.37591, -1.36527, -1.36612, -1.3572, 
  -1.35342, -1.34673, -1.34553, -1.34948, -1.3469, -1.35034, -1.34604, -1.35154, -1.35222, -1.3584, 
  -1.36012, -1.36938, -1.3711, -1.37505, -1.3735, -1.38157, -1.38346, -1.39221, -1.39152, -1.3953, 
  -1.39461, -1.40388, -1.40079, -1.40577, -1.40422, -1.40662, -1.40542, -1.40851, -1.40662, -1.40662, 
  -1.41057, -1.41023, -1.40525)
LONGITUDE_VALUEs <- c(
  -89.62908, -89.62496, -89.61844, -89.62187, -89.62771, -89.62668, -89.63148, -89.63388, -89.64126, -89.64693, 
  -89.66151, -89.6629, -89.66942, -89.67474, -89.67989, -89.68709, -89.69276, -89.70425, -89.71644, -89.7233, 
  -89.73394, -89.73806, -89.74492, -89.74424, -89.73875, -89.73205, -89.7221, -89.71094, -89.70614, -89.70391, 
  -89.68983, -89.68589, -89.68023, -89.66873, -89.66049, -89.65569, -89.65105, -89.64676, -89.64385, -89.63921, 
  -89.63664, -89.63046, -89.62583)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -1.35995, -1.35789, -1.36029, -1.34399, -1.34536, -1.33987, -1.33146, -1.31086, -1.29302, -1.28581, 
  -1.27551, -1.26401, -1.26041, -1.24909, -1.24548, -1.23724, -1.23466, -1.22883, -1.22317, -1.22008, 
  -1.22626, -1.22591, -1.23037, -1.22934, -1.23998, -1.23861, -1.23029, -1.23192, -1.24805, -1.24771, 
  -1.26127, -1.26487, -1.28186, -1.28667, -1.29645, -1.29645, -1.31618, -1.32803, -1.33077, -1.33815, 
  -1.34776)
LONGITUDE_VALUEs <- c(
  -90.45493, -90.44292, -90.43279, -90.40688, -90.40019, -90.39762, -90.38612, -90.37925, -90.36087, -90.3607, 
  -90.35487, -90.35847, -90.37186, -90.3787, -90.39486, -90.40584, -90.41819, -90.42471, -90.41957, -90.4266, 
  -90.42849, -90.43604, -90.43999, -90.4429, -90.45526, -90.46384, -90.46636, -90.47928, -90.48155, -90.48533, 
  -90.49013, -90.48859, -90.48927, -90.49665, -90.49494, -90.49751, -90.5109, -90.50626, -90.49889, -90.49889, 
  -90.47229)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -0.81828, -0.82669, -0.83836, -0.83665, -0.83888, -0.83716, -0.83871, -0.82669, -0.82343, -0.81348, 
  -0.8097, -0.80747, -0.80472, -0.80026, -0.79854, -0.8006, -0.81073)
LONGITUDE_VALUEs <- c(
  -90.09118, -90.09084, -90.056, -90.05343, -90.04742, -90.04382, -90.03215, -90.02752, -90.03284, -90.03026, 
  -90.03558, -90.03198, -90.04125, -90.04142, -90.08809, -90.08826, -90.0826)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -0.6087, -0.57094, -0.53077, -0.48339, -0.48992, -0.48751, -0.49747, -0.49266, -0.49644, -0.49301, 
  -0.4961, -0.51223, -0.51669, -0.50914, -0.51326, -0.50811, -0.50365, -0.51292, -0.51154, -0.52253, 
  -0.52184, -0.53077, -0.53249, -0.55858, -0.56373, -0.58639, -0.62655, -0.63857, -0.64715, -0.67461, 
  -0.69521, -0.70963, -0.70757, -0.7213, -0.72302, -0.74259, -0.77417, -0.7649, -0.77623, -0.76421, 
  -0.76078, -0.76765, -0.76147, -0.757, -0.74156, -0.74774, -0.6935, -0.70173, -0.69041, -0.68079, 
  -0.66981, -0.65505, -0.62998)
LONGITUDE_VALUEs <- c(
  -90.1841, -90.16901, -90.23147, -90.2524, -90.26721, -90.27956, -90.29432, -90.30393, -90.32624, -90.34031, 
  -90.36193, -90.3585, -90.36983, -90.37257, -90.39145, -90.39248, -90.4117, -90.42783, -90.45082, -90.47043, 
  -90.48279, -90.49171, -90.51368, -90.51642, -90.53427, -90.53187, -90.54938, -90.5432, -90.54663, -90.53565, 
  -90.536, -90.51435, -90.50131, -90.48346, -90.46768, -90.44983, -90.3956, -90.37458, -90.35742, -90.35365, 
  -90.331, -90.31315, -90.30423, -90.31281, -90.31006, -90.24005, -90.22186, -90.20676, -90.1937, -90.1961, 
  -90.17825, -90.18773, -90.17846)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -0.42915, -0.43121, -0.43773, -0.43499, -0.44426, -0.45352, -0.45799, -0.46159, -0.46846, -0.47515, 
  -0.48425, -0.48271, -0.48271, -0.46417, -0.44958, -0.44872, -0.44443, -0.42829, -0.4113, -0.41439, 
  -0.41662, -0.41662)
LONGITUDE_VALUEs <- c(
  -90.28447, -90.29014, -90.28911, -90.28242, -90.28087, -90.29614, -90.29511, -90.29786, -90.29408, -90.29768, 
  -90.29339, -90.2867, -90.27503, -90.2474, -90.25564, -90.25976, -90.25856, -90.27022, -90.2752, -90.29425, 
  -90.29322, -90.28807)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-0.39018, -0.40048, -0.39671, -0.3895)
LONGITUDE_VALUEs <- c(-90.291, -90.29375, -90.27693, -90.27642)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -0.62466, -0.63222, -0.63239, -0.63445, -0.62947, -0.63136, -0.62741, -0.62586, -0.62106, -0.61986, 
  -0.60304, -0.59977, -0.59205, -0.58724, -0.58965, -0.59256, -0.59205, -0.59892, -0.59995, -0.62192)
LONGITUDE_VALUEs <- c(
  -90.67449, -90.66626, -90.65974, -90.65699, -90.65545, -90.64944, -90.64944, -90.64738, -90.64635, -90.64326, 
  -90.64635, -90.65424, -90.6575, -90.67158, -90.67758, -90.67913, -90.6829, -90.68582, -90.68805, -90.6841)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -0.41168, -0.41734, -0.42593, -0.42404, -0.4273, -0.42713, -0.42232, -0.42078, -0.41648, -0.41082, 
  -0.40533, -0.4043, -0.39932, -0.39983, -0.40653)
LONGITUDE_VALUEs <- c(
  -90.7204, -90.7204, -90.71456, -90.7113, -90.70787, -90.70495, -90.70598, -90.70118, -90.69809, -90.6974, 
  -90.70049, -90.70495, -90.70701, -90.71216, -90.71199)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -0.28894, -0.28551, -0.28293, -0.28293, -0.28088, -0.28088, -0.27987, -0.28022, -0.28148, -0.28297, 
  -0.28325, -0.28472, -0.28522, -0.28472, -0.28641, -0.28617, -0.28692, -0.28735, -0.28985, -0.29057, 
  -0.28895, -0.28735, -0.28629, -0.28823, -0.28789)
LONGITUDE_VALUEs <- c(
  -90.54806, -90.54154, -90.54051, -90.54189, -90.5424, -90.54566, -90.5469, -90.55203, -90.55171, -90.55289, 
  -90.55561, -90.55535, -90.55621, -90.55688, -90.55856, -90.55984, -90.56017, -90.55945, -90.55978, -90.55835, 
  -90.55825, -90.55692, -90.55471, -90.55242, -90.55184)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -0.31936, -0.30151, -0.28984, -0.28435, -0.28091, -0.26615, -0.23525, -0.1968, -0.19646, -0.1865, 
  -0.18925, -0.17208, -0.16624, -0.15285, -0.14667, -0.15663, -0.17242, -0.17757, -0.20161, -0.21465, 
  -0.21946, -0.24212, -0.2428, -0.25825, -0.26924, -0.27576, -0.2919, -0.29499, -0.33069, -0.32692, 
  -0.33619, -0.32589, -0.33996, -0.33413, -0.3482, -0.36022, -0.35473, -0.35988, -0.35301, -0.35747, 
  -0.35129, -0.3537, -0.34546, -0.3537, -0.37636, -0.36434, -0.32451)
LONGITUDE_VALUEs <- c(
  -90.5468, -90.5492, -90.56671, -90.56499, -90.5746, -90.57529, -90.58524, -90.65081, -90.6745, -90.68205, 
  -90.69818, -90.70367, -90.74009, -90.74764, -90.79329, -90.81871, -90.82797, -90.83827, -90.829, -90.83553, 
  -90.84411, -90.85303, -90.86745, -90.86813, -90.87157, -90.84548, -90.84411, -90.83176, -90.83243, -90.81596, 
  -90.80292, -90.79262, -90.78198, -90.77404, -90.76272, -90.73698, -90.72462, -90.71433, -90.703, -90.6927, 
  -90.6855, -90.6752, -90.6704, -90.66696, -90.60141, -90.57876, -90.56601)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -0.3955, -0.47721, -0.59668, -0.60218, -0.61797, -0.62827, -0.64406, -0.63651, -0.65299, -0.65505, 
  -0.67427, -0.69075, -0.66946, -0.67633, -0.69144, -0.69418, -0.71341, -0.79305, -0.87544, -0.92281, 
  -0.95645, -1.00039, -1.02442, -1.01344, -1.0306, -1.04708, -1.04433, -1.05669, -1.03609, -0.98254, 
  -0.95165, -0.96469, -0.95371, -0.91389, -0.91595, -0.87956, -0.78893, -0.78687, -0.75529, -0.73881, 
  -0.72782, -0.72371, -0.70448, -0.70448, -0.68526, -0.61248, -0.62895, -0.60904, -0.57883, -0.57334, 
  -0.55343, -0.46417, -0.45249, -0.42434, -0.42846, -0.36667, -0.30624, -0.2774, -0.21973, -0.15038, 
  -0.10025, -0.01991, -0.02266, -0.00069, 0.00206, 0.01991, 0.06042, 0.13321, 0.13664, 0.1593, 
  0.16067, 0.1236, 0.09888, 0.03296, -0.00137, -0.0515, -0.01305, -0.02815, -0.06317, -0.16342, 
  -0.20325, -0.21492, -0.26916, -0.26161, -0.34057, -0.35293, -0.37903)
LONGITUDE_VALUEs <- c(
  -91.22512, -91.22512, -91.07129, -91.07953, -91.07198, -91.08917, -91.09397, -91.11319, -91.1228, -91.13996, 
  -91.14682, -91.18115, -91.21821, -91.24704, -91.25253, -91.3246, -91.32812, -91.43246, -91.50934, -91.50865, 
  -91.44688, -91.4455, -91.38304, -91.33774, -91.22712, -91.21408, -91.18319, -91.16741, -91.1626, -91.00747, 
  -90.98482, -90.93815, -90.9052, -90.88667, -90.84885, -90.84954, -90.82345, -90.80075, -90.78153, -90.81448, 
  -90.80761, -90.83095, -90.82546, -90.85772, -90.84811, -90.89623, -90.93398, -90.96075, -90.95457, -90.9834, 
  -90.95182, -90.94469, -90.95565, -90.95084, -90.96595, -91.01266, -91.11157, -91.1143, -91.18024, -91.19323, 
  -91.18499, -91.20008, -91.21176, -91.21725, -91.23923, -91.24404, -91.28869, -91.31204, -91.32647, -91.33815, 
  -91.36425, -91.38966, -91.48926, -91.52086, -91.59367, -91.56551, -91.46179, -91.41576, -91.40477, -91.40408, 
  -91.38141, -91.3924, -91.3821, -91.36973, -91.33061, -91.28253, -91.2633)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -0.34092, -0.40924, -0.42915, -0.45215, -0.4549, -0.46829, -0.48133, -0.49266, -0.50674, -0.49129, 
  -0.4549, -0.42881, -0.42091, -0.40477, -0.39413, -0.37285, -0.35053, -0.34572, -0.33508, -0.3313, 
  -0.32341, -0.28805, -0.28564, -0.27363, -0.2774, -0.26092, -0.26504, -0.2829, -0.28461, -0.29663, 
  -0.30075, -0.31723)
LONGITUDE_VALUEs <- c(
  -91.65281, -91.64869, -91.6322, -91.62602, -91.61985, -91.61092, -91.61056, -91.5426, -91.50416, -91.4242, 
  -91.38778, -91.3943, -91.38503, -91.38606, -91.37679, -91.38263, -91.37988, -91.38812, -91.38537, -91.39532, 
  -91.39292, -91.41111, -91.42175, -91.43273, -91.44131, -91.45607, -91.48564, -91.50657, -91.53368, -91.5529, 
  -91.64969, -91.66273)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo) %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "ECUADOR")
GeoDATA <- rbind(GeoDATA, Geo_1)

CANARY ISLANDS are included in SPAIN in GeoDATA.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "SPAIN")

##### SPAIN #####
Geo_0 <- st_cast(Geo_1, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_union(Geo_0[8:16, ]))
LATITUDE_VALUEs <- c(
  27.75039, 27.74857, 27.72958, 27.72943, 27.71605, 27.70314, 27.70557, 27.6928, 27.67806, 27.67167, 
  27.66635, 27.66088, 27.64962, 27.64567, 27.6408, 27.63761, 27.6408, 27.63944, 27.64932, 27.67289, 
  27.67882, 27.68946, 27.69493, 27.70481, 27.70967, 27.71864, 27.72943, 27.73049, 27.72791, 27.73049, 
  27.74675, 27.76573, 27.77044, 27.77333, 27.78487, 27.78761, 27.80067, 27.80082, 27.81312, 27.8239, 
  27.83118, 27.84317, 27.84302, 27.84818, 27.84894, 27.84515, 27.83968, 27.84105, 27.82648, 27.82526, 
  27.82162, 27.82253, 27.81023, 27.79839, 27.79004, 27.78624, 27.7747, 27.76817, 27.76163, 27.76087, 
  27.75267, 27.75905, 27.76391, 27.76892, 27.77135, 27.7627, 27.75784)
LONGITUDE_VALUEs <- c(
  -18.15528, -18.15151, -18.15254, -18.1582, -18.16129, -18.14447, -18.12405, -18.04988, -18.02774, -18.0286, 
  -18.01882, -18.01985, -18.00937, -17.99564, -17.99667, -17.98672, -17.98294, -17.97797, -17.97093, -17.97264, 
  -17.96783, -17.96629, -17.95925, -17.95994, -17.95788, -17.95856, -17.94895, -17.94192, -17.93711, -17.92819, 
  -17.92492, -17.91033, -17.91497, -17.90844, -17.90381, -17.89659, -17.88853, -17.88424, -17.88304, -17.89436, 
  -17.89368, -17.9081, -17.91479, -17.91823, -17.93504, -17.94294, -17.94603, -17.95958, -17.974, -17.98122, 
  -17.98586, -17.99265, -17.98647, -17.98905, -17.99952, -18.01171, -18.01876, -18.02973, -18.03746, -18.04811, 
  -18.07335, -18.11488, -18.12089, -18.12157, -18.13239, -18.14115, -18.15334)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  28.453, 28.45692, 28.46643, 28.47201, 28.49434, 28.50385, 28.54668, 28.57065, 28.58211, 28.59326, 
  28.6121, 28.62084, 28.64013, 28.64902, 28.65474, 28.65836, 28.66785, 28.67718, 28.68697, 28.69932, 
  28.72236, 28.72853, 28.73289, 28.74268, 28.74313, 28.75833, 28.76089, 28.78782, 28.80377, 28.82603, 
  28.83971, 28.84392, 28.83911, 28.84016, 28.83731, 28.83249, 28.84543, 28.8555, 28.85445, 28.85775, 
  28.85415, 28.85775, 28.84603, 28.84106, 28.84091, 28.83385, 28.82452, 28.79971, 28.7985, 28.79549, 
  28.79564, 28.78767, 28.78481, 28.77082, 28.76269, 28.75818, 28.75186, 28.74764, 28.74072, 28.73335, 
  28.72853, 28.71694, 28.71016, 28.70369, 28.67417, 28.66709, 28.66348, 28.65806, 28.64932, 28.64043, 
  28.64284, 28.64013, 28.63365, 28.61557, 28.61256, 28.6017, 28.59568, 28.58573, 28.57322, 28.57216, 
  28.55377, 28.54864, 28.54201, 28.54125, 28.52376, 28.5218, 28.50023, 28.47277, 28.46326, 28.45994, 
  28.45662)
LONGITUDE_VALUEs <- c(
  -17.84182, -17.83341, -17.83136, -17.82535, -17.81866, -17.80784, -17.7845, -17.75961, -17.76132, -17.7548, 
  -17.75635, -17.74983, -17.75772, -17.75617, -17.76252, -17.76029, -17.76853, -17.76887, -17.75977, -17.75943, 
  -17.73146, -17.73179, -17.7263, -17.72476, -17.72956, -17.73574, -17.74243, -17.75789, -17.75943, -17.7742, 
  -17.77763, -17.80835, -17.8142, -17.82141, -17.82827, -17.85762, -17.90343, -17.90535, -17.9093, -17.91239, 
  -17.91668, -17.9208, -17.92629, -17.93693, -17.94569, -17.95066, -17.96679, -17.98225, -17.98723, -17.98809, 
  -17.99495, -17.99763, -18.00519, -18.00621, -18.00346, -18.00758, -18.00158, -18.00072, -17.99213, -17.98956, 
  -17.98046, -17.98046, -17.97308, -17.97394, -17.96243, -17.96398, -17.95728, -17.95574, -17.94561, -17.94578, 
  -17.942, -17.93823, -17.9372, -17.92587, -17.92964, -17.92415, -17.92638, -17.91024, -17.90545, -17.90047, 
  -17.89137, -17.88348, -17.88296, -17.88021, -17.87918, -17.87472, -17.87661, -17.86768, -17.85824, -17.85704, 
  -17.84639)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  28.14844, 28.13104, 28.12347, 28.10212, 28.09864, 28.09288, 28.08591, 28.08107, 28.08319, 28.07592, 
  28.05865, 28.05941, 28.05244, 28.04699, 28.0382, 28.03896, 28.03577, 28.02547, 28.02562, 28.01956, 
  28.02653, 28.02517, 28.02789, 28.02759, 28.02456, 28.02441, 28.02896, 28.02971, 28.03608, 28.03971, 
  28.03532, 28.04305, 28.04289, 28.04895, 28.04895, 28.05562, 28.05426, 28.06229, 28.0738, 28.07349, 
  28.08864, 28.08728, 28.09182, 28.09561, 28.10378, 28.12316, 28.12846, 28.13361, 28.14233, 28.14436, 
  28.15298, 28.15238, 28.1604, 28.16388, 28.16872, 28.17341, 28.17236, 28.18068, 28.1778, 28.18053, 
  28.18824, 28.19339, 28.19808, 28.2008, 28.19687, 28.20277, 28.19974, 28.20216, 28.2002, 28.20156, 
  28.19989, 28.20231, 28.2002, 28.20307, 28.2005, 28.20398, 28.20262, 28.21018, 28.21305, 28.21729, 
  28.21714, 28.21396, 28.21774, 28.21048, 28.21124, 28.20655, 28.20806, 28.20247, 28.20398, 28.19762, 
  28.18976, 28.18734, 28.17357, 28.16207)
LONGITUDE_VALUEs <- c(
  -17.34624, -17.34109, -17.34538, -17.34727, -17.34933, -17.3404, -17.33972, -17.33319, -17.3313, -17.31998, 
  -17.31946, -17.31534, -17.31105, -17.2908, -17.28976, -17.28547, -17.27328, -17.27208, -17.25098, -17.24549, 
  -17.22832, -17.21835, -17.21492, -17.20995, -17.20943, -17.19896, -17.19725, -17.18523, -17.18249, -17.17509, 
  -17.1684, -17.16771, -17.16308, -17.16016, -17.15725, -17.1521, -17.14437, -17.14471, -17.12841, -17.12103, 
  -17.11107, -17.10678, -17.1049, -17.0982, -17.10437, -17.10523, -17.10334, -17.11347, -17.11102, -17.11829, 
  -17.11863, -17.12635, -17.13829, -17.15289, -17.15667, -17.15512, -17.16663, -17.16663, -17.17727, -17.18412, 
  -17.18567, -17.1946, -17.19374, -17.20095, -17.20765, -17.21142, -17.2152, -17.21743, -17.22018, -17.22259, 
  -17.22551, -17.22946, -17.23272, -17.23615, -17.24457, -17.24525, -17.25281, -17.25315, -17.26051, -17.26068, 
  -17.26995, -17.27305, -17.27665, -17.28266, -17.28902, -17.29279, -17.30001, -17.30808, -17.31838, -17.32199, 
  -17.3225, -17.32833, -17.33709, -17.33571)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  28.35273, 28.34306, 28.33883, 28.33324, 28.33188, 28.32765, 28.31209, 28.30272, 28.29879, 28.2867, 
  28.28307, 28.27385, 28.27294, 28.26871, 28.26341, 28.2551, 28.23801, 28.21759, 28.20761, 28.19717, 
  28.19263, 28.18658, 28.17947, 28.18007, 28.17099, 28.16025, 28.11681, 28.10863, 28.10076, 28.09818, 
  28.09364, 28.08728, 28.0638, 28.05941, 28.05411, 28.0482, 28.03971, 28.0338, 28.02759, 28.01107, 
  28.00001, 27.99804, 28.00486, 28.00365, 28.00865, 28.00895, 28.00562, 28.00819, 28.00334, 28.00501, 
  28.00895, 28.00925, 28.01274, 28.01865, 28.02123, 28.0285, 28.03138, 28.02471, 28.03077, 28.04062, 
  28.04486, 28.04274, 28.04986, 28.05032, 28.05941, 28.06653, 28.07743, 28.07804, 28.08985, 28.11363, 
  28.11968, 28.12892, 28.13437, 28.13506, 28.14133, 28.14284, 28.15071, 28.1551, 28.16373, 28.16539, 
  28.17463, 28.18219, 28.18885, 28.19551, 28.20307, 28.27415, 28.28443, 28.30589, 28.31919, 28.32675, 
  28.33113, 28.35424, 28.36784, 28.37917, 28.40288, 28.40046, 28.4065, 28.41526, 28.42779, 28.43745, 
  28.44741, 28.45179, 28.45058, 28.45466, 28.45526, 28.46899, 28.4708, 28.48635, 28.48529, 28.48831, 
  28.48936, 28.49751, 28.49615, 28.5046, 28.52421, 28.52134, 28.52527, 28.52707, 28.53235, 28.53552, 
  28.54713, 28.55452, 28.56432, 28.57201, 28.57487, 28.58181, 28.58859, 28.57337, 28.57276, 28.5696, 
  28.56583, 28.57124, 28.56988, 28.57757, 28.57124, 28.57682, 28.57109, 28.56898, 28.5735, 28.57049, 
  28.57968, 28.57139, 28.55646, 28.55631, 28.54621, 28.54742, 28.51771, 28.51167, 28.48829, 28.47999, 
  28.47441, 28.47139, 28.45871, 28.45947, 28.45449, 28.45449, 28.44755, 28.44121, 28.43909, 28.424, 
  28.41856, 28.41902, 28.39818, 28.39999, 28.39395, 28.39622, 28.39395, 28.39833, 28.39546, 28.40014, 
  28.40044, 28.39078, 28.39335, 28.38323, 28.38655, 28.37553, 28.38157, 28.37009, 28.37492, 28.37402, 
  28.37734, 28.37613, 28.39395, 28.39002, 28.387, 28.38821, 28.37553, 28.37522, 28.37039, 28.36193, 
  28.36495, 28.36118)
LONGITUDE_VALUEs <- c(
  -16.92412, -16.92189, -16.90422, -16.90163, -16.89597, -16.89785, -16.88035, -16.88069, -16.87091, -16.86078, 
  -16.86284, -16.85855, -16.84877, -16.85066, -16.8407, -16.83744, -16.84585, -16.83657, -16.83606, -16.82748, 
  -16.82696, -16.82147, -16.81958, -16.8134, -16.80499, -16.80499, -16.77684, -16.76139, -16.75795, -16.75246, 
  -16.7504, -16.73702, -16.73204, -16.73736, -16.73684, -16.71076, -16.70852, -16.70955, -16.70458, -16.70801, 
  -16.69512, -16.67882, -16.67178, -16.66663, -16.66543, -16.65977, -16.65565, -16.64999, -16.64656, -16.63918, 
  -16.63781, -16.63154, -16.63171, -16.62501, -16.61162, -16.59534, -16.55465, -16.54829, -16.53971, -16.544, 
  -16.53783, -16.53423, -16.53199, -16.52598, -16.51997, -16.5083, -16.50349, -16.48941, -16.49095, -16.46315, 
  -16.46452, -16.4501, -16.44941, -16.44202, -16.44168, -16.43155, -16.42521, -16.43465, -16.43259, -16.42469, 
  -16.42984, -16.42659, -16.4283, -16.4216, -16.42522, -16.38316, -16.38454, -16.36136, -16.35964, -16.36342, 
  -16.36256, -16.3708, -16.36135, -16.36101, -16.32873, -16.32083, -16.31501, -16.29938, -16.29098, -16.27604, 
  -16.26986, -16.26058, -16.25337, -16.25338, -16.24995, -16.24394, -16.2472, -16.23638, -16.2314, -16.22728, 
  -16.21852, -16.20704, -16.19622, -16.19176, -16.15449, -16.14368, -16.14318, -16.13957, -16.13871, -16.12961, 
  -16.12755, -16.11896, -16.12635, -16.12686, -16.13493, -16.13459, -16.15794, -16.19243, -16.20102, -16.20583, 
  -16.22557, -16.24498, -16.25769, -16.27194, -16.27726, -16.28551, -16.28753, -16.29732, -16.30745, -16.31484, 
  -16.32067, -16.33304, -16.3339, -16.34333, -16.36566, -16.38249, -16.42178, -16.42024, -16.4295, -16.44341, 
  -16.44409, -16.45388, -16.45749, -16.46607, -16.46796, -16.47328, -16.47002, -16.47689, -16.49698, -16.5035, 
  -16.51604, -16.55414, -16.58711, -16.5981, -16.60239, -16.63103, -16.63722, -16.6446, -16.65164, -16.65731, 
  -16.67311, -16.67895, -16.69285, -16.70159, -16.72031, -16.72632, -16.73731, -16.75156, -16.75445, -16.79189, 
  -16.79635, -16.8094, -16.8307, -16.8396, -16.84218, -16.8487, -16.86175, -16.86862, -16.87257, -16.89593, 
  -16.90365, -16.91653)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  27.97143, 27.94686, 27.91198, 27.88858, 27.83289, 27.82833, 27.81755, 27.81588, 27.79933, 27.7966, 
  27.78779, 27.77792, 27.76987, 27.77245, 27.75103, 27.75772, 27.74511, 27.7486, 27.73463, 27.7363, 
  27.73614, 27.76243, 27.76987, 27.78156, 27.78111, 27.79311, 27.80146, 27.81133, 27.83273, 27.84807, 
  27.84807, 27.85702, 27.85596, 27.87083, 27.87447, 27.87978, 27.89056, 27.89981, 27.92742, 27.93576, 
  27.92848, 27.93455, 27.9488, 27.95456, 27.95775, 27.96199, 27.97215, 27.97882, 27.98352, 27.99216, 
  27.99777, 28.00792, 28.01656, 28.02763, 28.04611, 28.05217, 28.0608, 28.07629, 28.08538, 28.09961, 
  28.12989, 28.14564, 28.14533, 28.1644, 28.17863, 28.18014, 28.1641, 28.15411, 28.13564, 28.12565, 
  28.13686, 28.1532, 28.14594, 28.14715, 28.17136, 28.15774, 28.16077, 28.17167, 28.1641, 28.16471, 
  28.15018, 28.14484, 28.13273, 28.13046, 28.12532, 28.12183, 28.11911, 28.10927, 28.10518, 28.09049, 
  28.06777, 28.06399, 28.05262, 28.04448, 28.03266, 28.0166, 28.01629, 27.99993)
LONGITUDE_VALUEs <- c(
  -15.83462, -15.82812, -15.83464, -15.81494, -15.78663, -15.77717, -15.76877, -15.75521, -15.73975, -15.72808, 
  -15.72517, -15.70508, -15.70027, -15.69084, -15.67608, -15.66012, -15.62784, -15.6184, -15.59901, -15.59195, 
  -15.57222, -15.56312, -15.53684, -15.51985, -15.50767, -15.48931, -15.43403, -15.42201, -15.4227, -15.41343, 
  -15.40588, -15.39833, -15.38563, -15.38581, -15.38065, -15.39129, -15.39421, -15.38666, -15.38459, -15.37447, 
  -15.36005, -15.35885, -15.38168, -15.37721, -15.3815, -15.38013, -15.38459, -15.3755, -15.37755, -15.36829, 
  -15.37533, -15.37525, -15.38573, -15.38624, -15.41732, -15.41404, -15.41971, -15.41428, -15.41634, -15.4105, 
  -15.4263, -15.42664, -15.41634, -15.40123, -15.40741, -15.42321, -15.44278, -15.43179, -15.43729, -15.46717, 
  -15.47678, -15.53105, -15.54817, -15.61171, -15.63472, -15.66563, -15.6804, -15.68314, -15.69585, -15.71028, 
  -15.69516, -15.70277, -15.6995, -15.70465, -15.705, -15.70981, -15.70501, -15.70621, -15.71256, -15.70621, 
  -15.7239, -15.73335, -15.7397, -15.76654, -15.77135, -15.79539, -15.82046, -15.81909)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  28.04266, 28.11112, 28.11263, 28.16531, 28.16531, 28.17469, 28.17681, 28.19194, 28.21161, 28.22855, 
  28.22855, 28.2721, 28.28329, 28.30173, 28.4117, 28.43616, 28.45578, 28.48264, 28.49893, 28.50346, 
  28.51402, 28.52669, 28.54087, 28.55353, 28.57765, 28.59213, 28.67288, 28.69427, 28.72739, 28.73221, 
  28.74455, 28.75689, 28.74696, 28.75117, 28.70963, 28.67288, 28.61051, 28.59363, 28.54961, 28.47479, 
  28.43404, 28.42076, 28.41049, 28.39811, 28.38996, 28.3673, 28.36156, 28.34464, 28.33135, 28.28933, 
  28.26394, 28.22189, 28.1868, 28.13353, 28.11082, 28.10052, 28.10385, 28.10082, 28.1087, 28.10109, 
  28.09397, 28.08337, 28.07959, 28.0702, 28.07792)
LONGITUDE_VALUEs <- c(
  -14.33123, -14.26396, -14.25469, -14.22099, -14.20795, -14.19971, -14.16059, -14.12146, -14.0054, -13.98618, 
  -13.93984, -13.91031, -13.89693, -13.9031, -13.84887, -13.86295, -13.85608, -13.86947, -13.85985, -13.84269, 
  -13.84372, -13.83548, -13.84028, -13.82347, -13.83239, -13.8221, -13.83377, -13.83205, -13.84374, -13.86605, 
  -13.86502, -13.89007, -13.90826, -13.92851, -14.01809, -14.00989, -14.04044, -14.03255, -14.06584, -14.10121, 
  -14.15064, -14.1503, -14.15854, -14.15648, -14.16266, -14.16266, -14.17193, -14.17879, -14.20318, -14.21314, 
  -14.20799, -14.21712, -14.25661, -14.33488, -14.39086, -14.44341, -14.45543, -14.47844, -14.49046, -14.49857, 
  -14.49222, -14.49239, -14.50235, -14.50493, -14.47762)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  28.75171, 28.74463, 28.73891, 28.74208, 28.73605, 28.74057, 28.74509, 28.75427, 28.75773, 28.76555, 
  28.7648, 28.75998, 28.76104, 28.75652, 28.75577, 28.75291, 28.75412)
LONGITUDE_VALUEs <- c(
  -13.83628, -13.83079, -13.83045, -13.82564, -13.82169, -13.81483, -13.81466, -13.81071, -13.81311, -13.81294, 
  -13.8174, -13.81981, -13.82375, -13.82633, -13.83165, -13.83165, -13.83439)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  28.88556, 28.87625, 28.86873, 28.86332, 28.8543, 28.86121, 28.86121, 28.8555, 28.86242, 28.86151,
  28.8561, 28.85941, 28.84918, 28.83746, 28.87564, 28.90721, 28.9063, 28.91322, 28.92253, 28.91863,
  28.92764, 28.93365, 28.94867, 28.95979, 28.97361, 29.00394, 29.01354, 29.01775, 29.03666, 29.04657,
  29.05497, 29.09068, 29.12547, 29.16056, 29.20042, 29.22559, 29.22589, 29.23758, 29.2244, 29.2196,
  29.20612, 29.20492, 29.17495, 29.17045, 29.14137, 29.11887, 29.11528, 29.13387, 29.13687, 29.12877,
  29.12727, 29.11498, 29.12397, 29.12217, 29.11258, 29.10418, 29.09278, 29.09038, 29.07898, 29.08438, 
  29.07716, 29.06577, 29.06187, 29.02705, 29.00424, 28.93996, 28.93065, 28.90841, 28.89609, 28.89338)
LONGITUDE_VALUEs <- c(
  -13.88198, -13.87511, -13.87546, -13.87751, -13.87237, -13.86276, -13.84594, -13.83942, -13.82981, -13.81986,
  -13.81231, -13.79995, -13.79, -13.78828, -13.75083, -13.73916, -13.72884, -13.71889, -13.67873, -13.64167,
  -13.63236, -13.61143, -13.59907, -13.54347, -13.53215, -13.47689, -13.47652, -13.46313, -13.46966, -13.46416,
  -13.46691, -13.44563, -13.46896, -13.42743, -13.41885, -13.45283, -13.4669, -13.47033, -13.48269, -13.49642,
  -13.49745, -13.50568, -13.51361, -13.5215, -13.52459, -13.54553, -13.56063, -13.58534, -13.60181, -13.61284,
  -13.62176, -13.63566, -13.64356, -13.66176, -13.65799, -13.67928, -13.68615, -13.70195, -13.70813, -13.72324, 
  -13.75721, -13.7627, -13.77919, -13.81869, -13.83068, -13.83378, -13.82828, -13.85335, -13.85816, -13.87396)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  29.23262, 29.22603, 29.21779, 29.22108, 29.22108, 29.21629, 29.22093, 29.21869, 29.22663, 29.22543, 
  29.22977, 29.2443, 29.25464, 29.26168, 29.26033, 29.26647, 29.27949, 29.2789, 29.29057, 29.28938, 
  29.28234, 29.278, 29.26856, 29.25748, 29.25119, 29.24176)
LONGITUDE_VALUEs <- c(
  -13.54583, -13.54909, -13.54411, -13.54257, -13.53776, -13.53519, -13.52935, -13.52266, -13.51442, -13.50533, 
  -13.50378, -13.49006, -13.488, -13.48164, -13.47786, -13.47151, -13.48215, -13.49536, -13.50721, -13.51304, 
  -13.51647, -13.51476, -13.52282, -13.52076, -13.52797, -13.52642)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  29.30227, 29.29314, 29.28894, 29.28939, 29.28909, 29.29119, 29.29089, 29.29269, 29.29463, 29.29508, 
  29.29912, 29.30496, 29.30362, 29.30691)
LONGITUDE_VALUEs <- c(
  -13.53982, -13.53759, -13.54034, -13.53708, -13.53485, -13.5333, -13.53159, -13.5321, -13.53124, -13.5333, 
  -13.5297, -13.52987, -13.53365, -13.53502)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  29.38606, 29.38457, 29.39115, 29.39399, 29.40356, 29.4073, 29.41074, 29.41328, 29.41239, 29.41597, 
  29.41493, 29.41089, 29.41119, 29.407, 29.40027, 29.38517, 29.38232)
LONGITUDE_VALUEs <- c(
  -13.51613, -13.50652, -13.5024, -13.49417, -13.48919, -13.49417, -13.49417, -13.50017, -13.50326, -13.50669, 
  -13.51287, -13.51836, -13.52385, -13.52248, -13.53106, -13.52935, -13.52025)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo) %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "SPAIN")
GeoDATA <- rbind(GeoDATA, Geo_1)

Numeric Code (M49_CODE) for BRITISH INDIAN OCEAN TERRITORY (BIOT).

BRITISH INDIAN OCEAN TERRITORY (BIOT) is claimed by MAURITIUS.

No suitable Geometries in available sources. We create our own Geometries.

##### BRITISH INDIAN OCEAN TERRITORY #####
LATITUDE_VALUEs <- c(
  -7.38163, -7.37261, -7.36801, -7.35218, -7.33038, -7.32034, -7.30518, -7.29616, -7.28918, -7.27032, 
  -7.25959, -7.24358, -7.23881, -7.22334, -7.22568, -7.22891, -7.23062, -7.23228, -7.23181, -7.22555, 
  -7.22529, -7.23641, -7.24736, -7.24887, -7.25794, -7.26006, -7.25889, -7.26475, -7.2653, -7.26724, 
  -7.26903, -7.27111, -7.27379, -7.2796, -7.28349, -7.28761, -7.30493, -7.30832, -7.31038, -7.31384, 
  -7.32027, -7.33019, -7.34129, -7.355, -7.36262, -7.37126, -7.37951, -7.38262, -7.38671, -7.39152, 
  -7.39467, -7.39956, -7.40199, -7.40807, -7.42067, -7.43761, -7.44216, -7.44412, -7.44254, -7.43837, 
  -7.41922, -7.41168, -7.40263, -7.39599, -7.38548)
LONGITUDE_VALUEs <- c(
  72.49284, 72.48837, 72.47928, 72.47276, 72.47551, 72.48597, 72.49421, 72.49455, 72.49147, 72.46225, 
  72.45401, 72.45049, 72.44636, 72.42267, 72.41468, 72.41464, 72.4173, 72.41674, 72.41241, 72.41236, 
  72.40945, 72.39374, 72.38538, 72.38371, 72.37933, 72.3736, 72.37287, 72.36281, 72.35994, 72.35626, 
  72.35438, 72.35367, 72.35425, 72.36212, 72.37284, 72.37805, 72.3957, 72.39813, 72.40212, 72.40473, 
  72.41743, 72.42738, 72.43056, 72.43163, 72.43064, 72.42794, 72.42404, 72.42378, 72.42219, 72.42155, 
  72.42065, 72.41989, 72.41877, 72.41826, 72.42066, 72.42178, 72.42328, 72.42856, 72.43667, 72.441, 
  72.45019, 72.4556, 72.46536, 72.47777, 72.48991)
MGeo_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  -5.35668, -5.36292, -5.3689, -5.35403, -5.35207, -5.34489, -5.33908, -5.33455, -5.30814, -5.30301, 
  -5.29797, -5.29985, -5.30626, -5.31054, -5.32301, -5.33216, -5.33677, -5.34181, -5.34455, -5.35019, 
  -5.35361, -5.35472)
LONGITUDE_VALUEs <- c(
  72.20137, 72.20188, 72.21321, 72.23921, 72.26291, 72.27363, 72.27655, 72.2817, 72.26711, 72.25947, 
  72.25638, 72.24883, 72.24153, 72.22909, 72.2205, 72.21836, 72.21415, 72.21244, 72.20205, 72.19785, 
  72.19802, 72.20042)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -5.36968, -5.35772, -5.33943, -5.33379, -5.32165, -5.3032, -5.29687, -5.26166, -5.25431, -5.23687, 
  -5.24234, -5.25106, -5.2555, -5.26747, -5.26764, -5.25927, -5.25157, -5.24525, -5.23431, -5.23448, 
  -5.24644, -5.24542, -5.26422, -5.27653, -5.28285, -5.2914, -5.30952, -5.36319, -5.39788, -5.40591, 
  -5.44847, -5.45735, -5.46914, -5.46538, -5.45359, -5.43958, -5.43121, -5.42933, -5.43479, -5.42454, 
  -5.42283, -5.40403, -5.40232, -5.37806)
LONGITUDE_VALUEs <- c(
  71.97546, 71.97168, 71.98043, 71.97237, 71.97082, 71.97957, 71.97391, 71.97202, 71.97666, 71.96395, 
  71.95348, 71.94628, 71.9226, 71.90525, 71.85892, 71.84159, 71.83936, 71.83387, 71.8349, 71.81874, 
  71.80673, 71.76349, 71.74698, 71.74304, 71.73222, 71.73342, 71.72982, 71.75196, 71.74955, 71.74475, 
  71.75024, 71.75899, 71.80552, 71.82285, 71.82302, 71.83059, 71.84895, 71.86388, 71.87606, 71.89291, 
  71.90509, 71.93736, 71.94834, 71.97545)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -5.68134, -5.68358, -5.68446, -5.68376, -5.68437, -5.68534, -5.68301, -5.68116, -5.68007, -5.6802, 
  -5.67954, -5.67985)
LONGITUDE_VALUEs <- c(
  72.30584, 72.30748, 72.31176, 72.31441, 72.31852, 72.32016, 72.32422, 72.32519, 72.32329, 72.31534, 
  72.31145, 72.30668)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -6.69937, -6.66902, -6.6507, -6.63493, -6.63638, -6.63433, -6.63638, -6.64405, -6.65394, -6.66093, 
  -6.67636, -6.67483, -6.686, -6.701)
LONGITUDE_VALUEs <- c(
  71.40135, 71.39294, 71.37603, 71.34195, 71.33886, 71.32754, 71.3145, 71.31011, 71.30797, 71.3096, 
  71.32985, 71.35157, 71.36427, 71.39508)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -6.37789, -6.38542, -6.39465, -6.39678, -6.39657, -6.39441, -6.39205, -6.38815, -6.38433, -6.37923)
LONGITUDE_VALUEs <- c(
  71.23825, 71.23737, 71.23831, 71.23917, 71.24074, 71.24155, 71.24175, 71.24112, 71.24205, 71.24065)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-6.23143, -6.23348, -6.23834, -6.2374, -6.23391)
LONGITUDE_VALUEs <- c(71.29354, 71.29204, 71.29422, 71.29706, 71.29667)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  -6.20747, -6.20917, -6.20488, -6.19713, -6.18982, -6.18199, -6.178, -6.17549, -6.17408, -6.17527, 
  -6.19166, -6.20141, -6.20414)
LONGITUDE_VALUEs <- c(
  71.31026, 71.31279, 71.32029, 71.32579, 71.33233, 71.34392, 71.34615, 71.34288, 71.33716, 71.3324, 
  71.32089, 71.31576, 71.31227)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-6.1356, -6.13707, -6.13861, -6.13848, -6.13707, -6.13547)
LONGITUDE_VALUEs <- c(71.50218, 71.50188, 71.50246, 71.50399, 71.50495, 71.50373)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-6.15367, -6.15623, -6.15793, -6.16165, -6.16139, -6.15106, -6.14855, -6.14996)
LONGITUDE_VALUEs <- c(71.51399, 71.51412, 71.51536, 71.52257, 71.52536, 71.52429, 71.51897, 71.51566)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(-6.16887, -6.1704, -6.17288, -6.17772, -6.1764, -6.17326, -6.16985, -6.1681, -6.16838)
LONGITUDE_VALUEs <- c(71.53633, 71.53661, 71.53895, 71.54923, 71.55147, 71.54632, 71.5446, 71.53748, 71.5364)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
MGeo_1 <- MGeo_1 %>% 
  mutate(NAME = "BRITISH INDIAN OCEAN TERRITORY", 
         VISUALIZATION_NAME = "British Indian Ocean Territory", 
         ISO2 = "IO", ISO3 = "IOT", M49_CODE = "086", 
         SOVRN = "United Kingdom of Great Britain and Northern Ireland", CONTINENT = "AFRICA", 
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, MGeo_1)

MADEIRA and AZORES are included in PORTUGAL in GeoDATA.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "PORTUGAL")

##### PORTUGAL #####
Geo_0 <- st_cast(Geo_1, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0[8, ]))
LATITUDE_VALUEs <- c(
  39.684, 39.68717, 39.69047, 39.69694, 39.70738, 39.71424, 39.719, 39.71979, 39.72454, 39.72652, 
  39.72415, 39.7252, 39.72468, 39.72256, 39.71834, 39.71028, 39.69628, 39.68479, 39.67977, 39.67911, 
  39.67171, 39.66933, 39.67052, 39.66933, 39.67316, 39.67554)
LONGITUDE_VALUEs <- c(
  -31.09288, -31.0867, -31.08721, -31.08292, -31.08241, -31.0867, -31.08738, -31.09322, -31.09974, -31.10746, 
  -31.11604, -31.1193, -31.12205, -31.11879, -31.11913, -31.12668, -31.12823, -31.11896, -31.11741, -31.11982, 
  -31.12239, -31.11741, -31.1157, -31.11244, -31.11055, -31.10317)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  39.48932, 39.46396, 39.45905, 39.46011, 39.45521, 39.45123, 39.44765, 39.43479, 39.42724, 39.41782, 
  39.41238, 39.4088, 39.40655, 39.40283, 39.39965, 39.39448, 39.39342, 39.37537, 39.37657, 39.37471, 
  39.37046, 39.3763, 39.37285, 39.37564, 39.37471, 39.37789, 39.38015, 39.3836, 39.38519, 39.39541, 
  39.39912, 39.40854, 39.421, 39.42591, 39.42511, 39.42989, 39.43015, 39.43678, 39.44593, 39.44845, 
  39.4515, 39.4515, 39.46409, 39.46303, 39.47138, 39.47363, 39.48635, 39.49244, 39.49787, 39.50278, 
  39.4984, 39.49787, 39.50185, 39.49854, 39.50145, 39.5086, 39.5143, 39.51642, 39.52383, 39.52423, 
  39.51999, 39.52039, 39.51364, 39.50715, 39.50595, 39.50013, 39.4984, 39.49522, 39.49297)
LONGITUDE_VALUEs <- c(
  -31.2582, -31.25766, -31.26007, -31.26556, -31.26573, -31.26916, -31.26384, -31.25955, -31.26504, -31.2623, 
  -31.25663, -31.25731, -31.25199, -31.25199, -31.25954, -31.25577, -31.25869, -31.24839, -31.24427, -31.23741, 
  -31.22934, -31.21836, -31.19191, -31.18024, -31.1763, -31.16926, -31.17115, -31.16703, -31.16085, -31.15862, 
  -31.15277, -31.14848, -31.15106, -31.14574, -31.13733, -31.14007, -31.14402, -31.14471, -31.13561, -31.12788, 
  -31.12736, -31.12427, -31.12788, -31.13646, -31.14144, -31.14916, -31.149, -31.15569, -31.15277, -31.16015, 
  -31.16599, -31.17383, -31.17693, -31.18362, -31.18686, -31.20283, -31.20369, -31.20798, -31.20609, -31.21021, 
  -31.21399, -31.23683, -31.23254, -31.23597, -31.23922, -31.2418, -31.24867, -31.24815, -31.25468)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  38.6037, 38.59913, 38.59712, 38.59189, 38.59135, 38.58451, 38.56518, 38.56626, 38.56062, 38.54585,
  38.52961, 38.52773, 38.52504, 38.5245, 38.52611, 38.52329, 38.52115, 38.52329, 38.52437, 38.52289,
  38.51806, 38.51779, 38.52034, 38.51927, 38.52128, 38.52101, 38.52329, 38.52356, 38.52235, 38.52356,
  38.52303, 38.52585, 38.52397, 38.52679, 38.52531, 38.52329, 38.52276, 38.51846, 38.51658, 38.51953,
  38.51497, 38.51765, 38.52101, 38.52303, 38.52719, 38.52893, 38.53793, 38.54397, 38.54361, 38.54693, 
  38.55525, 38.55955, 38.56156, 38.56626, 38.56841, 38.57928, 38.59068, 38.59189, 38.59967, 38.60571, 
  38.61094, 38.61416, 38.61376, 38.61684, 38.62006, 38.62046, 38.62542, 38.62663, 38.63012, 38.63924,
  38.6446, 38.63562, 38.63052, 38.61697, 38.61027, 38.61322, 38.61, 38.61174, 38.60866, 38.60598, 
  38.60343, 38.60463, 38.60168, 38.60155, 38.60396)
LONGITUDE_VALUEs <- c(
  -28.83354, -28.83491, -28.82804, -28.82873, -28.82444, -28.82031, -28.78085, -28.76592, -28.75819, -28.75235,
  -28.74994, -28.74771, -28.74788, -28.75012, -28.75252, -28.75509, -28.75235, -28.74994, -28.74565, -28.7369,
  -28.72436, -28.70771, -28.70237, -28.70065, -28.69859, -28.6792, -28.672, -28.65569, -28.64969, -28.6466,
  -28.64351, -28.63922, -28.63236, -28.62738, -28.62584, -28.62584, -28.6291, -28.63287, -28.63133, -28.62721,
  -28.62412, -28.62, -28.62, -28.62412, -28.62172, -28.62652, -28.62566, -28.61811, -28.60497, -28.60214, 
  -28.61021, -28.61004, -28.6122, -28.60911, -28.60395, -28.60859, -28.60292, -28.59794, -28.60395, -28.61632, 
  -28.62061, -28.63194, -28.63881, -28.64877, -28.64995, -28.65219, -28.65837, -28.66249, -28.66197, -28.68876, 
  -28.71315, -28.72978, -28.73115, -28.74317, -28.75691, -28.76653, -28.77838, -28.78902, -28.81323, -28.8146, 
  -28.82009, -28.82387, -28.82422, -28.82834, -28.83074)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  38.4659, 38.45111, 38.42987, 38.41991, 38.42153, 38.42879, 38.42718, 38.41211, 38.41669, 38.41292, 
  38.4148, 38.41023, 38.41292, 38.41238, 38.40595, 38.39761, 38.396, 38.39008, 38.39169, 38.38699, 
  38.38187, 38.39439, 38.39425, 38.40125, 38.40326, 38.4069, 38.41026, 38.40717, 38.40891, 38.40528, 
  38.3999, 38.40071, 38.39977, 38.40448, 38.40178, 38.40528, 38.41214, 38.42519, 38.43003, 38.43043, 
  38.43433, 38.43487, 38.4385, 38.44294, 38.45262, 38.45625, 38.45652, 38.4631, 38.46203, 38.47681, 
  38.48877, 38.49589, 38.49938, 38.4967, 38.50167, 38.50704, 38.5057, 38.52276, 38.52423, 38.53565, 
  38.53511, 38.53807, 38.53968, 38.55136, 38.55216, 38.55874, 38.55794, 38.56143, 38.55726, 38.55888, 
  38.55498, 38.56089, 38.55243, 38.54478, 38.53954, 38.53753, 38.53404, 38.53431, 38.50933, 38.48541, 
  38.47144)
LONGITUDE_VALUEs <- c(
  -28.52243, -28.51625, -28.45753, -28.44552, -28.42595, -28.42012, -28.40262, -28.36687, -28.35005, -28.34113, 
  -28.33049, -28.30475, -28.28999, -28.26974, -28.2578, -28.25299, -28.25694, -28.25591, -28.25025, -28.25093, 
  -28.23752, -28.20612, -28.19719, -28.19307, -28.18672, -28.18672, -28.17574, -28.15649, -28.15049, -28.11342, 
  -28.09386, -28.08545, -28.0815, -28.07756, -28.0676, -28.06312, -28.02914, -28.03171, -28.03635, -28.04269, 
  -28.04613, -28.05076, -28.05591, -28.05625, -28.14122, -28.14328, -28.17127, -28.18208, -28.19203, -28.20132, 
  -28.23581, -28.23764, -28.24485, -28.2555, -28.27591, -28.28175, -28.29514, -28.30871, -28.3173, -28.32741, 
  -28.33548, -28.33685, -28.34458, -28.36896, -28.37892, -28.39144, -28.39848, -28.41445, -28.43214, -28.44313, 
  -28.44948, -28.47109, -28.50664, -28.52087, -28.52121, -28.53066, -28.52997, -28.53529, -28.54216, -28.53959, 
  -28.53015)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  38.75569, 38.75274, 38.75208, 38.74525, 38.7344, 38.70909, 38.70949, 38.69944, 38.69395, 38.69181, 
  38.68926, 38.69167, 38.69127, 38.68497, 38.6827, 38.67894, 38.68109, 38.6776, 38.68122, 38.67586, 
  38.66889, 38.63109, 38.63176, 38.62706, 38.62854, 38.62639, 38.60131, 38.59997, 38.59339, 38.59715, 
  38.58964, 38.59017, 38.56414, 38.56253, 38.55582, 38.55394, 38.54615, 38.54535, 38.53313, 38.53823, 
  38.54924, 38.55246, 38.55689, 38.55998, 38.56588, 38.56709, 38.57394, 38.57904, 38.58279, 38.58172, 
  38.58669, 38.61446, 38.61593, 38.62867, 38.6272, 38.63203, 38.63712, 38.64382, 38.64396, 38.65844, 
  38.66675, 38.67184, 38.67117, 38.68015, 38.676, 38.69261, 38.69208, 38.6973, 38.6981, 38.70614, 
  38.73132, 38.74752, 38.75542)
LONGITUDE_VALUEs <- c(
  -28.31677, -28.31677, -28.31283, -28.30304, -28.29498, -28.25584, -28.24846, -28.22735, -28.22632, -28.22906, 
  -28.22769, -28.2246, -28.21911, -28.21997, -28.2246, -28.22186, -28.21448, -28.20795, -28.20194, -28.19525, 
  -28.19422, -28.09793, -28.09361, -28.07593, -28.07284, -28.06409, -28.02358, -28.00162, -27.98032, -27.97105, 
  -27.95406, -27.94291, -27.90085, -27.88848, -27.87698, -27.86651, -27.86188, -27.85553, -27.8279, -27.76611, 
  -27.75324, -27.76027, -27.7637, -27.77297, -27.77932, -27.79167, -27.79819, -27.82308, -27.82497, -27.82943, 
  -27.83424, -27.90198, -27.9188, -27.92894, -27.93804, -27.94334, -27.96137, -27.96412, -27.97717, -27.99538, 
  -28.01836, -28.02368, -28.04309, -28.05219, -28.05974, -28.10541, -28.11605, -28.12292, -28.13374, -28.14436, 
  -28.23245, -28.27226, -28.30729)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  39.08877, 39.08344, 39.07065, 39.06531, 39.06585, 39.05985, 39.05372, 39.03279, 39.03145, 39.02225,
  39.02519, 39.01905, 39.01878, 39.01265, 39.01385, 39.01158, 39.01265, 39.00985, 39.01145, 39.00838, 
  39.01292, 39.01185, 39.01398, 39.01360, 39.01692, 39.01825, 39.02465, 39.02559, 39.02879, 39.04012, 
  39.04932, 39.05772, 39.05892, 39.07331, 39.08197, 39.08211, 39.08504, 39.08584, 39.08903, 39.08664, 
  39.09436, 39.09716, 39.09503, 39.0945)
LONGITUDE_VALUEs <- c(
  -28.05511, -28.05271, -28.07021, -28.07158, -28.06643, -28.06575, -28.05562, -28.0467, -28.04223, -28.03399,
  -28.00859, -28.00688, -27.99984, -27.9971, -27.9904, -27.98663, -27.98268, -27.98062, -27.97599, -27.97084, 
  -27.95845, -27.95536, -27.9533, -27.94981, -27.9533, -27.94781, -27.94918, -27.95399, -27.9521, -27.95674, 
  -27.97065, -27.96997, -27.9758, -27.98284, -27.99177, -27.9952, -27.99778, -27.99366, -27.99915, -28.00533, 
  -28.01854, -28.03417, -28.03846, -28.04824)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  38.7473, 38.70579, 38.68113, 38.67979, 38.65406, 38.65567, 38.65084, 38.64414, 38.63931, 38.64306, 
  38.65406, 38.65111, 38.65513, 38.65138, 38.65594, 38.65272, 38.6554, 38.65379, 38.64441, 38.64789, 
  38.64333, 38.6487, 38.64226, 38.64441, 38.67168, 38.67818, 38.68462, 38.69426, 38.70605, 38.71597, 
  38.73123, 38.73034, 38.73355, 38.7361, 38.74186, 38.7519, 38.76006, 38.78603, 38.78148, 38.78777, 
  38.78268, 38.78897, 38.78549, 38.79579, 38.79365, 38.79954, 38.79553, 38.80101, 38.79352, 38.79165, 
  38.79954, 38.79673, 38.79807, 38.80101, 38.80114, 38.80329, 38.79954, 38.80262, 38.79446, 38.77679, 
  38.76649, 38.76716, 38.75979)
LONGITUDE_VALUEs <- c(
  -27.37978, -27.36914, -27.34236, -27.33343, -27.28367, -27.22974, -27.22836, -27.23454, -27.22562, -27.21669, 
  -27.22287, -27.21292, -27.2064, -27.19404, -27.18512, -27.17929, -27.17414, -27.16418, -27.14119, -27.11476, 
  -27.10653, -27.09795, -27.08731, -27.07976, -27.07511, -27.05539, -27.05745, -27.04166, -27.04612, -27.06225, 
  -27.0605, -27.04996, -27.0491, -27.04258, -27.05785, -27.06231, -27.06094, -27.10403, -27.12874, -27.13389, 
  -27.14093, -27.14436, -27.14573, -27.18316, -27.18882, -27.19981, -27.20341, -27.21422, -27.21765, -27.23005, 
  -27.23327, -27.23825, -27.24511, -27.2463, -27.25159, -27.25761, -27.2607, -27.27048, -27.33176, -27.36488, 
  -27.36849, -27.37759, -27.37038)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  37.86087, 37.85693, 37.8526, 37.83552, 37.82779, 37.81586, 37.81084, 37.80772, 37.80406, 37.7989, 
  37.79416, 37.79321, 37.78262, 37.78262, 37.77367, 37.77204, 37.75861, 37.75494, 37.74978, 37.74354, 
  37.73241, 37.75101, 37.74992, 37.74449, 37.74626, 37.74028, 37.74354, 37.73798, 37.7301, 37.71571, 
  37.71747, 37.70729, 37.70933, 37.71394, 37.7187, 37.71652, 37.71747, 37.71299, 37.71571, 37.71381, 
  37.71707, 37.71191, 37.71462, 37.71354, 37.71734, 37.71394, 37.71693, 37.71517, 37.71707, 37.7134, 
  37.72549, 37.72644, 37.72426, 37.73078, 37.72929, 37.7335, 37.73607, 37.74517, 37.74748, 37.74449, 
  37.74653, 37.7354, 37.73607, 37.74191, 37.74273, 37.74205, 37.75834, 37.78127, 37.78656, 37.79823, 
  37.80853, 37.81965, 37.8244, 37.82562, 37.85043, 37.85138, 37.85585, 37.85978, 37.85355, 37.85612, 
  37.86303, 37.85897, 37.86046, 37.85734, 37.85815, 37.85463, 37.85666, 37.8549, 37.85707, 37.85721, 
  37.86656, 37.86181, 37.85341, 37.83267, 37.83538, 37.8267, 37.82684, 37.82359, 37.83213, 37.83267, 
  37.82291, 37.82711, 37.82253, 37.82562, 37.82467, 37.82982, 37.83009, 37.83349, 37.83511, 37.83986, 
  37.84121, 37.84745, 37.84718, 37.84175, 37.84284, 37.83931, 37.84311, 37.83647, 37.82806, 37.82494, 
  37.81586, 37.81762, 37.8145, 37.81803, 37.81816, 37.81369, 37.81586, 37.82128, 37.82467, 37.82359, 
  37.83321, 37.8286, 37.83199, 37.83091, 37.83281, 37.83267, 37.83511, 37.83565, 37.84486, 37.8454, 
  37.84201, 37.84201, 37.84486, 37.85204, 37.85624, 37.86424, 37.86641, 37.87779, 37.88063, 37.88782, 
  37.89093, 37.89418, 37.89649, 37.90583, 37.91084, 37.90366, 37.89689, 37.8996, 37.89161, 37.89161, 
  37.88619, 37.87752, 37.87833, 37.87264, 37.87386, 37.87034, 37.86329)
LONGITUDE_VALUEs <- c(
  -25.85461, -25.85118, -25.8529, -25.8426, -25.84122, -25.81857, -25.8169, -25.80759, -25.80551, -25.78767, 
  -25.78664, -25.78149, -25.77565, -25.76845, -25.75831, -25.75127, -25.73102, -25.73016, -25.71575, -25.71232, 
  -25.68744, -25.62734, -25.6179, -25.60984, -25.59663, -25.58252, -25.5657, -25.56313, -25.54631, -25.52881, 
  -25.51697, -25.51165, -25.49843, -25.4962, -25.48127, -25.47816, -25.47576, -25.46735, -25.46289, -25.46015, 
  -25.45706, -25.44333, -25.43541, -25.43129, -25.42717, -25.41791, -25.40967, -25.40384, -25.38873, -25.36814, 
  -25.35235, -25.32727, -25.31914, -25.31262, -25.30678, -25.30266, -25.29047, -25.27398, -25.24963, -25.24585, 
  -25.24276, -25.21236, -25.1988, -25.19436, -25.18371, -25.17049, -25.1492, -25.13839, -25.14251, -25.14371, 
  -25.13478, -25.13838, -25.13563, -25.13941, -25.14886, -25.15691, -25.16498, -25.19847, -25.23058, -25.25273, 
  -25.26304, -25.27056, -25.27812, -25.28173, -25.28533, -25.29066, -25.29306, -25.29787, -25.3013, -25.30748, 
  -25.31659, -25.325, -25.32723, -25.38508, -25.39315, -25.40446, -25.41545, -25.42919, -25.42799, -25.43485, 
  -25.44086, -25.45254, -25.45546, -25.46355, -25.47179, -25.47502, -25.47829, -25.47878, -25.48516, -25.48207, 
  -25.48636, -25.48636, -25.49082, -25.49065, -25.49306, -25.49546, -25.50044, -25.50506, -25.52292, -25.52275, 
  -25.55383, -25.55795, -25.5619, -25.56825, -25.58184, -25.58751, -25.58901, -25.60464, -25.60498, -25.61271, 
  -25.62816, -25.64087, -25.65152, -25.65736, -25.65993, -25.6656, -25.67006, -25.67762, -25.68327, -25.68619, 
  -25.68602, -25.68876, -25.69306, -25.69391, -25.69838, -25.69941, -25.70645, -25.70833, -25.714, -25.72138, 
  -25.7346, -25.7377, -25.74747, -25.76395, -25.7849, -25.79074, -25.80379, -25.82251, -25.82114, -25.82577, 
  -25.82403, -25.8321, -25.84035, -25.83966, -25.8455, -25.84464, -25.8479)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  36.98487, 36.96786, 36.96279, 36.95414, 36.95181, 36.94797, 36.94482, 36.94427, 36.94001, 36.94139, 
  36.94509, 36.94591, 36.93933, 36.94674, 36.9455, 36.95222, 36.95071, 36.94468, 36.93933, 36.9385, 
  36.93562, 36.93343, 36.92808, 36.93164, 36.92931, 36.93343, 36.93, 36.92904, 36.9359, 36.94029, 
  36.95442, 36.95812, 36.96114, 36.96649, 36.96525, 36.97225, 36.98596, 36.98569, 36.99378, 36.99775, 
  37.00338, 37.00516, 37.01119, 37.01612, 37.01091, 37.01078, 37.01599, 37.01064, 37.01242, 37.00516, 
  37.00379, 37.00872, 37.00242, 37.00694, 37.01078, 37.0079, 37.00475, 37.00639, 36.99803, 36.99789)
LONGITUDE_VALUEs <- c(
  -25.18549, -25.17434, -25.17467, -25.17107, -25.17227, -25.16764, -25.16832, -25.16403, -25.15717, -25.15151, 
  -25.15099, -25.1455, -25.14053, -25.12783, -25.12319, -25.11135, -25.09333, -25.0837, -25.08164, -25.07924, 
  -25.07855, -25.07306, -25.06877, -25.05641, -25.04543, -25.02793, -25.02518, -25.01626, -25.01729, -25.01317, 
  -25.02209, -25.01523, -25.01968, -25.02071, -25.03015, -25.03015, -25.04765, -25.054, -25.05641, -25.05091, 
  -25.05418, -25.05212, -25.05212, -25.06362, -25.06534, -25.0813, -25.08765, -25.10343, -25.10978, -25.11236, 
  -25.11871, -25.12761, -25.13482, -25.14595, -25.14578, -25.15488, -25.15677, -25.16484, -25.17463, -25.18184)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  32.81541, 32.80805, 32.80791, 32.80185, 32.7802, 32.77313, 32.7636, 32.75653, 32.74455, 32.73704,
  32.6979, 32.6784, 32.67941, 32.67536, 32.66857, 32.66958, 32.66062, 32.65224, 32.65383, 32.65123,
  32.65094, 32.64443, 32.64227, 32.63287, 32.64718, 32.64559, 32.63692, 32.64039, 32.64169, 32.6505,
  32.65181, 32.6625, 32.66351, 32.67348, 32.68822, 32.69053, 32.70093, 32.70758, 32.71711, 32.71899,
  32.73487, 32.73762, 32.74007, 32.74209, 32.74224, 32.73848, 32.74166, 32.74079, 32.74455, 32.74772,
  32.74527, 32.7418, 32.73776, 32.73357, 32.72967, 32.7343, 32.73545, 32.73834, 32.73964, 32.74671,
  32.74787, 32.74642, 32.7509, 32.75148, 32.74859, 32.75061, 32.74729, 32.74729, 32.7509, 32.74816,
  32.75581, 32.75538, 32.75725, 32.75696, 32.75942, 32.75696, 32.75942, 32.75769, 32.76562, 32.76259,
  32.76519, 32.76433, 32.76866, 32.7675, 32.77674, 32.78006, 32.78771, 32.78771, 32.79449, 32.79377,
  32.80113, 32.80762, 32.80719, 32.80964, 32.81902, 32.82839, 32.82962, 32.83748, 32.82623, 32.82811, 
  32.82666, 32.83085, 32.82248, 32.82147, 32.81556, 32.81483, 32.80849, 32.81628, 32.81527, 32.8206, 
  32.82681, 32.82637, 32.83575, 32.84267, 32.8483, 32.85435, 32.86156, 32.86892, 32.86647, 32.87108,
  32.85767, 32.85652, 32.84008, 32.83301, 32.82623, 32.81729)
LONGITUDE_VALUEs <- c(
  -17.26591, -17.26282, -17.25921, -17.25063, -17.24308, -17.24548, -17.23347, -17.23055, -17.2132, -17.21286,
  -17.13014, -17.1042, -17.08601, -17.07141, -17.06472, -17.06196, -17.03125, -17.01752, -17.00173, -16.99518,
  -16.98557, -16.97184, -16.95537, -16.94404, -16.90183, -16.87863, -16.84997, -16.84843, -16.83093, -16.82164,
  -16.81461, -16.80653, -16.80327, -16.80207, -16.78989, -16.77393, -16.76911, -16.76121, -16.76465, -16.75624,
  -16.74766, -16.73032, -16.73032, -16.72431, -16.70715, -16.70355, -16.70149, -16.69772, -16.69823, -16.69651,
  -16.68673, -16.6863, -16.67891, -16.67685, -16.6626, -16.66603, -16.67531, -16.67702, -16.68097, -16.6808,
  -16.68664, -16.68939, -16.69059, -16.6966, -16.699, -16.70896, -16.71755, -16.72614, -16.72734, -16.73644,
  -16.74449, -16.74913, -16.75273, -16.75909, -16.76407, -16.76939, -16.7742, -16.7778, -16.78982, -16.79996,
  -16.80185, -16.80562, -16.81387, -16.82108, -16.83136, -16.83033, -16.83754, -16.84527, -16.84904, -16.8554,
  -16.86089, -16.85574, -16.86379, -16.86482, -16.87856, -16.88509, -16.89723, -16.90483, -16.9699, -16.97539,
  -16.9814, -16.99016, -17.00009, -17.00645, -17.01658, -17.02877, -17.05178, -17.08114, -17.0947, -17.10295, 
  -17.10552, -17.12287, -17.13693, -17.14054, -17.15067, -17.15015, -17.16387, -17.16799, -17.17864, -17.19684,
  -17.20901, -17.21468, -17.23082, -17.24404, -17.24747, -17.25932)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  33.0421, 33.04282, 33.03073, 33.03188, 33.02411, 33.03951, 33.05275, 33.06297, 33.06297, 33.05922, 
  33.06167, 33.06886, 33.07879, 33.08325, 33.08411, 33.09461, 33.10022, 33.09662, 33.09734, 33.09964, 
  33.10367, 33.10238, 33.10597, 33.09216, 33.08354, 33.08167, 33.07749, 33.07491, 33.07001, 33.06728, 
  33.05922, 33.05807, 33.05405, 33.05376, 33.04987, 33.0493, 33.04512)
LONGITUDE_VALUEs <- c(
  -16.38864, -16.39636, -16.39259, -16.38778, -16.37903, -16.35534, -16.34246, -16.32341, -16.30299, -16.30008, 
  -16.29441, -16.29853, -16.29201, -16.29492, -16.30041, -16.2932, -16.29492, -16.30007, -16.30968, -16.30968, 
  -16.31414, -16.31688, -16.32117, -16.35361, -16.36081, -16.3718, -16.37042, -16.37763, -16.37334, -16.37698, 
  -16.37577, -16.37972, -16.37938, -16.38264, -16.38384, -16.38659, -16.38916)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  33.0059, 33.00431, 33.00259, 33.00503, 33.00273, 32.99726, 32.99884, 32.99711, 33.00071, 33.00388, 
  33.00518, 33.01137, 33.02115, 33.02, 33.01856, 33.01079, 33.01108)
LONGITUDE_VALUEs <- c(
  -16.39448, -16.39208, -16.39208, -16.38882, -16.38521, -16.38658, -16.38384, -16.38041, -16.38144, -16.38092, 
  -16.38418, -16.38126, -16.38281, -16.3847, -16.38384, -16.38864, -16.39122)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(33.0354, 33.03929, 33.04173, 33.03943, 33.03886, 33.03699)
LONGITUDE_VALUEs <- c(-16.40907, -16.40203, -16.41078, -16.41078, -16.40872, -16.41044)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(33.05238, 33.05296, 33.05584, 33.0567, 33.05555, 33.05799, 33.05713)
LONGITUDE_VALUEs <- c(-16.28153, -16.27775, -16.2781, -16.2817, -16.28376, -16.28805, -16.28891)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(32.58949, 32.5772, 32.57777, 32.59108)
LONGITUDE_VALUEs <- c(-16.54853, -16.54219, -16.54064, -16.54424)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  32.573, 32.57098, 32.56475, 32.55955, 32.53885, 32.53408, 32.52655, 32.51439, 32.50672, 32.49572, 
  32.48529, 32.47892, 32.47747, 32.48935, 32.49557, 32.50354, 32.50759, 32.51975, 32.52786, 32.5335, 
  32.54102, 32.55434, 32.56172, 32.56866, 32.573)
LONGITUDE_VALUEs <- c(
  -16.53978, -16.53892, -16.54098, -16.53583, -16.53582, -16.52244, -16.5154, -16.51094, -16.50373, -16.5027, 
  -16.49361, -16.49498, -16.49155, -16.48914, -16.49275, -16.49326, -16.49807, -16.49978, -16.5082, -16.50975, 
  -16.5161, -16.52193, -16.53154, -16.5336, -16.53772)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  32.42497, 32.4186, 32.40889, 32.40352, 32.40657, 32.40874, 32.41628, 32.4199, 32.42535, 32.42845, 
  32.437, 32.44975, 32.4609, 32.46394, 32.44989, 32.43743)
LONGITUDE_VALUEs <- c(
  -16.48541, -16.48456, -16.47666, -16.46276, -16.46414, -16.4686, -16.47426, -16.4813, -16.48252, -16.48524,
  -16.48541, -16.48936, -16.48919, -16.49125, -16.49382, -16.49297)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  30.15389, 30.15092, 30.15047, 30.14765, 30.14587, 30.14409, 30.14067, 30.14156, 30.138, 30.13978, 
  30.13785, 30.1383, 30.1377, 30.14008, 30.1429, 30.14691, 30.14943, 30.15478)
LONGITUDE_VALUEs <- c(
  -15.87048, -15.87134, -15.87288, -15.87185, -15.87442, -15.87305, -15.87442, -15.87013, -15.86979, -15.86567, 
  -15.86396, -15.86001, -15.85641, -15.85486, -15.85932, -15.86052, -15.85623, -15.86224)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  30.03537, 30.03403, 30.03289, 30.03314, 30.0321, 30.03314, 30.03195, 30.03388, 30.03537, 30.03685, 
  30.03551)
LONGITUDE_VALUEs <- c(
  -16.03132, -16.0296, -16.02931, -16.02771, -16.02634, -16.0248, -16.02394, -16.02257, -16.02686, -16.02771, 
  -16.02926)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(30.03269, 30.03165, 30.03031, 30.02927, 30.0321, 30.03358)
LONGITUDE_VALUEs <- c(-16.05123, -16.04986, -16.05157, -16.0514, -16.04814, -16.04951)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo) %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "PORTUGAL")
GeoDATA <- rbind(GeoDATA, Geo_1)

CASPIAN SEA is bounded by 5 Countries (AZERBAIJAN | RUSSIAN FEDERATION | KAZAKHSTAN | TURKMENISTAN | IRAN).

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "AZERBAIJAN")
Geo_2 <- GeoDATA %>% filter(NAME == "RUSSIAN FEDERATION")
Geo_3 <- GeoDATA %>% filter(NAME == "KAZAKHSTAN")
Geo_4 <- GeoDATA %>% filter(NAME == "TURKMENISTAN")
Geo_5 <- GeoDATA %>% filter(NAME == "IRAN")

##### AZERBAIJAN #####
LATITUDE_VALUEs <- c(
  38.87742, 38.87969, 38.88477, 38.88624, 38.88998, 38.89198, 38.90828, 38.92124, 38.92204, 38.93112,
  38.9378, 38.94073, 38.95141, 38.95248, 38.9705, 38.99559, 39.00279, 39.00613, 39.0196, 39.01813,
  39.01306, 39.01786, 39.02853, 39.02667, 39.038, 39.04707, 39.05813, 39.05813, 39.07159, 39.06973,
  39.07506, 39.07719, 39.08718, 39.08812, 39.09211, 39.09718, 39.10277, 39.10424, 39.10703, 39.10663,
  39.1097, 39.11143, 39.11476, 39.11329, 39.12102, 39.12302, 39.13074, 39.1386, 39.14099, 39.16469,
  39.1567, 39.15151, 39.14645, 39.139, 39.15431, 39.16376, 39.16802, 39.16642, 39.1756, 39.17933,
  39.18319, 39.19423, 39.20234, 39.20514, 39.21485, 39.2437, 39.2453, 39.25886, 39.26656, 39.2651,
  39.2768, 39.27201, 39.28105, 39.27759, 39.29181, 39.29248, 39.2958, 39.2962, 39.30138, 39.30191,
  39.31253, 39.30735, 39.31997, 39.31904, 39.33471, 39.33723, 39.34878, 39.34785, 39.35237, 39.36046,
  39.36909, 39.36882, 39.38209, 39.38408, 39.39709, 39.40398, 39.40624, 39.41367, 39.41473, 39.41234,
  39.41844, 39.41836, 39.42242, 39.43263, 39.44655, 39.45543, 39.45914, 39.46431, 39.46603, 39.46934,
  39.46391, 39.46431, 39.47239, 39.4708, 39.47902, 39.48061, 39.48882, 39.48803, 39.49783, 39.49664,
  39.50035, 39.49876, 39.50937, 39.5144, 39.52817, 39.54297, 39.53847, 39.55382, 39.56706, 39.57844,
  39.57844, 39.58743, 39.58479, 39.59167, 39.59061, 39.60648, 39.62552, 39.62526, 39.64324, 39.64192,
  39.65011, 39.6517, 39.65989, 39.65646, 39.66201, 39.65936, 39.66782, 39.66439, 39.67126, 39.66148,
  39.66491, 39.66069, 39.67099, 39.66544, 39.68315, 39.67945, 39.68605, 39.69187, 39.69239, 39.69953,
  39.70983, 39.69213, 39.41909, 39.39415, 39.39256, 39.37956, 39.37, 39.37107, 39.36297, 39.36231,
  39.3412, 39.33948, 39.33483, 39.33071, 39.3347, 39.32739, 39.32992, 39.31943, 39.31889, 39.31053,
  39.31225, 39.29392, 39.28301, 39.28195, 39.27677, 39.27185, 39.25643, 39.24474, 39.22971, 39.22399,
  39.21681, 39.21335, 39.2095, 39.19819, 39.19792, 39.18941, 39.19167, 39.18356, 39.17437, 39.17171,
  39.16213, 39.15441, 39.14815, 39.14722, 39.14389, 39.1407, 39.13351, 39.12339, 39.12459, 39.11566,
  39.11646, 39.1078, 39.09102, 39.08582, 39.06757, 39.06743, 39.0573, 39.0573, 39.0525, 39.05237,
  39.0301, 39.01103, 39.00516, 39.00143, 38.99663, 38.97568, 38.97274, 38.96727, 38.9666, 38.9646,
  38.965, 38.96019, 38.95339, 38.95672, 38.95339, 38.94591, 38.94805, 38.94618, 38.94351, 38.94685,
  38.92735, 38.9168, 38.8989, 38.91279, 38.9073, 38.83795, 38.83063, 38.82421, 38.81538, 38.81645,
  38.81137, 38.7865, 38.77178, 38.75759, 38.73885, 38.72841, 38.71796, 38.70644, 38.68876, 38.68259,
  38.6582, 38.64801, 38.63648, 38.60295, 38.60349, 38.59517, 38.60483, 38.60188, 38.61395, 38.60885,
  38.58121, 38.55115, 38.5533, 38.54712, 38.51946, 38.51436, 38.47916, 38.47969, 38.44582, 38.43238,
  38.40063, 38.40036, 38.39149, 38.39929, 38.40844, 38.41059, 38.44017, 38.43991, 38.45174, 38.44743,
  38.45254, 38.44071, 38.44204,
  38.49337, 38.51715, 38.52077, 38.52708, 38.55622, 38.6579, 38.73775, 38.75033, 38.75716, 38.76385,
  38.79156, 38.82379, 38.85121, 38.86431, 38.86725, 38.90413, 38.97623, 38.9821, 39.04452, 39.05865,
  39.08371, 39.15296, 39.17159, 39.19634, 39.21364, 39.21124, 39.19049, 39.17053, 39.18384, 39.18251,
  39.19209, 39.20512, 39.21151, 39.20911, 39.22268, 39.23385, 39.24342, 39.24608, 39.27001, 39.27957,
  39.2801, 39.24502, 39.22348, 39.21949, 39.23864, 39.23225, 39.18969, 39.17585, 39.17772, 39.15615,
  39.15243, 39.18118, 39.17878, 39.14923, 39.13361, 39.14843, 39.14045, 39.13326, 39.12899, 39.13299,
  39.12926, 39.13246, 39.13938, 39.16973, 39.17292, 39.14604, 39.14045, 39.15243, 39.16574, 39.16574,
  39.17426, 39.17958, 39.19368, 39.19581, 39.17346, 39.13752, 39.1218, 39.11834, 39.14364, 39.34147,
  39.35448, 39.35567, 39.34903, 39.33695, 39.31398, 39.30973, 39.3011, 39.3003, 39.27731, 39.27917,
  39.32168, 39.35049, 39.36483, 39.37677, 39.44918, 39.45263, 39.47847, 39.49715, 39.52735, 39.60106,
  39.63478, 39.65765, 39.68354, 39.68988, 39.69966, 39.73109, 39.77714, 39.79983, 39.82581, 39.84347,
  39.85586, 39.85533, 39.86113, 39.86324, 39.89459, 39.93646, 39.9541, 39.9687, 39.97252, 39.97331,
  39.97712, 39.97725, 39.9712, 39.97278, 39.97791, 39.98501, 39.99606, 40.00277, 40.01773, 40.0448,
  40.06569, 40.08106, 40.08277, 40.08855, 40.11179, 40.11153, 40.11429, 40.11429, 40.12964, 40.14447,
  40.17452, 40.18383, 40.18501, 40.19681, 40.20835, 40.21372, 40.22015, 40.23758, 40.23129, 40.27085,
  40.27886, 40.27925, 40.27453, 40.29837, 40.30478, 40.30426, 40.30099, 40.30347, 40.30381, 40.30923,
  40.31447, 40.31028, 40.30949, 40.33659, 40.33829, 40.34574, 40.34718, 40.35556, 40.36497, 40.37151,
  40.37047, 40.374, 40.37452, 40.36746, 40.36851, 40.35569, 40.35176, 40.34417, 40.33606, 40.34012,
  40.3396, 40.33672, 40.33541, 40.35098, 40.35713, 40.35384, 40.34756, 40.35279, 40.34717, 40.36143,
  40.3664, 40.36744, 40.35711, 40.35423, 40.35384, 40.34338, 40.33029, 40.32348, 40.32296, 40.30699,
  40.29089, 40.26732, 40.25579, 40.22473, 40.20782, 40.22447, 40.23535, 40.25068, 40.25435, 40.24662,
  40.25657, 40.27557, 40.2977, 40.32087, 40.32689, 40.35138, 40.35884, 40.38264, 40.39062, 40.39506,
  40.40291, 40.40657, 40.41859, 40.42173, 40.42173, 40.42617, 40.42617, 40.43454, 40.44185, 40.44499,
  40.44943, 40.4591, 40.46471, 40.46941, 40.47229, 40.50244, 40.5031, 40.5108, 40.51419, 40.51654,
  40.52176, 40.52463, 40.55203, 40.55633, 40.57498, 40.58515, 40.59114, 40.59453, 40.58541, 40.58619,
  40.59479, 40.58984, 40.57615, 40.56676, 40.56715, 40.57863, 40.5738, 40.5768, 40.58176, 40.6017,
  40.61695, 40.61291, 40.62281, 40.63571, 40.66228, 40.67947, 40.68949, 40.70342, 40.74804, 40.76247,
  40.77027, 40.75506, 40.76572, 40.77521, 40.78132, 40.81862, 40.83693, 40.84005, 40.85238, 40.89613,
  40.91611, 40.95242, 41.00322, 41.03353, 41.1104, 41.26955, 41.29303, 41.38351, 41.51141, 41.63854,
  41.72008, 41.76645, 41.81355, 41.84271,
  41.8376, 41.82455, 41.81687, 41.80305, 41.80152, 41.78078, 41.65291, 41.62212, 41.58823, 41.55432, 
  41.52297, 41.49469, 41.46698, 41.45863, 41.42471, 41.35542, 41.35903, 41.34821, 41.31959, 41.31211, 
  41.29973, 41.29948, 41.28684, 41.2791, 41.26697, 41.25458, 41.21818, 41.21999, 41.21534, 41.22179, 
  41.18537, 41.19286, 41.20707, 41.20888, 41.22644, 41.22308, 41.22954, 41.23574, 41.21715, 41.21689, 
  41.19726, 41.22902, 41.24606, 41.26929, 41.25794, 41.27394, 41.26439, 41.27007, 41.27548, 41.29483, 
  41.3085, 41.32552, 41.33686, 41.3531, 41.38042, 41.38737, 41.39845, 41.39948, 41.40978, 41.42162, 
  41.4453, 41.45058, 41.46576, 41.47077, 41.47476, 41.48839, 41.48672, 41.49585, 41.49974, 41.50665, 
  41.52233, 41.52644, 41.55124, 41.56601, 41.57243, 41.59529, 41.57089, 41.55766, 41.55445, 41.55689, 
  41.55471, 41.55779, 41.55818, 41.5655, 41.55587, 41.55831, 41.5768, 41.57988, 41.57876, 41.59824, 
  41.62686, 41.63354, 41.64123, 41.65406, 41.66496, 41.67868, 41.67637, 41.68637, 41.69086, 41.70957, 
  41.72687, 41.72802, 41.73276, 41.72636, 41.71957, 41.71995, 41.73827, 41.7498, 41.76158, 41.76312, 
  41.76158, 41.77272, 41.77362, 41.77848, 41.80126, 41.81137, 41.81265, 41.81623, 41.82851, 41.83491, 
  41.84808, 41.86266, 41.86317, 41.85806, 41.85588, 41.84872, 41.84731, 41.83846, 41.82964, 41.82721, 
  41.83488, 41.83322, 41.83603, 41.83143, 41.82849, 41.8304, 41.83488, 41.82913, 41.82388, 41.81173, 
  41.81109, 41.80251, 41.81262, 41.81313, 41.81991, 41.82132, 41.84959, 41.85752, 41.86327, 41.86697, 
  41.87107, 41.8818, 41.88819, 41.88755, 41.8896, 41.8795, 41.86595, 41.86928, 41.89928, 41.86928, 
  40.37028)
LONGITUDE_VALUEs <- c(
  46.54346, 46.54981, 46.5541, 46.56612, 46.56647, 46.57488, 46.60285, 46.60716, 46.61677, 46.62741,
  46.62707, 46.63942, 46.63977, 46.653, 46.66259, 46.68938, 46.68852, 46.68321, 46.69848, 46.70671,
  46.70723, 46.73829, 46.74552, 46.7541, 46.76199, 46.75718, 46.75856, 46.76767, 46.7687, 46.77556,
  46.78036, 46.78723, 46.79083, 46.79581, 46.79667, 46.81366, 46.81127, 46.82122, 46.8207, 46.81556,
  46.81453, 46.82431, 46.82534, 46.83306, 46.83426, 46.83924, 46.8413, 46.83907, 46.8679, 46.92559,
  46.93795, 46.93853, 46.94832, 46.94832, 46.99417, 46.99193, 47.00018, 47.01886, 47.02264, 47.03449,
  47.03654, 47.05423, 47.05663, 47.06127, 47.0544, 47.06075, 47.07363, 47.0774, 47.08479, 47.09372,
  47.09767, 47.1078, 47.11656, 47.12514, 47.13215, 47.13988, 47.14091, 47.14761, 47.1483, 47.15259,
  47.15929, 47.1665, 47.19584, 47.21559, 47.22932, 47.24667, 47.25197, 47.25936, 47.27104, 47.27739,
  47.30332, 47.31585, 47.32064, 47.32597, 47.33472, 47.33507, 47.34142, 47.3397, 47.34415, 47.34862,
  47.35411, 47.35888, 47.36493, 47.36974, 47.37987, 47.37678, 47.38604, 47.38896, 47.39377, 47.39566,
  47.40648, 47.4197, 47.43206, 47.44048, 47.44168, 47.46878, 47.48612, 47.49488, 47.50673, 47.51583,
  47.52132, 47.52991, 47.54664, 47.5645, 47.57515, 47.60675, 47.61155, 47.62632, 47.66063, 47.66613,
  47.67987, 47.68845, 47.7046, 47.70734, 47.71696, 47.75336, 47.7671, 47.78187, 47.78391, 47.79456,
  47.79628, 47.80899, 47.80693, 47.8186, 47.82341, 47.83577, 47.85741, 47.86531, 47.88248, 47.89279,
  47.89994, 47.91677, 47.92398, 47.92776, 47.94184, 47.94733, 47.96039, 47.96245, 47.97344, 47.97412,
  47.98408, 48.03145, 48.34203, 48.36109, 48.35903, 48.36882, 48.35886, 48.34409, 48.32659, 48.31457,
  48.27628, 48.26185, 48.26737, 48.24539, 48.23371, 48.22427, 48.21105, 48.20024, 48.19492, 48.19303,
  48.18685, 48.15405, 48.15165, 48.14238, 48.14703, 48.13054, 48.13535, 48.12951, 48.13415, 48.14187,
  48.13638, 48.14445, 48.1405, 48.15079, 48.15921, 48.16213, 48.169, 48.17757, 48.20299, 48.20367,
  48.21775, 48.21792, 48.2217, 48.22702, 48.22462, 48.22925, 48.23011, 48.26117, 48.27251, 48.28625,
  48.28968, 48.30771, 48.30358, 48.31646, 48.31972, 48.32298, 48.32435, 48.32692, 48.32589, 48.33087,
  48.33791, 48.32641, 48.31645, 48.31662, 48.30787, 48.28692, 48.27696, 48.27063, 48.25843, 48.25277,
  48.23851, 48.23422, 48.20537, 48.18651, 48.15303, 48.14753, 48.13551, 48.11099, 48.10669, 48.08797,
  48.07854, 48.07923, 48.02874, 48.02084, 48.01002, 48.01982, 48.03525, 48.03561, 48.04025, 48.04488,
  48.04918, 48.10651, 48.10308, 48.18922, 48.20678, 48.24796, 48.24728, 48.25963, 48.24728, 48.2538,
  48.2538, 48.29464, 48.29361, 48.31523, 48.32969, 48.35612, 48.38838, 48.40485, 48.42751, 48.45736,
  48.45428, 48.47421, 48.49515, 48.50613, 48.51162, 48.52606, 48.55832, 48.56656, 48.59367, 48.59127,
  48.63008, 48.65238, 48.66028, 48.69323, 48.70558, 48.73819, 48.76708, 48.77806, 48.78835, 48.82165,
  48.84121, 48.87313, 48.88183,
  48.87574, 48.87642, 48.87951, 48.87711, 48.87299, 48.87385, 48.86595, 48.8699, 48.86509, 48.85428,
  48.83848, 48.82664, 48.83003, 48.8441, 48.87396, 48.91038, 48.93784, 48.94094, 48.93682, 48.91073,
  48.92445, 48.93749, 48.9588, 49.02229, 49.01955, 48.97665, 48.92997, 48.91693, 48.91418, 48.87574,
  48.86476, 48.87197, 48.89496, 48.90766, 48.91865, 48.96532, 48.96979, 48.9842, 48.96704, 48.97116,
  49.01029, 49.04049, 49.04117, 49.05662, 49.10467, 49.15035, 49.09029, 49.09406, 49.08376, 49.08101,
  49.092, 49.10999, 49.11961, 49.10141, 49.10895, 49.13884, 49.14228, 49.12339, 49.13575, 49.14502,
  49.15567, 49.16632, 49.1488, 49.14983, 49.15567, 49.15533, 49.16357, 49.16357, 49.17456, 49.18456,
  49.18005, 49.18727, 49.18349, 49.18898, 49.20684, 49.21062, 49.19757, 49.20272, 49.22466, 49.2463,
  49.26977, 49.28728, 49.31716, 49.33775, 49.34049, 49.35578, 49.3757, 49.39095, 49.43526, 49.43766,
  49.39903, 49.38444, 49.38701, 49.40006, 49.31182, 49.29896, 49.27835, 49.27269, 49.27698, 49.30994,
  49.32024, 49.33843, 49.36676, 49.38339, 49.42099, 49.40023, 49.38393, 49.3865, 49.40298, 49.40418,
  49.4205, 49.43269, 49.43458, 49.44007, 49.42306, 49.41122, 49.41585, 49.43919, 49.44091, 49.44434,
  49.44452, 49.44812, 49.44864, 49.45448, 49.45791, 49.47371, 49.48264, 49.47989, 49.45654, 49.4301,
  49.41878, 49.4186, 49.42289, 49.4253, 49.46325, 49.47697, 49.48126, 49.4926, 49.47817, 49.47234,
  49.47388, 49.48865, 49.50048, 49.51319, 49.53806, 49.56932, 49.57481, 49.60915, 49.638, 49.67784,
  49.69702, 49.71454, 49.72364, 49.76588, 49.79299, 49.80741, 49.81377, 49.81926, 49.83146, 49.82269,
  49.82235, 49.8287, 49.8354, 49.84467, 49.83762, 49.86046, 49.83917, 49.83574, 49.8383, 49.85359,
  49.86269, 49.86921, 49.896, 49.91555, 49.9195, 49.94663, 49.94732, 49.95574, 49.9571, 49.96878,
  49.98526, 49.98525, 50.00139, 50.02629, 50.05102, 50.06404, 50.06765, 50.07744, 50.08225, 50.08757,
  50.10626, 50.13563, 50.17821, 50.17856, 50.20531, 50.24806, 50.28531, 50.29853, 50.30832, 50.33545,
  50.35141, 50.35914, 50.35896, 50.36978, 50.36926, 50.37527, 50.3763, 50.38051, 50.37699, 50.37578,
  50.36394, 50.36858, 50.35896, 50.36772, 50.36583, 50.36685, 50.36566, 50.34746, 50.34558, 50.34042,
  50.33974, 50.33064, 50.31673, 50.30808, 50.30156, 50.29521, 50.29109, 50.28165, 50.27856, 50.28474,
  50.26499, 50.26121, 50.24937, 50.24645, 50.24799, 50.22654, 50.21794, 50.17813, 50.17504, 50.15394,
  50.15068, 50.11668, 50.0882, 50.08869, 50.06861, 50.06586, 50.07187, 50.06998, 50.01284, 49.99688,
  49.99242, 49.95737, 49.90158, 49.82059, 49.80288, 49.77885, 49.74882, 49.70589, 49.69388, 49.68512,
  49.67242, 49.63585, 49.58008, 49.54936, 49.52959, 49.52118, 49.52084, 49.51312, 49.51346, 49.52135,
  49.53439, 49.53131, 49.54847, 49.54847, 49.5549, 49.52022, 49.48418, 49.44435, 49.40657, 49.3644,
  49.32353, 49.2988, 49.22774, 49.20439, 49.16972, 49.12955, 49.12167, 49.0609, 48.94828, 48.81368,
  48.73851, 48.6932, 48.64031, 48.59223,
  48.58419, 48.57561, 48.57835, 48.56634, 48.5557, 48.55433, 48.41729, 48.41315, 48.37265, 48.27449, 
  48.24292, 48.06304, 48.05373, 48.06284, 48.00676, 47.99234, 47.95562, 47.94944, 47.96831, 47.9326, 
  47.91132, 47.89897, 47.89073, 47.91029, 47.90617, 47.91235, 47.88558, 47.85949, 47.84782, 47.81385, 
  47.78261, 47.72731, 47.72559, 47.70912, 47.70088, 47.65004, 47.64592, 47.61846, 47.6092, 47.57419, 
  47.56115, 47.50006, 47.50898, 47.49693, 47.47016, 47.45266, 47.40701, 47.40079, 47.36681, 47.33829, 
  47.29883, 47.28819, 47.25671, 47.27047, 47.26016, 47.26531, 47.25707, 47.21929, 47.2296, 47.2217, 
  47.24333, 47.21035, 47.20159, 47.19301, 47.19867, 47.19146, 47.17944, 47.17482, 47.15912, 47.15765, 
  47.17275, 47.17207, 47.12794, 47.1228, 47.11163, 47.11232, 47.06785, 47.07248, 47.06458, 47.05963, 
  47.05191, 47.0459, 47.03628, 47.03284, 47.01979, 47.01533, 47.02288, 47.01654, 47.0078, 46.98993, 
  47.01175, 47.00058, 46.99955, 46.95698, 46.94496, 46.94084, 46.92727, 46.92023, 46.92487, 46.92951, 
  46.91405, 46.90615, 46.90014, 46.87612, 46.87165, 46.86479, 46.85208, 46.83044, 46.83011, 46.82393, 
  46.80607, 46.79596, 46.79029, 46.79287, 46.76488, 46.7702, 46.78291, 46.7848, 46.77141, 46.77055, 
  46.76111, 46.76111, 46.75699, 46.75012, 46.73295, 46.72316, 46.7156, 46.71613, 46.72352, 46.70892, 
  46.6981, 46.67938, 46.66856, 46.64986, 46.64694, 46.63595, 46.62788, 46.61792, 46.62222, 46.60454, 
  46.59682, 46.58411, 46.57329, 46.56642, 46.56367, 46.55526, 46.55014, 46.55478, 46.55134, 46.54943, 
  46.53864, 46.53657, 46.51803, 46.51253, 46.50824, 46.4741, 46.46294, 46.45968, 46.45568, 46.45368, 
  47.43026)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_1, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_union(Geo_0[c(1:3, 85)]))
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(38.97528, 38.95939, 38.95526, 38.97434, 38.99876, 39.02104, 39.03424, 39.03437, 39.00023)
LONGITUDE_VALUEs <- c(49.09178, 49.08646, 49.10517, 49.1505, 49.17899, 49.18036, 49.17487, 49.16972, 49.14002)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  40.312, 40.32495, 40.32522, 40.34026, 40.33725, 40.34524, 40.34929, 40.32469, 40.31684, 40.29851, 
  40.29616, 40.30938, 40.31474)
LONGITUDE_VALUEs <- c(
  50.61723, 50.61259, 50.61894, 50.59921, 50.59543, 50.58599, 50.57261, 50.5817, 50.5721, 50.56111, 
  50.563, 50.57965, 50.60539)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  40.45609, 40.46785, 40.48456, 40.48404, 40.48926, 40.47699, 40.46419, 40.42186, 40.41885, 40.40069, 
  40.41428, 40.41912, 40.42591, 40.44251, 40.44656)
LONGITUDE_VALUEs <- c(
  50.34547, 50.35199, 50.3417, 50.33552, 50.329, 50.30635, 50.32179, 50.35165, 50.34962, 50.35769, 
  50.35906, 50.36661, 50.3685, 50.34928, 50.35477)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
Geo_1 <- Geo_1 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### RUSSIAN FEDERATION #####
Geo_0 <- Geometric_Operations(Geo_2, Geo_1)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0))
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  41.89928, 41.86928, 41.86595, 41.8795, 41.8896, 41.88755, 41.88819, 41.8818, 41.87107, 41.86697, 
  41.86327, 41.85752, 41.84959, 41.82132, 41.81991, 41.81313, 41.81262, 41.80251, 41.81109, 41.81173, 
  41.82388, 41.82913, 41.83488, 41.8304, 41.82849, 41.83143, 41.83603, 41.83322, 41.83488, 41.82721, 
  41.82964, 41.83846, 41.84731, 41.84872, 41.85588, 41.85806, 41.86317, 41.86266, 41.84808, 41.83491, 
  41.82851, 41.81623, 41.81265, 41.81137, 41.80126, 41.77848, 41.77362, 41.77272, 41.76158, 41.76312, 
  41.76158, 41.7498, 41.73827, 41.71995, 41.71957, 41.72636, 41.73276, 41.72802, 41.72687, 41.70957, 
  41.69086, 41.68637, 41.67637, 41.67868, 41.66496, 41.65406, 41.64123, 41.63354, 41.62686, 41.59824, 
  41.57876, 41.57988, 41.5768, 41.55831, 41.55587, 41.5655, 41.55818, 41.55779, 41.55471, 41.55689, 
  41.55445, 41.55766, 41.57089, 41.59529, 41.57243, 41.56601, 41.55124, 41.52644, 41.52233, 41.50665, 
  41.49974, 41.49585, 41.48672, 41.48839, 41.47476, 41.47077, 41.46576, 41.45058, 41.4453, 41.42162, 
  41.40978, 41.39948, 41.39845, 41.38737, 41.38042, 41.3531, 41.33686, 41.32552, 41.3085, 41.29483, 
  41.27548, 41.27007, 41.26439, 41.27394, 41.25794, 41.26929, 41.24606, 41.22902, 41.19726, 41.21689, 
  41.21715, 41.23574, 41.22954, 41.22308, 41.22644, 41.20888, 41.20707, 41.19286, 41.18537, 41.22179, 
  41.21534, 41.21999, 41.21818, 41.25458, 41.26697, 41.2791, 41.28684, 41.29948, 41.29973, 41.31211, 
  41.31959, 41.34821, 41.35903, 41.35542, 41.42471, 41.45863, 41.46698, 41.49469, 41.52297, 41.55432, 
  41.58823, 41.62212, 41.65291, 41.78078, 41.80152, 41.80305, 41.81687, 41.82455, 41.8376, 41.84271, 
  41.85921, 41.88094, 41.89551, 41.9148, 41.91007, 41.92246, 41.94979, 42.00849, 42.01168, 42.02481,
  42.02749, 42.04305, 42.09606, 42.09835, 42.10217, 42.10714, 42.10586, 42.12013, 42.12356, 42.13591,
  42.19648, 42.28036, 42.31058, 42.33901, 42.36514, 42.41129, 42.48425, 42.53512, 42.56143, 42.58191,
  42.59913, 42.60844, 42.60465, 42.61021, 42.64709, 42.70641, 42.83746, 42.86993, 42.88578, 42.8815,
  42.88728, 42.89659, 42.92199, 42.93179, 42.95491, 43.00314, 43.03351, 43.14584, 43.19992, 43.25946,
  43.29545, 43.31943, 43.30394, 43.2897, 43.29345, 43.2807, 43.2851, 43.31319, 43.42275, 43.54258,
  43.57815, 43.59108, 43.62241, 43.73389, 43.83155, 43.90482, 43.9251, 43.92411, 43.9686, 43.97305,
  43.9943, 43.99133, 44.00368, 43.99528, 43.95921, 43.93598, 43.95575, 43.93449, 43.92757, 43.88156,
  43.8578, 43.83799, 43.8375, 43.82437, 43.80901, 43.80678, 43.82784, 43.80505, 43.82784, 43.85879,
  43.87711, 43.87587, 43.90086, 43.9686, 44.00195, 44.057, 44.12185, 44.2174, 44.23364, 44.23069,
  44.22281, 44.21912, 44.21543, 44.21174, 44.20805, 44.22626, 44.26807, 44.28257, 44.35921, 44.38129,
  44.39307, 44.40681, 44.41024, 44.43402, 44.47128, 44.46282, 44.448, 44.4518, 44.4518, 44.46785,
  44.47324, 44.47936, 44.47569, 44.47434, 44.50494, 44.51437, 44.50359, 44.50506, 44.48656, 44.48314,
  44.4889, 44.4851, 44.48914, 44.50004, 44.54912, 44.55144, 44.56649, 44.56942, 44.59388, 44.60243,
  44.60365, 44.60097, 44.60194, 44.60598, 44.60695, 44.61673, 44.61771, 44.62089, 44.6298, 44.62675,
  44.63066, 44.62724, 44.62993, 44.6276, 44.6309, 44.63235, 44.65264, 44.65509, 44.66485, 44.66547,
  44.67108, 44.65777, 44.6596, 44.65704, 44.66107, 44.65887, 44.66522, 44.66669, 44.67145, 44.67865,
  44.67828, 44.68548, 44.68951, 44.69305, 44.68707, 44.68256, 44.68353, 44.67413, 44.67535, 44.66876,
  44.6673, 44.67364, 44.6723, 44.66644, 44.65912, 44.66046, 44.65997, 44.66742, 44.67474, 44.68745,
  44.68574, 44.70209, 44.71088, 44.71039, 44.74795, 44.75137, 44.73722, 44.74771, 44.756, 44.76063,
  44.7984, 44.73478, 44.73064, 44.70746, 44.71844, 44.79597, 44.82008, 44.81058, 44.83859, 44.84759,
  44.94147, 44.94743, 44.9665, 45.00062, 45.01506, 45.01955, 45.04139, 45.05242, 45.09049, 45.12078,
  45.15154, 45.17816, 45.18736, 45.18579, 45.16522, 45.11727, 45.12708, 45.20248, 45.22884, 45.2471,
  45.32488, 45.33851, 45.34105, 45.34442, 45.35516, 45.35516, 45.34249, 45.34406, 45.33006, 45.3297,
  45.36602, 45.37687, 45.37723, 45.41098, 45.42099, 45.42749, 45.42942, 45.43412, 45.43641, 45.43376,
  45.43111, 45.40773, 45.40797, 45.43207, 45.42689, 45.41761, 45.41544, 45.41195, 45.40592, 45.39749,
  45.39194, 45.40713, 45.41038, 45.42532, 45.4765, 45.4836, 45.48794, 45.49131, 45.47337, 45.47145,
  45.47795, 45.47903, 45.4682, 45.46061, 45.45483, 45.457, 45.5025, 45.51008, 45.51369, 45.51465,
  45.51332, 45.51838, 45.52259, 45.52463, 45.53425, 45.53798, 45.54062, 45.54134, 45.54591, 45.54676,
  45.55072, 45.54916, 45.55529, 45.56334, 45.56635, 45.57356, 45.57908, 45.59122, 45.59518, 45.5977,
  45.60923, 45.6174, 45.63781, 45.64717, 45.64705, 45.65281, 45.65257, 45.64633, 45.64369, 45.65233,
  45.64585, 45.64045, 45.63817, 45.62388, 45.62016, 45.62112, 45.60863, 45.60995, 45.60743, 45.60455,
  45.60131, 45.59782, 45.59819, 45.59301, 45.59024, 45.59313, 45.57859, 45.57919, 45.56633, 45.57559,
  45.56922, 45.56693, 45.56285, 45.5566, 45.55203, 45.54422, 45.54326, 45.53965, 45.53712, 45.53255,
  45.53063, 45.52847, 45.52125, 45.52329, 45.5192, 45.51656, 45.51355, 45.51078, 45.50525, 45.50489,
  45.49936, 45.49322, 45.48816, 45.48467, 45.4813, 45.47769, 45.46168, 45.46469, 45.4547, 45.44338,
  45.44121, 45.42916, 45.43194, 45.4376, 45.43844, 45.4288, 45.42495, 45.41724, 45.41543, 45.41977,
  45.41953, 45.41133, 45.40567, 45.40035, 45.41433, 45.41531, 45.42531, 45.4288, 45.4323, 45.44832,
  45.45493, 45.47058, 45.47214, 45.48586, 45.51895, 45.55947, 45.56043, 45.56512, 45.56404, 45.56932,
  45.56945, 45.54841, 45.55166, 45.56211, 45.56211, 45.57269, 45.57798, 45.57629, 45.59708, 45.58891,
  45.58915, 45.5972, 45.5972, 45.60392, 45.60669, 45.60945, 45.60825, 45.61809, 45.61773, 45.62518,
  45.63106, 45.62578, 45.62902, 45.62506, 45.63058, 45.62842, 45.63274, 45.62962, 45.60236, 45.62686,
  45.59828, 45.59516, 45.59107, 45.59275, 45.56247, 45.56163, 45.58338, 45.54288, 45.52292, 45.49537,
  45.47864, 45.46492, 45.46913, 45.47672, 45.4896, 45.51426, 45.52761, 45.53834, 45.55902, 45.60875,
  45.61308, 45.62052, 45.63541, 45.63181, 45.64861, 45.66613, 45.67164, 45.68052, 45.67452, 45.66876,
  45.65869, 45.66061, 45.6738, 45.68004, 45.69371, 45.70714, 45.69707, 45.70666, 45.69827, 45.7033,
  45.67284, 45.67212, 45.68268, 45.66924, 45.64093, 45.64093, 45.66061, 45.65077, 45.66445, 45.68076,
  45.68724, 45.69035, 45.70282, 45.7069, 45.72679, 45.72464, 45.7081, 45.7057, 45.69443, 45.6834,
  45.69131, 45.68628, 45.6822, 45.669, 45.66829, 45.66229, 45.66277, 45.65773, 45.66277, 45.64861,
  45.65389, 45.64093, 45.58521, 45.59482, 45.58593, 45.55541, 45.50779, 45.49865, 45.47855, 45.46856,
  45.44496, 45.42255, 45.41701, 45.39724, 45.42159, 45.44953, 45.45339, 45.5215, 45.54579, 45.56527,
  45.58305, 45.60419, 45.60875, 45.6294, 45.66109, 45.64837, 45.66661, 45.67836, 45.65701, 45.65797,
  45.64957, 45.65461, 45.68244, 45.6834, 45.69515, 45.68795, 45.71169, 45.73015, 45.70978, 45.73686,
  45.71649, 45.67572, 45.66373, 45.62724, 45.59218, 45.60467, 45.59074, 45.59746, 45.62124, 45.63493,
  45.65101, 45.65365, 45.67596, 45.68292, 45.67692, 45.6913, 45.67044, 45.62388, 45.61548, 45.6138,
  45.60587, 45.61381, 45.64429, 45.68052, 45.70114, 45.72344, 45.73854, 45.75459, 45.76225, 45.77375,
  45.77471, 45.78524, 45.78979, 45.80798, 45.80774, 45.83789, 45.83736, 45.84913, 45.86658, 45.87662,
  45.88176, 45.88224, 45.8881, 45.89264, 45.89885, 45.89789, 45.9029, 45.90218, 45.906, 45.91006,
  45.91281, 45.92034, 45.92081, 45.91532, 45.9103, 45.90768, 45.90003, 45.89645, 45.89334, 45.88796,
  45.88235, 45.88223, 45.89035, 45.89752, 45.87661, 45.86896, 45.84326, 45.84075, 45.83142, 45.82005,
  45.82424, 45.82807, 45.83465, 45.84027, 45.8435, 45.86956, 45.87219, 45.88557, 45.89836, 45.89788,
  45.90648, 45.9066, 45.92093, 45.93514, 45.94386, 45.94947, 45.95448, 45.95615, 45.96558, 45.96939,
  45.96462, 45.9676, 45.95579, 45.9503, 45.9386, 45.93502, 45.92619, 45.92583, 45.91627, 45.91195,
  45.91434, 45.91207, 45.91649, 45.92353, 45.92509, 45.92306, 45.93117, 45.9381, 45.94371, 45.94717,
  45.95004, 45.96376, 45.97995, 45.97637, 45.92465, 45.96666, 46.00698, 46.00912, 46.04774, 46.07609,
  46.08871, 46.12204, 46.11204, 46.11989, 46.0587, 46.05679, 46.02987, 45.98957, 46.02557, 46.04845,
  46.08657, 46.10347, 46.09585, 46.08419, 46.07085, 46.08014, 46.07656, 46.15724, 46.162, 46.16842,
  46.17032, 46.15534, 46.14654, 46.13631, 46.19861, 46.23495, 46.2492, 46.26771, 46.27365, 46.28077,
  46.295, 46.33318, 46.341, 46.32808,
  46.36991, 46.38412, 46.38246, 46.39004, 46.38483, 46.3917, 46.39288, 46.4168, 46.43454, 46.43573,
  46.44533, 46.45158, 46.48161, 46.47759, 46.48681, 46.49508, 46.5232, 46.54328, 46.53855, 46.5506,
  46.55367, 46.56287, 46.55603, 46.56146, 46.55697, 46.56075, 46.55508, 46.56217, 46.58695, 46.58789,
  46.59874, 46.59685, 46.60039, 46.6011, 46.60346, 46.60983, 46.60605, 46.62351, 46.63812, 46.64802,
  46.64944, 46.67159, 46.6869, 46.70762, 46.71562, 46.70456, 46.73115, 46.72103, 46.71233, 46.7208,
  46.68544, 46.69396, 46.74386, 46.88202, 47.09724, 47.41276, 47.41183, 47.69359, 47.74533, 47.76425,
  47.75133, 47.75871, 47.83897, 47.76287, 47.68203, 47.76102, 47.83206, 47.85464, 47.93107, 48.00049,
  48.03677, 48.0611, 48.05651, 48.08221, 48.10468, 48.15784, 48.21049, 48.26948, 48.32795, 48.35351,
  48.39, 48.38407, 48.4333)
LONGITUDE_VALUEs <- c(
  46.45568, 46.45968, 46.46294, 46.4741, 46.50824, 46.51253, 46.51803, 46.53657, 46.53864, 46.54943, 
  46.55134, 46.55478, 46.55014, 46.55526, 46.56367, 46.56642, 46.57329, 46.58411, 46.59682, 46.60454, 
  46.62222, 46.61792, 46.62788, 46.63595, 46.64694, 46.64986, 46.66856, 46.67938, 46.6981, 46.70892, 
  46.72352, 46.71613, 46.7156, 46.72316, 46.73295, 46.75012, 46.75699, 46.76111, 46.76111, 46.77055, 
  46.77141, 46.7848, 46.78291, 46.7702, 46.76488, 46.79287, 46.79029, 46.79596, 46.80607, 46.82393, 
  46.83011, 46.83044, 46.85208, 46.86479, 46.87165, 46.87612, 46.90014, 46.90615, 46.91405, 46.92951, 
  46.92487, 46.92023, 46.92727, 46.94084, 46.94496, 46.95698, 46.99955, 47.00058, 47.01175, 46.98993, 
  47.0078, 47.01654, 47.02288, 47.01533, 47.01979, 47.03284, 47.03628, 47.0459, 47.05191, 47.05963, 
  47.06458, 47.07248, 47.06785, 47.11232, 47.11163, 47.1228, 47.12794, 47.17207, 47.17275, 47.15765, 
  47.15912, 47.17482, 47.17944, 47.19146, 47.19867, 47.19301, 47.20159, 47.21035, 47.24333, 47.2217, 
  47.2296, 47.21929, 47.25707, 47.26531, 47.26016, 47.27047, 47.25671, 47.28819, 47.29883, 47.33829, 
  47.36681, 47.40079, 47.40701, 47.45266, 47.47016, 47.49693, 47.50898, 47.50006, 47.56115, 47.57419, 
  47.6092, 47.61846, 47.64592, 47.65004, 47.70088, 47.70912, 47.72559, 47.72731, 47.78261, 47.81385, 
  47.84782, 47.85949, 47.88558, 47.91235, 47.90617, 47.91029, 47.89073, 47.89897, 47.91132, 47.9326, 
  47.96831, 47.94944, 47.95562, 47.99234, 48.00676, 48.06284, 48.05373, 48.06304, 48.24292, 48.27449, 
  48.37265, 48.41315, 48.41729, 48.55433, 48.5557, 48.56634, 48.57835, 48.57561, 48.58419, 48.59223,
  48.56416, 48.54168, 48.5113, 48.49001, 48.4689, 48.41139, 48.36693, 48.33449, 48.33603, 48.33363,
  48.32951, 48.31716, 48.28986, 48.29055, 48.28934, 48.29158, 48.28523, 48.26462, 48.26377, 48.23957,
  48.20163, 48.13654, 48.11833, 48.0895, 48.04075, 47.99476, 47.93638, 47.90479, 47.90033, 47.88588,
  47.85881, 47.81243, 47.80626, 47.78635, 47.74757, 47.71871, 47.71321, 47.69604, 47.66206, 47.65554,
  47.65383, 47.63632, 47.61676, 47.59548, 47.57519, 47.46845, 47.46053, 47.47872, 47.50138, 47.55082,
  47.55597, 47.54944, 47.53138, 47.53001, 47.51353, 47.51009, 47.49721, 47.48159, 47.49052, 47.52348,
  47.54408, 47.57224, 47.55129, 47.59497, 47.65879, 47.75015, 47.74191, 47.77556, 47.84077, 47.86962,
  47.86138, 47.76109, 47.70339, 47.64295, 47.63058, 47.65256, 47.69171, 47.69103, 47.71026, 47.5667,
  47.54896, 47.55405, 47.54409, 47.55302, 47.54821, 47.53241, 47.53035, 47.49532, 47.45617, 47.47059,
  47.46544, 47.43456, 47.41945, 47.38889, 47.37484, 47.31096, 47.27081, 47.23477, 47.20901, 47.1781,
  47.16746, 47.16986, 47.1623, 47.16677, 47.14513, 47.10735, 47.0837, 47.0624, 47.03735, 47.00541,
  46.9484, 46.93844, 46.94671, 46.93607, 46.89691, 46.84591, 46.81466, 46.80624, 46.77207, 46.77999,
  46.77329, 46.77243, 46.76728, 46.7484, 46.73861, 46.74377, 46.75029, 46.75321, 46.78724, 46.83611,
  46.85861, 46.87372, 46.90772, 46.91528, 46.87646, 46.87973, 46.872, 46.87492, 46.86445, 46.84436,
  46.83801, 46.83698, 46.83406, 46.83509, 46.83836, 46.82994, 46.83423, 46.83286, 46.8363, 46.84368,
  46.84282, 46.85038, 46.85038, 46.85879, 46.86068, 46.8658, 46.86959, 46.87474, 46.86976, 46.87852,
  46.8823, 46.92265, 46.92418, 46.93843, 46.94152, 46.95182, 46.95182, 46.95835, 46.95835, 46.96694,
  46.97432, 46.97724, 46.9738, 46.98342, 47.0004, 46.99954, 47.0059, 47.01018, 47.01619, 47.01911,
  47.03869, 47.04401, 47.04642, 47.04367, 47.05741, 47.0629, 47.07252, 47.08162, 47.08076, 47.08437,
  47.09502, 47.09021, 47.07647, 47.08815, 47.04925, 47.02625, 46.99534, 46.98401, 46.99431, 46.98882,
  47.05231, 47.10722, 47.12238, 47.16116, 47.17901, 47.1893, 47.20852, 47.24387, 47.25726, 47.23495,
  47.24409, 47.26983, 47.27637, 47.27379, 47.28375, 47.30657, 47.31309, 47.3301, 47.33868, 47.38485,
  47.37644, 47.37868, 47.38914, 47.39755, 47.39704, 47.41747, 47.43016, 47.42073, 47.4415, 47.4367,
  47.46021, 47.45643, 47.46124, 47.45867, 47.45798, 47.46055, 47.46501, 47.47033, 47.48012, 47.48595,
  47.49642, 47.49179, 47.49711, 47.51445, 47.50578, 47.51265, 47.52055, 47.51952, 47.52209, 47.53428,
  47.52982, 47.54218, 47.54888, 47.56276, 47.57066, 47.56723, 47.571, 47.56894, 47.57512, 47.57238,
  47.57341, 47.58663, 47.59487, 47.60139, 47.60397, 47.60997, 47.60928, 47.61478, 47.61838, 47.62456,
  47.62473, 47.63435, 47.62783, 47.63401, 47.63366, 47.64672, 47.64619, 47.65168, 47.64945, 47.65134,
  47.6534, 47.65701, 47.65598, 47.65924, 47.65632, 47.66113, 47.65752, 47.64945, 47.64945, 47.66061,
  47.66233, 47.66868, 47.6704, 47.66439, 47.67057, 47.66902, 47.67589, 47.67967, 47.67297, 47.67469,
  47.6673, 47.66781, 47.65614, 47.62799, 47.63555, 47.63297, 47.63761, 47.63933, 47.65238, 47.65667,
  47.66989, 47.668, 47.67418, 47.67847, 47.68429, 47.68996, 47.69271, 47.70765, 47.71005, 47.69597,
  47.70233, 47.70147, 47.71469, 47.70284, 47.70422, 47.72379, 47.71023, 47.70164, 47.70902, 47.72362,
  47.72242, 47.71606, 47.71967, 47.71366, 47.72826, 47.72842, 47.72224, 47.7255, 47.7097, 47.70953,
  47.71898, 47.71022, 47.70318, 47.72035, 47.71743, 47.72395, 47.71726, 47.72052, 47.71863, 47.731,
  47.72018, 47.72086, 47.73924, 47.737, 47.74593, 47.73838, 47.73099, 47.74301, 47.73425, 47.74061,
  47.73769, 47.74404, 47.7607, 47.75967, 47.76413, 47.76843, 47.75624, 47.75486, 47.76413, 47.76431,
  47.77049, 47.77202, 47.76223, 47.77651, 47.77514, 47.77923, 47.77786, 47.77992, 47.77545, 47.77631,
  47.7698, 47.76602, 47.77563, 47.7619, 47.76945, 47.75898, 47.77323, 47.76997, 47.76035, 47.75984,
  47.75503, 47.75331, 47.7449, 47.74507, 47.74902, 47.74438, 47.7449, 47.73751, 47.73168, 47.73975,
  47.74353, 47.73786, 47.7425, 47.7437, 47.73855, 47.73821, 47.72808, 47.7255, 47.73701, 47.72894,
  47.73048, 47.73598, 47.73667, 47.74199, 47.75056, 47.75468, 47.76121, 47.77065, 47.76138, 47.78301,
  47.77391, 47.7849, 47.7849, 47.77631, 47.78077, 47.79468, 47.80618, 47.83588, 47.84223, 47.84412,
  47.85442, 47.88172, 47.90233, 47.90937, 47.90231, 47.90746, 47.903, 47.90904, 47.90767, 47.89324,
  47.91007, 47.9087, 47.86097, 47.83853, 47.83029, 47.85605, 47.84575, 47.85571, 47.86703, 47.86051,
  47.86223, 47.86943, 47.87321, 47.86669, 47.89243, 47.89414, 47.89998, 47.91199, 47.92572, 47.9391,
  47.96141, 47.97308, 47.98166, 47.99439, 48.00434, 48.02322, 48.02837, 48.04038, 48.04141, 48.05688,
  48.0562, 48.06615, 48.06752, 48.07301, 48.05517, 48.08262, 48.08743, 48.07919, 48.08674, 48.08571,
  48.10665, 48.10905, 48.10356, 48.10321, 48.08914, 48.08709, 48.08263, 48.08228, 48.07405, 48.07405,
  48.0689, 48.06306, 48.07851, 48.09292, 48.11951, 48.12499, 48.1061, 48.11228, 48.09984, 48.13014,
  48.10747, 48.11915, 48.13804, 48.13735, 48.1978, 48.20363, 48.16414, 48.13392, 48.15865, 48.14251,
  48.1535, 48.10816, 48.11915, 48.12121, 48.148, 48.17822, 48.16449, 48.18475, 48.19639, 48.21013,
  48.22112, 48.23142, 48.23005, 48.25684, 48.24001, 48.27985, 48.26267, 48.26301, 48.27435, 48.28534,
  48.29391, 48.32893, 48.33065, 48.34919, 48.39622, 48.4443, 48.48651, 48.51983, 48.50884, 48.52772,
  48.51981, 48.52703, 48.51466, 48.52703, 48.54145, 48.56119, 48.57305, 48.57099, 48.58367, 48.64858,
  48.68464, 48.72186, 48.74674, 48.74366, 48.7543, 48.7289, 48.74229, 48.7416, 48.75498, 48.75498,
  48.77661, 48.78314, 48.77043, 48.75773, 48.74399, 48.75636, 48.7647, 48.78178, 48.7701, 48.74949,
  48.75135, 48.73246, 48.75461, 48.74465, 48.74413, 48.72851, 48.73452, 48.74602, 48.74293, 48.74396,
  48.73692, 48.73967, 48.74517, 48.74671, 48.75203, 48.74946, 48.77264, 48.77143, 48.77521, 48.77383,
  48.78448, 48.79272, 48.78929, 48.81144, 48.81401, 48.82345, 48.82671, 48.83254, 48.83202, 48.83974,
  48.84077, 48.8485, 48.84661, 48.84644, 48.86069, 48.86344, 48.87375, 48.86275, 48.86242, 48.86619,
  48.86551, 48.88783, 48.88268, 48.88371, 48.88851, 48.87838, 48.8813, 48.8746, 48.8667, 48.87306,
  48.87632, 48.89676, 48.90929, 48.90672, 48.91925, 48.91238, 48.91272, 48.90431, 48.90139, 48.91168,
  48.91443, 48.91992, 48.92267, 48.91237, 48.91838, 48.92662, 48.93211, 48.92833, 48.93091, 48.92662,
  48.93263, 48.92439, 48.92838, 48.96753, 49.03308, 49.01969, 49.02038, 49.02656, 49.01936, 49.02932,
  49.01627, 49.03239, 49.0451, 49.06021, 49.10586, 49.12372, 49.13883, 49.21782, 49.25385, 49.23187,
  49.23667, 49.2535, 49.28201, 49.27342, 49.29952, 49.29952, 49.31017, 49.24146, 49.25348, 49.25245,
  49.26962, 49.31083, 49.30431, 49.32766, 49.33899, 49.27308, 49.28441, 49.27376, 49.23083, 49.22192,
  49.22673, 49.19616, 49.20063, 49.23081,
  49.19222, 49.1651, 49.14142, 49.12289, 49.1023, 49.07999, 49.04979, 49.02366, 48.98351, 48.95022,
  48.93888, 48.91006, 48.88084, 48.83382, 48.81598, 48.81632, 48.78814, 48.78677, 48.76686, 48.75039,
  48.72499, 48.70989, 48.66729, 48.63126, 48.60414, 48.57943, 48.54992, 48.54271, 48.55953, 48.56879,
  48.57909, 48.59385, 48.59934, 48.62268, 48.60792, 48.59659, 48.57394, 48.54611, 48.5643, 48.5516,
  48.5152, 48.47676, 48.54952, 48.5351, 48.59899, 48.62095, 48.64601, 48.67312, 48.67586, 48.71396,
  48.75039, 48.91966, 48.99622, 48.91463, 48.7083, 48.51921, 48.45052, 48.20538, 48.1086, 48.02412,
  47.96092, 47.64645, 47.41164, 47.41167, 47.3835, 47.19324, 47.1218, 47.18225, 47.09781, 47.0511,
  47.14863, 47.15962, 47.20084, 47.21045, 47.08956, 47.12395, 47.10129, 47.12189, 46.88774, 46.74899,
  46.67824, 46.64537, 46.49151)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_2, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_0 <- st_union(Geo_0)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, st_union(Geo_0[c(1:177, 179:233)]))
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  44.44751, 44.48401, 44.497, 44.49479, 44.48132, 44.45437, 44.45412, 44.4252, 44.41858, 44.42495, 
  44.43574, 44.44113)
LONGITUDE_VALUEs <- c(
  47.56076, 47.54841, 47.52061, 47.49933, 47.48457, 47.47908, 47.48629, 47.54086, 47.54944, 47.56625, 
  47.56385, 47.55905)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(45.37809, 45.41666, 45.34528, 45.33659, 45.31535, 45.31535, 45.32935, 45.34673, 45.35928, 45.38677)
LONGITUDE_VALUEs <- c(47.82502, 47.8058, 47.77903, 47.78864, 47.78521, 47.81266, 47.84698, 47.85042, 47.86895, 47.85797)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  45.1847, 45.18591, 45.22244, 45.23525, 45.23041, 45.22147, 45.21832, 45.2072, 45.18567, 45.17599, 
  45.17236)
LONGITUDE_VALUEs <- c(
  48.0373, 48.0572, 48.06613, 48.03592, 47.99062, 47.98959, 47.99989, 47.99028, 48.00504, 48.00195, 
  48.02151)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  45.45671, 45.42105, 45.37863, 45.36898, 45.38634, 45.36319, 45.36222, 45.39936, 45.42876, 45.51977, 
  45.54925, 45.58708, 45.59669, 45.6087, 45.60678, 45.63415, 45.64519, 45.66583, 45.66871, 45.67447, 
  45.66535, 45.65479, 45.64327, 45.64375, 45.60486, 45.58564, 45.50966)
LONGITUDE_VALUEs <- c(
  47.9786, 47.97517, 47.93879, 47.9532, 47.97928, 47.97173, 47.98821, 47.99095, 48.00949, 48.01841, 
  48.00052, 48.00125, 47.99368, 48.00329, 47.98475, 47.96622, 47.98681, 47.97446, 47.95593, 47.95387, 
  47.93465, 47.94426, 47.93671, 47.91543, 47.92984, 47.92161, 47.93602)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  45.87814, 45.88698, 45.92926, 45.96197, 45.96937, 45.98416, 46.0042, 45.98798, 45.98392, 45.96531, 
  45.97319, 45.97414, 45.96507, 45.98774, 46.00062, 46.0135, 45.9999, 46.02422, 46.03876, 46.04305, 
  46.0359, 46.04282, 46.04115, 46.01111, 45.98607, 45.97342, 45.96364, 45.91589, 45.93094, 45.91422, 
  45.93189, 45.95409, 45.95481, 45.93786, 45.93547, 45.90395)
LONGITUDE_VALUEs <- c(
  49.12518, 49.15435, 49.14474, 49.15436, 49.1722, 49.17083, 49.10905, 49.11351, 49.13342, 49.13788, 
  49.11729, 49.07782, 49.05792, 49.061, 49.08743, 49.0816, 49.05208, 49.04483, 49.05101, 49.04311, 
  49.03659, 49.03041, 49.02492, 49.03796, 49.03076, 49.03418, 49.02766, 49.05033, 49.06475, 49.07264, 
  49.0874, 49.08431, 49.09701, 49.11142, 49.09941, 49.09976)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

##### KAZAKHSTAN #####
Geo_0 <- Geometric_Operations(Geo_3, Geo_2)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0))
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(
  48.4333, 48.38407, 48.39, 48.35351, 48.32795, 48.26948, 48.21049, 48.15784, 48.10468, 48.08221, 
  48.05651, 48.0611, 48.03677, 48.00049, 47.93107, 47.85464, 47.83206, 47.76102, 47.68203, 47.76287, 
  47.83897, 47.75871, 47.75133, 47.76425, 47.74533, 47.69359, 47.41183, 47.41276, 47.09724, 46.88202, 
  46.74386, 46.69396, 46.68544, 46.7208, 46.71233, 46.72103, 46.73115, 46.70456, 46.71562, 46.70762, 
  46.6869, 46.67159, 46.64944, 46.64802, 46.63812, 46.62351, 46.60605, 46.60983, 46.60346, 46.6011, 
  46.60039, 46.59685, 46.59874, 46.58789, 46.58695, 46.56217, 46.55508, 46.56075, 46.55697, 46.56146, 
  46.55603, 46.56287, 46.55367, 46.5506, 46.53855, 46.54328, 46.5232, 46.49508, 46.48681, 46.47759, 
  46.48161, 46.45158, 46.44533, 46.43573, 46.43454, 46.4168, 46.39288, 46.3917, 46.38483, 46.39004, 
  46.38246, 46.38412, 46.36991, 46.32808,
  46.29215, 46.2689, 46.27531, 46.3116, 46.31516, 46.29192, 46.28456, 46.2689, 46.267, 46.24635, 
  46.25478, 46.24398, 46.21595, 46.20265, 46.19504, 46.21334, 46.20894, 46.21773, 46.21239, 46.23258, 
  46.24362, 46.25193, 46.24279, 46.24564, 46.22913, 46.23567, 46.26582, 46.2797, 46.27851, 46.28409, 
  46.30473, 46.29773, 46.32465, 46.32796, 46.33472, 46.33567, 46.34871, 46.34195, 46.33247, 46.32761, 
  46.26961, 46.25098, 46.22937, 46.24006, 46.23329, 46.22225, 46.22771, 46.31326, 46.35096, 46.37181, 
  46.37015, 46.35866, 46.35404, 46.33591, 46.3237, 46.32915, 46.31623, 46.28883, 46.28539, 46.29809, 
  46.27567, 46.25798, 46.21797, 46.22284, 46.21963, 46.21037, 46.19623, 46.19849, 46.23804, 46.28646, 
  46.30947, 46.34574, 46.35759, 46.37725, 46.39762, 46.36517, 46.36612, 46.38554, 46.40094, 46.42484, 
  46.44117, 46.45347, 46.43833, 46.42508, 46.4485, 46.45654, 46.46057, 46.4731, 46.46932, 46.4783, 
  46.48468, 46.48492, 46.49886, 46.49579, 46.51139, 46.50761, 46.53926, 46.57987, 46.59332, 46.58388, 
  46.59025, 46.6169, 46.63081, 46.63294, 46.60771, 46.61785, 46.69843, 46.70762, 46.74339, 46.75068, 
  46.76785, 46.76879, 46.75962, 46.7528, 46.7281, 46.69655, 46.69655, 46.72033, 46.72009, 46.79747, 
  46.79888, 46.80758, 46.7695, 46.76574, 46.80053, 46.82846, 46.84068, 46.86322, 46.85852, 46.80285, 
  46.81554, 46.79721, 46.8233, 46.84678, 46.89091, 46.91906, 46.9071, 46.85829, 46.85359, 46.86228, 
  46.90475, 46.93641, 46.94461, 46.92445, 46.92398, 46.9425, 46.94953, 46.93031, 46.92187, 46.92281, 
  46.91906, 46.92445, 46.91788, 46.92445, 46.94485, 46.97695, 46.98046, 46.97132, 46.97554, 46.98725, 
  46.98374, 46.97507, 46.94156, 46.93875, 46.93055, 46.92515, 46.90569, 46.92281, 46.92633, 46.92257, 
  46.91484, 46.90757, 46.90498, 46.9085, 46.90405, 46.89677, 46.89232, 46.89513, 46.88825, 46.88856, 
  46.88387, 46.86674, 46.86979, 46.88105, 46.88293, 46.8503, 46.84232, 46.83079, 46.8383, 46.8754, 
  46.86507, 46.85521, 46.85662, 46.86929, 46.86765, 46.89041, 46.88948, 46.88126, 46.88455, 46.88103, 
  46.87047, 46.85145, 46.86131, 46.8538, 46.84112, 46.84652, 46.8383, 46.82491, 46.81387, 46.80447, 
  46.76639, 46.78219, 46.75209, 46.74833, 46.84329, 46.83953, 46.78878, 46.8198, 46.86395, 46.88648, 
  46.93385, 46.95401, 46.91603, 46.92963, 46.90759, 46.85597, 46.84329, 46.82731, 46.80523, 46.78925, 
  46.79677, 46.78078, 46.74268, 46.73939, 46.75256, 46.71303, 46.67771, 46.67583, 46.71303, 46.75068, 
  46.77608, 46.77984, 46.7488, 46.7488, 46.7135, 46.7361, 46.67865, 46.62351, 46.60322, 46.60039, 
  46.57349, 46.55461, 46.48326, 46.40378, 46.40236, 46.34835, 46.32133, 46.29856, 46.25442, 46.24018, 
  46.19362, 46.14321, 46.13702, 46.15653, 46.14939, 46.13655, 46.11894, 46.11371, 46.08276, 46.0718, 
  46.0556, 46.04512, 46.00889, 45.96642, 45.94494, 45.93205, 45.88857, 45.62556, 45.46398, 45.5179, 
  45.39459, 45.42159, 45.25169, 45.0386, 45.04248, 44.93175, 44.84808, 44.81984, 44.77111, 44.78573, 
  44.63935, 44.57971, 44.59829, 44.54644, 44.51511, 44.51511, 44.53078, 44.50532, 44.54391, 44.54057, 
  44.47397, 44.47299, 44.50924, 44.52099, 44.55329, 44.55623, 44.60807, 44.63641, 44.60514, 44.61198, 
  44.60807, 44.63153, 44.6198, 44.64521, 44.54155, 44.5758, 44.38473, 44.31894, 44.28847, 44.27765, 
  44.21962, 44.09843, 44.02146, 44.00171, 43.93746, 43.79687, 43.62713, 43.62216, 43.5983, 43.58139, 
  43.43497, 43.34216, 43.16, 43.14598, 43.18905, 43.12192, 43.10789, 43.03767, 42.82652, 42.87887, 
  42.87283, 42.78219, 42.83055, 42.8376, 42.80637, 42.75396, 42.73278, 42.62879, 42.5469, 42.41422, 
  42.21925, 42.16736, 42.09403, 42.06753, 42.02878, 41.94099, 41.85411, 41.77837, 41.76198,
  42.11554, 42.28848, 42.37985, 42.05031, 41.90841, 41.82353, 41.71752, 41.60209, 41.38917, 41.36032,
  41.33351, 41.31804, 41.3134, 41.29277, 41.29071, 41.26542, 41.27316, 41.252, 41.25871, 41.29535,
  41.24942, 41.27523, 41.28864, 41.28039, 41.30154, 41.28451, 41.27935, 41.29793, 41.33197, 41.32346,
  45.03248, 48.89836)
LONGITUDE_VALUEs <- c(
  46.49151, 46.64537, 46.67824, 46.74899, 46.88774, 47.12189, 47.10129, 47.12395, 47.08956, 47.21045, 
  47.20084, 47.15962, 47.14863, 47.0511, 47.09781, 47.18225, 47.1218, 47.19324, 47.3835, 47.41167, 
  47.41164, 47.64645, 47.96092, 48.02412, 48.1086, 48.20538, 48.45052, 48.51921, 48.7083, 48.91463, 
  48.99622, 48.91966, 48.75039, 48.71396, 48.67586, 48.67312, 48.64601, 48.62095, 48.59899, 48.5351, 
  48.54952, 48.47676, 48.5152, 48.5516, 48.5643, 48.54611, 48.57394, 48.59659, 48.60792, 48.62268, 
  48.59934, 48.59385, 48.57909, 48.56879, 48.55953, 48.54271, 48.54992, 48.57943, 48.60414, 48.63126, 
  48.66729, 48.70989, 48.72499, 48.75039, 48.76686, 48.78677, 48.78814, 48.81632, 48.81598, 48.83382, 
  48.88084, 48.91006, 48.93888, 48.95022, 48.98351, 49.02366, 49.04979, 49.07999, 49.1023, 49.12289, 
  49.14142, 49.1651, 49.19222, 49.23081,
  49.26231, 49.31379, 49.32717, 49.30589, 49.33575, 49.3457, 49.36838, 49.37661, 49.40681, 49.40441, 
  49.43553, 49.47895, 49.50745, 49.51174, 49.53045, 49.55018, 49.56444, 49.56753, 49.58195, 49.59516, 
  49.5907, 49.57937, 49.55346, 49.5375, 49.53802, 49.51966, 49.50899, 49.48531, 49.45528, 49.44636, 
  49.44871, 49.47037, 49.43123, 49.43346, 49.42162, 49.44067, 49.44908, 49.47964, 49.48925, 49.51791, 
  49.62057, 49.63087, 49.66813, 49.68958, 49.7136, 49.72441, 49.7416, 49.64496, 49.635, 49.64375, 
  49.67927, 49.68262, 49.7046, 49.6924, 49.70905, 49.72794, 49.74408, 49.7348, 49.74253, 49.75026, 
  49.76588, 49.74905, 49.77617, 49.76123, 49.76106, 49.78527, 49.79231, 49.83352, 49.8378, 49.87491, 
  49.87251, 49.83853, 49.77155, 49.7324, 49.74992, 49.8241, 49.84368, 49.85089, 49.83509, 49.8495, 
  49.81275, 49.84538, 49.85121, 49.86942, 49.89552, 49.89107, 49.8945, 49.87493, 49.85569, 49.86565, 
  49.85192, 49.86772, 49.87596, 49.88867, 49.89725, 49.90584, 49.90172, 49.93431, 49.96144, 50.01944, 
  50.04142, 50.04862, 50.06305, 50.0603, 50.03248, 50.0287, 50.12107, 50.14852, 50.17771, 50.19523, 
  50.21137, 50.23198, 50.23335, 50.24331, 50.22751, 50.23267, 50.23988, 50.24228, 50.26358, 50.32156, 
  50.35179, 50.36793, 50.36655, 50.39128, 50.4033, 50.43728, 50.43831, 50.46132, 50.47506, 50.50356, 
  50.54987, 50.57322, 50.59795, 50.59794, 50.63778, 50.6841, 50.71226, 50.69921, 50.71879, 50.74454, 
  50.77682, 50.78609, 50.81734, 50.82009, 50.83795, 50.8589, 50.90554, 50.98453, 50.97904, 50.9969, 
  51.00583, 51.04292, 51.06793, 51.10915, 51.10915, 51.16544, 51.20871, 51.23928, 51.3309, 51.3807, 
  51.44389, 51.48404, 51.56406, 51.58089, 51.57986, 51.56578, 51.55925, 51.57848, 51.59978, 51.60699, 
  51.60012, 51.61077, 51.60423, 51.58431, 51.58672, 51.61694, 51.60801, 51.57229, 51.56984, 51.58428, 
  51.60798, 51.58325, 51.57157, 51.57501, 51.56127, 51.54032, 51.54204, 51.52933, 51.5623, 51.60489, 
  51.61449, 51.61311, 51.61929, 51.62204, 51.62754, 51.6265, 51.64196, 51.64642, 51.65432, 51.67012, 
  51.66805, 51.68042, 51.71304, 51.75077, 51.77378, 51.83148, 51.88021, 51.92486, 51.9355, 51.999, 
  52.09791, 52.16368, 52.23924, 52.32367, 52.36761, 52.3985, 52.39782, 52.46783, 52.47057, 52.57216, 
  52.5413, 52.54954, 52.58317, 52.64358, 52.62642, 52.67448, 52.65938, 52.66213, 52.61202, 52.62163, 
  52.65389, 52.68204, 52.67448, 52.69373, 52.74795, 52.74178, 52.761, 52.78227, 52.80493, 52.86327, 
  52.88249, 52.92307, 52.91621, 52.89836, 52.89356, 52.98073, 53.01917, 53.02329, 53.00064, 53.04665, 
  53.00478, 53.04665, 53.00134, 53.13381, 53.04939, 52.98072, 52.98827, 52.95807, 52.95052, 52.96219, 
  52.886, 52.91757, 52.90411, 52.89106, 52.83199, 52.8492, 52.82859, 52.84851, 52.85881, 52.82516, 
  52.83477, 52.87732, 52.92884, 52.91166, 52.92265, 52.99203, 52.89381, 52.7189, 52.81781, 52.63647, 
  52.27929, 51.8177, 51.26819, 51.26004, 51.18585, 50.97704, 50.98803, 51.0949, 51.12101, 51.1526, 
  51.27487, 51.27075, 51.42324, 51.55374, 51.54825, 51.49879, 51.47406, 51.41225, 51.36072, 51.28036, 
  51.20355, 51.08678, 51.04007, 51.00023, 50.99611, 50.95901, 50.91093, 50.8079, 50.77355, 50.71879, 
  50.6501, 50.59652, 50.56492, 50.31627, 50.26681, 50.22972, 50.24895, 50.33269, 50.52914, 50.65965, 
  50.82862, 50.88075, 50.86564, 50.94257, 50.99882, 51.03042, 51.1636, 51.21443, 51.21717, 51.26113, 
  51.31746, 51.31192, 51.26384, 51.27483, 51.65674, 51.67446, 51.65522, 51.76777, 51.90378, 52.1016, 
  52.21562, 52.29393, 52.34338, 52.44205, 52.6124, 52.63987, 52.74703, 52.75798, 52.68379, 52.63714, 
  52.50393, 52.43524, 52.42425, 52.44623, 52.43661, 52.49976, 52.4874, 52.43797, 52.44896,
  52.95939, 53.56234, 54.22129, 54.7803, 54.95877, 54.94641, 55.05577, 55.11812, 55.31312, 55.35037,
  55.3991, 55.39498, 55.41557, 55.41146, 55.44646, 55.45195, 55.47392, 55.49794, 55.54462, 55.56315,
  55.6064, 55.61606, 55.68333, 55.7204, 55.74511, 55.77129, 55.81384, 55.8159, 55.87837, 55.99103,
  55.73166, 53.77451)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_3, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_0 <- st_union(Geo_0)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_3 <- st_set_geometry(Geo_3, st_union(Geo_0[1]))
Geo_3 <- st_union(Geo_3, Geo)
Geo_0 <- st_union(Geo_3)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0))
LATITUDE_VALUEs <- c(46.82773, 46.79061, 46.77697, 46.7859, 46.78473, 46.79719, 46.82797, 46.8322)
LONGITUDE_VALUEs <- c(52.53995, 52.5276, 52.56055, 52.57462, 52.58732, 52.59384, 52.58526, 52.56707)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  45.03957, 45.04733, 45.02501, 45.01482, 44.98617, 44.97354, 44.87728, 44.87096, 44.89334, 44.93515, 
  44.96966, 45.01239, 45.04781, 45.06334)
LONGITUDE_VALUEs <- c(
  50.28289, 50.26504, 50.2321, 50.24926, 50.24445, 50.27328, 50.25475, 50.27809, 50.26504, 50.32888, 
  50.32751, 50.35565, 50.3584, 50.31927)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  44.81521, 44.83834, 44.84905, 44.85417, 44.83932, 44.88069, 44.90696, 44.9089, 45.00219, 45.0352, 
  45.03569, 45.04927, 45.03714, 44.97694, 44.91765, 44.851, 44.82763)
LONGITUDE_VALUEs <- c(
  50.19733, 50.20145, 50.21587, 50.19768, 50.14963, 50.06639, 50.07733, 50.05468, 50.02786, 50.056, 
  50.10267, 50.07041, 50.03129, 50.00383, 50.01757, 50.07248, 50.1672)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
Geo_3 <- Geo_3 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))
Geo_0 <- Geometric_Operations(Geo_2, Geo_3)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0))
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

##### TURKMENISTAN #####
Geo_0 <- Geometric_Operations(Geo_4, Geo_3)
Geo_4 <- st_set_geometry(Geo_4, st_geometry(Geo_0))
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
LATITUDE_VALUEs <- c(
  41.32346, 41.33197, 41.29793, 41.27935, 41.28451, 41.30154, 41.28039, 41.28864, 41.27523, 41.24942, 
  41.29535, 41.25871, 41.252, 41.27316, 41.26542, 41.29071, 41.29277, 41.3134, 41.31804, 41.33351, 
  41.36032, 41.38917, 41.60209, 41.71752, 41.82353, 41.90841, 42.05031, 42.37985, 42.28848, 42.11554, 
  41.76198,
  41.68625, 41.62981, 41.54045, 41.5168, 41.49006, 41.3799, 41.17659, 41.09074, 41.0141, 40.96642, 
  40.72957, 40.69626, 40.49083, 40.41454, 40.28895, 40.16838, 40.07597, 40.04128, 40.01394, 39.9929, 
  39.95396, 39.93607, 39.87075, 39.86443, 39.98659, 40.01683, 40.03208, 40.02735, 40.00079, 40.00579, 
  39.99895, 39.98843, 39.99185, 39.98791, 40.00658, 40.005, 39.98343, 39.98606, 40.00763, 40.00658, 
  39.95923, 39.98028, 40.0376, 40.02761, 39.99922, 40.00974, 39.99869, 40.02446, 40.02078, 39.95239, 
  39.91764, 39.87497, 39.84809, 39.79588, 39.78796, 39.81117, 39.82858, 39.8386, 39.80801, 39.8407, 
  39.90394, 39.94028, 39.91922, 39.91606, 39.85547, 39.81645, 39.8001, 39.77319, 39.80115, 39.7299, 
  39.68024, 39.74151, 39.67548, 39.68764, 39.63372, 39.65646, 39.64218, 39.64694, 39.61415, 39.60939, 
  39.57129, 39.58558, 39.56124, 39.55224, 39.51781, 39.54588, 39.49556, 39.51093, 39.4945, 39.56812, 
  39.54535, 39.57023, 39.59193, 39.61627, 39.68024, 39.68658, 39.70402, 39.68764, 39.59669, 39.44627, 
  39.43036, 39.4163, 39.41113, 39.37996, 39.36523, 39.3412, 39.30389, 39.27479, 39.22946, 39.21656, 
  39.21909, 39.27333, 39.31664, 39.3424, 39.34917, 39.35474, 39.37107, 39.37359, 39.37704, 39.37823, 
  39.37359, 39.38566, 39.39203, 39.39628, 39.39004, 39.37916, 39.36682, 39.38566, 39.35353, 39.34504, 
  39.34039, 39.36694, 39.33827, 39.35778, 39.35008, 39.32393, 39.31994, 39.34504, 39.36534, 39.3571, 
  39.31913, 39.30824, 39.33666, 39.32179, 39.30213, 39.29336, 39.28353, 39.30771, 39.25084, 39.23861, 
  39.22557, 39.24658, 39.23967, 39.22105, 39.19472, 39.17582, 39.1681, 39.15826, 39.11591, 39.11618, 
  39.15373, 39.17636, 39.2301, 39.22903, 39.17449, 39.18647, 39.16597, 39.14574, 39.13349, 39.08581, 
  39.0986, 39.05169, 39.05142, 39.0975, 39.06446, 39.07245, 39.04366, 39.03193, 39.06019, 38.96522, 
  38.99671, 38.99411, 38.97169, 38.98236, 38.95834, 38.97169, 38.95621, 38.94873, 38.91615, 38.90588, 
  38.87434, 38.87434, 38.79905, 38.73962, 38.64584, 38.52024, 38.34537, 38.1534, 38.00638, 37.87636, 
  37.78145, 37.6651, 37.34548,
  37.31824, 37.35536, 37.35427, 37.46117, 37.43719, 37.49169, 37.50149, 37.59948, 37.62994, 37.76143, 
  37.8005, 37.95226, 37.95876, 37.95009, 37.98257, 38.04857, 38.08966, 38.12748, 38.08857, 38.09506, 
  38.0756, 38.09506, 38.07128, 38.08317, 38.0756, 38.10154, 38.11991, 38.18363, 38.26562, 38.26454, 
  38.2365, 38.26778, 38.26886, 38.2861, 38.22571, 38.21385, 38.18579, 38.20413, 38.19226, 38.2232, 
  38.23399, 38.25529)
LONGITUDE_VALUEs <- c(
  55.99103, 55.87837, 55.8159, 55.81384, 55.77129, 55.74511, 55.7204, 55.68333, 55.61606, 55.6064, 
  55.56315, 55.54462, 55.49794, 55.47392, 55.45195, 55.44646, 55.41146, 55.41557, 55.39498, 55.3991, 
  55.35037, 55.31312, 55.11812, 55.05577, 54.94641, 54.95877, 54.7803, 54.22129, 53.56234, 52.95939, 
  52.44896,
  52.59267, 52.60091, 52.5556, 52.58312, 52.65588, 52.77943, 52.85494, 52.84122, 52.9428, 52.94695, 
  52.84399, 52.87282, 52.73687, 52.7313, 52.7011, 52.767, 52.73133, 52.77114, 52.76016, 52.8137, 
  52.8288, 52.89195, 52.91391, 52.94137, 52.89881, 52.87094, 52.89805, 52.93477, 52.90766, 52.93069, 
  52.9554, 52.95711, 52.96844, 52.98251, 53.00619, 53.06799, 53.06112, 53.12633, 53.12633, 53.18399, 
  53.29725, 53.31166, 53.4105, 53.45591, 53.48749, 53.50945, 53.5321, 53.57672, 53.6433, 53.80333, 
  53.84109, 54.00137, 54.03365, 54.13943, 54.11814, 53.94161, 53.92169, 53.82209, 53.78363, 53.74585, 
  53.77401, 53.60448, 53.57288, 53.53235, 53.46508, 53.44794, 53.41703, 53.42046, 53.44794, 53.43351, 
  53.45412, 53.47057, 53.52552, 53.56399, 53.57772, 53.60795, 53.62237, 53.64985, 53.66083, 53.63953, 
  53.66083, 53.69517, 53.71097, 53.66701, 53.64503, 53.59695, 53.57771, 53.55986, 53.51521, 53.45888, 
  53.23301, 53.22751, 53.2488, 53.25086, 53.29551, 53.33191, 53.30306, 53.27009, 53.23027, 53.10251, 
  53.09661, 53.09987, 53.11395, 53.14176, 53.14279, 53.15755, 53.16665, 53.16664, 53.17283, 53.17867, 
  53.18863, 53.17265, 53.1881, 53.21574, 53.21472, 53.21867, 53.18638, 53.16698, 53.1675, 53.17454, 
  53.18278, 53.21007, 53.21505, 53.24407, 53.28202, 53.28339, 53.34724, 53.40185, 53.41813, 53.4013, 
  53.40233, 53.46879, 53.45454, 53.48734, 53.4971, 53.47461, 53.48577, 53.50758, 53.55101, 53.55122, 
  53.52546, 53.52614, 53.55774, 53.55637, 53.54091, 53.55225, 53.55225, 53.59621, 53.56427, 53.59518, 
  53.59586, 53.64154, 53.64529, 53.62057, 53.61301, 53.63533, 53.63224, 53.65422, 53.65075, 53.66243, 
  53.67136, 53.65762, 53.69437, 53.72012, 53.70604, 53.73764, 53.72492, 53.72389, 53.69813, 53.71118, 
  53.72801, 53.74551, 53.75719, 53.75415, 53.79399, 53.81185, 53.82284, 53.87092, 53.88947, 53.90183, 
  53.94442, 53.9698, 53.96362, 53.98834, 53.98422, 54.01238, 54.01925, 54.00414, 54.00002, 54.02887, 
  54.01513, 53.99384, 53.93824, 53.92382, 53.85651, 53.82971, 53.87639, 53.8599, 53.81871, 53.81251, 
  53.82284, 53.84839, 53.97116,
  54.24786, 54.28493, 54.37279, 54.58558, 54.67756, 54.72972, 54.76954, 54.8217, 54.78054, 54.8533, 
  54.95786, 55.12946, 55.17476, 55.20222, 55.21732, 55.39853, 55.43835, 55.80368, 55.87507, 55.93427, 
  55.9631, 56.17039, 56.22119, 56.2912, 56.33101, 56.33101, 56.3516, 56.31728, 56.43958, 56.55902, 
  56.61118, 56.65923, 56.71277, 56.75533, 56.84594, 56.9942, 57.00824, 57.02608, 57.0659, 57.09941, 
  57.13338, 57.14746)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_4, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_0 <- st_union(Geo_0)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_4 <- st_set_geometry(Geo_4, st_union(Geo_0[1]))
Geo_4 <- st_union(Geo_4, Geo)
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
Geo_0 <- st_union(Geo_4)
Geo_4 <- st_set_geometry(Geo_4, st_geometry(Geo_0))
LATITUDE_VALUEs <- c(
  38.89798, 38.85302, 38.8209, 38.79518, 38.79447, 38.91581, 39.08107, 39.10668, 39.10668, 39.07253, 
  39.0462, 39.01629, 38.91652)
LONGITUDE_VALUEs <- c(
  53.03268, 53.05743, 53.05284, 53.06659, 53.07301, 53.05651, 53.05651, 53.08034, 53.06934, 53.04276, 
  53.03451, 53.04093, 53.03176)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_4 <- st_union(Geo_4, Geo)
LATITUDE_VALUEs <- c(
  39.85579, 39.83142, 39.82655, 39.78876, 39.76804, 39.76377, 39.75218, 39.7473, 39.77657, 39.79364, 
  39.7723, 39.81863, 39.82533)
LONGITUDE_VALUEs <- c(
  52.95834, 52.97024, 52.97976, 52.99721, 53.01942, 53.03529, 53.05036, 53.08606, 53.01942, 53.01308, 
  53.07258, 52.99642, 53.00038)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_4 <- st_union(Geo_4, Geo)
LATITUDE_VALUEs <- c(
  39.59827, 39.57023, 39.54799, 39.53158, 39.54376, 39.55011, 39.56281, 39.55911, 39.53846, 39.57763, 
  39.58081, 39.59245, 39.59933, 39.60674, 39.60409, 39.60885)
LONGITUDE_VALUEs <- c(
  53.47689, 53.49818, 53.49749, 53.51053, 53.52633, 53.5174, 53.52976, 53.538, 53.53319, 53.56341, 
  53.53045, 53.52015, 53.53388, 53.52358, 53.50161, 53.492)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_4 <- st_union(Geo_4, Geo)
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
Geo_4 <- Geo_4 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### IRAN #####
Geo_0 <- Geometric_Operations(Geo_5, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_4)
Geo_5 <- st_set_geometry(Geo_5, st_geometry(Geo_0))
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}
LATITUDE_VALUEs <- c(
  38.87742, 38.87969, 38.88477, 38.88624, 38.88998, 38.89198, 38.90828, 38.92124, 38.92204, 38.93112,
  38.9378, 38.94073, 38.95141, 38.95248, 38.9705, 38.99559, 39.00279, 39.00613, 39.0196, 39.01813,
  39.01306, 39.01786, 39.02853, 39.02667, 39.038, 39.04707, 39.05813, 39.05813, 39.07159, 39.06973,
  39.07506, 39.07719, 39.08718, 39.08812, 39.09211, 39.09718, 39.10277, 39.10424, 39.10703, 39.10663,
  39.1097, 39.11143, 39.11476, 39.11329, 39.12102, 39.12302, 39.13074, 39.1386, 39.14099, 39.16469,
  39.1567, 39.15151, 39.14645, 39.139, 39.15431, 39.16376, 39.16802, 39.16642, 39.1756, 39.17933,
  39.18319, 39.19423, 39.20234, 39.20514, 39.21485, 39.2437, 39.2453, 39.25886, 39.26656, 39.2651,
  39.2768, 39.27201, 39.28105, 39.27759, 39.29181, 39.29248, 39.2958, 39.2962, 39.30138, 39.30191,
  39.31253, 39.30735, 39.31997, 39.31904, 39.33471, 39.33723, 39.34878, 39.34785, 39.35237, 39.36046,
  39.36909, 39.36882, 39.38209, 39.38408, 39.39709, 39.40398, 39.40624, 39.41367, 39.41473, 39.41234,
  39.41844, 39.41836, 39.42242, 39.43263, 39.44655, 39.45543, 39.45914, 39.46431, 39.46603, 39.46934,
  39.46391, 39.46431, 39.47239, 39.4708, 39.47902, 39.48061, 39.48882, 39.48803, 39.49783, 39.49664,
  39.50035, 39.49876, 39.50937, 39.5144, 39.52817, 39.54297, 39.53847, 39.55382, 39.56706, 39.57844,
  39.57844, 39.58743, 39.58479, 39.59167, 39.59061, 39.60648, 39.62552, 39.62526, 39.64324, 39.64192,
  39.65011, 39.6517, 39.65989, 39.65646, 39.66201, 39.65936, 39.66782, 39.66439, 39.67126, 39.66148,
  39.66491, 39.66069, 39.67099, 39.66544, 39.68315, 39.67945, 39.68605, 39.69187, 39.69239, 39.69953,
  39.70983, 39.69213, 39.41909, 39.39415, 39.39256, 39.37956, 39.37, 39.37107, 39.36297, 39.36231,
  39.3412, 39.33948, 39.33483, 39.33071, 39.3347, 39.32739, 39.32992, 39.31943, 39.31889, 39.31053,
  39.31225, 39.29392, 39.28301, 39.28195, 39.27677, 39.27185, 39.25643, 39.24474, 39.22971, 39.22399,
  39.21681, 39.21335, 39.2095, 39.19819, 39.19792, 39.18941, 39.19167, 39.18356, 39.17437, 39.17171,
  39.16213, 39.15441, 39.14815, 39.14722, 39.14389, 39.1407, 39.13351, 39.12339, 39.12459, 39.11566,
  39.11646, 39.1078, 39.09102, 39.08582, 39.06757, 39.06743, 39.0573, 39.0573, 39.0525, 39.05237,
  39.0301, 39.01103, 39.00516, 39.00143, 38.99663, 38.97568, 38.97274, 38.96727, 38.9666, 38.9646,
  38.965, 38.96019, 38.95339, 38.95672, 38.95339, 38.94591, 38.94805, 38.94618, 38.94351, 38.94685,
  38.92735, 38.9168, 38.8989, 38.91279, 38.9073, 38.83795, 38.83063, 38.82421, 38.81538, 38.81645,
  38.81137, 38.7865, 38.77178, 38.75759, 38.73885, 38.72841, 38.71796, 38.70644, 38.68876, 38.68259,
  38.6582, 38.64801, 38.63648, 38.60295, 38.60349, 38.59517, 38.60483, 38.60188, 38.61395, 38.60885,
  38.58121, 38.55115, 38.5533, 38.54712, 38.51946, 38.51436, 38.47916, 38.47969, 38.44582, 38.43238,
  38.40063, 38.40036, 38.39149, 38.39929, 38.40844, 38.41059, 38.44017, 38.43991, 38.45174, 38.44743,
  38.45254, 38.44071, 38.44204,
  38.42455, 38.41163, 38.39818, 38.28293, 38.22847, 38.2166, 38.14752, 38.07945, 38.0389, 37.96585, 
  37.89599, 37.83256, 37.79514, 37.75877, 37.74303, 37.63979, 37.53587, 37.48031, 37.4427, 37.47377, 
  37.42307, 37.38325, 37.35924, 37.34178, 37.3041, 37.13623, 37.10119, 37.0875, 37.04257, 37.02613, 
  36.94276, 36.90873, 36.87633, 36.8549, 36.83182, 36.78454, 36.73558, 36.6954, 36.68935, 36.59789, 
  36.58576, 36.57363, 36.57418, 36.59017, 36.68329, 36.73778, 36.84336, 36.90323, 36.90323, 36.9241, 
  36.90214, 36.8961, 36.88621, 36.88731, 36.87797, 36.87852, 36.86039, 36.86863, 36.85435, 36.83952, 
  36.82523, 36.84336, 36.83072, 36.81753, 36.80741, 36.78839, 36.78949, 36.78124, 36.79334, 36.77849, 
  36.80159, 36.84171, 36.96306, 36.97623, 37.01845, 37.20627, 37.24563, 37.34548,
  37.31824, 37.35536, 37.35427, 37.46117, 37.43719, 37.49169, 37.50149, 37.59948, 37.62994, 37.76143, 
  37.8005, 37.95226, 37.95876, 37.95009, 37.98257, 38.04857, 38.08966, 38.12748, 38.08857, 38.09506, 
  38.0756, 38.09506, 38.07128, 38.08317, 38.0756, 38.10154, 38.11991, 38.18363, 38.26562, 38.26454, 
  38.2365, 38.26778, 38.26886, 38.2861, 38.22571, 38.21385, 38.18579, 38.20413, 38.19226, 38.2232, 
  38.23399, 38.25529, 35.24658, 32.64317)
LONGITUDE_VALUEs <- c(
  46.54346, 46.54981, 46.5541, 46.56612, 46.56647, 46.57488, 46.60285, 46.60716, 46.61677, 46.62741,
  46.62707, 46.63942, 46.63977, 46.653, 46.66259, 46.68938, 46.68852, 46.68321, 46.69848, 46.70671,
  46.70723, 46.73829, 46.74552, 46.7541, 46.76199, 46.75718, 46.75856, 46.76767, 46.7687, 46.77556,
  46.78036, 46.78723, 46.79083, 46.79581, 46.79667, 46.81366, 46.81127, 46.82122, 46.8207, 46.81556,
  46.81453, 46.82431, 46.82534, 46.83306, 46.83426, 46.83924, 46.8413, 46.83907, 46.8679, 46.92559,
  46.93795, 46.93853, 46.94832, 46.94832, 46.99417, 46.99193, 47.00018, 47.01886, 47.02264, 47.03449,
  47.03654, 47.05423, 47.05663, 47.06127, 47.0544, 47.06075, 47.07363, 47.0774, 47.08479, 47.09372,
  47.09767, 47.1078, 47.11656, 47.12514, 47.13215, 47.13988, 47.14091, 47.14761, 47.1483, 47.15259,
  47.15929, 47.1665, 47.19584, 47.21559, 47.22932, 47.24667, 47.25197, 47.25936, 47.27104, 47.27739,
  47.30332, 47.31585, 47.32064, 47.32597, 47.33472, 47.33507, 47.34142, 47.3397, 47.34415, 47.34862,
  47.35411, 47.35888, 47.36493, 47.36974, 47.37987, 47.37678, 47.38604, 47.38896, 47.39377, 47.39566,
  47.40648, 47.4197, 47.43206, 47.44048, 47.44168, 47.46878, 47.48612, 47.49488, 47.50673, 47.51583,
  47.52132, 47.52991, 47.54664, 47.5645, 47.57515, 47.60675, 47.61155, 47.62632, 47.66063, 47.66613,
  47.67987, 47.68845, 47.7046, 47.70734, 47.71696, 47.75336, 47.7671, 47.78187, 47.78391, 47.79456,
  47.79628, 47.80899, 47.80693, 47.8186, 47.82341, 47.83577, 47.85741, 47.86531, 47.88248, 47.89279,
  47.89994, 47.91677, 47.92398, 47.92776, 47.94184, 47.94733, 47.96039, 47.96245, 47.97344, 47.97412,
  47.98408, 48.03145, 48.34203, 48.36109, 48.35903, 48.36882, 48.35886, 48.34409, 48.32659, 48.31457,
  48.27628, 48.26185, 48.26737, 48.24539, 48.23371, 48.22427, 48.21105, 48.20024, 48.19492, 48.19303,
  48.18685, 48.15405, 48.15165, 48.14238, 48.14703, 48.13054, 48.13535, 48.12951, 48.13415, 48.14187,
  48.13638, 48.14445, 48.1405, 48.15079, 48.15921, 48.16213, 48.169, 48.17757, 48.20299, 48.20367,
  48.21775, 48.21792, 48.2217, 48.22702, 48.22462, 48.22925, 48.23011, 48.26117, 48.27251, 48.28625,
  48.28968, 48.30771, 48.30358, 48.31646, 48.31972, 48.32298, 48.32435, 48.32692, 48.32589, 48.33087,
  48.33791, 48.32641, 48.31645, 48.31662, 48.30787, 48.28692, 48.27696, 48.27063, 48.25843, 48.25277,
  48.23851, 48.23422, 48.20537, 48.18651, 48.15303, 48.14753, 48.13551, 48.11099, 48.10669, 48.08797,
  48.07854, 48.07923, 48.02874, 48.02084, 48.01002, 48.01982, 48.03525, 48.03561, 48.04025, 48.04488,
  48.04918, 48.10651, 48.10308, 48.18922, 48.20678, 48.24796, 48.24728, 48.25963, 48.24728, 48.2538,
  48.2538, 48.29464, 48.29361, 48.31523, 48.32969, 48.35612, 48.38838, 48.40485, 48.42751, 48.45736,
  48.45428, 48.47421, 48.49515, 48.50613, 48.51162, 48.52606, 48.55832, 48.56656, 48.59367, 48.59127,
  48.63008, 48.65238, 48.66028, 48.69323, 48.70558, 48.73819, 48.76708, 48.77806, 48.78835, 48.82165,
  48.84121, 48.87313, 48.88183,
  48.88096, 48.88452, 48.87009, 48.87902, 48.89413, 48.88864, 48.91404, 48.90923, 48.9209, 48.93669, 
  48.93119, 48.98266, 48.97304, 48.9964, 48.99365, 49.09251, 49.27032, 49.45921, 49.83614, 49.92955, 
  49.98656, 50.196, 50.20562, 50.22416, 50.22894, 50.31523, 50.37769, 50.38524, 50.4628, 50.47114, 
  50.64411, 50.68393, 50.76705, 50.80068, 50.86108, 50.93934, 51.07948, 51.28952, 51.41454, 51.66107, 
  51.81277, 51.84434, 51.96172, 52.07374, 52.45417, 52.81874, 53.24656, 53.80889, 53.91529, 54.01413, 
  54.01893, 53.93245, 53.92009, 53.87753, 53.82399, 53.78487, 53.71132, 53.6159, 53.51706, 53.59119, 
  53.58158, 53.45597, 53.38184, 53.38253, 53.50946, 53.50676, 53.53422, 53.5555, 53.66678, 53.89124, 
  54.02307, 54.04229, 54.04366, 54.00248, 54.04023, 53.98653, 54.00026, 53.97116,
  54.24786, 54.28493, 54.37279, 54.58558, 54.67756, 54.72972, 54.76954, 54.8217, 54.78054, 54.8533, 
  54.95786, 55.12946, 55.17476, 55.20222, 55.21732, 55.39853, 55.43835, 55.80368, 55.87507, 55.93427, 
  55.9631, 56.17039, 56.22119, 56.2912, 56.33101, 56.33101, 56.3516, 56.31728, 56.43958, 56.55902, 
  56.61118, 56.65923, 56.71277, 56.75533, 56.84594, 56.9942, 57.00824, 57.02608, 57.0659, 57.09941, 
  57.13338, 57.14746, 58.45405, 51.66353)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_5, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_0 <- st_union(Geo_0)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_5 <- st_set_geometry(Geo_5, st_union(Geo_0[1:12]))
Geo_5 <- st_union(Geo_5, Geo)
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}
Geo_5 <- Geo_5 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% 
  filter(!NAME %in% c("AZERBAIJAN", "RUSSIAN FEDERATION", "KAZAKHSTAN", "TURKMENISTAN", "IRAN"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3, Geo_4, Geo_5)

We construct two new variables:

  • SIREGION from SREGION and IREGION
  • SIREGION_CODE from SREGION_CODE and IREGION_CODE

SIREGION takes non-null values from IREGION, otherwise takes values from SREGION.

The same applies to SIREGION_CODE with SREGION_CODE and IREGION_CODE.

#DATA MANIPULATIONs on GeoDATA_from_GeoHUB
DATA <- GeoDATA_from_GeoHUB %>% st_drop_geometry() %>% #Drop Geometrie(s)
  select(3:4, 12, 1:2, 5:6, 10, 8, 11, 9) %>% #Remove superfluous columns 
  rename_with(.fn = ~ paste0("GeoHUB_", ., recycle0 = TRUE), .cols = 3:6) %>% #Rename duplicate columns
  arrange(desc(Label == "UNITED STATES OF AMERICA")) %>% distinct(NAME, .keep_all = TRUE) %>% #Remove duplicate rows
  #DATA MANIPULATIONs
  mutate(
    #GeoHUB_M49_CODE From NUMERIC TO CHARACTER
    GeoHUB_M49_CODE = case_when(
      nchar(GeoHUB_M49_CODE) == 1 ~ paste0("00", GeoHUB_M49_CODE), 
      nchar(GeoHUB_M49_CODE) == 2 ~ paste0("0", GeoHUB_M49_CODE), TRUE ~ as.character(GeoHUB_M49_CODE)),
    #Replace Values in GeoHUB_CONTINENT
    GeoHUB_CONTINENT = case_when(
      GeoHUB_CONTINENT == "AFR" ~ "AFRICA", GeoHUB_CONTINENT == "AME" ~ "AMERICAS", 
      GeoHUB_CONTINENT == "ANT" ~ "ANTARCTICA", GeoHUB_CONTINENT == "ASI" ~ "ASIA",
      GeoHUB_CONTINENT == "EUR" ~ "EUROPE", GeoHUB_CONTINENT == "OCE" ~ "OCEANIA", TRUE ~ GeoHUB_CONTINENT),
    #CONTINENT_CODE From NUMERIC TO CHARACTER
    CONTINENT_CODE = case_when(
      nchar(CONTINENT_CODE) == 1 ~ paste0("00", CONTINENT_CODE), 
      nchar(CONTINENT_CODE) == 2 ~ paste0("0", CONTINENT_CODE), TRUE ~ as.character(CONTINENT_CODE)),
    #Replace Values in SREGION
    SREGION = case_when(SREGION == "South-eastern Asia" ~ "South-Eastern Asia", TRUE ~ SREGION),
    #SREGION_CODE From NUMERIC TO CHARACTER
    SREGION_CODE = case_when(
      nchar(SREGION_CODE) == 1 ~ paste0("00", SREGION_CODE), 
      nchar(SREGION_CODE) == 2 ~ paste0("0", SREGION_CODE), TRUE ~ as.character(SREGION_CODE)),
    #Replace Values in IREGION
    IREGION = case_when(IREGION == "<Null>" ~ NA, TRUE ~ IREGION),
    #IREGION_CODE From NUMERIC TO CHARACTER
    IREGION_CODE = case_when(
      nchar(IREGION_CODE) == 1 ~ paste0("00", IREGION_CODE), 
      nchar(IREGION_CODE) == 2 ~ paste0("0", IREGION_CODE), TRUE ~ as.character(IREGION_CODE)))

#GeoDATA To DATA_from_Fondation
DATA_from_Fondation <- GeoDATA %>% st_drop_geometry()

#Combine DATA_from_Fondation | DATA
DATA_from_Fondation <- left_join(
  DATA_from_Fondation, DATA %>% select(1, 6:11), by = c("VISUALIZATION_NAME" = "NAME")) %>%
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in CONTINENT
    CONTINENT = case_when(
      NAME == "PITCAIRN" ~ "OCEANIA", NAME == "ANTARCTICA" ~ "ANTARCTICA", TRUE ~ CONTINENT),
    #Replace Values in CONTINENT_CODE
    CONTINENT_CODE = case_when(
      CONTINENT == "AFRICA" ~ "002", CONTINENT == "AMERICAS" ~ "019", 
      CONTINENT == "ASIA" ~ "142", CONTINENT == "EUROPE" ~ "150", 
      CONTINENT == "OCEANIA" ~ "009", TRUE ~ CONTINENT_CODE),
    #Replace Values in SREGION
    SREGION = case_when(
      NAME == "AZAD KASHMIR" ~ "Southern Asia", 
      NAME == "BONAIRE, SINT EUSTATIUS AND SABA" ~ "Latin America and the Caribbean", 
      NAME == "BOUVET ISLAND" ~ "Latin America and the Caribbean", 
      NAME == "BRITISH INDIAN OCEAN TERRITORY" ~ "Sub-Saharan Africa", 
      NAME == "GILGIT-BALTISTAN" ~ "Southern Asia",
      NAME == "GUERNSEY" ~ "Northern Europe",
      NAME == "ISLE OF MAN" ~ "Northern Europe",
      NAME == "JERSEY" ~ "Northern Europe",
      NAME == "LADAKH" ~ "Southern Asia",
      NAME == "NORFOLK ISLAND" ~ "Australia and New Zealand",
      NAME == "SAINT BARTHÉLEMY" ~ "Latin America and the Caribbean",
      NAME == "SIACHEN GLACIER" ~ "Southern Asia",
      NAME == "STATE OF PALESTINE" ~ "Western Asia", 
      NAME == "UNITED STATES MINOR OUTLYING ISLANDS" ~ "Micronesia", 
      NAME == "WALLIS AND FUTUNA ISLANDS" ~ "Polynesia", TRUE ~ SREGION),
    #Replace Values in SREGION_CODE
    SREGION_CODE = case_when(
      NAME == "AZAD KASHMIR" ~ "034", 
      NAME == "BONAIRE, SINT EUSTATIUS AND SABA" ~ "419", 
      NAME == "BOUVET ISLAND" ~ "419", 
      NAME == "BRITISH INDIAN OCEAN TERRITORY" ~ "202", 
      NAME == "GILGIT-BALTISTAN" ~ "034",
      NAME == "GUERNSEY" ~ "154",
      NAME == "ISLE OF MAN" ~ "154",
      NAME == "JERSEY" ~ "154",
      NAME == "LADAKH" ~ "034",
      NAME == "NORFOLK ISLAND" ~ "053",
      NAME == "SAINT BARTHÉLEMY" ~ "419",
      NAME == "SIACHEN GLACIER" ~ "034",
      NAME == "STATE OF PALESTINE" ~ "145", 
      NAME == "UNITED STATES MINOR OUTLYING ISLANDS" ~ "057", 
      NAME == "WALLIS AND FUTUNA ISLANDS" ~ "061", TRUE ~ SREGION_CODE),
    #Replace Values in IREGION
    IREGION = case_when(
      NAME == "BONAIRE, SINT EUSTATIUS AND SABA" ~ "Caribbean", 
      NAME == "BOUVET ISLAND" ~ "South America", 
      NAME == "BRITISH INDIAN OCEAN TERRITORY" ~ "Eastern Africa", 
      NAME == "SAINT BARTHÉLEMY" ~ "Caribbean", TRUE ~ IREGION),
    #Replace Values in IREGION_CODE
    IREGION_CODE = case_when(
      NAME == "BONAIRE, SINT EUSTATIUS AND SABA" ~ "029", 
      NAME == "BOUVET ISLAND" ~ "005", 
      NAME == "BRITISH INDIAN OCEAN TERRITORY" ~ "014", 
      NAME == "SAINT BARTHÉLEMY" ~ "029", TRUE ~ IREGION_CODE),
    #New Variable => SIREGION
    SIREGION = ifelse(is.na(IREGION), SREGION, IREGION),
    #New Variable => SIREGION_CODE
    SIREGION_CODE = ifelse(is.na(IREGION_CODE), SREGION_CODE, IREGION_CODE)) %>%
  select(1:7, 9:16, 8) #Columns ORDER

#Combine GeoDATA | GeoDATA_from_GeoHUB
GeoDATA <- left_join(
  GeoDATA, DATA %>% select(1, 6:11), by = c("VISUALIZATION_NAME" = "NAME")) %>%
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in CONTINENT
    CONTINENT = case_when(
      NAME == "PITCAIRN" ~ "OCEANIA", NAME == "ANTARCTICA" ~ "ANTARCTICA", TRUE ~ CONTINENT),
    #Replace Values in CONTINENT_CODE
    CONTINENT_CODE = case_when(
      CONTINENT == "AFRICA" ~ "002", CONTINENT == "AMERICAS" ~ "019", 
      CONTINENT == "ASIA" ~ "142", CONTINENT == "EUROPE" ~ "150", 
      CONTINENT == "OCEANIA" ~ "009", TRUE ~ CONTINENT_CODE),
    #Replace Values in SREGION
    SREGION = case_when(
      NAME == "AZAD KASHMIR" ~ "Southern Asia", 
      NAME == "BONAIRE, SINT EUSTATIUS AND SABA" ~ "Latin America and the Caribbean", 
      NAME == "BOUVET ISLAND" ~ "Latin America and the Caribbean", 
      NAME == "BRITISH INDIAN OCEAN TERRITORY" ~ "Sub-Saharan Africa", 
      NAME == "GILGIT-BALTISTAN" ~ "Southern Asia",
      NAME == "GUERNSEY" ~ "Northern Europe",
      NAME == "ISLE OF MAN" ~ "Northern Europe",
      NAME == "JERSEY" ~ "Northern Europe",
      NAME == "LADAKH" ~ "Southern Asia",
      NAME == "NORFOLK ISLAND" ~ "Australia and New Zealand",
      NAME == "SAINT BARTHÉLEMY" ~ "Latin America and the Caribbean",
      NAME == "SIACHEN GLACIER" ~ "Southern Asia",
      NAME == "STATE OF PALESTINE" ~ "Western Asia", 
      NAME == "UNITED STATES MINOR OUTLYING ISLANDS" ~ "Micronesia", 
      NAME == "WALLIS AND FUTUNA ISLANDS" ~ "Polynesia", TRUE ~ SREGION),
    #Replace Values in SREGION_CODE
    SREGION_CODE = case_when(
      NAME == "AZAD KASHMIR" ~ "034", 
      NAME == "BONAIRE, SINT EUSTATIUS AND SABA" ~ "419", 
      NAME == "BOUVET ISLAND" ~ "419", 
      NAME == "BRITISH INDIAN OCEAN TERRITORY" ~ "202", 
      NAME == "GILGIT-BALTISTAN" ~ "034",
      NAME == "GUERNSEY" ~ "154",
      NAME == "ISLE OF MAN" ~ "154",
      NAME == "JERSEY" ~ "154",
      NAME == "LADAKH" ~ "034",
      NAME == "NORFOLK ISLAND" ~ "053",
      NAME == "SAINT BARTHÉLEMY" ~ "419",
      NAME == "SIACHEN GLACIER" ~ "034",
      NAME == "STATE OF PALESTINE" ~ "145", 
      NAME == "UNITED STATES MINOR OUTLYING ISLANDS" ~ "057", 
      NAME == "WALLIS AND FUTUNA ISLANDS" ~ "061", TRUE ~ SREGION_CODE),
    #Replace Values in IREGION
    IREGION = case_when(
      NAME == "BONAIRE, SINT EUSTATIUS AND SABA" ~ "Caribbean", 
      NAME == "BOUVET ISLAND" ~ "South America", 
      NAME == "BRITISH INDIAN OCEAN TERRITORY" ~ "Eastern Africa", 
      NAME == "SAINT BARTHÉLEMY" ~ "Caribbean", TRUE ~ IREGION),
    #Replace Values in IREGION_CODE
    IREGION_CODE = case_when(
      NAME == "BONAIRE, SINT EUSTATIUS AND SABA" ~ "029", 
      NAME == "BOUVET ISLAND" ~ "005", 
      NAME == "BRITISH INDIAN OCEAN TERRITORY" ~ "014", 
      NAME == "SAINT BARTHÉLEMY" ~ "029", TRUE ~ IREGION_CODE),
    #New Variable => SIREGION
    SIREGION = ifelse(is.na(IREGION), SREGION, IREGION),
    #New Variable => SIREGION_CODE
    SIREGION_CODE = ifelse(is.na(IREGION_CODE), SREGION_CODE, IREGION_CODE)) %>%
  select(1:7, 10:17, 8:9) #Columns ORDER

#Table => Countries in GeoDATA (!in GeoDATA_from_GeoHUB)
DATA <- GeoDATA %>% st_drop_geometry()
datatable(DATA[is.na(DATA$GeoHUB_CONTINENT), ][ , c(1, 8)], 
          options = list(scrollX = TRUE, autoWidth = TRUE, 
                         columnDefs = list(list(targets = "_all", render = JS(
                           "function(data, type, row, meta) {",
                           "  if (type === 'display' && data === null) {",
                           "    return 'NA';", "  }", "  return data;", "}")))), 
          style = "bootstrap", rownames = FALSE, caption = "Countries in GeoDATA (!in GeoDATA_from_GeoHUB)") %>%
  formatStyle(columns = 1, textAlign = "left") %>% formatStyle(columns = 2, textAlign = "center")
GeoDATA <- GeoDATA %>% select(-8)

WALLIS AND FUTUNA ISLANDS are in ResidenceIMS.

Numeric Code (M49_CODE) for WALLIS AND FUTUNA ISLANDS.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "WALLIS AND FUTUNA ISLANDS")

##### WALLIS AND FUTUNA ISLANDS #####
LATITUDE_VALUEs <- c(
  -14.24009, -14.24575, -14.24808, -14.25274, -14.29167, -14.29266, -14.30231, -14.30813, -14.3108, -14.31129, 
  -14.3088, -14.30996, -14.31196, -14.3078, -14.31262, -14.31179, -14.30946, -14.3083, -14.30597, -14.30614, 
  -14.29965, -14.29716, -14.29333, -14.28867, -14.28185, -14.27503, -14.25972, -14.25806, -14.25457, -14.25457, 
  -14.24758, -14.24808)
LONGITUDE_VALUEs <- c(
  -178.1772, -178.1811, -178.1796, -178.1826, -178.1662, -178.1595, -178.1574, -178.1425, -178.1404, -178.1317, 
  -178.1289, -178.1174, -178.1097, -178.0958, -178.0843, -178.0601, -178.0591, -178.0537, -178.0539, -178.0649, 
  -178.073, -178.0889, -178.0932, -178.1002, -178.1052, -178.1167, -178.13, -178.1387, -178.1438, -178.1524, 
  -178.156, -178.1634)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  -14.3542, -14.36036, -14.36119, -14.3557, -14.34406, -14.33624, -14.33175, -14.33258, -14.32992, -14.32344, 
  -14.32194, -14.32576, -14.33458, -14.34057, -14.34606, -14.35104, -14.34888, -14.35021)
LONGITUDE_VALUEs <- c(
  -178.0486, -178.0488, -178.0415, -178.0362, -178.0191, -177.9998, -178.0074, -178.0208, -178.0276, -178.0312, 
  -178.0441, -178.0582, -178.07, -178.0704, -178.0738, -178.0668, -178.062, -178.0548)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -13.39302, -13.39402, -13.38734, -13.36796, -13.35611, -13.34492, -13.31101, -13.28194, -13.25905, -13.23248, 
  -13.22296, -13.20875, -13.18368, -13.18001, -13.19689, -13.22028, -13.22981, -13.24167, -13.25487, -13.26874, 
  -13.28862, -13.30817, -13.33673, -13.36028, -13.3693, -13.38533, -13.39786)
LONGITUDE_VALUEs <- c(
  -176.1837, -176.1756, -176.1663, -176.1684, -176.1614, -176.1428, -176.1243, -176.1231, -176.1349, -176.1549, 
  -176.1655, -176.1689, -176.1985, -176.2113, -176.2393, -176.2513, -176.2513, -176.2591, -176.2589, -176.2661, 
  -176.2661, -176.2771, -176.2788, -176.2697, -176.2491, -176.234, -176.1964)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "WALLIS AND FUTUNA ISLANDS")
GeoDATA <- rbind(GeoDATA, Geo_1)

Now in Our World Administrative Boundaries (GeoDATA):

  • Size in R: 9.90MB
  • Areas: 259 Countries/Territories (259 NAME)
  • 249/249 ISO2 | ISO3 | Numeric Code (M49_CODE) from International Organization for Standardization (ISO)
  • 192/259 Geometries (SOURCE) from World Health Organization (WHO) - Countries
  • 030/259 Geometries (SOURCE) from Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques
  • 029/259 Geometries (SOURCE) from WHO - Countries and Fondation Jean-Jacques Laffont - TSE
  • 001/259 Geometries (SOURCE) from Global Administrative Areas (GADM)
  • 003/259 Geometries (SOURCE) from Fondation Jean-Jacques Laffont - TSE and Global Administrative Areas (GADM)
  • 004/259 Geometries (SOURCE) from WHO - Countries and Fondation - TSE and Global Administrative Areas (GADM)
  • New Column(s): CONTINENT_CODE | SREGION | SREGION_CODE | IREGION | IREGION_CODE | SIREGION | SIREGION_CODE
#Countries/Territories in GeoDATA
DATA <- GeoDATA %>% st_drop_geometry()
datatable(DATA[ , c(1, 5, 15)], options = list(scrollX = TRUE, autoWidth = TRUE), 
          caption = "Countries/Territories in GeoDATA", style = "bootstrap", rownames = FALSE) %>%
  formatStyle(columns = c(1, 3), textAlign = "left") %>% formatStyle(columns = 2, textAlign = "center")

NAME in GeoDATA \(>\) Residence in International Migrant Stock Data (Residences_in_iMIGRANT_Stock) [259 \(>\) 235].

NAME in GeoDATA \(>\) NAME in GeoDATA_from_WHO (259 \(>\) 241):

  • ÅLAND ISLANDS | ANTARCTICA
  • BOUVET ISLAND | HEARD ISLAND AND MCDONALD ISLANDS | SGSSI
  • BIOT | BIR TAWIL | FRENCH SOUTHERN TERRITORIES | HALA’IB TRIANGLE | ILEMI TRIANGLE

5.3 From FAO

5 files from Food and Agriculture Organization (FAO).

5.3.1 Countries Codes Features

We check that all countries/territories in COUNTRIEs_CODEs_FEATUREs are in GeoDATA.

#Replace Values in NAME
COUNTRIEs_CODEs_FEATUREs <- COUNTRIEs_CODEs_FEATUREs %>% 
  filter(NAME != "China/India") %>% 
  mutate_if(
    is.character, ~case_when(
      . == "Azores Islands" ~ "Azores",
      . == "Cape Verde" ~ "Cabo Verde",
      . == "Czech Republic" ~ "Czechia",
      . == "C⌠te d'Ivoire" ~ "Côte d'Ivoire",
      . == "Dem People's Rep of Korea" ~ "Dem. People's Republic of Korea",
      . == "Dhekelia and Akrotiri SBA" ~ "Akrotiri and Dhekelia (SBA)",
      . == "French Southern and Antarctic Terri" ~ "French Southern Territories",
      . == "Hala'ib triangle" ~ "Hala'ib Triangle",
      . == "Hong Kong" ~ "Hong Kong SAR",
      . == "Ilemi triangle" ~ "Ilemi Triangle",
      . == "Iran  (Islamic Republic of)" ~ "Iran",
      . == "Jammu Kashmir" ~ "Jammu and Kashmir",
      . == "Liancourt Rock" ~ "Liancourt Rocks",
      . == "Libyan Arab Jamahiriya" ~ "Libya",
      . == "Macau" ~ "Macao SAR",
      . == "Madeira Islands" ~ "Madeira",
      . == "Micronesia (Federated States of)" ~ "Micronesia",
      . == "Saint Helena" ~ "Saint Helena, Ascension and Tristan da Cunha",
      . == "Saint Pierre et Miquelon" ~ "Saint Pierre and Miquelon",
      . == "South Georgia and the South Sandwic" ~ "South Georgia and the South Sandwich Islands",
      . == "Svalbard and Jan Mayen Islands" ~ "Svalbard and Jan Mayen",
      . == "Swaziland" ~ "Eswatini",
      . == "The former Yugoslav Republic of Mac" ~ "North Macedonia",
      . == "Turkey" ~ "Türkiye",
      . == "Turks and Caicos islands" ~ "Turks and Caicos Islands",
      . == "U.K. of Great Britain and Northern" ~ "United Kingdom of Great Britain and Northern Ireland",
      . == "Wallis and Futuna" ~ "Wallis and Futuna Islands", TRUE ~ .))

#Combine COUNTRIEs_CODEs_FEATUREs | GeoDATA
DATA <- left_join(COUNTRIEs_CODEs_FEATUREs, GeoDATA %>% st_drop_geometry(), by = c("NAME" = "VISUALIZATION_NAME"))
DATA <- DATA %>% rename(CONTINENT = 14)
datatable(DATA[is.na(DATA$SOURCE), ][ , c(1, 14, 22)], 
          options = list(scrollX = TRUE, autoWidth = TRUE, 
                         columnDefs = list(list(targets = "_all", render = JS(
                           "function(data, type, row, meta) {",
                           "  if (type === 'display' && data === null) {",
                           "    return 'NA';", "  }", "  return data;", "}")))), 
          style = "bootstrap", rownames = FALSE, 
          caption = "Countries in COUNTRIEs_CODEs_FEATUREs (!in GeoDATA)") %>% 
  formatStyle(columns = 1, textAlign = "left", `text-transform` = "uppercase") %>% 
  formatStyle(columns = c(2:3), textAlign = "center")

ASHMORE AND CARTIER ISLANDS are Australian External Territories.

No suitable Geometries in available sources. We create our own Geometries.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "AUSTRALIA")

##### AUSTRALIA #####
LATITUDE_VALUEs <- c(
  -12.23802, -12.2454, -12.2974, -12.29254, -12.29556, -12.29204, -12.29522, -12.29002, -12.29438, -12.29019, 
  -12.29304, -12.29539, -12.30042, -12.2969, -12.27627, -12.24691, -12.20413, -12.18735, -12.18391, -12.19423, 
  -12.18979, -12.20732, -12.20229, -12.18719, -12.172, -12.18752, -12.19977, -12.21118, -12.21168, -12.22645, 
  -12.23232)
LONGITUDE_VALUEs <- c(
  122.9277, 122.928, 123.0204, 123.0383, 123.0525, 123.0587, 123.07, 123.0865, 123.1047, 123.1263, 
  123.1285, 123.1241, 123.1263, 123.1402, 123.1393, 123.1541, 123.1407, 123.1272, 123.0996, 123.1006, 
  123.0873, 123.0788, 123.0704, 123.0753, 123.0623, 123.0383, 123.0307, 123.006, 122.9965, 122.9665, 
  122.9385)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-12.52692, -12.53253, -12.53848, -12.54501, -12.54568, -12.53923, -12.53337, -12.52851, -12.5265, -12.52482)
LONGITUDE_VALUEs <- c(123.5398, 123.5364, 123.5357, 123.5414, 123.5536, 123.5744, 123.582, 123.5822, 123.574, 123.5499)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo) %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "AUSTRALIA")
GeoDATA <- rbind(GeoDATA, Geo_1)

BIRD ISLAND (also known as ISLA DE AVES) is a Federal Depedency of Venezuela.

No suitable Geometries in available sources. We create our own Geometries.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "VENEZUELA")

##### VENEZUELA #####
LATITUDE_VALUEs <- c(
  15.67186, 15.66991, 15.66881, 15.66802, 15.66667, 15.66546, 15.66654, 15.66734, 15.66808, 15.66927, 
  15.6699, 15.67032, 15.67238, 15.67249, 15.67216, 15.67222, 15.67207)
LONGITUDE_VALUEs <- c(
  -63.62096, -63.61935, -63.61929, -63.6198, -63.6191, -63.61905, -63.6171, -63.61739, -63.61699, -63.61766, 
  -63.61705, -63.61757, -63.6174, -63.61893, -63.61935, -63.62008, -63.62086)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo) %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "VENEZUELA")
GeoDATA <- rbind(GeoDATA, Geo_1)

CLIPPERTON ISLAND is a french possession (overseas “state private property”).

We take Geometries from Global Administrative Areas (GADM).

##### CLIPPERTON ISLAND #####
MGeo_1 <- GeoDATA_from_GADM_level_0_low_resolution %>% filter(NAME == "Clipperton Island")
MGeo_1 <- MGeo_1 %>% 
  mutate(NAME = "CLIPPERTON ISLAND", VISUALIZATION_NAME = "Clipperton Island", 
         ISO2 = "CP", ISO3 = "CPT", M49_CODE = NA, SOVRN = "France", CONTINENT = "OCEANIA", CONTINENT_CODE = "009",
         SREGION = "Polynesia", SREGION_CODE = "061", IREGION = NA, IREGION_CODE = NA, SIREGION = "Polynesia", SIREGION_CODE = "061",
         SOURCE = "Global Administrative Areas (GADM)") %>% select(2, 9, 10, 1, 11:12, 6, 13:17, 7, 18:19, 9)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, MGeo_1)

AKROTIRI AND DHEKELIA (SBA) are included in CYPRUS in GeoDATA.

AKROTIRI AND DHEKELIA (SBA) are British Sovereign Base Areas.

No suitable Geometries in available sources. We create our own Geometries.

##### AKROTIRI AND DHEKELIA (SBA) #####
LATITUDE_VALUEs <- c(
  34.65118, 34.68139, 34.68252, 34.67814, 34.67941, 34.67659, 34.6845, 34.68859, 34.69254, 34.69226, 
  34.69635, 34.70623, 34.7051, 34.69593, 34.69183, 34.6876, 34.6756, 34.67179, 34.66515, 34.66501, 
  34.6636, 34.66402, 34.67363, 34.67306, 34.67094, 34.66812, 34.66431, 34.66558, 34.67066, 34.67024, 
  34.67419, 34.68393, 34.68351, 34.68181, 34.67998, 34.67151, 34.65527, 34.65343, 34.65414, 34.654, 
  34.65471, 34.65753, 34.65838, 34.65598, 34.65103, 34.64694, 34.64637, 34.6427, 34.64115, 34.63536, 
  34.63564, 34.6338, 34.63395, 34.63239, 34.63465, 34.63931, 34.64327, 34.64228, 34.64284, 34.64426, 
  34.64426, 
  34.64129, 34.64129, 34.6338, 34.62335, 34.61177, 34.59382, 34.59156, 34.57997, 34.57983, 34.56753,
  34.5664, 34.56301, 34.56259, 34.56669, 34.56556, 34.57064, 34.56881, 34.5739, 34.5681, 34.57036, 
  34.56966, 34.56598, 34.56867, 34.57488, 34.57828, 34.59086, 34.59312, 34.61615, 34.63889, 34.64454, 
  34.65499, 34.66699, 34.66784, 34.66572, 34.66967, 34.67024, 34.66346, 34.66741, 34.66713, 34.66219, 
  34.66374, 34.66106, 34.66431, 34.65654, 34.65795, 34.65696, 34.65442, 34.65188)
LONGITUDE_VALUEs <- c(
  32.75488, 32.75935, 32.76569, 32.77427, 32.79006, 32.79161, 32.79967, 32.79882, 32.80363, 32.80912, 
  32.8189, 32.82508, 32.85837, 32.85788, 32.86028, 32.86063, 32.8819, 32.88311, 32.89632, 32.89941, 
  32.9061, 32.9097, 32.91519, 32.92325, 32.93029, 32.92771, 32.93303, 32.93595, 32.93732, 32.93972, 
  32.94058, 32.95504, 32.96465, 32.96928, 32.9897, 32.98747, 32.99004, 32.97975, 32.97563, 32.97185, 
  32.96894, 32.96722, 32.96225, 32.96087, 32.9528, 32.95435, 32.9528, 32.95589, 32.95366, 32.95435, 
  32.95658, 32.958, 32.96006, 32.9628, 32.9671, 32.96881, 32.98599, 32.99011, 32.99011, 33.00385, 
  33.01415, 
  33.01397, 33.01036, 33.00813, 33.0059, 33.00538, 33.00813, 33.01379, 33.02272, 33.02615, 33.03525,
  33.03147, 33.02959, 33.02529, 33.01808, 33.01138, 33.00125, 32.99524, 32.97343, 32.96416, 32.94616,
  32.93895, 32.93277, 32.93208, 32.94084, 32.93809, 32.93775, 32.93517, 32.92487, 32.90976, 32.89861, 
  32.89123, 32.87457, 32.86755, 32.86206, 32.85708, 32.84815, 32.84334, 32.82823, 32.82153, 32.81981, 
  32.81002, 32.80659, 32.79131, 32.77379, 32.76419, 32.75973, 32.75663, 32.75715)
MGeo_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  34.97871, 34.99825, 34.99896, 34.99685, 35.00332, 35.00852, 35.01372, 35.01991, 35.02553, 35.03003, 
  35.03298, 35.03804, 35.03959, 35.04732, 35.05715, 35.06277, 35.06629, 35.06572, 35.0757, 35.07429, 
  35.07008, 35.05659, 35.0483, 35.04942, 35.04802, 35.04521, 35.0386, 35.0379, 35.04099, 35.04282, 
  35.05631, 35.03902, 35.04872, 35.04605, 35.04942, 35.05982, 35.07275, 35.07148, 35.06867, 35.06207, 
  35.06502, 35.07219, 35.07879, 35.08272, 35.09494, 35.09677, 35.10211, 35.12373, 35.12345, 35.11601, 
  35.11432, 35.10211, 35.09775, 35.09579, 35.09789, 35.09115, 35.08666, 35.0809, 35.07724, 35.06811, 
  35.0809, 35.07823, 35.07078, 35.06797, 35.06558, 35.06305, 35.06109, 35.06474, 35.06839, 35.07064, 
  35.07134, 35.05884, 35.04802, 35.04605, 35.04394, 35.03832, 35.03115, 35.00852, 35.00683, 35.00318, 
  35.00289, 34.98461, 34.98532, 34.97786, 34.97842, 34.97449, 34.97167, 34.97195, 34.97378, 34.96492, 
  34.95367, 34.95282, 34.94396, 34.94283, 34.94522, 34.9479, 34.95141, 34.95113, 34.95395, 34.95493, 
  34.96014, 34.96056, 34.96309, 34.97055, 34.98039, 34.97997, 34.98222, 34.98124, 34.97899, 34.97913, 
  34.9818, 34.98180, 34.98152, 34.97955, 34.98208, 34.98292, 34.97927, 34.98067, 34.97941, 34.98067)
LONGITUDE_VALUEs <- c(
  33.70091, 33.70073, 33.70262, 33.71051, 33.71326, 33.71189, 33.69747, 33.69558, 33.70398, 33.70433, 
  33.69986, 33.68734, 33.6791, 33.67344, 33.67412, 33.67686, 33.68991, 33.69317, 33.70501, 33.71273, 
  33.71633, 33.7105, 33.7093, 33.70552, 33.70209, 33.70775, 33.70466, 33.71239, 33.71239, 33.71771, 
  33.7371, 33.76455, 33.77386, 33.78141, 33.79067, 33.79634, 33.81967, 33.82638, 33.83102, 33.83925, 
  33.85058, 33.86173, 33.86672, 33.87324, 33.86758, 33.86844, 33.86741, 33.87205, 33.88389, 33.88578, 
  33.89367, 33.89974, 33.89923, 33.90146, 33.90592, 33.91072, 33.91639, 33.91124, 33.90196, 33.89304, 
  33.87415, 33.86728, 33.86281, 33.85734, 33.85476, 33.84824, 33.83948, 33.83278, 33.82986, 33.82488, 
  33.81956, 33.79726, 33.79193, 33.80035, 33.80241, 33.82095, 33.82714, 33.82747, 33.83314, 33.8364, 
  33.85392, 33.85512, 33.84602, 33.83967, 33.83743, 33.83434, 33.84018, 33.84824, 33.86043, 33.90145, 
  33.89064, 33.88669, 33.86831, 33.85749, 33.85408, 33.84755, 33.84635, 33.84257, 33.84275, 33.83948, 
  33.83485, 33.83158, 33.82987, 33.81271, 33.77391, 33.76465, 33.75435, 33.74902, 33.74748, 33.7437, 
  33.74216, 33.74050, 33.73941, 33.73924, 33.737, 33.73271, 33.72928, 33.72533, 33.72275, 33.71983)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
MGeo_1 <- MGeo_1 %>% 
  mutate(NAME = "AKROTIRI AND DHEKELIA (SBA)", VISUALIZATION_NAME = "Akrotiri and Dhekelia (SBA)", 
         ISO2 = NA, ISO3 = NA, M49_CODE = NA, SOVRN = "United Kingdom of Great Britain and Northern Ireland", 
         CONTINENT = "ASIA",  CONTINENT_CODE = "142", SREGION = "Western Asia", SREGION_CODE = "145", 
         IREGION = NA, IREGION_CODE = NA, SIREGION = "Western Asia", SIREGION_CODE = "145",
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)
LATITUDE_VALUEs <- c(35.02192, 35.01219, 35.01039, 35.01326, 35.02240, 35.02318)
LONGITUDE_VALUEs <- c(33.73814, 33.73440, 33.74141, 33.74925, 33.74984, 33.74301)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_difference(MGeo_1, Geo)
LATITUDE_VALUEs <- c(34.98124, 34.97899, 34.97913, 34.9818, 34.98180, 34.98332, 34.98747, 34.98746)
LONGITUDE_VALUEs <- c(33.74902, 33.74748, 33.7437, 33.74216, 33.74050, 33.74045, 33.74364, 33.74547)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_difference(st_geometry(Geo_0), st_geometry(Geo))
if (length(Geo_0) > 1) {Geo_0 <- Geo_0[st_geometry_type(Geo_0) %in% c("POLYGON", "MULTIPOLYGON")]}
Geo_0 <- st_make_valid(Geo_0)
LATITUDE_VALUEs <- c(
  34.99185, 34.99536, 34.99691, 34.99789, 34.99916, 35.00099, 34.99789, 34.99536, 34.99607, 34.98902,
  34.98844, 34.9896, 34.98903, 34.98878, 34.98693, 34.98707, 34.98861, 34.98875, 34.98791, 34.98819, 
  34.99002)
LONGITUDE_VALUEs <- c(
  33.767, 33.76615, 33.76065, 33.76134, 33.75636, 33.75997, 33.77301, 33.77507, 33.78502, 33.79188,
  33.78974, 33.78588, 33.78519, 33.78398, 33.78313, 33.7821, 33.7821, 33.7809, 33.78004, 33.77833, 
  33.77747)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_difference(Geo_0, Geo)
MGeo_1 <- st_set_geometry(MGeo_1, Geo_0)
if (st_is_valid(MGeo_1) == FALSE) {MGeo_1 <- st_make_valid(MGeo_1)}

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "CYPRUS")

##### CYPRUS #####
LATITUDE_VALUEs <- c(
  34.64482, 34.64482, 34.64807, 34.64793, 34.65485, 34.65569, 34.6516, 34.65188, 34.6588, 34.66981, 
  34.66431, 34.66544, 34.67108, 34.68322, 34.68831, 34.69212, 34.69325, 34.6972, 34.70411, 34.70806, 
  34.70962, 34.71286, 34.71258, 34.70962, 34.71159, 34.70609, 34.70694, 34.70581, 34.70665, 34.70454, 
  34.70581, 34.70552, 34.70792, 34.7075, 34.70877, 34.71131, 34.71399, 34.71695, 34.71964, 34.72105, 
  34.72457, 34.72457, 34.72232, 34.72345, 34.7226, 34.72119, 34.71822, 34.71907, 34.71851, 34.72443, 
  34.73106, 34.73078, 34.73233, 34.73106, 34.73572, 34.73699, 34.74672, 34.75053, 34.75067, 34.76393, 
  34.76802, 34.76971, 34.77324, 34.77408, 34.77634, 34.77775, 34.78085, 34.78762, 34.79297, 34.79706, 
  34.79805, 34.80073, 34.80383, 34.8082, 34.81581, 34.81722, 34.81849, 34.82018, 34.8206, 34.81524, 
  34.81989, 34.82398, 34.83511, 34.84413, 34.84807, 34.85132, 34.86611, 34.8785, 34.89413, 34.90877, 
  34.92355, 34.92777, 34.94761, 34.95803, 34.96703, 34.97463,
  34.97871, 34.98067, 34.97941, 34.98067, 34.97927, 34.98292, 34.98208, 34.97955, 34.98152, 34.9818, 
  34.9818, 34.97913, 34.97899, 34.98124, 34.98222, 34.97997, 34.98039, 34.97055, 34.96309, 34.96056, 
  34.96014, 34.95493, 34.95395, 34.95113, 34.95141, 34.9479, 34.94522, 34.94283, 34.94396, 34.95282, 
  34.95367, 34.96492,
  34.96625, 34.9692, 34.97033, 34.97061, 34.97173, 34.97159, 34.97356, 34.97933, 34.97567, 34.98242, 
  34.98271, 34.98003, 34.98749, 34.98524, 34.98819, 34.98566, 34.98636, 34.98186, 34.98496, 34.98538, 
  34.98116, 34.98453, 34.98341, 34.97961, 34.9723, 34.97328, 34.96526, 34.96161, 34.95879, 34.96315, 
  34.9647, 34.96189, 34.95809, 34.95598, 34.96273, 34.96245, 34.96639, 34.96428, 34.96836, 34.97581, 
  34.97624, 34.98383, 34.98707, 34.99607, 34.99775, 35.00085, 35.00253, 35.00591, 35.00774, 35.01139, 
  35.01294, 35.01181, 35.01969, 35.02517, 35.04049, 35.044, 35.05469, 35.05539, 35.07183, 35.07183, 
  35.08054, 35.10708, 35.11396, 35.12141, 35.1207, 35.12365, 35.12365, 35.13306, 35.13264, 35.15889, 
  35.15959, 35.16745, 35.17236, 35.17432, 35.18232, 35.19705, 35.21444, 35.22005, 35.238, 35.25735, 
  35.26211, 35.27473, 35.28131, 35.29771, 35.3092, 35.31592, 35.32544, 35.32362, 35.32796, 35.32026, 
  35.32586, 35.32418, 35.32782, 35.3267, 35.33357, 35.33721, 35.34015, 35.34687, 35.35723, 35.36885, 
  35.37277, 35.37529, 35.3904, 35.39558, 35.41615, 35.44636, 35.45755, 35.46678, 35.47908, 35.48075, 
  35.48802, 35.48886, 35.49851, 35.50186, 35.50424, 35.51541, 35.51513, 35.52338, 35.52338, 35.52841, 
  35.52967, 35.53469, 35.54042, 35.54028, 35.54992, 35.55242, 35.55549, 35.55703, 35.56471, 35.56596, 
  35.5689, 35.57546, 35.57797, 35.58384, 35.583, 35.5876, 35.59347, 35.59738, 35.5964, 35.6017, 
  35.60156, 35.60449, 35.60435, 35.61691, 35.62264, 35.62724, 35.62585, 35.62989, 35.63478, 35.63561, 
  35.63352, 35.63436, 35.63743, 35.6398, 35.64231, 35.64077, 35.64496, 35.64831, 35.64761, 35.65403, 
  35.65444, 35.66128, 35.66323, 35.6702, 35.67327, 35.6822, 35.69502, 35.69516, 35.69307, 35.69196, 
  35.68777, 35.68443, 35.68038, 35.6776, 35.67773, 35.67481, 35.67118, 35.67034, 35.6723, 35.67439, 
  35.67439, 35.67718, 35.67522, 35.67244, 35.67062, 35.66881, 35.66686, 35.65837, 35.65976, 35.65554, 
  35.65345, 35.65234, 35.65499, 35.65582, 35.64997, 35.64801, 35.6462, 35.64648, 35.64187, 35.64146, 
  35.63549, 35.63451, 35.63842, 35.63563, 35.63619, 35.63284, 35.63284, 35.62516, 35.62656, 35.62614, 
  35.62391, 35.62251, 35.61065, 35.59976, 35.60395, 35.59432, 35.58776, 35.58832, 35.57561, 35.57645, 
  35.57952, 35.57324, 35.57464, 35.57003, 35.57087, 35.559, 35.559, 35.5569, 35.5569, 35.56081, 
  35.55565, 35.5576, 35.56095, 35.56179, 35.55662, 35.55732, 35.56263, 35.56221, 35.55928, 35.54824, 
  35.54727, 35.54308, 35.54014, 35.5312, 35.53064, 35.52785, 35.52687, 35.52198, 35.50382, 35.49417, 
  35.49431, 35.48844, 35.48062, 35.48089, 35.47228, 35.47111, 35.46803, 35.47069, 35.45727, 35.45531, 
  35.44524, 35.44524, 35.44258, 35.44538, 35.44286, 35.43909, 35.43881, 35.43503, 35.43391, 35.43601, 
  35.43084, 35.43056, 35.42776, 35.42916, 35.42538, 35.4272, 35.41979, 35.41825, 35.41251, 35.41363, 
  35.41125, 35.41433, 35.41167, 35.41433, 35.40943, 35.40915, 35.40188, 35.4009, 35.39432, 35.39418, 
  35.38886, 35.389, 35.37725, 35.36311, 35.36367, 35.35877, 35.35597, 35.35863, 35.35471, 35.35765, 
  35.34617, 35.34659, 35.34407, 35.34617, 35.33749, 35.33777, 35.33441, 35.33553, 35.33189, 35.33301, 
  35.33245, 35.33735, 35.33413, 35.33693, 35.33371, 35.33637, 35.33175, 35.33217, 35.33567, 35.33301, 
  35.33427, 35.33315, 35.33637, 35.33441, 35.33861, 35.33427, 35.33385, 35.33707, 35.33497, 35.33651, 
  35.33525, 35.33791, 35.33749, 35.34309, 35.34015, 35.34337, 35.34057, 35.34841, 35.34421, 35.35065, 
  35.34589, 35.34617, 35.34435, 35.34617, 35.34883, 35.35331, 35.35653, 35.35737, 35.35485, 35.35905, 
  35.35331, 35.35261, 35.34981, 35.35415, 35.35695, 35.36059, 35.35961, 35.36465, 35.36255, 35.36381, 
  35.36857, 35.36017, 35.35359, 35.35289, 35.35401, 35.35527, 35.35863, 35.35849, 35.36297, 35.36283, 
  35.36787, 35.36563, 35.36857, 35.37571, 35.38159, 35.38844, 35.39124, 35.39712, 35.40034, 35.40426, 
  35.39628, 35.39026, 35.38732, 35.36745, 35.35835, 35.35009, 35.34729, 35.31816, 35.30625, 35.30401, 
  35.29799, 35.25707, 35.20953, 35.17531, 35.16071, 35.15931, 35.14808, 35.14794, 35.14204, 35.14232, 
  35.14064, 35.14261, 35.14275, 35.14738, 35.14934, 35.15131, 35.15243, 35.16211, 35.16745, 35.16969, 
  35.1746, 35.17769, 35.18036, 35.17839, 35.18457, 35.1833, 35.18863, 35.19437, 35.1917, 35.19493, 
  35.19297, 35.19619, 35.19423, 35.19549, 35.19255, 35.18848, 35.18932, 35.1889, 35.19339, 35.1889, 
  35.1802, 35.18034, 35.17767, 35.17711, 35.17908, 35.17753, 35.17599, 35.1694, 35.16982, 35.1729, 
  35.17613, 35.17571, 35.17332, 35.15213, 35.14694, 35.14441, 35.1447, 35.1388, 35.13641, 35.13164, 
  35.09583, 35.07125, 35.06718, 35.05734, 35.04441, 35.04539, 35.03879, 35.04174, 35.0416, 35.04497, 
  35.04596, 35.04989, 35.05214, 35.06984, 35.07083, 35.07476, 35.07575, 35.07841, 35.08361, 35.08698, 
  35.08937, 35.09134, 35.09724, 35.10061, 35.10243, 35.10524, 35.10524, 35.09948, 35.0992, 35.09387, 
  35.08937, 35.08012, 35.07857, 35.07506, 35.0707, 35.05356, 35.04794, 35.04148, 35.0381, 35.03543, 
  35.03304, 35.02897, 35.01744, 35.01828, 35.01041, 35.01083, 35.00549, 35.00549, 34.99494, 34.98918, 
  34.9813, 34.97821, 34.97413, 34.9723, 34.96344, 34.95626, 34.95696, 34.96006, 34.95907, 34.94951, 
  34.94866, 34.94149, 34.93994, 34.9291, 34.92657, 34.9146, 34.91334, 34.91193, 34.90926, 34.90757, 
  34.90391, 34.90264, 34.89757, 34.89475, 34.89138, 34.88377, 34.87743, 34.87729, 34.85687, 34.85574, 
  34.85898, 34.85758, 34.85236, 34.85546, 34.85349, 34.84743, 34.84926, 34.84631, 34.83363, 34.82813, 
  34.82574, 34.82433, 34.81883, 34.78993, 34.78993, 34.78148, 34.77443, 34.76498, 34.76018, 34.75426, 
  34.75581, 34.74326, 34.74312, 34.73465, 34.73663, 34.73268, 34.7283, 34.72732, 34.71984, 34.71984, 
  34.71024, 34.71053, 34.70305, 34.70883, 34.70714, 34.6974, 34.70065, 34.69684, 34.69825, 34.68597, 
  34.68752, 34.67948, 34.66762, 34.66635, 34.66366, 34.66578, 34.6535, 34.65223, 34.64079, 34.64206, 
  34.64192, 34.64898, 34.65025, 34.64672, 34.64898, 34.6487, 34.65138, 
  34.65118, 34.65188, 34.65442, 34.65696, 34.65795, 34.65654, 34.66431, 34.66106, 34.66374, 34.66219, 
  34.66713, 34.66741, 34.66346, 34.67024, 34.66967, 34.66572, 34.66784, 34.66699, 34.65499, 34.64454, 
  34.63889, 34.61615, 34.59312, 34.59086, 34.57828, 34.57488, 34.56867, 34.56598, 34.56966, 34.57036, 
  34.5681, 34.5739, 34.56881, 34.57064, 34.56556, 34.56669, 34.56259, 34.56301, 34.5664, 34.56753, 
  34.57983, 34.57997, 34.59156, 34.59382, 34.61177, 34.62335, 34.6338, 34.64129, 34.64129, 34.64426)
LONGITUDE_VALUEs <- c(
  33.01398, 33.00711, 33.00677, 33.01638, 33.01638, 33.02102, 33.02308, 33.02411, 33.02239, 33.03457, 
  33.03871, 33.04403, 33.04368, 33.05827, 33.07012, 33.08162, 33.08882, 33.09517, 33.11285, 33.12848, 
  33.14169, 33.14925, 33.16418, 33.16624, 33.16898, 33.19679, 33.20367, 33.23319, 33.23525, 33.24452, 
  33.24761, 33.26014, 33.267, 33.26957, 33.27215, 33.27078, 33.27352, 33.27335, 33.27971, 33.27954, 
  33.28846, 33.29584, 33.29825, 33.30374, 33.307, 33.30614, 33.31884, 33.32177, 33.32486, 33.33276, 
  33.34631, 33.35443, 33.35649, 33.36989, 33.37161, 33.3769, 33.39184, 33.4085, 33.41434, 33.42671, 
  33.44609, 33.44712, 33.45845, 33.46979, 33.47099, 33.49692, 33.49658, 33.49984, 33.51561, 33.51974, 
  33.5242, 33.52489, 33.53296, 33.53485, 33.54292, 33.54945, 33.54945, 33.55546, 33.58428, 33.60231, 
  33.6054, 33.60386, 33.60832, 33.61553, 33.62395, 33.62498, 33.63938, 33.63475, 33.63921, 33.63715, 
  33.64231, 33.63991, 33.64678, 33.65569, 33.66754, 33.68437,
  33.70091, 33.71983, 33.72275, 33.72533, 33.72928, 33.73271, 33.737, 33.73924, 33.73941, 33.7405, 
  33.74216, 33.7437, 33.74748, 33.74902, 33.75435, 33.76465, 33.77391, 33.81271, 33.82987, 33.83158, 
  33.83485, 33.83948, 33.84275, 33.84257, 33.84635, 33.84755, 33.85408, 33.85749, 33.86831, 33.88669, 
  33.89064, 33.90145,
  33.90238, 33.90101, 33.90221, 33.89843, 33.89963, 33.90375, 33.90547, 33.93687, 33.94633, 33.94925, 
  33.95234, 33.95405, 33.95852, 33.96263, 33.97019, 33.97293, 33.97911, 33.98168, 33.98237, 33.98924, 
  34.00194, 34.00588, 34.01669, 34.01946, 34.03491, 34.04143, 34.06048, 34.06117, 34.06701, 34.07044, 
  34.07593, 34.08091, 34.07919, 34.08485, 34.08812, 34.08588, 34.08588, 34.08228, 34.0761, 34.07662, 
  34.07233, 34.06958, 34.07902, 34.07094, 34.06665, 34.06751, 34.06322, 34.06442, 34.06133, 34.06528, 
  34.06391, 34.05985, 34.0511, 34.05092, 34.03376, 34.03462, 34.02036, 34.01538, 33.99787, 33.9934, 
  33.98363, 33.96114, 33.95822, 33.95822, 33.95393, 33.95136, 33.94809, 33.94002, 33.93693, 33.92027, 
  33.9146, 33.9093, 33.9093, 33.91102, 33.90604, 33.90038, 33.89969, 33.90399, 33.90244, 33.9057, 
  33.91429, 33.91961, 33.9294, 33.9366, 33.94722, 33.9565, 33.97608, 33.98449, 33.99772, 34.01197, 
  34.04147, 34.04868, 34.05658, 34.06345, 34.07219, 34.0722, 34.07529, 34.07392, 34.07906, 34.08009, 
  34.08937, 34.08987, 34.1055, 34.11494, 34.13349, 34.18825, 34.22239, 34.23819, 34.27528, 34.28696, 
  34.2928, 34.29913, 34.3127, 34.31321, 34.31819, 34.32815, 34.33158, 34.33999, 34.3448, 34.34652, 
  34.35511, 34.35631, 34.37486, 34.38121, 34.38945, 34.39749, 34.39818, 34.41055, 34.40952, 34.41261, 
  34.41226, 34.41587, 34.41467, 34.41776, 34.42429, 34.42274, 34.4248, 34.43098, 34.4339, 34.43682, 
  34.44163, 34.44249, 34.44575, 34.46703, 34.49639, 34.49983, 34.50532, 34.50666, 34.51731, 34.52899, 
  34.53036, 34.53191, 34.5307, 34.53534, 34.55801, 34.56179, 34.56385, 34.56746, 34.57038, 34.57055, 
  34.57416, 34.57536, 34.57278, 34.57244, 34.57879, 34.5769, 34.58824, 34.58171, 34.57879, 34.55664, 
  34.54461, 34.54496, 34.53792, 34.53843, 34.53259, 34.5307, 34.52349, 34.51336, 34.51233, 34.5137, 
  34.50975, 34.51147, 34.50271, 34.50477, 34.50357, 34.50494, 34.50048, 34.49072, 34.47955, 34.46736, 
  34.46753, 34.45688, 34.45637, 34.43868, 34.42843, 34.42843, 34.42551, 34.42139, 34.42001, 34.414, 
  34.4093, 34.39797, 34.39625, 34.39196, 34.38441, 34.37926, 34.37446, 34.36794, 34.36485, 34.35575, 
  34.35695, 34.34717, 34.34595, 34.33256, 34.3257, 34.32278, 34.31299, 34.30802, 34.28965, 34.27987, 
  34.27901, 34.2694, 34.26511, 34.26219, 34.24965, 34.23833, 34.23369, 34.22855, 34.22271, 34.21996, 
  34.21636, 34.21053, 34.21121, 34.20847, 34.20486, 34.19112, 34.18322, 34.17705, 34.17241, 34.17172, 
  34.16915, 34.16657, 34.15422, 34.15147, 34.14701, 34.14804, 34.141, 34.13978, 34.12451, 34.0871, 
  34.07766, 34.0729, 34.05831, 34.05247, 34.04452, 34.03598, 34.0322, 34.02808, 34.00698, 33.98774, 
  33.97641, 33.96919, 33.96387, 33.95769, 33.94842, 33.9467, 33.94035, 33.93643, 33.93197, 33.92098, 
  33.91926, 33.9129, 33.91119, 33.90466, 33.89882, 33.89075, 33.87788, 33.86637, 33.84954, 33.83789, 
  33.83223, 33.80286, 33.79272, 33.77332, 33.76546, 33.75498, 33.74176, 33.73471, 33.72905, 33.72372, 
  33.7187, 33.71116, 33.69844, 33.66738, 33.65829, 33.65399, 33.64042, 33.63424, 33.61605, 33.60489, 
  33.56439, 33.54893, 33.53983, 33.53228, 33.50671, 33.49607, 33.49212, 33.48852, 33.48165, 33.47477, 
  33.4691, 33.46035, 33.45348, 33.44782, 33.44456, 33.43804, 33.43083, 33.4147, 33.41058, 33.40559, 
  33.39924, 33.39666, 33.38688, 33.38396, 33.3771, 33.37452, 33.368, 33.36165, 33.35667, 33.35341, 
  33.34603, 33.33848, 33.33505, 33.33059, 33.32527, 33.31977, 33.30825, 33.28629, 33.27685, 33.25762, 
  33.25368, 33.24973, 33.24736, 33.23568, 33.2333, 33.2175, 33.21715, 33.21269, 33.21234, 33.19586, 
  33.19071, 33.18555, 33.1816, 33.1552, 33.15074, 33.14009, 33.13665, 33.13167, 33.12463, 33.11742, 
  33.1133, 33.10866, 33.09612, 33.08603, 33.0838, 33.06181, 33.05185, 33.04739, 33.04309, 33.03794, 
  33.03296, 33.02334, 32.99144, 32.98388, 32.97237, 32.96413, 32.94696, 32.93634, 32.92552, 32.92054, 
  32.91985, 32.92277, 32.92019, 32.92311, 32.92225, 32.92586, 32.93428, 32.93548, 32.93976, 32.93804, 
  32.93993, 32.93358, 32.91762, 32.89857, 32.87933, 32.86714, 32.85273, 32.84775, 32.83693, 32.83298, 
  32.82508, 32.82216, 32.81769, 32.8146, 32.7988, 32.79746, 32.79316, 32.78286, 32.75919, 32.75868, 
  32.74168, 32.74185, 32.73704, 32.72965, 32.70595, 32.69702, 32.67147, 32.66923, 32.66305, 32.6591, 
  32.65412, 32.65172, 32.64622, 32.64261, 32.6421, 32.63454, 32.63214, 32.62784, 32.62544, 32.61685, 
  32.61118, 32.60603, 32.605, 32.60225, 32.5971, 32.588, 32.58786, 32.57155, 32.55987, 32.55472, 
  32.55557, 32.55214, 32.54853, 32.5398, 32.52761, 32.52795, 32.52366, 32.52126, 32.51713, 32.51799, 
  32.49687, 32.47558, 32.46769, 32.45498, 32.42682, 32.42218, 32.40088, 32.39573, 32.37791, 32.37293, 
  32.36331, 32.35472, 32.35524, 32.3283, 32.32246, 32.3204, 32.31576, 32.31576, 32.30427, 32.30393, 
  32.30066, 32.30324, 32.295, 32.29397, 32.28813, 32.2871, 32.28229, 32.28143, 32.27713, 32.27731, 
  32.27336, 32.27366, 32.27143, 32.27143, 32.26885, 32.27314, 32.27126, 32.27761, 32.274, 32.28053, 
  32.27967, 32.28533, 32.29048, 32.29563, 32.3001, 32.30267, 32.30439, 32.3085, 32.31297, 32.31108, 
  32.31434, 32.31177, 32.31142, 32.30834, 32.31383, 32.30868, 32.30542, 32.30439, 32.30216, 32.30198, 
  32.31297, 32.31383, 32.31778, 32.32069, 32.3255, 32.32636, 32.32413, 32.32601, 32.32498, 32.32087, 
  32.32052, 32.3164, 32.31778, 32.32344, 32.32413, 32.33271, 32.3334, 32.33752, 32.34816, 32.35537, 
  32.35571, 32.36172, 32.36245, 32.36623, 32.37035, 32.36881, 32.37619, 32.38341, 32.39129, 32.38872, 
  32.39009, 32.38614, 32.39352, 32.39369, 32.39799, 32.4028, 32.40211, 32.40692, 32.40245, 32.40005, 
  32.41636, 32.42546, 32.42907, 32.4356, 32.44384, 32.45343, 32.45601, 32.46288, 32.46923, 32.47267, 
  32.48023, 32.48658, 32.49448, 32.50959, 32.51835, 32.53051, 32.54064, 32.54871, 32.55524, 32.57688, 
  32.5798, 32.59678, 32.61224, 32.6232, 32.62595, 32.63144, 32.65909, 32.67867, 32.70409, 32.7101, 
  32.71663, 32.71834, 32.72604, 32.74493, 32.74716, 32.74939, 32.75128,
  32.75488, 32.75715, 32.75663, 32.75973, 32.76419, 32.77379, 32.79131, 32.80659, 32.81002, 32.81981, 
  32.82153, 32.82823, 32.84334, 32.84815, 32.85708, 32.86206, 32.86755, 32.87457, 32.89123, 32.89861, 
  32.90976, 32.92487, 32.93517, 32.93775, 32.93809, 32.94084, 32.93208, 32.93277, 32.93895, 32.94616, 
  32.96416, 32.97343, 32.99524, 33.00125, 33.01138, 33.01808, 33.02529, 33.02959, 33.03147, 33.03525, 
  33.02615, 33.02272, 33.01379, 33.00813, 33.00538, 33.0059, 33.00813, 33.01036, 33.01397, 33.01415)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo, MGeo_1)
Geo_1 <- st_set_geometry(Geo_1, Geo_0) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "CYPRUS")
GeoDATA <- rbind(GeoDATA, Geo_1)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, MGeo_1)

LIANCOURT ROCKS (also known as DOKDO) are claimed by DEM. PEOPLE’S REPUBLIC OF KOREA and by JAPAN.

LIANCOURT ROCKS (SEODO | DONGDO) have been controlled by REPUBLIC OF KOREA since 1952.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "REPUBLIC OF KOREA")

##### REPUBLIC OF KOREA #####
Geo_0 <- st_cast(Geo_1, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_union(Geo_0[c(1:80, 82:88), ]))
LATITUDE_VALUEs <- c(
  37.2442, 37.24289, 37.24253, 37.24298, 37.2424, 37.24294, 37.24285, 37.24248, 37.24227, 37.24142, 
  37.24076, 37.24014, 37.24039, 37.24001, 37.23997, 37.24057, 37.2408, 37.24084, 37.24104, 37.24106, 
  37.24123, 37.2414, 37.24187, 37.24187, 37.24215, 37.24248, 37.24278, 37.24295, 37.24318, 37.24426)
LONGITUDE_VALUEs <- c(
  131.8649, 131.865, 131.8643, 131.8639, 131.8635, 131.8633, 131.8625, 131.863, 131.8628, 131.8635, 
  131.863, 131.8641, 131.865, 131.8648, 131.865, 131.8659, 131.8658, 131.8665, 131.8666, 131.8671, 
  131.8672, 131.8666, 131.8669, 131.8664, 131.8665, 131.8659, 131.8663, 131.8661, 131.8663, 131.8653)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  37.24068, 37.23927, 37.23921, 37.23928, 37.2396, 37.23966, 37.23902, 37.2384, 37.23849, 37.23878, 
  37.23899, 37.23906, 37.23899, 37.23861, 37.23867, 37.23902, 37.23908, 37.23881, 37.23814, 37.23821, 
  37.23814, 37.23831, 37.23879, 37.23886, 37.23881, 37.23925, 37.23925, 37.2394, 37.23964, 37.23964, 
  37.2395, 37.23974, 37.23998, 37.24011, 37.24027, 37.24047, 37.24065, 37.24064, 37.24088, 37.24103, 
  37.24031, 37.24036, 37.24148, 37.24202, 37.24194, 37.24151)
LONGITUDE_VALUEs <- c(
  131.8684, 131.8681, 131.8677, 131.8675, 131.8677, 131.8676, 131.8672, 131.8679, 131.8682, 131.8681, 
  131.8677, 131.8678, 131.8681, 131.8685, 131.8686, 131.8683, 131.8684, 131.8686, 131.8698, 131.87, 
  131.8702, 131.8703, 131.8698, 131.8699, 131.8702, 131.8702, 131.8705, 131.8708, 131.8706, 131.8712, 
  131.8715, 131.8721, 131.8722, 131.871, 131.871, 131.8708, 131.8709, 131.8712, 131.8714, 131.871, 
  131.87, 131.8699, 131.8705, 131.8704, 131.8701, 131.8698)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(37.51817, 37.51422, 37.51299, 37.51013, 37.50333, 37.50087, 37.49883, 37.48385, 37.48296, 37.47955, 
  37.47356, 37.47233, 37.46988, 37.46606, 37.46634, 37.46198, 37.46388, 37.4632, 37.45966, 37.46007, 
  37.45789, 37.45285, 37.45353, 37.45503, 37.46075, 37.46238, 37.45898, 37.46375, 37.46661, 37.46865, 
  37.47605, 37.47565, 37.48232, 37.48259, 37.48695, 37.48777, 37.48641, 37.49131, 37.49213, 37.49744, 
  37.50112, 37.50752, 37.51218, 37.52702, 37.53804, 37.5406, 37.54237, 37.54169, 37.54414, 37.54822, 
  37.54958, 37.54645, 37.54046, 37.54373, 37.53652, 37.53429, 37.53579, 37.52653, 37.52681, 37.5219, 
  37.5219, 37.51918, 37.52041)
LONGITUDE_VALUEs <- c(130.7921, 130.7935, 130.7976, 130.7983, 130.8058, 130.8019, 130.805, 130.801, 130.8058, 130.8091, 
  130.8096, 130.8237, 130.8304, 130.8314, 130.8371, 130.8414, 130.8452, 130.851, 130.8567, 130.8655, 
  130.8706, 130.873, 130.8758, 130.8758, 130.8867, 130.8852, 130.8759, 130.878, 130.8826, 130.8816, 
  130.8964, 130.9041, 130.9108, 130.9156, 130.9213, 130.9192, 130.9132, 130.9141, 130.9106, 130.9101, 
  130.916, 130.9134, 130.9186, 130.9074, 130.9117, 130.9195, 130.9182, 130.9111, 130.9089, 130.9089, 
  130.9041, 130.8972, 130.8908, 130.8779, 130.8653, 130.8542, 130.8456, 130.8271, 130.8188, 130.8123, 
  130.8058, 130.8022, 130.7948)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo) %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "REPUBLIC OF KOREA")
GeoDATA <- rbind(GeoDATA, Geo_1)

MA’TAN AL-SARRA is included in LIBYA in GeoDATA.

MA’TAN AL-SARRA (also known as MA’TAN AS-SARRA | MAATEN AL-SARRA) is a Libyan Air Base.

NETHERLANDS ANTILLES in COUNTRIEs_CODEs_FEATUREs \(=\) ARUBA \(+\) BONAIRE… \(+\) CURAÇAO \(+\) SINT MAARTEN.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "ARUBA")
Geo_2 <- GeoDATA %>% filter(NAME == "CURAÇAO")
Geo_3 <- GeoDATA %>% filter(NAME == "SINT MAARTEN")
Geo_4 <- GeoDATA %>% filter(NAME == "SAINT MARTIN")

##### ARUBA #####
LATITUDE_VALUEs <- c(
  12.62366, 12.61763, 12.60993, 12.5796, 12.56687, 12.56134, 12.55363, 12.54207, 12.53822, 12.53621, 
  12.53151, 12.53101, 12.52381, 12.52096, 12.51828, 12.51895, 12.51492, 12.51459, 12.50973, 12.50554, 
  12.49297, 12.48844, 12.48476, 12.47923, 12.48057, 12.44336, 12.4395, 12.43062, 12.43196, 12.4224, 
  12.42156, 12.41687, 12.41435, 12.41218, 12.41419, 12.41419, 12.41218, 12.41218, 12.41419, 12.41586, 
  12.41469, 12.41687, 12.41838, 12.42156, 12.43196, 12.43715, 12.4395, 12.44352, 12.47805, 12.48392, 
  12.48392, 12.49884, 12.50621, 12.51023, 12.51626, 12.52565, 12.52766, 12.53973, 12.53755, 12.54475, 
  12.54458, 12.55765, 12.55916, 12.56871, 12.58731, 12.60239, 12.61512, 12.62014)
LONGITUDE_VALUEs <- c(
  -70.05576, -70.06005, -70.05319, -70.04443, -70.04907, -70.05542, -70.05559, -70.064, -70.06349, -70.05782, 
  -70.05696, -70.05284, -70.04855, -70.04254, -70.04186, -70.03791, -70.03757, -70.03379, -70.0295, -70.03053, 
  -70.00976, -70.01027, -70.00049, -69.99946, -69.99002, -69.94401, -69.92547, -69.92204, -69.90899, -69.89835, 
  -69.88771, -69.88393, -69.8853, -69.88307, -69.8829, -69.87998, -69.87913, -69.87398, -69.87329, -69.86917, 
  -69.86694, -69.86745, -69.86539, -69.86865, -69.87174, -69.87191, -69.875, -69.87363, -69.88478, -69.88907, 
  -69.8956, -69.90591, -69.91794, -69.91966, -69.92721, -69.93012, -69.93579, -69.94557, -69.95741, -69.95809, 
  -69.96086, -69.98128, -69.98797, -69.99415, -70.01526, -70.02195, -70.0448, -70.04703)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### CURAÇAO #####
LATITUDE_VALUEs <- c(12.38015, 12.36959, 12.36674, 12.36271, 12.35148, 12.34745, 12.34142, 12.33555, 12.32918, 12.31878, 
  12.30603, 12.29647, 12.28725, 12.28154, 12.28054, 12.2693, 12.26779, 12.26024, 12.25957, 12.24447, 
  12.23491, 12.23558, 12.22719, 12.22216, 12.21847, 12.21377, 12.21209, 12.20421, 12.20169, 12.19481, 
  12.18693, 12.19951, 12.20136, 12.19448, 12.19062, 12.18827, 12.17887, 12.17786, 12.16796, 12.16075, 
  12.15253, 12.14783, 12.1433, 12.13558, 12.13558, 12.12987, 12.12383, 12.11997, 12.10889, 12.10083, 
  12.09378, 12.08506, 12.08405, 12.07062, 12.07851, 12.07549, 12.06323, 12.06239, 12.06491, 12.05803, 
  12.05367, 12.04846, 12.04712, 12.04393, 12.04326, 12.04057, 12.03688, 12.03738, 12.03402, 12.04242, 
  12.0451, 12.04326, 12.0441, 12.04141, 12.04091, 12.04007, 12.04141, 12.04309, 12.04359, 12.04544, 
  12.06407, 12.08321, 12.09949, 12.14833, 12.17518, 12.17938, 12.18877, 12.18693, 12.19699, 12.21109, 
  12.21713, 12.22417, 12.23927, 12.24934, 12.27517, 12.29614, 12.32079, 12.34628, 12.35718, 12.35986, 
  12.37529, 12.3934)
LONGITUDE_VALUEs <- c(-69.16261, -69.15385, -69.15368, -69.15694, -69.15162, -69.1554, -69.15282, -69.15506, -69.15111, -69.15231, 
  -69.14682, -69.15729, -69.15145, -69.14973, -69.14424, -69.13892, -69.12828, -69.12261, -69.11918, -69.10459, 
  -69.10476, -69.09806, -69.09171, -69.09309, -69.08502, -69.08691, -69.08485, -69.08639, -69.07987, -69.0785, 
  -69.05876, -69.04863, -69.04228, -69.02494, -69.02442, -69.01893, -69.01979, -69.01618, -69.01344, -69.00417, 
  -69.00297, -68.99885, -69.00039, -68.99387, -68.98614, -68.98305, -68.96932, -68.96983, -68.95267, -68.92383, 
  -68.90906, -68.89743, -68.89297, -68.87358, -68.86635, -68.86309, -68.86, -68.85571, -68.85245, -68.84182, 
  -68.83939, -68.83098, -68.82532, -68.82309, -68.81657, -68.80902, -68.80438, -68.80112, -68.7898, -68.78259, 
  -68.77298, -68.76887, -68.76269, -68.756, -68.75013, -68.74842, -68.7395, -68.73829, -68.73692, -68.73692, 
  -68.76009, -68.77399, -68.78927, -68.81587, -68.85435, -68.91013, -68.92935, -68.94393, -68.97808, -68.9903, 
  -69.00145, -69.00746, -69.02787, -69.03287, -69.05002, -69.05381, -69.05346, -69.0677, -69.07954, -69.09707, 
  -69.12675, -69.15249)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(11.97828, 11.98197, 11.99373, 11.9986, 11.99994, 11.99809, 11.98466)
LONGITUDE_VALUEs <- c(-68.64369, -68.6406, -68.63992, -68.64249, -68.64678, -68.6485, -68.64455)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

##### SINT MAARTEN #####
LATITUDE_VALUEs <- c(
  18.04991, 18.04877, 18.04534, 18.04338, 18.04012, 18.04077, 18.0362, 18.03685, 18.03571, 18.03244, 
  18.03244, 18.03914, 18.04028, 18.03897, 18.03685, 18.03473, 18.03359, 18.0313, 18.03032, 18.02771, 
  18.02706, 18.02265, 18.02445, 18.02461, 18.0233, 18.01857, 18.01792, 18.02183, 18.01628, 18.01971, 
  18.01841, 18.01286, 18.01302, 18.01677, 18.02069, 18.02445, 18.02379, 18.02134, 18.01351, 18.01204, 
  18.00535, 18.006, 18.01204, 18.01253, 18.01841, 18.0189, 18.02363, 18.03146, 18.03359, 18.03995, 
  18.04061, 18.04681, 18.0504, 18.05432, 
  18.05758, 18.05448, 18.05791, 18.05595, 18.06427, 18.06264, 18.06378, 18.05709, 18.05595, 18.04942, 
  18.0455, 18.0535, 18.05464, 18.05366)
LONGITUDE_VALUEs <- c(
  -63.13603, -63.13003, -63.12488, -63.12591, -63.12436, -63.12076, -63.12024, -63.1175, -63.11595, -63.11612, 
  -63.11527, -63.11372, -63.10668, -63.09862, -63.09553, -63.09553, -63.09347, -63.09347, -63.09639, -63.09656, 
  -63.09295, -63.09175, -63.08849, -63.08282, -63.08008, -63.08059, -63.0787, -63.07527, -63.07029, -63.06514, 
  -63.06051, -63.06051, -63.05879, -63.05879, -63.05982, -63.05518, -63.04798, -63.04334, -63.04592, -63.04386, 
  -63.0454, -63.03974, -63.03596, -63.03184, -63.02961, -63.02532, -63.02824, -63.01982, -63.02411, -63.02154, 
  -63.01845, -63.01642, -63.01711, -63.0135, 
  -63.02329, -63.02946, -63.03735, -63.0413, -63.0528, -63.05794, -63.06378, -63.0679, -63.07493, -63.07733, 
  -63.09659, -63.11066, -63.13519, -63.13845)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}

##### SAINT MARTIN #####
LATITUDE_VALUEs <- c(
  18.05272, 18.05354, 18.05484, 18.05811, 18.06202, 18.06937, 18.07263, 18.07394, 18.06741, 18.06937, 
  18.07263, 18.07198, 18.07443, 18.07655, 18.0772, 18.07638, 18.07491, 18.07132, 18.06888, 18.06365, 
  18.05957, 18.06104, 18.06267, 18.06708, 18.07116, 18.07867, 18.08585, 18.08879, 18.09303, 18.09401, 
  18.09955, 18.09988, 18.10347, 18.09972, 18.10053, 18.10608, 18.11864, 18.11913, 18.11652, 18.11734, 
  18.11359, 18.11522, 18.1193, 18.12386, 18.12272, 18.12435, 18.12223, 18.11979, 18.11179, 18.11098, 
  18.10722, 18.10869, 18.10478, 18.10217, 18.09433, 18.08699, 18.08193, 18.07769, 18.07802, 18.07361, 
  18.06675, 18.06659, 18.06447, 18.06186, 18.05582, 18.0537, 
  18.05432, 18.05758, 18.05448, 18.05791, 18.05595, 18.06427, 18.06264, 18.06378, 18.05709, 18.05595, 
  18.04942, 18.0455, 18.0535, 18.05464, 18.05366)
LONGITUDE_VALUEs <- c(
  -63.13964, -63.1405, -63.1393, -63.14101, -63.15388, -63.14702, -63.14805, -63.14067, -63.12694, -63.12265, 
  -63.12024, -63.1175, -63.11561, -63.11561, -63.11338, -63.11321, -63.11458, -63.11338, -63.11732, -63.11355, 
  -63.10256, -63.09654, -63.09637, -63.08659, -63.08676, -63.08041, -63.08625, -63.08093, -63.07972, -63.0744, 
  -63.07423, -63.07217, -63.07063, -63.06513, -63.05844, -63.05312, -63.05278, -63.05003, -63.04608, -63.04419, 
  -63.04196, -63.0387, -63.0411, -63.03819, -63.03132, -63.02617, -63.01948, -63.02119, -63.01999, -63.01725, 
  -63.01896, -63.02277, -63.02569, -63.02209, -63.02398, -63.01969, -63.01179, -63.01419, -63.01762, -63.02071, 
  -63.01607, -63.01195, -63.01178, -63.01384, -63.0099, -63.01075,
  -63.0135, -63.02329, -63.02946, -63.03735, -63.0413, -63.0528, -63.05794, -63.06378, -63.0679, -63.07493, 
  -63.07733, -63.09659, -63.11066, -63.13519, -63.13845)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  18.1191, 18.11518, 18.11306, 18.11241, 18.11339, 18.11453, 18.11583, 18.11551, 18.11747, 18.11714, 
  18.12008, 18.12252, 18.12497, 18.12497, 18.12415, 18.12464, 18.12318, 18.12073)
LONGITUDE_VALUEs <- c(
  -62.98772, -62.98806, -62.98995, -62.98978, -62.9872, -62.98652, -62.98429, -62.98308, -62.97605, -62.97416, 
  -62.97176, -62.97433, -62.97141, -62.97759, -62.97862, -62.98068, -62.98051, -62.98188)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  18.10575, 18.10624, 18.10837, 18.10739, 18.1082, 18.10722, 18.10657, 18.10575, 18.1051, 18.1038, 
  18.1038)
LONGITUDE_VALUEs <- c(
  -63.01415, -63.01175, -63.01192, -63.01398, -63.01587, -63.0169, -63.01621, -63.0169, -63.01553, -63.0157, 
  -63.01432)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_4 <- st_set_geometry(Geo_4, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("ARUBA", "CURAÇAO", "SINT MAARTEN", "SAINT MARTIN"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3, Geo_4)

PARACEL ISLANDS are claimed by CHINA, by TAIWAN and by VIET NAM.

PARACEL ISLANDS have been de facto controlled by CHINA since 1974.

##### PARACEL ISLANDS #####
LATITUDE_VALUEs <- c(17.09234, 17.08069, 17.06608, 17.05886, 17.08774, 17.08676, 17.09349, 17.10333, 17.11186, 17.11449)
LONGITUDE_VALUEs <- c(111.4532, 111.4489, 111.4591, 111.4762, 111.5463, 111.5584, 111.5612, 111.5554, 111.5401, 111.5178)
MGeo_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  16.97526, 16.96935, 16.96237, 16.97033, 16.96951, 16.97337, 16.97436, 16.97033, 16.97493, 16.97181, 
  16.97493, 16.97124, 16.97074, 16.97674, 16.98897, 16.996, 16.99594, 16.99176, 16.98158)
LONGITUDE_VALUEs <- c(
  112.2, 112.2007, 112.2165, 112.2403, 112.2488, 112.2544, 112.2618, 112.2653, 112.2678, 112.2733, 
  112.2785, 112.2818, 112.2883, 112.2939, 112.2738, 112.2469, 112.2358, 112.2199, 112.2036)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  16.9701, 16.96542, 16.95598, 16.94785, 16.94235, 16.93964, 16.93172, 16.92236, 16.918, 16.91928, 
  16.9263, 16.93611, 16.9467, 16.95446, 16.96161, 16.96711, 16.97044)
LONGITUDE_VALUEs <- c(
  112.3041, 112.3015, 112.3179, 112.3294, 112.334, 112.3345, 112.3398, 112.3423, 112.3461, 112.3522, 
  112.3526, 112.35, 112.343, 112.3336, 112.3208, 112.3133, 112.3068)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  16.82464, 16.82349, 16.83154, 16.83721, 16.83869, 16.84559, 16.84921, 16.84855, 16.84403, 16.83582, 
  16.8313, 16.82793, 16.82193, 16.82226)
LONGITUDE_VALUEs <- c(
  112.3416, 112.348, 112.3543, 112.3551, 112.3611, 112.3558, 112.3467, 112.3362, 112.3288, 112.324, 
  112.3283, 112.3275, 112.3331, 112.3416)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  16.67902, 16.67561, 16.66932, 16.66529, 16.66377, 16.65653, 16.65707, 16.6604, 16.66175, 16.66352, 
  16.67211, 16.67581)
LONGITUDE_VALUEs <- c(
  112.7237, 112.7206, 112.7194, 112.7233, 112.7271, 112.7361, 112.7384, 112.7408, 112.7443, 112.7449, 
  112.7385, 112.7335)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  16.07474, 16.08397, 16.08265, 16.06715, 16.05626, 16.04504, 16.03251, 16.01667, 16.01271, 16.03284, 
  16.05263)
LONGITUDE_VALUEs <- c(
  112.5961, 112.591, 112.5594, 112.5192, 112.4619, 112.441, 112.4386, 112.4444, 112.4729, 112.547, 
  112.5635)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  16.31712, 16.32321, 16.32223, 16.33804, 16.33063, 16.3359, 16.34578, 16.35418, 16.36571, 16.35814, 
  16.33903, 16.32272)
LONGITUDE_VALUEs <- c(
  111.9601, 111.9773, 111.9957, 112.0326, 112.0815, 112.0923, 112.0937, 112.0873, 112.037, 111.9943, 
  111.9677, 111.9593)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  16.44923, 16.44882, 16.44478, 16.44437, 16.44709, 16.46256, 16.48429, 16.50791, 16.51746, 16.52643, 
  16.5479, 16.55597, 16.56847, 16.58517, 16.59504, 16.59619, 16.59447, 16.58065, 16.56626, 16.54878, 
  16.54467, 16.53397, 16.50863, 16.49134, 16.48772, 16.47143, 16.45035, 16.44245, 16.44229, 16.44821)
LONGITUDE_VALUEs <- c(
  111.6668, 111.6925, 111.6985, 111.715, 111.722, 111.7487, 111.7681, 111.7808, 111.7812, 111.7764, 
  111.7506, 111.7365, 111.7251, 111.7218, 111.7105, 111.699, 111.6909, 111.6741, 111.6511, 111.6259, 
  111.6048, 111.5947, 111.5809, 111.5808, 111.5775, 111.5703, 111.5736, 111.5913, 111.6065, 111.6465)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  16.44322, 16.4405, 16.44133, 16.44059, 16.44281, 16.44075, 16.43663, 16.43825, 16.44657, 16.45575, 
  16.46122, 16.46237, 16.46126, 16.4576, 16.45686, 16.45204, 16.44562)
LONGITUDE_VALUEs <- c(
  111.4869, 111.4881, 111.495, 111.5028, 111.5122, 111.5254, 111.534, 111.5395, 111.5446, 111.5445, 
  111.5399, 111.5352, 111.5295, 111.5196, 111.5066, 111.499, 111.4923)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  16.17736, 16.18791, 16.20143, 16.20374, 16.19665, 16.2105, 16.22088, 16.22764, 16.24956, 16.2723, 
  16.27626, 16.26769, 16.27065, 16.26522, 16.24989, 16.20902, 16.19352, 16.16912, 16.1622, 16.16516)
LONGITUDE_VALUEs <- c(
  111.6376, 111.6453, 111.6848, 111.7217, 111.7541, 111.7935, 111.8003, 111.8117, 111.8139, 111.7967, 
  111.7711, 111.7166, 111.6922, 111.663, 111.6367, 111.5787, 111.5694, 111.5674, 111.5835, 111.6141)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(16.06138, 16.05098, 16.03193, 16.03127, 16.04092, 16.05469, 16.06566, 16.07399, 16.07399)
LONGITUDE_VALUEs <- c(111.7545, 111.7523, 111.7727, 111.7859, 111.8064, 111.8248, 111.8275, 111.8236, 111.8026)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(15.78727, 15.77909, 15.77439, 15.77472, 15.78611, 15.79627, 15.80247, 15.80057, 15.79363)
LONGITUDE_VALUEs <- c(111.1902, 111.1895, 111.1958, 111.2109, 111.2234, 111.2245, 111.2193, 111.2112, 111.1968)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
MGeo_1 <- MGeo_1 %>% 
  mutate(NAME = "PARACEL ISLANDS", VISUALIZATION_NAME = "Paracel Islands", 
         ISO2 = NA, ISO3 = NA, M49_CODE = NA, SOVRN = NA, CONTINENT = "ASIA",  CONTINENT_CODE = "142", 
         SREGION = "South-Eastern Asia", SREGION_CODE = "035", IREGION = NA, IREGION_CODE = NA, SIREGION = SREGION, SIREGION_CODE = "035",
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, MGeo_1)

SCARBOROUGH REEF is claimed by CHINA, by PHILIPPINES and by TAIWAN.

SCARBOROUGH REEF has been de facto controlled by CHINA since 2012.

##### SCARBOROUGH REEF #####
LATITUDE_VALUEs <- c(
  15.12317, 15.10527, 15.11024, 15.10908, 15.11124, 15.10428, 15.10196, 15.11306, 15.12532, 15.1419, 
  15.15846, 15.16675, 15.18332, 15.19425, 15.22606, 15.2244, 15.21429, 15.15366)
LONGITUDE_VALUEs <- c(
  117.7173, 117.736, 117.7501, 117.7599, 117.7715, 117.7844, 117.8241, 117.8409, 117.8477, 117.8481, 
  117.833, 117.8036, 117.7846, 117.7796, 117.7362, 117.7209, 117.7101, 117.7193)
MGeo_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- MGeo_1 %>% 
  mutate(NAME = "SCARBOROUGH REEF", VISUALIZATION_NAME = "Scarborough Reef", 
         ISO2 = NA, ISO3 = NA, M49_CODE = NA, SOVRN = NA, CONTINENT = "ASIA",  CONTINENT_CODE = "142", 
         SREGION = "South-Eastern Asia", SREGION_CODE = "035", IREGION = NA, IREGION_CODE = NA, SIREGION = SREGION, SIREGION_CODE = "035",
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, MGeo_1)

SENKAKU ISLANDS (also known as PINNACLE ISLANDS) are claimed by CHINA, by JAPAN and by TAIWAN.

SENKAKU ISLANDS have been controlled by JAPAN since 1972.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "JAPAN")

##### JAPAN #####
LATITUDE_VALUEs <- c(
  25.74115, 25.74092, 25.74289, 25.74443, 25.7495, 25.75012, 25.75182, 25.75019, 25.74525, 25.73937, 
  25.73512, 25.73516)
LONGITUDE_VALUEs <- c(
  123.4769, 123.4912, 123.4936, 123.4933, 123.4868, 123.4804, 123.4769, 123.4698, 123.461, 123.4576, 
  123.4598, 123.4655)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  25.72757, 25.72574, 25.72606, 25.72526, 25.72624, 25.72695, 25.72732, 25.72787, 25.72862, 25.72911, 
  25.72932, 25.73347, 25.73428, 25.73454, 25.7341, 25.73276, 25.73284, 25.73168, 25.73151, 25.728)
LONGITUDE_VALUEs <- c(
  123.5415, 123.5416, 123.5426, 123.5422, 123.5448, 123.5444, 123.545, 123.5448, 123.5457, 123.5456, 
  123.5439, 123.5414, 123.5421, 123.5413, 123.5405, 123.5401, 123.5396, 123.5378, 123.5392, 123.541)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  25.72546, 25.72561, 25.72499, 25.72407, 25.7238, 25.7236, 25.72287, 25.72231, 25.72237, 25.72038, 
  25.72087, 25.72192, 25.72243, 25.72324, 25.72442, 25.72455)
LONGITUDE_VALUEs <- c(
  123.5512, 123.55, 123.5459, 123.5448, 123.5451, 123.5448, 123.5451, 123.5463, 123.5469, 123.5527, 
  123.5555, 123.5555, 123.5548, 123.5546, 123.5531, 123.5523)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(25.92331, 25.92192, 25.91982, 25.91914, 25.92024, 25.9225, 25.9247, 25.9287, 25.92831, 25.92547)
LONGITUDE_VALUEs <- c(123.6761, 123.6777, 123.679, 123.6832, 123.6875, 123.6884, 123.6873, 123.683, 123.6798, 123.6769)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  25.92207, 25.92157, 25.92155, 25.92174, 25.92161, 25.92196, 25.92184, 25.92237, 25.92275, 25.92282, 
  25.92323, 25.92331, 25.92299, 25.92267, 25.92268, 25.92229)
LONGITUDE_VALUEs <- c(
  124.5559, 124.5561, 124.5576, 124.5581, 124.5586, 124.5593, 124.5603, 124.5611, 124.5609, 124.5595, 
  124.5596, 124.5587, 124.5575, 124.5579, 124.5573, 124.5568)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(25.78197, 25.78026, 25.78071, 25.78086, 25.78206)
LONGITUDE_VALUEs <- c(123.5433, 123.5433, 123.5438, 123.5447, 123.5435)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(25.77956, 25.77878, 25.77905, 25.77943, 25.77931, 25.7796)
LONGITUDE_VALUEs <- c(123.5396, 123.54, 123.542, 123.5418, 123.5405, 123.54)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo) %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "JAPAN")
GeoDATA <- rbind(GeoDATA, Geo_1)

SPRATLY ISLANDS are occupied by MILITARY forces from BRUNEI, CHINA, MALAYSIA, PHILIPPINES, TAIWAN and VIET NAM.

##### SPRATLY ISLANDS #####
LATITUDE_VALUEs <- c(
  11.39494, 11.37638, 11.37733, 11.37304, 11.37899, 11.37733, 11.39042, 11.39327, 11.44372, 11.46632, 
  11.47418, 11.45942, 11.432, 11.40779)
LONGITUDE_VALUEs <- c(
  114.296, 114.2938, 114.3103, 114.3213, 114.3482, 114.3603, 114.3703, 114.3849, 114.4028, 114.4036, 
  114.3956, 114.3499, 114.326, 114.3198)
MGeo_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(11.43709, 11.47898, 11.49984, 11.51733, 11.51969, 11.5106, 11.3864, 11.38674, 11.43389)
LONGITUDE_VALUEs <- c(114.7238, 114.7341, 114.6988, 114.68946, 114.6699, 114.6447, 114.6357, 114.6611, 114.6946)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(11.37058, 11.36082, 11.33019, 11.3147, 11.33086, 11.37540, 11.38147)
LONGITUDE_VALUEs <- c(114.6171, 114.5732, 114.5653, 114.5835, 114.6281, 114.64227, 114.63195)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(11.05085, 11.09145, 11.10122, 11.0864, 11.07562, 11.06332, 11.05439, 11.05507)
LONGITUDE_VALUEs <- c(114.3422, 114.3856, 114.3805, 114.3426, 114.3366, 114.3084, 114.3093, 114.3299)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  11.02747, 11.03202, 11.02823, 11.03775, 11.03623, 11.02318, 11.02461, 11.03581, 11.04693, 11.0503, 
  11.06395, 11.06589, 11.08256, 11.08189, 11.06875, 11.06648, 11.06757, 11.05165, 11.04457, 11.04382, 
  11.03362, 11.03076)
LONGITUDE_VALUEs <- c(
  114.1839, 114.1967, 114.2071, 114.2266, 114.2458, 114.2608, 114.2658, 114.2654, 114.2796, 114.2959, 
  114.2933, 114.2776, 114.258, 114.2493, 114.2371, 114.2284, 114.2166, 114.1899, 114.1857, 114.174, 
  114.1687, 114.1778)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  10.94737, 10.93821, 10.92052, 10.91483, 10.90852, 10.90504, 10.90725, 10.92052, 10.93347, 10.93916, 
  10.94516)
LONGITUDE_VALUEs <- c(
  114.09189, 114.07612, 114.06615, 114.05714, 114.05746, 114.07484, 114.08738, 114.10283, 114.10444, 114.09832,
  114.09543)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  10.70278, 10.73044, 10.7382, 10.76872, 10.79554, 10.9004, 10.91894, 10.89771, 10.78542, 10.76872, 
  10.74967, 10.74866, 10.73145, 10.73668, 10.70244, 10.69182, 10.70784, 10.70379, 10.66837, 10.65993)
LONGITUDE_VALUEs <- c(
  114.5391, 114.5518, 114.5874, 114.6008, 114.58, 114.6061, 114.5994, 114.5671, 114.4525, 114.424, 
  114.4107, 114.3937, 114.3771, 114.3508, 114.3146, 114.3153, 114.357, 114.3766, 114.3869, 114.4404)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  11.09995, 11.07468, 11.02886, 10.97864, 10.96718, 10.94022, 10.95336, 11.01976, 11.14981, 11.16293, 
  11.13733, 11.11088)
LONGITUDE_VALUEs <- c(
  114.716, 114.7091, 114.6542, 114.6456, 114.6298, 114.6357, 114.6628, 114.7325, 114.8101, 114.7991, 
  114.7494, 114.7338)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(11.08333, 11.07457, 11.08518, 11.09167, 11.10304, 11.10346, 11.08982)
LONGITUDE_VALUEs <- c(115.0165, 115.0216, 115.0321, 115.032, 115.0366, 115.0338, 115.0252)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(10.86273, 10.86012, 10.86257, 10.90159, 10.90218, 10.87765, 10.8747)
LONGITUDE_VALUEs <- c(114.8992, 114.9003, 114.9218, 114.9351, 114.9305, 114.9192, 114.9117)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  10.20854, 10.15447, 10.15515, 10.1788, 10.17374, 10.19333, 10.23658, 10.22814, 10.26057, 10.26192, 
  10.28354, 10.29097, 10.32205, 10.3413, 10.37271, 10.37339, 10.35414, 10.33252, 10.33353, 10.318, 
  10.33725, 10.3619, 10.41087, 10.41594, 10.34198, 10.39061, 10.38622, 10.37204, 10.32813, 10.29672, 
  10.29638, 10.243, 10.22138)
LONGITUDE_VALUEs <- c(
  114.2158, 114.2542, 114.3081, 114.3404, 114.372, 114.3854, 114.4722, 114.5316, 114.5794, 114.6233, 
  114.6408, 114.6796, 114.7108, 114.705, 114.7239, 114.7198, 114.6927, 114.682, 114.6247, 114.5904, 
  114.5612, 114.5653, 114.5962, 114.58, 114.5406, 114.4784, 114.3713, 114.3435, 114.3562, 114.3195, 
  114.2992, 114.2377, 114.2285)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(10.12642, 10.0933, 10.06017, 9.99391, 9.99932, 10.04699, 10.05713, 10.12271)
LONGITUDE_VALUEs <- c(113.856, 113.8553, 113.8433, 113.8433, 113.8584, 113.857, 113.8618, 113.868)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(10.24247, 10.2423, 10.2336, 10.22498, 10.2238, 10.23495, 10.23791)
LONGITUDE_VALUEs <- c(113.6491, 113.6439, 113.6301, 113.6267, 113.6388, 113.6446, 113.6483)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(9.99798, 9.99514, 9.99629, 10.00009, 10.00127)
LONGITUDE_VALUEs <- c(114.0009, 114.003, 114.0072, 114.0075, 114.0037)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  9.77102, 9.74192, 9.70199, 9.69962, 9.71891, 9.77372, 9.77523, 9.82481, 9.82616, 9.89787, 
  9.89889, 9.92797, 9.93237, 9.94435, 9.95602, 9.97732, 10.00708, 10.00894, 9.99947, 9.97126, 
  9.96551, 9.92136, 9.9009, 9.91392, 9.89024, 9.91005, 9.8725, 9.80722)
LONGITUDE_VALUEs <- c(
  114.2487, 114.2752, 114.2704, 114.282, 114.2951, 114.3617, 114.3803, 114.4534, 114.4681, 114.5512, 
  114.6, 114.6205, 114.6436, 114.6469, 114.6584, 114.6627, 114.6733, 114.6707, 114.6071, 114.5776, 
  114.5505, 114.4903, 114.4828, 114.4605, 114.4117, 114.3764, 114.2783, 114.2656)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  9.55336, 9.56056, 9.57207, 9.59688, 9.62821, 9.64885, 9.6783, 9.68067, 9.65867, 9.65224, 
  9.5571, 9.54295, 9.53627, 9.53982)
LONGITUDE_VALUEs <- c(
  112.9035, 112.9471, 112.9528, 112.9934, 113.0193, 113.0512, 113.0619, 113.0498, 113.0028, 112.9558, 
  112.8891, 112.8748, 112.8746, 112.8874)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  11.27969, 11.58685, 11.66823, 11.75362, 11.65679, 11.48055, 11.45565, 11.26042, 11.06237, 11.07921, 
  11.19442)
LONGITUDE_VALUEs <- c(
  116.2148, 116.2787, 116.3309, 116.2986, 116.2636, 116.1454, 116.1008, 116.0164, 116.0878, 116.1077, 
  116.0953)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  11.99455, 12.00529, 11.90722, 11.77012, 11.68541, 11.31624, 11.2132, 11.20579, 10.71953, 10.60752, 
  10.64531, 10.75192, 10.80453, 10.81262, 10.87602, 10.87332, 10.95827, 10.9367, 10.79644, 10.75327, 
  10.81802, 10.78969, 11.06476, 11.21298, 11.30726, 11.46073, 11.67869, 11.75802)
LONGITUDE_VALUEs <- c(
  117.1644, 117.0285, 116.736, 116.6975, 116.5368, 116.4184, 116.4575, 116.3552, 116.162, 116.1606, 
  116.2073, 116.2293, 116.2801, 116.3432, 116.3968, 116.4422, 116.5301, 116.655, 116.5987, 116.6481, 
  116.7278, 116.8019, 117.0298, 116.9584, 116.9791, 117.1012, 117.3663, 117.369)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(11.18963, 11.15123, 11.05825, 11.09733)
LONGITUDE_VALUEs <- c(117.2338, 117.2016, 117.2565, 117.3107)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(10.73797, 10.71639, 10.80475, 10.85871)
LONGITUDE_VALUEs <- c(117.7182, 117.7587, 117.837, 117.7869)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(10.74502, 10.62087, 10.57362, 10.62019, 10.59455, 10.60872, 10.72613, 10.73288, 10.75716)
LONGITUDE_VALUEs <- c(117.1413, 117.1331, 117.188, 117.2697, 117.3507, 117.3905, 117.3905, 117.2086, 117.1907)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  10.66901, 10.62004, 10.6025, 10.50462, 10.42697, 10.31822, 10.28309, 10.32768, 10.3189, 10.37901, 
  10.44925, 10.55292, 10.56777, 10.56406, 10.60388)
LONGITUDE_VALUEs <- c(
  116.8021, 116.7199, 116.6368, 116.5407, 116.5325, 116.4679, 116.4885, 116.621, 116.6821, 116.7995, 
  116.8222, 116.9545, 116.939, 116.8948, 116.8158)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  10.78148, 10.76209, 10.72594, 10.65442, 10.61292, 10.59402, 10.64396, 10.64734, 10.69929, 10.71447, 
  10.79475, 10.80183, 10.82814, 10.8251)
LONGITUDE_VALUEs <- c(
  115.7983, 115.8054, 115.7977, 115.8169, 115.8131, 115.821, 115.8533, 115.8677, 115.8921, 115.8807, 
  115.8612, 115.8436, 115.8289, 115.8189)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(10.49012, 10.46024, 10.45619, 10.54036, 10.54227, 10.53518, 10.5416, 10.53687)
LONGITUDE_VALUEs <- c(115.6945, 115.7269, 115.7847, 115.7977, 115.783, 115.76, 115.7355, 115.7223)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(10.18325, 10.17413, 10.18292, 10.20251, 10.20505, 10.19778, 10.21366, 10.19914)
LONGITUDE_VALUEs <- c(115.2864, 115.2852, 115.3119, 115.3288, 115.3258, 115.307, 115.2807, 115.2776)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(10.25703, 10.24411, 10.24343, 10.25408, 10.25729)
LONGITUDE_VALUEs <- c(115.3618, 115.3583, 115.3657, 115.3774, 115.3762)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  9.9216, 9.90097, 9.87949, 9.87679, 9.87172, 9.87476, 9.90131, 9.91788, 9.92735, 9.92701, 
  9.93597, 9.93496)
LONGITUDE_VALUEs <- c(
  115.4998, 115.4968, 115.5092, 115.5358, 115.542, 115.554, 115.582, 115.5765, 115.5603, 115.5485, 
  115.5209, 115.5113)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  9.76491, 9.75763, 9.7556, 9.73581, 9.73039, 9.70772, 9.70349, 9.68894, 9.67693, 9.65611, 
  9.65594, 9.67506, 9.69537, 9.70908, 9.72921, 9.74884, 9.79299, 9.80534, 9.80669, 9.79739, 
  9.78876)
LONGITUDE_VALUEs <- c(
  115.8362, 115.8384, 115.8468, 115.8447, 115.8487, 115.8497, 115.8468, 115.847, 115.8428, 115.843, 
  115.847, 115.853, 115.8671, 115.8679, 115.8765, 115.8797, 115.8954, 115.882, 115.8669, 115.8526, 
  115.8521)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  9.78824, 9.77742, 9.74681, 9.72769, 9.72295, 9.71449, 9.70857, 9.74122, 9.74055, 9.72912, 
  9.72793, 9.72091, 9.72193, 9.7138, 9.71795, 9.73479, 9.74748, 9.74451, 9.74578, 9.74553, 
  9.7484, 9.76549, 9.77124, 9.79543, 9.80321, 9.81176, 9.81404, 9.81091, 9.80372, 9.8022, 
  9.80305, 9.79679)
LONGITUDE_VALUEs <- c(
  116.4172, 116.4158, 116.4546, 116.4648, 116.4739, 116.4775, 116.4922, 116.5185, 116.534, 116.5484, 
  116.5583, 116.5622, 116.5815, 116.5949, 116.6069, 116.5971, 116.5712, 116.5638, 116.5534, 116.5357, 
  116.5252, 116.5116, 116.4988, 116.4775, 116.4763, 116.4683, 116.4558, 116.4481, 116.4413, 116.4357, 
  116.4162, 116.4141)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(9.05757, 9.03672, 9.03587, 9.03113, 9.02892, 9.03503, 9.04435, 9.06266)
LONGITUDE_VALUEs <- c(116.6482, 116.6518, 116.6596, 116.6636, 116.6749, 116.6811, 116.6816, 116.6576)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(9.18331, 9.17619, 9.16805, 9.17382, 9.18119, 9.18398)
LONGITUDE_VALUEs <- c(116.4513, 116.4502, 116.4571, 116.4744, 116.4719, 116.4606)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(8.90484, 8.88194, 8.88143, 8.92502, 8.92638, 8.92299, 8.92434)
LONGITUDE_VALUEs <- c(116.261, 116.2528, 116.277, 116.3005, 116.2911, 116.2798, 116.2645)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(9.33666, 9.32828, 9.32726, 9.32032, 9.32413, 9.32277, 9.32633, 9.33345, 9.33683, 9.33378)
LONGITUDE_VALUEs <- c(115.9256, 115.9121, 115.8985, 115.9022, 115.9301, 115.9403, 115.9606, 115.9623, 115.9543, 115.9437)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  8.35328, 8.35379, 8.34478, 8.35633, 8.36482, 8.36805, 8.36347, 8.36805, 8.36924, 8.38996, 
  8.38453, 8.37349, 8.36873)
LONGITUDE_VALUEs <- c(
  115.1906, 115.2458, 115.2592, 115.2781, 115.2731, 115.2575, 115.2436, 115.2295, 115.2127, 115.1928, 
  115.1665, 115.1725, 115.1828)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  8.13174, 8.10914, 8.10659, 8.11798, 8.11526, 8.11951, 8.11662, 8.10149, 8.09503, 8.08025, 
  8.08484, 8.07753, 8.09282, 8.12189, 8.14211, 8.14534, 8.17032, 8.17066, 8.18782, 8.15876, 
  8.13922, 8.13055)
LONGITUDE_VALUEs <- c(
  114.5315, 114.5113, 114.5331, 114.5703, 114.6037, 114.6128, 114.6241, 114.6285, 114.6447, 114.6489, 
  114.7125, 114.7341, 114.7741, 114.8066, 114.7945, 114.7743, 114.7593, 114.7365, 114.707, 114.6675, 
  114.5724, 114.5611)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  8.00515, 7.99495, 7.97778, 7.96613, 7.95984, 7.94905, 7.93239, 7.93689, 7.9374, 7.94123, 
  7.96358, 7.97905, 8.00013, 8.00056, 8.00702)
LONGITUDE_VALUEs <- c(
  113.8852, 113.8773, 113.904, 113.9141, 113.925, 113.9296, 113.9328, 113.9408, 113.9522, 113.9521, 
  113.9283, 113.9206, 113.9203, 113.9127, 113.8932)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(7.89543, 7.89334, 7.89016, 7.89041, 7.90038, 7.90344, 7.90404, 7.89802, 7.89645, 7.89709)
LONGITUDE_VALUEs <- c(112.9159, 112.916, 112.9201, 112.9231, 112.9339, 112.935, 112.9332, 112.9281, 112.9247, 112.9196)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  8.11441, 8.10115, 8.09707, 8.07617, 8.07005, 8.07889, 8.17354, 8.21925, 8.28024, 8.2872, 
  8.26002, 8.24507, 8.22282, 8.1902, 8.16964, 8.12902)
LONGITUDE_VALUEs <- c(
  113.2564, 113.2499, 113.2413, 113.2228, 113.2249, 113.2419, 113.3299, 113.3538, 113.3648, 113.36, 
  113.3456, 113.349, 113.3414, 113.3001, 113.2872, 113.2721)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(8.86229, 8.8343, 8.8326, 8.86195, 8.87755, 8.87433)
LONGITUDE_VALUEs <- c(114.6363, 114.6356, 114.644, 114.6788, 114.684, 114.6541)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(8.67261, 8.69399, 8.71266, 8.74184, 8.75881, 8.74897, 8.71894, 8.69671)
LONGITUDE_VALUEs <- c(114.1793, 114.2105, 114.1958, 114.2007, 114.165, 114.1549, 114.1723, 114.1695)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  8.84493, 8.82525, 8.77436, 8.77742, 8.76758, 8.77165, 8.78251, 8.79947, 8.8049, 8.82491, 
  8.83815, 8.83543)
LONGITUDE_VALUEs <- c(
  113.9089, 113.8914, 113.9995, 114.0314, 114.0462, 114.064, 114.0565, 114.0572, 114.0366, 114.0324, 
  113.9724, 113.9377)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  8.9639, 8.94991, 8.93923, 8.94737, 8.94762, 8.96288, 8.97323, 8.97848, 8.97806, 8.96576, 
  8.96509, 8.96254)
LONGITUDE_VALUEs <- c(
  113.6565, 113.6372, 113.6365, 113.6647, 113.6818, 113.6947, 113.71, 113.7101, 113.7037, 113.6861, 
  113.6764, 113.6676)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(6.32667, 6.32709, 6.33174, 6.33618, 6.33754, 6.3317)
LONGITUDE_VALUEs <- c(113.233, 113.243, 113.2524, 113.2507, 113.2349, 113.2325)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  7.37785, 7.37956, 7.37381, 7.36845, 7.36768, 7.36419, 7.36555, 7.37628, 7.38398, 7.38466, 
  7.38117, 7.38058)
LONGITUDE_VALUEs <- c(
  113.8064, 113.8003, 113.7871, 113.7993, 113.8103, 113.8218, 113.8356, 113.8544, 113.8481, 113.8255, 
  113.8204, 113.8136)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  7.61109, 7.60777, 7.60726, 7.61373, 7.615, 7.62708, 7.63533, 7.63635, 7.62963, 7.63048, 
  7.62538)
LONGITUDE_VALUEs <- c(
  113.7509, 113.751, 113.768, 113.7933, 113.8173, 113.8304, 113.831, 113.8266, 113.8085, 113.8002, 
  113.7781)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(8.11468, 8.10432, 8.09531, 8.09522, 8.10899, 8.11579, 8.11757)
LONGITUDE_VALUEs <- c(114.1261, 114.1204, 114.123, 114.1311, 114.1474, 114.1461, 114.134)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  7.61871, 7.60799, 7.60373, 7.61054, 7.60305, 7.60697, 7.57515, 7.59386, 7.57804, 7.60169, 
  7.60254, 7.6558, 7.6672, 7.65971, 7.6888, 7.69016, 7.65495, 7.65835, 7.68285, 7.69816,
  7.7582, 7.77555, 7.77776, 7.81144, 7.83066, 7.85395, 7.88884, 7.89317, 7.91109, 7.92418, 
  7.95376, 7.95189, 7.93489, 7.91908, 7.90684, 7.92724, 7.90242, 7.8866, 7.85667, 7.79443, 
  7.76569, 7.73881, 7.7264, 7.74119, 7.73813, 7.70717, 7.7019, 7.65359, 7.6529, 7.63504, 
  7.62007, 7.63793, 7.63215)
LONGITUDE_VALUEs <- c(
  113.9243, 113.922, 113.9262, 113.9567, 113.9754, 113.9924, 114.0372, 114.1128, 114.134, 114.1608, 
  114.1761, 114.2041, 114.2339, 114.2619, 114.2849, 114.3215, 114.3457, 114.357, 114.3579, 114.3726,
  114.3594, 114.3732, 114.3862, 114.4108, 114.441, 114.4485, 114.49432, 114.49384, 114.4677, 114.4686, 
  114.4432, 114.4137, 114.3957, 114.3989, 114.3654, 114.3426, 114.2973, 114.2952, 114.2602, 114.235, 
  114.1938, 114.1878, 114.1577, 114.1399, 114.1124, 114.0789, 114.0619, 114.0187, 113.9971, 113.9938, 
  113.978, 113.9245, 113.918)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(8.87265, 8.86985, 8.85646, 8.85391, 8.85815, 8.86451, 8.86595, 8.87045)
LONGITUDE_VALUEs <- c(112.8166, 112.814, 112.8282, 112.8498, 112.8628, 112.8574, 112.8368, 112.8297)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  8.84599, 8.84242, 8.83055, 8.82003, 8.80952, 8.80409, 8.81562, 8.81562, 8.82444, 8.83547, 
  8.84582, 8.84208)
LONGITUDE_VALUEs <- c(
  112.5493, 112.5439, 112.5453, 112.5522, 112.5536, 112.5762, 112.6179, 112.6534, 112.6649, 112.6423, 
  112.5934, 112.5683)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(8.92949, 8.92503, 8.93093, 8.93576, 8.93805, 8.93385)
LONGITUDE_VALUEs <- c(112.3411, 112.347, 112.3571, 112.357, 112.3531, 112.3428)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  8.83903, 8.83191, 8.83259, 8.86719, 8.88432, 8.89314, 8.88551, 8.8811, 8.86837, 8.85209, 
  8.84395)
LONGITUDE_VALUEs <- c(
  112.2106, 112.2169, 112.226, 112.2633, 112.2681, 112.254, 112.2351, 112.2071, 112.1874, 112.1788, 
  112.1854)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  8.63861, 8.64001, 8.64262, 8.64432, 8.65041, 8.65253, 8.65448, 8.65675, 8.65569, 8.65153, 
  8.64786, 8.64133, 8.63989)
LONGITUDE_VALUEs <- c(
  111.9164, 111.92, 111.9214, 111.9237, 111.9274, 111.9297, 111.9296, 111.924, 111.9213, 111.917, 
  111.9165, 111.9137, 111.914)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(8.65812, 8.66839, 8.68027, 8.68375, 8.6711, 8.67077, 8.66491, 8.65761, 8.6599)
LONGITUDE_VALUEs <- c(111.6764, 111.697, 111.7006, 111.6913, 111.6672, 111.6507, 111.6422, 111.6476, 111.6605)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(8.57619, 8.5565, 8.55464, 8.57076, 8.59877, 8.59317)
LONGITUDE_VALUEs <- c(111.4673, 111.4676, 111.4995, 111.5265, 111.5292, 111.4915)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(6.95141, 6.94831, 6.94263, 6.93742, 6.93514, 6.93854, 6.94222, 6.94831, 6.95258)
LONGITUDE_VALUEs <- c(113.5744, 113.573, 113.5721, 113.5748, 113.5809, 113.5894, 113.5905, 113.5824, 113.5791)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(10.37729, 10.31177, 10.31683, 10.37864)
LONGITUDE_VALUEs <- c(117.2686, 117.2696, 117.3173, 117.3132)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(10.12931, 10.08538, 10.08098, 10.12999)
LONGITUDE_VALUEs <- c(117.3338, 117.3324, 117.3781, 117.3763)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(9.37822, 9.35213, 9.34725, 9.3608, 9.3724, 9.39518, 9.41847, 9.41821)
LONGITUDE_VALUEs <- c(115.4252, 115.4331, 115.4477, 115.4657, 115.4578, 115.4584, 115.4518, 115.4478)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(9.59742, 9.59446, 9.59835, 9.60995, 9.60453)
LONGITUDE_VALUEs <- c(116.1596, 116.1677, 116.1709, 116.1714, 116.1627)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(9.45318, 9.46444, 9.46817, 9.45792, 9.44836, 9.44785)
LONGITUDE_VALUEs <- c(116.933, 116.9352, 116.9303, 116.9178, 116.9209, 116.926)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(10.12802, 10.11602, 10.11146, 10.10013, 10.10791, 10.12734)
LONGITUDE_VALUEs <- c(116.1407, 116.1369, 116.1294, 116.1385, 116.1479, 116.1466)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(11.06615, 11.02639, 11.03751, 11.0803)
LONGITUDE_VALUEs <- c(117.6174, 117.6263, 117.6709, 117.6644)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(11.08064, 11.05065, 11.06985, 11.09748)
LONGITUDE_VALUEs <- c(117.4412, 117.4509, 117.5071, 117.4804)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(8.50184, 8.46483, 8.47569, 8.51814)
LONGITUDE_VALUEs <- c(115.2317, 115.2402, 115.2776, 115.2639)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(8.46279, 8.44411, 8.47433, 8.49335)
LONGITUDE_VALUEs <- c(115.4915, 115.5166, 115.5444, 115.5221)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(8.46483, 8.45498, 8.43358, 8.44479)
LONGITUDE_VALUEs <- c(115.9698, 115.954, 115.9674, 115.9815)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(7.9932, 8.05813, 8.05406, 7.99558)
LONGITUDE_VALUEs <- c(115.3981, 115.3988, 115.3566, 115.3556)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(9.21071, 9.20165, 9.20317, 9.21139)
LONGITUDE_VALUEs <- c(113.6596, 113.6619, 113.6689, 113.6664)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(7.27643, 7.2703, 7.36564, 7.52133, 7.51997, 7.5649, 7.62752, 7.61663, 7.46143)
LONGITUDE_VALUEs <- c(109.2983, 109.334, 109.4335, 109.7343, 109.9279, 110.0666, 110.0487, 109.6273, 109.4185)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(8.05742, 7.85477, 7.80307, 7.80987, 8.05606)
LONGITUDE_VALUEs <- c(110.0049, 109.8291, 109.8497, 110.0419, 110.0543)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(7.7813, 7.90102, 7.89286, 7.82892, 7.77449)
LONGITUDE_VALUEs <- c(110.5251, 110.521, 110.4716, 110.4112, 110.4345)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(7.96086, 7.95814, 8.14579, 8.14171)
LONGITUDE_VALUEs <- c(110.5528, 110.6338, 110.6255, 110.5541)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(8.2124, 8.09005, 8.19337, 8.2953)
LONGITUDE_VALUEs <- c(110.377, 110.3441, 110.6955, 110.6255)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(7.56286, 7.54278, 7.69511, 7.86588, 7.98557, 8.02093, 7.98285, 7.7373)
LONGITUDE_VALUEs <- c(111.5041, 111.5391, 111.7722, 111.7708, 111.7434, 111.6809, 111.604, 111.5189)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(5.97236, 5.95494, 5.94367, 5.9447, 5.95221, 5.96997)
LONGITUDE_VALUEs <- c(112.5267, 112.5134, 112.5185, 112.536, 112.5394, 112.5329)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(5.69536, 5.73294, 5.79511, 5.8764, 5.90918, 5.90918, 5.84873, 5.72611)
LONGITUDE_VALUEs <- c(112.4708, 112.5281, 112.5418, 112.5446, 112.5329, 112.5206, 112.4656, 112.4152)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(5.36304, 5.37534, 5.37517, 5.3656)
LONGITUDE_VALUEs <- c(112.6244, 112.6322, 112.6237, 112.6191)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(5.5014, 5.48688, 5.46654, 5.47543, 5.48312, 5.50635)
LONGITUDE_VALUEs <- c(112.4464, 112.453, 112.5019, 112.5134, 112.5097, 112.4528)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(5.51769, 5.46233, 5.47326, 5.54639, 5.55289)
LONGITUDE_VALUEs <- c(112.5391, 112.5837, 112.5957, 112.5655, 112.5498)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  5.66883, 5.66473, 5.61621, 5.59759, 5.56513, 5.54036, 5.54685, 5.52788, 5.55351, 5.63694, 
  5.68614, 5.64377)
LONGITUDE_VALUEs <- c(
  112.3805, 112.3718, 112.3573, 112.3604, 112.438, 112.4728, 112.4839, 112.5266, 112.5324, 112.4993, 
  112.5, 112.4395)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(4.82062, 4.80608, 4.80933, 4.8278)
LONGITUDE_VALUEs <- c(112.4871, 112.4924, 112.5118, 112.5074)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(4.99627, 4.95591, 4.95317, 4.99627, 5.01046)
LONGITUDE_VALUEs <- c(112.8471, 112.8399, 112.8577, 112.8831, 112.8811)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(4.97968, 4.96754, 4.96053, 4.97592)
LONGITUDE_VALUEs <- c(112.6033, 112.5947, 112.6062, 112.6152)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(5.03132, 5.02089, 5.00927, 5.01303, 5.03338, 5.03526)
LONGITUDE_VALUEs <- c(112.471, 112.4732, 112.4852, 112.4895, 112.4828, 112.4751)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(5.0751, 5.07117, 5.08331, 5.0857)
LONGITUDE_VALUEs <- c(112.508, 112.5213, 112.5225, 112.5117)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(5.01166, 5.02038, 5.03577, 5.03286, 5.01918)
LONGITUDE_VALUEs <- c(112.6416, 112.6469, 112.6313, 112.6272, 112.6392)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(5.08433, 5.07613, 5.07801, 5.08604)
LONGITUDE_VALUEs <- c(112.6466, 112.6473, 112.6574, 112.6552)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(5.08057, 5.07305, 5.07527, 5.08262)
LONGITUDE_VALUEs <- c(112.575, 112.5781, 112.5832, 112.5798)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(5.0515, 5.05475, 5.06228, 5.06159)
LONGITUDE_VALUEs <- c(112.5971, 112.6033, 112.5982, 112.5925)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(5.09003, 5.10089, 5.10029, 5.0932, 5.08559)
LONGITUDE_VALUEs <- c(112.5674, 112.5638, 112.5604, 112.5585, 112.566)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(5.06481, 5.06421, 5.04857, 5.03489, 5.04087, 5.05395)
LONGITUDE_VALUEs <- c(112.6668, 112.67, 112.6666, 112.6589, 112.6588, 112.6656)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
MGeo_1 <- MGeo_1 %>% 
  mutate(NAME = "SPRATLY ISLANDS", VISUALIZATION_NAME = "Spratly Islands", 
         ISO2 = NA, ISO3 = NA, M49_CODE = NA, SOVRN = NA, CONTINENT = "ASIA",  CONTINENT_CODE = "142", 
         SREGION = "South-Eastern Asia", SREGION_CODE = "035", IREGION = NA, IREGION_CODE = NA, SIREGION = SREGION, SIREGION_CODE = "035",
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, MGeo_1)
#DATA MANIPULATIONs on COUNTRIEs_CODEs_FEATUREs
DATA <- COUNTRIEs_CODEs_FEATUREs %>%
  rename_with(.fn = ~ paste0("FAO_", ., recycle0 = TRUE), .cols = c(2:4, 7:8)) %>% #Rename duplicate columns
  distinct(NAME, .keep_all = TRUE) %>% #Remove duplicate rows
  #DATA MANIPULATIONs
  mutate(
    #FAO_M49_CODE From NUMERIC TO CHARACTER
    FAO_M49_CODE = case_when(
      nchar(FAO_M49_CODE) == 1 ~ paste0("00", FAO_M49_CODE), 
      nchar(FAO_M49_CODE) == 2 ~ paste0("0", FAO_M49_CODE), TRUE ~ as.character(FAO_M49_CODE)),
    #New Variable => FAO_SOVRN
    FAO_SOVRN = ifelse(is.na(COLOR_CODE) | COLOR_CODE == "XXX", NA, ifelse(STATUS == "Member State", NAME, "!MEMBER-STATE")))
#New Variable => FAO_SOVRN
for (ROW in 1:nrow(DATA)) {
  if (!is.na(DATA$FAO_SOVRN[ROW])) {
    if (DATA$FAO_SOVRN[ROW] == "!MEMBER-STATE") {
      COUNTRY <- DATA$NAME[DATA$COLOR_CODE == DATA$COLOR_CODE[ROW] & DATA$STATUS == "Member State"]
      COUNTRY <- COUNTRY[!is.na(COUNTRY)]
      if (length(COUNTRY) != 0) {DATA$FAO_SOVRN[ROW] <- COUNTRY} else {DATA$FAO_SOVRN[ROW] <- NA}}}}
#Remove superfluous columns
DATA <- DATA %>% select(1, 3:4, 2, 9, 7:8)

#GeoDATA To DATA_from_Fondation
DATA_from_Fondation <- GeoDATA %>% st_drop_geometry()

#Combine DATA_from_Fondation | DATA
DATA_from_Fondation <- left_join(
  DATA_from_Fondation, DATA %>% select(1, 6:7), by = c("VISUALIZATION_NAME" = "NAME")) %>% 
  select(1:7, 16, 8:13, 17, 14:15) #Columns ORDER

#Combine GeoDATA | COUNTRIEs_CODEs_FEATUREs
GeoDATA <- left_join(
  GeoDATA, DATA %>% select(1, 6:7), by = c("VISUALIZATION_NAME" = "NAME")) %>%
  select(1:7, 17, 8:13, 18, 14:16) #Columns ORDER

#Table => Countries in GeoDATA (!in COUNTRIEs_CODEs_FEATUREs)
DATA <- GeoDATA %>% st_drop_geometry()
datatable(DATA[is.na(DATA$FAO_CONTINENT), ][ , c(1, 8)], 
          options = list(scrollX = TRUE, autoWidth = TRUE, 
                         columnDefs = list(list(targets = "_all", render = JS(
                           "function(data, type, row, meta) {",
                           "  if (type === 'display' && data === null) {",
                           "    return 'NA';", "  }", "  return data;", "}")))), 
          style = "bootstrap", rownames = FALSE, caption = "Countries in GeoDATA (!in COUNTRIEs_CODEs_FEATUREs)") %>%
  formatStyle(columns = 1, textAlign = "left") %>% formatStyle(columns = 2, textAlign = "center")
GeoDATA <- GeoDATA %>% select(-8, -15)

SAINT BARTHÉLEMY is in ResidenceIMS.

Numeric Code (M49_CODE) for SAINT BARTHÉLEMY.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "SAINT BARTHÉLEMY")

##### SAINT BARTHÉLEMY #####
LATITUDE_VALUEs <- c(17.9523, 17.95297, 17.95079, 17.95027, 17.95148)
LONGITUDE_VALUEs <- c(-62.94679, -62.94695, -62.94792, -62.94756, -62.94584)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(17.97307, 17.97346, 17.9736, 17.97383, 17.97375, 17.974, 17.97406, 17.97366, 17.97342)
LONGITUDE_VALUEs <- c(-62.92586, -62.92501, -62.92541, -62.92548, -62.92578, -62.92579, -62.92647, -62.92641, -62.92656)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(17.95688, 17.95615, 17.95625, 17.9569, 17.95728)
LONGITUDE_VALUEs <- c(-62.91167, -62.91078, -62.91024, -62.91041, -62.91141)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(17.95673, 17.95696, 17.95731, 17.95759, 17.95716, 17.9566, 17.95648)
LONGITUDE_VALUEs <- c(-62.8964, -62.89543, -62.89556, -62.89655, -62.89753, -62.89754, -62.89673)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  17.96016, 17.95947, 17.95877, 17.9571, 17.95724, 17.958, 17.95726, 17.95632, 17.95508, 17.95373, 
  17.95203, 17.95095, 17.95224, 17.95385, 17.95497, 17.95487, 17.95636, 17.95693, 17.95836, 17.95838, 
  17.9589, 17.96002, 17.96098)
LONGITUDE_VALUEs <- c(
  -62.90956, -62.90956, -62.91025, -62.91025, -62.90718, -62.90632, -62.90317, -62.90278, -62.90392, -62.90366, 
  -62.90497, -62.9024, -62.90205, -62.90246, -62.90102, -62.89873, -62.89847, -62.89774, -62.89846, -62.89986, 
  -62.9004, -62.90448, -62.90484)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(17.95689, 17.95463, 17.95494, 17.95538, 17.95568, 17.95533, 17.95566, 17.95603, 17.95632, 17.95701)
LONGITUDE_VALUEs <- c(-62.87441, -62.87405, -62.87246, -62.87259, -62.87214, -62.87158, -62.87079, -62.87095, -62.87286, -62.87402)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(17.95629, 17.95586, 17.95568, 17.95589, 17.9562, 17.95617, 17.95672, 17.95679)
LONGITUDE_VALUEs <- c(-62.86828, -62.86806, -62.86707, -62.86643, -62.86659, -62.86724, -62.86716, -62.86775)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  17.93415, 17.93066, 17.92986, 17.93111, 17.93138, 17.9355, 17.93711, 17.93651, 17.9371, 17.93576, 
  17.93572, 17.93464)
LONGITUDE_VALUEs <- c(
  -62.85476, -62.85502, -62.85285, -62.85109, -62.84948, -62.84678, -62.8472, -62.8488, -62.8496, -62.85141, 
  -62.85249, -62.85335)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  17.93905, 17.94011, 17.93995, 17.94171, 17.94136, 17.94211, 17.94148, 17.94189, 17.94089, 17.94083, 
  17.93973, 17.94066, 17.93905, 17.93679, 17.93934)
LONGITUDE_VALUEs <- c(
  -62.83333, -62.83253, -62.83047, -62.83015, -62.83176, -62.83236, -62.83285, -62.83348, -62.83373, -62.83433, 
  -62.83515, -62.83622, -62.83749, -62.83704, -62.83444)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(17.94103, 17.94034, 17.9406, 17.94142)
LONGITUDE_VALUEs <- c(-62.81838, -62.81758, -62.81718, -62.81767)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(17.94456, 17.94576, 17.94558, 17.94397)
LONGITUDE_VALUEs <- c(-62.81928, -62.81853, -62.81787, -62.81813)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(17.94265, 17.94165, 17.94339, 17.94401, 17.94364, 17.94295, 17.94303)
LONGITUDE_VALUEs <- c(-62.81974, -62.81757, -62.81704, -62.81744, -62.81936, -62.81911, -62.81968)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(17.92359, 17.92337, 17.92358, 17.92312, 17.92381, 17.9242, 17.92415, 17.92393)
LONGITUDE_VALUEs <- c(-62.79564, -62.79554, -62.79542, -62.79536, -62.79466, -62.79519, -62.79537, -62.79517)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(17.91824, 17.91874, 17.91888, 17.92084, 17.92084, 17.91961, 17.91808, 17.91862)
LONGITUDE_VALUEs <- c(-62.79843, -62.79766, -62.79637, -62.79717, -62.79874, -62.8, -62.80014, -62.79948)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(17.92077, 17.91993, 17.92002, 17.91973, 17.91974, 17.9207, 17.92136)
LONGITUDE_VALUEs <- c(-62.877, -62.87634, -62.87572, -62.87546, -62.87528, -62.87521, -62.87603)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(17.90131, 17.90107, 17.90018, 17.90008, 17.90056)
LONGITUDE_VALUEs <- c(-62.86029, -62.86082, -62.86088, -62.86061, -62.86012)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(17.89645, 17.89655, 17.89763, 17.89782, 17.897)
LONGITUDE_VALUEs <- c(-62.87676, -62.87608, -62.87594, -62.87642, -62.87723)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(17.89493, 17.89461, 17.89475, 17.89504)
LONGITUDE_VALUEs <- c(-62.85661, -62.8565, -62.85606, -62.85629)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  17.87488, 17.87356, 17.87336, 17.87291, 17.87257, 17.87227, 17.87178, 17.87205, 17.87258, 17.87295, 
  17.87314, 17.87383, 17.8748, 17.87495, 17.87554, 17.87557, 17.87502)
LONGITUDE_VALUEs <- c(
  -62.814, -62.8133, -62.81259, -62.81221, -62.81247, -62.81238, -62.81121, -62.81116, -62.81178, -62.81167, 
  -62.81191, -62.81199, -62.81251, -62.81309, -62.81278, -62.81322, -62.81332)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  17.91925, 17.91553, 17.91447, 17.90786, 17.90843, 17.90569, 17.90557, 17.90381, 17.9014, 17.89593, 
  17.89503, 17.89859, 17.89863, 17.89528, 17.89181, 17.89054, 17.88156, 17.87996, 17.87808, 17.88433, 
  17.88511, 17.87988, 17.8838, 17.88245, 17.88662, 17.88805, 17.8858, 17.88633, 17.88388, 17.88205, 
  17.88356, 17.89087, 17.89777, 17.89601, 17.89475, 17.89418, 17.89573, 17.90128, 17.90255, 17.90516, 
  17.90663, 17.90863, 17.911, 17.90777, 17.90737, 17.90553, 17.90541, 17.90667, 17.90928, 17.91235, 
  17.91169, 17.91035, 17.90826, 17.91006, 17.91267, 17.91312, 17.91398, 17.91386, 17.91316, 17.9128, 
  17.91304, 17.9121, 17.91022, 17.91031, 17.91165, 17.9148, 17.91588, 17.91778, 17.91778, 17.91631, 
  17.91651, 17.91527, 17.91559, 17.91541, 17.91641, 17.91657, 17.91886, 17.91958, 17.91813, 17.91735, 
  17.91378, 17.9099, 17.90826, 17.90681, 17.90698, 17.90694, 17.9081, 17.90918, 17.90984, 17.90947, 
  17.90841, 17.9082, 17.90686, 17.90588, 17.90406, 17.90285, 17.90269, 17.90347, 17.90291, 17.90463, 
  17.90685, 17.90838, 17.91049, 17.91075, 17.90994, 17.91296, 17.91439, 17.91471, 17.91447, 17.91488, 
  17.9172, 17.91651, 17.91749, 17.92092, 17.92227, 17.92117, 17.9198, 17.91904, 17.91957, 17.92208, 
  17.92141, 17.92051, 17.91972, 17.92192, 17.9239, 17.92462, 17.92515, 17.92519, 17.9267, 17.92913, 
  17.92845, 17.92715, 17.9266, 17.927, 17.92631, 17.92496, 17.92316, 17.92157, 17.92171, 17.92109,
  17.92129, 17.92, 17.92046, 17.91977, 17.92)
LONGITUDE_VALUEs <- c(
  -62.87008, -62.8697, -62.86669, -62.86069, -62.85631, -62.8555, -62.85438, -62.85232, -62.85309, -62.84863, 
  -62.85, -62.85167, -62.85412, -62.85335, -62.84743, -62.84794, -62.83966, -62.84039, -62.83661, -62.83404, 
  -62.83155, -62.82773, -62.82644, -62.82439, -62.82361, -62.81867, -62.81734, -62.81554, -62.81541, -62.81322, 
  -62.81039, -62.80971, -62.79588, -62.79404, -62.79404, -62.7925, -62.79151, -62.79241, -62.79035, -62.7894, 
  -62.79018, -62.78893, -62.78975, -62.79249, -62.79429, -62.79417, -62.79614, -62.79734, -62.79597, -62.79735, 
  -62.79949, -62.79909, -62.80085, -62.80372, -62.80317, -62.80183, -62.80244, -62.80351, -62.80347, -62.80454, 
  -62.80523, -62.8066, -62.80707, -62.80888, -62.81003, -62.80686, -62.80834, -62.80819, -62.80888, -62.80879, 
  -62.80995, -62.81139, -62.81199, -62.81282, -62.81282, -62.81403, -62.81403, -62.81478, -62.81592, -62.81759, 
  -62.8172, -62.82049, -62.82085, -62.82388, -62.82531, -62.82656, -62.82795, -62.82694, -62.82755, -62.82952, 
  -62.83021, -62.83117, -62.83203, -62.83396, -62.83265, -62.8343, -62.83572, -62.83593, -62.83679, -62.84031, 
  -62.84136, -62.8395, -62.84008, -62.84109, -62.84272, -62.84495, -62.84499, -62.84441, -62.84413, -62.84362, 
  -62.84458, -62.84737, -62.8489, -62.84935, -62.85035, -62.8542, -62.85439, -62.8572, -62.85971, -62.86132, 
  -62.86211, -62.86177, -62.86351, -62.86533, -62.8654, -62.86737, -62.86754, -62.86694, -62.86645, -62.86791, 
  -62.87083, -62.87252, -62.87231, -62.87132, -62.86902, -62.8682, -62.86843, -62.86946, -62.87172, -62.87290, 
  -62.87416, -62.87357, -62.87274, -62.87185, -62.87116)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "SAINT BARTHÉLEMY")
GeoDATA <- rbind(GeoDATA, Geo_1)

SAINT MARTIN is in ResidenceIMS.

Numeric Code (M49_CODE) for SAINT MARTIN.

Now in Our World Administrative Boundaries (GeoDATA):

  • Size in R: 10MB
  • Areas: 264 Countries/Territories (264 NAME)
  • 250/249 ISO2 | ISO3 from International Organization for Standardization (ISO) (CLIPPERTON ISLAND)
  • 249/249 Numeric Code (M49_CODE) from International Organization for Standardization (ISO)
  • 182/264 Geometries (SOURCE) from World Health Organization (WHO) - Countries
  • 040/264 Geometries (SOURCE) from Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques
  • 033/264 Geometries (SOURCE) from WHO - Countries and Fondation Jean-Jacques Laffont - TSE
  • 002/264 Geometries (SOURCE) from Global Administrative Areas (GADM)
  • 003/264 Geometries (SOURCE) from Fondation Jean-Jacques Laffont - TSE and Global Administrative Areas (GADM)
  • 004/264 Geometries (SOURCE) from WHO - Countries and Fondation - TSE and Global Administrative Areas (GADM)
#Countries/Territories in GeoDATA
DATA <- GeoDATA %>% st_drop_geometry()
datatable(DATA[ , c(1, 5, 15)], options = list(scrollX = TRUE, autoWidth = TRUE), 
          caption = "Countries/Territories in GeoDATA", style = "bootstrap", rownames = FALSE) %>%
  formatStyle(columns = c(1, 3), textAlign = "left") %>% formatStyle(columns = 2, textAlign = "center")

NAME in GeoDATA \(>\) Residence in International Migrant Stock Data (Residences_in_iMIGRANT_Stock) [264 \(>\) 235].

NAME in GeoDATA \(>\) NAME in GeoDATA_from_WHO (264 \(>\) 241):

  • AKROTIRI AND DHEKELIA (SBA) | CLIPPERTON ISLAND
  • PARACEL ISLANDS | SCARBOROUGH REEF | SPRATLY ISLANDS

5.3.2 M49 Codes

We check that all countries/territories in M49_CODEs are in GeoDATA.

#Replace Values in NAME
M49_CODEs <- M49_CODEs %>%
  mutate_if(
    is.character, ~case_when(
      . == "Belgium-Luxembourg" ~ "Belgium-Luxembourg Economic Union",
      . == "Bolivia (Plurinational State of)" ~ "Bolivia",
      . == "Cape Verde" ~ "Cabo Verde",
      . == "Czech Republic" ~ "Czechia",
      . == "Democratic People's Republic of Korea" ~ "Dem. People's Republic of Korea",
      . == "Ethiopia PDR" ~ "People's Democratic Republic of Ethiopia",
      . == "French Southern and Antarctic Territories" ~ "French Southern Territories",
      . == "Iran (Islamic Republic of)" ~ "Iran",
      . == "Micronesia (Federated States of)" ~ "Micronesia",
      . == "Occupied Palestinian Territory" ~ "State of Palestine",
      . == "Pacific Islands Trust Territory" ~ "Trust Territory of the Pacific Islands",
      . == "Pitcairn Islands" ~ "Pitcairn",
      . == "Sudan (former)" ~ "Sudan (Former)",
      . == "Svalbard and Jan Mayen Islands" ~ "Svalbard and Jan Mayen",
      . == "Swaziland" ~ "Eswatini",
      . == "The former Yugoslav Republic of Macedonia" ~ "North Macedonia",
      . == "Turkey" ~ "Türkiye",
      . == "United Kingdom" ~ "United Kingdom of Great Britain and Northern Ireland",
      . == "USSR" ~ "Union of Soviet Socialist Republics",
      . == "Venezuela (Bolivarian Republic of)" ~ "Venezuela", 
      . == "Yugoslav SFR" ~ "Socialist Federal Republic of Yugoslavia", TRUE ~ .))

#Combine M49_CODEs | GeoDATA
DATA <- left_join(M49_CODEs, GeoDATA %>% st_drop_geometry(), by = c("NAME" = "VISUALIZATION_NAME"))
datatable(DATA[is.na(DATA$CONTINENT), ][ , c(2, 9)], 
          options = list(scrollX = TRUE, autoWidth = TRUE, 
                         columnDefs = list(list(targets = "_all", render = JS(
                           "function(data, type, row, meta) {",
                           "  if (type === 'display' && data === null) {",
                           "    return 'NA';", "  }", "  return data;", "}")))), 
          style = "bootstrap", rownames = FALSE, 
          caption = "Countries in M49_CODEs (!in GeoDATA)") %>% 
  formatStyle(columns = 1, textAlign = "left", `text-transform` = "uppercase") %>% 
  formatStyle(columns = 2, textAlign = "center")

SERBIA AND MONTENEGRO (2003–2006) in M49_CODEs \(=\) MONTENEGRO \(+\) SERBIA in GeoDATA.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "MONTENEGRO")
Geo_2 <- GeoDATA %>% filter(NAME == "SERBIA")
Geo_3 <- GeoDATA %>% filter(NAME == "CROATIA")
Geo_4 <- GeoDATA %>% filter(NAME == "BOSNIA AND HERZEGOVINA")
Geo_5 <- GeoDATA %>% filter(NAME == "ALBANIA")

##### MONTENEGRO #####
LATITUDE_VALUEs <- c(
  43.52851, 43.52752, 43.52702, 43.52304, 43.5193, 43.51656, 43.51221, 43.50449, 43.50424, 43.49478,
  43.49179, 43.48643, 43.48319, 43.4665, 43.46114, 43.46114, 43.45292, 43.44444, 43.44482, 43.43983,
  43.44208, 43.43746, 43.43697, 43.4346, 43.41727, 43.41141, 43.41328, 43.41265, 43.40854, 43.40704,
  43.40093, 43.40106, 43.39257, 43.39382, 43.39158, 43.39307, 43.38846, 43.36687, 43.36525, 43.35814,
  43.35489, 43.35227, 43.34478, 43.33354, 43.3273, 43.31931, 43.30957, 43.30932, 43.30394, 43.28433,
  43.27271, 43.27133, 43.25346, 43.24795, 43.2417, 43.24008, 43.23032, 43.22569, 43.22257, 43.21193,
  43.20668, 43.2033, 43.18866, 43.18503, 43.17852, 43.17314, 43.16813, 43.17213, 43.15899, 43.16024,
  43.16412, 43.16375, 43.16575, 43.16049, 43.15836, 43.14584, 43.14221, 43.13857, 43.13319, 43.12805,
  43.12266, 43.12304, 43.11514, 43.11778, 43.11289, 43.10737, 43.0996, 43.09609, 43.09396, 43.10036,
  43.10036, 43.11364, 43.106, 43.10249, 43.10249, 43.09697, 43.0991, 43.0907, 43.08594, 43.09584,
  43.09622, 43.10073, 43.10286, 43.11076, 43.11201, 43.10487, 43.08556, 43.05045, 43.03376, 43.0172,
  43.00917, 43.00628, 43.00013, 42.99636, 42.99724, 42.99322, 42.99573, 42.99184, 42.98167, 42.97388,
  42.96383, 42.96748, 42.96936, 42.97464, 42.97928, 42.98933, 42.98845, 42.97439, 42.97575, 42.97148,
  42.95917, 42.95804, 42.94045, 42.9402, 42.93191, 42.93467, 42.93228, 42.93203, 42.92713, 42.92763,
  42.92185, 42.92323, 42.91732, 42.9172, 42.91456, 42.91619, 42.91242, 42.91318, 42.90764, 42.91142,
  42.89545, 42.8879, 42.87746, 42.86979, 42.85494, 42.8528, 42.84588, 42.84084, 42.83707,
  42.83329, 42.83267, 42.83318, 42.8362, 42.83582, 42.83356, 42.83368, 42.82638, 42.83028, 42.83595,
  42.83607, 42.82512, 42.82613, 42.83091, 42.82575, 42.8216, 42.81454, 42.81543, 42.81102, 42.8046,
  42.80422, 42.79779, 42.77814, 42.76705, 42.75911, 42.75697, 42.75243, 42.75306, 42.74651, 42.75142,
  42.7455, 42.75357, 42.75609, 42.75848, 42.76831, 42.7634, 42.75445, 42.77008, 42.77361, 42.77739,
  42.77461, 42.77512, 42.77978, 42.77701, 42.77335, 42.77461, 42.76907, 42.76541, 42.76516, 42.75735,
  42.75231, 42.74916, 42.74487, 42.74285, 42.73516, 42.72873, 42.72217, 42.72091, 42.71284, 42.71372,
  42.70956, 42.71095, 42.70615, 42.69732, 42.69581, 42.68471, 42.68483, 42.68042, 42.68016, 42.66868,
  42.66653, 42.65555, 42.64798, 42.64229, 42.62878, 42.62284, 42.61299, 42.60781, 42.57584, 42.57065,
  42.56813, 42.55966, 42.55624, 42.55586,
  42.55561, 42.5594, 42.54992, 42.54334, 42.5441, 42.53651, 42.52993, 42.5188, 42.51298, 42.50881,
  42.51172, 42.51083, 42.5126, 42.50944, 42.51146, 42.5188, 42.5126, 42.50741, 42.50678, 42.50058,
  42.49602, 42.49374, 42.49058, 42.48856, 42.48501, 42.48463, 42.49438, 42.49602, 42.4845, 42.48121,
  42.48501, 42.47678, 42.4802, 42.47843, 42.47362, 42.46615, 42.47336, 42.47817, 42.4821, 42.49678,
  42.50172, 42.50982, 42.51766, 42.54701, 42.55068, 42.55776, 42.56446, 42.57571, 42.57761, 42.58165,
  42.58026, 42.5838, 42.58102, 42.58595, 42.59606, 42.59947, 42.61097, 42.61375, 42.62019, 42.62499,
  42.63118, 42.63522, 42.6409, 42.64255, 42.65618, 42.66136, 42.65101, 42.64545, 42.63787, 42.63914,
  42.62752, 42.63068, 42.57445, 42.56939, 42.56294, 42.55915, 42.54233, 42.53765, 42.53044, 42.51399,
  42.50109, 42.46944, 42.46501, 42.46412, 42.45855, 42.45145, 42.44246, 42.43777, 42.43372, 42.43081,
  42.42333, 42.42371, 42.41015, 42.40419, 42.39126, 42.38454, 42.3853, 42.37326, 42.36463, 42.35715,
  42.35093, 42.33317, 42.32746, 42.29344, 42.28302, 42.25546, 42.24046, 42.18045, 42.10357, 42.07809,
  42.07274, 42.06714, 42.05974, 42.0512, 42.03616, 42.03323, 42.0303, 42.02405, 42.02341, 42.01793,
  42.00453, 42.00211, 41.99803, 41.99675, 41.98859, 41.98565, 41.97876, 41.9743, 41.96701, 41.96165,
  41.95884, 41.93969, 41.92768, 41.91925, 41.91236, 41.90431, 41.89741, 41.8877, 41.88642, 41.87555,
  41.86213, 41.85842, 41.85421, 41.85075,
  41.84744, 41.86547, 41.86726, 41.86918, 41.87288, 41.88924, 41.90522, 41.90956, 41.90943, 41.90585,
  41.91441, 41.92144, 41.9208, 41.92284, 41.92438, 41.92195, 41.92259, 41.92514, 41.92872, 41.93702,
  41.93676, 41.94047, 41.94698, 41.94698, 41.95285, 41.95234, 41.95043, 41.95272, 41.95872, 41.96077,
  41.96409, 41.96715, 41.972, 41.97493, 41.98119, 41.98068, 41.98348, 41.9891, 41.99037, 41.9928,
  41.99293, 41.9979, 41.99943, 42.00428, 42.01283, 42.01831, 42.02061, 42.0266, 42.03093, 42.03285,
  42.03629, 42.04062, 42.04687, 42.047, 42.08306, 42.08931, 42.08536, 42.09045, 42.08918, 42.09287,
  42.09249, 42.09682, 42.11249, 42.12267, 42.12216, 42.12687, 42.13477, 42.1382, 42.13604, 42.13744,
  42.1363, 42.14139, 42.14024, 42.13337, 42.1489, 42.15055, 42.15278, 42.15593, 42.16213, 42.1592,
  42.16366, 42.16302, 42.16569, 42.16709, 42.17562, 42.18579, 42.19635, 42.19533, 42.20093, 42.20156,
  42.20589, 42.20614, 42.21225, 42.21326, 42.22165, 42.2261, 42.23487, 42.23716, 42.24288, 42.24682,
  42.25343, 42.25762, 42.2608, 42.26207, 42.26981, 42.27096, 42.27477, 42.27667, 42.28048, 42.28125,
  42.27972, 42.27591, 42.27807, 42.28429, 42.28493, 42.28023, 42.27731, 42.27718, 42.27337, 42.28531,
  42.28087, 42.27261, 42.28188, 42.2702, 42.26689, 42.28911, 42.29088, 42.29241, 42.30307, 42.30307,
  42.30701, 42.30802, 42.31006, 42.31424, 42.32414, 42.32821, 42.33392, 42.3395, 42.34369, 42.34737,
  42.3461, 42.34978, 42.35295, 42.35866, 42.35701, 42.35257, 42.35447, 42.35942, 42.36386, 42.36551,
  42.36817, 42.36931, 42.37438, 42.37641, 42.38174, 42.38542, 42.38618, 42.3825, 42.38288, 42.38681,
  42.38402, 42.38554, 42.38149, 42.37882, 42.37603, 42.37286, 42.3688, 42.36284, 42.36386, 42.36956,
  42.37096, 42.37007, 42.36398, 42.36221, 42.36817, 42.36551, 42.36449, 42.36944, 42.36995, 42.37337,
  42.37616, 42.38149, 42.3806, 42.38529, 42.38706, 42.38542, 42.39188, 42.39416, 42.39708, 42.39809,
  42.40063, 42.40418, 42.40963, 42.41243, 42.41294, 42.41801, 42.42206, 42.43157, 42.43207, 42.41991,
  42.40914, 42.408, 42.40369, 42.4047, 42.40102, 42.3924, 42.39988, 42.40242, 42.40293, 42.40521,
  42.40495, 42.40597, 42.40698, 42.40622, 42.4066, 42.40939, 42.41345, 42.41687, 42.43131, 42.43929,
  42.43942, 42.44233, 42.44854, 42.45741, 42.45943, 42.46083, 42.46349, 42.46627, 42.47362, 42.47754,
  42.47488, 42.47172, 42.47298, 42.46361, 42.45703, 42.45601, 42.45006, 42.44854, 42.44487, 42.44259,
  42.4398, 42.4341, 42.4265, 42.42156, 42.42282, 42.42574, 42.42903, 42.44183, 42.44892, 42.4531,
  42.45614, 42.46741, 42.47007, 42.47248, 42.47514, 42.47805, 42.48628, 42.4902, 42.48982, 42.48336,
  42.48438, 42.48324, 42.4864, 42.49425, 42.5026, 42.50349, 42.50589, 42.50956, 42.51703, 42.51652,
  42.5045, 42.50501, 42.49223, 42.48716, 42.48678, 42.47931, 42.46577, 42.46222, 42.45994, 42.45614,
  42.44867, 42.45044, 42.4398, 42.43841, 42.43486, 42.43499, 42.43271, 42.43727, 42.43638, 42.45297,
  42.45399, 42.44993, 42.44968, 42.45956, 42.45082, 42.43714, 42.43575, 42.43233, 42.4284, 42.42371,
  42.42308, 42.4208,
  42.42143, 42.42688, 42.43144, 42.44309, 42.44905, 42.45259, 42.46564, 42.47286, 42.47311, 42.48147,
  42.484, 42.4883, 42.49185, 42.5026, 42.51096, 42.5207, 42.52627, 42.55144, 42.55561,
  42.55548, 42.56256, 42.56105, 42.5637, 42.56269, 42.5656, 42.56358, 42.56484, 42.56332, 42.57002, 
  42.57217, 42.58848, 42.5833, 42.57508, 42.57521, 42.57369, 42.58045, 42.5953, 42.60288, 42.61097, 
  42.6188, 42.63169, 42.63484, 42.63724, 42.64381, 42.64305, 42.65618, 42.65669, 42.66174, 42.67183, 
  42.67638, 42.69266, 42.69064, 42.69859, 42.70224, 42.71032, 42.72016, 42.72306, 42.72293, 42.7286, 
  42.73504, 42.73604, 42.74348, 42.75634, 42.77613, 42.81719, 42.82902, 42.83821, 42.85382, 42.86313, 
  42.86099, 42.86439, 42.87735, 42.88037, 42.88691, 42.89282, 42.91495, 42.92362, 42.92853, 42.93883, 
  42.94373, 42.96522, 42.9784, 42.98581, 42.99611, 42.9995, 43.02034, 43.02799, 43.03389, 43.03226, 
  43.03276, 43.02912, 43.0295, 43.03828, 43.03778, 43.12742, 43.14734, 43.2043, 43.21081, 43.22094, 
  43.2322, 43.23645, 43.25533, 43.26396, 43.27908, 43.28958, 43.30532, 43.30732, 43.31506, 43.32106, 
  43.33704, 43.34416, 43.34853, 43.35651, 43.35402, 43.36113, 43.36013, 43.35676, 43.33005, 43.33192, 
  43.3233, 43.32118, 43.31644, 43.31231, 43.30082, 43.2872, 43.2882, 43.28045, 43.27633, 43.27308, 
  43.26233, 43.26046, 43.25245, 43.25108, 43.25996, 43.26371, 43.26633, 43.27396, 43.28133, 43.2907, 
  43.28945, 43.29183, 43.29982, 43.30469, 43.31906, 43.32792, 43.33692, 43.34466, 43.35264, 43.35826, 
  43.36575, 43.37299, 43.3786, 43.3806, 43.38534, 43.38734, 43.39669, 43.39869, 43.40866, 43.41178, 
  43.41652, 43.42723, 43.43795, 43.44181, 43.44206, 43.44618, 43.44593, 43.44206, 43.43882, 43.4453, 
  43.44817, 43.4458, 43.45278, 43.45266, 43.45614, 43.45278, 43.45328, 43.45116, 43.45353, 43.45228, 
  43.45714, 43.46076, 43.46836, 43.47047, 43.4762, 43.48119, 43.48243, 43.4919, 43.49377, 43.5041, 
  43.50261, 43.499, 43.49152, 43.49289, 43.49028, 43.50273, 43.5051, 43.51145, 43.51518, 43.52277, 
  43.52663, 43.52987, 43.53136, 43.53597, 43.54418, 43.55028, 43.55538, 43.55911, 43.54107, 43.54493, 
  43.53485, 43.53298, 43.52414, 43.52078, 43.51219, 43.50323, 43.50335, 43.50173, 43.50535, 43.51095, 
  43.51132, 43.51705, 43.51542, 43.51293, 43.51318, 43.51828, 43.52214, 43.52239, 43.5189, 43.52102, 
  43.52363, 43.52612, 43.52587, 43.53682, 43.53259, 43.53508, 43.53309, 43.53359, 43.53595, 43.53259, 
  43.52985, 43.53122)
LONGITUDE_VALUEs <- c(
  19.22519, 19.22451, 19.22245, 19.22279, 19.22622, 19.22502, 19.22742, 19.22451, 19.22228, 19.22519,
  19.2221, 19.22622, 19.22107, 19.24991, 19.25283, 19.25713, 19.2779, 19.29094, 19.29884, 19.30999,
  19.32098, 19.32905, 19.3342, 19.33386, 19.34794, 19.36046, 19.36578, 19.38364, 19.38999, 19.3881,
  19.39291, 19.39754, 19.41127, 19.41831, 19.42483, 19.4286, 19.44887, 19.45042, 19.45728, 19.46209,
  19.45968, 19.46294, 19.46088, 19.48303, 19.48474, 19.52593, 19.53247, 19.53522, 19.53762, 19.52715,
  19.52938, 19.53441, 19.54488, 19.54351, 19.5636, 19.58678, 19.61855, 19.61851, 19.62676, 19.63191,
  19.63964, 19.63638, 19.64033, 19.66781, 19.67929, 19.67998, 19.68479, 19.73374, 19.73972, 19.75552,
  19.75758, 19.76445, 19.76943, 19.77321, 19.77973, 19.77937, 19.78108, 19.77593, 19.78675, 19.78538,
  19.79207, 19.80546, 19.81044, 19.83122, 19.8405, 19.83294, 19.8362, 19.83346, 19.83878, 19.84565,
  19.8508, 19.86798, 19.88309, 19.8812, 19.88513, 19.8877, 19.90265, 19.90677, 19.91673, 19.91965,
  19.93077, 19.93696, 19.94966, 19.96134, 19.9701, 19.97337, 19.96804, 19.99362, 20.03652, 20.05662,
  20.05335, 20.06503, 20.06587, 20.07378, 20.07876, 20.08082, 20.08632, 20.08804, 20.10298, 20.10298,
  20.1215, 20.12493, 20.13198, 20.13643, 20.13695, 20.14657, 20.1512, 20.15241, 20.15703, 20.17575,
  20.19052, 20.21078, 20.23858, 20.25146, 20.26949, 20.27808, 20.27808, 20.28272, 20.28426, 20.28696,
  20.29933, 20.31135, 20.30981, 20.31633, 20.3196, 20.322, 20.32543, 20.32973, 20.3366, 20.34535,
  20.34947, 20.34414, 20.34638, 20.34122, 20.3493, 20.3469, 20.3481, 20.35205, 20.35136,
  20.35291, 20.34957, 20.3427, 20.33979, 20.33515, 20.33138, 20.32812, 20.32005, 20.31627, 20.31576,
  20.29791, 20.29328, 20.28555, 20.28092, 20.27508, 20.2756, 20.2605, 20.25741, 20.25192, 20.25826,
  20.26255, 20.26187, 20.26616, 20.25276, 20.25035, 20.23594, 20.23388, 20.22169, 20.21157, 20.19887,
  20.18977, 20.18239, 20.17227, 20.17227, 20.15475, 20.14857, 20.14651, 20.10326, 20.10429, 20.09671,
  20.08333, 20.06822, 20.0605, 20.05157, 20.04694, 20.0435, 20.03338, 20.03303, 20.02411, 20.02171,
  20.02359, 20.01965, 20.02033, 20.01433, 20.01587, 20.01433, 20.02256, 20.03286, 20.02205, 20.01707,
  20.0157, 20.03361, 20.03138, 20.03292, 20.0458, 20.05439, 20.06349, 20.0683, 20.08358, 20.08854,
  20.09472, 20.11155, 20.10864, 20.09525, 20.08821, 20.07601, 20.0755, 20.07224, 20.08975, 20.08374,
  20.08443, 20.07876, 20.07893, 20.07636,
  20.07337, 20.05672, 20.049, 20.02548, 20.01673, 20.0133, 20.01604, 20.00917, 20.00883, 20.00179,
  19.99441, 19.98343, 19.98189, 19.96489, 19.95151, 19.94155, 19.92522, 19.91664, 19.906, 19.90377,
  19.90549, 19.90085, 19.90257, 19.89931, 19.89879, 19.89468, 19.88472, 19.87631, 19.87184, 19.86464,
  19.85554, 19.84713, 19.84027, 19.83615, 19.83838, 19.83151, 19.80695, 19.80232, 19.79065, 19.78121,
  19.76594, 19.76044, 19.76095, 19.74276, 19.74996, 19.74911, 19.7546, 19.74773, 19.7534, 19.75134,
  19.75992, 19.76308, 19.77373, 19.77613, 19.77287, 19.76583, 19.75913, 19.75175, 19.75364, 19.74884,
  19.75021, 19.75759, 19.75176, 19.73681, 19.73458, 19.72462, 19.69817, 19.70058, 19.68976, 19.68684,
  19.67945, 19.66451, 19.60908, 19.61252, 19.60926, 19.61253, 19.61648, 19.60532, 19.60206, 19.56137,
  19.56291, 19.53786, 19.53855, 19.53391, 19.53185, 19.52069, 19.51948, 19.50248, 19.50354, 19.49667,
  19.49821, 19.4934, 19.48653, 19.47881, 19.47194, 19.45288, 19.44687, 19.4254, 19.42128, 19.42472,
  19.41322, 19.41683, 19.42215, 19.38369, 19.38455, 19.3576, 19.34935, 19.28103, 19.40224, 19.38404,
  19.37769, 19.37906, 19.37648, 19.37889, 19.36979, 19.37185, 19.36859, 19.36927, 19.37322, 19.37116,
  19.37356, 19.38026, 19.37889, 19.38181, 19.38026, 19.38181, 19.37614, 19.37597, 19.38851, 19.3837,
  19.3521, 19.34989, 19.37136, 19.36947, 19.34337, 19.34234, 19.36621, 19.36879, 19.38201, 19.37479,
  19.37479, 19.37152, 19.37308, 19.37273,
  19.36802, 19.3373, 19.3378, 19.33282, 19.3311, 19.30365, 19.25678, 19.23962, 19.23516, 19.23584,
  19.22589, 19.20837, 19.20443, 19.20563, 19.20254, 19.20202, 19.19979, 19.20065, 19.18589, 19.17456,
  19.17061, 19.1622, 19.15619, 19.15276, 19.14847, 19.15619, 19.16443, 19.1658, 19.16065, 19.15413,
  19.15207, 19.14486, 19.14297, 19.13816, 19.14331, 19.15086, 19.15223, 19.14966, 19.14177, 19.144,
  19.14777, 19.14485, 19.14915, 19.14434, 19.15138, 19.14142, 19.14863, 19.14932, 19.13885, 19.14297,
  19.1416, 19.14372, 19.13857, 19.13377, 19.07401, 19.06973, 19.08536, 19.08175, 19.08879, 19.08604,
  19.08999, 19.09119, 19.08484, 19.06578, 19.05994, 19.06355, 19.06028, 19.04949, 19.04468, 19.03454,
  19.02561, 19.02355, 19.01703, 19.01136, 19.00193, 19.00307, 19.00265, 19.00472, 18.99712, 18.99128,
  18.99042, 18.9851, 18.9851, 18.97686, 18.96535, 18.97171, 18.96261, 18.95282, 18.94973, 18.94409,
  18.94048, 18.9307, 18.92383, 18.91781, 18.90511, 18.90665, 18.90287, 18.89654, 18.89894, 18.89534,
  18.89654, 18.89207, 18.89344, 18.89035, 18.8919, 18.88812, 18.88829, 18.88091, 18.88108, 18.8706,
  18.86013, 18.86098, 18.85789, 18.85618, 18.84312, 18.83711, 18.83917, 18.83299, 18.82904, 18.81122,
  18.79988, 18.80555, 18.7846, 18.78631, 18.77858, 18.74924, 18.75164, 18.7458, 18.73551, 18.72967,
  18.73311, 18.72452, 18.72504, 18.71628, 18.70718, 18.71491, 18.70822, 18.70822, 18.70083, 18.69946,
  18.69637, 18.69482, 18.68761, 18.68761, 18.69722, 18.70427, 18.70684, 18.69997, 18.70101, 18.69809,
  18.69689, 18.68968, 18.68727, 18.69157, 18.68367, 18.68504, 18.68109, 18.68109, 18.67508, 18.6658,
  18.66357, 18.65687, 18.65172, 18.65344, 18.65206, 18.65825, 18.65241, 18.65361, 18.64399, 18.64348,
  18.63884, 18.6318, 18.63317, 18.62768, 18.6172, 18.61552, 18.60796, 18.61002, 18.60109, 18.60023,
  18.59062, 18.59268, 18.58529, 18.58375, 18.57877, 18.57756, 18.57019, 18.57981, 18.57655, 18.58084,
  18.58033, 18.55886, 18.55594, 18.55915, 18.54679, 18.54833, 18.5461, 18.56327, 18.57717, 18.62146,
  18.65081, 18.66231, 18.67329, 18.68359, 18.69595, 18.70317, 18.71073, 18.70558, 18.71073, 18.70935,
  18.7042, 18.70146, 18.70317, 18.70609, 18.71296, 18.7145, 18.7121, 18.71313, 18.69305, 18.69133,
  18.68446, 18.68687, 18.68635, 18.6812, 18.68137, 18.68343, 18.68223, 18.68618, 18.68618, 18.69047,
  18.70162, 18.70557, 18.71209, 18.73663, 18.74316, 18.74728, 18.7502, 18.75501, 18.75209, 18.75552,
  18.75329, 18.75844, 18.75878, 18.76273, 18.77141, 18.76729, 18.76815, 18.76248, 18.76592, 18.76471,
  18.76626, 18.76248, 18.76437, 18.76299, 18.76505, 18.76248, 18.76626, 18.76385, 18.75337, 18.73483,
  18.72452, 18.70855, 18.69739, 18.69, 18.69225, 18.69414, 18.69311, 18.69672, 18.69208, 18.68401,
  18.67611, 18.66958, 18.64968, 18.65139, 18.66702, 18.68729, 18.6732, 18.6732, 18.67681, 18.66169,
  18.65534, 18.65208, 18.62719, 18.61551, 18.60915, 18.60263, 18.59919, 18.59249, 18.58854, 18.56986,
  18.56024, 18.55457, 18.53499, 18.51683, 18.50309, 18.51184, 18.51785, 18.51785, 18.52747, 18.53039,
  18.52627, 18.52524,
  18.52241, 18.51623, 18.50577, 18.49204, 18.48946, 18.4826, 18.47332, 18.45803, 18.45254, 18.44276,
  18.43315, 18.43864, 18.43727, 18.44105, 18.44705, 18.43675, 18.43933, 18.44036, 18.43795,
  18.4426, 18.4438, 18.44946, 18.45152, 18.45461, 18.4577, 18.46165, 18.46731, 18.47332, 18.47417, 
  18.48361, 18.50043, 18.52842, 18.53614, 18.54061, 18.54335, 18.55447, 18.5485, 18.53357, 18.53082, 
  18.52035, 18.52876, 18.53631, 18.53768, 18.56189, 18.57494, 18.56876, 18.5643, 18.56395, 18.54867, 
  18.55056, 18.54558, 18.55193, 18.55485, 18.56172, 18.56103, 18.57047, 18.54679, 18.53048, 18.51915, 
  18.51366, 18.49599, 18.49925, 18.47195, 18.4704, 18.45066, 18.47589, 18.46559, 18.46765, 18.47898, 
  18.48241, 18.49168, 18.49099, 18.48893, 18.50919, 18.50421, 18.49545, 18.48859, 18.48207, 18.48602, 
  18.4843, 18.4861, 18.49331, 18.49382, 18.49846, 18.51048, 18.51769, 18.53538, 18.53607, 18.54342, 
  18.59236, 18.614, 18.62287, 18.65327, 18.66049, 18.65243, 18.64831, 18.66736, 18.68248, 18.69192, 
  18.71662, 18.70442, 18.68932, 18.71783, 18.73552, 18.75524, 18.79406, 18.80625, 18.81982, 18.85499, 
  18.84932, 18.83833, 18.8397, 18.8821, 18.89704, 18.90855, 18.91491, 18.91525, 18.94923, 18.95782, 
  18.96056, 18.95936, 18.95936, 18.95181, 18.94923, 18.95576, 18.96074, 18.98358, 18.9839, 18.98785, 
  18.98424, 18.99077, 19.0009, 19.00914, 19.02013, 19.01945, 19.0246, 19.02546, 19.0337, 19.03645, 
  19.04315, 19.04722, 19.0802, 19.07642, 19.0838, 19.0747, 19.07487, 19.06098, 19.06132, 19.04775, 
  19.03968, 19.04158, 19.03471, 19.04175, 19.04295, 19.04124, 19.04398, 19.03299, 19.02011, 19.02167, 
  19.01875, 19.01996, 19.01034, 19.01052, 19.00674, 19.01069, 19.00382, 19.00416, 18.99918, 18.99712, 
  18.99248, 18.98836, 18.98699, 18.98183, 18.97685, 18.97393, 18.96844, 18.9626, 18.95831, 18.95556, 
  18.95521, 18.96123, 18.9597, 18.96176, 18.95678, 18.95678, 18.95952, 18.95626, 18.95111, 18.94991, 
  18.93548, 18.93411, 18.93548, 18.92947, 18.92105, 18.91197, 18.92382, 18.92691, 18.94254, 18.95233, 
  18.97995, 18.98115, 18.98544, 18.97961, 18.98132, 18.98767, 18.98767, 19.00519, 19.01257, 19.02271, 
  19.02956, 19.0366, 19.04364, 19.03901, 19.04399, 19.04158, 19.04603, 19.05119, 19.06184, 19.06321, 
  19.07557, 19.08708, 19.09205, 19.09222, 19.09703, 19.1027, 19.10304, 19.113, 19.11918, 19.12674, 
  19.12725, 19.13172, 19.13601, 19.15302, 19.1712, 19.17481, 19.17876, 19.19095, 19.19765, 19.19937, 
  19.21186, 19.21564)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  42.2633, 42.26426, 42.26842, 42.26848, 42.27042, 42.27086, 42.27264, 42.2702, 42.27007, 42.26632, 
  42.26559, 42.26213, 42.26184, 42.25991, 42.25867, 42.25883, 42.26032, 42.26067, 42.26165)
LONGITUDE_VALUEs <- c(
  18.85665, 18.85725, 18.85202, 18.85107, 18.84906, 18.84717, 18.84717, 18.84532, 18.84653, 18.84876, 
  18.84996, 18.85301, 18.85575, 18.85772, 18.85764, 18.85875, 18.8585, 18.85768, 18.85772)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(42.39627, 42.39516, 42.39421, 42.39429, 42.39505, 42.39632)
LONGITUDE_VALUEs <- c(18.55779, 18.55678, 18.55777, 18.55929, 18.55964, 18.55861)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  42.40752, 42.40781, 42.40731, 42.40782, 42.40717, 42.40807, 42.4114, 42.41273, 42.41346, 42.41335, 
  42.41294, 42.41229, 42.41194, 42.41242, 42.41223, 42.41268, 42.41186, 42.41134, 42.41063, 42.41077, 
  42.41051, 42.41107, 42.41036, 42.40982, 42.40986, 42.40912, 42.41032, 42.40947, 42.40833, 42.40893, 
  42.40872, 42.40792)
LONGITUDE_VALUEs <- c(
  18.69675, 18.69759, 18.69828, 18.69926, 18.70113, 18.70111, 18.69326, 18.69225, 18.68974, 18.68939, 
  18.69053, 18.69025, 18.68836, 18.6875, 18.68622, 18.68457, 18.68431, 18.68257, 18.68319, 18.68371, 
  18.68446, 18.68581, 18.68746, 18.6875, 18.68828, 18.68995, 18.69042, 18.69364, 18.69336, 18.69482, 
  18.69561, 18.69604)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### SERBIA #####
Geo_0 <- Geometric_Operations(Geo_2, Geo_1)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0))
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  44.88276, 44.85945, 44.86055, 44.867, 44.88074, 44.88694, 44.89959, 44.90446, 44.92148, 44.92075, 
  44.90956, 44.89765, 44.89619, 44.91309, 44.91297, 44.90555, 44.90446, 44.90944, 44.90895, 44.89984, 
  44.89716, 44.88926, 44.88913, 44.88597, 44.87916, 44.86639, 44.8575, 44.85434, 44.85921, 44.85227, 
  44.84728, 44.83998, 44.83475, 44.82635, 44.82768, 44.82635, 44.82902, 44.8261, 44.8188, 44.8177, 
  44.82306, 44.82221, 44.81831, 44.81636, 44.81234, 44.81246, 44.80357, 44.79943, 44.79419, 44.79529, 
  44.78944, 44.78688, 44.78152, 44.78433, 44.77982, 44.78567, 44.7842, 44.77787, 44.77494, 44.77336, 
  44.76678, 44.76385, 44.76483, 44.75776, 44.75678, 44.75179, 44.74971, 44.75093, 44.74984, 44.74996, 
  44.74788, 44.74703, 44.74179, 44.7424, 44.73959, 44.74179, 44.72996, 44.72167, 44.71593, 44.71386, 
  44.70849, 44.7091, 44.70471, 44.70312, 44.69507, 44.68946, 44.68726, 44.69214, 44.68775, 44.68372, 
  44.67493, 44.67164, 44.66797, 44.66211, 44.6565, 44.66028, 44.65674, 44.64771, 44.63464, 44.63403, 
  44.62217, 44.61949, 44.61545, 44.61509, 44.61093, 44.60287, 44.59394, 44.58441, 44.57695, 44.57768, 
  44.57438, 44.57683, 44.57548, 44.56215, 44.55445, 44.54674, 44.53744, 44.53169, 44.52263, 44.52533, 
  44.52386, 44.52753, 44.52472, 44.52227, 44.50023, 44.49031, 44.47978, 44.47133, 44.45553, 44.45075, 
  44.44608, 44.43713, 44.42769, 44.41359, 44.39789, 44.37225, 44.36624, 44.36943, 44.3671, 44.36317, 
  44.35961, 44.34366, 44.33862, 44.32868, 44.31849, 44.31062, 44.3105, 44.30006, 44.28593, 44.27978, 
  44.28237, 44.29146, 44.29023, 44.26909, 44.26147, 44.26331, 44.27167, 44.27708, 44.26872, 44.27364, 
  44.27007, 44.24954, 44.24376, 44.23085, 44.22039, 44.20908, 44.19689, 44.18261, 44.18015, 44.1708, 
  44.16981, 44.14333, 44.1304, 44.14752, 44.15048, 44.14506, 44.13766, 44.12879, 44.11733, 44.11561, 
  44.10082, 44.08035, 44.07357, 44.06222, 44.04964, 44.04557, 44.04877, 44.06888, 44.07283, 44.07085, 
  44.05099, 44.04964, 44.0542, 44.05136, 44.03421, 44.02064, 44.01237, 44.01027, 44.00323, 43.99977, 
  43.98507, 43.9789, 43.96729, 43.95615, 43.9554, 43.96022, 43.95774, 43.96145, 43.96862, 43.96849,
  43.9605, 43.96248, 43.96705, 43.97113, 43.97694, 43.98114, 43.98274, 43.98138, 43.9983, 43.99707, 
  44.00423, 44.0146, 44.01374, 43.9841, 43.96668, 43.95902, 43.9547, 43.94876, 43.94617, 43.93764, 
  43.93084, 43.92676, 43.92392, 43.91526, 43.90957, 43.89807, 43.89473, 43.88929, 43.88694, 43.87976, 
  43.87951, 43.86801, 43.86392, 43.83656, 43.83471, 43.82517, 43.80771, 43.79779, 43.79742, 43.79346, 
  43.79742, 43.78305, 43.77623, 43.77561, 43.76334, 43.75354, 43.74772, 43.73395, 43.71373, 43.70628, 
  43.70231, 43.69425, 43.68928, 43.67004, 43.6688, 43.6493, 43.64657, 43.63849, 43.63737, 43.62718, 
  43.62805, 43.63352, 43.63352, 43.63961, 43.63253, 43.62495, 43.6196, 43.61612, 43.59984, 43.59574, 
  43.59897, 43.59698, 43.59213, 43.58666, 43.57746, 43.57174, 43.57647, 43.57908, 43.58206, 43.57995, 
  43.58157, 43.57858, 43.57584, 43.56975, 43.57037, 43.57759, 43.57833, 43.57435, 43.57734, 43.58169, 
  43.58505, 43.58778, 43.59164, 43.59077, 43.60245, 43.60581, 43.61078, 43.60991, 43.60593, 43.60643, 
  43.5884, 43.59077, 43.58816, 43.59064, 43.60021, 43.59562, 43.59723, 43.59672, 43.59851, 43.60065, 
  43.60249, 43.60577, 43.60625, 43.60697, 43.60378, 43.60084, 43.59789, 43.59968, 43.59994, 43.60064, 
  43.60075, 43.60198, 43.60176, 43.60059, 43.59836, 43.59706, 43.59654, 43.59370, 43.5894, 43.59151, 
  43.59089, 43.59325, 43.58666, 43.58045, 43.57734, 43.57485, 43.56565, 43.56241, 43.55756, 43.55557, 
  43.54748, 43.53193, 43.52956, 43.52782, 43.52857,
  43.52851, 43.52752, 43.52702, 43.52304, 43.5193, 43.51656, 43.51221, 43.50449, 43.50424, 43.49478,
  43.49179, 43.48643, 43.48319, 43.4665, 43.46114, 43.46114, 43.45292, 43.44444, 43.44482, 43.43983,
  43.44208, 43.43746, 43.43697, 43.4346, 43.41727, 43.41141, 43.41328, 43.41265, 43.40854, 43.40704,
  43.40093, 43.40106, 43.39257, 43.39382, 43.39158, 43.39307, 43.38846, 43.36687, 43.36525, 43.35814,
  43.35489, 43.35227, 43.34478, 43.33354, 43.3273, 43.31931, 43.30957, 43.30932, 43.30394, 43.28433,
  43.27271, 43.27133, 43.25346, 43.24795, 43.2417, 43.24008, 43.23032, 43.22569, 43.22257, 43.21193,
  43.20668, 43.2033, 43.18866, 43.18503, 43.17852, 43.17314, 43.16813, 43.17213, 43.15899, 43.16024,
  43.16412, 43.16375, 43.16575, 43.16049, 43.15836, 43.14584, 43.14221, 43.13857, 43.13319, 43.12805,
  43.12266, 43.12304, 43.11514, 43.11778, 43.11289, 43.10737, 43.0996, 43.09609, 43.09396, 43.10036,
  43.10036, 43.11364, 43.106, 43.10249, 43.10249, 43.09697, 43.0991, 43.0907, 43.08594, 43.09584,
  43.09622, 43.10073, 43.10286, 43.11076, 43.11201, 43.10487, 43.08556, 43.05045, 43.03376, 43.0172,
  43.00917, 43.00628, 43.00013, 42.99636, 42.99724, 42.99322, 42.99573, 42.99184, 42.98167, 42.97388,
  42.96383, 42.96748, 42.96936, 42.97464, 42.97928, 42.98933, 42.98845, 42.97439, 42.97575, 42.97148,
  42.95917, 42.95804, 42.94045, 42.9402, 42.93191, 42.93467, 42.93228, 42.93203, 42.92713, 42.92763,
  42.92185, 42.92323, 42.91732, 42.9172, 42.91456, 42.91619, 42.91242, 42.91318, 42.90764, 42.91142,
  42.89545, 42.8879, 42.87746, 42.86979, 42.85494, 42.8528, 42.84588, 42.84084, 42.83707,
  42.83329, 42.83267, 42.83318, 42.8362, 42.83582, 42.83356, 42.83368, 42.82638, 42.83028, 42.83595,
  42.83607, 42.82512, 42.82613, 42.83091, 42.82575, 42.8216, 42.81454, 42.81543, 42.81102, 42.8046,
  42.80422, 42.79779, 42.77814, 42.76705, 42.75911, 42.75697, 42.75243, 42.75306, 42.74651, 42.75142,
  42.7455, 42.75357, 42.75609, 42.75848, 42.76831, 42.7634, 42.75445, 42.77008, 42.77361, 42.77739,
  42.77461, 42.77512, 42.77978, 42.77701, 42.77335, 42.77461, 42.76907, 42.76541, 42.76516, 42.75735,
  42.75231, 42.74916, 42.74487, 42.74285, 42.73516, 42.72873, 42.72217, 42.72091, 42.71284, 42.71372,
  42.70956, 42.71095, 42.70615, 42.69732, 42.69581, 42.68471, 42.68483, 42.68042, 42.68016, 42.66868,
  42.66653, 42.65555, 42.64798, 42.64229, 42.62878, 42.62284, 42.61299, 42.60781, 42.57584, 42.57065,
  42.56813, 42.55966, 42.55624, 42.55586,
  42.55548, 42.55232, 42.55169, 42.54802, 42.54473, 42.54208, 42.53348, 42.52513, 42.52171, 42.5145, 
  42.50691, 42.50653, 42.49349, 42.4859, 42.48083, 42.47248, 42.47058, 42.46159, 42.45576, 42.45133, 
  42.43511, 42.42599, 42.42295, 42.41408, 42.40964, 42.39963, 42.37985, 42.37262, 42.3692, 42.35296, 
  42.34814, 42.33393, 42.32759, 42.32238, 42.32314, 42.31819, 42.32365, 42.31439, 42.3206, 42.32187, 
  42.32771, 42.32797, 42.32568, 42.32517, 42.32022, 42.31718, 42.30931, 42.30347, 42.29826, 42.29877, 
  42.28417, 42.28201, 42.27794, 42.27744, 42.27464, 42.2721, 42.2627, 42.25902, 42.25304, 42.24669, 
  42.24415, 42.2411, 42.2275, 42.22496, 42.22432, 42.20996, 42.18605, 42.17345, 42.17206, 42.1662, 
  42.16468, 42.16035, 42.15386, 42.14635, 42.14011, 42.12153, 42.10841, 42.0986, 42.08268, 42.07848, 
  42.07491, 42.06153, 42.05847, 42.05847, 42.04241, 42.01946, 42.01805, 41.9817, 41.978, 41.95847, 
  41.95668, 41.93906, 41.936, 41.92974, 41.92757, 41.91671, 41.91761, 41.88912, 41.88439, 41.88298,
  42.21767, 45.23885)
LONGITUDE_VALUEs <- c(
  19.06482, 19.04475, 19.0626, 19.07771, 19.08888, 19.12029, 19.12836, 19.14998, 19.17093, 19.19445, 
  19.20474, 19.20869, 19.22191, 19.24681, 19.26002, 19.27169, 19.2813, 19.28903, 19.30602, 19.3177, 
  19.33194, 19.34653, 19.35185, 19.35202, 19.3721, 19.3589, 19.36782, 19.36491, 19.35135, 19.34483, 
  19.34723, 19.345, 19.35547, 19.35289, 19.34825, 19.34345, 19.33658, 19.33315, 19.3359, 19.33212, 
  19.32783, 19.31736, 19.31736, 19.32337, 19.32406, 19.31187, 19.30964, 19.31787, 19.3165, 19.30535, 
  19.30157, 19.29368, 19.29642, 19.3062, 19.31032, 19.31942, 19.32491, 19.32594, 19.32182, 19.30294, 
  19.3014, 19.30745, 19.32377, 19.32394, 19.31536, 19.31536, 19.32016, 19.32343, 19.326, 19.33047, 
  19.33065, 19.32704, 19.32704, 19.32309, 19.31828, 19.31193, 19.30042, 19.3145, 19.31055, 19.30042, 
  19.30179, 19.30798, 19.30901, 19.30471, 19.30025, 19.30437, 19.29767, 19.28994, 19.28668, 19.29149, 
  19.2793, 19.27947, 19.27569, 19.28205, 19.27483, 19.2635, 19.25749, 19.26626, 19.25681, 19.25046, 
  19.23448, 19.21405, 19.21614, 19.22335, 19.2273, 19.22146, 19.21974, 19.20669, 19.20584, 19.20206, 
  19.19811, 19.19072, 19.18471, 19.1811, 19.19158, 19.19021, 19.17682, 19.17544, 19.16565, 19.15518, 
  19.15157, 19.14487, 19.13989, 19.1289, 19.12241, 19.1334, 19.13374, 19.14113, 19.1358, 19.14474, 
  19.14336, 19.14972, 19.14662, 19.14697, 19.10953, 19.10233, 19.10593, 19.11315, 19.12088, 19.1195, 
  19.10903, 19.11417, 19.13787, 19.12945, 19.13031, 19.1401, 19.14783, 19.15914, 19.16258, 19.17597, 
  19.18731, 19.19779, 19.21599, 19.22183, 19.23555, 19.25375, 19.27402, 19.27951, 19.29923, 19.31554, 
  19.3286, 19.32876, 19.34215, 19.34937, 19.34198, 19.35967, 19.35452, 19.35984, 19.38079, 19.39811, 
  19.40876, 19.4199, 19.44687, 19.46215, 19.47417, 19.4831, 19.48207, 19.47022, 19.47125, 19.49407, 
  19.49492, 19.5133, 19.55123, 19.56582, 19.56891, 19.57664, 19.58247, 19.58179, 19.58883, 19.60016, 
  19.60377, 19.61098, 19.61785, 19.62421, 19.61322, 19.62299, 19.61681, 19.59689, 19.59002, 19.56271, 
  19.56805, 19.54521, 19.53439, 19.52804, 19.4865, 19.45099, 19.43004, 19.41595, 19.40634, 19.39964,
  19.39477, 19.37744, 19.37624, 19.36336, 19.3565, 19.35821, 19.34963, 19.33762, 19.30345, 19.2784, 
  19.25866, 19.24939, 19.23532, 19.23721, 19.2542, 19.25505, 19.25008, 19.25849, 19.26913, 19.27136, 
  19.28354, 19.28354, 19.29058, 19.2971, 19.29625, 19.31032, 19.30912, 19.31615, 19.31375, 19.31925, 
  19.32491, 19.33727, 19.3371, 19.36542, 19.3752, 19.3716, 19.39237, 19.39512, 19.4061, 19.4116, 
  19.42103, 19.43202, 19.43048, 19.4473, 19.46583, 19.46687, 19.47751, 19.47974, 19.51939, 19.5194, 
  19.51339, 19.5194, 19.51699, 19.52832, 19.53244, 19.52644, 19.51271, 19.51493, 19.51219, 19.51013, 
  19.50601, 19.5078, 19.4999, 19.4987, 19.48685, 19.49252, 19.49097, 19.49991, 19.49115, 19.49218, 
  19.49562, 19.49888, 19.50025, 19.51039, 19.49733, 19.47896, 19.47415, 19.45148, 19.4465, 19.44238, 
  19.43688, 19.4175, 19.42265, 19.40823, 19.40204, 19.40479, 19.40015, 19.3926, 19.38727, 19.40015, 
  19.39964, 19.40204, 19.39638, 19.38453, 19.38058, 19.3689, 19.36943, 19.36496, 19.36153, 19.35655, 
  19.33628, 19.33147, 19.32018, 19.30111, 19.29184, 19.28823, 19.27658, 19.27301, 19.27176, 19.27064, 
  19.26846, 19.266, 19.26459, 19.26362, 19.26103, 19.25671, 19.25547, 19.25924, 19.26298, 19.26395, 
  19.26626, 19.26845, 19.26912, 19.27053, 19.27166, 19.27266, 19.27268, 19.26512, 19.26284, 19.25786, 
  19.25287, 19.246, 19.24721, 19.25253, 19.25184, 19.25408, 19.25013, 19.25184, 19.24686, 19.24892, 
  19.24618, 19.24893, 19.25065, 19.23176, 19.22815,
  19.22519, 19.22451, 19.22245, 19.22279, 19.22622, 19.22502, 19.22742, 19.22451, 19.22228, 19.22519,
  19.2221, 19.22622, 19.22107, 19.24991, 19.25283, 19.25713, 19.2779, 19.29094, 19.29884, 19.30999,
  19.32098, 19.32905, 19.3342, 19.33386, 19.34794, 19.36046, 19.36578, 19.38364, 19.38999, 19.3881,
  19.39291, 19.39754, 19.41127, 19.41831, 19.42483, 19.4286, 19.44887, 19.45042, 19.45728, 19.46209,
  19.45968, 19.46294, 19.46088, 19.48303, 19.48474, 19.52593, 19.53247, 19.53522, 19.53762, 19.52715,
  19.52938, 19.53441, 19.54488, 19.54351, 19.5636, 19.58678, 19.61855, 19.61851, 19.62676, 19.63191,
  19.63964, 19.63638, 19.64033, 19.66781, 19.67929, 19.67998, 19.68479, 19.73374, 19.73972, 19.75552,
  19.75758, 19.76445, 19.76943, 19.77321, 19.77973, 19.77937, 19.78108, 19.77593, 19.78675, 19.78538,
  19.79207, 19.80546, 19.81044, 19.83122, 19.8405, 19.83294, 19.8362, 19.83346, 19.83878, 19.84565,
  19.8508, 19.86798, 19.88309, 19.8812, 19.88513, 19.8877, 19.90265, 19.90677, 19.91673, 19.91965,
  19.93077, 19.93696, 19.94966, 19.96134, 19.9701, 19.97337, 19.96804, 19.99362, 20.03652, 20.05662,
  20.05335, 20.06503, 20.06587, 20.07378, 20.07876, 20.08082, 20.08632, 20.08804, 20.10298, 20.10298,
  20.1215, 20.12493, 20.13198, 20.13643, 20.13695, 20.14657, 20.1512, 20.15241, 20.15703, 20.17575,
  20.19052, 20.21078, 20.23858, 20.25146, 20.26949, 20.27808, 20.27808, 20.28272, 20.28426, 20.28696,
  20.29933, 20.31135, 20.30981, 20.31633, 20.3196, 20.322, 20.32543, 20.32973, 20.3366, 20.34535,
  20.34947, 20.34414, 20.34638, 20.34122, 20.3493, 20.3469, 20.3481, 20.35205, 20.35136,
  20.35291, 20.34957, 20.3427, 20.33979, 20.33515, 20.33138, 20.32812, 20.32005, 20.31627, 20.31576,
  20.29791, 20.29328, 20.28555, 20.28092, 20.27508, 20.2756, 20.2605, 20.25741, 20.25192, 20.25826,
  20.26255, 20.26187, 20.26616, 20.25276, 20.25035, 20.23594, 20.23388, 20.22169, 20.21157, 20.19887,
  20.18977, 20.18239, 20.17227, 20.17227, 20.15475, 20.14857, 20.14651, 20.10326, 20.10429, 20.09671,
  20.08333, 20.06822, 20.0605, 20.05157, 20.04694, 20.0435, 20.03338, 20.03303, 20.02411, 20.02171,
  20.02359, 20.01965, 20.02033, 20.01433, 20.01587, 20.01433, 20.02256, 20.03286, 20.02205, 20.01707,
  20.0157, 20.03361, 20.03138, 20.03292, 20.0458, 20.05439, 20.06349, 20.0683, 20.08358, 20.08854,
  20.09472, 20.11155, 20.10864, 20.09525, 20.08821, 20.07601, 20.0755, 20.07224, 20.08975, 20.08374,
  20.08443, 20.07876, 20.07893, 20.07636,
  20.07955, 20.08367, 20.08779, 20.08951, 20.08951, 20.0962, 20.0986, 20.12213, 20.12281, 20.14941, 
  20.16194, 20.16606, 20.16812, 20.18083, 20.17963, 20.18306, 20.18924, 20.19679, 20.19164, 20.19354, 
  20.22049, 20.22255, 20.22632, 20.22564, 20.21311, 20.2083, 20.24057, 20.24074, 20.24606, 20.24469, 
  20.23508, 20.2483, 20.2416, 20.2483, 20.25379, 20.25756, 20.2912, 20.30682, 20.31387, 20.32091, 
  20.32726, 20.33859, 20.34065, 20.34648, 20.3482, 20.35455, 20.35352, 20.38185, 20.39077, 20.39575, 
  20.40364, 20.42408, 20.42528, 20.4421, 20.44433, 20.4572, 20.46699, 20.4754, 20.4766, 20.4893, 
  20.48947, 20.49798, 20.50208, 20.50912, 20.51428, 20.52424, 20.53143, 20.53951, 20.54243, 20.54277, 
  20.54706, 20.54243, 20.54877, 20.55925, 20.55513, 20.56887, 20.56045, 20.56801, 20.55427, 20.55891, 
  20.55736, 20.56971, 20.56954, 20.57589, 20.59513, 20.59701, 20.60147, 20.61349, 20.62345, 20.62619, 
  20.62275, 20.61949, 20.61195, 20.60354, 20.59065, 20.58482, 20.57606, 20.5891, 20.59374, 20.62602,
  20.74657, 19.82576)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_2, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, Geo_0[26])
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  43.54739, 43.53973, 43.54176, 43.55358, 43.55681, 43.55731, 43.55902, 43.56172, 43.56406, 43.56698, 
  43.56863, 43.56602, 43.56424, 43.56309, 43.55504, 43.55401, 43.54947, 43.54904, 43.5477)
LONGITUDE_VALUEs <- c(
  19.41112, 19.41387, 19.42138, 19.42898, 19.4279, 19.42533, 19.42335, 19.42451, 19.42387, 19.4246, 
  19.42322, 19.41224, 19.41233, 19.41048, 19.40778, 19.39495, 19.40452, 19.40743, 19.40872)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_difference(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
Geo_2 <- Geo_2 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### CROATIA #####
Geo_0 <- Geometric_Operations(Geo_3, Geo_1)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0))
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(
  42.56402, 42.58539, 42.58905, 42.60068, 42.61647, 42.61963, 42.61925, 42.61483, 42.61736, 42.61028,
  42.61079, 42.60649, 42.6027, 42.61546, 42.61521, 42.61912, 42.61988, 42.65562, 42.65575, 42.66193,
  42.65903, 42.65928, 42.65512, 42.66383, 42.67102, 42.67986, 42.6873, 42.70559, 42.71442, 42.72426,
  42.72464, 42.7288, 42.74872, 42.75238, 42.75238, 42.76536, 42.77657, 42.77872, 42.7995, 42.80819,
  42.81084, 42.80932, 42.81474, 42.82229, 42.83237, 42.83765, 42.83765, 42.85011, 42.86899, 42.87868,
  42.88484, 42.90257, 42.91791, 42.89452, 42.89176, 42.89176, 42.90886, 42.91992, 42.92206, 42.92558,
  42.91904, 42.89742, 42.88899,
  42.87627, 42.86709, 42.87237, 42.87979, 42.88193, 42.8842, 42.87954, 42.87627, 42.87363, 42.86684, 
  42.86243, 42.85715, 42.85639, 42.8618, 42.85992, 42.85639, 42.85023, 42.84796, 42.83575, 42.83273, 
  42.83399, 42.83688, 42.83802, 42.84167, 42.84456, 42.84368, 42.84507, 42.84721, 42.84746, 42.85224, 
  42.86268, 42.86457, 42.86809, 42.86986, 42.88017, 42.87262, 42.87212, 42.86747, 42.86747, 42.8725, 
  42.87753, 42.87766, 42.89539, 42.89388, 42.9106, 42.91299, 42.91651, 42.92117, 42.92393, 42.92468, 
  42.92167, 42.92519, 42.92355, 42.91991, 42.9101, 42.90608, 42.90331, 42.9052, 42.90834, 42.90796, 
  42.91249, 42.90972, 42.91048, 42.91211, 42.90935, 42.9096, 42.91513, 42.91702, 42.91991, 42.91991, 
  42.91714, 42.91538, 42.91287, 42.91563, 42.91463, 42.91677, 42.91815, 42.92117, 42.92016, 42.9267, 
  42.93411, 42.94065, 42.94643, 42.95309, 42.95887, 42.95811, 42.96175, 42.96716, 42.9664, 42.96929, 
  42.97469, 42.97381, 42.97683, 42.98235, 42.9816, 42.98436, 42.9865, 42.9924, 42.99089, 42.99453, 
  42.99855, 42.99767, 43.00031, 43.00571, 43.00357, 43.00433, 43.00759, 43.01098, 43.00834, 43.0155, 
  43.01851, 43.01675, 43.02077, 43.0214, 43.02504, 43.02278, 43.02516, 43.02328, 43.02566, 43.01939, 
  43.0219, 43.02127, 43.02391, 43.03294, 43.0357, 43.03796, 43.04009, 43.04612, 43.04812, 43.04599, 
  43.04147, 43.03947, 43.03708, 43.0357, 43.02829, 43.02527, 43.0259, 43.03117, 43.03092, 43.02929, 
  43.02414, 43.02339, 43.01937, 43.01825, 43.01624, 43.01272, 43.00921, 43.00569, 43.01122, 43.00984, 
  43.00481, 43.00419, 43.00168, 43.00268, 42.99929, 42.99753, 42.98699, 42.9841, 42.98447, 42.97807, 
  42.98058, 42.97782, 42.9748, 42.97405, 42.9802, 42.98284, 42.96677, 42.96727, 42.96149, 42.94428, 
  42.94239, 42.93674, 42.93661, 42.92718, 42.91939, 42.91663, 42.91298, 42.91235, 42.917, 42.91763, 
  42.91474, 42.91562, 42.91097, 42.91122, 42.90179, 42.89211, 42.89022, 42.89047, 42.88821, 42.88884, 
  42.8877, 42.88632, 42.88381, 42.88341, 42.87561, 42.87524, 42.87272, 42.87348, 42.86958, 42.8726, 
  42.87046, 42.86819, 42.85536, 42.84907, 42.84403, 42.84592, 42.83975, 42.83207, 42.81621, 42.81558, 
  42.81243, 42.81369, 42.81142, 42.81419, 42.81684, 42.81722, 42.81369, 42.80828, 42.80802, 42.80525, 
  42.80374, 42.80613, 42.80047, 42.80273, 42.79782, 42.79644, 42.80122, 42.79606, 42.79152, 42.7919, 
  42.79644, 42.79656, 42.79052, 42.78686, 42.77716, 42.77326, 42.77452, 42.77162, 42.76796, 42.7638, 
  42.76317, 42.76065, 42.76469, 42.76721, 42.77237, 42.77452, 42.79681, 42.80336, 42.80336, 42.80626, 
  42.80896, 42.8111, 42.81161, 42.81664, 42.82155, 42.8276, 42.83502, 42.83515, 42.82873, 42.82344, 
  42.82017, 42.81412, 42.81161, 42.79624, 42.79208, 42.78982, 42.78641, 42.78742, 42.79145, 42.79183, 
  42.79574, 42.79637, 42.80052, 42.79926, 42.80077, 42.80707, 42.8072, 42.80443, 42.80745, 42.80292, 
  42.80355, 42.79901, 42.80178, 42.80003, 42.80543, 42.80254, 42.80052, 42.79536, 42.79674, 42.79574, 
  42.79347, 42.79372, 42.78818, 42.78465, 42.77747, 42.77571, 42.77936, 42.78049, 42.77961, 42.78188, 
  42.7839, 42.78327, 42.7878, 42.78717, 42.78138, 42.7815, 42.77886, 42.77571, 42.77306, 42.77495, 
  42.77319, 42.7718, 42.76714, 42.75617, 42.74495, 42.74571, 42.74041, 42.73487, 42.73386, 42.73071, 
  42.7302, 42.72642, 42.72869, 42.72528, 42.72087, 42.72062, 42.71797, 42.71141, 42.71154, 42.69476, 
  42.69577, 42.69438, 42.68832, 42.68416, 42.68895, 42.68883, 42.69198, 42.69375, 42.6964, 42.69766, 
  42.69993, 42.70208, 42.694, 42.6887, 42.68466, 42.68063, 42.6781, 42.67268, 42.66876, 42.66914, 
  42.67356, 42.67255, 42.67419, 42.67356, 42.67204, 42.67015, 42.66965, 42.67255, 42.67028, 42.66649, 
  42.65702, 42.65324, 42.65361, 42.65576, 42.65841, 42.66346, 42.66409, 42.66018, 42.65563, 42.65336, 
  42.65437, 42.65058, 42.64831, 42.6444, 42.64528, 42.64326, 42.64326, 42.6468, 42.64503, 42.64326, 
  42.64187, 42.64023, 42.64061, 42.63884, 42.63945, 42.64159, 42.64172, 42.63667, 42.6325, 42.6301, 
  42.62669, 42.62618, 42.62303, 42.62328, 42.61835, 42.61406, 42.61696, 42.61658, 42.61772, 42.61797, 
  42.6205, 42.61974, 42.62303, 42.62366, 42.62138, 42.61444, 42.61406, 42.61191, 42.61191, 42.60888, 
  42.60395, 42.59902, 42.59864, 42.5927, 42.59131, 42.58487, 42.58411, 42.58146, 42.58133, 42.58297, 
  42.58639, 42.58689, 42.58411, 42.5831, 42.5807, 42.57943, 42.58297, 42.58158, 42.57627, 42.57501, 
  42.56366, 42.53558, 42.53012, 42.52923, 42.52303, 42.52354, 42.50987, 42.48507, 42.4781, 42.4781, 
  42.46164, 42.45632, 42.45392, 42.45949, 42.45924, 42.44644, 42.44695, 42.4491, 42.45088, 42.45316, 
  42.45227, 42.45303, 42.45024, 42.44581, 42.44758, 42.44999, 42.45088, 42.44125, 42.42085, 42.41654, 
  42.40742, 42.40564, 42.40285, 42.39525, 42.39195, 42.39487, 42.3969, 42.40666, 42.41464, 42.41705, 
  42.42136, 42.42047,
  42.4208, 42.42143, 42.42688, 42.43144, 42.44309, 42.44905, 42.45259, 42.46564, 42.47286, 42.47311,
  42.48147, 42.484, 42.4883, 42.49185, 42.5026, 42.51096, 42.5207, 42.52627, 42.55144, 42.55561)
LONGITUDE_VALUEs <- c(
  18.43662, 18.40126, 18.39027, 18.37894, 18.36693, 18.34788, 18.33174, 18.31115, 18.28178, 18.27423,
  18.26908, 18.26341, 18.24299, 18.24282, 18.23407, 18.23407, 18.22583, 18.18943, 18.18342, 18.17673,
  18.17398, 18.16489, 18.15631, 18.15355, 18.14583, 18.1436, 18.10206, 18.10857, 18.1048, 18.07957,
  18.07408, 18.07322, 18.04077, 18.0248, 18.01039, 17.99632, 17.99648, 17.97674, 17.94807, 17.91391,
  17.90945, 17.89143, 17.88731, 17.89023, 17.90104, 17.88421, 17.87804, 17.86756, 17.85623, 17.85434,
  17.85898, 17.84473, 17.80971, 17.79134, 17.79151, 17.78567, 17.76388, 17.72251, 17.69779, 17.6911,
  17.67546, 17.6577, 17.64826,
  17.67087, 17.69593, 17.70091, 17.70108, 17.70726, 17.70794, 17.71138, 17.71893, 17.70811, 17.70211, 
  17.70211, 17.70811, 17.70708, 17.69576, 17.69541, 17.70434, 17.71138, 17.7222, 17.74486, 17.74228, 
  17.73147, 17.72735, 17.71963, 17.71396, 17.71448, 17.71087, 17.7083, 17.71019, 17.70298, 17.70538, 
  17.6798, 17.6822, 17.67826, 17.681, 17.64943, 17.66521, 17.6635, 17.66813, 17.66058, 17.64668, 
  17.64187, 17.63398, 17.60925, 17.60273, 17.55861, 17.54436, 17.54145, 17.52943, 17.52858, 17.52394, 
  17.52274, 17.51901, 17.51643, 17.52364, 17.52811, 17.53395, 17.5312, 17.52004, 17.51952, 17.51523, 
  17.51334, 17.51076, 17.49788, 17.49513, 17.49187, 17.48861, 17.4862, 17.48036, 17.48054, 17.47555, 
  17.47611, 17.47903, 17.478, 17.47199, 17.46855, 17.46786, 17.47113, 17.46872, 17.46512, 17.45, 
  17.4476, 17.45121, 17.44331, 17.44194, 17.42342, 17.41672, 17.41037, 17.39251, 17.38907, 17.38924, 
  17.37688, 17.37327, 17.3731, 17.35956, 17.35612, 17.35509, 17.34307, 17.33259, 17.32555, 17.32589, 
  17.31218, 17.30891, 17.30874, 17.28813, 17.28538, 17.28126, 17.28161, 17.26976, 17.26478, 17.23286, 
  17.20453, 17.20075, 17.18666, 17.1743, 17.16966, 17.15884, 17.15236, 17.14635, 17.14275, 17.07628, 
  17.0746, 17.06773, 17.07116, 17.04695, 17.04798, 17.03338, 17.03699, 17.02634, 17.00401, 16.99989, 
  17.01552, 17.01243, 17.01775, 17.01208, 17.01503, 17.02138, 17.02362, 17.02104, 17.03014, 17.02791, 
  17.03547, 17.02465, 17.02379, 17.02001, 17.0243, 17.01915, 17.02035, 17.01675, 17.00541, 17.0049, 
  17.01022, 17.02671, 17.03066, 17.03839, 17.03959, 17.04679, 17.06637, 17.06619, 17.09811, 17.10618, 
  17.11666, 17.12799, 17.12954, 17.18635, 17.19425, 17.21553, 17.23579, 17.24198, 17.24558, 17.28816, 
  17.30288, 17.31491, 17.32143, 17.34393, 17.34925, 17.35938, 17.36178, 17.39957, 17.39837, 17.4018, 
  17.4042, 17.40678, 17.41174, 17.41981, 17.42736, 17.4557, 17.45364, 17.45123, 17.45038, 17.44746, 
  17.44711, 17.45123, 17.4502, 17.43853, 17.43715, 17.43045, 17.4356, 17.43818, 17.44144, 17.44522, 
  17.4478, 17.44591, 17.49946, 17.50942, 17.53962, 17.54048, 17.55525, 17.59627, 17.63921, 17.65136, 
  17.6584, 17.66286, 17.66853, 17.6754, 17.67489, 17.67695, 17.67935, 17.67678, 17.6833, 17.6833, 
  17.68914, 17.69447, 17.69807, 17.70511, 17.70477, 17.71078, 17.7161, 17.71678, 17.72725, 17.73498, 
  17.73532, 17.74391, 17.75112, 17.74855, 17.75541, 17.75455, 17.7482, 17.74734, 17.75197, 17.75352, 
  17.75816, 17.76176, 17.76348, 17.76022, 17.76193, 17.77138, 17.74904, 17.74784, 17.74287, 17.74184, 
  17.73197, 17.73146, 17.727, 17.71893, 17.71721, 17.70022, 17.69661, 17.69867, 17.70365, 17.71515, 
  17.73076, 17.73729, 17.74964, 17.77247, 17.77316, 17.77917, 17.7802, 17.78466, 17.78552, 17.78861, 
  17.78981, 17.79341, 17.79393, 17.79633, 17.79805, 17.79358, 17.7965, 17.80062, 17.80646, 17.80785, 
  17.8106, 17.81986, 17.82364, 17.8286, 17.84252, 17.84441, 17.84269, 17.84612, 17.8487, 17.8511, 
  17.84973, 17.84458, 17.84595, 17.85918, 17.86072, 17.87256, 17.8693, 17.87205, 17.87462, 17.87445, 
  17.87823, 17.88028, 17.88516, 17.88859, 17.88928, 17.88705, 17.88344, 17.88499, 17.88293, 17.87795, 
  17.87348, 17.87451, 17.87348, 17.88583, 17.90678, 17.90919, 17.9286, 17.93184, 17.93819, 17.93991, 
  17.94575, 17.94849, 17.95399, 17.95742, 17.95485, 17.96429, 17.96292, 17.9691, 17.97546, 18.00686, 
  18.0127, 18.01854, 18.02523, 18.04584, 18.04361, 18.04052, 18.03983, 18.04241, 18.0388, 18.04224, 
  18.04069, 18.0455, 18.04567, 18.04996, 18.04996, 18.05683, 18.05546, 18.06831, 18.07038, 18.07982, 
  18.09116, 18.09373, 18.09631, 18.11211, 18.12705, 18.12653, 18.12396, 18.1073, 18.09219, 18.07931, 
  18.08755, 18.08824, 18.08532, 18.086, 18.07948, 18.07828, 18.06076, 18.05612, 18.07003, 18.06831, 
  18.06522, 18.05904, 18.07329, 18.07776, 18.0812, 18.08806, 18.0915, 18.0927, 18.09871, 18.09837, 
  18.10129, 18.10026, 18.10593, 18.10764, 18.11297, 18.11159, 18.11828, 18.13081, 18.1303, 18.1497, 
  18.15294, 18.1605, 18.16136, 18.16565, 18.17012, 18.18094, 18.18162, 18.18678, 18.18729, 18.19073, 
  18.19107, 18.19708, 18.19691, 18.2, 18.2091, 18.2134, 18.2158, 18.21786, 18.22439, 18.2237, 
  18.22969, 18.23055, 18.2278, 18.22368, 18.22677, 18.2254, 18.22145, 18.22316, 18.21853, 18.2199, 
  18.21647, 18.21114, 18.21148, 18.21629, 18.21715, 18.2144, 18.20891, 18.20771, 18.21578, 18.22419, 
  18.2271, 18.27312, 18.27585, 18.28014, 18.2889, 18.29182, 18.32889, 18.37919, 18.38675, 18.39499, 
  18.42434, 18.4264, 18.4252, 18.41369, 18.40854, 18.4276, 18.42915, 18.42691, 18.42829, 18.42777, 
  18.43052, 18.43533, 18.43533, 18.44151, 18.44443, 18.44443, 18.45044, 18.46795, 18.48615, 18.49575, 
  18.50932, 18.50743, 18.50743, 18.51962, 18.53405, 18.53199, 18.52443, 18.51121, 18.50949, 18.51464, 
  18.5143, 18.51928,
  18.52524, 18.52241, 18.51623, 18.50577, 18.49204, 18.48946, 18.4826, 18.47332, 18.45803, 18.45254,
  18.44276, 18.43315, 18.43864, 18.43727, 18.44105, 18.44705, 18.43675, 18.43933, 18.44036, 18.43795)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_3, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_3 <- st_set_geometry(Geo_3, st_union(Geo_0[c(4:17)]))
Geo_3 <- st_union(Geo_3, Geo)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(42.44503, 42.44339, 42.4412, 42.44367, 42.44456, 42.44573, 42.44621)
LONGITUDE_VALUEs <- c(18.42937, 18.42832, 18.43081, 18.43422, 18.43225, 18.4319, 18.42952)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.57992, 42.57931, 42.57842, 42.57825, 42.57691, 42.57643, 42.57536, 42.574, 42.57316, 42.57152, 
  42.57202, 42.57193, 42.5739, 42.57476, 42.57684, 42.57828, 42.57918, 42.58, 42.5801)
LONGITUDE_VALUEs <- c(
  18.18911, 18.19085, 18.19098, 18.19167, 18.19203, 18.19276, 18.19276, 18.19413, 18.19347, 18.1974, 
  18.1986, 18.20014, 18.19828, 18.19596, 18.19373, 18.19345, 18.19162, 18.19085, 18.1895)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.58474, 42.58632, 42.58727, 42.58808, 42.58823, 42.58784, 42.58657, 42.58534, 42.58522)
LONGITUDE_VALUEs <- c(18.17755, 18.17783, 18.17577, 18.17525, 18.17431, 18.17381, 18.17529, 18.17592, 18.1768)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.59634, 42.59561, 42.59375, 42.59417, 42.59517)
LONGITUDE_VALUEs <- c(18.20122, 18.20014, 18.20274, 18.20392, 18.20338)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.65092, 42.65171, 42.65186, 42.65207, 42.65156, 42.65207, 42.65231, 42.65215, 42.65188, 
  42.6519, 42.65114)
LONGITUDE_VALUEs <- c(
  18.04679, 18.04857, 18.05002, 18.05038, 18.05129, 18.05193, 18.05019, 18.04885, 18.04852, 
  18.04804, 18.0463)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.62441, 42.6258, 42.62607, 42.62834, 42.62974, 42.63175, 42.633, 42.63347, 42.6344, 42.6336, 
  42.63309, 42.63296, 42.63115, 42.63053, 42.62976, 42.62927, 42.62668, 42.62376, 42.62284, 42.6218, 
  42.62188, 42.62082, 42.6212, 42.62182, 42.62133, 42.62218, 42.62147, 42.62205, 42.62351, 42.62447)
LONGITUDE_VALUEs <- c(
  18.12385, 18.1225, 18.12518, 18.12381, 18.12008, 18.11907, 18.11969, 18.11785, 18.11645, 18.11439, 
  18.11456, 18.11341, 18.11401, 18.11345, 18.11448, 18.11401, 18.11901, 18.11952, 18.11853, 18.11946, 
  18.12049, 18.12203, 18.12446, 18.12437, 18.1251, 18.12538, 18.12564, 18.12656, 18.12624, 18.12456)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.66787, 42.67064, 42.67013, 42.66881, 42.66759, 42.66709, 42.66617, 42.66679)
LONGITUDE_VALUEs <- c(18.05901, 18.05607, 18.0553, 18.05669, 18.0568, 18.05558, 18.0559, 18.05807)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.66929, 42.66701, 42.6651, 42.6638, 42.66276, 42.66101, 42.66107, 42.66155, 42.66161, 42.66278, 
  42.66406, 42.66466, 42.66711, 42.66873, 42.66915, 42.67101, 42.66915, 42.67073, 42.67032, 42.67096, 
  42.6728, 42.67478, 42.67699, 42.67715, 42.67883, 42.6793, 42.67986, 42.68003, 42.68046, 42.68087, 
  42.68065, 42.68127, 42.68122, 42.6817, 42.68177, 42.68226, 42.68238, 42.68267, 42.68341, 42.68313, 
  42.68282, 42.68253, 42.68108, 42.67971, 42.67807, 42.67699, 42.67869, 42.67934, 42.67975, 42.67919, 
  42.67865, 42.67738, 42.67748, 42.67714, 42.67757, 42.6765, 42.67546, 42.67408, 42.67367, 42.67284, 
  42.67248, 42.67277, 42.67256, 42.67215, 42.67116, 42.67229, 42.67255, 42.66993)
LONGITUDE_VALUEs <- c(
  18.01416, 18.01618, 18.01607, 18.01678, 18.01537, 18.01704, 18.02054, 18.02043, 18.01957, 18.0191, 
  18.02103, 18.02095, 18.02389, 18.02171, 18.02313, 18.02177, 18.01876, 18.01818, 18.01725, 18.01604, 
  18.01763, 18.01527, 18.01458, 18.01371, 18.01522, 18.01376, 18.01386, 18.01341, 18.01314, 18.01211, 
  18.01145, 18.01044, 18.0098, 18.0088, 18.00762, 18.00739, 18.00665, 18.00662, 18.00475, 18.00172, 
  18.00199, 18.00296, 18.00547, 18.00543, 18.00617, 18.00348, 18.00132, 18.00096, 17.99945, 17.99884, 
  17.99933, 17.9986, 17.99729, 17.99592, 17.99052, 17.9865, 17.98625, 17.9887, 17.99043, 17.99226, 
  17.99386, 17.9949, 17.995, 17.99398, 17.99565, 17.99784, 18.00007, 18.00888)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.64726, 42.6454, 42.64415, 42.64477, 42.64778)
LONGITUDE_VALUEs <- c(17.94921, 17.95191, 17.95245, 17.95376, 17.95058)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.6895, 42.68837, 42.68803, 42.68632, 42.68598, 42.68504, 42.6843, 42.6816, 42.6805, 42.67655, 
  42.67482, 42.67485, 42.67385, 42.67437, 42.67452, 42.67494, 42.67531, 42.6745, 42.6751, 42.67504, 
  42.67579, 42.67897, 42.68133, 42.67991, 42.68091, 42.68002, 42.67983, 42.68062, 42.68062, 42.67756, 
  42.6778, 42.67855, 42.69076, 42.69165, 42.69176, 42.69343, 42.69531, 42.69717, 42.69788, 42.69679, 
  42.69548, 42.69491, 42.69285, 42.69187, 42.69067, 42.68994, 42.68654, 42.68575, 42.68587, 42.68628, 
  42.68591, 42.68677, 42.687, 42.68938)
LONGITUDE_VALUEs <- c(
  17.92361, 17.92406, 17.92604, 17.92825, 17.92992, 17.93054, 17.93256, 17.93537, 17.93544, 17.93848, 
  17.9393, 17.94376, 17.94782, 17.94769, 17.9482, 17.94786, 17.94852, 17.95114, 17.95307, 17.9549, 
  17.9562, 17.95112, 17.95316, 17.95814, 17.95953, 17.9599, 17.96185, 17.9611, 17.96269, 17.97039, 
  17.97464, 17.97517, 17.95603, 17.95664, 17.95458, 17.9514, 17.95133, 17.94949, 17.94402, 17.94226, 
  17.94197, 17.94117, 17.94141, 17.94033, 17.9422, 17.94228, 17.93993, 17.93773, 17.93609, 17.93547, 
  17.93454, 17.93345, 17.93187, 17.92786)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.7049, 42.70634, 42.70727, 42.70856, 42.70888, 42.70948, 42.70998, 42.70959, 42.71077, 42.71064, 
  42.71019, 42.70992, 42.71003, 42.7094, 42.70735, 42.70719, 42.70653, 42.70631, 42.70588, 42.70497)
LONGITUDE_VALUEs <- c(
  17.93018, 17.93013, 17.9334, 17.93447, 17.93372, 17.93346, 17.93232, 17.93084, 17.92917, 17.92863, 
  17.92848, 17.92762, 17.92649, 17.92567, 17.92608, 17.92533, 17.92509, 17.92563, 17.9255, 17.92775)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.70782, 42.711, 42.71233, 42.7121, 42.71315, 42.7128, 42.71488, 42.71854, 42.7209, 42.72049, 
  42.72264, 42.72289, 42.72456, 42.72919, 42.73108, 42.73316, 42.73294, 42.73398, 42.73499, 42.7354, 
  42.73632, 42.73581, 42.73991, 42.73893, 42.74108, 42.74473, 42.74596, 42.74574, 42.74918, 42.75542, 
  42.75507, 42.75315, 42.75305, 42.75513, 42.75378, 42.75671, 42.75518, 42.75635, 42.7557, 42.74861, 
  42.7486, 42.74417, 42.74346, 42.74261, 42.742, 42.7355, 42.73555, 42.72934, 42.7288, 42.72769, 
  42.72687, 42.72951, 42.72899, 42.73084, 42.73374, 42.73363, 42.73478, 42.73487, 42.73424, 42.73175, 
  42.73071, 42.7286, 42.72887, 42.72866, 42.72811, 42.72649, 42.72381, 42.72051, 42.71826, 42.71517, 
  42.71405, 42.7114, 42.70968, 42.70539, 42.7053, 42.70424, 42.70399, 42.70262, 42.69991, 42.69888, 
  42.69893, 42.7008, 42.70266, 42.70367, 42.70415, 42.70478, 42.70522, 42.70464, 42.7056, 42.70546, 
  42.70642, 42.70661, 42.70804)
LONGITUDE_VALUEs <- c(
  17.9132, 17.90998, 17.9141, 17.91715, 17.91728, 17.91861, 17.91981, 17.91788, 17.91479, 17.91264, 
  17.91273, 17.91041, 17.90711, 17.90359, 17.89758, 17.89749, 17.89462, 17.89165, 17.89148, 17.89024, 
  17.88938, 17.88792, 17.88093, 17.87809, 17.87681, 17.86599, 17.86591, 17.86354, 17.86445, 17.85088, 
  17.84865, 17.84981, 17.84857, 17.8441, 17.83934, 17.83334, 17.83297, 17.82896, 17.82883, 17.83913, 
  17.84115, 17.8452, 17.84518, 17.84645, 17.846, 17.85231, 17.85375, 17.86052, 17.86179, 17.86252, 
  17.86147, 17.85546, 17.85297, 17.85164, 17.84539, 17.84376, 17.8425, 17.84123, 17.84087, 17.84344, 
  17.8472, 17.85136, 17.85258, 17.85312, 17.85305, 17.85507, 17.86046, 17.86327, 17.87539, 17.87906, 
  17.88365, 17.88818, 17.88912, 17.89537, 17.89698, 17.89723, 17.89648, 17.89766, 17.90749, 17.90874, 
  17.90968, 17.90693, 17.9085, 17.90805, 17.90968, 17.90985, 17.91105, 17.91228, 17.91374, 17.91502, 
  17.91464, 17.91713, 17.91554)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.7584, 42.75755, 42.75942, 42.75972)
LONGITUDE_VALUEs <- c(17.82993, 17.83118, 17.83251, 17.83174)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.74694, 42.74543, 42.74532, 42.74658)
LONGITUDE_VALUEs <- c(17.82255, 17.82279, 17.82403, 17.82453)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.75227, 42.75225, 42.75025, 42.75186, 42.75304, 42.75354, 42.75452, 42.75408, 42.75328)
LONGITUDE_VALUEs <- c(17.80852, 17.8076, 17.80923, 17.81236, 17.81242, 17.80882, 17.80809, 17.80787, 17.80848)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.75906, 42.75673, 42.7566, 42.7572, 42.75737, 42.75884, 42.75941, 42.75904)
LONGITUDE_VALUEs <- c(17.7953, 17.79599, 17.79895, 17.79981, 17.80187, 17.79961, 17.79665, 17.79605)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.7307, 42.72787, 42.72846, 42.73288, 42.73571, 42.73546, 42.73786, 42.74095, 42.7406, 42.74296, 
  42.74312, 42.7383, 42.73666, 42.7401, 42.74233, 42.74382, 42.74318, 42.74583, 42.74712, 42.74653, 
  42.74791, 42.74801, 42.74974, 42.74987, 42.74798, 42.74864, 42.75462, 42.75488, 42.75374, 42.74508, 
  42.74057, 42.73969, 42.73354, 42.73029)
LONGITUDE_VALUEs <- c(
  17.83292, 17.83635, 17.84034, 17.8353, 17.83554, 17.83897, 17.8412, 17.83477, 17.83301, 17.83026, 
  17.82807, 17.83043, 17.8288, 17.82257, 17.82232, 17.81961, 17.81566, 17.81584, 17.81275, 17.81107, 
  17.81056, 17.80893, 17.80846, 17.807, 17.80545, 17.80245, 17.79292, 17.7894, 17.78807, 17.80009, 
  17.80468, 17.81592, 17.82687, 17.82777)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.75774, 42.75904, 42.76011, 42.76449, 42.7649, 42.76597, 42.76587, 42.76723, 42.76783, 42.76958, 
  42.76768, 42.76783, 42.76638, 42.7658, 42.76733, 42.76367, 42.76131, 42.76103, 42.76018, 42.75948)
LONGITUDE_VALUEs <- c(
  17.77666, 17.78108, 17.78147, 17.77782, 17.77614, 17.77597, 17.77709, 17.77769, 17.78039, 17.77794, 
  17.77683, 17.77483, 17.77534, 17.77455, 17.77028, 17.7656, 17.76678, 17.76882, 17.77024, 17.7735)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.764, 42.76091, 42.76224, 42.75927, 42.75997, 42.75871, 42.76318, 42.76621, 42.76734, 42.77137, 
  42.77389, 42.76621, 42.76495, 42.75965, 42.75997, 42.75543, 42.75499, 42.75228, 42.75127, 42.74875, 
  42.74856, 42.75114, 42.74932, 42.75417, 42.75467, 42.75839, 42.75776, 42.75978, 42.75745, 42.75997, 
  42.75864)
LONGITUDE_VALUEs <- c(
  16.50852, 16.51333, 16.51651, 16.51831, 16.52106, 16.52741, 16.53557, 16.53488, 16.52964, 16.52775, 
  16.50749, 16.50054, 16.50191, 16.49573, 16.49238, 16.49247, 16.48998, 16.49015, 16.48741, 16.48758, 
  16.49058, 16.49067, 16.49462, 16.49238, 16.49797, 16.49925, 16.50114, 16.50131, 16.50406, 16.50535, 
  16.50749)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.79159, 42.79112, 42.79128, 42.79622, 42.79379, 42.7965, 42.7959, 42.79241)
LONGITUDE_VALUEs <- c(17.33793, 17.33793, 17.34566, 17.34639, 17.34411, 17.34214, 17.34046, 17.34046)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.80526, 42.80488, 42.80727, 42.80595, 42.80648, 42.80563, 42.80475)
LONGITUDE_VALUEs <- c(17.35896, 17.36141, 17.36197, 17.35888, 17.35772, 17.35467, 17.35561)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.80389, 42.80339, 42.80353, 42.80427)
LONGITUDE_VALUEs <- c(17.37463, 17.37485, 17.37719, 17.37676)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.78916, 42.79215, 42.79338, 42.79154, 42.79138, 42.7901)
LONGITUDE_VALUEs <- c(17.39836, 17.401, 17.39997, 17.39808, 17.39643, 17.39533)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.79058, 42.79165, 42.79148, 42.79011, 42.78924, 42.78975, 42.78923, 42.78772, 42.78772, 42.78701, 
  42.78803, 42.78868, 42.78756, 42.78817, 42.7877, 42.78822, 42.78907, 42.79038, 42.78937, 42.79025)
LONGITUDE_VALUEs <- c(
  17.40552, 17.40361, 17.40222, 17.40308, 17.40299, 17.40475, 17.40617, 17.40812, 17.41027, 17.41164, 
  17.41409, 17.4182, 17.42164, 17.42526, 17.43194, 17.43153, 17.42767, 17.42561, 17.41831, 17.41561)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.74098, 42.740403, 42.74101, 42.74184)
LONGITUDE_VALUEs <- c(17.63626, 17.63739, 17.63969, 17.63832)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.74008, 42.73841, 42.73778, 42.73978)
LONGITUDE_VALUEs <- c(17.64977, 17.6498, 17.65205, 17.65201)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.7348, 42.73359, 42.73349, 42.73511, 42.73603, 42.7356)
LONGITUDE_VALUEs <- c(17.64864, 17.64977, 17.65091, 17.65222, 17.65042, 17.64894)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.70545, 42.70406, 42.70412, 42.70549, 42.70573, 42.70649, 42.70696, 42.70746, 42.70666, 42.70666)
LONGITUDE_VALUEs <- c(17.74651, 17.74625, 17.74691, 17.74788, 17.74973, 17.75024, 17.75153, 17.75101, 17.7499, 17.74801)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.71648, 42.71637, 42.71776, 42.71833, 42.71751)
LONGITUDE_VALUEs <- c(17.59999, 17.60065, 17.6011, 17.60012, 17.59956)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.69646, 42.69618, 42.69708, 42.69721, 42.69814, 42.69793, 42.69626)
LONGITUDE_VALUEs <- c(17.68985, 17.69086, 17.69146, 17.69034, 17.68949, 17.68865, 17.68798)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.70613, 42.70534, 42.70539, 42.7063, 42.70658)
LONGITUDE_VALUEs <- c(17.67961, 17.67963, 17.68012, 17.68097, 17.68051)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.70263, 42.70173, 42.70224, 42.70315)
LONGITUDE_VALUEs <- c(17.66291, 17.66373, 17.66489, 17.66391)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.76626, 42.76511, 42.76474, 42.76627)
LONGITUDE_VALUEs <- c(17.14487, 17.14455, 17.14627, 17.14691)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.76271, 42.76237, 42.76298, 42.76479, 42.76246, 42.76194)
LONGITUDE_VALUEs <- c(17.11743, 17.11891, 17.11951, 17.11709, 17.11571, 17.11663)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.76186, 42.76144, 42.76274, 42.76455)
LONGITUDE_VALUEs <- c(17.11082, 17.11127, 17.11492, 17.11374)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.7614, 42.76118, 42.76202, 42.76348, 42.76216, 42.76106)
LONGITUDE_VALUEs <- c(17.10631, 17.10814, 17.10861, 17.10625, 17.10419, 17.10457)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.75832, 42.75726, 42.75676, 42.75778)
LONGITUDE_VALUEs <- c(17.07391, 17.07333, 17.07498, 17.07534)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.81622, 42.81602, 42.81621, 42.81581, 42.81538, 42.8156, 42.81594)
LONGITUDE_VALUEs <- c(16.99192, 16.99102, 16.99018, 16.9899, 16.99226, 16.99372, 16.99363)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.75636, 42.75832, 42.75865, 42.75785, 42.75594, 42.7552, 42.75638)
LONGITUDE_VALUEs <- c(16.95633, 16.95974, 16.95955, 16.95502, 16.95168, 16.95195, 16.95481)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.76154, 42.76337, 42.76325, 42.76246, 42.76195, 42.75946, 42.7586, 42.75778, 42.75784, 42.75718, 
  42.75865, 42.75797, 42.75883, 42.76041, 42.7608, 42.76142, 42.76134, 42.76279)
LONGITUDE_VALUEs <- c(
  16.96981, 16.96863, 16.96597, 16.96492, 16.96301, 16.96193, 16.96256, 16.96217, 16.96421, 16.96599, 
  16.96844, 16.97099, 16.97311, 16.97335, 16.97457, 16.97414, 16.97309, 16.97099)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.77607, 42.77324, 42.77248, 42.77113, 42.76933, 42.76968, 42.77053, 42.77119, 42.77248, 42.77349, 42.77413,
  42.77407, 42.77738, 42.77866, 42.77913, 42.77784)
LONGITUDE_VALUEs <- c(
  16.96347, 16.96128, 16.96314, 16.96248, 16.96433, 16.96587, 16.9654, 16.96845, 16.96896, 16.96724, 16.96769,
  16.96481, 16.96452, 16.96544, 16.96413, 16.96317)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.77596, 42.77684, 42.77561, 42.7783, 42.77799, 42.77887, 42.77901, 42.78013, 42.7792, 42.7798, 
  42.77936, 42.78051, 42.78036, 42.77925)
LONGITUDE_VALUEs <- c(
  16.98243, 16.98642, 16.98886, 16.99466, 16.99633, 16.99655, 16.99472, 16.99243, 16.99073, 16.98863, 
  16.98556, 16.9841, 16.9823, 16.98142)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.79519, 42.79491, 42.79405, 42.79337, 42.79337, 42.79344, 42.79438, 42.7945)
LONGITUDE_VALUEs <- c(17.40822, 17.40767, 17.40929, 17.41293, 17.41432, 17.41427, 17.41093, 17.4101)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.79738, 42.79678, 42.79637, 42.79487, 42.79435, 42.7935, 42.79519, 42.79465, 42.79484, 42.79434, 
  42.79469, 42.79519, 42.7963, 42.79689, 42.79792, 42.79856, 42.79787, 42.79753, 42.797, 42.79744)
LONGITUDE_VALUEs <- c(
  17.39518, 17.39516, 17.39615, 17.39621, 17.39514, 17.39561, 17.39926, 17.4032, 17.40369, 17.40569, 
  17.40552, 17.40414, 17.40399, 17.40488, 17.40301, 17.4006, 17.40095, 17.40081, 17.39903, 17.39722)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.75845, 42.75461, 42.75568, 42.75272, 42.74837, 42.74787, 42.74492, 42.74898, 42.74936, 42.75056, 
  42.75006, 42.75119, 42.75277, 42.75147, 42.75166, 42.75034, 42.74917, 42.74832, 42.74886, 42.74712, 
  42.74615, 42.74801, 42.74798, 42.74066, 42.74189, 42.73887, 42.73313, 42.73411, 42.73288, 42.73467, 
  42.7337, 42.73477, 42.73411, 42.73313, 42.73184, 42.73048, 42.73102, 42.72897, 42.72891, 42.72683, 
  42.72717, 42.72522, 42.72279, 42.72374, 42.72197, 42.72266, 42.72172, 42.72292, 42.72292, 42.72046, 
  42.71897, 42.71995, 42.71998, 42.72191, 42.72024, 42.72197, 42.72194, 42.72036, 42.72112, 42.72002, 
  42.72099, 42.72002, 42.72046, 42.7185, 42.71658, 42.71721, 42.71816, 42.718, 42.71897, 42.71816, 
  42.71816, 42.71715, 42.7172, 42.71512, 42.71394, 42.71272, 42.71217, 42.71263, 42.70968, 42.71037, 
  42.71011, 42.71086, 42.71018, 42.7105, 42.70884, 42.70918, 42.70673, 42.70497, 42.70391, 42.70456, 
  42.70195, 42.70181, 42.70112, 42.69995, 42.69888, 42.69746, 42.6971, 42.69807, 42.69571, 42.69431, 
  42.69364, 42.69222, 42.69225, 42.6955, 42.69751, 42.69732, 42.69579, 42.69536, 42.69467, 42.69404, 
  42.69183, 42.69265, 42.69448, 42.69517, 42.69913, 42.69882, 42.69981, 42.69793, 42.69762, 42.69648, 
  42.69571, 42.69423, 42.69464, 42.6977, 42.69839, 42.70079, 42.69981, 42.69732, 42.69642, 42.69598, 
  42.69626, 42.69525, 42.69299, 42.69027, 42.68968, 42.68781, 42.68844, 42.69025, 42.68981, 42.69069, 
  42.69151, 42.69091, 42.69075, 42.69012, 42.69044, 42.68976, 42.6897, 42.68861, 42.68798, 42.68665, 
  42.68667, 42.68798, 42.68822, 42.68795, 42.68902, 42.6902, 42.6912, 42.69115, 42.69274, 42.69664, 
  42.69716, 42.69963, 42.70069, 42.70201, 42.70238, 42.70364, 42.70416, 42.70583, 42.70716, 42.70872, 
  42.70845, 42.70998, 42.71277, 42.7125, 42.7131, 42.71291, 42.71442, 42.7155, 42.71556, 42.71734, 
  42.71799, 42.71753, 42.71961, 42.71989, 42.72098, 42.72141, 42.72453, 42.72632, 42.72648, 42.72718, 
  42.72765, 42.72881, 42.72896, 42.72967, 42.72949, 42.72681, 42.72661, 42.72487, 42.72566, 42.72659, 
  42.72757, 42.72866, 42.72788, 42.72727, 42.72648, 42.7273, 42.72872, 42.72941, 42.73206, 42.73304, 
  42.73395, 42.73484, 42.73521, 42.73643, 42.73611, 42.73577, 42.73493, 42.73488, 42.73398, 42.73387, 
  42.73441, 42.73446, 42.73126, 42.73107, 42.7316, 42.73181, 42.73225, 42.7325, 42.73228, 42.73181, 
  42.73149, 42.73106, 42.73092, 42.72967, 42.72982, 42.73054, 42.73148, 42.73237, 42.73376, 42.73635, 
  42.73755, 42.73819, 42.73786, 42.73933, 42.7398, 42.73963, 42.74026, 42.73998, 42.73909, 42.73723, 
  42.73681, 42.73816, 42.73813, 42.73706, 42.74034, 42.74135, 42.74302, 42.74434, 42.74568, 42.74554, 
  42.74597, 42.74472, 42.74503, 42.74489, 42.74535, 42.74472, 42.74491, 42.7466, 42.74732, 42.74663, 
  42.74759, 42.74819, 42.7473, 42.7511, 42.75482, 42.75405, 42.75614, 42.75728, 42.75638, 42.75692, 
  42.7567, 42.75838, 42.75857, 42.759, 42.75899, 42.76056, 42.76023, 42.76115, 42.76058, 42.76102, 
  42.76218, 42.76401, 42.76395, 42.76493, 42.76496, 42.76575, 42.76565, 42.76699, 42.76973, 42.76986, 
  42.77101, 42.77038, 42.772, 42.77275, 42.77201, 42.77391, 42.77433, 42.77546, 42.77512, 42.77643, 
  42.77624, 42.77663, 42.77636, 42.77666, 42.77733, 42.77958, 42.78081, 42.77856, 42.77896, 42.77847, 
  42.78185, 42.7822, 42.78265, 42.78242, 42.78184, 42.78132, 42.78141, 42.78238, 42.78338, 42.78437, 
  42.78552, 42.78642, 42.78561, 42.78609, 42.78425, 42.78421, 42.78452, 42.7842, 42.78537, 42.78531, 
  42.78493, 42.78498, 42.78371, 42.78462, 42.78479, 42.78595, 42.78665, 42.78557, 42.78672, 42.78635, 
  42.78696, 42.78668, 42.78698, 42.78672, 42.78739, 42.78733, 42.78776, 42.78681, 42.78743, 42.78694, 
  42.78806, 42.78582, 42.79083, 42.79045, 42.79103, 42.79186, 42.79216, 42.78968, 42.79068, 42.79035, 
  42.79274, 42.79446, 42.79751, 42.80045, 42.80182, 42.80129, 42.80075, 42.80096, 42.80258, 42.80324, 
  42.80375, 42.80296, 42.80171, 42.80162, 42.80264, 42.80346, 42.80334, 42.80129, 42.80055, 42.79704, 
  42.7983, 42.79989, 42.8014, 42.80278, 42.8044, 42.80535, 42.80516, 42.80264, 42.80165, 42.8003, 
  42.79971, 42.79937, 42.80036, 42.79956, 42.7966, 42.79686, 42.79565, 42.79461, 42.7939, 42.78989, 
  42.79039, 42.78929, 42.78727, 42.78883, 42.78645, 42.78564, 42.78392, 42.7832, 42.77967, 42.77929, 
  42.78263, 42.78697, 42.78849, 42.78981, 42.78782, 42.79027, 42.79217, 42.79225, 42.79026, 42.78968, 
  42.78823, 42.78752, 42.78638, 42.7863, 42.78518, 42.78384, 42.78556, 42.78496, 42.78636, 42.78664, 
  42.78571, 42.78485, 42.78438, 42.78371, 42.78378, 42.78182, 42.7817, 42.78264, 42.78078, 42.77885, 
  42.77793, 42.7747, 42.77381, 42.77239, 42.77163, 42.76952, 42.76933, 42.76708, 42.76724, 42.76563, 
  42.76429, 42.76453, 42.76092, 42.76108, 42.75972, 42.75977, 42.75785, 42.75703, 42.75632, 42.75692, 
  42.75596, 42.75609, 42.75778, 42.75891, 42.75884, 42.75942, 42.76104, 42.76147, 42.7591, 42.75992, 
  42.75994, 42.75839, 42.75902, 42.76078, 42.76165, 42.76208, 42.76294, 42.76348, 42.76291, 42.7635, 
  42.76413, 42.76507, 42.76629, 42.76651, 42.76596, 42.76652, 42.76655, 42.7654, 42.76662, 42.76661, 
  42.76751, 42.76855, 42.76736, 42.76799, 42.76727, 42.76761, 42.76701, 42.76739, 42.76525, 42.76373, 
  42.76377, 42.76266, 42.76219, 42.75788, 42.75616, 42.75662, 42.75468, 42.75482)
LONGITUDE_VALUEs <- c(
  17.41841, 17.4197, 17.43189, 17.43885, 17.43756, 17.44013, 17.44463, 17.4469, 17.44913, 17.45089, 
  17.45231, 17.4554, 17.4563, 17.45767, 17.45952, 17.459, 17.46411, 17.46497, 17.46776, 17.47093, 
  17.4708, 17.47415, 17.47724, 17.49535, 17.49956, 17.49848, 17.50986, 17.51436, 17.51801, 17.52046, 
  17.52368, 17.52831, 17.53247, 17.53264, 17.53621, 17.53711, 17.53887, 17.5426, 17.54711, 17.54887, 
  17.55166, 17.55359, 17.56513, 17.57024, 17.57535, 17.57878, 17.5814, 17.58341, 17.58646, 17.58556, 
  17.58955, 17.5904, 17.5931, 17.59293, 17.59735, 17.60027, 17.60752, 17.60774, 17.61053, 17.61272, 
  17.61714, 17.61898, 17.62109, 17.62602, 17.62551, 17.6289, 17.62928, 17.6325, 17.63473, 17.63598, 
  17.63924, 17.64198, 17.64537, 17.64709, 17.65063, 17.65065, 17.65389, 17.6563, 17.65919, 17.66087, 
  17.66252, 17.66428, 17.66621, 17.66861, 17.67057, 17.67256, 17.6843, 17.68597, 17.6887, 17.69151, 
  17.69634, 17.6996, 17.69988, 17.69872, 17.6999, 17.70016, 17.69902, 17.69694, 17.69719, 17.69644, 
  17.69722, 17.69745, 17.69831, 17.69818, 17.70149, 17.70417, 17.70589, 17.70844, 17.70846, 17.70576, 
  17.70664, 17.70902, 17.70908, 17.71082, 17.71116, 17.71908, 17.72112, 17.72163, 17.7264, 17.72663, 
  17.72382, 17.72513, 17.73241, 17.73269, 17.73537, 17.73653, 17.74067, 17.74071, 17.7414, 17.7409, 
  17.73968, 17.73668, 17.7382, 17.73687, 17.7356, 17.7394, 17.74118, 17.74112, 17.74011, 17.73972, 
  17.74133, 17.74416, 17.74356, 17.74346, 17.74221, 17.74191, 17.74421, 17.7453, 17.7476, 17.74775, 
  17.74831, 17.74871, 17.74977, 17.75067, 17.75223, 17.75019, 17.74996, 17.7511, 17.75444, 17.75077, 
  17.7441, 17.74487, 17.74296, 17.74256, 17.74165, 17.74135, 17.74277, 17.74412, 17.74713, 17.74623, 
  17.74187, 17.73775, 17.7352, 17.7323, 17.73103, 17.72934, 17.72245, 17.72187, 17.71855, 17.71872, 
  17.71299, 17.7108, 17.71078, 17.70998, 17.70979, 17.70342, 17.69636, 17.69521, 17.69336, 17.69288, 
  17.68644, 17.68509, 17.68387, 17.68286, 17.68078, 17.6781, 17.67612, 17.67406, 17.6687, 17.66797, 
  17.67024, 17.67012, 17.67121, 17.67106, 17.6728, 17.67391, 17.67348, 17.67385, 17.67097, 17.67095, 
  17.66956, 17.66936, 17.66763, 17.66853, 17.66604, 17.66604, 17.66443, 17.66308, 17.66218, 17.66113, 
  17.66087, 17.65518, 17.65183, 17.65063, 17.65079, 17.65057, 17.65051, 17.6502, 17.65008, 17.6503, 
  17.65003, 17.65006, 17.65049, 17.64974, 17.64795, 17.64704, 17.64791, 17.64803, 17.64732, 17.64497, 
  17.64164, 17.63765, 17.63606, 17.63115, 17.62231, 17.62111, 17.62059, 17.6192, 17.62134, 17.62226, 
  17.61905, 17.61139, 17.60165, 17.59905, 17.5962, 17.59643, 17.59581, 17.59633, 17.5959, 17.59819, 
  17.59942, 17.6015, 17.60333, 17.60592, 17.60751, 17.60952, 17.61092, 17.60916, 17.60437, 17.60256, 
  17.60231, 17.60053, 17.59849, 17.59195, 17.57379, 17.57167, 17.56744, 17.56109, 17.55948, 17.55847, 
  17.55545, 17.55414, 17.55034, 17.54983, 17.54879, 17.54703, 17.54369, 17.54148, 17.54021, 17.53729, 
  17.53616, 17.52714, 17.52223, 17.52176, 17.51727, 17.51478, 17.51202, 17.51081, 17.5029, 17.50039, 
  17.49888, 17.49749, 17.49537, 17.48903, 17.48723, 17.48516, 17.47878, 17.47476, 17.46925, 17.46624, 
  17.46527, 17.46459, 17.46418, 17.46338, 17.46371, 17.45926, 17.4535, 17.45138, 17.44981, 17.44841, 
  17.44264, 17.44262, 17.44204, 17.44178, 17.44229, 17.44156, 17.44057, 17.43959, 17.43967, 17.44122, 
  17.44091, 17.43973, 17.43863, 17.43583, 17.43312, 17.43168, 17.43068, 17.42907, 17.42367, 17.4207, 
  17.42047, 17.41775, 17.41401, 17.41158, 17.40993, 17.4094, 17.40671, 17.405, 17.40164, 17.4003, 
  17.39829, 17.39667, 17.39595, 17.39504, 17.39406, 17.39305, 17.39192, 17.39036, 17.38928, 17.38791, 
  17.38505, 17.37807, 17.37277, 17.37046, 17.37034, 17.37312, 17.37902, 17.38024, 17.38374, 17.3849, 
  17.38676, 17.39022, 17.39035, 17.39635, 17.39106, 17.38964, 17.38958, 17.38835, 17.38726, 17.38764, 
  17.38541, 17.38451, 17.38509, 17.38189, 17.38279, 17.38061, 17.37861, 17.37936, 17.37752, 17.37404, 
  17.37084, 17.36988, 17.37213, 17.36951, 17.37048, 17.36771, 17.36692, 17.36801, 17.36765, 17.36872, 
  17.3684, 17.36634, 17.36413, 17.36269, 17.36144, 17.35934, 17.35584, 17.35559, 17.35595, 17.34821, 
  17.34597, 17.34438, 17.34417, 17.34198, 17.33939, 17.33366, 17.33271, 17.33413, 17.33293, 17.33164, 
  17.32999, 17.33018, 17.3328, 17.33261, 17.32859, 17.32679, 17.32762, 17.32613, 17.32392, 17.32543, 
  17.32457, 17.32198, 17.3205, 17.31739, 17.31724, 17.31834, 17.32052, 17.3225, 17.32327, 17.32572, 
  17.3276, 17.32745, 17.32548, 17.32516, 17.32364, 17.32439, 17.32578, 17.3267, 17.32924, 17.32986, 
  17.32874, 17.32846, 17.33681, 17.33765, 17.34123, 17.3423, 17.34859, 17.35333, 17.35548, 17.35973, 
  17.36162, 17.36679, 17.37222, 17.37428, 17.37606, 17.3776, 17.37968, 17.38327, 17.38423, 17.38659, 
  17.38809, 17.38828, 17.38626, 17.38319, 17.38032, 17.37935, 17.37844, 17.38002, 17.38247, 17.38483, 
  17.38676, 17.38875, 17.38951, 17.38962, 17.38881, 17.38666, 17.38462, 17.38566, 17.38672, 17.38741, 
  17.38749, 17.38853, 17.38813, 17.38747, 17.38643, 17.38524, 17.38222, 17.38108, 17.37833, 17.37559, 
  17.3744, 17.37481, 17.37814, 17.38114, 17.38414, 17.38526, 17.38706, 17.38878, 17.40071, 17.40384, 
  17.40599, 17.40612, 17.40844, 17.40949, 17.40938, 17.41172, 17.41386, 17.41537)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.9276, 42.92358, 42.92383, 42.92848, 42.92283, 42.92144, 42.92421, 42.91981, 42.91327, 42.91604, 
  42.91554, 42.91252, 42.90837, 42.91239, 42.91202, 42.90812, 42.91013, 42.90674, 42.9085, 42.90674, 
  42.9129, 42.90812, 42.91264, 42.91088, 42.91315, 42.91126, 42.91365, 42.91805, 42.9178, 42.91202, 
  42.91332, 42.91968, 42.92245, 42.92119, 42.92547, 42.92547, 42.92383, 42.92522, 42.92283, 42.92459, 
  42.92911, 42.93037, 42.92786, 42.92961, 42.93502, 42.94256, 42.94457, 42.9511, 42.95349, 42.9555, 
  42.95801, 42.95776, 42.95123, 42.9506, 42.95337, 42.956, 42.95701, 42.956, 42.95902, 42.96128, 
  42.96329, 42.96103, 42.96304, 42.96115, 42.96404, 42.96229, 42.96354, 42.96203, 42.96078, 42.9594, 
  42.95864, 42.95965, 42.96191, 42.96404, 42.96455, 42.96115, 42.96379, 42.96442, 42.9663, 42.96417, 
  42.96781, 42.96668, 42.96957, 42.96819, 42.96894, 42.97259, 42.97095, 42.97598, 42.9786, 42.98024, 
  42.97799, 42.97321, 42.9751, 42.97799, 42.97748, 42.97485, 42.9761, 42.97397, 42.97598, 42.97434, 
  42.97547, 42.97334, 42.97535, 42.97196, 42.96806, 42.97095, 42.97158, 42.96857, 42.96844, 42.96681, 
  42.96304, 42.96505, 42.95877, 42.95789, 42.96078, 42.95889, 42.96141, 42.96982, 42.96643, 42.97045, 
  42.97334, 42.9702, 42.97309, 42.97384, 42.97686, 42.97447, 42.97673, 42.97598, 42.97899, 42.97836, 
  42.98062, 42.98163, 42.98665, 42.98789, 42.99028, 42.98714, 42.98789, 42.99116, 42.98626, 42.99091, 
  42.98764, 42.98764, 42.99304, 42.99279, 42.99467, 42.99179, 42.99241, 42.9904, 42.99405, 42.99204, 
  42.98902, 42.98852, 42.99266, 42.99241, 42.98953, 42.9904, 42.98601, 42.98726, 42.98563, 42.98701, 
  42.98852, 42.99015, 42.99091, 42.9889, 42.99066, 42.98789, 42.98639, 42.98526, 42.98626, 42.98362, 
  42.98086, 42.9835, 42.97973, 42.97948, 42.97383, 42.97383, 42.98187, 42.9796, 42.98161, 42.9845, 
  42.9835, 42.98073, 42.98187, 42.97584, 42.98011, 42.9791, 42.97383, 42.9737, 42.96993, 42.97056, 
  42.96818, 42.96905, 42.9678, 42.96931, 42.96704, 42.96893, 42.96604, 42.96905, 42.96755, 42.96441, 
  42.96101, 42.96378, 42.96164, 42.95737, 42.96064, 42.95247, 42.95436, 42.95084, 42.94368, 42.94141, 
  42.94405, 42.93838, 42.936, 42.9375, 42.93361, 42.9311, 42.92984, 42.9258, 42.92179, 42.91702, 
  42.91941, 42.91739, 42.91601, 42.91501, 42.9189, 42.92934, 42.92443, 42.9277, 42.92393, 42.92305, 
  42.91853, 42.92041, 42.91626, 42.92016, 42.92003, 42.90708, 42.90746, 42.90595, 42.90646, 42.9047, 
  42.90847, 42.90444, 42.90344, 42.90633, 42.90671, 42.90482, 42.90407, 42.90268, 42.90331, 42.90583, 
  42.90646, 42.90394, 42.90482, 42.90356, 42.90457, 42.90205, 42.90947, 42.90633, 42.90344, 42.90658, 
  42.90004, 42.89979, 42.89702, 42.89388, 42.89627, 42.89338, 42.89751, 42.89676, 42.90003, 42.90041, 
  42.91311, 42.90974, 42.91147, 42.91549, 42.91298, 42.91663, 42.91977)
LONGITUDE_VALUEs <- c(
  16.97569, 16.99012, 16.99836, 17.00283, 17.00265, 17.04281, 17.04573, 17.04573, 17.07956, 17.08025, 
  17.08368, 17.08282, 17.10306, 17.10443, 17.10718, 17.10701, 17.11319, 17.11954, 17.12195, 17.12349, 
  17.1283, 17.12813, 17.16214, 17.16626, 17.16952, 17.17261, 17.18014, 17.18289, 17.18872, 17.18684, 
  17.19701, 17.20023, 17.19559, 17.18563, 17.18185, 17.17705, 17.17687, 17.17361, 17.17155, 17.16743, 
  17.16932, 17.16537, 17.16056, 17.15953, 17.16502, 17.1537, 17.15645, 17.14839, 17.15097, 17.14702, 
  17.14633, 17.1441, 17.14372, 17.13977, 17.13857, 17.142, 17.1408, 17.13754, 17.13582, 17.13754, 
  17.13582, 17.13393, 17.12964, 17.12655, 17.11951, 17.11711, 17.11488, 17.11368, 17.11642, 17.11642, 
  17.11127, 17.10887, 17.11265, 17.1111, 17.10441, 17.10115, 17.09686, 17.10166, 17.0996, 17.09171, 
  17.08484, 17.0814, 17.07797, 17.07471, 17.06201, 17.06046, 17.05428, 17.03986, 17.04743, 17.04844, 
  17.02081, 17.02166, 17.01651, 17.01651, 17.00536, 17.00364, 16.99644, 16.99472, 16.99214, 16.98339, 
  16.96811, 16.96176, 16.953, 16.92845, 16.92845, 16.92553, 16.90922, 16.91334, 16.90922, 16.90905, 
  16.89979, 16.88897, 16.87541, 16.8488, 16.84331, 16.83988, 16.83747, 16.79284, 16.78271, 16.7834, 
  16.77876, 16.77499, 16.77464, 16.76727, 16.76538, 16.76315, 16.75611, 16.74958, 16.7446, 16.74066, 
  16.74048, 16.73036, 16.73087, 16.72607, 16.72521, 16.7204, 16.71559, 16.71233, 16.7065, 16.70289, 
  16.6998, 16.69654, 16.69877, 16.69413, 16.69345, 16.69019, 16.68778, 16.68418, 16.68401, 16.67233, 
  16.67113, 16.66649, 16.66701, 16.65997, 16.66152, 16.65774, 16.6531, 16.65156, 16.64898, 16.64778, 
  16.64898, 16.64744, 16.64057, 16.64023, 16.63748, 16.63181, 16.63233, 16.63061, 16.62838, 16.62735, 
  16.63576, 16.63988, 16.64126, 16.64383, 16.64486, 16.64624, 16.65036, 16.65207, 16.65413, 16.65379, 
  16.65791, 16.65791, 16.66461, 16.66409, 16.66907, 16.67027, 16.66924, 16.67731, 16.67765, 16.67285, 
  16.67405, 16.67645, 16.67937, 16.68332, 16.68658, 16.68778, 16.69465, 16.70272, 16.70478, 16.70203, 
  16.70821, 16.71576, 16.71679, 16.70941, 16.70117, 16.66786, 16.66186, 16.66014, 16.67044, 16.66787, 
  16.66152, 16.64332, 16.6435, 16.63834, 16.64006, 16.63937, 16.64418, 16.63845, 16.65071, 16.65551, 
  16.65946, 16.66204, 16.66015, 16.66427, 16.66684, 16.66375, 16.67216, 16.67354, 16.6768, 16.69448, 
  16.70444, 16.70925, 16.7156, 16.71491, 16.72212, 16.75233, 16.76126, 16.76538, 16.76812, 16.76881, 
  16.7743, 16.77327, 16.77619, 16.781, 16.79302, 16.79422, 16.79079, 16.79147, 16.79559, 16.79559, 
  16.80091, 16.8076, 16.81721, 16.82237, 16.82992, 16.8361, 16.85739, 16.85275, 16.85636, 16.86082, 
  16.85773, 16.85069, 16.8488, 16.85825, 16.86099, 16.86391, 16.88382, 16.8936, 16.89961, 16.90545, 
  16.93463, 16.93761, 16.94132, 16.93995, 16.94304, 16.95317, 16.95265)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.73008, 42.73058, 42.73247, 42.73751, 42.73701, 42.73449, 42.73335, 42.73134, 42.72541, 42.72276, 
  42.72554, 42.72541, 42.72755, 42.72554, 42.73008, 42.73323, 42.73562, 42.74937, 42.75239, 42.75529, 
  42.75894, 42.76235, 42.76676, 42.76764, 42.77054, 42.76991, 42.77407, 42.76966, 42.77142, 42.77054, 
  42.77306, 42.77016, 42.77671, 42.77419, 42.77117, 42.77205, 42.77419, 42.77823, 42.77394, 42.77331, 
  42.76789, 42.77016, 42.77508, 42.77508, 42.77722, 42.7752, 42.77369, 42.7752, 42.77193, 42.76751, 
  42.76701, 42.76915, 42.77016, 42.77243, 42.77041, 42.77268, 42.77495, 42.77558, 42.77268, 42.77596, 
  42.77281, 42.77281, 42.7689, 42.76638, 42.7655, 42.76121, 42.76134, 42.75806, 42.75869, 42.75365, 
  42.75453, 42.75365, 42.7568, 42.75642, 42.75819, 42.76058, 42.76361, 42.76575, 42.76436, 42.76197, 
  42.76071, 42.7539, 42.74962, 42.74521, 42.7476, 42.74407, 42.74344, 42.74142, 42.74054, 42.73827, 
  42.73436, 42.73209, 42.73235, 42.73033, 42.73348, 42.73083, 42.73071, 42.72654, 42.72604, 42.72314, 
  42.72402, 42.73121, 42.7326, 42.73487, 42.73474, 42.73714, 42.73739, 42.7355, 42.73726, 42.73373, 
  42.73411)
LONGITUDE_VALUEs <- c(
  16.88455, 16.88644, 16.88489, 16.88661, 16.8885, 16.88953, 16.89245, 16.89193, 16.88008, 16.88695, 
  16.89021, 16.89365, 16.89451, 16.89846, 16.91306, 16.91443, 16.92181, 16.93074, 16.93744, 16.93469, 
  16.93914, 16.93743, 16.94361, 16.93897, 16.93485, 16.92867, 16.92334, 16.91647, 16.91458, 16.90789, 
  16.90514, 16.87921, 16.88075, 16.87235, 16.86891, 16.86496, 16.86943, 16.8538, 16.85397, 16.85174, 
  16.84624, 16.84487, 16.84693, 16.84006, 16.83439, 16.83165, 16.83302, 16.83714, 16.83886, 16.83336, 
  16.82254, 16.82373, 16.83215, 16.82906, 16.82185, 16.8215, 16.82682, 16.82356, 16.81824, 16.8167, 
  16.81034, 16.80536, 16.8009, 16.80262, 16.79747, 16.79918, 16.80433, 16.80416, 16.80708, 16.80622, 
  16.8112, 16.81378, 16.81532, 16.81034, 16.81, 16.81584, 16.81429, 16.82167, 16.82339, 16.82288, 
  16.82391, 16.82288, 16.82666, 16.82442, 16.81361, 16.81189, 16.82013, 16.8191, 16.82219, 16.81944, 
  16.82477, 16.82425, 16.82872, 16.83146, 16.83541, 16.83627, 16.83884, 16.83833, 16.84331, 16.84073, 
  16.84726, 16.84382, 16.85721, 16.85893, 16.86305, 16.86752, 16.87267, 16.87421, 16.87885, 16.87661, 
  16.88039)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.76834, 42.76705, 42.76567, 42.76633, 42.76538, 42.76667, 42.768, 42.76919, 42.7702, 42.77184, 
  42.77294, 42.77238, 42.77074, 42.77096, 42.76998, 42.76894, 42.76938, 42.7677, 42.76827, 42.76773, 
  42.76927)
LONGITUDE_VALUEs <- c(
  16.97988, 16.97936, 16.97975, 16.98215, 16.98331, 16.98657, 16.98602, 16.98704, 16.98533, 16.98644, 
  16.98366, 16.98074, 16.98001, 16.97812, 16.97246, 16.97061, 16.96772, 16.97008, 16.9734, 16.97576, 
  16.97814)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.74733, 42.74547, 42.746, 42.74528, 42.74622, 42.74638, 42.7489)
LONGITUDE_VALUEs <- c(16.79423, 16.79504, 16.79843, 16.79925, 16.80079, 16.80298, 16.79839)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.75568, 42.75354, 42.75376, 42.75325, 42.75357, 42.75609)
LONGITUDE_VALUEs <- c(16.79654, 16.79736, 16.79822, 16.79942, 16.80199, 16.80212)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.76641, 42.76997, 42.77117, 42.7735, 42.77551, 42.77624, 42.77791, 42.77747, 42.77602, 42.77624, 
  42.77369, 42.77148, 42.77255, 42.77041, 42.76965, 42.76723, 42.76408, 42.76033, 42.7614, 42.76049, 
  42.76039, 42.75872, 42.75856, 42.75973, 42.76089, 42.76171, 42.76212, 42.76291, 42.76238, 42.76197, 
  42.76096, 42.76023, 42.76216, 42.76584)
LONGITUDE_VALUEs <- c(
  16.79205, 16.79372, 16.79295, 16.79475, 16.79432, 16.79239, 16.79179, 16.7893, 16.78823, 16.78463, 
  16.78193, 16.78223, 16.78604, 16.78626, 16.78433, 16.78557, 16.78325, 16.78338, 16.78566, 16.78665, 
  16.78853, 16.78763, 16.78909, 16.78905, 16.79046, 16.78905, 16.78999, 16.78991, 16.79098, 16.79394, 
  16.79291, 16.79385, 16.79647, 16.79347)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.74845, 42.74819, 42.74935, 42.74954, 42.74909, 42.75014, 42.74992, 42.75061, 42.74938, 42.74924,
  42.7505, 42.75102, 42.75206, 42.75274, 42.75287, 42.75336, 42.7526, 42.75178, 42.75187, 42.75243,
  42.75299, 42.75381, 42.7534, 42.75405, 42.75517, 42.75591, 42.75499, 42.75616, 42.75851, 42.75846, 
  42.75718, 42.75610, 42.75703, 42.75739, 42.75608, 42.7548, 42.75351, 42.75236, 42.75142, 42.75145, 
  42.7522, 42.75088, 42.75146, 42.75364, 42.75277, 42.7514, 42.75079, 42.75115, 42.75088)
LONGITUDE_VALUEs <- c(
  16.70918, 16.71081, 16.71135, 16.71394, 16.71486, 16.71594, 16.71907, 16.72072, 16.72184, 16.72353,
  16.72409, 16.72536, 16.72461, 16.72534, 16.72645, 16.72752, 16.7289, 16.72905, 16.73314, 16.73314,
  16.73173, 16.73156, 16.73023, 16.72956, 16.73074, 16.72956, 16.72714, 16.72596, 16.72559, 16.72508, 
  16.72482, 16.72354, 16.72222, 16.72021, 16.72006, 16.72216, 16.71984, 16.72042, 16.71958, 16.71817, 
  16.71667, 16.71487, 16.71311, 16.71381, 16.71161, 16.71145, 16.71034, 16.70926, 16.70821)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.39402, 42.39367, 42.39298, 42.39211, 42.39234, 42.3918, 42.39202, 42.3912, 42.39189, 42.39115, 
  42.39047, 42.39028, 42.39139, 42.39238, 42.39191, 42.39265, 42.39343, 42.39371, 42.39332, 42.39375, 
  42.39351, 42.39445, 42.39423, 42.39388, 42.39352, 42.39364, 42.39346, 42.39388)
LONGITUDE_VALUEs <- c(
  16.2499, 16.24963, 16.25125, 16.25214, 16.25355, 16.25542, 16.25691, 16.25965, 16.26157, 16.26402, 
  16.26464, 16.26566, 16.26707, 16.26635, 16.26522, 16.26376, 16.26317, 16.26053, 16.25985, 16.25898, 
  16.25836, 16.2553, 16.25377, 16.25439, 16.25417, 16.25344, 16.2526, 16.25141)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.3881, 42.38838, 42.38902, 42.38905, 42.38873, 42.38905, 42.38912, 42.38897, 42.38852, 42.38783, 
  42.3878, 42.38743, 42.38761)
LONGITUDE_VALUEs <- c(
  16.27221, 16.2732, 16.27297, 16.27193, 16.27122, 16.27029, 16.26904, 16.26898, 16.27075, 16.2711, 
  16.27171, 16.2727, 16.27284)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.37799, 42.37783, 42.37792, 42.37817, 42.37805, 42.37811)
LONGITUDE_VALUEs <- c(16.33828, 16.3386, 16.33956, 16.3393, 16.33874, 16.33841)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.9555, 42.95141, 42.95132, 42.94988, 42.95415, 42.95801, 42.95823)
LONGITUDE_VALUEs <- c(17.1507, 17.1567, 17.16284, 17.16696, 17.17026, 17.1637, 17.15284)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.94677, 42.94444, 42.94202, 42.94369, 42.94796, 42.94802)
LONGITUDE_VALUEs <- c(17.16434, 17.16469, 17.17031, 17.17125, 17.16773, 17.1655)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.93835, 42.93561, 42.93181, 42.93241, 42.93809)
LONGITUDE_VALUEs <- c(17.16636, 17.16516, 17.17241, 17.17382, 17.17065)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.95909, 42.95846, 42.95645, 42.9566, 42.95758, 42.95838, 42.96007, 42.96091, 42.96163, 42.96125, 
  42.96051, 42.95988)
LONGITUDE_VALUEs <- c(
  17.1905, 17.18942, 17.19165, 17.19264, 17.19262, 17.19545, 17.19421, 17.19165, 17.19109, 17.19015, 
  17.19013, 17.18947)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.93862, 42.93909, 42.94123, 42.94112, 42.9392, 42.93961)
LONGITUDE_VALUEs <- c(17.19189, 17.19438, 17.19288, 17.18897, 17.18931, 17.19049)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.98022, 42.97921, 42.97989, 42.98096)
LONGITUDE_VALUEs <- c(17.05102, 17.05263, 17.05467, 17.0539)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.95879, 42.96117, 42.96246, 42.96194, 42.96249, 42.96205, 42.95885)
LONGITUDE_VALUEs <- c(16.68287, 16.68619, 16.68426, 16.67909, 16.67768, 16.67706, 16.67991)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.98357, 42.98307, 42.98131, 42.9821, 42.98194, 42.98486, 42.98618, 42.98552, 42.98693, 42.98737,
  42.98994, 42.98916, 42.98693, 42.98649, 42.98793, 42.9863, 42.98684, 42.9848, 42.98527, 42.98338,
  42.98231, 42.98294, 42.98219, 42.9825, 42.98097, 42.98144)
LONGITUDE_VALUEs <- c(
  16.6164, 16.61863, 16.61841, 16.62133, 16.62378, 16.62378, 16.62219, 16.62039, 16.61974, 16.61824,
  16.61837, 16.6167, 16.61704, 16.61584, 16.61438, 16.61288, 16.61138, 16.61069, 16.60846, 16.60649,
  16.60787, 16.60945, 16.61069, 16.6131, 16.61327, 16.61554)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.91365, 42.91748, 42.91732, 42.91572, 42.91487, 42.91239, 42.91267, 42.91208, 42.91264, 42.91098, 
  42.91248)
LONGITUDE_VALUEs <- c(
  16.67755, 16.67532, 16.67266, 16.6724, 16.67043, 16.67236, 16.67395, 16.67622, 16.67689, 16.67905, 
  16.68124)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.84127, 42.84256, 42.84334, 42.84314, 42.84134)
LONGITUDE_VALUEs <- c(17.72373, 17.72412, 17.72341, 17.72266, 17.72296)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.93571, 42.93511, 42.93659, 42.93756)
LONGITUDE_VALUEs <- c(17.47334, 17.47583, 17.47677, 17.4754)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.92603, 42.92452, 42.92509, 42.92729, 42.92811)
LONGITUDE_VALUEs <- c(17.47188, 17.47231, 17.47703, 17.47686, 17.47493)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.92886, 42.92669, 42.92478, 42.92512, 42.92679, 42.92817)
LONGITUDE_VALUEs <- c(17.4848, 17.48402, 17.48626, 17.4869, 17.48613, 17.48647)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.92891, 42.92786, 42.92722, 42.92797, 42.92921)
LONGITUDE_VALUEs <- c(17.49608, 17.49606, 17.49749, 17.4987, 17.49698)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.91991, 42.91859, 42.91843, 42.91978, 42.92079, 42.92079)
LONGITUDE_VALUEs <- c(17.49043, 17.49106, 17.49292, 17.49346, 17.49256, 17.49091)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.9534, 42.95317, 42.954, 42.95482, 42.95472)
LONGITUDE_VALUEs <- c(17.45542, 17.4581, 17.45855, 17.45745, 17.45595)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.92063, 42.9194, 42.92003, 42.92003, 42.92132, 42.92141, 42.92465, 42.92559, 42.92349, 42.92336, 
  42.92239, 42.92192)
LONGITUDE_VALUEs <- c(
  17.50158, 17.50475, 17.50634, 17.50857, 17.50831, 17.5066, 17.50437, 17.50192, 17.50068, 17.49952, 
  17.49952, 17.50089)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.87413, 42.87312, 42.87381, 42.87478, 42.875, 42.8747, 42.87451)
LONGITUDE_VALUEs <- c(17.4256, 17.42634, 17.4281, 17.42895, 17.42875, 17.42806, 17.42633)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.95724, 42.95622, 42.95608, 42.95684, 42.95807, 42.95765)
LONGITUDE_VALUEs <- c(17.20038, 17.20061, 17.2034, 17.2037, 17.20025, 17.19969)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.93192, 42.93154, 42.93206, 42.93306, 42.93214, 42.93181, 42.93115)
LONGITUDE_VALUEs <- c(17.18218, 17.18469, 17.18555, 17.18319, 17.18182, 17.18062, 17.18096)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.93558, 42.93696, 42.93767, 42.93768, 42.93572, 42.93479, 42.93423, 42.93464)
LONGITUDE_VALUEs <- c(17.20349, 17.20555, 17.20553, 17.20325, 17.20291, 17.20207, 17.20244, 17.20345)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.90495, 42.90624, 42.90785, 42.90847, 42.90599)
LONGITUDE_VALUEs <- c(16.68847, 16.69092, 16.68976, 16.68646, 16.68594)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.90124, 42.90194, 42.90128, 42.90231, 42.90366, 42.90502, 42.90615, 42.90731, 42.90656, 42.90483, 
  42.90398, 42.90326)
LONGITUDE_VALUEs <- c(
  16.69341, 16.69414, 16.6962, 16.69774, 16.69757, 16.69676, 16.69761, 16.69667, 16.69555, 16.69598, 
  16.68959, 16.68955)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.89702, 42.89794, 42.89931, 42.89964, 42.89791)
LONGITUDE_VALUEs <- c(16.70192, 16.7032, 16.70228, 16.70082, 16.70074)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  42.91518, 42.91437, 42.90807, 42.90813, 42.90511, 42.9048, 42.90737, 42.90866, 42.90948, 42.90851, 
  42.91118, 42.91275)
LONGITUDE_VALUEs <- c(
  16.72232, 16.72123, 16.73195, 16.73371, 16.7371, 16.74027, 16.7389, 16.7395, 16.73851, 16.73427, 
  16.73276, 16.72633)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.90285, 42.9044, 42.90469, 42.9039, 42.90288)
LONGITUDE_VALUEs <- c(16.75088, 16.75135, 16.74906, 16.74871, 16.74968)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.90211, 42.90143, 42.90008, 42.8993, 42.89926, 42.89969, 42.9004, 42.90159, 42.90302, 42.90305)
LONGITUDE_VALUEs <- c(16.76022, 16.76129, 16.76191, 16.76371, 16.76509, 16.76519, 16.76346, 16.7621, 16.76206, 16.76135)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.89203, 42.89439, 42.89546, 42.89656, 42.89502, 42.89272)
LONGITUDE_VALUEs <- c(16.79563, 16.79662, 16.79834, 16.79675, 16.79392, 16.79323)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.89533, 42.89301, 42.89301, 42.89425, 42.89477, 42.89538, 42.89538, 42.89645)
LONGITUDE_VALUEs <- c(16.79978, 16.80272, 16.80395, 16.80594, 16.80976, 16.8097, 16.80749, 16.80455)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.89389, 42.89467, 42.89533, 42.89592, 42.89596, 42.8973, 42.89664, 42.8957, 42.8953, 42.89427)
LONGITUDE_VALUEs <- c(16.81699, 16.81794, 16.8212, 16.82062, 16.81699, 16.81547, 16.81242, 16.81101, 16.81435, 16.81455)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(42.90269, 42.90175, 42.90099, 42.9014, 42.90286)
LONGITUDE_VALUEs <- c(16.82946, 16.82948, 16.8315, 16.83257, 16.83206)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
Geo_3 <- Geo_3 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### BOSNIA AND HERZEGOVINA #####
Geo_0 <- Geometric_Operations(Geo_4, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_0 <- Geometric_Operations(Geo_0, Geo_3)
Geo_4 <- st_set_geometry(Geo_4, st_geometry(Geo_0))
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
LATITUDE_VALUEs <- c(
  44.85945, 44.86055, 44.867, 44.88074, 44.88694, 44.89959, 44.90446, 44.92148, 44.92075, 44.90956, 
  44.89765, 44.89619, 44.91309, 44.91297, 44.90555, 44.90446, 44.90944, 44.90895, 44.89984, 44.89716, 
  44.88926, 44.88913, 44.88597, 44.87916, 44.86639, 44.8575, 44.85434, 44.85921, 44.85227, 44.84728, 
  44.83998, 44.83475, 44.82635, 44.82768, 44.82635, 44.82902, 44.8261, 44.8188, 44.8177, 44.82306, 
  44.82221, 44.81831, 44.81636, 44.81234, 44.81246, 44.80357, 44.79943, 44.79419, 44.79529, 44.78944, 
  44.78688, 44.78152, 44.78433, 44.77982, 44.78567, 44.7842, 44.77787, 44.77494, 44.77336, 44.76678, 
  44.76385, 44.76483, 44.75776, 44.75678, 44.75179, 44.74971, 44.75093, 44.74984, 44.74996, 44.74788, 
  44.74703, 44.74179, 44.7424, 44.73959, 44.74179, 44.72996, 44.72167, 44.71593, 44.71386, 44.70849, 
  44.7091, 44.70471, 44.70312, 44.69507, 44.68946, 44.68726, 44.69214, 44.68775, 44.68372, 44.67493, 
  44.67164, 44.66797, 44.66211, 44.6565, 44.66028, 44.65674, 44.64771, 44.63464, 44.63403, 44.62217, 
  44.61949, 44.61545, 44.61509, 44.61093, 44.60287, 44.59394, 44.58441, 44.57695, 44.57768, 44.57438, 
  44.57683, 44.57548, 44.56215, 44.55445, 44.54674, 44.53744, 44.53169, 44.52263, 44.52533, 44.52386, 
  44.52753, 44.52472, 44.52227, 44.50023, 44.49031, 44.47978, 44.47133, 44.45553, 44.45075, 44.44608, 
  44.43713, 44.42769, 44.41359, 44.39789, 44.37225, 44.36624, 44.36943, 44.3671, 44.36317, 44.35961, 
  44.34366, 44.33862, 44.32868, 44.31849, 44.31062, 44.3105, 44.30006, 44.28593, 44.27978, 44.28237, 
  44.29146, 44.29023, 44.26909, 44.26147, 44.26331, 44.27167, 44.27708, 44.26872, 44.27364, 44.27007, 
  44.24954, 44.24376, 44.23085, 44.22039, 44.20908, 44.19689, 44.18261, 44.18015, 44.1708, 44.16981, 
  44.14333, 44.1304, 44.14752, 44.15048, 44.14506, 44.13766, 44.12879, 44.11733, 44.11561, 44.10082, 
  44.08035, 44.07357, 44.06222, 44.04964, 44.04557, 44.04877, 44.06888, 44.07283, 44.07085, 44.05099, 
  44.04964, 44.0542, 44.05136, 44.03421, 44.02064, 44.01237, 44.01027, 44.00323, 43.99977, 43.98507, 
  43.9789, 43.96729, 43.95615, 43.9554, 43.96022, 43.95774, 43.96145, 43.96862, 43.96849, 43.9605, 
  43.96248, 43.96705, 43.97113, 43.97694, 43.98114, 43.98274, 43.98138, 43.9983, 43.99707, 44.00423, 
  44.0146, 44.01374, 43.9841, 43.96668, 43.95902, 43.9547, 43.94876, 43.94617, 43.93764, 43.93084, 
  43.92676, 43.92392, 43.91526, 43.90957, 43.89807, 43.89473, 43.88929, 43.88694, 43.87976, 43.87951, 
  43.86801, 43.86392, 43.83656, 43.83471, 43.82517, 43.80771, 43.79779, 43.79742, 43.79346, 43.79742, 
  43.78305, 43.77623, 43.77561, 43.76334, 43.75354, 43.74772, 43.73395, 43.71373, 43.70628, 43.70231, 
  43.69425, 43.68928, 43.67004, 43.6688, 43.6493, 43.64657, 43.63849, 43.63737, 43.62718, 43.62805, 
  43.63352, 43.63352, 43.63961, 43.63253, 43.62495, 43.6196, 43.61612, 43.59984, 43.59574, 43.59897, 
  43.59698, 43.59213, 43.58666, 43.57746, 43.57174, 43.57647, 43.57908, 43.58206, 43.57995, 43.58157, 
  43.57858, 43.57584, 43.56975, 43.57037, 43.57759, 43.57833, 43.57435, 43.57734, 43.58169, 43.58505, 
  43.58778, 43.59164, 43.59077, 43.60245, 43.60581, 43.61078, 43.60991, 43.60593, 43.60643, 43.5884, 
  43.59077, 43.58816, 43.59064, 43.60021, 43.59562, 43.59723, 43.59672, 43.59851, 43.60065, 43.60249, 
  43.60577, 43.60625, 43.60697, 43.60378, 43.60084, 43.59789, 43.59968, 43.59994, 43.60064, 43.60075, 
  43.60198, 43.60176, 43.60059, 43.59836, 43.59706, 43.59654, 43.59370, 43.5894, 43.59151, 43.59089, 
  43.59325, 43.58666, 43.58045, 43.57734, 43.57485, 43.56565, 43.56241, 43.55756, 43.55557, 43.54748, 
  43.53193, 43.52956, 43.52782, 43.52857, 43.52851,
  43.53122, 43.52985, 43.53259, 43.53595, 43.53359, 43.53309, 43.53508, 43.53259, 43.53682, 43.52587, 
  43.52612, 43.52363, 43.52102, 43.5189, 43.52239, 43.52214, 43.51828, 43.51318, 43.51293, 43.51542, 
  43.51705, 43.51132, 43.51095, 43.50535, 43.50173, 43.50335, 43.50323, 43.51219, 43.52078, 43.52414, 
  43.53298, 43.53485, 43.54493, 43.54107, 43.55911, 43.55538, 43.55028, 43.54418, 43.53597, 43.53136, 
  43.52987, 43.52663, 43.52277, 43.51518, 43.51145, 43.5051, 43.50273, 43.49028, 43.49289, 43.49152, 
  43.499, 43.50261, 43.5041, 43.49377, 43.4919, 43.48243, 43.48119, 43.4762, 43.47047, 43.46836, 
  43.46076, 43.45714, 43.45228, 43.45353, 43.45116, 43.45328, 43.45278, 43.45614, 43.45266, 43.45278, 
  43.4458, 43.44817, 43.4453, 43.43882, 43.44206, 43.44593, 43.44618, 43.44206, 43.44181, 43.43795, 
  43.42723, 43.41652, 43.41178, 43.40866, 43.39869, 43.39669, 43.38734, 43.38534, 43.3806, 43.3786, 
  43.37299, 43.36575, 43.35826, 43.35264, 43.34466, 43.33692, 43.32792, 43.31906, 43.30469, 43.29982, 
  43.29183, 43.28945, 43.2907, 43.28133, 43.27396, 43.26633, 43.26371, 43.25996, 43.25108, 43.25245, 
  43.26046, 43.26233, 43.27308, 43.27633, 43.28045, 43.2882, 43.2872, 43.30082, 43.31231, 43.31644, 
  43.32118, 43.3233, 43.33192, 43.33005, 43.35676, 43.36013, 43.36113, 43.35402, 43.35651, 43.34853, 
  43.34416, 43.33704, 43.32106, 43.31506, 43.30732, 43.30532, 43.28958, 43.27908, 43.26396, 43.25533, 
  43.23645, 43.2322, 43.22094, 43.21081, 43.2043, 43.14734, 43.12742, 43.03778, 43.03828, 43.0295, 
  43.02912, 43.03276, 43.03226, 43.03389, 43.02799, 43.02034, 42.9995, 42.99611, 42.98581, 42.9784, 
  42.96522, 42.94373, 42.93883, 42.92853, 42.92362, 42.91495, 42.89282, 42.88691, 42.88037, 42.87735, 
  42.86439, 42.86099, 42.86313, 42.85382, 42.83821, 42.82902, 42.81719, 42.77613, 42.75634, 42.74348, 
  42.73604, 42.73504, 42.7286, 42.72293, 42.72306, 42.72016, 42.71032, 42.70224, 42.69859, 42.69064, 
  42.69266, 42.67638, 42.67183, 42.66174, 42.65669, 42.65618, 42.64305, 42.64381, 42.63724, 42.63484, 
  42.63169, 42.6188, 42.61097, 42.60288, 42.5953, 42.58045, 42.57369, 42.57521, 42.57508, 42.5833, 
  42.58848, 42.57217, 42.57002, 42.56332, 42.56484, 42.56358, 42.5656, 42.56269, 42.5637, 42.56105, 
  42.56256, 42.55548, 42.55561,
  42.56402, 42.58539, 42.58905, 42.60068, 42.61647, 42.61963, 42.61925, 42.61483, 42.61736, 42.61028,
  42.61079, 42.60649, 42.6027, 42.61546, 42.61521, 42.61912, 42.61988, 42.65562, 42.65575, 42.66193,
  42.65903, 42.65928, 42.65512, 42.66383, 42.67102, 42.67986, 42.6873, 42.70559, 42.71442, 42.72426,
  42.72464, 42.7288, 42.74872, 42.75238, 42.75238, 42.76536, 42.77657, 42.77872, 42.7995, 42.80819,
  42.81084, 42.80932, 42.81474, 42.82229, 42.83237, 42.83765, 42.83765, 42.85011, 42.86899, 42.87868,
  42.88484, 42.90257, 42.91791, 42.89452, 42.89176, 42.89176, 42.90886, 42.91992, 42.92206, 42.92558,
  42.91904, 42.89742, 42.88899,
  42.89023, 42.89229, 42.89304, 42.89512, 42.89556, 42.89589, 42.89646, 42.89756, 42.90142, 42.90127, 
  42.90226, 42.90235, 42.90361, 42.90477, 42.90518, 42.90499, 42.90721, 42.90883, 42.91026, 42.91167, 
  42.91237, 42.91316, 42.91414, 42.91393, 42.91601, 42.9183, 42.91822, 42.92005, 42.9202, 42.92275, 
  42.92203, 42.92445, 42.92847, 42.92941, 42.93015, 42.93065, 42.93238, 42.93379, 42.93444, 42.93191, 
  42.93158, 42.93246, 42.93207, 42.93035, 42.92963, 42.92979, 42.92884, 42.92983, 42.93023, 42.931, 
  42.93263, 42.93221, 42.93068, 42.93075, 42.92889, 42.9235, 42.92199, 42.92162, 42.91906, 42.91906, 
  42.91709, 42.91704, 42.91634, 42.91671, 42.91634, 42.91491, 42.91506, 42.91466, 42.9144, 42.91381, 
  42.91384, 42.91415, 42.91362, 42.91313, 42.91315, 42.91345, 42.91382, 42.91488, 42.91643, 42.91835, 
  42.91766, 42.91931, 42.91877, 42.92412, 42.92418, 42.92602, 42.92619, 42.92878, 42.92872, 42.93007, 
  42.93021, 42.93177, 42.93194, 42.93373, 42.93533, 42.93843, 42.93868, 42.95530)
LONGITUDE_VALUEs <- c(
  19.04475, 19.0626, 19.07771, 19.08888, 19.12029, 19.12836, 19.14998, 19.17093, 19.19445, 19.20474, 
  19.20869, 19.22191, 19.24681, 19.26002, 19.27169, 19.2813, 19.28903, 19.30602, 19.3177, 19.33194, 
  19.34653, 19.35185, 19.35202, 19.3721, 19.3589, 19.36782, 19.36491, 19.35135, 19.34483, 19.34723, 
  19.345, 19.35547, 19.35289, 19.34825, 19.34345, 19.33658, 19.33315, 19.3359, 19.33212, 19.32783, 
  19.31736, 19.31736, 19.32337, 19.32406, 19.31187, 19.30964, 19.31787, 19.3165, 19.30535, 19.30157, 
  19.29368, 19.29642, 19.3062, 19.31032, 19.31942, 19.32491, 19.32594, 19.32182, 19.30294, 19.3014, 
  19.30745, 19.32377, 19.32394, 19.31536, 19.31536, 19.32016, 19.32343, 19.326, 19.33047, 19.33065, 
  19.32704, 19.32704, 19.32309, 19.31828, 19.31193, 19.30042, 19.3145, 19.31055, 19.30042, 19.30179, 
  19.30798, 19.30901, 19.30471, 19.30025, 19.30437, 19.29767, 19.28994, 19.28668, 19.29149, 19.2793, 
  19.27947, 19.27569, 19.28205, 19.27483, 19.2635, 19.25749, 19.26626, 19.25681, 19.25046, 19.23448, 
  19.21405, 19.21614, 19.22335, 19.2273, 19.22146, 19.21974, 19.20669, 19.20584, 19.20206, 19.19811, 
  19.19072, 19.18471, 19.1811, 19.19158, 19.19021, 19.17682, 19.17544, 19.16565, 19.15518, 19.15157, 
  19.14487, 19.13989, 19.1289, 19.12241, 19.1334, 19.13374, 19.14113, 19.1358, 19.14474, 19.14336, 
  19.14972, 19.14662, 19.14697, 19.10953, 19.10233, 19.10593, 19.11315, 19.12088, 19.1195, 19.10903, 
  19.11417, 19.13787, 19.12945, 19.13031, 19.1401, 19.14783, 19.15914, 19.16258, 19.17597, 19.18731, 
  19.19779, 19.21599, 19.22183, 19.23555, 19.25375, 19.27402, 19.27951, 19.29923, 19.31554, 19.3286, 
  19.32876, 19.34215, 19.34937, 19.34198, 19.35967, 19.35452, 19.35984, 19.38079, 19.39811, 19.40876, 
  19.4199, 19.44687, 19.46215, 19.47417, 19.4831, 19.48207, 19.47022, 19.47125, 19.49407, 19.49492, 
  19.5133, 19.55123, 19.56582, 19.56891, 19.57664, 19.58247, 19.58179, 19.58883, 19.60016, 19.60377, 
  19.61098, 19.61785, 19.62421, 19.61322, 19.62299, 19.61681, 19.59689, 19.59002, 19.56271, 19.56805, 
  19.54521, 19.53439, 19.52804, 19.4865, 19.45099, 19.43004, 19.41595, 19.40634, 19.39964, 19.39477, 
  19.37744, 19.37624, 19.36336, 19.3565, 19.35821, 19.34963, 19.33762, 19.30345, 19.2784, 19.25866, 
  19.24939, 19.23532, 19.23721, 19.2542, 19.25505, 19.25008, 19.25849, 19.26913, 19.27136, 19.28354, 
  19.28354, 19.29058, 19.2971, 19.29625, 19.31032, 19.30912, 19.31615, 19.31375, 19.31925, 19.32491, 
  19.33727, 19.3371, 19.36542, 19.3752, 19.3716, 19.39237, 19.39512, 19.4061, 19.4116, 19.42103, 
  19.43202, 19.43048, 19.4473, 19.46583, 19.46687, 19.47751, 19.47974, 19.51939, 19.5194, 19.51339, 
  19.5194, 19.51699, 19.52832, 19.53244, 19.52644, 19.51271, 19.51493, 19.51219, 19.51013, 19.50601, 
  19.5078, 19.4999, 19.4987, 19.48685, 19.49252, 19.49097, 19.49991, 19.49115, 19.49218, 19.49562, 
  19.49888, 19.50025, 19.51039, 19.49733, 19.47896, 19.47415, 19.45148, 19.4465, 19.44238, 19.43688, 
  19.4175, 19.42265, 19.40823, 19.40204, 19.40479, 19.40015, 19.3926, 19.38727, 19.40015, 19.39964, 
  19.40204, 19.39638, 19.38453, 19.38058, 19.3689, 19.36943, 19.36496, 19.36153, 19.35655, 19.33628, 
  19.33147, 19.32018, 19.30111, 19.29184, 19.28823, 19.27658, 19.27301, 19.27176, 19.27064, 19.26846, 
  19.266, 19.26459, 19.26362, 19.26103, 19.25671, 19.25547, 19.25924, 19.26298, 19.26395, 19.26626, 
  19.26845, 19.26912, 19.27053, 19.27166, 19.27266, 19.27268, 19.26512, 19.26284, 19.25786, 19.25287, 
  19.246, 19.24721, 19.25253, 19.25184, 19.25408, 19.25013, 19.25184, 19.24686, 19.24892, 19.24618,
  19.24893, 19.25065, 19.23176, 19.22815, 19.22519,
  19.21564, 19.21186, 19.19937, 19.19765, 19.19095, 19.17876, 19.17481, 19.1712, 19.15302, 19.13601, 
  19.13172, 19.12725, 19.12674, 19.11918, 19.113, 19.10304, 19.1027, 19.09703, 19.09222, 19.09205, 
  19.08708, 19.07557, 19.06321, 19.06184, 19.05119, 19.04603, 19.04158, 19.04399, 19.03901, 19.04364, 
  19.0366, 19.02956, 19.02271, 19.01257, 19.00519, 18.98767, 18.98767, 18.98132, 18.97961, 18.98544, 
  18.98115, 18.97995, 18.95233, 18.94254, 18.92691, 18.92382, 18.91197, 18.92105, 18.92947, 18.93548, 
  18.93411, 18.93548, 18.94991, 18.95111, 18.95626, 18.95952, 18.95678, 18.95678, 18.96176, 18.9597, 
  18.96123, 18.95521, 18.95556, 18.95831, 18.9626, 18.96844, 18.97393, 18.97685, 18.98183, 18.98699, 
  18.98836, 18.99248, 18.99712, 18.99918, 19.00416, 19.00382, 19.01069, 19.00674, 19.01052, 19.01034, 
  19.01996, 19.01875, 19.02167, 19.02011, 19.03299, 19.04398, 19.04124, 19.04295, 19.04175, 19.03471, 
  19.04158, 19.03968, 19.04775, 19.06132, 19.06098, 19.07487, 19.0747, 19.0838, 19.07642, 19.0802, 
  19.04722, 19.04315, 19.03645, 19.0337, 19.02546, 19.0246, 19.01945, 19.02013, 19.00914, 19.0009, 
  18.99077, 18.98424, 18.98785, 18.9839, 18.98358, 18.96074, 18.95576, 18.94923, 18.95181, 18.95936, 
  18.95936, 18.96056, 18.95782, 18.94923, 18.91525, 18.91491, 18.90855, 18.89704, 18.8821, 18.8397, 
  18.83833, 18.84932, 18.85499, 18.81982, 18.80625, 18.79406, 18.75524, 18.73552, 18.71783, 18.68932, 
  18.70442, 18.71662, 18.69192, 18.68248, 18.66736, 18.64831, 18.65243, 18.66049, 18.65327, 18.62287, 
  18.614, 18.59236, 18.54342, 18.53607, 18.53538, 18.51769, 18.51048, 18.49846, 18.49382, 18.49331, 
  18.4861, 18.4843, 18.48602, 18.48207, 18.48859, 18.49545, 18.50421, 18.50919, 18.48893, 18.49099, 
  18.49168, 18.48241, 18.47898, 18.46765, 18.46559, 18.47589, 18.45066, 18.4704, 18.47195, 18.49925, 
  18.49599, 18.51366, 18.51915, 18.53048, 18.54679, 18.57047, 18.56103, 18.56172, 18.55485, 18.55193, 
  18.54558, 18.55056, 18.54867, 18.56395, 18.5643, 18.56876, 18.57494, 18.56189, 18.53768, 18.53631, 
  18.52876, 18.52035, 18.53082, 18.53357, 18.5485, 18.55447, 18.54335, 18.54061, 18.53614, 18.52842, 
  18.50043, 18.48361, 18.47417, 18.47332, 18.46731, 18.46165, 18.4577, 18.45461, 18.45152, 18.44946, 
  18.4438, 18.4426, 18.43795,
  18.43662, 18.40126, 18.39027, 18.37894, 18.36693, 18.34788, 18.33174, 18.31115, 18.28178, 18.27423,
  18.26908, 18.26341, 18.24299, 18.24282, 18.23407, 18.23407, 18.22583, 18.18943, 18.18342, 18.17673,
  18.17398, 18.16489, 18.15631, 18.15355, 18.14583, 18.1436, 18.10206, 18.10857, 18.1048, 18.07957,
  18.07408, 18.07322, 18.04077, 18.0248, 18.01039, 17.99632, 17.99648, 17.97674, 17.94807, 17.91391,
  17.90945, 17.89143, 17.88731, 17.89023, 17.90104, 17.88421, 17.87804, 17.86756, 17.85623, 17.85434,
  17.85898, 17.84473, 17.80971, 17.79134, 17.79151, 17.78567, 17.76388, 17.72251, 17.69779, 17.6911,
  17.67546, 17.6577, 17.64826,
  17.64607, 17.64429, 17.64215, 17.63981, 17.64052, 17.63989, 17.63994, 17.63725, 17.63479, 17.63307, 
  17.62908, 17.62537, 17.62335, 17.62357, 17.62243, 17.6218, 17.61698, 17.61243, 17.60455, 17.60214, 
  17.59858, 17.59787, 17.59558, 17.59471, 17.59251, 17.58741, 17.58597, 17.58378, 17.58215, 17.57625, 
  17.57565, 17.56874, 17.56076, 17.56026, 17.55855, 17.55484, 17.55363, 17.55185, 17.55265, 17.55651, 
  17.55825, 17.55988, 17.56209, 17.56479, 17.56529, 17.56617, 17.56885, 17.5687, 17.56925, 17.56754, 
  17.56668, 17.56858, 17.56995, 17.5722, 17.57795, 17.58791, 17.58823, 17.59051, 17.59673, 17.59905, 
  17.60239, 17.60411, 17.60475, 17.60589, 17.60675, 17.6146, 17.61544, 17.61587, 17.61707, 17.61748, 
  17.61898, 17.61928, 17.62276, 17.62413, 17.62598, 17.62587, 17.62452, 17.62465, 17.62171, 17.62364, 
  17.62087, 17.61904, 17.61639, 17.61257, 17.61139, 17.61188, 17.60844, 17.6078, 17.60042, 17.5972, 
  17.5954, 17.59405, 17.59227, 17.59094, 17.58349, 17.58135, 17.58654, 18.07896)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_4, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_0 <- st_union(Geo_0)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_4 <- st_set_geometry(Geo_4, Geo_0[1])
Geo_4 <- st_union(Geo_4, Geo)
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
LATITUDE_VALUEs <- c(
  43.54739, 43.53973, 43.54176, 43.55358, 43.55681, 43.55731, 43.55902, 43.56172, 43.56406, 43.56698, 
  43.56863, 43.56602, 43.56424, 43.56309, 43.55504, 43.55401, 43.54947, 43.54904, 43.5477)
LONGITUDE_VALUEs <- c(
  19.41112, 19.41387, 19.42138, 19.42898, 19.4279, 19.42533, 19.42335, 19.42451, 19.42387, 19.4246, 
  19.42322, 19.41224, 19.41233, 19.41048, 19.40778, 19.39495, 19.40452, 19.40743, 19.40872)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_4 <- st_union(Geo_4, Geo)
LATITUDE_VALUEs <- c(42.90122, 42.90182, 42.90205, 42.90196, 42.90157, 42.90112)
LONGITUDE_VALUEs <- c(17.6229, 17.6225, 17.6218, 17.62134, 17.6215, 17.62265)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_4 <- st_union(Geo_4, Geo)
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
Geo_4 <- Geo_4 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### ALBANIA #####
Geo_0 <- Geometric_Operations(Geo_5, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_5 <- st_set_geometry(Geo_5, st_geometry(Geo_0))
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}
LATITUDE_VALUEs <- c(
  41.88439, 41.88912, 41.91761, 41.91671, 41.92757, 41.92974, 41.936, 41.93906, 41.95668, 41.95847, 
  41.978, 41.9817, 42.01805, 42.01946, 42.04241, 42.05847, 42.05847, 42.06153, 42.07491, 42.07848, 
  42.08268, 42.0986, 42.10841, 42.12153, 42.14011, 42.14635, 42.15386, 42.16035, 42.16468, 42.1662, 
  42.17206, 42.17345, 42.18605, 42.20996, 42.22432, 42.22496, 42.2275, 42.2411, 42.24415, 42.24669, 
  42.25304, 42.25902, 42.2627, 42.2721, 42.27464, 42.27744, 42.27794, 42.28201, 42.28417, 42.29877, 
  42.29826, 42.30347, 42.30931, 42.31718, 42.32022, 42.32517, 42.32568, 42.32797, 42.32771, 42.32187, 
  42.3206, 42.31439, 42.32365, 42.31819, 42.32314, 42.32238, 42.32759, 42.33393, 42.34814, 42.35296, 
  42.3692, 42.37262, 42.37985, 42.39963, 42.40964, 42.41408, 42.42295, 42.42599, 42.43511, 42.45133, 
  42.45576, 42.46159, 42.47058, 42.47248, 42.48083, 42.4859, 42.49349, 42.50653, 42.50691, 42.5145, 
  42.52171, 42.52513, 42.53348, 42.54208, 42.54473, 42.54802, 42.55169, 42.55232, 42.55548,
  42.55586, 42.55561, 42.5594, 42.54992, 42.54334, 42.5441, 42.53651, 42.52993, 42.5188, 42.51298, 
  42.50881, 42.51172, 42.51083, 42.5126, 42.50944, 42.51146, 42.5188, 42.5126, 42.50741, 42.50678, 
  42.50058, 42.49602, 42.49374, 42.49058, 42.48856, 42.48501, 42.48463, 42.49438, 42.49602, 42.4845, 
  42.48121, 42.48501, 42.47678, 42.4802, 42.47843, 42.47362, 42.46615, 42.47336, 42.47817, 42.4821, 
  42.49678, 42.50172, 42.50982, 42.51766, 42.54701, 42.55068, 42.55776, 42.56446, 42.57571, 42.57761, 
  42.58165, 42.58026, 42.5838, 42.58102, 42.58595, 42.59606, 42.59947, 42.61097, 42.61375, 42.62019, 
  42.62499, 42.63118, 42.63522, 42.6409, 42.64255, 42.65618, 42.66136, 42.65101, 42.64545, 42.63787, 
  42.63914, 42.62752, 42.63068, 42.57445, 42.56939, 42.56294, 42.55915, 42.54233, 42.53765, 42.53044, 
  42.51399, 42.50109, 42.46944, 42.46501, 42.46412, 42.45855, 42.45145, 42.44246, 42.43777, 42.43372, 
  42.43081, 42.42333, 42.42371, 42.41015, 42.40419, 42.39126, 42.38454, 42.3853, 42.37326, 42.36463, 
  42.35715, 42.35093, 42.33317, 42.32746, 42.29344, 42.28302, 42.25546, 42.24046, 42.18045, 42.10357, 
  42.07809, 42.07274, 42.06714, 42.05974, 42.0512, 42.03616, 42.03323, 42.0303, 42.02405, 42.02341, 
  42.01793, 42.00453, 42.00211, 41.99803, 41.99675, 41.98859, 41.98565, 41.97876, 41.9743, 41.96701, 
  41.96165, 41.95884, 41.93969, 41.92768, 41.91925, 41.91236, 41.90431, 41.89741, 41.8877, 41.88642, 
  41.87555, 41.86213, 41.85842, 41.85421, 41.85075,
  41.84629, 41.84872, 41.85115, 41.85588, 41.86253, 41.85473, 41.84028, 41.82749, 41.81431, 41.80868, 
  41.81419, 41.81163, 41.80664, 41.79, 41.77349, 41.76555, 41.76401, 41.76542, 41.76581, 41.76901, 
  41.77003, 41.76581, 41.7507, 41.74929, 41.71636, 41.69483, 41.66086, 41.63225, 41.62969, 41.64367, 
  41.6488, 41.64162, 41.64521, 41.63995, 41.64046, 41.63366, 41.60903, 41.61275, 41.61801, 41.61993, 
  41.62212, 41.61801, 41.61634, 41.60543, 41.59015, 41.57706, 41.56948, 41.56871, 41.57051, 41.57282, 
  41.5741, 41.5768, 41.57963, 41.58014, 41.58451, 41.58489, 41.5881, 41.5872, 41.58476, 41.56332, 
  41.55702, 41.55394, 41.54983, 41.54045, 41.52709, 41.50472, 41.48518, 41.46344, 41.44556, 41.43282, 
  41.4054, 41.40334, 41.40759, 41.40424, 41.41184, 41.40566, 41.39896, 41.39703, 41.40038, 41.40694, 
  41.41068, 41.40965, 41.41119, 41.41274, 41.41248, 41.41402, 41.40939, 41.40926, 41.40334, 41.40076, 
  41.39394, 41.38904, 41.38132, 41.37011, 41.36277, 41.3464, 41.32539, 41.31972, 41.31057, 41.30915, 
  41.30193, 41.30218, 41.30747, 41.31482, 41.31366, 41.31018, 41.30876, 41.31224, 41.31121, 41.31508, 
  41.31044, 41.29445, 41.27226, 41.256, 41.23909, 41.2227, 41.20785, 41.19803, 41.1886, 41.17801, 
  41.1647, 41.15333, 41.14764, 41.1488, 41.14803, 41.1457, 41.12837, 41.12411, 41.12023, 41.10857, 
  41.08244, 41.05708, 41.04633, 41.04322, 41.04012, 41.03869, 41.02963, 41.01474, 41.00191, 40.98584, 
  40.97677, 40.9712, 40.96692, 40.95694, 40.91583, 40.84795, 40.83484, 40.83003, 40.83042, 40.82756, 
  40.82497, 40.82211, 40.81107, 40.79456, 40.75544, 40.73176, 40.70561, 40.67477, 40.67138, 40.66539, 
  40.66813, 40.66344, 40.64638, 40.64507, 40.63908, 40.63452, 40.61394, 40.55358, 40.54145, 40.54014, 
  40.53518, 40.53284, 40.52853, 40.5224, 40.52253, 40.49891, 40.50217, 40.49982, 40.49447, 40.48533, 
  40.48768, 40.47736, 40.47684, 40.45843, 40.4528, 40.45097, 40.45045, 40.44653, 40.43712, 40.42967,
  40.41232, 40.39363, 40.38421, 40.37663, 40.36957, 40.36185, 40.35165, 40.34759, 40.34301, 40.34079, 
  40.33699, 40.32953, 40.32417, 40.3209, 40.32194, 40.32652, 40.32718, 40.33438, 40.34079, 40.34419, 
  40.34772, 40.35348, 40.35557, 40.36525, 40.38604, 40.40069, 40.40722, 40.4084, 40.4331, 40.43362, 
  40.43048, 40.43114, 40.43924, 40.43284, 40.42722, 40.42696, 40.42447, 40.42526, 40.42408, 40.42552, 
  40.42108, 40.41572, 40.4114, 40.41023, 40.40709, 40.3965, 40.39493, 40.36996, 40.35492, 40.34445, 
  40.3298, 40.32561, 40.32024, 40.31435, 40.31488, 40.30781, 40.29406, 40.279, 40.26944, 40.24822, 
  40.23446, 40.22266, 40.21572, 40.21349, 40.19369, 40.1714, 40.1609, 40.15959, 40.14411, 40.14476, 
  40.1365, 40.13322, 40.13308, 40.12902, 40.12823, 40.12547, 40.12705, 40.12455, 40.12062, 40.11694, 
  40.11392, 40.11248, 40.11313, 40.10893, 40.10788, 40.11064, 40.10394, 40.10105, 40.09869, 40.10184, 
  40.09843, 40.09344, 40.09042, 40.08884, 40.08608, 40.08621, 40.08267, 40.07965, 40.08004, 40.08188, 
  40.07965, 40.0803, 40.07925, 40.08136, 40.08017, 40.06914, 40.06585, 40.06021, 40.05758, 40.0715, 
  40.0719, 40.06927, 40.06874, 40.06204, 40.0581, 40.05232, 40.05403, 40.05258, 40.05442, 40.05219, 
  40.04707, 40.04588, 40.04943, 40.04615, 40.04693, 40.05153, 40.05324, 40.04785, 40.04273, 40.02275, 
  40.01656, 40.00394, 39.9942, 39.98868, 39.98224, 39.98145, 39.97645, 39.96487, 39.94211, 39.92934, 
  39.92736, 39.92513, 39.92815, 39.92723, 39.9138, 39.91262, 39.91143, 39.9088, 39.91091, 39.91222, 
  39.90854, 39.90761, 39.90024, 39.90103, 39.90064, 39.90301, 39.89853, 39.90235, 39.89405, 39.89655, 
  39.89366, 39.89089, 39.88852, 39.88285, 39.88365, 39.87706, 39.87693, 39.8739, 39.86955, 39.87403, 
  39.86757, 39.87284, 39.8735, 39.85189, 39.84807, 39.84372, 39.84372, 39.83726, 39.81867, 39.81617, 
  39.81327, 39.81472, 39.81248, 39.81261, 39.8101, 39.80905, 39.80668, 39.79982, 39.79955, 39.79718, 
  39.79758, 39.79387, 39.79374, 39.79136, 39.79294, 39.77923, 39.77962, 39.77342, 39.77329, 39.76775, 
  39.7663, 39.76893, 39.76907, 39.77052, 39.7692, 39.76366, 39.76405, 39.75627, 39.75402, 39.75402,
  39.74455, 39.74521, 39.74904, 39.74587, 39.75023, 39.74917, 39.75564, 39.753, 39.75128, 39.75023, 
  39.74534, 39.74165, 39.73623, 39.72805, 39.72277, 39.72356, 39.72277, 39.70441, 39.70032, 39.70309, 
  39.69926, 39.69702, 39.68909, 39.68751, 39.68922, 39.68764, 39.68988, 39.68777, 39.69054, 39.69266, 
  39.692, 39.68737, 39.68553, 39.68883, 39.68843, 39.69054, 39.69121, 39.69292, 39.6949, 39.69319, 
  39.69464, 41.87706)
LONGITUDE_VALUEs <- c(
  20.59374, 20.5891, 20.57606, 20.58482, 20.59065, 20.60354, 20.61195, 20.61949, 20.62275, 20.62619, 
  20.62345, 20.61349, 20.60147, 20.59701, 20.59513, 20.57589, 20.56954, 20.56971, 20.55736, 20.55891, 
  20.55427, 20.56801, 20.56045, 20.56887, 20.55513, 20.55925, 20.54877, 20.54243, 20.54706, 20.54277, 
  20.54243, 20.53951, 20.53143, 20.52424, 20.51428, 20.50912, 20.50208, 20.49798, 20.48947, 20.4893, 
  20.4766, 20.4754, 20.46699, 20.4572, 20.44433, 20.4421, 20.42528, 20.42408, 20.40364, 20.39575, 
  20.39077, 20.38185, 20.35352, 20.35455, 20.3482, 20.34648, 20.34065, 20.33859, 20.32726, 20.32091, 
  20.31387, 20.30682, 20.2912, 20.25756, 20.25379, 20.2483, 20.2416, 20.2483, 20.23508, 20.24469, 
  20.24606, 20.24074, 20.24057, 20.2083, 20.21311, 20.22564, 20.22632, 20.22255, 20.22049, 20.19354, 
  20.19164, 20.19679, 20.18924, 20.18306, 20.17963, 20.18083, 20.16812, 20.16606, 20.16194, 20.14941, 
  20.12281, 20.12213, 20.0986, 20.0962, 20.08951, 20.08951, 20.08779, 20.08367, 20.07955,
  20.07636, 20.07337, 20.05672, 20.049, 20.02548, 20.01673, 20.0133, 20.01604, 20.00917, 20.00883, 
  20.00179, 19.99441, 19.98343, 19.98189, 19.96489, 19.95151, 19.94155, 19.92522, 19.91664, 19.906, 
  19.90377, 19.90549, 19.90085, 19.90257, 19.89931, 19.89879, 19.89468, 19.88472, 19.87631, 19.87184, 
  19.86464, 19.85554, 19.84713, 19.84027, 19.83615, 19.83838, 19.83151, 19.80695, 19.80232, 19.79065, 
  19.78121, 19.76594, 19.76044, 19.76095, 19.74276, 19.74996, 19.74911, 19.7546, 19.74773, 19.7534, 
  19.75134, 19.75992, 19.76308, 19.77373, 19.77613, 19.77287, 19.76583, 19.75913, 19.75175, 19.75364, 
  19.74884, 19.75021, 19.75759, 19.75176, 19.73681, 19.73458, 19.72462, 19.69817, 19.70058, 19.68976, 
  19.68684, 19.67945, 19.66451, 19.60908, 19.61252, 19.60926, 19.61253, 19.61648, 19.60532, 19.60206, 
  19.56137, 19.56291, 19.53786, 19.53855, 19.53391, 19.53185, 19.52069, 19.51948, 19.50248, 19.50354, 
  19.49667, 19.49821, 19.4934, 19.48653, 19.47881, 19.47194, 19.45288, 19.44687, 19.4254, 19.42128, 
  19.42472, 19.41322, 19.41683, 19.42215, 19.38369, 19.38455, 19.3576, 19.34935, 19.28103, 19.40224, 
  19.38404, 19.37769, 19.37906, 19.37648, 19.37889, 19.36979, 19.37185, 19.36859, 19.36927, 19.37322, 
  19.37116, 19.37356, 19.38026, 19.37889, 19.38181, 19.38026, 19.38181, 19.37614, 19.37597, 19.38851, 
  19.3837, 19.3521, 19.34989, 19.37136, 19.36947, 19.34337, 19.34234, 19.36621, 19.36879, 19.38201, 
  19.37479, 19.37479, 19.37152, 19.37308, 19.37273,
  19.37729, 19.38536, 19.38604, 19.40578, 19.41745, 19.47033, 19.52079, 19.54946, 19.57006, 19.58447, 
  19.58653, 19.59408, 19.59872, 19.60233, 19.60147, 19.59598, 19.59049, 19.58963, 19.591, 19.58997, 
  19.58191, 19.5747, 19.57384, 19.57143, 19.58225, 19.58191, 19.56972, 19.56989, 19.57504, 19.58088, 
  19.58809, 19.59804, 19.60714, 19.60988, 19.60645, 19.61005, 19.60302, 19.59358, 19.59289, 19.5965, 
  19.59375, 19.59203, 19.58345, 19.58156, 19.57161, 19.55633, 19.52973, 19.51015, 19.49813, 19.49556, 
  19.48183, 19.47279, 19.47107, 19.46523, 19.45836, 19.44926, 19.44482, 19.4443, 19.44843, 19.46182, 
  19.46027, 19.46783, 19.46937, 19.50593, 19.51297, 19.51365, 19.5085, 19.49495, 19.47485, 19.45493, 
  19.43177, 19.43469, 19.43744, 19.44139, 19.44757, 19.44775, 19.43744, 19.42319, 19.40773, 19.40584, 
  19.39828, 19.39674, 19.39554, 19.39708, 19.39485, 19.39142, 19.39227, 19.39571, 19.39708, 19.4043, 
  19.40584, 19.41872, 19.42404, 19.41837, 19.42129, 19.41872, 19.42043, 19.43246, 19.43383, 19.44447, 
  19.45271, 19.45495, 19.44962, 19.45392, 19.45941, 19.45718, 19.45907, 19.46113, 19.46422, 19.468, 
  19.48277, 19.5025, 19.51727, 19.52018, 19.51657, 19.50783, 19.49598, 19.48327, 19.48207, 19.47451, 
  19.47451, 19.46644, 19.45511, 19.45219, 19.43862, 19.4369, 19.44858, 19.44806, 19.45322, 19.45682, 
  19.45802, 19.45287, 19.44669, 19.44051, 19.44343, 19.44189, 19.44429, 19.44206, 19.44343, 19.45459, 
  19.47451, 19.47399, 19.47004, 19.46592, 19.41458, 19.39143, 19.37925, 19.36843, 19.36465, 19.36104, 
  19.36465, 19.36379, 19.37358, 19.37581, 19.3698, 19.3686, 19.35881, 19.33031, 19.32379, 19.31984, 
  19.31297, 19.31108, 19.31382, 19.31915, 19.31863, 19.32997, 19.34748, 19.37855, 19.38045, 19.37615, 
  19.37924, 19.3765, 19.38714, 19.38852, 19.38577, 19.4043, 19.41083, 19.42234, 19.428, 19.43159, 
  19.43657, 19.44259, 19.44551, 19.46457, 19.48052, 19.48104, 19.48928, 19.49426, 19.49529, 19.49289,
  19.48062, 19.4777, 19.48508, 19.4777, 19.48217, 19.47942, 19.48526, 19.48509, 19.47959, 19.46981, 
  19.46998, 19.46037, 19.44578, 19.42776, 19.41935, 19.41643, 19.42055, 19.41574, 19.40682, 19.40974, 
  19.40562, 19.40956, 19.40561, 19.40887, 19.39874, 19.38089, 19.37849, 19.37111, 19.34279, 19.33695, 
  19.33386, 19.32974, 19.32065, 19.30605, 19.30399, 19.30073, 19.30055, 19.29764, 19.29575, 19.29163, 
  19.28803, 19.30124, 19.30553, 19.30896, 19.30742, 19.32407, 19.32236, 19.34879, 19.3548, 19.36853, 
  19.36973, 19.37478, 19.3734, 19.37924, 19.37203, 19.37117, 19.38439, 19.40534, 19.40911, 19.43348, 
  19.44413, 19.46542, 19.46937, 19.48154, 19.51382, 19.58163, 19.59194, 19.60207, 19.62592, 19.63468, 
  19.64687, 19.64773, 19.65065, 19.64997, 19.65563, 19.65804, 19.67058, 19.67346, 19.70214, 19.69922, 
  19.70094, 19.69922, 19.71382, 19.71468, 19.71725, 19.72, 19.73132, 19.73115, 19.7406, 19.74249, 
  19.75228, 19.75503, 19.75399, 19.74936, 19.74936, 19.75228, 19.75211, 19.74884, 19.7552, 19.7564, 
  19.75812, 19.76035, 19.76241, 19.76275, 19.76808, 19.76772, 19.77133, 19.77047, 19.77751, 19.77803, 
  19.78266, 19.78404, 19.7916, 19.79348, 19.80224, 19.80379, 19.80121, 19.79881, 19.7952, 19.79194, 
  19.79433, 19.80257, 19.80309, 19.8079, 19.81236, 19.8127, 19.82505, 19.8472, 19.85749, 19.87655, 
  19.87964, 19.89235, 19.89423, 19.90247, 19.90333, 19.90745, 19.91243, 19.91449, 19.9375, 19.93526, 
  19.93921, 19.93663, 19.93148, 19.92822, 19.91534, 19.91946, 19.91774, 19.9186, 19.91517, 19.91053, 
  19.90812, 19.9107, 19.91414, 19.91842, 19.9234, 19.92597, 19.92941, 19.93267, 19.93765, 19.955, 
  19.95276, 19.9574, 19.95586, 19.95792, 19.96238, 19.96977, 19.98213, 19.97767, 19.9876, 19.98863, 
  20.00203, 20.00461, 20.01285, 20.02092, 20.01885, 20.02092, 20.01611, 20.00838, 20.01336, 20.01045, 
  20.01096, 20.00701, 20.00701, 20.00461, 20.00632, 20.00461, 20.00667, 20.00031, 19.99327, 19.9943, 
  19.99688, 19.99276, 19.99877, 19.9998, 20.00255, 20.0077, 20.00152, 20.00117, 19.99705, 19.99843, 
  19.99413, 19.99465, 19.99018, 19.98726, 19.98348, 19.98367, 19.98075, 19.97525, 19.97628, 19.97319,
  19.9769, 19.98531, 19.98617, 19.98994, 19.99046, 19.99475, 19.99578, 19.99973, 19.99818, 20.00007, 
  19.99303, 19.99818, 19.99904, 19.99372, 19.99338, 19.99132, 19.98789, 19.98051, 19.98154, 19.98445, 
  19.98583, 19.98205, 19.98257, 19.98566, 19.98789, 19.9896, 19.9908, 19.99492, 19.99647, 19.99424, 
  19.99904, 19.9975, 19.99921, 19.99973, 20.00144, 20.00179, 20.00419, 20.00265, 20.00333, 20.00608, 
  20.00831, 20.50512)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_5, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_0 <- st_union(Geo_0)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_5 <- st_set_geometry(Geo_5, Geo_0[1])
Geo_5 <- st_union(Geo_5, Geo)
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}
LATITUDE_VALUEs <- c(
  40.47392, 40.47614, 40.48038, 40.49102, 40.49657, 40.4982, 40.50042, 40.50042, 40.50179, 40.50081, 
  40.50669, 40.51034, 40.51191, 40.51432, 40.51249, 40.50943, 40.50434, 40.49252, 40.49083, 40.48639, 
  40.47895, 40.47522)
LONGITUDE_VALUEs <- c(
  19.28606, 19.28863, 19.2864, 19.29378, 19.29224, 19.29018, 19.28992, 19.28794, 19.28597, 19.28383, 
  19.27576, 19.2761, 19.27258, 19.27001, 19.26572, 19.26598, 19.2634, 19.26855, 19.27447, 19.27481, 
  19.27885, 19.27928)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_5 <- st_union(Geo_5, Geo)
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}
Geo_5 <- Geo_5 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("MONTENEGRO", "SERBIA", "CROATIA", "BOSNIA AND HERZEGOVINA", "ALBANIA"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3, Geo_4, Geo_5)

BELGIUM-LUXEMBOURG ECONOMIC UNION (BLEU) is an economic union between BELGIUM and LUXEMBOURG.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "LUXEMBOURG")
Geo_2 <- GeoDATA %>% filter(NAME == "BELGIUM")
Geo_3 <- GeoDATA %>% filter(NAME == "GERMANY")
Geo_4 <- GeoDATA %>% filter(NAME == "FRANCE")

##### LUXEMBOURG #####
LATITUDE_VALUEs <- c(
  50.13001, 50.13023, 50.12946, 50.13001, 50.13408, 50.13628, 50.1365, 50.14464, 50.1442, 50.1475, 
  50.15036, 50.15564, 50.1629, 50.17081, 50.16917, 50.17224, 50.1707, 50.16158, 50.16004, 50.15652, 
  50.15784, 50.15322, 50.15432, 50.16235, 50.16664, 50.17235, 50.18269, 50.17587, 50.17521, 50.17279, 
  50.1729, 50.16466, 50.16114, 50.15498, 50.15168, 50.14926, 50.14277, 50.13903, 50.13144, 50.13133, 
  50.12902, 50.12935, 50.12032, 50.11207, 50.10106, 50.09059, 50.07815, 50.07396, 50.07066, 50.06922, 
  50.05876, 50.05468, 50.05424, 50.04652, 50.04564, 50.04354, 50.04189, 50.03902, 50.0366, 50.02844, 
  50.02745, 50.0227, 50.01884, 50.01862, 50.01443, 50.01465, 50.01322, 49.99766, 49.99424, 49.99049, 
  49.99126, 49.98983, 49.98122, 49.97537, 49.97492, 49.97216, 49.97228, 49.9641, 49.96256, 49.96355, 
  49.96576, 49.96421, 49.9619, 49.96112, 49.96289, 49.9609, 49.95781, 49.95682, 49.95295, 49.95096, 
  49.93804, 49.93682, 49.93152, 49.93141, 49.91704, 49.91538, 49.91151, 49.90787, 49.90654, 49.90455, 
  49.90245, 49.90068, 49.89637, 49.89637, 49.89493, 49.89493, 49.89161, 49.89139, 49.88929, 49.88697, 
  49.88475, 49.88387, 49.88122, 49.87911, 49.87546, 49.87745, 49.87557, 49.87325, 49.8717, 49.87237, 
  49.86705, 49.8728, 49.86892, 49.87368, 49.86892, 49.86582, 49.86184, 49.85653, 49.85564, 49.85686, 
  49.85432, 49.85465, 49.85166, 49.85177, 49.84878, 49.84613, 49.84469, 49.84768, 49.84646, 49.84236, 
  49.84081, 49.83827, 49.83982, 49.83317, 49.83195, 49.82365, 49.82099, 49.81534, 49.81501, 49.81113, 
  49.79407, 49.79152, 49.7944, 49.79307, 49.79496, 49.79208, 49.7964, 49.79629, 49.79064, 49.78764, 
  49.7821, 49.77778, 49.77667, 49.77201, 49.76514, 49.76514, 49.76215, 49.75394, 49.7535, 49.75095, 
  49.74928, 49.75017, 49.74695, 49.74307, 49.74185, 49.73963, 49.7332, 49.7322, 49.72698, 49.72586, 
  49.72331, 49.72486, 49.72087, 49.72697, 49.72619, 49.72153, 49.72175, 49.71543, 49.70966, 49.69289, 
  49.68123, 49.67512, 49.67534, 49.67323, 49.67345, 49.66801, 49.6709, 49.66601, 49.66879, 49.66557, 
  49.66845, 49.6639, 49.66601, 49.66257, 49.66146, 49.65779, 49.65479, 49.65301, 49.64612, 49.63845, 
  49.63456, 49.63711, 49.63478, 49.63111, 49.62777, 49.61966, 49.60842, 49.59763, 49.58706, 49.58639, 
  49.59007, 49.58328, 49.58294, 49.58061, 49.57983, 49.57693, 49.57437, 49.57037, 49.56669, 49.56524, 
  49.56023, 49.55901, 49.55645, 49.55288, 49.55021, 49.55222, 49.54921, 49.54757, 49.54631,
  49.54241, 49.54074, 49.5423, 49.53696, 49.54286, 49.53718, 49.53016, 49.52704, 49.51969, 49.51924, 
  49.5169, 49.51434, 49.50787, 49.50587, 49.5004, 49.49929, 49.50051, 49.49817, 49.49918, 49.4965, 
  49.49762, 49.50252, 49.49862, 49.50074, 49.49951, 49.50118, 49.50051, 49.49828, 49.49483, 49.49527, 
  49.4975, 49.49739, 49.49316, 49.49304, 49.49126, 49.49126, 49.48903, 49.48658, 49.48301, 49.48334, 
  49.48122, 49.47687, 49.47554, 49.4626, 49.4607, 49.4636, 49.46237, 49.45557, 49.45724, 49.45412, 
  49.45077, 49.45724, 49.45155, 49.45378, 49.45244, 49.45378, 49.45534, 49.45233, 49.44809, 49.4501, 
  49.44787, 49.46416, 49.46639, 49.46472, 49.46572, 49.46315, 49.46382, 49.45813, 49.45322, 49.45322, 
  49.46449, 49.47096, 49.47286, 49.47029, 49.47331, 49.47587, 49.48223, 49.48992, 49.49405, 49.48992, 
  49.49193, 49.48658, 49.49349, 49.49148, 49.49338, 49.5013, 49.50397, 49.50509, 49.51088, 49.50676, 
  49.50798, 49.50553, 49.50709, 49.50631, 49.50999, 49.50865, 49.51032, 49.50821, 49.51478, 49.51155, 
  49.51155, 49.50854, 49.50999, 49.5072, 49.50731, 49.50352, 49.50464, 49.50152, 49.49483, 49.49282, 
  49.49472, 49.49182, 49.49238, 49.48803, 49.48736, 49.48535, 49.48435, 49.48803, 49.48691, 49.48881, 
  49.48044, 49.47799, 49.48067, 49.47699, 49.47844, 49.46728, 49.46918, 49.46594, 49.46773, 49.45914, 
  49.46014, 49.46515, 49.46939,
  49.46957, 49.49015, 49.49661, 49.50319, 49.53127, 49.55177, 49.55712, 49.57159, 49.57972, 49.57571, 
  49.58016, 49.5884, 49.60008, 49.6003, 49.61454, 49.61866, 49.63634, 49.65445, 49.66045, 49.66068, 
  49.66657, 49.67679, 49.69156, 49.69722, 49.71343, 49.71365, 49.71743, 49.72397, 49.72653, 49.72686, 
  49.72053, 49.72386, 49.73252, 49.74627, 49.75337, 49.75992, 49.76901, 49.77433, 49.7832, 49.78819, 
  49.79206, 49.79616, 49.80614, 49.81101, 49.81356, 49.80614, 49.80159, 49.80935, 49.81245, 49.81101, 
  49.81367, 49.81876, 49.82253, 49.81167, 49.81179, 49.81467, 49.81023, 49.81223, 49.81633, 49.81732, 
  49.82175, 49.82773, 49.83227, 49.8512, 49.85054, 49.84811, 49.83969, 49.83582, 49.83958, 49.8522, 
  49.85829, 49.86769, 49.87035, 49.86581, 49.87057, 49.87588, 49.87511, 49.8792, 49.87666, 49.88219, 
  49.88761, 49.88982, 49.89502, 49.89667, 49.90054, 49.9074, 49.91127, 49.91138, 49.91293, 49.92122, 
  49.92133, 49.92287, 49.92564, 49.92862, 49.93448, 49.93691, 49.94497, 49.95016, 49.95039, 49.95536, 
  49.95315, 49.94829, 49.95646, 49.96055, 49.96938, 49.96717, 49.96021, 49.95646, 49.95237, 49.96187, 
  49.9632, 49.97324, 49.9855, 49.98748, 49.98682, 49.99455, 49.99466, 49.99907, 50.0004, 49.99797, 
  50.00955, 50.01132, 50.01439, 50.01848, 50.01947, 50.0155, 50.02256, 50.02973, 50.04141, 50.04759, 
  50.05133, 50.05222, 50.05464, 50.05828, 50.06037, 50.06048, 50.05618, 50.05762, 50.05949, 50.06313, 
  50.06555, 50.06599, 50.06401, 50.06478, 50.06897, 50.07337, 50.07723, 50.07492, 50.07227, 50.0726, 
  50.07448, 50.08053, 50.08373, 50.08582, 50.09166, 50.09386, 50.09199, 50.09529, 50.09496, 50.09904, 
  50.10168, 50.10311, 50.10223, 50.10322, 50.10564, 50.10597, 50.10829, 50.11368, 50.11423, 50.12161, 
  50.12381)
LONGITUDE_VALUEs <- c(
  6.13789, 6.13549, 6.13378, 6.13069, 6.12657, 6.1197, 6.11164, 6.1149, 6.11696, 6.11713, 
  6.12588, 6.11438, 6.12073, 6.10098, 6.09411, 6.0845, 6.07901, 6.08039, 6.07884, 6.07833, 
  6.07215, 6.06391, 6.05636, 6.03337, 6.02891, 6.02976, 6.0246, 6.00075, 5.97089, 5.96831, 
  5.96385, 5.96401, 5.96126, 5.96795, 5.95749, 5.96075, 5.96126, 5.95834, 5.96109, 5.95405, 
  5.94941, 5.94341, 5.91046, 5.89535, 5.89449, 5.88625, 5.88745, 5.86771, 5.86634, 5.85999, 
  5.85401, 5.8583, 5.86191, 5.87049, 5.86724, 5.86878, 5.86226, 5.86311, 5.85573, 5.85985, 
  5.85195, 5.8523, 5.8408, 5.83324, 5.82809, 5.82243, 5.81848, 5.82243, 5.83015, 5.83204, 
  5.8365, 5.83976, 5.83805, 5.82896, 5.82209, 5.81917, 5.81075, 5.81024, 5.80629, 5.79856, 
  5.79598, 5.79083, 5.79135, 5.78551, 5.78053, 5.77505, 5.77677, 5.77368, 5.77522, 5.77024, 
  5.77471, 5.77042, 5.77025, 5.76441, 5.76098, 5.76407, 5.75051, 5.7457, 5.74621, 5.73934, 
  5.74037, 5.73642, 5.73608, 5.73799, 5.73971, 5.7452, 5.74915, 5.75462, 5.7572, 5.77025, 
  5.77214, 5.77832, 5.77867, 5.78382, 5.78279, 5.77935, 5.77781, 5.78416, 5.78279, 5.77764, 
  5.77437, 5.77111, 5.76407, 5.75669, 5.75188, 5.7572, 5.75428, 5.76115, 5.75772, 5.75497, 
  5.75034, 5.74639, 5.74587, 5.75532, 5.75892, 5.75824, 5.75377, 5.75085, 5.74793, 5.74793, 
  5.75085, 5.74862, 5.74158, 5.73815, 5.74399, 5.74794, 5.74296, 5.7457, 5.75154, 5.74965, 
  5.75326, 5.75515, 5.77026, 5.77181, 5.77541, 5.78091, 5.78589, 5.79052, 5.79344, 5.79121, 
  5.79858, 5.79892, 5.80356, 5.80751, 5.80905, 5.81112, 5.81592, 5.81763, 5.82072, 5.82055, 
  5.82347, 5.82896, 5.83257, 5.83034, 5.83223, 5.82759, 5.82845, 5.82536, 5.82725, 5.82421, 
  5.82575, 5.83588, 5.84188, 5.86007, 5.86728, 5.87142, 5.87588, 5.87485, 5.88703, 5.86593, 
  5.86181, 5.86627, 5.8704, 5.87366, 5.87812, 5.88636, 5.8891, 5.89236, 5.89562, 5.89923, 
  5.90232, 5.90111, 5.90884, 5.91021, 5.90455, 5.903, 5.90489, 5.90232, 5.90232, 5.90678, 
  5.89855, 5.89546, 5.88602, 5.88241, 5.88705, 5.87502, 5.8764, 5.84825, 5.84997, 5.86353, 
  5.86885, 5.87348, 5.86885, 5.8661, 5.87211, 5.86971, 5.87297, 5.86061, 5.86096, 5.85323, 
  5.84297, 5.84624, 5.84624, 5.83938, 5.8277, 5.82512, 5.81998, 5.81998, 5.81861,
  5.80791, 5.80842, 5.81271, 5.81683, 5.83691, 5.83933, 5.84567, 5.83418, 5.83589, 5.83933, 
  5.84035, 5.84962, 5.84928, 5.85941, 5.86456, 5.86919, 5.87193, 5.87331, 5.88378, 5.8903, 
  5.90248, 5.91037, 5.92719, 5.93083, 5.9322, 5.93701, 5.94318, 5.94147, 5.94335, 5.94456, 
  5.94335, 5.94679, 5.9552, 5.96515, 5.96583, 5.97201, 5.97339, 5.96789, 5.97116, 5.9727, 
  5.97476, 5.97459, 5.9703, 5.97562, 5.9806, 5.98214, 5.98849, 5.98523, 5.98163, 5.97785, 
  5.98129, 6.00005, 6.00761, 6.01087, 6.01396, 6.01585, 6.02924, 6.02547, 6.02667, 6.0313, 
  6.04212, 6.05275, 6.05807, 6.06545, 6.07198, 6.07352, 6.08022, 6.08074, 6.09327, 6.10169, 
  6.09825, 6.10254, 6.11062, 6.11405, 6.12401, 6.12229, 6.12742, 6.12673, 6.12794, 6.13309, 
  6.14236, 6.14013, 6.15576, 6.15713, 6.16331, 6.15301, 6.15659, 6.16467, 6.176, 6.17789, 
  6.18304, 6.19609, 6.20176, 6.21721, 6.21687, 6.22116, 6.22683, 6.23627, 6.24039, 6.24142, 
  6.2452, 6.24726, 6.25722, 6.25805, 6.26286, 6.26286, 6.27385, 6.28141, 6.27849, 6.28347, 
  6.28931, 6.28931, 6.28501, 6.28604, 6.28931, 6.28759, 6.29068, 6.2924, 6.29549, 6.29875, 
  6.2948, 6.30698, 6.31231, 6.31488, 6.31883, 6.33549, 6.34268, 6.34681, 6.35282, 6.36432, 
  6.36879, 6.36724, 6.36793,
  6.3669, 6.36846, 6.36588, 6.36743, 6.35576, 6.38013, 6.38373, 6.3561, 6.36674, 6.38013, 
  6.38356, 6.37361, 6.38339, 6.39746, 6.4112, 6.42098, 6.42819, 6.44089, 6.43866, 6.42562, 
  6.42648, 6.44605, 6.45892, 6.48071, 6.50115, 6.50733, 6.50527, 6.49429, 6.49686, 6.50424, 
  6.51179, 6.51797, 6.50115, 6.50235, 6.50012, 6.51745, 6.51746, 6.50922, 6.51729, 6.50562, 
  6.50733, 6.52089, 6.53136, 6.52793, 6.52004, 6.51695, 6.51146, 6.50562, 6.49533, 6.49155, 
  6.48349, 6.48074, 6.47029, 6.454, 6.44301, 6.44095, 6.43014, 6.42567, 6.42533, 6.41107, 
  6.39735, 6.39255, 6.38516, 6.36352, 6.34755, 6.33935, 6.33763, 6.32836, 6.31977, 6.32252, 
  6.31427, 6.3141, 6.31016, 6.29677, 6.29196, 6.29196, 6.28646, 6.28165, 6.2753, 6.25967, 
  6.25728, 6.25058, 6.24801, 6.23856, 6.23307, 6.23152, 6.22654, 6.23083, 6.23461, 6.23066, 
  6.22466, 6.21814, 6.21797, 6.22672, 6.22329, 6.22758, 6.21693, 6.22415, 6.21195, 6.20646, 
  6.20062, 6.19892, 6.19291, 6.19411, 6.19136, 6.18278, 6.18175, 6.1881, 6.17969, 6.17488, 
  6.1687, 6.16425, 6.17129, 6.16219, 6.15687, 6.14914, 6.14158, 6.13746, 6.13935, 6.14536, 
  6.15051, 6.13763, 6.13609, 6.12922, 6.13214, 6.1366, 6.14708, 6.12888, 6.13471, 6.12751, 
  6.12528, 6.1215, 6.12098, 6.12408, 6.12425, 6.11995, 6.12013, 6.11309, 6.11223, 6.11394, 
  6.11394, 6.11566, 6.11824, 6.12133, 6.12064, 6.13008, 6.12441, 6.12166, 6.12132, 6.11806, 
  6.11617, 6.12201, 6.12235, 6.11943, 6.1196, 6.12218, 6.13265, 6.13265, 6.12819, 6.12561, 
  6.12561, 6.13042, 6.13214, 6.13626, 6.13455, 6.13077, 6.13077, 6.13558, 6.12837, 6.12888, 
  6.13695)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### BELGIUM #####
Geo_0 <- Geometric_Operations(Geo_2, Geo_1)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0))
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  50.75446, 50.75327, 50.75023, 50.74816, 50.74751, 50.74968, 50.74556, 50.74208, 50.73926, 50.73339, 
  50.73187, 50.73089, 50.72937, 50.72622, 50.72426, 50.72013, 50.71774, 50.72861, 50.72068, 50.72241, 
  50.72013, 50.7235, 50.72274, 50.71013, 50.70731, 50.69893, 50.69545, 50.69382, 50.68817, 50.68643, 
  50.67751, 50.67109, 50.66935, 50.66152, 50.6561, 50.65447, 50.65229, 50.64957, 50.6487, 50.64685, 
  50.64696, 50.64413, 50.64489, 50.64347, 50.63172, 50.62834, 50.62758, 50.6254, 50.62377, 50.62703, 
  50.62758, 50.63052, 50.63019, 50.63302, 50.634, 50.63139, 50.6328, 50.63117, 50.63182, 50.62605, 
  50.62692, 50.62856, 50.62736, 50.62475, 50.61952, 50.60863, 50.60449, 50.59795, 50.59828, 50.59719, 
  50.59664, 50.58716, 50.59108, 50.58106, 50.57604, 50.56928, 50.56427, 50.55696, 50.55434, 50.54158, 
  50.54093, 50.53885, 50.53613, 50.53645, 50.53547, 50.53089, 50.531, 50.52685, 50.52423, 50.52052, 
  50.52129, 50.5191, 50.5169, 50.51602, 50.51471, 50.51286, 50.51307, 50.50085, 50.49855, 50.4944, 
  50.49801, 50.4991, 50.50401, 50.49899, 50.4991, 50.50434, 50.50249, 50.50358, 50.49899, 50.49779, 
  50.5015, 50.49397, 50.4932, 50.48927, 50.4896, 50.48742, 50.48326, 50.47737, 50.47518, 50.47169, 
  50.47212, 50.46852, 50.46251, 50.45639, 50.45715, 50.45376, 50.45573, 50.44261, 50.43113, 50.41878, 
  50.40915, 50.40051, 50.39679, 50.39, 50.38518, 50.37993, 50.37763, 50.37314, 50.37303, 50.36088, 
  50.35825, 50.35858, 50.34401, 50.33788, 50.33689, 50.32341, 50.3211, 50.3223, 50.3188, 50.31836, 
  50.31354, 50.31255, 50.31496, 50.31145, 50.30498, 50.30707, 50.30981, 50.31079, 50.31518, 50.31529, 
  50.31869, 50.3166, 50.32384, 50.32285, 50.32471, 50.31913, 50.32154, 50.32099, 50.32219, 50.31967, 
  50.3109, 50.30937, 50.31079, 50.30827, 50.30246, 50.30137, 50.29862, 50.29775, 50.2961, 50.29446, 
  50.28974, 50.28371, 50.27877, 50.27493, 50.27438, 50.26616, 50.2678, 50.26506, 50.26736, 50.26144, 
  50.2622, 50.25858, 50.25891, 50.2543, 50.25727, 50.25321, 50.25321, 50.2397, 50.23652, 50.23784, 
  50.23388, 50.22784, 50.22487, 50.22465, 50.21938, 50.2174, 50.20674, 50.20542, 50.20334, 50.19499, 
  50.19257, 50.18707, 50.1841, 50.18191, 50.17784, 50.17949, 50.17872, 50.17179, 50.17168, 50.17784, 
  50.17773, 50.17278, 50.17069, 50.16937, 50.16025, 50.1553, 50.15552, 50.15321, 50.14848, 50.15189, 
  50.15002, 50.14144, 50.13968, 50.13737, 50.13539, 50.13484,
  50.13001, 50.13023, 50.12946, 50.13001, 50.13408, 50.13628, 50.1365, 50.14464, 50.1442, 50.1475, 
  50.15036, 50.15564, 50.1629, 50.17081, 50.16917, 50.17224, 50.1707, 50.16158, 50.16004, 50.15652, 
  50.15784, 50.15322, 50.15432, 50.16235, 50.16664, 50.17235, 50.18269, 50.17587, 50.17521, 50.17279, 
  50.1729, 50.16466, 50.16114, 50.15498, 50.15168, 50.14926, 50.14277, 50.13903, 50.13144, 50.13133, 
  50.12902, 50.12935, 50.12032, 50.11207, 50.10106, 50.09059, 50.07815, 50.07396, 50.07066, 50.06922, 
  50.05876, 50.05468, 50.05424, 50.04652, 50.04564, 50.04354, 50.04189, 50.03902, 50.0366, 50.02844, 
  50.02745, 50.0227, 50.01884, 50.01862, 50.01443, 50.01465, 50.01322, 49.99766, 49.99424, 49.99049, 
  49.99126, 49.98983, 49.98122, 49.97537, 49.97492, 49.97216, 49.97228, 49.9641, 49.96256, 49.96355, 
  49.96576, 49.96421, 49.9619, 49.96112, 49.96289, 49.9609, 49.95781, 49.95682, 49.95295, 49.95096, 
  49.93804, 49.93682, 49.93152, 49.93141, 49.91704, 49.91538, 49.91151, 49.90787, 49.90654, 49.90455, 
  49.90245, 49.90068, 49.89637, 49.89637, 49.89493, 49.89493, 49.89161, 49.89139, 49.88929, 49.88697, 
  49.88475, 49.88387, 49.88122, 49.87911, 49.87546, 49.87745, 49.87557, 49.87325, 49.8717, 49.87237, 
  49.86705, 49.8728, 49.86892, 49.87368, 49.86892, 49.86582, 49.86184, 49.85653, 49.85564, 49.85686, 
  49.85432, 49.85465, 49.85166, 49.85177, 49.84878, 49.84613, 49.84469, 49.84768, 49.84646, 49.84236, 
  49.84081, 49.83827, 49.83982, 49.83317, 49.83195, 49.82365, 49.82099, 49.81534, 49.81501, 49.81113, 
  49.79407, 49.79152, 49.7944, 49.79307, 49.79496, 49.79208, 49.7964, 49.79629, 49.79064, 49.78764, 
  49.7821, 49.77778, 49.77667, 49.77201, 49.76514, 49.76514, 49.76215, 49.75394, 49.7535, 49.75095, 
  49.74928, 49.75017, 49.74695, 49.74307, 49.74185, 49.73963, 49.7332, 49.7322, 49.72698, 49.72586, 
  49.72331, 49.72486, 49.72087, 49.72697, 49.72619, 49.72153, 49.72175, 49.71543, 49.70966, 49.69289, 
  49.68123, 49.67512, 49.67534, 49.67323, 49.67345, 49.66801, 49.6709, 49.66601, 49.66879, 49.66557, 
  49.66845, 49.6639, 49.66601, 49.66257, 49.66146, 49.65779, 49.65479, 49.65301, 49.64612, 49.63845, 
  49.63456, 49.63711, 49.63478, 49.63111, 49.62777, 49.61966, 49.60842, 49.59763, 49.58706, 49.58639, 
  49.59007, 49.58328, 49.58294, 49.58061, 49.57983, 49.57693, 49.57437, 49.57037, 49.56669, 49.56524, 
  49.56023, 49.55901, 49.55645, 49.55288, 49.55021, 49.55222, 49.54921, 49.54757, 49.54631,
  49.54715, 49.54849, 49.54715, 49.55061, 49.54938, 49.55183, 49.55339, 49.55818, 49.55974, 49.56364, 
  49.56141, 49.55851, 49.55718, 49.54938, 49.54593, 49.5427, 49.53936, 49.53891, 49.54548, 49.54415, 
  49.53958, 49.53947, 49.54626, 49.54548, 49.54894, 49.54927, 49.5535, 49.5505, 49.55061, 49.54727, 
  49.54326, 49.53947, 49.53457, 49.52688, 49.52354, 49.51875, 49.50604, 49.5086, 49.51596, 49.52354, 
  49.52164, 49.52822, 49.52554, 49.52922, 49.52421, 49.51529, 49.51529, 49.51172, 49.50671, 49.50805, 
  49.50481, 49.50035, 49.49701, 49.49902, 49.50961, 49.51741, 49.52599, 49.52565, 49.5398, 49.5505, 
  49.55272, 49.55373, 49.55707, 49.56742, 49.5672, 49.57009, 49.59013, 49.59335, 49.59847, 49.60003, 
  49.6096, 49.61004, 49.61594, 49.62339, 49.62328, 49.62606, 49.62895, 49.63139, 49.62483, 49.62094, 
  49.61838, 49.61672, 49.61538, 49.61705, 49.61427, 49.61027, 49.61894, 49.62372, 49.63151, 49.64785, 
  49.65296, 49.67252, 49.67729, 49.69118, 49.69695, 49.69395, 49.68673, 49.68573, 49.6894, 49.69018, 
  49.69206, 49.68796, 49.69639, 49.69173, 49.69484, 49.69317, 49.71205, 49.71926, 49.70938, 49.71394, 
  49.71294, 49.7166, 49.7176, 49.72714, 49.74767, 49.7663, 49.76264, 49.76208, 49.76774, 49.77195, 
  49.78326, 49.78736, 49.79567, 49.79999, 49.80092, 49.79959, 49.80202, 49.79826, 49.79815, 49.80136, 
  49.79914, 49.79117, 49.79338, 49.78706, 49.78873, 49.78518, 49.78939, 49.78862, 49.79338, 49.79349, 
  49.78928, 49.78895, 49.79216, 49.79338, 49.79693, 49.80092, 49.80236, 49.81399, 49.81731, 49.82041, 
  49.82296, 49.82938, 49.83348, 49.83425, 49.842, 49.84167, 49.84776, 49.8533, 49.85927, 49.86779, 
  49.86436, 49.86646, 49.87133, 49.8793, 49.87886, 49.88372, 49.89467, 49.89799, 49.90219, 49.90164, 
  49.90584, 49.90595, 49.90993, 49.91656, 49.92242, 49.93325, 49.94861, 49.95137, 49.94927, 49.95192, 
  49.95866, 49.9697, 49.97676, 49.98284, 49.98317, 49.99542, 50.00016, 50.0123, 50.01561, 50.02057, 
  50.02201, 50.02553, 50.0305, 50.03458, 50.03557, 50.03954, 50.04637, 50.04924, 50.05872, 50.06092, 
  50.06445, 50.06632, 50.06764, 50.07789, 50.08317, 50.08372, 50.09198, 50.0933, 50.0955, 50.09539, 
  50.09925, 50.10101, 50.10024, 50.09627, 50.09363, 50.08746, 50.09539, 50.09671, 50.10893, 50.11928, 
  50.12579, 50.12733, 50.13239, 50.13019, 50.13811, 50.14097, 50.14075, 50.15395, 50.15395, 50.16121, 
  50.17001, 50.15219, 50.13679, 50.12117, 50.12249, 50.11302, 50.09606, 50.07073, 50.06809, 50.06236, 
  50.05707, 50.05861, 50.05133, 50.04803, 50.04274, 50.02576, 50.00193, 49.99487, 49.99751, 49.98714, 
  49.98405, 49.97014, 49.96837, 49.95026, 49.95225, 49.94717, 49.94805, 49.93679, 49.94165, 49.94076, 
  49.94916, 49.94761, 49.95424, 49.95115, 49.95291, 49.96418, 49.96285, 49.96926, 49.96352, 49.96565, 
  49.96179, 49.95748, 49.95891, 49.95715, 49.95792, 49.95483, 49.95648, 49.96731, 49.9725, 49.97713, 
  49.97746, 49.97581, 49.97492, 49.97724, 49.97559, 49.97879, 49.98, 49.98464, 49.98497, 49.99347, 
  49.99468, 50.00197, 50.0002, 50.00362, 50.00792, 50.01024, 50.01928, 50.04972, 50.04564, 50.05115, 
  50.0571, 50.06129, 50.06955, 50.08211, 50.08564, 50.08718, 50.09621, 50.09654, 50.10139, 50.10575, 
  50.10656, 50.11636, 50.11779, 50.12395, 50.12814, 50.13342, 50.13551, 50.13287, 50.13551, 50.12825, 
  50.1288, 50.13518, 50.14101, 50.14277, 50.14706, 50.15212, 50.15872, 50.15806, 50.16301, 50.17235, 
  50.17334, 50.18642, 50.19324, 50.19247, 50.20126, 50.20774, 50.21313, 50.21818, 50.23235, 50.2408, 
  50.24036, 50.24453, 50.25167, 50.25924, 50.26166, 50.27362, 50.2757, 50.28459, 50.2847, 50.28832, 
  50.28919, 50.28492, 50.28513, 50.27954, 50.27746, 50.27404, 50.27141, 50.26878, 50.26666, 50.25945, 
  50.25956, 50.25747, 50.25638, 50.25868, 50.25703, 50.25967, 50.25989, 50.26461, 50.26658, 50.27459, 
  50.2747, 50.27317, 50.27788, 50.28063, 50.28743, 50.29817, 50.30059, 50.30453, 50.3019, 50.30749, 
  50.31352, 50.31188, 50.31319, 50.30936, 50.32163, 50.32536, 50.33073, 50.33314, 50.33971, 50.34037, 
  50.35987, 50.35691, 50.35713, 50.35177, 50.34793, 50.34223, 50.34771, 50.34048, 50.35034, 50.327, 
  50.32898, 50.32733, 50.33029, 50.34136, 50.33741, 50.34333, 50.34727, 50.3533, 50.35341, 50.34596, 
  50.34519, 50.34946, 50.35363, 50.35559, 50.35033, 50.35405, 50.3511, 50.35329, 50.34814, 50.3511, 
  50.34266, 50.34124, 50.33828, 50.33532, 50.33488, 50.33006, 50.33017, 50.32403, 50.32129, 50.3157, 
  50.31121, 50.30989, 50.31121, 50.31724, 50.31987, 50.31395, 50.31296, 50.30628, 50.30518, 50.30331, 
  50.31033, 50.3134, 50.31724, 50.32031, 50.31965, 50.32206, 50.32403, 50.33587, 50.3408, 50.34869, 
  50.35142, 50.36402, 50.36807, 50.37365, 50.37617, 50.38679, 50.38854, 50.39642, 50.40386, 50.42727, 
  50.43886, 50.44498, 50.45597, 50.46362, 50.46362, 50.47531, 50.48089, 50.48689, 50.49716, 50.49115, 
  50.49093, 50.49498, 50.49694, 50.49967, 50.50098, 50.49749, 50.49825, 50.49476, 50.49585, 50.48667, 
  50.49967, 50.5072, 50.51233, 50.525, 50.52554, 50.52991, 50.52849, 50.53383, 50.51888, 50.51572, 
  50.50677, 50.50742, 50.51048, 50.50415, 50.49705, 50.49083, 50.50491, 50.50906, 50.51921, 50.51932, 
  50.52663, 50.53547, 50.53864, 50.54376, 50.55118, 50.55183, 50.55609, 50.55587, 50.5586, 50.56187, 
  50.5647, 50.57288, 50.57321, 50.57855, 50.58182, 50.59621, 50.59697, 50.60067, 50.6047, 50.60601, 
  50.61211, 50.62388, 50.62899, 50.64097, 50.64815, 50.65882, 50.66948, 50.67753, 50.68993, 50.69233, 
  50.69624, 50.702, 50.70505, 50.71342, 50.71277, 50.70972, 50.71287, 50.71146, 50.71842, 50.72124, 
  50.72646, 50.73472, 50.74113, 50.74786, 50.75633, 50.75872, 50.76241, 50.78347, 50.79031, 50.7864, 
  50.79498, 50.78141, 50.77609, 50.77316, 50.7724, 50.7813, 50.77555, 50.7698, 50.77425, 50.76936, 
  50.75612, 50.75058, 50.74992, 50.75427, 50.75177, 50.74808, 50.74439, 50.7383, 50.73732, 50.73591, 
  50.73189, 50.72874, 50.72276, 50.72037, 50.7094, 50.7082, 50.70287, 50.70429, 50.70222, 50.69396, 
  50.69243, 50.69417, 50.70624, 50.70298, 50.70472, 50.70342, 50.71581, 50.72352, 50.71853, 50.71559, 
  50.72646, 50.73167, 50.73264, 50.74329, 50.75111, 50.75035, 50.75513, 50.75469, 50.75925, 50.76132, 
  50.76414, 50.7624, 50.77152, 50.775, 50.77771, 50.78216, 50.78932, 50.79258, 50.79258, 50.80299, 
  50.80983, 50.81547, 50.8133, 50.8133, 50.82338, 50.81352, 50.81297, 50.83748, 50.83954, 50.8481, 
  50.85019, 50.8481, 50.85038, 50.86674, 50.87497, 50.87974, 50.88689, 50.89685, 50.90486, 50.91049, 
  50.91688, 50.91417, 50.91936, 50.92164, 50.9277, 50.93516, 50.94165, 50.94425, 50.96933, 50.97344, 
  50.97539, 50.98252, 50.98555, 50.99181, 50.99203, 51.00219, 51.00629, 51.00985, 51.01623, 51.05843, 
  51.06512, 51.08906, 51.09481, 50.66942, 50.75512)
LONGITUDE_VALUEs <- c(
  6.02116, 6.02116, 6.02888, 6.027, 6.0282, 6.03008, 6.04072, 6.03935, 6.04055, 6.03403, 
  6.03506, 6.03266, 6.03421, 6.03283, 6.03747, 6.03661, 6.0409, 6.04433, 6.07333, 6.09189, 
  6.09463, 6.09824, 6.11505, 6.12569, 6.12278, 6.13308, 6.13308, 6.13908, 6.14338, 6.142, 
  6.14905, 6.16295, 6.16175, 6.16535, 6.17325, 6.17942, 6.18337, 6.18114, 6.18371, 6.18354, 
  6.18166, 6.17702, 6.17015, 6.16672, 6.18268, 6.17959, 6.17513, 6.17616, 6.18217, 6.18577, 
  6.18834, 6.1868, 6.18955, 6.19178, 6.19401, 6.2007, 6.20224, 6.21051, 6.2184, 6.23487, 
  6.25564, 6.26113, 6.26679, 6.26954, 6.2692, 6.25874, 6.24707, 6.24947, 6.24672, 6.24587, 
  6.24844, 6.2402, 6.2251, 6.21925, 6.20621, 6.20295, 6.18596, 6.17377, 6.17891, 6.17754, 
  6.18818, 6.18921, 6.19556, 6.19831, 6.19848, 6.19633, 6.19221, 6.1862, 6.19032, 6.19152, 
  6.2068, 6.20679, 6.20851, 6.21229, 6.20851, 6.20954, 6.21297, 6.22276, 6.22019, 6.2262, 
  6.23186, 6.24199, 6.25213, 6.25539, 6.26226, 6.2693, 6.27494, 6.28181, 6.28421, 6.29744, 
  6.30928, 6.32285, 6.33195, 6.3347, 6.34944, 6.35013, 6.34051, 6.34102, 6.33725, 6.33776, 
  6.34206, 6.34412, 6.33949, 6.35117, 6.35683, 6.36284, 6.3728, 6.37726, 6.37589, 6.36627, 
  6.37005, 6.36507, 6.35803, 6.357, 6.34601, 6.34257, 6.35065, 6.35236, 6.35975, 6.36936, 
  6.36678, 6.37348, 6.40044, 6.39958, 6.40782, 6.40559, 6.38944, 6.38172, 6.38051, 6.3757, 
  6.3757, 6.37021, 6.36128, 6.35802, 6.36386, 6.35836, 6.35596, 6.35081, 6.34754, 6.34067, 
  6.34273, 6.33466, 6.3326, 6.33003, 6.32745, 6.31715, 6.31766, 6.31474, 6.31182, 6.3053, 
  6.30873, 6.30619, 6.30035, 6.29554, 6.29829, 6.29451, 6.29451, 6.29056, 6.29262, 6.28507, 
  6.28816, 6.28455, 6.29245, 6.28919, 6.28558, 6.27751, 6.2715, 6.26618, 6.25588, 6.24454, 
  6.23495, 6.22773, 6.22378, 6.21863, 6.21623, 6.21159, 6.20661, 6.20078, 6.19357, 6.18395, 
  6.1733, 6.17777, 6.17469, 6.16782, 6.16628, 6.17795, 6.18362, 6.18911, 6.18482, 6.18619, 
  6.18413, 6.19083, 6.18619, 6.19272, 6.18224, 6.17692, 6.16181, 6.15975, 6.15546, 6.15168, 
  6.14636, 6.14396, 6.14808, 6.13932, 6.14722, 6.14241, 6.13194, 6.13142, 6.14207, 6.14825, 
  6.15289, 6.15357, 6.15014, 6.15065, 6.1455, 6.13829,
  6.13789, 6.13549, 6.13378, 6.13069, 6.12657, 6.1197, 6.11164, 6.1149, 6.11696, 6.11713, 
  6.12588, 6.11438, 6.12073, 6.10098, 6.09411, 6.0845, 6.07901, 6.08039, 6.07884, 6.07833, 
  6.07215, 6.06391, 6.05636, 6.03337, 6.02891, 6.02976, 6.0246, 6.00075, 5.97089, 5.96831, 
  5.96385, 5.96401, 5.96126, 5.96795, 5.95749, 5.96075, 5.96126, 5.95834, 5.96109, 5.95405, 
  5.94941, 5.94341, 5.91046, 5.89535, 5.89449, 5.88625, 5.88745, 5.86771, 5.86634, 5.85999, 
  5.85401, 5.8583, 5.86191, 5.87049, 5.86724, 5.86878, 5.86226, 5.86311, 5.85573, 5.85985, 
  5.85195, 5.8523, 5.8408, 5.83324, 5.82809, 5.82243, 5.81848, 5.82243, 5.83015, 5.83204, 
  5.8365, 5.83976, 5.83805, 5.82896, 5.82209, 5.81917, 5.81075, 5.81024, 5.80629, 5.79856, 
  5.79598, 5.79083, 5.79135, 5.78551, 5.78053, 5.77505, 5.77677, 5.77368, 5.77522, 5.77024, 
  5.77471, 5.77042, 5.77025, 5.76441, 5.76098, 5.76407, 5.75051, 5.7457, 5.74621, 5.73934, 
  5.74037, 5.73642, 5.73608, 5.73799, 5.73971, 5.7452, 5.74915, 5.75462, 5.7572, 5.77025, 
  5.77214, 5.77832, 5.77867, 5.78382, 5.78279, 5.77935, 5.77781, 5.78416, 5.78279, 5.77764, 
  5.77437, 5.77111, 5.76407, 5.75669, 5.75188, 5.7572, 5.75428, 5.76115, 5.75772, 5.75497, 
  5.75034, 5.74639, 5.74587, 5.75532, 5.75892, 5.75824, 5.75377, 5.75085, 5.74793, 5.74793, 
  5.75085, 5.74862, 5.74158, 5.73815, 5.74399, 5.74794, 5.74296, 5.7457, 5.75154, 5.74965, 
  5.75326, 5.75515, 5.77026, 5.77181, 5.77541, 5.78091, 5.78589, 5.79052, 5.79344, 5.79121, 
  5.79858, 5.79892, 5.80356, 5.80751, 5.80905, 5.81112, 5.81592, 5.81763, 5.82072, 5.82055, 
  5.82347, 5.82896, 5.83257, 5.83034, 5.83223, 5.82759, 5.82845, 5.82536, 5.82725, 5.82421, 
  5.82575, 5.83588, 5.84188, 5.86007, 5.86728, 5.87142, 5.87588, 5.87485, 5.88703, 5.86593, 
  5.86181, 5.86627, 5.8704, 5.87366, 5.87812, 5.88636, 5.8891, 5.89236, 5.89562, 5.89923, 
  5.90232, 5.90111, 5.90884, 5.91021, 5.90455, 5.903, 5.90489, 5.90232, 5.90232, 5.90678, 
  5.89855, 5.89546, 5.88602, 5.88241, 5.88705, 5.87502, 5.8764, 5.84825, 5.84997, 5.86353, 
  5.86885, 5.87348, 5.86885, 5.8661, 5.87211, 5.86971, 5.87297, 5.86061, 5.86096, 5.85323, 
  5.84297, 5.84624, 5.84624, 5.83938, 5.8277, 5.82512, 5.81998, 5.81998, 5.81861,
  5.81637, 5.81569, 5.81208, 5.80831, 5.80127, 5.79115, 5.79095, 5.78357, 5.77688, 5.77499, 
  5.75886, 5.75886, 5.75509, 5.75749, 5.7556, 5.75766, 5.74668, 5.73776, 5.73329, 5.72403, 
  5.72042, 5.70067, 5.69003, 5.68077, 5.68179, 5.66807, 5.6624, 5.65277, 5.64282, 5.64333, 
  5.63097, 5.632, 5.62068, 5.61605, 5.62069, 5.6212, 5.6109, 5.60301, 5.60232, 5.59149, 
  5.5884, 5.56832, 5.56266, 5.55614, 5.54481, 5.54207, 5.53622, 5.52867, 5.50019, 5.48732, 
  5.47959, 5.47978, 5.47257, 5.46484, 5.46553, 5.44736, 5.4623, 5.46711, 5.4647, 5.44222, 
  5.44102, 5.44771, 5.44857, 5.45716, 5.44497, 5.43741, 5.42883, 5.43158, 5.42574, 5.41801, 
  5.40925, 5.40049, 5.39793, 5.37303, 5.3629, 5.36255, 5.35448, 5.34624, 5.34229, 5.34332, 
  5.33817, 5.33989, 5.33594, 5.32907, 5.31756, 5.3131, 5.31035, 5.30505, 5.3047, 5.32067, 
  5.33372, 5.30917, 5.29304, 5.27793, 5.26797, 5.25509, 5.24839, 5.24256, 5.2429, 5.23605, 
  5.23021, 5.21716, 5.20651, 5.19793, 5.19398, 5.16341, 5.16566, 5.15398, 5.14299, 5.14076, 
  5.12599, 5.12565, 5.12273, 5.1253, 5.11073, 5.08979, 5.0831, 5.06318, 5.06146, 5.03692, 
  5.00687, 5.00687, 4.99811, 4.99846, 4.99384, 4.98508, 4.96997, 4.96637, 4.96173, 4.95538, 
  4.94662, 4.94421, 4.93838, 4.92893, 4.92052, 4.90369, 4.89648, 4.88688, 4.87933, 4.86971, 
  4.87091, 4.86078, 4.85666, 4.85065, 4.85941, 4.85924, 4.86353, 4.86611, 4.87589, 4.87589, 
  4.86853, 4.86939, 4.86613, 4.86939, 4.86749, 4.85667, 4.85719, 4.85066, 4.85222, 4.84878, 
  4.85514, 4.86338, 4.86115, 4.86647, 4.87196, 4.86956, 4.87848, 4.88827, 4.88535, 4.8759, 
  4.87865, 4.88809, 4.88947, 4.88003, 4.88209, 4.85736, 4.84844, 4.83968, 4.83006, 4.8256, 
  4.79023, 4.7899, 4.79574, 4.79367, 4.8057, 4.81943, 4.81514, 4.82098, 4.81703, 4.81857, 
  4.82304, 4.81978, 4.82783, 4.83007, 4.83814, 4.84192, 4.84054, 4.82577, 4.82904, 4.81874, 
  4.82183, 4.81977, 4.83849, 4.84244, 4.84089, 4.84759, 4.84174, 4.83711, 4.83986, 4.84329, 
  4.85067, 4.84947, 4.8596, 4.86201, 4.86029, 4.87145, 4.87592, 4.86733, 4.87385, 4.86664, 
  4.87106, 4.8793, 4.8793, 4.88547, 4.89783, 4.89405, 4.8817, 4.87724, 4.83228, 4.82334, 
  4.82403, 4.80412, 4.76225, 4.75605, 4.74781, 4.75468, 4.7032, 4.68672, 4.67849, 4.68569, 
  4.68569, 4.69805, 4.69908, 4.69359, 4.69633, 4.68466, 4.68672, 4.69392, 4.66956, 4.62906, 
  4.58101, 4.56277, 4.53978, 4.52193, 4.51781, 4.51095, 4.48109, 4.44505, 4.44059, 4.43441, 
  4.40828, 4.38975, 4.38048, 4.37019, 4.3496, 4.33518, 4.32454, 4.30704, 4.29091, 4.26837, 
  4.24366, 4.23357, 4.22257, 4.21643, 4.2063, 4.1972, 4.19445, 4.1984, 4.17608, 4.1747, 
  4.16699, 4.16355, 4.1517, 4.1493, 4.14569, 4.13986, 4.14569, 4.14793, 4.1548, 4.15909, 
  4.16287, 4.16115, 4.15308, 4.14518, 4.14638, 4.13865, 4.13489, 4.16252, 4.17591, 4.19497, 
  4.19858, 4.21933, 4.23204, 4.22517, 4.22517, 4.21796, 4.21264, 4.20594, 4.20062, 4.20695, 
  4.19633, 4.20337, 4.202, 4.20252, 4.19702, 4.2008, 4.19651, 4.17642, 4.15667, 4.15478, 
  4.1431, 4.12645, 4.13128, 4.13574, 4.13506, 4.13746, 4.14708, 4.15034, 4.15532, 4.1548, 
  4.14742, 4.15651, 4.15651, 4.16029, 4.15994, 4.15222, 4.15153, 4.17299, 4.18157, 4.19376, 
  4.20217, 4.20664, 4.22072, 4.2214, 4.21522, 4.20835, 4.17573, 4.1759, 4.16834, 4.16955, 
  4.16251, 4.1608, 4.15496, 4.15479, 4.14929, 4.14946, 4.16406, 4.16389, 4.16863, 4.16766, 
  4.16509, 4.16337, 4.15152, 4.1462, 4.13538, 4.13486, 4.13813, 4.13778, 4.13332, 4.13607, 
  4.12956, 4.12492, 4.12132, 4.12561, 4.12595, 4.12286, 4.11788, 4.11771, 4.10913, 4.10639, 
  4.09815, 4.09488, 4.09248, 4.07978, 4.07806, 4.06759, 4.06536, 4.0542, 4.05334, 4.03943, 
  4.0257, 4.02227, 4.01694, 4.01591, 3.99101, 3.98483, 3.97247, 3.96819, 3.96768, 3.90399, 
  3.89558, 3.88476, 3.89025, 3.88716, 3.87566, 3.85814, 3.85884, 3.84871, 3.82398, 3.82381, 
  3.81145, 3.81557, 3.81368, 3.80544, 3.79943, 3.78365, 3.77043, 3.76665, 3.76322, 3.7457, 
  3.73454, 3.73798, 3.73231, 3.7361, 3.73352, 3.73335, 3.72974, 3.72906, 3.73198, 3.72803, 
  3.73129, 3.72837, 3.72098, 3.71944, 3.71017, 3.71017, 3.71532, 3.71652, 3.71961, 3.70879, 
  3.70401, 3.69387, 3.69456, 3.68426, 3.69353, 3.69422, 3.68598, 3.67378, 3.67756, 3.6652, 
  3.66778, 3.6664, 3.65747, 3.65816, 3.66349, 3.6695, 3.67413, 3.67242, 3.67431, 3.66847, 
  3.66915, 3.65868, 3.66339, 3.65361, 3.6428, 3.6313, 3.63078, 3.61843, 3.60693, 3.59268, 
  3.57913, 3.57894, 3.57173, 3.57379, 3.56881, 3.56178, 3.54942, 3.53878, 3.52625, 3.50034, 
  3.49657, 3.50409, 3.51696, 3.51834, 3.51061, 3.50341, 3.49002, 3.47355, 3.4533, 3.45467, 
  3.44884, 3.44009, 3.43751, 3.42668, 3.39064, 3.37571, 3.35921, 3.32763, 3.31974, 3.30857, 
  3.28626, 3.28472, 3.2782, 3.28146, 3.27785, 3.283, 3.28043, 3.27871, 3.27562, 3.28592, 
  3.27768, 3.27819, 3.28214, 3.28168, 3.27464, 3.27893, 3.27464, 3.27636, 3.27481, 3.27104, 
  3.26983, 3.25472, 3.25954, 3.24408, 3.25026, 3.23997, 3.24323, 3.26521, 3.25164, 3.26194, 
  3.25799, 3.26143, 3.25079, 3.24667, 3.2264, 3.22074, 3.21456, 3.207, 3.20958, 3.19721, 
  3.19017, 3.20202, 3.18641, 3.18607, 3.17783, 3.17062, 3.17147, 3.1507, 3.15173, 3.12718, 
  3.11172, 3.10485, 3.08993, 3.08924, 3.081, 3.05902, 3.03929, 3.03603, 3.01456, 3.01387, 
  2.97989, 2.97405, 2.96358, 2.95911, 2.94967, 2.9464, 2.93679, 2.93766, 2.94144, 2.94144, 
  2.94522, 2.93182, 2.92822, 2.93166, 2.93011, 2.92565, 2.92376, 2.91139, 2.90899, 2.91071, 
  2.90453, 2.89817, 2.88634, 2.87896, 2.87381, 2.86934, 2.8532, 2.84858, 2.82489, 2.81922, 
  2.78986, 2.79003, 2.78696, 2.78164, 2.78387, 2.77751, 2.77391, 2.76584, 2.76155, 2.76447, 
  2.7619, 2.75674, 2.76224, 2.75418, 2.75314, 2.73769, 2.72928, 2.72928, 2.72618, 2.72172, 
  2.72601, 2.7121, 2.71022, 2.67879, 2.6702, 2.65701, 2.63349, 2.62421, 2.61597, 2.61615, 
  2.61082, 2.60293, 2.59778, 2.61272, 2.60551, 2.61083, 2.60465, 2.60945, 2.60413, 2.60826, 
  2.6031, 2.59366, 2.59022, 2.59657, 2.60275, 2.61889, 2.61769, 2.63349, 2.61735, 2.61066, 
  2.61203, 2.60705, 2.60945, 2.60602, 2.59503, 2.57357, 2.57546, 2.57014, 2.57581, 2.56174, 
  2.56277, 2.54526, 2.55625, 4.61601, 6.01319)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_2, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_0 <- st_union(Geo_0)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, Geo_0[1])
Geo_2 <- st_union(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
Geo_2 <- Geo_2 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### GERMANY #####
Geo_0 <- Geometric_Operations(Geo_3, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0))
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(
  50.75446, 50.75327, 50.75023, 50.74816, 50.74751, 50.74968, 50.74556, 50.74208, 50.73926, 50.73339, 
  50.73187, 50.73089, 50.72937, 50.72622, 50.72426, 50.72013, 50.71774, 50.72861, 50.72068, 50.72241, 
  50.72013, 50.7235, 50.72274, 50.71013, 50.70731, 50.69893, 50.69545, 50.69382, 50.68817, 50.68643, 
  50.67751, 50.67109, 50.66935, 50.66152, 50.6561, 50.65447, 50.65229, 50.64957, 50.6487, 50.64685, 
  50.64696, 50.64413, 50.64489, 50.64347, 50.63172, 50.62834, 50.62758, 50.6254, 50.62377, 50.62703, 
  50.62758, 50.63052, 50.63019, 50.63302, 50.634, 50.63139, 50.6328, 50.63117, 50.63182, 50.62605, 
  50.62692, 50.62856, 50.62736, 50.62475, 50.61952, 50.60863, 50.60449, 50.59795, 50.59828, 50.59719, 
  50.59664, 50.58716, 50.59108, 50.58106, 50.57604, 50.56928, 50.56427, 50.55696, 50.55434, 50.54158, 
  50.54093, 50.53885, 50.53613, 50.53645, 50.53547, 50.53089, 50.531, 50.52685, 50.52423, 50.52052, 
  50.52129, 50.5191, 50.5169, 50.51602, 50.51471, 50.51286, 50.51307, 50.50085, 50.49855, 50.4944, 
  50.49801, 50.4991, 50.50401, 50.49899, 50.4991, 50.50434, 50.50249, 50.50358, 50.49899, 50.49779, 
  50.5015, 50.49397, 50.4932, 50.48927, 50.4896, 50.48742, 50.48326, 50.47737, 50.47518, 50.47169, 
  50.47212, 50.46852, 50.46251, 50.45639, 50.45715, 50.45376, 50.45573, 50.44261, 50.43113, 50.41878, 
  50.40915, 50.40051, 50.39679, 50.39, 50.38518, 50.37993, 50.37763, 50.37314, 50.37303, 50.36088, 
  50.35825, 50.35858, 50.34401, 50.33788, 50.33689, 50.32341, 50.3211, 50.3223, 50.3188, 50.31836, 
  50.31354, 50.31255, 50.31496, 50.31145, 50.30498, 50.30707, 50.30981, 50.31079, 50.31518, 50.31529, 
  50.31869, 50.3166, 50.32384, 50.32285, 50.32471, 50.31913, 50.32154, 50.32099, 50.32219, 50.31967, 
  50.3109, 50.30937, 50.31079, 50.30827, 50.30246, 50.30137, 50.29862, 50.29775, 50.2961, 50.29446, 
  50.28974, 50.28371, 50.27877, 50.27493, 50.27438, 50.26616, 50.2678, 50.26506, 50.26736, 50.26144, 
  50.2622, 50.25858, 50.25891, 50.2543, 50.25727, 50.25321, 50.25321, 50.2397, 50.23652, 50.23784, 
  50.23388, 50.22784, 50.22487, 50.22465, 50.21938, 50.2174, 50.20674, 50.20542, 50.20334, 50.19499, 
  50.19257, 50.18707, 50.1841, 50.18191, 50.17784, 50.17949, 50.17872, 50.17179, 50.17168, 50.17784, 
  50.17773, 50.17278, 50.17069, 50.16937, 50.16025, 50.1553, 50.15552, 50.15321, 50.14848, 50.15189, 
  50.15002, 50.14144, 50.13968, 50.13737, 50.13539, 50.13484, 50.13001, 
  50.12381, 50.12161, 50.11423, 50.11368, 50.10829, 50.10597, 50.10564, 50.10322, 50.10223, 50.10311, 
  50.10168, 50.09904, 50.09496, 50.09529, 50.09199, 50.09386, 50.09166, 50.08582, 50.08373, 50.08053, 
  50.07448, 50.0726, 50.07227, 50.07492, 50.07723, 50.07337, 50.06897, 50.06478, 50.06401, 50.06599, 
  50.06555, 50.06313, 50.05949, 50.05762, 50.05618, 50.06048, 50.06037, 50.05828, 50.05464, 50.05222, 
  50.05133, 50.04759, 50.04141, 50.02973, 50.02256, 50.0155, 50.01947, 50.01848, 50.01439, 50.01132, 
  50.00955, 49.99797, 50.0004, 49.99907, 49.99466, 49.99455, 49.98682, 49.98748, 49.9855, 49.97324, 
  49.9632, 49.96187, 49.95237, 49.95646, 49.96021, 49.96717, 49.96938, 49.96055, 49.95646, 49.94829, 
  49.95315, 49.95536, 49.95039, 49.95016, 49.94497, 49.93691, 49.93448, 49.92862, 49.92564, 49.92287, 
  49.92133, 49.92122, 49.91293, 49.91138, 49.91127, 49.9074, 49.90054, 49.89667, 49.89502, 49.88982, 
  49.88761, 49.88219, 49.87666, 49.8792, 49.87511, 49.87588, 49.87057, 49.86581, 49.87035, 49.86769, 
  49.85829, 49.8522, 49.83958, 49.83582, 49.83969, 49.84811, 49.85054, 49.8512, 49.83227, 49.82773, 
  49.82175, 49.81732, 49.81633, 49.81223, 49.81023, 49.81467, 49.81179, 49.81167, 49.82253, 49.81876, 
  49.81367, 49.81101, 49.81245, 49.80935, 49.80159, 49.80614, 49.81356, 49.81101, 49.80614, 49.79616, 
  49.79206, 49.78819, 49.7832, 49.77433, 49.76901, 49.75992, 49.75337, 49.74627, 49.73252, 49.72386, 
  49.72053, 49.72686, 49.72653, 49.72397, 49.71743, 49.71365, 49.71343, 49.69722, 49.69156, 49.67679, 
  49.66657, 49.66068, 49.66045, 49.65445, 49.63634, 49.61866, 49.61454, 49.6003, 49.60008, 49.5884, 
  49.58016, 49.57571, 49.57972, 49.57159, 49.55712, 49.55177, 49.53127, 49.50319, 49.49661, 49.49015, 
  49.46957, 49.46939,
  49.46879, 49.4669, 49.466, 49.46433, 49.46489, 49.46645, 49.46377, 49.46946, 49.47638, 49.47549, 
  49.47716, 49.46656, 49.46768, 49.46288, 49.46612, 49.45139, 49.45038, 49.43509, 49.43576, 49.41924, 
  49.41823, 49.41633, 49.4179, 49.41086, 49.40167, 49.40014, 49.39377, 49.39254, 49.38807, 49.39019, 
  49.3855, 49.3855, 49.36851, 49.37198, 49.36572, 49.35476, 49.34928, 49.3504, 49.3542, 49.35879, 
  49.3561, 49.34649, 49.33888, 49.33519, 49.33564, 49.33049, 49.3221, 49.31214, 49.30162, 49.30319, 
  49.29651, 49.29569, 49.28975, 49.28796, 49.28091, 49.28326, 49.28001, 49.27665, 49.26948, 49.26164, 
  49.25403, 49.25716, 49.25358, 49.25335, 49.24753, 49.24203, 49.23722, 49.22062, 49.21501, 49.22062, 
  49.20582, 49.18832, 49.17508, 49.17273, 49.16352, 49.16723, 49.1642, 49.16869, 49.16588, 49.16319, 
  49.16195, 49.15802, 49.15724, 49.15095, 49.15757, 49.16307, 49.17329, 49.17542, 49.18215, 49.19461, 
  49.20044, 49.2121, 49.2232, 49.21861, 49.2158, 49.20874, 49.21378, 49.21513, 49.21984, 49.22253, 
  49.22343, 49.22186, 49.22287, 49.21636, 49.21412, 49.20235, 49.21031, 49.19977, 49.19416, 49.19382, 
  49.18776, 49.19348, 49.189, 49.19214, 49.17991, 49.17486, 49.16745, 49.16386, 49.1569, 49.13714, 
  49.12029, 49.11209, 49.11411, 49.12422, 49.13096, 49.14152, 49.1441, 49.14803, 49.15364, 49.15151, 
  49.15589, 49.15544, 49.15218, 49.1523, 49.1505, 49.1459, 49.13792, 49.14219, 49.13409, 49.13162, 
  49.13095, 49.12814, 49.12859, 49.12544, 49.12533, 49.11994, 49.12904, 49.12713, 49.12949, 49.1278, 
  49.13027, 49.13005, 49.13173, 49.12791, 49.12791, 49.12522, 49.12174, 49.11522, 49.11544, 49.1232, 
  49.12971, 49.1223, 49.12454, 49.12218, 49.12443, 49.11668, 49.11522, 49.13128, 49.13802, 49.14543, 
  49.14555, 49.1433, 49.14442, 49.14308, 49.15475, 49.16284, 49.16575, 49.17249, 49.17496, 49.1845, 
  49.18225, 49.18034, 49.17675, 49.17473, 49.17114, 49.16822, 49.16531, 49.16373, 49.16923, 49.16598, 
  49.16205, 49.16418, 49.16766, 49.17002, 49.16879, 49.16418, 49.1552, 49.1552, 49.15069, 49.15001, 
  49.14395, 49.14215, 49.14137, 49.14227, 49.13631, 49.13553, 49.12216, 49.12227, 49.10373, 49.10373, 
  49.09688, 49.09631, 49.09339, 49.07979, 49.08339, 49.07405, 49.0736, 49.06562, 49.06382, 49.05437, 
  49.04503, 49.04875, 49.04942, 49.05156, 49.05415, 49.05808, 49.05606, 49.05741, 49.05617, 49.05246, 
  49.05403, 49.05055, 49.05482, 49.05561, 49.04368, 49.04391, 49.04706, 49.04616, 49.04814, 49.04514, 
  49.04751, 49.05111, 49.05853, 49.05786, 49.06551, 49.06078, 49.05538, 49.05212, 49.04672, 49.04751, 
  49.04492, 49.04211, 49.04391, 49.0358, 49.0331, 49.03877, 49.04417, 49.04642, 49.04901, 49.04473, 
  49.04541, 49.04034, 49.04417, 49.05036, 49.05407, 49.05812, 49.05688, 49.05396, 49.05576, 49.04957, 
  49.04282, 49.04293, 49.03562, 49.03584, 49.0265, 49.0256, 49.02943, 49.02436, 49.02098, 49.02121, 
  49.01795, 49.01896, 49.01603, 49.01378, 49.00691, 49.00567, 48.9997, 48.99925, 48.99565, 48.99711, 
  48.99216, 48.98945, 48.98912, 48.97729, 48.97875, 48.97639, 48.9792, 48.97808, 48.9765, 48.97729, 
  48.96884, 48.9667, 48.97548, 48.97548, 48.96624, 48.96061, 48.95407, 48.94573, 48.91923, 48.91359, 
  48.90659, 48.89847, 48.88842, 48.87657, 48.87044, 48.86517, 51.30747)
LONGITUDE_VALUEs <- c(
  6.02116, 6.02116, 6.02888, 6.027, 6.0282, 6.03008, 6.04072, 6.03935, 6.04055, 6.03403, 
  6.03506, 6.03266, 6.03421, 6.03283, 6.03747, 6.03661, 6.0409, 6.04433, 6.07333, 6.09189, 
  6.09463, 6.09824, 6.11505, 6.12569, 6.12278, 6.13308, 6.13308, 6.13908, 6.14338, 6.142, 
  6.14905, 6.16295, 6.16175, 6.16535, 6.17325, 6.17942, 6.18337, 6.18114, 6.18371, 6.18354, 
  6.18166, 6.17702, 6.17015, 6.16672, 6.18268, 6.17959, 6.17513, 6.17616, 6.18217, 6.18577, 
  6.18834, 6.1868, 6.18955, 6.19178, 6.19401, 6.2007, 6.20224, 6.21051, 6.2184, 6.23487, 
  6.25564, 6.26113, 6.26679, 6.26954, 6.2692, 6.25874, 6.24707, 6.24947, 6.24672, 6.24587, 
  6.24844, 6.2402, 6.2251, 6.21925, 6.20621, 6.20295, 6.18596, 6.17377, 6.17891, 6.17754, 
  6.18818, 6.18921, 6.19556, 6.19831, 6.19848, 6.19633, 6.19221, 6.1862, 6.19032, 6.19152, 
  6.2068, 6.20679, 6.20851, 6.21229, 6.20851, 6.20954, 6.21297, 6.22276, 6.22019, 6.2262, 
  6.23186, 6.24199, 6.25213, 6.25539, 6.26226, 6.2693, 6.27494, 6.28181, 6.28421, 6.29744, 
  6.30928, 6.32285, 6.33195, 6.3347, 6.34944, 6.35013, 6.34051, 6.34102, 6.33725, 6.33776, 
  6.34206, 6.34412, 6.33949, 6.35117, 6.35683, 6.36284, 6.3728, 6.37726, 6.37589, 6.36627, 
  6.37005, 6.36507, 6.35803, 6.357, 6.34601, 6.34257, 6.35065, 6.35236, 6.35975, 6.36936, 
  6.36678, 6.37348, 6.40044, 6.39958, 6.40782, 6.40559, 6.38944, 6.38172, 6.38051, 6.3757, 
  6.3757, 6.37021, 6.36128, 6.35802, 6.36386, 6.35836, 6.35596, 6.35081, 6.34754, 6.34067, 
  6.34273, 6.33466, 6.3326, 6.33003, 6.32745, 6.31715, 6.31766, 6.31474, 6.31182, 6.3053, 
  6.30873, 6.30619, 6.30035, 6.29554, 6.29829, 6.29451, 6.29451, 6.29056, 6.29262, 6.28507, 
  6.28816, 6.28455, 6.29245, 6.28919, 6.28558, 6.27751, 6.2715, 6.26618, 6.25588, 6.24454, 
  6.23495, 6.22773, 6.22378, 6.21863, 6.21623, 6.21159, 6.20661, 6.20078, 6.19357, 6.18395, 
  6.1733, 6.17777, 6.17469, 6.16782, 6.16628, 6.17795, 6.18362, 6.18911, 6.18482, 6.18619, 
  6.18413, 6.19083, 6.18619, 6.19272, 6.18224, 6.17692, 6.16181, 6.15975, 6.15546, 6.15168, 
  6.14636, 6.14396, 6.14808, 6.13932, 6.14722, 6.14241, 6.13194, 6.13142, 6.14207, 6.14825, 
  6.15289, 6.15357, 6.15014, 6.15065, 6.1455, 6.13829, 6.13789,
  6.13695, 6.12888, 6.12837, 6.13558, 6.13077, 6.13077, 6.13455, 6.13626, 6.13214, 6.13042, 
  6.12561, 6.12561, 6.12819, 6.13265, 6.13265, 6.12218, 6.1196, 6.11943, 6.12235, 6.12201, 
  6.11617, 6.11806, 6.12132, 6.12166, 6.12441, 6.13008, 6.12064, 6.12133, 6.11824, 6.11566, 
  6.11394, 6.11394, 6.11223, 6.11309, 6.12013, 6.11995, 6.12425, 6.12408, 6.12098, 6.1215, 
  6.12528, 6.12751, 6.13471, 6.12888, 6.14708, 6.1366, 6.13214, 6.12922, 6.13609, 6.13763, 
  6.15051, 6.14536, 6.13935, 6.13746, 6.14158, 6.14914, 6.15687, 6.16219, 6.17129, 6.16425, 
  6.1687, 6.17488, 6.17969, 6.1881, 6.18175, 6.18278, 6.19136, 6.19411, 6.19291, 6.19892, 
  6.20062, 6.20646, 6.21195, 6.22415, 6.21693, 6.22758, 6.22329, 6.22672, 6.21797, 6.21814, 
  6.22466, 6.23066, 6.23461, 6.23083, 6.22654, 6.23152, 6.23307, 6.23856, 6.24801, 6.25058, 
  6.25728, 6.25967, 6.2753, 6.28165, 6.28646, 6.29196, 6.29196, 6.29677, 6.31016, 6.3141, 
  6.31427, 6.32252, 6.31977, 6.32836, 6.33763, 6.33935, 6.34755, 6.36352, 6.38516, 6.39255, 
  6.39735, 6.41107, 6.42533, 6.42567, 6.43014, 6.44095, 6.44301, 6.454, 6.47029, 6.48074, 
  6.48349, 6.49155, 6.49533, 6.50562, 6.51146, 6.51695, 6.52004, 6.52793, 6.53136, 6.52089, 
  6.50733, 6.50562, 6.51729, 6.50922, 6.51746, 6.51745, 6.50012, 6.50235, 6.50115, 6.51797, 
  6.51179, 6.50424, 6.49686, 6.49429, 6.50527, 6.50733, 6.50115, 6.48071, 6.45892, 6.44605, 
  6.42648, 6.42562, 6.43866, 6.44089, 6.42819, 6.42098, 6.4112, 6.39746, 6.38339, 6.37361, 
  6.38356, 6.38013, 6.36674, 6.3561, 6.38373, 6.38013, 6.35576, 6.36743, 6.36588, 6.36846, 
  6.3669, 6.36793,
  6.3717, 6.37119, 6.37393, 6.37479, 6.38028, 6.37977, 6.39436, 6.4122, 6.4201, 6.42524, 
  6.42885, 6.43966, 6.44618, 6.4563, 6.46542, 6.48652, 6.50094, 6.52481, 6.5346, 6.55828, 
  6.55296, 6.55193, 6.54799, 6.53735, 6.54037, 6.55279, 6.5516, 6.5607, 6.56344, 6.5782, 
  6.57992, 6.58764, 6.58352, 6.59622, 6.60154, 6.59022, 6.58833, 6.58421, 6.58524, 6.5734, 
  6.56327, 6.56602, 6.57855, 6.57718, 6.59039, 6.59486, 6.58936, 6.60499, 6.61546, 6.62369, 
  6.63121, 6.63845, 6.64446, 6.65133, 6.65312, 6.6598, 6.67079, 6.66616, 6.66805, 6.66066, 
  6.66444, 6.6756, 6.68023, 6.68384, 6.69088, 6.6835, 6.68968, 6.68899, 6.69634, 6.71921, 
  6.73157, 6.71113, 6.72023, 6.72693, 6.73809, 6.75097, 6.76075, 6.78222, 6.78992, 6.79267, 
  6.80366, 6.8095, 6.81877, 6.83319, 6.84743, 6.84383, 6.84468, 6.86014, 6.86117, 6.84984, 
  6.85258, 6.83611, 6.85912, 6.87025, 6.87111, 6.89274, 6.89978, 6.91283, 6.91902, 6.91884, 
  6.92554, 6.92898, 6.93894, 6.93962, 6.94409, 6.9592, 6.97362, 6.99506, 6.99884, 7.00965, 
  7.01086, 7.02082, 7.02305, 7.03438, 7.03352, 7.02768, 7.02802, 7.03386, 7.03146, 7.04794, 
  7.04364, 7.05222, 7.06802, 7.06939, 7.0912, 7.08158, 7.08467, 7.07935, 7.0833, 7.09068, 
  7.09978, 7.10665, 7.10665, 7.11352, 7.11283, 7.1027, 7.10305, 7.12606, 7.13171, 7.13136, 
  7.13497, 7.13531, 7.13943, 7.14424, 7.14991, 7.15918, 7.16502, 7.16828, 7.17481, 7.17687, 
  7.1791, 7.18374, 7.18477, 7.18766, 7.19144, 7.19144, 7.19728, 7.19796, 7.20105, 7.20414, 
  7.24484, 7.26596, 7.27093, 7.27951, 7.28346, 7.28226, 7.29565, 7.31214, 7.313, 7.32995, 
  7.34197, 7.34541, 7.35485, 7.36327, 7.36138, 7.36876, 7.36413, 7.3655, 7.37974, 7.44568, 
  7.44465, 7.4352, 7.43641, 7.44139, 7.44173, 7.43297, 7.43263, 7.43864, 7.4474, 7.4565, 
  7.45753, 7.46611, 7.46732, 7.4843, 7.49443, 7.4922, 7.49545, 7.50627, 7.50575, 7.50163, 
  7.49511, 7.49717, 7.49511, 7.48961, 7.4891, 7.49785, 7.50541, 7.5152, 7.52498, 7.52944, 
  7.52859, 7.53837, 7.53545, 7.56497, 7.60275, 7.61922, 7.6309, 7.63038, 7.63296, 7.63176, 
  7.6757, 7.68103, 7.69803, 7.6982, 7.6927, 7.69578, 7.69819, 7.70145, 7.70609, 7.7078, 
  7.71811, 7.72187, 7.72565, 7.73166, 7.73149, 7.7363, 7.74094, 7.74746, 7.75153, 7.75742, 
  7.77064, 7.7708, 7.7787, 7.78883, 7.79416, 7.81219, 7.8127, 7.8259, 7.8302, 7.83638, 
  7.84359, 7.84376, 7.85046, 7.85251, 7.86831, 7.87226, 7.88118, 7.88135, 7.89062, 7.90109, 
  7.90949, 7.91413, 7.92408, 7.92614, 7.93146, 7.93077, 7.93886, 7.94092, 7.94555, 7.94538, 
  7.95945, 7.96597, 7.96717, 7.97215, 7.97438, 7.98262, 7.99549, 8.01302, 8.01284, 8.02005, 
  8.02211, 8.03241, 8.03618, 8.05077, 8.05782, 8.06451, 8.06451, 8.06828, 8.07034, 8.07189, 
  8.08716, 8.0875, 8.10604, 8.14912, 8.15997, 8.17061, 8.17129, 8.18554, 8.18708, 8.19515, 
  8.19583, 8.19995, 8.21488, 8.22535, 8.23273, 8.20218, 8.19091, 8.18852, 8.16431, 8.15521, 
  8.15144, 8.14148, 8.13718, 8.12654, 8.12701, 8.20962, 9.47855)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_3, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_0 <- st_union(Geo_0)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_3 <- st_set_geometry(Geo_3, st_union(Geo_0[1:22]))
Geo_3 <- st_union(Geo_3, Geo)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
Geo_3 <- Geo_3 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### FRANCE #####
Geo_0 <- Geometric_Operations(Geo_4, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_0 <- Geometric_Operations(Geo_0, Geo_3)
Geo_4 <- st_set_geometry(Geo_4, st_geometry(Geo_0))
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
LATITUDE_VALUEs <- c(
  51.08906, 51.06512, 51.05843, 51.01623, 51.00985, 51.00629, 51.00219, 50.99203, 50.99181, 50.98555, 
  50.98252, 50.97539, 50.97344, 50.96933, 50.94425, 50.94165, 50.93516, 50.9277, 50.92164, 50.91936, 
  50.91417, 50.91688, 50.91049, 50.90486, 50.89685, 50.88689, 50.87974, 50.87497, 50.86674, 50.85038, 
  50.8481, 50.85019, 50.8481, 50.83954, 50.83748, 50.81297, 50.81352, 50.82338, 50.8133, 50.8133, 
  50.81547, 50.80983, 50.80299, 50.79258, 50.79258, 50.78932, 50.78216, 50.77771, 50.775, 50.77152, 
  50.7624, 50.76414, 50.76132, 50.75925, 50.75469, 50.75513, 50.75035, 50.75111, 50.74329, 50.73264, 
  50.73167, 50.72646, 50.71559, 50.71853, 50.72352, 50.71581, 50.70342, 50.70472, 50.70298, 50.70624, 
  50.69417, 50.69243, 50.69396, 50.70222, 50.70429, 50.70287, 50.7082, 50.7094, 50.72037, 50.72276, 
  50.72874, 50.73189, 50.73591, 50.73732, 50.7383, 50.74439, 50.74808, 50.75177, 50.75427, 50.74992, 
  50.75058, 50.75612, 50.76936, 50.77425, 50.7698, 50.77555, 50.7813, 50.7724, 50.77316, 50.77609, 
  50.78141, 50.79498, 50.7864, 50.79031, 50.78347, 50.76241, 50.75872, 50.75633, 50.74786, 50.74113, 
  50.73472, 50.72646, 50.72124, 50.71842, 50.71146, 50.71287, 50.70972, 50.71277, 50.71342, 50.70505, 
  50.702, 50.69624, 50.69233, 50.68993, 50.67753, 50.66948, 50.65882, 50.64815, 50.64097, 50.62899, 
  50.62388, 50.61211, 50.60601, 50.6047, 50.60067, 50.59697, 50.59621, 50.58182, 50.57855, 50.57321, 
  50.57288, 50.5647, 50.56187, 50.5586, 50.55587, 50.55609, 50.55183, 50.55118, 50.54376, 50.53864, 
  50.53547, 50.52663, 50.51932, 50.51921, 50.50906, 50.50491, 50.49083, 50.49705, 50.50415, 50.51048, 
  50.50742, 50.50677, 50.51572, 50.51888, 50.53383, 50.52849, 50.52991, 50.52554, 50.525, 50.51233, 
  50.5072, 50.49967, 50.48667, 50.49585, 50.49476, 50.49825, 50.49749, 50.50098, 50.49967, 50.49694, 
  50.49498, 50.49093, 50.49115, 50.49716, 50.48689, 50.48089, 50.47531, 50.46362, 50.46362, 50.45597, 
  50.44498, 50.43886, 50.42727, 50.40386, 50.39642, 50.38854, 50.38679, 50.37617, 50.37365, 50.36807, 
  50.36402, 50.35142, 50.34869, 50.3408, 50.33587, 50.32403, 50.32206, 50.31965, 50.32031, 50.31724, 
  50.3134, 50.31033, 50.30331, 50.30518, 50.30628, 50.31296, 50.31395, 50.31987, 50.31724, 50.31121, 
  50.30989, 50.31121, 50.3157, 50.32129, 50.32403, 50.33017, 50.33006, 50.33488, 50.33532, 50.33828, 
  50.34124, 50.34266, 50.3511, 50.34814, 50.35329, 50.3511, 50.35405, 50.35033, 50.35559, 50.35363, 
  50.34946, 50.34519, 50.34596, 50.35341, 50.3533, 50.34727, 50.34333, 50.33741, 50.34136, 50.33029, 
  50.32733, 50.32898, 50.327, 50.35034, 50.34048, 50.34771, 50.34223, 50.34793, 50.35177, 50.35713, 
  50.35691, 50.35987, 50.34037, 50.33971, 50.33314, 50.33073, 50.32536, 50.32163, 50.30936, 50.31319, 
  50.31188, 50.31352, 50.30749, 50.3019, 50.30453, 50.30059, 50.29817, 50.28743, 50.28063, 50.27788, 
  50.27317, 50.2747, 50.27459, 50.26658, 50.26461, 50.25989, 50.25967, 50.25703, 50.25868, 50.25638, 
  50.25747, 50.25956, 50.25945, 50.26666, 50.26878, 50.27141, 50.27404, 50.27746, 50.27954, 50.28513, 
  50.28492, 50.28919, 50.28832, 50.2847, 50.28459, 50.2757, 50.27362, 50.26166, 50.25924, 50.25167, 
  50.24453, 50.24036, 50.2408, 50.23235, 50.21818, 50.21313, 50.20774, 50.20126, 50.19247, 50.19324, 
  50.18642, 50.17334, 50.17235, 50.16301, 50.15806, 50.15872, 50.15212, 50.14706, 50.14277, 50.14101, 
  50.13518, 50.1288, 50.12825, 50.13551, 50.13287, 50.13551, 50.13342, 50.12814, 50.12395, 50.11779, 
  50.11636, 50.10656, 50.10575, 50.10139, 50.09654, 50.09621, 50.08718, 50.08564, 50.08211, 50.06955, 
  50.06129, 50.0571, 50.05115, 50.04564, 50.04972, 50.01928, 50.01024, 50.00792, 50.00362, 50.0002, 
  50.00197, 49.99468, 49.99347, 49.98497, 49.98464, 49.98, 49.97879, 49.97559, 49.97724, 49.97492, 
  49.97581, 49.97746, 49.97713, 49.9725, 49.96731, 49.95648, 49.95483, 49.95792, 49.95715, 49.95891, 
  49.95748, 49.96179, 49.96565, 49.96352, 49.96926, 49.96285, 49.96418, 49.95291, 49.95115, 49.95424, 
  49.94761, 49.94916, 49.94076, 49.94165, 49.93679, 49.94805, 49.94717, 49.95225, 49.95026, 49.96837, 
  49.97014, 49.98405, 49.98714, 49.99751, 49.99487, 50.00193, 50.02576, 50.04274, 50.04803, 50.05133, 
  50.05861, 50.05707, 50.06236, 50.06809, 50.07073, 50.09606, 50.11302, 50.12249, 50.12117, 50.13679, 
  50.15219, 50.17001, 50.16121, 50.15395, 50.15395, 50.14075, 50.14097, 50.13811, 50.13019, 50.13239, 
  50.12733, 50.12579, 50.11928, 50.10893, 50.09671, 50.09539, 50.08746, 50.09363, 50.09627, 50.10024, 
  50.10101, 50.09925, 50.09539, 50.0955, 50.0933, 50.09198, 50.08372, 50.08317, 50.07789, 50.06764, 
  50.06632, 50.06445, 50.06092, 50.05872, 50.04924, 50.04637, 50.03954, 50.03557, 50.03458, 50.0305, 
  50.02553, 50.02201, 50.02057, 50.01561, 50.0123, 50.00016, 49.99542, 49.98317, 49.98284, 49.97676, 
  49.9697, 49.95866, 49.95192, 49.94927, 49.95137, 49.94861, 49.93325, 49.92242, 49.91656, 49.90993, 
  49.90595, 49.90584, 49.90164, 49.90219, 49.89799, 49.89467, 49.88372, 49.87886, 49.8793, 49.87133, 
  49.86646, 49.86436, 49.86779, 49.85927, 49.8533, 49.84776, 49.84167, 49.842, 49.83425, 49.83348, 
  49.82938, 49.82296, 49.82041, 49.81731, 49.81399, 49.80236, 49.80092, 49.79693, 49.79338, 49.79216, 
  49.78895, 49.78928, 49.79349, 49.79338, 49.78862, 49.78939, 49.78518, 49.78873, 49.78706, 49.79338, 
  49.79117, 49.79914, 49.80136, 49.79815, 49.79826, 49.80202, 49.79959, 49.80092, 49.79999, 49.79567, 
  49.78736, 49.78326, 49.77195, 49.76774, 49.76208, 49.76264, 49.7663, 49.74767, 49.72714, 49.7176, 
  49.7166, 49.71294, 49.71394, 49.70938, 49.71926, 49.71205, 49.69317, 49.69484, 49.69173, 49.69639, 
  49.68796, 49.69206, 49.69018, 49.6894, 49.68573, 49.68673, 49.69395, 49.69695, 49.69118, 49.67729, 
  49.67252, 49.65296, 49.64785, 49.63151, 49.62372, 49.61894, 49.61027, 49.61427, 49.61705, 49.61538, 
  49.61672, 49.61838, 49.62094, 49.62483, 49.63139, 49.62895, 49.62606, 49.62328, 49.62339, 49.61594, 
  49.61004, 49.6096, 49.60003, 49.59847, 49.59335, 49.59013, 49.57009, 49.5672, 49.56742, 49.55707, 
  49.55373, 49.55272, 49.5505, 49.5398, 49.52565, 49.52599, 49.51741, 49.50961, 49.49902, 49.49701, 
  49.50035, 49.50481, 49.50805, 49.50671, 49.51172, 49.51529, 49.51529, 49.52421, 49.52922, 49.52554, 
  49.52822, 49.52164, 49.52354, 49.51596, 49.5086, 49.50604, 49.51875, 49.52354, 49.52688, 49.53457, 
  49.53947, 49.54326, 49.54727, 49.55061, 49.5505, 49.5535, 49.54927, 49.54894, 49.54548, 49.54626, 
  49.53947, 49.53958, 49.54415, 49.54548, 49.53891, 49.53936, 49.5427, 49.54593, 49.54938, 49.55718, 
  49.55851, 49.56141, 49.56364, 49.55974, 49.55818, 49.55339, 49.55183, 49.54938, 49.55061, 49.54715, 
  49.54849, 49.54715,
  49.54631, 49.54241, 49.54074, 49.5423, 49.53696, 49.54286, 49.53718, 49.53016, 49.52704, 49.51969, 
  49.51924, 49.5169, 49.51434, 49.50787, 49.50587, 49.5004, 49.49929, 49.50051, 49.49817, 49.49918, 
  49.4965, 49.49762, 49.50252, 49.49862, 49.50074, 49.49951, 49.50118, 49.50051, 49.49828, 49.49483, 
  49.49527, 49.4975, 49.49739, 49.49316, 49.49304, 49.49126, 49.49126, 49.48903, 49.48658, 49.48301, 
  49.48334, 49.48122, 49.47687, 49.47554, 49.4626, 49.4607, 49.4636, 49.46237, 49.45557, 49.45724, 
  49.45412, 49.45077, 49.45724, 49.45155, 49.45378, 49.45244, 49.45378, 49.45534, 49.45233, 49.44809, 
  49.4501, 49.44787, 49.46416, 49.46639, 49.46472, 49.46572, 49.46315, 49.46382, 49.45813, 49.45322, 
  49.45322, 49.46449, 49.47096, 49.47286, 49.47029, 49.47331, 49.47587, 49.48223, 49.48992, 49.49405, 
  49.48992, 49.49193, 49.48658, 49.49349, 49.49148, 49.49338, 49.5013, 49.50397, 49.50509, 49.51088, 
  49.50676, 49.50798, 49.50553, 49.50709, 49.50631, 49.50999, 49.50865, 49.51032, 49.50821, 49.51478, 
  49.51155, 49.51155, 49.50854, 49.50999, 49.5072, 49.50731, 49.50352, 49.50464, 49.50152, 49.49483, 
  49.49282, 49.49472, 49.49182, 49.49238, 49.48803, 49.48736, 49.48535, 49.48435, 49.48803, 49.48691, 
  49.48881, 49.48044, 49.47799, 49.48067, 49.47699, 49.47844, 49.46728, 49.46918, 49.46594, 49.46773, 
  49.45914, 49.46014, 49.46515, 49.46939,
  49.46879, 49.4669, 49.466, 49.46433, 49.46489, 49.46645, 49.46377, 49.46946, 49.47638, 49.47549, 
  49.47716, 49.46656, 49.46768, 49.46288, 49.46612, 49.45139, 49.45038, 49.43509, 49.43576, 49.41924, 
  49.41823, 49.41633, 49.4179, 49.41086, 49.40167, 49.40014, 49.39377, 49.39254, 49.38807, 49.39019, 
  49.3855, 49.3855, 49.36851, 49.37198, 49.36572, 49.35476, 49.34928, 49.3504, 49.3542, 49.35879, 
  49.3561, 49.34649, 49.33888, 49.33519, 49.33564, 49.33049, 49.3221, 49.31214, 49.30162, 49.30319, 
  49.29651, 49.29569, 49.28975, 49.28796, 49.28091, 49.28326, 49.28001, 49.27665, 49.26948, 49.26164, 
  49.25403, 49.25716, 49.25358, 49.25335, 49.24753, 49.24203, 49.23722, 49.22062, 49.21501, 49.22062, 
  49.20582, 49.18832, 49.17508, 49.17273, 49.16352, 49.16723, 49.1642, 49.16869, 49.16588, 49.16319, 
  49.16195, 49.15802, 49.15724, 49.15095, 49.15757, 49.16307, 49.17329, 49.17542, 49.18215, 49.19461, 
  49.20044, 49.2121, 49.2232, 49.21861, 49.2158, 49.20874, 49.21378, 49.21513, 49.21984, 49.22253, 
  49.22343, 49.22186, 49.22287, 49.21636, 49.21412, 49.20235, 49.21031, 49.19977, 49.19416, 49.19382, 
  49.18776, 49.19348, 49.189, 49.19214, 49.17991, 49.17486, 49.16745, 49.16386, 49.1569, 49.13714, 
  49.12029, 49.11209, 49.11411, 49.12422, 49.13096, 49.14152, 49.1441, 49.14803, 49.15364, 49.15151, 
  49.15589, 49.15544, 49.15218, 49.1523, 49.1505, 49.1459, 49.13792, 49.14219, 49.13409, 49.13162, 
  49.13095, 49.12814, 49.12859, 49.12544, 49.12533, 49.11994, 49.12904, 49.12713, 49.12949, 49.1278, 
  49.13027, 49.13005, 49.13173, 49.12791, 49.12791, 49.12522, 49.12174, 49.11522, 49.11544, 49.1232, 
  49.12971, 49.1223, 49.12454, 49.12218, 49.12443, 49.11668, 49.11522, 49.13128, 49.13802, 49.14543, 
  49.14555, 49.1433, 49.14442, 49.14308, 49.15475, 49.16284, 49.16575, 49.17249, 49.17496, 49.1845, 
  49.18225, 49.18034, 49.17675, 49.17473, 49.17114, 49.16822, 49.16531, 49.16373, 49.16923, 49.16598, 
  49.16205, 49.16418, 49.16766, 49.17002, 49.16879, 49.16418, 49.1552, 49.1552, 49.15069, 49.15001, 
  49.14395, 49.14215, 49.14137, 49.14227, 49.13631, 49.13553, 49.12216, 49.12227, 49.10373, 49.10373, 
  49.09688, 49.09631, 49.09339, 49.07979, 49.08339, 49.07405, 49.0736, 49.06562, 49.06382, 49.05437, 
  49.04503, 49.04875, 49.04942, 49.05156, 49.05415, 49.05808, 49.05606, 49.05741, 49.05617, 49.05246, 
  49.05403, 49.05055, 49.05482, 49.05561, 49.04368, 49.04391, 49.04706, 49.04616, 49.04814, 49.04514, 
  49.04751, 49.05111, 49.05853, 49.05786, 49.06551, 49.06078, 49.05538, 49.05212, 49.04672, 49.04751, 
  49.04492, 49.04211, 49.04391, 49.0358, 49.0331, 49.03877, 49.04417, 49.04642, 49.04901, 49.04473, 
  49.04541, 49.04034, 49.04417, 49.05036, 49.05407, 49.05812, 49.05688, 49.05396, 49.05576, 49.04957, 
  49.04282, 49.04293, 49.03562, 49.03584, 49.0265, 49.0256, 49.02943, 49.02436, 49.02098, 49.02121, 
  49.01795, 49.01896, 49.01603, 49.01378, 49.00691, 49.00567, 48.9997, 48.99925, 48.99565, 48.99711, 
  48.99216, 48.98945, 48.98912, 48.97729, 48.97875, 48.97639, 48.9792, 48.97808, 48.9765, 48.97729, 
  48.96884, 48.9667, 48.97548, 48.97548, 48.96624, 48.96061, 48.95407, 48.94573, 48.91923, 48.91359, 
  48.90659, 48.89847, 48.88842, 48.87657, 48.85258, 51.07775, 51.08951)
LONGITUDE_VALUEs <- c(
  2.54526, 2.56277, 2.56174, 2.57581, 2.57014, 2.57546, 2.57357, 2.59503, 2.60602, 2.60945, 
  2.60705, 2.61203, 2.61066, 2.61735, 2.63349, 2.61769, 2.61889, 2.60275, 2.59657, 2.59022, 
  2.59366, 2.6031, 2.60826, 2.60413, 2.60945, 2.60465, 2.61083, 2.60551, 2.61272, 2.59778, 
  2.60293, 2.61082, 2.61615, 2.61597, 2.62421, 2.63349, 2.65701, 2.6702, 2.67879, 2.71022, 
  2.7121, 2.72601, 2.72172, 2.72618, 2.72928, 2.72928, 2.73769, 2.75314, 2.75418, 2.76224, 
  2.75674, 2.7619, 2.76447, 2.76155, 2.76584, 2.77391, 2.77751, 2.78387, 2.78164, 2.78696, 
  2.79003, 2.78986, 2.81922, 2.82489, 2.84858, 2.8532, 2.86934, 2.87381, 2.87896, 2.88634, 
  2.89817, 2.90453, 2.91071, 2.90899, 2.91139, 2.92376, 2.92565, 2.93011, 2.93166, 2.92822, 
  2.93182, 2.94522, 2.94144, 2.94144, 2.93766, 2.93679, 2.9464, 2.94967, 2.95911, 2.96358, 
  2.97405, 2.97989, 3.01387, 3.01456, 3.03603, 3.03929, 3.05902, 3.081, 3.08924, 3.08993, 
  3.10485, 3.11172, 3.12718, 3.15173, 3.1507, 3.17147, 3.17062, 3.17783, 3.18607, 3.18641, 
  3.20202, 3.19017, 3.19721, 3.20958, 3.207, 3.21456, 3.22074, 3.2264, 3.24667, 3.25079, 
  3.26143, 3.25799, 3.26194, 3.25164, 3.26521, 3.24323, 3.23997, 3.25026, 3.24408, 3.25954, 
  3.25472, 3.26983, 3.27104, 3.27481, 3.27636, 3.27464, 3.27893, 3.27464, 3.28168, 3.28214, 
  3.27819, 3.27768, 3.28592, 3.27562, 3.27871, 3.28043, 3.283, 3.27785, 3.28146, 3.2782, 
  3.28472, 3.28626, 3.30857, 3.31974, 3.32763, 3.35921, 3.37571, 3.39064, 3.42668, 3.43751, 
  3.44009, 3.44884, 3.45467, 3.4533, 3.47355, 3.49002, 3.50341, 3.51061, 3.51834, 3.51696, 
  3.50409, 3.49657, 3.50034, 3.52625, 3.53878, 3.54942, 3.56178, 3.56881, 3.57379, 3.57173, 
  3.57894, 3.57913, 3.59268, 3.60693, 3.61843, 3.63078, 3.6313, 3.6428, 3.65361, 3.66339, 
  3.65868, 3.66915, 3.66847, 3.67431, 3.67242, 3.67413, 3.6695, 3.66349, 3.65816, 3.65747, 
  3.6664, 3.66778, 3.6652, 3.67756, 3.67378, 3.68598, 3.69422, 3.69353, 3.68426, 3.69456, 
  3.69387, 3.70401, 3.70879, 3.71961, 3.71652, 3.71532, 3.71017, 3.71017, 3.71944, 3.72098, 
  3.72837, 3.73129, 3.72803, 3.73198, 3.72906, 3.72974, 3.73335, 3.73352, 3.7361, 3.73231, 
  3.73798, 3.73454, 3.7457, 3.76322, 3.76665, 3.77043, 3.78365, 3.79943, 3.80544, 3.81368, 
  3.81557, 3.81145, 3.82381, 3.82398, 3.84871, 3.85884, 3.85814, 3.87566, 3.88716, 3.89025, 
  3.88476, 3.89558, 3.90399, 3.96768, 3.96819, 3.97247, 3.98483, 3.99101, 4.01591, 4.01694, 
  4.02227, 4.0257, 4.03943, 4.05334, 4.0542, 4.06536, 4.06759, 4.07806, 4.07978, 4.09248, 
  4.09488, 4.09815, 4.10639, 4.10913, 4.11771, 4.11788, 4.12286, 4.12595, 4.12561, 4.12132, 
  4.12492, 4.12956, 4.13607, 4.13332, 4.13778, 4.13813, 4.13486, 4.13538, 4.1462, 4.15152, 
  4.16337, 4.16509, 4.16766, 4.16863, 4.16389, 4.16406, 4.14946, 4.14929, 4.15479, 4.15496, 
  4.1608, 4.16251, 4.16955, 4.16834, 4.1759, 4.17573, 4.20835, 4.21522, 4.2214, 4.22072, 
  4.20664, 4.20217, 4.19376, 4.18157, 4.17299, 4.15153, 4.15222, 4.15994, 4.16029, 4.15651, 
  4.15651, 4.14742, 4.1548, 4.15532, 4.15034, 4.14708, 4.13746, 4.13506, 4.13574, 4.13128, 
  4.12645, 4.1431, 4.15478, 4.15667, 4.17642, 4.19651, 4.2008, 4.19702, 4.20252, 4.202, 
  4.20337, 4.19633, 4.20695, 4.20062, 4.20594, 4.21264, 4.21796, 4.22517, 4.22517, 4.23204, 
  4.21933, 4.19858, 4.19497, 4.17591, 4.16252, 4.13489, 4.13865, 4.14638, 4.14518, 4.15308, 
  4.16115, 4.16287, 4.15909, 4.1548, 4.14793, 4.14569, 4.13986, 4.14569, 4.1493, 4.1517, 
  4.16355, 4.16699, 4.1747, 4.17608, 4.1984, 4.19445, 4.1972, 4.2063, 4.21643, 4.22257, 
  4.23357, 4.24366, 4.26837, 4.29091, 4.30704, 4.32454, 4.33518, 4.3496, 4.37019, 4.38048, 
  4.38975, 4.40828, 4.43441, 4.44059, 4.44505, 4.48109, 4.51095, 4.51781, 4.52193, 4.53978, 
  4.56277, 4.58101, 4.62906, 4.66956, 4.69392, 4.68672, 4.68466, 4.69633, 4.69359, 4.69908, 
  4.69805, 4.68569, 4.68569, 4.67849, 4.68672, 4.7032, 4.75468, 4.74781, 4.75605, 4.76225, 
  4.80412, 4.82403, 4.82334, 4.83228, 4.87724, 4.8817, 4.89405, 4.89783, 4.88547, 4.8793, 
  4.8793, 4.87106, 4.86664, 4.87385, 4.86733, 4.87592, 4.87145, 4.86029, 4.86201, 4.8596, 
  4.84947, 4.85067, 4.84329, 4.83986, 4.83711, 4.84174, 4.84759, 4.84089, 4.84244, 4.83849, 
  4.81977, 4.82183, 4.81874, 4.82904, 4.82577, 4.84054, 4.84192, 4.83814, 4.83007, 4.82783, 
  4.81978, 4.82304, 4.81857, 4.81703, 4.82098, 4.81514, 4.81943, 4.8057, 4.79367, 4.79574, 
  4.7899, 4.79023, 4.8256, 4.83006, 4.83968, 4.84844, 4.85736, 4.88209, 4.88003, 4.88947, 
  4.88809, 4.87865, 4.8759, 4.88535, 4.88827, 4.87848, 4.86956, 4.87196, 4.86647, 4.86115, 
  4.86338, 4.85514, 4.84878, 4.85222, 4.85066, 4.85719, 4.85667, 4.86749, 4.86939, 4.86613, 
  4.86939, 4.86853, 4.87589, 4.87589, 4.86611, 4.86353, 4.85924, 4.85941, 4.85065, 4.85666, 
  4.86078, 4.87091, 4.86971, 4.87933, 4.88688, 4.89648, 4.90369, 4.92052, 4.92893, 4.93838, 
  4.94421, 4.94662, 4.95538, 4.96173, 4.96637, 4.96997, 4.98508, 4.99384, 4.99846, 4.99811, 
  5.00687, 5.00687, 5.03692, 5.06146, 5.06318, 5.0831, 5.08979, 5.11073, 5.1253, 5.12273, 
  5.12565, 5.12599, 5.14076, 5.14299, 5.15398, 5.16566, 5.16341, 5.19398, 5.19793, 5.20651, 
  5.21716, 5.23021, 5.23605, 5.2429, 5.24256, 5.24839, 5.25509, 5.26797, 5.27793, 5.29304, 
  5.30917, 5.33372, 5.32067, 5.3047, 5.30505, 5.31035, 5.3131, 5.31756, 5.32907, 5.33594, 
  5.33989, 5.33817, 5.34332, 5.34229, 5.34624, 5.35448, 5.36255, 5.3629, 5.37303, 5.39793, 
  5.40049, 5.40925, 5.41801, 5.42574, 5.43158, 5.42883, 5.43741, 5.44497, 5.45716, 5.44857, 
  5.44771, 5.44102, 5.44222, 5.4647, 5.46711, 5.4623, 5.44736, 5.46553, 5.46484, 5.47257, 
  5.47978, 5.47959, 5.48732, 5.50019, 5.52867, 5.53622, 5.54207, 5.54481, 5.55614, 5.56266, 
  5.56832, 5.5884, 5.59149, 5.60232, 5.60301, 5.6109, 5.6212, 5.62069, 5.61605, 5.62068, 
  5.632, 5.63097, 5.64333, 5.64282, 5.65277, 5.6624, 5.66807, 5.68179, 5.68077, 5.69003, 
  5.70067, 5.72042, 5.72403, 5.73329, 5.73776, 5.74668, 5.75766, 5.7556, 5.75749, 5.75509, 
  5.75886, 5.75886, 5.77499, 5.77688, 5.78357, 5.79095, 5.79115, 5.80127, 5.80831, 5.81208, 
  5.81569, 5.81637,
  5.81861, 5.80791, 5.80842, 5.81271, 5.81683, 5.83691, 5.83933, 5.84567, 5.83418, 5.83589, 
  5.83933, 5.84035, 5.84962, 5.84928, 5.85941, 5.86456, 5.86919, 5.87193, 5.87331, 5.88378, 
  5.8903, 5.90248, 5.91037, 5.92719, 5.93083, 5.9322, 5.93701, 5.94318, 5.94147, 5.94335, 
  5.94456, 5.94335, 5.94679, 5.9552, 5.96515, 5.96583, 5.97201, 5.97339, 5.96789, 5.97116, 
  5.9727, 5.97476, 5.97459, 5.9703, 5.97562, 5.9806, 5.98214, 5.98849, 5.98523, 5.98163, 
  5.97785, 5.98129, 6.00005, 6.00761, 6.01087, 6.01396, 6.01585, 6.02924, 6.02547, 6.02667, 
  6.0313, 6.04212, 6.05275, 6.05807, 6.06545, 6.07198, 6.07352, 6.08022, 6.08074, 6.09327, 
  6.10169, 6.09825, 6.10254, 6.11062, 6.11405, 6.12401, 6.12229, 6.12742, 6.12673, 6.12794, 
  6.13309, 6.14236, 6.14013, 6.15576, 6.15713, 6.16331, 6.15301, 6.15659, 6.16467, 6.176, 
  6.17789, 6.18304, 6.19609, 6.20176, 6.21721, 6.21687, 6.22116, 6.22683, 6.23627, 6.24039, 
  6.24142, 6.2452, 6.24726, 6.25722, 6.25805, 6.26286, 6.26286, 6.27385, 6.28141, 6.27849, 
  6.28347, 6.28931, 6.28931, 6.28501, 6.28604, 6.28931, 6.28759, 6.29068, 6.2924, 6.29549, 
  6.29875, 6.2948, 6.30698, 6.31231, 6.31488, 6.31883, 6.33549, 6.34268, 6.34681, 6.35282, 
  6.36432, 6.36879, 6.36724, 6.36793,
  6.3717, 6.37119, 6.37393, 6.37479, 6.38028, 6.37977, 6.39436, 6.4122, 6.4201, 6.42524, 
  6.42885, 6.43966, 6.44618, 6.4563, 6.46542, 6.48652, 6.50094, 6.52481, 6.5346, 6.55828, 
  6.55296, 6.55193, 6.54799, 6.53735, 6.54037, 6.55279, 6.5516, 6.5607, 6.56344, 6.5782, 
  6.57992, 6.58764, 6.58352, 6.59622, 6.60154, 6.59022, 6.58833, 6.58421, 6.58524, 6.5734, 
  6.56327, 6.56602, 6.57855, 6.57718, 6.59039, 6.59486, 6.58936, 6.60499, 6.61546, 6.62369, 
  6.63121, 6.63845, 6.64446, 6.65133, 6.65312, 6.6598, 6.67079, 6.66616, 6.66805, 6.66066, 
  6.66444, 6.6756, 6.68023, 6.68384, 6.69088, 6.6835, 6.68968, 6.68899, 6.69634, 6.71921, 
  6.73157, 6.71113, 6.72023, 6.72693, 6.73809, 6.75097, 6.76075, 6.78222, 6.78992, 6.79267, 
  6.80366, 6.8095, 6.81877, 6.83319, 6.84743, 6.84383, 6.84468, 6.86014, 6.86117, 6.84984, 
  6.85258, 6.83611, 6.85912, 6.87025, 6.87111, 6.89274, 6.89978, 6.91283, 6.91902, 6.91884, 
  6.92554, 6.92898, 6.93894, 6.93962, 6.94409, 6.9592, 6.97362, 6.99506, 6.99884, 7.00965, 
  7.01086, 7.02082, 7.02305, 7.03438, 7.03352, 7.02768, 7.02802, 7.03386, 7.03146, 7.04794, 
  7.04364, 7.05222, 7.06802, 7.06939, 7.0912, 7.08158, 7.08467, 7.07935, 7.0833, 7.09068, 
  7.09978, 7.10665, 7.10665, 7.11352, 7.11283, 7.1027, 7.10305, 7.12606, 7.13171, 7.13136, 
  7.13497, 7.13531, 7.13943, 7.14424, 7.14991, 7.15918, 7.16502, 7.16828, 7.17481, 7.17687, 
  7.1791, 7.18374, 7.18477, 7.18766, 7.19144, 7.19144, 7.19728, 7.19796, 7.20105, 7.20414, 
  7.24484, 7.26596, 7.27093, 7.27951, 7.28346, 7.28226, 7.29565, 7.31214, 7.313, 7.32995, 
  7.34197, 7.34541, 7.35485, 7.36327, 7.36138, 7.36876, 7.36413, 7.3655, 7.37974, 7.44568, 
  7.44465, 7.4352, 7.43641, 7.44139, 7.44173, 7.43297, 7.43263, 7.43864, 7.4474, 7.4565, 
  7.45753, 7.46611, 7.46732, 7.4843, 7.49443, 7.4922, 7.49545, 7.50627, 7.50575, 7.50163, 
  7.49511, 7.49717, 7.49511, 7.48961, 7.4891, 7.49785, 7.50541, 7.5152, 7.52498, 7.52944, 
  7.52859, 7.53837, 7.53545, 7.56497, 7.60275, 7.61922, 7.6309, 7.63038, 7.63296, 7.63176, 
  7.6757, 7.68103, 7.69803, 7.6982, 7.6927, 7.69578, 7.69819, 7.70145, 7.70609, 7.7078, 
  7.71811, 7.72187, 7.72565, 7.73166, 7.73149, 7.7363, 7.74094, 7.74746, 7.75153, 7.75742, 
  7.77064, 7.7708, 7.7787, 7.78883, 7.79416, 7.81219, 7.8127, 7.8259, 7.8302, 7.83638, 
  7.84359, 7.84376, 7.85046, 7.85251, 7.86831, 7.87226, 7.88118, 7.88135, 7.89062, 7.90109, 
  7.90949, 7.91413, 7.92408, 7.92614, 7.93146, 7.93077, 7.93886, 7.94092, 7.94555, 7.94538, 
  7.95945, 7.96597, 7.96717, 7.97215, 7.97438, 7.98262, 7.99549, 8.01302, 8.01284, 8.02005, 
  8.02211, 8.03241, 8.03618, 8.05077, 8.05782, 8.06451, 8.06451, 8.06828, 8.07034, 8.07189, 
  8.08716, 8.0875, 8.10604, 8.14912, 8.15997, 8.17061, 8.17129, 8.18554, 8.18708, 8.19515, 
  8.19583, 8.19995, 8.21488, 8.22535, 8.23273, 8.20218, 8.19091, 8.18852, 8.16431, 8.15521, 
  8.15144, 8.14148, 8.13718, 8.12654, 2.33053, 2.51549, 2.53468)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_4, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_0 <- st_union(Geo_0)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_4 <- st_set_geometry(Geo_4, st_union(Geo_0[1:10]))
Geo_4 <- st_union(Geo_4, Geo)
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
Geo_4 <- Geo_4 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("LUXEMBOURG", "BELGIUM", "GERMANY", "FRANCE"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3, Geo_4)

CZECHOSLOVAKIA (1918–1992) in M49_CODEs \(=\) CZECHIA \(+\) SLOVAKIA in GeoDATA.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "CZECHIA")
Geo_2 <- GeoDATA %>% filter(NAME == "SLOVAKIA")
Geo_3 <- GeoDATA %>% filter(NAME == "AUSTRIA")
Geo_4 <- GeoDATA %>% filter(NAME == "POLAND")

##### CZECHIA #####
LATITUDE_VALUEs <- c(
  48.77599, 48.77169, 48.77282, 48.76965, 48.7718, 48.76931, 48.76988, 48.7666, 48.75811, 48.75721, 
  48.7494, 48.74759, 48.73955, 48.73695, 48.7357, 48.73151, 48.72642, 48.72404, 48.72143, 48.72245, 
  48.72098, 48.7143, 48.71294, 48.70954, 48.7109, 48.70863, 48.70614, 48.70637, 48.70478, 48.70376, 
  48.69969, 48.69923, 48.69561, 48.69447, 48.69742, 48.69538, 48.69209, 48.68915, 48.68699, 48.68529, 
  48.68371, 48.67645, 48.67781, 48.67487, 48.676, 48.67362, 48.67147, 48.66943, 48.6675, 48.665, 
  48.66058, 48.65877, 48.65242, 48.65514, 48.65242, 48.64527, 48.64346, 48.64051, 48.63937, 48.63688, 
  48.63007, 48.62894, 48.6261, 48.62814, 48.62758, 48.62928, 48.62758, 48.62383, 48.61929, 48.6177, 
  48.61441, 48.61271, 48.60987, 48.60783, 48.60647, 48.60431, 48.60658, 48.60658, 48.60408, 48.60261, 
  48.595, 48.59534, 48.59988, 48.59966, 48.59194, 48.5891, 48.59285, 48.59273, 48.59784, 48.59398, 
  48.59614, 48.59205, 48.59285, 48.5891, 48.59375, 48.58229, 48.57763, 48.57854, 48.58035, 48.58217, 
  48.57445, 48.56684, 48.56707, 48.56434, 48.56275, 48.56411, 48.55355, 48.55173, 48.55446, 48.55491, 
  48.56105, 48.56275, 48.56934, 48.57479, 48.57558, 48.56968, 48.56945, 48.57672, 48.57967, 48.58206, 
  48.58285, 48.59251, 48.59375, 48.59216, 48.59353, 48.59182, 48.59285, 48.59158, 48.58852, 48.58875, 
  48.59851, 48.60067, 48.61531, 48.61951, 48.62484, 48.62484, 48.63267, 48.63789, 48.64356, 48.64413, 
  48.64821, 48.64379, 48.64311, 48.64061, 48.63369, 48.63324, 48.62212, 48.61712, 48.6203, 48.61406, 
  48.61417, 48.61111, 48.60657, 48.60589, 48.60328, 48.60816, 48.61803, 48.61746, 48.62847, 48.6279, 
  48.60362, 48.60316, 48.61043, 48.60316, 48.58205, 48.58227, 48.58114, 48.58364, 48.5825, 48.58568, 
  48.58523, 48.58239, 48.58716, 48.59147, 48.59385, 48.5942, 48.59658, 48.60248, 48.61781, 48.63823, 
  48.63959, 48.6498, 48.6498, 48.66681, 48.67565, 48.67871, 48.68539, 48.69911, 48.70352, 48.70318, 
  48.70896, 48.71167, 48.71371, 48.71767, 48.7222, 48.72492, 48.72979, 48.73477, 48.74779, 48.76408, 
  48.77178, 48.77359, 48.77902, 48.78139, 48.78411, 48.78038, 48.78354, 48.77936, 48.78038, 48.77755, 
  48.77585, 48.77744, 48.77732, 48.78072, 48.78004, 48.77687, 48.77291, 48.77019, 48.77314, 48.76669, 
  48.76884, 48.76601, 48.76092, 48.76261, 48.75831, 48.76261, 48.76408, 48.7668, 48.76861, 48.77506, 
  48.77664, 48.77981, 48.78999, 48.79304, 48.79485, 48.80028, 48.80186, 48.80446, 48.81226, 48.8247, 
  48.83668, 48.84244, 48.84244, 48.84605, 48.85746, 48.87496, 48.87496, 48.89077, 48.89122, 48.89562,
  48.89836, 48.90513, 48.90986, 48.91618, 48.92194, 48.92487, 48.9278, 48.93141, 48.93242, 48.93716, 
  48.95542, 48.95948, 48.97098, 48.97458, 48.98044, 48.97819, 48.98157, 48.98822, 48.99002, 48.99723, 
  49.00398, 49.0059, 49.00995, 49.01491, 49.01175, 49.01513, 49.01817, 49.02031, 49.01142, 49.01603, 
  49.01446, 49.01209, 49.00646, 49.00398, 48.99982, 48.99734, 48.99373, 48.99993, 48.99723, 48.99914, 
  48.99779, 49.00061, 48.99768, 48.99362, 48.98427, 48.98472, 48.98078, 48.97661, 48.97199, 48.96782, 
  48.95993, 48.95734, 48.95227, 48.94641, 48.94483, 48.94145, 48.94404, 48.94291, 48.94798, 48.94269, 
  48.95779, 48.95971, 48.95768, 48.95971, 48.95396, 48.95813, 48.95757, 48.96692, 48.96703, 48.98055, 
  48.98619, 48.99509, 48.99261, 48.98878, 48.98439, 48.97796, 48.98089, 48.97616, 48.98472, 48.98292, 
  48.98495, 48.98236, 48.98168, 48.9721, 48.96546, 48.96331, 48.95182, 48.94979, 48.94494, 48.95193, 
  48.94415, 48.94347, 48.94077, 48.9375, 48.91934, 48.91765, 48.91404, 48.90434, 48.89553, 48.89734, 
  48.89621, 48.89836, 48.89565, 48.89373, 48.89136, 48.8882, 48.88459, 48.88436, 48.88752, 48.88176, 
  48.86663, 48.86438, 48.8567, 48.85534, 48.85862, 48.8611, 48.85997, 48.85771, 48.85229, 48.86641, 
  48.8751, 48.87205, 48.87352, 48.87115, 48.8777, 48.87612, 48.87318, 48.86833, 48.86562, 48.86144, 
  48.85815, 48.85759, 48.85228, 48.85476, 48.8586, 48.85894, 48.86109, 48.85951, 48.85522, 48.84844, 
  48.84155, 48.8429, 48.84934, 48.849, 48.83827, 48.83771, 48.84347, 48.84222, 48.83748, 48.83409, 
  48.8359, 48.83533, 48.83703, 48.8368, 48.83906, 48.83906, 48.83477, 48.83432, 48.83273, 48.83093, 
  48.82663, 48.82415, 48.81861, 48.81906, 48.82765, 48.8281, 48.82573, 48.82426, 48.82177, 48.82403, 
  48.82087, 48.81352, 48.80448, 48.79848, 48.79814, 48.77835, 48.76116, 48.75403, 48.74474, 48.74814, 
  48.74259, 48.74542, 48.74316, 48.74848, 48.74326, 48.74292, 48.73737, 48.74156, 48.7402, 48.7376, 
  48.73998, 48.73285, 48.7316, 48.74575, 48.74088, 48.74247, 48.73828, 48.73364, 48.72798, 48.73103,
  48.72857, 48.73083, 48.73434, 48.7357, 48.73944, 48.73638, 48.74125, 48.74283, 48.75166, 48.76185, 
  48.76615, 48.77429, 48.77644, 48.79194, 48.79884, 48.80562, 48.80845, 48.81026, 48.80155, 48.80245, 
  48.79804, 48.80279, 48.8063, 48.80788, 48.8115, 48.81399, 48.79296, 48.79329, 48.78707, 48.78312, 
  48.77984, 48.78606, 48.78538, 48.77961, 48.77463, 48.77146, 48.74985, 48.74113, 48.72789, 48.73649, 
  48.73468, 48.7374, 48.73819, 48.73276, 48.73366, 48.72868, 48.7323, 48.71985, 48.71906, 48.716, 
  48.71826, 48.71169, 48.71407, 48.71237, 48.71385, 48.71022, 48.7109, 48.70569, 48.70965, 48.71237, 
  48.70977, 48.71679, 48.71113, 48.71271, 48.72279, 48.71634, 48.71588, 48.71826, 48.71452, 48.71283, 
  48.70952, 48.70614, 48.70308, 48.70048, 48.69595, 48.69345, 48.69107, 48.68767, 48.68495, 48.68144, 
  48.67997, 48.67532, 48.67033, 48.66738, 48.66557, 48.66308, 48.65797, 48.6514, 48.64868, 48.64539,
  48.64437, 48.63869, 48.6354, 48.632, 48.63143, 48.62882, 48.62837, 48.6261, 48.62429, 48.62258,
  48.62179, 48.62168, 48.61884, 48.61952, 48.61839, 48.61691,
  48.62222, 48.62301, 48.62869, 48.63311, 48.63946, 48.64559, 48.65489, 48.6601, 48.66838, 48.67643, 
  48.68368, 48.6915, 48.71008, 48.71812, 48.73001, 48.73964, 48.74779, 48.75243, 48.76499, 48.77167, 
  48.78015, 48.78264, 48.78716, 48.79711, 48.80503, 48.8169, 48.823, 48.83125, 48.84312, 48.84458, 
  48.85306, 48.85825, 48.87485, 48.8779, 48.86988, 48.87169, 48.86774, 48.86785, 48.86153, 48.86006, 
  48.86187, 48.86006, 48.85385, 48.84888, 48.84425, 48.84323, 48.8456, 48.84481, 48.83622, 48.83498, 
  48.83283, 48.82572, 48.82255, 48.82153, 48.81328, 48.81905, 48.81566, 48.81667, 48.81306, 48.82108, 
  48.82176, 48.82978, 48.82605, 48.84063, 48.83735, 48.84108, 48.84696, 48.84425, 48.84492, 48.83961, 
  48.8195, 48.82831, 48.8178, 48.81249, 48.81226, 48.81905, 48.81611, 48.82176, 48.82725, 48.83182, 
  48.82831, 48.82379, 48.82594, 48.82526, 48.82911, 48.83781, 48.84131, 48.84221, 48.84718, 48.85486, 
  48.8543, 48.85645, 48.85396, 48.86085, 48.86232, 48.86029, 48.86853, 48.87485, 48.88129, 48.88885, 
  48.89167, 48.89968, 48.91243, 48.91525, 48.92552, 48.92552, 48.928, 48.92642, 48.92778, 48.92721, 
  48.92247, 48.92642, 48.92755, 48.93488, 48.94593, 48.95517, 48.96442, 48.97039, 48.97276, 48.97501, 
  48.98537, 48.9918, 49.01049, 49.01556, 49.01961, 49.02344, 49.02332, 49.02546, 49.02265, 49.02839, 
  49.02771, 49.02083, 49.02264, 49.02117, 49.02693, 49.02646, 49.03772, 49.04177, 49.04627, 49.05201, 
  49.05932, 49.06281, 49.06967, 49.06719, 49.09283, 49.11373, 49.11924, 49.11767, 49.12677, 49.13036, 
  49.13575, 49.14249, 49.14339, 49.15237, 49.15574, 49.15956, 49.16124, 49.16865, 49.18963, 49.19737, 
  49.205, 49.205, 49.21487, 49.21621, 49.2198, 49.23012, 49.22933, 49.2383, 49.24839, 49.25309, 
  49.25444, 49.26116, 49.26261, 49.26508, 49.2653, 49.26799, 49.26967, 49.27684, 49.28244, 49.28714, 
  49.28994, 49.2896, 49.29386, 49.29162, 49.29397, 49.29274, 49.29565, 49.2942, 49.29587, 49.29408, 
  49.30393, 49.30539, 49.31033, 49.31503, 49.31883, 49.32443, 49.33069, 49.34367, 49.34903, 49.35026, 
  49.35697, 49.36055, 49.36592, 49.36726, 49.3762, 49.39118, 49.39598, 49.39967, 49.39263, 49.39386, 
  49.39955, 49.40514, 49.40883, 49.41843, 49.42636, 49.42748, 49.43015, 49.43306, 49.43607, 49.43574, 
  49.44288, 49.44824, 49.4488, 49.45694, 49.45817, 49.46431, 49.46498, 49.47078, 49.47345, 49.47881, 
  49.48338, 49.49085, 49.49264, 49.49999, 49.50122, 49.503, 49.50356, 49.50891, 49.5059, 49.51058, 
  49.50713, 49.49776, 49.4952, 49.4991, 49.49576, 49.50111, 49.50122, 49.50323, 49.50278, 49.50635, 
  49.50791, 49.50535, 49.50055, 49.49988, 49.50289, 49.49944, 49.49977, 49.4952, 49.4952, 49.49052, 
  49.48829, 49.49063, 49.48818, 49.4923, 49.4952, 49.4991, 49.50902, 49.50914, 49.51627, 49.51515, 
  49.51705, 49.51727,
  49.51841, 49.51863, 49.5183, 49.52164, 49.52365, 49.5261, 49.52699, 49.53401, 49.53535, 49.53434, 
  49.53802, 49.55083, 49.55228, 49.55439, 49.55885, 49.55985, 49.56152, 49.56063, 49.56308, 49.56954, 
  49.57321, 49.57777, 49.58067, 49.58568, 49.58646, 49.58979, 49.59547, 49.59491, 49.60404, 49.61438, 
  49.6185, 49.62361, 49.62962, 49.63295, 49.63462, 49.63996, 49.64818, 49.65118, 49.65663, 49.66641, 
  49.67285, 49.67918, 49.67918, 49.68562, 49.68318, 49.68362, 49.68229, 49.6844, 49.67663, 49.67774, 
  49.67618, 49.68063, 49.68429, 49.68274, 49.68374, 49.68951, 49.69151, 49.69684, 49.69528, 49.70017, 
  49.70217, 49.70439, 49.70705, 49.70406, 49.70572, 49.70295, 49.70983, 49.71116, 49.70783, 49.71072, 
  49.7146, 49.71749, 49.72293, 49.72648, 49.72981, 49.73469, 49.73768, 49.74623, 49.75077, 49.75343, 
  49.75665, 49.76175, 49.76718, 49.77118, 49.7755, 49.78016, 49.78514, 49.78958, 49.79811, 49.80276, 
  49.80465, 49.81262, 49.81827, 49.82038, 49.82447, 49.82669, 49.83488, 49.84551, 49.85259, 49.85603, 
  49.85691, 49.86145, 49.86643, 49.86621, 49.86742, 49.86698, 49.87008, 49.87384, 49.87661, 49.88103, 
  49.88457, 49.88767, 49.89298, 49.90049, 49.9037, 49.9058, 49.90801, 49.91045, 49.91199, 49.91332, 
  49.91487, 49.91896, 49.92216, 49.91795, 49.92071, 49.92325, 49.92679, 49.9258, 49.92237, 49.92016, 
  49.91143, 49.90933, 49.89971, 49.90269, 49.90236, 49.90568, 49.90358, 49.90678, 49.91099, 49.91143, 
  49.91662, 49.9227, 49.92303, 49.92856, 49.92845, 49.93839, 49.93872, 49.93397, 49.93563, 49.93762, 
  49.93629, 49.94049, 49.94071, 49.94403, 49.94613, 49.94922, 49.94458, 49.94049, 49.93839, 49.94093, 
  49.93629, 49.93574, 49.93353, 49.9353, 49.93165, 49.93099, 49.929, 49.93, 49.92547, 49.92679, 
  49.92701, 49.93044, 49.93121, 49.92403, 49.91596, 49.91596, 49.91928, 49.92348, 49.92922, 49.929, 
  49.94104, 49.95077, 49.96413, 49.96733, 49.96567, 49.96921, 49.96866, 49.97153, 49.96799, 49.97241, 
  49.98477, 49.9884, 49.99238, 49.99789, 49.99469, 49.99867, 50.00076, 49.99867, 49.99856, 49.99304, 
  49.99017, 49.98531, 49.98531, 49.982, 49.99171, 49.9937, 49.99867, 49.99348, 49.99723, 50.00065, 
  50.01455, 50.02283, 50.03341, 50.03793, 50.04565, 50.04775, 50.05326, 50.05282, 50.05965, 50.05833, 
  50.06251, 50.06307, 50.06615, 50.06086, 50.05414, 50.05348, 50.04113, 50.03826, 50.03044, 50.03099, 
  50.03893, 50.03617, 50.02834, 50.0215, 50.01709, 50.01378, 50.00992, 50.00463, 50.01113, 50.0108, 
  50.01808, 50.01345, 50.00485, 50.00937, 50.00507, 50.00507, 49.97836, 49.97659, 49.98035, 49.97251, 
  49.98125, 49.97982, 49.9871, 49.98721, 49.99185, 49.99351, 50.00377, 50.01138, 50.01314, 50.01899, 
  50.01745, 50.02009, 50.0202, 50.02616, 50.02903, 50.03531, 50.03542, 50.04292, 50.04435, 50.04843, 
  50.05383, 50.05813, 50.06177, 50.06651, 50.07003, 50.07874, 50.08821, 50.09746, 50.11507, 50.11772, 
  50.10352, 50.11166, 50.12993, 50.14105, 50.14974, 50.15953, 50.17085, 50.16997, 50.1736, 50.17866, 
  50.18316, 50.18152, 50.18481, 50.18778, 50.18987, 50.19163, 50.19987, 50.20229, 50.2058, 50.20635, 
  50.20163, 50.20251, 50.20569, 50.20646, 50.21141, 50.21613, 50.22162, 50.23645, 50.25599, 50.27409, 
  50.27837, 50.2832, 50.28638, 50.29142, 50.29362, 50.29734, 50.29811, 50.30074, 50.30414, 50.31993, 
  50.32837, 50.30546, 50.30162, 50.29493, 50.2923, 50.2912, 50.28682, 50.28528, 50.27727, 50.26564, 
  50.27135, 50.27596, 50.27892, 50.27804, 50.27629, 50.27245, 50.27003, 50.27179, 50.2697, 50.27332, 
  50.27519, 50.27409, 50.27475, 50.2674, 50.27003, 50.26948, 50.26751, 50.25697, 50.25149, 50.25434, 
  50.25972, 50.26312, 50.26894, 50.27201, 50.2776, 50.27409, 50.28013, 50.28309, 50.28199, 50.2742, 
  50.26455, 50.26509, 50.26312, 50.27651, 50.28067, 50.28353, 50.28758, 50.29219, 50.29581, 50.29888, 
  50.30305, 50.30677, 50.30754, 50.31182, 50.31291, 50.32267, 50.32322, 50.32848, 50.32738, 50.32037, 
  50.32026, 50.31741, 50.32134, 50.32836, 50.33164, 50.33449, 50.34172, 50.34326, 50.35947, 50.36396, 
  50.37644, 50.38629, 50.38979, 50.38553, 50.38366, 50.37961, 50.3818, 50.38049, 50.3945, 50.39395, 
  50.40522, 50.40588, 50.40183, 50.40533, 50.40698, 50.41233, 50.41529, 50.41485, 50.42152, 50.42174, 
  50.41857, 50.42491, 50.42743, 50.41693, 50.4224, 50.43552, 50.44055, 50.44492, 50.44919, 50.44776, 
  50.44339, 50.44459, 50.44252, 50.43596, 50.43344, 50.4283, 50.42251, 50.4166, 50.41179, 50.40763, 
  50.40938, 50.39888, 50.39647, 50.38968, 50.39144, 50.38881, 50.38476, 50.38279, 50.3794, 50.37687, 
  50.37424, 50.36887, 50.36329, 50.35989, 50.34533, 50.34281, 50.33821, 50.33327, 50.33043, 50.31936, 
  50.31815, 50.31486, 50.31168, 50.31596, 50.30763, 50.30236, 50.30302, 50.2959, 50.296, 50.2778, 
  50.27374, 50.26847, 50.25969, 50.25936, 50.25662, 50.25289, 50.24894, 50.24191, 50.24048, 50.22994, 
  50.22566, 50.2194, 50.21599, 50.22775, 50.23466, 50.24279, 50.24498, 50.23862, 50.23423, 50.23049, 
  50.22632, 50.22273, 50.22149, 50.22346, 50.22204, 50.22379, 50.22269, 50.2261, 50.2261, 50.22401, 
  50.22291, 50.2183, 50.21588, 50.20984, 50.20457, 50.19908, 50.19984, 50.1971, 50.19831, 50.20116, 
  50.20457, 50.20787, 50.20224, 50.19729, 50.19488, 50.18861, 50.19257, 50.17828, 50.16464, 50.15299, 
  50.15156, 50.14485, 50.13979, 50.13352, 50.13594, 50.11525, 50.10952, 50.10765, 50.10512, 50.0962, 
  50.10005, 50.10413, 50.11249, 50.11095, 50.12119, 50.12493, 50.13263, 50.13385, 50.14045, 50.14067, 
  50.14309, 50.14562, 50.1487, 50.15211, 50.15574, 50.15794, 50.16366, 50.16783, 50.17047, 50.17454, 
  50.17916, 50.18443, 50.1841, 50.18608, 50.18707, 50.19279, 50.19531, 50.19982, 50.20323, 50.20597, 
  50.21322, 50.21432, 50.21992, 50.22322, 50.22948, 50.23047, 50.2387, 50.23793, 50.24727, 50.25144, 
  50.25253, 50.25605, 50.25802, 50.2611, 50.25978, 50.26362, 50.26384, 50.26987, 50.27163, 50.27755, 
  50.2871, 50.29105, 50.29324, 50.29576, 50.30541, 50.31363, 50.31644, 50.32131, 50.32492, 50.32459, 
  50.31999, 50.31911, 50.32876, 50.34289, 50.34727, 50.35407, 50.35724, 50.36326, 50.36688, 50.37148, 
  50.37421, 50.38078, 50.37859, 50.38067, 50.37783, 50.38221, 50.37991, 50.38319, 50.38133, 50.37378, 
  50.37148, 50.36764, 50.36754, 50.37662, 50.37892, 50.38297, 50.38669, 50.39457, 50.39348, 50.3984, 
  50.40015, 50.40245, 50.40333, 50.40617, 50.40716, 50.40989, 50.41142, 50.41427, 50.40737, 50.41131, 
  50.41416, 50.41481, 50.4181, 50.42116, 50.424, 50.42717, 50.42783, 50.43023, 50.4287, 50.43319, 
  50.43461, 50.44172, 50.44871, 50.44882, 50.45166, 50.45177, 50.4462, 50.44465, 50.44225, 50.44334, 
  50.44531, 50.44586, 50.4487, 50.45045, 50.45416, 50.45788, 50.46072, 50.45985, 50.46345, 50.46629, 
  50.46684, 50.46367, 50.46793, 50.47329, 50.48039, 50.47995, 50.47613, 50.47656, 50.47678, 50.47973, 
  50.48345, 50.48487, 50.48203, 50.47995, 50.48159, 50.47973, 50.48891, 50.49131, 50.4924, 50.49622, 
  50.50037, 50.50289, 50.50638, 50.50813, 50.50474, 50.50332, 50.49983, 50.4995, 50.49579, 50.49688, 
  50.49928, 50.49797, 50.5007, 50.50114, 50.51751, 50.52035, 50.52624, 50.52755, 50.52919, 50.52996, 
  50.53334, 50.53487, 50.54239, 50.54817, 50.5594, 50.56572, 50.56932, 50.56877, 50.57946, 50.58589, 
  50.58796, 50.59025, 50.59526, 50.59788, 50.60016, 50.60692, 50.6103, 50.61759, 50.61857, 50.63001, 
  50.63426, 50.63709, 50.63654, 50.64471, 50.6471, 50.6483, 50.64667, 50.6483, 50.65276, 50.65633, 
  50.66158, 50.66277, 50.66713, 50.66473, 50.66441, 50.66179, 50.65907, 50.66082, 50.65984, 50.66092, 
  50.66038, 50.66854, 50.66723, 50.66843, 50.66702, 50.67039, 50.66963, 50.6717, 50.66756, 50.65352, 
  50.65178, 50.636, 50.63208, 50.63175, 50.62718, 50.62849, 50.63393, 50.63654, 50.64005, 50.64234, 
  50.6456, 50.64702, 50.65344, 50.65094, 50.65669, 50.65789, 50.6605, 50.6593, 50.66137, 50.663, 
  50.65267, 50.65234, 50.64668, 50.63949, 50.63568, 50.6322, 50.61619, 50.61325, 50.60955, 50.61456, 
  50.59865, 50.60105, 50.6066, 50.60628, 50.61292, 50.62294, 50.62501, 50.62872, 50.63068, 50.63383, 
  50.63449, 50.64145, 50.64526, 50.64853, 50.65332, 50.65811, 50.6679, 50.6729, 50.67367, 50.67954, 
  50.684, 50.69227, 50.69085, 50.68694, 50.68683, 50.68041, 50.68443, 50.67519, 50.67084, 50.67486, 
  50.6815, 50.69933, 50.70075, 50.70847, 50.70955, 50.72466, 50.73227, 50.73585, 50.74291, 50.74878, 
  50.75595, 50.75236, 50.75312, 50.74671, 50.74234, 50.74389, 50.73574, 50.73998, 50.73737, 50.74204, 
  50.75399, 50.75649, 50.75996, 50.75975, 50.76105, 50.76083, 50.76561, 50.77278, 50.77723, 50.77712, 
  50.77918, 50.77636, 50.78124, 50.77712, 50.79068, 50.78797, 50.79036, 50.7909, 50.79654, 50.80392, 
  50.80718, 50.80913, 50.80566, 50.7922, 50.77592, 50.77571, 50.77809, 50.77766, 50.78168, 50.78493, 
  50.78754, 50.78938, 50.79253, 50.79546, 50.8024, 50.80566, 50.80718, 50.80924, 50.81227, 50.8152, 
  50.81997, 50.82149, 50.82388, 50.83516, 50.84361, 50.84881, 50.85629, 50.85651, 50.85878, 50.86138, 
  50.87623, 50.88197, 50.89106, 50.90052, 50.91109, 50.91596, 50.92018, 50.92711, 50.93176, 50.93598, 
  50.9389, 50.94301, 50.94723, 50.95166, 50.95253, 50.95891, 50.96204, 50.97165, 50.97954, 50.97943, 
  50.9816, 50.98008, 50.98613, 50.9884, 50.99165, 50.995, 50.99683, 50.99921, 50.99586, 50.99575, 
  50.99186, 50.99273, 50.98873, 50.98365, 50.98019, 50.98278, 50.98289, 50.98484, 50.98678, 50.98862, 
  50.99478, 51.00245, 51.01131, 51.02005, 51.01185, 51.00645, 50.99975, 50.99424, 50.9937, 50.99121, 
  50.99186, 50.99024, 50.99316, 50.99111, 51.00353, 51.00828, 51.01131, 51.01325, 51.01239, 51.01455, 
  51.01368, 51.01725, 51.018, 51.02157, 51.02297, 51.01228, 51.01217, 51.02157, 51.02275, 51.01584, 
  51.01584, 51.00893, 51.01174, 50.98992, 50.98732, 50.97781, 50.98095, 50.98668, 50.98158, 50.97142, 
  50.96829, 50.96591, 50.9671, 50.96224, 50.95802, 50.95002, 50.94353, 50.93952, 50.9379, 50.92795, 
  50.92752, 50.92178, 50.91182, 50.9063, 50.90825, 50.90674, 50.90013, 50.89472, 50.89126, 50.88996, 
  50.87848, 50.87501, 50.86829, 50.8697, 50.86797, 50.86808, 50.86201, 50.8619, 50.87003, 50.8762, 
  50.86721, 50.87739, 50.87739, 50.87014, 50.86851, 50.87024, 50.86862, 50.87317, 50.86472)
LONGITUDE_VALUEs <- c(
  13.8345, 13.83948, 13.84342, 13.84926, 13.85698, 13.86213, 13.86848, 13.87674, 13.88892, 13.89681, 
  13.90505, 13.91037, 13.92068, 13.92085, 13.926, 13.92686, 13.93733, 13.93784, 13.94247, 13.94419, 
  13.95483, 13.95569, 13.97167, 13.97973, 13.98522, 14.0041, 14.00547, 14.00736, 14.00976, 14.00805, 
  14.01028, 14.0132, 14.01011, 14.01268, 14.01543, 14.01903, 14.01577, 14.02504, 14.02556, 14.02899, 
  14.02436, 14.03963, 14.04342, 14.05046, 14.05458, 14.06041, 14.05869, 14.06007, 14.05869, 14.06024, 
  14.05715, 14.05824, 14.0524, 14.04021, 14.02424, 14.02356, 14.01652, 14.01428, 14.01068, 14.0184, 
  14.02407, 14.02974, 14.02922, 14.03455, 14.03867, 14.04176, 14.04846, 14.04519, 14.04605, 14.04124, 
  14.04382, 14.04244, 14.05137, 14.05086, 14.05343, 14.05412, 14.06271, 14.06975, 14.06923, 14.06614, 
  14.06597, 14.06957, 14.07129, 14.09825, 14.0955, 14.11577, 14.12071, 14.12363, 14.1305, 14.1427, 
  14.15403, 14.15849, 14.16227, 14.16296, 14.18391, 14.23694, 14.23883, 14.24913, 14.24913, 14.27077, 
  14.27813, 14.2996, 14.30492, 14.30956, 14.32106, 14.32433, 14.32757, 14.33358, 14.33684, 14.34285, 
  14.34611, 14.35315, 14.3523, 14.35848, 14.36586, 14.3693, 14.38183, 14.39385, 14.39076, 14.39162, 
  14.3875, 14.38578, 14.39248, 14.39952, 14.40397, 14.40757, 14.41118, 14.41925, 14.42423, 14.43161, 
  14.43538, 14.44191, 14.44911, 14.44705, 14.45152, 14.45667, 14.45203, 14.44482, 14.44362, 14.46199, 
  14.47092, 14.47298, 14.47796, 14.47505, 14.48756, 14.4946, 14.49477, 14.50576, 14.51607, 14.52895, 
  14.5473, 14.55176, 14.55211, 14.55743, 14.56155, 14.5643, 14.58662, 14.59023, 14.60482, 14.61272, 
  14.62715, 14.63125, 14.64584, 14.65494, 14.66335, 14.66625, 14.67003, 14.67673, 14.68308, 14.68772, 
  14.6951, 14.70077, 14.70815, 14.70541, 14.70833, 14.7121, 14.7109, 14.72103, 14.71399, 14.72188, 
  14.71879, 14.71811, 14.7121, 14.71811, 14.72326, 14.72721, 14.72549, 14.7363, 14.74764, 14.75588, 
  14.75691, 14.77406, 14.77578, 14.78574, 14.78728, 14.79226, 14.79295, 14.80823, 14.80034, 14.81253, 
  14.80618, 14.80978, 14.80806, 14.81974, 14.82369, 14.8285, 14.84327, 14.84584, 14.84773, 14.85134, 
  14.85855, 14.85803, 14.86298, 14.86899, 14.88118, 14.88651, 14.88393, 14.88788, 14.89578, 14.90727, 
  14.91912, 14.93217, 14.93955, 14.94865, 14.95638, 14.961, 14.96718, 14.96975, 14.97559, 14.98143, 
  14.97731, 14.98006, 14.95344, 14.95586, 14.95226, 14.95672, 14.95552, 14.95998, 14.95689, 14.96925, 
  14.96771, 14.9732, 14.98454, 14.98436, 14.97149, 14.9732, 14.98419, 14.98316, 14.98917, 14.98745,
  14.99193, 14.9926, 14.99037, 14.98968, 14.98333, 14.98436, 14.97904, 14.97904, 14.98402, 14.98608, 
  14.97562, 14.97802, 14.97562, 14.97818, 14.97836, 14.98059, 14.98024, 14.98556, 14.99552, 14.99586, 
  15.00152, 14.9938, 14.99071, 14.99586, 15.0029, 15.01268, 15.01336, 15.02177, 15.04082, 15.0563, 
  15.06574, 15.06385, 15.06728, 15.06402, 15.06419, 15.09184, 15.10282, 15.10951, 15.12187, 15.12427, 
  15.12942, 15.13353, 15.13765, 15.15687, 15.15807, 15.1531, 15.15035, 15.16339, 15.1598, 15.16856, 
  15.16924, 15.16193, 15.16193, 15.15471, 15.16038, 15.16038, 15.16639, 15.17051, 15.17652, 15.18906, 
  15.21052, 15.2275, 15.23883, 15.24055, 15.26184, 15.26133, 15.26905, 15.26613, 15.27283, 15.28176, 
  15.27505, 15.2778, 15.29017, 15.29309, 15.2912, 15.30511, 15.31249, 15.32176, 15.33255, 15.33736, 
  15.35247, 15.3571, 15.36741, 15.38939, 15.39162, 15.40345, 15.4232, 15.45102, 15.45549, 15.46785, 
  15.47795, 15.48447, 15.48894, 15.50216, 15.50576, 15.50988, 15.51194, 15.55934, 15.57734, 15.60173, 
  15.60997, 15.61186, 15.61959, 15.6201, 15.62594, 15.62491, 15.63058, 15.63744, 15.63744, 15.65648, 
  15.67314, 15.68087, 15.68705, 15.69426, 15.69718, 15.71092, 15.71468, 15.71365, 15.75452, 15.77355, 
  15.77836, 15.80703, 15.81751, 15.8285, 15.8388, 15.84498, 15.84275, 15.85304, 15.85166, 15.84016, 
  15.84548, 15.85853, 15.86351, 15.87519, 15.8745, 15.87021, 15.87244, 15.87793, 15.88068, 15.87931, 
  15.88395, 15.8903, 15.89287, 15.89785, 15.90593, 15.89631, 15.89305, 15.89133, 15.89081, 15.89338, 
  15.90093, 15.90711, 15.90986, 15.91484, 15.91673, 15.91999, 15.92068, 15.93098, 15.93081, 15.92686, 
  15.92669, 15.92343, 15.93562, 15.94077, 15.94026, 15.94747, 15.94816, 15.94489, 15.9461, 15.95623, 
  15.9605, 15.95089, 15.94986, 15.95946, 15.96736, 15.99706, 16.05354, 16.06589, 16.10367, 16.11706, 
  16.1387, 16.13936, 16.15018, 16.15464, 16.18998, 16.20612, 16.26382, 16.26846, 16.28821, 16.29628, 
  16.30263, 16.31205, 16.33592, 16.34228, 16.34605, 16.35035, 16.35773, 16.35121, 16.36254, 16.37728,
  16.3774, 16.38478, 16.38324, 16.38942, 16.38856, 16.39577, 16.40177, 16.41001, 16.41207, 16.42306, 
  16.4373, 16.43936, 16.43421, 16.44778, 16.44658, 16.46288, 16.45876, 16.46511, 16.47918, 16.51576, 
  16.51867, 16.52914, 16.52845, 16.5336, 16.5336, 16.54115, 16.56775, 16.57688, 16.59387, 16.59284, 
  16.62956, 16.63505, 16.65238, 16.66422, 16.66422, 16.67558, 16.68124, 16.67163, 16.68418, 16.70134, 
  16.70563, 16.70563, 16.72725, 16.72828, 16.73445, 16.73514, 16.74732, 16.75352, 16.75798, 16.75798, 
  16.76364, 16.77469, 16.77761, 16.77967, 16.7898, 16.7965, 16.7989, 16.8001, 16.80594, 16.80542, 
  16.825, 16.83496, 16.84166, 16.86961, 16.87854, 16.88524, 16.89829, 16.90121, 16.90653, 16.90206, 
  16.90439, 16.91288, 16.91339, 16.91699, 16.91579, 16.91837, 16.91596, 16.91631, 16.91287, 16.91339,
  16.91064, 16.91013, 16.92386, 16.92214, 16.923, 16.92162, 16.923, 16.9187, 16.92094, 16.92008, 
  16.923, 16.92918, 16.92523, 16.92626, 16.92248, 16.92403, 16.91991, 16.91853, 16.92042, 16.91853, 
  16.91956, 16.92197, 16.92884, 16.93485, 16.93931, 16.94017,
  16.94771, 16.95715, 16.95698, 16.96384, 16.96213, 16.97003, 16.96626, 16.96849, 16.96609, 16.97827, 
  16.97965, 16.99835, 16.99749, 17.01312, 17.01415, 17.02685, 17.02839, 17.04024, 17.04316, 17.06118, 
  17.06924, 17.08385, 17.09105, 17.09002, 17.10495, 17.10753, 17.10478, 17.11027, 17.14288, 17.15489, 
  17.16075, 17.17448, 17.19164, 17.20194, 17.21978, 17.22682, 17.23334, 17.24641, 17.25413, 17.26477, 
  17.27094, 17.27867, 17.28124, 17.3003, 17.30288, 17.31266, 17.31609, 17.32227, 17.32416, 17.3283, 
  17.32864, 17.34792, 17.34895, 17.35479, 17.362, 17.37831, 17.3869, 17.3893, 17.39634, 17.40424, 
  17.40854, 17.41953, 17.42706, 17.43616, 17.44423, 17.44406, 17.45333, 17.45625, 17.46175, 17.48166, 
  17.50963, 17.51822, 17.51547, 17.52062, 17.52869, 17.53848, 17.54724, 17.55583, 17.54844, 17.5548, 
  17.55734, 17.57108, 17.58448, 17.5886, 17.59615, 17.5977, 17.60216, 17.62122, 17.62037, 17.63236, 
  17.64712, 17.65726, 17.66807, 17.68267, 17.69263, 17.70379, 17.71579, 17.71905, 17.73794, 17.74155, 
  17.74807, 17.75048, 17.77003, 17.78222, 17.78291, 17.81571, 17.8176, 17.84453, 17.84711, 17.85415, 
  17.86823, 17.87664, 17.8866, 17.88626, 17.88986, 17.8993, 17.9029, 17.89964, 17.90153, 17.90033, 
  17.90411, 17.91302, 17.91337, 17.92092, 17.92281, 17.93466, 17.94668, 17.95269, 17.97845, 17.98738, 
  17.99648, 18.00776, 18.01257, 18.02511, 18.02976, 18.03764, 18.07079, 18.07182, 18.08281, 18.08178, 
  18.09534, 18.09018, 18.0931, 18.09619, 18.11594, 18.11044, 18.11542, 18.12264, 18.11628, 18.10838, 
  18.10718, 18.11387, 18.11834, 18.11696, 18.12916, 18.13156, 18.13757, 18.1295, 18.13139, 18.14305, 
  18.14666, 18.14975, 18.14735, 18.15508, 18.15267, 18.15628, 18.14426, 18.14839, 18.1465, 18.15372, 
  18.16144, 18.1623, 18.17121, 18.1731, 18.17722, 18.17876, 18.18477, 18.18391, 18.1858, 18.18374, 
  18.19216, 18.19851, 18.20366, 18.20847, 18.21414, 18.21826, 18.22235, 18.23093, 18.23883, 18.24708, 
  18.28039, 18.30323, 18.30108, 18.32222, 18.32651, 18.36495, 18.37919, 18.38796, 18.39551, 18.40358, 
  18.3974, 18.40907, 18.41199, 18.41628, 18.41078, 18.40855, 18.40254, 18.41061, 18.43481, 18.44956, 
  18.45008, 18.46126, 18.47671, 18.47739, 18.48529, 18.49421, 18.49456, 18.48924, 18.49439, 18.50091, 
  18.50485, 18.51773, 18.52305, 18.5246, 18.53283, 18.53592, 18.54588, 18.54794, 18.54279, 18.54244, 
  18.53403, 18.53438, 18.54176, 18.54399, 18.55189, 18.55258, 18.55721, 18.57146, 18.57918, 18.59823, 
  18.60217, 18.60132, 18.61796, 18.63264, 18.63933, 18.64225, 18.65238, 18.65513, 18.66818, 18.67144, 
  18.679, 18.68484, 18.68724, 18.69753, 18.71041, 18.71556, 18.72071, 18.72532, 18.73099, 18.73425, 
  18.74438, 18.75022, 18.7552, 18.75743, 18.76654, 18.76911, 18.78782, 18.80018, 18.80945, 18.84105, 
  18.84277, 18.85098,
  18.85129, 18.84717, 18.84339, 18.84082, 18.8367, 18.83859, 18.84408, 18.84339, 18.847, 18.84871, 
  18.85746, 18.85918, 18.85215, 18.84872, 18.84906, 18.84563, 18.84528, 18.83876, 18.8367, 18.83756, 
  18.83241, 18.8355, 18.83156, 18.83173, 18.83602, 18.83499, 18.83945, 18.82881, 18.82263, 18.82486, 
  18.81783, 18.82074, 18.8168, 18.8168, 18.81216, 18.81319, 18.80942, 18.80581, 18.80942, 18.8065, 
  18.81062, 18.80495, 18.7938, 18.78162, 18.77372, 18.7696, 18.76703, 18.76343, 18.74987, 18.74575, 
  18.74009, 18.73928, 18.72812, 18.72349, 18.71713, 18.71782, 18.71473, 18.71387, 18.70837, 18.71146, 
  18.70803, 18.70923, 18.6924, 18.67987, 18.67695, 18.66905, 18.66683, 18.65825, 18.65275, 18.65172, 
  18.63592, 18.63592, 18.62528, 18.62905, 18.62562, 18.62855, 18.62683, 18.63026, 18.62631, 18.61464, 
  18.61206, 18.61481, 18.61018, 18.61087, 18.60349, 18.60366, 18.59645, 18.60005, 18.59268, 18.59336, 
  18.58443, 18.58152, 18.58272, 18.5774, 18.57551, 18.56916, 18.56898, 18.59027, 18.5834, 18.59371, 
  18.60367, 18.6059, 18.60024, 18.59595, 18.59097, 18.58032, 18.57895, 18.56933, 18.57105, 18.56452, 
  18.56744, 18.57431, 18.5707, 18.57809, 18.57809, 18.57981, 18.5738, 18.57586, 18.57328, 18.57568, 
  18.57431, 18.575, 18.57277, 18.55972, 18.55147, 18.55044, 18.54289, 18.53945, 18.54289, 18.54066, 
  18.5398, 18.54752, 18.53293, 18.5137, 18.50545, 18.49481, 18.4912, 18.48433, 18.48347, 18.47904, 
  18.46581, 18.46375, 18.44504, 18.43782, 18.4325, 18.43044, 18.42119, 18.392, 18.37688, 18.37431, 
  18.36692, 18.36452, 18.35868, 18.35765, 18.33705, 18.33275, 18.33447, 18.3343, 18.34082, 18.34563, 
  18.34889, 18.35198, 18.35113, 18.3422, 18.34031, 18.34992, 18.34958, 18.34512, 18.34068, 18.3381, 
  18.33381, 18.33398, 18.32952, 18.33106, 18.3223, 18.31646, 18.31458, 18.29964, 18.29946, 18.28916, 
  18.27903, 18.28162, 18.27767, 18.26908, 18.26324, 18.25243, 18.2471, 18.2356, 18.22186, 18.21433, 
  18.2145, 18.21211, 18.21125, 18.20627, 18.1927, 18.1903, 18.17484, 18.17347, 18.16798, 18.16849, 
  18.17227, 18.16694, 18.16317, 18.15441, 18.14737, 18.13638, 18.13312, 18.11646, 18.11443, 18.10413, 
  18.09262, 18.10293, 18.08455, 18.08919, 18.08816, 18.06549, 18.06774, 18.06413, 18.06156, 18.0492, 
  18.0461, 18.03992, 18.03391, 18.02001, 18.01143, 18.00524, 18.00696, 18.00336, 18.00936, 18.01795, 
  18.02568, 18.04508, 18.048, 18.04268, 18.04731, 18.04062, 18.04593, 18.04507, 18.03356, 18.00626, 
  18.00491, 17.98791, 17.98379, 17.96971, 17.96095, 17.9534, 17.92131, 17.90482, 17.88954, 17.86773, 
  17.86032, 17.85585, 17.84899, 17.8411, 17.83799, 17.82649, 17.83662, 17.82787, 17.79594, 17.79353, 
  17.78856, 17.78598, 17.77689, 17.7702, 17.77758, 17.77465, 17.77019, 17.77208, 17.77053, 17.77225, 
  17.76075, 17.76213, 17.75389, 17.75903, 17.75182, 17.74959, 17.72866, 17.73036, 17.70444, 17.6835, 
  17.67715, 17.64832, 17.64196, 17.60919, 17.60591, 17.59287, 17.60334, 17.62651, 17.62977, 17.66872, 
  17.67902, 17.68382, 17.70476, 17.70596, 17.70375, 17.71079, 17.71062, 17.71697, 17.718, 17.72349, 
  17.73739, 17.74554, 17.74794, 17.75962, 17.75756, 17.76031, 17.7567, 17.76545, 17.72441, 17.72647, 
  17.73592, 17.73678, 17.7414, 17.74346, 17.74861, 17.74896, 17.75256, 17.75033, 17.72801, 17.72115, 
  17.68715, 17.68716, 17.68973, 17.67669, 17.67566, 17.66948, 17.66398, 17.6578, 17.65059, 17.61008, 
  17.59771, 17.59737, 17.59016, 17.58074, 17.57919, 17.56545, 17.56339, 17.55893, 17.54811, 17.52613, 
  17.5239, 17.51874, 17.49161, 17.46315, 17.45766, 17.45542, 17.4568, 17.45577, 17.4386, 17.42967, 
  17.42744, 17.4319, 17.42761, 17.42315, 17.42143, 17.40581, 17.40083, 17.3876, 17.36459, 17.36169, 
  17.36306, 17.35705, 17.34967, 17.3428, 17.34366, 17.33679, 17.34898, 17.34349, 17.34625, 17.34573, 
  17.35191, 17.3514, 17.35363, 17.349, 17.33698, 17.34007, 17.34951, 17.34882, 17.32822, 17.3119, 
  17.30059, 17.29045, 17.27397, 17.26436, 17.24701, 17.24684, 17.23449, 17.22763, 17.21011, 17.20049, 
  17.19912, 17.20428, 17.18401, 17.17903, 17.1622, 17.15688, 17.15293, 17.14297, 17.12445, 17.11055, 
  17.11055, 17.08393, 17.08187, 17.07452, 17.05247, 17.03983, 17.0376, 17.02987, 17.02334, 17.01853, 
  17.01304, 17.00583, 16.99879, 16.97492, 16.97082, 16.94112, 16.9212, 16.91708, 16.90798, 16.89768, 
  16.89424, 16.88634, 16.88085, 16.88068, 16.87518, 16.87673, 16.86885, 16.86885, 16.86043, 16.86026, 
  16.86387, 16.88155, 16.89306, 16.89613, 16.90815, 16.91107, 16.91021, 16.91519, 16.91434, 16.91674, 
  16.91674, 16.91932, 16.91468, 16.91948, 16.92962, 16.93716, 16.93596, 16.93853, 16.9339, 16.94025, 
  16.9466, 16.94626, 16.95811, 16.96772, 16.97322, 16.99381, 17.00257, 17.00377, 17.00909, 17.01956, 
  17.01716, 17.01802, 17.00926, 17.00548, 17.0012, 17.0024, 17.01185, 17.01047, 17.0151, 17.02815, 
  17.02025, 17.0151, 16.99673, 16.99226, 16.98076, 16.98024, 16.97629, 16.96187, 16.96135, 16.9665, 
  16.95777, 16.95631, 16.94953, 16.94352, 16.93991, 16.93459, 16.92772, 16.92171, 16.91364, 16.9102, 
  16.8987, 16.89767, 16.88704, 16.88327, 16.88481, 16.88241, 16.87846, 16.87279, 16.86335, 16.86197, 
  16.85115, 16.84806, 16.8343, 16.83602, 16.82538, 16.82263, 16.8144, 16.79895, 16.79722, 16.7859, 
  16.78126, 16.78315, 16.76563, 16.75431, 16.74624, 16.72804, 16.72804, 16.72272, 16.72375, 16.70402, 
  16.68308, 16.67776, 16.64085, 16.63295, 16.62489, 16.61322, 16.61305, 16.60292, 16.59741, 16.58694, 
  16.57956, 16.58505, 16.58042, 16.58557, 16.57716, 16.57836, 16.56085, 16.56016, 16.5581, 16.55878, 
  16.56445, 16.55999, 16.55775, 16.55672, 16.55861, 16.55741, 16.55364, 16.55638, 16.55655, 16.5617, 
  16.55724, 16.55329, 16.5581, 16.54976, 16.54856, 16.54478, 16.53602, 16.5252, 16.51267, 16.51404, 
  16.50751, 16.50597, 16.50856, 16.50426, 16.49671, 16.49362, 16.48984, 16.48847, 16.48057, 16.48022, 
  16.46631, 16.46769, 16.4641, 16.46513, 16.44761, 16.44366, 16.43799, 16.43611, 16.4301, 16.41001, 
  16.40486, 16.39953, 16.38324, 16.37466, 16.36264, 16.36109, 16.36659, 16.36504, 16.36779, 16.36315, 
  16.36504, 16.35937, 16.35233, 16.34787, 16.34152, 16.32384, 16.31645, 16.30821, 16.29997, 16.2931, 
  16.2931, 16.2852, 16.27833, 16.27627, 16.26771, 16.26531, 16.26823, 16.26205, 16.24985, 16.2459, 
  16.25243, 16.25157, 16.25363, 16.25226, 16.24694, 16.24127, 16.24162, 16.23732, 16.22015, 16.21019, 
  16.21157, 16.21431, 16.21209, 16.21261, 16.20986, 16.20986, 16.2066, 16.20316, 16.19784, 16.19526, 
  16.1987, 16.19818, 16.20591, 16.20986, 16.21244, 16.22171, 16.22068, 16.2236, 16.22411, 16.23201, 
  16.23029, 16.23407, 16.23373, 16.23064, 16.23081, 16.22033, 16.2248, 16.23578, 16.23561, 16.23149, 
  16.23355, 16.24385, 16.25622, 16.24797, 16.25931, 16.26463, 16.26807, 16.2703, 16.27511, 16.26995, 
  16.26892, 16.27236, 16.27459, 16.28489, 16.28781, 16.29503, 16.30171, 16.30085, 16.31081, 16.3127, 
  16.30892, 16.3115, 16.31012, 16.32043, 16.32489, 16.33399, 16.33365, 16.33811, 16.3443, 16.34821, 
  16.34787, 16.35165, 16.35577, 16.36023, 16.37569, 16.3865, 16.39405, 16.40041, 16.39972, 16.40178, 
  16.39646, 16.39852, 16.3865, 16.41123, 16.40952, 16.40333, 16.40488, 16.42102, 16.4447, 16.44367, 
  16.44024, 16.44024, 16.43337, 16.43302, 16.42701, 16.42324, 16.41208, 16.40521, 16.39422, 16.38015, 
  16.37809, 16.37947, 16.37363, 16.36454, 16.3654, 16.36196, 16.35544, 16.34926, 16.3496, 16.34435, 
  16.3429, 16.3333, 16.32128, 16.31664, 16.31269, 16.31235, 16.30462, 16.30033, 16.29432, 16.28745, 
  16.28178, 16.27955, 16.26773, 16.26309, 16.25845, 16.24592, 16.24197, 16.23441, 16.22909, 16.22429, 
  16.22171, 16.21982, 16.21553, 16.19887, 16.18687, 16.17966, 16.17983, 16.17691, 16.17657, 16.1721, 
  16.17021, 16.16266, 16.14806, 16.13896, 16.13335, 16.12769, 16.12545, 16.11207, 16.11035, 16.10177, 
  16.09508, 16.08856, 16.08444, 16.06677, 16.06606, 16.06177, 16.05714, 16.05885, 16.05593, 16.04255, 
  16.02435, 16.01697, 16.01508, 16.00462, 15.98505, 15.99638, 16.00805, 16.01371, 16.02195, 16.01508, 
  16.00736, 16.0065, 16.00067, 16.00513, 16.0029, 16.00496, 15.99723, 15.99895, 15.9926, 15.989, 
  15.99174, 15.96599, 15.95312, 15.94111, 15.9327, 15.92652, 15.91931, 15.88479, 15.88427, 15.86025, 
  15.86334, 15.85596, 15.85184, 15.85132, 15.84634, 15.83008, 15.83164, 15.82992, 15.83181, 15.81979, 
  15.81567, 15.79884, 15.79008, 15.78905, 15.7788, 15.75934, 15.73602, 15.7252, 15.70957, 15.68794, 
  15.6835, 15.66702, 15.65998, 15.6483, 15.64607, 15.64126, 15.62134, 15.61654, 15.60178, 15.59061, 
  15.58237, 15.56159, 15.54219, 15.52368, 15.51011, 15.4938, 15.48762, 15.48006, 15.47527, 15.45037, 
  15.44986, 15.43853, 15.42221, 15.41466, 15.39303, 15.38445, 15.38015, 15.37431, 15.37002, 15.37294, 
  15.37191, 15.37363, 15.3721, 15.37279, 15.36575, 15.36884, 15.37365, 15.37262, 15.37433, 15.3697, 
  15.37193, 15.37622, 15.37158, 15.36987, 15.35888, 15.35682, 15.33845, 15.32866, 15.32797, 15.3096, 
  15.29227, 15.28952, 15.27664, 15.27668, 15.2703, 15.27047, 15.26652, 15.26996, 15.26773, 15.2691, 
  15.27752, 15.2782, 15.29057, 15.29005, 15.29194, 15.28782, 15.27339, 15.27683, 15.27408, 15.2667, 
  15.25468, 15.24798, 15.23888, 15.24352, 15.23991, 15.23699, 15.24266, 15.23751, 15.22669, 15.2181, 
  15.21226, 15.20436, 15.19612, 15.20041, 15.18929, 15.18328, 15.18001, 15.17795, 15.17126, 15.17555, 
  15.17606, 15.17435, 15.17469, 15.17126, 15.14172, 15.14241, 15.13451, 15.13279, 15.14275, 15.14224, 
  15.13519, 15.12833, 15.12197, 15.10343, 15.09639, 15.10772, 15.10617, 15.09831, 15.09436, 15.09041, 
  15.07667, 15.07615, 15.06894, 15.06774, 15.05795, 15.05744, 15.0358, 15.03133, 15.01657, 15.01433, 
  15.0085, 14.99682, 14.98689, 14.96749, 14.97607, 14.9886, 14.99135, 15.00646, 15.01161, 15.01539, 
  15.02191, 15.02106, 15.01762, 15.01007, 15.01092, 15.01556, 15.01281, 15.01401, 15.00956, 15.00149, 
  14.99496, 14.98947, 14.99874, 14.99908, 15.00595, 15.00663, 14.99582, 14.99633, 14.99393, 14.99839, 
  14.99959, 15.00217, 15.00183, 14.98775, 14.98345, 14.97779, 14.96355, 14.95771, 14.93315, 14.9002, 
  14.89694, 14.87599, 14.86672, 14.86277, 14.85282, 14.84749, 14.84131, 14.83152, 14.8293)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_1, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, Geo_0[145])
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
Geo_1 <- Geo_1 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### SLOVAKIA #####
Geo_0 <- Geometric_Operations(Geo_2, Geo_1)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0))
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  48.01768, 48.0093, 48.01435, 48.02032, 48.01963, 48.02353, 48.02124, 48.02962, 48.031, 48.02009, 
  48.0318, 48.04592, 48.05016, 48.05544, 48.06542, 48.07081, 48.07838, 48.08079, 48.08607, 48.09249, 
  48.09673, 48.09983, 48.1059, 48.10785, 48.11037, 48.11461, 48.1161, 48.12344, 48.12378, 48.1349, 
  48.13673, 48.1436, 48.13994, 48.14097, 48.15242, 48.1712, 48.18986, 48.21434, 48.22292, 48.23493, 
  48.25733, 48.2635, 48.26602, 48.27093, 48.27127, 48.27333, 48.27859, 48.2811, 48.29012, 48.29423, 
  48.29846, 48.30543, 48.31159, 48.31627, 48.31878, 48.32415, 48.32666, 48.3286, 48.33168, 48.33168, 
  48.33613, 48.33682, 48.34127, 48.34526, 48.34914, 48.348, 48.34971, 48.34788, 48.34914, 48.35393, 
  48.35883, 48.36454, 48.37138, 48.37856, 48.38347, 48.38392, 48.3813, 48.38312, 48.39076, 48.39635, 
  48.40911, 48.41321, 48.41834, 48.42096, 48.42392, 48.43657, 48.44511, 48.44818, 48.45126, 48.45137, 
  48.45547, 48.45877, 48.46241, 48.46583, 48.46662, 48.47266, 48.47812, 48.47527, 48.48187, 48.48392, 
  48.48756, 48.49132, 48.49814, 48.4986, 48.49462, 48.4945, 48.49757, 48.50076, 48.50394, 48.50736, 
  48.51213, 48.51316, 48.5127, 48.51441, 48.51782, 48.52032, 48.52032, 48.52168, 48.52066, 48.52305, 
  48.52623, 48.53032, 48.53358, 48.54518, 48.55245, 48.56017, 48.56472, 48.57335, 48.58244, 48.60219, 
  48.60537, 48.61059, 48.61445, 48.61691,
  48.62222, 48.62301, 48.62869, 48.63311, 48.63946, 48.64559, 48.65489, 48.6601, 48.66838, 48.67643, 
  48.68368, 48.6915, 48.71008, 48.71812, 48.73001, 48.73964, 48.74779, 48.75243, 48.76499, 48.77167, 
  48.78015, 48.78264, 48.78716, 48.79711, 48.80503, 48.8169, 48.823, 48.83125, 48.84312, 48.84458, 
  48.85306, 48.85825, 48.87485, 48.8779, 48.86988, 48.87169, 48.86774, 48.86785, 48.86153, 48.86006, 
  48.86187, 48.86006, 48.85385, 48.84888, 48.84425, 48.84323, 48.8456, 48.84481, 48.83622, 48.83498, 
  48.83283, 48.82572, 48.82255, 48.82153, 48.81328, 48.81905, 48.81566, 48.81667, 48.81306, 48.82108, 
  48.82176, 48.82978, 48.82605, 48.84063, 48.83735, 48.84108, 48.84696, 48.84425, 48.84492, 48.83961, 
  48.8195, 48.82831, 48.8178, 48.81249, 48.81226, 48.81905, 48.81611, 48.82176, 48.82725, 48.83182, 
  48.82831, 48.82379, 48.82594, 48.82526, 48.82911, 48.83781, 48.84131, 48.84221, 48.84718, 48.85486, 
  48.8543, 48.85645, 48.85396, 48.86085, 48.86232, 48.86029, 48.86853, 48.87485, 48.88129, 48.88885, 
  48.89167, 48.89968, 48.91243, 48.91525, 48.92552, 48.92552, 48.928, 48.92642, 48.92778, 48.92721, 
  48.92247, 48.92642, 48.92755, 48.93488, 48.94593, 48.95517, 48.96442, 48.97039, 48.97276, 48.97501, 
  48.98537, 48.9918, 49.01049, 49.01556, 49.01961, 49.02344, 49.02332, 49.02546, 49.02265, 49.02839, 
  49.02771, 49.02083, 49.02264, 49.02117, 49.02693, 49.02646, 49.03772, 49.04177, 49.04627, 49.05201, 
  49.05932, 49.06281, 49.06967, 49.06719, 49.09283, 49.11373, 49.11924, 49.11767, 49.12677, 49.13036, 
  49.13575, 49.14249, 49.14339, 49.15237, 49.15574, 49.15956, 49.16124, 49.16865, 49.18963, 49.19737, 
  49.205, 49.205, 49.21487, 49.21621, 49.2198, 49.23012, 49.22933, 49.2383, 49.24839, 49.25309, 
  49.25444, 49.26116, 49.26261, 49.26508, 49.2653, 49.26799, 49.26967, 49.27684, 49.28244, 49.28714, 
  49.28994, 49.2896, 49.29386, 49.29162, 49.29397, 49.29274, 49.29565, 49.2942, 49.29587, 49.29408, 
  49.30393, 49.30539, 49.31033, 49.31503, 49.31883, 49.32443, 49.33069, 49.34367, 49.34903, 49.35026, 
  49.35697, 49.36055, 49.36592, 49.36726, 49.3762, 49.39118, 49.39598, 49.39967, 49.39263, 49.39386, 
  49.39955, 49.40514, 49.40883, 49.41843, 49.42636, 49.42748, 49.43015, 49.43306, 49.43607, 49.43574, 
  49.44288, 49.44824, 49.4488, 49.45694, 49.45817, 49.46431, 49.46498, 49.47078, 49.47345, 49.47881, 
  49.48338, 49.49085, 49.49264, 49.49999, 49.50122, 49.503, 49.50356, 49.50891, 49.5059, 49.51058, 
  49.50713, 49.49776, 49.4952, 49.4991, 49.49576, 49.50111, 49.50122, 49.50323, 49.50278, 49.50635, 
  49.50791, 49.50535, 49.50055, 49.49988, 49.50289, 49.49944, 49.49977, 49.4952, 49.4952, 49.49052, 
  49.48829, 49.49063, 49.48818, 49.4923, 49.4952, 49.4991, 49.50902, 49.50914, 49.51627, 49.51515, 
  49.51705, 49.51727,
  49.51953, 49.51562, 49.51685, 49.51406, 49.51785, 49.51875, 49.52008, 49.51852, 49.51863, 49.51262, 
  49.51273, 49.50972, 49.50949, 49.50582, 49.50637, 49.50269, 49.5008, 49.49679, 49.49378, 49.4824, 
  49.47716, 49.47203, 49.4679, 49.45429, 49.45161, 49.43922, 49.43264, 49.43174, 49.42136, 49.41332, 
  49.40952, 49.40673, 49.40092, 49.39545, 49.39857, 49.39779, 49.39466, 49.39612, 49.39388, 49.40014, 
  49.40584, 49.41047, 49.41511, 49.41332, 49.41767, 49.41589, 49.41019, 49.41041, 49.40338, 49.40427, 
  49.40248, 49.40595, 49.40863, 49.41008, 49.40818, 49.40517, 49.40338, 49.4141, 49.40997, 49.41444, 
  49.42152, 49.42661, 49.43297, 49.44782, 49.45206, 49.44837, 49.4515, 49.45351, 49.46299, 49.46701, 
  49.46879, 49.47571, 49.47928, 49.48374, 49.48753, 49.49199, 49.49534, 49.50281, 49.50392, 49.51128, 
  49.52877, 49.53156, 49.53245, 49.53145, 49.53568, 49.53301, 49.53724, 49.53613, 49.531, 49.53178, 
  49.53345, 49.53624, 49.53602, 49.54671, 49.55328, 49.5574, 49.56742, 49.57232, 49.57154, 49.57466, 
  49.57388, 49.57922, 49.58011, 49.58857, 49.59258, 49.59591, 49.59547, 49.59925, 49.60315, 49.60515, 
  49.61104, 49.61405, 49.61071, 49.61416, 49.60404, 49.59614, 49.59146, 49.58701, 49.58434, 49.58111, 
  49.582, 49.57221, 49.57265, 49.5594, 49.5496, 49.53802, 49.53011, 49.52599, 49.52354, 49.51852, 
  49.50715, 49.48865, 49.48473, 49.48217, 49.48049, 49.47402, 49.47057, 49.46075, 49.4555, 49.45941, 
  49.44702, 49.44948, 49.45774, 49.44959, 49.44825, 49.44066, 49.43541, 49.42179, 49.4085, 49.40917, 
  49.39912, 49.39286, 49.39085, 49.3913, 49.38627, 49.39231, 49.40795, 49.41286, 49.41063, 49.40124, 
  49.397, 49.37901, 49.36984, 49.36369, 49.35989, 49.35363, 49.35229, 49.34446, 49.34189, 49.33384, 
  49.32321, 49.30161, 49.2961, 49.29579, 49.2772, 49.27485, 49.27059, 49.26869, 49.26309, 49.26219, 
  49.25525, 49.24628, 49.24538, 49.23653, 49.23653, 49.23395, 49.23003, 49.22644, 49.22308, 49.21635, 
  49.20704, 49.20502, 49.19886, 49.19876, 49.20616, 49.19965, 49.20201, 49.1964, 49.19629, 49.19281, 
  49.19685, 49.19618, 49.19932, 49.20436, 49.20425, 49.20896, 49.21311, 49.21648, 49.21995, 49.23094, 
  49.23587, 49.22971, 49.23161, 49.22208, 49.2195, 49.21311, 49.20089, 49.19763, 49.19326, 49.17811, 
  49.17968, 49.19629, 49.20055, 49.2065, 49.22051, 49.22253, 49.23811, 49.24461, 49.25223, 49.2594, 
  49.26321, 49.26814, 49.28281, 49.28628, 49.29378, 49.29681, 49.30386, 49.30643, 49.30666, 49.31136, 
  49.31237, 49.3183, 49.31897, 49.31214, 49.31214, 49.30319, 49.31404, 49.32378, 49.32512, 49.32758, 
  49.32825, 49.33396, 49.33843, 49.34235, 49.34179, 49.34526, 49.34816, 49.35185, 49.3457, 49.34884, 
  49.35107, 49.34973, 49.35163, 49.34907, 49.34649, 49.35107, 49.35152, 49.3428, 49.35085, 49.3561, 
  49.36751, 49.37801, 49.39142, 49.39064, 49.38874, 49.39276, 49.40193, 49.40304, 49.40137, 49.40271, 
  49.40126, 49.40092, 49.4017, 49.3979, 49.40114, 49.40718, 49.40829, 49.40371, 49.39187, 49.39042, 
  49.39545, 49.40505, 49.40606, 49.40204, 49.39556, 49.39779, 49.40181, 49.40718, 49.40874, 49.40762, 
  49.41667, 49.41834, 49.41421, 49.41388, 49.41131, 49.41254, 49.41611, 49.41477, 49.40974, 49.40293, 
  49.39701, 49.39321, 49.39243, 49.38684, 49.38606, 49.37746, 49.37958, 49.37611, 49.38338, 49.38561, 
  49.38349, 49.39019, 49.395, 49.40292, 49.40191, 49.41409, 49.41822, 49.41811, 49.41677, 49.4142, 
  49.41007, 49.40817, 49.40437, 49.40113, 49.40113, 49.40404, 49.40348, 49.40683, 49.40795, 49.41107, 
  49.41565, 49.4199, 49.42079, 49.419, 49.41967, 49.41844, 49.41978, 49.41453, 49.41509, 49.41721, 
  49.41565, 49.4113, 49.40795, 49.40337, 49.40214, 49.40258, 49.39867, 49.3942, 49.38895, 49.38415, 
  49.37532, 49.37085, 49.37532, 49.37286, 49.36604, 49.36023, 49.3609, 49.36353, 49.36079, 49.35486, 
  49.35296, 49.35967, 49.36023, 49.35822, 49.35564, 49.34949, 49.34491, 49.34256, 49.34815, 49.3467, 
  49.34368, 49.34301, 49.33932, 49.33451, 49.33518, 49.33372, 49.33999, 49.34189, 49.34726, 49.3487, 
  49.34624, 49.34188, 49.33505, 49.33405, 49.32297, 49.32174, 49.3195, 49.32051, 49.31906, 49.32006, 
  49.32286, 49.32543, 49.32297, 49.31906, 49.31894, 49.3157, 49.31156, 49.30563, 49.30451, 49.29936, 
  49.29589, 49.29925, 49.30204, 49.30305, 49.30607, 49.30641, 49.30943, 49.30988, 49.30697, 49.31279, 
  49.3157, 49.31961, 49.32834, 49.33338, 49.33315, 49.33628, 49.34087, 49.34792, 49.34713, 49.35149, 
  49.35284, 49.35731, 49.3591, 49.36145, 49.36245, 49.36523, 49.36625, 49.36156, 49.36581, 49.35876, 
  49.36133, 49.36413, 49.36536, 49.37698, 49.39665, 49.40168, 49.40324, 49.41878, 49.42224, 49.42057, 
  49.42537, 49.42503, 49.43006, 49.42336, 49.43675, 49.42581, 49.42058, 49.41846, 49.41231, 49.40896, 
  49.40193, 49.40315, 49.40103, 49.40505, 49.4026, 49.40852, 49.41756, 49.42694, 49.42873, 49.43766, 
  49.4342, 49.44726, 49.44715, 49.45719, 49.46143, 49.44815, 49.44971, 49.44793, 49.45027, 49.44949, 
  49.4515, 49.45094, 49.44279, 49.44134, 49.4323, 49.4352, 49.43241, 49.43431, 49.43308, 49.42638, 
  49.4122, 49.41287, 49.41645, 49.4131, 49.41633, 49.42917, 49.42951, 49.41756, 49.41981, 49.4256, 
  49.42772, 49.43197, 49.43598, 49.43275, 49.43855, 49.44168, 49.4352, 49.43554, 49.43375, 49.43398, 
  49.43721, 49.43532, 49.43788, 49.44078, 49.4457, 49.44525, 49.44759, 49.43073, 49.43029, 49.42471, 
  49.417, 49.4141, 49.41041, 49.4189, 49.41522, 49.41343, 49.41432, 49.4112, 49.39746, 49.39924, 
  49.39109, 49.38349, 49.37801, 49.37667, 49.36438, 49.36304, 49.35566, 49.35566, 49.35834, 49.36046, 
  49.3674, 49.38159, 49.3826, 49.3912, 49.39165, 49.3874, 49.38617, 49.3779, 49.36829, 49.37399, 
  49.36885, 49.35767, 49.35431, 49.34962, 49.35364, 49.35398, 49.34548, 49.34895, 49.34716, 49.35012, 
  49.34917, 49.34514, 49.34157, 49.3268, 49.31673, 49.31438, 49.30912, 49.30845, 49.30184, 49.30017, 
  49.2883, 49.28651, 49.27844, 49.26489, 49.26254, 49.25761, 49.24809, 49.24461, 49.24136, 49.23139, 
  49.22543, 49.21601, 49.21489, 49.21153, 49.21265, 49.2057, 49.20659, 49.20087, 49.20188, 49.20009, 
  49.20065, 49.19257, 49.17889, 49.17417, 49.17417, 49.18528, 49.18371, 49.18427, 49.18001, 49.16834, 
  49.16284, 49.15835, 49.15228, 49.15475, 49.15161, 49.15363, 49.14251, 49.14173, 49.13679, 49.13724, 
  49.13544, 49.14712, 49.14442, 49.14712, 49.14566, 49.13544, 49.13229, 49.12746, 49.11822, 49.11735, 
  49.11421, 49.11308, 49.10173, 49.10218, 49.09836, 49.10275, 49.1014, 49.10342, 49.10331, 49.10095, 
  49.1005, 49.09252, 49.09207, 49.08825, 49.08813, 49.08543, 49.09083, 49.09443, 49.08735, 49.07824,
  48.03305, 48.02697)
LONGITUDE_VALUEs <- c(
  17.17206, 17.15662, 17.14855, 17.14409, 17.14221, 17.13517, 17.12625, 17.11629, 17.1096, 17.08967, 
  17.06753, 17.0883, 17.08486, 17.06804, 17.08658, 17.07233, 17.07834, 17.07147, 17.0749, 17.09172, 
  17.08743, 17.09224, 17.07765, 17.07851, 17.07233, 17.07697, 17.06821, 17.06186, 17.06942, 17.06032, 
  17.06169, 17.05757, 17.03784, 17.02394, 17.0157, 16.97604, 16.97689, 16.96161, 16.96195, 16.94582, 
  16.95131, 16.958, 16.95148, 16.94667, 16.92608, 16.9199, 16.91973, 16.91388, 16.9065, 16.90565, 
  16.89947, 16.89835, 16.89406, 16.89766, 16.90522, 16.90951, 16.90848, 16.89835, 16.89423, 16.88856, 
  16.88255, 16.87225, 16.86812, 16.87602, 16.87312, 16.86591, 16.8599, 16.85406, 16.84478, 16.84221, 
  16.84341, 16.83843, 16.84204, 16.83363, 16.83345, 16.84015, 16.84444, 16.85097, 16.85045, 16.85664, 
  16.84959, 16.85286, 16.86402, 16.86299, 16.85835, 16.85097, 16.85063, 16.84891, 16.85217, 16.8611, 
  16.86471, 16.85904, 16.8635, 16.86453, 16.87415, 16.87621, 16.88187, 16.88909, 16.89063, 16.89613, 
  16.89595, 16.88943, 16.89802, 16.90712, 16.90986, 16.91553, 16.91774, 16.91345, 16.91465, 16.91311, 
  16.91311, 16.9162, 16.92101, 16.92255, 16.91895, 16.92049, 16.93045, 16.93595, 16.94144, 16.94385, 
  16.93955, 16.94229, 16.94951, 16.95397, 16.94092, 16.94539, 16.93749, 16.93405, 16.93955, 16.93268, 
  16.94298, 16.94229, 16.9392, 16.94017,
  16.94771, 16.95715, 16.95698, 16.96384, 16.96213, 16.97003, 16.96626, 16.96849, 16.96609, 16.97827, 
  16.97965, 16.99835, 16.99749, 17.01312, 17.01415, 17.02685, 17.02839, 17.04024, 17.04316, 17.06118, 
  17.06924, 17.08385, 17.09105, 17.09002, 17.10495, 17.10753, 17.10478, 17.11027, 17.14288, 17.15489, 
  17.16075, 17.17448, 17.19164, 17.20194, 17.21978, 17.22682, 17.23334, 17.24641, 17.25413, 17.26477, 
  17.27094, 17.27867, 17.28124, 17.3003, 17.30288, 17.31266, 17.31609, 17.32227, 17.32416, 17.3283, 
  17.32864, 17.34792, 17.34895, 17.35479, 17.362, 17.37831, 17.3869, 17.3893, 17.39634, 17.40424, 
  17.40854, 17.41953, 17.42706, 17.43616, 17.44423, 17.44406, 17.45333, 17.45625, 17.46175, 17.48166, 
  17.50963, 17.51822, 17.51547, 17.52062, 17.52869, 17.53848, 17.54724, 17.55583, 17.54844, 17.5548, 
  17.55734, 17.57108, 17.58448, 17.5886, 17.59615, 17.5977, 17.60216, 17.62122, 17.62037, 17.63236, 
  17.64712, 17.65726, 17.66807, 17.68267, 17.69263, 17.70379, 17.71579, 17.71905, 17.73794, 17.74155, 
  17.74807, 17.75048, 17.77003, 17.78222, 17.78291, 17.81571, 17.8176, 17.84453, 17.84711, 17.85415, 
  17.86823, 17.87664, 17.8866, 17.88626, 17.88986, 17.8993, 17.9029, 17.89964, 17.90153, 17.90033, 
  17.90411, 17.91302, 17.91337, 17.92092, 17.92281, 17.93466, 17.94668, 17.95269, 17.97845, 17.98738, 
  17.99648, 18.00776, 18.01257, 18.02511, 18.02976, 18.03764, 18.07079, 18.07182, 18.08281, 18.08178, 
  18.09534, 18.09018, 18.0931, 18.09619, 18.11594, 18.11044, 18.11542, 18.12264, 18.11628, 18.10838, 
  18.10718, 18.11387, 18.11834, 18.11696, 18.12916, 18.13156, 18.13757, 18.1295, 18.13139, 18.14305, 
  18.14666, 18.14975, 18.14735, 18.15508, 18.15267, 18.15628, 18.14426, 18.14839, 18.1465, 18.15372, 
  18.16144, 18.1623, 18.17121, 18.1731, 18.17722, 18.17876, 18.18477, 18.18391, 18.1858, 18.18374, 
  18.19216, 18.19851, 18.20366, 18.20847, 18.21414, 18.21826, 18.22235, 18.23093, 18.23883, 18.24708, 
  18.28039, 18.30323, 18.30108, 18.32222, 18.32651, 18.36495, 18.37919, 18.38796, 18.39551, 18.40358, 
  18.3974, 18.40907, 18.41199, 18.41628, 18.41078, 18.40855, 18.40254, 18.41061, 18.43481, 18.44956, 
  18.45008, 18.46126, 18.47671, 18.47739, 18.48529, 18.49421, 18.49456, 18.48924, 18.49439, 18.50091, 
  18.50485, 18.51773, 18.52305, 18.5246, 18.53283, 18.53592, 18.54588, 18.54794, 18.54279, 18.54244, 
  18.53403, 18.53438, 18.54176, 18.54399, 18.55189, 18.55258, 18.55721, 18.57146, 18.57918, 18.59823, 
  18.60217, 18.60132, 18.61796, 18.63264, 18.63933, 18.64225, 18.65238, 18.65513, 18.66818, 18.67144, 
  18.679, 18.68484, 18.68724, 18.69753, 18.71041, 18.71556, 18.72071, 18.72532, 18.73099, 18.73425, 
  18.74438, 18.75022, 18.7552, 18.75743, 18.76654, 18.76911, 18.78782, 18.80018, 18.80945, 18.84105, 
  18.84277, 18.85098,
  18.86915, 18.87567, 18.88614, 18.89729, 18.9138, 18.92856, 18.9301, 18.93439, 18.94555, 18.94881, 
  18.95344, 18.95876, 18.96236, 18.96408, 18.96871, 18.97249, 18.97163, 18.97386, 18.96563, 18.96169, 
  18.97044, 18.96392, 18.96649, 18.96101, 18.97473, 18.97869, 18.98435, 18.9895, 18.98572, 18.96839, 
  18.96839, 18.97354, 18.97096, 18.98057, 18.99035, 19.00254, 19.00923, 19.01541, 19.02622, 19.04595, 
  19.04492, 19.05194, 19.05367, 19.07034, 19.07206, 19.09248, 19.09317, 19.10243, 19.10741, 19.11585, 
  19.12151, 19.13301, 19.13341, 19.13821, 19.14594, 19.14629, 19.15264, 19.17599, 19.18819, 19.19797, 
  19.1906, 19.19351, 19.18509, 19.19745, 19.20913, 19.21875, 19.21926, 19.22476, 19.22834, 19.22748, 
  19.21975, 19.22078, 19.22576, 19.22628, 19.23229, 19.22749, 19.23539, 19.23693, 19.23367, 19.23453, 
  19.26215, 19.26078, 19.2649, 19.27366, 19.28276, 19.29718, 19.30903, 19.31865, 19.31916, 19.33063, 
  19.33321, 19.34935, 19.36377, 19.36927, 19.36515, 19.37442, 19.37047, 19.38438, 19.39039, 19.39606, 
  19.39983, 19.40481, 19.40756, 19.40739, 19.41048, 19.42405, 19.43212, 19.44447, 19.44533, 19.44189, 
  19.44361, 19.44756, 19.45615, 19.46748, 19.47521, 19.46765, 19.47673, 19.47828, 19.49287, 19.497, 
  19.51073, 19.5188, 19.53031, 19.52669, 19.52978, 19.52892, 19.53545, 19.53476, 19.54178, 19.5423, 
  19.55243, 19.55415, 19.56153, 19.56119, 19.56617, 19.5684, 19.56634, 19.58058, 19.58092, 19.59621, 
  19.61183, 19.62574, 19.64103, 19.64274, 19.63759, 19.63759, 19.64857, 19.63793, 19.63209, 19.64976, 
  19.69785, 19.70984, 19.70881, 19.71602, 19.71688, 19.73096, 19.74555, 19.76788, 19.79072, 19.7883, 
  19.79156, 19.79138, 19.80255, 19.80375, 19.801, 19.80255, 19.79859, 19.79379, 19.79842, 19.79877, 
  19.80563, 19.79138, 19.79443, 19.81009, 19.82348, 19.80683, 19.80081, 19.79292, 19.79121, 19.78881, 
  19.79053, 19.784, 19.77816, 19.7701, 19.76632, 19.76632, 19.76941, 19.76667, 19.7677, 19.75808, 
  19.7622, 19.77817, 19.78298, 19.7951, 19.80608, 19.81981, 19.82856, 19.83491, 19.84023, 19.84092, 
  19.85005, 19.87013, 19.8703, 19.88094, 19.88454, 19.88712, 19.90222, 19.90136, 19.90514, 19.90274, 
  19.92299, 19.9719, 19.98219, 19.99921, 20.01036, 20.00658, 20.02254, 20.04041, 20.04179, 20.07679, 
  20.08846, 20.08469, 20.0876, 20.08607, 20.09568, 20.10203, 20.09826, 20.10135, 20.10135, 20.11267, 
  20.11267, 20.12297, 20.12932, 20.12726, 20.13258, 20.12984, 20.13636, 20.13379, 20.13876, 20.14014, 
  20.14494, 20.14546, 20.15163, 20.15387, 20.15635, 20.15824, 20.17592, 20.16717, 20.17352, 20.17077, 
  20.18451, 20.19033, 20.19016, 20.19497, 20.20407, 20.21351, 20.21369, 20.22244, 20.23172, 20.24165, 
  20.24182, 20.24904, 20.25316, 20.25346, 20.26913, 20.27153, 20.29334, 20.31206, 20.32406, 20.3232, 
  20.32595, 20.32114, 20.3311, 20.32131, 20.31736, 20.31719, 20.32217, 20.32664, 20.33522, 20.3378, 
  20.33917, 20.34742, 20.35137, 20.36012, 20.36988, 20.36988, 20.37537, 20.38138, 20.3807, 20.39272, 
  20.41384, 20.41418, 20.41882, 20.42809, 20.4305, 20.43548, 20.4341, 20.43754, 20.43393, 20.42844, 
  20.42947, 20.43668, 20.43822, 20.44269, 20.44664, 20.45145, 20.44475, 20.47529, 20.48079, 20.5062, 
  20.50586, 20.5117, 20.52112, 20.53348, 20.54619, 20.55907, 20.56422, 20.5759, 20.58019, 20.58689, 
  20.59376, 20.60214, 20.60077, 20.60764, 20.61382, 20.61073, 20.61485, 20.62, 20.62257, 20.62171, 
  20.62446, 20.63751, 20.64266, 20.64232, 20.65194, 20.66121, 20.66533, 20.6655, 20.66994, 20.67269, 
  20.68625, 20.68952, 20.69759, 20.70875, 20.7127, 20.71819, 20.723, 20.72781, 20.73193, 20.73554, 
  20.74447, 20.74636, 20.74309, 20.74258, 20.75011, 20.75561, 20.75887, 20.74839, 20.74788, 20.76247, 
  20.75783, 20.76247, 20.78033, 20.78909, 20.78153, 20.78205, 20.79012, 20.79662, 20.80815, 20.8109, 
  20.80609, 20.80489, 20.80076, 20.79699, 20.80265, 20.80111, 20.79578, 20.79853, 20.80986, 20.81433, 
  20.81519, 20.81914, 20.81897, 20.82618, 20.83425, 20.83768, 20.84352, 20.8507, 20.85379, 20.86117, 
  20.86907, 20.87079, 20.87834, 20.88263, 20.87989, 20.87353, 20.87199, 20.87954, 20.88315, 20.88727, 
  20.88727, 20.89706, 20.90633, 20.90736, 20.90341, 20.90255, 20.91062, 20.91011, 20.91783, 20.92401, 
  20.92435, 20.94101, 20.94376, 20.95389, 20.95852, 20.96247, 20.96316, 20.97363, 20.98651, 20.99422, 
  20.99439, 20.98958, 20.98804, 20.99782, 21.00417, 21.00984, 21.00572, 21.01224, 21.01654, 21.01996, 
  21.02529, 21.0258, 21.03507, 21.03456, 21.03988, 21.04325, 21.04916, 21.05414, 21.06684, 21.07491, 
  21.07818, 21.07783, 21.09432, 21.10408, 21.06649, 21.06855, 21.05498, 21.04674, 21.05979, 21.06305, 
  21.07267, 21.08211, 21.09637, 21.11302, 21.12213, 21.15593, 21.15466, 21.16495, 21.17096, 21.18023, 
  21.18074, 21.184, 21.1919, 21.20117, 21.20838, 21.21284, 21.2276, 21.22313, 21.22899, 21.23414, 
  21.2398, 21.25919, 21.2664, 21.26674, 21.27755, 21.30745, 21.31139, 21.31603, 21.32255, 21.32941, 
  21.33748, 21.34468, 21.35515, 21.36648, 21.37248, 21.38501, 21.39222, 21.39376, 21.40443, 21.40649, 
  21.43497, 21.44922, 21.45505, 21.47118, 21.48079, 21.48645, 21.49594, 21.51568, 21.52353, 21.51773, 
  21.52305, 21.52323, 21.53215, 21.5524, 21.55635, 21.56544, 21.57488, 21.57934, 21.58337, 21.59127, 
  21.59591, 21.60174, 21.60655, 21.60775, 21.61683, 21.61958, 21.63057, 21.64428, 21.64963, 21.65631, 
  21.65717, 21.67538, 21.68156, 21.69907, 21.70852, 21.70903, 21.71539, 21.72343, 21.72617, 21.73442, 
  21.74231, 21.76378, 21.76498, 21.76292, 21.76756, 21.77219, 21.77614, 21.78937, 21.78851, 21.79143, 
  21.78748, 21.80087, 21.81355, 21.82557, 21.84051, 21.84326, 21.84893, 21.84772, 21.85992, 21.87486, 
  21.88858, 21.89219, 21.90043, 21.90404, 21.90764, 21.92033, 21.93269, 21.94454, 21.94917, 21.95177, 
  21.96154, 21.96583, 21.9648, 21.97836, 21.97818, 21.98264, 21.98316, 21.98934, 21.99363, 22.00033, 
  22.01148, 22.02316, 22.03535, 22.03294, 22.03037, 22.04238, 22.03723, 22.03877, 22.03362, 22.03483, 
  22.02951, 22.05166, 22.05956, 22.06076, 22.06746, 22.09352, 22.0985, 22.11773, 22.12495, 22.1301, 
  22.14384, 22.14281, 22.18657, 22.18709, 22.19224, 22.21387, 22.21679, 22.22246, 22.23156, 22.2362, 
  22.22624, 22.22675, 22.22434, 22.23551, 22.24014, 22.24701, 22.28202, 22.29747, 22.30657, 22.31327, 
  22.31997, 22.33336, 22.36217, 22.36629, 22.36973, 22.37831, 22.37763, 22.39102, 22.39089, 22.396, 
  22.39754, 22.40235, 22.41386, 22.41695, 22.4276, 22.43446, 22.43859, 22.44305, 22.45833, 22.46243, 
  22.46758, 22.4772, 22.48338, 22.48595, 22.4899, 22.49952, 22.50364, 22.54073, 22.55651, 22.55497,
  17.17628, 17.18089)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_2, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_0 <- st_union(Geo_0)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, Geo_0[1])
Geo_2 <- st_union(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
Geo_2 <- Geo_2 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### AUSTRIA #####
Geo_0 <- Geometric_Operations(Geo_3, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0))
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(
  48.0093, 48.01435, 48.02032, 48.01963, 48.02353, 48.02124, 48.02962, 48.031, 48.02009, 48.0318, 
  48.04592, 48.05016, 48.05544, 48.06542, 48.07081, 48.07838, 48.08079, 48.08607, 48.09249, 48.09673, 
  48.09983, 48.1059, 48.10785, 48.11037, 48.11461, 48.1161, 48.12344, 48.12378, 48.1349, 48.13673, 
  48.1436, 48.13994, 48.14097, 48.15242, 48.1712, 48.18986, 48.21434, 48.22292, 48.23493, 48.25733, 
  48.2635, 48.26602, 48.27093, 48.27127, 48.27333, 48.27859, 48.2811, 48.29012, 48.29423, 48.29846, 
  48.30543, 48.31159, 48.31627, 48.31878, 48.32415, 48.32666, 48.3286, 48.33168, 48.33168, 48.33613, 
  48.33682, 48.34127, 48.34526, 48.34914, 48.348, 48.34971, 48.34788, 48.34914, 48.35393, 48.35883, 
  48.36454, 48.37138, 48.37856, 48.38347, 48.38392, 48.3813, 48.38312, 48.39076, 48.39635, 48.40911, 
  48.41321, 48.41834, 48.42096, 48.42392, 48.43657, 48.44511, 48.44818, 48.45126, 48.45137, 48.45547, 
  48.45877, 48.46241, 48.46583, 48.46662, 48.47266, 48.47812, 48.47527, 48.48187, 48.48392, 48.48756, 
  48.49132, 48.49814, 48.4986, 48.49462, 48.4945, 48.49757, 48.50076, 48.50394, 48.50736, 48.51213, 
  48.51316, 48.5127, 48.51441, 48.51782, 48.52032, 48.52032, 48.52168, 48.52066, 48.52305, 48.52623, 
  48.53032, 48.53358, 48.54518, 48.55245, 48.56017, 48.56472, 48.57335, 48.58244, 48.60219, 48.60537, 
  48.61059, 48.61445,
  48.61691, 48.61839, 48.61952, 48.61884, 48.62168, 48.62179, 48.62258, 48.62429, 48.6261, 48.62837, 
  48.62882, 48.63143, 48.632, 48.6354, 48.63869, 48.64437, 48.64539, 48.64868, 48.6514, 48.65797, 
  48.66308, 48.66557, 48.66738, 48.67033, 48.67532, 48.67997, 48.68144, 48.68495, 48.68767, 48.69107, 
  48.69345, 48.69595, 48.70048, 48.70308, 48.70614, 48.70952, 48.71283, 48.71452, 48.71826, 48.71588, 
  48.71634, 48.72279, 48.71271, 48.71113, 48.71679, 48.70977, 48.71237, 48.70965, 48.70569, 48.7109, 
  48.71022, 48.71385, 48.71237, 48.71407, 48.71169, 48.71826, 48.716, 48.71906, 48.71985, 48.7323, 
  48.72868, 48.73366, 48.73276, 48.73819, 48.7374, 48.73468, 48.73649, 48.72789, 48.74113, 48.74985, 
  48.77146, 48.77463, 48.77961, 48.78538, 48.78606, 48.77984, 48.78312, 48.78707, 48.79329, 48.79296, 
  48.81399, 48.8115, 48.80788, 48.8063, 48.80279, 48.79804, 48.80245, 48.80155, 48.81026, 48.80845, 
  48.80562, 48.79884, 48.79194, 48.77644, 48.77429, 48.76615, 48.76185, 48.75166, 48.74283, 48.74125, 
  48.73638, 48.73944, 48.7357, 48.73434, 48.73083, 48.72857, 48.73103, 48.72798, 48.73364, 48.73828, 
  48.74247, 48.74088, 48.74575, 48.7316, 48.73285, 48.73998, 48.7376, 48.7402, 48.74156, 48.73737, 
  48.74292, 48.74326, 48.74848, 48.74316, 48.74542, 48.74259, 48.74814, 48.74474, 48.75403, 48.76116, 
  48.77835, 48.79814, 48.79848, 48.80448, 48.81352, 48.82087, 48.82403, 48.82177, 48.82426, 48.82573, 
  48.8281, 48.82765, 48.81906, 48.81861, 48.82415, 48.82663, 48.83093, 48.83273, 48.83432, 48.83477, 
  48.83906, 48.83906, 48.8368, 48.83703, 48.83533, 48.8359, 48.83409, 48.83748, 48.84222, 48.84347, 
  48.83771, 48.83827, 48.849, 48.84934, 48.8429, 48.84155, 48.84844, 48.85522, 48.85951, 48.86109, 
  48.85894, 48.8586, 48.85476, 48.85228, 48.85759, 48.85815, 48.86144, 48.86562, 48.86833, 48.87318, 
  48.87612, 48.8777, 48.87115, 48.87352, 48.87205, 48.8751, 48.86641, 48.85229, 48.85771, 48.85997, 
  48.8611, 48.85862, 48.85534, 48.8567, 48.86438, 48.86663, 48.88176, 48.88752, 48.88436, 48.88459, 
  48.8882, 48.89136, 48.89373, 48.89565, 48.89836, 48.89621, 48.89734, 48.89553, 48.90434, 48.91404, 
  48.91765, 48.91934, 48.9375, 48.94077, 48.94347, 48.94415, 48.95193, 48.94494, 48.94979, 48.95182, 
  48.96331, 48.96546, 48.9721, 48.98168, 48.98236, 48.98495, 48.98292, 48.98472, 48.97616, 48.98089, 
  48.97796, 48.98439, 48.98878, 48.99261, 48.99509, 48.98619, 48.98055, 48.96703, 48.96692, 48.95757, 
  48.95813, 48.95396, 48.95971, 48.95768, 48.95971, 48.95779, 48.94269, 48.94798, 48.94291, 48.94404, 
  48.94145, 48.94483, 48.94641, 48.95227, 48.95734, 48.95993, 48.96782, 48.97199, 48.97661, 48.98078, 
  48.98472, 48.98427, 48.99362, 48.99768, 49.00061, 48.99779, 48.99914, 48.99723, 48.99993, 48.99373, 
  48.99734, 48.99982, 49.00398, 49.00646, 49.01209, 49.01446, 49.01603, 49.01142, 49.02031, 49.01817, 
  49.01513, 49.01175, 49.01491, 49.00995, 49.0059, 49.00398, 48.99723, 48.99002, 48.98822, 48.98157, 
  48.97819, 48.98044, 48.97458, 48.97098, 48.95948, 48.95542, 48.93716, 48.93242, 48.93141, 48.9278, 
  48.92487, 48.92194, 48.91618, 48.90986, 48.90513, 48.89836, 48.89562, 48.89122, 48.89077, 48.87496, 
  48.87496, 48.85746, 48.84605, 48.84244, 48.84244, 48.83668, 48.8247, 48.81226, 48.80446, 48.80186, 
  48.80028, 48.79485, 48.79304, 48.78999, 48.77981, 48.77664, 48.77506, 48.76861, 48.7668, 48.76408, 
  48.76261, 48.75831, 48.76261, 48.76092, 48.76601, 48.76884, 48.76669, 48.77314, 48.77019, 48.77291, 
  48.77687, 48.78004, 48.78072, 48.77732, 48.77744, 48.77585, 48.77755, 48.78038, 48.77936, 48.78354, 
  48.78038, 48.78411, 48.78139, 48.77902, 48.77359, 48.77178, 48.76408, 48.74779, 48.73477, 48.72979, 
  48.72492, 48.7222, 48.71767, 48.71371, 48.71167, 48.70896, 48.70318, 48.70352, 48.69911, 48.68539, 
  48.67871, 48.67565, 48.66681, 48.6498, 48.6498, 48.63959, 48.63823, 48.61781, 48.60248, 48.59658, 
  48.5942, 48.59385, 48.59147, 48.58716, 48.58239, 48.58523, 48.58568, 48.5825, 48.58364, 48.58114, 
  48.58227, 48.58205, 48.60316, 48.61043, 48.60316, 48.60362, 48.6279, 48.62847, 48.61746, 48.61803, 
  48.60816, 48.60328, 48.60589, 48.60657, 48.61111, 48.61417, 48.61406, 48.6203, 48.61712, 48.62212, 
  48.63324, 48.63369, 48.64061, 48.64311, 48.64379, 48.64821, 48.64413, 48.64356, 48.63789, 48.63267, 
  48.62484, 48.62484, 48.61951, 48.61531, 48.60067, 48.59851, 48.58875, 48.58852, 48.59158, 48.59285, 
  48.59182, 48.59353, 48.59216, 48.59375, 48.59251, 48.58285, 48.58206, 48.57967, 48.57672, 48.56945, 
  48.56968, 48.57558, 48.57479, 48.56934, 48.56275, 48.56105, 48.55491, 48.55446, 48.55173, 48.55355, 
  48.56411, 48.56275, 48.56434, 48.56707, 48.56684, 48.57445, 48.58217, 48.58035, 48.57854, 48.57763, 
  48.58229, 48.59375, 48.5891, 48.59285, 48.59205, 48.59614, 48.59398, 48.59784, 48.59273, 48.59285, 
  48.5891, 48.59194, 48.59966, 48.59988, 48.59534, 48.595, 48.60261, 48.60408, 48.60658, 48.60658, 
  48.60431, 48.60647, 48.60783, 48.60987, 48.61271, 48.61441, 48.6177, 48.61929, 48.62383, 48.62758, 
  48.62928, 48.62758, 48.62814, 48.6261, 48.62894, 48.63007, 48.63688, 48.63937, 48.64051, 48.64346, 
  48.64527, 48.65242, 48.65514, 48.65242, 48.65877, 48.66058, 48.665, 48.6675, 48.66943, 48.67147, 
  48.67362, 48.676, 48.67487, 48.67781, 48.67645, 48.68371, 48.68529, 48.68699, 48.68915, 48.69209, 
  48.69538, 48.69742, 48.69447, 48.69561, 48.69923, 48.69969, 48.70376, 48.70478, 48.70637, 48.70614, 
  48.70863, 48.7109, 48.70954, 48.71294, 48.7143, 48.72098, 48.72245, 48.72143, 48.72404, 48.72642, 
  48.73151, 48.7357, 48.73695, 48.73955, 48.74759, 48.7494, 48.75721, 48.75811, 48.7666, 48.76988, 
  48.76931, 48.7718, 48.76965, 48.77282, 48.77169, 47.44405)
LONGITUDE_VALUEs <- c(
  17.15662, 17.14855, 17.14409, 17.14221, 17.13517, 17.12625, 17.11629, 17.1096, 17.08967, 17.06753, 
  17.0883, 17.08486, 17.06804, 17.08658, 17.07233, 17.07834, 17.07147, 17.0749, 17.09172, 17.08743, 
  17.09224, 17.07765, 17.07851, 17.07233, 17.07697, 17.06821, 17.06186, 17.06942, 17.06032, 17.06169, 
  17.05757, 17.03784, 17.02394, 17.0157, 16.97604, 16.97689, 16.96161, 16.96195, 16.94582, 16.95131, 
  16.958, 16.95148, 16.94667, 16.92608, 16.9199, 16.91973, 16.91388, 16.9065, 16.90565, 16.89947, 
  16.89835, 16.89406, 16.89766, 16.90522, 16.90951, 16.90848, 16.89835, 16.89423, 16.88856, 16.88255, 
  16.87225, 16.86812, 16.87602, 16.87312, 16.86591, 16.8599, 16.85406, 16.84478, 16.84221, 16.84341, 
  16.83843, 16.84204, 16.83363, 16.83345, 16.84015, 16.84444, 16.85097, 16.85045, 16.85664, 16.84959, 
  16.85286, 16.86402, 16.86299, 16.85835, 16.85097, 16.85063, 16.84891, 16.85217, 16.8611, 16.86471, 
  16.85904, 16.8635, 16.86453, 16.87415, 16.87621, 16.88187, 16.88909, 16.89063, 16.89613, 16.89595, 
  16.88943, 16.89802, 16.90712, 16.90986, 16.91553, 16.91774, 16.91345, 16.91465, 16.91311, 16.91311, 
  16.9162, 16.92101, 16.92255, 16.91895, 16.92049, 16.93045, 16.93595, 16.94144, 16.94385, 16.93955, 
  16.94229, 16.94951, 16.95397, 16.94092, 16.94539, 16.93749, 16.93405, 16.93955, 16.93268, 16.94298, 
  16.94229, 16.9392,
  16.94017, 16.93931, 16.93485, 16.92884, 16.92197, 16.91956, 16.91853, 16.92042, 16.91853, 16.91991, 
  16.92403, 16.92248, 16.92626, 16.92523, 16.92918, 16.923, 16.92008, 16.92094, 16.9187, 16.923, 
  16.92162, 16.923, 16.92214, 16.92386, 16.91013, 16.91064, 16.91339, 16.91287, 16.91631, 16.91596, 
  16.91837, 16.91579, 16.91699, 16.91339, 16.91288, 16.90439, 16.90206, 16.90653, 16.90121, 16.89829, 
  16.88524, 16.87854, 16.86961, 16.84166, 16.83496, 16.825, 16.80542, 16.80594, 16.8001, 16.7989, 
  16.7965, 16.7898, 16.77967, 16.77761, 16.77469, 16.76364, 16.75798, 16.75798, 16.75352, 16.74732, 
  16.73514, 16.73445, 16.72828, 16.72725, 16.70563, 16.70563, 16.70134, 16.68418, 16.67163, 16.68124, 
  16.67558, 16.66422, 16.66422, 16.65238, 16.63505, 16.62956, 16.59284, 16.59387, 16.57688, 16.56775, 
  16.54115, 16.5336, 16.5336, 16.52845, 16.52914, 16.51867, 16.51576, 16.47918, 16.46511, 16.45876, 
  16.46288, 16.44658, 16.44778, 16.43421, 16.43936, 16.4373, 16.42306, 16.41207, 16.41001, 16.40177, 
  16.39577, 16.38856, 16.38942, 16.38324, 16.38478, 16.3774, 16.37728, 16.36254, 16.35121, 16.35773, 
  16.35035, 16.34605, 16.34228, 16.33592, 16.31205, 16.30263, 16.29628, 16.28821, 16.26846, 16.26382, 
  16.20612, 16.18998, 16.15464, 16.15018, 16.13936, 16.1387, 16.11706, 16.10367, 16.06589, 16.05354, 
  15.99706, 15.96736, 15.95946, 15.94986, 15.95089, 15.9605, 15.95623, 15.9461, 15.94489, 15.94816, 
  15.94747, 15.94026, 15.94077, 15.93562, 15.92343, 15.92669, 15.92686, 15.93081, 15.93098, 15.92068, 
  15.91999, 15.91673, 15.91484, 15.90986, 15.90711, 15.90093, 15.89338, 15.89081, 15.89133, 15.89305, 
  15.89631, 15.90593, 15.89785, 15.89287, 15.8903, 15.88395, 15.87931, 15.88068, 15.87793, 15.87244, 
  15.87021, 15.8745, 15.87519, 15.86351, 15.85853, 15.84548, 15.84016, 15.85166, 15.85304, 15.84275, 
  15.84498, 15.8388, 15.8285, 15.81751, 15.80703, 15.77836, 15.77355, 15.75452, 15.71365, 15.71468, 
  15.71092, 15.69718, 15.69426, 15.68705, 15.68087, 15.67314, 15.65648, 15.63744, 15.63744, 15.63058, 
  15.62491, 15.62594, 15.6201, 15.61959, 15.61186, 15.60997, 15.60173, 15.57734, 15.55934, 15.51194, 
  15.50988, 15.50576, 15.50216, 15.48894, 15.48447, 15.47795, 15.46785, 15.45549, 15.45102, 15.4232, 
  15.40345, 15.39162, 15.38939, 15.36741, 15.3571, 15.35247, 15.33736, 15.33255, 15.32176, 15.31249, 
  15.30511, 15.2912, 15.29309, 15.29017, 15.2778, 15.27505, 15.28176, 15.27283, 15.26613, 15.26905, 
  15.26133, 15.26184, 15.24055, 15.23883, 15.2275, 15.21052, 15.18906, 15.17652, 15.17051, 15.16639, 
  15.16038, 15.16038, 15.15471, 15.16193, 15.16193, 15.16924, 15.16856, 15.1598, 15.16339, 15.15035, 
  15.1531, 15.15807, 15.15687, 15.13765, 15.13353, 15.12942, 15.12427, 15.12187, 15.10951, 15.10282, 
  15.09184, 15.06419, 15.06402, 15.06728, 15.06385, 15.06574, 15.0563, 15.04082, 15.02177, 15.01336, 
  15.01268, 15.0029, 14.99586, 14.99071, 14.9938, 15.00152, 14.99586, 14.99552, 14.98556, 14.98024, 
  14.98059, 14.97836, 14.97818, 14.97562, 14.97802, 14.97562, 14.98608, 14.98402, 14.97904, 14.97904, 
  14.98436, 14.98333, 14.98968, 14.99037, 14.9926, 14.99193, 14.98745, 14.98917, 14.98316, 14.98419, 
  14.9732, 14.97149, 14.98436, 14.98454, 14.9732, 14.96771, 14.96925, 14.95689, 14.95998, 14.95552, 
  14.95672, 14.95226, 14.95586, 14.95344, 14.98006, 14.97731, 14.98143, 14.97559, 14.96975, 14.96718, 
  14.961, 14.95638, 14.94865, 14.93955, 14.93217, 14.91912, 14.90727, 14.89578, 14.88788, 14.88393, 
  14.88651, 14.88118, 14.86899, 14.86298, 14.85803, 14.85855, 14.85134, 14.84773, 14.84584, 14.84327, 
  14.8285, 14.82369, 14.81974, 14.80806, 14.80978, 14.80618, 14.81253, 14.80034, 14.80823, 14.79295, 
  14.79226, 14.78728, 14.78574, 14.77578, 14.77406, 14.75691, 14.75588, 14.74764, 14.7363, 14.72549, 
  14.72721, 14.72326, 14.71811, 14.7121, 14.71811, 14.71879, 14.72188, 14.71399, 14.72103, 14.7109, 
  14.7121, 14.70833, 14.70541, 14.70815, 14.70077, 14.6951, 14.68772, 14.68308, 14.67673, 14.67003, 
  14.66625, 14.66335, 14.65494, 14.64584, 14.63125, 14.62715, 14.61272, 14.60482, 14.59023, 14.58662, 
  14.5643, 14.56155, 14.55743, 14.55211, 14.55176, 14.5473, 14.52895, 14.51607, 14.50576, 14.49477, 
  14.4946, 14.48756, 14.47505, 14.47796, 14.47298, 14.47092, 14.46199, 14.44362, 14.44482, 14.45203, 
  14.45667, 14.45152, 14.44705, 14.44911, 14.44191, 14.43538, 14.43161, 14.42423, 14.41925, 14.41118, 
  14.40757, 14.40397, 14.39952, 14.39248, 14.38578, 14.3875, 14.39162, 14.39076, 14.39385, 14.38183, 
  14.3693, 14.36586, 14.35848, 14.3523, 14.35315, 14.34611, 14.34285, 14.33684, 14.33358, 14.32757, 
  14.32433, 14.32106, 14.30956, 14.30492, 14.2996, 14.27813, 14.27077, 14.24913, 14.24913, 14.23883, 
  14.23694, 14.18391, 14.16296, 14.16227, 14.15849, 14.15403, 14.1427, 14.1305, 14.12363, 14.12071, 
  14.11577, 14.0955, 14.09825, 14.07129, 14.06957, 14.06597, 14.06614, 14.06923, 14.06975, 14.06271, 
  14.05412, 14.05343, 14.05086, 14.05137, 14.04244, 14.04382, 14.04124, 14.04605, 14.04519, 14.04846, 
  14.04176, 14.03867, 14.03455, 14.02922, 14.02974, 14.02407, 14.0184, 14.01068, 14.01428, 14.01652, 
  14.02356, 14.02424, 14.04021, 14.0524, 14.05824, 14.05715, 14.06024, 14.05869, 14.06007, 14.05869, 
  14.06041, 14.05458, 14.05046, 14.04342, 14.03963, 14.02436, 14.02899, 14.02556, 14.02504, 14.01577, 
  14.01903, 14.01543, 14.01268, 14.01011, 14.0132, 14.01028, 14.00805, 14.00976, 14.00736, 14.00547, 
  14.0041, 13.98522, 13.97973, 13.97167, 13.95569, 13.95483, 13.94419, 13.94247, 13.93784, 13.93733, 
  13.92686, 13.926, 13.92085, 13.92068, 13.91037, 13.90505, 13.89681, 13.88892, 13.87674, 13.86848, 
  13.86213, 13.85698, 13.84926, 13.84342, 13.83948, 13.90208)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_3, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_3 <- st_set_geometry(Geo_3, Geo_0)
Geo_3 <- st_union(Geo_3, Geo)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
Geo_3 <- Geo_3 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### POLAND #####
Geo_0 <- Geometric_Operations(Geo_4, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_4 <- st_set_geometry(Geo_4, st_geometry(Geo_0))
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
LATITUDE_VALUEs <- c(
  50.87317, 50.86862, 50.87024, 50.86851, 50.87014, 50.87739, 50.87739, 50.86721, 50.8762, 50.87003, 
  50.8619, 50.86201, 50.86808, 50.86797, 50.8697, 50.86829, 50.87501, 50.87848, 50.88996, 50.89126, 
  50.89472, 50.90013, 50.90674, 50.90825, 50.9063, 50.91182, 50.92178, 50.92752, 50.92795, 50.9379, 
  50.93952, 50.94353, 50.95002, 50.95802, 50.96224, 50.9671, 50.96591, 50.96829, 50.97142, 50.98158, 
  50.98668, 50.98095, 50.97781, 50.98732, 50.98992, 51.01174, 51.00893, 51.01584, 51.01584, 51.02275, 
  51.02157, 51.01217, 51.01228, 51.02297, 51.02157, 51.018, 51.01725, 51.01368, 51.01455, 51.01239, 
  51.01325, 51.01131, 51.00828, 51.00353, 50.99111, 50.99316, 50.99024, 50.99186, 50.99121, 50.9937, 
  50.99424, 50.99975, 51.00645, 51.01185, 51.02005, 51.01131, 51.00245, 50.99478, 50.98862, 50.98678, 
  50.98484, 50.98289, 50.98278, 50.98019, 50.98365, 50.98873, 50.99273, 50.99186, 50.99575, 50.99586, 
  50.99921, 50.99683, 50.995, 50.99165, 50.9884, 50.98613, 50.98008, 50.9816, 50.97943, 50.97954, 
  50.97165, 50.96204, 50.95891, 50.95253, 50.95166, 50.94723, 50.94301, 50.9389, 50.93598, 50.93176, 
  50.92711, 50.92018, 50.91596, 50.91109, 50.90052, 50.89106, 50.88197, 50.87623, 50.86138, 50.85878, 
  50.85651, 50.85629, 50.84881, 50.84361, 50.83516, 50.82388, 50.82149, 50.81997, 50.8152, 50.81227, 
  50.80924, 50.80718, 50.80566, 50.8024, 50.79546, 50.79253, 50.78938, 50.78754, 50.78493, 50.78168, 
  50.77766, 50.77809, 50.77571, 50.77592, 50.7922, 50.80566, 50.80913, 50.80718, 50.80392, 50.79654, 
  50.7909, 50.79036, 50.78797, 50.79068, 50.77712, 50.78124, 50.77636, 50.77918, 50.77712, 50.77723, 
  50.77278, 50.76561, 50.76083, 50.76105, 50.75975, 50.75996, 50.75649, 50.75399, 50.74204, 50.73737, 
  50.73998, 50.73574, 50.74389, 50.74234, 50.74671, 50.75312, 50.75236, 50.75595, 50.74878, 50.74291, 
  50.73585, 50.73227, 50.72466, 50.70955, 50.70847, 50.70075, 50.69933, 50.6815, 50.67486, 50.67084, 
  50.67519, 50.68443, 50.68041, 50.68683, 50.68694, 50.69085, 50.69227, 50.684, 50.67954, 50.67367, 
  50.6729, 50.6679, 50.65811, 50.65332, 50.64853, 50.64526, 50.64145, 50.63449, 50.63383, 50.63068, 
  50.62872, 50.62501, 50.62294, 50.61292, 50.60628, 50.6066, 50.60105, 50.59865, 50.61456, 50.60955, 
  50.61325, 50.61619, 50.6322, 50.63568, 50.63949, 50.64668, 50.65234, 50.65267, 50.663, 50.66137, 
  50.6593, 50.6605, 50.65789, 50.65669, 50.65094, 50.65344, 50.64702, 50.6456, 50.64234, 50.64005, 
  50.63654, 50.63393, 50.62849, 50.62718, 50.63175, 50.63208, 50.636, 50.65178, 50.65352, 50.66756, 
  50.6717, 50.66963, 50.67039, 50.66702, 50.66843, 50.66723, 50.66854, 50.66038, 50.66092, 50.65984, 
  50.66082, 50.65907, 50.66179, 50.66441, 50.66473, 50.66713, 50.66277, 50.66158, 50.65633, 50.65276, 
  50.6483, 50.64667, 50.6483, 50.6471, 50.64471, 50.63654, 50.63709, 50.63426, 50.63001, 50.61857, 
  50.61759, 50.6103, 50.60692, 50.60016, 50.59788, 50.59526, 50.59025, 50.58796, 50.58589, 50.57946, 
  50.56877, 50.56932, 50.56572, 50.5594, 50.54817, 50.54239, 50.53487, 50.53334, 50.52996, 50.52919, 
  50.52755, 50.52624, 50.52035, 50.51751, 50.50114, 50.5007, 50.49797, 50.49928, 50.49688, 50.49579, 
  50.4995, 50.49983, 50.50332, 50.50474, 50.50813, 50.50638, 50.50289, 50.50037, 50.49622, 50.4924, 
  50.49131, 50.48891, 50.47973, 50.48159, 50.47995, 50.48203, 50.48487, 50.48345, 50.47973, 50.47678, 
  50.47656, 50.47613, 50.47995, 50.48039, 50.47329, 50.46793, 50.46367, 50.46684, 50.46629, 50.46345, 
  50.45985, 50.46072, 50.45788, 50.45416, 50.45045, 50.4487, 50.44586, 50.44531, 50.44334, 50.44225, 
  50.44465, 50.4462, 50.45177, 50.45166, 50.44882, 50.44871, 50.44172, 50.43461, 50.43319, 50.4287, 
  50.43023, 50.42783, 50.42717, 50.424, 50.42116, 50.4181, 50.41481, 50.41416, 50.41131, 50.40737, 
  50.41427, 50.41142, 50.40989, 50.40716, 50.40617, 50.40333, 50.40245, 50.40015, 50.3984, 50.39348, 
  50.39457, 50.38669, 50.38297, 50.37892, 50.37662, 50.36754, 50.36764, 50.37148, 50.37378, 50.38133, 
  50.38319, 50.37991, 50.38221, 50.37783, 50.38067, 50.37859, 50.38078, 50.37421, 50.37148, 50.36688, 
  50.36326, 50.35724, 50.35407, 50.34727, 50.34289, 50.32876, 50.31911, 50.31999, 50.32459, 50.32492, 
  50.32131, 50.31644, 50.31363, 50.30541, 50.29576, 50.29324, 50.29105, 50.2871, 50.27755, 50.27163, 
  50.26987, 50.26384, 50.26362, 50.25978, 50.2611, 50.25802, 50.25605, 50.25253, 50.25144, 50.24727, 
  50.23793, 50.2387, 50.23047, 50.22948, 50.22322, 50.21992, 50.21432, 50.21322, 50.20597, 50.20323, 
  50.19982, 50.19531, 50.19279, 50.18707, 50.18608, 50.1841, 50.18443, 50.17916, 50.17454, 50.17047, 
  50.16783, 50.16366, 50.15794, 50.15574, 50.15211, 50.1487, 50.14562, 50.14309, 50.14067, 50.14045, 
  50.13385, 50.13263, 50.12493, 50.12119, 50.11095, 50.11249, 50.10413, 50.10005, 50.0962, 50.10512, 
  50.10765, 50.10952, 50.11525, 50.13594, 50.13352, 50.13979, 50.14485, 50.15156, 50.15299, 50.16464, 
  50.17828, 50.19257, 50.18861, 50.19488, 50.19729, 50.20224, 50.20787, 50.20457, 50.20116, 50.19831, 
  50.1971, 50.19984, 50.19908, 50.20457, 50.20984, 50.21588, 50.2183, 50.22291, 50.22401, 50.2261, 
  50.2261, 50.22269, 50.22379, 50.22204, 50.22346, 50.22149, 50.22273, 50.22632, 50.23049, 50.23423, 
  50.23862, 50.24498, 50.24279, 50.23466, 50.22775, 50.21599, 50.2194, 50.22566, 50.22994, 50.24048, 
  50.24191, 50.24894, 50.25289, 50.25662, 50.25936, 50.25969, 50.26847, 50.27374, 50.2778, 50.296, 
  50.2959, 50.30302, 50.30236, 50.30763, 50.31596, 50.31168, 50.31486, 50.31815, 50.31936, 50.33043, 
  50.33327, 50.33821, 50.34281, 50.34533, 50.35989, 50.36329, 50.36887, 50.37424, 50.37687, 50.3794, 
  50.38279, 50.38476, 50.38881, 50.39144, 50.38968, 50.39647, 50.39888, 50.40938, 50.40763, 50.41179, 
  50.4166, 50.42251, 50.4283, 50.43344, 50.43596, 50.44252, 50.44459, 50.44339, 50.44776, 50.44919, 
  50.44492, 50.44055, 50.43552, 50.4224, 50.41693, 50.42743, 50.42491, 50.41857, 50.42174, 50.42152, 
  50.41485, 50.41529, 50.41233, 50.40698, 50.40533, 50.40183, 50.40588, 50.40522, 50.39395, 50.3945, 
  50.38049, 50.3818, 50.37961, 50.38366, 50.38553, 50.38979, 50.38629, 50.37644, 50.36396, 50.35947, 
  50.34326, 50.34172, 50.33449, 50.33164, 50.32836, 50.32134, 50.31741, 50.32026, 50.32037, 50.32738, 
  50.32848, 50.32322, 50.32267, 50.31291, 50.31182, 50.30754, 50.30677, 50.30305, 50.29888, 50.29581, 
  50.29219, 50.28758, 50.28353, 50.28067, 50.27651, 50.26312, 50.26509, 50.26455, 50.2742, 50.28199, 
  50.28309, 50.28013, 50.27409, 50.2776, 50.27201, 50.26894, 50.26312, 50.25972, 50.25434, 50.25149, 
  50.25697, 50.26751, 50.26948, 50.27003, 50.2674, 50.27475, 50.27409, 50.27519, 50.27332, 50.2697, 
  50.27179, 50.27003, 50.27245, 50.27629, 50.27804, 50.27892, 50.27596, 50.27135, 50.26564, 50.27727, 
  50.28528, 50.28682, 50.2912, 50.2923, 50.29493, 50.30162, 50.30546, 50.32837, 50.31993, 50.30414, 
  50.30074, 50.29811, 50.29734, 50.29362, 50.29142, 50.28638, 50.2832, 50.27837, 50.27409, 50.25599, 
  50.23645, 50.22162, 50.21613, 50.21141, 50.20646, 50.20569, 50.20251, 50.20163, 50.20635, 50.2058, 
  50.20229, 50.19987, 50.19163, 50.18987, 50.18778, 50.18481, 50.18152, 50.18316, 50.17866, 50.1736, 
  50.16997, 50.17085, 50.15953, 50.14974, 50.14105, 50.12993, 50.11166, 50.10352, 50.11772, 50.11507, 
  50.09746, 50.08821, 50.07874, 50.07003, 50.06651, 50.06177, 50.05813, 50.05383, 50.04843, 50.04435, 
  50.04292, 50.03542, 50.03531, 50.02903, 50.02616, 50.0202, 50.02009, 50.01745, 50.01899, 50.01314, 
  50.01138, 50.00377, 49.99351, 49.99185, 49.98721, 49.9871, 49.97982, 49.98125, 49.97251, 49.98035, 
  49.97659, 49.97836, 50.00507, 50.00507, 50.00937, 50.00485, 50.01345, 50.01808, 50.0108, 50.01113, 
  50.00463, 50.00992, 50.01378, 50.01709, 50.0215, 50.02834, 50.03617, 50.03893, 50.03099, 50.03044, 
  50.03826, 50.04113, 50.05348, 50.05414, 50.06086, 50.06615, 50.06307, 50.06251, 50.05833, 50.05965, 
  50.05282, 50.05326, 50.04775, 50.04565, 50.03793, 50.03341, 50.02283, 50.01455, 50.00065, 49.99723, 
  49.99348, 49.99867, 49.9937, 49.99171, 49.982, 49.98531, 49.98531, 49.99017, 49.99304, 49.99856, 
  49.99867, 50.00076, 49.99867, 49.99469, 49.99789, 49.99238, 49.9884, 49.98477, 49.97241, 49.96799, 
  49.97153, 49.96866, 49.96921, 49.96567, 49.96733, 49.96413, 49.95077, 49.94104, 49.929, 49.92922, 
  49.92348, 49.91928, 49.91596, 49.91596, 49.92403, 49.93121, 49.93044, 49.92701, 49.92679, 49.92547, 
  49.93, 49.929, 49.93099, 49.93165, 49.9353, 49.93353, 49.93574, 49.93629, 49.94093, 49.93839, 
  49.94049, 49.94458, 49.94922, 49.94613, 49.94403, 49.94071, 49.94049, 49.93629, 49.93762, 49.93563, 
  49.93397, 49.93872, 49.93839, 49.92845, 49.92856, 49.92303, 49.9227, 49.91662, 49.91143, 49.91099, 
  49.90678, 49.90358, 49.90568, 49.90236, 49.90269, 49.89971, 49.90933, 49.91143, 49.92016, 49.92237, 
  49.9258, 49.92679, 49.92325, 49.92071, 49.91795, 49.92216, 49.91896, 49.91487, 49.91332, 49.91199, 
  49.91045, 49.90801, 49.9058, 49.9037, 49.90049, 49.89298, 49.88767, 49.88457, 49.88103, 49.87661, 
  49.87384, 49.87008, 49.86698, 49.86742, 49.86621, 49.86643, 49.86145, 49.85691, 49.85603, 49.85259, 
  49.84551, 49.83488, 49.82669, 49.82447, 49.82038, 49.81827, 49.81262, 49.80465, 49.80276, 49.79811, 
  49.78958, 49.78514, 49.78016, 49.7755, 49.77118, 49.76718, 49.76175, 49.75665, 49.75343, 49.75077, 
  49.74623, 49.73768, 49.73469, 49.72981, 49.72648, 49.72293, 49.71749, 49.7146, 49.71072, 49.70783, 
  49.71116, 49.70983, 49.70295, 49.70572, 49.70406, 49.70705, 49.70439, 49.70217, 49.70017, 49.69528, 
  49.69684, 49.69151, 49.68951, 49.68374, 49.68274, 49.68429, 49.68063, 49.67618, 49.67774, 49.67663, 
  49.6844, 49.68229, 49.68362, 49.68318, 49.68562, 49.67918, 49.67918, 49.67285, 49.66641, 49.65663, 
  49.65118, 49.64818, 49.63996, 49.63462, 49.63295, 49.62962, 49.62361, 49.6185, 49.61438, 49.60404, 
  49.59491, 49.59547, 49.58979, 49.58646, 49.58568, 49.58067, 49.57777, 49.57321, 49.56954, 49.56308, 
  49.56063, 49.56152, 49.55985, 49.55885, 49.55439, 49.55228, 49.55083, 49.53802, 49.53434, 49.53535, 
  49.53401, 49.52699, 49.5261, 49.52365, 49.52164, 49.5183, 49.51863, 49.51841, 49.51727,
  49.51727, 49.51953, 49.51562, 49.51685, 49.51406, 49.51785, 49.51875, 49.52008, 49.51852, 49.51863, 
  49.51262, 49.51273, 49.50972, 49.50949, 49.50582, 49.50637, 49.50269, 49.5008, 49.49679, 49.49378, 
  49.4824, 49.47716, 49.47203, 49.4679, 49.45429, 49.45161, 49.43922, 49.43264, 49.43174, 49.42136, 
  49.41332, 49.40952, 49.40673, 49.40092, 49.39545, 49.39857, 49.39779, 49.39466, 49.39612, 49.39388, 
  49.40014, 49.40584, 49.41047, 49.41511, 49.41332, 49.41767, 49.41589, 49.41019, 49.41041, 49.40338, 
  49.40427, 49.40248, 49.40595, 49.40863, 49.41008, 49.40818, 49.40517, 49.40338, 49.4141, 49.40997, 
  49.41444, 49.42152, 49.42661, 49.43297, 49.44782, 49.45206, 49.44837, 49.4515, 49.45351, 49.46299, 
  49.46701, 49.46879, 49.47571, 49.47928, 49.48374, 49.48753, 49.49199, 49.49534, 49.50281, 49.50392, 
  49.51128, 49.52877, 49.53156, 49.53245, 49.53145, 49.53568, 49.53301, 49.53724, 49.53613, 49.531, 
  49.53178, 49.53345, 49.53624, 49.53602, 49.54671, 49.55328, 49.5574, 49.56742, 49.57232, 49.57154, 
  49.57466, 49.57388, 49.57922, 49.58011, 49.58857, 49.59258, 49.59591, 49.59547, 49.59925, 49.60315, 
  49.60515, 49.61104, 49.61405, 49.61071, 49.61416, 49.60404, 49.59614, 49.59146, 49.58701, 49.58434, 
  49.58111, 49.582, 49.57221, 49.57265, 49.5594, 49.5496, 49.53802, 49.53011, 49.52599, 49.52354, 
  49.51852, 49.50715, 49.48865, 49.48473, 49.48217, 49.48049, 49.47402, 49.47057, 49.46075, 49.4555, 
  49.45941, 49.44702, 49.44948, 49.45774, 49.44959, 49.44825, 49.44066, 49.43541, 49.42179, 49.4085, 
  49.40917, 49.39912, 49.39286, 49.39085, 49.3913, 49.38627, 49.39231, 49.40795, 49.41286, 49.41063, 
  49.40124, 49.397, 49.37901, 49.36984, 49.36369, 49.35989, 49.35363, 49.35229, 49.34446, 49.34189, 
  49.33384, 49.32321, 49.30161, 49.2961, 49.29579, 49.2772, 49.27485, 49.27059, 49.26869, 49.26309, 
  49.26219, 49.25525, 49.24628, 49.24538, 49.23653, 49.23653, 49.23395, 49.23003, 49.22644, 49.22308, 
  49.21635, 49.20704, 49.20502, 49.19886, 49.19876, 49.20616, 49.19965, 49.20201, 49.1964, 49.19629, 
  49.19281, 49.19685, 49.19618, 49.19932, 49.20436, 49.20425, 49.20896, 49.21311, 49.21648, 49.21995, 
  49.23094, 49.23587, 49.22971, 49.23161, 49.22208, 49.2195, 49.21311, 49.20089, 49.19763, 49.19326, 
  49.17811, 49.17968, 49.19629, 49.20055, 49.2065, 49.22051, 49.22253, 49.23811, 49.24461, 49.25223, 
  49.2594, 49.26321, 49.26814, 49.28281, 49.28628, 49.29378, 49.29681, 49.30386, 49.30643, 49.30666, 
  49.31136, 49.31237, 49.3183, 49.31897, 49.31214, 49.31214, 49.30319, 49.31404, 49.32378, 49.32512, 
  49.32758, 49.32825, 49.33396, 49.33843, 49.34235, 49.34179, 49.34526, 49.34816, 49.35185, 49.3457, 
  49.34884, 49.35107, 49.34973, 49.35163, 49.34907, 49.34649, 49.35107, 49.35152, 49.3428, 49.35085, 
  49.3561, 49.36751, 49.37801, 49.39142, 49.39064, 49.38874, 49.39276, 49.40193, 49.40304, 49.40137, 
  49.40271, 49.40126, 49.40092, 49.4017, 49.3979, 49.40114, 49.40718, 49.40829, 49.40371, 49.39187, 
  49.39042, 49.39545, 49.40505, 49.40606, 49.40204, 49.39556, 49.39779, 49.40181, 49.40718, 49.40874, 
  49.40762, 49.41667, 49.41834, 49.41421, 49.41388, 49.41131, 49.41254, 49.41611, 49.41477, 49.40974, 
  49.40293, 49.39701, 49.39321, 49.39243, 49.38684, 49.38606, 49.37746, 49.37958, 49.37611, 49.38338, 
  49.38561, 49.38349, 49.39019, 49.395, 49.40292, 49.40191, 49.41409, 49.41822, 49.41811, 49.41677, 
  49.4142, 49.41007, 49.40817, 49.40437, 49.40113, 49.40113, 49.40404, 49.40348, 49.40683, 49.40795, 
  49.41107, 49.41565, 49.4199, 49.42079, 49.419, 49.41967, 49.41844, 49.41978, 49.41453, 49.41509, 
  49.41721, 49.41565, 49.4113, 49.40795, 49.40337, 49.40214, 49.40258, 49.39867, 49.3942, 49.38895, 
  49.38415, 49.37532, 49.37085, 49.37532, 49.37286, 49.36604, 49.36023, 49.3609, 49.36353, 49.36079, 
  49.35486, 49.35296, 49.35967, 49.36023, 49.35822, 49.35564, 49.34949, 49.34491, 49.34256, 49.34815, 
  49.3467, 49.34368, 49.34301, 49.33932, 49.33451, 49.33518, 49.33372, 49.33999, 49.34189, 49.34726, 
  49.3487, 49.34624, 49.34188, 49.33505, 49.33405, 49.32297, 49.32174, 49.3195, 49.32051, 49.31906, 
  49.32006, 49.32286, 49.32543, 49.32297, 49.31906, 49.31894, 49.3157, 49.31156, 49.30563, 49.30451, 
  49.29936, 49.29589, 49.29925, 49.30204, 49.30305, 49.30607, 49.30641, 49.30943, 49.30988, 49.30697, 
  49.31279, 49.3157, 49.31961, 49.32834, 49.33338, 49.33315, 49.33628, 49.34087, 49.34792, 49.34713, 
  49.35149, 49.35284, 49.35731, 49.3591, 49.36145, 49.36245, 49.36523, 49.36625, 49.36156, 49.36581, 
  49.35876, 49.36133, 49.36413, 49.36536, 49.37698, 49.39665, 49.40168, 49.40324, 49.41878, 49.42224, 
  49.42057, 49.42537, 49.42503, 49.43006, 49.42336, 49.43675, 49.42581, 49.42058, 49.41846, 49.41231, 
  49.40896, 49.40193, 49.40315, 49.40103, 49.40505, 49.4026, 49.40852, 49.41756, 49.42694, 49.42873, 
  49.43766, 49.4342, 49.44726, 49.44715, 49.45719, 49.46143, 49.44815, 49.44971, 49.44793, 49.45027, 
  49.44949, 49.4515, 49.45094, 49.44279, 49.44134, 49.4323, 49.4352, 49.43241, 49.43431, 49.43308, 
  49.42638, 49.4122, 49.41287, 49.41645, 49.4131, 49.41633, 49.42917, 49.42951, 49.41756, 49.41981, 
  49.4256, 49.42772, 49.43197, 49.43598, 49.43275, 49.43855, 49.44168, 49.4352, 49.43554, 49.43375, 
  49.43398, 49.43721, 49.43532, 49.43788, 49.44078, 49.4457, 49.44525, 49.44759, 49.43073, 49.43029, 
  49.42471, 49.417, 49.4141, 49.41041, 49.4189, 49.41522, 49.41343, 49.41432, 49.4112, 49.39746, 
  49.39924, 49.39109, 49.38349, 49.37801, 49.37667, 49.36438, 49.36304, 49.35566, 49.35566, 49.35834, 
  49.36046, 49.3674, 49.38159, 49.3826, 49.3912, 49.39165, 49.3874, 49.38617, 49.3779, 49.36829, 
  49.37399, 49.36885, 49.35767, 49.35431, 49.34962, 49.35364, 49.35398, 49.34548, 49.34895, 49.34716, 
  49.35012, 49.34917, 49.34514, 49.34157, 49.3268, 49.31673, 49.31438, 49.30912, 49.30845, 49.30184, 
  49.30017, 49.2883, 49.28651, 49.27844, 49.26489, 49.26254, 49.25761, 49.24809, 49.24461, 49.24136, 
  49.23139, 49.22543, 49.21601, 49.21489, 49.21153, 49.21265, 49.2057, 49.20659, 49.20087, 49.20188, 
  49.20009, 49.20065, 49.19257, 49.17889, 49.17417, 49.17417, 49.18528, 49.18371, 49.18427, 49.18001, 
  49.16834, 49.16284, 49.15835, 49.15228, 49.15475, 49.15161, 49.15363, 49.14251, 49.14173, 49.13679, 
  49.13724, 49.13544, 49.14712, 49.14442, 49.14712, 49.14566, 49.13544, 49.13229, 49.12746, 49.11822, 
  49.11735, 49.11421, 49.11308, 49.10173, 49.10218, 49.09836, 49.10275, 49.1014, 49.10342, 49.10331, 
  49.10095, 49.1005, 49.09252, 49.09207, 49.08825, 49.08813, 49.08543, 49.09083, 49.09443, 49.08735,
  51.26316, 51.12150)
LONGITUDE_VALUEs <- c(
  14.83152, 14.84131, 14.84749, 14.85282, 14.86277, 14.86672, 14.87599, 14.89694, 14.9002, 14.93315, 
  14.95771, 14.96355, 14.97779, 14.98345, 14.98775, 15.00183, 15.00217, 14.99959, 14.99839, 14.99393, 
  14.99633, 14.99582, 15.00663, 15.00595, 14.99908, 14.99874, 14.98947, 14.99496, 15.00149, 15.00956, 
  15.01401, 15.01281, 15.01556, 15.01092, 15.01007, 15.01762, 15.02106, 15.02191, 15.01539, 15.01161, 
  15.00646, 14.99135, 14.9886, 14.97607, 14.96749, 14.98689, 14.99682, 15.0085, 15.01433, 15.01657, 
  15.03133, 15.0358, 15.05744, 15.05795, 15.06774, 15.06894, 15.07615, 15.07667, 15.09041, 15.09436, 
  15.09831, 15.10617, 15.10772, 15.09639, 15.10343, 15.12197, 15.12833, 15.13519, 15.14224, 15.14275, 
  15.13279, 15.13451, 15.14241, 15.14172, 15.17126, 15.17469, 15.17435, 15.17606, 15.17555, 15.17126, 
  15.17795, 15.18001, 15.18328, 15.18929, 15.20041, 15.19612, 15.20436, 15.21226, 15.2181, 15.22669, 
  15.23751, 15.24266, 15.23699, 15.23991, 15.24352, 15.23888, 15.24798, 15.25468, 15.2667, 15.27408, 
  15.27683, 15.27339, 15.28782, 15.29194, 15.29005, 15.29057, 15.2782, 15.27752, 15.2691, 15.26773, 
  15.26996, 15.26652, 15.27047, 15.2703, 15.27668, 15.27664, 15.28952, 15.29227, 15.3096, 15.32797, 
  15.32866, 15.33845, 15.35682, 15.35888, 15.36987, 15.37158, 15.37622, 15.37193, 15.3697, 15.37433, 
  15.37262, 15.37365, 15.36884, 15.36575, 15.37279, 15.3721, 15.37363, 15.37191, 15.37294, 15.37002, 
  15.37431, 15.38015, 15.38445, 15.39303, 15.41466, 15.42221, 15.43853, 15.44986, 15.45037, 15.47527, 
  15.48006, 15.48762, 15.4938, 15.51011, 15.52368, 15.54219, 15.56159, 15.58237, 15.59061, 15.60178, 
  15.61654, 15.62134, 15.64126, 15.64607, 15.6483, 15.65998, 15.66702, 15.6835, 15.68794, 15.70957, 
  15.7252, 15.73602, 15.75934, 15.7788, 15.78905, 15.79008, 15.79884, 15.81567, 15.81979, 15.83181, 
  15.82992, 15.83164, 15.83008, 15.84634, 15.85132, 15.85184, 15.85596, 15.86334, 15.86025, 15.88427, 
  15.88479, 15.91931, 15.92652, 15.9327, 15.94111, 15.95312, 15.96599, 15.99174, 15.989, 15.9926, 
  15.99895, 15.99723, 16.00496, 16.0029, 16.00513, 16.00067, 16.0065, 16.00736, 16.01508, 16.02195, 
  16.01371, 16.00805, 15.99638, 15.98505, 16.00462, 16.01508, 16.01697, 16.02435, 16.04255, 16.05593, 
  16.05885, 16.05714, 16.06177, 16.06606, 16.06677, 16.08444, 16.08856, 16.09508, 16.10177, 16.11035, 
  16.11207, 16.12545, 16.12769, 16.13335, 16.13896, 16.14806, 16.16266, 16.17021, 16.1721, 16.17657, 
  16.17691, 16.17983, 16.17966, 16.18687, 16.19887, 16.21553, 16.21982, 16.22171, 16.22429, 16.22909, 
  16.23441, 16.24197, 16.24592, 16.25845, 16.26309, 16.26773, 16.27955, 16.28178, 16.28745, 16.29432, 
  16.30033, 16.30462, 16.31235, 16.31269, 16.31664, 16.32128, 16.3333, 16.3429, 16.34435, 16.3496, 
  16.34926, 16.35544, 16.36196, 16.3654, 16.36454, 16.37363, 16.37947, 16.37809, 16.38015, 16.39422, 
  16.40521, 16.41208, 16.42324, 16.42701, 16.43302, 16.43337, 16.44024, 16.44024, 16.44367, 16.4447, 
  16.42102, 16.40488, 16.40333, 16.40952, 16.41123, 16.3865, 16.39852, 16.39646, 16.40178, 16.39972, 
  16.40041, 16.39405, 16.3865, 16.37569, 16.36023, 16.35577, 16.35165, 16.34787, 16.34821, 16.3443, 
  16.33811, 16.33365, 16.33399, 16.32489, 16.32043, 16.31012, 16.3115, 16.30892, 16.3127, 16.31081, 
  16.30085, 16.30171, 16.29503, 16.28781, 16.28489, 16.27459, 16.27236, 16.26892, 16.26995, 16.27511, 
  16.2703, 16.26807, 16.26463, 16.25931, 16.24797, 16.25622, 16.24385, 16.23355, 16.23149, 16.23561, 
  16.23578, 16.2248, 16.22033, 16.23081, 16.23064, 16.23373, 16.23407, 16.23029, 16.23201, 16.22411, 
  16.2236, 16.22068, 16.22171, 16.21244, 16.20986, 16.20591, 16.19818, 16.1987, 16.19526, 16.19784, 
  16.20316, 16.2066, 16.20986, 16.20986, 16.21261, 16.21209, 16.21431, 16.21157, 16.21019, 16.22015, 
  16.23732, 16.24162, 16.24127, 16.24694, 16.25226, 16.25363, 16.25157, 16.25243, 16.2459, 16.24985, 
  16.26205, 16.26823, 16.26531, 16.26771, 16.27627, 16.27833, 16.2852, 16.2931, 16.2931, 16.29997, 
  16.30821, 16.31645, 16.32384, 16.34152, 16.34787, 16.35233, 16.35937, 16.36504, 16.36315, 16.36779, 
  16.36504, 16.36659, 16.36109, 16.36264, 16.37466, 16.38324, 16.39953, 16.40486, 16.41001, 16.4301, 
  16.43611, 16.43799, 16.44366, 16.44761, 16.46513, 16.4641, 16.46769, 16.46631, 16.48022, 16.48057, 
  16.48847, 16.48984, 16.49362, 16.49671, 16.50426, 16.50856, 16.50597, 16.50751, 16.51404, 16.51267, 
  16.5252, 16.53602, 16.54478, 16.54856, 16.54976, 16.5581, 16.55329, 16.55724, 16.5617, 16.55655, 
  16.55638, 16.55364, 16.55741, 16.55861, 16.55672, 16.55775, 16.55999, 16.56445, 16.55878, 16.5581, 
  16.56016, 16.56085, 16.57836, 16.57716, 16.58557, 16.58042, 16.58505, 16.57956, 16.58694, 16.59741, 
  16.60292, 16.61305, 16.61322, 16.62489, 16.63295, 16.64085, 16.67776, 16.68308, 16.70402, 16.72375, 
  16.72272, 16.72804, 16.72804, 16.74624, 16.75431, 16.76563, 16.78315, 16.78126, 16.7859, 16.79722, 
  16.79895, 16.8144, 16.82263, 16.82538, 16.83602, 16.8343, 16.84806, 16.85115, 16.86197, 16.86335, 
  16.87279, 16.87846, 16.88241, 16.88481, 16.88327, 16.88704, 16.89767, 16.8987, 16.9102, 16.91364, 
  16.92171, 16.92772, 16.93459, 16.93991, 16.94352, 16.94953, 16.95631, 16.95777, 16.9665, 16.96135, 
  16.96187, 16.97629, 16.98024, 16.98076, 16.99226, 16.99673, 17.0151, 17.02025, 17.02815, 17.0151, 
  17.01047, 17.01185, 17.0024, 17.0012, 17.00548, 17.00926, 17.01802, 17.01716, 17.01956, 17.00909, 
  17.00377, 17.00257, 16.99381, 16.97322, 16.96772, 16.95811, 16.94626, 16.9466, 16.94025, 16.9339, 
  16.93853, 16.93596, 16.93716, 16.92962, 16.91948, 16.91468, 16.91932, 16.91674, 16.91674, 16.91434, 
  16.91519, 16.91021, 16.91107, 16.90815, 16.89613, 16.89306, 16.88155, 16.86387, 16.86026, 16.86043, 
  16.86885, 16.86885, 16.87673, 16.87518, 16.88068, 16.88085, 16.88634, 16.89424, 16.89768, 16.90798, 
  16.91708, 16.9212, 16.94112, 16.97082, 16.97492, 16.99879, 17.00583, 17.01304, 17.01853, 17.02334, 
  17.02987, 17.0376, 17.03983, 17.05247, 17.07452, 17.08187, 17.08393, 17.11055, 17.11055, 17.12445, 
  17.14297, 17.15293, 17.15688, 17.1622, 17.17903, 17.18401, 17.20428, 17.19912, 17.20049, 17.21011, 
  17.22763, 17.23449, 17.24684, 17.24701, 17.26436, 17.27397, 17.29045, 17.30059, 17.3119, 17.32822, 
  17.34882, 17.34951, 17.34007, 17.33698, 17.349, 17.35363, 17.3514, 17.35191, 17.34573, 17.34625, 
  17.34349, 17.34898, 17.33679, 17.34366, 17.3428, 17.34967, 17.35705, 17.36306, 17.36169, 17.36459, 
  17.3876, 17.40083, 17.40581, 17.42143, 17.42315, 17.42761, 17.4319, 17.42744, 17.42967, 17.4386, 
  17.45577, 17.4568, 17.45542, 17.45766, 17.46315, 17.49161, 17.51874, 17.5239, 17.52613, 17.54811, 
  17.55893, 17.56339, 17.56545, 17.57919, 17.58074, 17.59016, 17.59737, 17.59771, 17.61008, 17.65059, 
  17.6578, 17.66398, 17.66948, 17.67566, 17.67669, 17.68973, 17.68716, 17.68715, 17.72115, 17.72801, 
  17.75033, 17.75256, 17.74896, 17.74861, 17.74346, 17.7414, 17.73678, 17.73592, 17.72647, 17.72441, 
  17.76545, 17.7567, 17.76031, 17.75756, 17.75962, 17.74794, 17.74554, 17.73739, 17.72349, 17.718, 
  17.71697, 17.71062, 17.71079, 17.70375, 17.70596, 17.70476, 17.68382, 17.67902, 17.66872, 17.62977, 
  17.62651, 17.60334, 17.59287, 17.60591, 17.60919, 17.64196, 17.64832, 17.67715, 17.6835, 17.70444, 
  17.73036, 17.72866, 17.74959, 17.75182, 17.75903, 17.75389, 17.76213, 17.76075, 17.77225, 17.77053, 
  17.77208, 17.77019, 17.77465, 17.77758, 17.7702, 17.77689, 17.78598, 17.78856, 17.79353, 17.79594, 
  17.82787, 17.83662, 17.82649, 17.83799, 17.8411, 17.84899, 17.85585, 17.86032, 17.86773, 17.88954, 
  17.90482, 17.92131, 17.9534, 17.96095, 17.96971, 17.98379, 17.98791, 18.00491, 18.00626, 18.03356, 
  18.04507, 18.04593, 18.04062, 18.04731, 18.04268, 18.048, 18.04508, 18.02568, 18.01795, 18.00936, 
  18.00336, 18.00696, 18.00524, 18.01143, 18.02001, 18.03391, 18.03992, 18.0461, 18.0492, 18.06156, 
  18.06413, 18.06774, 18.06549, 18.08816, 18.08919, 18.08455, 18.10293, 18.09262, 18.10413, 18.11443, 
  18.11646, 18.13312, 18.13638, 18.14737, 18.15441, 18.16317, 18.16694, 18.17227, 18.16849, 18.16798, 
  18.17347, 18.17484, 18.1903, 18.1927, 18.20627, 18.21125, 18.21211, 18.2145, 18.21433, 18.22186, 
  18.2356, 18.2471, 18.25243, 18.26324, 18.26908, 18.27767, 18.28162, 18.27903, 18.28916, 18.29946, 
  18.29964, 18.31458, 18.31646, 18.3223, 18.33106, 18.32952, 18.33398, 18.33381, 18.3381, 18.34068, 
  18.34512, 18.34958, 18.34992, 18.34031, 18.3422, 18.35113, 18.35198, 18.34889, 18.34563, 18.34082, 
  18.3343, 18.33447, 18.33275, 18.33705, 18.35765, 18.35868, 18.36452, 18.36692, 18.37431, 18.37688, 
  18.392, 18.42119, 18.43044, 18.4325, 18.43782, 18.44504, 18.46375, 18.46581, 18.47904, 18.48347, 
  18.48433, 18.4912, 18.49481, 18.50545, 18.5137, 18.53293, 18.54752, 18.5398, 18.54066, 18.54289, 
  18.53945, 18.54289, 18.55044, 18.55147, 18.55972, 18.57277, 18.575, 18.57431, 18.57568, 18.57328, 
  18.57586, 18.5738, 18.57981, 18.57809, 18.57809, 18.5707, 18.57431, 18.56744, 18.56452, 18.57105, 
  18.56933, 18.57895, 18.58032, 18.59097, 18.59595, 18.60024, 18.6059, 18.60367, 18.59371, 18.5834, 
  18.59027, 18.56898, 18.56916, 18.57551, 18.5774, 18.58272, 18.58152, 18.58443, 18.59336, 18.59268, 
  18.60005, 18.59645, 18.60366, 18.60349, 18.61087, 18.61018, 18.61481, 18.61206, 18.61464, 18.62631, 
  18.63026, 18.62683, 18.62855, 18.62562, 18.62905, 18.62528, 18.63592, 18.63592, 18.65172, 18.65275, 
  18.65825, 18.66683, 18.66905, 18.67695, 18.67987, 18.6924, 18.70923, 18.70803, 18.71146, 18.70837, 
  18.71387, 18.71473, 18.71782, 18.71713, 18.72349, 18.72812, 18.73928, 18.74009, 18.74575, 18.74987, 
  18.76343, 18.76703, 18.7696, 18.77372, 18.78162, 18.7938, 18.80495, 18.81062, 18.8065, 18.80942, 
  18.80581, 18.80942, 18.81319, 18.81216, 18.8168, 18.8168, 18.82074, 18.81783, 18.82486, 18.82263, 
  18.82881, 18.83945, 18.83499, 18.83602, 18.83173, 18.83156, 18.8355, 18.83241, 18.83756, 18.8367, 
  18.83876, 18.84528, 18.84563, 18.84906, 18.84872, 18.85215, 18.85918, 18.85746, 18.84871, 18.847, 
  18.84339, 18.84408, 18.83859, 18.8367, 18.84082, 18.84339, 18.84717, 18.85129, 18.85098,
  18.85098, 18.86915, 18.87567, 18.88614, 18.89729, 18.9138, 18.92856, 18.9301, 18.93439, 18.94555, 
  18.94881, 18.95344, 18.95876, 18.96236, 18.96408, 18.96871, 18.97249, 18.97163, 18.97386, 18.96563, 
  18.96169, 18.97044, 18.96392, 18.96649, 18.96101, 18.97473, 18.97869, 18.98435, 18.9895, 18.98572, 
  18.96839, 18.96839, 18.97354, 18.97096, 18.98057, 18.99035, 19.00254, 19.00923, 19.01541, 19.02622, 
  19.04595, 19.04492, 19.05194, 19.05367, 19.07034, 19.07206, 19.09248, 19.09317, 19.10243, 19.10741, 
  19.11585, 19.12151, 19.13301, 19.13341, 19.13821, 19.14594, 19.14629, 19.15264, 19.17599, 19.18819, 
  19.19797, 19.1906, 19.19351, 19.18509, 19.19745, 19.20913, 19.21875, 19.21926, 19.22476, 19.22834, 
  19.22748, 19.21975, 19.22078, 19.22576, 19.22628, 19.23229, 19.22749, 19.23539, 19.23693, 19.23367, 
  19.23453, 19.26215, 19.26078, 19.2649, 19.27366, 19.28276, 19.29718, 19.30903, 19.31865, 19.31916, 
  19.33063, 19.33321, 19.34935, 19.36377, 19.36927, 19.36515, 19.37442, 19.37047, 19.38438, 19.39039, 
  19.39606, 19.39983, 19.40481, 19.40756, 19.40739, 19.41048, 19.42405, 19.43212, 19.44447, 19.44533, 
  19.44189, 19.44361, 19.44756, 19.45615, 19.46748, 19.47521, 19.46765, 19.47673, 19.47828, 19.49287, 
  19.497, 19.51073, 19.5188, 19.53031, 19.52669, 19.52978, 19.52892, 19.53545, 19.53476, 19.54178, 
  19.5423, 19.55243, 19.55415, 19.56153, 19.56119, 19.56617, 19.5684, 19.56634, 19.58058, 19.58092, 
  19.59621, 19.61183, 19.62574, 19.64103, 19.64274, 19.63759, 19.63759, 19.64857, 19.63793, 19.63209, 
  19.64976, 19.69785, 19.70984, 19.70881, 19.71602, 19.71688, 19.73096, 19.74555, 19.76788, 19.79072, 
  19.7883, 19.79156, 19.79138, 19.80255, 19.80375, 19.801, 19.80255, 19.79859, 19.79379, 19.79842, 
  19.79877, 19.80563, 19.79138, 19.79443, 19.81009, 19.82348, 19.80683, 19.80081, 19.79292, 19.79121, 
  19.78881, 19.79053, 19.784, 19.77816, 19.7701, 19.76632, 19.76632, 19.76941, 19.76667, 19.7677, 
  19.75808, 19.7622, 19.77817, 19.78298, 19.7951, 19.80608, 19.81981, 19.82856, 19.83491, 19.84023, 
  19.84092, 19.85005, 19.87013, 19.8703, 19.88094, 19.88454, 19.88712, 19.90222, 19.90136, 19.90514, 
  19.90274, 19.92299, 19.9719, 19.98219, 19.99921, 20.01036, 20.00658, 20.02254, 20.04041, 20.04179, 
  20.07679, 20.08846, 20.08469, 20.0876, 20.08607, 20.09568, 20.10203, 20.09826, 20.10135, 20.10135, 
  20.11267, 20.11267, 20.12297, 20.12932, 20.12726, 20.13258, 20.12984, 20.13636, 20.13379, 20.13876, 
  20.14014, 20.14494, 20.14546, 20.15163, 20.15387, 20.15635, 20.15824, 20.17592, 20.16717, 20.17352, 
  20.17077, 20.18451, 20.19033, 20.19016, 20.19497, 20.20407, 20.21351, 20.21369, 20.22244, 20.23172, 
  20.24165, 20.24182, 20.24904, 20.25316, 20.25346, 20.26913, 20.27153, 20.29334, 20.31206, 20.32406, 
  20.3232, 20.32595, 20.32114, 20.3311, 20.32131, 20.31736, 20.31719, 20.32217, 20.32664, 20.33522, 
  20.3378, 20.33917, 20.34742, 20.35137, 20.36012, 20.36988, 20.36988, 20.37537, 20.38138, 20.3807, 
  20.39272, 20.41384, 20.41418, 20.41882, 20.42809, 20.4305, 20.43548, 20.4341, 20.43754, 20.43393, 
  20.42844, 20.42947, 20.43668, 20.43822, 20.44269, 20.44664, 20.45145, 20.44475, 20.47529, 20.48079, 
  20.5062, 20.50586, 20.5117, 20.52112, 20.53348, 20.54619, 20.55907, 20.56422, 20.5759, 20.58019, 
  20.58689, 20.59376, 20.60214, 20.60077, 20.60764, 20.61382, 20.61073, 20.61485, 20.62, 20.62257, 
  20.62171, 20.62446, 20.63751, 20.64266, 20.64232, 20.65194, 20.66121, 20.66533, 20.6655, 20.66994, 
  20.67269, 20.68625, 20.68952, 20.69759, 20.70875, 20.7127, 20.71819, 20.723, 20.72781, 20.73193, 
  20.73554, 20.74447, 20.74636, 20.74309, 20.74258, 20.75011, 20.75561, 20.75887, 20.74839, 20.74788, 
  20.76247, 20.75783, 20.76247, 20.78033, 20.78909, 20.78153, 20.78205, 20.79012, 20.79662, 20.80815, 
  20.8109, 20.80609, 20.80489, 20.80076, 20.79699, 20.80265, 20.80111, 20.79578, 20.79853, 20.80986, 
  20.81433, 20.81519, 20.81914, 20.81897, 20.82618, 20.83425, 20.83768, 20.84352, 20.8507, 20.85379, 
  20.86117, 20.86907, 20.87079, 20.87834, 20.88263, 20.87989, 20.87353, 20.87199, 20.87954, 20.88315, 
  20.88727, 20.88727, 20.89706, 20.90633, 20.90736, 20.90341, 20.90255, 20.91062, 20.91011, 20.91783, 
  20.92401, 20.92435, 20.94101, 20.94376, 20.95389, 20.95852, 20.96247, 20.96316, 20.97363, 20.98651, 
  20.99422, 20.99439, 20.98958, 20.98804, 20.99782, 21.00417, 21.00984, 21.00572, 21.01224, 21.01654, 
  21.01996, 21.02529, 21.0258, 21.03507, 21.03456, 21.03988, 21.04325, 21.04916, 21.05414, 21.06684, 
  21.07491, 21.07818, 21.07783, 21.09432, 21.10408, 21.06649, 21.06855, 21.05498, 21.04674, 21.05979, 
  21.06305, 21.07267, 21.08211, 21.09637, 21.11302, 21.12213, 21.15593, 21.15466, 21.16495, 21.17096, 
  21.18023, 21.18074, 21.184, 21.1919, 21.20117, 21.20838, 21.21284, 21.2276, 21.22313, 21.22899, 
  21.23414, 21.2398, 21.25919, 21.2664, 21.26674, 21.27755, 21.30745, 21.31139, 21.31603, 21.32255, 
  21.32941, 21.33748, 21.34468, 21.35515, 21.36648, 21.37248, 21.38501, 21.39222, 21.39376, 21.40443, 
  21.40649, 21.43497, 21.44922, 21.45505, 21.47118, 21.48079, 21.48645, 21.49594, 21.51568, 21.52353, 
  21.51773, 21.52305, 21.52323, 21.53215, 21.5524, 21.55635, 21.56544, 21.57488, 21.57934, 21.58337, 
  21.59127, 21.59591, 21.60174, 21.60655, 21.60775, 21.61683, 21.61958, 21.63057, 21.64428, 21.64963, 
  21.65631, 21.65717, 21.67538, 21.68156, 21.69907, 21.70852, 21.70903, 21.71539, 21.72343, 21.72617, 
  21.73442, 21.74231, 21.76378, 21.76498, 21.76292, 21.76756, 21.77219, 21.77614, 21.78937, 21.78851, 
  21.79143, 21.78748, 21.80087, 21.81355, 21.82557, 21.84051, 21.84326, 21.84893, 21.84772, 21.85992, 
  21.87486, 21.88858, 21.89219, 21.90043, 21.90404, 21.90764, 21.92033, 21.93269, 21.94454, 21.94917, 
  21.95177, 21.96154, 21.96583, 21.9648, 21.97836, 21.97818, 21.98264, 21.98316, 21.98934, 21.99363, 
  22.00033, 22.01148, 22.02316, 22.03535, 22.03294, 22.03037, 22.04238, 22.03723, 22.03877, 22.03362, 
  22.03483, 22.02951, 22.05166, 22.05956, 22.06076, 22.06746, 22.09352, 22.0985, 22.11773, 22.12495, 
  22.1301, 22.14384, 22.14281, 22.18657, 22.18709, 22.19224, 22.21387, 22.21679, 22.22246, 22.23156, 
  22.2362, 22.22624, 22.22675, 22.22434, 22.23551, 22.24014, 22.24701, 22.28202, 22.29747, 22.30657, 
  22.31327, 22.31997, 22.33336, 22.36217, 22.36629, 22.36973, 22.37831, 22.37763, 22.39102, 22.39089, 
  22.396, 22.39754, 22.40235, 22.41386, 22.41695, 22.4276, 22.43446, 22.43859, 22.44305, 22.45833, 
  22.46243, 22.46758, 22.4772, 22.48338, 22.48595, 22.4899, 22.49952, 22.50364, 22.54073, 22.55651,
  22.57354, 15.05551)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
if (st_is_valid(Geo) == FALSE) {Geo <- st_make_valid(Geo)}
Geo_0 <- Geometric_Operations(Geo_4, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_4 <- st_set_geometry(Geo_4, Geo_0)
Geo_4 <- st_union(Geo_4, Geo)
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
Geo_4 <- Geo_4 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("CZECHIA", "SLOVAKIA", "AUSTRIA", "POLAND"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3, Geo_4)

PEOPLE’S DEMOCRATIC REPUBLIC OF ETHIOPIA (1987–1991) in M49_CODEs \(=\) ETHIOPIA \(+\) ERITREA in GeoDATA.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "ETHIOPIA")
Geo_2 <- GeoDATA %>% filter(NAME == "ERITREA")
Geo_3 <- GeoDATA %>% filter(NAME == "SUDAN")
Geo_4 <- GeoDATA %>% filter(NAME == "DJIBOUTI")
Geo_5 <- GeoDATA %>% filter(NAME == "SOMALIA")
Geo_6 <- GeoDATA %>% filter(NAME == "KENYA")
Geo_7 <- GeoDATA %>% filter(NAME == "UGANDA")
Geo_8 <- GeoDATA %>% filter(NAME == "UNITED REPUBLIC OF TANZANIA")

##### ETHIOPIA #####
LATITUDE_VALUEs <- c(
  9.55305, 9.75824, 9.90589, 10.02999, 10.1172, 10.16435, 10.18226, 10.19493, 10.2125, 10.23176,
  10.24629, 10.52236, 10.53552, 10.57045, 10.5718, 10.63811, 10.78452, 10.88787, 10.84741, 10.8351,
  10.81234, 10.80239, 10.79514, 10.76917, 10.75973, 10.75282, 10.74472, 10.7292, 10.69328, 10.68619,
  10.684, 10.6872, 10.72094, 10.73038, 10.73443, 10.72634, 10.73342, 10.7604, 10.78587, 10.86461,
  10.91552, 10.95681, 10.97248, 11.17447, 11.19889, 11.23274, 11.2388, 11.23762, 11.24772, 11.24587,
  11.24991, 11.24924, 11.25412, 11.25462, 11.26169, 11.26927, 11.28807, 11.54249, 11.58419, 11.65448,
  11.68911, 11.71768, 11.7392, 11.77079, 11.82658, 11.86321, 11.89781, 11.93779, 11.97641, 11.99891,
  12.03518, 12.08386, 12.1708, 12.17986, 12.2104, 12.25066, 12.595, 12.59533, 12.61778, 12.66602,
  12.72435, 12.71397, 12.71565, 12.72469, 12.72469, 12.69773, 12.69337, 12.70526, 12.87635, 12.89141,
  12.9222, 12.9304, 12.9329, 12.93692, 12.94194, 12.94595, 12.94913, 12.95532, 12.95833, 12.96135,
  12.96335, 12.9667, 12.98226, 12.98309, 12.98644, 13.0122, 13.02658, 13.36785, 13.56818, 13.60723,
  13.64426, 13.66511, 13.83969, 13.95734, 14.21208, 14.25767,
  14.26106, 14.26588, 14.27237, 14.27503, 14.28435, 14.28468, 14.29283, 14.28568, 14.2915, 14.29167,
  14.29666, 14.29599, 14.31113, 14.31362, 14.30813, 14.31129, 14.30131, 14.30065, 14.31196, 14.31246,
  14.3226, 14.31895, 14.32094, 14.31678, 14.31845, 14.30847, 14.31262, 14.3093, 14.3098, 14.32161,
  14.32028, 14.32144, 14.31479, 14.31628, 14.30747, 14.29998, 14.29649, 14.29283, 14.29516, 14.29266,
  14.28385, 14.28152, 14.26555, 14.26239, 14.25124, 14.25191, 14.27021, 14.26355, 14.27154, 14.26971,
  14.27503, 14.28618, 14.291, 14.31628, 14.32227, 14.33458, 14.36086, 14.36368, 14.37433, 14.38364,
  14.39644, 14.41024, 14.40891, 14.42005, 14.41772, 14.41905, 14.41673, 14.42554, 14.43235, 14.43983,
  14.44515, 14.43435, 14.44133, 14.44283, 14.44682, 14.44765, 14.43302, 14.4272, 14.41423, 14.41589,
  14.41224, 14.40941, 14.40276, 14.39894, 14.38746, 14.38347, 14.37466, 14.372, 14.37499, 14.36501,
  14.36618, 14.35936, 14.35587, 14.34206, 14.34256, 14.33757, 14.33857, 14.33458, 14.32277, 14.31529,
  14.30298, 14.28851, 14.29017, 14.2752, 14.27337, 14.26472, 14.26291, 14.25507, 14.25091, 14.25573,
  14.25207, 14.23094, 14.22046, 14.2148, 14.21413, 14.20249, 14.19733, 14.18418, 14.18085, 14.18634,
  14.18135, 14.18518, 14.18451, 14.89436, 14.8932, 14.88026, 14.87462, 14.87014, 14.86981, 14.86466,
  14.86217, 14.85187, 14.84755, 14.83843, 14.83677, 14.83229, 14.83279, 14.82565, 14.81486, 14.80673,
  14.80009, 14.80325, 14.81105, 14.81038, 14.80059, 14.79213, 14.77719, 14.77437, 14.77868, 14.77769,
  14.7669, 14.76872, 14.76026, 14.74332, 14.73768, 14.73785, 14.71892, 14.71593, 14.71892, 14.71427,
  14.7166, 14.71145, 14.70796, 14.69634, 14.69783, 14.69152, 14.68372, 14.67625, 14.6809, 14.6809,
  14.68604, 14.67791, 14.69601, 14.69451, 14.68936, 14.69269, 14.69202, 14.68704, 14.68853, 14.69202,
  14.68853, 14.6789, 14.68056, 14.66977, 14.66363, 14.65449, 14.64336, 14.63969, 14.6279, 14.62424,
  14.61843, 14.61295, 14.61561, 14.61494, 14.60946, 14.60747, 14.60033, 14.58936, 14.58255, 14.5774,
  14.5671, 14.56162, 14.55715, 14.54136, 14.53653, 14.53553, 14.52556, 14.51825, 14.5116, 14.51642,
  14.49066, 14.49033, 14.48534, 14.4875, 14.48401, 14.48883, 14.48168, 14.46988, 14.47138, 14.46772,
  14.47188, 14.46988, 14.46141, 14.45276, 14.44827, 14.43564, 14.42966, 14.41868, 14.41286, 14.41752,
  14.41469, 14.42084, 14.42018, 14.42467, 14.4245, 14.42018, 14.42118, 14.41403, 14.41835, 14.40655,
  14.41802, 14.42749, 14.425, 14.43148, 14.42966, 14.43631, 14.43618, 14.44416, 14.44166, 14.44416,
  14.43568, 14.44499, 14.44266, 14.45014, 14.44864, 14.45629, 14.45563, 14.46011, 14.46011, 14.46527,
  14.46543, 14.47092, 14.46676, 14.46826, 14.46294, 14.46543, 14.46178, 14.46743, 14.47208, 14.46776,
  14.47225, 14.46676, 14.4769, 14.47707, 14.48854, 14.48588, 14.4902, 14.49552, 14.50017, 14.49718,
  14.502, 14.49951, 14.50333, 14.50432, 14.51762, 14.52344, 14.52859, 14.53457, 14.53856, 14.5364,
  14.54088, 14.53573, 14.54271, 14.54454, 14.56182, 14.56248, 14.58392, 14.59106, 14.59571, 14.60169,
  14.61133, 14.6203, 14.63292, 14.63209, 14.63989, 14.63375, 14.64039, 14.64023, 14.63607, 14.64039,
  14.63458, 14.64654, 14.64122, 14.64986, 14.64969, 14.65335, 14.64853, 14.63408, 14.60717, 14.59189,
  14.58441, 14.56531, 14.56448, 14.54404, 14.54321, 14.53557, 14.53474, 14.52244, 14.52044, 14.49751,
  14.49053, 14.48854, 14.48388, 14.47408, 14.46493, 14.46128, 14.45313, 14.45031, 14.44615, 14.44781,
  14.44233, 14.43867, 14.41384, 14.4154, 14.41007, 14.4134, 14.41939, 14.42604, 14.43668, 14.45097,
  14.45795, 14.46626, 14.47042, 14.47059, 14.4661, 14.47059, 14.47607, 14.49385, 14.4892, 14.48338,
  14.48372, 14.49602, 14.49535, 14.50898, 14.51579, 14.52742, 14.53274, 14.52626, 14.53972, 14.53922,
  14.54437, 14.5354, 14.52593, 14.52593, 14.52011, 14.52011, 14.51596, 14.51596, 14.50516, 14.50831,
  14.49967, 14.50516, 14.50283, 14.48372, 14.48687, 14.48405, 14.48737, 14.48521, 14.49219, 14.49169,
  14.50098, 14.51228, 14.53605, 14.53887, 14.55034, 14.56579, 14.56479, 14.58489, 14.58489, 14.58971,
  14.58755, 14.58955, 14.58921, 14.59752, 14.59951, 14.60666, 14.6035, 14.59669, 14.602, 14.59968,
  14.60483, 14.59785, 14.59735, 14.59104, 14.59769, 14.58905, 14.59287, 14.5824, 14.57426, 14.56512,
  14.56363, 14.55499, 14.55665, 14.54984, 14.54668, 14.53538, 14.53605, 14.51129, 14.51112, 14.50298,
  14.50281, 14.48569, 14.48337, 14.49168, 14.4566, 14.4345, 14.42635, 14.4202, 14.41554, 14.41488,
  14.42552, 14.42635, 14.43134, 14.43898, 14.44414, 14.44827, 14.45559, 14.44811, 14.45609, 14.47288,
  14.47504, 14.47088, 14.47554, 14.47736, 14.48684, 14.48684, 14.49232, 14.49515, 14.50246, 14.50296,
  14.50894, 14.53503, 14.54051, 14.54301, 14.54832, 14.54666, 14.53902, 14.53885, 14.38726, 14.41087,
  14.36664, 14.354, 14.30693, 14.26917, 14.17212, 14.13484, 14.0799, 14.01762, 13.88634, 13.82901,
  13.7273, 13.70162, 13.61021, 13.57918, 13.5004, 13.48839, 13.44498, 13.38554, 13.32274, 13.27295,
  13.23586, 13.16634, 13.07472, 13.0105, 12.92218, 12.86796, 12.80101, 12.77691, 12.76284, 12.63423,
  12.46809,
  12.43876, 12.43289, 12.42216, 12.37136, 12.29942, 12.25379, 12.17024, 12.14339, 12.11486, 12.07592,
  12.08028, 12.00809, 11.98022, 11.88247, 11.81124, 11.79208, 11.7541, 11.73158, 11.65594, 11.63643,
  11.62702, 11.61592, 11.57153, 11.54596, 11.49281, 11.32151, 11.28852, 11.00355, 10.9931, 10.97911,
  10.96226, 10.9631, 10.939, 10.93967, 10.92518, 10.91473, 10.9176, 10.91422, 10.92889, 10.92366,
  10.92602, 10.95383, 10.95939, 10.97069, 10.97271, 10.97928, 10.9813, 10.97877, 10.97456, 10.97018,
  10.97574, 10.97355, 10.96428, 10.97153, 10.97776, 10.98467, 10.99327, 10.9872, 10.99832, 11.0022,
  10.99664, 10.99832, 10.98198, 11.04028, 11.06993, 11.08307, 11.09688, 11.08846, 11.077, 11.0797,
  11.06353, 11.05611, 11.06993, 11.06487, 11.06824, 11.07734, 11.08037, 11.07431, 11.06083, 11.05847,
  11.04601, 11.03421, 11.02545, 11.01804, 11.00793, 10.98602, 10.9813, 10.96849, 10.97321, 10.96917,
  10.98029, 10.98535, 10.98467,
  10.9466, 10.91205, 10.87008, 10.8367, 10.82237, 10.72118, 10.65067, 10.64781, 10.62233, 10.57745,
  10.52868, 10.52733, 10.51298, 10.47011, 10.45578, 10.4031, 10.34637, 10.27712, 10.23977, 10.22778,
  10.18757, 10.12708, 10.1019, 10.09277, 10.08331, 10.07182, 10.05931, 10.05153, 10.0397, 10.03379,
  9.96566, 9.96126, 9.90766, 9.89464, 9.88669, 9.88618, 9.89396, 9.89988, 9.89904, 9.89024,
  9.88162, 9.84272, 9.60602, 9.60263, 9.57352, 9.56404, 9.55219, 9.53644, 9.51173, 9.47109,
  9.4479, 9.43486, 9.41504, 9.40674, 9.39895, 9.38117, 9.37728, 9.37118, 9.37084, 9.35797,
  9.35848, 9.3561, 9.35661, 8.99904, 8.99091, 8.46226, 8.00151, 8.00015, 7.56066, 7.38259,
  6.9081, 6.51871, 5.95634, 5.53413, 4.94563, 4.9234, 4.92716, 4.92237, 4.92921, 4.9234,
  4.93332, 4.93229, 4.92579, 4.92545, 4.94118, 4.94187, 4.95042, 4.9405, 4.94358, 4.90287,
  4.88885, 4.8868, 4.84301, 4.83548, 4.83548, 4.79409, 4.69384, 4.62985, 4.57373, 4.54224,
  4.46694, 4.37863, 4.31735, 4.26497, 4.26497, 4.25436, 4.21601, 4.20163, 4.20334, 4.1893,
  4.17903, 4.17903, 4.16225, 4.09274, 4.09616, 4.08159, 4.07936, 4.08022, 4.05608, 4.04443,
  4.02816, 4.01652, 4.00265, 3.99563, 3.99683, 3.98638, 3.98261, 3.98212)
LONGITUDE_VALUEs <- c(
  34.08583, 34.13993, 34.2074, 34.2304, 34.32292, 34.32155, 34.33648, 34.33837, 34.3339, 34.34866,
  34.34833, 34.29288, 34.28224, 34.29768, 34.30197, 34.35708, 34.43948, 34.59432, 34.65132, 34.67415,
  34.69526, 34.71105, 34.71826, 34.73216, 34.75551, 34.76735, 34.77439, 34.77697, 34.77182, 34.77285,
  34.78383, 34.78933, 34.79774, 34.80941, 34.82434, 34.85216, 34.86366, 34.87481, 34.86812, 34.97541,
  34.9785, 34.93302, 34.93782, 35.00511, 35.00734, 34.96906, 34.94314, 34.92752, 34.93009, 34.93404,
  34.93541, 34.94125, 34.94235, 34.94819, 34.94459, 34.94682, 34.97288, 35.08963, 35.0965, 35.06251,
  35.06972, 35.05701, 35.05839, 35.06664, 35.09583, 35.1291, 35.23249, 35.27023, 35.26886, 35.31037,
  35.34781, 35.34507, 35.38627, 35.41443, 35.43882, 35.43813, 35.64891, 35.68017, 35.69974, 35.69906,
  36.00629, 36.02914, 36.04356, 36.06658, 36.08049, 36.09899, 36.11496, 36.14227, 36.16509, 36.1481,
  36.13195, 36.13574, 36.14346, 36.14363, 36.14638, 36.14226, 36.14655, 36.14586, 36.15187, 36.15136,
  36.15445, 36.15514, 36.16458, 36.16063, 36.16355, 36.16029, 36.15548, 36.24834, 36.39838, 36.4123,
  36.40663, 36.41075, 36.48663, 36.44645, 36.52834, 36.56027,
  36.56059, 36.5666, 36.56403, 36.55836, 36.55476, 36.56386, 36.58205, 36.58977, 36.59561, 36.60025,
  36.6042, 36.61501, 36.62565, 36.63577, 36.65208, 36.66426, 36.67696, 36.69432, 36.71252, 36.73019,
  36.73998, 36.77071, 36.78135, 36.81516, 36.8282, 36.83232, 36.83558, 36.83867, 36.84382, 36.85223,
  36.86238, 36.86822, 36.88023, 36.89585, 36.901, 36.93636, 36.93842, 36.94683, 36.95884, 36.97291,
  36.97634, 36.98373, 36.99163, 36.99988, 37.01309, 37.02013, 37.04553, 37.06595, 37.07693, 37.08691,
  37.09875, 37.09812, 37.10739, 37.10567, 37.10928, 37.10087, 37.11083, 37.11701, 37.11684, 37.12526,
  37.12749, 37.13538, 37.14465, 37.15719, 37.16406, 37.17041, 37.17557, 37.1982, 37.20644, 37.20764,
  37.22963, 37.24611, 37.2626, 37.28727, 37.29002, 37.312, 37.31544, 37.33502, 37.33948, 37.34962,
  37.35116, 37.3472, 37.34892, 37.35974, 37.36335, 37.37382, 37.3709, 37.37468, 37.38121, 37.38327,
  37.39306, 37.39031, 37.38086, 37.38035, 37.39374, 37.39941, 37.40353, 37.4049, 37.39923, 37.40473,
  37.39287, 37.40679, 37.41451, 37.42618, 37.43528, 37.4406, 37.44728, 37.44679, 37.45091, 37.46482,
  37.47203, 37.47099, 37.46533, 37.46653, 37.47769, 37.48213, 37.49673, 37.49467, 37.50704, 37.51751,
  37.52352, 37.52626, 37.52798, 37.91095, 37.92108, 37.92177, 37.9319, 37.93121, 37.93757, 37.93978,
  37.94459, 37.94407, 37.94871, 37.94837, 37.9609, 37.96159, 37.96691, 37.96673, 37.9712, 37.96776,
  37.96862, 37.97892, 37.98167, 37.98614, 37.98545, 37.99112, 37.98889, 37.99627, 37.99764, 38.00125,
  38.00176, 38.01275, 38.0234, 38.01533, 38.02182, 38.02818, 38.04432, 38.05772, 38.06648, 38.07884,
  38.0931, 38.09378, 38.10615, 38.10993, 38.11384, 38.13514, 38.13651, 38.1427, 38.15249, 38.17172,
  38.17928, 38.18666, 38.19027, 38.19727, 38.20449, 38.20964, 38.21599, 38.21891, 38.22956, 38.23059,
  38.24382, 38.24725, 38.25756, 38.26611, 38.2649, 38.2692, 38.26696, 38.27538, 38.26886, 38.2716,
  38.26851, 38.2807, 38.28362, 38.29118, 38.29049, 38.29839, 38.29633, 38.31333, 38.31486, 38.32018,
  38.31572, 38.32104, 38.31863, 38.33083, 38.33168, 38.34044, 38.34748, 38.34439, 38.34748, 38.35796,
  38.36569, 38.37221, 38.37479, 38.38337, 38.38973, 38.39883, 38.40139, 38.40087, 38.40568, 38.41461,
  38.41787, 38.42526, 38.42285, 38.43024, 38.42868, 38.43177, 38.44637, 38.44551, 38.45513, 38.47264,
  38.47694, 38.47934, 38.48295, 38.48432, 38.48673, 38.48741, 38.49321, 38.49888, 38.50987, 38.52052,
  38.52636, 38.54937, 38.55452, 38.5571, 38.57015, 38.5717, 38.5816, 38.60393, 38.6053, 38.61063,
  38.61904, 38.63375, 38.64662, 38.65743, 38.66739, 38.66859, 38.67974, 38.68027, 38.68679, 38.68971,
  38.70052, 38.70447, 38.70841, 38.71167, 38.72008, 38.7254, 38.7345, 38.7546, 38.75374, 38.7673,
  38.77519, 38.7963, 38.80883, 38.81913, 38.81913, 38.82584, 38.8406, 38.84283, 38.85038, 38.87389,
  38.87561, 38.88436, 38.88934, 38.89998, 38.91699, 38.91734, 38.92661, 38.92506, 38.93004, 38.93193,
  38.93707, 38.95304, 38.95973, 38.97878, 38.98858, 38.99252, 39.00531, 39.00385, 39.01724, 39.01604,
  39.01914, 39.01226, 39.02307, 39.02548, 39.0343, 39.04272, 39.05302, 39.06522, 39.07363, 39.08531,
  39.09678, 39.11602, 39.12993, 39.13938, 39.14621, 39.15428, 39.16819, 39.15738, 39.15806, 39.17659,
  39.17779, 39.20561, 39.24151, 39.24168, 39.24802, 39.24527, 39.2499, 39.25299, 39.25969, 39.26467,
  39.26312, 39.2669, 39.26535, 39.25008, 39.24458, 39.23668, 39.23496, 39.22741, 39.22826, 39.23239,
  39.23084, 39.2365, 39.24443, 39.24904, 39.25007, 39.26656, 39.26552, 39.27119, 39.27342, 39.28407,
  39.2942, 39.29472, 39.30176, 39.32563, 39.34637, 39.34276, 39.34242, 39.32851, 39.34362, 39.35221,
  39.35994, 39.3577, 39.36663, 39.35582, 39.36028, 39.35822, 39.3608, 39.3687, 39.37231, 39.39171,
  39.39721, 39.40456, 39.40525, 39.41194, 39.41658, 39.42191, 39.42482, 39.43358, 39.44801, 39.46621,
  39.47532, 39.48923, 39.49455, 39.49468, 39.51495, 39.51666, 39.52199, 39.52645, 39.53006, 39.5383,
  39.54002, 39.51117, 39.50584, 39.5098, 39.50774, 39.52371, 39.52903, 39.53177, 39.5383, 39.54053,
  39.54946, 39.55152, 39.5553, 39.56028, 39.57454, 39.58175, 39.6085, 39.61434, 39.6274, 39.63066,
  39.64268, 39.64625, 39.65415, 39.65844, 39.67132, 39.67648, 39.68661, 39.68833, 39.69966, 39.70171,
  39.70617, 39.71184, 39.71974, 39.73383, 39.77075, 39.76988, 39.77641, 39.79047, 39.79613, 39.79304,
  39.80627, 39.81604, 39.82446, 39.83545, 39.88642, 39.90341, 39.91646, 39.92024, 39.93123, 39.95149,
  39.96489, 39.96987, 39.97519, 39.97434, 39.98224, 39.98115, 39.98957, 40.00863, 40.01293, 40.0143,
  40.01877, 40.02254, 40.02615, 40.03199, 40.0337, 40.03783, 40.03834, 40.04693, 40.04109, 40.03559,
  40.03903, 40.06908, 40.06874, 40.08606, 40.0907, 40.135, 40.14108, 40.14754, 40.21326, 40.25946,
  40.36466, 40.37377, 40.45169, 40.57272, 40.81053, 40.87366, 40.94408, 40.99455, 41.07385, 41.11505,
  41.17274, 41.19781, 41.25102, 41.31004, 41.40309, 41.44912, 41.50403, 41.64279, 41.66778, 41.72205,
  41.73784, 41.8106, 41.89095, 41.92906, 41.96648, 42.03, 42.05679, 42.13296, 42.21952, 42.27926,
  42.40419,
  42.38609, 42.38455, 42.37338, 42.33648, 42.31483, 42.25544, 42.19603, 42.18196, 42.15793, 42.14624,
  42.13835, 42.09475, 42.06592, 42.00721, 41.95433, 41.89667, 41.89461, 41.83419, 41.80706, 41.80774,
  41.80157, 41.80534, 41.80363, 41.78612, 41.77101, 41.80912, 41.80396, 41.80293, 41.79402, 41.79455,
  41.82132, 41.83505, 41.91728, 41.94354, 41.94011, 41.94783, 41.95504, 41.96482, 41.97169, 41.99231,
  42.07211, 42.07435, 42.10524, 42.1092, 42.13048, 42.13734, 42.1461, 42.14833, 42.14438, 42.1473,
  42.16344, 42.1946, 42.19786, 42.26822, 42.28127, 42.28213, 42.31425, 42.33194, 42.33705, 42.34976,
  42.3568, 42.36762, 42.42275, 42.507, 42.60449, 42.60781, 42.63185, 42.64765, 42.65452, 42.66311,
  42.68436, 42.68779, 42.73348, 42.73794, 42.74481, 42.74516, 42.75168, 42.76061, 42.76164, 42.76954,
  42.77298, 42.78397, 42.78363, 42.78637, 42.78258, 42.79151, 42.85849, 42.86668, 42.8811, 42.88728,
  42.92541, 42.95255, 42.96148,
  42.92942, 42.90847, 42.87432, 42.85475, 42.84084, 42.76531, 42.7217, 42.71862, 42.70969, 42.70883,
  42.72154, 42.73269, 42.74711, 42.75724, 42.76326, 42.79209, 42.80651, 42.83329, 42.85561, 42.85921,
  42.88909, 42.94693, 42.9701, 42.97353, 42.9979, 43.0089, 43.01611, 43.02486, 43.02915, 43.03602,
  43.06246, 43.06572, 43.08632, 43.10262, 43.12373, 43.13901, 43.14467, 43.1457, 43.15016, 43.16322,
  43.18536, 43.25712, 43.29781, 43.32818, 43.37093, 43.37831, 43.40028, 43.4099, 43.41419, 43.43273,
  43.43805, 43.45098, 43.46335, 43.47949, 43.48653, 43.51605, 43.54335, 43.55314, 43.56345, 43.59672,
  43.60823, 43.61836, 43.64258, 43.9974, 44.0264, 45.62648, 46.99572, 47.98238, 47.55665, 47.33679,
  46.87277, 46.51017, 45.84229, 45.40973, 44.99772, 44.97746, 44.93109, 44.90052, 44.72921, 44.677,
  44.62317, 44.58985, 44.58985, 44.54692, 44.38491, 44.20295, 44.15348, 44.0786, 44.03017, 43.80878,
  43.78852, 43.75485, 43.58118, 43.5695, 43.55095, 43.43219, 43.22923, 43.1218, 43.04452, 43.02533,
  43.00885, 42.95153, 42.89694, 42.82412, 42.72869, 42.67614, 42.59207, 42.52372, 42.47288, 42.37338,
  42.19008, 42.08703, 42.0599, 41.99983, 41.97853, 41.97472, 41.97128, 41.96613, 41.94638, 41.94586,
  41.94861, 41.9433, 41.92595, 41.92148, 41.91376, 41.91118, 41.90637, 41.90507)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_1, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, Geo_0[24])
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
Geo_1 <- Geo_1 %>%
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")

##### ERITREA #####
Geo_0 <- Geometric_Operations(Geo_2, Geo_1)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0))
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  16.28206, 16.26826, 16.25606, 16.23398, 16.22425, 16.13787, 15.8078, 15.75279, 15.74222, 15.48927, 
  15.44973, 15.43715, 15.25191, 15.22922, 15.22425, 15.16743, 14.96354, 14.36453, 14.27821, 14.2659,
  14.25767, 14.26106, 14.26588, 14.27237, 14.27503, 14.28435, 14.28468, 14.29283, 14.28568, 14.2915, 
  14.29167, 14.29666, 14.29599, 14.31113, 14.31362, 14.30813, 14.31129, 14.30131, 14.30065, 14.31196, 
  14.31246, 14.3226, 14.31895, 14.32094, 14.31678, 14.31845, 14.30847, 14.31262, 14.3093, 14.3098, 
  14.32161, 14.32028, 14.32144, 14.31479, 14.31628, 14.30747, 14.29998, 14.29649, 14.29283, 14.29516, 
  14.29266, 14.28385, 14.28152, 14.26555, 14.26239, 14.25124, 14.25191, 14.27021, 14.26355, 14.27154, 
  14.26971, 14.27503, 14.28618, 14.291, 14.31628, 14.32227, 14.33458, 14.36086, 14.36368, 14.37433, 
  14.38364, 14.39644, 14.41024, 14.40891, 14.42005, 14.41772, 14.41905, 14.41673, 14.42554, 14.43235, 
  14.43983, 14.44515, 14.43435, 14.44133, 14.44283, 14.44682, 14.44765, 14.43302, 14.4272, 14.41423, 
  14.41589, 14.41224, 14.40941, 14.40276, 14.39894, 14.38746, 14.38347, 14.37466, 14.372, 14.37499, 
  14.36501, 14.36618, 14.35936, 14.35587, 14.34206, 14.34256, 14.33757, 14.33857, 14.33458, 14.32277, 
  14.31529, 14.30298, 14.28851, 14.29017, 14.2752, 14.27337, 14.26472, 14.26291, 14.25507, 14.25091, 
  14.25573, 14.25207, 14.23094, 14.22046, 14.2148, 14.21413, 14.20249, 14.19733, 14.18418, 14.18085, 
  14.18634, 14.18135, 14.18518, 14.18451, 14.89436, 14.8932, 14.88026, 14.87462, 14.87014, 14.86981, 
  14.86466, 14.86217, 14.85187, 14.84755, 14.83843, 14.83677, 14.83229, 14.83279, 14.82565, 14.81486, 
  14.80673, 14.80009, 14.80325, 14.81105, 14.81038, 14.80059, 14.79213, 14.77719, 14.77437, 14.77868, 
  14.77769, 14.7669, 14.76872, 14.76026, 14.74332, 14.73768, 14.73785, 14.71892, 14.71593, 14.71892, 
  14.71427, 14.7166, 14.71145, 14.70796, 14.69634, 14.69783, 14.69152, 14.68372, 14.67625, 14.6809, 
  14.6809, 14.68604, 14.67791, 14.69601, 14.69451, 14.68936, 14.69269, 14.69202, 14.68704, 14.68853, 
  14.69202, 14.68853, 14.6789, 14.68056, 14.66977, 14.66363, 14.65449, 14.64336, 14.63969, 14.6279, 
  14.62424, 14.61843, 14.61295, 14.61561, 14.61494, 14.60946, 14.60747, 14.60033, 14.58936, 14.58255, 
  14.5774, 14.5671, 14.56162, 14.55715, 14.54136, 14.53653, 14.53553, 14.52556, 14.51825, 14.5116, 
  14.51642, 14.49066, 14.49033, 14.48534, 14.4875, 14.48401, 14.48883, 14.48168, 14.46988, 14.47138, 
  14.46772, 14.47188, 14.46988, 14.46141, 14.45276, 14.44827, 14.43564, 14.42966, 14.41868, 14.41286, 
  14.41752, 14.41469, 14.42084, 14.42018, 14.42467, 14.4245, 14.42018, 14.42118, 14.41403, 14.41835, 
  14.40655, 14.41802, 14.42749, 14.425, 14.43148, 14.42966, 14.43631, 14.43618, 14.44416, 14.44166, 
  14.44416, 14.43568, 14.44499, 14.44266, 14.45014, 14.44864, 14.45629, 14.45563, 14.46011, 14.46011, 
  14.46527, 14.46543, 14.47092, 14.46676, 14.46826, 14.46294, 14.46543, 14.46178, 14.46743, 14.47208, 
  14.46776, 14.47225, 14.46676, 14.4769, 14.47707, 14.48854, 14.48588, 14.4902, 14.49552, 14.50017, 
  14.49718, 14.502, 14.49951, 14.50333, 14.50432, 14.51762, 14.52344, 14.52859, 14.53457, 14.53856, 
  14.5364, 14.54088, 14.53573, 14.54271, 14.54454, 14.56182, 14.56248, 14.58392, 14.59106, 14.59571, 
  14.60169, 14.61133, 14.6203, 14.63292, 14.63209, 14.63989, 14.63375, 14.64039, 14.64023, 14.63607, 
  14.64039, 14.63458, 14.64654, 14.64122, 14.64986, 14.64969, 14.65335, 14.64853, 14.63408, 14.60717, 
  14.59189, 14.58441, 14.56531, 14.56448, 14.54404, 14.54321, 14.53557, 14.53474, 14.52244, 14.52044, 
  14.49751, 14.49053, 14.48854, 14.48388, 14.47408, 14.46493, 14.46128, 14.45313, 14.45031, 14.44615, 
  14.44781, 14.44233, 14.43867, 14.41384, 14.4154, 14.41007, 14.4134, 14.41939, 14.42604, 14.43668, 
  14.45097, 14.45795, 14.46626, 14.47042, 14.47059, 14.4661, 14.47059, 14.47607, 14.49385, 14.4892, 
  14.48338, 14.48372, 14.49602, 14.49535, 14.50898, 14.51579, 14.52742, 14.53274, 14.52626, 14.53972, 
  14.53922, 14.54437, 14.5354, 14.52593, 14.52593, 14.52011, 14.52011, 14.51596, 14.51596, 14.50516, 
  14.50831, 14.49967, 14.50516, 14.50283, 14.48372, 14.48687, 14.48405, 14.48737, 14.48521, 14.49219, 
  14.49169, 14.50098, 14.51228, 14.53605, 14.53887, 14.55034, 14.56579, 14.56479, 14.58489, 14.58489, 
  14.58971, 14.58755, 14.58955, 14.58921, 14.59752, 14.59951, 14.60666, 14.6035, 14.59669, 14.602, 
  14.59968, 14.60483, 14.59785, 14.59735, 14.59104, 14.59769, 14.58905, 14.59287, 14.5824, 14.57426, 
  14.56512, 14.56363, 14.55499, 14.55665, 14.54984, 14.54668, 14.53538, 14.53605, 14.51129, 14.51112, 
  14.50298, 14.50281, 14.48569, 14.48337, 14.49168, 14.4566, 14.4345, 14.42635, 14.4202, 14.41554, 
  14.41488, 14.42552, 14.42635, 14.43134, 14.43898, 14.44414, 14.44827, 14.45559, 14.44811, 14.45609, 
  14.47288, 14.47504, 14.47088, 14.47554, 14.47736, 14.48684, 14.48684, 14.49232, 14.49515, 14.50246, 
  14.50296, 14.50894, 14.53503, 14.54051, 14.54301, 14.54832, 14.54666, 14.53902, 14.53885, 14.38726, 
  14.41087, 14.36664, 14.354, 14.30693, 14.26917, 14.17212, 14.13484, 14.0799, 14.01762, 13.88634, 
  13.82901, 13.7273, 13.70162, 13.61021, 13.57918, 13.5004, 13.48839, 13.44498, 13.38554, 13.32274, 
  13.27295, 13.23586, 13.16634, 13.07472, 13.0105, 12.92218, 12.86796, 12.80101, 12.77691, 12.76284, 
  12.63423, 12.46809,
  12.52435, 12.52485, 12.5225, 12.51664, 12.50055, 12.49167, 12.49033, 12.47591, 12.45177, 12.43887, 
  12.43199, 12.41406, 12.40282, 12.38673, 12.376, 12.3547, 12.36024, 12.3646, 12.37415, 12.37549, 
  12.38556, 12.37952, 12.38287, 12.38338, 12.39025, 12.39897, 12.39796, 12.4045, 12.40282, 12.40551, 
  12.40785, 12.41171, 12.41255, 12.4149, 12.41707, 12.41355, 12.41875, 12.42143, 12.43082, 12.43436, 
  12.4449, 12.45597, 12.46317, 12.46653, 12.47189, 12.4744, 12.47281, 12.47574, 12.47799, 12.48731, 
  12.48982, 12.51027, 12.5101, 12.51747, 12.51647, 12.52284, 12.52435, 12.52317, 12.53222, 12.54378, 
  12.54479, 12.54228, 12.54194, 12.55065, 12.54764, 12.55618, 12.56289, 12.56942, 12.57545, 12.5788, 
  12.57813, 12.58065, 12.59036, 12.59304, 12.59422, 12.60544, 12.6175, 12.61666, 12.60946, 12.61264, 
  12.61968, 12.62052, 12.62387, 12.62236, 12.62772, 12.63375, 12.63576, 12.64413, 12.64564, 12.64497, 
  12.64815, 12.65134, 12.7096, 12.71127, 12.65566, 14.39483)
LONGITUDE_VALUEs <- c(
  36.9745, 36.97303, 36.96599, 36.93064, 36.91982, 36.88634, 36.7636, 36.69735, 36.69391, 36.62611, 
  36.64773, 36.61014, 36.54817, 36.53392, 36.50252, 36.43316, 36.46303, 36.52345, 36.54165, 36.54869,
  36.56027, 36.56059, 36.5666, 36.56403, 36.55836, 36.55476, 36.56386, 36.58205, 36.58977, 36.59561, 
  36.60025, 36.6042, 36.61501, 36.62565, 36.63577, 36.65208, 36.66426, 36.67696, 36.69432, 36.71252, 
  36.73019, 36.73998, 36.77071, 36.78135, 36.81516, 36.8282, 36.83232, 36.83558, 36.83867, 36.84382, 
  36.85223, 36.86238, 36.86822, 36.88023, 36.89585, 36.901, 36.93636, 36.93842, 36.94683, 36.95884, 
  36.97291, 36.97634, 36.98373, 36.99163, 36.99988, 37.01309, 37.02013, 37.04553, 37.06595, 37.07693, 
  37.08691, 37.09875, 37.09812, 37.10739, 37.10567, 37.10928, 37.10087, 37.11083, 37.11701, 37.11684, 
  37.12526, 37.12749, 37.13538, 37.14465, 37.15719, 37.16406, 37.17041, 37.17557, 37.1982, 37.20644, 
  37.20764, 37.22963, 37.24611, 37.2626, 37.28727, 37.29002, 37.312, 37.31544, 37.33502, 37.33948, 
  37.34962, 37.35116, 37.3472, 37.34892, 37.35974, 37.36335, 37.37382, 37.3709, 37.37468, 37.38121, 
  37.38327, 37.39306, 37.39031, 37.38086, 37.38035, 37.39374, 37.39941, 37.40353, 37.4049, 37.39923, 
  37.40473, 37.39287, 37.40679, 37.41451, 37.42618, 37.43528, 37.4406, 37.44728, 37.44679, 37.45091, 
  37.46482, 37.47203, 37.47099, 37.46533, 37.46653, 37.47769, 37.48213, 37.49673, 37.49467, 37.50704, 
  37.51751, 37.52352, 37.52626, 37.52798, 37.91095, 37.92108, 37.92177, 37.9319, 37.93121, 37.93757, 
  37.93978, 37.94459, 37.94407, 37.94871, 37.94837, 37.9609, 37.96159, 37.96691, 37.96673, 37.9712, 
  37.96776, 37.96862, 37.97892, 37.98167, 37.98614, 37.98545, 37.99112, 37.98889, 37.99627, 37.99764, 
  38.00125, 38.00176, 38.01275, 38.0234, 38.01533, 38.02182, 38.02818, 38.04432, 38.05772, 38.06648, 
  38.07884, 38.0931, 38.09378, 38.10615, 38.10993, 38.11384, 38.13514, 38.13651, 38.1427, 38.15249, 
  38.17172, 38.17928, 38.18666, 38.19027, 38.19727, 38.20449, 38.20964, 38.21599, 38.21891, 38.22956, 
  38.23059, 38.24382, 38.24725, 38.25756, 38.26611, 38.2649, 38.2692, 38.26696, 38.27538, 38.26886, 
  38.2716, 38.26851, 38.2807, 38.28362, 38.29118, 38.29049, 38.29839, 38.29633, 38.31333, 38.31486, 
  38.32018, 38.31572, 38.32104, 38.31863, 38.33083, 38.33168, 38.34044, 38.34748, 38.34439, 38.34748, 
  38.35796, 38.36569, 38.37221, 38.37479, 38.38337, 38.38973, 38.39883, 38.40139, 38.40087, 38.40568, 
  38.41461, 38.41787, 38.42526, 38.42285, 38.43024, 38.42868, 38.43177, 38.44637, 38.44551, 38.45513, 
  38.47264, 38.47694, 38.47934, 38.48295, 38.48432, 38.48673, 38.48741, 38.49321, 38.49888, 38.50987, 
  38.52052, 38.52636, 38.54937, 38.55452, 38.5571, 38.57015, 38.5717, 38.5816, 38.60393, 38.6053, 
  38.61063, 38.61904, 38.63375, 38.64662, 38.65743, 38.66739, 38.66859, 38.67974, 38.68027, 38.68679, 
  38.68971, 38.70052, 38.70447, 38.70841, 38.71167, 38.72008, 38.7254, 38.7345, 38.7546, 38.75374, 
  38.7673, 38.77519, 38.7963, 38.80883, 38.81913, 38.81913, 38.82584, 38.8406, 38.84283, 38.85038, 
  38.87389, 38.87561, 38.88436, 38.88934, 38.89998, 38.91699, 38.91734, 38.92661, 38.92506, 38.93004, 
  38.93193, 38.93707, 38.95304, 38.95973, 38.97878, 38.98858, 38.99252, 39.00531, 39.00385, 39.01724, 
  39.01604, 39.01914, 39.01226, 39.02307, 39.02548, 39.0343, 39.04272, 39.05302, 39.06522, 39.07363, 
  39.08531, 39.09678, 39.11602, 39.12993, 39.13938, 39.14621, 39.15428, 39.16819, 39.15738, 39.15806, 
  39.17659, 39.17779, 39.20561, 39.24151, 39.24168, 39.24802, 39.24527, 39.2499, 39.25299, 39.25969, 
  39.26467, 39.26312, 39.2669, 39.26535, 39.25008, 39.24458, 39.23668, 39.23496, 39.22741, 39.22826, 
  39.23239, 39.23084, 39.2365, 39.24443, 39.24904, 39.25007, 39.26656, 39.26552, 39.27119, 39.27342, 
  39.28407, 39.2942, 39.29472, 39.30176, 39.32563, 39.34637, 39.34276, 39.34242, 39.32851, 39.34362, 
  39.35221, 39.35994, 39.3577, 39.36663, 39.35582, 39.36028, 39.35822, 39.3608, 39.3687, 39.37231, 
  39.39171, 39.39721, 39.40456, 39.40525, 39.41194, 39.41658, 39.42191, 39.42482, 39.43358, 39.44801, 
  39.46621, 39.47532, 39.48923, 39.49455, 39.49468, 39.51495, 39.51666, 39.52199, 39.52645, 39.53006, 
  39.5383, 39.54002, 39.51117, 39.50584, 39.5098, 39.50774, 39.52371, 39.52903, 39.53177, 39.5383, 
  39.54053, 39.54946, 39.55152, 39.5553, 39.56028, 39.57454, 39.58175, 39.6085, 39.61434, 39.6274, 
  39.63066, 39.64268, 39.64625, 39.65415, 39.65844, 39.67132, 39.67648, 39.68661, 39.68833, 39.69966, 
  39.70171, 39.70617, 39.71184, 39.71974, 39.73383, 39.77075, 39.76988, 39.77641, 39.79047, 39.79613, 
  39.79304, 39.80627, 39.81604, 39.82446, 39.83545, 39.88642, 39.90341, 39.91646, 39.92024, 39.93123, 
  39.95149, 39.96489, 39.96987, 39.97519, 39.97434, 39.98224, 39.98115, 39.98957, 40.00863, 40.01293, 
  40.0143, 40.01877, 40.02254, 40.02615, 40.03199, 40.0337, 40.03783, 40.03834, 40.04693, 40.04109, 
  40.03559, 40.03903, 40.06908, 40.06874, 40.08606, 40.0907, 40.135, 40.14108, 40.14754, 40.21326, 
  40.25946, 40.36466, 40.37377, 40.45169, 40.57272, 40.81053, 40.87366, 40.94408, 40.99455, 41.07385, 
  41.11505, 41.17274, 41.19781, 41.25102, 41.31004, 41.40309, 41.44912, 41.50403, 41.64279, 41.66778, 
  41.72205, 41.73784, 41.8106, 41.89095, 41.92906, 41.96648, 42.03, 42.05679, 42.13296, 42.21952, 
  42.27926, 42.40419,
  42.46331, 42.47515, 42.4839, 42.49077, 42.53179, 42.54055, 42.54724, 42.56768, 42.59119, 42.60802, 
  42.61042, 42.63291, 42.64252, 42.66637, 42.66981, 42.70037, 42.70243, 42.69677, 42.70363, 42.71084, 
  42.71788, 42.73418, 42.74089, 42.75033, 42.75376, 42.75135, 42.75839, 42.75976, 42.76732, 42.76732, 
  42.76234, 42.7632, 42.7783, 42.7807, 42.79203, 42.80233, 42.80697, 42.81384, 42.81847, 42.82527, 
  42.82534, 42.81864, 42.82018, 42.81349, 42.81315, 42.80937, 42.80398, 42.80148, 42.79673, 42.79581, 
  42.79908, 42.80113, 42.80731, 42.8068, 42.81407, 42.81201, 42.81355, 42.81888, 42.82042, 42.82729, 
  42.8321, 42.83622, 42.84447, 42.84704, 42.85735, 42.86267, 42.85477, 42.86404, 42.85837, 42.86026, 
  42.86438, 42.86816, 42.86455, 42.86848, 42.88188, 42.88291, 42.88857, 42.90437, 42.91107, 42.91983, 
  42.92258, 42.92666, 42.92941, 42.9404, 42.95174, 42.95243, 42.95964, 42.96221, 42.96888, 42.97197, 
  42.97437, 42.98588, 43.12635, 43.12309, 42.62932, 41.03257)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_2, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, st_union(Geo_0[c(1:17, 33)]))
Geo_2 <- st_union(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  12.71005, 12.71038, 12.71105, 12.71065, 12.71102, 12.71223, 12.71274, 12.71355, 12.71374, 12.7136, 
  12.71274, 12.71207, 12.71125, 12.71065, 12.70948, 12.70881, 12.70838, 12.70893, 12.71015, 12.7102)
LONGITUDE_VALUEs <- c(
  43.12719, 43.12723, 43.1283, 43.12975, 43.13145, 43.13162, 43.13403, 43.13509, 43.13583, 43.1371, 
  43.1358, 43.13535, 43.13306, 43.13267, 43.13291, 43.1326, 43.13171, 43.12994, 43.12864, 43.12784)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
Geo_2 <- Geo_2 %>%
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")

##### SUDAN #####
Geo_0 <- Geometric_Operations(Geo_3, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0))
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(
  9.55305, 9.75824, 9.90589, 10.02999, 10.1172, 10.16435, 10.18226, 10.19493, 10.2125, 10.23176,
  10.24629, 10.52236, 10.53552, 10.57045, 10.5718, 10.63811, 10.78452, 10.88787, 10.84741, 10.8351,
  10.81234, 10.80239, 10.79514, 10.76917, 10.75973, 10.75282, 10.74472, 10.7292, 10.69328, 10.68619,
  10.684, 10.6872, 10.72094, 10.73038, 10.73443, 10.72634, 10.73342, 10.7604, 10.78587, 10.86461,
  10.91552, 10.95681, 10.97248, 11.17447, 11.19889, 11.23274, 11.2388, 11.23762, 11.24772, 11.24587,
  11.24991, 11.24924, 11.25412, 11.25462, 11.26169, 11.26927, 11.28807, 11.54249, 11.58419, 11.65448,
  11.68911, 11.71768, 11.7392, 11.77079, 11.82658, 11.86321, 11.89781, 11.93779, 11.97641, 11.99891,
  12.03518, 12.08386, 12.1708, 12.17986, 12.2104, 12.25066, 12.595, 12.59533, 12.61778, 12.66602,
  12.72435, 12.71397, 12.71565, 12.72469, 12.72469, 12.69773, 12.69337, 12.70526, 12.87635, 12.89141,
  12.9222, 12.9304, 12.9329, 12.93692, 12.94194, 12.94595, 12.94913, 12.95532, 12.95833, 12.96135,
  12.96335, 12.9667, 12.98226, 12.98309, 12.98644, 13.0122, 13.02658, 13.36785, 13.56818, 13.60723,
  13.64426, 13.66511, 13.83969, 13.95734, 14.21208, 14.25767,
  14.2659, 14.27821, 14.36453, 14.96354, 15.16743, 15.22425, 15.22922, 15.25191, 15.43715, 15.44973, 
  15.48927, 15.74222, 15.75279, 15.8078, 16.13787, 16.22425, 16.23398, 16.25606, 16.26826, 16.28206,
  16.28306, 17.70913, 17.70803)
LONGITUDE_VALUEs <- c(
  34.08583, 34.13993, 34.2074, 34.2304, 34.32292, 34.32155, 34.33648, 34.33837, 34.3339, 34.34866,
  34.34833, 34.29288, 34.28224, 34.29768, 34.30197, 34.35708, 34.43948, 34.59432, 34.65132, 34.67415,
  34.69526, 34.71105, 34.71826, 34.73216, 34.75551, 34.76735, 34.77439, 34.77697, 34.77182, 34.77285,
  34.78383, 34.78933, 34.79774, 34.80941, 34.82434, 34.85216, 34.86366, 34.87481, 34.86812, 34.97541,
  34.9785, 34.93302, 34.93782, 35.00511, 35.00734, 34.96906, 34.94314, 34.92752, 34.93009, 34.93404,
  34.93541, 34.94125, 34.94235, 34.94819, 34.94459, 34.94682, 34.97288, 35.08963, 35.0965, 35.06251,
  35.06972, 35.05701, 35.05839, 35.06664, 35.09583, 35.1291, 35.23249, 35.27023, 35.26886, 35.31037,
  35.34781, 35.34507, 35.38627, 35.41443, 35.43882, 35.43813, 35.64891, 35.68017, 35.69974, 35.69906,
  36.00629, 36.02914, 36.04356, 36.06658, 36.08049, 36.09899, 36.11496, 36.14227, 36.16509, 36.1481,
  36.13195, 36.13574, 36.14346, 36.14363, 36.14638, 36.14226, 36.14655, 36.14586, 36.15187, 36.15136,
  36.15445, 36.15514, 36.16458, 36.16063, 36.16355, 36.16029, 36.15548, 36.24834, 36.39838, 36.4123,
  36.40663, 36.41075, 36.48663, 36.44645, 36.52834, 36.56027,
  36.54869, 36.54165, 36.52345, 36.46303, 36.43316, 36.50252, 36.53392, 36.54817, 36.61014, 36.64773, 
  36.62611, 36.69391, 36.69735, 36.7636, 36.88634, 36.91982, 36.93064, 36.96599, 36.97303, 36.9745, 
  36.9740, 34.00905, 34.00865)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_3, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_3 <- st_set_geometry(Geo_3, Geo_0)
Geo_3 <- st_union(Geo_3, Geo)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}

##### DJIBOUTI #####
LATITUDE_VALUEs <- c(
  12.71274, 12.71207, 12.71125, 12.71065, 12.70948, 12.70881, 12.70838, 12.70893, 12.71015, 12.7102, 
  12.71005, 12.70972,
  12.7096, 12.65134, 12.64815, 12.64497, 12.64564, 12.64413, 12.63576, 12.63375, 12.62772, 12.62236, 
  12.62387, 12.62052, 12.61968, 12.61264, 12.60946, 12.61666, 12.6175, 12.60544, 12.59422, 12.59304, 
  12.59036, 12.58065, 12.57813, 12.5788, 12.57545, 12.56942, 12.56289, 12.55618, 12.54764, 12.55065, 
  12.54194, 12.54228, 12.54479, 12.54378, 12.53222, 12.52317, 12.52435, 12.52284, 12.51647, 12.51747, 
  12.5101, 12.51027, 12.48982, 12.48731, 12.47799, 12.47574, 12.47281, 12.4744, 12.47189, 12.46653, 
  12.46317, 12.45597, 12.4449, 12.43436, 12.43082, 12.42143, 12.41875, 12.41355, 12.41707, 12.4149, 
  12.41255, 12.41171, 12.40785, 12.40551, 12.40282, 12.4045, 12.39796, 12.39897, 12.39025, 12.38338, 
  12.38287, 12.37952, 12.38556, 12.37549, 12.37415, 12.3646, 12.36024, 12.3547, 12.376, 12.38673, 
  12.40282, 12.41406, 12.43199, 12.43887, 12.45177, 12.47591, 12.49033, 12.49167, 12.50055, 12.51664, 
  12.5225, 12.52485, 12.52435, 12.46809,
  12.43876, 12.43289, 12.42216, 12.37136, 12.29942, 12.25379, 12.17024, 12.14339, 12.11486, 12.07592,
  12.08028, 12.00809, 11.98022, 11.88247, 11.81124, 11.79208, 11.7541, 11.73158, 11.65594, 11.63643,
  11.62702, 11.61592, 11.57153, 11.54596, 11.49281, 11.32151, 11.28852, 11.00355, 10.9931, 10.97911,
  10.96226, 10.9631, 10.939, 10.93967, 10.92518, 10.91473, 10.9176, 10.91422, 10.92889, 10.92366,
  10.92602, 10.95383, 10.95939, 10.97069, 10.97271, 10.97928, 10.9813, 10.97877, 10.97456, 10.97018,
  10.97574, 10.97355, 10.96428, 10.97153, 10.97776, 10.98467, 10.99327, 10.9872, 10.99832, 11.0022,
  10.99664, 10.99832, 10.98198, 11.04028, 11.06993, 11.08307, 11.09688, 11.08846, 11.077, 11.0797,
  11.06353, 11.05611, 11.06993, 11.06487, 11.06824, 11.07734, 11.08037, 11.07431, 11.06083, 11.05847,
  11.04601, 11.03421, 11.02545, 11.01804, 11.00793, 10.98602, 10.9813, 10.96849, 10.97321, 10.96917,
  10.98029, 10.98535, 10.98467,
  10.99731, 11.11979, 11.31915, 11.41239, 11.46118,
  11.46363, 11.47894, 11.49492, 11.50636, 11.50619, 11.50956, 11.50367, 11.50518, 11.50989, 11.50872, 
  11.51208, 11.51124, 11.52789, 11.53277, 11.53226, 11.5331, 11.53495, 11.53428, 11.54673, 11.54908, 
  11.55497, 11.56405, 11.5775, 11.59735, 11.60222, 11.60239, 11.6145, 11.62324, 11.62341, 11.61769, 
  11.61568, 11.61248, 11.61231, 11.60643, 11.60525, 11.6071, 11.6103, 11.60794, 11.60609, 11.60071, 
  11.59903, 11.59466, 11.59718, 11.59499, 11.58995, 11.59045, 11.58003, 11.58272, 11.5839, 11.59348, 
  11.59214, 11.59567, 11.60122, 11.59937, 11.59684, 11.59499, 11.59382, 11.58524, 11.57935, 11.58726, 
  11.59718, 11.60172, 11.60071, 11.59449, 11.59533, 11.59045, 11.58759, 11.58827, 11.59264, 11.59466, 
  11.59247, 11.59365, 11.58995, 11.59247, 11.59062, 11.59264, 11.59079, 11.59499, 11.59146, 11.58759, 
  11.58894, 11.5844, 11.58743, 11.58558, 11.59079, 11.58726, 11.60004, 11.59768, 11.59247, 11.58743, 
  11.58776, 11.5839, 11.58827, 11.58289, 11.58591, 11.5849, 11.58759, 11.57919, 11.57986, 11.57296, 
  11.57397, 11.56741, 11.56657, 11.56336, 11.56338, 11.56809, 11.558, 11.55463, 11.54875, 11.54875, 
  11.54622, 11.5474, 11.54404, 11.54067, 11.54858, 11.53529, 11.53647, 11.53159, 11.53025, 11.53294, 
  11.52587, 11.51914, 11.51881, 11.51511, 11.50956, 11.51107, 11.50316, 11.49829, 11.49139, 11.48617, 
  11.48702, 11.48466, 11.4818, 11.47675, 11.47505, 11.47758, 11.47657, 11.47875, 11.4769, 11.48161, 
  11.48447, 11.48313, 11.47488, 11.47001, 11.46799, 11.46715, 11.46462, 11.46698, 11.4658, 11.47926, 
  11.47993, 11.48801, 11.48902, 11.49479, 11.49473, 11.50264, 11.50281, 11.51509, 11.524, 11.52804, 
  11.53477, 11.53763, 11.54503, 11.54654, 11.54957, 11.54637, 11.54822, 11.55243, 11.55108, 11.55377, 
  11.5562, 11.55865, 11.56571, 11.56706, 11.57025, 11.5711, 11.57311, 11.57126, 11.57278, 11.56857, 
  11.57009, 11.57564, 11.57765, 11.58018, 11.58253, 11.58051, 11.58505, 11.58589, 11.59161, 11.58993, 
  11.59245, 11.58606, 11.58589, 11.56958, 11.5721, 11.56571, 11.56319, 11.5674, 11.57395, 11.56805, 
  11.55846, 11.55611, 11.56115, 11.56385, 11.56923, 11.57225, 11.56401, 11.55745, 11.55762, 11.56317, 
  11.56334, 11.55796, 11.55493, 11.55611, 11.56956, 11.57293, 11.57209, 11.5815, 11.58066, 11.58386, 
  11.58588, 11.59058, 11.59378, 11.60639, 11.61026, 11.62186, 11.63565, 11.65549, 11.65549, 11.6644, 
  11.6728, 11.68289, 11.70525, 11.7076, 11.71214, 11.71701, 11.73953, 11.74407, 11.74895, 11.74827, 
  11.75012, 11.7513, 11.76122, 11.77247, 11.77247, 11.77903, 11.77852, 11.78592, 11.78642, 11.77936, 
  11.7834, 11.78037, 11.77936, 11.78172, 11.77903, 11.78189, 11.77936, 11.77281, 11.77184, 11.77688, 
  11.78091, 11.77486, 11.76982, 11.77436, 11.77285, 11.77688, 11.78058, 11.79587, 11.80528, 11.80394, 
  11.80578, 11.80394, 11.81066, 11.8031, 11.80763, 11.80595, 11.80998, 11.80847, 11.81116, 11.82057,
  11.82124, 11.8283, 11.83552, 11.83788, 11.85686, 11.85871, 11.86341, 11.86812, 11.87904, 11.88105, 
  11.88995, 11.89163, 11.89936, 11.9007, 11.91364, 11.93665, 11.94756, 11.95294, 11.9526, 11.95814,
  11.95294, 11.95462, 11.95277, 11.95982, 11.96184, 11.95814, 11.95982, 11.95932, 11.97998, 11.97863,
  11.97964, 11.97611, 11.97746, 11.97611, 11.9793, 12.05771, 12.09296, 12.12401, 12.16933, 12.17419, 
  12.18057, 12.18577, 12.22134, 12.23141, 12.24466, 12.26445, 12.27167, 12.2871, 12.30286, 12.31477,
  12.32064, 12.38688, 12.40213, 12.40532, 12.42544, 12.42778, 12.45092, 12.45511, 12.47271, 12.47505, 
  12.47874, 12.48142, 12.48142, 12.4717, 12.47086, 12.45913, 12.45511, 12.45846, 12.46198, 12.46248,
  12.46667, 12.47321, 12.47338, 12.48394, 12.50992, 12.52031, 12.54896, 12.55181, 12.57795, 12.60308, 
  12.61933, 12.63708, 12.65232, 12.69403, 12.69805, 12.70543, 12.71178, 12.71218, 12.71257, 12.71262, 
  12.7136)
LONGITUDE_VALUEs <- c(
  43.1358, 43.13535, 43.13306, 43.13267, 43.13291, 43.1326, 43.13171, 43.12994, 43.12864, 43.12784, 
  43.12719, 43.12713,
  43.12635, 42.98588, 42.97437, 42.97197, 42.96888, 42.96221, 42.95964, 42.95243, 42.95174, 42.9404, 
  42.92941, 42.92666, 42.92258, 42.91983, 42.91107, 42.90437, 42.88857, 42.88291, 42.88188, 42.86848, 
  42.86455, 42.86816, 42.86438, 42.86026, 42.85837, 42.86404, 42.85477, 42.86267, 42.85735, 42.84704, 
  42.84447, 42.83622, 42.8321, 42.82729, 42.82042, 42.81888, 42.81355, 42.81201, 42.81407, 42.8068, 
  42.80731, 42.80113, 42.79908, 42.79581, 42.79673, 42.80148, 42.80398, 42.80937, 42.81315, 42.81349, 
  42.82018, 42.81864, 42.82534, 42.82527, 42.81847, 42.81384, 42.80697, 42.80233, 42.79203, 42.7807, 
  42.7783, 42.7632, 42.76234, 42.76732, 42.76732, 42.75976, 42.75839, 42.75135, 42.75376, 42.75033, 
  42.74089, 42.73418, 42.71788, 42.71084, 42.70363, 42.69677, 42.70243, 42.70037, 42.66981, 42.66637, 
  42.64252, 42.63291, 42.61042, 42.60802, 42.59119, 42.56768, 42.54724, 42.54055, 42.53179, 42.49077, 
  42.4839, 42.47515, 42.46331, 42.40419,
  42.38609, 42.38455, 42.37338, 42.33648, 42.31483, 42.25544, 42.19603, 42.18196, 42.15793, 42.14624,
  42.13835, 42.09475, 42.06592, 42.00721, 41.95433, 41.89667, 41.89461, 41.83419, 41.80706, 41.80774,
  41.80157, 41.80534, 41.80363, 41.78612, 41.77101, 41.80912, 41.80396, 41.80293, 41.79402, 41.79455,
  41.82132, 41.83505, 41.91728, 41.94354, 41.94011, 41.94783, 41.95504, 41.96482, 41.97169, 41.99231,
  42.07211, 42.07435, 42.10524, 42.1092, 42.13048, 42.13734, 42.1461, 42.14833, 42.14438, 42.1473,
  42.16344, 42.1946, 42.19786, 42.26822, 42.28127, 42.28213, 42.31425, 42.33194, 42.33705, 42.34976,
  42.3568, 42.36762, 42.42275, 42.507, 42.60449, 42.60781, 42.63185, 42.64765, 42.65452, 42.66311,
  42.68436, 42.68779, 42.73348, 42.73794, 42.74481, 42.74516, 42.75168, 42.76061, 42.76164, 42.76954,
  42.77298, 42.78397, 42.78363, 42.78637, 42.78258, 42.79151, 42.85849, 42.86668, 42.8811, 42.88728,
  42.92541, 42.95255, 42.96148,
  42.96699, 43.0437, 43.16938, 43.22843, 43.25744,
  43.25086, 43.2385, 43.23661, 43.22425, 43.22065, 43.2167, 43.21361, 43.20795, 43.20486, 43.20108, 
  43.19868, 43.19525, 43.18632, 43.18529, 43.17705, 43.17688, 43.18151, 43.18391, 43.17997, 43.17413, 
  43.17018, 43.17001, 43.15954, 43.15113, 43.15353, 43.15919, 43.15216, 43.15164, 43.14872, 43.14409, 
  43.14632, 43.14615, 43.13499, 43.13019, 43.13156, 43.13156, 43.13431, 43.13963, 43.13654, 43.13619, 
  43.14014, 43.13705, 43.1331, 43.12813, 43.13122, 43.12246, 43.09912, 43.09964, 43.09775, 43.10444, 
  43.10787, 43.10981, 43.10209, 43.10071, 43.1038, 43.10209, 43.10329, 43.09676, 43.09487, 43.09075, 
  43.07598, 43.07426, 43.06327, 43.06413, 43.05949, 43.05829, 43.06035, 43.05232, 43.04476, 43.02518, 
  43.01728, 43.00698, 43.00354, 42.99513, 42.98311, 42.97709, 42.97023, 42.95808, 42.91137, 42.89763, 
  42.89351, 42.88595, 42.87616, 42.87152, 42.86877, 42.85984, 42.85131, 42.84976, 42.85388, 42.85028, 
  42.84667, 42.84736, 42.83362, 42.82228, 42.81679, 42.81215, 42.80219, 42.79809, 42.79311, 42.79139, 
  42.7895, 42.78469, 42.77594, 42.7718, 42.76306, 42.75292, 42.74622, 42.72326, 42.71605, 42.709, 
  42.70832, 42.70454, 42.70368, 42.69389, 42.68427, 42.67912, 42.67569, 42.67569, 42.66744, 42.66452, 
  42.65937, 42.66333, 42.66728, 42.66453, 42.6714, 42.67587, 42.68995, 42.69064, 42.68686, 42.68806, 
  42.69339, 42.69407, 42.68686, 42.68823, 42.68583, 42.68256, 42.67878, 42.67535, 42.67192, 42.64358, 
  42.63946, 42.63757, 42.63688, 42.63276, 42.6343, 42.62778, 42.62297, 42.61524, 42.60339, 42.58797, 
  42.5835, 42.57612, 42.57028, 42.56604, 42.56066, 42.55843, 42.55259, 42.53887, 42.52342, 42.52393, 
  42.51792, 42.52702, 42.5284, 42.52428, 42.52565, 42.53355, 42.53887, 42.5363, 42.53269, 42.53321, 
  42.53089, 42.53269, 42.52514, 42.53012, 42.52874, 42.53081, 42.5272, 42.5217, 42.51913, 42.52033, 
  42.51569, 42.51569, 42.51758, 42.51329, 42.51466, 42.5193, 42.52102, 42.52531, 42.52651, 42.53303, 
  42.53527, 42.54832, 42.55742, 42.57133, 42.57459, 42.57889, 42.58644, 42.59074, 42.60791, 42.62074, 
  42.63208, 42.64805, 42.64152, 42.64169, 42.63191, 42.63379, 42.65389, 42.65818, 42.66007, 42.6587, 
  42.66591, 42.67209, 42.68085, 42.68257, 42.67707, 42.67845, 42.68223, 42.68377, 42.68718, 42.68718, 
  42.69113, 42.69045, 42.69234, 42.69045, 42.69285, 42.69371, 42.69903, 42.71346, 42.71723, 42.72118, 
  42.74057, 42.7495, 42.75139, 42.75619, 42.75825, 42.76289, 42.77371, 42.77663, 42.78401, 42.79171, 
  42.79927, 42.81816, 42.8307, 42.83877, 42.8556, 42.86521, 42.86778, 42.87053, 42.88015, 42.89045,
  42.90144, 42.90196, 42.90625, 42.9066, 42.91089, 42.91433, 42.92566, 42.92738, 42.93557, 42.93403,
  42.93798, 42.93798, 42.9421, 42.9472, 42.94874, 42.95131, 42.95972, 42.96487, 42.97757, 42.97929, 
  42.98512, 42.99062, 43.00143, 43.01018, 43.02271, 43.02909, 43.03887, 43.04745, 43.0562, 43.06015,
  43.06581, 43.06736, 43.07422, 43.08503, 43.09448, 43.10152, 43.10237, 43.10907, 43.11422, 43.11902, 
  43.12108, 43.1264, 43.12932, 43.13996, 43.14461, 43.17121, 43.17619, 43.18821, 43.1961, 43.21498,
  43.2191, 43.22219, 43.22631, 43.23334, 43.26237, 43.27078, 43.2749, 43.29068, 43.3051, 43.31816,
  43.32759, 43.33806, 43.34081, 43.34879, 43.3682, 43.408, 43.41659, 43.41796, 43.41281, 43.40714, 
  43.40662, 43.41024, 43.40714, 43.39856, 43.39548, 43.3838, 43.37367, 43.37127, 43.37299, 43.36887,
  43.36973, 43.35393, 43.34139, 43.33315, 43.3306, 43.32544, 43.32304, 43.32149, 43.32252, 43.3263, 
  43.31943, 43.3172, 43.31188, 43.31497, 43.31823, 43.31136, 43.30192, 43.29762, 43.29831, 43.29264, 
  43.29144, 43.29316, 43.28783, 43.28286, 43.26037, 43.25573, 43.23548, 43.2293, 43.20802, 43.19291, 
  43.17609, 43.16579, 43.15222, 43.13866, 43.13454, 43.13394, 43.13595, 43.13704, 43.13712, 43.13694, 
  43.1371)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  11.55324, 11.55191, 11.55105, 11.54962, 11.55046, 11.55223, 11.55284, 11.55406, 11.5541, 11.55506, 
  11.5546, 11.55406, 11.55437)
LONGITUDE_VALUEs <- c(
  43.18495, 43.18533, 43.18501, 43.18761, 43.19098, 43.19014, 43.19014, 43.18971, 43.189, 43.18853, 
  43.1872, 43.18696, 43.18574)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  11.71359, 11.71065, 11.70964, 11.70553, 11.70603, 11.70183, 11.70393, 11.69872, 11.69897, 11.70099, 
  11.70393, 11.70527, 11.70645, 11.70805, 11.71242, 11.70964, 11.71158, 11.70998, 11.70569, 11.70662, 
  11.70317, 11.70452, 11.70796, 11.712, 11.72175, 11.72746, 11.72897, 11.7346, 11.73418, 11.73738, 
  11.74032, 11.73738, 11.73881, 11.74141, 11.74124, 11.7462, 11.7436, 11.72973, 11.72876, 11.72633, 
  11.72645, 11.72229, 11.71712, 11.71511)
LONGITUDE_VALUEs <- c(
  43.1486, 43.14791, 43.15048, 43.15271, 43.16009, 43.16404, 43.16971, 43.17811, 43.18567, 43.18704, 
  43.18077, 43.18592, 43.18395, 43.18541, 43.1861, 43.19588, 43.19751, 43.20137, 43.20335, 43.21228, 
  43.21683, 43.21957, 43.22026, 43.22498, 43.22592, 43.22034, 43.22154, 43.21614, 43.20644, 43.20249, 
  43.19254, 43.1849, 43.18438, 43.18678, 43.17932, 43.17571, 43.16765, 43.16766, 43.16625, 43.1656, 
  43.16376, 43.16359, 43.15526, 43.15376)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  11.53328, 11.5333, 11.53548, 11.53723, 11.53832, 11.53912, 11.53851, 11.53748, 11.53723, 11.5362, 
  11.53445)
LONGITUDE_VALUEs <- c(
  42.53621, 42.53917, 42.5422, 42.54202, 42.54076, 42.5367, 42.53535, 42.53477, 42.53368, 42.53441, 
  42.53469)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  11.54268, 11.54266, 11.54238, 11.54077, 11.54045, 11.54146, 11.54144, 11.54206, 11.54311, 11.54388, 
  11.54361)
LONGITUDE_VALUEs <- c(
  42.53083, 42.53046, 42.53016, 42.53166, 42.53298, 42.53397, 42.5343, 42.53474, 42.5345, 42.53329, 
  42.53181)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  12.47208, 12.47047, 12.47043, 12.46833, 12.46691, 12.46584, 12.47018, 12.4712, 12.47288, 12.47403, 
  12.47506, 12.47485, 12.47365)
LONGITUDE_VALUEs <- c(
  43.42538, 43.4263, 43.42902, 43.4314, 43.43235, 43.43417, 43.43381, 43.4314, 43.43089, 43.4317, 
  43.42982, 43.42733, 43.42572)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  12.45303, 12.45059, 12.44994, 12.45139, 12.45183, 12.45156, 12.45303, 12.45495, 12.45611, 12.45621, 
  12.45699, 12.45495)
LONGITUDE_VALUEs <- c(
  43.4392, 43.44066, 43.44255, 43.44414, 43.44371, 43.44276, 43.44148, 43.44118, 43.44246, 43.44178, 
  43.44165, 43.43946)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.46193, 12.46088, 12.45963, 12.46023, 12.46197)
LONGITUDE_VALUEs <- c(43.36444, 43.36397, 43.36545, 43.36728, 43.36676)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.46275, 12.4639, 12.4648, 12.46606, 12.46671, 12.46413)
LONGITUDE_VALUEs <- c(43.3862, 43.38738, 43.387, 43.38747, 43.38691, 43.38444)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.44519, 12.44437, 12.44547, 12.44604)
LONGITUDE_VALUEs <- c(43.45069, 43.45248, 43.453, 43.45166)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.45999, 12.45879, 12.46053, 12.4611, 12.46106, 12.46034, 12.46024, 12.45989)
LONGITUDE_VALUEs <- c(43.41145, 43.41176, 43.41352, 43.41332, 43.41282, 43.41299, 43.41223, 43.41203)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_4 <- st_set_geometry(Geo_4, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}

##### SOMALIA #####
Geo_0 <- Geometric_Operations(Geo_5, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_4)
Geo_5 <- st_set_geometry(Geo_5, st_geometry(Geo_0))
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}
LATITUDE_VALUEs <- c(
  10.66398, 10.7323, 10.75253, 10.77783, 10.78356, 10.78036, 10.78255, 10.76518, 10.76438, 10.77197, 
  10.7777, 10.77821, 10.8148, 10.83469, 10.83537, 10.84009, 10.84902, 10.86824, 10.86318, 10.85964, 
  10.85459, 10.85256, 10.83823, 10.8266, 10.81817, 10.80114, 10.79001, 10.77804, 10.77804, 10.76421, 
  10.76404, 10.74852, 10.73655, 10.7239, 10.70889, 10.70788, 10.69506, 10.68747, 10.68679, 10.6792, 
  10.67026, 10.66166, 10.662, 10.65778, 10.66183, 10.65997, 10.66469, 10.66132, 10.63483, 10.60548, 
  10.58405, 10.57021, 10.56042, 10.5427, 10.54101, 10.51688, 10.50861, 10.48262, 10.47215, 10.46135, 
  10.44852, 10.44413, 10.43923, 10.44514, 10.45037, 10.44818, 10.45223, 10.45173, 10.44177, 10.43805, 
  10.43974, 10.43552, 10.43045, 10.41019, 10.40344, 10.4053, 10.41577, 10.4134, 10.41678, 10.41256, 
  10.41847, 10.40884, 10.40817, 10.39753, 10.38622, 10.37778, 10.38841, 10.38757, 10.39112, 10.38909, 
  10.40142, 10.3896, 10.3977, 10.39719, 10.41813, 10.44464, 10.4708, 10.50435, 10.54925, 10.55397, 
  10.56899, 10.58266, 10.59616, 10.59852, 10.61472, 10.62518, 10.64711, 10.67579, 10.73719, 10.83331, 
  10.9331, 10.98636, 11.04095, 11.08543, 11.11154, 11.12569, 11.17992, 11.18228, 11.20753, 11.23077, 
  11.26966, 11.29441, 11.2998, 11.30872, 11.31612, 11.32858, 11.35231, 11.36392, 11.36813, 11.37032, 
  11.3646, 11.36207, 11.36578, 11.3513, 11.35803, 11.355, 11.3513, 11.34794, 11.35585, 11.36241, 
  11.36679, 11.38008, 11.37688, 11.38378, 11.37739, 11.38008, 11.37924, 11.38378, 11.40583, 11.40768, 
  11.42013, 11.43123, 11.43191, 11.42703, 11.42299, 11.43325, 11.46219, 11.45765, 11.45866, 11.46488, 
  11.46,
  11.46118, 11.41239, 11.31915, 11.11979, 10.99731,
  10.98467, 10.9466, 10.91205, 10.87008, 10.8367, 10.82237, 10.72118, 10.65067, 10.64781, 10.62233, 
  10.57745, 10.52868, 10.52733, 10.51298, 10.47011, 10.45578, 10.4031, 10.34637, 10.27712, 10.23977, 
  10.22778, 10.18757, 10.12708, 10.1019, 10.09277, 10.08331, 10.07182, 10.05931, 10.05153, 10.0397, 
  10.03379, 9.96566, 9.96126, 9.90766, 9.89464, 9.88669, 9.88618, 9.89396, 9.89988, 9.89904, 
  9.89024, 9.88162, 9.84272, 9.60602, 9.60263, 9.57352, 9.56404, 9.55219, 9.53644, 9.51173, 
  9.47109, 9.4479, 9.43486, 9.41504, 9.40674, 9.39895, 9.38117, 9.37728, 9.37118, 9.37084, 
  9.35797, 9.35848, 9.3561, 9.35661, 8.99904, 8.99091, 8.46226, 8.00151, 8.00015, 7.56066, 
  7.38259, 6.9081, 6.51871, 5.95634, 5.53413, 4.94563, 4.9234, 4.92716, 4.92237, 4.92921, 
  4.9234, 4.93332, 4.93229, 4.92579, 4.92545, 4.94118, 4.94187, 4.95042, 4.9405, 4.94358, 
  4.90287, 4.88885, 4.8868, 4.84301, 4.83548, 4.83548, 4.79409, 4.69384, 4.62985, 4.57373, 
  4.54224, 4.46694, 4.37863, 4.31735, 4.26497, 4.26497, 4.25436, 4.21601, 4.20163, 4.20334, 
  4.1893, 4.17903, 4.17903, 4.16225, 4.09274, 4.09616, 4.08159, 4.07936, 4.08022, 4.05608, 
  4.04443, 4.02816, 4.01652, 4.00265, 3.99563, 3.99683, 3.98638, 3.98261,
  3.95358, 3.93628, 3.93337, 3.91898, 3.91042, 3.8736, 3.47953, 3.1413, 2.99074, 2.82827, 
  2.14809, 1.69241, 0.94448, 0.45974, -0.45349, -0.83381, -1.59838, -1.66204,
  -1.65809, -1.65089, -1.64522, -1.63888, -1.63888, -1.64093, -1.64643, -1.64694, -1.63905, -1.63785, 
  -1.63579, -1.62892, -1.62069, -1.60473, -1.59546, -1.5862, -1.58294, -1.57093, -1.56269, -1.55102, 
  -1.54278, -1.53575, -1.52528, -1.52082, -1.51601, -1.50452, -1.4853, -1.46899, -1.4647, -1.45801, 
  -1.44514, -1.43948, -1.4321, -1.42266, -1.40636, -1.40481, -1.40378, -1.40567, -1.40378, -1.39812, 
  -1.36157, -1.35676, -1.34698, -1.34235, -1.33771, -1.32398, -1.32278, -1.31643, -1.30888, -1.30837, 
  -1.29601, -1.28811, -1.2483, -1.24504, -1.22565, -1.21483, -1.21226, -1.21912, -1.21758, -1.21758, 
  -1.22135, -1.22702, -1.22822, -1.21895, -1.21895, -1.21466, -1.21552, -1.19321, -1.19252, -1.20814, 
  -1.20419, -1.1987, -1.19372, -1.18514, -1.18394, -1.17708, -1.17759, -1.16815, -1.17107, -1.16541, 
  -1.16043, -1.15922, -1.15425, -1.14584, -1.1376, -1.13932, -1.13228, -1.11323, -1.08886, -1.08234, 
  -1.07204, -1.06432, -1.04544, -1.03668, -1.0293, -1.02947, -1.02106, -1.01677, -1.01557, -1.01643, 
  -1.01849, -1.01712, -1.02175, -1.00648, -0.98794, -0.98983, -0.97404, -0.95859, -0.93559, -0.92546, 
  -0.89937, -0.88135, -0.86213, -0.85698, -0.85492, -0.85183, -0.84599, -0.85063, -0.85217, -0.86213, 
  -0.86281, -0.86041, -0.85784, -0.85543, -0.84702, -0.84737, -0.84033, -0.83793, -0.84479, -0.83535, 
  -0.8266, -0.8314, -0.82282, -0.80892, -0.79711, -0.7547, -0.72998, -0.71539, -0.71453, -0.70303, 
  -0.63111, -0.62974, -0.62218, -0.54494, -0.54254, -0.52554, -0.51885, -0.50512, -0.47576, -0.47388, 
  -0.45448, -0.45396, -0.45705, -0.46598, -0.46529, -0.45911, -0.44853, -0.44469, -0.4368, -0.42598, 
  -0.4174, -0.40573, -0.40603, -0.40281, -0.39148, -0.375, -0.3659, -0.3671, -0.37311, -0.37672, 
  -0.37946, -0.38341, -0.38049, -0.37397, -0.37395, -0.37533, -0.37412, -0.36726, -0.36451, -0.36125, 
  -0.3561, -0.35249, -0.35318, -0.34597, -0.34202, -0.33825, -0.31971, -0.30289, -0.25825, -0.24675, 
  -0.16899, -0.06479, 0.0346, 0.15837, 0.26068, 0.32694, 0.41002, 0.54984, 0.64047, 0.67625, 
  0.71711, 8.51374)
LONGITUDE_VALUEs <- c(
  46.25595, 46.30106, 46.28131, 46.24784, 46.2324, 46.2257, 46.20338, 46.11859, 46.07274, 46.03414, 
  46.00581, 45.97593, 45.92168, 45.87552, 45.85337, 45.84959, 45.82986, 45.80393, 45.79981, 45.77027, 
  45.76667, 45.76187, 45.76015, 45.74573, 45.71911, 45.69149, 45.68376, 45.65989, 45.65096, 45.61957, 
  45.59605, 45.58815, 45.57544, 45.57683, 45.543, 45.52806, 45.52291, 45.5102, 45.4932, 45.47469, 
  45.47348, 45.45013, 45.43158, 45.40926, 45.37066, 45.35383, 45.33391, 45.32001, 45.30061, 45.26834, 
  45.25581, 45.24087, 45.23383, 45.199, 45.18269, 45.14285, 45.0862, 45.06165, 45.04654, 45.01737, 
  44.98526, 44.9789, 44.98234, 44.9844, 44.99178, 44.99436, 44.99813, 45.00397, 45.00809, 45.0038, 
  44.99968, 44.99075, 44.9923, 44.95214, 44.89736, 44.867, 44.81774, 44.80813, 44.8004, 44.79576, 
  44.74614, 44.70856, 44.69088, 44.65413, 44.63987, 44.56796, 44.5367, 44.52953, 44.52094, 44.51442, 
  44.44985, 44.41331, 44.38377, 44.37141, 44.31493, 44.26807, 44.23717, 44.20422, 44.14053, 44.12061, 
  44.09726, 44.08307, 44.08032, 44.0738, 44.05972, 44.03877, 44.01129, 43.96493, 43.88666, 43.78848, 
  43.69998, 43.65861, 43.62994, 43.59578, 43.58479, 43.57328, 43.55234, 43.53157, 43.50892, 43.49827, 
  43.4914, 43.4914, 43.4878, 43.48694, 43.48094, 43.47835, 43.48282, 43.48985, 43.50066, 43.49998, 
  43.4787, 43.47784, 43.48968, 43.47887, 43.47921, 43.46926, 43.47166, 43.46188, 43.4459, 43.4459, 
  43.43389, 43.42342, 43.41879, 43.40438, 43.39767, 43.38806, 43.38497, 43.38463, 43.35889, 43.35321, 
  43.34635, 43.34652, 43.33983, 43.33966, 43.33399, 43.32231, 43.31373, 43.30206, 43.2921, 43.28816, 
  43.26636,
  43.25744, 43.22843, 43.16938, 43.0437, 42.96699,
  42.96148, 42.92942, 42.90847, 42.87432, 42.85475, 42.84084, 42.76531, 42.7217, 42.71862, 42.70969, 
  42.70883, 42.72154, 42.73269, 42.74711, 42.75724, 42.76326, 42.79209, 42.80651, 42.83329, 42.85561, 
  42.85921, 42.88909, 42.94693, 42.9701, 42.97353, 42.9979, 43.0089, 43.01611, 43.02486, 43.02915, 
  43.03602, 43.06246, 43.06572, 43.08632, 43.10262, 43.12373, 43.13901, 43.14467, 43.1457, 43.15016, 
  43.16322, 43.18536, 43.25712, 43.29781, 43.32818, 43.37093, 43.37831, 43.40028, 43.4099, 43.41419, 
  43.43273, 43.43805, 43.45098, 43.46335, 43.47949, 43.48653, 43.51605, 43.54335, 43.55314, 43.56345, 
  43.59672, 43.60823, 43.61836, 43.64258, 43.9974, 44.0264, 45.62648, 46.99572, 47.98238, 47.55665, 
  47.33679, 46.87277, 46.51017, 45.84229, 45.40973, 44.99772, 44.97746, 44.93109, 44.90052, 44.72921, 
  44.677, 44.62317, 44.58985, 44.58985, 44.54692, 44.38491, 44.20295, 44.15348, 44.0786, 44.03017, 
  43.80878, 43.78852, 43.75485, 43.58118, 43.5695, 43.55095, 43.43219, 43.22923, 43.1218, 43.04452, 
  43.02533, 43.00885, 42.95153, 42.89694, 42.82412, 42.72869, 42.67614, 42.59207, 42.52372, 42.47288, 
  42.37338, 42.19008, 42.08703, 42.0599, 41.99983, 41.97853, 41.97472, 41.97128, 41.96613, 41.94638, 
  41.94586, 41.94861, 41.9433, 41.92595, 41.92148, 41.91376, 41.91118, 41.90637,
  41.88612, 41.87187, 41.87119, 41.85746, 41.85865, 41.82965, 41.54362, 41.31225, 41.15088, 40.98903, 
  40.99044, 40.9918, 40.99433, 40.99433, 40.99297, 40.99331, 41.55875, 41.55911,
  41.56203, 41.56993, 41.57233, 41.58039, 41.58674, 41.58846, 41.58674, 41.58777, 41.59446, 41.58949, 
  41.58743, 41.58588, 41.58829, 41.59807, 41.60768, 41.61163, 41.62279, 41.62514, 41.63035, 41.64373, 
  41.64528, 41.6525, 41.65696, 41.66125, 41.65988, 41.67292, 41.67996, 41.69008, 41.69643, 41.69849, 
  41.70793, 41.71651, 41.71531, 41.72046, 41.73454, 41.73471, 41.73677, 41.73762, 41.74071, 41.73539, 
  41.76338, 41.77247, 41.77556, 41.78552, 41.78313, 41.78982, 41.79325, 41.79617, 41.80149, 41.79772, 
  41.80544, 41.8142, 41.83779, 41.83229, 41.84002, 41.83796, 41.845, 41.85393, 41.86062, 41.8699, 
  41.87436, 41.87058, 41.87178, 41.87865, 41.88295, 41.88535, 41.8886, 41.90525, 41.90216, 41.88911, 
  41.87417, 41.87675, 41.88465, 41.88636, 41.891, 41.89289, 41.89907, 41.90491, 41.89941, 41.89512, 
  41.89855, 41.90177, 41.90096, 41.91779, 41.92105, 41.92895, 41.92775, 41.93546, 41.95726, 41.95726, 
  41.96362, 41.96207, 41.97013, 41.97666, 41.97666, 41.97288, 41.9691, 41.96447, 41.96859, 41.9722, 
  41.9746, 41.97855, 41.98181, 41.99177, 42.01872, 42.02319, 42.03006, 42.0292, 42.05082, 42.05391, 
  42.08343, 42.08669, 42.10232, 42.10232, 42.09459, 42.09442, 42.08155, 42.07794, 42.07331, 42.06764, 
  42.06455, 42.06249, 42.06421, 42.06163, 42.06283, 42.06472, 42.06713, 42.08241, 42.11229, 42.12548, 
  42.14591, 42.14763, 42.15622, 42.17837, 42.18351, 42.22231, 42.23466, 42.2472, 42.2587, 42.25664, 
  42.31072, 42.31604, 42.31604, 42.37698, 42.38642, 42.39569, 42.40496, 42.41217, 42.43775, 42.44599, 
  42.45818, 42.4714, 42.46814, 42.46814, 42.4769, 42.47518, 42.48537, 42.47552, 42.47278, 42.47792, 
  42.49097, 42.4956, 42.49948, 42.50024, 42.50744, 42.52238, 42.53697, 42.54711, 42.55501, 42.55569, 
  42.55329, 42.5514, 42.55707, 42.55947, 42.55801, 42.55767, 42.55561, 42.5551, 42.55904, 42.55578, 
  42.55578, 42.55956, 42.56522, 42.56677, 42.57174, 42.57071, 42.57449, 42.58427, 42.6234, 42.6411, 
  42.72005, 42.827, 42.92261, 43.03539, 43.12843, 43.1892, 43.26474, 43.39132, 43.48091, 43.51861, 
  43.48977, 49.42478)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_5, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_5 <- st_set_geometry(Geo_5, Geo_0[29])
Geo_5 <- st_union(Geo_5, Geo)
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}
LATITUDE_VALUEs <- c(
  11.42571, 11.42672, 11.44216, 11.44792, 11.44923, 11.44755, 11.44355, 11.43964, 11.43522, 11.43253, 
  11.43135, 11.42597, 11.41869, 11.41516, 11.41541, 11.4184, 11.41789)
LONGITUDE_VALUEs <- c(
  43.46659, 43.47045, 43.47598, 43.47294, 43.46543, 43.45625, 43.4553, 43.44655, 43.44848, 43.44715, 
  43.45418, 43.45543, 43.45418, 43.45457, 43.4568, 43.45981, 43.4641)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_5 <- st_union(Geo_5, Geo)
LATITUDE_VALUEs <- c(
  11.48202, 11.48261, 11.49052, 11.48926, 11.4959, 11.49439, 11.50221, 11.50112, 11.50701, 11.52332, 
  11.5335, 11.53779, 11.53459, 11.51163, 11.50616, 11.49801, 11.497, 11.49313, 11.48901, 11.48606)
LONGITUDE_VALUEs <- c(
  43.45523, 43.46494, 43.48269, 43.49326, 43.4918, 43.50948, 43.51644, 43.52099, 43.52854, 43.52021, 
  43.5063, 43.48751, 43.46639, 43.45635, 43.45017, 43.45206, 43.44897, 43.45052, 43.44622, 43.45309)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_5 <- st_union(Geo_5, Geo)
LATITUDE_VALUEs <- c(
  -1.16928, -1.17125, -1.17357, -1.1746, -1.17846, -1.17803, -1.17597, -1.16928, -1.1691, -1.16318, 
  -1.16353, -1.15503, -1.15246, -1.15254, -1.1564, -1.15555, -1.15778, -1.15846, -1.16035, -1.16301, 
  -1.16164, -1.16241, -1.16473)
LONGITUDE_VALUEs <- c(
  41.91276, 41.91748, 41.91748, 41.91559, 41.91508, 41.91611, 41.91654, 41.92074, 41.92229, 41.92675, 
  41.92786, 41.93395, 41.93395, 41.93293, 41.93095, 41.92572, 41.9264, 41.92074, 41.92323, 41.91697, 
  41.91508, 41.91388, 41.91413)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_5 <- st_union(Geo_5, Geo)
LATITUDE_VALUEs <- c(
  -1.09534, -1.08787, -1.08663, -1.08877, -1.08161, -1.08118, -1.07993, -1.08053, -1.0777, -1.07817, 
  -1.07706, -1.0792, -1.08015, -1.0844, -1.08753, -1.08993, -1.0907)
LONGITUDE_VALUEs <- c(
  41.97464, 41.98279, 41.98657, 41.9885, 41.99627, 41.99283, 41.99253, 41.9912, 41.99039, 41.9876, 
  41.98408, 41.98215, 41.97988, 41.97919, 41.97679, 41.97653, 41.97485)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_5 <- st_union(Geo_5, Geo)
LATITUDE_VALUEs <- c(
  -1.0202, -1.02406, -1.0226, -1.02432, -1.0123, -1.01264, -1.00981, -1.00518, -1.00389, -1.00089,
  -0.99926, -1.00037, -0.99694, -0.99694, -0.99505, -0.99325, -0.98939, -0.98392, -0.98372, -0.98484, 
  -0.99102, -0.9887, -0.99179, -0.99248, -0.99977, -1.00183, -1.00406, -1.00449, -1.00252, -1.00449, 
  -1.00801, -1.01625)
LONGITUDE_VALUEs <- c(
  42.02211, 42.02734, 42.03112, 42.03395, 42.0379, 42.04133, 42.04313, 42.04905, 42.04673, 42.04776,
  42.0506, 42.05138, 42.05429, 42.05223, 42.05206, 42.05335, 42.05386, 42.05765, 42.05747, 42.05592, 
  42.05112, 42.04717, 42.04391, 42.04074, 42.03833, 42.03979, 42.03765, 42.0349, 42.03336, 42.03121, 
  42.03319, 42.02366)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_5 <- st_union(Geo_5, Geo)
LATITUDE_VALUEs <- c(
  -0.90395, -0.90614, -0.90198, -0.89859, -0.8994, -0.90009, -0.90069, -0.89962, -0.89962, -0.89417,
  -0.89095, -0.88297, -0.87374, -0.87331, -0.85817, -0.85143, -0.8492, -0.84954, -0.84606, -0.8431, 
  -0.84074, -0.84263, -0.84465, -0.84495, -0.84878, -0.84739, -0.84984, -0.85006, -0.84787, -0.8489, -0.85791, 
  -0.85872, -0.86035, -0.8637, -0.86851, -0.86825, -0.87104, -0.87537, -0.88211, -0.88567, -0.88631, 
  -0.89082, -0.89412, -0.9016)
LONGITUDE_VALUEs <- c(
  42.12797, 42.12788, 42.1317, 42.13797, 42.13921, 42.13835, 42.13882, 42.1399, 42.14084, 42.1447,
  42.14341, 42.14891, 42.15801, 42.15964, 42.17294, 42.18015, 42.18358, 42.18466, 42.18577, 42.18891, 
  42.18938, 42.18663, 42.18565, 42.18337, 42.18048, 42.17616, 42.17659, 42.17483, 42.1717, 42.16947, 42.16715, 
  42.16586, 42.16565, 42.16208, 42.15895, 42.15754, 42.15355, 42.15157, 42.14277, 42.14132, 42.13969, 
  42.13694, 42.13694, 42.13083)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_5 <- st_union(Geo_5, Geo)
LATITUDE_VALUEs <- c(
  -0.66289, -0.65654, -0.65748, -0.65877, -0.65993, -0.66036, -0.6613, -0.6607, -0.65834, -0.65757,
  -0.65383, -0.65358, -0.65087, -0.65036, -0.64723, -0.64654, -0.64431, -0.64023, -0.638, -0.63542, 
  -0.63435, -0.63302, -0.63152, -0.6277, -0.62774, -0.62852, -0.62817, -0.62714, -0.62667, -0.62092, 
  -0.62285, -0.62624, -0.6295, -0.63122, -0.63285, -0.63766, -0.63809, -0.64135, -0.64203, -0.63933, 
  -0.64083, -0.64135, -0.64242, -0.64371, -0.64929, -0.65238, -0.65461, -0.65813, -0.6583, -0.65954, 
  -0.66152, -0.66152, -0.66242)
LONGITUDE_VALUEs <- c(
  42.32749, 42.3286, 42.33212, 42.33156, 42.33186, 42.33092, 42.33092, 42.33272, 42.33306, 42.3362,
  42.33705, 42.33843, 42.33954, 42.3386, 42.33972, 42.34066, 42.3416, 42.34656, 42.34679, 42.34976, 
  42.34976, 42.35074, 42.34894, 42.35031, 42.35186, 42.35212, 42.35314, 42.35263, 42.35151, 42.34988,
  42.34499, 42.34173, 42.34057, 42.33718, 42.3386, 42.3374, 42.33628, 42.33551, 42.33092, 42.32586,
  42.32504, 42.32414, 42.32397, 42.32242, 42.32388, 42.32053, 42.32285, 42.32199, 42.32341, 42.32453,
  42.32375, 42.32543, 42.32561)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_5 <- st_union(Geo_5, Geo)
LATITUDE_VALUEs <- c(
  -0.72942, -0.73062, -0.75006, -0.74924, -0.74495, -0.74547, -0.74272, -0.72131, -0.71195, -0.70491, 
  -0.70097, -0.70019, -0.70277, -0.71281, -0.71513, -0.71517, -0.71779, -0.71826, -0.72513, -0.72483, 
  -0.7259, -0.72491, -0.72663, -0.7277)
LONGITUDE_VALUEs <- c(
  42.27643, 42.27721, 42.26258, 42.26468, 42.26811, 42.26923, 42.27026, 42.29176, 42.29845, 42.30467, 
  42.30982, 42.30931, 42.30484, 42.29665, 42.29553, 42.29442, 42.29262, 42.28927, 42.28515, 42.28382, 
  42.2824, 42.27978, 42.28038, 42.27747)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_5 <- st_union(Geo_5, Geo)
LATITUDE_VALUEs <- c(
  -0.83924, -0.84048, -0.83896, -0.8337, -0.83312, -0.83068, -0.82828, -0.81673, -0.81411, -0.8093, 
  -0.79931, -0.79879, -0.81166, -0.81501, -0.81531, -0.82484, -0.82861, -0.83102, -0.83278)
LONGITUDE_VALUEs <- c(
  42.18897, 42.18988, 42.19052, 42.19627, 42.19627, 42.19919, 42.2008, 42.21178, 42.21517, 42.21869, 
  42.22795, 42.22641, 42.21504, 42.21298, 42.2119, 42.20161, 42.19985, 42.19663, 42.19564)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_5 <- st_union(Geo_5, Geo)
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}
Geo_5 <- Geo_5 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### KENYA #####
Geo_0 <- Geometric_Operations(Geo_6, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_5)
Geo_6 <- st_set_geometry(Geo_6, st_geometry(Geo_0))
if (st_is_valid(Geo_6) == FALSE) {Geo_6 <- st_make_valid(Geo_6)}
LATITUDE_VALUEs <- c(
  -0.99976, -0.99976, -1.01435, -1.03529, -1.04593, -1.0461, -1.02173, -1.18827, -1.41446, -1.50141, 
  -1.62547, -1.68639, -1.77481, -1.91207, -2.01123, -2.11896, -2.19032, -2.31977, -2.46796, -2.55508, 
  -2.56811, -2.62161, -2.72678, -2.91858, -2.97756, -3.06052, -3.31099, -3.35658, -3.35829, -3.44054, 
  -3.46179, -3.46145, -3.46556, -3.47961, -3.50257, -3.52039, -3.50325, -3.50908, -3.5197, -3.53992, 
  -3.56322, -3.61017, -3.67184, -3.95617, -4.14931, -4.39662, -4.56217, -4.62388, -4.6593, -4.66426, 
  -4.66563, -4.66939, -4.66939, -4.67452, -4.67469, -4.67709, -4.67914, -4.67777, -4.68034,
  -4.67909, -4.67327, -4.66968, -4.65804, -4.65719, -4.66163, -4.66112, -4.65342, -4.63922, -4.63546, 
  -4.63255, -4.63563, -4.62468, -4.63135, -4.62211, -4.62639, -4.61886, -4.62724, -4.62451, -4.62707, 
  -4.60226, -4.59627, -4.59046, -4.58806, -4.59063, -4.59063, -4.58806, -4.58857, -4.58669, -4.58772, 
  -4.58635, -4.60175, -4.6062, -4.61561, -4.61458, -4.59456, -4.59952, -4.5908, -4.59884, -4.60346, 
  -4.60996, -4.61373, -4.637, -4.64453, -4.63956, -4.63991, -4.64897, -4.64709, -4.64127, -4.63357, 
  -4.62211, -4.62126, -4.60209, -4.58053, -4.58806, -4.57642, -4.56667, -4.5564, -4.55777, -4.54682, 
  -4.53895, -4.53399, -4.53553, -4.54888, -4.55144, -4.55846, -4.56496, -4.58618, -4.58994, -4.59217, 
  -4.58532, -4.58532, -4.57968, -4.57625, -4.56085, -4.55469, -4.54665, -4.53861, -4.5357, -4.53245, 
  -4.53279, -4.52201, -4.48504, -4.46588, -4.45509, -4.44448, -4.43918, -4.4206, -4.41974, -4.43053, 
  -4.42864, -4.43806, -4.43943, -4.41529, -4.40708, -4.38876, -4.36001, -4.35111, -4.30181, -4.2698, 
  -4.25884, -4.20458, -4.14072, -4.1289, -4.09397, -4.08781, -4.08438, -4.08353, -4.07891, -4.07891, 
  -4.07411, -4.0724, -4.06606, -4.06213, -4.06452, -4.05819, -4.02411, -4.02257, -4.01846, -4.01726, 
  -4.01024, -4.00014, -3.97531, -3.96281, -3.95904, -3.95904, -3.95304, -3.9527, -3.94003, -3.90715, 
  -3.82408, -3.80901, -3.72525, -3.69801, -3.6821, -3.67816, -3.67268, -3.65126, -3.64115, -3.63721, 
  -3.63567, -3.56124, -3.48825, -3.40532, -3.40086, -3.38887, -3.38955, -3.36033, -3.36118, -3.35639, 
  -3.35724, -3.34936, -3.33599, -3.31903, -3.30309, -3.28955, -3.28407, -3.27841, -3.27344, -3.25699, 
  -3.2467, -3.2246, -3.20471, -3.19203, -3.17232, -3.1497, -3.16546, -3.16426, -3.13016, -3.0897, 
  -3.07856, -3.07102, -3.05439, -3.03896, -3.03005, -3.01599, -3.00468, -3.00194, -3.00297, -2.99234, 
  -2.99662, -2.98942, -2.97811, -2.97931, -2.99302, -2.99422, -2.98222, -2.97794, -2.95771, -2.96182, 
  -2.94656, -2.94502, -2.93578, -2.9219, -2.89858, -2.86464, -2.82177, -2.79657, -2.77994, -2.75868, 
  -2.75559, -2.75628, -2.76193, -2.76416, -2.77445, -2.77548, -2.78131, -2.78388, -2.76519, -2.76502, 
  -2.75542, -2.75233, -2.7441, -2.7345, -2.73501, -2.74222, -2.71495, -2.68872, -2.65871, -2.64739, 
  -2.64533, -2.61824, -2.60212, -2.58686, -2.58995, -2.56954, -2.54433, -2.53473, -2.53421, -2.53044, 
  -2.53507, -2.54107, -2.54484, -2.55205, -2.55548, -2.56148, -2.53473, -2.51037, -2.48979, -2.45532, 
  -2.45206, -2.45395, -2.45275, -2.43954, -2.41982, -2.39392, -2.37351, -2.36048, -2.35567, -2.34487, 
  -2.35465, -2.3495, -2.36408, -2.3653, -2.3749, -2.38348, -2.38845, -2.38451, -2.38571, -2.39583, 
  -2.39874, -2.39308, -2.39836, -2.39806, -2.38965, -2.38468, -2.37816, -2.37971, -2.37387, -2.37079, 
  -2.37559, -2.37044, -2.36839, -2.36341, -2.36513, -2.36255, -2.35707, -2.35243, -2.35552, -2.35415, 
  -2.34403, -2.33403, -2.32048, -2.32185, -2.31807, -2.31876, -2.31602, -2.31344, -2.30727, -2.31104, 
  -2.31499, -2.31327, -2.30984, -2.31396, -2.30898, -2.29732, -2.29372, -2.28463, -2.28823, -2.27571, 
  -2.27691, -2.27365, -2.27965, -2.2824, -2.27554, -2.27948, -2.28583, -2.29989, -2.31138, -2.3059, 
  -2.29938, -2.29063, -2.29012, -2.27674, -2.27348, -2.26936, -2.26164, -2.27039, -2.2649, -2.26336, 
  -2.26147, -2.25564, -2.25478, -2.24432, -2.23265, -2.2095, -2.20915, -2.22253, -2.22854, -2.23145, 
  -2.22682, -2.23214, -2.23523, -2.24192, -2.24243, -2.25049, -2.23952, -2.23317, -2.23368, -2.25221, 
  -2.25066, -2.25427, -2.2553, -2.25855, -2.24998, -2.25032, -2.24397, -2.24243, -2.25512, -2.25581, 
  -2.25015, -2.24826, -2.25204, -2.25375, -2.26439, -2.26456, -2.25924, -2.24964, -2.24277, -2.24415, 
  -2.24089, -2.23608, -2.2366, -2.24243, -2.23128, -2.23934, -2.25169, -2.26867, -2.26867, -2.27605, 
  -2.28411, -2.29097, -2.28497, -2.27639, -2.27674, -2.28223, -2.30367, -2.31018, -2.33677, -2.33883, 
  -2.31173, -2.30006, -2.29629, -2.30161, -2.29406, -2.27365, -2.26645, -2.26216, -2.2577, -2.24277, 
  -2.24123, -2.22871, -2.23506, -2.22802, -2.21807, -2.22185, -2.21962, -2.23025, -2.25495, -2.28548, 
  -2.28771, -2.28394, -2.2836, -2.28686, -2.28548, -2.29029, -2.2896, -2.30212, -2.30881, -2.31893, 
  -2.32288, -2.31586, -2.30574, -2.30146, -2.29048, -2.28413, -2.27127, -2.26115, -2.2608, -2.25154, 
  -2.2373, -2.22495, -2.22238, -2.23216, -2.22358, -2.22633, -2.22067, -2.22701, -2.22067, -2.21844, 
  -2.20814, -2.19888, -2.18584, -2.17246, -2.16938, -2.16475, -2.16183, -2.15205, -2.14862, -2.13798, 
  -2.12889, -2.09596, -2.08721, -2.0752, -2.08446, -2.07486, -2.07691, -2.07348, -2.08017, -2.07794, 
  -2.07348, -2.06748, -2.06628, -2.07194, -2.07177, -2.07897, -2.07486, -2.07537, -2.07177, -2.07143, 
  -2.05856, -2.0589, -2.06662, -2.06199, -2.05925, -2.05376, -2.05358, -2.04998, -2.04878, -2.04569, 
  -2.04655, -2.04274, -2.03862, -2.04222, -2.04617, -2.04994, -2.03004, -2.01769, -2.01254, -2.01392, 
  -2.01186, -2.01769, -2.01803, -2.02147, -2.0158, -2.01563, -2.02009, -2.02472, -2.02044, -2.01769, 
  -2.02318, -2.01958, -2.01752, -2.01357, -2.01254, -2.00723, -2.01031, -2.00911, -2.00191, -1.98098, 
  -1.98372, -1.97738, -1.97635, -1.97189, -1.96983, -1.97137, -1.96794, -1.96125, -1.95713, -1.9573, 
  -1.95319, -1.95267, -1.94993, -1.94993, -1.94667, -1.941, -1.9477, -1.95301, -1.95799, -1.95747, 
  -1.96211, -1.96245, -1.95473, -1.9513, -1.94512, -1.94375, -1.93929, -1.93311, -1.93414, -1.94203, 
  -1.94787, -1.94752, -1.95353, -1.9561, -1.95747, -1.96434, -1.9712, -1.97497, -1.97103, -1.96897, 
  -1.96622, -1.95439, -1.96245, -1.96828, -1.97394, -1.97566, -1.97926, -1.99144, -1.99573, -1.99144, 
  -1.99419, -2.00071, -2.00791, -2.01889, -2.0237, -2.03279, -2.03896, -2.03828, -2.05612, -2.06332, 
  -2.06058, -2.06847, -2.07722, -2.08134, -2.07293, -2.05698, -2.02472, -2.01598, -2.00397, -1.99539, 
  -1.98767, -1.976, -1.9664, -1.9561, -1.93877, -1.92968, -1.93088, -1.90772, -1.91321, -1.90721, 
  -1.91561, -1.92265, -1.92127, -1.92694, -1.92265, -1.93363, -1.94341, -1.94203, -1.94529, -1.95147, 
  -1.95353, -1.96211, -1.99333, -1.99985, -2.017, -2.01477, -2.02009, -2.02747, -2.04119, -2.04499, 
  -2.05116, -2.05305, -2.04859, -2.04859, -2.03075, -2.02474, -2.03075, -2.02457, -2.02354, -2.00656, 
  -2.0069, -1.99918, -1.9985, -1.99386, -1.99095, -1.98632, -1.98443, -1.97945, -1.97945, -1.97088, 
  -1.97396, -1.9707, -1.96659, -1.96813, -1.96487, -1.97722, -1.97311, -1.96985, -1.96384, -1.96813, 
  -1.96333, -1.96556, -1.96024, -1.96556, -1.9707, -1.97431, -1.97259, -1.97173, -1.97791, -1.98117, 
  -1.98529, -1.99009, -1.99112, -1.99592, -1.99798, -1.99095, -1.99249, -1.98855, -1.97842, -1.97156, 
  -1.96847, -1.96161, -1.95406, -1.95012, -1.95097, -1.94909, -1.95681, -1.95869, -1.9532, -1.94017, 
  -1.93759, -1.93105, -1.92608, -1.92968, -1.9211, -1.91218, -1.90052, -1.90189, -1.89314, -1.89897, 
  -1.89931, -1.90738, -1.9127, -1.90601, -1.9163, -1.92127, -1.93877, -1.94118, -1.9477, -1.97291, 
  -1.97151, -1.95833, -1.96863, -1.96245, -1.96691, -1.97343, -1.98115, -1.9887, -1.99693, -1.99951, 
  -2.0038, -2.01031, -2.01632, -2.02421, -2.03159, -2.0321, -2.01649, -2.00482, -1.99865, -1.99436, 
  -1.98544, -1.97206, -1.96811, -1.98818, -1.99367, -1.98818, -1.98149, -1.97446, -1.97103, -1.96022, 
  -1.95662, -1.96073, -1.95421, -1.94872, -1.92951, -1.92385, -1.9175, -1.92385, -1.91304, -1.90806, 
  -1.86998, -1.86998, -1.86483, -1.8674, -1.8638, -1.86311, -1.85985, -1.8614, -1.85762, -1.85985, 
  -1.86809, -1.85848, -1.85471, -1.84767, -1.83034, -1.80958, -1.80049, -1.78282, -1.75125, -1.74799, 
  -1.72242, -1.69943, -1.67335,
  -1.66204, -1.59838, -0.83381, -0.45349, 0.45974, 0.94448, 1.69241, 2.14809, 2.82827, 2.99074, 
  3.1413, 3.47953, 3.8736, 3.91042, 3.91898, 3.93337, 3.93628, 3.95358, 3.98261, 3.98212, 
  -0.99078)
LONGITUDE_VALUEs <- c(
  33.93329, 34.01895, 34.02787, 34.02839, 34.03783, 34.04607, 34.08039, 34.37647, 34.77642, 34.92943, 
  35.14605, 35.2573, 35.41363, 35.65705, 35.83422, 36.02407, 36.14834, 36.38034, 36.64123, 36.80192, 
  36.81839, 36.91518, 37.10141, 37.44804, 37.55038, 37.67325, 37.71254, 37.68097, 37.66346, 37.58446, 
  37.58481, 37.60677, 37.61741, 37.62633, 37.60403, 37.60575, 37.67679, 37.69327, 37.69979, 37.74652, 
  37.75785, 37.76266, 37.78429, 38.18664, 38.45921, 38.81381, 39.04908, 39.13737, 39.19108, 39.19333, 
  39.1959, 39.19477, 39.20284, 39.20662, 39.20937, 39.20696, 39.20696, 39.21366, 39.21727,
  39.21894, 39.22118, 39.22529, 39.22804, 39.23216, 39.23336, 39.23611, 39.23456, 39.24314, 39.23456, 
  39.23542, 39.24537, 39.2416, 39.24726, 39.25104, 39.25327, 39.25808, 39.26649, 39.26992, 39.27438, 
  39.27781, 39.27284, 39.27146, 39.26546, 39.26117, 39.25653, 39.25808, 39.26134, 39.2646, 39.26838, 
  39.27061, 39.2809, 39.27987, 39.28108, 39.29034, 39.29704, 39.29876, 39.30631, 39.30528, 39.30905, 
  39.30682, 39.30768, 39.30425, 39.32931, 39.33945, 39.35747, 39.37979, 39.40416, 39.40536, 39.41051, 
  39.41119, 39.39771, 39.39136, 39.39685, 39.402, 39.42021, 39.4238, 39.41814, 39.42226, 39.42741, 
  39.44029, 39.44029, 39.44596, 39.43686, 39.43102, 39.42638, 39.43342, 39.43822, 39.43651, 39.44217, 
  39.44423, 39.45024, 39.45145, 39.45523, 39.4542, 39.46227, 39.46157, 39.46312, 39.4602, 39.4614, 
  39.46432, 39.46484, 39.47891, 39.49882, 39.49693, 39.50106, 39.50793, 39.51443, 39.52611, 39.52886, 
  39.53315, 39.53332, 39.53848, 39.545, 39.54552, 39.55033, 39.56285, 39.56388, 39.58378, 39.5989, 
  39.59872, 39.61348, 39.65211, 39.65538, 39.67529, 39.67392, 39.67512, 39.67014, 39.671, 39.67272, 
  39.6753, 39.68285, 39.68182, 39.68611, 39.69264, 39.70378, 39.72473, 39.72971, 39.73211, 39.72731, 
  39.72559, 39.73074, 39.7503, 39.76353, 39.76044, 39.75322, 39.76009, 39.76679, 39.7771, 39.78789, 
  39.8303, 39.83098, 39.85828, 39.87097, 39.86875, 39.8636, 39.86944, 39.86755, 39.86085, 39.86153, 
  39.86961, 39.90554, 39.92923, 39.97009, 39.96563, 39.96872, 39.97627, 40.009, 40.01312, 40.01587, 
  40.02257, 40.026, 40.05516, 40.07594, 40.10686, 40.12163, 40.12212, 40.12624, 40.12349, 40.13328, 
  40.1271, 40.12933, 40.12229, 40.1271, 40.14272, 40.12554, 40.14357, 40.14752, 40.16418, 40.158, 
  40.1623, 40.17483, 40.17002, 40.1762, 40.19612, 40.1975, 40.2088, 40.21773, 40.22237, 40.23388, 
  40.238, 40.24178, 40.24006, 40.23079, 40.21962, 40.20228, 40.19369, 40.18443, 40.17172, 40.16657, 
  40.16469, 40.16864, 40.164, 40.16503, 40.17328, 40.17139, 40.18616, 40.1841, 40.18787, 40.19457, 
  40.19251, 40.18976, 40.18907, 40.19045, 40.1877, 40.18512, 40.18306, 40.17688, 40.17946, 40.18358, 
  40.18564, 40.18924, 40.19233, 40.18683, 40.19336, 40.19525, 40.21036, 40.22907, 40.25773, 40.26648, 
  40.27232, 40.30683, 40.33498, 40.34236, 40.35112, 40.3875, 40.44809, 40.49137, 40.52482, 40.53203, 
  40.5389, 40.53633, 40.56518, 40.57205, 40.59624, 40.60809, 40.64824, 40.66576, 40.68721, 40.74114, 
  40.75604, 40.76875, 40.7715, 40.77167, 40.78816, 40.82352, 40.82508, 40.81992, 40.80258, 40.79761, 
  40.79813, 40.79006, 40.79212, 40.78885, 40.7892, 40.78113, 40.7813, 40.77632, 40.77271, 40.77632, 
  40.77357, 40.77014, 40.7622, 40.76086, 40.77134, 40.76945, 40.77975, 40.77014, 40.7679, 40.77272, 
  40.77409, 40.77735, 40.78233, 40.77804, 40.77546, 40.77117, 40.77649, 40.77032, 40.76826, 40.76551, 
  40.7674, 40.76143, 40.76108, 40.75748, 40.75508, 40.74787, 40.74735, 40.73586, 40.72779, 40.72625, 
  40.72899, 40.7132, 40.7108, 40.70788, 40.70428, 40.70564, 40.69226, 40.70547, 40.71337, 40.70787, 
  40.71165, 40.71439, 40.71731, 40.72298, 40.72675, 40.7319, 40.72675, 40.75129, 40.75524, 40.75919, 
  40.75335, 40.75009, 40.74168, 40.74031, 40.7482, 40.74014, 40.73636, 40.72538, 40.72263, 40.71165, 
  40.71886, 40.72023, 40.7271, 40.72847, 40.72366, 40.70376, 40.70633, 40.72092, 40.72212, 40.72813, 
  40.72967, 40.73156, 40.72974, 40.73198, 40.73782, 40.74812, 40.74554, 40.74692, 40.74949, 40.7507, 
  40.75447, 40.75293, 40.75739, 40.76426, 40.7665, 40.76959, 40.77028, 40.77302, 40.77302, 40.77732, 
  40.7768, 40.77989, 40.77869, 40.78144, 40.78127, 40.78518, 40.78741, 40.80184, 40.79755, 40.79239, 
  40.79222, 40.79772, 40.80218, 40.80253, 40.82159, 40.82983, 40.81317, 40.81232, 40.80339, 40.79772, 
  40.79806, 40.80648, 40.81369, 40.81506, 40.82245, 40.81781, 40.81352, 40.81644, 40.81473, 40.81868, 
  40.84976, 40.8729, 40.89609, 40.91256, 40.91685, 40.90312, 40.90226, 40.89779, 40.89951, 40.87994, 
  40.89094, 40.88544, 40.89214, 40.89763, 40.89489, 40.90193, 40.90828, 40.90107, 40.90588, 40.92853, 
  40.93609, 40.93781, 40.94674, 40.94742, 40.94416, 40.93918, 40.92407, 40.92115, 40.91307, 40.91634, 
  40.92836, 40.95223, 40.96099, 40.96099, 40.96975, 40.96941, 40.97933, 40.99033, 40.98587, 40.98587, 
  40.97556, 40.97659, 40.96698, 40.96457, 40.96114, 40.95341, 40.94413, 40.93709, 40.93538, 40.92593, 
  40.92061, 40.92234, 40.91994, 40.92166, 40.91908, 40.92029, 40.91583, 40.91978, 40.91445, 40.91497, 
  40.91119, 40.91651, 40.90827, 40.90879, 40.90071, 40.90089, 40.89419, 40.89247, 40.88388, 40.87873, 
  40.88612, 40.88715, 40.88457, 40.88028, 40.87701, 40.871, 40.8698, 40.85778, 40.85984, 40.87049, 
  40.88217, 40.88629, 40.89316, 40.89608, 40.89161, 40.89092, 40.88509, 40.88371, 40.87667, 40.87976, 
  40.88371, 40.88487, 40.88161, 40.89225, 40.89277, 40.90187, 40.90101, 40.90616, 40.9029, 40.90067, 
  40.89603, 40.88985, 40.88591, 40.88093, 40.87458, 40.86651, 40.866, 40.86102, 40.85656, 40.84815, 
  40.84231, 40.8406, 40.84523, 40.84678, 40.86291, 40.86531, 40.86995, 40.87544, 40.87252, 40.84574, 
  40.83133, 40.82325, 40.81432, 40.82153, 40.81861, 40.81535, 40.81072, 40.79647, 40.79819, 40.7939, 
  40.79476, 40.79012, 40.78772, 40.78583, 40.77777, 40.77639, 40.80643, 40.80746, 40.81981, 40.82359, 
  40.8423, 40.84779, 40.84667, 40.84169, 40.84238, 40.83929, 40.8391, 40.84288, 40.84443, 40.84305, 
  40.84683, 40.84924, 40.85284, 40.85181, 40.85697, 40.85885, 40.85559, 40.86796, 40.86641, 40.87053, 
  40.86813, 40.87465, 40.87345, 40.87912, 40.876, 40.87995, 40.87669, 40.88081, 40.89352, 40.90675, 
  40.91774, 40.9234, 40.91911, 40.91722, 40.91945, 40.91876, 40.9227, 40.92631, 40.94434, 40.94348, 
  40.94022, 40.93678, 40.93781, 40.94932, 40.97645, 40.98075, 40.95996, 40.9591, 40.96922, 40.96733, 
  40.97489, 40.96939, 40.97575, 40.97059, 40.97214, 40.98364, 40.99016, 41.00219, 41.00785, 41.01404, 
  41.01095, 41.01575, 41.01095, 41.00991, 41.00579, 41.00133, 40.99343, 40.98828, 40.98518, 40.98553, 
  40.98106, 40.99068, 40.99016, 40.98604, 40.99136, 40.9869, 40.98226, 40.99085, 40.99222, 41.00149, 
  41.00681, 41.01969, 41.02948, 41.03584, 41.03876, 41.04579, 41.05145, 41.05884, 41.06365, 41.06073, 
  41.06571, 41.06329, 41.0681, 41.06518, 41.06964, 41.06878, 41.07445, 41.07909, 41.08458, 41.09472, 
  41.09901, 41.10843, 41.10843, 41.1129, 41.11667, 41.11959, 41.12371, 41.12165, 41.12629, 41.12904, 
  41.13213, 41.13642, 41.14347, 41.14965, 41.14553, 41.1493, 41.15119, 41.16991, 41.17075, 41.17401, 
  41.17264, 41.17727, 41.16542, 41.1668, 41.17367, 41.18844, 41.19754, 41.20252, 41.19376, 41.19599, 
  41.1941, 41.19891, 41.19685, 41.18843, 41.1826, 41.17865, 41.17401, 41.15203, 41.15271, 41.16834, 
  41.16234, 41.17549, 41.17566, 41.17961, 41.18442, 41.20021, 41.20433, 41.21087, 41.22339, 41.22168, 
  41.227, 41.22133, 41.22133, 41.22957, 41.22803, 41.22048, 41.22219, 41.22957, 41.22408, 41.22974, 
  41.2335, 41.2318, 41.23695, 41.24382, 41.25669, 41.24262, 41.24862, 41.24639, 41.25154, 41.26562, 
  41.26956, 41.26802, 41.26236, 41.25961, 41.25292, 41.25789, 41.26734, 41.28038, 41.28313, 41.28862, 
  41.2924, 41.30767, 41.30493, 41.28537, 41.28382, 41.27558, 41.28828, 41.29, 41.29789, 41.30133, 
  41.31008, 41.31574, 41.31591, 41.32732, 41.34534, 41.34036, 41.34671, 41.35118, 41.36372, 41.36286, 
  41.39084, 41.37915, 41.37348, 41.3661, 41.3673, 41.37194, 41.37348, 41.37692, 41.37674, 41.38276, 
  41.3843, 41.39478, 41.39203, 41.39615, 41.41829, 41.42481, 41.44008, 41.45227, 41.4818, 41.49056, 
  41.50361, 41.52129, 41.55132,
  41.55911, 41.55875, 40.99331, 40.99297, 40.99433, 40.99433, 40.9918, 40.99044, 40.98903, 41.15088, 
  41.31225, 41.54362, 41.82965, 41.85865, 41.85746, 41.87119, 41.87187, 41.88612, 41.90637, 41.90507, 
  33.9333)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_6, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_6 <- st_set_geometry(Geo_6, Geo_0[2])
Geo_6 <- st_union(Geo_6, Geo)
if (st_is_valid(Geo_6) == FALSE) {Geo_6 <- st_make_valid(Geo_6)}
LATITUDE_VALUEs <- c(
  -1.76607, -1.76998, -1.77092, -1.77268, -1.76899, -1.76762, -1.76268, -1.75992, -1.75715, 
  -1.757, -1.7558, -1.75462, -1.7549, -1.75282, -1.7535, -1.75488, -1.75496, -1.75651, -1.75661, 
  -1.75797, -1.75831, -1.7605, -1.75994, -1.76219)
LONGITUDE_VALUEs <- c(
  41.49141, 41.49128, 41.49475, 41.49428, 41.49844, 41.4987, 41.50316, 41.50411, 41.50684, 
  41.50778, 41.50802, 41.50933, 41.51044, 41.51053, 41.50892, 41.50838, 41.50722, 41.50621, 41.50549, 
  41.50491, 41.50235, 41.50164, 41.50027, 41.49379)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_6 <- st_union(Geo_6, Geo)
LATITUDE_VALUEs <- c(
  -1.89043, -1.89107, -1.88271, -1.85543, -1.85199, -1.85161, -1.84989, -1.85127, -1.84755, -1.84554, 
  -1.84416, -1.84296, -1.84198, -1.84241, -1.83822, -1.83758, -1.83942, -1.8418, -1.84384, -1.84612, 
  -1.84865, -1.85131, -1.85158, -1.85313, -1.85647, -1.86076, -1.87018, -1.88099, -1.88174)
LONGITUDE_VALUEs <- c(
  41.38611, 41.388, 41.39452, 41.42348, 41.42486, 41.42734, 41.42825, 41.42932, 41.43294, 41.43376, 
  41.43556, 41.4356, 41.43683, 41.43807, 41.43732, 41.43108, 41.42945, 41.42973, 41.42882, 41.42906, 
  41.42421, 41.42207, 41.41953, 41.41805, 41.41093, 41.4091, 41.40087, 41.39458, 41.39286)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_6 <- st_union(Geo_6, Geo)
LATITUDE_VALUEs <- c(
  -1.86489, -1.86607, -1.86551, -1.86557, -1.8647, -1.86197, -1.86229, -1.86041, -1.85933, -1.85998)
LONGITUDE_VALUEs <- c(
  41.39345, 41.39385, 41.39535, 41.39638, 41.39658, 41.40005, 41.4019, 41.40239, 41.4005, 41.39877)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_6 <- st_union(Geo_6, Geo)
LATITUDE_VALUEs <- c(
  -2.02736, -2.02298, -2.015, -2.01226, -2.00857, -2.00891, -2.00136, -2.00111, -2.01234, -2.02144, 
  -2.02641, -2.02635)
LONGITUDE_VALUEs <- c(
  41.20967, 41.21464, 41.21499, 41.21078, 41.21018, 41.20684, 41.204, 41.198, 41.20031, 41.19654, 
  41.19877, 41.20636)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_6 <- st_union(Geo_6, Geo)
LATITUDE_VALUEs <- c(
  -2.01586, -2.02169, -2.02916, -2.02615, -2.02959, -2.01912, -2.01123, -2.00205, -2.00471, -2.0102, 
  -2.00857, -2.01449, -2.01029, -2.01312, -2.01149)
LONGITUDE_VALUEs <- c(
  41.14153, 41.14084, 41.17122, 41.17774, 41.18709, 41.18889, 41.19541, 41.19327, 41.1858, 41.18109, 
  41.17645, 41.17276, 41.1701, 41.15655, 41.15183)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_6 <- st_union(Geo_6, Geo)
LATITUDE_VALUEs <- c(
  -2.13743, -2.14052, -2.1563, -2.17386, -2.17643, -2.1718, -2.17729, -2.17763, -2.19221, -2.19693, 
  -2.20885, -2.20911, -2.20405, -2.19916, -2.19839, -2.18535, -2.18192, -2.1832, -2.17343, -2.16681, 
  -2.16145, -2.15819, -2.15626, -2.15827, -2.16248, -2.16475, -2.16119, -2.15544, -2.15231, -2.14687, 
  -2.14695, -2.15394, -2.14832, -2.14974, -2.14721, -2.15103, -2.14575, -2.14103, -2.13962, -2.1376, 
  -2.13507, -2.1247, -2.12461, -2.13477, -2.14018, -2.14781, -2.14768, -2.14562, -2.14305, -2.14391, 
  -2.14721, -2.1602, -2.16642, -2.16548, -2.16093, -2.15822, -2.15962, -2.15602, -2.15162, -2.15033, 
  -2.14746, -2.14581, -2.14276, -2.1433, -2.14519, -2.14231, -2.14525, -2.14405, -2.14281, -2.14319, 
  -2.14047, -2.13627, -2.13001, -2.12272, -2.11865, -2.12362, -2.12525, -2.12212, -2.1153, -2.11633, 
  -2.11179, -2.11505, -2.11946, -2.12071, -2.11963, -2.12101, -2.128, -2.13156, -2.12916, -2.11253, 
  -2.10498, -2.10044, -2.09615, -2.09203, -2.07676, -2.0759, -2.0735, -2.0723, -2.06767, -2.05652, 
  -2.04494, -2.04554, -2.04202, -2.05386, -2.05703, -2.06535, -2.06407, -2.07204, -2.07479, -2.08157, 
  -2.09074, -2.09074, -2.09366, -2.0916, -2.0952, -2.10472, -2.11007, -2.13078, -2.13199, -2.13516)
LONGITUDE_VALUEs <- c(
  40.97085, 40.9645, 40.9609, 40.96858, 40.97579, 40.97896, 40.98205, 40.98694, 40.98986, 40.98832, 
  41.00016, 41.01055, 41.01587, 41.01338, 41.00823, 41.00908, 41.00599, 40.99922, 40.9981, 40.99349, 
  40.9937, 40.99125, 40.99787, 40.99877, 40.99799, 41.0007, 41.00486, 41.00314, 41.00348, 40.99898, 
  41.0031, 41.00765, 41.01314, 41.01511, 41.01808, 41.01782, 41.03108, 41.02919, 41.03258, 41.03241, 
  41.0358, 41.0382, 41.03958, 41.03949, 41.03589, 41.03606, 41.0382, 41.03803, 41.04498, 41.0464, 
  41.04344, 41.04166, 41.05196, 41.05809, 41.06148, 41.06157, 41.064, 41.06389, 41.06166, 41.06722, 
  41.06752, 41.07195, 41.07294, 41.07623, 41.07803, 41.07912, 41.08751, 41.09916, 41.09942, 41.10092, 
  41.10976, 41.11423, 41.11586, 41.11238, 41.11366, 41.115, 41.11736, 41.12242, 41.12285, 41.12629, 
  41.12603, 41.13552, 41.1359, 41.13396, 41.13212, 41.12907, 41.12559, 41.13062, 41.14384, 41.16224, 
  41.1734, 41.17211, 41.16413, 41.17022, 41.16207, 41.1583, 41.15503, 41.14456, 41.14001, 41.13649, 
  41.11392, 41.10327, 41.08833, 41.07528, 41.06386, 41.06629, 41.06113, 41.05487, 41.04688, 41.04267, 
  41.02448, 41.01633, 41.0092, 41.00302, 40.99572, 40.98833, 40.97217, 40.9687, 40.97106, 40.96994)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_6 <- st_union(Geo_6, Geo)
LATITUDE_VALUEs <- c(
  -4.65377, -4.65848, -4.66447, -4.67097, -4.67063, -4.67225, -4.6702, -4.67071, -4.66635, -4.67028, 
  -4.66934, -4.67379, -4.67123, -4.65771, -4.65831, -4.66173, -4.66164, -4.65814, -4.65797)
LONGITUDE_VALUEs <- c(
  39.3604, 39.35885, 39.35225, 39.35413, 39.36614, 39.37061, 39.37395, 39.3797, 39.38391, 39.39283, 
  39.39695, 39.40124, 39.40536, 39.40081, 39.39763, 39.39523, 39.38905, 39.37781, 39.36512)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_6 <- st_union(Geo_6, Geo)
LATITUDE_VALUEs <- c(-4.72853, -4.74136, -4.73965, -4.72631)
LONGITUDE_VALUEs <- c(39.28071, 39.28449, 39.30165, 39.30113)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_6 <- st_union(Geo_6, Geo)
LATITUDE_VALUEs <- c(-4.7021, -4.69799, -4.69354, -4.69483, -4.69029, -4.69256, -4.69992)
LONGITUDE_VALUEs <- c(39.313, 39.32055, 39.31575, 39.30863, 39.29799, 39.29796, 39.30396)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_6 <- st_union(Geo_6, Geo)
LATITUDE_VALUEs <- c(-4.67122, -4.66583, -4.65299, -4.65573, -4.6577, -4.66463, -4.6704, -4.67036)
LONGITUDE_VALUEs <- c(39.28099, 39.2906, 39.26932, 39.26915, 39.27181, 39.27087, 39.27667, 39.27916)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_6 <- st_union(Geo_6, Geo)
LATITUDE_VALUEs <- c(-4.7154, -4.71929, -4.72451, -4.72194, -4.7172, -4.71497)
LONGITUDE_VALUEs <- c(39.36834, 39.36477, 39.36842, 39.37589, 39.38095, 39.37897)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_6 <- st_union(Geo_6, Geo)
LATITUDE_VALUEs <- c(-4.70383, -4.70524, -4.70236, -4.70225)
LONGITUDE_VALUEs <- c(39.40463, 39.4074, 39.40976, 39.40783)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_6 <- st_union(Geo_6, Geo)
LATITUDE_VALUEs <- c(-4.68844, -4.6877, -4.68599, -4.68685)
LONGITUDE_VALUEs <- c(39.40255, 39.40405, 39.40328, 39.40112)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_6 <- st_union(Geo_6, Geo)
LATITUDE_VALUEs <- c(-4.68614, -4.6868, -4.68799, -4.68861, -4.68872, -4.68655)
LONGITUDE_VALUEs <- c(39.39786, 39.39662, 39.39977, 39.39985, 39.40053, 39.39976)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_6 <- st_union(Geo_6, Geo)
LATITUDE_VALUEs <- c(
  -4.59895, -4.6013, -4.60442, -4.60539, -4.60705, -4.60992, -4.61311, -4.61484, -4.61644, -4.61681, 
  -4.61785, -4.6183, -4.61516, -4.61456, -4.61212, -4.61212, -4.61116, -4.61214, -4.60652, -4.60209, 
  -4.59918)
LONGITUDE_VALUEs <- c(
  39.30187, 39.29878, 39.29738, 39.29749, 39.29552, 39.29415, 39.29359, 39.29294, 39.29312, 39.29284, 
  39.29299, 39.29397, 39.29483, 39.29627, 39.29599, 39.29724, 39.29822, 39.30078, 39.30369, 39.30318, 
  39.30224)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_6 <- st_union(Geo_6, Geo)
LATITUDE_VALUEs <- c(-4.44741, -4.44846, -4.44408, -4.44393, -4.44157, -4.44151, -4.44262, -4.44401, -4.44459, -4.44549)
LONGITUDE_VALUEs <- c(39.53235, 39.53368, 39.53638, 39.53694, 39.53748, 39.53632, 39.53368, 39.53325, 39.53254, 39.53288)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_6 <- st_union(Geo_6, Geo)
LATITUDE_VALUEs <- c(
  -2.29689, -2.29822, -2.30667, -2.30602, -2.30864, -2.30813, -2.30431, -2.30298, -2.29976, -2.30054, 
  -2.29912, -2.29994)
LONGITUDE_VALUEs <- c(
  40.71252, 40.71123, 40.71445, 40.71826, 40.72054, 40.72153, 40.71912, 40.72157, 40.71917, 40.71754, 
  40.71608, 40.71483)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_6 <- st_union(Geo_6, Geo)
LATITUDE_VALUEs <- c(-2.26233, -2.26353, -2.26216, -2.26632, -2.26276, -2.25937, -2.25976, -2.25898)
LONGITUDE_VALUEs <- c(40.74174, 40.74384, 40.7456, 40.74951, 40.75135, 40.74942, 40.74706, 40.74389)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_6 <- st_union(Geo_6, Geo)
LATITUDE_VALUEs <- c(
  -2.26825, -2.26589, -2.26439, -2.26576, -2.26666, -2.2688, -2.27009, -2.27155, -2.27159, -2.26992, 
  -2.2709, -2.26945, -2.26992, -2.2682, -2.26786, -2.26623, -2.26756, -2.26692, -2.26816)
LONGITUDE_VALUEs <- c(
  40.76067, 40.75981, 40.75681, 40.7553, 40.75732, 40.75676, 40.75762, 40.75646, 40.75886, 40.76032, 
  40.76144, 40.76363, 40.76569, 40.76594, 40.76689, 40.76624, 40.765, 40.76328, 40.76208)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_6 <- st_union(Geo_6, Geo)
LATITUDE_VALUEs <- c(
  -2.31487, -2.30715, -2.28091, -2.27235, -2.26481, -2.25897, -2.26009, -2.25812, -2.27167, -2.27861, 
  -2.27896, -2.28282, -2.28264, -2.29002, -2.28813, -2.29714, -2.30743, -2.30957)
LONGITUDE_VALUEs <- c(
  40.80603, 40.80843, 40.79247, 40.79501, 40.80008, 40.80634, 40.80119, 40.79982, 40.78746, 40.78961, 
  40.78789, 40.78729, 40.78386, 40.77948, 40.77571, 40.77536, 40.79347, 40.80136)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_6 <- st_union(Geo_6, Geo)
LATITUDE_VALUEs <- c(-2.0413, -2.04301, -2.04606, -2.04829, -2.04846, -2.05108, -2.05116, -2.04752)
LONGITUDE_VALUEs <- c(41.13639, 41.12892, 41.13085, 41.13841, 41.14214, 41.14566, 41.14922, 41.14849)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_6 <- st_union(Geo_6, Geo)
LATITUDE_VALUEs <- c(
  -1.92455, -1.92348, -1.91619, -1.91499, -1.91173, -1.9119, -1.90967, -1.91036, -1.91452, -1.91619, 
  -1.91838, -1.92001)
LONGITUDE_VALUEs <- c(
  41.20939, 41.21407, 41.21286, 41.21527, 41.21509, 41.21213, 41.21183, 41.20887, 41.21093, 41.21037, 
  41.21119, 41.20917)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_6 <- st_union(Geo_6, Geo)
if (st_is_valid(Geo_6) == FALSE) {Geo_6 <- st_make_valid(Geo_6)}
Geo_6 <- Geo_6 %>%
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")

##### UGANDA #####
LATITUDE_VALUEs <- c(-0.99976, -0.99999, -0.99999, -0.99999, 0.11400, -0.99078)
LONGITUDE_VALUEs <- c(33.93329, 33.65719, 33.51939, 32.87439, 32.87819, 33.9333)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_7, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_7 <- st_set_geometry(Geo_7, Geo_0[2])
Geo_7 <- st_union(Geo_7, Geo)
if (st_is_valid(Geo_7) == FALSE) {Geo_7 <- st_make_valid(Geo_7)}

##### UNITED REPUBLIC OF TANZANIA #####
Geo_0 <- Geometric_Operations(Geo_8, Geo_6)
Geo_0 <- Geometric_Operations(Geo_0, Geo_7)
Geo_8 <- st_set_geometry(Geo_8, st_geometry(Geo_0))
if (st_is_valid(Geo_8) == FALSE) {Geo_8 <- st_make_valid(Geo_8)}
LATITUDE_VALUEs <- c(
  -0.99999, -0.99999, -0.99999,
  -0.99976, -0.99976, -1.01435, -1.03529, -1.04593, -1.0461, -1.02173, -1.18827, -1.41446, -1.50141, 
  -1.62547, -1.68639, -1.77481, -1.91207, -2.01123, -2.11896, -2.19032, -2.31977, -2.46796, -2.55508, 
  -2.56811, -2.62161, -2.72678, -2.91858, -2.97756, -3.06052, -3.31099, -3.35658, -3.35829, -3.44054, 
  -3.46179, -3.46145, -3.46556, -3.47961, -3.50257, -3.52039, -3.50325, -3.50908, -3.5197, -3.53992, 
  -3.56322, -3.61017, -3.67184, -3.95617, -4.14931, -4.39662, -4.56217, -4.62388, -4.6593, -4.66426, 
  -4.66563, -4.66939, -4.66939, -4.67452, -4.67469, -4.67709, -4.67914,
  -4.67973, -4.68298, -4.68161, -4.68486, -4.68726, -4.71874, -4.7261, -4.76031, -4.77246, -4.77057, 
  -4.77314, -4.74286, -4.729, -4.73054, -4.74406, -4.75809, -4.75997, -4.76613, -4.76869, -4.77759, 
  -4.7805, -4.78272, -4.78973, -4.79658, -4.79127, -4.80239, -4.79333, -4.79469, -4.79247, -4.80872, 
  -4.82548, -4.82326, -4.8301, -4.83284, -4.83387, -4.83831, -4.84037, -4.8431, -4.85063, -4.85131, 
  -4.86243, -4.86397, -4.87423, -4.87988, -4.88484, -4.88603, -4.89561, -4.91049, -4.91665, -4.94128, 
  -4.92794, -4.91733, -4.88022, -4.87338, -4.86483, -4.86004, -4.85559, -4.85131, -4.85901, -4.85183, 
  -4.86038, -4.85285, -4.86089, -4.8638, -4.87611, -4.88176, -4.88712, -4.89236, -4.89637, -4.90126, 
  -4.91101, -4.92332, -4.91956, -4.91511, -4.91785, -4.91597, -4.91836, -4.92298, -4.92828, -4.92965, 
  -4.93615, -4.93615, -4.94487, -4.96419, -4.96881, -4.97411, -4.97548, -4.98027, -4.98335, -4.98557, 
  -4.98865, -4.98848, -4.98078, -4.98284, -4.98848, -4.99344, -4.99241, -4.99994, -4.99771, -5.00165, 
  -5.00079, -5.00541, -5.00592, -5.02798, -5.022, -5.02353, -5.0196, -5.0249, -5.02678, -5.04115, 
  -5.04354, -5.05124, -5.05226, -5.06269, -5.06902, -5.06372, -5.0615, -5.05295, -5.05825, -5.07124, 
  -5.10835, -5.10954, -5.1222, -5.12237, -5.13827, -5.15075, -5.15434, -5.16631, -5.17109, -5.17041, 
  -5.17537, -5.17554, -5.18272, -5.18289, -5.1947, -5.1971, -5.20787, -5.20821, -5.21624, -5.2212, 
  -5.2183, -5.22582, -5.22342, -5.22565, -5.23402, -5.26325, -5.26821, -5.2718, -5.2865, -5.29847, 
  -5.30018, -5.33453, -5.34359, -5.3723, -5.39743, -5.40067, -5.40836, -5.41076, -5.40648, -5.40682, 
  -5.41332, -5.4111, -5.41434, -5.42682, -5.4316, -5.4287, -5.42596, -5.42938, -5.4316, -5.4316, 
  -5.43861, -5.43622, -5.4475, -5.44733, -5.45143, -5.44716, -5.45604, -5.45638, -5.46339, -5.48936, 
  -5.50149, -5.52234, -5.53259, -5.55207, -5.57223, -5.60042, -5.61699, -5.6298, -5.64057, -5.64142, 
  -5.65355, -5.67097, -5.70533, -5.71592, -5.75384, -5.76374, -5.77382, -5.78731, -5.80285, -5.8189, 
  -5.84486, -5.87697, -5.91129, -5.93502, -5.95107, -5.95192, -5.96388, -5.96729, -5.96968, -5.97088, 
  -5.98556, -6.02243, -6.03268, -6.0564, -6.06323, -6.06972, -6.07399, -6.09413, -6.09396, -6.12144, 
  -6.15643, -6.15643, -6.15284, -6.15114, -6.15848, -6.1781, -6.21326, -6.2235, -6.2494, -6.25486, 
  -6.2912, -6.31833)
LONGITUDE_VALUEs <- c(
  32.87439, 33.51939, 33.65719, 
  33.93329, 34.01895, 34.02787, 34.02839, 34.03783, 34.04607, 34.08039, 34.37647, 34.77642, 34.92943, 
  35.14605, 35.2573, 35.41363, 35.65705, 35.83422, 36.02407, 36.14834, 36.38034, 36.64123, 36.80192, 
  36.81839, 36.91518, 37.10141, 37.44804, 37.55038, 37.67325, 37.71254, 37.68097, 37.66346, 37.58446, 
  37.58481, 37.60677, 37.61741, 37.62633, 37.60403, 37.60575, 37.67679, 37.69327, 37.69979, 37.74652, 
  37.75785, 37.76266, 37.78429, 38.18664, 38.45921, 38.81381, 39.04908, 39.13737, 39.19108, 39.19333, 
  39.1959, 39.19477, 39.20284, 39.20662, 39.20937, 39.20696, 39.20696,
  39.20036, 39.20122, 39.211, 39.21409, 39.20929, 39.20946, 39.21375, 39.21409, 39.20894, 39.20585, 
  39.1995, 39.18492, 39.19006, 39.18629, 39.18097, 39.18629, 39.18114, 39.18131, 39.17359, 39.1753, 
  39.17118, 39.17616, 39.17787, 39.18422, 39.19452, 39.19761, 39.2019, 39.20894, 39.21357, 39.22181, 
  39.21615, 39.21134, 39.20928, 39.20499, 39.20945, 39.21546, 39.21254, 39.21701, 39.21529, 39.21271, 
  39.21031, 39.20585, 39.20516, 39.19813, 39.19744, 39.18852, 39.19264, 39.18474, 39.18662, 39.17598, 
  39.16895, 39.15596, 39.17126, 39.16662, 39.17401, 39.17452, 39.1783, 39.17229, 39.16937, 39.16576, 
  39.16491, 39.15872, 39.15735, 39.16078, 39.14704, 39.14773, 39.14473, 39.14687, 39.14488, 39.14962, 
  39.13915, 39.13606, 39.12506, 39.12283, 39.11459, 39.10909, 39.10789, 39.12111, 39.1194, 39.12421, 
  39.12627, 39.13039, 39.1376, 39.14241, 39.13777, 39.13571, 39.13056, 39.13193, 39.12918, 39.13107, 
  39.13091, 39.12748, 39.12576, 39.12232, 39.12335, 39.12713, 39.13538, 39.13589, 39.14087, 39.14602, 
  39.15324, 39.15341, 39.14259, 39.12937, 39.11855, 39.11236, 39.1079, 39.1, 39.10258, 39.10224, 
  39.09657, 39.0952, 39.09022, 39.08489, 39.10224, 39.10585, 39.11873, 39.12079, 39.12714, 39.12507, 
  39.13365, 39.1388, 39.14018, 39.11339, 39.10156, 39.10121, 39.1074, 39.10001, 39.10568, 39.1098, 
  39.11015, 39.10705, 39.09881, 39.08919, 39.08749, 39.08096, 39.07581, 39.06808, 39.06344, 39.06533, 
  39.06894, 39.08543, 39.08869, 39.08988, 39.08816, 39.06979, 39.07116, 39.0679, 39.06738, 39.06103, 
  39.06258, 39.04713, 39.04662, 39.03443, 39.0267, 39.02328, 39.01984, 39.01366, 39.0128, 39.00748, 
  38.99786, 38.99563, 38.99116, 38.98567, 38.98154, 38.97639, 38.95544, 38.95613, 38.96265, 38.97553, 
  38.98086, 38.98549, 38.98859, 38.99323, 38.99563, 38.99924, 39.00216, 38.99907, 38.99975, 38.99306, 
  38.98241, 38.97882, 38.96954, 38.9704, 38.94825, 38.93642, 38.93487, 38.91443, 38.91546, 38.90293, 
  38.90621, 38.89281, 38.89659, 38.89504, 38.86963, 38.86707, 38.85711, 38.85334, 38.8408, 38.83652, 
  38.82295, 38.81884, 38.82295, 38.82003, 38.81007, 38.80475, 38.80046, 38.80081, 38.79978, 38.80115, 
  38.79394, 38.77986, 38.77901, 38.78158, 38.7869, 38.78621, 38.79033, 38.79804, 38.80131, 38.82466, 
  38.8408, 38.85385, 38.8511, 38.85385, 38.86072, 38.86415, 38.86313, 38.86554, 38.85403, 38.85472, 
  38.84441, 38.84063)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_8, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_8 <- st_set_geometry(Geo_8, st_union(Geo_0[c(1, 4)]))
Geo_8 <- st_union(Geo_8, Geo)
if (st_is_valid(Geo_8) == FALSE) {Geo_8 <- st_make_valid(Geo_8)}
LATITUDE_VALUEs <- c(
  -5.39129, -5.38582, -5.37386, -5.37044, -5.35523, -5.34754, -5.34566, -5.34275, -5.34275, -5.33728, 
  -5.33318, -5.32498, -5.33592, -5.32447, -5.32224, -5.31489, -5.31541, -5.30754, -5.2725, -5.26977, 
  -5.26344, -5.2537, -5.24208, -5.23148, -5.22789, -5.22755, -5.21934, -5.21233, -5.20105, -5.19233, 
  -5.18036, -5.17917, -5.17301, -5.17216, -5.15643, -5.15318, -5.1501, -5.14497, -5.14104, -5.1142, 
  -5.10719, -5.12292, -5.12753, -5.13215, -5.13523, -5.14155, -5.14583, -5.14522, -5.13813, -5.13779, 
  -5.13095, -5.13027, -5.12514, -5.12429, -5.11574, -5.11215, -5.10582, -5.09624, -5.09026, -5.08462, 
  -5.05829, -5.04939, -5.04221, -5.02768, -5.01981, -5.01707, -5.01844, -5.01417, -5.01502, -5.00852, 
  -5.00938, -5.01588, -5.01639, -5.02477, -5.0258, -4.98766, -4.9379, -4.90318, -4.88693, -4.89086, 
  -4.90814, -4.92456, -4.93892, -4.94354, -4.94833, -4.95209, -4.94952, -4.94628, -4.93755, -4.93037, 
  -4.92763, -4.91942, -4.9172, -4.90899, -4.91121, -4.92336, -4.92319, -4.93037, -4.93088, -4.93687, 
  -4.93653, -4.92986, -4.93191, -4.92712, -4.93909, -4.95089, -4.95243, -4.96355, -4.97449, -4.98116, 
  -4.9827, -4.98595, -4.98629, -4.9774, -4.96748, -4.96167, -4.95568, -4.94029, -4.94166, -4.93978, 
  -4.94987, -4.9461, -4.93721, -4.93567, -4.93242, -4.92969, -4.91087, -4.90335, -4.9119, -4.90884, 
  -4.89789, -4.88695, -4.87754, -4.87326, -4.86437, -4.8707, -4.87001, -4.87925, -4.88524, -4.93347, 
  -4.93945, -4.94099, -4.95758, -4.95519, -4.95861, -4.94732, -4.94732, -4.95553, -4.95707, -4.96613, 
  -4.96305, -4.96391, -4.96784, -4.97041, -4.97674, -4.97417, -4.98016, -4.97913, -4.98204, -4.97588, 
  -4.97708, -4.9817, -4.97981, -4.98665, -4.99161, -4.99538, -4.99931, -5.00461, -5.00461, -5.00769, 
  -5.01607, -5.03385, -5.03505, -5.02975, -5.02975, -5.04377, -5.04052, -5.04428, -5.05506, -5.06036, 
  -5.05677, -5.06942, -5.06891, -5.07421, -5.07643, -5.07267, -5.06839, -5.07284, -5.06942, -5.08139, 
  -5.0807, -5.08977, -5.1031, -5.10413, -5.11729, -5.12328, -5.13029, -5.13473, -5.1414, -5.14978, 
  -5.14961, -5.15491, -5.16705, -5.16927, -5.17491, -5.16722, -5.16158, -5.16002, -5.15591, -5.15421, 
  -5.14976, -5.14925, -5.14378, -5.14224, -5.14959, -5.15386, -5.15694, -5.16361, -5.16395, -5.16976, 
  -5.16971, -5.17609, -5.17831, -5.17421, -5.17421, -5.18412, -5.18669, -5.19626, -5.1966, -5.20327, 
  -5.20105, -5.2125, -5.21336, -5.20703, -5.20874, -5.20601, -5.20874, -5.20378, -5.21062, -5.21079, 
  -5.21387, -5.21387, -5.21028, -5.20925, -5.2031, -5.19695, -5.18754, -5.18874, -5.20498, -5.21182, 
  -5.21763, -5.21404, -5.21541, -5.2243, -5.22789, -5.23302, -5.23062, -5.23985, -5.2378, -5.24122, 
  -5.24002, -5.24584, -5.24225, -5.25216, -5.25729, -5.25763, -5.26037, -5.25729, -5.25319, -5.25951, 
  -5.26498, -5.27404, -5.28173, -5.29216, -5.28481, -5.28857, -5.30054, -5.3166, -5.32771, -5.33592, 
  -5.33558, -5.34104, -5.3366, -5.33694, -5.33199, -5.32532, -5.33609, -5.34122, -5.34908, -5.35728, 
  -5.36925, -5.37984, -5.38582, -5.38804, -5.39591, -5.39813, -5.38941, -5.39386, -5.40479, -5.41026, 
  -5.41368, -5.4147, -5.41932, -5.42103, -5.42257, -5.43367, -5.43658, -5.42735, -5.43128, -5.44102, 
  -5.44102, -5.4494, -5.45449, -5.45521, -5.45162, -5.45128, -5.44632, -5.43812, -5.43812, -5.43504, 
  -5.43077, -5.43487, -5.43145, -5.44119, -5.42718, -5.42718, -5.43402, -5.44478, -5.44871, -5.45247, 
  -5.44905, -5.46836, -5.46819, -5.47417, -5.47281, -5.45948, -5.45794, -5.45897, -5.45333, -5.45128, 
  -5.45435, -5.45179, -5.43948, -5.43931, -5.44359, -5.43863, -5.39505)
LONGITUDE_VALUEs <- c(
  39.7904, 39.79469, 39.79109, 39.80361, 39.80945, 39.80756, 39.80344, 39.80276, 39.79761, 39.8031, 
  39.80087, 39.80481, 39.80773, 39.81219, 39.81992, 39.8182, 39.82215, 39.82387, 39.83743, 39.83193, 
  39.83296, 39.8412, 39.84292, 39.8479, 39.84567, 39.8479, 39.84738, 39.85287, 39.85099, 39.85579, 
  39.85597, 39.8503, 39.85202, 39.85682, 39.85717, 39.86026, 39.85871, 39.86198, 39.86146, 39.86438, 
  39.8455, 39.84481, 39.84206, 39.84378, 39.84069, 39.84086, 39.8376, 39.82405, 39.82645, 39.82164, 
  39.82336, 39.82713, 39.82669, 39.83081, 39.82652, 39.82789, 39.82394, 39.83167, 39.83012, 39.83819, 
  39.82995, 39.83648, 39.83373, 39.83922, 39.83304, 39.83682, 39.83957, 39.84008, 39.84214, 39.84558, 
  39.84953, 39.84884, 39.85657, 39.86035, 39.86739, 39.87579, 39.87184, 39.87544, 39.866, 39.86067, 
  39.86136, 39.8502, 39.85294, 39.849, 39.85123, 39.8478, 39.84007, 39.84436, 39.84385, 39.84591, 
  39.8423, 39.84248, 39.8466, 39.84334, 39.83853, 39.84128, 39.83527, 39.83647, 39.83321, 39.8363, 
  39.83115, 39.82634, 39.82462, 39.81552, 39.81105, 39.81689, 39.82204, 39.81689, 39.81844, 39.8229, 
  39.83046, 39.83046, 39.81741, 39.81037, 39.81449, 39.79869, 39.79922, 39.78978, 39.78325, 39.77672, 
  39.77123, 39.76848, 39.77157, 39.77844, 39.77844, 39.76609, 39.74668, 39.73002, 39.72195, 39.7024, 
  39.69158, 39.69021, 39.68422, 39.68525, 39.6825, 39.68061, 39.67803, 39.67632, 39.67924, 39.67409, 
  39.67512, 39.67288, 39.67408, 39.67889, 39.68473, 39.68181, 39.68439, 39.68508, 39.68851, 39.6892, 
  39.69298, 39.69572, 39.69469, 39.7007, 39.70242, 39.70912, 39.7086, 39.70517, 39.69933, 39.69727, 
  39.69006, 39.69006, 39.67872, 39.67512, 39.67958, 39.67855, 39.68319, 39.68027, 39.68422, 39.68971, 
  39.69573, 39.69297, 39.68765, 39.68748, 39.68473, 39.67786, 39.67219, 39.67065, 39.70585, 39.70809, 
  39.71513, 39.72215, 39.7292, 39.73212, 39.70979, 39.71271, 39.70945, 39.70601, 39.70069, 39.7, 
  39.6945, 39.69742, 39.6854, 39.68883, 39.69776, 39.68316, 39.68814, 39.68591, 39.70257, 39.70927, 
  39.71648, 39.71768, 39.71391, 39.7103, 39.71099, 39.72369, 39.72369, 39.73038, 39.73107, 39.73347, 
  39.73021, 39.73416, 39.7333, 39.74206, 39.74618, 39.74412, 39.74859, 39.74515, 39.74206, 39.74206, 
  39.73914, 39.73571, 39.73845, 39.73983, 39.74618, 39.74927, 39.73691, 39.73931, 39.73502, 39.73193, 
  39.7242, 39.72173, 39.71624, 39.71521, 39.70697, 39.7044, 39.69496, 39.68809, 39.68827, 39.68123, 
  39.6814, 39.67368, 39.67007, 39.66407, 39.66218, 39.66458, 39.65446, 39.64879, 39.65034, 39.6663, 
  39.67368, 39.69307, 39.70303, 39.70904, 39.71745, 39.71951, 39.72225, 39.7341, 39.74268, 39.74319, 
  39.73804, 39.73856, 39.72775, 39.7135, 39.71641, 39.71144, 39.71006, 39.70474, 39.6881, 39.68758, 
  39.6917, 39.69084, 39.69822, 39.68072, 39.66613, 39.65394, 39.66732, 39.67178, 39.68191, 39.6759, 
  39.66938, 39.66406, 39.6624, 39.65828, 39.65896, 39.65398, 39.65089, 39.64368, 39.64197, 39.64627, 
  39.6406, 39.64455, 39.64197, 39.64868, 39.65246, 39.65039, 39.64353, 39.63288, 39.6315, 39.63803, 
  39.63666, 39.6382, 39.63854, 39.64129, 39.63511, 39.63973, 39.6466, 39.66876, 39.68456, 39.69005, 
  39.69624, 39.70225, 39.70158, 39.70791, 39.70997, 39.71478, 39.71547, 39.70671, 39.7019, 39.70207, 
  39.70688, 39.70757, 39.71083, 39.71616, 39.71392, 39.72165, 39.72165, 39.73385, 39.73333, 39.72663, 
  39.72131, 39.72111, 39.72454, 39.72351, 39.72969, 39.72643, 39.73055, 39.7345, 39.73433, 39.73828, 
  39.73965, 39.74343, 39.74257, 39.74755, 39.7479, 39.7599, 39.79511)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(
  -6.44802, -6.476, -6.47736, -6.43881, -6.38286, -6.33782, -6.28288, -6.22008, -6.18937, -6.12554, 
  -6.1228, -6.15045, -6.14841, -6.16206, -6.17264, -6.18356, -6.18117, -6.1938, -6.18356, -6.19517, 
  -6.17605, -6.19585, -6.18015, -6.1921, -6.18322, -6.17059, -6.15284, -6.13407, -6.1129, -6.08901, 
  -6.06511, -6.06238, -6.05623, -6.05897, -6.04326, -6.03882, -6.02158, -6.00058, -5.91897, -5.87509, 
  -5.82864, -5.79568, -5.77501, -5.72172, -5.72446, -5.74615, -5.74734, -5.7605, -5.78338, -5.79739, 
  -5.82949, -5.83359, -5.86535, -5.8797, -5.8797, -5.89131, -5.89797, -5.90804, -5.91146, -5.91761, 
  -5.91795, -5.9357, -5.91334, -5.90429, -5.89524, -5.9089, -5.93844, -5.94919, -5.96729, -5.97924, 
  -5.98436, -5.9958, -6.00058, -6.02619, -6.03131, -6.05709, -6.08491, -6.10027, -6.11785, -6.12963, 
  -6.15165, -6.15404, -6.15728, -6.15506, -6.16342, -6.18954, -6.20165, -6.20592, -6.22008, -6.2264, 
  -6.23425, -6.2392, -6.2479, -6.25302, -6.2537, -6.26479, -6.27281, -6.28203, -6.30097, -6.31922, 
  -6.31871, -6.32144, -6.32008, -6.30796, -6.30455, -6.29636, -6.27964, -6.25609, -6.25012, -6.26735, 
  -6.25763, -6.24722, -6.23834, -6.23766, -6.25046, -6.25268, -6.27111, -6.28817, -6.30796, -6.29994, 
  -6.31973, -6.32351, -6.3276, -6.32948, -6.33221, -6.32555, -6.31788, -6.32385, -6.33647, -6.34773, 
  -6.36036, -6.36872, -6.36394, -6.36514, -6.38493, -6.39243, -6.3839, -6.38032, -6.37384, -6.36923, 
  -6.34995, -6.32828, -6.31156, -6.30986, -6.31515, -6.31412, -6.30423, -6.30099, -6.30576, -6.31771, 
  -6.33272, -6.35439, -6.37691, -6.40659, -6.41683)
LONGITUDE_VALUEs <- c(
  39.46355, 39.49101, 39.51469, 39.5648, 39.58094, 39.55485, 39.53769, 39.53288, 39.537, 39.50954, 
  39.491, 39.48826, 39.49615, 39.50336, 39.50336, 39.51228, 39.50473, 39.50473, 39.49341, 39.48585, 
  39.47315, 39.45531, 39.44466, 39.41755, 39.41412, 39.43952, 39.43746, 39.42235, 39.42714, 39.42611, 
  39.43297, 39.42611, 39.42371, 39.41444, 39.4062, 39.40963, 39.40158, 39.38288, 39.3573, 39.35369, 
  39.36073, 39.35644, 39.34527, 39.30615, 39.2919, 39.2883, 39.28212, 39.27062, 39.26564, 39.28606, 
  39.28915, 39.28343, 39.27484, 39.24561, 39.23273, 39.22277, 39.22466, 39.22073, 39.21523, 39.21368, 
  39.20767, 39.20699, 39.19857, 39.20201, 39.19462, 39.1826, 39.18794, 39.18124, 39.18485, 39.18313, 
  39.18536, 39.18433, 39.1881, 39.19635, 39.20408, 39.20355, 39.21489, 39.21575, 39.21043, 39.21575, 
  39.19961, 39.20425, 39.20356, 39.19377, 39.18484, 39.20751, 39.20699, 39.20098, 39.19961, 39.21043, 
  39.2094, 39.21471, 39.21248, 39.21609, 39.2257, 39.23549, 39.25009, 39.25144, 39.26123, 39.27755, 
  39.29146, 39.29592, 39.30039, 39.29644, 39.29884, 39.29713, 39.28476, 39.27977, 39.29008, 39.30485, 
  39.30313, 39.29472, 39.29472, 39.31344, 39.31773, 39.32889, 39.33814, 39.3402, 39.35171, 39.35428, 
  39.37556, 39.37366, 39.37624, 39.37487, 39.37555, 39.37899, 39.37693, 39.38311, 39.38259, 39.38895, 
  39.38534, 39.3898, 39.39272, 39.39925, 39.40406, 39.40973, 39.40903, 39.41126, 39.40955, 39.41556, 
  39.41676, 39.40337, 39.38757, 39.391, 39.40028, 39.4068, 39.40715, 39.41522, 39.41796, 39.41127, 
  39.42672, 39.43359, 39.43461, 39.44406, 39.45557)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(-6.41163, -6.41214, -6.40106, -6.39236, -6.39543, -6.4043)
LONGITUDE_VALUEs <- c(39.41553, 39.41862, 39.41931, 39.41622, 39.41244, 39.41244)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(-5.10151, -5.14288, -5.14442, -5.12288, -5.10852, -5.09484, -5.08663, -5.08458, -5.09313)
LONGITUDE_VALUEs <- c(39.15172, 39.15515, 39.16906, 39.17798, 39.16803, 39.16614, 39.16734, 39.16373, 39.16116)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(-5.05584, -5.05798, -5.05434, -5.0534)
LONGITUDE_VALUEs <- c(39.10328, 39.10689, 39.11092, 39.10813)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(-5.00209, -5.0174, -5.01783, -5.00338)
LONGITUDE_VALUEs <- c(39.15583, 39.16184, 39.16476, 39.16528)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(
  -4.9664, -4.97764, -4.97687, -4.97319, -4.97319, -4.97909, -4.98875, -4.99123, -4.99055, -4.99183,
  -4.98197, -4.97752, -4.97483, -4.97111, -4.96982, -4.96559, -4.96435, -4.9632, -4.96179, -4.96035, 
  -4.9564, -4.95708, -4.96508, -4.96038, -4.96298)
LONGITUDE_VALUEs <- c(
  39.14577, 39.15549, 39.16271, 39.16365, 39.16708, 39.16717, 39.1615, 39.16322, 39.16682, 39.17009,
  39.17259, 39.17203, 39.17525, 39.17431, 39.17598, 39.17487, 39.17766, 39.17671, 39.1777, 39.17451, 
  39.17448, 39.17088, 39.16315, 39.15452, 39.14718)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(-5.01618, -5.0196, -5.02421, -5.01887)
LONGITUDE_VALUEs <- c(39.22154, 39.21948, 39.22527, 39.22755)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(
  -5.10492, -5.10278, -5.10552, -5.10919, -5.10757, -5.10859, -5.0738, -5.06593, -5.06756, -5.06781, 
  -5.05516, -5.04199, -5.0408, -5.05943, -5.06414, -5.0608, -5.06474, -5.06542, -5.06995, -5.06875, 
  -5.07175, -5.07346, -5.07918, -5.08679, -5.08765, -5.09654, -5.09637, -5.10022)
LONGITUDE_VALUEs <- c(
  39.83406, 39.84204, 39.84445, 39.8575, 39.85878, 39.86256, 39.87157, 39.87046, 39.86779, 39.86333, 
  39.8581, 39.86059, 39.85947, 39.84745, 39.84857, 39.85389, 39.85492, 39.85106, 39.85089, 39.85561, 
  39.85355, 39.85664, 39.85689, 39.85243, 39.84814, 39.84359, 39.83723, 39.83673)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(
  -4.97616, -4.97145, -4.96162, -4.96068, -4.98898, -5.00018, -5.00181, -5.00463, -5.00523, -5.00386, 
  -5.00249, -5.00309, -4.99822, -4.99574, -4.98932, -4.98941)
LONGITUDE_VALUEs <- c(
  39.67185, 39.67588, 39.67528, 39.6703, 39.65656, 39.65991, 39.6624, 39.66292, 39.66566, 39.66498, 
  39.66635, 39.66867, 39.66824, 39.66601, 39.66687, 39.66987)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(
  -5.0879, -5.09132, -5.08739, -5.08312, -5.07773, -5.0744, -5.03763, -5.03618, -5.00779, -5.00779, 
  -5.03302, -5.07414, -5.0826, -5.0903)
LONGITUDE_VALUEs <- c(
  39.63785, 39.64189, 39.64404, 39.64137, 39.64438, 39.64361, 39.65794, 39.65605, 39.66489, 39.65992, 
  39.64712, 39.63734, 39.63313, 39.63571)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(-5.38027, -5.38753, -5.3877, -5.38933, -5.38428, -5.37762, -5.36959, -5.37471, -5.37899, -5.37771)
LONGITUDE_VALUEs <- c(39.61972, 39.62281, 39.62607, 39.62864, 39.63216, 39.62924, 39.61371, 39.60426, 39.60598, 39.61482)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(
  -5.15113, -5.14997, -5.14882, -5.14809, -5.14728, -5.14668, -5.14750, -5.14724, -5.14796, -5.14967, 
  -5.15006)
LONGITUDE_VALUEs <- c(
  39.61473, 39.61735, 39.62319, 39.62404, 39.62735, 39.62722, 39.6240, 39.62233, 39.61529, 39.61271, 
  39.61439)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(
  -5.15361, -5.15297, -5.14365, -5.14151, -5.14083, -5.13865, -5.1357, -5.13454, -5.13395, -5.13275, 
  -5.13262, -5.13489, -5.13856, -5.14955)
LONGITUDE_VALUEs <- c(
  39.63696, 39.64005, 39.64267, 39.64241, 39.64357, 39.64366, 39.64606, 39.64606, 39.64722, 39.64709, 
  39.6452, 39.64404, 39.63803, 39.63769)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(
  -5.14591, -5.14796, -5.14899, -5.14861, -5.14728, -5.14497, -5.14232, -5.1404, -5.14096, -5.13929,
  -5.13758, -5.13736, -5.13514, -5.13219, -5.13309, -5.13587, -5.13779, -5.14110, -5.14231, -5.14436)
LONGITUDE_VALUEs <- c(
  39.65524, 39.65683, 39.65696, 39.65863, 39.65829, 39.66056, 39.66039, 39.664, 39.66717, 39.66868,
  39.6673, 39.66516, 39.66155, 39.66057, 39.66005, 39.66052, 39.65893, 39.65833, 39.65721, 39.65687)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(-5.13585, -5.13722, -5.14026, -5.13637, -5.135, -5.13402, -5.13359)
LONGITUDE_VALUEs <- c(39.67167, 39.67159, 39.67747, 39.68052, 39.67884, 39.67953, 39.6788)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(
  -5.0955, -5.09914, -5.10213, -5.10268, -5.10384, -5.10529, -5.10508, -5.10781, -5.10589, -5.10833, 
  -5.1097, -5.11119, -5.11277, -5.11273, -5.11512, -5.11555, -5.11671, -5.11842, -5.12072, -5.12594, 
  -5.12713, -5.12329, -5.11854, -5.11534, -5.11427, -5.11337, -5.11461, -5.11461, -5.11217, -5.1079, 
  -5.1073, -5.10371, -5.10256, -5.10136, -5.09922, -5.09738, -5.09546)
LONGITUDE_VALUEs <- c(
  39.63361, 39.63318, 39.63219, 39.63108, 39.63142, 39.6312, 39.63026, 39.63013, 39.63155, 39.63159, 
  39.63348, 39.63322, 39.63421, 39.63541, 39.63511, 39.63661, 39.6367, 39.63537, 39.63532, 39.63253, 
  39.63382, 39.63502, 39.63859, 39.64313, 39.64588, 39.64571, 39.64391, 39.64137, 39.63695, 39.63442, 
  39.63494, 39.63494, 39.63601, 39.6352, 39.63554, 39.6346, 39.63447)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(-5.24592, -5.2452, -5.24323, -5.24169, -5.23844, -5.23494, -5.23468, -5.24498, -5.24861, -5.24802)
LONGITUDE_VALUEs <- c(39.59803, 39.60035, 39.60104, 39.60907, 39.61018, 39.60846, 39.60482, 39.59735, 39.59602, 39.59735)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(-5.15827, -5.15951, -5.16171, -5.16021)
LONGITUDE_VALUEs <- c(39.63516, 39.63505, 39.63698, 39.63754)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(-5.36801, -5.37108, -5.37106, -5.36875, -5.36824, -5.36698, -5.36715, -5.36668)
LONGITUDE_VALUEs <- c(39.58134, 39.58239, 39.58295, 39.5831, 39.58424, 39.58391, 39.58297, 39.58235)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(-5.40227, -5.40988, -5.40766, -5.40915, -5.40847, -5.40586, -5.4039, -5.40091, -5.39817)
LONGITUDE_VALUEs <- c(39.56284, 39.56894, 39.5698, 39.57276, 39.57388, 39.57087, 39.57272, 39.57044, 39.56563)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(-5.46862, -5.46871, -5.46178, -5.45798, -5.4532, -5.45734, -5.45948, -5.46157, -5.46572)
LONGITUDE_VALUEs <- c(39.66692, 39.66769, 39.66795, 39.66473, 39.6564, 39.6573, 39.66035, 39.66099, 39.66563)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(-5.11294, -5.11386, -5.1118, -5.1118)
LONGITUDE_VALUEs <- c(39.83673, 39.83795, 39.83909, 39.8372)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(-4.93095, -4.93373, -4.93651, -4.93741, -4.92971, -4.92958, -4.92843, -4.92971, -4.93091)
LONGITUDE_VALUEs <- c(39.79722, 39.79859, 39.79855, 39.80156, 39.80701, 39.80405, 39.8031, 39.79937, 39.79911)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(-4.94214, -4.94473, -4.94103, -4.93977)
LONGITUDE_VALUEs <- c(39.80337, 39.80691, 39.80738, 39.80382)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(-4.95105, -4.94984, -4.94892, -4.94952)
LONGITUDE_VALUEs <- c(39.80412, 39.80493, 39.80279, 39.80206)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(-4.9514, -4.95392, -4.95606, -4.95663, -4.95471, -4.95456, -4.9515, -4.95003, -4.94979)
LONGITUDE_VALUEs <- c(39.80646, 39.80964, 39.80906, 39.81009, 39.81077, 39.81176, 39.81, 39.80826, 39.80685)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(
  -5.8583, -5.85693, -5.84207, -5.82602, -5.8197, -5.81731, -5.81082, -5.81253, -5.8209, -5.82243, 
  -5.80877, -5.80245, -5.79067, -5.77069, -5.76608, -5.77786, -5.83627, -5.84583)
LONGITUDE_VALUEs <- c(
  39.21667, 39.23659, 39.23693, 39.23024, 39.23007, 39.22612, 39.22869, 39.23402, 39.23196, 39.23642, 
  39.24157, 39.22904, 39.22578, 39.22646, 39.22062, 39.21685, 39.21445, 39.21118)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(-5.8269, -5.82989, -5.82434, -5.82127, -5.81538)
LONGITUDE_VALUEs <- c(39.24777, 39.24992, 39.25086, 39.25498, 39.25404)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(-5.76206, -5.76484, -5.76065, -5.76048, -5.75852, -5.75536)
LONGITUDE_VALUEs <- c(39.21809, 39.21942, 39.22113, 39.22255, 39.22234, 39.22015)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(
  -5.82122, -5.84022, -5.84018, -5.82895, -5.81913, -5.8033, -5.7811, -5.77888, -5.79165, -5.80014, 
  -5.80936)
LONGITUDE_VALUEs <- c(
  39.3799, 39.39411, 39.40119, 39.41573, 39.42007, 39.41845, 39.40214, 39.39279, 39.38730, 39.38875,
  39.38747)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(-6.4078, -6.41395, -6.42554, -6.43834, -6.44175, -6.42913, -6.42162, -6.41889, -6.40047)
LONGITUDE_VALUEs <- c(39.31496, 39.3208, 39.32045, 39.32681, 39.3414, 39.35497, 39.35136, 39.34123, 39.32166)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(-6.39977, -6.39414, -6.37761, -6.36396, -6.35867, -6.3742)
LONGITUDE_VALUEs <- c(39.30043, 39.30361, 39.29797, 39.29694, 39.28475, 39.27547)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(-6.35417, -6.36061, -6.36248, -6.358, -6.35544, -6.35229)
LONGITUDE_VALUEs <- c(39.3484, 39.35274, 39.35639, 39.35686, 39.35583, 39.35003)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(-6.34753, -6.34586, -6.34286, -6.34205, -6.34002, -6.34055, -6.34593)
LONGITUDE_VALUEs <- c(39.33814, 39.33941, 39.33728, 39.33494, 39.33297, 39.3317, 39.33372)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(-6.14766, -6.14399, -6.16165, -6.16848, -6.16865, -6.15611)
LONGITUDE_VALUEs <- c(39.14156, 39.13289, 39.11684, 39.1171, 39.12628, 39.13349)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(
  -6.28631, -6.29152, -6.29066, -6.29612, -6.29885, -6.291, -6.28503, -6.28426, -6.27735, -6.27607, 
  -6.2852, -6.2835, -6.27531, -6.27019, -6.27078, -6.26618, -6.26652, -6.26967, -6.27283, -6.28128, 
  -6.28136, -6.28298, -6.28375, -6.28597, -6.28529)
LONGITUDE_VALUEs <- c(
  39.18465, 39.18456, 39.18911, 39.19134, 39.20499, 39.20448, 39.20062, 39.19529, 39.19212, 39.18662, 
  39.1892, 39.18096, 39.17778, 39.1813, 39.18362, 39.18422, 39.18285, 39.18156, 39.17598, 39.17632, 
  39.1777, 39.17804, 39.17967, 39.18019, 39.18259)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
LATITUDE_VALUEs <- c(
  -5.41334, -5.42308, -5.42291, -5.43299, -5.43897, -5.43743, -5.46119, -5.45401, -5.45691, -5.46819, 
  -5.46324, -5.46478, -5.4822, -5.47759, -5.4846, -5.48614, -5.46751, -5.45845, -5.4511, -5.44735, 
  -5.45179, -5.447, -5.44666, -5.45247, -5.45179, -5.44376, -5.44376, -5.45179, -5.44581, -5.43863, 
  -5.42735, -5.43367, -5.43333, -5.43094, -5.43419, -5.43419, -5.43179, -5.42906, -5.41231, -5.41795, 
  -5.41812, -5.4106, -5.41112, -5.41351, -5.41197)
LONGITUDE_VALUEs <- c(
  39.56998, 39.57736, 39.58131, 39.58955, 39.58921, 39.59813, 39.60328, 39.60877, 39.61512, 39.61547, 
  39.61959, 39.63366, 39.63246, 39.64138, 39.64499, 39.64928, 39.6486, 39.65632, 39.6534, 39.64242, 
  39.63624, 39.63658, 39.63401, 39.63315, 39.62989, 39.62714, 39.62302, 39.61959, 39.61187, 39.61942, 
  39.61616, 39.61393, 39.61118, 39.60947, 39.60724, 39.60397, 39.6038, 39.60621, 39.59951, 39.59591, 
  39.59265, 39.58475, 39.58149, 39.58132, 39.57583)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_8 <- st_union(Geo_8, Geo)
if (st_is_valid(Geo_8) == FALSE) {Geo_8 <- st_make_valid(Geo_8)}
Geo_8 <- Geo_8 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% 
  filter(!NAME %in% c(
    "ETHIOPIA", "ERITREA", "SUDAN", "DJIBOUTI", "SOMALIA", "KENYA", "UGANDA", "UNITED REPUBLIC OF TANZANIA"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3, Geo_4, Geo_5, Geo_6, Geo_7, Geo_8)

TRUST TERRITORY OF PACIFIC ISLANDS (1947–1994) in M49_CODEs \(=\) 5 Countries:

  • MARSHALL ISLANDS \(+\) MICRONESIA \(+\) NORTHERN MARIANA ISLANDS \(+\) PALAU in GeoDATA
################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "MARSHALL ISLANDS")
Geo_2 <- GeoDATA %>% filter(NAME == "MICRONESIA")
Geo_3 <- GeoDATA %>% filter(NAME == "NORTHERN MARIANA ISLANDS")
Geo_4 <- GeoDATA %>% filter(NAME == "PALAU")
Geo_5 <- GeoDATA %>% filter(NAME == "GUAM")

##### MARSHALL ISLANDS #####
LATITUDE_VALUEs <- c(
  9.76342, 9.77696, 9.80808, 9.80898, 9.82319, 9.85702, 9.85634, 9.8763, 9.87326, 9.86006, 
  9.84766, 9.84022, 9.833, 9.78869, 9.7694)
LONGITUDE_VALUEs <- c(
  160.9876, 160.9945, 160.9745, 160.9522, 160.9268, 160.9041, 160.8784, 160.8279, 160.8087, 160.7967, 
  160.7939, 160.797, 160.8293, 160.9223, 160.9515)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  11.50447, 11.4641, 11.37054, 11.34294, 11.33284, 11.35573, 11.42641, 11.47352, 11.55628, 11.56906, 
  11.61345, 11.63161, 11.63834, 11.6565, 11.67331, 11.6881, 11.68541, 11.63834, 11.56368, 11.53139, 
  11.51457, 11.51322)
LONGITUDE_VALUEs <- c(
  162.0711, 162.0766, 162.1542, 162.2098, 162.319, 162.3533, 162.3876, 162.3972, 162.354, 162.3327, 
  162.3334, 162.3149, 162.2771, 162.2483, 162.2449, 162.2222, 162.1968, 162.1151, 162.0492, 162.0368, 
  162.0417, 162.0581)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  14.72287, 14.71357, 14.7139, 14.70626, 14.70626, 14.64549, 14.62589, 14.59798, 14.58735, 14.55877, 
  14.57605, 14.58403, 14.60562, 14.62456, 14.64748, 14.66375, 14.68734, 14.69697, 14.71324, 14.72187, 
  14.71855, 14.72353, 14.72054)
LONGITUDE_VALUEs <- c(
  168.885, 168.884, 168.8946, 168.8987, 168.9042, 168.9444, 168.954, 168.9523, 168.9403, 168.9303, 
  168.9574, 168.9602, 169.0031, 169.0165, 169.0154, 169.0192, 168.998, 168.9777, 168.9609, 168.942, 
  168.9259, 168.9077, 168.8984)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  12.2945, 12.26296, 12.23377, 12.18008, 12.22908, 12.25357, 12.27974, 12.28636, 12.28728, 12.2919, 
  12.2877, 12.29517)
LONGITUDE_VALUEs <- c(
  170.0726, 170.0842, 170.0708, 170.1089, 170.1295, 170.1474, 170.1282, 170.1279, 170.1169, 170.1089, 
  170.0979, 170.0818)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(5.59127, 5.58837, 5.62014, 5.63893, 5.63552, 5.64594, 5.64372, 5.62407)
LONGITUDE_VALUEs <- c(168.0974, 168.1231, 168.1319, 168.1396, 168.1219, 168.0843, 168.0821, 168.0938)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  4.61932, 4.60357, 4.60494, 4.60186, 4.59639, 4.58681, 4.57996, 4.57038, 4.58338, 4.5981, 
  4.60084, 4.61329, 4.63027, 4.65251, 4.67988, 4.68023, 4.68741, 4.6857, 4.68878, 4.67441, 
  4.66243, 4.65935, 4.63745)
LONGITUDE_VALUEs <- c(
  168.6591, 168.6649, 168.6749, 168.6845, 168.6811, 168.6869, 168.6869, 168.7078, 168.7401, 168.7507, 
  168.7645, 168.77314, 168.7703, 168.7734, 168.7614, 168.7549, 168.7415, 168.7185, 168.6969, 168.6642, 
  168.6618, 168.6522, 168.643)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(5.64051, 5.63761, 5.63748, 5.6482, 5.65153, 5.64214)
LONGITUDE_VALUEs <- c(169.1067, 169.1068, 169.1204, 169.1333, 169.1275, 169.1123)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  5.99819, 6.0197, 6.0378, 6.06818, 6.06306, 6.0832, 6.12076, 6.12315, 6.13714, 6.15114, 
  6.17742, 6.20234, 6.21121, 6.28015, 6.3054, 6.30916, 6.29517, 6.29619, 6.25558, 6.24705, 
  6.20336, 6.17878, 6.15387, 6.10608, 6.07262, 6.05145, 5.98727, 5.96575, 5.95824, 5.94936, 
  5.93434, 5.89233, 5.87867, 5.86296, 5.84213, 5.83871, 5.8271, 5.80575, 5.78816, 5.78424, 
  5.78577, 5.79585, 5.80593, 5.82693, 5.84264, 5.85016, 5.8674, 5.87782, 5.89746, 5.92085, 
  5.92922, 5.9357, 5.94509, 5.948, 5.95628, 5.96533, 5.9725, 5.99119)
LONGITUDE_VALUEs <- c(
  169.7205, 169.7277, 169.69, 169.6628, 169.6289, 169.6011, 169.5846, 169.5657, 169.5561, 169.5578, 
  169.5413, 169.5464, 169.5241, 169.4953, 169.4651, 169.4424, 169.4263, 169.4095, 169.405, 169.4266, 
  169.4589, 169.4565, 169.4678, 169.4541, 169.4555, 169.4411, 169.4418, 169.4328, 169.4222, 169.4208, 
  169.4579, 169.5059, 169.506, 169.52, 169.5245, 169.5382, 169.543, 169.5741, 169.5927, 169.6064, 
  169.6098, 169.6103, 169.6175, 169.6181, 169.6241, 169.6231, 169.6267, 169.6323, 169.632, 169.6467, 
  169.6435, 169.6562, 169.6633, 169.6722, 169.6761, 169.6887, 169.7148, 169.7235)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(7.74789, 7.74593, 7.74585, 7.75116, 7.75435, 7.75593, 7.75652, 7.75571)
LONGITUDE_VALUEs <- c(168.9738, 168.9755, 168.9767, 168.9793, 168.9801, 168.9795, 168.9766, 168.9749)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  7.47538, 7.45904, 7.43589, 7.38006, 7.34022, 7.33477, 7.29084, 7.29731, 7.2762, 7.27756, 
  7.27314, 7.2762, 7.26632, 7.30242, 7.34839, 7.3661, 7.39368, 7.42704, 7.46109, 7.48798, 
  7.51895, 7.54278, 7.57885, 7.59757, 7.60642, 7.57715, 7.57545, 7.55265, 7.54346, 7.52202, 
  7.51691, 7.50976, 7.49547, 7.49615, 7.51248, 7.51248, 7.49887, 7.48355, 7.47708, 7.48015, 
  7.48968, 7.48662, 7.49274)
LONGITUDE_VALUEs <- c(
  168.5803, 168.5487, 168.5418, 168.5593, 168.6091, 168.64, 168.698, 168.7197, 168.7554, 168.7856, 
  168.7962, 168.8079, 168.8268, 168.8347, 168.8776, 168.8824, 168.8721, 168.8906, 168.9339, 168.9442, 
  168.9421, 168.9504, 168.9737, 168.9727, 168.9349, 168.9126, 168.8999, 168.8762, 168.8745, 168.8587, 
  168.8488, 168.8422, 168.8028, 168.7853, 168.7602, 168.7478, 168.7458, 168.7289, 168.6905, 168.6603, 
  168.6352, 168.6198, 168.6005)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(8.30442, 8.3186, 8.31885, 8.32191, 8.30926, 8.30858)
LONGITUDE_VALUEs <- c(167.3862, 167.3864, 167.3788, 167.3703, 167.3734, 167.3769)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  7.90572, 7.92, 7.93055, 7.96506, 7.9841, 8.0305, 8.07742, 8.08285, 8.09254, 8.09798, 
  8.15287, 8.1612, 8.16714, 8.16442, 8.16493, 8.17309, 8.16901, 8.17496, 8.19314, 8.19161, 
  8.19552, 8.20571, 8.20181, 8.18906, 8.17071, 8.11463, 8.10597, 8.08064, 8.05345, 8.03237, 
  7.98299, 7.96973, 7.95758, 7.94823, 7.93837, 7.91099, 7.88481, 7.85981, 7.83583, 7.81015, 
  7.78022, 7.77818, 7.76968, 7.75437, 7.75114, 7.76168, 7.78379, 7.82869, 7.84927, 7.86219, 
  7.87528)
LONGITUDE_VALUEs <- c(
  168.2607, 168.2618, 168.2484, 168.2232, 168.1993, 168.1684, 168.1739, 168.167, 168.1711, 168.1795, 
  168.191, 168.1871, 168.1782, 168.1526, 168.1308, 168.0922, 168.075, 168.0409, 168.0151, 168.0067, 
  167.984, 167.9727, 167.9682, 167.9741, 167.9895, 168.0214, 168.0668, 168.1021, 168.1148, 168.1318, 
  168.1431, 168.143, 168.1526, 168.153, 168.1691, 168.1899, 168.1921, 168.1838, 168.1883, 168.2079, 
  168.2108, 168.2152, 168.2149, 168.2329, 168.248, 168.2691, 168.2897, 168.3098, 168.2975, 168.2947, 
  168.2789)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  8.95901, 8.95248, 8.93849, 8.93196, 8.92111, 8.91543, 8.91924, 8.91831, 8.92043, 8.92103, 
  8.92391, 8.93476, 8.93917, 8.94765, 8.95935, 8.96096, 8.96486, 8.96486, 8.96138)
LONGITUDE_VALUEs <- c(
  166.2126, 166.2105, 166.2106, 166.2139, 166.2141, 166.222, 166.2422, 166.2582, 166.2663, 166.2756, 
  166.2763, 166.2685, 166.263, 166.2611, 166.2421, 166.2338, 166.2276, 166.2238, 166.2199)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  8.75004, 8.77668, 8.80365, 8.8408, 8.86438, 8.87557, 8.88982, 8.90034, 8.91814, 8.92764, 
  8.99411, 9.02971, 9.05073, 9.06989, 9.11583, 9.14786, 9.17006, 9.20836, 9.21869, 9.22259, 
  9.24309, 9.28274, 9.31103, 9.32424, 9.34237, 9.35422, 9.40283, 9.40723, 9.38556, 9.35067, 
  9.34491, 9.33, 9.31797, 9.31069, 9.30307, 9.29392, 9.2907, 9.28985, 9.30307, 9.30476, 
  9.32272, 9.32204, 9.32949, 9.35151, 9.33508, 9.33, 9.32136, 9.32339, 9.32289, 9.32882, 
  9.33695, 9.33457, 9.32509, 9.31645, 9.31662, 9.30713, 9.28511, 9.27664, 9.27901, 9.25411, 
  9.24513, 9.20412, 9.18616, 9.17531, 9.16599, 9.16565, 9.15989, 9.1543, 9.15464, 9.15074, 
  9.14921, 9.14006, 9.13498, 9.10261, 9.09803, 9.09142, 9.09616, 9.09583, 9.10176, 9.10616, 
  9.10905, 9.10566, 9.10227, 9.1165, 9.11769, 9.11328, 9.11278, 9.10922, 9.08193, 9.08328, 
  9.07735, 9.06989, 9.06582, 9.04836, 9.04921, 9.04599, 9.03734, 9.0326, 9.02937, 9.02158, 
  8.99089, 8.94595, 8.92255, 8.85726, 8.79772, 8.78601, 8.74903, 8.73494, 8.71916, 8.71509, 
  8.7173, 8.72714)
LONGITUDE_VALUEs <- c(
  167.7396, 167.743, 167.736, 167.7416, 167.7554, 167.7708, 167.7737, 167.7864, 167.7676, 167.7665, 
  167.7308, 167.7339, 167.7497, 167.749, 167.7253, 167.6946, 167.6513, 167.6148, 167.6, 167.5873, 
  167.5672, 167.5483, 167.524, 167.5178, 167.5128, 167.5042, 167.4857, 167.4637, 167.4563, 167.4284, 
  167.3849, 167.3746, 167.3597, 167.358, 167.3485, 167.3259, 167.3206, 167.3066, 167.2857, 167.2476, 
  167.2081, 167.1927, 167.1891, 167.1086, 167.0351, 167.026, 166.9369, 166.9194, 166.8912, 166.8559, 
  166.836, 166.8139, 166.8175, 166.8367, 166.8454, 166.8757, 166.8885, 166.9141, 166.9268, 166.9622, 
  166.9644, 167.025, 167.0355, 167.0535, 167.0599, 167.0667, 167.0695, 167.0916, 167.1325, 167.138, 
  167.1608, 167.1759, 167.2022, 167.2499, 167.2654, 167.2815, 167.2902, 167.2969, 167.3017, 167.3215, 
  167.324, 167.3271, 167.3414, 167.3621, 167.3963, 167.4013, 167.4111, 167.4128, 167.4757, 167.4823, 
  167.4851, 167.4971, 167.4993, 167.5249, 167.5311, 167.5338, 167.5501, 167.5519, 167.5585, 167.5608, 
  167.5747, 167.5752, 167.5683, 167.5695, 167.61, 167.6386, 167.6778, 167.7019, 167.7144, 167.7249, 
  167.7381, 167.7455)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  10.01281, 10.02126, 10.02903, 10.04222, 10.10442, 10.1247, 10.15646, 10.17944, 10.18215, 10.17404, 
  10.17809, 10.17674, 10.18282, 10.18012, 10.19026, 10.14024, 10.10509, 10.07602, 10.05692, 10.03563)
LONGITUDE_VALUEs <- c(
  166.026, 166.0367, 166.0295, 166.0332, 165.9968, 166.0003, 166.0195, 166.0181, 166.001, 165.9941, 
  165.9886, 165.9639, 165.9409, 165.9327, 165.9155, 165.9251, 165.945, 165.9509, 165.9715, 165.988)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  11.62205, 11.58976, 11.51842, 11.51471, 11.49116, 11.49991, 11.5063, 11.4915, 11.51, 11.52884, 
  11.54869, 11.57459, 11.59578, 11.62571, 11.64151, 11.64219, 11.66909, 11.69027, 11.71481, 11.71178, 
  11.69161, 11.68791, 11.69766, 11.70069, 11.71481, 11.7101)
LONGITUDE_VALUEs <- c(
  165.1928, 165.1962, 165.2905, 165.319, 165.3427, 165.3674, 165.4175, 165.5085, 165.5631, 165.5744, 
  165.5603, 165.5638, 165.5514, 165.562, 165.5514, 165.5315, 165.4505, 165.4343, 165.4233, 165.3907, 
  165.3774, 165.3468, 165.3252, 165.3039, 165.2929, 165.2661)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  11.12084, 11.12286, 11.1141, 11.1232, 11.12084, 11.12454, 11.11275, 11.11478, 11.11208, 11.14206, 
  11.16766, 11.18753, 11.19023, 11.17069, 11.17339, 11.16429, 11.17271, 11.17036, 11.18551, 11.16901, 
  11.14846, 11.13802, 11.13364)
LONGITUDE_VALUEs <- c(
  166.339, 166.3699, 166.4015, 166.431, 166.4403, 166.4561, 166.4818, 166.5021, 166.5306, 166.5333, 
  166.5227, 166.5028, 166.4901, 166.463, 166.4351, 166.3964, 166.3531, 166.3284, 166.2848, 166.2896, 
  166.2817, 166.2861, 166.3266)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  11.15423, 11.21754, 11.29028, 11.35087, 11.37039, 11.36164, 11.39193, 11.43434, 11.44511, 11.48481, 
  11.48077, 11.46328, 11.4552, 11.4377, 11.44309, 11.46058, 11.46866, 11.505, 11.46597, 11.47135, 
  11.46664, 11.47943, 11.47135, 11.41145, 11.3401, 11.26603, 11.23708, 11.23303, 11.20811, 11.21418, 
  11.15961, 11.16901, 11.14644, 11.15554)
LONGITUDE_VALUEs <- c(
  166.8963, 166.9018, 166.8943, 166.9245, 166.978, 167.0124, 167.0158, 167.0399, 167.068, 167.0502, 
  167.0124, 167.0083, 166.9774, 166.9506, 166.917, 166.9128, 166.8826, 166.8504, 166.7879, 166.7515, 
  166.7131, 166.6794, 166.6698, 166.654, 166.619, 166.6114, 166.621, 166.6382, 166.6766, 166.6993, 
  166.7638, 166.8083, 166.844, 166.8732)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  11.27542, 11.26364, 11.28047, 11.29899, 11.37339, 11.38281, 11.40031, 11.41175, 11.40805, 11.41949, 
  11.42791, 11.41916, 11.4057, 11.39594, 11.36665, 11.36632, 11.34578, 11.33266, 11.30573)
LONGITUDE_VALUEs <- c(
  167.4033, 167.4126, 167.4277, 167.485, 167.5166, 167.5289, 167.5255, 167.4802, 167.4661, 167.4551, 
  167.3916, 167.3762, 167.371, 167.3576, 167.36, 167.3696, 167.3803, 167.4002, 167.4074)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  10.28225, 10.27042, 10.26671, 10.27017, 10.28064, 10.28731, 10.29187, 10.2977, 10.30412, 10.30615, 
  10.30142, 10.30294, 10.29948)
LONGITUDE_VALUEs <- c(
  170.862, 170.8611, 170.8691, 170.8767, 170.8737, 170.8749, 170.8799, 170.8784, 170.8792, 170.8746, 
  170.8671, 170.8613, 170.8574)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  10.08131, 10.07181, 10.07316, 10.07899, 10.08085, 10.08668, 10.08835, 10.09302, 10.09513, 10.09969,
  10.10189, 10.11026, 10.1095, 10.10578, 10.10172, 10.10341, 10.0942, 10.08972, 10.0841)
LONGITUDE_VALUEs <- c(
  169.5203, 169.5256, 169.5283, 169.5293, 169.5338, 169.5356, 169.54208, 169.5477, 169.5544, 169.5578,
  169.5745, 169.5713, 169.5654, 169.5647, 169.5585, 169.5524, 169.5366, 169.5343, 169.5219)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  11.11814, 11.10164, 11.08445, 11.07738, 11.08715, 11.09557, 11.11208, 11.15958, 11.17238, 11.19023, 
  11.20774, 11.21448, 11.20673, 11.20505, 11.19595, 11.19595, 11.20317, 11.20235, 11.18181, 11.1552, 
  11.14004)
LONGITUDE_VALUEs <- c(
  169.5827, 169.6047, 169.6105, 169.6335, 169.6418, 169.661, 169.6703, 169.662, 169.6727, 169.6733, 
  169.6922, 169.6699, 169.6486, 169.628, 169.6109, 169.5772, 169.56921, 169.5429, 169.548, 169.5714,
  169.5734)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  11.31044, 11.28519, 11.2468, 11.22424, 11.20471, 11.20336, 11.21279, 11.22121, 11.23367, 11.23805, 
  11.25286, 11.25286, 11.28418, 11.29428, 11.30674, 11.32087, 11.34141, 11.34276)
LONGITUDE_VALUEs <- c(
  169.7489, 169.7537, 169.7485, 169.7544, 169.7547, 169.7702, 169.7949, 169.8608, 169.8632, 169.8477, 
  169.8481, 169.8347, 169.8079, 169.7911, 169.7863, 169.7904, 169.788, 169.777)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  10.22847, 10.22273, 10.21192, 10.21597, 10.27983, 10.33083, 10.35718, 10.38554, 10.39601, 10.4129, 
  10.42742, 10.43653, 10.45071, 10.47671, 10.46827, 10.41188, 10.37913, 10.36089, 10.33657, 10.3055, 
  10.29672, 10.28456, 10.27543, 10.24875, 10.24503)
LONGITUDE_VALUEs <- c(
  169.8924, 169.9511, 169.9816, 169.9909, 169.9854, 169.97, 169.9803, 169.9772, 169.9782, 169.9672, 
  169.9748, 169.9652, 169.9662, 169.9477, 169.9195, 169.9157, 169.9034, 169.9092, 169.9065, 169.8852, 
  169.8536, 169.8632, 169.8639, 169.8759, 169.8831)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  9.91008, 9.89047, 9.8262, 9.79914, 9.80117, 9.82214, 9.82853, 9.82549, 9.83191, 9.82176,
  9.81534, 9.8221, 9.82718, 9.83766, 9.84071, 9.85525, 9.86675, 9.89753, 9.90783, 9.91858, 
  9.92474, 9.93556, 9.94757, 9.9731, 9.97901, 9.98747, 10.00437, 10.02635, 10.03429, 10.03125,
  10.03987, 10.05542, 10.05542, 10.05103, 10.03277, 10.0299, 9.98129, 9.96303, 9.93927, 9.91205)
LONGITUDE_VALUEs <- c(
  169.0064, 169.0531, 169.0909, 169.1238, 169.1698, 169.187, 169.2239, 169.2332, 169.2432, 169.2861,
  169.2916, 169.3105, 169.3352, 169.3338, 169.3166, 169.3067, 169.2861, 169.2755, 169.2467, 169.23539, 
  169.2074, 169.1936, 169.1639, 169.1343, 169.133, 169.1197, 169.1147, 169.0963, 169.0812, 169.0706, 
  169.0179, 168.9926, 168.9856, 168.9842, 168.9976, 169.005, 169.0205, 169.0172, 169.0154, 169.0062)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  9.52766, 9.51412, 9.51446, 9.52258, 9.52868, 9.52055, 9.51953, 9.53579, 9.53763, 9.52612, 
  9.49429, 9.46229, 9.4423, 9.39302, 9.38778, 9.34205, 9.33696, 9.34103, 9.33984, 9.3539, 
  9.37389, 9.38524, 9.38422, 9.39489, 9.38981, 9.39286, 9.3915, 9.39303, 9.38693, 9.38998, 
  9.37406, 9.39066, 9.39099, 9.4374, 9.444, 9.46703, 9.4738, 9.56167, 9.56184, 9.54914, 
  9.52493, 9.52629, 9.52375)
LONGITUDE_VALUEs <- c(
  170.0139, 169.9916, 169.9768, 169.9693, 169.948, 169.9422, 169.9017, 169.8725, 169.836, 169.8156, 
  169.7996, 169.8032, 169.8288, 169.8654, 169.8762, 169.912, 169.9418, 169.9654, 170.0044, 170.0434, 
  170.0631, 170.0623, 170.0859, 170.1029, 170.1088, 170.1172, 170.1237, 170.1392, 170.1524, 170.1606, 
  170.1951, 170.2087, 170.2195, 170.2356, 170.2427, 170.2495, 170.2305, 170.1539, 170.1448, 170.1312, 
  170.0815, 170.048, 170.031)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  9.21227, 9.18618, 9.17211, 9.15635, 9.15449, 9.12381, 9.08584, 9.07754, 9.05533, 9.036, 
  9.01803, 9.0121, 9.01125, 9.0099, 9.03516, 9.06025, 9.09754, 9.12245, 9.13957, 9.16025, 
  9.16296, 9.17432, 9.18465, 9.2077, 9.20922, 9.22312, 9.22803, 9.24769, 9.25395, 9.2609, 
  9.25904, 9.24819)
LONGITUDE_VALUEs <- c(
  169.8992, 169.9024, 169.9342, 169.9452, 169.9531, 169.9852, 170.0025, 170.0104, 170.0204, 170.0228, 
  170.0374, 170.0485, 170.0612, 170.0786, 170.101, 170.1076, 170.1055, 170.0883, 170.0674, 170.0602, 
  170.0509, 170.0471, 170.0497, 170.042, 170.0305, 170.0238, 170.0128, 169.9905, 169.9883, 169.9672, 
  169.921, 169.9124)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  8.37143, 8.35716, 8.31776, 8.29334, 8.27635, 8.25596, 8.22419, 8.2033, 8.20296, 8.19276, 
  8.1756, 8.15436, 8.14434, 8.13074, 8.13176, 8.1632, 8.17509, 8.1948, 8.19905, 8.21893, 
  8.23524, 8.25817, 8.29487, 8.31066, 8.31508, 8.32119, 8.32901, 8.32867, 8.34022, 8.34327, 
  8.35686)
LONGITUDE_VALUEs <- c(
  171.038, 171.0339, 171.039, 171.0321, 171.0198, 171.0148, 171.0115, 171.0404, 171.0562, 171.0625, 
  171.1063, 171.1294, 171.1674, 171.1748, 171.182, 171.1751, 171.1777, 171.1688, 171.1597, 171.1576, 
  171.149, 171.1476, 171.1598, 171.172, 171.1701, 171.1471, 171.1386, 171.1315, 171.1106, 171.0792, 
  171.0543)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  8.48414, 8.49671, 8.53134, 8.57129, 8.57893, 8.59607, 8.63799, 8.64868, 8.66158, 8.6962, 
  8.70553, 8.71487, 8.72318, 8.73506, 8.74659, 8.77561, 8.78799, 8.82582, 8.84278, 8.84431, 
  8.87162, 8.87111, 8.87704, 8.87789, 8.88841, 8.88909, 8.89723, 8.90045, 8.90808, 8.90181, 
  8.9035, 8.91147, 8.90571, 8.90638, 8.89604, 8.8862, 8.88027, 8.87246, 8.8533, 8.83362, 
  8.80088, 8.79223, 8.77696, 8.76865, 8.7505, 8.72708, 8.72471, 8.71283, 8.70927, 8.70299, 
  8.70316, 8.67855, 8.66379, 8.65344, 8.64478, 8.64105, 8.60354, 8.60065, 8.5903, 8.57604, 
  8.5387, 8.53462, 8.50588, 8.49849, 8.49824, 8.48898)
LONGITUDE_VALUEs <- c(
  171.1793, 171.1988, 171.1762, 171.1781, 171.1718, 171.1719, 171.1924, 171.2063, 171.2104, 171.2275, 
  171.2409, 171.2394, 171.2133, 171.2107, 171.1975, 171.1772, 171.1505, 171.1038, 171.0957, 171.0849, 
  171.0629, 171.0247, 171.015, 171.0099, 170.9989, 170.9877, 170.9757, 170.9505, 170.932, 170.9138, 
  170.8993, 170.8906, 170.8736, 170.835, 170.835, 170.83, 170.8427, 170.8454, 170.8599, 170.8599, 
  170.8693, 170.8779, 170.8801, 170.8837, 170.8808, 170.9016, 170.9146, 170.9278, 170.9459, 170.9472, 
  170.9546, 170.9749, 170.9761, 170.9883, 170.9892, 170.9938, 171.017, 171.0295, 171.0436, 171.0532, 
  171.0915, 171.1061, 171.1429, 171.149, 171.1597, 171.1665)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  7.15177, 7.1424, 7.13371, 7.1206, 7.10901, 7.08244, 7.0637, 7.06319, 7.0516, 7.06796,
  7.06745, 7.07429, 7.07804, 7.08281, 7.08298, 7.08673, 7.08885, 7.09209, 7.10606, 7.11679, 
  7.12531, 7.12795, 7.12659, 7.12446, 7.15248, 7.15316, 7.15052, 7.14856, 7.15512, 7.1598, 
  7.15954, 7.16406, 7.16329, 7.14904, 7.14955, 7.16863, 7.17238, 7.17902, 7.17919, 7.19213, 
  7.20712, 7.21597, 7.22279, 7.22466, 7.21444, 7.17459)
LONGITUDE_VALUEs <- c(
  171.0258, 171.0274, 171.042, 171.05, 171.0707, 171.1493, 171.19, 171.1958, 171.2303, 171.2902,
  171.2988, 171.3288, 171.335, 171.3608, 171.3769, 171.3798, 171.3854, 171.3858, 171.3801, 171.3686, 
  171.3664, 171.3618, 171.3433, 171.3218, 171.2858, 171.2806, 171.2719, 171.2544, 171.2343, 171.2322, 
  171.222, 171.2141, 171.2073, 171.1932, 171.179, 171.1649, 171.1529, 171.1481, 171.1366, 171.1028, 
  171.0804, 171.08403, 171.078, 171.0626, 171.0497, 171.0375)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  7.12871, 7.11032, 7.0633, 7.04047, 7.00401, 6.99072, 6.99686, 7.00367, 7.00333, 6.98902, 
  6.9897, 6.97914, 6.95699, 6.95625, 6.96619, 6.98391, 7.01185, 7.02582, 7.03673, 7.05615, 
  7.06569, 7.0633, 7.06909, 7.07284, 7.08409, 7.08238, 7.09022, 7.09022, 7.08306, 7.0834, 
  7.09328, 7.09908, 7.1093, 7.12088, 7.13655, 7.12633, 7.10793, 7.08954, 7.0926, 7.08306, 
  7.07557, 7.08238, 7.09362, 7.08443, 7.08579, 7.111, 7.11543, 7.13076, 7.16244, 7.17198, 
  7.1747, 7.2057, 7.22716, 7.24521, 7.25849, 7.29255, 7.29902, 7.31366, 7.31434, 7.30344, 
  7.29118, 7.27007, 7.24487, 7.20468, 7.18083, 7.16074, 7.1495, 7.13519)
LONGITUDE_VALUEs <- c(
  171.5628, 171.5655, 171.5432, 171.571, 171.5889, 171.6149, 171.6441, 171.6507, 171.6692, 171.6771, 
  171.6939, 171.6966, 171.733, 171.7582, 171.7619, 171.7536, 171.756, 171.7691, 171.7849, 171.7925, 
  171.8048, 171.8178, 171.8326, 171.8594, 171.87, 171.8875, 171.8947, 171.9016, 171.904, 171.9105, 
  171.9146, 171.9256, 171.9291, 171.9445, 171.9177, 171.914, 171.8961, 171.8666, 171.8161, 171.8086, 
  171.7743, 171.7578, 171.7516, 171.7399, 171.7046, 171.6956, 171.675, 171.6932, 171.6568, 171.6589, 
  171.6534, 171.6482, 171.6394, 171.6446, 171.6601, 171.6614, 171.6532, 171.6522, 171.6446, 171.6401, 
  171.6425, 171.6343, 171.6336, 171.6226, 171.6048, 171.6013, 171.5862, 171.5794)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  6.18732, 6.16411, 6.15045, 6.12963, 6.11529, 6.07672, 6.07365, 6.03711, 6.03746, 6.0535, 
  6.06852, 6.0675, 6.05521, 6.03199, 6.02995, 6.03575, 6.0395, 6.00536, 5.95892, 5.91214, 
  5.87526, 5.87662, 5.89882, 5.91897, 5.95278, 5.96097, 5.97497, 5.99034, 6.00639, 6.03302, 
  6.05145, 6.06443, 6.0774, 6.08935, 6.09857, 6.10881, 6.12144, 6.1566, 6.17503, 6.19995, 
  6.21462, 6.23101, 6.24124, 6.21462, 6.22008, 6.21189, 6.21155, 6.23203, 6.23783, 6.24636, 
  6.24636, 6.26104, 6.2607, 6.24227, 6.23783, 6.24602, 6.23886, 6.23954, 6.22691, 6.22862, 
  6.22384, 6.22486, 6.21735, 6.20507)
LONGITUDE_VALUEs <- c(
  171.7228, 171.7221, 171.7283, 171.7276, 171.7321, 171.7221, 171.7578, 171.8103, 171.8251, 171.8429, 
  171.8735, 171.9061, 171.9271, 171.9456, 171.9607, 171.972, 171.9964, 172.0716, 172.1255, 172.1362, 
  172.1691, 172.1756, 172.1719, 172.1513, 172.1355, 172.141, 172.1163, 172.1162, 172.1094, 172.1156, 
  172.1035, 172.1097, 172.1063, 172.1149, 172.1107, 172.1107, 172.1025, 172.1042, 172.0936, 172.0901, 
  172.0826, 172.0953, 172.0884, 172.0565, 172.0332, 172.0194, 171.9875, 171.9655, 171.9466, 171.9432, 
  171.9332, 171.9251, 171.9135, 171.8915, 171.8678, 171.843, 171.8311, 171.816, 171.795, 171.7693, 
  171.7583, 171.7435, 171.7194, 171.7126)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  9.16627, 9.15372, 9.13201, 9.11515, 9.08099, 9.0673, 9.05655, 9.04523, 9.03539, 9.02362, 
  8.98311, 8.97259, 8.95912, 8.95935, 8.95471, 8.94644, 8.92992, 8.92609, 8.92502, 8.93154, 
  8.94029, 8.94797, 8.95422, 8.97245, 8.99186, 9.00187, 9.04264, 9.05612, 9.06959, 9.08082, 
  9.09088, 9.10347, 9.13295, 9.14589, 9.15021, 9.14446, 9.14699, 9.15798, 9.17107, 9.17769, 
  9.18554, 9.19043, 9.20316, 9.21572, 9.2199, 9.2233, 9.22566, 9.22531, 9.22017, 9.20054)
LONGITUDE_VALUEs <- c(
  165.5354, 165.5483, 165.553, 165.5615, 165.5701, 165.5713, 165.5755, 165.5875, 165.6083, 165.6218, 
  165.6584, 165.6779, 165.6976, 165.7044, 165.7173, 165.7338, 165.752, 165.7575, 165.762, 165.7686, 
  165.7649, 165.758, 165.7551, 165.7391, 165.7295, 165.7276, 165.7005, 165.6893, 165.6847, 165.6844, 
  165.6741, 165.6655, 165.6527, 165.6515, 165.6404, 165.626, 165.6042, 165.5781, 165.5662, 165.5567, 
  165.5504, 165.5454, 165.5381, 165.5338, 165.5284, 165.5267, 165.5237, 165.5201, 165.5183, 165.5291)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### MICRONESIA #####
LATITUDE_VALUEs <- c(
  5.2749, 5.2696, 5.26344, 5.27285, 5.25951, 5.25797, 5.26344, 5.26994, 5.27438, 5.28515, 
  5.29148, 5.30037, 5.33352, 5.34122, 5.34344, 5.35472, 5.37677, 5.37352, 5.37711, 5.36497, 
  5.366, 5.36036, 5.34498, 5.32771, 5.32002, 5.31746, 5.29968)
LONGITUDE_VALUEs <- c(
  162.9108, 162.9293, 162.9408, 162.9693, 162.9885, 163.0028, 163.0127, 163.0153, 163.0239, 163.0266, 
  163.0321, 163.0326, 163.0364, 163.0323, 163.0249, 163.0235, 163.0186, 163.0022, 162.9933, 162.9705, 
  162.9597, 162.947, 162.9473, 162.9367, 162.9233, 162.902, 162.8967)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  6.23339, 6.21991, 6.21394, 6.20694, 6.19688, 6.1956, 6.19824, 6.20302, 6.21044, 6.21548, 
  6.22128, 6.22299, 6.22264, 6.22563, 6.23194)
LONGITUDE_VALUEs <- c(
  160.6916, 160.6865, 160.6973, 160.7009, 160.701, 160.7077, 160.7094, 160.7076, 160.7149, 160.7152, 
  160.7185, 160.7172, 160.7113, 160.7057, 160.7023)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  6.70186, 6.69163, 6.68924, 6.67339, 6.66537, 6.66205, 6.66103, 6.66648, 6.67117, 6.69615, 
  6.69807, 6.6999, 6.69922)
LONGITUDE_VALUEs <- c(
  159.7507, 159.7464, 159.7494, 159.7498, 159.7443, 159.7455, 159.7566, 159.7627, 159.7603, 159.7718, 
  159.7707, 159.7602, 159.7558)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  7.08899, 7.08626, 7.05815, 7.03669, 7.03601, 7.03038, 7.06054, 7.0728, 7.07434, 7.08524, 
  7.08354)
LONGITUDE_VALUEs <- c(
  157.7664, 157.764, 157.7779, 157.8083, 157.8208, 157.833, 157.8328, 157.8177, 157.8067, 157.7855, 
  157.7783)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  6.80357, 6.79743, 6.7872, 6.76794, 6.75362, 6.72481, 6.72055, 6.74203, 6.74663, 6.74561, 
  6.75277, 6.75226, 6.77305, 6.78516, 6.79709, 6.81192, 6.82675, 6.82231, 6.80391, 6.81141, 
  6.81089, 6.81993, 6.82146)
LONGITUDE_VALUEs <- c(
  157.8955, 157.895, 157.9075, 157.9103, 157.9221, 157.923, 157.9384, 157.9492, 157.9664, 157.9755, 
  157.9887, 158.0026, 158.0215, 158.0244, 158.0158, 158.0126, 157.9992, 157.9823, 157.9612, 157.9432, 
  157.9254, 157.9223, 157.9161)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  6.76964, 6.77152, 6.79504, 6.79811, 6.80902, 6.81328, 6.823, 6.82811, 6.84192, 6.84618, 
  6.84737, 6.8547, 6.86424, 6.86492, 6.85589, 6.85691, 6.85606, 6.85896, 6.8622, 6.86595, 
  6.86765, 6.87191, 6.86953, 6.87754, 6.9348, 6.9382, 6.94485, 6.95644, 6.98012, 7.00466, 
  7.05747, 7.05679, 7.04265, 7.02118, 7.01351, 7.00644, 7.0078, 7.00218, 6.99732, 7.00252, 
  7.00167, 6.98054, 6.97841, 6.95617, 6.93547, 6.88647, 6.87207, 6.85162, 6.84387, 6.81029, 
  6.80006, 6.78421, 6.78071, 6.78165, 6.78966, 6.79009, 6.79282, 6.79435, 6.7987, 6.79819, 
  6.79256, 6.79094, 6.78821, 6.78813, 6.78242, 6.7814, 6.78455, 6.77858, 6.77279, 6.77526, 
  6.7733, 6.78464, 6.78489, 6.78054, 6.77628, 6.77449, 6.77671, 6.77177, 6.76938, 6.76222, 
  6.7583, 6.76265)
LONGITUDE_VALUEs <- c(
  158.2723, 158.2956, 158.31, 158.3159, 158.3195, 158.3227, 158.3195, 158.3295, 158.3415, 158.3552, 
  158.367, 158.3689, 158.3631, 158.3557, 158.3478, 158.336, 158.3293, 158.3209, 158.3312, 158.3315, 
  158.3399, 158.3437, 158.3535, 158.359, 158.3375, 158.3277, 158.3329, 158.3298, 158.3332, 158.3136, 
  158.2536, 158.2438, 158.2268, 158.2182, 158.2072, 158.2055, 158.1963, 158.1812, 158.1802, 158.17, 
  158.1484, 158.1269, 158.1185, 158.0887, 158.0816, 158.0972, 158.1058, 158.1078, 158.1118, 158.1151, 
  158.1109, 158.1256, 158.1388, 158.1568, 158.1577, 158.1521, 158.1526, 158.1589, 158.1564, 158.1616, 
  158.1632, 158.167, 158.1671, 158.165, 158.1671, 158.1765, 158.1821, 158.1825, 158.1939, 158.2103, 
  158.2162, 158.2212, 158.2246, 158.2268, 158.223, 158.2238, 158.2288, 158.2295, 158.2279, 158.238, 
  158.2636, 158.2705)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  7.62264, 7.59337, 7.55287, 7.54368, 7.51407, 7.49739, 7.46301, 7.43918, 7.42318, 7.42625, 
  7.4191, 7.40446, 7.41195, 7.41365, 7.45042, 7.46778, 7.49637, 7.5059, 7.53994, 7.59439, 
  7.62026, 7.62026, 7.58146, 7.5818, 7.5767, 7.60665, 7.59848, 7.61685, 7.62876)
LONGITUDE_VALUEs <- c(
  155.1506, 155.1592, 155.1462, 155.1596, 155.1815, 155.2117, 155.2293, 155.2272, 155.2598, 155.2849, 
  155.3257, 155.3535, 155.3687, 155.3848, 155.3961, 155.416, 155.403, 155.3923, 155.3934, 155.4129, 
  155.3913, 155.3638, 155.3422, 155.3268, 155.3072, 155.2444, 155.2234, 155.1702, 155.1599)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  8.09934, 8.0922, 8.09322, 8.07929, 8.06195, 8.05821, 8.07861, 8.09866, 8.12211, 8.13163, 
  8.14862, 8.14148, 8.14013, 8.11531)
LONGITUDE_VALUEs <- c(
  154.2396, 154.2424, 154.2612, 154.2884, 154.2914, 154.3021, 154.3158, 154.3079, 154.3131, 154.2997, 
  154.2877, 154.2746, 154.2585, 154.2506)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  5.79687, 5.78372, 5.77826, 5.78219, 5.78629, 5.7827, 5.7862, 5.78586, 5.77237, 5.77518, 
  5.78816, 5.80106, 5.81925, 5.84315, 5.84999, 5.85869, 5.85528, 5.85579, 5.84853, 5.84657, 
  5.83103, 5.82599, 5.81745, 5.81745, 5.79653)
LONGITUDE_VALUEs <- c(
  157.149, 157.149, 157.1691, 157.1773, 157.2062, 157.2337, 157.2438, 157.2662, 157.3023, 157.3269, 
  157.3498, 157.3432, 157.3391, 157.3207, 157.2993, 157.2913, 157.281, 157.2703, 157.2611, 157.2496, 
  157.2293, 157.2145, 157.2041, 157.1874, 157.1626)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(3.84945, 3.82924, 3.82033, 3.82222, 3.83318, 3.84602, 3.85853, 3.87428, 3.87702, 3.86743)
LONGITUDE_VALUEs <- c(154.9091, 154.909, 154.9179, 154.9527, 154.9747, 154.9785, 154.9738, 154.9586, 154.9381, 154.9175)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(1.09292, 1.07404, 1.02221, 1.03766, 1.08365, 1.10837)
LONGITUDE_VALUEs <- c(154.714, 154.7043, 154.772, 154.809, 154.8128, 154.7809)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  5.50972, 5.467, 5.44991, 5.41744, 5.3836, 5.37847, 5.36036, 5.30327, 5.27934, 5.29233, 
  5.31558, 5.32071, 5.33643, 5.41095, 5.46563, 5.50049, 5.49365)
LONGITUDE_VALUEs <- c(
  153.4886, 153.4539, 153.4549, 153.4845, 153.4951, 153.5294, 153.5685, 153.6074, 153.6468, 153.6842, 
  153.7066, 153.7313, 153.743, 153.676, 153.6413, 153.584, 153.5301)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(5.62999, 5.60676, 5.59446, 5.562, 5.56439, 5.58011, 5.62829)
LONGITUDE_VALUEs <- c(153.5658, 153.5356, 153.538, 153.5751, 153.5868, 153.5906, 153.5724)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  5.4957, 5.51621, 5.52099, 5.53022, 5.53671, 5.55143, 5.56132, 5.54013, 5.51177, 5.49946, 
  5.49058, 5.4957)
LONGITUDE_VALUEs <- c(
  153.8206, 153.8236, 153.8065, 153.8031, 153.7883, 153.77455, 153.7378, 153.7114, 153.7035, 153.7111,
  153.7574, 153.7982)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(5.9287, 5.92341, 5.89575, 5.89063, 5.8937, 5.92563, 5.93075, 5.93144, 5.92785)
LONGITUDE_VALUEs <- c(153.1115, 153.1108, 153.137, 153.1537, 153.1575, 153.1571, 153.1535, 153.1322, 153.1238)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.82997, 6.8344, 6.86405, 6.88553, 6.89166, 6.89882, 6.91348, 6.91552, 6.90393, 6.85042)
LONGITUDE_VALUEs <- c(152.685, 152.7097, 152.7111, 152.7299, 152.7471, 152.7461, 152.7076, 152.6826, 152.6747, 152.6729)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(7.00472, 7.00225, 6.98658, 6.98232, 6.98692, 6.99092)
LONGITUDE_VALUEs <- c(152.5723, 152.5681, 152.5728, 152.5892, 152.5886, 152.5821)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  6.98538, 6.98624, 7.03343, 7.04604, 7.07347, 7.08897, 7.10191, 7.12321, 7.12253, 7.10737, 
  7.10413, 7.11742, 7.11503, 7.0658, 7.06444, 7.0014)
LONGITUDE_VALUEs <- c(
  151.9636, 151.9789, 152.0096, 151.9969, 151.9314, 151.9228, 151.8893, 151.8838, 151.8762, 151.8711, 
  151.8605, 151.8393, 151.8371, 151.8653, 151.8786, 151.9355)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  7.14297, 7.14756, 7.15727, 7.19236, 7.21705, 7.25264, 7.26473, 7.27921, 7.30833, 7.32161, 
  7.33438, 7.35447, 7.36706, 7.37541, 7.38528, 7.40537, 7.42954, 7.45286, 7.4835, 7.49779, 
  7.50732, 7.52655, 7.52877, 7.56416, 7.57812, 7.59802, 7.62133, 7.64618, 7.67493, 7.67595, 
  7.68275, 7.68122, 7.68633, 7.66846, 7.66812, 7.65536, 7.63852, 7.6341, 7.62508, 7.61674, 
  7.60075, 7.59343, 7.57761, 7.56995, 7.56978, 7.54834, 7.53506, 7.53506, 7.52962, 7.52264, 
  7.5143, 7.47533, 7.47056, 7.4663, 7.46358, 7.45473, 7.45184, 7.43499, 7.43413, 7.42664, 
  7.40996, 7.40826, 7.39754, 7.38511, 7.31701, 7.30407, 7.29419, 7.29538, 7.28994, 7.29658, 
  7.2947, 7.29905, 7.29189, 7.29223, 7.2833, 7.27291, 7.26269, 7.2569, 7.24941, 7.24209, 
  7.22931, 7.21876, 7.22387, 7.22727, 7.22557, 7.22301, 7.22335, 7.21893, 7.22301, 7.22199, 
  7.21756, 7.21859, 7.21501, 7.22812, 7.22676, 7.21314, 7.21433, 7.20581, 7.18044, 7.16783, 
  7.14876, 7.14808)
LONGITUDE_VALUEs <- c(
  151.9071, 151.9236, 151.9312, 151.9875, 151.993, 152.0295, 152.0323, 152.0239, 152.0204, 152.0215, 
  152.0005, 151.9931, 151.9966, 151.9933, 151.9955, 151.9856, 152.0019, 151.9895, 151.9895, 151.9844, 
  151.9686, 151.9717, 151.9782, 151.9674, 151.9506, 151.9512, 151.9181, 151.9042, 151.8455, 151.8254, 
  151.7964, 151.7851, 151.7762, 151.7243, 151.6975, 151.6809, 151.6785, 151.6809, 151.68, 151.6855, 
  151.6857, 151.6908, 151.6872, 151.6747, 151.6622, 151.6399, 151.6349, 151.6277, 151.6218, 151.621, 
  151.6103, 151.5869, 151.5747, 151.5721, 151.5665, 151.5629, 151.5586, 151.5508, 151.5388, 151.5352, 
  151.5031, 151.4811, 151.4485, 151.4384, 151.4353, 151.4475, 151.4794, 151.4959, 151.5126, 151.533, 
  151.5407, 151.5521, 151.5622, 151.5708, 151.5845, 151.5879, 151.6027, 151.6034, 151.6107, 151.6121, 
  151.6252, 151.6313, 151.6495, 151.6715, 151.7045, 151.7119, 151.7215, 151.732, 151.7419, 151.7525, 
  151.7558, 151.7623, 151.7659, 151.7908, 151.8006, 151.8159, 151.8258, 151.8375, 151.8409, 151.8545, 
  151.8873, 151.8957)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(8.5587, 8.54486, 8.534, 8.53434, 8.55904)
LONGITUDE_VALUEs <- c(151.3333, 151.3331, 151.3417, 151.3445, 151.346)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  8.56982, 8.53213, 8.51516, 8.47305, 8.46252, 8.43604, 8.42449, 8.4469, 8.452, 8.46898, 
  8.48188, 8.47984, 8.48901, 8.50293, 8.51872, 8.55013, 8.56439, 8.5705, 8.56625, 8.57559, 
  8.57135, 8.58, 8.59053, 8.60071, 8.59986, 8.60818, 8.60478, 8.61599, 8.61514, 8.61955, 
  8.60886, 8.59715, 8.58425)
LONGITUDE_VALUEs <- c(
  151.6818, 151.6821, 151.69, 151.6828, 151.7144, 151.7189, 151.7474, 151.768, 151.7944, 151.7971, 
  151.8163, 151.8232, 151.833, 151.8579, 151.8668, 151.9044, 151.9271, 151.9245, 151.9073, 151.8908, 
  151.8788, 151.8603, 151.8573, 151.8462, 151.8366, 151.8259, 151.8144, 151.7787, 151.7557, 151.7422, 
  151.7243, 151.7173, 151.6962)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  8.59918, 8.59222, 8.58221, 8.56337, 8.55522, 8.56439, 8.58136, 8.59969, 8.61361, 8.61327, 
  8.6221, 8.61089, 8.60444, 8.60954, 8.69337, 8.71102, 8.75004, 8.76158, 8.77583, 8.78601, 
  8.78364, 8.79042, 8.76582, 8.75615, 8.73172, 8.68574, 8.66249, 8.65383, 8.63516, 8.62294)
LONGITUDE_VALUEs <- c(
  152.0225, 152.0223, 152.0488, 152.0629, 152.0876, 152.1024, 152.0972, 152.1072, 152.1775, 152.2236, 
  152.2342, 152.2304, 152.2431, 152.2586, 152.3492, 152.3392, 152.3334, 152.3214, 152.3159, 152.2836, 
  152.2661, 152.2387, 152.1777, 152.1748, 152.1779, 152.161, 152.1425, 152.12, 152.0927, 152.0596)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(8.58917, 8.56608, 8.5671, 8.61734, 8.65977, 8.66113, 8.61327)
LONGITUDE_VALUEs <- c(149.6778, 149.6792, 149.7314, 149.7334, 149.753, 149.7399, 149.7049)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  8.58785, 8.58428, 8.56222, 8.57172, 8.57936, 8.59362, 8.5982, 8.61551, 8.6145, 8.6016, 
  8.58327, 8.57902, 8.58462)
LONGITUDE_VALUEs <- c(
  150.3652, 150.3635, 150.4249, 150.428, 150.4124, 150.4032, 150.3927, 150.3846, 150.3815, 150.3813, 
  150.3971, 150.3949, 150.3874)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(8.95076, 8.9355, 8.94737, 8.95771)
LONGITUDE_VALUEs <- c(150.0622, 150.0613, 150.0787, 150.078)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(8.99061, 8.97704, 8.97314, 8.97772, 8.97636, 8.98298, 8.97891, 8.98111, 8.99044)
LONGITUDE_VALUEs <- c(150.1257, 150.1145, 150.1168, 150.1224, 150.1303, 150.1387, 150.1466, 150.1494, 150.1346)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(8.80552, 8.80272, 8.78745, 8.78805, 8.80739, 8.80264)
LONGITUDE_VALUEs <- c(150.2811, 150.2791, 150.299, 150.3043, 150.3025, 150.2902)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(8.74054, 8.7402, 8.7514, 8.76939, 8.77435, 8.78126, 8.7799, 8.77312, 8.76141, 8.7492)
LONGITUDE_VALUEs <- c(150.3365, 150.341, 150.3487, 150.3359, 150.31725, 150.3106, 150.3058, 150.3084, 150.3298, 150.3353)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.68583, 6.67526, 6.67134, 6.67245, 6.69598, 6.70314, 6.70314, 6.69768)
LONGITUDE_VALUEs <- c(149.2954, 149.294, 149.2964, 149.302, 149.3108, 149.3087, 149.2978, 149.2944)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(7.36315, 7.3434, 7.35344, 7.36723, 7.37524, 7.37217, 7.36536)
LONGITUDE_VALUEs <- c(149.1751, 149.1856, 149.2029, 149.2031, 149.1739, 149.1667, 149.1694)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  7.58781, 7.54493, 7.5371, 7.53302, 7.54732, 7.55616, 7.56331, 7.5691, 7.58033, 7.60687, 
  7.62933, 7.64464, 7.64839, 7.62185, 7.60381)
LONGITUDE_VALUEs <- c(
  149.39, 149.4106, 149.4065, 149.4418, 149.4411, 149.4473, 149.4408, 149.4428, 149.4346, 149.4425, 
  149.4343, 149.4394, 149.4308, 149.4054, 149.4041)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(8.11819, 8.11361, 8.10468, 8.09313, 8.09959, 8.09916, 8.10545, 8.11318)
LONGITUDE_VALUEs <- c(147.6346, 147.6325, 147.6442, 147.6456, 147.6549, 147.6615, 147.6613, 147.6493)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(7.38936, 7.37404, 7.37021, 7.37881, 7.38205, 7.38639, 7.3863, 7.38979)
LONGITUDE_VALUEs <- c(147.0282, 147.0213, 147.0274, 147.035, 147.05334, 147.0507, 147.0405, 147.0307)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  8.07572, 8.06841, 8.05974, 8.06076, 8.07147, 8.07402, 8.08727, 8.08965, 8.08676, 8.09458, 
  8.0956, 8.08625, 8.08812, 8.08404, 8.08285)
LONGITUDE_VALUEs <- c(
  146.6913, 146.6896, 146.7054, 146.7219, 146.725, 146.7347, 146.7351, 146.7457, 146.7512, 146.7533, 
  146.738, 146.7233, 146.7136, 146.7064, 146.6982)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(7.68619, 7.68143, 7.67513, 7.68891, 7.7078, 7.70865)
LONGITUDE_VALUEs <- c(145.8456, 145.8465, 145.8731, 145.8873, 145.8854, 145.8769)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  7.50872, 7.50242, 7.50004, 7.49187, 7.4837, 7.47758, 7.47196, 7.46515, 7.46668, 7.45851, 
  7.45664, 7.45119, 7.45273, 7.44983, 7.45902, 7.46698, 7.47145, 7.49426, 7.50957, 7.51638, 
  7.52795, 7.5288, 7.51927, 7.51706, 7.51059, 7.50872, 7.5157, 7.5157)
LONGITUDE_VALUEs <- c(
  146.26, 146.26, 146.2667, 146.2705, 146.2926, 146.2968, 146.3192, 146.3232, 146.334, 146.3393, 
  146.35, 146.3579, 146.3711, 146.3827, 146.3839, 146.37624, 146.3589, 146.3371, 146.3343, 146.3345, 
  146.3307, 146.3249, 146.3177, 146.3046, 146.3007, 146.2858, 146.2794, 146.2719)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  7.46107, 7.47128, 7.48575, 7.48847, 7.49528, 7.49749, 7.51653, 7.51925, 7.51636, 7.51075,
  7.507978, 7.49211, 7.48862, 7.47968, 7.47551, 7.46794, 7.46309, 7.459, 7.45773, 7.44879, 
  7.44735, 7.43152, 7.41705, 7.4116, 7.40053, 7.39909, 7.40729, 7.41594, 7.42581, 7.43177, 
  7.45671)
LONGITUDE_VALUEs <- c(
  146.1441, 146.1435, 146.1498, 146.156, 146.161, 146.1764, 146.1764, 146.1726, 146.1664, 146.1619,
  146.15555, 146.1476, 146.1433, 146.1379, 146.1317, 146.1296, 146.1258, 146.1287, 146.1371, 146.1408, 
  146.1479, 146.1552, 146.1548, 146.1603, 146.1574, 146.1625, 146.17188, 146.172, 146.1659, 146.1576, 
  146.1479)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(9.22124, 9.22429, 9.22722, 9.23577, 9.2351, 9.23255, 9.22942, 9.22734, 9.22387)
LONGITUDE_VALUEs <- c(145.381, 145.3896, 145.3905, 145.3837, 145.3791, 145.3776, 145.3788, 145.3818, 145.3821)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  8.59464, 8.58649, 8.58191, 8.5797, 8.57291, 8.58666, 8.58785, 8.59175, 8.59277, 8.61195, 
  8.61382)
LONGITUDE_VALUEs <- c(
  144.4998, 144.4936, 144.4943, 144.508, 144.5156, 144.5293, 144.5362, 144.5362, 144.528, 144.5046, 
  144.4962)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(7.25796, 7.23838, 7.24025, 7.23429, 7.23804, 7.26375)
LONGITUDE_VALUEs <- c(144.4313, 144.4356, 144.4543, 144.4601, 144.4689, 144.4533)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  7.33803, 7.32032, 7.33122, 7.34416, 7.33666, 7.34416, 7.3857, 7.38672, 7.37344, 7.3748, 
  7.3622, 7.3639, 7.38059, 7.37855, 7.35573, 7.34654)
LONGITUDE_VALUEs <- c(
  143.8331, 143.8321, 143.8805, 143.8904, 143.9045, 143.9176, 143.9155, 143.9083, 143.8987, 143.8867, 
  143.8819, 143.8712, 143.8537, 143.8304, 143.817, 143.8211)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.69244, 6.68187, 6.68357, 6.67675, 6.68954, 6.70403, 6.69770, 6.7088, 6.69636)
LONGITUDE_VALUEs <- c(142.9943, 142.987, 143.0609, 143.0849, 143.0851, 143.0547, 143.04388, 143.0278, 143.0194)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  8.12287, 8.10825, 8.11675, 8.11981, 8.147, 8.14938, 8.15821, 8.16093, 8.15444, 8.15121, 
  8.15342, 8.15036, 8.15495)
LONGITUDE_VALUEs <- c(
  140.3762, 140.4215, 140.4229, 140.4139, 140.3985, 140.3693, 140.3594, 140.336, 140.3183, 140.3195, 
  140.3334, 140.3411, 140.3492)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(9.77389, 9.75545, 9.75105, 9.76797)
LONGITUDE_VALUEs <- c(140.5202, 140.5042, 140.5172, 140.5337)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  9.95615, 9.92639, 9.90069, 9.82425, 9.78094, 9.7647, 9.78229, 9.82222, 9.84657, 9.88378, 
  9.94668, 9.93924, 9.94939)
LONGITUDE_VALUEs <- c(
  139.909, 139.8981, 139.9289, 139.9495, 139.9283, 139.9296, 139.9756, 139.9633, 139.9729, 139.9557, 
  139.9571, 139.9379, 139.9269)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(9.93676, 9.92797, 9.90971, 9.91444, 9.92932, 9.93254)
LONGITUDE_VALUEs <- c(139.8095, 139.8088, 139.846, 139.861, 139.8337, 139.8157)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  9.78256, 9.77241, 9.79575, 9.81707, 9.86848, 9.88032, 9.89317, 9.89317, 9.90501, 9.93883, 
  9.94052, 9.95608, 9.96419, 10.01559, 10.02911, 10.021, 10.00747, 10.01085, 10.02404, 10.02742, 
  10.03384, 10.05514, 10.07711, 10.07813, 10.08827, 10.09469, 10.07677, 10.08218, 10.05311, 10.05311, 
  10.04263, 10.04027, 10.03181, 10.03181, 10.00375, 9.98583, 9.96081, 9.92801, 9.90806, 9.85935, 
  9.84819)
LONGITUDE_VALUEs <- c(
  139.6483, 139.6765, 139.6844, 139.704, 139.7015, 139.6868, 139.6823, 139.6662, 139.6593, 139.6834, 
  139.6926, 139.6971, 139.7057, 139.7273, 139.7428, 139.7822, 139.7901, 139.7991, 139.8073, 139.7816, 
  139.7678, 139.7692, 139.7517, 139.7428, 139.7363, 139.705, 139.6827, 139.6697, 139.6068, 139.5787, 
  139.5728, 139.5619, 139.565, 139.5814, 139.6144, 139.6206, 139.5934, 139.5924, 139.5749, 139.6054, 
  139.6377)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  9.42234, 9.41862, 9.43826, 9.44571, 9.49211, 9.49753, 9.52343, 9.5258, 9.53968, 9.55729, 
  9.59283, 9.60248, 9.61974, 9.62516, 9.64158, 9.65985, 9.66002, 9.63176, 9.61433, 9.56863, 
  9.55796, 9.55864, 9.48279, 9.47145)
LONGITUDE_VALUEs <- c(
  138.0325, 138.0368, 138.0603, 138.0798, 138.1358, 138.1633, 138.1899, 138.2012, 138.2029, 138.2132, 
  138.1979, 138.1878, 138.182, 138.1732, 138.1748, 138.1665, 138.159, 138.1341, 138.1315, 138.0968, 
  138.097, 138.0865, 138.0429, 138.046)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  8.59603, 8.60554, 8.59943, 8.56073, 8.55563, 8.52202, 8.51795, 8.49961, 8.48569, 8.49893, 
  8.49825, 8.50471, 8.4969, 8.46226, 8.43475, 8.40487, 8.40011, 8.38958, 8.39298, 8.38449, 
  8.38687, 8.37498, 8.37226, 8.35052, 8.33422, 8.32538, 8.28971, 8.30092, 8.30126, 8.31906, 
  8.34216, 8.37743, 8.48135, 8.49995, 8.58564)
LONGITUDE_VALUEs <- c(
  137.5839, 137.5579, 137.5359, 137.4954, 137.4703, 137.4593, 137.4497, 137.4394, 137.4161, 137.3879, 
  137.3783, 137.3701, 137.3574, 137.357, 137.335, 137.3556, 137.3786, 137.3934, 137.4164, 137.4205, 
  137.4349, 137.4421, 137.4641, 137.4706, 137.4679, 137.4737, 137.4834, 137.4978, 137.5088, 137.5173, 
  137.5185, 137.5408, 137.558, 137.5795, 137.5897)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

##### NORTHERN MARIANA ISLANDS #####
LATITUDE_VALUEs <- c(
  20.54971, 20.53845, 20.53588, 20.53765, 20.5452, 20.54585, 20.54954, 20.54858, 20.54971, 
  20.55372)
LONGITUDE_VALUEs <- c(
   144.8868, 144.8863, 144.8942, 144.8983, 144.9017, 144.9031, 144.9017, 144.8992, 144.8957, 
  144.8933)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  20.01182, 20.01081, 20.01242, 20.01194, 20.01855, 20.02162, 20.02533, 20.03, 20.03242, 20.03226, 
  20.03565, 20.03097, 20.02646, 20.02452, 20.01678, 20.015, 20.01226)
LONGITUDE_VALUEs <- c(
  145.21366, 145.2149, 145.2175, 145.229, 145.2379, 145.2386, 145.2348, 145.2334, 145.2293, 145.2262, 
  145.2207, 145.2111, 145.2082, 145.2091, 145.2079, 145.2101, 145.2103)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(19.68255, 19.67544, 19.67803, 19.68627, 19.69387, 19.70259, 19.70744, 19.70582, 19.69273)
LONGITUDE_VALUEs <- c(145.3905, 145.4015, 145.4099, 145.418, 145.418, 145.4147, 145.4051, 145.3974, 145.3888)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  18.7349, 18.7336, 18.72564, 18.72938, 18.73198, 18.73848, 18.73783, 18.74027, 18.74027, 18.74384, 
  18.74644, 18.75002, 18.7523, 18.75522, 18.76042, 18.75961, 18.77424, 18.7809, 18.78432, 18.79114, 
  18.79325, 18.79618, 18.79504, 18.80057, 18.80414, 18.80723, 18.80707, 18.80885, 18.8082, 18.8121, 
  18.81292, 18.80658, 18.80105, 18.79504, 18.78659, 18.77781, 18.77066, 18.7653, 18.75701, 18.75343, 
  18.75067, 18.74336, 18.74303, 18.7388)
LONGITUDE_VALUEs <- c(
  145.6513, 145.6583, 145.6674, 145.672, 145.671, 145.6773, 145.6864, 145.6887, 145.6911, 145.6911, 
  145.6933, 145.6907, 145.6926, 145.6912, 145.6947, 145.6995, 145.6978, 145.6988, 145.6957, 145.6966, 
  145.6926, 145.6912, 145.6883, 145.682, 145.6815, 145.677, 145.6744, 145.6705, 145.6641, 145.665, 
  145.6569, 145.6492, 145.6494, 145.6415, 145.641, 145.636, 145.6394, 145.6372, 145.6422, 145.6404, 
  145.6461, 145.6478, 145.6501, 145.6525)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  18.0484, 18.04432, 18.0502, 18.05689, 18.05787, 18.06701, 18.06766, 18.07207, 18.10291, 18.10372, 
  18.10699, 18.1096, 18.10128, 18.1078, 18.10797, 18.11041, 18.11041, 18.11629, 18.11906, 18.12232, 
  18.13179, 18.13799, 18.14418, 18.15055, 18.15658, 18.16523, 18.16718, 18.16979, 18.16767, 18.15674, 
  18.14435, 18.14321, 18.1357, 18.13342, 18.12787, 18.12608, 18.12412, 18.11955, 18.10438, 18.09801, 
  18.09034, 18.08545, 18.08512, 18.07435, 18.06293, 18.0595, 18.05754, 18.05199)
LONGITUDE_VALUEs <- c(
  145.7077, 145.7089, 145.7305, 145.735, 145.739, 145.7434, 145.7462, 145.7448, 145.7656, 145.7716, 
  145.7743, 145.7844, 145.7958, 145.7939, 145.798, 145.7971, 145.799, 145.8013, 145.8042, 145.8033, 
  145.8092, 145.8087, 145.8099, 145.8069, 145.8071, 145.7987, 145.7839, 145.7796, 145.7695, 145.7561, 
  145.7556, 145.7604, 145.7626, 145.7604, 145.7608, 145.7563, 145.7599, 145.757, 145.7587, 145.7556, 
  145.7426, 145.7383, 145.7268, 145.7154, 145.7117, 145.7132, 145.7106, 145.7117)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  17.58656, 17.58067, 17.58034, 17.58476, 17.59049, 17.60259, 17.61241, 17.61323, 17.6201, 17.62043, 
  17.61863, 17.61601, 17.61666, 17.61143, 17.60358, 17.59049)
LONGITUDE_VALUEs <- c(
  145.8222, 145.8253, 145.8401, 145.8414, 145.8504, 145.8512, 145.8456, 145.8414, 145.837, 145.8306, 
  145.8229, 145.8219, 145.82, 145.8208, 145.8145, 145.816)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  17.308, 17.30898, 17.3116, 17.31193, 17.31422, 17.3175, 17.32242, 17.32094, 17.31472, 17.30259, 
  17.29669, 17.30324)
LONGITUDE_VALUEs <- c(
  145.8502, 145.8526, 145.8524, 145.8488, 145.8476, 145.8502, 145.8411, 145.8351, 145.8318, 145.8325, 
  145.8447, 145.8497)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  16.69256, 16.69306, 16.69092, 16.69223, 16.69651, 16.70457, 16.70802, 16.71377, 16.71476, 16.71838, 
  16.71755, 16.71492, 16.7141, 16.71196, 16.71246, 16.70506, 16.70062, 16.70095, 16.69733, 16.69569)
LONGITUDE_VALUEs <- c(
  145.7788, 145.7815, 145.7851, 145.7874, 145.7862, 145.7893, 145.7872, 145.7869, 145.781, 145.7815, 
  145.7774, 145.7771, 145.7748, 145.773, 145.7694, 145.7663, 145.7687, 145.7711, 145.7742, 145.7742)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  16.36128, 16.34926, 16.35008, 16.33855, 16.33855, 16.33559, 16.33163, 16.33131, 16.33476, 16.33542, 
  16.33213, 16.33509, 16.33361, 16.33509, 16.33345, 16.33476, 16.33279, 16.33822, 16.3486, 16.35058, 
  16.35964, 16.36985, 16.36771, 16.37034, 16.36936, 16.37051, 16.36919, 16.37051, 16.36804, 16.36985, 
  16.36606)
LONGITUDE_VALUEs <- c(
  145.6349, 145.6334, 145.6356, 145.6397, 145.644, 145.6466, 145.6457, 145.6494, 145.6552, 145.6615, 
  145.6633, 145.6667, 145.6725, 145.6756, 145.6803, 145.6953, 145.6981, 145.7172, 145.7204, 145.7247, 
  145.7235, 145.7055, 145.6803, 145.665, 145.6609, 145.6569, 145.6526, 145.6483, 145.6442, 145.6375, 
  145.6325)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  16.01245, 16.01327, 16.01261, 16.01525, 16.01542, 16.01674, 16.01723, 16.01954, 16.02152, 16.02301, 
  16.02416, 16.02796, 16.02746, 16.02482, 16.02218, 16.02202, 16.01971, 16.01839, 16.01443, 16.01261, 
  16.01063, 16.00568, 16.00568, 16.00964)
LONGITUDE_VALUEs <- c(
  146.0545, 146.0562, 146.0579, 146.0582, 146.0603, 146.061, 146.0605, 146.0617, 146.0641, 146.0637, 
  146.0649, 146.0632, 146.0613, 146.0601, 146.0603, 146.0591, 146.0584, 146.0564, 146.056, 146.0531, 
  146.0536, 146.0514, 146.0524, 146.0548)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(15.241, 15.23951, 15.23868, 15.23934, 15.24265, 15.24249, 15.24348, 15.24332, 15.24133)
LONGITUDE_VALUEs <- c(145.7113, 145.7099, 145.7105, 145.7156, 145.7142, 145.7127, 145.7118, 145.7103, 145.7106)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  15.21582, 15.19478, 15.16364, 15.15668, 15.14723, 15.13646, 15.13182, 15.12288, 15.11973, 15.11807, 
  15.11045, 15.10597, 15.10597, 15.10779, 15.10581, 15.1005, 15.09222, 15.09238, 15.10746, 15.11028, 
  15.12089, 15.12337, 15.1237, 15.12851, 15.13945, 15.15983, 15.16347, 15.16182, 15.15204, 15.15038, 
  15.15204, 15.14939, 15.15287, 15.15585, 15.15602, 15.16347, 15.16679, 15.1749, 15.18286, 15.18302, 
  15.18948, 15.19611, 15.19793, 15.20456, 15.20953, 15.22742, 15.22874, 15.23669, 15.23702, 15.24199, 
  15.24481, 15.25027, 15.25243, 15.25474, 15.25855, 15.26137, 15.25988, 15.25905, 15.26303, 15.27329, 
  15.27445, 15.28654, 15.28654, 15.29035, 15.28919, 15.27776, 15.27611, 15.27263, 15.26849, 15.25408, 
  15.25044, 15.24597, 15.24332, 15.23272, 15.23189, 15.22609, 15.22659, 15.21798, 15.22013)
LONGITUDE_VALUEs <- c(
  145.7152, 145.7165, 145.7077, 145.6995, 145.7005, 145.6957, 145.6919, 145.6938, 145.689, 145.6959, 
  145.707, 145.707, 145.7159, 145.7159, 145.7401, 145.7453, 145.7465, 145.7503, 145.7532, 145.7556, 
  145.757, 145.7547, 145.7511, 145.7446, 145.741, 145.7503, 145.7621, 145.7681, 145.7729, 145.7812, 
  145.7824, 145.7927, 145.7882, 145.7887, 145.7913, 145.7918, 145.7978, 145.7851, 145.7843, 145.781, 
  145.7779, 145.7777, 145.7812, 145.7817, 145.7783, 145.7923, 145.7988, 145.8031, 145.8069, 145.8107, 
  145.8066, 145.8094, 145.8121, 145.8104, 145.8106, 145.8159, 145.8183, 145.8259, 145.8293, 145.8307, 
  145.8265, 145.8192, 145.8142, 145.8121, 145.8092, 145.7986, 145.7945, 145.7938, 145.7872, 145.7788, 
  145.7694, 145.7654, 145.7541, 145.7443, 145.739, 145.7395, 145.7331, 145.7297, 145.7174)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  14.95269, 14.94274, 14.93727, 14.93411, 14.93063, 14.92848, 14.92284, 14.92267, 14.92765, 14.93312, 
  14.9376, 14.94125, 14.94606, 14.94871, 14.94771, 14.9502, 14.95816, 14.96629, 14.97209, 14.97674, 
  14.98271, 15.00708, 15.00924, 15.01222, 15.01902, 15.01885, 15.03626, 15.04604, 15.05781, 15.06577, 
  15.07522, 15.08516, 15.10124, 15.10091, 15.07787, 15.07638, 15.07174, 15.05765, 15.05317, 15.05002, 
  15.0482, 15.04057, 15.03676, 15.03825, 15.01521, 15.0104, 14.99581, 14.99299, 14.98984, 14.98917, 
  14.99216, 14.99166, 14.98569, 14.98204, 14.97209, 14.96927, 14.9648, 14.9648)
LONGITUDE_VALUEs <- c(
  145.6318, 145.628, 145.6301, 145.6291, 145.6313, 145.6304, 145.6335, 145.6399, 145.6467, 145.6481, 
  145.6529, 145.651, 145.6548, 145.6596, 145.6649, 145.6663, 145.6611, 145.6622, 145.6661, 145.6636, 
  145.6678, 145.6739, 145.6706, 145.6708, 145.666, 145.6565, 145.6478, 145.6473, 145.6594, 145.6553, 
  145.6558, 145.6572, 145.6457, 145.6435, 145.6215, 145.6172, 145.6152, 145.6021, 145.5961, 145.5994, 
  145.5975, 145.5971, 145.592, 145.5885, 145.5819, 145.5887, 145.5839, 145.5899, 145.5899, 145.5978, 
  145.5997, 145.6087, 145.6084, 145.6127, 145.6123, 145.6173, 145.6199, 145.6262)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  14.85316, 14.84586, 14.84154, 14.84038, 14.8447, 14.84387, 14.85465, 14.86278, 14.86544, 14.86627, 
  14.86427, 14.86461, 14.86162, 14.86029, 14.85614, 14.85614)
LONGITUDE_VALUEs <- c(
  145.5401, 145.5367, 145.5386, 145.5468, 145.5575, 145.564, 145.5777, 145.5788, 145.577, 145.5733, 
  145.5698, 145.5669, 145.5643, 145.558, 145.5504, 145.5468)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  14.12611, 14.13077, 14.13609, 14.14225, 14.14242, 14.14625, 14.15241, 14.15274, 14.1544, 14.15474, 
  14.15141, 14.15657, 14.15956, 14.16373, 14.17687, 14.18753, 14.19169, 14.19734, 14.20084, 14.18919, 
  14.1797, 14.17721, 14.17405, 14.17371, 14.17188, 14.16722, 14.16855, 14.16373, 14.14841, 14.14392, 
  14.1341, 14.12677, 14.11778, 14.11745, 14.11978, 14.12028, 14.13526, 14.13976, 14.13743, 14.12794, 
  14.11562, 14.11162, 14.11029, 14.11212, 14.11479, 14.11628, 14.11529, 14.11262, 14.11612, 14.11612)
LONGITUDE_VALUEs <- c(
  145.2209, 145.2304, 145.2286, 145.2295, 145.2324, 145.234, 145.2425, 145.2501, 145.252, 145.2619, 
  145.2686, 145.2747, 145.282, 145.2841, 145.2843, 145.2908, 145.2892, 145.2716, 145.2408, 145.2182, 
  145.2048, 145.2041, 145.1952, 145.1909, 145.1883, 145.1741, 145.1593, 145.1576, 145.1428, 145.1425, 
  145.132, 145.1222, 145.1214, 145.1234, 145.1243, 145.1286, 145.1382, 145.1438, 145.1526, 145.1677, 
  145.1694, 145.1669, 145.1729, 145.178, 145.1782, 145.1859, 145.1957, 145.1988, 145.2048, 145.2154)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}

##### PALAU #####
LATITUDE_VALUEs <- c(
  2.90357, 2.87614, 2.84494, 2.80379, 2.79899, 2.82951, 2.83808, 2.86003, 2.91283, 2.93135, 
  2.94677, 2.98929, 3.0126, 3.01157, 2.97283, 2.94403)
LONGITUDE_VALUEs <- c(
  131.7363, 131.7369, 131.726, 131.7266, 131.7634, 131.7894, 131.81, 131.8097, 131.8338, 131.8307, 
  131.8458, 131.819, 131.821, 131.8046, 131.7943, 131.7774)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(3.00817, 2.99805, 2.99754, 3.01588, 3.01845, 3.01639)
LONGITUDE_VALUEs <- c(131.1173, 131.1219, 131.1243, 131.1329, 131.1316, 131.1209)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(4.29232, 4.30995, 4.32484, 4.32502, 4.31817, 4.30892, 4.30533, 4.29728)
LONGITUDE_VALUEs <- c(132.3095, 132.3167, 132.316, 132.3107, 132.3044, 132.3051, 132.3076, 132.3075)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(4.65019, 4.65823, 4.66182, 4.65601)
LONGITUDE_VALUEs <- c(131.9503, 131.9598, 131.9512, 131.9457)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(5.32496, 5.31556, 5.31505, 5.33658, 5.33744, 5.33111)
LONGITUDE_VALUEs <- c(132.2166, 132.2237, 132.2278, 132.2281, 132.2218, 132.2168)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(5.35375, 5.34828, 5.35888, 5.36161)
LONGITUDE_VALUEs <- c(132.2223, 132.2295, 132.2331, 132.2269)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  6.88806, 6.89965, 6.89965, 6.90698, 6.91022, 6.9138, 6.91397, 6.91874, 6.91823, 6.92027, 
  6.92522, 6.92504, 6.92232, 6.92283, 6.92078, 6.9201, 6.90477, 6.90153, 6.89999, 6.89693, 
  6.88994)
LONGITUDE_VALUEs <- c(
  134.1312, 134.1446, 134.1466, 134.1508, 134.154, 134.1532, 134.1504, 134.1482, 134.1461, 134.1437, 
  134.143, 134.1403, 134.1379, 134.1245, 134.1245, 134.1255, 134.13, 134.1291, 134.1262, 134.1278, 
  134.1213)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  8.18446, 8.17052, 8.15302, 8.14554, 8.14996, 8.17086, 8.18531, 8.20179, 8.20213, 8.20654, 
  8.20535)
LONGITUDE_VALUEs <- c(
  134.616, 134.6091, 134.6119, 134.6228, 134.6343, 134.645, 134.6325, 134.6247, 134.6179, 134.6144, 
  134.6082)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  8.04731, 8.03677, 8.03796, 8.07978, 8.09065, 8.1051, 8.09473, 8.07689, 8.07213, 8.06618, 
  8.07009)
LONGITUDE_VALUEs <- c(
  134.6833, 134.6937, 134.7035, 134.7257, 134.7246, 134.7149, 134.691, 134.6869, 134.6802, 134.6824, 
  134.6875)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  7.01382, 6.98349, 6.96969, 6.98826, 7.00717, 7.01706, 7.02046, 7.0329, 7.03426, 7.0467, 
  7.05675, 7.06391, 7.08111, 7.08691, 7.09764, 7.10207, 7.11075, 7.11348, 7.1191, 7.11859, 
  7.14158, 7.15913, 7.18059, 7.1937, 7.20324, 7.21244, 7.23236, 7.24564, 7.27204, 7.28089, 
  7.28362, 7.29298, 7.3049, 7.30916, 7.32669, 7.34423, 7.34372, 7.349, 7.34747, 7.357, 
  7.35291, 7.37607, 7.39258, 7.40909, 7.4125, 7.4239, 7.44297, 7.45709, 7.46935, 7.47463, 
  7.49403, 7.50067, 7.51973, 7.51683, 7.52483, 7.52585, 7.52926, 7.53572, 7.54474, 7.55274, 
  7.58048, 7.6043, 7.62846, 7.63374, 7.67882, 7.69838, 7.71489, 7.77017, 7.80877, 7.81728, 
  7.88921, 7.90451, 7.91097, 7.91505, 7.93155, 7.95263, 7.99664, 8.00786, 7.95958, 8.00276, 
  7.97796, 7.97473, 7.91063, 7.82151, 7.77491, 7.69734, 7.67795, 7.66298, 7.615, 7.60956, 
  7.58574, 7.56736, 7.54966, 7.54183, 7.53911, 7.51835, 7.53468, 7.50916, 7.49758, 7.47682, 
  7.45641, 7.42884, 7.41335, 7.4062, 7.38475, 7.37573, 7.34951, 7.33248, 7.3381, 7.33368, 
  7.31478, 7.31086, 7.28413, 7.25382, 7.24786, 7.2516, 7.27612, 7.26608, 7.22521, 7.15368, 
  7.13562, 7.11212, 7.1019, 7.09866, 7.11331, 7.11518, 7.12114, 7.12029, 7.12711, 7.12557, 
  7.11842, 7.10479, 7.08844, 7.08265, 7.07632, 7.07547, 7.06815, 7.05605, 7.04072, 7.03101, 
  7.03101, 7.02096)
LONGITUDE_VALUEs <- c(
  134.2182, 134.2184, 134.2244, 134.2408, 134.2687, 134.2711, 134.279, 134.2894, 134.3037, 134.3076, 
  134.3193, 134.3191, 134.3291, 134.3413, 134.3493, 134.3598, 134.3629, 134.3753, 134.3778, 134.3964, 
  134.4, 134.4161, 134.4532, 134.4582, 134.4523, 134.4359, 134.4479, 134.4489, 134.4556, 134.4654, 
  134.4735, 134.4824, 134.5012, 134.5268, 134.5558, 134.5661, 134.5742, 134.5809, 134.5898, 134.597, 
  134.6101, 134.6285, 134.6286, 134.6367, 134.6422, 134.6437, 134.6389, 134.6413, 134.6357, 134.6415, 
  134.6436, 134.6461, 134.6383, 134.6325, 134.6325, 134.6277, 134.6318, 134.6303, 134.6466, 134.6495, 
  134.6448, 134.6515, 134.6524, 134.6495, 134.648, 134.6598, 134.6594, 134.6665, 134.6629, 134.6584, 
  134.685, 134.6744, 134.6781, 134.6972, 134.6986, 134.6926, 134.7051, 134.677, 134.6203, 134.5385, 
  134.5283, 134.5075, 134.4884, 134.5273, 134.5668, 134.5671, 134.5523, 134.5499, 134.5091, 134.4888, 
  134.4765, 134.4737, 134.4634, 134.4658, 134.4545, 134.4174, 134.3875, 134.3717, 134.3844, 134.3875, 
  134.363, 134.3472, 134.345, 134.3252, 134.3118, 134.2795, 134.2711, 134.2454, 134.2254, 134.2155, 
  134.2203, 134.2287, 134.2462, 134.2467, 134.2366, 134.2201, 134.1899, 134.181, 134.2068, 134.2255, 
  134.2217, 134.2414, 134.2377, 134.2459, 134.2596, 134.2643, 134.267, 134.2703, 134.2782, 134.2797, 
  134.2711, 134.2725, 134.2577, 134.2644, 134.26, 134.2488, 134.2522, 134.245, 134.2445, 134.2375, 
  134.2318, 134.2334)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_4 <- st_set_geometry(Geo_4, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}

##### GUAM #####
LATITUDE_VALUEs <- c(
  13.59672, 13.60072, 13.60022, 13.60189, 13.60022, 13.60623, 13.61207, 13.62274, 13.63142, 13.64476, 
  13.65327, 13.65444, 13.64827, 13.63742, 13.62474, 13.61073, 13.59238, 13.5827, 13.57653, 13.57402, 
  13.55817, 13.555, 13.54699, 13.53998, 13.53614, 13.5328, 13.52162, 13.52062, 13.51561, 13.50627, 
  13.5041, 13.5086, 13.50593, 13.49976, 13.49491, 13.49542, 13.49091, 13.48056, 13.47755, 13.48173, 
  13.47722, 13.47755, 13.47939, 13.47872, 13.48106, 13.47822, 13.47822, 13.47321, 13.47555, 13.46971, 
  13.4637, 13.46837, 13.46286, 13.46353, 13.46654, 13.4662, 13.46921, 13.45535, 13.45001, 13.44834, 
  13.43866, 13.43098, 13.41962, 13.41795, 13.41461, 13.41561, 13.41261, 13.40075, 13.3894, 13.38656, 
  13.37787, 13.3727, 13.34915, 13.34263, 13.3413, 13.33862, 13.33796, 13.33211, 13.3291, 13.3286, 
  13.32092, 13.31607, 13.31374, 13.3139, 13.30672, 13.30689, 13.30538, 13.30304, 13.29853, 13.29954, 
  13.29904, 13.29269, 13.286, 13.28517, 13.28066, 13.27648, 13.25359, 13.24641, 13.23371, 13.23103, 
  13.24089, 13.23738, 13.24273, 13.24223, 13.24808, 13.24591, 13.24641, 13.24941, 13.25259, 13.26278, 
  13.26328, 13.26646, 13.26763, 13.2723, 13.27765, 13.27899, 13.27531, 13.28016, 13.2835, 13.28266, 
  13.28567, 13.29068, 13.29553, 13.30639, 13.31624, 13.32008, 13.33478, 13.33629, 13.33946, 13.33862, 
  13.36216, 13.36767, 13.37151, 13.37819, 13.38804, 13.39339, 13.39556, 13.39506, 13.40224, 13.40524, 
  13.41109, 13.41175, 13.41526, 13.4166, 13.42378, 13.42862, 13.42611, 13.42862, 13.43263, 13.44248, 
  13.44231, 13.46084, 13.46385, 13.48722, 13.49106, 13.49056, 13.4979, 13.5004, 13.50691, 13.50708, 
  13.50942, 13.51342, 13.5206, 13.54029, 13.55448, 13.56015, 13.56883, 13.57534, 13.58802)
LONGITUDE_VALUEs <- c(
  144.957, 144.9552, 144.9368, 144.9316, 144.9277, 144.9054, 144.9043, 144.8989, 144.8892, 144.88, 
  144.8667, 144.8592, 144.8513, 144.8468, 144.8362, 144.8353, 144.8371, 144.8309, 144.8309, 144.8242, 
  144.817, 144.8113, 144.8103, 144.8062, 144.8014, 144.8029, 144.8036, 144.8067, 144.8053, 144.7981, 
  144.789, 144.7832, 144.773, 144.7689, 144.7699, 144.774, 144.7753, 144.7691, 144.7557, 144.7534, 
  144.7497, 144.7428, 144.739, 144.7322, 144.7291, 144.7277, 144.7239, 144.716, 144.7071, 144.7054, 
  144.6892, 144.6861, 144.6752, 144.6687, 144.6622, 144.6574, 144.6416, 144.6201, 144.6225, 144.6177, 
  144.6225, 144.6394, 144.6404, 144.6474, 144.6479, 144.6533, 144.6586, 144.6632, 144.66, 144.6557, 
  144.651, 144.6526, 144.643, 144.639, 144.6353, 144.6385, 144.6449, 144.649, 144.6491, 144.6526, 
  144.65, 144.6581, 144.6567, 144.6529, 144.6548, 144.6581, 144.6584, 144.6564, 144.6581, 144.66, 
  144.6634, 144.6572, 144.6591, 144.6626, 144.6615, 144.6639, 144.6504, 144.6414, 144.6394, 144.6411, 
  144.6615, 144.676, 144.6926, 144.7092, 144.7194, 144.7238, 144.7278, 144.7266, 144.7326, 144.7379, 
  144.7431, 144.7432, 144.7381, 144.7511, 144.747, 144.7491, 144.7539, 144.7599, 144.7578, 144.7614, 
  144.7638, 144.763, 144.7702, 144.7728, 144.7712, 144.7733, 144.771, 144.7621, 144.7625, 144.7724, 
  144.7717, 144.769, 144.7726, 144.7728, 144.7762, 144.7715, 144.7729, 144.7769, 144.7824, 144.7815, 
  144.7839, 144.7877, 144.7887, 144.7843, 144.7841, 144.7977, 144.8044, 144.8092, 144.809, 144.8181, 
  144.826, 144.8411, 144.8514, 144.8721, 144.88, 144.8845, 144.8921, 144.891, 144.8917, 144.8962, 
  144.8969, 144.9029, 144.9264, 144.9329, 144.9406, 144.9377, 144.9405, 144.9494, 144.9516)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_5 <- st_set_geometry(Geo_5, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% 
  filter(!NAME %in% c("MARSHALL ISLANDS", "MICRONESIA", "NORTHERN MARIANA ISLANDS", "PALAU", "GUAM"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3, Geo_4, Geo_5)
#DATA MANIPULATIONs on M49_CODEs
DATA <- M49_CODEs %>%
  select(1:2) %>% #Remove superfluous columns 
  rename_with(.fn = ~ paste0("FAO_", ., recycle0 = TRUE), .cols = 1) %>% #Rename duplicate columns
  #DATA MANIPULATIONs
  mutate(
    #FAO_M49_CODE From NUMERIC TO CHARACTER
    FAO_M49_CODE = case_when(
      nchar(FAO_M49_CODE) == 1 ~ paste0("00", FAO_M49_CODE), 
      nchar(FAO_M49_CODE) == 2 ~ paste0("0", FAO_M49_CODE), TRUE ~ as.character(FAO_M49_CODE)))
  
#GeoDATA To DATA_from_Fondation
DATA_from_Fondation <- GeoDATA %>% st_drop_geometry()

#Combine DATA_from_Fondation | DATA
DATA_from_Fondation <- left_join(
  DATA_from_Fondation, DATA %>% select(1:2), by = c("VISUALIZATION_NAME" = "NAME")) %>% 
  select(1:5, 16, 6:15) #Columns ORDER

#Combine GeoDATA | M49_CODEs
GeoDATA <- left_join(
  GeoDATA, DATA %>% select(1:2), by = c("VISUALIZATION_NAME" = "NAME")) %>% 
  select(1:5, 17, 6:16) #Columns ORDER

#Table => Countries in GeoDATA (!in M49_CODEs)
DATA <- GeoDATA %>% st_drop_geometry()
# datatable(DATA[is.na(DATA$FAO_M49_CODE), ][ , c(1, 6)], 
#           options = list(scrollX = TRUE, autoWidth = TRUE, 
#                          columnDefs = list(list(targets = "_all", render = JS(
#                            "function(data, type, row, meta) {",
#                            "  if (type === 'display' && data === null) {",
#                            "    return 'NA';", "  }", "  return data;", "}")))), 
#           style = "bootstrap", rownames = FALSE, caption = "Countries in GeoDATA (!in M49_CODEs)") %>%
#   formatStyle(columns = 1, textAlign = "left") %>% formatStyle(columns = 2, textAlign = "center")
GeoDATA <- GeoDATA %>% select(-6)

No New Countries/Territories.

Now in Our World Administrative Boundaries (GeoDATA):

  • Size in R: 10.5MB
  • Areas: 264 Countries/Territories (264 NAME)
  • 250/249 ISO2 | ISO3 from International Organization for Standardization (ISO) (CLIPPERTON ISLAND)
  • 249/249 Numeric Code (M49_CODE) from International Organization for Standardization (ISO)
  • 161/264 Geometries (SOURCE) from World Health Organization (WHO) - Countries
  • 051/264 Geometries (SOURCE) from Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques
  • 043/264 Geometries (SOURCE) from WHO - Countries and Fondation Jean-Jacques Laffont - TSE
  • 002/264 Geometries (SOURCE) from Global Administrative Areas (GADM)
  • 003/264 Geometries (SOURCE) from Fondation Jean-Jacques Laffont - TSE and Global Administrative Areas (GADM)
  • 004/264 Geometries (SOURCE) from WHO - Countries and Fondation - TSE and Global Administrative Areas (GADM)
#Countries/Territories in GeoDATA
DATA <- GeoDATA %>% st_drop_geometry()
datatable(DATA[ , c(1, 5, 15)], options = list(scrollX = TRUE, autoWidth = TRUE), 
          caption = "Countries/Territories in GeoDATA", style = "bootstrap", rownames = FALSE) %>%
  formatStyle(columns = c(1, 3), textAlign = "left") %>% formatStyle(columns = 2, textAlign = "center")

NAME in GeoDATA \(>\) Residence in International Migrant Stock Data (Residences_in_iMIGRANT_Stock) [264 \(>\) 235].

NAME in GeoDATA \(>\) NAME in GeoDATA_from_WHO (264 \(>\) 241).

5.3.3 Territories

We check that all countries/territories in TERRITORIEs are in GeoDATA.

#Replace Values in NAME
TERRITORIEs <- TERRITORIEs %>%
  filter(NAME != "ChinaIndia") %>% 
  mutate_if(
    is.character, ~case_when(
      . == "Abyei" ~ "Abyei Area",
      . == "AksaiChin" ~ "Aksai Chin",
      . == "AruanchalPradesh" ~ "Arunachal Pradesh",
      . == "Azores Islands" ~ "Azores",
      . == "French Southern and Antarctic Territories" ~ "French Southern Territories",
      . == "Glorioso Island" ~ "Glorioso Islands",
      . == "HalaibTrinagle" ~ "Hala'ib Triangle",
      . == "Hong Kong" ~ "Hong Kong SAR",
      . == "IlemiTriangle" ~ "Ilemi Triangle",
      . == "JammuKashmir" ~ "Jammu and Kashmir",
      . == "KurilIs" ~ "Kuril Islands",
      . == "Macau" ~ "Macao SAR",
      . == "Madeira Islands" ~ "Madeira",
      . == "MatanalSarra" ~ "Ma'tan al-Sarra",
      . == "Midway Island" ~ "Midway Atoll",
      . == "ParacelIs" ~ "Paracel Islands",
      . == "Saint Helena" ~ "Saint Helena, Ascension and Tristan da Cunha",
      . == "Saint Pierre et Miquelon" ~ "Saint Pierre and Miquelon",
      . == "ScaraboroughReef" ~ "Scarborough Reef",
      . == "SenkakuIs" ~ "Senkaku Islands",
      . == "SpratlyIs" ~ "Spratly Islands",
      . == "Svalbard and Jan Mayen Islands" ~ "Svalbard and Jan Mayen",
      . == "Taiwan" ~ "Taiwan (Province of China)",
      . == "Turks and Caicos islands" ~ "Turks and Caicos Islands",
      . == "Wallis and Futuna" ~ "Wallis and Futuna Islands", TRUE ~ .))

#Combine TERRITORIEs | GeoDATA
TERRITORIEs_X <- TERRITORIEs %>% distinct(NAME, .keep_all = TRUE)
DATA <- left_join(TERRITORIEs_X, GeoDATA %>% st_drop_geometry(), by = c("NAME" = "VISUALIZATION_NAME"))
# datatable(DATA[is.na(DATA$CONTINENT), ][ , c(2, 12)],
#           options = list(scrollX = TRUE, autoWidth = TRUE,
#                          columnDefs = list(list(targets = "_all", render = JS(
#                            "function(data, type, row, meta) {",
#                            "  if (type === 'display' && data === null) {",
#                            "    return 'NA';", "  }", "  return data;", "}")))),
#           style = "bootstrap", rownames = FALSE,
#           caption = "Countries in TERRITORIEs (!in GeoDATA)") %>%
#   formatStyle(columns = 1, textAlign = "left", `text-transform` = "uppercase") %>%
#   formatStyle(columns = 2, textAlign = "center")

No New Countries/Territories.

We introduce a new variable in GeoDATA, called Claimed.

We construct Claimed from CLAIMED_AREA and COUNTRY (TERRITORIEs).

#DATA MANIPULATIONs on TERRITORIEs
DATA <- TERRITORIEs %>%
  select(2, 4:5) %>% #Remove superfluous columns 
  rename_with(.fn = ~ paste0("FAO_", ., recycle0 = TRUE), .cols = 1) %>% #Rename duplicate columns
  #DATA MANIPULATIONs
  group_by(FAO_NAME) %>%
  mutate(
    #Replace Values in COUNTRY
    COUNTRY = case_when(
      COUNTRY == "U.K. of Great Britain and Northern Ireland" ~ "United Kingdom of Great Britain and Northern Ireland", TRUE ~ COUNTRY),
    #New Variable => FAO_SOVRN
    FAO_SOVRN = ifelse(CLAIMED_AREA == "NO", COUNTRY, NA),
    #New Variable => Claimed
    Claimed = ifelse(CLAIMED_AREA == "YES", paste(COUNTRY, collapse = " | "), NA)) %>%
  distinct(FAO_NAME, .keep_all = TRUE) #Remove duplicate rows
#Remove superfluous columns
DATA <- DATA %>% select(1:2, 4:5)

#GeoDATA To DATA_from_Fondation
DATA_from_Fondation <- GeoDATA %>% st_drop_geometry()

#Combine DATA_from_Fondation | DATA
DATA_from_Fondation <- left_join(
  DATA_from_Fondation, DATA, by = c("VISUALIZATION_NAME" = "FAO_NAME")) %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in Claimed
    Claimed = case_when(
      NAME == "ABYEI AREA" ~ "South Sudan | Sudan", 
      NAME == "AZAD KASHMIR" ~ "India", 
      NAME == "BRITISH INDIAN OCEAN TERRITORY" ~ "Mauritius", 
      NAME == "GILGIT-BALTISTAN" ~ "India | Pakistan", 
      NAME == "ILEMI TRIANGLE" ~ "Kenya | South Sudan",
      NAME == "LADAKH" ~ "India | Pakistan", 
      NAME == "PARACEL ISLANDS" ~ "China | Taiwan | Viet Nam", 
      NAME == "SCARBOROUGH REEF" ~ "China | Philippines | Taiwan", 
      NAME == "SIACHEN GLACIER" ~ "India | Pakistan", 
      NAME == "SPRATLY ISLANDS" ~ "Brunei Darussalam | China | Malaysia | Philippines | Taiwan | Viet Nam", 
      NAME == "WESTERN SAHARA" ~ "Morocco | Sahrawi Arab Democratic Republic (SADR)", TRUE ~ Claimed)) %>%
  select(1:6, 17, 16, 18, 7:15) #Columns ORDER

#Combine GeoDATA | TERRITORIEs
GeoDATA <- left_join(
  GeoDATA , DATA, by = c("VISUALIZATION_NAME" = "FAO_NAME")) %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in Claimed
    Claimed = case_when(
      NAME == "ABYEI AREA" ~ "South Sudan | Sudan", 
      NAME == "AZAD KASHMIR" ~ "India", 
      NAME == "BRITISH INDIAN OCEAN TERRITORY" ~ "Mauritius", 
      NAME == "GILGIT-BALTISTAN" ~ "India", 
      NAME == "ILEMI TRIANGLE" ~ "Kenya | South Sudan",
      NAME == "LADAKH" ~ "Pakistan", 
      NAME == "PARACEL ISLANDS" ~ "China | Taiwan | Viet Nam", 
      NAME == "SCARBOROUGH REEF" ~ "China | Philippines | Taiwan", 
      NAME == "SIACHEN GLACIER" ~ "India | Pakistan", 
      NAME == "SPRATLY ISLANDS" ~ "Brunei Darussalam | China | Malaysia | Philippines | Taiwan | Viet Nam", 
      NAME == "WESTERN SAHARA" ~ "Morocco | Sahrawi Arab Democratic Republic (SADR)", TRUE ~ Claimed)) %>%
  select(1:6, 18, 17, 19, 7:16) #Columns ORDER

#Table => Countries in GeoDATA (!in TERRITORIEs)
DATA <- GeoDATA %>% st_drop_geometry()
# datatable(DATA[is.na(DATA$CLAIMED_AREA), ][ , c(1, 8)],
#           options = list(scrollX = TRUE, autoWidth = TRUE,
#                          columnDefs = list(list(targets = "_all", render = JS(
#                            "function(data, type, row, meta) {",
#                            "  if (type === 'display' && data === null) {",
#                            "    return 'NA';", "  }", "  return data;", "}")))),
#           style = "bootstrap", rownames = FALSE, caption = "Countries in GeoDATA (!in TERRITORIEs)") %>%
#   formatStyle(columns = 1, textAlign = "left") %>% formatStyle(columns = 2, textAlign = "center")
GeoDATA <- GeoDATA %>% select(-7, -8)

No New Countries/Territories.

Now in Our World Administrative Boundaries (GeoDATA):

  • Size in R: 10.5MB
  • Areas: 264 Countries/Territories (264 NAME)
  • 250/249 ISO2 | ISO3 from International Organization for Standardization (ISO) (CLIPPERTON ISLAND)
  • 249/249 Numeric Code (M49_CODE) from International Organization for Standardization (ISO)
  • 161/264 Geometries (SOURCE) from World Health Organization (WHO) - Countries
  • 051/264 Geometries (SOURCE) from Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques
  • 043/264 Geometries (SOURCE) from WHO - Countries and Fondation Jean-Jacques Laffont - TSE
  • 002/264 Geometries (SOURCE) from Global Administrative Areas (GADM)
  • 003/264 Geometries (SOURCE) from Fondation Jean-Jacques Laffont - TSE and Global Administrative Areas (GADM)
  • 004/264 Geometries (SOURCE) from WHO - Countries and Fondation - TSE and Global Administrative Areas (GADM)
  • New Column(s): Claimed

5.3.4 Codes for Global Admin. Areas

We check that all countries/territories in CODEs_Global_Admin_2015 are in GeoDATA.

#Replace Values in NAME
CODEs_Global_Admin_2015 <- CODEs_Global_Admin_2015 %>%
  filter(NAME != "China/India") %>%
  mutate_if(
    is.character, ~case_when(
      . == "Azores Islands" ~ "Azores",
      . == "Cape Verde" ~ "Cabo Verde",
      . == "Czech Republic" ~ "Czechia",
      . == "Dem People's Rep of Korea" ~ "Dem. People's Republic of Korea",
      . == "French Southern and Antarctic Territories" ~ "French Southern Territories",
      . == "Glorioso Island" ~ "Glorioso Islands",
      . == "Hala'ib triangle" ~ "Hala'ib Triangle",
      . == "Hong Kong" ~ "Hong Kong SAR",
      . == "Ilemi triangle" ~ "Ilemi Triangle",
      . == "Iran  (Islamic Republic of)" ~ "Iran",
      . == "Kuril islands" ~ "Kuril Islands",
      . == "Macau" ~ "Macao SAR",
      . == "Madeira Islands" ~ "Madeira",
      . == "Micronesia (Federated States of)" ~ "Micronesia",
      . == "Midway Island" ~ "Midway Atoll",
      . == "Moldova, Republic of" ~ "Republic of Moldova",
      . == "Saint Helena" ~ "Saint Helena, Ascension and Tristan da Cunha",
      . == "Saint Pierre et Miquelon" ~ "Saint Pierre and Miquelon",
      . == "Svalbard and Jan Mayen Islands" ~ "Svalbard and Jan Mayen",
      . == "Swaziland" ~ "Eswatini",
      . == "Taiwan" ~ "Taiwan (Province of China)",
      . == "The former Yugoslav Republic of Macedonia" ~ "North Macedonia",
      . == "Turkey" ~ "Türkiye",
      . == "Turks and Caicos islands" ~ "Turks and Caicos Islands",
      . == "U.K. of Great Britain and Northern Ireland" ~ "United Kingdom of Great Britain and Northern Ireland", 
      . == "Wallis and Futuna" ~ "Wallis and Futuna Islands", TRUE ~ .))

#Combine CODEs_Global_Admin_2015 | GeoDATA
DATA <- left_join(CODEs_Global_Admin_2015, GeoDATA %>% st_drop_geometry(), by = c("NAME" = "VISUALIZATION_NAME"))
# datatable(DATA[is.na(DATA$CONTINENT), ][ , c(4, 11)],
#           options = list(scrollX = TRUE, autoWidth = TRUE,
#                          columnDefs = list(list(targets = "_all", render = JS(
#                            "function(data, type, row, meta) {",
#                            "  if (type === 'display' && data === null) {",
#                            "    return 'NA';", "  }", "  return data;", "}")))),
#           style = "bootstrap", rownames = FALSE,
#           caption = "Countries in CODEs_Global_Admin_2015 (!in GeoDATA)") %>%
#   formatStyle(columns = 1, textAlign = "left", `text-transform` = "uppercase") %>%
#   formatStyle(columns = 2, textAlign = "center")

No New Countries/Territories.

#DATA MANIPULATIONs on CODEs_Global_Admin_2015
DATA <- CODEs_Global_Admin_2015 %>%
  select(2, 4) %>% #Remove superfluous columns 
  rename_with(.fn = ~ paste0("FAO_", ., recycle0 = TRUE), .cols = 2) #Rename duplicate columns
  
#GeoDATA To DATA_from_Fondation
DATA_from_Fondation <- GeoDATA %>% st_drop_geometry()

#Combine DATA_from_Fondation | DATA
DATA_from_Fondation <- left_join(
  DATA_from_Fondation, DATA, by = c("VISUALIZATION_NAME" = "FAO_NAME")) %>% 
  select(1:6, 17, 7:16) #Columns ORDER

#Combine GeoDATA | CODEs_Global_Admin_2015
GeoDATA <- left_join(
  GeoDATA, DATA, by = c("VISUALIZATION_NAME" = "FAO_NAME")) %>% 
  select(1:6, 18, 7:17) #Columns ORDER

#Table => Countries in GeoDATA (!in CODEs_Global_Admin_2015)
DATA <- GeoDATA %>% st_drop_geometry()
# datatable(DATA[is.na(DATA$CLAIMED_AREA), ][ , c(1, 7)],
#           options = list(scrollX = TRUE, autoWidth = TRUE,
#                          columnDefs = list(list(targets = "_all", render = JS(
#                            "function(data, type, row, meta) {",
#                            "  if (type === 'display' && data === null) {",
#                            "    return 'NA';", "  }", "  return data;", "}")))),
#           style = "bootstrap", rownames = FALSE, caption = "Countries in GeoDATA (!in CODEs_Global_Admin_2015)") %>%
#   formatStyle(columns = 1, textAlign = "left") %>% formatStyle(columns = 2, textAlign = "center")
GeoDATA <- GeoDATA %>% select(-7)

No New Countries/Territories.

5.3.5 FAO M49 Codes

We check that all countries/territories in FAO_M49_CODE are in GeoDATA.

#Replace Values in NAME
FAO_M49_CODE <- FAO_M49_CODE %>%
  mutate_if(
    is.character, ~case_when(
      . == "Abyei" ~ "Abyei Area",
      . == "Bi'r Tawīl" ~ "Bir Tawil",
      . == "Bolivia (Plurinational State of)" ~ "Bolivia",
      . == "China, Hong Kong SAR" ~ "Hong Kong SAR",
      . == "China, Macao SAR" ~ "Macao SAR",
      . == "China, mainland" ~ "Mainland China",
      . == "China, Taiwan Province of" ~ "Taiwan (Province of China)",
      . == "Dekelia" ~ "Dhekelia",
      . == "Democratic People's Republic of Korea" ~ "Dem. People's Republic of Korea",
      . == "European union" ~ "European Union",
      . == "French Southern and Antarctic Territories" ~ "French Southern Territories",
      . == "Heard and McDonald Islands" ~ "Heard Island and McDonald Islands",
      . == "Iran (Islamic Republic of)" ~ "Iran",
      . == "Micronesia (Federated States of)" ~ "Micronesia",
      . == "Palestine" ~ "State of Palestine",
      . == "Pitcairn Islands" ~ "Pitcairn",
      . == "Saint-Martin (French Part)" ~ "Saint Martin",
      . == "Sint Maarten (Dutch Part)" ~ "Sint Maarten",
      . == "South-eastern Asia" ~ "South-Eastern Asia",
      . == "Svalbard and Jan Mayen Islands" ~ "Svalbard and Jan Mayen",
      . == "US Minor Is." ~ "United States Minor Outlying Islands",
      . == "United Kingdom" ~ "United Kingdom of Great Britain and Northern Ireland",
      . == "Venezuela (Bolivarian Republic of)" ~ "Venezuela", TRUE ~ .))

#Combine FAO_M49_CODE | GeoDATA
DATA <- left_join(FAO_M49_CODE, GeoDATA %>% st_drop_geometry(), by = c("NAME" = "VISUALIZATION_NAME"))
# datatable(DATA[is.na(DATA$CONTINENT), ][ , c(2, 9)],
#           options = list(scrollX = TRUE, autoWidth = TRUE,
#                          columnDefs = list(list(targets = "_all", render = JS(
#                            "function(data, type, row, meta) {",
#                            "  if (type === 'display' && data === null) {",
#                            "    return 'NA';", "  }", "  return data;", "}")))),
#           style = "bootstrap", rownames = FALSE,
#           caption = "Countries in FAO_M49_CODE (!in GeoDATA)") %>%
#   formatStyle(columns = 1, textAlign = "left", `text-transform` = "uppercase") %>%
#   formatStyle(columns = 2, textAlign = "center")

No New Countries/Territories.

#DATA MANIPULATIONs on FAO_M49_CODE
DATA <- FAO_M49_CODE %>%
  rename_with(.fn = ~ paste0("FAO_", ., recycle0 = TRUE), .cols = 1:2) %>% #Rename duplicate columns
  distinct(FAO_NAME, .keep_all = TRUE) %>% #Remove duplicate rows
  #DATA MANIPULATIONs
  mutate(
    #FAO_M49_CODE From NUMERIC TO CHARACTER
    FAO_M49_CODE = case_when(
      FAO_M49_CODE < 0 ~ NA,
      nchar(FAO_M49_CODE) == 1 ~ paste0("00", FAO_M49_CODE), 
      nchar(FAO_M49_CODE) == 2 ~ paste0("0", FAO_M49_CODE), TRUE ~ as.character(FAO_M49_CODE)))

#GeoDATA To DATA_from_Fondation
DATA_from_Fondation <- GeoDATA %>% st_drop_geometry()

#Combine DATA_from_Fondation | DATA
DATA_from_Fondation <- left_join(
  DATA_from_Fondation, DATA, by = c("VISUALIZATION_NAME" = "FAO_NAME")) %>% 
  select(1:5, 17, 6:16) #Columns ORDER

#Combine GeoDATA | FAO_M49_CODE
GeoDATA <- left_join(
  GeoDATA, DATA, by = c("VISUALIZATION_NAME" = "FAO_NAME")) %>% 
  select(1:5, 18, 6:17) #Columns ORDER

#Table => Countries in GeoDATA (!in FAO_M49_CODE)
DATA <- GeoDATA %>% st_drop_geometry()
# datatable(DATA[is.na(DATA$FAO_M49_CODE), ][ , c(1, 6)],
#           options = list(scrollX = TRUE, autoWidth = TRUE,
#                          columnDefs = list(list(targets = "_all", render = JS(
#                            "function(data, type, row, meta) {",
#                            "  if (type === 'display' && data === null) {",
#                            "    return 'NA';", "  }", "  return data;", "}")))),
#           style = "bootstrap", rownames = FALSE, caption = "Countries in GeoDATA (!in FAO_M49_CODE)") %>%
#   formatStyle(columns = 1, textAlign = "left") %>% formatStyle(columns = 2, textAlign = "center")
GeoDATA <- GeoDATA %>% select(-6)

No New Countries/Territories.

5.4 From Global Administrative Areas

We check that all countries/territories in GeoDATA_from_GADM_level_0_low_resolution are in GeoDATA.

#New Variable => SOURCE
GeoDATA_from_GADM_level_0_low_resolution <- GeoDATA_from_GADM_level_0_low_resolution %>% 
  mutate(SOURCE = "Global Administrative Areas (GADM)") %>% select(1:7, 9, 8) %>%
  mutate_if(
    is.character, ~case_when(
      . == "Akrotiri and Dhekelia" ~ "Akrotiri and Dhekelia (SBA)",
      . == "Åland" ~ "Åland Islands",
      . == "Brunei" ~ "Brunei Darussalam",
      . == "Cocos Islands" ~ "Cocos (Keeling) Islands",
      . == "Falkland Islands" ~ "Falkland Islands (Malvinas)",
      . == "Heard Island and McDonald Island" ~ "Heard Island and McDonald Islands",
      . == "Laos" ~ "Lao People's Democratic Republic",
      . == "Lapthal" ~ "Barahoti-Lapthal",
      . == "México" ~ "Mexico",
      . == "Moldova" ~ "Republic of Moldova",
      . == "North Korea" ~ "Dem. People's Republic of Korea",
      . == "Pa-li-chia-ssu" ~ "Demchok",
      . == "Palestine" ~ "State of Palestine",
      . == "Pitcairn Islands" ~ "Pitcairn",
      . == "Republic of the Congo" ~ "Congo",
      . == "Russia" ~ "Russian Federation",
      . == "Saint-Barthélemy" ~ "Saint Barthélemy",
      . == "Saint-Martin" ~ "Saint Martin",
      . == "Sang" ~ "Jadh Ganga Valley",
      . == "São Tomé and Príncipe" ~ "Sao Tome and Principe",
      . == "Shaksgam Valley" ~ "Trans-Karakoram Tract",
      . == "South Korea" ~ "Republic of Korea",
      . == "Swaziland" ~ "Eswatini",
      . == "Syria" ~ "Syrian Arab Republic",
      . == "Taiwan" ~ "Taiwan (Province of China)",
      . == "Tanzania" ~ "United Republic of Tanzania",
      . == "Turkey" ~ "Türkiye",
      . == "United Kingdom" ~ "United Kingdom of Great Britain and Northern Ireland",
      . == "United States" ~ "United States of America",
      . == "Vatican City" ~ "Holy See",
      . == "Vietnam" ~ "Viet Nam",
      . == "Virgin Islands, U.S." ~ "United States Virgin Islands",
      . == "Wallis and Futuna" ~ "Wallis and Futuna Islands", TRUE ~ .))

#Combine GeoDATA_from_GADM_level_0_low_resolution | GeoDATA
DATA <- left_join(
  GeoDATA_from_GADM_level_0_low_resolution, GeoDATA %>% st_drop_geometry(), by = c("NAME" = "VISUALIZATION_NAME"))
DATA <- DATA %>% st_drop_geometry()
DATA <- DATA %>% rename(CONTINENT = 15, SOURCE = 23)
datatable(DATA[is.na(DATA$CONTINENT), ][ , c(2, 14:15, 23)], 
          options = list(scrollX = TRUE, autoWidth = TRUE, 
                         columnDefs = list(list(targets = "_all", render = JS(
                           "function(data, type, row, meta) {",
                           "  if (type === 'display' && data === null) {",
                           "    return 'NA';", "  }", "  return data;", "}")))), 
          style = "bootstrap", rownames = FALSE, 
          caption = "Countries in GeoDATA_from_GADM_level_0_low_resolution (!in GeoDATA)") %>% 
  formatStyle(columns = 1, textAlign = "left", `text-transform` = "uppercase") %>% 
  formatStyle(columns = 2:4, textAlign = "center")

TRANS-KARAKORAM TRACT (also known as SHAKSGAM VALLEY) is included in CHINA in GeoDATA.

TRANS-KARAKORAM TRACT is an area claimed by CHINA and by INDIA.

TRANS-KARAKORAM TRACT has been controlled by CHINA since 1963 (Ceded by PAKISTAN).

DEMCHOK is included in INDIA in GeoDATA.

DEMCHOK is an area claimed by CHINA and by INDIA.

##### TRANS-KARAKORAM TRACT #####
LATITUDE_VALUEs <- c(
  36.60283, 36.60007, 36.59797, 36.59256, 36.58126, 36.57299, 36.5683, 36.56462, 36.55594, 36.53725, 
  36.53601, 36.5309, 36.52256, 36.47018, 36.41756, 36.40913, 36.38088, 36.35606, 36.35302, 36.35015, 
  36.34161, 36.32986, 36.32419, 36.30746, 36.30033, 36.2694, 36.2458, 36.23867, 36.22739, 36.22372, 
  36.22413, 36.22898, 36.23438, 36.23632, 36.23611, 36.2339, 36.17268, 36.1627, 36.16367, 36.15868, 
  36.14926, 36.13553, 36.12694, 36.11917, 36.11141, 36.10762, 36.10495, 36.10045, 36.09324, 36.08783, 
  36.08228, 36.07839, 36.07604, 36.07354, 36.07049, 36.0666, 36.0653, 36.06458, 36.06159, 36.04592, 
  36.01677, 36.02427, 36.02246, 36.01607, 36.01149, 36.00906, 35.99733, 35.96802, 35.95663, 35.91674, 
  35.89115, 35.86445, 35.84984, 35.83745, 35.82262, 35.82102, 35.82422, 35.82398, 35.8293, 35.8413, 
  35.84231, 35.84288, 35.83237, 35.83696, 35.83696, 35.83021, 35.82833, 35.83132, 35.85449, 35.8636, 
  35.85261, 35.86764, 35.8764, 35.88871, 35.89083, 35.89131, 35.89058, 35.88801, 35.88961, 35.88829, 
  35.88628, 35.88169, 35.89733, 35.9006, 35.90279, 35.90741, 35.92486, 35.9284, 35.92719, 35.92215, 
  35.92517, 35.91964, 35.91624, 35.91064, 35.90021, 35.87647, 35.87091, 35.86806, 35.86333, 35.84332, 
  35.82255, 35.81966, 35.81347, 35.80708, 35.80438, 35.79873, 35.78253, 35.77863, 35.77549, 35.77145, 
  35.76143, 35.76818, 35.77034, 35.76985, 35.76547, 35.76201, 35.76031, 35.75794, 35.75613, 35.75505, 
  35.75557, 35.75491, 35.75167, 35.74868, 35.74544, 35.74025, 35.73363, 35.72969, 35.72471, 35.72492, 
  35.70987, 35.70025, 35.70011, 35.69816, 35.69342, 35.68826, 35.68686, 35.68509, 35.68157, 35.67473, 
  35.668, 35.66232, 35.65964, 35.66014, 35.65805,
  35.662, 35.66124, 35.66427, 35.66457, 35.66999, 35.66626, 35.66891, 35.66858, 35.67454, 35.66863,
  35.65219, 35.64049, 35.62402, 35.61907, 35.61126, 35.61049, 35.59472, 35.60142, 35.59904, 35.61014,
  35.6086, 35.61077, 35.60079, 35.6003, 35.57091, 35.5654, 35.56463, 35.55632, 35.55688, 35.55157,
  35.54103, 35.53865, 35.53816, 35.53886, 35.53614, 35.53216, 35.52831, 35.52185, 35.52294, 35.52975,
  35.5309, 35.54008, 35.53631, 35.53799, 35.54448, 35.54155, 35.54131, 35.54553, 35.54249, 35.53705,
  35.53858, 35.53415, 35.53146, 35.52444,
  35.52372, 35.53617, 35.54066, 35.5529, 35.55887, 35.55165, 35.54223, 35.54307, 35.53595, 35.52905, 
  35.52541, 35.52681, 35.52346, 35.51535, 35.51452, 35.51969, 35.52625, 35.51773, 35.53408, 35.54274, 
  35.54986, 35.55894, 35.56634, 35.56634, 35.5722, 35.57569, 35.57793, 35.58351, 35.59007, 35.59761, 
  35.60014, 35.60275, 35.603, 35.61108, 35.61145, 35.61717, 35.6209, 35.62314, 35.61916, 35.62762, 
  35.63159, 35.64974, 35.66455, 35.67124, 35.68017, 35.68686, 35.69481, 35.70958, 35.70331, 35.70791, 
  35.70791, 35.72059, 35.72254, 35.7001, 35.71655, 35.72408, 35.72422, 35.70679, 35.71293, 35.73801, 
  35.73857, 35.7355, 35.74846, 35.76838, 35.78147, 35.79247, 35.7947, 35.78788, 35.77047, 35.80918, 
  35.80835, 35.82672, 35.83062, 35.83813, 35.83618, 35.84579, 35.8558, 35.875, 35.8982, 35.97095, 
  35.9878, 35.99647, 35.9939, 35.99855, 35.99743, 36.00554, 36.0129, 36.02609, 36.04108, 36.06342, 
  36.0687, 36.08812, 36.09089, 36.10573, 36.10421, 36.12446, 36.1325, 36.13998, 36.15343, 36.15509, 
  36.16119, 36.16493, 36.18045, 36.18835, 36.1968, 36.1993, 36.17519, 36.18267, 36.19071, 36.20481, 
  36.22775, 36.23627, 36.24859, 36.2544, 36.27925, 36.28557, 36.29551, 36.31634, 36.32373, 36.34899, 
  36.36238, 36.36788, 36.357, 36.34814, 36.35418, 36.35002, 36.37581, 36.37675, 36.3891, 36.39232, 
  36.40386, 36.40621, 36.41767, 36.42406, 36.44081, 36.45086, 36.46666, 36.47681, 36.48957, 36.49993, 
  36.52177, 36.52512, 36.53803, 36.53787, 36.56543, 36.5691, 36.58247, 36.59724)
LONGITUDE_VALUEs <- c(
  75.94503, 75.94237, 75.93945, 75.94032, 75.93466, 75.92538, 75.92384, 75.92578, 75.9396, 75.95265, 
  75.95762, 75.96355, 75.9644, 76.00919, 76.02828, 76.03532, 76.00314, 75.99438, 75.98671, 75.98452, 
  75.98516, 75.99344, 75.99532, 75.99507, 76.01721, 76.02682, 76.05755, 76.05781, 76.06176, 76.05618, 
  76.04759, 76.03446, 76.03282, 76.02784, 76.01273, 76.00647, 76.01332, 75.98963, 75.96954, 75.96387, 
  75.96782, 75.93264, 75.93195, 75.9462, 75.94895, 75.9398, 75.93736, 75.94259, 75.94534, 75.94379, 
  75.95324, 75.95444, 75.94379, 75.94173, 75.94208, 75.95221, 75.95345, 75.95182, 75.94924, 75.957, 
  76.00473, 76.0473, 76.08629, 76.10106, 76.10355, 76.09805, 76.09794, 76.11391, 76.13398, 76.15923, 
  76.14859, 76.15288, 76.14086, 76.14481, 76.16484, 76.17085, 76.1778, 76.20159, 76.21961, 76.22163, 
  76.22459, 76.29897, 76.30852, 76.31625, 76.3219, 76.34053, 76.35934, 76.35667, 76.35144, 76.36645, 
  76.42714, 76.44559, 76.44908, 76.46379, 76.46856, 76.47277, 76.47728, 76.48127, 76.49322, 76.50387, 
  76.50928, 76.51246, 76.53134, 76.5371, 76.54573, 76.54281, 76.54388, 76.54787, 76.55589, 76.56156, 
  76.56663, 76.58306, 76.58533, 76.584, 76.59885, 76.58052, 76.57236, 76.57322, 76.58292, 76.58757, 
  76.56109, 76.5659, 76.56521, 76.57013, 76.57837, 76.57785, 76.59116, 76.58489, 76.58653, 76.60241, 
  76.61545, 76.62575, 76.63347, 76.64223, 76.64867, 76.64727, 76.64819, 76.65188, 76.6577, 76.66434, 
  76.67155, 76.67859, 76.68696, 76.6913, 76.69409, 76.69692, 76.69344, 76.69546, 76.69623, 76.7031, 
  76.72695, 76.73115, 76.73476, 76.73931, 76.7436, 76.74523, 76.75034, 76.75369, 76.75687, 76.75451, 
  76.75532, 76.75992, 76.76683, 76.77209, 76.776,
  76.78273, 76.78903, 76.79281, 76.80459, 76.81508, 76.82193, 76.83426, 76.8381, 76.84443, 76.85334,
  76.85976, 76.87977, 76.89951, 76.8996, 76.91847, 76.93194, 76.96714, 76.97246, 76.98319, 76.99496,
  77.00114, 77.01083, 77.02663, 77.06198, 77.08757, 77.09563, 77.11193, 77.12146, 77.12627, 77.13648,
  77.14533, 77.15202, 77.1558, 77.16206, 77.16962, 77.1758, 77.17906, 77.19399, 77.2121, 77.2257,
  77.24935, 77.2647, 77.27278, 77.2829, 77.29346, 77.29496, 77.30067, 77.30264, 77.31072, 77.31329,
  77.319, 77.32782, 77.32807, 77.33824,
  77.34929, 77.36156, 77.35517, 77.35131, 77.36276, 77.38218, 77.39092, 77.39825, 77.40507, 77.4007, 
  77.40546, 77.4155, 77.42426, 77.42949, 77.43413, 77.43602, 77.44872, 77.46794, 77.47807, 77.47309, 
  77.48202, 77.47601, 77.47927, 77.47155, 77.46056, 77.4597, 77.45661, 77.46194, 77.45953, 77.46091, 
  77.45274, 77.45305, 77.43959, 77.43363, 77.42751, 77.42323, 77.42598, 77.43607, 77.4506, 77.45534, 
  77.44846, 77.44357, 77.41232, 77.41387, 77.40846, 77.41687, 77.40606, 77.40262, 77.38649, 77.37859, 
  77.36846, 77.36228, 77.3446, 77.32057, 77.29379, 77.29199, 77.28358, 77.28426, 77.25233, 77.22332, 
  77.20993, 77.20255, 77.17371, 77.17028, 77.11912, 77.10299, 77.07878, 77.06076, 77.04857, 76.91982, 
  76.90558, 76.88721, 76.8733, 76.86163, 76.84996, 76.83657, 76.80704, 76.80876, 76.79647, 76.73321, 
  76.76613, 76.77129, 76.78993, 76.79251, 76.80024, 76.80755, 76.80154, 76.80291, 76.78472, 76.7866, 
  76.79055, 76.78094, 76.76789, 76.75502, 76.74489, 76.70833, 76.71021, 76.69683, 76.69545, 76.68824, 
  76.68567, 76.66678, 76.66249, 76.65116, 76.65168, 76.64704, 76.60258, 76.59348, 76.56585, 76.57304, 
  76.48258, 76.48271, 76.47172, 76.45267, 76.45232, 76.44431, 76.44365, 76.43064, 76.39428, 76.3656, 
  76.29606, 76.29155, 76.26337, 76.2602, 76.24336, 76.23218, 76.21317, 76.19933, 76.19916, 76.18749, 
  76.18348, 76.17249, 76.16989, 76.1568, 76.14907, 76.11436, 76.1098, 76.08911, 76.08468, 76.06802, 
  76.05077, 76.02518, 76.01507, 76.00238, 75.97739, 75.96747, 75.9637, 75.95324)
Claimed_Area_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Claimed_Area_1 <- Claimed_Area_1 %>% 
  mutate(NAME = "TRANS-KARAKORAM TRACT", VISUALIZATION_NAME = "Trans-Karakoram Tract", 
         ISO2 = NA, ISO3 = NA, M49_CODE = NA, SOVRN = "China", Claimed = "India",
         CONTINENT = "ASIA",  CONTINENT_CODE = "142", SREGION = "Eastern Asia", SREGION_CODE = "030", 
         IREGION = NA, IREGION_CODE = NA, SIREGION = SREGION, SIREGION_CODE = "030",
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

##### DEMCHOK #####
LATITUDE_VALUEs <- c(
  32.54234, 32.53978, 32.551, 32.55533, 32.56238, 32.59656, 32.60376, 32.60621, 32.61693, 32.63497, 
  32.64217, 32.65166, 32.67126, 32.67693, 32.6832, 32.70326, 32.7143, 32.72988, 32.74848, 32.75951, 
  32.76449, 32.77288, 32.7793, 32.80073, 32.81236, 32.82154, 32.8299, 32.83256, 32.83868, 32.84316, 
  32.87905, 32.88252, 32.87946, 32.88843, 32.89169, 32.9188, 32.94162, 32.94631, 32.93799, 32.9547, 
  32.96248, 32.99733, 33.01489, 33.02698, 33.03446, 33.0595, 33.0618, 33.07038, 33.08514, 33.10546, 
  33.13858, 33.13929, 33.14993, 33.15428, 33.16999, 33.17023, 33.17748, 33.18932, 33.20164, 33.19729, 
  33.20406, 33.19029, 33.19077, 33.20237, 33.2085, 33.22089, 33.2154, 33.23368, 33.23754, 33.21398, 
  33.20951, 33.22129, 33.18213,
  33.17147, 33.16026, 33.13468, 33.10535, 33.01507, 33.0135, 33.01363, 33.01302, 33.01048, 33.0074, 
  33.00352, 32.99873, 32.99679, 32.99481, 32.99153, 32.98678, 32.98415, 32.98289, 32.98736, 32.98707, 
  32.98286, 32.98066, 32.97915, 32.97256, 32.96954, 32.96716, 32.96594, 32.96161, 32.96129, 32.96226, 
  32.96532, 
  32.94595, 32.91128, 32.90255, 32.8911, 32.88022, 32.85716, 32.84764, 32.8299, 32.82355, 32.80794, 
  32.80361, 32.7873, 32.78355, 32.79077, 32.78899, 32.77697, 32.73234, 32.72925, 32.72186, 32.70829, 
  32.69799, 32.68407, 32.63749, 32.6289, 32.60276, 32.5964, 32.58986, 32.56114,
  32.55602, 32.55134, 32.55005, 32.54725, 32.54623, 32.54245, 32.53941, 32.54292, 32.54546, 32.54629, 
  32.54828, 32.55011, 32.55112, 32.55665, 32.56009, 32.55846, 32.55976, 32.56367, 32.56537, 32.55879, 
  32.55427, 32.55256, 32.54978, 32.54269, 32.539, 32.52655, 32.53205, 32.53249, 32.52433, 32.52594, 
  32.52585, 32.52326, 32.52002, 32.51897, 32.52011, 32.52348, 32.52695, 32.53348, 32.53813)
LONGITUDE_VALUEs <- c(
  79.41418, 79.42889, 79.4357, 79.42802, 79.42802, 79.45311, 79.45239, 79.46239, 79.4693, 79.49727, 
  79.50018, 79.52473, 79.53892, 79.54837, 79.53892, 79.5406, 79.56194, 79.54317, 79.54677, 79.55783, 
  79.54111, 79.54434, 79.51836, 79.48073, 79.48049, 79.46884, 79.46787, 79.46058, 79.46204, 79.47175, 
  79.47175, 79.46156, 79.45573, 79.45209, 79.43097, 79.38945, 79.40038, 79.37926, 79.36526, 79.35187, 
  79.36388, 79.33401, 79.34157, 79.33951, 79.32818, 79.33985, 79.35873, 79.35816, 79.36826, 79.3648, 
  79.38934, 79.39898, 79.40014, 79.39263, 79.39696, 79.41024, 79.41284, 79.40822, 79.38743, 79.36694, 
  79.33662, 79.32161, 79.30198, 79.29534, 79.27698, 79.27261, 79.25586, 79.23765, 79.21605, 79.21095, 
  79.20124, 79.18521, 79.15173,
  79.16519, 79.1518, 79.15864, 79.14285, 79.16045, 79.16128, 79.16221, 79.16427, 79.16809, 79.16925, 
  79.16822, 79.16938, 79.17178, 79.17573, 79.17642, 79.17466, 79.17646, 79.17951, 79.18698, 79.18916, 
  79.19337, 79.20032, 79.20238, 79.20277, 79.20157, 79.20255, 79.21032, 79.21478, 79.21706, 79.22006, 
  79.22337, 
  79.2519, 79.23021, 79.2317, 79.22515, 79.23428, 79.22742, 79.23566, 79.22484, 79.23222, 79.22349, 
  79.22572, 79.22314, 79.23327, 79.2434, 79.25682, 79.27479, 79.28949, 79.29643, 79.29541, 79.27928, 
  79.28581, 79.26826, 79.29561, 79.29023, 79.30595, 79.28799, 79.29166, 79.26594,
  79.27606, 79.28252, 79.28342, 79.28239, 79.28295, 79.29048, 79.29247, 79.29842, 79.29913, 79.29994, 
  79.30338, 79.30421, 79.30808, 79.30778, 79.31112, 79.31829, 79.3237, 79.32627, 79.33121, 79.33348, 
  79.33992, 79.33975, 79.33443, 79.33375, 79.33666, 79.35589, 79.36139, 79.36706, 79.39384, 79.3974, 
  79.39953, 79.40311, 79.40465, 79.40903, 79.41339, 79.41322, 79.41794, 79.41781, 79.41358)
Claimed_Area_2 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Claimed_Area_2 <- Claimed_Area_2 %>% 
  mutate(NAME = "DEMCHOK", VISUALIZATION_NAME = "Demchok", 
         ISO2 = NA, ISO3 = NA, M49_CODE = NA, SOVRN = NA, Claimed = "China | India",
         CONTINENT = "ASIA",  CONTINENT_CODE = "142", SREGION = NA, SREGION_CODE = NA, 
         IREGION = NA, IREGION_CODE = NA, SIREGION = NA, SIREGION_CODE = NA,
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) and TERRITORIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "CHINA")
Geo_2 <- GeoDATA %>% filter(NAME == "GILGIT-BALTISTAN")
Geo_3 <- GeoDATA %>% filter(NAME == "SIACHEN GLACIER")
Geo_4 <- GeoDATA %>% filter(NAME == "LADAKH")

##### CHINA #####
Geo_0 <- Geometric_Operations(Geo_1, Claimed_Area_1)
Geo_0 <- Geometric_Operations(Geo_0, Claimed_Area_2)
Geo_1 <- st_set_geometry(Geo_1, Geo_0)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### LADAKH #####
Geo_0 <- Geometric_Operations(Geo_4, Claimed_Area_2)
Geo_4 <- st_set_geometry(Geo_4, Geo_0)
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("CHINA", "LADAKH"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_4)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, Claimed_Area_1, Claimed_Area_2)

KAURIK is included in INDIA in GeoDATA.

KAURIK is an Indian Village (claimed by CHINA).

BARAHOTI-LAPTHAL is included in INDIA in GeoDATA.

BARAHOTI-LAPTHAL is an Indian Territory (claimed by CHINA).

JADH GANGA VALLEY is included in INDIA in GeoDATA.

JADH GANGA VALLEY is an Indian Territory (claimed by CHINA):

  • Village(s): NAGA | NELANG | PULAM SUMDA | SANG (also known as JADHANG) | TIRPANI

KOSOVO (also known as AUTONOMOUS PROVINCE OF KOSOVO AND METOHIJA) is included in SERBIA in GeoDATA.

KOSOVO (also known as KOSMET | KIM) is an Autonomous Province of SERBIA.

KOSOVO declared independence from SERBIA in 2008. KOSOVO has no official codes (ISO 3166-1).

KOSOVO is not a United Nations Member State (Recognized by 104/193 United Nations Member States).

##### KOSOVO #####
LATITUDE_VALUEs <- c(
  42.83329, 42.83267, 42.83318, 42.8362, 42.83582, 42.83356, 42.83368, 42.82638, 42.83028, 42.83595,
  42.83607, 42.82512, 42.82613, 42.83091, 42.82575, 42.8216, 42.81454, 42.81543, 42.81102, 42.8046,
  42.80422, 42.79779, 42.77814, 42.76705, 42.75911, 42.75697, 42.75243, 42.75306, 42.74651, 42.75142,
  42.7455, 42.75357, 42.75609, 42.75848, 42.76831, 42.7634, 42.75445, 42.77008, 42.77361, 42.77739,
  42.77461, 42.77512, 42.77978, 42.77701, 42.77335, 42.77461, 42.76907, 42.76541, 42.76516, 42.75735,
  42.75231, 42.74916, 42.74487, 42.74285, 42.73516, 42.72873, 42.72217, 42.72091, 42.71284, 42.71372,
  42.70956, 42.71095, 42.70615, 42.69732, 42.69581, 42.68471, 42.68483, 42.68042, 42.68016, 42.66868,
  42.66653, 42.65555, 42.64798, 42.64229, 42.62878, 42.62284, 42.61299, 42.60781, 42.57584, 42.57065,
  42.56813, 42.55966, 42.55624, 42.55586,
  42.55548, 42.55232, 42.55169, 42.54802, 42.54473, 42.54208, 42.53348, 42.52513, 42.52171, 42.5145, 
  42.50691, 42.50653, 42.49349, 42.4859, 42.48083, 42.47248, 42.47058, 42.46159, 42.45576, 42.45133, 
  42.43511, 42.42599, 42.42295, 42.41408, 42.40964, 42.39963, 42.37985, 42.37262, 42.3692, 42.35296, 
  42.34814, 42.33393, 42.32759, 42.32238, 42.32314, 42.31819, 42.32365, 42.31439, 42.3206, 42.32187, 
  42.32771, 42.32797, 42.32568, 42.32517, 42.32022, 42.31718, 42.30931, 42.30347, 42.29826, 42.29877, 
  42.28417, 42.28201, 42.27794, 42.27744, 42.27464, 42.2721, 42.2627, 42.25902, 42.25304, 42.24669, 
  42.24415, 42.2411, 42.2275, 42.22496, 42.22432, 42.20996, 42.18605, 42.17345, 42.17206, 42.1662, 
  42.16468, 42.16035, 42.15386, 42.14635, 42.14011, 42.12153, 42.10841, 42.0986, 42.08268, 42.07848, 
  42.07491, 42.06153, 42.05847, 42.05847, 42.04241, 42.01946, 42.01805, 41.9817, 41.978, 41.95847, 
  41.95668, 41.93906, 41.936, 41.92974, 41.92757, 41.91671, 41.91761, 41.88912, 41.88439,
  41.87736, 41.867, 41.85742, 41.86368, 41.87493, 41.87493, 41.86764, 41.85716, 41.86483, 41.86419, 
  41.878, 41.88656, 41.89346, 41.89551, 41.90547, 41.91888, 41.92323, 41.92719, 41.92936, 41.94723, 
  41.95477, 41.96243, 41.98004, 41.98259, 42.01525, 42.02685, 42.04126, 42.04496, 42.0484, 42.0535, 
  42.07172, 42.07835, 42.08408, 42.08243, 42.08574, 42.09899, 42.09669, 42.11325, 42.11567, 42.1284, 
  42.12675, 42.13808, 42.1363, 42.13973, 42.1391, 42.14355, 42.14559, 42.1503, 42.15195, 42.15653, 
  42.16569, 42.16569, 42.17536, 42.18668, 42.18999, 42.20589, 42.20703, 42.20182, 42.19724, 42.1662, 
  42.16506, 42.16188, 42.13235, 42.12331, 42.11287, 42.11109, 42.09453, 42.09848, 42.09529, 42.09224, 
  42.09593, 42.10115, 42.1051, 42.11198, 42.11261, 42.10472, 42.10777, 42.11554, 42.11911, 42.12165, 
  42.1284, 42.13197, 42.1363, 42.14113, 42.14457, 42.1489, 42.16213, 42.16887, 42.17129, 42.1732, 
  42.17702, 42.18363, 42.1919, 42.1994, 42.20741, 42.20334, 42.20538, 42.20462, 42.20741, 42.20958, 
  42.21657, 42.21479, 42.22203, 42.22127, 42.22559, 42.22775, 42.23805, 42.23703, 42.24135, 42.24479, 
  42.24898, 42.2439, 42.24504, 42.23157, 42.23525, 42.24453, 42.24822, 42.26003, 42.26168, 42.27413, 
  42.27934, 42.27617, 42.27985, 42.27324, 42.27464, 42.26969, 42.27172, 42.2702, 42.266, 42.26194, 
  42.25951, 42.25214, 42.24947, 42.24134, 42.2407, 42.25074, 42.25379, 42.25011, 42.25227, 42.25036, 
  42.26015, 42.25913, 42.26269,
  42.26435, 42.26575, 42.27045, 42.27248, 42.28023, 42.2829, 42.29864, 42.30017, 42.30194, 42.30969, 
  42.31527, 42.30931, 42.32086, 42.32619, 42.33101, 42.34243, 42.35943, 42.36653, 42.36717, 42.36971, 
  42.37275, 42.3621, 42.36704, 42.36666, 42.3626, 42.3678, 42.37567, 42.38175, 42.3801, 42.38353, 
  42.37541, 42.37706, 42.3834, 42.39354, 42.399, 42.40254, 42.40926, 42.41408, 42.41775, 42.42092, 
  42.42916, 42.43587, 42.43879, 42.45297, 42.45525, 42.45513, 42.45905, 42.47324, 42.47552, 42.48488, 
  42.48463, 42.49337, 42.504, 42.51627, 42.51336, 42.51804, 42.53145, 42.53575, 42.53955, 42.54119, 
  42.54676, 42.55055, 42.54701, 42.5589, 42.56686, 42.57103, 42.57647, 42.58115, 42.58355, 42.59429, 
  42.59909, 42.60491, 42.60402, 42.60882, 42.60705, 42.61463, 42.61969, 42.62524, 42.63219, 42.63219, 
  42.63838, 42.63333, 42.64305, 42.64722, 42.64671, 42.65189, 42.66363, 42.66729, 42.67764, 42.68357, 
  42.70199, 42.6943, 42.69568, 42.69013, 42.69152, 42.68698, 42.67171, 42.66691, 42.68004, 42.68622, 
  42.69278, 42.69846, 42.6972, 42.70098, 42.69531, 42.69884, 42.70439, 42.70477, 42.72041, 42.72709, 
  42.7281, 42.73718, 42.731, 42.72911, 42.72293, 42.73327, 42.73995, 42.74197, 42.74827, 42.73642, 
  42.74462, 42.75042, 42.74361, 42.7571, 42.76718, 42.76655, 42.77222, 42.7765, 42.78154, 42.78367, 
  42.78833, 42.79035, 42.79312, 42.79325, 42.80723, 42.80584, 42.81176, 42.81818, 42.82095, 42.82762, 
  42.83203, 42.84726, 42.85154, 42.87268, 42.87482, 42.87293, 42.87457, 42.8718, 42.8674, 42.86677, 
  42.87369, 42.87155, 42.87847, 42.8806, 42.88891, 42.89117, 42.89532, 42.90035, 42.89909, 42.90274, 
  42.90186, 42.90613, 42.9011, 42.90287, 42.89482, 42.89645, 42.91041, 42.91267, 42.95126, 42.96043, 
  42.96357, 42.97588, 42.9809, 42.99007, 43.00539, 43.01016, 43.00965, 43.0148, 43.01668, 43.0207, 
  43.02095, 43.02459, 43.02271, 43.01518, 43.0084, 42.99949, 43.01518, 43.01907, 43.02861, 43.02886, 
  43.03361, 43.04152, 43.0454, 43.04904, 43.06058, 43.08215, 43.09143, 43.10547, 43.1096, 43.11399, 
  43.11111, 43.11725, 43.11775, 43.12664, 43.1304, 43.13642, 43.12865, 43.11737, 43.11374, 43.11035, 
  43.10772, 43.11274, 43.11249, 43.11963, 43.12025, 43.1309, 43.1309, 43.13454, 43.13516, 43.13842, 
  43.13554, 43.13604, 43.1309, 43.12664, 43.12414, 43.1289, 43.13491, 43.13429, 43.14582, 43.14872,
  43.15548, 43.15473, 43.168, 43.164, 43.17464, 43.17301, 43.17939, 43.18428, 43.1849, 43.18903, 
  43.2013, 43.2073, 43.2048, 43.20743, 43.20468, 43.20593, 43.2028, 43.20443, 43.21118, 43.22282, 
  43.22332, 43.22607, 43.23657, 43.23757, 43.2517, 43.25158, 43.25696, 43.26171, 43.26158, 43.26571, 
  43.26746, 43.26221, 43.26021, 43.2442, 43.24545, 43.2427, 43.2452, 43.24458, 43.24783, 43.2442, 
  43.2487, 43.2342, 43.23182, 43.22644, 43.22569, 43.21806, 43.21356, 43.20905, 43.21018, 43.20668, 
  43.20918, 43.2043, 43.21056, 43.2053, 43.19191, 43.17977, 43.17627, 43.16888, 43.16925, 43.16375, 
  43.16287, 43.15323, 43.15022, 43.14433, 43.1382, 43.13181, 43.1268, 43.12316, 43.10575, 43.10274, 
  43.09472, 43.08368, 43.07741, 43.07829, 43.0729, 43.06676, 43.06625, 43.05572, 43.0507, 43.04619, 
  43.03565, 43.03439, 43.02272, 43.0236, 43.01858, 43.0162, 43.01017, 43.00653, 43.00954, 43.00189, 
  43.00452, 43.00753, 43.01783, 43.01532, 43.01758, 43.01569, 43.0172, 43.01419, 43.01218, 43.00163, 
  42.99875, 42.98305, 42.98054, 42.97564, 42.97049, 42.9617, 42.96421, 42.96861, 42.97112, 42.97489, 
  42.97464, 42.96986, 42.96522, 42.96383, 42.95303, 42.94537, 42.9338, 42.92878, 42.9186, 42.90489, 
  42.89785, 42.89307, 42.8898, 42.88515, 42.88527, 42.88162, 42.87936, 42.87018, 42.86791, 42.85923, 
  42.85332, 42.83293, 42.83542, 42.84788, 42.84687, 42.84171, 42.83252, 42.8334, 42.83239)
LONGITUDE_VALUEs <- c(
  20.35291, 20.34957, 20.3427, 20.33979, 20.33515, 20.33138, 20.32812, 20.32005, 20.31627, 20.31576,
  20.29791, 20.29328, 20.28555, 20.28092, 20.27508, 20.2756, 20.2605, 20.25741, 20.25192, 20.25826,
  20.26255, 20.26187, 20.26616, 20.25276, 20.25035, 20.23594, 20.23388, 20.22169, 20.21157, 20.19887,
  20.18977, 20.18239, 20.17227, 20.17227, 20.15475, 20.14857, 20.14651, 20.10326, 20.10429, 20.09671,
  20.08333, 20.06822, 20.0605, 20.05157, 20.04694, 20.0435, 20.03338, 20.03303, 20.02411, 20.02171,
  20.02359, 20.01965, 20.02033, 20.01433, 20.01587, 20.01433, 20.02256, 20.03286, 20.02205, 20.01707,
  20.0157, 20.03361, 20.03138, 20.03292, 20.0458, 20.05439, 20.06349, 20.0683, 20.08358, 20.08854,
  20.09472, 20.11155, 20.10864, 20.09525, 20.08821, 20.07601, 20.0755, 20.07224, 20.08975, 20.08374,
  20.08443, 20.07876, 20.07893, 20.07636,
  20.07955, 20.08367, 20.08779, 20.08951, 20.08951, 20.0962, 20.0986, 20.12213, 20.12281, 20.14941, 
  20.16194, 20.16606, 20.16812, 20.18083, 20.17963, 20.18306, 20.18924, 20.19679, 20.19164, 20.19354, 
  20.22049, 20.22255, 20.22632, 20.22564, 20.21311, 20.2083, 20.24057, 20.24074, 20.24606, 20.24469, 
  20.23508, 20.2483, 20.2416, 20.2483, 20.25379, 20.25756, 20.2912, 20.30682, 20.31387, 20.32091, 
  20.32726, 20.33859, 20.34065, 20.34648, 20.3482, 20.35455, 20.35352, 20.38185, 20.39077, 20.39575, 
  20.40364, 20.42408, 20.42528, 20.4421, 20.44433, 20.4572, 20.46699, 20.4754, 20.4766, 20.4893, 
  20.48947, 20.49798, 20.50208, 20.50912, 20.51428, 20.52424, 20.53143, 20.53951, 20.54243, 20.54277, 
  20.54706, 20.54243, 20.54877, 20.55925, 20.55513, 20.56887, 20.56045, 20.56801, 20.55427, 20.55891, 
  20.55736, 20.56971, 20.56954, 20.57589, 20.59513, 20.59701, 20.60147, 20.61349, 20.62345, 20.62619, 
  20.62275, 20.61949, 20.61195, 20.60354, 20.59065, 20.58482, 20.57606, 20.5891, 20.59374,
  20.59419, 20.60501, 20.61994, 20.63728, 20.64843, 20.668, 20.67915, 20.68276, 20.70613, 20.72775, 
  20.73599, 20.73685, 20.74028, 20.7511, 20.7547, 20.77632, 20.77032, 20.77238, 20.76842, 20.75504, 
  20.76636, 20.76688, 20.75384, 20.748, 20.75143, 20.74748, 20.76379, 20.76379, 20.75864, 20.75864, 
  20.78593, 20.78353, 20.7928, 20.811, 20.83434, 20.84292, 20.89031, 20.90867, 20.91519, 20.91948, 
  20.92669, 20.94387, 20.96927, 20.97615, 20.98301, 20.98902, 21.00275, 21.00927, 21.02661, 21.02832, 
  21.04377, 21.04935, 21.05501, 21.06943, 21.08383, 21.10375, 21.11887, 21.12522, 21.16228, 21.181, 
  21.18631, 21.18648, 21.21482, 21.21654, 21.21448, 21.21276, 21.22341, 21.23354, 21.23337, 21.25053, 
  21.27286, 21.27887, 21.29209, 21.29484, 21.29759, 21.30355, 21.32124, 21.31488, 21.31626, 21.31162, 
  21.3099, 21.30528, 21.30579, 21.30167, 21.30923, 21.30957, 21.3209, 21.31627, 21.32072, 21.31849, 
  21.32725, 21.32931, 21.33618, 21.33034, 21.336, 21.33823, 21.34167, 21.34545, 21.34562, 21.34991, 
  21.35266, 21.35541, 21.3585, 21.36709, 21.37207, 21.36984, 21.37774, 21.37978, 21.3851, 21.38218, 
  21.40227, 21.41327, 21.41945, 21.43319, 21.44452, 21.44074, 21.43473, 21.43302, 21.44057, 21.44039, 
  21.44846, 21.45138, 21.47439, 21.48946, 21.49616, 21.50337, 21.50715, 21.51264, 21.51041, 21.51969, 
  21.51746, 21.5202, 21.51883, 21.52175, 21.53257, 21.53789, 21.54906, 21.55455, 21.5597, 21.56846, 
  21.5813, 21.58319, 21.58662,
  21.58759, 21.59051, 21.58879, 21.58484, 21.58261, 21.58467, 21.56167, 21.56614, 21.56322, 21.56596, 
  21.55876, 21.54039, 21.53593, 21.52392, 21.52683, 21.52546, 21.53541, 21.53215, 21.5361, 21.53627, 
  21.54091, 21.55052, 21.55532, 21.56768, 21.57043, 21.57952, 21.57352, 21.58486, 21.5864, 21.59584, 
  21.6058, 21.62021, 21.62193, 21.62914, 21.63703, 21.63549, 21.6451, 21.64665, 21.64356, 21.63652, 
  21.63824, 21.63103, 21.6324, 21.62107, 21.62433, 21.6288, 21.6288, 21.64956, 21.6578, 21.65917, 
  21.67222, 21.66783, 21.69273, 21.69222, 21.70733, 21.71042, 21.69651, 21.69702, 21.69307, 21.70234, 
  21.70234, 21.71488, 21.72793, 21.74835, 21.74526, 21.74852, 21.7468, 21.74783, 21.74388, 21.73924, 
  21.73323, 21.73548, 21.74063, 21.74235, 21.75076, 21.75231, 21.75815, 21.75299, 21.75385, 21.7578, 
  21.76021, 21.76948, 21.77958, 21.77924, 21.78405, 21.7904, 21.77992, 21.77117, 21.77203, 21.75949, 
  21.75177, 21.73511, 21.72755, 21.71518, 21.68942, 21.67366, 21.66937, 21.65855, 21.64412, 21.64429, 
  21.63863, 21.63897, 21.63436, 21.63127, 21.61873, 21.6031, 21.59743, 21.58524, 21.59434, 21.59091, 
  21.57068, 21.55815, 21.55231, 21.54149, 21.54097, 21.50164, 21.4946, 21.4855, 21.47726, 21.46695, 
  21.45171, 21.44965, 21.39383, 21.3873, 21.40313, 21.4076, 21.4088, 21.41155, 21.40743, 21.40966, 
  21.40846, 21.41309, 21.41206, 21.40622, 21.4112, 21.42323, 21.42323, 21.41721, 21.41876, 21.41687, 
  21.42477, 21.42288, 21.43748, 21.43421, 21.41361, 21.4088, 21.40107, 21.3942, 21.39282, 21.38527, 
  21.37599, 21.36243, 21.35727, 21.34955, 21.35078, 21.34357, 21.34511, 21.34151, 21.33584, 21.33017, 
  21.31575, 21.30424, 21.2996, 21.28947, 21.28105, 21.27058, 21.27044, 21.26528, 21.2349, 21.23404, 
  21.23851, 21.2404, 21.24418, 21.23817, 21.23782, 21.23456, 21.23181, 21.22958, 21.22511, 21.22511, 
  21.21532, 21.20605, 21.19678, 21.19197, 21.1942, 21.1729, 21.16312, 21.16741, 21.16603, 21.15539, 
  21.15594, 21.15148, 21.15405, 21.15199, 21.1532, 21.13947, 21.14977, 21.14067, 21.14135, 21.13655, 
  21.11285, 21.10975, 21.10203, 21.09929, 21.09259, 21.0895, 21.07782, 21.07937, 21.06426, 21.06408, 
  21.04931, 21.04626, 21.04316, 21.0375, 21.03303, 21.02376, 21.01551, 21.01416, 21.00317, 20.99578, 
  20.98788, 20.97655, 20.96779, 20.96987, 20.96626, 20.94754, 20.94033, 20.93328, 20.92831, 20.90718,
  20.90027, 20.88945, 20.87916, 20.86423, 20.85513, 20.83814, 20.83057, 20.83538, 20.84619, 20.85546, 
  20.84035, 20.84361, 20.85323, 20.86421, 20.87296, 20.88103, 20.88755, 20.89012, 20.88, 20.87983, 
  20.87657, 20.87743, 20.86576, 20.86095, 20.85134, 20.84722, 20.83692, 20.83555, 20.83023, 20.82987, 
  20.80155, 20.79692, 20.79211, 20.79332, 20.78405, 20.7777, 20.77581, 20.77255, 20.76912, 20.76122, 
  20.72724, 20.7171, 20.71023, 20.70852, 20.70097, 20.68775, 20.68792, 20.67127, 20.64999, 20.64055, 
  20.63042, 20.615, 20.59886, 20.59371, 20.6097, 20.61433, 20.60729, 20.61177, 20.61864, 20.62808, 
  20.63959, 20.65882, 20.65745, 20.66209, 20.65693, 20.67324, 20.67307, 20.68577, 20.69332, 20.68662, 
  20.69331, 20.68799, 20.66772, 20.66119, 20.6557, 20.66154, 20.66892, 20.6703, 20.66532, 20.67133, 
  20.67064, 20.65244, 20.65089, 20.64145, 20.64042, 20.63595, 20.64129, 20.64008, 20.62944, 20.62016, 
  20.61501, 20.61759, 20.61827, 20.61089, 20.60711, 20.5999, 20.59182, 20.58787, 20.57997, 20.58186, 
  20.5692, 20.5637, 20.55632, 20.55151, 20.55426, 20.54585, 20.53863, 20.53949, 20.53674, 20.53623, 
  20.53005, 20.51562, 20.51373, 20.50686, 20.49589, 20.49589, 20.48593, 20.4861, 20.50001, 20.50465, 
  20.52045, 20.52028, 20.53522, 20.5347, 20.539, 20.5378, 20.51581, 20.50018, 20.48593, 20.47685, 
  20.46311, 20.4401, 20.42876, 20.41227, 20.40542, 20.37915, 20.36355, 20.35891, 20.35599)
MGeo_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- MGeo_1 %>% 
  mutate(NAME = "KOSOVO", VISUALIZATION_NAME = "Kosovo", 
         ISO2 = NA, ISO3 = NA, M49_CODE = NA, SOVRN = "Serbia", Claimed = NA,
         CONTINENT = "EUROPE",  CONTINENT_CODE = "150", SREGION = "Southern Europe", SREGION_CODE = "039", 
         IREGION = NA, IREGION_CODE = NA, SIREGION = SREGION, SIREGION_CODE = "039",
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) and TERRITORIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "SERBIA")
Geo_2 <- GeoDATA %>% filter(NAME == "ALBANIA")
Geo_3 <- GeoDATA %>% filter(NAME == "NORTH MACEDONIA")

##### SERBIA #####
Geo_0 <- Geometric_Operations(Geo_1, MGeo_1)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
LATITUDE_VALUEs <- c(
  42.25444, 42.25673, 42.25495, 42.25736, 42.25088, 42.24974, 42.24669, 42.24911, 42.24263, 42.24186, 
  42.23856, 42.23322, 42.23258, 42.23818, 42.24085, 42.25482, 42.25381, 42.26372, 42.26029, 42.26156, 
  42.25698, 42.25965, 42.26626, 42.26562, 42.27172, 42.27223, 42.27845, 42.27985, 42.28506, 42.28493, 
  42.29826, 42.29344, 42.29356, 42.30156, 42.30321, 42.31185, 42.32175, 42.32568, 42.32555, 42.31654, 
  42.30842, 42.3135, 42.30042, 42.30817, 42.32505, 42.33038, 42.33977, 42.34472, 42.32606, 42.32149, 
  42.31642, 42.31489, 42.31096, 42.30766, 42.30029, 42.29852, 42.30753, 42.30728, 42.30372, 42.30385, 
  42.29826, 42.30309, 42.30144, 42.3069, 42.30499, 42.30994, 42.3088, 42.31527, 42.30867, 42.30766, 
  42.32137, 42.31769, 42.31312, 42.31286, 42.32187, 42.32517, 42.33342, 42.33685, 42.34116, 42.34028, 
  42.33634, 42.33888, 42.33482, 42.33621, 42.34662, 42.34954, 42.35182, 42.34928, 42.35068, 42.36273, 
  42.36273, 42.36679, 42.36666, 42.36032, 42.36704, 42.36945, 42.37389, 42.37135, 42.36514, 42.35296, 
  42.33165, 42.33406, 42.32035, 42.31769, 42.32505, 42.81136, 42.26269)
LONGITUDE_VALUEs <- c(
  21.6003, 21.60116, 21.60648, 21.61249, 21.6257, 21.64923, 21.65438, 21.65764, 21.66605, 21.68356, 
  21.69128, 21.69437, 21.69935, 21.70449, 21.71187, 21.71479, 21.71788, 21.72938, 21.73781, 21.75034, 
  21.756, 21.76459, 21.76888, 21.77797, 21.77626, 21.78106, 21.77866, 21.78638, 21.78673, 21.78982, 
  21.79463, 21.80441, 21.81505, 21.82586, 21.82346, 21.83513, 21.83376, 21.84389, 21.8523, 21.86705, 
  21.86894, 21.88389, 21.89298, 21.92868, 21.93006, 21.93349, 21.93384, 21.94722, 21.97916, 21.99598, 
  22.00182, 22.00738, 22.00789, 22.01785, 22.02334, 22.03536, 22.04326, 22.0527, 22.05373, 22.06146, 
  22.06455, 22.07623, 22.0819, 22.09732, 22.10058, 22.1047, 22.10968, 22.11947, 22.12668, 22.13424, 
  22.14626, 22.15914, 22.16206, 22.1679, 22.1746, 22.18164, 22.18216, 22.19223, 22.19687, 22.20322, 
  22.20563, 22.22005, 22.22263, 22.23036, 22.24341, 22.23568, 22.24049, 22.24684, 22.25131, 22.25182, 
  22.25784, 22.26093, 22.26591, 22.27089, 22.28068, 22.28068, 22.29459, 22.298, 22.29851, 22.29027, 
  22.31515, 22.32288, 22.3337, 22.35225, 22.3665, 22.30026, 21.58662)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_1, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, Geo_0[15])
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### ALBANIA #####
Geo_0 <- Geometric_Operations(Geo_2, MGeo_1)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0))
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  41.87554, 41.8772, 41.87426, 41.87695, 41.87209, 41.86864, 41.84064, 41.82478, 41.81684, 41.80123, 
  41.79919, 41.79228, 41.78946, 41.78639, 41.79202, 41.78447, 41.77922, 41.77999, 41.77679, 41.76898, 
  41.74849, 41.7344, 41.73261, 41.71518, 41.70506, 41.69096, 41.68737, 41.66083, 41.65211, 41.63479, 
  41.63312, 41.62196, 41.62016, 41.61426, 41.60771, 41.6013, 41.59655, 41.58987, 41.58075, 41.57806, 
  41.5629, 41.56444, 41.55931, 41.55918, 41.55404, 41.54273, 41.54055, 41.53657, 41.53451, 41.53066, 
  41.52924, 41.52127, 41.51266, 41.50778, 41.50983, 41.50739, 41.49814, 41.49544, 41.49904, 41.49312, 
  41.49235, 41.47447, 41.4665, 41.44965, 41.44604, 41.43729, 41.43884, 41.43562, 41.43678, 41.42661, 
  41.41696, 41.40215, 41.40112, 41.38721, 41.38425, 41.37858, 41.36261, 41.35874, 41.35398, 41.34444, 
  41.33632, 41.34856, 41.3407, 41.33735, 41.33284, 41.32549, 41.32124, 41.31002, 41.30422, 41.30164, 
  41.29493, 41.28423, 41.27687, 41.25417, 41.24616, 41.24048, 41.23029, 41.21105, 41.20059, 41.19452, 
  41.19723, 41.1909, 41.19348, 41.18082, 41.15666, 41.14903, 41.12925, 41.12473, 41.1211, 41.1149, 
  41.1074, 41.10235, 41.09136, 41.08059, 40.91102, 40.90246, 40.90479, 40.90181, 40.9031, 40.8974, 
  40.90323, 40.91413, 40.93813, 40.92386, 40.91802, 40.91712, 40.92412, 40.92166, 40.92503, 40.92464, 
  40.9214, 40.92321, 40.91154, 40.91113, 40.90465, 40.89829, 40.85946, 40.85746, 40.85546, 
  40.70777, 41.91543, 41.88912, 41.88439, 41.87736)
LONGITUDE_VALUEs <- c(
  20.59037, 20.58368, 20.57767, 20.57029, 20.57012, 20.55742, 20.56377, 20.55982, 20.56497, 20.56823, 
  20.57304, 20.57235, 20.57441, 20.56754, 20.5442, 20.54815, 20.54558, 20.53819, 20.5315, 20.53527, 
  20.5188, 20.51948, 20.51433, 20.51708, 20.52772, 20.5272, 20.53029, 20.51656, 20.52704, 20.52481, 
  20.53287, 20.5442, 20.54043, 20.54729, 20.5466, 20.55604, 20.55193, 20.55639, 20.55416, 20.54198, 
  20.51828, 20.50832, 20.48842, 20.46868, 20.45529, 20.46284, 20.46884, 20.46833, 20.47262, 20.47279, 
  20.46044, 20.45225, 20.45448, 20.46547, 20.47062, 20.47732, 20.46736, 20.47389, 20.47904, 20.48385, 
  20.49398, 20.50324, 20.50187, 20.51285, 20.50616, 20.51285, 20.5235, 20.53106, 20.5405, 20.5386, 
  20.55681, 20.5611, 20.55354, 20.5496, 20.54547, 20.55269, 20.53621, 20.53758, 20.52642, 20.52642, 
  20.51714, 20.49894, 20.49654, 20.49792, 20.49088, 20.50015, 20.49792, 20.50736, 20.50633, 20.50994, 
  20.50685, 20.51526, 20.50977, 20.51492, 20.52178, 20.51612, 20.51612, 20.53173, 20.53173, 20.54066, 
  20.54375, 20.55337, 20.55887, 20.5599, 20.58324, 20.58307, 20.59767, 20.58513, 20.58891, 20.58307, 
  20.58513, 20.59269, 20.59526, 20.67529, 20.73155, 20.75971, 20.77448, 20.7786, 20.79183, 20.80076, 
  20.82477, 20.82855, 20.84676, 20.89085, 20.89892, 20.91026, 20.91524, 20.92932, 20.93379, 20.94066, 
  20.94152, 20.94753, 20.96141, 20.96828, 20.97068, 20.97824, 20.97959, 20.98459, 20.97959,
  19.94203, 20.28653, 20.5891, 20.59374, 20.59419)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_2, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, st_union(Geo_0[2:3]))
Geo_2 <- st_union(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

##### NORTH MACEDONIA #####
Geo_0 <- Geometric_Operations(Geo_3, MGeo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0))
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(
  40.85746, 40.85946, 40.89829, 40.90465, 40.91113, 40.91154, 40.92321, 40.9214, 40.92464, 40.92503, 
  40.92166, 40.92412, 40.91712, 40.91802, 40.92386, 40.93813, 40.91413, 40.90323, 40.8974, 40.9031, 
  40.90181, 40.90479, 40.90246, 40.91102, 41.08059, 41.09136, 41.10235, 41.1074, 41.1149, 41.1211, 
  41.12473, 41.12925, 41.14903, 41.15666, 41.18082, 41.19348, 41.1909, 41.19723, 41.19452, 41.20059, 
  41.21105, 41.23029, 41.24048, 41.24616, 41.25417, 41.27687, 41.28423, 41.29493, 41.30164, 41.30422, 
  41.31002, 41.32124, 41.32549, 41.33284, 41.33735, 41.3407, 41.34856, 41.33632, 41.34444, 41.35398, 
  41.35874, 41.36261, 41.37858, 41.38425, 41.38721, 41.40112, 41.40215, 41.41696, 41.42661, 41.43678, 
  41.43562, 41.43884, 41.43729, 41.44604, 41.44965, 41.4665, 41.47447, 41.49235, 41.49312, 41.49904, 
  41.49544, 41.49814, 41.50739, 41.50983, 41.50778, 41.51266, 41.52127, 41.52924, 41.53066, 41.53451, 
  41.53657, 41.54055, 41.54273, 41.55404, 41.55918, 41.55931, 41.56444, 41.5629, 41.57806, 41.58075, 
  41.58987, 41.59655, 41.6013, 41.60771, 41.61426, 41.62016, 41.62196, 41.63312, 41.63479, 41.65211, 
  41.66083, 41.68737, 41.69096, 41.70506, 41.71518, 41.73261, 41.7344, 41.74849, 41.76898, 41.77679, 
  41.77999, 41.77922, 41.78447, 41.79202, 41.78639, 41.78946, 41.79228, 41.79919, 41.80123, 41.81684, 
  41.82478, 41.84064, 41.86864, 41.87209, 41.87695, 41.87426, 41.8772, 41.87554,
  41.87736, 41.867, 41.85742, 41.86368, 41.87493, 41.87493, 41.86764, 41.85716, 41.86483, 41.86419, 
  41.878, 41.88656, 41.89346, 41.89551, 41.90547, 41.91888, 41.92323, 41.92719, 41.92936, 41.94723, 
  41.95477, 41.96243, 41.98004, 41.98259, 42.01525, 42.02685, 42.04126, 42.04496, 42.0484, 42.0535, 
  42.07172, 42.07835, 42.08408, 42.08243, 42.08574, 42.09899, 42.09669, 42.11325, 42.11567, 42.1284, 
  42.12675, 42.13808, 42.1363, 42.13973, 42.1391, 42.14355, 42.14559, 42.1503, 42.15195, 42.15653, 
  42.16569, 42.16569, 42.17536, 42.18668, 42.18999, 42.20589, 42.20703, 42.20182, 42.19724, 42.1662, 
  42.16506, 42.16188, 42.13235, 42.12331, 42.11287, 42.11109, 42.09453, 42.09848, 42.09529, 42.09224, 
  42.09593, 42.10115, 42.1051, 42.11198, 42.11261, 42.10472, 42.10777, 42.11554, 42.11911, 42.12165, 
  42.1284, 42.13197, 42.1363, 42.14113, 42.14457, 42.1489, 42.16213, 42.16887, 42.17129, 42.1732, 
  42.17702, 42.18363, 42.1919, 42.1994, 42.20741, 42.20334, 42.20538, 42.20462, 42.20741, 42.20958, 
  42.21657, 42.21479, 42.22203, 42.22127, 42.22559, 42.22775, 42.23805, 42.23703, 42.24135, 42.24479, 
  42.24898, 42.2439, 42.24504, 42.23157, 42.23525, 42.24453, 42.24822, 42.26003, 42.26168, 42.27413, 
  42.27934, 42.27617, 42.27985, 42.27324, 42.27464, 42.26969, 42.27172, 42.2702, 42.266, 42.26194, 
  42.25951, 42.25214, 42.24947, 42.24134, 42.2407, 42.25074, 42.25379, 42.25011, 42.25227, 42.25036, 
  42.26015, 42.25913, 42.26269,
  42.25444, 42.25673, 42.25495, 42.25736, 42.25088, 42.24974, 42.24669, 42.24911, 42.24263, 42.24186, 
  42.23856, 42.23322, 42.23258, 42.23818, 42.24085, 42.25482, 42.25381, 42.26372, 42.26029, 42.26156, 
  42.25698, 42.25965, 42.26626, 42.26562, 42.27172, 42.27223, 42.27845, 42.27985, 42.28506, 42.28493, 
  42.29826, 42.29344, 42.29356, 42.30156, 42.30321, 42.31185, 42.32175, 42.32568, 42.32555, 42.31654, 
  42.30842, 42.3135, 42.30042, 42.30817, 42.32505, 42.33038, 42.33977, 42.34472, 42.32606, 42.32149, 
  42.31642, 42.31489, 42.31096, 42.30766, 42.30029, 42.29852, 42.30753, 42.30728, 42.30372, 42.30385, 
  42.29826, 42.30309, 42.30144, 42.3069, 42.30499, 42.30994, 42.3088, 42.31527, 42.30867, 42.30766, 
  42.32137, 42.31769, 42.31312, 42.31286, 42.32187, 42.32517, 42.33342, 42.33685, 42.34116, 42.34028, 
  42.33634, 42.33888, 42.33482, 42.33621, 42.34662, 42.34954, 42.35182, 42.34928, 42.35068, 42.36273, 
  42.36273, 42.36679, 42.36666, 42.36032, 42.36704, 42.36945, 42.37389, 42.37135, 42.36514, 42.35296, 
  42.33165, 42.33406, 42.32035, 42.31769)
LONGITUDE_VALUEs <- c(
  20.98459, 20.97959, 20.97824, 20.97068, 20.96828, 20.96141, 20.94753, 20.94152, 20.94066, 20.93379, 
  20.92932, 20.91524, 20.91026, 20.89892, 20.89085, 20.84676, 20.82855, 20.82477, 20.80076, 20.79183, 
  20.7786, 20.77448, 20.75971, 20.73155, 20.67529, 20.59526, 20.59269, 20.58513, 20.58307, 20.58891, 
  20.58513, 20.59767, 20.58307, 20.58324, 20.5599, 20.55887, 20.55337, 20.54375, 20.54066, 20.53173, 
  20.53173, 20.51612, 20.51612, 20.52178, 20.51492, 20.50977, 20.51526, 20.50685, 20.50994, 20.50633, 
  20.50736, 20.49792, 20.50015, 20.49088, 20.49792, 20.49654, 20.49894, 20.51714, 20.52642, 20.52642, 
  20.53758, 20.53621, 20.55269, 20.54547, 20.5496, 20.55354, 20.5611, 20.55681, 20.5386, 20.5405, 
  20.53106, 20.5235, 20.51285, 20.50616, 20.51285, 20.50187, 20.50324, 20.49398, 20.48385, 20.47904, 
  20.47389, 20.46736, 20.47732, 20.47062, 20.46547, 20.45448, 20.45225, 20.46044, 20.47279, 20.47262, 
  20.46833, 20.46884, 20.46284, 20.45529, 20.46868, 20.48842, 20.50832, 20.51828, 20.54198, 20.55416, 
  20.55639, 20.55193, 20.55604, 20.5466, 20.54729, 20.54043, 20.5442, 20.53287, 20.52481, 20.52704, 
  20.51656, 20.53029, 20.5272, 20.52772, 20.51708, 20.51433, 20.51948, 20.5188, 20.53527, 20.5315, 
  20.53819, 20.54558, 20.54815, 20.5442, 20.56754, 20.57441, 20.57235, 20.57304, 20.56823, 20.56497, 
  20.55982, 20.56377, 20.55742, 20.57012, 20.57029, 20.57767, 20.58368, 20.59037,
  20.59419, 20.60501, 20.61994, 20.63728, 20.64843, 20.668, 20.67915, 20.68276, 20.70613, 20.72775, 
  20.73599, 20.73685, 20.74028, 20.7511, 20.7547, 20.77632, 20.77032, 20.77238, 20.76842, 20.75504, 
  20.76636, 20.76688, 20.75384, 20.748, 20.75143, 20.74748, 20.76379, 20.76379, 20.75864, 20.75864, 
  20.78593, 20.78353, 20.7928, 20.811, 20.83434, 20.84292, 20.89031, 20.90867, 20.91519, 20.91948, 
  20.92669, 20.94387, 20.96927, 20.97615, 20.98301, 20.98902, 21.00275, 21.00927, 21.02661, 21.02832, 
  21.04377, 21.04935, 21.05501, 21.06943, 21.08383, 21.10375, 21.11887, 21.12522, 21.16228, 21.181, 
  21.18631, 21.18648, 21.21482, 21.21654, 21.21448, 21.21276, 21.22341, 21.23354, 21.23337, 21.25053, 
  21.27286, 21.27887, 21.29209, 21.29484, 21.29759, 21.30355, 21.32124, 21.31488, 21.31626, 21.31162, 
  21.3099, 21.30528, 21.30579, 21.30167, 21.30923, 21.30957, 21.3209, 21.31627, 21.32072, 21.31849, 
  21.32725, 21.32931, 21.33618, 21.33034, 21.336, 21.33823, 21.34167, 21.34545, 21.34562, 21.34991, 
  21.35266, 21.35541, 21.3585, 21.36709, 21.37207, 21.36984, 21.37774, 21.37978, 21.3851, 21.38218, 
  21.40227, 21.41327, 21.41945, 21.43319, 21.44452, 21.44074, 21.43473, 21.43302, 21.44057, 21.44039, 
  21.44846, 21.45138, 21.47439, 21.48946, 21.49616, 21.50337, 21.50715, 21.51264, 21.51041, 21.51969, 
  21.51746, 21.5202, 21.51883, 21.52175, 21.53257, 21.53789, 21.54906, 21.55455, 21.5597, 21.56846, 
  21.5813, 21.58319, 21.58662,
  21.6003, 21.60116, 21.60648, 21.61249, 21.6257, 21.64923, 21.65438, 21.65764, 21.66605, 21.68356, 
  21.69128, 21.69437, 21.69935, 21.70449, 21.71187, 21.71479, 21.71788, 21.72938, 21.73781, 21.75034, 
  21.756, 21.76459, 21.76888, 21.77797, 21.77626, 21.78106, 21.77866, 21.78638, 21.78673, 21.78982, 
  21.79463, 21.80441, 21.81505, 21.82586, 21.82346, 21.83513, 21.83376, 21.84389, 21.8523, 21.86705, 
  21.86894, 21.88389, 21.89298, 21.92868, 21.93006, 21.93349, 21.93384, 21.94722, 21.97916, 21.99598, 
  22.00182, 22.00738, 22.00789, 22.01785, 22.02334, 22.03536, 22.04326, 22.0527, 22.05373, 22.06146, 
  22.06455, 22.07623, 22.0819, 22.09732, 22.10058, 22.1047, 22.10968, 22.11947, 22.12668, 22.13424, 
  22.14626, 22.15914, 22.16206, 22.1679, 22.1746, 22.18164, 22.18216, 22.19223, 22.19687, 22.20322, 
  22.20563, 22.22005, 22.22263, 22.23036, 22.24341, 22.23568, 22.24049, 22.24684, 22.25131, 22.25182, 
  22.25784, 22.26093, 22.26591, 22.27089, 22.28068, 22.28068, 22.29459, 22.298, 22.29851, 22.29027, 
  22.31515, 22.32288, 22.3337, 22.35225)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_3, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_3 <- st_set_geometry(Geo_3, Geo_0)
Geo_3 <- st_union(Geo_3, Geo)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
Geo_3 <- Geo_3 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("SERBIA", "ALBANIA", "NORTH MACEDONIA"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, MGeo_1)

NORTHERN CYPRUS is included in CYPRUS in GeoDATA.

NORTHERN CYPRUS is considered by United Nations in CYPRUS.

NORTHERN CYPRUS declared independence from CYPRUS in 1983. NORTHERN CYPRUS has no official codes (ISO 3166-1).

NORTHERN CYPRUS is not a United Nations Member State (Recognized by 1/193 United Nations Member States).

#DATA MANIPULATIONs on GeoDATA_from_GADM_level_0_low_resolution
DATA <- GeoDATA_from_GADM_level_0_low_resolution %>% st_drop_geometry() %>% #Drop Geometrie(s)
  select(2, 1, 3:7) %>% #Remove superfluous columns 
  rename_with(.fn = ~ paste0("GADM_", ., recycle0 = TRUE), .cols = c(1:4, 6:7)) %>% #Rename duplicate columns
  #DATA MANIPULATIONs
  mutate(
    #GADM_CONTINENT From LOWERCASE TO UPPERCASE
    GADM_CONTINENT = toupper(GADM_CONTINENT), 
    #Replace Values in GeoHUB_CONTINENT
    GADM_CONTINENT = case_when(
      GADM_CONTINENT == "NORTH AMERICA" ~ "AMERICAS",
      GADM_CONTINENT == "SOUTH AMERICA" ~ "AMERICAS",
      GADM_CONTINENT == "AUSTRALIA" ~ "OCEANIA", TRUE ~ GADM_CONTINENT))

#GeoDATA To DATA_from_Fondation
DATA_from_Fondation <- GeoDATA %>% st_drop_geometry()

#Combine DATA_from_Fondation | DATA
DATA_from_Fondation <- left_join(
  DATA_from_Fondation, DATA, by = c("VISUALIZATION_NAME" = "GADM_NAME")) %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in Claimed
    Claimed = case_when(
      NAME == "AKSAI CHIN" ~ "India", 
      NAME == "GIBRALTAR" ~ "Spain",
      NAME == "JAMMU AND KASHMIR" ~ "Pakistan",  
      NAME == "TAIWAN (PROVINCE OF CHINA)" ~ "China", TRUE ~ Claimed),
    #Replace Values in COUNTRY
    COUNTRY = case_when(
      NAME == "AKROTIRI AND DHEKELIA (SBA)" ~ "Cyprus",
      NAME == "BIR TAWIL" ~ "None",
      NAME == "DEMCHOK" ~ NA,
      NAME == "GILGIT-BALTISTAN" ~ "Pakistan",
      NAME == "HONG KONG SAR" ~ "China",
      NAME == "KOSOVO" ~ "Serbia",
      NAME == "LADAKH" ~ "India", 
      NAME == "MACAO SAR" ~ "China",
      NAME == "PARACEL ISLANDS" ~ NA,
      NAME == "SPRATLY ISLANDS" ~ NA, TRUE ~ COUNTRY)) %>%
  select(1:7, 20, 8, 21, 9:16) #Columns ORDER

#Combine GeoDATA | GeoDATA_from_GADM_level_0_low_resolution
GeoDATA <- left_join(
  GeoDATA, DATA, by = c("VISUALIZATION_NAME" = "GADM_NAME")) %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in Claimed
    Claimed = case_when(
      NAME == "AKSAI CHIN" ~ "India", 
      NAME == "GIBRALTAR" ~ "Spain",
      NAME == "JAMMU AND KASHMIR" ~ "Pakistan",  
      NAME == "TAIWAN (PROVINCE OF CHINA)" ~ "China", TRUE ~ Claimed),
    #Replace Values in COUNTRY
    COUNTRY = case_when(
      NAME == "AKROTIRI AND DHEKELIA (SBA)" ~ "Cyprus",
      NAME == "BIR TAWIL" ~ "None",
      NAME == "DEMCHOK" ~ NA,
      NAME == "GILGIT-BALTISTAN" ~ "Pakistan",
      NAME == "HONG KONG SAR" ~ "China",
      NAME == "KOSOVO" ~ "Serbia",
      NAME == "LADAKH" ~ "India", 
      NAME == "MACAO SAR" ~ "China",
      NAME == "PARACEL ISLANDS" ~ NA,
      NAME == "SPRATLY ISLANDS" ~ NA, TRUE ~ COUNTRY)) %>%
  select(1:7, 21, 8, 22, 9:17) #Columns ORDER
  
#Table => Countries in GeoDATA (!in GeoDATA_from_GADM_level_0_low_resolution)
DATA <- GeoDATA %>% st_drop_geometry()
# datatable(DATA[is.na(DATA$GADM_CONTINENT), ][ , c(1, 10)],
#           options = list(scrollX = TRUE, autoWidth = TRUE,
#                          columnDefs = list(list(targets = "_all", render = JS(
#                            "function(data, type, row, meta) {",
#                            "  if (type === 'display' && data === null) {",
#                            "    return 'NA';", "  }", "  return data;", "}")))),
#           style = "bootstrap", rownames = FALSE, caption = "Countries in GeoDATA (!in GeoDATA_from_GADM_level_0_low_resolution)") %>%
#   formatStyle(columns = 1, textAlign = "left") %>% formatStyle(columns = 2, textAlign = "center")
GeoDATA <- GeoDATA %>% select(-10)

No New Countries/Territories.

Now in Our World Administrative Boundaries (GeoDATA):

  • Size in R: 10.5MB
  • Areas: 267 Countries/Territories (267 NAME)
  • 250/249 ISO2 | ISO3 from International Organization for Standardization (ISO) (CLIPPERTON ISLAND)
  • 249/249 Numeric Code (M49_CODE) from International Organization for Standardization (ISO)
  • 160/267 Geometries (SOURCE) from World Health Organization (WHO) - Countries
  • 054/267 Geometries (SOURCE) from Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques
  • 044/267 Geometries (SOURCE) from WHO - Countries and Fondation Jean-Jacques Laffont - TSE
  • 002/267 Geometries (SOURCE) from Global Administrative Areas (GADM)
  • 003/267 Geometries (SOURCE) from Fondation Jean-Jacques Laffont - TSE and Global Administrative Areas (GADM)
  • 004/267 Geometries (SOURCE) from WHO - Countries and Fondation - TSE and Global Administrative Areas (GADM)
  • New Column(s): COUNTRY
#Countries/Territories in GeoDATA
DATA <- GeoDATA %>% st_drop_geometry()
datatable(DATA[ , c(1, 5, 17)], options = list(scrollX = TRUE, autoWidth = TRUE), 
          caption = "Countries/Territories in GeoDATA", style = "bootstrap", rownames = FALSE) %>%
  formatStyle(columns = c(1, 3), textAlign = "left") %>% formatStyle(columns = 2, textAlign = "center")

NAME in GeoDATA \(>\) Residence in International Migrant Stock Data (Residences_in_iMIGRANT_Stock) [267 \(>\) 235].

NAME in GeoDATA \(>\) NAME in GeoDATA_from_WHO (267 \(>\) 241):

  • DEMCHOK | KOSOVO | TRANS-KARAKORAM TRACT

We will also make a version for our work on Climate Change and Migration Network (CCMN) called CCMN_GeoDATA:

  • KOSOVO will be included in SERBIA (Sovereign Country)
  • TRANS-KARAKORAM TRACT will be included in CHINA (Sovereign Country)

5.5 From Natural Earth

2 files from Natural Earth.

5.5.1 Countries

We check that all countries/territories in GeoDATA_from_Natural_Earth are in GeoDATA.

#New Variable => SOURCE
GeoDATA_from_Natural_Earth <- GeoDATA_from_Natural_Earth %>% filter(NAME != "Cyprus U.N. Buffer Zone") %>% 
  mutate(SOURCE = "Natural Earth - COUNTRIEs") %>% 
  # select(1:32, 34, 33) %>%
  mutate_if(
    is.character, ~case_when(
      . == "Akrotiri" ~ "Akrotiri (SBA)",
      . == "Åland" ~ "Åland Islands",
      . == "Antigua and Barb." ~ "Antigua and Barbuda",
      . == "Ashmore and Cartier Is." ~ "Ashmore and Cartier Islands", 
      . == "Bajo Nuevo Bank (Petrel Is.)" ~ "Bajo Nuevo Bank",
      . == "Baykonur" ~ "Baikonur Cosmodrome",
      . == "Bosnia and Herz." ~ "Bosnia and Herzegovina",
      . == "Br. Indian Ocean Ter." ~ "British Indian Ocean Territory",
      . == "British Virgin Is." ~ "British Virgin Islands",
      . == "Brunei" ~ "Brunei Darussalam",
      . == "Cayman Is." ~ "Cayman Islands",
      . == "Central African Rep." ~ "Central African Republic",
      . == "Clipperton I." ~ "Clipperton Island",
      . == "Cook Is." ~ "Cook Islands",
      . == "Coral Sea Is." ~ "Coral Sea Islands", 
      . == "Dem. Rep. Korea" ~ "Dem. People's Republic of Korea",
      . == "Dhekelia" ~ "Dhekelia (SBA)",
      . == "Dominican Rep." ~ "Dominican Republic",
      . == "Eq. Guinea" ~ "Equatorial Guinea",
      . == "eSwatini" ~ "Eswatini",
      . == "Faeroe Islands" ~ "Faroe Islands",
      . == "Falkland Is." ~ "Falkland Islands (Malvinas)",
      . == "Fr. S. and Antarctic Lands" ~ "French Southern Territories",
      . == "Fr. Polynesia" ~ "French Polynesia",
      . == "Guantanamo Bay USNB" ~ "Guantanamo Bay Naval Base",
      . == "Heard I. and McDonald Is." ~ "Heard Island and McDonald Islands",
      . == "Hong Kong" ~ "Hong Kong SAR",
      . == "Indian Ocean Ter." ~ "Australian Indian Ocean Territories",
      . == "Laos" ~ "Lao People's Democratic Republic",
      . == "Macao" ~ "Macao SAR",
      . == "Marshall Is." ~ "Marshall Islands",
      . == "Moldova" ~ "Republic of Moldova",
      . == "N. Cyprus" ~ "Northern Cyprus",
      . == "N. Mariana Is." ~ "Northern Mariana Islands",
      . == "Palestine" ~ "State of Palestine",
      . == "Pitcairn Is." ~ "Pitcairn",
      . == "Republic of the Congo" ~ "Congo",
      . == "Russia" ~ "Russian Federation",
      . == "S. Geo. and the Is." ~ "South Georgia and the South Sandwich Islands",
      . == "S. Sudan" ~ "South Sudan",
      . == "Saint Helena" ~ "Saint Helena, Ascension and Tristan da Cunha",
      . == "Saint-Martin" ~ "Saint Martin",
      . == "Solomon Is." ~ "Solomon Islands",
      . == "Spratly Is." ~ "Spratly Islands",
      . == "St-Barthélemy" ~ "Saint Barthélemy",
      . == "St. Pierre and Miquelon" ~ "Saint Pierre and Miquelon",
      . == "St. Vin. and Gren." ~ "Saint Vincent and the Grenadines",
      . == "Syria" ~ "Syrian Arab Republic",
      . == "Taiwan" ~ "Taiwan (Province of China)",
      . == "Tanzania" ~ "United Republic of Tanzania",
      . == "Turkey" ~ "Türkiye",
      . == "Turks and Caicos Is." ~ "Turks and Caicos Islands",
      . == "United Kingdom" ~ "United Kingdom of Great Britain and Northern Ireland",
      . == "United States" ~ "United States of America",
      . == "U.S. Minor Outlying Is." ~ "United States Minor Outlying Islands",
      . == "U.S. Virgin Is." ~ "United States Virgin Islands",
      . == "Vatican" ~ "Holy See",
      . == "Vietnam" ~ "Viet Nam",
      . == "W. Sahara" ~ "Western Sahara", TRUE ~ .))

#Combine GeoDATA_from_Natural_Earth | GeoDATA
DATA <- left_join(
  GeoDATA_from_Natural_Earth, GeoDATA %>% st_drop_geometry(), by = c("BRK_NAME" = "VISUALIZATION_NAME"))
DATA <- DATA %>% st_drop_geometry()
DATA <- DATA %>% rename(CONTINENT = 41, SOURCE = 49)
datatable(DATA[is.na(DATA$CONTINENT), ][ , c(13, 41, 49)], 
          options = list(scrollX = TRUE, autoWidth = TRUE, 
                         columnDefs = list(list(targets = "_all", render = JS(
                           "function(data, type, row, meta) {",
                           "  if (type === 'display' && data === null) {",
                           "    return 'NA';", "  }", "  return data;", "}")))), 
          style = "bootstrap", rownames = FALSE, 
          caption = "Countries in GeoDATA_from_Natural_Earth (!in GeoDATA)") %>% 
  formatStyle(columns = 1, textAlign = "left", `text-transform` = "uppercase") %>% 
  formatStyle(columns = 2:3, textAlign = "center")

SOMALILAND is included in SOMALIA in GeoDATA.

SOMALILAND declared independence from SOMALIA in 1991. SOMALILAND has no official codes (ISO 3166-1).

SOMALILAND is not a United Nations Member State (Recognized by 0/193 United Nations Member States).

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "SOMALIA")

##### SOMALIA #####
LATITUDE_VALUEs <- c(
  10.7323, 10.69961, 10.68764, 10.68662, 10.68274, 10.68173, 10.68561, 10.69759, 10.70029, 10.71648,
  10.73031, 10.72896, 10.7293, 10.73065, 10.72761, 10.73217, 10.74869, 10.76286, 10.77618, 10.78057,
  10.79085, 10.79692, 10.80401, 10.81041, 10.82542, 10.83351, 10.84144, 10.8529, 10.85594, 10.86318,
  10.86746, 10.87032, 10.87926, 10.88296, 10.88819, 10.89139, 10.8951, 10.89493, 10.90134, 10.91634, 
  10.91449, 10.91836, 10.92527, 10.92561, 10.93151, 10.96336, 10.96252, 10.97297, 10.97819, 10.98325, 
  10.98426, 10.99016, 11.02167, 11.02841, 11.03329, 11.04812, 11.06295, 11.08215, 11.13016, 11.13168, 
  11.15104, 11.15761, 11.17243, 11.17445, 11.17782, 11.17799, 11.17378, 11.17429, 11.1785, 11.17799, 
  11.18237, 11.18338, 11.18203, 11.17277, 11.14515, 11.11416, 11.11483, 11.09597, 11.09024, 11.09175, 
  11.09563, 11.09714, 11.0995, 11.10051, 11.10759, 11.11079, 11.11433, 11.12005, 11.12309, 11.11837, 
  11.11332, 11.11702, 11.12174, 11.12342, 11.1278, 11.11567, 11.11483, 11.11921, 11.11736, 11.12005, 
  11.12831, 11.12544, 11.13134, 11.12561, 11.13134, 11.18641, 11.19281, 11.20594, 11.21857, 11.23238, 
  11.23979, 11.24299, 11.26959, 11.27228, 11.27363, 11.28373, 11.28541, 11.28205, 11.28474, 11.30965, 
  11.30823, 11.32641, 11.27827, 11.24864, 11.24123, 11.24012, 11.24652, 11.17069, 10.55202)
LONGITUDE_VALUEs <- c(
  46.30106, 46.33094, 46.35393, 46.38345, 46.39735, 46.43445, 46.45693, 46.48971, 46.4916, 46.52852,
  46.59168, 46.60386, 46.61673, 46.61879, 46.62188, 46.62617, 46.67047, 46.68901, 46.71854, 46.72009, 
  46.74703, 46.75527, 46.77604, 46.77981, 46.81348, 46.81777, 46.83441, 46.84557, 46.85999, 46.87217,
  46.87349, 46.87984, 46.88842, 46.88877, 46.89409, 46.89426, 46.90233, 46.90936, 46.92618, 46.93047, 
  46.94388, 46.96533, 46.96911, 46.98078, 46.9921, 47.01168, 47.04412, 47.05837, 47.08256, 47.08531, 
  47.09322, 47.103, 47.1145, 47.12257, 47.13563, 47.14592, 47.1473, 47.20583, 47.28976, 47.30232, 
  47.34265, 47.36822, 47.39688, 47.40907, 47.41199, 47.41782, 47.4362, 47.4501, 47.45284, 47.4587, 
  47.49268, 47.52306, 47.53662, 47.55446, 47.58864, 47.63137, 47.63549, 47.66743, 47.6954, 47.70245, 
  47.71069, 47.71966, 47.72396, 47.73289, 47.74474, 47.75727, 47.76208, 47.793, 47.79626, 47.80395, 
  47.88036, 47.89908, 47.90424, 47.91145, 47.91746, 47.95019, 47.96788, 47.99724, 48.01115, 48.03795, 
  48.05306, 48.07774, 48.09543, 48.13304, 48.15707, 48.21594, 48.22796, 48.23896, 48.29593, 48.31929, 
  48.32305, 48.32975, 48.35225, 48.36376, 48.38057, 48.39602, 48.40856, 48.44047, 48.47447, 48.51947, 
  48.59674, 48.65926, 48.81096, 48.88063, 48.91773, 48.95789, 48.98946, 49.04663, 46.23467)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_1, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_union(Geo_0[1:10]))
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "SOMALIA")
GeoDATA <- rbind(GeoDATA, Geo_1)

GUANTANAMO BAY NAVAL BASE is included in UNITED STATES OF AMERICA in GeoDATA.

GUANTANAMO BAY NAVAL BASE (also known as GTMO) is an American Military Base.

GUANTANAMO BAY NAVAL BASE has been leased by CUBA since 1903 (no end date).

##### GUANTANAMO BAY NAVAL BASE #####
LATITUDE_VALUEs <- c(
  19.90221, 19.93446, 19.97399, 19.97384, 19.97382,
  19.9719, 19.96722, 19.9677, 19.97077, 19.96899, 19.96617, 19.96431, 19.96201, 19.96064, 19.96189,
  19.96222, 19.96068, 19.95996, 19.95923, 19.95911, 19.95431, 19.95455, 19.95346, 19.95358, 19.95237, 
  19.95249, 19.95064, 19.95096, 19.95475, 19.95516, 19.95738, 19.9581, 19.96185, 19.96133, 19.95798, 
  19.95649, 19.95435, 19.95467, 19.95383, 19.95326, 19.95209, 19.95314, 19.95225, 19.94959, 19.94907, 
  19.94818, 19.94838, 19.94753, 19.9437, 19.94184, 19.9437, 19.94535, 19.94475, 19.9431, 19.94124, 
  19.941, 19.94172, 19.94148, 19.94055, 19.93781, 19.93672, 19.93414, 19.92813, 19.92321, 19.92038, 
  19.91631, 19.91263, 19.91296, 19.91457, 19.91425, 19.9153, 19.91518, 19.91574, 19.91727, 19.91844, 
  19.91897, 19.92006, 19.92058, 19.92232, 19.92365, 19.92446, 19.92571, 19.92664, 19.92849, 19.93027, 
  19.92797, 19.92551, 19.92631, 19.92546, 19.92421, 19.92381, 19.91893, 19.92002, 19.91925, 19.91768, 
  19.91465, 19.91905, 19.91857, 19.91679, 19.91748, 19.91308, 19.91017, 19.90993, 19.91122, 19.90997, 
  19.91013, 19.91171, 19.91175, 19.90739, 19.90436, 19.90577, 19.90408, 19.90477, 19.90412, 19.90545, 
  19.90452, 19.90551, 19.90507, 19.90551, 19.90426, 19.90414, 19.90326, 19.90277, 19.90196)
LONGITUDE_VALUEs <- c(
  -75.23203, -75.23199, -75.19097, -75.15858, -75.15544,
  -75.15422, -75.15491, -75.16452, -75.16555, -75.17104, -75.1693, -75.16698, -75.16698, -75.16514, -75.16475,
  -75.16038, -75.16029, -75.15806, -75.15892, -75.16381, -75.1611, -75.15874, -75.15844, -75.16076, -75.16016, 
  -75.15913, -75.15836, -75.16183, -75.16282, -75.16441, -75.16514, -75.17029, -75.1723, -75.17333, -75.17269, 
  -75.16664, -75.16681, -75.172, -75.17204, -75.16831, -75.16775, -75.16617, -75.16458, -75.16411, -75.16613, 
  -75.16454, -75.16244, -75.16063, -75.16093, -75.15587, -75.15613, -75.15317, -75.15179, -75.15347, -75.15347, 
  -75.15226, -75.15205, -75.15093, -75.15059, -75.15295, -75.17144, -75.18059, -75.19226, -75.19694, -75.19732, 
  -75.19334, -75.19366, -75.20035, -75.20186, -75.20473, -75.20559, -75.20692, -75.20701, -75.20332, -75.20349, 
  -75.20263, -75.20272, -75.20121, -75.20155, -75.20082, -75.20203, -75.20164, -75.20211, -75.20155, -75.20877, 
  -75.21254, -75.21207, -75.21675, -75.2174, -75.21671, -75.21881, -75.21804, -75.2128, -75.21267, -75.21448, 
  -75.21078, -75.20851, -75.20593, -75.20623, -75.20735, -75.20782, -75.20533, -75.20246, -75.20164, -75.19898, 
  -75.1976, -75.19683, -75.19052, -75.19117, -75.19838, -75.20242, -75.20653, -75.20851, -75.21031, -75.21267, 
  -75.2137, -75.21507, -75.21679, -75.21863, -75.22198, -75.2249, -75.22615, -75.22992, -75.231)
MGeo_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  19.90283, 19.90266, 19.90221, 19.90147,
  19.90177, 19.90056, 19.89951, 19.90173, 19.90104, 19.90133, 19.90036, 19.90024, 19.89725, 19.89757, 
  19.89596, 19.89757, 19.89903, 19.89915, 19.8964, 19.89608, 19.89491, 19.89531, 19.8962, 19.89467, 
  19.89515, 19.89451, 19.89552, 19.89483, 19.89495, 19.89422, 19.89612, 19.89435, 19.89205, 19.89305, 
  19.89261, 19.89148, 19.89059, 19.89201, 19.89172, 19.89511, 19.89959, 19.90556, 19.90972, 19.9125, 
  19.91618, 19.92009, 19.91803, 19.91876, 19.91747, 19.91678, 19.91541, 19.91428, 19.91206, 19.91198, 
  19.91311, 19.91315, 19.91448, 19.91339, 19.9165, 19.91682, 19.91521, 19.91557, 19.91731, 19.91807, 
  19.91928, 19.92053, 19.91985, 19.91848, 19.91731, 19.91896, 19.91953, 19.92142, 19.92114, 19.92223, 
  19.92223, 19.92295, 19.92287, 19.92332, 19.92304, 19.92404, 19.92356, 19.92457, 19.9259, 19.93123, 
  19.92993, 19.93006, 19.9286, 19.92929, 19.93215, 19.93457, 19.93474, 19.93369, 19.93223, 19.93187, 
  19.93098, 19.93074, 19.9324, 19.93276, 19.93417, 19.93518, 19.933, 19.93478, 19.9357, 19.93562, 
  19.93679, 19.93607, 19.93837, 19.93861, 19.93994, 19.94143, 19.94329, 19.94301, 19.94127, 19.93982, 
  19.93611, 19.93921, 19.93917, 19.94042, 19.942, 19.94196, 19.9405, 19.94151, 19.93933, 19.93986, 
  19.94216, 19.94313, 19.94361, 19.94284, 19.94426, 19.9449, 19.947, 19.94652, 19.94393, 19.94272, 
  19.94284, 19.94094, 19.94119, 19.94276, 19.94276, 19.94369, 19.94474, 19.94599, 19.94595, 19.94857, 
  19.94869, 19.94518, 19.94461, 19.94304, 19.94248, 19.94098, 19.94139, 19.94256, 19.94276, 19.94357, 
  19.94474, 19.94336, 19.9455, 19.94498, 19.94683, 19.9503, 19.95059, 19.95208, 19.95208, 19.95288, 
  19.95115, 19.95288, 19.95353, 19.95635, 19.95627, 19.95833, 19.96091, 19.96349, 19.96188, 19.96321, 
  19.9618, 19.96462, 19.96612, 19.96676, 19.96805, 19.96833, 19.9693, 19.971, 19.9712, 19.96886, 
  19.9662, 19.9643, 19.96317, 19.962, 19.96119, 19.95885, 19.95942, 19.95829, 19.95708, 19.95659, 
  19.95478, 19.95433, 19.95486, 19.95357, 19.95405, 19.95296, 19.95445, 19.9555, 19.95699, 19.96058, 
  19.96014, 19.96091, 19.96091, 19.96369, 19.96196, 19.96506, 19.96405, 19.9672, 19.96849, 19.96974, 
  19.96918, 19.97083, 19.97156, 19.96914, 19.97301, 19.97252, 19.97333, 19.97192, 19.97071, 19.97079, 
  19.97345, 19.97351,
  19.97381, 19.97382, 19.90275)
LONGITUDE_VALUEs <- c(
  -75.08695, -75.08791, -75.08783, -75.08913, 
  -75.09005, -75.09349, -75.09404, -75.09803, -75.09962, -75.10069, -75.10155, -75.1031, -75.1061, -75.10773, 
  -75.1097, -75.11597, -75.11614, -75.11794, -75.12103, -75.12524, -75.12717, -75.12988, -75.13039, -75.13472, 
  -75.13601, -75.13747, -75.13974, -75.14, -75.14206, -75.14412, -75.14498, -75.14915, -75.15009, -75.15374, 
  -75.15618, -75.15605, -75.15738, -75.16039, -75.16395, -75.16639, -75.16468, -75.16725, -75.16593, -75.16657, 
  -75.16554, -75.16211, -75.1576, -75.15442, -75.15395, -75.15631, -75.15614, -75.15816, -75.15841, -75.15498, 
  -75.15502, -75.15363, -75.15337, -75.152, -75.15209, -75.15084, -75.15063, -75.14878, -75.14895, -75.14672, 
  -75.14852, -75.14728, -75.14599, -75.14578, -75.14471, -75.14175, -75.14424, -75.14454, -75.14179, -75.14256, 
  -75.13805, -75.13805, -75.13981, -75.14037, -75.14144, -75.14325, -75.14531, -75.14574, -75.13775, -75.13479, 
  -75.13398, -75.13273, -75.1305, -75.1293, -75.13411, -75.13218, -75.13127, -75.13157, -75.13054, -75.129, 
  -75.12887, -75.12788, -75.12861, -75.13007, -75.13093, -75.12926, -75.12659, -75.1278, -75.12711, -75.12827, 
  -75.12904, -75.12981, -75.1296, -75.13033, -75.13007, -75.1275, -75.12685, -75.12599, -75.12647, -75.1244, 
  -75.12359, -75.12273, -75.12127, -75.12415, -75.12471, -75.12118, -75.11922, -75.11879, -75.11673, -75.11621, 
  -75.11836, -75.11647, -75.11728, -75.12076, -75.12119, -75.12256, -75.12226, -75.11977, -75.11574, -75.1154, 
  -75.11381, -75.11226, -75.1102, -75.11157, -75.11278, -75.11308, -75.11604, -75.11613, -75.11497, -75.11479, 
  -75.11351, -75.11269, -75.11029, -75.10977, -75.10853, -75.1078, -75.10707, -75.10745, -75.10831, -75.10874, 
  -75.1081, -75.10638, -75.10243, -75.10059, -75.10187, -75.10252, -75.10758, -75.10651, -75.10458, -75.10329, 
  -75.10269, -75.10132, -75.10295, -75.10012, -75.10381, -75.10097, -75.09999, -75.10681, -75.11222, -75.11566, 
  -75.11935, -75.12029, -75.11565, -75.11896, -75.11887, -75.11745, -75.11891, -75.11814, -75.1205, -75.12145, 
  -75.12475, -75.12201, -75.12617, -75.12484, -75.12578, -75.12544, -75.12471, -75.122, -75.12295, -75.12205, 
  -75.122, -75.12406, -75.12621, -75.12789, -75.12935, -75.13141, -75.13385, -75.13205, -75.13342, -75.13333, 
  -75.12758, -75.12745, -75.12938, -75.13406, -75.13578, -75.13647, -75.13823, -75.13831, -75.14011, -75.13925, 
  -75.13659, -75.13702, -75.13436, -75.13367, -75.13187, -75.13397, -75.13539, -75.1387, -75.13917, -75.14123, 
  -75.14071, -75.1415,
  -75.14138, -75.08664, -75.08665)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(19.94858, 19.94569, 19.94668, 19.94498, 19.94517, 19.94738, 19.94926)
LONGITUDE_VALUEs <- c(-75.15973, -75.15862, -75.15752, -75.15767, -75.15692, -75.15662, -75.15795)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  19.97381, 19.9738, 19.97284, 19.97223, 19.97089, 19.97017, 19.97046, 19.97091, 19.97087, 19.96969, 
  19.96929, 19.96956, 19.97063, 19.97269, 19.97286)
LONGITUDE_VALUEs <- c(
  -75.15298, -75.1445, -75.14463, -75.14453, -75.14592, -75.14731, -75.14799, -75.148, -75.14891, -75.14903, 
  -75.15038, -75.15149, -75.15204, -75.15216, -75.15308)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(19.95493, 19.95396, 19.95396, 19.95327, 19.95358, 19.95495)
LONGITUDE_VALUEs <- c(-75.1649, -75.16535, -75.16467, -75.16445, -75.16402, -75.16424)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(19.94964, 19.94903, 19.94851, 19.94863, 19.94944)
LONGITUDE_VALUEs <- c(-75.16173, -75.16216, -75.16173, -75.16091, -75.16096)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(19.95452, 19.95359, 19.95428, 19.95549, 19.95549)
LONGITUDE_VALUEs <- c(-75.15298, -75.1522, -75.15148, -75.15203, -75.15289)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(19.96314, 19.96222, 19.9621, 19.96516, 19.9652)
LONGITUDE_VALUEs <- c(-75.15413, -75.15366, -75.15323, -75.15242, -75.15289)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(19.94959, 19.94765, 19.94398, 19.94519, 19.94656, 19.95092)
LONGITUDE_VALUEs <- c(-75.14559, -75.1449, -75.14615, -75.14447, -75.14383, -75.14503)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(19.95307, 19.9515, 19.95182, 19.95335, 19.95416, 19.954)
LONGITUDE_VALUEs <- c(-75.15711, -75.1563, -75.15583, -75.15608, -75.15681, -75.15728)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(
  19.95097, 19.95024, 19.94916, 19.94992, 19.94944, 19.94968, 19.94912, 19.94932, 19.95065, 19.95073, 
  19.95041)
LONGITUDE_VALUEs <- c(
  -75.15644, -75.15644, -75.15485, -75.15352, -75.15266, -75.15168, -75.15099, -75.15048, -75.15116, -75.15451, 
  -75.15545)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(19.96519, 19.95979, 19.95898, 19.95672, 19.95648, 19.95858, 19.96112, 19.9664)
LONGITUDE_VALUEs <- c(-75.14494, -75.14301, -75.14142, -75.14018, -75.13696, -75.13786, -75.14018, -75.14322)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(19.9605, 19.95808, 19.958, 19.95933, 19.96199, 19.96223)
LONGITUDE_VALUEs <- c(-75.115, -75.115, -75.11401, -75.11363, -75.11461, -75.11556)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(19.95727, 19.95392, 19.95352, 19.95562, 19.95643, 19.95755)
LONGITUDE_VALUEs <- c(-75.11556, -75.11581, -75.11328, -75.11333, -75.11075, -75.11122)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(19.95998, 19.95917, 19.95937, 19.9607, 19.9607)
LONGITUDE_VALUEs <- c(-75.11332, -75.11332, -75.11259, -75.11221, -75.11259)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
LATITUDE_VALUEs <- c(19.95191, 19.9505, 19.95175, 19.95187, 19.9536, 19.95372, 19.95271, 19.95288)
LONGITUDE_VALUEs <- c(-75.11255, -75.11114, -75.11024, -75.10843, -75.10895, -75.11075, -75.11066, -75.11195)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
MGeo_1 <- MGeo_1 %>% 
  mutate(NAME = "GUANTANAMO BAY NAVAL BASE", VISUALIZATION_NAME = "Guantanamo Bay Naval Base", 
         ISO2 = NA, ISO3 = NA, M49_CODE = NA, SOVRN = "Cuba", Claimed = NA, COUNTRY = "Cuba",
         CONTINENT = "AMERICAS",  CONTINENT_CODE = "019", SREGION = "Latin America and the Caribbean", SREGION_CODE = "419", 
         IREGION = "Caribbean", IREGION_CODE = "029", SIREGION = IREGION, SIREGION_CODE = "029",
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) and TERRITORIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "CUBA")
Geo_2 <- GeoDATA %>% filter(NAME == "UNITED STATES OF AMERICA")

##### CUBA #####
Geo_0 <- Geometric_Operations(Geo_1, MGeo_1)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
LATITUDE_VALUEs <- c(
  19.89035, 19.89354, 19.89031, 19.88983, 19.88498, 19.88708, 19.88611, 19.88918, 19.88853, 19.8987, 
  19.8958, 19.9008, 19.90193, 19.90968, 19.91614, 19.92582, 19.9284, 19.93905, 19.93921, 19.93357, 
  19.93695, 19.93211, 19.93453, 19.93308, 19.93582, 19.93582, 19.93324, 19.93453, 19.93389, 19.93857, 
  19.94244, 19.94873, 19.94438, 19.94486, 19.94325, 19.94615, 19.94389, 19.94518, 19.94293, 19.95035, 
  19.94954, 19.96229, 19.95906, 19.96067, 19.95696, 19.95583, 19.95245, 19.95307, 19.95162, 19.95275, 
  19.94436, 19.95194, 19.9471, 19.95017, 19.94872, 19.95307, 19.95146, 19.95872, 19.95711, 19.9613, 
  19.96098, 19.96598, 19.96421, 19.96114, 19.96162, 19.97066, 19.96937, 19.96469, 19.96695, 19.96889, 
  19.96792, 19.97018, 19.97034, 19.96388, 19.96711, 19.96517, 19.96679, 19.96259, 19.96211, 19.95598, 
  19.95888, 19.96292, 19.97227, 19.96921, 19.96711, 19.97018, 19.97211, 19.97163, 19.97518, 19.97744, 
  19.97534, 19.97227, 19.9734, 19.97792, 19.98518, 19.98647, 19.97937, 19.98486, 19.98018, 19.98405, 
  19.99099, 19.98954, 19.99357, 19.99325, 19.9955, 19.99615, 19.9897, 19.99294, 19.98826, 19.98988, 
  19.98375, 19.9831, 19.98536, 19.98375, 19.98988, 19.98988, 19.98294, 19.98455, 19.976, 19.97197, 
  19.97116, 19.96632, 19.97019, 19.96923, 19.97084, 19.96713, 19.96681, 19.96358, 19.96503, 19.96503, 
  19.95729, 19.9589, 19.956, 19.95971, 19.96197, 19.96277, 19.96019, 19.96229, 19.95777, 19.95567, 
  19.95809, 19.96197, 19.95938, 19.96277, 19.96132, 19.96632, 19.96455, 19.96777, 19.97123, 19.97244, 
  19.9778, 19.97909, 19.9822, 19.98188, 19.98438, 19.98567, 19.98321, 19.98341, 19.98139, 19.97776, 
  19.97554, 19.97377, 19.96945, 19.96874, 19.97019, 19.96826, 19.96971, 19.97455, 19.97354, 19.9754, 
  19.97528, 19.976, 19.97628, 19.98096, 19.98116, 19.98274, 19.98258, 19.98576, 19.9856, 19.9898, 
  19.99121, 19.9904, 19.99314, 19.99217, 19.99359, 19.99117, 19.99258, 19.99451, 19.99403, 19.99439, 
  19.99605, 19.99863, 20.00201, 19.99923, 19.99794, 19.99681, 19.99447, 19.99508, 19.99657, 19.99528, 
  19.9929, 19.99157, 19.99395, 19.99822, 20.0023, 20.0079, 20.00613, 20.01012, 20.01113, 20.01064, 
  20.0125, 20.01524, 20.01855, 20.01867, 20.01734, 20.0173, 20.02185, 20.02173, 20.02758, 20.02774, 
  20.02379, 20.0206, 20.01984, 20.02089, 20.02137, 20.02387, 20.02443, 20.02835, 20.02629, 20.01843, 
  20.01798, 20.01343, 20.01129, 20.00915, 20.00794, 20.00093, 20.00093, 19.99818, 19.99338, 19.99149, 
  19.99153, 19.98842, 19.98855, 19.98536, 19.98338, 19.98588, 19.98572, 19.98266, 19.98177, 19.97745, 
  19.97878, 19.9785, 19.98326, 19.98467, 19.98613, 19.98496, 19.98584, 19.98483, 19.98108, 19.9787, 
  19.97798, 19.97661, 19.97394, 19.9714, 19.97011, 19.96955, 19.97003, 19.96854, 19.96551, 19.96777, 
  19.96067, 19.96245, 19.95809, 19.95858, 19.9497, 19.9589, 19.95777, 19.96035, 19.94147, 19.93679, 
  19.94002, 19.93954, 19.93308, 19.93147, 19.93357, 19.92663, 19.92404, 19.91807, 19.91678, 19.91162, 
  19.91129, 19.90484, 19.90209, 19.89838, 19.89176, 19.89451, 19.8916, 19.88966, 19.88385, 19.88902, 
  19.88579, 19.88708, 19.8824, 19.88514, 19.88369, 19.8866, 19.88692, 19.88999, 19.88708, 19.88983, 
  19.89015, 19.89531, 19.8979, 19.905, 19.89725, 19.89838, 19.89402, 19.89338, 19.88999, 19.88514, 
  19.88531, 19.88805, 19.88531, 19.88644, 19.8874, 19.88498, 19.88627, 19.88563, 19.87966, 19.88272, 
  19.8803, 19.88337, 19.88062, 19.88288, 19.88757, 19.88095, 19.88288, 19.88095, 19.88401, 19.88159, 
  19.88708, 19.88466, 19.89079, 19.89015, 19.89241, 19.8916, 19.90064, 19.89919, 19.9008, 19.89951, 
  19.90161, 19.89983,
  19.90221, 19.93446, 19.97399, 19.97384,
  19.97568, 19.97649, 19.97939, 19.98246, 19.97778, 19.97729, 19.97907, 19.98165, 19.98746, 19.98891, 
  19.99439, 19.99472, 19.99746, 20.00165, 20.00117, 20.00407, 20.00472, 19.99633, 19.99326, 19.99294, 
  19.99714, 20.00133, 20.0073, 20.00972, 20.01746, 20.02456, 20.02939, 20.02939, 20.03085, 20.02875, 
  20.02246, 20.01859, 20.01407, 20.01456, 20.0123, 20.01504, 20.02536, 20.03149, 20.03536, 20.0352, 
  20.03923, 20.04407, 20.04939, 20.05471, 20.05987, 20.05939, 20.05778, 20.05278, 20.04294, 20.04181, 
  20.03391, 20.03165, 20.02827, 20.02665, 20.02278, 20.01891, 20.01617, 20.0131, 20.00972, 20.00923, 
  20.00326, 20.00068, 19.99939, 19.99584, 19.99181, 19.99052, 19.99342, 19.98794, 19.98697, 19.98487, 
  19.98455, 19.9802, 19.981, 19.97762, 19.97874,
  19.97381, 19.97382, 19.90275,
  19.89903, 19.90807, 19.9079, 19.91888, 19.91759, 19.92114, 19.92114, 19.93566, 19.94341, 19.95696, 
  19.96906, 19.97003, 19.97568, 19.97423, 19.97632, 19.97294, 19.97439, 19.97584, 19.97455, 19.97826, 
  19.97697, 19.98068, 19.98068, 19.98842, 19.98955, 20.00956, 20.01794, 20.02472, 20.02697, 20.03117, 
  20.03552, 20.03343, 20.03601, 20.03504, 20.04246, 20.04213, 20.03794, 20.04891, 20.04601, 20.05375, 
  20.05342, 20.05084, 20.05391, 20.05004, 20.04471, 20.04471, 20.0423, 20.04246, 20.05471, 20.05487, 
  20.04907, 20.0473, 20.06229, 20.06084, 20.06536, 20.06326, 20.07035, 20.06487, 20.06729, 20.066, 
  20.06922, 20.06761, 20.07035, 20.07068, 20.07713, 20.07487, 20.07761, 20.07825, 20.08116, 20.08132, 
  20.07793, 20.07858, 20.07777, 20.08116, 20.08099, 20.066, 20.06777, 20.07713, 20.09373, 20.09873, 
  20.11872, 20.13355, 20.13854, 20.14434, 20.15772, 20.1669, 20.18608, 20.21089, 20.23972, 20.26018, 
  20.2613, 20.30462, 20.31814, 20.3088, 20.30252, 20.30172, 20.29705, 20.29335, 20.29544, 20.29061, 
  20.28948, 20.28546, 20.28352, 20.29141, 20.29254, 20.29737, 20.2993, 20.31411, 20.31637, 20.34743, 
  20.3513, 20.3476, 20.34051, 20.33939, 20.34116, 20.35162, 20.35419, 20.34953, 20.34921, 20.35291, 
  20.35741, 20.35645, 20.36643, 20.36884, 20.3727, 20.37399, 20.37174, 20.37077, 20.3727, 20.39105, 
  20.4081, 20.41051, 20.42047, 20.4216, 20.42401, 20.42546, 20.42803, 20.42626, 20.42739, 20.42144, 
  20.42401, 20.42723, 20.43173, 20.43913, 20.44476, 20.4438, 20.4475, 20.44959, 20.45152, 20.45103, 
  20.45924, 20.46084, 20.4647, 20.46406, 20.47017, 20.4713, 20.48272, 20.48609, 20.48497, 20.47998, 
  20.48159, 20.48416, 20.48658, 20.48883, 20.48883, 20.4922, 20.48738, 20.48609, 20.4906, 20.49285, 
  20.50458, 20.51359, 20.51761, 20.52323, 20.53481, 20.53384, 20.53577, 20.53288, 20.53497, 20.53368, 
  20.5377, 20.54863, 20.54976, 20.5541, 20.55667, 20.55924, 20.56374, 20.57451, 20.57178, 20.56599, 
  20.56549, 20.56308, 20.55794, 20.5536, 20.5573, 20.56067, 20.56967, 20.57562, 20.57674, 20.5798, 
  20.57996, 20.58221, 20.58301, 20.58863, 20.59362, 20.59571, 20.59731, 20.59538, 20.59876, 20.59844, 
  20.59506, 20.59506, 20.59828, 20.60053, 20.6137, 20.62318, 20.62591, 20.62109, 20.62463, 20.62061, 
  20.62173, 20.62479, 20.62222, 20.6227, 20.62945, 20.62206, 20.62591, 20.62495, 20.63684, 20.63523, 
  20.64455, 20.64346, 20.64635, 20.64683, 20.65888, 20.6592, 20.66209, 20.65968, 20.66065, 20.65865, 
  20.66716, 20.65865, 20.67937, 20.68675, 20.68852, 20.6845, 20.68338, 20.68595, 20.68531, 20.68884, 
  20.68868, 20.69205, 20.69205, 20.69607, 20.69735, 20.69205, 20.69607, 20.69928, 20.69976, 20.69735, 
  20.69816, 20.68788, 20.69045, 20.68836, 20.68997, 20.68884, 20.6898, 20.68884, 20.68627, 20.68177, 
  20.67262, 20.67647, 20.67856, 20.68467, 20.68868, 20.69398, 20.69623, 20.69639, 20.69318, 20.6951, 
  20.70313, 20.70683, 20.70683, 20.72128, 20.71357, 20.71453, 20.72112, 20.72112, 20.71068, 20.71823, 
  20.71903, 20.71999, 20.71518, 20.71518, 20.72802, 20.73396, 20.7346, 20.73894, 20.73862, 20.74086, 
  20.73862, 20.7452, 20.73813, 20.73155, 20.7338, 20.73878, 20.74423, 20.74937, 20.75579, 20.76221, 
  20.78484, 20.79287, 20.79207, 20.78693, 20.77217, 20.77088, 20.7765, 20.77891, 20.77297, 20.77377, 
  20.77024, 20.76382, 20.75643, 20.75242, 20.75322, 20.74985, 20.75098, 20.74777, 20.74616, 20.74343, 
  20.74584, 20.74263, 20.74343, 20.74102, 20.74086, 20.73733, 20.7399, 20.7399, 20.73685, 20.73653, 
  20.7407, 20.74151, 20.74327, 20.74423, 20.74215, 20.74215, 20.73813, 20.73589, 20.73219, 20.73059, 
  20.72738, 20.72625, 20.7232, 20.72112, 20.71999, 20.71373, 20.71662, 20.71518, 20.71903, 20.7094, 
  20.71084, 20.71807, 20.72112, 20.72609, 20.72433, 20.72754, 20.73268, 20.7391, 20.74359, 20.75915, 
  20.76396, 20.76733, 20.7776, 20.75963, 20.76027, 20.75882, 20.76797, 20.75289, 20.75192, 20.74919, 
  20.73956, 20.73234, 20.72383, 20.71949, 20.7272, 20.71708, 20.71291, 20.70954, 20.69685, 20.69573, 
  20.6885, 20.69059, 20.70006, 20.69926, 20.70554, 20.70183, 20.70488, 20.70906, 20.70922, 20.71419, 
  20.71419, 20.71789, 20.74566, 20.75369, 20.75882, 20.76268, 20.76589, 20.76508, 20.77728, 20.776, 
  20.77215, 20.76813, 20.76717, 20.77086, 20.77391, 20.77712, 20.78001, 20.79076, 20.79381, 20.79125, 
  20.79462, 20.7967, 20.80071, 20.80922, 20.81291, 20.81419, 20.81917, 20.82591, 20.83104, 20.83248, 
  20.8386, 20.83908, 20.83667, 20.83956, 20.8394, 20.83635, 20.83683, 20.83507, 20.83587, 20.8386, 
  20.8479, 20.84389, 20.84582, 20.83988, 20.82897, 20.82512, 20.82304, 20.82737, 20.82865, 20.82689, 
  20.82817, 20.82352, 20.82608, 20.82496, 20.82737, 20.8333, 20.83106, 20.83683, 20.83379, 20.83202, 
  20.82304, 20.82223, 20.82753, 20.82945, 20.82464, 20.82384, 20.81694, 20.82512, 20.8333, 20.83507, 
  20.83218, 20.8317, 20.83683, 20.82833, 20.82897, 20.83282, 20.84181, 20.84614, 20.84838, 20.84453, 
  20.84245, 20.83571, 20.83812, 20.83475, 20.82817, 20.8256, 20.82448, 20.82913, 20.83218, 20.83395, 
  20.83748, 20.84036, 20.8394, 20.84486, 20.84662, 20.84421, 20.84838, 20.84453, 20.84838, 20.83812, 
  20.83042, 20.82801, 20.82608, 20.82785, 20.82705, 20.82223, 20.82127, 20.81068, 20.80988, 20.81838, 
  20.82207, 20.81566, 20.81437, 20.80683, 20.80025, 20.79816, 20.78998, 20.78613, 20.78854, 20.82897, 
  20.83106, 20.83876, 20.84774, 20.85432, 20.85721, 20.86587, 20.87453, 20.87277, 20.87437, 20.87261, 
  20.8771, 20.88095, 20.88159, 20.88913, 20.9042, 20.91318, 20.91607, 20.92617, 20.93531, 20.96256, 
  21.01016, 21.03933, 21.04045, 21.07329, 21.07233, 21.07361, 21.06736, 21.06784, 21.07697, 21.0829, 
  21.09683, 21.11029, 21.12662, 21.12534, 21.12822, 21.12294, 21.1223, 21.12486, 21.12037, 21.12197, 
  21.12612, 21.12596, 21.13445, 21.13124, 21.1282, 21.12596, 21.12084, 21.12308, 21.11683, 21.11587, 
  21.11331, 21.11315, 21.11539, 21.10979, 21.11267, 21.11059, 21.11475, 21.11459, 21.10867, 21.10514, 
  21.1045, 21.09505, 21.09665, 21.09842, 21.09922, 21.09746, 21.09746, 21.09281, 21.09425, 21.09281, 
  21.09361, 21.08865, 21.09105, 21.09361, 21.08737, 21.08624, 21.08384, 21.084, 21.07904, 21.07151, 
  21.06911, 21.06686, 21.07007, 21.06382, 21.06622, 21.0651, 21.06814, 21.0675, 21.07119, 21.07039, 
  21.06574, 21.07087, 21.07503, 21.08128, 21.0848, 21.08656, 21.08256, 21.08032, 21.07743, 21.07631, 
  21.07407, 21.07215, 21.06943, 21.06766, 21.06446, 21.0675, 21.06526, 21.06606, 21.07023, 21.07197, 
  21.06733, 21.07069, 21.07341, 21.07293, 21.07549, 21.0795, 21.07966, 21.08302, 21.08478, 21.08991, 
  21.09343, 21.104, 21.10288, 21.11025, 21.11345, 21.10673, 21.10144, 21.09728, 21.09423, 21.09231, 
  21.08863, 21.08687, 21.09007, 21.0992, 21.10224, 21.10849, 21.10913, 21.12146, 21.12894, 21.13939, 
  21.1482, 21.15252, 21.15798, 21.16869, 21.17637, 21.1815, 21.1855, 21.20582, 21.21046, 21.22071, 
  21.22839, 21.23591, 21.23719, 21.25280, 21.25175)
LONGITUDE_VALUEs <- c(
  -77.03339, -77.02492, -77.02097, -77.01548, -77.01102, -77.00707, -76.98954, -76.98474, -76.97805, -76.95333, 
  -76.94664, -76.93171, -76.92278, -76.91282, -76.89857, -76.88931, -76.88124, -76.86835, -76.8596, -76.85187, 
  -76.84398, -76.82012, -76.81343, -76.80603, -76.8038, -76.79591, -76.79282, -76.79025, -76.78424, -76.78304, 
  -76.77222, -76.76364, -76.75146, -76.74116, -76.73618, -76.72692, -76.72022, -76.71816, -76.70974, -76.70304, 
  -76.69463, -76.67026, -76.65894, -76.65018, -76.64109, -76.6313, -76.62358, -76.61611, -76.61168, -76.60344, 
  -76.57443, -76.56447, -76.54043, -76.52394, -76.51896, -76.5044, -76.49323, -76.4831, -76.47846, -76.47056, 
  -76.46472, -76.45116, -76.44669, -76.44587, -76.43437, -76.41444, -76.40637, -76.40637, -76.39967, -76.39985, 
  -76.40362, -76.40294, -76.39246, -76.38181, -76.37357, -76.37082, -76.36175, -76.36295, -76.3578, -76.35643, 
  -76.35076, -76.35042, -76.32998, -76.32225, -76.32208, -76.31229, -76.31281, -76.31573, -76.31504, -76.31023, 
  -76.30937, -76.31006, -76.30319, -76.30031, -76.30597, -76.30426, -76.29773, -76.29601, -76.2888, -76.27884, 
  -76.27558, -76.26424, -76.25823, -76.23745, -76.23453, -76.22423, -76.21495, -76.20808, -76.20121, -76.19473, 
  -76.18271, -76.17, -76.1664, -76.16193, -76.15008, -76.14235, -76.14287, -76.13668, -76.11264, -76.10955, 
  -76.10133, -76.09927, -76.09411, -76.09102, -76.08724, -76.08278, -76.07797, -76.07127, -76.06028, -76.04297, 
  -76.02133, -76.01429, -76.00587, -75.99436, -75.99591, -75.99454, -75.99024, -75.98629, -75.982, -75.96625, 
  -75.95698, -75.95749, -75.95371, -75.95286, -75.94788, -75.94307, -75.93345, -75.9161, -75.91576, -75.91743, 
  -75.91812, -75.92408, -75.92074, -75.91876, -75.91996, -75.9179, -75.9122, -75.91044, -75.91113, -75.91623, 
  -75.9158, -75.91645, -75.91349, -75.91078, -75.89979, -75.88004, -75.87317, -75.87276, -75.87748, -75.87916, 
  -75.88148, -75.8816, -75.87989, -75.88019, -75.88392, -75.8856, -75.88847, -75.8889, -75.88598, -75.88375, 
  -75.88581, -75.88852, -75.88865, -75.88586, -75.88298, -75.88036, -75.87938, -75.88199, -75.88255, -75.88328, 
  -75.88277, -75.88397, -75.88139, -75.88118, -75.87963, -75.88118, -75.87912, -75.87663, -75.87568, -75.87397, 
  -75.87641, -75.87603, -75.86813, -75.8698, -75.8671, -75.86955, -75.86637, -75.86689, -75.86517, -75.86221, 
  -75.86234, -75.86114, -75.86307, -75.86422, -75.86483, -75.86607, -75.86719, -75.86956, -75.87415, -75.87239, 
  -75.86377, -75.86201, -75.85677, -75.856, -75.84991, -75.84905, -75.84441, -75.84343, -75.83515, -75.83699, 
  -75.83995, -75.84133, -75.84442, -75.84403, -75.84746, -75.85446, -75.85691, -75.85789, -75.86407, -75.86304, 
  -75.86476, -75.86819, -75.87145, -75.87501, -75.87257, -75.86883, -75.86763, -75.8696, -75.87175, -75.87081, 
  -75.86922, -75.8672, -75.86759, -75.86386, -75.86334, -75.86257, -75.85982, -75.85957, -75.86553, -75.86622, 
  -75.86493, -75.86978, -75.87059, -75.87004, -75.86759, -75.86781, -75.86986, -75.87132, -75.86684, -75.82737, 
  -75.82187, -75.79749, -75.78014, -75.76317, -75.74857, -75.7235, -75.71423, -75.70323, -75.69568, -75.6787, 
  -75.67372, -75.67183, -75.67183, -75.66582, -75.66032, -75.65637, -75.64246, -75.64109, -75.63594, -75.63336, 
  -75.6301, -75.62288, -75.61275, -75.61296, -75.58239, -75.57724, -75.57346, -75.55732, -75.53465, -75.51713, 
  -75.51301, -75.50659, -75.49591, -75.48922, -75.4827, -75.47841, -75.47412, -75.47137, -75.46348, -75.45919, 
  -75.4561, -75.45387, -75.45524, -75.44048, -75.43293, -75.43053, -75.42847, -75.42246, -75.42246, -75.41577, 
  -75.40873, -75.40478, -75.38487, -75.38023, -75.37868, -75.37353, -75.36667, -75.36221, -75.35723, -75.34676, 
  -75.34127, -75.33627, -75.33233, -75.32357, -75.32392, -75.31516, -75.30881, -75.30504, -75.30349, -75.29577, 
  -75.28891, -75.28582, -75.27947, -75.27758, -75.27569, -75.27277, -75.24892, -75.246, -75.24497, -75.24222, 
  -75.23931, -75.23639,
  -75.23203, -75.23199, -75.19097, -75.15858,
  -75.15942, -75.15822, -75.16045, -75.1541, -75.15015, -75.14328, -75.14363, -75.14174, -75.1486, -75.1486, 
  -75.15101, -75.15324, -75.15375, -75.15289, -75.15101, -75.14963, -75.15461, -75.15598, -75.15839, -75.16233, 
  -75.17572, -75.17932, -75.17658, -75.17932, -75.17693, -75.17109, -75.16457, -75.15719, -75.15307, -75.1414, 
  -75.139, -75.139, -75.13539, -75.13196, -75.12956, -75.1299, -75.13728, -75.1335, -75.12767, -75.12441, 
  -75.12372, -75.1208, -75.12166, -75.11908, -75.10844, -75.1002, -75.09264, -75.09127, -75.09316, -75.08845, 
  -75.08124, -75.08158, -75.08038, -75.08279, -75.08228, -75.08399, -75.09413, -75.09636, -75.09498, -75.09653, 
  -75.09481, -75.0955, -75.09842, -75.09567, -75.09704, -75.10322, -75.11954, -75.11782, -75.12176, -75.12176, 
  -75.12622, -75.12725, -75.13258, -75.13344, -75.1367,
  -75.14138, -75.08664, -75.08665,
  -75.08321, -75.04237, -75.02143, -74.99654, -74.99122, -74.9876, -74.98314, -74.96786, -74.96512, -74.9543, 
  -74.9519, -74.95705, -74.95448, -74.9519, -74.94435, -74.93577, -74.92459, -74.92271, -74.91722, -74.91498, 
  -74.91155, -74.90812, -74.89919, -74.88564, -74.88152, -74.87105, -74.8532, -74.85352, -74.84683, -74.84374, 
  -74.83465, -74.82864, -74.82126, -74.81817, -74.81165, -74.79689, -74.79363, -74.75622, -74.74196, -74.71827, 
  -74.70626, -74.69974, -74.69201, -74.68838, -74.67088, -74.66333, -74.65612, -74.64359, -74.62008, -74.60875, 
  -74.59794, -74.57539, -74.53383, -74.50982, -74.5014, -74.49763, -74.48715, -74.48097, -74.47358, -74.46036, 
  -74.45297, -74.44799, -74.44031, -74.42863, -74.40458, -74.39892, -74.39359, -74.37625, -74.36525, -74.34911, 
  -74.3455, -74.34023, -74.33302, -74.33061, -74.31104, -74.29764, -74.27188, -74.25007, -74.23495, -74.23582, 
  -74.23445, -74.22707, -74.22054, -74.20238, -74.18332, -74.16048, -74.13987, -74.13128, -74.13918, -74.14982, 
  -74.1536, -74.19945, -74.22933, -74.29146, -74.2961, -74.29936, -74.30022, -74.30778, -74.37522, -74.37986, 
  -74.37797, -74.37797, -74.38467, -74.38845, -74.38158, -74.38158, -74.38999, -74.40614, -74.41266, -74.4535, 
  -74.46775, -74.47479, -74.47479, -74.48458, -74.49128, -74.49609, -74.50141, -74.50021, -74.50485, -74.50914, 
  -74.50811, -74.50141, -74.5033, -74.5076, -74.50877, -74.5122, -74.511, -74.51512, -74.51839, -74.52904, 
  -74.53675, -74.53503, -74.5395, -74.54206, -74.54155, -74.54653, -74.54738, -74.5503, -74.55425, -74.56027, 
  -74.56198, -74.55752, -74.5625, -74.56318, -74.5692, -74.57418, -74.57143, -74.57658, -74.57555, -74.57143, 
  -74.57057, -74.57468, -74.5776, -74.58224, -74.58757, -74.59306, -74.59375, -74.60405, -74.60955, -74.61024, 
  -74.61384, -74.61212, -74.61642, -74.61642, -74.61865, -74.62105, -74.62535, -74.62999, -74.62844, -74.62209, 
  -74.63067, -74.65212, -74.65418, -74.66809, -74.68011, -74.68251, -74.68629, -74.69625, -74.6978, -74.70347, 
  -74.69934, -74.70345, -74.7086, -74.71392, -74.71392, -74.71633, -74.71564, -74.72217, -74.72526, -74.72268, 
  -74.71993, -74.71736, -74.71873, -74.72629, -74.72852, -74.72783, -74.73126, -74.73057, -74.73435, -74.73108, 
  -74.73555, -74.73503, -74.74208, -74.73727, -74.73967, -74.74654, -74.74585, -74.73847, -74.73984, -74.73332, 
  -74.73332, -74.7316, -74.7316, -74.73005, -74.72902, -74.73881, -74.75753, -74.76681, -74.78226, -74.78948, 
  -74.79889, -74.80181, -74.80456, -74.8128, -74.81692, -74.84028, -74.8456, -74.85144, -74.85556, -74.86638, 
  -74.86845, -74.87355, -74.87561, -74.87904, -74.87578, -74.88213, -74.889, -74.89313, -74.89811, -74.9048, 
  -74.9084, -74.9333, -74.95183, -74.94583, -74.9484, -74.95218, -74.9587, -74.96215, -74.96678, -74.96953, 
  -74.97537, -74.9776, -74.98103, -74.97948, -74.99218, -75.0205, -75.02788, -75.02462, -75.02874, -75.0332, 
  -75.03749, -75.04693, -75.06203, -75.06583, -75.07012, -75.07235, -75.07561, -75.09346, -75.09569, -75.09415, 
  -75.09672, -75.09895, -75.10719, -75.10358, -75.11903, -75.1216, -75.13278, -75.14222, -75.14651, -75.15904, 
  -75.17585, -75.18943, -75.19629, -75.23234, -75.2428, -75.2507, -75.2622, -75.27593, -75.29017, -75.30718, 
  -75.31519, -75.31914, -75.32395, -75.32739, -75.35038, -75.37302, -75.40222, -75.40479, -75.40771, -75.41029, 
  -75.41132, -75.43056, -75.46903, -75.47366, -75.47641, -75.47349, -75.47997, -75.48066, -75.4889, -75.49079, 
  -75.50848, -75.52068, -75.52428, -75.53029, -75.53304, -75.54214, -75.55516, -75.57697, -75.578, -75.57319, 
  -75.56787, -75.56907, -75.56753, -75.56873, -75.5622, -75.56117, -75.55619, -75.55379, -75.55688, -75.55653, 
  -75.55293, -75.55052, -75.55344, -75.55327, -75.55585, -75.55499, -75.55722, -75.56066, -75.56237, -75.56684, 
  -75.56203, -75.56495, -75.56289, -75.56375, -75.56632, -75.56838, -75.56804, -75.57148, -75.56838, -75.57663, 
  -75.57971, -75.58263, -75.58263, -75.57954, -75.5828, -75.58709, -75.59173, -75.59963, -75.60306, -75.60753, 
  -75.61285, -75.60873, -75.61114, -75.60341, -75.59516, -75.59139, -75.59448, -75.59448, -75.59242, -75.60048, 
  -75.59688, -75.60855, -75.61474, -75.63878, -75.64428, -75.64857, -75.65544, -75.65767, -75.66197, -75.65647, 
  -75.65853, -75.67653, -75.67344, -75.67773, -75.68976, -75.6889, -75.69061, -75.68873, -75.69147, -75.7059, 
  -75.70796, -75.71947, -75.73235, -75.74059, -75.74956, -75.75399, -75.75979, -75.76116, -75.76288, -75.76666, 
  -75.77027, -75.76889, -75.78332, -75.78246, -75.77541, -75.77627, -75.77404, -75.78176, -75.78211, -75.77129, 
  -75.76614, -75.76768, -75.76442, -75.76236, -75.76768, -75.76923, -75.77404, -75.77558, -75.77129, -75.76614, 
  -75.76459, -75.7682, -75.76854, -75.76064, -75.76407, -75.76132, -75.77077, -75.7718, -75.77764, -75.773, 
  -75.77392, -75.77117, -75.76894, -75.76225, -75.7559, -75.75384, -75.7516, -75.74903, -75.74714, -75.75057, 
  -75.74834, -75.74388, -75.73925, -75.73839, -75.74148, -75.74491, -75.74285, -75.73719, -75.7329, -75.7317, 
  -75.72844, -75.72535, -75.72037, -75.71814, -75.71608, -75.71985, -75.71574, -75.71385, -75.70887, -75.71144, 
  -75.70939, -75.70715, -75.70715, -75.70321, -75.70424, -75.70149, -75.70389, -75.6869, -75.68879, -75.68656, 
  -75.68587, -75.68107, -75.68038, -75.66802, -75.66167, -75.6608, -75.65256, -75.66149, -75.66029, -75.65085, 
  -75.65222, -75.64752, -75.64254, -75.63567, -75.63206, -75.63344, -75.63155, -75.62846, -75.62382, -75.62674, 
  -75.62451, -75.62794, -75.63361, -75.63996, -75.63842, -75.63516, -75.62485, -75.62726, -75.61918, -75.61712, 
  -75.6051, -75.60957, -75.60424, -75.60132, -75.59995, -75.60235, -75.61025, -75.60272, -75.59997, -75.60066, 
  -75.59739, -75.5986, -75.5919, -75.58383, -75.58297, -75.58554, -75.5785, -75.55601, -75.55257, -75.55154, 
  -75.57249, -75.57661, -75.57455, -75.57902, -75.59138, -75.59928, -75.61302, -75.63999, -75.64875, -75.65424, 
  -75.66108, -75.66073, -75.65558, -75.65146, -75.63188, -75.62518, -75.61316, -75.61233, -75.61662, -75.58897, 
  -75.57318, -75.58914, -75.59309, -75.61953, -75.6264, -75.63808, -75.66213, -75.67655, -75.67531, -75.67205, 
  -75.67411, -75.68664, -75.71807, -75.72888, -75.74331, -75.74777, -75.75481, -75.76529, -75.77592, -75.78674, 
  -75.79378, -75.80014, -75.81164, -75.81817, -75.818, -75.83122, -75.84067, -75.85801, -75.86123, -75.86569, 
  -75.86844, -75.87531, -75.87772, -75.88166, -75.88733, -75.89523, -75.9009, -75.92185, -75.93542, -75.93452, 
  -75.93212, -75.93864, -75.94002, -75.93864, -75.94122, -75.9462, -75.962, -75.96337, -75.97505, -75.98003, 
  -75.98433, -75.99498, -75.99927, -76.00768, -76.00731, -76.00542, -76.00645, -76.0092, -76.0092, -75.99821, 
  -75.99872, -76.0025, -76.00336, -76.01882, -76.02414, -76.03084, -76.02998, -76.02775, -76.02723, -76.02139, 
  -76.01933, -76.0171, -76.02002, -76.01882, -76.0159, -76.02723, -76.02757, -76.03307, -76.03032, -76.03616, 
  -76.02895, -76.0317, -76.0317, -76.03393, -76.0341, -76.03651, -76.03719, -76.04131, -76.03805, -76.04028, 
  -76.04664, -76.04544, -76.04664, -76.04131, -76.03874, -76.04234, -76.03616, -76.03376, -76.02981, -76.0317, 
  -76.05059, -76.06585, -76.0741, -76.09125, -76.11151, -76.11392, -76.10928, -76.10843, -76.10121, -76.10533, 
  -76.10619, -76.11461, -76.12697, -76.13642, -76.13075, -76.12938, -76.12474, -76.13178, -76.12582, -76.13281, 
  -76.12817, -76.1304, -76.14453, -76.1467, -76.16662, -76.17332, -76.19376, -76.21434, -76.24594, -76.25827, 
  -76.28026, -76.29004, -76.29812, -76.31268, -76.31955)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_1, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_union(Geo_0[c(1:23, 25, 30)]))
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
LATITUDE_VALUEs <- c(19.98267, 19.98107, 19.98188, 19.98357)
LONGITUDE_VALUEs <- c(-75.13488, -75.13421, -75.13288, -75.13385)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(19.98889, 19.98855, 19.98921, 19.98961, 19.99024, 19.99002, 19.99028)
LONGITUDE_VALUEs <- c(-75.13164, -75.13015, -75.12996, -75.13038, -75.13045, -75.13118, -75.1323)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  19.99174, 19.99102, 19.99158, 19.9907, 19.99174, 19.99469, 19.99541, 19.99465, 19.99356, 19.99344, 
  19.9942, 19.99469, 19.99473, 19.9942, 19.99408, 19.99352, 19.99308, 19.99174, 19.99219)
LONGITUDE_VALUEs <- c(
  -75.13027, -75.1298, -75.12933, -75.12774, -75.1265, -75.12615, -75.12765, -75.12898, -75.12911, -75.12868, 
  -75.12855, -75.12795, -75.1268, -75.1268, -75.12761, -75.12783, -75.12718, -75.12834, -75.12976)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(20.58949, 20.58837, 20.58644, 20.58322, 20.58483, 20.58901, 20.59206, 20.59062)
LONGITUDE_VALUEs <- c(-74.73198, -74.73301, -74.72923, -74.72803, -74.72649, -74.727, -74.73061, -74.73284)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(20.69989, 20.6994, 20.69683, 20.6978)
LONGITUDE_VALUEs <- c(-74.93162, -74.93334, -74.92819, -74.92665)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(20.70053, 20.69523, 20.68463, 20.68238, 20.68142, 20.67885, 20.68335, 20.6917)
LONGITUDE_VALUEs <- c(-74.91892, -74.92493, -74.89747, -74.89695, -74.8997, -74.89884, -74.89301, -74.89884)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(19.97381, 19.97467, 19.97591, 19.97605, 19.97689, 19.97743, 19.97692, 19.97676, 19.97566, 19.9738)
LONGITUDE_VALUEs <- c(-75.15298, -75.15227, -75.15046, -75.15201, -75.15198, -75.15081, -75.14867, -75.14597, -75.14416, -75.1445)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(19.97803, 19.97601, 19.97577, 19.9766, 19.97742, 19.97856, 19.97908, 19.97891)
LONGITUDE_VALUEs <- c(-75.87684,  -75.87666, -75.87612, -75.8738, -75.87355, -75.87419, -75.87575, -75.87645)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
Geo_1 <- Geo_1 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### UNITED STATES OF AMERICA #####
Geo_0 <- Geometric_Operations(Geo_2, MGeo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_1)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, st_union(Geo_0[1:239]))
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("CUBA", "UNITED STATES OF AMERICA"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, MGeo_1)

BRAZILIAN ISLAND is included in ARGENTINA in GeoDATA.

BRAZILIAN ISLAND is claimed by BRAZIL and by URUGUAY.

##### BRAZILIAN ISLAND #####
LATITUDE_VALUEs <- c(
  -30.1939, -30.18381, -30.17921, -30.1761, -30.17402, -30.17447, -30.17743, -30.17907,
  -30.18144, -30.18426, -30.18945,
  -30.18916, -30.18708, -30.18678, -30.18886, -30.19301)
LONGITUDE_VALUEs <- c(
  -57.64909, -57.6472, -57.64274, -57.63656, -57.62798, -57.62318, -57.61528, -57.60069,
  -57.60121, -57.60413, -57.61236,
  -57.61597, -57.62336, -57.63022, -57.63743, -57.64361)
MGeo_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- MGeo_1 %>% 
  mutate(NAME = "BRAZILIAN ISLAND", VISUALIZATION_NAME = "Brazilian Island", 
         ISO2 = NA, ISO3 = NA, M49_CODE = NA, SOVRN = NA, Claimed = "Brazil | Uruguay", COUNTRY = NA,
         CONTINENT = "AMERICAS",  CONTINENT_CODE = "019", SREGION = "Latin America and the Caribbean", SREGION_CODE = "419", 
         IREGION = "South America", IREGION_CODE = "005", SIREGION = IREGION, SIREGION_CODE = "005",
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) and TERRITORIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "BRAZIL")
Geo_2 <- GeoDATA %>% filter(NAME == "URUGUAY")
Geo_3 <- GeoDATA %>% filter(NAME == "ARGENTINA")

##### BRAZIL #####
Geo_0 <- Geometric_Operations(Geo_1, MGeo_1)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
LATITUDE_VALUEs <- c(
  -33.60478, -33.62662, -33.66367, -33.70211, -33.71982, -33.73866,
  -33.74425, -33.74253, -33.7481, -33.74624, -33.75195, -33.74781, -33.74981, -33.74853, -33.73925, -33.73968, 
  -33.72969, -33.72469, -33.72069, -33.71826, -33.71584, -33.71284, -33.70655, -33.70427, -33.69997, -33.69826, 
  -33.69326, -33.68911, -33.67883, -33.67369, -33.67297, -33.66869, -33.6684, -33.65011, -33.64311, -33.63296, 
  -33.6261, -33.61352, -33.61024, -33.60251, -33.59365, -33.52661, -33.45932, -33.35414, -33.26615, -33.15355, 
  -33.05304, -32.9344, -32.91884, -32.89924, -32.8508, -32.84229, -32.80767, -32.80045, -32.79411, -32.78891, 
  -32.78732, -32.78819, -32.78602, -32.76928, -32.74113, -32.65359, -32.64622, -32.64188, -32.64058, -32.63147, 
  -32.62352, -32.61166, -32.60328, -32.6053, -32.62106, -32.62048, -32.60501, -32.59619, -32.58534, -32.58433, 
  -32.59243, -32.59156, -32.56943, -32.57044, -32.58722, -32.57927, -32.56784, -32.56104, -32.55814, -32.56668, 
  -32.56582, -32.55612, -32.53065, -32.5211, -32.51618, -32.51198, -32.50214, -32.49808, -32.49287, -32.48665, 
  -32.48056, -32.48399, -32.48071, -32.48867, -32.48867, -32.48216, -32.48071, -32.48882, -32.48809, -32.4836, 
  -32.47897, -32.47535, -32.47303, -32.47405, -32.4584, -32.45189, -32.43465, -32.4316, -32.42421, -32.41639, 
  -32.40059, -32.3903, -32.38436, -32.36856, -32.35232, -32.33288, -32.32374, -32.31954, -32.31141, -32.31301, 
  -32.29632, -32.29066, -32.28022, -32.27499, -32.27528, -32.25975, -32.25873, -32.25307, -32.24131, -32.23783, 
  -32.2204, -32.21227, -32.20602, -32.20297, -32.20748, -32.19818, -32.18903, -32.18656, -32.18903, -32.18772, 
  -32.17639, -32.17493, -32.15299, -32.15067, -32.15343, -32.14965, -32.14558, -32.13918, -32.11723, -32.10604, 
  -32.10444, -32.09978, -32.10618, -32.0956, -32.09095, -32.07771, -32.08018, -32.07582, -32.07975, -32.07146, 
  -32.07247, -32.06796, -32.07131, -32.06244, -32.05938, -32.06011, -32.05574, -32.05473, -32.04818, -32.04731, 
  -32.04178, -32.03887, -32.04061, -32.03828, -32.03406, -32.03304, -32.02882, -32.0313, -32.0249, -32.02198, 
  -32.01223, -32.01165, -32.00525, -32.00132, -31.99666, -31.99811, -31.9952, -31.99666, -31.99287, -31.99578, 
  -31.99826, -32, -31.99506, -31.99506, -31.98865, -31.98545, -31.97991, -31.977, -31.96593, -31.962, 
  -31.9636, -31.95792, -31.95923, -31.95399, -31.95705, -31.95501, -31.95545, -31.95122, -31.9502, -31.94263, 
  -31.93972, -31.93535, -31.93724, -31.93331, -31.93331, -31.92996, -31.93068, -31.92165, -31.92194, -31.91801, 
  -31.91743, -31.91393, -31.91509, -31.9081, -31.90839, -31.90431, -31.90446, -31.90096, -31.9014, -31.89688, 
  -31.89892, -31.89542, -31.89761, -31.89673, -31.90329, -31.90519, -31.91291, -31.91582, -31.91932, -31.92005, 
  -31.92355, -31.91815, -31.92355, -31.92879, -31.93098, -31.93564, -31.9352, -31.92996, -31.93127, -31.92646, 
  -31.92442, -31.91845, -31.91218, -31.896, -31.89804, -31.89455, -31.88843, -31.88653, -31.88201, -31.8788, 
  -31.87399, -31.65244, -31.63958, -31.63578, -31.62803, -31.6295, -31.62657, -31.62116, -31.62189, -31.61882, 
  -31.61371, -31.61371, -31.60903, -31.60874, -31.60581, -31.60684, -31.60084, -31.60347, -31.59953, -31.59806, 
  -31.59368, -31.59365, -31.58984, -31.59277, -31.58312, -31.56966, -31.57025, -31.56586, -31.5663, -31.55796, 
  -31.55182, -31.54216, -31.53821, -31.52504, -31.52124, -31.50939, -31.511, -31.50851, -31.511, -31.5047, 
  -31.50587, -31.50236, -31.49929, -31.49168, -31.49475, -31.48713, -31.4826, -31.48245, -31.47059, -31.46064, 
  -31.45668, -31.45405, -31.44424, -31.44702, -31.44468, -31.43765, -31.43545, -31.43867, -31.43999, -31.43779, 
  -31.43853, -31.42974, -31.43003, -31.42505, -31.42754, -31.42417, -31.42754, -31.42564, -31.43442, -31.43003, 
  -31.43267, -31.42974, -31.43018, -31.43516, -31.43618, -31.4416, -31.41831, -31.41875, -31.40776, -31.39824, 
  -31.38329, -31.37963, -31.37435, -31.37582, -31.38139, -31.38359, -31.37875, -31.38491, -31.38109, -31.37054, 
  -31.36834, -31.36336, -31.35486, -31.35193, -31.34005, -31.33873, -31.32407, -31.31659, -31.29532, -31.28931, 
  -31.283, -31.28329, -31.26994, -31.26701, -31.27009, -31.26833, -31.2695, -31.27302, -31.27581, -31.27801, 
  -31.28417, -31.28975, -31.2943, -31.30075, -31.30412, -31.30764, -31.30823, -31.31351, -31.31468, -31.32055, 
  -31.32392, -31.33287, -31.33037, -31.33169, -31.31776, -31.31468, -31.30882, -31.31336, -31.30398, -31.29488, 
  -31.28491, -31.2852, -31.28124, -31.27728, -31.2742, -31.26833, -31.27053, -31.2651, -31.25894, -31.26187, 
  -31.25395, -31.25087, -31.21681, -31.21109, -31.2058, -31.20287, -31.19611, -31.19464, -31.18627, -31.17849, 
  -31.17834, -31.171, -31.17129, -31.16307, -31.16101, -31.15895, -31.15646, -31.14999, -31.14309, -31.1447, 
  -31.14147, -31.14661, -31.14529, -31.13589, -31.13795, -31.1331, -31.13398, -31.12031, -31.11723, -31.11282, 
  -31.10958, -31.10444, -31.08724, -31.08518, -31.07004, -31.06739, -31.06342, -31.0571, -31.05284, -31.04916, 
  -31.03813, -31.04048, -31.03563, -31.03592, -31.0293, -31.02386, -31.02004, -31.02386, -31.02062, -31.02798, 
  -31.02724, -31.02004, -31.01415, -31.01783, -31.01208, -31.00487, -31.00148, -30.99236, -30.9928, -30.98309, 
  -30.97867, -30.97161, -30.9722, -30.9588, -30.95983, -30.95291, -30.94982, -30.95468, -30.95188, -30.95365, 
  -30.94835, -30.94275, -30.93996, -30.927, -30.92376, -30.92729, -30.92494, -30.9083, -30.90344, -30.89828, 
  -30.89872, -30.90255, -30.89666, -30.89106, -30.8837, -30.87338, -30.86882, -30.84774, -30.84141, -30.83271, 
  -30.83787, -30.84126, -30.84082, -30.84936, -30.84804, -30.84288, -30.84185, -30.84789, -30.84509, -30.84907, 
  -30.84922, -30.85408, -30.85718, -30.86602, -30.86336, -30.87235, -30.88237, -30.89386, -30.91492, -30.9326, 
  -30.94349, -30.9482, -30.94688, -30.95378, -30.95334, -30.95643, -30.9526, -30.9445, -30.94377, -30.95496, 
  -30.95466, -30.94922, -30.94819, -30.94303, -30.94127, -30.94318, -30.94554, -30.95172, -30.95731, -30.96217, 
  -30.96614, -30.97365, -30.97954, -30.98175, -30.97866, -30.9791, -30.98351, -30.99838, -30.9972, -30.99941, 
  -30.99587, -30.99911, -31.00323, -31.01, -31.01721, -31.01441, -31.0203, -31.0406, -31.0403, -31.04442, 
  -31.04192, -31.04427, -31.04221, -31.04471, -31.06133, -31.06457, -31.06618, -31.07015, -31.07736, -31.07354, 
  -31.06677, -31.07545, -31.07398, -31.07589, -31.08118, -31.08309, -31.08721, -31.08647, -31.0828, -31.07295, 
  -31.085, -31.08177, -31.08162, -31.07514, -31.04749, -31.0216, -31.01013, -31.0063, -31.00277, -30.99336, 
  -30.98953, -30.98423, -30.97938, -30.97319, -30.96893, -30.95715, -30.95317, -30.94802, -30.94302, -30.9383, 
  -30.92785, -30.92167, -30.91195, -30.90252, -30.89515, -30.85891, -30.84756, -30.8396, -30.83327, -30.83106, 
  -30.81941, -30.81823, -30.81912, -30.81086, -30.80717, -30.80246, -30.79965, -30.79435, -30.79154, -30.78506, 
  -30.78461, -30.77812, -30.77547, -30.7734, -30.77694, -30.77281, -30.77429, -30.76337, -30.75983, -30.75792, 
  -30.75025, -30.74434, -30.75733, -30.75423, -30.74552, -30.74449, -30.73165, -30.73328, -30.73711, -30.73933, 
  -30.73165, -30.72354, -30.72103, -30.71262, -30.70583, -30.69358, -30.68826, -30.68885, -30.68324, -30.68206, 
  -30.6797, -30.68088, -30.66523, -30.65416, -30.64279, -30.63422, -30.63319, -30.62506, -30.62152, -30.62107, 
  -30.61679, -30.60394, -30.60852, -30.60704, -30.5967, -30.59448, -30.58694, -30.58576, -30.57852, -30.57246, 
  -30.57734, -30.58798, -30.58384, -30.57955, -30.5698, -30.56714, -30.55457, -30.56093, -30.56063, -30.5531, 
  -30.54097, -30.52944, -30.52855, -30.51939, -30.52515, -30.52486, -30.53077, -30.52915, -30.5321, -30.52796, 
  -30.52915, -30.52412, -30.52441, -30.52131, -30.5185, -30.51702, -30.5114, -30.50445, -30.49705, -30.49054, 
  -30.49262, -30.49114, -30.49587, -30.49824, -30.49557, -30.50001, -30.50282, -30.50075, -30.50193, -30.49365, 
  -30.49202, -30.49365, -30.49084, -30.4901, -30.48818, -30.48611, -30.48655, -30.48522, -30.48537, -30.48167, 
  -30.47945, -30.47117, -30.47117, -30.47501, -30.47135, -30.47001, -30.45951, -30.46099, -30.45122, -30.44959, 
  -30.44723, -30.44737, -30.43894, -30.4308, -30.43287, -30.43183, -30.43539, -30.43272, -30.42488, -30.4231, 
  -30.42103, -30.41555, -30.41037, -30.40134, -30.38979, -30.38402, -30.39112, -30.39897, -30.39793, -30.39468, 
  -30.38638, -30.38194, -30.37083, -30.3658, -30.35854, -30.36076, -30.35899, -30.3621, -30.35854, -30.35647, 
  -30.35188, -30.34565, -30.34017, -30.33573, -30.33069, -30.32728, -30.31291, -30.31113, -30.32032, -30.31246, 
  -30.30461, -30.2889, -30.28979, -30.29572, -30.29186, -30.30002, -30.30133, -30.29422, -30.28547, -30.2662, 
  -30.26101, -30.26739, -30.25849, -30.25419, -30.25597, -30.24959, -30.24514, -30.23447, -30.22394, -30.21949, 
  -30.22216, -30.21756, -30.21593, -30.21251, -30.21281, -30.20762, -30.20317, -30.20777, -30.19723, -30.2005, 
  -30.19382, -30.20569, -30.19768, -30.18907, -30.17676, -30.17572, -30.18076, -30.17127, -30.17082, -30.16043, 
  -30.16563, -30.15895, -30.15346, -30.13282, -30.12659, -30.12139, -30.10609, -30.10253, -30.10773, -30.10654, 
  -30.0954, -30.08887, -30.08991, -30.09466, -30.09199, -30.08857, -30.08604, -30.08887, -30.08753, -30.09822, 
  -30.11441, -30.11233, -30.10788, -30.10669, -30.11129, -30.10979, -30.10162, -30.09984, -30.09628, -30.09613, 
  -30.09375, -30.10147, -30.09702, -30.09791, -30.08811, -30.08573, -30.08811, -30.08692, -30.09509, -30.10207, 
  -30.10563, -30.10147, -30.09821, -30.10192, -30.0994, -30.09004, -30.09004, -30.08826, -30.08529, -30.08618, 
  -30.09004, -30.09063, -30.10103, -30.10667, -30.11009, -30.11335, -30.11024, -30.1141, -30.12152, -30.12152, 
  -30.11395, -30.11618, -30.1135, -30.12019, -30.12271, -30.12702, -30.12924, -30.12479, -30.12568, -30.13281, 
  -30.13503, -30.13815, -30.14305, -30.14617, -30.14067, -30.14067, -30.15834, -30.1665, -30.17199, -30.18461, 
  -30.19277, -30.19751, -30.2082, -30.21324, -30.21739, -30.21858, -30.22437, -30.23297, -30.24305, -30.24083, 
  -30.2435, -30.24854, -30.25136, -30.26426, -30.27627, -30.28042, -30.28323, -30.28575, -30.28472, -30.28901, 
  -30.28872, -30.29035, -30.28145, -30.27345, -30.26648, -30.27152, -30.27893, -30.28264, -30.28546, -30.28738, 
  -30.29391, -30.29435, -30.28842, -30.27375, -30.26885, -30.25758, -30.25847, -30.27137, -30.27226, -30.27804, 
  -30.2856, -30.28131, -30.27286, -30.27093, -30.27834, -30.29672, -30.30413, -30.30443, -30.30087, -30.30013, 
  -30.3028, -30.29924, -30.29479, -30.29168, -30.28412, -30.2822, -30.27819, -30.27656, -30.27463, -30.27612, 
  -30.26604, -30.26693, -30.27908, -30.28753, -30.28961, -30.28472, -30.28575, -30.28249, -30.273, -30.26485, 
  -30.26011, -30.2518, -30.2297, -30.21116, -30.18995,
  -30.18945, -30.18426, -30.18144, -30.17907,
  -30.17926, -30.17912, -30.17719, -30.16071, -30.12301, -30.10207, -30.08692, -30.07221, -30.03581, -30.02571, 
  -30.01634, -30.01322, -30.0049, -29.99241, -29.97189, -29.9234, -29.89468, -29.87816, -29.83082, -29.78777, 
  -29.77645, -29.78196, -29.76915, -29.70431, -29.69625, -29.6879, -29.6803, -29.65703, -29.6445, -29.6442, 
  -29.63704, -29.61077, -29.60107, -29.5742, -29.56943, -29.53448, -29.50789, -29.48787, -29.47129, -29.45484, 
  -29.43586, -29.4085, -29.38606, -29.37425, -29.36871, -29.36916, -29.36123, -29.28969, -29.256, -29.23039, 
  -29.19578, -29.164, -29.14901, -29.14257, -29.12877, -29.11498, -29.11632, -29.09263, -29.08123, -29.06982, 
  -29.04867, -29.02555, -29.01476, -29.00229, -28.98757, -28.97631, -28.95243, -28.93455, -28.90029, -28.88196, 
  -28.81234, -28.79489, -28.78406, -28.77669, -28.77368, -28.7648, -28.68983, -28.62491, -28.61647, -28.60201, 
  -28.5794, -28.54562, -28.5221, -28.50038, -28.49464, -28.48076, -28.48091, -28.47035, -28.4065, -28.35998, 
  -28.35394, -28.36663, -28.36769, -28.37584, -28.39231, -28.42235, -28.42703, -28.41994, -28.3846, -28.34186, 
  -28.32841, -28.31723, -28.31058, -28.28443, -28.27521, -28.25797, -28.2424, -28.22637, -28.22652, -28.21805, 
  -28.18265, -28.17871, -28.17084, -28.16857, -28.16494, -28.15874, -28.15102, -28.13664, -28.12286, -28.11484, 
  -28.11741, -28.12453, -28.14148, -28.1486, -28.16403, -28.16312, -28.15208, -28.13558, -28.11847, -28.11469, 
  -28.09212, -28.08122, -28.07577, -28.08563, -28.09623, -28.09956, -28.09865, -28.05791, -28.05458, -28.0523, 
  -28.04821, -28.0364, -28.02291, -28.0123, -27.99487, -27.98184, -27.97486, -27.97153, -27.96516, -27.94272, 
  -27.93119, -27.92331, -27.92149, -27.93316, -27.92892, -27.90935, -27.88341, -27.87127, -27.85958, -27.85518, 
  -27.86095, -27.87446, -27.89585, -27.89539, -27.88629, -27.85943, -27.85063, -27.84183, -27.8479, -27.85685, 
  -27.85807, -27.85002, -27.83393, -27.82422, -27.81345, -27.80176, -27.7963, -27.78521, -27.77549, -27.76926, 
  -27.77397, -27.79554, -27.79812, -27.79311, -27.77503, -27.77002, -27.77184, -27.7764, -27.77868, -27.77412, 
  -27.75255, -27.72976, -27.72034, -27.69101, -27.68052, -27.64084, -27.62882, -27.62578, -27.62913, -27.62396, 
  -27.60357, -27.57178, -27.55306, -27.53266, -27.52992, -27.53099, -27.53647, -27.56402, -27.57619, -27.58589, 
  -27.58441, -27.57543, -27.56554, -27.56128, -27.56326, -27.57528, -27.57193, -27.55823, -27.52551, -27.51028, 
  -27.50496, -27.50861, -27.54058, -27.54651, -27.54225, -27.52475, -27.50359, -27.48272, -27.46033, -27.45257, 
  -27.45455, -27.48181, -27.49567, -27.50343, -27.50709, -27.50412, -27.48577, -27.48029, -27.4812, -27.47724, 
  -27.46508, -27.45698, -27.44723, -27.43291, -27.42392, -27.42255, -27.42575, -27.42149, -27.40579, -27.40747, 
  -27.42728, -27.44935, -27.46656, -27.46672, -27.44996, -27.43655, -27.40471, -27.40242, -27.42909, -27.44448, 
  -27.44859, -27.43808, -27.41629, -27.40013, -27.39372, -27.3928, -27.3861, -27.37131, -27.35683, -27.34082, 
  -27.30315, -27.29033, -27.26394, -27.25295, -27.25371, -27.26714, -27.2795, -27.28454, -27.29628, -27.30391, 
  -27.2946, -27.27355, -27.26104, -27.25493, -27.24685, -27.22746, -27.21724, -27.20395, -27.19617, -27.1954, 
  -27.19968, -27.19632, -27.17968, -27.1612, -27.15081, -27.1583, -27.17448, -27.17708, -27.15463, -27.13156, 
  -27.12408, -27.1282, -27.1612, -27.16929, -27.16547, -27.15509, -27.14424, -27.14667, -27.13599, -27.14027, 
  -27.12744, -27.12637, -27.13065, -27.12423, -27.11094, -27.10299, -27.09688, -27.10666, -27.11063, -27.10544, 
  -27.10299, -27.08236, -27.06585, -27.07976, -27.07487, -27.07091, -27.07212, -27.05867, -27.03956, -27.03956, 
  -27.05576, -27.0686, -27.06215, -27.05486, -27.02671, -27.02534, -27.03375, -27.04567, -27.04552, -27.03344, 
  -27.03252, -27.0209, -27.01834, -27.00775, -27.00362, -27.01509, -27.00591, -26.99322, -26.98955, -26.99429, 
  -26.98297, -26.97746, -26.97303, -26.97318, -26.95819, -26.96599, -26.95543, -26.93698, -26.93278, -26.94732, 
  -26.94135, -26.93003, -26.91166, -26.90906, -26.90033, -26.89421, -26.88686, -26.87247, -26.86987, -26.86206, 
  -26.85792, -26.86175, -26.86129, -26.86527, -26.85715, -26.85271, -26.84215, -26.84888, -26.84215, -26.83862, 
  -26.82836, -26.81871, -26.81427, -26.80982, -26.81549, -26.81427, -26.79634, -26.79818, -26.78178, -26.77228, 
  -26.77136, -26.76768, -26.76584, -26.7732, -26.77335, -26.76584, -26.76308, -26.76079, -26.766, -26.75879, 
  -26.74961, -26.74762, -26.7395, -26.73168, -26.73045, -26.74134, -26.74118, -26.73658, -26.73352, -26.72784, 
  -26.72094, -26.70944, -26.7099, -26.71987, -26.71864, -26.71895, -26.70024, -26.69104, -26.67938, -26.6823, 
  -26.69073, -26.69288, -26.68368, -26.67969, -26.67892, -26.67156, -26.66711, -26.66895, -26.6487, -26.64778, 
  -26.65837, -26.65668, -26.64471, -26.64796, -26.64165, -26.63474, -26.64517, -26.62906, -26.63152, -26.6258, 
  -26.61801, -26.60888, -26.60635, -26.60072, -26.59346, -26.58563, -26.58947, -26.56214, -26.56245, -26.55569, 
  -26.55753, -26.56751, -26.5649, -26.55815, -26.55999, -26.55062, -26.54632, -26.53864, -26.54356, -26.53818, 
  -26.53342, -26.52697, -26.52329, -26.52728, -26.51806, -26.51223, -26.50854, -26.49871, -26.50731, -26.50255, 
  -26.50961, -26.50501, -26.50101, -26.48887, -26.49087, -26.48056, -26.47411, -26.47288, -26.48271, -26.4738, 
  -26.47134, -26.4632, -26.4698, -26.45428, -26.44998, -26.4403, -26.44337, -26.43553, -26.42887, -26.42877, 
  -26.42308, -26.41447, -26.41647, -26.4117, -26.40801, -26.40678, -26.39925, -26.39556, -26.3868, -26.3891, 
  -26.37711, -26.37342, -26.36296, -26.3605, -26.35296, -26.35296, -26.33604, -26.33081, -26.32496, -26.31065, 
  -26.30696, -26.29095, -26.28664, -26.27264, -26.26325, -26.24816, -26.25047, -26.24077, -26.23569, -26.21259, 
  -26.2052, -26.19518, -26.19195, -26.16129, -26.15282, -26.12755, -26.12847, -26.11799, -26.11629, -26.10828, 
  -26.09949, -26.08038, -26.06372, -26.05833, -26.05139, -26.0409, -26.04491, -26.03766, -26.04213, -26.03103, 
  -26.03565, -26.03118, -26.02362, -26.02131, -26.01591, -26.01313, -26.00758, -26.00619, -25.99956, -26.00079, 
  -25.99493, -25.98845, -25.98382, -25.9903, -25.98999, -25.98258, -25.98119, -25.97471, -25.97656, -25.97178, 
  -25.96422, -25.96345, -25.96067, -25.95453, -25.93273, -25.93149, -25.92007, -25.92964, -25.92578, -25.91698, 
  -25.9122, -25.90988, -25.91482, -25.90633, -25.9037, -25.89645, -25.89506, -25.8878, -25.88795, -25.88286, 
  -25.88255, -25.8776, -25.87869, -25.87096, -25.86726, -25.85814, -25.86123, -25.85644, -25.85443, -25.84949, 
  -25.83899, -25.84269, -25.83497, -25.82616, -25.82554, -25.81457, -25.81256, -25.81689, -25.81195, -25.80824, 
  -25.80267, -25.80035, -25.79046, -25.79093, -25.78382, -25.77284, -25.7665, -25.75692, -25.76094, -25.75182, 
  -25.75336, -25.74903, -25.74594, -25.74099, -25.74579, -25.7311, -25.72615, -25.71625, -25.72058, -25.71316, 
  -25.71223, -25.70682, -25.70651, -25.69351, -25.70094, -25.70821, -25.70651, -25.69057, -25.68965, -25.68578, 
  -25.68222, -25.67588, -25.67278, -25.65824, -25.65716, -25.6536, -25.66242, -25.65777, -25.65298, -25.64586, 
  -25.6471, -25.63967, -25.64462, -25.64245, -25.62357, -25.62203, -25.63611, -25.62791, -25.63332, -25.61614, 
  -25.62311, -25.61755, -25.6109, -25.61152, -25.62127, -25.62297, -25.63195, -25.64711, -25.64309, -25.627, 
  -25.61988, -25.61121, -25.61523, -25.60347, -25.60424, -25.60006, -25.57978, -25.5643, -25.56383, -25.58442, 
  -25.58396, -25.55748, -25.55965, -25.5725, -25.58891, -25.6092, -25.61864, -25.61833, -25.57188, -25.55345, 
  -25.53162, -25.50884, -25.49784, -25.49382, -25.50946, -25.5437, -25.53378, -25.54308, -25.55702, -25.56708, 
  -25.58102, -25.58644, -25.57684, -25.56197, -25.566, -25.59542, -25.59712, -25.55345, -25.57142, -25.60331, 
  -25.60749, -25.5931, -25.603, -25.62545, -25.64386, -25.64603, -25.6612, -25.69276, -25.69771, -25.66104, 
  -25.6363, -25.61401, -25.62949, -25.61742, -25.60813, -25.59745, -25.59404, -25.58676, -25.59273, -25.57214,
  -24.95152, -32.45703)
LONGITUDE_VALUEs <- c(
  -53.1737, -53.20397, -53.25505, -53.31195, -53.33872, -53.36414,
  -53.36969, -53.37141, -53.38034, -53.38584, -53.39425, -53.39906, -53.4037, -53.41641, -53.42671, -53.43238, 
  -53.43032, -53.43581, -53.43272, -53.43564, -53.43461, -53.43856, -53.43667, -53.43924, -53.43598, -53.44319, 
  -53.43976, -53.53057, -53.53091, -53.52421, -53.52816, -53.52834, -53.53143, -53.53435, -53.52902, -53.52937, 
  -53.52559, -53.53675, -53.53211, -53.53263, -53.5237, -53.52544, -53.51138, -53.50829, -53.52182, -53.51821, 
  -53.4444, -53.24405, -53.30948, -53.29471, -53.18534, -53.17524, -53.15003, -53.15536, -53.15038, -53.13836, 
  -53.11397, -53.08615, -53.08357, -53.07928, -53.07549, -53.18227, -53.18347, -53.19257, -53.20871, -53.2348, 
  -53.24356, -53.24473, -53.2504, -53.27393, -53.2796, -53.29454, -53.30173, -53.32251, -53.33316, -53.33797, 
  -53.34655, -53.35477, -53.37057, -53.37795, -53.38534, -53.40629, -53.41676, -53.41676, -53.42445, -53.4262, 
  -53.43376, -53.4329, -53.44818, -53.45899, -53.4559, -53.46036, -53.46294, -53.46139, -53.46669, -53.46171, 
  -53.47081, -53.48149, -53.50464, -53.51254, -53.51701, -53.51581, -53.52182, -53.52422, -53.52903, -53.5292, 
  -53.54429, -53.53948, -53.54095, -53.55605, -53.56652, -53.58437, -53.58901, -53.60085, -53.60463, -53.61578, 
  -53.6115, -53.62489, -53.64565, -53.64411, -53.63243, -53.64582, -53.6429, -53.65629, -53.65698, -53.64737, 
  -53.64273, -53.6575, -53.65578, -53.6587, -53.66539, -53.67517, -53.67878, -53.67689, -53.67998, -53.67586, 
  -53.6841, -53.69475, -53.69235, -53.69715, -53.70419, -53.71174, -53.70196, -53.70539, -53.7102, -53.71534, 
  -53.71311, -53.72341, -53.71689, -53.7229, -53.73182, -53.7356, -53.72547, -53.72547, -53.74436, -53.73732, 
  -53.74075, -53.7399, -53.73149, -53.72434, -53.74701, -53.74509, -53.7547, -53.75591, -53.76484, -53.77497, 
  -53.79043, -53.78991, -53.80467, -53.81497, -53.81394, -53.82734, -53.83077, -53.83438, -53.83644, -53.833, 
  -53.83403, -53.83695, -53.84158, -53.84313, -53.84038, -53.83729, -53.84811, -53.8524, -53.85172, -53.85377, 
  -53.85137, -53.85446, -53.85411, -53.84878, -53.85737, -53.86046, -53.85995, -53.86407, -53.86441, -53.87214, 
  -53.86905, -53.87128, -53.87832, -53.89292, -53.89155, -53.89687, -53.89702, -53.9063, -53.91248, -53.92708, 
  -53.9324, -53.93564, -53.94062, -53.94646, -53.95453, -53.95642, -53.96071, -53.96157, -53.96604, -53.96775, 
  -53.97256, -53.9717, -53.96758, -53.96638, -53.96449, -53.96466, -53.96157, -53.9631, -53.96928, -53.96773, 
  -53.99023, -53.99779, -54.00534, -54.00706, -54.01582, -54.01153, -54.0184, -54.01531, -54.02406, -54.02389, 
  -54.03162, -54.03214, -54.03488, -54.04004, -54.04519, -54.05446, -54.05704, -54.06288, -54.06288, -54.06545, 
  -54.0685, -54.07331, -54.08018, -54.08053, -54.08791, -54.08602, -54.08974, -54.09135, -54.09409, -54.10251, 
  -54.09993, -54.10766, -54.1049, -54.13324, -54.13393, -54.14149, -54.1444, -54.14233, -54.14371, -54.15333, 
  -54.15779, -54.4563, -54.45132, -54.4551, -54.45458, -54.45802, -54.46145, -54.46025, -54.46282, -54.46471, 
  -54.46283, -54.46747, -54.46541, -54.46232, -54.46112, -54.45665, -54.45717, -54.45356, -54.4527, -54.45923, 
  -54.4582, -54.46231, -54.46352, -54.4697, -54.46953, -54.47295, -54.48102, -54.4836, -54.48789, -54.49425, 
  -54.4903, -54.4951, -54.50127, -54.50385, -54.51054, -54.51621, -54.51861, -54.52085, -54.52377, -54.52497, 
  -54.52858, -54.532, -54.54556, -54.55432, -54.55759, -54.56059, -54.56909, -54.5751, -54.57871, -54.58777, 
  -54.58691, -54.67004, -54.68515, -54.68979, -54.69477, -54.69575, -54.70176, -54.70262, -54.70966, -54.71429, 
  -54.72099, -54.72374, -54.73473, -54.73885, -54.75019, -54.75276, -54.76324, -54.76839, -54.79016, -54.79669, 
  -54.79978, -54.80218, -54.80957, -54.81197, -54.82588, -54.83773, -54.85731, -54.8616, -54.85816, -54.87808, 
  -54.8875, -54.88441, -54.89162, -54.89986, -54.89798, -54.90296, -54.91858, -54.92889, -54.94091, -54.93816, 
  -54.93301, -54.93627, -54.93558, -54.96014, -54.95997, -54.95207, -54.95774, -54.97988, -54.98125, -54.99482, 
  -54.99446, -55.00201, -55.00133, -55.00545, -55.01015, -55.01581, -55.0316, -55.03143, -55.03606, -55.03091, 
  -55.03606, -55.0328, -55.03847, -55.03864, -55.0431, -55.04207, -55.04911, -55.05271, -55.05976, -55.0565, 
  -55.0601, -55.05839, -55.06542, -55.07435, -55.09117, -55.10284, -55.10732, -55.12174, -55.12157, -55.1504, 
  -55.15572, -55.16361, -55.16585, -55.16276, -55.16756, -55.17066, -55.1789, -55.18405, -55.23365, -55.23897, 
  -55.24017, -55.24738, -55.24789, -55.25373, -55.24978, -55.25545, -55.25803, -55.28188, -55.28532, -55.27708, 
  -55.27056, -55.27296, -55.27708, -55.29098, -55.28944, -55.28986, -55.28504, -55.29054, -55.29037, -55.29792, 
  -55.30531, -55.31235, -55.31817, -55.31971, -55.32676, -55.33328, -55.33981, -55.33809, -55.33002, -55.33139, 
  -55.32882, -55.33414, -55.32778, -55.33895, -55.35011, -55.35972, -55.35921, -55.35303, -55.35371, -55.35028, 
  -55.34992, -55.36022, -55.36383, -55.36812, -55.37361, -55.37103, -55.37309, -55.37979, -55.38666, -55.39783, 
  -55.40504, -55.40624, -55.41534, -55.42376, -55.42461, -55.43766, -55.43474, -55.43697, -55.4313, -55.42495, 
  -55.43199, -55.43371, -55.43748, -55.4409, -55.45223, -55.45481, -55.46374, -55.46906, -55.47508, -55.47903, 
  -55.48624, -55.48675, -55.49053, -55.48589, -55.49327, -55.49825, -55.50444, -55.5106, -55.50785, -55.51696, 
  -55.52486, -55.53293, -55.53413, -55.54547, -55.55163, -55.55284, -55.56348, -55.56571, -55.57859, -55.57808, 
  -55.58667, -55.58632, -55.59113, -55.60397, -55.61153, -55.61273, -55.62149, -55.62785, -55.63558, -55.63884, 
  -55.64262, -55.64639, -55.64502, -55.64966, -55.65704, -55.66339, -55.6536, -55.65497, -55.64227, -55.66339, 
  -55.65841, -55.6615, -55.66459, -55.66595, -55.67076, -55.67282, -55.68879, -55.68896, -55.69549, -55.7039, 
  -55.70957, -55.71129, -55.71644, -55.71507, -55.71884, -55.72417, -55.72108, -55.72486, -55.72262, -55.72571, 
  -55.72434, -55.73154, -55.72759, -55.73377, -55.74012, -55.74768, -55.74596, -55.75146, -55.75558, -55.75884, 
  -55.77254, -55.7746, -55.76825, -55.76602, -55.78164, -55.81325, -55.81239, -55.82716, -55.82973, -55.82956, 
  -55.83729, -55.84175, -55.8445, -55.85567, -55.86666, -55.86666, -55.86954, -55.86937, -55.88585, -55.89496, 
  -55.89753, -55.91299, -55.91814, -55.9257, -55.92673, -55.92999, -55.93046, -55.93871, -55.94214, -55.9813, 
  -55.99195, -56.00466, -56.01067, -56.00654, -56.01942, -56.01427, -56.01874, -56.01685, -56.01771, -56.0129, 
  -56.01341, -56.00757, -56.01134, -56.00567, -56.01185, -56.01048, -56.0134, -56.00877, -56.01632, -56.01014, 
  -56.01134, -56.00516, -56.01152, -56.00722, -56.0086, -55.98954, -55.99195, -56.00464, -56.00516, -56.00396, 
  -56.00911, -56.01357, -56.01752, -56.01632, -56.01203, -56.01512, -56.02542, -56.02491, -56.02096, -56.02283, 
  -56.0352, -56.03777, -56.03657, -56.04567, -56.04997, -56.05478, -56.06233, -56.0668, -56.06371, -56.0668, 
  -56.06422, -56.07329, -56.08789, -56.09493, -56.09803, -56.10146, -56.10644, -56.11829, -56.11863, -56.12465, 
  -56.13203, -56.13134, -56.12739, -56.13237, -56.14954, -56.15005, -56.14095, -56.1382, -56.137, -56.14129, 
  -56.14249, -56.15177, -56.16568, -56.17013, -56.16463, -56.17408, -56.18009, -56.18249, -56.17871, -56.17408, 
  -56.16995, -56.19071, -56.21561, -56.22076, -56.22342, -56.2344, -56.23492, -56.22428, -56.22514, -56.24179, 
  -56.24968, -56.25552, -56.26238, -56.25947, -56.26135, -56.25535, -56.26496, -56.27646, -56.28195, -56.27835, 
  -56.28814, -56.28985, -56.28574, -56.2926, -56.29466, -56.29946, -56.30787, -56.3156, -56.32092, -56.32435, 
  -56.33001, -56.3319, -56.33551, -56.33568, -56.33741, -56.33312, -56.33449, -56.34942, -56.34908, -56.35663, 
  -56.36006, -56.36401, -56.36504, -56.36401, -56.36057, -56.3592, -56.36778, -56.37465, -56.37722, -56.38941, 
  -56.38906, -56.38409, -56.38374, -56.38803, -56.38563, -56.38592, -56.38866, -56.39038, -56.3957, -56.39433, 
  -56.39759, -56.39519, -56.39828, -56.40171, -56.40343, -56.40635, -56.40653, -56.40017, -56.39948, -56.39725, 
  -56.3988, -56.40704, -56.41408, -56.41559, -56.42023, -56.42401, -56.42641, -56.44049, -56.4453, -56.45372, 
  -56.45423, -56.44462, -56.44444, -56.45508, -56.45594, -56.46264, -56.47964, -56.48411, -56.49201, -56.49184, 
  -56.49596, -56.50729, -56.50386, -56.51399, -56.52014, -56.52907, -56.53646, -56.54521, -56.54762, -56.54418, 
  -56.54384, -56.55105, -56.55088, -56.53731, -56.53679, -56.5404, -56.54057, -56.54521, -56.55655, -56.56101, 
  -56.57576, -56.57455, -56.58452, -56.59705, -56.60581, -56.61165, -56.61834, -56.62108, -56.60752, -56.60941, 
  -56.61525, -56.62778, -56.63998, -56.63998, -56.63242, -56.62486, -56.624, -56.64238, -56.64493, -56.65214, 
  -56.66571, -56.66828, -56.66107, -56.65729, -56.65042, -56.64493, -56.6463, -56.65094, -56.66193, -56.67962, 
  -56.68082, -56.69834, -56.69988, -56.70878, -56.7038, -56.7117, -56.71874, -56.73008, -56.73609, -56.7603, 
  -56.77473, -56.78229, -56.7845, -56.77746, -56.78021, -56.80082, -56.80391, -56.80905, -56.813, -56.81918, 
  -56.82296, -56.85112, -56.86466, -56.86981, -56.87462, -56.87273, -56.87427, -56.88063, -56.88784, -56.89007, 
  -56.90416, -56.90691, -56.90467, -56.90845, -56.91309, -56.91669, -56.91086, -56.91429, -56.91635, -56.92477, 
  -56.93177, -56.95496, -56.96887, -56.97694, -56.98243, -56.99343, -57.00425, -57.02345, -57.03014, -57.0298, 
  -57.04715, -57.04989, -57.05797, -57.06724, -57.0693, -57.06707, -57.06278, -57.06071, -57.06587, -57.07119, 
  -57.07342, -57.07823, -57.08766, -57.08663, -57.09264, -57.09109, -57.08525, -57.08371, -57.09058, -57.09521, 
  -57.09521, -57.10775, -57.11685, -57.11754, -57.1141, -57.11445, -57.10981, -57.10792, -57.10431, -57.10741, 
  -57.10569, -57.10981, -57.11032, -57.1189, -57.12285, -57.12955, -57.13505, -57.14535, -57.14432, -57.15821, 
  -57.15804, -57.16852, -57.1692, -57.16405, -57.16783, -57.16216, -57.1668, -57.15409, -57.16251, -57.1668, 
  -57.16938, -57.16646, -57.17659, -57.19614, -57.1994, -57.2025, -57.20181, -57.20353, -57.20919, -57.21778, 
  -57.23375, -57.2497, -57.25519, -57.2521, -57.26025, -57.26883, -57.27055, -57.26866, -57.27004, -57.27536, 
  -57.27845, -57.28325, -57.29218, -57.30127, -57.3018, -57.31124, -57.31639, -57.32085, -57.32857, -57.34436, 
  -57.35363, -57.35861, -57.35758, -57.36581, -57.37802, -57.39021, -57.38986, -57.39913, -57.40359, -57.41149, 
  -57.41955, -57.42196, -57.42093, -57.4223, -57.41921, -57.41458, -57.41526, -57.42367, -57.42951, -57.45336, 
  -57.46317, -57.48771, -57.49595, -57.49698, -57.50127, -57.50968, -57.52461, -57.52941, -57.55104, -57.55413, 
  -57.56683, -57.5682, -57.55533, -57.5598, -57.60683,
  -57.61236, -57.60413, -57.60121, -57.60069,
  -57.60049, -57.59568, -57.58384, -57.54266, -57.48034, -57.45786, -57.45459, -57.44704, -57.41322, -57.39966, 
  -57.3813, -57.36257, -57.34952, -57.33648, -57.32825, -57.32413, -57.32927, -57.32773, -57.29425, -57.24189, 
  -57.22095, -57.17187, -57.12774, -57.04741, -57.03265, -57.02749, -57.01805, -57.00724, -56.98766, -56.97359, 
  -56.96638, -56.97222, -56.96844, -56.94475, -56.93171, -56.90321, -56.86012, -56.81825, -56.80674, -56.80296, 
  -56.77705, -56.77996, -56.7731, -56.76263, -56.74424, -56.71867, -56.70219, -56.65979, -56.64744, -56.65482, 
  -56.64486, -56.60598, -56.60135, -56.59534, -56.59586, -56.57852, -56.54555, -56.5078, -56.42334, -56.41235, 
  -56.41184, -56.3981, -56.40063, -56.41579, -56.41476, -56.40927, -56.38832, -56.33546, -56.3006, -56.29751, 
  -56.30077, -56.29305, -56.27607, -56.25031, -56.19074, -56.17993, -56.12773, -56.05014, -56.02269, -56.00329, 
  -56.00105, -56.02526, -56.02423, -56.00054, -55.94696, -55.90785, -55.88467, -55.8802, -55.90372, -55.87694, 
  -55.85719, -55.79883, -55.75814, -55.73928, -55.72691, -55.718, -55.70477, -55.6919, -55.68812, -55.6682, 
  -55.67026, -55.68605, -55.70391, -55.73259, -55.77172, -55.78357, -55.77532, -55.72297, -55.71284, -55.69137, 
  -55.65429, -55.63386, -55.62665, -55.62665, -55.6251, -55.63025, -55.62048, -55.62065, -55.61567, -55.60657, 
  -55.58923, -55.58339, -55.5894, -55.587, -55.56297, -55.55404, -55.54838, -55.5477, -55.53671, -55.51319, 
  -55.50066, -55.49963, -55.48692, -55.47149, -55.46462, -55.45483, -55.44608, -55.41997, -55.4126, -55.41123, 
  -55.39629, -55.3762, -55.36778, -55.37105, -55.38342, -55.38513, -55.3714, -55.34824, -55.3369, -55.33553, 
  -55.33209, -55.32041, -55.30942, -55.28057, -55.26275, -55.24626, -55.23218, -55.21484, -55.20454, -55.1853, 
  -55.1704, -55.16061, -55.13726, -55.13039, -55.12318, -55.12696, -55.11717, -55.09021, -55.06207, -55.04353, 
  -55.0346, -55.02515, -55.02429, -55.03305, -55.05846, -55.07185, -55.08439, -55.0849, -55.0765, -55.05744, 
  -55.04318, -55.02396, -55.00988, -54.99941, -54.99271, -54.98155, -54.97159, -54.96643, -54.9548, -54.93711, 
  -54.9292, -54.90585, -54.90208, -54.89933, -54.90345, -54.90654, -54.8952, -54.88112, -54.85814, -54.84956, 
  -54.83857, -54.83169, -54.825, -54.81401, -54.80697, -54.80027, -54.7934, -54.7905, -54.78672, -54.7751, 
  -54.76234, -54.75238, -54.75049, -54.74019, -54.72442, -54.68476, -54.67342, -54.67067, -54.68012, -54.67892, 
  -54.67069, -54.65935, -54.64769, -54.63618, -54.62073, -54.61163, -54.60613, -54.59257, -54.59171, -54.5809, 
  -54.57008, -54.54485, -54.53884, -54.53764, -54.53112, -54.52195, -54.51068, -54.50021, -54.47774, -54.44975, 
  -54.44179, -54.44529, -54.46125, -54.47155, -54.46812, -54.45318, -54.44339, -54.43086, -54.41422, -54.40289, 
  -54.38401, -54.372, -54.3538, -54.34229, -54.33267, -54.33903, -54.34194, -54.33353, -54.30159, -54.29609, 
  -54.28548, -54.26694, -54.2702, -54.26488, -54.25378, -54.22976, -54.21672, -54.2131, -54.21413, -54.21104, 
  -54.19131, -54.1937, -54.18564, -54.17088, -54.1623, -54.15526, -54.15458, -54.15955, -54.15818, -54.10117, 
  -54.07371, -54.06393, -54.05156, -54.0289, -54.01912, -54.01466, -54.01672, -54.01329, -54.00402, -53.98343, 
  -53.97021, -53.95992, -53.95681, -53.96127, -53.94942, -53.92797, -53.91854, -53.90378, -53.88765, -53.88471, 
  -53.87012, -53.86086, -53.84642, -53.83715, -53.83115, -53.83784, -53.82652, -53.79891, -53.79872, -53.81879, 
  -53.82669, -53.82291, -53.81742, -53.80489, -53.80661, -53.81965, -53.81203, -53.80568, -53.79469, -53.78868, 
  -53.77528, -53.80619, -53.79882, -53.78096, -53.77134, -53.77437, -53.78405, -53.79813, -53.80174, -53.79332, 
  -53.78388, -53.76825, -53.75807, -53.77224, -53.78596, -53.78149, -53.77136, -53.76604, -53.76209, -53.75968, 
  -53.74766, -53.74989, -53.75846, -53.76432, -53.75419, -53.74079, -53.73049, -53.74595, -53.73994, -53.72379, 
  -53.71692, -53.73822, -53.7365, -53.72946, -53.72654, -53.71143, -53.69976, -53.71047, -53.70629, -53.67367, 
  -53.67109, -53.69891, -53.67281, -53.68036, -53.67814, -53.66938, -53.69806, -53.68827, -53.67917, -53.69755, 
  -53.69549, -53.68192, -53.67368, -53.66269, -53.65942, -53.67247, -53.67882, -53.69342, -53.6972, -53.68706, 
  -53.69908, -53.70045, -53.71024, -53.71024, -53.70406, -53.69668, -53.69994, -53.70938, -53.71779, -53.70783, 
  -53.69787, -53.69993, -53.71453, -53.71727, -53.73118, -53.73822, -53.74475, -53.74166, -53.73273, -53.71676, 
  -53.71418, -53.72225, -53.72981, -53.72963, -53.73393, -53.7357, -53.75144, -53.75076, -53.74268, -53.74406, 
  -53.75814, -53.75608, -53.7523, -53.74887, -53.742, -53.7365, -53.73204, -53.74251, -53.74286, -53.73667, 
  -53.7341, -53.72757, -53.71607, -53.71727, -53.73204, -53.72551, -53.72603, -53.71899, -53.72036, -53.72569, 
  -53.72294, -53.73204, -53.7341, -53.74368, -53.76089, -53.75213, -53.74028, -53.7408, -53.73255, -53.73383, 
  -53.72809, -53.73594, -53.72878, -53.7306, -53.72809, -53.7329, -53.72483, -53.7202, -53.70886, -53.70835, 
  -53.72123, -53.73308, -53.73806, -53.73583, -53.72569, -53.72552, -53.74321, -53.73067, -53.72398, -53.71917, 
  -53.72552, -53.71625, -53.71848, -53.72483, -53.73015, -53.72809, -53.73239, -53.7262, -53.71985, -53.71539, 
  -53.70422, -53.70285, -53.70903, -53.70268, -53.69598, -53.69994, -53.69547, -53.70354, -53.70681, -53.71007, 
  -53.71694, -53.70526, -53.69856, -53.69788, -53.70389, -53.70406, -53.6874, -53.68878, -53.688, -53.69359, 
  -53.69514, -53.69823, -53.70578, -53.70458, -53.70699, -53.69771, -53.69823, -53.70784, -53.70991, -53.70063, 
  -53.69737, -53.70235, -53.69943, -53.69016, -53.69514, -53.68947, -53.68706, -53.67127, -53.67436, -53.66096, 
  -53.66251, -53.65238, -53.64569, -53.64501, -53.64158, -53.64693, -53.63732, -53.64384, -53.65396, -53.64109, 
  -53.65346, -53.64934, -53.65792, -53.68435, -53.70049, -53.71336, -53.724, -53.73637, -53.74203, -53.74323, 
  -53.73808, -53.73963, -53.72727, -53.73139, -53.73053, -53.73774, -53.74735, -53.75078, -53.75799, -53.75713, 
  -53.76399, -53.77206, -53.7724, -53.7815, -53.77669, -53.78493, -53.7803, -53.79385, -53.79249, -53.8009, 
  -53.80536, -53.80056, -53.80399, -53.81085, -53.81841, -53.82029, -53.81257, -53.82338, -53.82784, -53.83694, 
  -53.83471, -53.82853, -53.83009, -53.83971, -53.84364, -53.83232, -53.83431, -53.82418, -53.81954, -53.82332, 
  -53.81748, -53.82675, -53.83448, -53.83345, -53.82126, -53.81971, -53.83568, -53.83362, -53.84805, -53.84942, 
  -53.83912, -53.8398, -53.83087, -53.82366, -53.83671, -53.8319, -53.84134, -53.84426, -53.83567, -53.83482, 
  -53.84306, -53.84924, -53.84992, -53.84134, -53.8355, -53.83739, -53.82897, -53.81953, -53.8197, -53.82812, 
  -53.82812, -53.82193, -53.82348, -53.84426, -53.83086, -53.83602, -53.85782, -53.84718, -53.83997, -53.84249, 
  -53.83395, -53.83499, -53.84752, -53.84924, -53.86675, -53.86365, -53.8585, -53.86227, -53.86966, -53.86811, 
  -53.87618, -53.8791, -53.86468, -53.8719, -53.85833, -53.85679, -53.85043, -53.85404, -53.84185, -53.84305, 
  -53.85885, -53.85919, -53.85387, -53.86383, -53.8731, -53.87551, -53.88839, -53.89113, -53.88426, -53.88152, 
  -53.87619, -53.87928, -53.88753, -53.89525, -53.88856, -53.89457, -53.91174, -53.91483, -53.92136, -53.91466, 
  -53.93662, -53.94262, -53.94159, -53.94983, -53.94777, -53.95481, -53.94502, -53.95172, -53.96288, -53.96117, 
  -53.96512, -53.96512, -53.97765, -53.97834, -53.96975, -53.96958, -54.00237, -54.01251, -54.0271, -54.04136, 
  -54.05578, -54.07395, -54.08408, -54.08408, -54.09061, -54.0882, -54.09335, -54.10366, -54.12426, -54.12115, 
  -54.10192, -54.09213, -54.09402, -54.10484, -54.13179, -54.16527, -54.19481, -54.20923, -54.20698, -54.17882, 
  -54.17264, -54.18637, -54.20853, -54.22776, -54.23789, -54.23583, -54.25558, -54.28148, -54.33128, -54.34207, 
  -54.35529, -54.3728, -54.39118, -54.38928, -54.4001, -54.40799, -54.4262, -54.42396, -54.43598, -54.44783, 
  -54.46962, -54.50053, -54.5256, -54.53917, -54.53418, -54.53452, -54.545, -54.55513, -54.59296, -54.59258,
  -53.47862, -52.64004)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_1, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_union(Geo_0[c(1:62, 65)]))
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
Geo_1 <- Geo_1 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

##### URUGUAY #####
LATITUDE_VALUEs <- c(
  -33.74425, -33.74253, -33.7481, -33.74624, -33.75195, -33.74781, -33.74981, -33.74853, -33.73925, -33.73968, 
  -33.72969, -33.72469, -33.72069, -33.71826, -33.71584, -33.71284, -33.70655, -33.70427, -33.69997, -33.69826, 
  -33.69326, -33.68911, -33.67883, -33.67369, -33.67297, -33.66869, -33.6684, -33.65011, -33.64311, -33.63296, 
  -33.6261, -33.61352, -33.61024, -33.60251, -33.59365, -33.52661, -33.45932, -33.35414, -33.26615, -33.15355, 
  -33.05304, -32.9344, -32.91884, -32.89924, -32.8508, -32.84229, -32.80767, -32.80045, -32.79411, -32.78891, 
  -32.78732, -32.78819, -32.78602, -32.76928, -32.74113, -32.65359, -32.64622, -32.64188, -32.64058, -32.63147, 
  -32.62352, -32.61166, -32.60328, -32.6053, -32.62106, -32.62048, -32.60501, -32.59619, -32.58534, -32.58433, 
  -32.59243, -32.59156, -32.56943, -32.57044, -32.58722, -32.57927, -32.56784, -32.56104, -32.55814, -32.56668, 
  -32.56582, -32.55612, -32.53065, -32.5211, -32.51618, -32.51198, -32.50214, -32.49808, -32.49287, -32.48665, 
  -32.48056, -32.48399, -32.48071, -32.48867, -32.48867, -32.48216, -32.48071, -32.48882, -32.48809, -32.4836, 
  -32.47897, -32.47535, -32.47303, -32.47405, -32.4584, -32.45189, -32.43465, -32.4316, -32.42421, -32.41639, 
  -32.40059, -32.3903, -32.38436, -32.36856, -32.35232, -32.33288, -32.32374, -32.31954, -32.31141, -32.31301, 
  -32.29632, -32.29066, -32.28022, -32.27499, -32.27528, -32.25975, -32.25873, -32.25307, -32.24131, -32.23783, 
  -32.2204, -32.21227, -32.20602, -32.20297, -32.20748, -32.19818, -32.18903, -32.18656, -32.18903, -32.18772, 
  -32.17639, -32.17493, -32.15299, -32.15067, -32.15343, -32.14965, -32.14558, -32.13918, -32.11723, -32.10604, 
  -32.10444, -32.09978, -32.10618, -32.0956, -32.09095, -32.07771, -32.08018, -32.07582, -32.07975, -32.07146, 
  -32.07247, -32.06796, -32.07131, -32.06244, -32.05938, -32.06011, -32.05574, -32.05473, -32.04818, -32.04731, 
  -32.04178, -32.03887, -32.04061, -32.03828, -32.03406, -32.03304, -32.02882, -32.0313, -32.0249, -32.02198, 
  -32.01223, -32.01165, -32.00525, -32.00132, -31.99666, -31.99811, -31.9952, -31.99666, -31.99287, -31.99578, 
  -31.99826, -32, -31.99506, -31.99506, -31.98865, -31.98545, -31.97991, -31.977, -31.96593, -31.962, 
  -31.9636, -31.95792, -31.95923, -31.95399, -31.95705, -31.95501, -31.95545, -31.95122, -31.9502, -31.94263, 
  -31.93972, -31.93535, -31.93724, -31.93331, -31.93331, -31.92996, -31.93068, -31.92165, -31.92194, -31.91801, 
  -31.91743, -31.91393, -31.91509, -31.9081, -31.90839, -31.90431, -31.90446, -31.90096, -31.9014, -31.89688, 
  -31.89892, -31.89542, -31.89761, -31.89673, -31.90329, -31.90519, -31.91291, -31.91582, -31.91932, -31.92005, 
  -31.92355, -31.91815, -31.92355, -31.92879, -31.93098, -31.93564, -31.9352, -31.92996, -31.93127, -31.92646, 
  -31.92442, -31.91845, -31.91218, -31.896, -31.89804, -31.89455, -31.88843, -31.88653, -31.88201, -31.8788, 
  -31.87399, -31.65244, -31.63958, -31.63578, -31.62803, -31.6295, -31.62657, -31.62116, -31.62189, -31.61882, 
  -31.61371, -31.61371, -31.60903, -31.60874, -31.60581, -31.60684, -31.60084, -31.60347, -31.59953, -31.59806, 
  -31.59368, -31.59365, -31.58984, -31.59277, -31.58312, -31.56966, -31.57025, -31.56586, -31.5663, -31.55796, 
  -31.55182, -31.54216, -31.53821, -31.52504, -31.52124, -31.50939, -31.511, -31.50851, -31.511, -31.5047, 
  -31.50587, -31.50236, -31.49929, -31.49168, -31.49475, -31.48713, -31.4826, -31.48245, -31.47059, -31.46064, 
  -31.45668, -31.45405, -31.44424, -31.44702, -31.44468, -31.43765, -31.43545, -31.43867, -31.43999, -31.43779, 
  -31.43853, -31.42974, -31.43003, -31.42505, -31.42754, -31.42417, -31.42754, -31.42564, -31.43442, -31.43003, 
  -31.43267, -31.42974, -31.43018, -31.43516, -31.43618, -31.4416, -31.41831, -31.41875, -31.40776, -31.39824, 
  -31.38329, -31.37963, -31.37435, -31.37582, -31.38139, -31.38359, -31.37875, -31.38491, -31.38109, -31.37054, 
  -31.36834, -31.36336, -31.35486, -31.35193, -31.34005, -31.33873, -31.32407, -31.31659, -31.29532, -31.28931, 
  -31.283, -31.28329, -31.26994, -31.26701, -31.27009, -31.26833, -31.2695, -31.27302, -31.27581, -31.27801, 
  -31.28417, -31.28975, -31.2943, -31.30075, -31.30412, -31.30764, -31.30823, -31.31351, -31.31468, -31.32055, 
  -31.32392, -31.33287, -31.33037, -31.33169, -31.31776, -31.31468, -31.30882, -31.31336, -31.30398, -31.29488, 
  -31.28491, -31.2852, -31.28124, -31.27728, -31.2742, -31.26833, -31.27053, -31.2651, -31.25894, -31.26187, 
  -31.25395, -31.25087, -31.21681, -31.21109, -31.2058, -31.20287, -31.19611, -31.19464, -31.18627, -31.17849, 
  -31.17834, -31.171, -31.17129, -31.16307, -31.16101, -31.15895, -31.15646, -31.14999, -31.14309, -31.1447, 
  -31.14147, -31.14661, -31.14529, -31.13589, -31.13795, -31.1331, -31.13398, -31.12031, -31.11723, -31.11282, 
  -31.10958, -31.10444, -31.08724, -31.08518, -31.07004, -31.06739, -31.06342, -31.0571, -31.05284, -31.04916, 
  -31.03813, -31.04048, -31.03563, -31.03592, -31.0293, -31.02386, -31.02004, -31.02386, -31.02062, -31.02798, 
  -31.02724, -31.02004, -31.01415, -31.01783, -31.01208, -31.00487, -31.00148, -30.99236, -30.9928, -30.98309, 
  -30.97867, -30.97161, -30.9722, -30.9588, -30.95983, -30.95291, -30.94982, -30.95468, -30.95188, -30.95365, 
  -30.94835, -30.94275, -30.93996, -30.927, -30.92376, -30.92729, -30.92494, -30.9083, -30.90344, -30.89828, 
  -30.89872, -30.90255, -30.89666, -30.89106, -30.8837, -30.87338, -30.86882, -30.84774, -30.84141, -30.83271, 
  -30.83787, -30.84126, -30.84082, -30.84936, -30.84804, -30.84288, -30.84185, -30.84789, -30.84509, -30.84907, 
  -30.84922, -30.85408, -30.85718, -30.86602, -30.86336, -30.87235, -30.88237, -30.89386, -30.91492, -30.9326, 
  -30.94349, -30.9482, -30.94688, -30.95378, -30.95334, -30.95643, -30.9526, -30.9445, -30.94377, -30.95496, 
  -30.95466, -30.94922, -30.94819, -30.94303, -30.94127, -30.94318, -30.94554, -30.95172, -30.95731, -30.96217, 
  -30.96614, -30.97365, -30.97954, -30.98175, -30.97866, -30.9791, -30.98351, -30.99838, -30.9972, -30.99941, 
  -30.99587, -30.99911, -31.00323, -31.01, -31.01721, -31.01441, -31.0203, -31.0406, -31.0403, -31.04442, 
  -31.04192, -31.04427, -31.04221, -31.04471, -31.06133, -31.06457, -31.06618, -31.07015, -31.07736, -31.07354, 
  -31.06677, -31.07545, -31.07398, -31.07589, -31.08118, -31.08309, -31.08721, -31.08647, -31.0828, -31.07295, 
  -31.085, -31.08177, -31.08162, -31.07514, -31.04749, -31.0216, -31.01013, -31.0063, -31.00277, -30.99336, 
  -30.98953, -30.98423, -30.97938, -30.97319, -30.96893, -30.95715, -30.95317, -30.94802, -30.94302, -30.9383, 
  -30.92785, -30.92167, -30.91195, -30.90252, -30.89515, -30.85891, -30.84756, -30.8396, -30.83327, -30.83106, 
  -30.81941, -30.81823, -30.81912, -30.81086, -30.80717, -30.80246, -30.79965, -30.79435, -30.79154, -30.78506, 
  -30.78461, -30.77812, -30.77547, -30.7734, -30.77694, -30.77281, -30.77429, -30.76337, -30.75983, -30.75792, 
  -30.75025, -30.74434, -30.75733, -30.75423, -30.74552, -30.74449, -30.73165, -30.73328, -30.73711, -30.73933, 
  -30.73165, -30.72354, -30.72103, -30.71262, -30.70583, -30.69358, -30.68826, -30.68885, -30.68324, -30.68206, 
  -30.6797, -30.68088, -30.66523, -30.65416, -30.64279, -30.63422, -30.63319, -30.62506, -30.62152, -30.62107, 
  -30.61679, -30.60394, -30.60852, -30.60704, -30.5967, -30.59448, -30.58694, -30.58576, -30.57852, -30.57246, 
  -30.57734, -30.58798, -30.58384, -30.57955, -30.5698, -30.56714, -30.55457, -30.56093, -30.56063, -30.5531, 
  -30.54097, -30.52944, -30.52855, -30.51939, -30.52515, -30.52486, -30.53077, -30.52915, -30.5321, -30.52796, 
  -30.52915, -30.52412, -30.52441, -30.52131, -30.5185, -30.51702, -30.5114, -30.50445, -30.49705, -30.49054, 
  -30.49262, -30.49114, -30.49587, -30.49824, -30.49557, -30.50001, -30.50282, -30.50075, -30.50193, -30.49365, 
  -30.49202, -30.49365, -30.49084, -30.4901, -30.48818, -30.48611, -30.48655, -30.48522, -30.48537, -30.48167, 
  -30.47945, -30.47117, -30.47117, -30.47501, -30.47135, -30.47001, -30.45951, -30.46099, -30.45122, -30.44959, 
  -30.44723, -30.44737, -30.43894, -30.4308, -30.43287, -30.43183, -30.43539, -30.43272, -30.42488, -30.4231, 
  -30.42103, -30.41555, -30.41037, -30.40134, -30.38979, -30.38402, -30.39112, -30.39897, -30.39793, -30.39468, 
  -30.38638, -30.38194, -30.37083, -30.3658, -30.35854, -30.36076, -30.35899, -30.3621, -30.35854, -30.35647, 
  -30.35188, -30.34565, -30.34017, -30.33573, -30.33069, -30.32728, -30.31291, -30.31113, -30.32032, -30.31246, 
  -30.30461, -30.2889, -30.28979, -30.29572, -30.29186, -30.30002, -30.30133, -30.29422, -30.28547, -30.2662, 
  -30.26101, -30.26739, -30.25849, -30.25419, -30.25597, -30.24959, -30.24514, -30.23447, -30.22394, -30.21949, 
  -30.22216, -30.21756, -30.21593, -30.21251, -30.21281, -30.20762, -30.20317, -30.20777, -30.19723, -30.2005, 
  -30.19382, -30.20569, -30.19768, -30.18907, -30.17676, -30.17572, -30.18076, -30.17127, -30.17082, -30.16043, 
  -30.16563, -30.15895, -30.15346, -30.13282, -30.12659, -30.12139, -30.10609, -30.10253, -30.10773, -30.10654, 
  -30.0954, -30.08887, -30.08991, -30.09466, -30.09199, -30.08857, -30.08604, -30.08887, -30.08753, -30.09822, 
  -30.11441, -30.11233, -30.10788, -30.10669, -30.11129, -30.10979, -30.10162, -30.09984, -30.09628, -30.09613, 
  -30.09375, -30.10147, -30.09702, -30.09791, -30.08811, -30.08573, -30.08811, -30.08692, -30.09509, -30.10207, 
  -30.10563, -30.10147, -30.09821, -30.10192, -30.0994, -30.09004, -30.09004, -30.08826, -30.08529, -30.08618, 
  -30.09004, -30.09063, -30.10103, -30.10667, -30.11009, -30.11335, -30.11024, -30.1141, -30.12152, -30.12152, 
  -30.11395, -30.11618, -30.1135, -30.12019, -30.12271, -30.12702, -30.12924, -30.12479, -30.12568, -30.13281, 
  -30.13503, -30.13815, -30.14305, -30.14617, -30.14067, -30.14067, -30.15834, -30.1665, -30.17199, -30.18461, 
  -30.19277, -30.19751, -30.2082, -30.21324, -30.21739, -30.21858, -30.22437, -30.23297, -30.24305, -30.24083, 
  -30.2435, -30.24854, -30.25136, -30.26426, -30.27627, -30.28042, -30.28323, -30.28575, -30.28472, -30.28901, 
  -30.28872, -30.29035, -30.28145, -30.27345, -30.26648, -30.27152, -30.27893, -30.28264, -30.28546, -30.28738, 
  -30.29391, -30.29435, -30.28842, -30.27375, -30.26885, -30.25758, -30.25847, -30.27137, -30.27226, -30.27804, 
  -30.2856, -30.28131, -30.27286, -30.27093, -30.27834, -30.29672, -30.30413, -30.30443, -30.30087, -30.30013, 
  -30.3028, -30.29924, -30.29479, -30.29168, -30.28412, -30.2822, -30.27819, -30.27656, -30.27463, -30.27612, 
  -30.26604, -30.26693, -30.27908, -30.28753, -30.28961, -30.28472, -30.28575, -30.28249, -30.273, -30.26485, 
  -30.26011, -30.2518, -30.2297, -30.21116, -30.18995,
  -30.18945, -30.18916, -30.18708, -30.18678, -30.18886, -30.19301, -30.1939,
  -30.19366, -30.19618, -30.19484, -30.19366, -30.19321, -30.19618, -30.20315, -30.21146, -30.21932, -30.24839, 
  -30.25714, -30.28709, -30.29746, -30.31228, -30.32977, -30.34532, -30.36947, -30.38028, -30.40738, -30.41818, 
  -30.43313, -30.4469, -30.45149, -30.46939, -30.48078, -30.483, -30.49365, -30.50903, -30.51598, -30.51214, 
  -30.51317, -30.51584, -30.51495, -30.51717, -30.52057, -30.52767, -30.53964, -30.56566, -30.5695, -30.57542, 
  -30.57926, -30.59344, -30.59788, -30.59684, -30.61974, -30.6261, -30.63525, -30.65755, -30.67099, -30.68118, 
  -30.69594, -30.71601, -30.75379, -30.78402, -30.82103, -30.83415, -30.85361, -30.87748, -30.8819, -30.89707, 
  -30.90826, -30.91681, -30.92005, -30.90694, -30.90841, -30.9146, -30.92122, -30.93433, -30.95244, -30.99115, 
  -31.01381, -31.04117, -31.0694, -31.1013, -31.10748, -31.12159, -31.13937, -31.15171, -31.16787, -31.18446, 
  -31.18813, -31.21926, -31.22998, -31.25669, -31.27254, -31.28794, -31.29997, -31.31845, -31.3356, -31.36082, 
  -31.36463, -31.36478, -31.37225, -31.37958, -31.39248, -31.43892, -31.45488, -31.48153, -31.49573, -31.51168, 
  -31.53275, -31.54548, -31.56391, -31.58453, -31.6658, -31.68698, -31.71736, -31.74131, -31.75722, -31.77663, 
  -31.80158, -31.8239, -31.83148, -31.85481, -31.87114, -31.92346, -31.92929, -31.95624, -31.98333, -32.00153, 
  -32.01201, -32.02481, -32.05859, -32.08012, -32.08783, -32.1547, -32.16633, -32.18929, -32.22792, -32.24447, 
  -32.25899, -32.28729, -32.30833, -32.34228, -32.35228, -32.35997, -32.37693, -32.39375, -32.41288, -32.43722, 
  -32.46026, -32.48241, -32.49298, -32.51745, -32.53279, -32.55092, -32.57157, -32.59789, -32.63102, -32.64345,
  -32.67149, -32.73274, -32.81992, -32.83376, -32.86607, -32.88221, -32.91046, -32.93738, -32.97038, -32.98147, 
  -32.99054, -33.00638, -33.01804, -33.0379, -33.04351, -33.07631, -33.08624, -33.10493, -33.10464, -33.11586,
  -33.121, -33.12762, -33.12834, -33.16513, -33.1703, -33.18582, -33.19329, -33.21325, -33.23422, -33.24327, 
  -33.24628, -33.25834, -33.26566, -33.3024, -33.30957, -33.31201, -33.32076, -33.33453, -33.33926, -33.35518, 
  -33.35991, -33.36163, -33.37023, -33.39116, -33.40277, -33.40592, -33.40392, -33.40449, -33.3989, -33.40033, 
  -33.40922, -33.40965, -33.41552, -33.41538, -33.431, -33.43458, -33.42612, -33.44446, -33.45019, -33.45391, 
  -33.46723, -33.47196, -33.47454, -33.48513, -33.48914, -33.50403, -33.5066, -33.51562, -33.52564, -33.55712, 
  -33.56255, -33.58486, -33.66148, -33.6822, -33.68934, -33.74374, -33.75145, -33.76486, -33.78955, -33.80353, 
  -33.82235, -33.82763, -33.83162, -33.83619, -33.83961, -33.84331, -33.84674, -33.85386, -33.86185, -33.86313, 
  -33.86798, -33.8751, -33.89662, -33.90075, -33.90204, -33.90631, -33.90631, -33.91087, -33.91286, -33.91728, 
  -33.91913, -33.9385, -33.94391, -33.94633, -33.95118, -33.9516, -33.95773, -33.96812, -33.9778, -33.9946, 
  -33.99943, -34.00214, -34.00712, -34.00854, -34.01366, -34.02348, -34.02675, -34.02832, -34.04866, -34.07781, 
  -34.09985, -34.11506, -34.11492, -34.12202, -34.13296, -34.13552, -34.13907, -34.14163, -34.14575, -34.15001, 
  -34.15115, -34.16507, -34.16336, -34.16933, -34.177, -34.19035, -34.20483, -34.20568, -34.20767, -34.20767, 
  -34.21392, -34.22229, -34.22584, -34.23024, -34.2301, -34.2335, -34.23336, -34.23961, -34.24656, -34.24869, 
  -34.26075, -34.26827, -34.26816, -34.27043, -34.27539, -34.27482, -34.28036, -34.28475, -34.31467, -34.32545, 
  -34.33296, -34.33537, -34.34785, -34.37859, -34.41627, -34.42618, -34.43723, -34.44459, -34.45323, -34.46412, 
  -34.47007, -34.47361, -34.47474, -34.47233, -34.47375, -34.4729, -34.47559, -34.47162, -34.47247, -34.46922, 
  -34.46582, -34.4678, -34.47262, -34.47134, -34.46922, -34.46908, -34.46398, -34.45563, -34.45676, -34.4603, 
  -34.46172, -34.46283, -34.46198, -34.46198, -34.45859, -34.44585, -34.44882, -34.43877, -34.43976, -34.4273, 
  -34.42489, -34.43297, -34.44104, -34.44585, -34.44528, -34.44769, -34.44726, -34.45349, -34.45278, -34.45491, 
  -34.44387, -34.42914, -34.42688, -34.43326, -34.43964, -34.44105, -34.44303, -34.44034, -34.43949, -34.43369, 
  -34.42689, -34.42944, -34.43241, -34.43779, -34.44105, -34.44119, -34.44247, -34.43879, -34.43567, -34.43751, 
  -34.44686, -34.44898, -34.447, -34.45223, -34.46653, -34.48691, -34.49667, -34.50728, -34.52355, -34.53429, 
  -34.55451, -34.60596, -34.62828, -34.6561, -34.67996, -34.68886, -34.7096, -34.72682, -34.76039, -34.7508, 
  -34.74995, -34.75235, -34.75122, -34.75531, -34.77139, -34.77096, -34.77364, -34.7766, -34.77618, -34.78337, 
  -34.78168, -34.78802, -34.79141, -34.79197, -34.79423, -34.79507, -34.79888, -34.79775, -34.80494, -34.80649, 
  -34.8165, -34.8175, -34.82229, -34.82215, -34.82694, -34.8275, -34.83483, -34.83568, -34.83793, -34.83807, 
  -34.84033, -34.8399, -34.8423, -34.84174, -34.84399, -34.84328, -34.84526, -34.85146, -34.85174, -34.85737, 
  -34.85789, -34.86127, -34.86268, -34.86592, -34.8669, -34.87071, -34.87, -34.88113, -34.88577, -34.88803, 
  -34.89028, -34.89422, -34.90056, -34.9045, -34.90535, -34.8969, -34.89253, -34.89605, -34.8945, -34.89929, 
  -34.90014, -34.8945, -34.89563, -34.90042, -34.90183, -34.89788, -34.90619, -34.89901, -34.89465, -34.88254, 
  -34.88141, -34.87606, -34.87662, -34.88028, -34.8793, -34.88, -34.8731, -34.87634, -34.87437, -34.88408, 
  -34.88817, -34.8884, -34.89297, -34.89241, -34.89424, -34.89945, -34.9048, -34.91198, -34.91113, -34.91226, 
  -34.91029, -34.91282, -34.91282, -34.91648, -34.91409, -34.91648, -34.92465, -34.92999, -34.93253, -34.93323, 
  -34.93619, -34.9345, -34.92746, -34.91972, -34.91775, -34.91029, -34.91198, -34.90958, -34.90902, -34.90522, 
  -34.90621, -34.89959, -34.89762, -34.8972, -34.8986, -34.89494, -34.89703, -34.90086, -34.89748, -34.89987, 
  -34.89945, -34.90001, -34.89184, -34.87819, -34.84424, -34.81113, -34.79717, -34.79534, -34.78505, -34.77391, 
  -34.77067, -34.77433, -34.78195, -34.78025, -34.78152, -34.76756, -34.7615, -34.76376, -34.7694, -34.77377, 
  -34.77969, -34.77461, -34.77151, -34.77842, -34.78223, -34.78477, -34.78984, -34.78942, -34.79238, -34.79647, 
  -34.7959, -34.79788, -34.79337, -34.79914, -34.79153, -34.7921, -34.78956, -34.79421, -34.8021, -34.80309, 
  -34.80887, -34.82367, -34.83804, -34.84255, -34.85142, -34.85551, -34.85481, -34.86438, -34.87129, -34.87692, 
  -34.88283, -34.88889, -34.891, -34.88903, -34.89494, -34.90311, -34.9048, -34.90186, -34.90031, -34.90538, 
  -34.89594, -34.8844, -34.87933, -34.87806, -34.88299, -34.89256, -34.89932, -34.90186, -34.91129, -34.91579, 
  -34.91678, -34.91115, -34.90918, -34.91213, -34.9096, -34.91101, -34.92086, -34.94816, -34.95646, -34.95773, 
  -34.96434, -34.96322, -34.96589, -34.97278, -34.97433, -34.96828, -34.96659, -34.95745, -34.92945, -34.9203, 
  -34.91706, -34.91819, -34.91073, -34.90735, -34.9089, -34.90509, -34.90509, -34.88904, -34.86665, -34.84862, 
  -34.83834, -34.8389, -34.84285, -34.84538, -34.84905, -34.84482, -34.83947, -34.82622, -34.79761, -34.74741, 
  -34.69789, -34.68619, -34.68308, -34.67772, -34.6629, -34.65993, -34.66233, -34.66191, -34.6653, -34.66487, 
  -34.66967, -34.66628, -34.65838, -34.65456, -34.65569, -34.65767, -34.65866, -34.65329, -34.65231, -34.65485, 
  -34.64863, -34.63691, -34.61897, -34.59976, -34.59411, -34.58676, -34.57361, -34.54336, -34.50418, -34.4664, 
  -34.42422, -34.40383, -34.40298, -34.40737, -34.40652, -34.40184, -34.40184, -34.39122, -34.38031, -34.36473, 
  -34.35821, -34.35055, -34.34375, -34.34418, -34.34772, -34.34545, -34.33355, -34.30902, -34.28335, -34.25867, 
  -34.21666, -34.16895, -34.11994, -34.07772, -34.06805, -34.06976, -34.06691, -34.06094, -34.04601, -34.03961, 
  -34.03292, -34.03104, -34.02008, -34.00159, -33.99845, -33.9855, -33.98137, -33.97568, -33.97241, -33.95561, 
  -33.94478, -33.94094, -33.93225, -33.91302, -33.88752, -33.84732, -33.81053, -33.76474)
LONGITUDE_VALUEs <- c(
  -53.36969, -53.37141, -53.38034, -53.38584, -53.39425, -53.39906, -53.4037, -53.41641, -53.42671, -53.43238, 
  -53.43032, -53.43581, -53.43272, -53.43564, -53.43461, -53.43856, -53.43667, -53.43924, -53.43598, -53.44319, 
  -53.43976, -53.53057, -53.53091, -53.52421, -53.52816, -53.52834, -53.53143, -53.53435, -53.52902, -53.52937, 
  -53.52559, -53.53675, -53.53211, -53.53263, -53.5237, -53.52544, -53.51138, -53.50829, -53.52182, -53.51821, 
  -53.4444, -53.24405, -53.30948, -53.29471, -53.18534, -53.17524, -53.15003, -53.15536, -53.15038, -53.13836, 
  -53.11397, -53.08615, -53.08357, -53.07928, -53.07549, -53.18227, -53.18347, -53.19257, -53.20871, -53.2348, 
  -53.24356, -53.24473, -53.2504, -53.27393, -53.2796, -53.29454, -53.30173, -53.32251, -53.33316, -53.33797, 
  -53.34655, -53.35477, -53.37057, -53.37795, -53.38534, -53.40629, -53.41676, -53.41676, -53.42445, -53.4262, 
  -53.43376, -53.4329, -53.44818, -53.45899, -53.4559, -53.46036, -53.46294, -53.46139, -53.46669, -53.46171, 
  -53.47081, -53.48149, -53.50464, -53.51254, -53.51701, -53.51581, -53.52182, -53.52422, -53.52903, -53.5292, 
  -53.54429, -53.53948, -53.54095, -53.55605, -53.56652, -53.58437, -53.58901, -53.60085, -53.60463, -53.61578, 
  -53.6115, -53.62489, -53.64565, -53.64411, -53.63243, -53.64582, -53.6429, -53.65629, -53.65698, -53.64737, 
  -53.64273, -53.6575, -53.65578, -53.6587, -53.66539, -53.67517, -53.67878, -53.67689, -53.67998, -53.67586, 
  -53.6841, -53.69475, -53.69235, -53.69715, -53.70419, -53.71174, -53.70196, -53.70539, -53.7102, -53.71534, 
  -53.71311, -53.72341, -53.71689, -53.7229, -53.73182, -53.7356, -53.72547, -53.72547, -53.74436, -53.73732, 
  -53.74075, -53.7399, -53.73149, -53.72434, -53.74701, -53.74509, -53.7547, -53.75591, -53.76484, -53.77497, 
  -53.79043, -53.78991, -53.80467, -53.81497, -53.81394, -53.82734, -53.83077, -53.83438, -53.83644, -53.833, 
  -53.83403, -53.83695, -53.84158, -53.84313, -53.84038, -53.83729, -53.84811, -53.8524, -53.85172, -53.85377, 
  -53.85137, -53.85446, -53.85411, -53.84878, -53.85737, -53.86046, -53.85995, -53.86407, -53.86441, -53.87214, 
  -53.86905, -53.87128, -53.87832, -53.89292, -53.89155, -53.89687, -53.89702, -53.9063, -53.91248, -53.92708, 
  -53.9324, -53.93564, -53.94062, -53.94646, -53.95453, -53.95642, -53.96071, -53.96157, -53.96604, -53.96775, 
  -53.97256, -53.9717, -53.96758, -53.96638, -53.96449, -53.96466, -53.96157, -53.9631, -53.96928, -53.96773, 
  -53.99023, -53.99779, -54.00534, -54.00706, -54.01582, -54.01153, -54.0184, -54.01531, -54.02406, -54.02389, 
  -54.03162, -54.03214, -54.03488, -54.04004, -54.04519, -54.05446, -54.05704, -54.06288, -54.06288, -54.06545, 
  -54.0685, -54.07331, -54.08018, -54.08053, -54.08791, -54.08602, -54.08974, -54.09135, -54.09409, -54.10251, 
  -54.09993, -54.10766, -54.1049, -54.13324, -54.13393, -54.14149, -54.1444, -54.14233, -54.14371, -54.15333, 
  -54.15779, -54.4563, -54.45132, -54.4551, -54.45458, -54.45802, -54.46145, -54.46025, -54.46282, -54.46471, 
  -54.46283, -54.46747, -54.46541, -54.46232, -54.46112, -54.45665, -54.45717, -54.45356, -54.4527, -54.45923, 
  -54.4582, -54.46231, -54.46352, -54.4697, -54.46953, -54.47295, -54.48102, -54.4836, -54.48789, -54.49425, 
  -54.4903, -54.4951, -54.50127, -54.50385, -54.51054, -54.51621, -54.51861, -54.52085, -54.52377, -54.52497, 
  -54.52858, -54.532, -54.54556, -54.55432, -54.55759, -54.56059, -54.56909, -54.5751, -54.57871, -54.58777, 
  -54.58691, -54.67004, -54.68515, -54.68979, -54.69477, -54.69575, -54.70176, -54.70262, -54.70966, -54.71429, 
  -54.72099, -54.72374, -54.73473, -54.73885, -54.75019, -54.75276, -54.76324, -54.76839, -54.79016, -54.79669, 
  -54.79978, -54.80218, -54.80957, -54.81197, -54.82588, -54.83773, -54.85731, -54.8616, -54.85816, -54.87808, 
  -54.8875, -54.88441, -54.89162, -54.89986, -54.89798, -54.90296, -54.91858, -54.92889, -54.94091, -54.93816, 
  -54.93301, -54.93627, -54.93558, -54.96014, -54.95997, -54.95207, -54.95774, -54.97988, -54.98125, -54.99482, 
  -54.99446, -55.00201, -55.00133, -55.00545, -55.01015, -55.01581, -55.0316, -55.03143, -55.03606, -55.03091, 
  -55.03606, -55.0328, -55.03847, -55.03864, -55.0431, -55.04207, -55.04911, -55.05271, -55.05976, -55.0565, 
  -55.0601, -55.05839, -55.06542, -55.07435, -55.09117, -55.10284, -55.10732, -55.12174, -55.12157, -55.1504, 
  -55.15572, -55.16361, -55.16585, -55.16276, -55.16756, -55.17066, -55.1789, -55.18405, -55.23365, -55.23897, 
  -55.24017, -55.24738, -55.24789, -55.25373, -55.24978, -55.25545, -55.25803, -55.28188, -55.28532, -55.27708, 
  -55.27056, -55.27296, -55.27708, -55.29098, -55.28944, -55.28986, -55.28504, -55.29054, -55.29037, -55.29792, 
  -55.30531, -55.31235, -55.31817, -55.31971, -55.32676, -55.33328, -55.33981, -55.33809, -55.33002, -55.33139, 
  -55.32882, -55.33414, -55.32778, -55.33895, -55.35011, -55.35972, -55.35921, -55.35303, -55.35371, -55.35028, 
  -55.34992, -55.36022, -55.36383, -55.36812, -55.37361, -55.37103, -55.37309, -55.37979, -55.38666, -55.39783, 
  -55.40504, -55.40624, -55.41534, -55.42376, -55.42461, -55.43766, -55.43474, -55.43697, -55.4313, -55.42495, 
  -55.43199, -55.43371, -55.43748, -55.4409, -55.45223, -55.45481, -55.46374, -55.46906, -55.47508, -55.47903, 
  -55.48624, -55.48675, -55.49053, -55.48589, -55.49327, -55.49825, -55.50444, -55.5106, -55.50785, -55.51696, 
  -55.52486, -55.53293, -55.53413, -55.54547, -55.55163, -55.55284, -55.56348, -55.56571, -55.57859, -55.57808, 
  -55.58667, -55.58632, -55.59113, -55.60397, -55.61153, -55.61273, -55.62149, -55.62785, -55.63558, -55.63884, 
  -55.64262, -55.64639, -55.64502, -55.64966, -55.65704, -55.66339, -55.6536, -55.65497, -55.64227, -55.66339, 
  -55.65841, -55.6615, -55.66459, -55.66595, -55.67076, -55.67282, -55.68879, -55.68896, -55.69549, -55.7039, 
  -55.70957, -55.71129, -55.71644, -55.71507, -55.71884, -55.72417, -55.72108, -55.72486, -55.72262, -55.72571, 
  -55.72434, -55.73154, -55.72759, -55.73377, -55.74012, -55.74768, -55.74596, -55.75146, -55.75558, -55.75884, 
  -55.77254, -55.7746, -55.76825, -55.76602, -55.78164, -55.81325, -55.81239, -55.82716, -55.82973, -55.82956, 
  -55.83729, -55.84175, -55.8445, -55.85567, -55.86666, -55.86666, -55.86954, -55.86937, -55.88585, -55.89496, 
  -55.89753, -55.91299, -55.91814, -55.9257, -55.92673, -55.92999, -55.93046, -55.93871, -55.94214, -55.9813, 
  -55.99195, -56.00466, -56.01067, -56.00654, -56.01942, -56.01427, -56.01874, -56.01685, -56.01771, -56.0129, 
  -56.01341, -56.00757, -56.01134, -56.00567, -56.01185, -56.01048, -56.0134, -56.00877, -56.01632, -56.01014, 
  -56.01134, -56.00516, -56.01152, -56.00722, -56.0086, -55.98954, -55.99195, -56.00464, -56.00516, -56.00396, 
  -56.00911, -56.01357, -56.01752, -56.01632, -56.01203, -56.01512, -56.02542, -56.02491, -56.02096, -56.02283, 
  -56.0352, -56.03777, -56.03657, -56.04567, -56.04997, -56.05478, -56.06233, -56.0668, -56.06371, -56.0668, 
  -56.06422, -56.07329, -56.08789, -56.09493, -56.09803, -56.10146, -56.10644, -56.11829, -56.11863, -56.12465, 
  -56.13203, -56.13134, -56.12739, -56.13237, -56.14954, -56.15005, -56.14095, -56.1382, -56.137, -56.14129, 
  -56.14249, -56.15177, -56.16568, -56.17013, -56.16463, -56.17408, -56.18009, -56.18249, -56.17871, -56.17408, 
  -56.16995, -56.19071, -56.21561, -56.22076, -56.22342, -56.2344, -56.23492, -56.22428, -56.22514, -56.24179, 
  -56.24968, -56.25552, -56.26238, -56.25947, -56.26135, -56.25535, -56.26496, -56.27646, -56.28195, -56.27835, 
  -56.28814, -56.28985, -56.28574, -56.2926, -56.29466, -56.29946, -56.30787, -56.3156, -56.32092, -56.32435, 
  -56.33001, -56.3319, -56.33551, -56.33568, -56.33741, -56.33312, -56.33449, -56.34942, -56.34908, -56.35663, 
  -56.36006, -56.36401, -56.36504, -56.36401, -56.36057, -56.3592, -56.36778, -56.37465, -56.37722, -56.38941, 
  -56.38906, -56.38409, -56.38374, -56.38803, -56.38563, -56.38592, -56.38866, -56.39038, -56.3957, -56.39433, 
  -56.39759, -56.39519, -56.39828, -56.40171, -56.40343, -56.40635, -56.40653, -56.40017, -56.39948, -56.39725, 
  -56.3988, -56.40704, -56.41408, -56.41559, -56.42023, -56.42401, -56.42641, -56.44049, -56.4453, -56.45372, 
  -56.45423, -56.44462, -56.44444, -56.45508, -56.45594, -56.46264, -56.47964, -56.48411, -56.49201, -56.49184, 
  -56.49596, -56.50729, -56.50386, -56.51399, -56.52014, -56.52907, -56.53646, -56.54521, -56.54762, -56.54418, 
  -56.54384, -56.55105, -56.55088, -56.53731, -56.53679, -56.5404, -56.54057, -56.54521, -56.55655, -56.56101, 
  -56.57576, -56.57455, -56.58452, -56.59705, -56.60581, -56.61165, -56.61834, -56.62108, -56.60752, -56.60941, 
  -56.61525, -56.62778, -56.63998, -56.63998, -56.63242, -56.62486, -56.624, -56.64238, -56.64493, -56.65214, 
  -56.66571, -56.66828, -56.66107, -56.65729, -56.65042, -56.64493, -56.6463, -56.65094, -56.66193, -56.67962, 
  -56.68082, -56.69834, -56.69988, -56.70878, -56.7038, -56.7117, -56.71874, -56.73008, -56.73609, -56.7603, 
  -56.77473, -56.78229, -56.7845, -56.77746, -56.78021, -56.80082, -56.80391, -56.80905, -56.813, -56.81918, 
  -56.82296, -56.85112, -56.86466, -56.86981, -56.87462, -56.87273, -56.87427, -56.88063, -56.88784, -56.89007, 
  -56.90416, -56.90691, -56.90467, -56.90845, -56.91309, -56.91669, -56.91086, -56.91429, -56.91635, -56.92477, 
  -56.93177, -56.95496, -56.96887, -56.97694, -56.98243, -56.99343, -57.00425, -57.02345, -57.03014, -57.0298, 
  -57.04715, -57.04989, -57.05797, -57.06724, -57.0693, -57.06707, -57.06278, -57.06071, -57.06587, -57.07119, 
  -57.07342, -57.07823, -57.08766, -57.08663, -57.09264, -57.09109, -57.08525, -57.08371, -57.09058, -57.09521, 
  -57.09521, -57.10775, -57.11685, -57.11754, -57.1141, -57.11445, -57.10981, -57.10792, -57.10431, -57.10741, 
  -57.10569, -57.10981, -57.11032, -57.1189, -57.12285, -57.12955, -57.13505, -57.14535, -57.14432, -57.15821, 
  -57.15804, -57.16852, -57.1692, -57.16405, -57.16783, -57.16216, -57.1668, -57.15409, -57.16251, -57.1668, 
  -57.16938, -57.16646, -57.17659, -57.19614, -57.1994, -57.2025, -57.20181, -57.20353, -57.20919, -57.21778, 
  -57.23375, -57.2497, -57.25519, -57.2521, -57.26025, -57.26883, -57.27055, -57.26866, -57.27004, -57.27536, 
  -57.27845, -57.28325, -57.29218, -57.30127, -57.3018, -57.31124, -57.31639, -57.32085, -57.32857, -57.34436, 
  -57.35363, -57.35861, -57.35758, -57.36581, -57.37802, -57.39021, -57.38986, -57.39913, -57.40359, -57.41149, 
  -57.41955, -57.42196, -57.42093, -57.4223, -57.41921, -57.41458, -57.41526, -57.42367, -57.42951, -57.45336, 
  -57.46317, -57.48771, -57.49595, -57.49698, -57.50127, -57.50968, -57.52461, -57.52941, -57.55104, -57.55413, 
  -57.56683, -57.5682, -57.55533, -57.5598, -57.60683,
  -57.61236, -57.61597, -57.62336, -57.63022, -57.63743, -57.64361, -57.64909,
  -57.64958, -57.65044, -57.65113, -57.65095, -57.6537, -57.65421, -57.65147, -57.64511, -57.6355, -57.6156, 
  -57.61525, -57.62709, -57.62933, -57.63516, -57.63739, -57.64529, -57.681, -57.69146, -57.73678, -57.76921, 
  -57.7773, -57.79411, -57.8099, -57.84424, -57.85797, -57.86518, -57.87118, -57.88938, -57.89041, -57.88647, 
  -57.88561, -57.88732, -57.88509, -57.88509, -57.88904, -57.88938, -57.88681, -57.88853, -57.88715, -57.88732, 
  -57.89058, -57.88338, -57.87633, -57.87393, -57.84613, -57.84665, -57.84442, -57.84493, -57.83583, -57.81747, 
  -57.80871, -57.80746, -57.81175, -57.79733, -57.80729, -57.80626, -57.7987, -57.80712, -57.81089, -57.81845, 
  -57.82188, -57.83081, -57.84609, -57.88952, -57.9012, -57.91219, -57.91562, -57.91356, -57.8957, -57.88299, 
  -57.86617, -57.86119, -57.86977, -57.89725, -57.89946, -57.91646, -57.92058, -57.91543, -57.91526, -57.91131, 
  -57.91286, -57.91389, -57.92161, -57.93226, -57.93569, -57.95079, -57.95955, -57.98136, -57.98168, -57.99783, 
  -57.99577, -57.99096, -57.9877, -57.97825, -57.981, -58.06462, -58.08179, -58.08297, -58.07146, -58.02838, 
  -58.00263, -58.00452, -57.98718, -57.98014, -58.00881, -58.01224, -58.03473, -58.03988, -58.03679, -58.05242, 
  -58.06683, -58.08984, -58.12811, -58.19508, -58.20727, -58.19044, -58.16983, -58.15525, -58.15198, -58.13791, 
  -58.14031, -58.13757, -58.14237, -58.15249, -58.16674, -58.18443, -58.1803, -58.15422, -58.12382, -58.10495, 
  -58.09945, -58.09877, -58.10151, -58.12469, -58.14306, -58.16899, -58.18425, -58.18459, -58.19558, -58.19695, 
  -58.20537, -58.19609, -58.1961, -58.18682, -58.18871, -58.17096, -58.16021, -58.16142, -58.14954, -58.15298,
  -58.14439, -58.15092, -58.11933, -58.12447, -58.12173, -58.11451, -58.11726, -58.11214, -58.11352, -58.11798, 
  -58.11661, -58.12674, -58.12468, -58.13549, -58.14373, -58.17343, -58.21052, -58.26493, -58.30889, -58.35024,
  -58.34058, -58.3435, -58.35122, -58.36067, -58.35518, -58.3605, -58.35226, -58.3593, -58.35346, -58.35689, 
  -58.35037, -58.35621, -58.3454, -58.35552, -58.35003, -58.35226, -58.35072, -58.37355, -58.39225, -58.41799, 
  -58.41559, -58.42074, -58.41371, -58.41508, -58.42349, -58.42006, -58.41509, -58.4096, -58.40445, -58.39106, 
  -58.39124, -58.39398, -58.39861, -58.40187, -58.41166, -58.40891, -58.40273, -58.39123, -58.39312, -58.389, 
  -58.39981, -58.39843, -58.41285, -58.41886, -58.42572, -58.42572, -58.4307, -58.42865, -58.43431, -58.42659, 
  -58.42985, -58.42051, -58.41896, -58.44043, -58.43476, -58.41707, -58.41982, -58.41639, -58.42514, -58.42497, 
  -58.4315, -58.42738, -58.42738, -58.41673, -58.41725, -58.41364, -58.41467, -58.41038, -58.41227, -58.41502, 
  -58.41416, -58.42257, -58.41965, -58.41536, -58.41983, -58.41948, -58.41656, -58.41845, -58.41553, -58.41553, 
  -58.40935, -58.38651, -58.38462, -58.36969, -58.3709, -58.36008, -58.35853, -58.32799, -58.32335, -58.30618, 
  -58.30568, -58.30053, -58.30087, -58.29606, -58.29263, -58.29022, -58.29228, -58.2849, -58.25657, -58.23048, 
  -58.21984, -58.21933, -58.21933, -58.21366, -58.21469, -58.21796, -58.21796, -58.22105, -58.2195, -58.22362, 
  -58.21813, -58.20921, -58.18551, -58.12644, -58.09899, -58.07375, -58.07014, -58.07546, -58.0734, -58.06877, 
  -58.06293, -58.06122, -58.0662, -58.0662, -58.06259, -58.06122, -58.04542, -58.03308, -58.03325, -58.01985, 
  -57.99616, -57.9953, -57.99171, -57.98638, -57.98381, -57.98844, -57.98501, -57.97712, -57.94707, -57.94278, 
  -57.933, -57.93437, -57.91737, -57.89661, -57.89249, -57.89541, -57.88459, -57.85935, -57.84733, -57.84321, 
  -57.85368, -57.85334, -57.84183, -57.8396, -57.83703, -57.83136, -57.82535, -57.81728, -57.80543, -57.79911, 
  -57.78658, -57.77954, -57.77902, -57.77164, -57.77112, -57.76116, -57.75876, -57.73557, -57.72665, -57.72407, 
  -57.72579, -57.72357, -57.72254, -57.71962, -57.71447, -57.67824, -57.66914, -57.65282, -57.64737, -57.61096, 
  -57.58246, -57.56236, -57.55517, -57.55552, -57.55174, -57.55054, -57.54693, -57.54264, -57.54006, -57.53817, 
  -57.5186, -57.48067, -57.45955, -57.44393, -57.44255, -57.4453, -57.44066, -57.43929, -57.43123, -57.41853, 
  -57.39483, -57.35636, -57.35053, -57.35207, -57.34472, -57.33305, -57.32291, -57.30866, -57.27998, -57.21442, 
  -57.15226, -57.15243, -57.14299, -57.12946, -57.10474, -57.08344, -57.0795, -57.06988, -57.06404, -57.04998, 
  -57.0043, -56.94269, -56.90886, -56.8953, -56.82646, -56.82097, -56.68295, -56.62408, -56.5573, -56.51711, 
  -56.48642, -56.46307, -56.45483, -56.44126, -56.41155, -56.4059, -56.3925, -56.38889, -56.38185, -56.37773, 
  -56.3561, -56.35627, -56.353, -56.35713, -56.35695, -56.36108, -56.36417, -56.38855, -56.39559, -56.40297, 
  -56.40846, -56.41361, -56.41876, -56.42185, -56.42666, -56.43078, -56.42907, -56.42632, -56.4246, -56.42031, 
  -56.41808, -56.41327, -56.40829, -56.40022, -56.39921, -56.39629, -56.38925, -56.38787, -56.38083, -56.38083, 
  -56.3766, -56.37591, -56.36665, -56.3651, -56.35017, -56.34588, -56.34039, -56.33112, -56.33421, -56.33061, 
  -56.33198, -56.32029, -56.31394, -56.31566, -56.31068, -56.30965, -56.29678, -56.29232, -56.28769, -56.28957, 
  -56.28528, -56.28408, -56.27842, -56.27808, -56.2755, -56.27224, -56.25748, -56.25714, -56.24461, -56.24408, 
  -56.24803, -56.24648, -56.23859, -56.23567, -56.23276, -56.22932, -56.22606, -56.21628, -56.21508, -56.19878, 
  -56.20032, -56.20378, -56.20232, -56.19855, -56.20095, -56.19821, -56.22292, -56.21794, -56.21312, -56.2102, 
  -56.20162, -56.19939, -56.19349, -56.18576, -56.17408, -56.16962, -56.17254, -56.16052, -56.16, -56.16224, 
  -56.16069, -56.15846, -56.15829, -56.14524, -56.14901, -56.14489, -56.13066, -56.12963, -56.1334, -56.13117, 
  -56.12327, -56.12224, -56.11798, -56.10304, -56.10081, -56.08913, -56.08359, -56.08192, -56.07539, -56.07161, 
  -56.06852, -56.0644, -56.05444, -56.02271, -55.9669, -55.90529, -55.8749, -55.85532, -55.83268, -55.8004, 
  -55.78254, -55.76519, -55.76245, -55.75523, -55.75197, -55.71625, -55.68487, -55.67096, -55.65894, -55.65826, 
  -55.65036, -55.63404, -55.60228, -55.58102, -55.57999, -55.56058, -55.5556, -55.54547, -55.53603, -55.53448, 
  -55.5295, -55.52864, -55.50323, -55.49449, -55.43628, -55.42756, -55.4109, -55.38652, -55.38532, -55.36608, 
  -55.34498, -55.31802, -55.31167, -55.30188, -55.30429, -55.30257, -55.2969, -55.27836, -55.27527, -55.2806, 
  -55.27888, -55.28266, -55.27974, -55.27596, -55.25862, -55.26274, -55.25862, -55.25522, -55.24217, -55.23787, 
  -55.22465, -55.18138, -55.12903, -55.07339, -55.05502, -55.04042, -55.04145, -55.04592, -55.04594, -55.04766, 
  -55.04628, -55.04251, -55.02362, -55.01434, -55.00988, -54.99703, -54.97007, -54.94174, -54.94037, -54.94621, 
  -54.94775, -54.95239, -54.956, -54.95445, -54.95119, -54.94861, -54.94294, -54.93539, -54.8911, -54.8662, 
  -54.86603, -54.85092, -54.83976, -54.82928, -54.82464, -54.81404, -54.80734, -54.78176, -54.73696, -54.69454, 
  -54.659, -54.64526, -54.64114, -54.64234, -54.63616, -54.63152, -54.63272, -54.62074, -54.55617, -54.44821, 
  -54.31533, -54.28583, -54.27177, -54.25872, -54.2115, -54.18591, -54.18316, -54.1775, -54.17269, -54.16393, 
  -54.15449, -54.14968, -54.1526, -54.1471, -54.14487, -54.14504, -54.14401, -54.1392, -54.14076, -54.14213, 
  -54.15295, -54.15501, -54.1478, -54.13011, -54.12085, -54.12068, -54.10815, -54.06558, -54.00291, -53.93323, 
  -53.85014, -53.80138, -53.78645, -53.78525, -53.77701, -53.77615, -53.77975, -53.78267, -53.78061, -53.77014, 
  -53.76327, -53.77031, -53.77048, -53.77649, -53.77752, -53.78559, -53.79126, -53.79126, -53.78215, -53.76585, 
  -53.72997, -53.68396, -53.62525, -53.57169, -53.55556, -53.55178, -53.55109, -53.55315, -53.53667, -53.54028, 
  -53.53616, -53.542, -53.54303, -53.52981, -53.53599, -53.53084, -53.5329, -53.52878, -53.5317, -53.51916, 
  -53.50577, -53.51178, -53.50716, -53.5118, -53.50372, -53.47625, -53.44242, -53.3954)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(-35.02344, -35.02611, -35.02864, -35.03061, -35.03201, -35.03018, -35.02962, -35.02287)
LONGITUDE_VALUEs <- c(-54.88575, -54.88763, -54.88558, -54.88609, -54.88437, -54.883, -54.8794, -54.883)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-34.94843, -34.95251, -34.95307, -34.95715, -34.95842, -34.96137, -34.96081, -34.94969, -34.94913, -34.94758)
LONGITUDE_VALUEs <- c(-54.97741, -54.97706, -54.975, -54.97174, -54.97449, -54.975, -54.96951, -54.969, -54.97089, -54.97243)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-34.47208, -34.47406, -34.47463, -34.47576, -34.47534, -34.47378, -34.47236, -34.47137)
LONGITUDE_VALUEs <- c(-57.89225, -57.89225, -57.8938, -57.8938, -57.88522, -57.88728, -57.88402, -57.88951)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -34.04669, -34.05579, -34.06091, -34.06261, -34.07115, -34.07385, -34.06802, -34.06176, -34.05949, -34.06603, 
  -34.0602, -34.06375, -34.05067, -34.04797, -34.04597, -34.05209, -34.04697)
LONGITUDE_VALUEs <- c(
  -58.32181, -58.32181, -58.31855, -58.31957, -58.31666, -58.31271, -58.31014, -58.317, -58.31237, -58.29847, 
  -58.30053, -58.29383, -58.30173, -58.29984, -58.30997, -58.30928, -58.31872)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-33.95034, -33.98194, -33.9875, -33.97611, -33.95034)
LONGITUDE_VALUEs <- c(-58.39557, -58.38356, -58.36399, -58.36124, -58.38888)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-33.93368, -33.93567, -33.94165, -33.94179)
LONGITUDE_VALUEs <- c(-58.40072, -58.40363, -58.4002, -58.39505)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-34.78054, -34.78646, -34.79534, -34.79069, -34.78279)
LONGITUDE_VALUEs <- c(-56.39389, -56.40007, -56.39183, -56.37725, -56.3836)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -34.16499, -34.16996, -34.17635, -34.18459, -34.18445, -34.18999, -34.19183, -34.18956, -34.18956, -34.187, 
  -34.18629, -34.18161, -34.17479, -34.17337, -34.16883)
LONGITUDE_VALUEs <- c(
  -58.266, -58.26446, -58.2648, -58.26137, -58.25845, -58.25657, -58.25176, -58.2485, -58.24507, -58.24455, 
  -58.24267, -58.24455, -58.24284, -58.24558, -58.24696)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -34.93847, -34.93931, -34.9372, -34.9365, -34.94002, -34.94128, -34.94311, -34.94466, -34.94691, -34.94621,
  -34.9441, -34.94241, -34.93959)
LONGITUDE_VALUEs <- c(
  -55.92244, -55.91934, -55.91848, -55.92071, -55.92466, -55.92741, -55.92947, -55.93427, -55.93358, -55.92964,
  -55.92912, -55.9238, -55.9238)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

##### ARGENTINA #####
Geo_0 <- Geometric_Operations(Geo_3, MGeo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0))
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(
  -35.13563, -35.07047, -35.05642, -35.01875, -34.9985, -34.93942, -34.91719, -34.84086, -34.8255, -34.83057, 
  -34.82747, -34.83269, -34.82846, -34.80662, -34.78815, -34.78039, -34.77546, -34.75149, -34.74725, -34.73978, 
  -34.72355, -34.71975, -34.71128, -34.70888, -34.70563, -34.70098, -34.70281, -34.67374, -34.6582, -34.65853, 
  -34.64639, -34.64187, -34.63396, -34.6341, -34.62761, -34.62701, -34.62305, -34.62108, -34.61754, -34.6102, 
  -34.60723, -34.60186, -34.59451, -34.59805, -34.5907, -34.58731, -34.57897, -34.5678, -34.57119, -34.56427, 
  -34.56413, -34.55536, -34.55197, -34.54009, -34.53981, -34.53627, -34.53641, -34.52949, -34.52284, -34.51365, 
  -34.50671, -34.47856, -34.47049, -34.46441, -34.46158, -34.44827, -34.44586, -34.44133, -34.44006, -34.43779, 
  -34.44006, -34.43921, -34.43695, -34.43525, -34.43015, -34.43015, -34.42562, -34.43879, -34.43539, -34.42845, 
  -34.42321, -34.42236, -34.40933, -34.41217, -34.40891, -34.41386, -34.39559, -34.39503, -34.38993, -34.39134, 
  -34.38865, -34.38922, -34.3854, -34.38795, -34.34005, -34.31893, -34.30603, -34.29624, -34.29298, -34.28645, 
  -34.2805, -34.28064, -34.27481, -34.27069, -34.26885, -34.27481, -34.2724, -34.26545, -34.26757, -34.26545, 
  -34.26431, -34.25693, -34.25934, -34.25665, -34.25864, -34.25466, -34.25012, -34.24274, -34.23508, -34.22898, 
  -34.22713, -34.23025, -34.22926, -34.22671, -34.22685, -34.22543, -34.22145, -34.22515, -34.22117, -34.22245, 
  -34.21734, -34.21478, -34.20698, -34.20939, -34.20598, -34.20712, -34.19789, -34.19292, -34.18909, -34.17176, 
  -34.16352, -34.15244, -34.14648, -34.12843, -34.14335, -34.12687, -34.11962, -34.12218, -34.11721, -34.11237, 
  -34.09077, -34.06489, -34.05949, -34.0501, -34.0528, -34.04555, -34.01724, -34.00457, -33.99945, -33.99618, 
  -33.98906, -33.98593, -33.98237, -33.98194, -33.97013, -33.97725, -33.97426, -33.95034, -33.94535, -33.94208, 
  -33.92869, -33.91088, -33.90105, -33.8955, -33.89991, -33.88267, -33.86814, -33.85573, -33.8382, -33.83363, 
  -33.82322, -33.82494, -33.8218, -33.81909, -33.82123, -33.81909, -33.82066, -33.81709, -33.80654, -33.79798, 
  -33.78742, -33.78129, -33.78143, -33.77915, -33.779, -33.76416, -33.75546, -33.74889, -33.74261, -33.73705, 
  -33.73162, -33.72791, -33.72048, -33.71706, -33.69078, -33.6109, -33.59918, -33.5424, -33.47885, -33.36795, 
  -33.36308, -33.3268, -33.30586, -33.23955, -33.21112, -33.18095, -33.13928, -33.12576, -33.11455, -33.11484, 
  -33.0878, -33.08234, -33.08608, -33.07083, -33.06623, -33.06997, -33.06968, -33.07802, -33.08579,
  -33.11586, -33.10464, -33.10493, -33.08624, -33.07631, -33.04351, -33.0379, -33.01804, -33.00638, -32.99054, 
  -32.98147, -32.97038, -32.93738, -32.91046, -32.88221, -32.86607, -32.83376, -32.81992, -32.73274, -32.67149, 
  -32.64345, -32.63102, -32.59789, -32.57157, -32.55092, -32.53279, -32.51745, -32.49298, -32.48241, -32.46026, 
  -32.43722, -32.41288, -32.39375, -32.37693, -32.35997, -32.35228, -32.34228, -32.30833, -32.28729, -32.25899, 
  -32.24447, -32.22792, -32.18929, -32.16633, -32.1547, -32.08783, -32.08012, -32.05859, -32.02481, -32.01201, 
  -32.00153, -31.98333, -31.95624, -31.92929, -31.92346, -31.87114, -31.85481, -31.83148, -31.8239, -31.80158, 
  -31.77663, -31.75722, -31.74131, -31.71736, -31.68698, -31.6658, -31.58453, -31.56391, -31.54548, -31.53275, 
  -31.51168, -31.49573, -31.48153, -31.45488, -31.43892, -31.39248, -31.37958, -31.37225, -31.36478, -31.36463, 
  -31.36082, -31.3356, -31.31845, -31.29997, -31.28794, -31.27254, -31.25669, -31.22998, -31.21926, -31.18813, 
  -31.18446, -31.16787, -31.15171, -31.13937, -31.12159, -31.10748, -31.1013, -31.0694, -31.04117, -31.01381, 
  -30.99115, -30.95244, -30.93433, -30.92122, -30.9146, -30.90841, -30.90694, -30.92005, -30.91681, -30.90826, 
  -30.89707, -30.8819, -30.87748, -30.85361, -30.83415, -30.82103, -30.78402, -30.75379, -30.71601, -30.69594, 
  -30.68118, -30.67099, -30.65755, -30.63525, -30.6261, -30.61974, -30.59684, -30.59788, -30.59344, -30.57926, 
  -30.57542, -30.5695, -30.56566, -30.53964, -30.52767, -30.52057, -30.51717, -30.51495, -30.51584, -30.51317, 
  -30.51214, -30.51598, -30.50903, -30.49365, -30.483, -30.48078, -30.46939, -30.45149, -30.4469, -30.43313, 
  -30.41818, -30.40738, -30.38028, -30.36947, -30.34532, -30.32977, -30.31228, -30.29746, -30.28709, -30.25714, 
  -30.24839, -30.21932, -30.21146, -30.20315, -30.19618, -30.19321, -30.19366, -30.19484, -30.19618, -30.19366,
  -30.1939, -30.18381, -30.17921, -30.1761, -30.17402, -30.17447, -30.17743, -30.1790,
  -30.17926, -30.17912, -30.17719, -30.16071, -30.12301, -30.10207, -30.08692, -30.07221, -30.03581, -30.02571, 
  -30.01634, -30.01322, -30.0049, -29.99241, -29.97189, -29.9234, -29.89468, -29.87816, -29.83082, -29.78777, 
  -29.77645, -29.78196, -29.76915, -29.70431, -29.69625, -29.6879, -29.6803, -29.65703, -29.6445, -29.6442, 
  -29.63704, -29.61077, -29.60107, -29.5742, -29.56943, -29.53448, -29.50789, -29.48787, -29.47129, -29.45484, 
  -29.43586, -29.4085, -29.38606, -29.37425, -29.36871, -29.36916, -29.36123, -29.28969, -29.256, -29.23039, 
  -29.19578, -29.164, -29.14901, -29.14257, -29.12877, -29.11498, -29.11632, -29.09263, -29.08123, -29.06982, 
  -29.04867, -29.02555, -29.01476, -29.00229, -28.98757, -28.97631, -28.95243, -28.93455, -28.90029, -28.88196, 
  -28.81234, -28.79489, -28.78406, -28.77669, -28.77368, -28.7648, -28.68983, -28.62491, -28.61647, -28.60201, 
  -28.5794, -28.54562, -28.5221, -28.50038, -28.49464, -28.48076, -28.48091, -28.47035, -28.4065, -28.35998, 
  -28.35394, -28.36663, -28.36769, -28.37584, -28.39231, -28.42235, -28.42703, -28.41994, -28.3846, -28.34186, 
  -28.32841, -28.31723, -28.31058, -28.28443, -28.27521, -28.25797, -28.2424, -28.22637, -28.22652, -28.21805, 
  -28.18265, -28.17871, -28.17084, -28.16857, -28.16494, -28.15874, -28.15102, -28.13664, -28.12286, -28.11484, 
  -28.11741, -28.12453, -28.14148, -28.1486, -28.16403, -28.16312, -28.15208, -28.13558, -28.11847, -28.11469, 
  -28.09212, -28.08122, -28.07577, -28.08563, -28.09623, -28.09956, -28.09865, -28.05791, -28.05458, -28.0523, 
  -28.04821, -28.0364, -28.02291, -28.0123, -27.99487, -27.98184, -27.97486, -27.97153, -27.96516, -27.94272, 
  -27.93119, -27.92331, -27.92149, -27.93316, -27.92892, -27.90935, -27.88341, -27.87127, -27.85958, -27.85518, 
  -27.86095, -27.87446, -27.89585, -27.89539, -27.88629, -27.85943, -27.85063, -27.84183, -27.8479, -27.85685, 
  -27.85807, -27.85002, -27.83393, -27.82422, -27.81345, -27.80176, -27.7963, -27.78521, -27.77549, -27.76926, 
  -27.77397, -27.79554, -27.79812, -27.79311, -27.77503, -27.77002, -27.77184, -27.7764, -27.77868, -27.77412, 
  -27.75255, -27.72976, -27.72034, -27.69101, -27.68052, -27.64084, -27.62882, -27.62578, -27.62913, -27.62396, 
  -27.60357, -27.57178, -27.55306, -27.53266, -27.52992, -27.53099, -27.53647, -27.56402, -27.57619, -27.58589, 
  -27.58441, -27.57543, -27.56554, -27.56128, -27.56326, -27.57528, -27.57193, -27.55823, -27.52551, -27.51028, 
  -27.50496, -27.50861, -27.54058, -27.54651, -27.54225, -27.52475, -27.50359, -27.48272, -27.46033, -27.45257, 
  -27.45455, -27.48181, -27.49567, -27.50343, -27.50709, -27.50412, -27.48577, -27.48029, -27.4812, -27.47724, 
  -27.46508, -27.45698, -27.44723, -27.43291, -27.42392, -27.42255, -27.42575, -27.42149, -27.40579, -27.40747, 
  -27.42728, -27.44935, -27.46656, -27.46672, -27.44996, -27.43655, -27.40471, -27.40242, -27.42909, -27.44448, 
  -27.44859, -27.43808, -27.41629, -27.40013, -27.39372, -27.3928, -27.3861, -27.37131, -27.35683, -27.34082, 
  -27.30315, -27.29033, -27.26394, -27.25295, -27.25371, -27.26714, -27.2795, -27.28454, -27.29628, -27.30391, 
  -27.2946, -27.27355, -27.26104, -27.25493, -27.24685, -27.22746, -27.21724, -27.20395, -27.19617, -27.1954, 
  -27.19968, -27.19632, -27.17968, -27.1612, -27.15081, -27.1583, -27.17448, -27.17708, -27.15463, -27.13156, 
  -27.12408, -27.1282, -27.1612, -27.16929, -27.16547, -27.15509, -27.14424, -27.14667, -27.13599, -27.14027, 
  -27.12744, -27.12637, -27.13065, -27.12423, -27.11094, -27.10299, -27.09688, -27.10666, -27.11063, -27.10544, 
  -27.10299, -27.08236, -27.06585, -27.07976, -27.07487, -27.07091, -27.07212, -27.05867, -27.03956, -27.03956, 
  -27.05576, -27.0686, -27.06215, -27.05486, -27.02671, -27.02534, -27.03375, -27.04567, -27.04552, -27.03344, 
  -27.03252, -27.0209, -27.01834, -27.00775, -27.00362, -27.01509, -27.00591, -26.99322, -26.98955, -26.99429, 
  -26.98297, -26.97746, -26.97303, -26.97318, -26.95819, -26.96599, -26.95543, -26.93698, -26.93278, -26.94732, 
  -26.94135, -26.93003, -26.91166, -26.90906, -26.90033, -26.89421, -26.88686, -26.87247, -26.86987, -26.86206, 
  -26.85792, -26.86175, -26.86129, -26.86527, -26.85715, -26.85271, -26.84215, -26.84888, -26.84215, -26.83862, 
  -26.82836, -26.81871, -26.81427, -26.80982, -26.81549, -26.81427, -26.79634, -26.79818, -26.78178, -26.77228, 
  -26.77136, -26.76768, -26.76584, -26.7732, -26.77335, -26.76584, -26.76308, -26.76079, -26.766, -26.75879, 
  -26.74961, -26.74762, -26.7395, -26.73168, -26.73045, -26.74134, -26.74118, -26.73658, -26.73352, -26.72784, 
  -26.72094, -26.70944, -26.7099, -26.71987, -26.71864, -26.71895, -26.70024, -26.69104, -26.67938, -26.6823, 
  -26.69073, -26.69288, -26.68368, -26.67969, -26.67892, -26.67156, -26.66711, -26.66895, -26.6487, -26.64778, 
  -26.65837, -26.65668, -26.64471, -26.64796, -26.64165, -26.63474, -26.64517, -26.62906, -26.63152, -26.6258, 
  -26.61801, -26.60888, -26.60635, -26.60072, -26.59346, -26.58563, -26.58947, -26.56214, -26.56245, -26.55569, 
  -26.55753, -26.56751, -26.5649, -26.55815, -26.55999, -26.55062, -26.54632, -26.53864, -26.54356, -26.53818, 
  -26.53342, -26.52697, -26.52329, -26.52728, -26.51806, -26.51223, -26.50854, -26.49871, -26.50731, -26.50255, 
  -26.50961, -26.50501, -26.50101, -26.48887, -26.49087, -26.48056, -26.47411, -26.47288, -26.48271, -26.4738, 
  -26.47134, -26.4632, -26.4698, -26.45428, -26.44998, -26.4403, -26.44337, -26.43553, -26.42887, -26.42877, 
  -26.42308, -26.41447, -26.41647, -26.4117, -26.40801, -26.40678, -26.39925, -26.39556, -26.3868, -26.3891, 
  -26.37711, -26.37342, -26.36296, -26.3605, -26.35296, -26.35296, -26.33604, -26.33081, -26.32496, -26.31065, 
  -26.30696, -26.29095, -26.28664, -26.27264, -26.26325, -26.24816, -26.25047, -26.24077, -26.23569, -26.21259, 
  -26.2052, -26.19518, -26.19195, -26.16129, -26.15282, -26.12755, -26.12847, -26.11799, -26.11629, -26.10828, 
  -26.09949, -26.08038, -26.06372, -26.05833, -26.05139, -26.0409, -26.04491, -26.03766, -26.04213, -26.03103, 
  -26.03565, -26.03118, -26.02362, -26.02131, -26.01591, -26.01313, -26.00758, -26.00619, -25.99956, -26.00079, 
  -25.99493, -25.98845, -25.98382, -25.9903, -25.98999, -25.98258, -25.98119, -25.97471, -25.97656, -25.97178, 
  -25.96422, -25.96345, -25.96067, -25.95453, -25.93273, -25.93149, -25.92007, -25.92964, -25.92578, -25.91698, 
  -25.9122, -25.90988, -25.91482, -25.90633, -25.9037, -25.89645, -25.89506, -25.8878, -25.88795, -25.88286, 
  -25.88255, -25.8776, -25.87869, -25.87096, -25.86726, -25.85814, -25.86123, -25.85644, -25.85443, -25.84949, 
  -25.83899, -25.84269, -25.83497, -25.82616, -25.82554, -25.81457, -25.81256, -25.81689, -25.81195, -25.80824, 
  -25.80267, -25.80035, -25.79046, -25.79093, -25.78382, -25.77284, -25.7665, -25.75692, -25.76094, -25.75182, 
  -25.75336, -25.74903, -25.74594, -25.74099, -25.74579, -25.7311, -25.72615, -25.71625, -25.72058, -25.71316, 
  -25.71223, -25.70682, -25.70651, -25.69351, -25.70094, -25.70821, -25.70651, -25.69057, -25.68965, -25.68578, 
  -25.68222, -25.67588, -25.67278, -25.65824, -25.65716, -25.6536, -25.66242, -25.65777, -25.65298, -25.64586, 
  -25.6471, -25.63967, -25.64462, -25.64245, -25.62357, -25.62203, -25.63611, -25.62791, -25.63332, -25.61614, 
  -25.62311, -25.61755, -25.6109, -25.61152, -25.62127, -25.62297, -25.63195, -25.64711, -25.64309, -25.627, 
  -25.61988, -25.61121, -25.61523, -25.60347, -25.60424, -25.60006, -25.57978, -25.5643, -25.56383, -25.58442, 
  -25.58396, -25.55748, -25.55965, -25.5725, -25.58891, -25.6092, -25.61864, -25.61833, -25.57188, -25.55345, 
  -25.53162, -25.50884, -25.49784, -25.49382, -25.50946, -25.5437, -25.53378, -25.54308, -25.55702, -25.56708, 
  -25.58102, -25.58644, -25.57684, -25.56197, -25.566, -25.59542, -25.59712, -25.55345, -25.57142, -25.60331, 
  -25.60749, -25.5931, -25.603, -25.62545, -25.64386, -25.64603, -25.6612, -25.69276, -25.69771, -25.66104, 
  -25.6363, -25.61401, -25.62949, -25.61742, -25.60813, -25.59745, -25.59404, -25.58676, -25.59273,
  -26.76468, -28.05675, -28.48585, -37.44619)
LONGITUDE_VALUEs <- c(
  -57.36862, -57.44758, -57.47092, -57.51695, -57.588, -57.67076, -57.74763, -57.86417, -57.87395, -57.87704, 
  -57.89249, -57.92975, -57.95446, -57.98363, -57.99943, -58.01266, -58.05934, -58.11307, -58.15666, -58.18603, 
  -58.20422, -58.20525, -58.2207, -58.2207, -58.22756, -58.22964, -58.23479, -58.29039, -58.31478, -58.31592, 
  -58.33068, -58.32897, -58.33325, -58.34716, -58.34802, -58.33428, -58.33943, -58.33634, -58.33995, -58.34046, 
  -58.34544, -58.34716, -58.35573, -58.36758, -58.36878, -58.35951, -58.37273, -58.37581, -58.3935, -58.39865, 
  -58.40346, -58.41273, -58.42595, -58.43626, -58.44106, -58.44379, -58.4498, -58.45186, -58.46835, -58.46731, 
  -58.47676, -58.48088, -58.49101, -58.49341, -58.50045, -58.50577, -58.52157, -58.51007, -58.51007, -58.50371, 
  -58.50423, -58.4989, -58.4977, -58.50354, -58.50595, -58.5032, -58.50423, -58.49049, -58.48741, -58.49239, 
  -58.4905, -58.49479, -58.49582, -58.49101, -58.49067, -58.48191, -58.48209, -58.47557, -58.47643, -58.47248, 
  -58.47231, -58.46647, -58.462, -58.4541, -58.48243, -58.49736, -58.51556, -58.5111, -58.50406, -58.50045, 
  -58.49203, -58.48791, -58.48622, -58.49464, -58.49275, -58.46716, -58.4572, -58.45257, -58.43539, -58.43059, 
  -58.41567, -58.40914, -58.40742, -58.40433, -58.40262, -58.39729, -58.39695, -58.38888, -58.38957, -58.40588, 
  -58.40193, -58.39386, -58.39197, -58.39592, -58.39936, -58.40056, -58.38974, -58.38064, -58.37944, -58.37566, 
  -58.36793, -58.37291, -58.36604, -58.36227, -58.36072, -58.35626, -58.35231, -58.3566, -58.35608, -58.37239, 
  -58.37514, -58.36913, -58.37119, -58.36638, -58.35866, -58.3523, -58.35763, -58.36123, -58.36278, -58.36793, 
  -58.36192, -58.36501, -58.36106, -58.36381, -58.35488, -58.35059, -58.37564, -58.42767, -58.41634, -58.42304, 
  -58.42166, -58.41686, -58.41892, -58.41411, -58.41205, -58.40621, -58.40329, -58.41204, -58.43024, -58.42406, 
  -58.43213, -58.43574, -58.43075, -58.44672, -58.45891, -58.46629, -58.4553, -58.45478, -58.44679, -58.45366, 
  -58.45863, -58.44988, -58.45074, -58.44714, -58.45537, -58.45915, -58.4643, -58.46361, -58.48163, -58.4806, 
  -58.48884, -58.48627, -58.49141, -58.49228, -58.50207, -58.5206, -58.51854, -58.52472, -58.52352, -58.53416, 
  -58.52936, -58.53451, -58.53228, -58.54429, -58.55355, -58.53914, -58.54377, -58.52695, -58.53879, -58.48163, 
  -58.46652, -58.45588, -58.41884, -58.43978, -58.4257, -58.43497, -58.41987, -58.40783, -58.40611, -58.42774, 
  -58.43494, -58.42842, -58.41298, -58.41263, -58.39753, -58.36527, -58.33679, -58.34022, -58.33438,
  -58.35024, -58.30889, -58.26493, -58.21052, -58.17343, -58.14373, -58.13549, -58.12468, -58.12674, -58.11661, 
  -58.11798, -58.11352, -58.11214, -58.11726, -58.11451, -58.12173, -58.12447, -58.11933, -58.15092, -58.14439, 
  -58.15298, -58.14954, -58.16142, -58.16021, -58.17096, -58.18871, -58.18682, -58.1961, -58.19609, -58.20537, 
  -58.19695, -58.19558, -58.18459, -58.18425, -58.16899, -58.14306, -58.12469, -58.10151, -58.09877, -58.09945, 
  -58.10495, -58.12382, -58.15422, -58.1803, -58.18443, -58.16674, -58.15249, -58.14237, -58.13757, -58.14031, 
  -58.13791, -58.15198, -58.15525, -58.16983, -58.19044, -58.20727, -58.19508, -58.12811, -58.08984, -58.06683, 
  -58.05242, -58.03679, -58.03988, -58.03473, -58.01224, -58.00881, -57.98014, -57.98718, -58.00452, -58.00263, 
  -58.02838, -58.07146, -58.08297, -58.08179, -58.06462, -57.981, -57.97825, -57.9877, -57.99096, -57.99577, 
  -57.99783, -57.98168, -57.98136, -57.95955, -57.95079, -57.93569, -57.93226, -57.92161, -57.91389, -57.91286, 
  -57.91131, -57.91526, -57.91543, -57.92058, -57.91646, -57.89946, -57.89725, -57.86977, -57.86119, -57.86617, 
  -57.88299, -57.8957, -57.91356, -57.91562, -57.91219, -57.9012, -57.88952, -57.84609, -57.83081, -57.82188, 
  -57.81845, -57.81089, -57.80712, -57.7987, -57.80626, -57.80729, -57.79733, -57.81175, -57.80746, -57.80871, 
  -57.81747, -57.83583, -57.84493, -57.84442, -57.84665, -57.84613, -57.87393, -57.87633, -57.88338, -57.89058, 
  -57.88732, -57.88715, -57.88853, -57.88681, -57.88938, -57.88904, -57.88509, -57.88509, -57.88732, -57.88561, 
  -57.88647, -57.89041, -57.88938, -57.87118, -57.86518, -57.85797, -57.84424, -57.8099, -57.79411, -57.7773, 
  -57.76921, -57.73678, -57.69146, -57.681, -57.64529, -57.63739, -57.63516, -57.62933, -57.62709, -57.61525, 
  -57.6156, -57.6355, -57.64511, -57.65147, -57.65421, -57.6537, -57.65095, -57.65113, -57.65044, -57.64958,
  -57.64909, -57.6472, -57.64274, -57.63656, -57.62798, -57.62318, -57.61528, -57.60069,
  -57.60049, -57.59568, -57.58384, -57.54266, -57.48034, -57.45786, -57.45459, -57.44704, -57.41322, -57.39966, 
  -57.3813, -57.36257, -57.34952, -57.33648, -57.32825, -57.32413, -57.32927, -57.32773, -57.29425, -57.24189, 
  -57.22095, -57.17187, -57.12774, -57.04741, -57.03265, -57.02749, -57.01805, -57.00724, -56.98766, -56.97359, 
  -56.96638, -56.97222, -56.96844, -56.94475, -56.93171, -56.90321, -56.86012, -56.81825, -56.80674, -56.80296, 
  -56.77705, -56.77996, -56.7731, -56.76263, -56.74424, -56.71867, -56.70219, -56.65979, -56.64744, -56.65482, 
  -56.64486, -56.60598, -56.60135, -56.59534, -56.59586, -56.57852, -56.54555, -56.5078, -56.42334, -56.41235, 
  -56.41184, -56.3981, -56.40063, -56.41579, -56.41476, -56.40927, -56.38832, -56.33546, -56.3006, -56.29751, 
  -56.30077, -56.29305, -56.27607, -56.25031, -56.19074, -56.17993, -56.12773, -56.05014, -56.02269, -56.00329, 
  -56.00105, -56.02526, -56.02423, -56.00054, -55.94696, -55.90785, -55.88467, -55.8802, -55.90372, -55.87694, 
  -55.85719, -55.79883, -55.75814, -55.73928, -55.72691, -55.718, -55.70477, -55.6919, -55.68812, -55.6682, 
  -55.67026, -55.68605, -55.70391, -55.73259, -55.77172, -55.78357, -55.77532, -55.72297, -55.71284, -55.69137, 
  -55.65429, -55.63386, -55.62665, -55.62665, -55.6251, -55.63025, -55.62048, -55.62065, -55.61567, -55.60657, 
  -55.58923, -55.58339, -55.5894, -55.587, -55.56297, -55.55404, -55.54838, -55.5477, -55.53671, -55.51319, 
  -55.50066, -55.49963, -55.48692, -55.47149, -55.46462, -55.45483, -55.44608, -55.41997, -55.4126, -55.41123, 
  -55.39629, -55.3762, -55.36778, -55.37105, -55.38342, -55.38513, -55.3714, -55.34824, -55.3369, -55.33553, 
  -55.33209, -55.32041, -55.30942, -55.28057, -55.26275, -55.24626, -55.23218, -55.21484, -55.20454, -55.1853, 
  -55.1704, -55.16061, -55.13726, -55.13039, -55.12318, -55.12696, -55.11717, -55.09021, -55.06207, -55.04353, 
  -55.0346, -55.02515, -55.02429, -55.03305, -55.05846, -55.07185, -55.08439, -55.0849, -55.0765, -55.05744, 
  -55.04318, -55.02396, -55.00988, -54.99941, -54.99271, -54.98155, -54.97159, -54.96643, -54.9548, -54.93711, 
  -54.9292, -54.90585, -54.90208, -54.89933, -54.90345, -54.90654, -54.8952, -54.88112, -54.85814, -54.84956, 
  -54.83857, -54.83169, -54.825, -54.81401, -54.80697, -54.80027, -54.7934, -54.7905, -54.78672, -54.7751, 
  -54.76234, -54.75238, -54.75049, -54.74019, -54.72442, -54.68476, -54.67342, -54.67067, -54.68012, -54.67892, 
  -54.67069, -54.65935, -54.64769, -54.63618, -54.62073, -54.61163, -54.60613, -54.59257, -54.59171, -54.5809, 
  -54.57008, -54.54485, -54.53884, -54.53764, -54.53112, -54.52195, -54.51068, -54.50021, -54.47774, -54.44975, 
  -54.44179, -54.44529, -54.46125, -54.47155, -54.46812, -54.45318, -54.44339, -54.43086, -54.41422, -54.40289, 
  -54.38401, -54.372, -54.3538, -54.34229, -54.33267, -54.33903, -54.34194, -54.33353, -54.30159, -54.29609, 
  -54.28548, -54.26694, -54.2702, -54.26488, -54.25378, -54.22976, -54.21672, -54.2131, -54.21413, -54.21104, 
  -54.19131, -54.1937, -54.18564, -54.17088, -54.1623, -54.15526, -54.15458, -54.15955, -54.15818, -54.10117, 
  -54.07371, -54.06393, -54.05156, -54.0289, -54.01912, -54.01466, -54.01672, -54.01329, -54.00402, -53.98343, 
  -53.97021, -53.95992, -53.95681, -53.96127, -53.94942, -53.92797, -53.91854, -53.90378, -53.88765, -53.88471, 
  -53.87012, -53.86086, -53.84642, -53.83715, -53.83115, -53.83784, -53.82652, -53.79891, -53.79872, -53.81879, 
  -53.82669, -53.82291, -53.81742, -53.80489, -53.80661, -53.81965, -53.81203, -53.80568, -53.79469, -53.78868, 
  -53.77528, -53.80619, -53.79882, -53.78096, -53.77134, -53.77437, -53.78405, -53.79813, -53.80174, -53.79332, 
  -53.78388, -53.76825, -53.75807, -53.77224, -53.78596, -53.78149, -53.77136, -53.76604, -53.76209, -53.75968, 
  -53.74766, -53.74989, -53.75846, -53.76432, -53.75419, -53.74079, -53.73049, -53.74595, -53.73994, -53.72379, 
  -53.71692, -53.73822, -53.7365, -53.72946, -53.72654, -53.71143, -53.69976, -53.71047, -53.70629, -53.67367, 
  -53.67109, -53.69891, -53.67281, -53.68036, -53.67814, -53.66938, -53.69806, -53.68827, -53.67917, -53.69755, 
  -53.69549, -53.68192, -53.67368, -53.66269, -53.65942, -53.67247, -53.67882, -53.69342, -53.6972, -53.68706, 
  -53.69908, -53.70045, -53.71024, -53.71024, -53.70406, -53.69668, -53.69994, -53.70938, -53.71779, -53.70783, 
  -53.69787, -53.69993, -53.71453, -53.71727, -53.73118, -53.73822, -53.74475, -53.74166, -53.73273, -53.71676, 
  -53.71418, -53.72225, -53.72981, -53.72963, -53.73393, -53.7357, -53.75144, -53.75076, -53.74268, -53.74406, 
  -53.75814, -53.75608, -53.7523, -53.74887, -53.742, -53.7365, -53.73204, -53.74251, -53.74286, -53.73667, 
  -53.7341, -53.72757, -53.71607, -53.71727, -53.73204, -53.72551, -53.72603, -53.71899, -53.72036, -53.72569, 
  -53.72294, -53.73204, -53.7341, -53.74368, -53.76089, -53.75213, -53.74028, -53.7408, -53.73255, -53.73383, 
  -53.72809, -53.73594, -53.72878, -53.7306, -53.72809, -53.7329, -53.72483, -53.7202, -53.70886, -53.70835, 
  -53.72123, -53.73308, -53.73806, -53.73583, -53.72569, -53.72552, -53.74321, -53.73067, -53.72398, -53.71917, 
  -53.72552, -53.71625, -53.71848, -53.72483, -53.73015, -53.72809, -53.73239, -53.7262, -53.71985, -53.71539, 
  -53.70422, -53.70285, -53.70903, -53.70268, -53.69598, -53.69994, -53.69547, -53.70354, -53.70681, -53.71007, 
  -53.71694, -53.70526, -53.69856, -53.69788, -53.70389, -53.70406, -53.6874, -53.68878, -53.688, -53.69359, 
  -53.69514, -53.69823, -53.70578, -53.70458, -53.70699, -53.69771, -53.69823, -53.70784, -53.70991, -53.70063, 
  -53.69737, -53.70235, -53.69943, -53.69016, -53.69514, -53.68947, -53.68706, -53.67127, -53.67436, -53.66096, 
  -53.66251, -53.65238, -53.64569, -53.64501, -53.64158, -53.64693, -53.63732, -53.64384, -53.65396, -53.64109, 
  -53.65346, -53.64934, -53.65792, -53.68435, -53.70049, -53.71336, -53.724, -53.73637, -53.74203, -53.74323, 
  -53.73808, -53.73963, -53.72727, -53.73139, -53.73053, -53.73774, -53.74735, -53.75078, -53.75799, -53.75713, 
  -53.76399, -53.77206, -53.7724, -53.7815, -53.77669, -53.78493, -53.7803, -53.79385, -53.79249, -53.8009, 
  -53.80536, -53.80056, -53.80399, -53.81085, -53.81841, -53.82029, -53.81257, -53.82338, -53.82784, -53.83694, 
  -53.83471, -53.82853, -53.83009, -53.83971, -53.84364, -53.83232, -53.83431, -53.82418, -53.81954, -53.82332, 
  -53.81748, -53.82675, -53.83448, -53.83345, -53.82126, -53.81971, -53.83568, -53.83362, -53.84805, -53.84942, 
  -53.83912, -53.8398, -53.83087, -53.82366, -53.83671, -53.8319, -53.84134, -53.84426, -53.83567, -53.83482, 
  -53.84306, -53.84924, -53.84992, -53.84134, -53.8355, -53.83739, -53.82897, -53.81953, -53.8197, -53.82812, 
  -53.82812, -53.82193, -53.82348, -53.84426, -53.83086, -53.83602, -53.85782, -53.84718, -53.83997, -53.84249, 
  -53.83395, -53.83499, -53.84752, -53.84924, -53.86675, -53.86365, -53.8585, -53.86227, -53.86966, -53.86811, 
  -53.87618, -53.8791, -53.86468, -53.8719, -53.85833, -53.85679, -53.85043, -53.85404, -53.84185, -53.84305, 
  -53.85885, -53.85919, -53.85387, -53.86383, -53.8731, -53.87551, -53.88839, -53.89113, -53.88426, -53.88152, 
  -53.87619, -53.87928, -53.88753, -53.89525, -53.88856, -53.89457, -53.91174, -53.91483, -53.92136, -53.91466, 
  -53.93662, -53.94262, -53.94159, -53.94983, -53.94777, -53.95481, -53.94502, -53.95172, -53.96288, -53.96117, 
  -53.96512, -53.96512, -53.97765, -53.97834, -53.96975, -53.96958, -54.00237, -54.01251, -54.0271, -54.04136, 
  -54.05578, -54.07395, -54.08408, -54.08408, -54.09061, -54.0882, -54.09335, -54.10366, -54.12426, -54.12115, 
  -54.10192, -54.09213, -54.09402, -54.10484, -54.13179, -54.16527, -54.19481, -54.20923, -54.20698, -54.17882, 
  -54.17264, -54.18637, -54.20853, -54.22776, -54.23789, -54.23583, -54.25558, -54.28148, -54.33128, -54.34207, 
  -54.35529, -54.3728, -54.39118, -54.38928, -54.4001, -54.40799, -54.4262, -54.42396, -54.43598, -54.44783, 
  -54.46962, -54.50053, -54.5256, -54.53917, -54.53418, -54.53452, -54.545, -54.55513, -54.59296,
  -54.11604, -56.01381, -59.34995, -61.94266)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_3, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_3 <- st_set_geometry(Geo_3, st_union(Geo_0[c(1:5, 24)]))
Geo_3 <- st_union(Geo_3, Geo)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(
  -34.326, -34.3294, -34.37745, -34.3766, -34.36583, -34.35577, -34.35605, -34.3467, -34.34131, -34.33862,
  -34.32969, -34.32799, -34.32628, -34.32699, -34.33252, -34.33096, -34.33492856347904, -34.32685)
LONGITUDE_VALUEs <- c(
  -58.48591, -58.48625, -58.45502, -58.44833, -58.44164, -58.4509, -58.4449, -58.45056, -58.44387, -58.4437,
  -58.43975, -58.43615, -58.43803, -58.45005, -58.45022, -58.45382, -58.45541639959546, -58.46154)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  -34.29429, -34.2984, -34.30124, -34.31853, -34.32052, -34.31783, -34.32137, -34.32151, -34.31896, -34.31811, 
  -34.31627, -34.31527, -34.31329, -34.31059, -34.30847, -34.30974, -34.30549, -34.30563, -34.30336, -34.30138, 
  -34.29656, -34.29216, -34.28975, -34.28748, -34.28833, -34.28705, -34.28734, -34.28564, -34.28535, -34.28351, 
  -34.28464, -34.28961)
LONGITUDE_VALUEs <- c(
  -58.50154, -58.50789, -58.50858, -58.48627, -58.4794, -58.47511, -58.47666, -58.47271, -58.47134, -58.46739, 
  -58.46739, -58.47408, -58.47408, -58.48146, -58.4806, -58.47254, -58.47305, -58.46653, -58.46619, -58.46859, 
  -58.46585, -58.47082, -58.47683, -58.4746, -58.4655, -58.4643, -58.46104, -58.4619, -58.47837, -58.48369, 
  -58.4933, -58.49965)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(-34.20456, -34.20896, -34.22273, -34.22955, -34.22827, -34.22571, -34.22174, -34.21592, -34.21209, -34.20485)
LONGITUDE_VALUEs <- c(-58.26242, -58.26757, -58.26465, -58.25402, -58.25127, -58.25505, -58.24955, -58.25213, -58.25007, -58.25367)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(-34.26772, -34.27679, -34.27679, -34.268)
LONGITUDE_VALUEs <- c(-58.34859, -58.34894, -58.34465, -58.34173)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(-34.07715, -34.0962, -34.10103, -34.09805, -34.08426, -34.07701)
LONGITUDE_VALUEs <- c(-58.35241, -58.35207, -58.34864, -58.34623, -58.34864, -58.34932)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  -34.13838, -34.14349, -34.15145, -34.15713, -34.18838, -34.19207, -34.19576, -34.19434, -34.18057, -34.17645, 
  -34.17338, -34.16736, -34.16253, -34.16324, -34.15784, -34.15386, -34.15102, -34.13838)
LONGITUDE_VALUEs <- c(
  -58.33829, -58.33829, -58.34258, -58.33778, -58.33417, -58.33692, -58.33538, -58.32954, -58.31702, -58.3177, 
  -58.32233, -58.32182, -58.32525, -58.32851, -58.32886, -58.33298, -58.33024, -58.33641)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  -34.24019, -34.25126, -34.27183, -34.27864, -34.28048, -34.27864,  -34.27679, -34.2697, -34.26743, -34.27027, 
  -34.26757, -34.25835, -34.25551, -34.24856, -34.25452, -34.25353, -34.2575, -34.25878, -34.2548, -34.25409, 
  -34.25012, -34.25026, -34.26048, -34.26644, -34.26842, -34.25296, -34.25424, -34.2514, -34.24743, -34.24998, 
  -34.24374, -34.22557, -34.22642)
LONGITUDE_VALUEs <- c(
  -58.27512, -58.27443, -58.27923, -58.27803, -58.27426, -58.27426,  -58.27563, -58.277, -58.27185, -58.26207, 
  -58.26139, -58.27048, -58.26619, -58.26619, -58.26173, -58.2583, -58.2595, -58.25744, -58.25658, -58.2528, 
  -58.25675, -58.2492, -58.25229, -58.2492, -58.24302, -58.2389, -58.23324, -58.23135, -58.23925, -58.24491, 
  -58.24663, -58.26619, -58.27099)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  -34.18789, -34.19073, -34.20507, -34.23942, -34.24481, -34.25006, -34.24821, -34.2529, -34.24538, -34.24623, 
  -34.23956, -34.23459, -34.23431, -34.23814, -34.23133, -34.22934, -34.23275, -34.22153, -34.23885, -34.23729, 
  -34.24452, -34.24736, -34.24978, -34.2502, -34.25474, -34.25488, -34.25871, -34.26269, -34.25417, -34.24424, 
  -34.2397, -34.23629, -34.22352, -34.2221, -34.21586, -34.20464, -34.19286)
LONGITUDE_VALUEs <- c(
  -58.31178, -58.32294, -58.331, -58.32963, -58.3334, -58.32757, -58.32071, -58.31556, -58.31521, -58.31075, 
  -58.31041, -58.30784, -58.31024, -58.3123, -58.31933, -58.3159, -58.31281, -58.30337, -58.30097, -58.29462, 
  -58.29394, -58.29926, -58.29823, -58.29308, -58.29239, -58.28879, -58.28999, -58.28604, -58.28175, -58.28295, 
  -58.28089, -58.28278, -58.2766, -58.27952, -58.27832, -58.28587, -58.30715)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  -34.22068, -34.22693, -34.23317, -34.23885, -34.24126, -34.24651, -34.25148, -34.24353, -34.23786, -34.23445, 
  -34.22295, -34.21231)
LONGITUDE_VALUEs <- c(
  -58.34902, -58.35228, -58.34679, -58.34508, -58.33821, -58.33975, -58.33289, -58.3346, -58.33272, -58.33392, 
  -58.33134, -58.33787)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
Geo_3 <- Geo_3 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("BRAZIL", "URUGUAY", "ARGENTINA"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, MGeo_1)

BAIKONUR COSMODROME is included in KAZAKHSTAN in GeoDATA.

BAIKONUR COSMODROME is a Russian Spaceport.

BAIKONUR COSMODROME has been leased by KAZAKHSTAN since 1955 (until 2050).

##### BAIKONUR COSMODROME #####
LATITUDE_VALUEs <- c(
  46.10977, 45.98359, 45.80797, 45.67055, 45.68878, 45.78439, 45.85235, 46.03128, 46.09655, 46.0956, 
  46.10703, 46.24301, 46.24444, 46.09572)
LONGITUDE_VALUEs <- c(
  62.83169, 62.83084, 63.15236, 63.24935, 63.37618, 63.44074, 63.74235, 64.07864, 63.99624, 63.90594, 
  63.88277, 63.90096, 63.88672, 63.8656)
MGeo_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- MGeo_1 %>% 
  mutate(NAME = "BAIKONUR COSMODROME", VISUALIZATION_NAME = "Baikonur Cosmodrome", 
         ISO2 = NA, ISO3 = NA, M49_CODE = NA, SOVRN = "Kazakhstan", Claimed = NA, COUNTRY = "Kazakhstan",
         CONTINENT = "ASIA",  CONTINENT_CODE = "142", SREGION = "Central Asia", SREGION_CODE = "143", 
         IREGION = NA, IREGION_CODE = NA, SIREGION = SREGION, SIREGION_CODE = "143",
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) and TERRITORIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "KAZAKHSTAN")

##### KAZAKHSTAN #####
Geo_0 <- Geometric_Operations(Geo_1, MGeo_1)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "KAZAKHSTAN")
GeoDATA <- rbind(GeoDATA, Geo_1)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, MGeo_1)

SOUTHERN PATAGONIAN ICE FIELD is included in ARGENTINA in GeoDATA.

SOUTHERN PATAGONIAN ICE FIELD is an area claimed by ARGENTINA and by CHILE.

##### SOUTHERN PATAGONIAN ICE FIELD #####
LATITUDE_VALUEs <- c(
  -49.78932, -49.67592, -49.67126, -49.65981, -49.65259, -49.51637, -49.51124, -49.49786, -49.49441, -49.49229, 
  -49.48883, -49.48783, -49.47857, -49.46229, -49.45983, -49.45224, -49.44722, -49.44756, -49.44231, -49.44075, 
  -49.43048, -49.42646, -49.42367, -49.41484, -49.41429, -49.41205, -49.41015, -49.41038, -49.4077, -49.40881, 
  -49.40379, -49.40401, -49.40055, -49.39686, -49.39005, -49.38826, -49.37898, -49.37317, -49.35853, -49.35718, 
  -49.35349, -49.34746, -49.33974, -49.33806, -49.33001, -49.32531, -49.31781, -49.31613, -49.31222, -49.30752, 
  -49.29778, -49.28669, -49.28378,
  -49.28389, -49.20455, -49.21801, -49.24222, -49.26922, -49.27359, -49.27337, -49.28781, -49.29643, -49.29912, 
  -49.29688, -49.30091, -49.3064, -49.31513, -49.31546, -49.31938, -49.3252, -49.33728, -49.34198, -49.35305, 
  -49.36132, -49.37865, -49.38479, -49.38893, -49.39384, -49.39273, -49.39943, -49.40569, -49.41004, -49.41395, 
  -49.41954, -49.42188, -49.42936, -49.43606, -49.43706, -49.44131, -49.44823, -49.4624, -49.46954, -49.47578, 
  -49.48025, -49.48281, -49.48448, -49.50087, -49.49653, -49.50087, -49.49809, -49.50433, -49.52651, -49.5372, 
  -49.54422, -49.55035, -49.55547, -49.56438, -49.57017, -49.57284, -49.57996, -49.59621, -49.61501, -49.62335, 
  -49.63514, -49.64448, -49.65092, -49.66148, -49.66092, -49.66626, -49.68448, -49.69169, -49.70113, -49.70835, 
  -49.71135, -49.71579, -49.71678, -49.73942, -49.75329, -49.75772, -49.76061, -49.76371, -49.77147, -49.77358, 
  -49.783)
LONGITUDE_VALUEs <- c(
  -73.45104, -73.15596, -73.15184, -73.15287, -73.14256, -73.02257, -73.02223, -73.01519, -73.01571, -73.0097, 
  -73.00987, -73.01554, -73.01193, -73.0188, -73.01605, -73.01794, -73.01725, -73.0327, -73.03201, -73.03579, 
  -73.04214, -73.03991, -73.03373, -73.04249, -73.04781, -73.04987, -73.06051, -73.06926, -73.07355, -73.08608, 
  -73.09604, -73.10324, -73.10547, -73.11733, -73.11836, -73.12248, -73.12694, -73.13381, -73.13381, -73.12952, 
  -73.12917, -73.11561, -73.10789, -73.09501, -73.09501, -73.10188, -73.09364, -73.09656, -73.09467, -73.10119, 
  -73.10445, -73.09599, -73.09771,
  -73.14925, -73.47301, -73.47541, -73.49498, -73.49687, -73.49292, -73.4804, -73.45756, -73.45636, -73.4507, 
  -73.43697, -73.43388, -73.43473, -73.43147, -73.41842, -73.41036, -73.41534, -73.41739, -73.42907, -73.42495, 
  -73.43078, -73.42529, -73.42717, -73.42546, -73.42717, -73.43421, -73.45894, -73.46769, -73.46734, -73.47198, 
  -73.47369, -73.48485, -73.49053, -73.48864, -73.47834, -73.47336, -73.47851, -73.47868, -73.46959, -73.4689, 
  -73.46341, -73.46341, -73.47285, -73.48709, -73.51043, -73.52845, -73.53961, -73.5451, -73.53927, -73.5506, 
  -73.54511, -73.54576, -73.54009, -73.53648, -73.52052, -73.50455, -73.49047, -73.47674, -73.46765, -73.46009, 
  -73.4606, -73.46524, -73.47967, -73.49544, -73.50265, -73.50626, -73.49819, -73.49837, -73.5085, -73.50798, 
  -73.49408, -73.48824, -73.47587, -73.46472, -73.44961, -73.43845, -73.44189, -73.45202, -73.46009, -73.46593, 
  -73.46198)
MGeo_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- MGeo_1 %>% 
  mutate(NAME = "SOUTHERN PATAGONIAN ICE FIELD", VISUALIZATION_NAME = "Southern Patagonian Ice Field", 
         ISO2 = NA, ISO3 = NA, M49_CODE = NA, SOVRN = NA, Claimed = "Argentina | Chile", COUNTRY = NA,
         CONTINENT = "AMERICAS",  CONTINENT_CODE = "019", SREGION = "Latin America and the Caribbean", SREGION_CODE = "419", 
         IREGION = "South America", IREGION_CODE = "005", SIREGION = IREGION, SIREGION_CODE = "005",
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) and TERRITORIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "ARGENTINA")
Geo_2 <- GeoDATA %>% filter(NAME == "CHILE")

##### ARGENTINA #####
Geo_0 <- Geometric_Operations(Geo_1, MGeo_1)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
LATITUDE_VALUEs <- c(
  -44.75663, -44.75712, -44.76553, -44.75615, -44.75993, -44.7726, -44.7815, -44.80305, -44.8375, -44.83811, 
  -44.84811, -44.86295, -44.87317, -44.90479, -44.8958, -44.90115, -44.9206, -44.9206, -44.94369, -44.94758, 
  -44.95972, -44.93056, -44.9206, -44.94174, -44.92619, -44.95729, -44.95584, -44.97576, -44.96895, -44.97576, 
  -44.97065, -44.9811, -44.97697, -44.98935, -44.99809, -45.02771, -45.06846, -45.09948, -45.11669, -45.14188, 
  -45.15665, -45.18908, -45.24543, -45.26863, -45.29013, -45.32152, -45.32563, -45.33166, -45.33673, -45.34397, 
  -45.36157, -45.39545, -45.38484, -45.39183, -45.42365, -45.43546, -45.44172, -45.4593, -45.48061, -45.4853, 
  -45.49337, -45.50251, -45.51466, -45.51334, -45.52368, -45.51863, -45.52164, -45.50973, -45.51322, -45.50865, 
  -45.51803, -45.51322, -45.53366, -45.54063, -45.54646, -45.56034, -45.57543, -45.57963, -45.57314, -45.57693, 
  -45.57951, -45.59363, -45.59837, -45.6081, -45.61074, -45.6087, -45.62053, -45.61741, -45.61909, -45.62749, 
  -45.63397, -45.63649, -45.63943, -45.64087, -45.64495, -45.64832, -45.65197, -45.65761, -45.65773, -45.66613, 
  -45.67033, -45.67801, -45.68017, -45.69576, -45.70547, -45.70415, -45.71938, -45.72381, -45.73028, -45.73975, 
  -45.77269, -45.78657, -45.80417, -45.8452, -45.855, -45.85488, -45.86665, -45.86474, -45.87484, -45.8746, 
  -45.88954, -45.89694, -45.90859, -45.91731, -45.91892, -45.92465, -45.9283, -45.93409, -45.9345, -45.94322, 
  -45.94579, -45.96088, -45.96291, -45.96852, -45.97902, -45.98343, -45.97645, -45.98516, -45.99124, -46, 
  -46.01413, -46.02701, -46.03964, -46.06132, -46.06966, -46.06966, -46.08871, -46.09538, -46.09061, -46.09847, 
  -46.10847, -46.12156, -46.11751, -46.11918, -46.10942, -46.13964, -46.14511, -46.15938, -46.16414, -46.15677, 
  -46.16842, -46.19338, -46.19053, -46.2017, -46.19029, -46.19789, -46.21571, -46.21761, -46.28836, -46.30235, 
  -46.32275, -46.34408, -46.52415, -46.6202, -46.63388, -46.68784, -46.69632, -46.73892, -46.75327, -46.7963, 
  -46.80382, -46.79806, -46.81627, -46.83307, -46.86817, -46.8785, -46.88601, -46.89011, -46.89821, -46.90466, 
  -46.95565, -46.96842, -46.97768, -46.97533, -46.98517, -46.99255, -46.99817, -46.99524, -47.01245, -47.05913, 
  -47.05866, -47.07655, -47.07983, -47.08625, -47.10811, -47.11921, -47.12446, -47.1324, -47.14385, -47.16474, 
  -47.17968, -47.19823, -47.20336, -47.21222, -47.22377, -47.23332, -47.20569, -47.19811, -47.20569, -47.21351, 
  -47.22132, -47.22703, -47.25022, -47.27434, -47.29472, -47.31974, -47.32905, -47.33184, -47.3401, -47.3422, 
  -47.33591, -47.32754, -47.35104, -47.36348, -47.37778, -47.3951, -47.39765, -47.41647, -47.40648, -47.40265, 
  -47.40631, -47.41479, -47.41514, -47.42124, -47.43215, -47.43285, -47.43593, -47.43709, -47.44608, -47.44603, 
  -47.45009, -47.44835, -47.4534, -47.45502, -47.46831, -47.47703, -47.48173, -47.47917, -47.4924, -47.49269, 
  -47.49686, -47.49791, -47.5051, -47.51229, -47.54729, -47.55343, -47.5609, -47.57202, -47.57648, -47.58482, 
  -47.59009, -47.60994, -47.6314, -47.63557, -47.63892, -47.63533, -47.63747, -47.63499, -47.6517, -47.65921, 
  -47.65725, -47.66106, -47.66661, -47.66852, -47.66991, -47.67736, -47.69077, -47.70215, -47.70544, -47.71099, 
  -47.71572, -47.73443, -47.74043, -47.7473, -47.73859, -47.74563, -47.74672, -47.75959, -47.76023, -47.75463, 
  -47.75261, -47.75642, -47.74014, -47.74159, -47.75521, -47.75775, -47.76179, -47.76255, -47.79808, -47.8119, 
  -47.81295, -47.87044, -47.87424, -47.89013, -47.89922, -47.93466, -47.94409, -47.95133, -47.95616, -47.96155, 
  -47.95891, -47.96155, -47.95672, -47.96454, -47.96534, -47.9696, -47.97166, -47.98741, -47.99568, -48.00406, 
  -48.00923, -48.03472, -48.04379, -48.04884, -48.0579, -48.0649, -48.07224, -48.07201, -48.07935, -48.07591, 
  -48.07694, -48.07213, -48.07637, -48.07396, -48.10206, -48.11696, -48.1346, -48.13987, -48.15923, -48.16598, 
  -48.17388, -48.17652, -48.19677, -48.21554, -48.22594, -48.23178, -48.29017, -48.29326, -48.30182, -48.30137, 
  -48.31004, -48.32226, -48.32602, -48.34953, -48.34907, -48.36379, -48.35797, -48.35387, -48.35968, -48.34621, 
  -48.35317, -48.34963, -48.37176, -48.38464, -48.39194, -48.39274, -48.39958, -48.39901, -48.4112, -48.41599, 
  -48.42237, -48.43296, -48.44993, -48.47156, -48.47952, -48.4967, -48.49579, -48.50512, -48.50705, -48.51353, 
  -48.51831, -48.51478, -48.51388, -48.51945, -48.50091, -48.49101, -48.48191, -48.4843, -48.48305, -48.48692, 
  -48.49374, -48.49625, -48.5615, -48.5774, -48.6076, -48.61566, -48.63166, -48.65831, -48.66738, -48.67849, 
  -48.69447, -48.70671, -48.71192, -48.73978, -48.77158, -48.79804, -48.82314, -48.82924, -48.86697, -48.86607, 
  -48.89683, -48.89768, -48.9005, -48.90422, -48.90479, -48.90654, -48.9049, -48.90778, -48.91229, -48.9159, 
  -48.94511, -48.95396, -48.95971, -48.95988, -48.96382, -48.96917, -48.96005, -48.96021, -48.96698, -48.965, 
  -48.95785, -48.94629, -48.94872, -48.94686, -48.94652, -48.94246, -48.94094, -48.93457, -48.94517, -48.95678, 
  -48.96354, -48.98163, -48.99114, -48.99959, -49.01063, -49.01609, -49.02926, -49.02965, -49.03725, -49.05278, 
  -49.05778, -49.06346, -49.06425, -49.06757, -49.07443, -49.08191, -49.08623, -49.09905, -49.1059, -49.11411, 
  -49.11804, -49.12635, -49.13309, -49.14545, -49.14635, -49.1514, -49.16824, -49.17811, -49.18815, -49.20756, 
  -49.21978, -49.23032, -49.23329, -49.24593, -49.26167, -49.26565, -49.26671, -49.26475, -49.26657, -49.26702, 
  -49.26108, -49.25307, -49.25377, -49.25683, -49.25963, -49.26724, -49.27083, -49.27066, -49.27262, -49.27268, 
  -49.27119, -49.27209, -49.27469, -49.27696, -49.28385,
  -49.28378, -49.28669, -49.29778, -49.30752, -49.31222, -49.31613, -49.31781, -49.32531, -49.33001, -49.33806,
  -49.33974, -49.34746, -49.35349, -49.35718, -49.35853, -49.37317, -49.37898, -49.38826, -49.39005, -49.39686,
  -49.40055, -49.40401, -49.40379, -49.40881, -49.4077, -49.41038, -49.41015, -49.41205, -49.41429, -49.41484,
  -49.42367, -49.42646, -49.43048, -49.44075, -49.44231, -49.44756, -49.44722, -49.45224, -49.45983, -49.46229,
  -49.47857, -49.48783, -49.48883, -49.49229, -49.49441, -49.49786, -49.51124, -49.51637, -49.65259, -49.65981,
  -49.67126, -49.67592, -49.78932,
  -49.79102, -49.79509, -49.79784, -49.79928, -49.7993, -49.8046, -49.80449, -49.81047, -49.81147, -49.81844,
  -49.82481, -49.82902, -49.83727, -49.84779, -49.85288, -49.85459, -49.85952, -49.86151, -49.86748,
  -49.87954, -49.89149, -49.89652, -49.89857, -49.90365, -49.90658, -49.90929, -49.92344, -49.93902, -49.94239,
  -49.94758, -49.95089, -49.95205, -49.95802, -49.96056, -49.96746, -49.96669, -49.9705, -49.96139, -49.96564,
  -49.97199, -49.9737, -49.97856, -49.98192, -49.98435, -49.99324, -50.00096, -50.01034, -50.01629, -50.03438,
  -50.04011, -50.04678, -50.05009, -50.05373, -50.05467, -50.04959, -50.05489, -50.05973, -50.0713, -50.08419,
  -50.08899, -50.09069, -50.0891, -50.09438, -50.09967, -50.10473, -50.10583, -50.11684, -50.11844, -50.12405,
  -50.12834, -50.13219, -50.13698, -50.14012, -50.14738, -50.15376, -50.15684, -50.15436, -50.16618, -50.16657,
  -50.17245, -50.18548, -50.17982, -50.18218, -50.18636, -50.18922, -50.19537, -50.19817, -50.20004, -50.20268,
  -50.20641, -50.20713, -50.21031, -50.2135, -50.22113, -50.23019, -50.2336, -50.2432, -50.246, -50.24963,
  -50.25215, -50.30141, -50.33577, -50.33615, -50.3436, -50.35516, -50.36283, -50.3816, -50.38002, -50.37049,
  -50.37274, -50.37712, -50.38461, -50.3926, -50.41618, -50.42892, -50.44696, -50.45374, -50.47286, -50.48755,
  -50.49575, -50.49935, -50.50557, -50.51889, -50.52195, -50.53493, -50.53804, -50.54628, -50.54742, -50.55632,
  -50.56243, -50.57104, -50.57284, -50.59002, -50.59579, -50.61105, -50.6068, -50.61519, -50.64372, -50.65166,
  -50.65547, -50.65797, -50.66973, -50.67353, -50.68865, -50.69398, -50.70257, -50.70442, -50.74311, -50.74658,
  -50.75951, -50.75788, -50.76754, -50.81137, -50.82064, -50.81099, -50.80112, -50.78056, -50.77334, -50.78251,
  -50.78913, -50.771, -50.76118, -50.75928, -50.76188, -50.76135, -50.75234, -50.75114, -50.74376, -50.73963,
  -50.74137, -50.73648, -50.72333, -50.71877, -50.71446, -50.70718, -50.70355, -50.70583, -50.69866, -50.68463,
  -50.67016, -50.67147, -50.65177, -50.65482, -50.62685, -50.63088, -50.62642, -50.61553, -50.61476, -50.6262,
  -50.63143, -50.63807, -50.64569, -50.64133, -50.65712, -50.66245, -50.65222, -50.6631, -50.67409, -50.67539,
  -50.68236, -50.67877, -50.67267, -50.65603, -50.64623, -50.61977, -50.62075, -50.61661, -50.61585, -50.603,
  -50.60387, -50.61857, -50.61694, -50.62337, -50.63219, -50.63774, -50.61574, -50.61901, -50.64982, -50.65298,
  -50.65984, -50.68029, -50.70628, -50.70813, -50.71671, -50.71758, -50.72573, -50.72899, -50.7568, -50.791,
  -50.83905, -50.85669, -50.85908, -50.86287, -50.87425, -50.87528, -50.89, -50.89888, -50.90722, -50.91047,
  -50.91847, -50.92297, -50.94325, -50.94877, -50.95293, -50.95715, -50.96207, -51.03495, -51.03441, -51.02837,
  -51.03205, -51.02557, -51.02903, -51.02158, -51.02298, -51.08123, -51.08419, -51.09861, -51.10195, -51.10702,
  -51.12627, -51.13521, -51.16095, -51.16558, -51.18075, -51.18075, -51.20485, -51.21087, -51.20076, -51.22528,
  -51.24441, -51.25494, -51.25999, -51.27235, -51.27353, -51.28609, -51.28738, -51.29822, -51.30123, -51.30756,
  -51.3096, -51.31432, -51.31786, -51.34231, -51.34381, -51.34982, -51.34982, -51.34424, -51.34585, -51.36751,
  -51.39729, -51.40372, -51.40532, -51.42416, -51.45338, -51.47434, -51.47819, -51.4769, -51.49615, -51.52125,
  -51.52253, -51.52595, -51.5141, -51.51335, -51.52008, -51.52371, -51.52852, -51.52926, -51.54507, -51.54635,
  -51.58519, -51.58785, -51.59511, -51.59276, -51.5854, -51.58455, -51.58945, -51.58391, -51.58839, -51.62677,
  -51.63242, -51.63039, -51.63529, -51.63891, -51.63955, -51.64499, -51.64605, -51.65319, -51.66192, -51.66948,
  -51.68757, -51.69896, -51.70577, -51.69907, -51.70651, -51.70237, -51.72236, -51.72194, -51.72704, -51.73501,
  -51.74607, -51.74341, -51.76891, -51.77401, -51.78347, -51.78516, -51.81054, -51.86698, -51.86676, -51.88605,
  -51.89389, -51.90957, -51.91401, -51.92058, -51.91507, -51.96184, -51.98013, -51.97178, -51.99049, -51.99123,
  -52.00022, -52.00076, -52.15184, -52.15037, -52.18553, -52.20363, -52.27763, -52.28541, -52.30682, -52.32508,
  -52.33243, -52.38655, -52.39478, -52.39763,
  -52.39734, -52.38896, -52.38074, -52.37209, -52.35354, -52.33545, -52.32302, -52.28319, -52.24232, -52.16752,
  -52.12171, -52.04238,
  -51.86428, -45.03433, -44.84649)
LONGITUDE_VALUEs <- c(
  -72.01668, -72.02269, -72.02973, -72.06013, -72.06683, -72.06271, -72.07404, -72.03112, -72.05276, -72.06478, 
  -72.07058, -72.03829, -72.0613, -72.0356, -72.02118, -71.98099, -71.97549, -71.94595, -71.93153, -71.88619, 
  -71.87665, -71.85158, -71.81894, -71.77876, -71.75609, -71.74407, -71.70766, -71.65725, -71.63768, -71.62153, 
  -71.60504, -71.581, -71.5597, -71.55799, -71.54356, -71.55764, -71.50409, -71.51474, -71.48417, -71.48524, 
  -71.42376, -71.40658, -71.33071, -71.35235, -71.31972, -71.33448, -71.34856, -71.34925, -71.37158, -71.37158, 
  -71.44303, -71.43788, -71.45539, -71.53297, -71.52095, -71.53624, -71.51066, -71.51134, -71.46892, -71.47803, 
  -71.46773, -71.50311, -71.51341, -71.52956, -71.55973, -71.57605, -71.58601, -71.59838, -71.6116, -71.62328, 
  -71.64762, -71.68368, -71.69238, -71.74585, -71.74448, -71.76369, -71.76389, -71.75032, -71.72834, -71.72662, 
  -71.73211, -71.73211, -71.74507, -71.74095, -71.75023, -71.75383, -71.76094, -71.76996, -71.78005, -71.77721, 
  -71.78159, -71.77378, -71.77464, -71.77215, -71.77979, -71.77773, -71.78502, -71.77876, -71.78554, -71.79644, 
  -71.78571, -71.7791, -71.77421, -71.77224, -71.78401, -71.79208, -71.80169, -71.79603, -71.795, -71.77525, 
  -71.75311, -71.76272, -71.74247, -71.76958, -71.75448, -71.71945, -71.69816, -71.69292, -71.68074, -71.6737, 
  -71.65328, -71.65507, -71.64504, -71.64701, -71.64237, -71.6422, -71.63242, -71.63104, -71.62452, -71.62298, 
  -71.61851, -71.61697, -71.61139, -71.61568, -71.61645, -71.62718, -71.63319, -71.64838, -71.64383, -71.64771, 
  -71.64794, -71.66649, -71.66683, -71.69735, -71.69666, -71.7104, -71.71384, -71.7317, -71.74338, -71.75986, 
  -71.7578, -71.78528, -71.79284, -71.80898, -71.81923, -71.91609, -71.90682, -71.9106, -71.89033, -71.86835, 
  -71.87762, -71.85947, -71.84504, -71.82306, -71.79695, -71.77772, -71.7736, -71.76054, -71.72243, -71.73445, 
  -71.73583, -71.75814, -71.67094, -71.6627, -71.64827, -71.64552, -71.67678, -71.74857, -71.75407, -71.83289, 
  -71.85932, -71.91044, -71.95869, -71.93619, -71.93105, -71.94427, -71.94737, -71.95698, -71.95801, -71.9726, 
  -71.95302, -71.95938, -71.95528, -71.93141, -71.91836, -71.92987, -71.91459, -71.89741, -71.87732, -71.91474, 
  -71.93051, -71.95627, -71.95095, -71.95043, -71.87705, -71.8779, -71.86675, -71.85919, -71.86571, -71.84924, 
  -71.88992, -71.88923, -71.87928, -71.89608, -71.8633, -71.86865, -72.00493, -72.01849, -72.01386, -72.00167, 
  -72.00304, -72.0003, -72.01695, -72.00132, -71.99652, -72.03669, -72.03944, -72.04716, -72.04527, -72.07273, 
  -72.07685, -72.12716, -72.14535, -72.14261, -72.1608, -72.16064, -72.17935, -72.19737, -72.22302, -72.22276, 
  -72.24637, -72.24963, -72.26593, -72.2746, -72.27941, -72.2891, -72.29279, -72.28799, -72.29288, -72.30061, 
  -72.31751, -72.32541, -72.32653, -72.34223, -72.34026, -72.32684, -72.32315, -72.30813, -72.3065, -72.29869, 
  -72.298, -72.29482, -72.29662, -72.29062, -72.3083, -72.30916, -72.32092, -72.32744, -72.32521, -72.32555, 
  -72.30847, -72.33448, -72.34546, -72.34392, -72.35961, -72.36519, -72.37473, -72.38099, -72.40237, -72.39738, 
  -72.40442, -72.42074, -72.41825, -72.42048, -72.41627, -72.41095, -72.41361, -72.43207, -72.44872, -72.44786, 
  -72.45138, -72.43395, -72.44012, -72.44124, -72.46494, -72.46597, -72.46966, -72.47215, -72.48279, -72.48536, 
  -72.49524, -72.4973, -72.5112, -72.52279, -72.52176, -72.51463, -72.51206, -72.50354, -72.49495, -72.4755, 
  -72.46783, -72.47658, -72.4965, -72.50044, -72.52088, -72.52843, -72.52379, -72.50542, -72.50473, -72.49807, 
  -72.49034, -72.47489, -72.45892, -72.45428, -72.42749, -72.42388, -72.428, -72.41994, -72.42612, -72.41822, 
  -72.4268, -72.43109, -72.42697, -72.44002, -72.43848, -72.44399, -72.42922, -72.42338, -72.41669, -72.40174, 
  -72.39402, -72.38406, -72.371, -72.36087, -72.35591, -72.3257, -72.32192, -72.30595, -72.29925, -72.30441, 
  -72.30372, -72.31402, -72.30836, -72.32485, -72.31832, -72.31954, -72.25411, -72.25722, -72.25223, -72.2409, 
  -72.2397, -72.22424, -72.23437, -72.24053, -72.24809, -72.2778, -72.28226, -72.30665, -72.32005, -72.34182, 
  -72.36656, -72.37841, -72.37961, -72.34544, -72.34664, -72.35746, -72.35797, -72.37824, -72.39078, -72.40655, 
  -72.40242, -72.40809, -72.37256, -72.39231, -72.39075, -72.41274, -72.42373, -72.43214, -72.43691, -72.43879, 
  -72.47538, -72.47881, -72.49358, -72.50045, -72.52669, -72.526, -72.53631, -72.554, -72.56379, -72.58543, 
  -72.58989, -72.58199, -72.55761, -72.56568, -72.54869, -72.54989, -72.54131, -72.54165, -72.53426, -72.53993, 
  -72.53598, -72.53976, -72.53701, -72.54251, -72.52929, -72.53135, -72.56516, -72.59127, -72.63897, -72.68929, 
  -72.69677, -72.70381, -72.70398, -72.71033, -72.72287, -72.73041, -72.74002, -72.74749, -72.7487, -72.75599, 
  -72.7657, -72.7808, -72.78329, -72.78894, -72.79426, -72.79572, -72.81264, -72.8189, -72.82612, -72.84939, 
  -72.86105, -72.86309, -72.87572, -72.88499, -72.89607, -72.90397, -72.91384, -72.92249, -72.94551, -72.9504, 
  -72.94783, -72.95916, -72.98816, -72.99306, -72.98665, -72.98974, -72.98116, -73.00622, -73.01378, -73.00245, 
  -73.00665, -73.00417, -73.02493, -73.03051, -73.03017, -73.04742, -73.04596, -73.05602, -73.05431, -73.06306, 
  -73.05859, -73.06031, -73.08348, -73.08176, -73.10253, -73.11059, -73.11548, -73.13995, -73.14639, -73.13986, 
  -73.14776, -73.14441, -73.14656, -73.14638, -73.13531, -73.13509, -73.13174, -73.12054, -73.11535, -73.10351, 
  -73.10042, -73.09029, -73.0842, -73.08166, -73.0808, -73.07011, -73.05737, -73.05295, -73.04741, -73.04432, 
  -73.04338, -73.04196, -73.04188, -73.03986, -73.08664,
  -73.09771, -73.09599, -73.10445, -73.10119, -73.09467, -73.09656, -73.09364, -73.10188, -73.09501, -73.09501,
  -73.10789, -73.11561, -73.12917, -73.12952, -73.13381, -73.13381, -73.12694, -73.12248, -73.11836, -73.11733,
  -73.10547, -73.10324, -73.09604, -73.08608, -73.07355, -73.06926, -73.06051, -73.04987, -73.04781, -73.04249,
  -73.03373, -73.03991, -73.04214, -73.03579, -73.03201, -73.0327, -73.01725, -73.01794, -73.01605, -73.0188,
  -73.01193, -73.01554, -73.00987, -73.0097, -73.01571, -73.01519, -73.02223, -73.02257, -73.14256, -73.15287,
  -73.15184, -73.15596, -73.45104,
  -73.44774, -73.44628, -73.44804, -73.45349, -73.45997, -73.46844, -73.47153, -73.48071, -73.48689, -73.4917,
  -73.4899, -73.4935, -73.48252, -73.48921, -73.48904, -73.49505, -73.49728, -73.50097, -73.49874,
  -73.51161, -73.50638, -73.51281, -73.52937, -73.53822, -73.54946, -73.54852, -73.55616, -73.55753, -73.56097,
  -73.55856, -73.55032, -73.52869, -73.52071, -73.51007, -73.50089, -73.49591, -73.47909, -73.45068, -73.44381,
  -73.44716, -73.44441, -73.44475, -73.4414, -73.44835, -73.44278, -73.44209, -73.43488, -73.44852, -73.44647,
  -73.46088, -73.46076, -73.46411, -73.46136, -73.46436, -73.49751, -73.49356, -73.50112, -73.48214, -73.48171,
  -73.47535, -73.4775, -73.48334, -73.49973, -73.50617, -73.50729, -73.51467, -73.51209, -73.51896, -73.52025,
  -73.51407, -73.51613, -73.51596, -73.52076, -73.51793, -73.52239, -73.5072, -73.49981, -73.48446, -73.47784,
  -73.47999, -73.46291, -73.44103, -73.43106, -73.42849, -73.43004, -73.42188, -73.42283, -73.41587, -73.42197,
  -73.423, -73.43167, -73.43261, -73.4442, -73.45021, -73.44918, -73.45493, -73.45158, -73.44515, -73.44043,
  -73.42712, -73.36137, -73.40454, -73.42575, -73.43786, -73.42833, -73.43613, -73.41691, -73.40652, -73.39759,
  -73.36832, -73.37691, -73.37948, -73.3873, -73.37545, -73.35751, -73.35906, -73.36455, -73.35116, -73.36292,
  -73.33717, -73.33785, -73.35948, -73.36438, -73.35966, -73.35768, -73.3497, -73.34893, -73.34266, -73.33889,
  -73.33065, -73.33314, -73.30068, -73.28688, -73.23879, -73.23158, -73.21663, -73.19367, -73.16396, -73.14455,
  -73.14576, -73.15366, -73.15211, -73.16122, -73.16601, -73.17271, -73.17065, -73.18078, -73.19623, -73.18095,
  -73.17546, -73.16635, -73.1497, -73.20044, -73.20018, -73.19134, -73.16946, -73.14397, -73.09367, -73.08475,
  -73.06904, -73.05393, -73.04002, -73.02997, -73.0268, -73.00261, -72.99574, -72.98338, -72.9808, -72.96242,
  -72.95435, -72.95522, -72.94458, -72.95316, -72.94536, -72.94381, -72.93326, -72.9281, -72.90955, -72.90544,
  -72.89393, -72.87831, -72.85119, -72.83779, -72.76914, -72.75505, -72.7408, -72.73273, -72.72809, -72.72193,
  -72.71283, -72.71111, -72.69531, -72.68329, -72.66907, -72.65344, -72.6421, -72.61275, -72.61413, -72.60126,
  -72.59302, -72.57533, -72.58031, -72.58323, -72.56436, -72.5441, -72.52898, -72.52263, -72.507, -72.50014,
  -72.47473, -72.45398, -72.4308, -72.41843, -72.41774, -72.41173, -72.35854, -72.34943, -72.33862, -72.29225,
  -72.28557, -72.29827, -72.30256, -72.31321, -72.31956, -72.33622, -72.33963, -72.34667, -72.34942, -72.29552,
  -72.26033, -72.26815, -72.26592, -72.26798, -72.25639, -72.24746, -72.2557, -72.24609, -72.24884, -72.24772,
  -72.25862, -72.25613, -72.26368, -72.25888, -72.26437, -72.26368, -72.26694, -72.2653, -72.27527, -72.27887,
  -72.29931, -72.33002, -72.35183, -72.36557, -72.37416, -72.37612, -72.39191, -72.40794, -72.40606, -72.41018,
  -72.40171, -72.40171, -72.37751, -72.36206, -72.36, -72.3533, -72.34541, -72.31864, -72.30405, -72.28721,
  -72.25838, -72.25941, -72.26508, -72.26697, -72.26216, -72.27194, -72.29546, -72.31178, -72.30628, -72.30783,
  -72.32396, -72.32774, -72.3588, -72.37014, -72.34988, -72.34954, -72.33804, -72.33118, -72.32567, -72.30868,
  -72.31263, -72.30885, -72.32087, -72.33837, -72.34026, -72.32344, -72.33013, -72.34678, -72.35433, -72.3449,
  -72.35485, -72.36035, -72.3945, -72.40548, -72.40788, -72.39227, -72.39467, -72.40172, -72.41888, -72.42609,
  -72.44206, -72.39957, -72.38913, -72.38002, -72.38191, -72.37453, -72.37281, -72.3376, -72.32387, -72.31891,
  -72.30242, -72.29383, -72.28456, -72.28319, -72.28835, -72.28989, -72.29728, -72.28714, -72.29212, -72.28715,
  -72.30123, -72.29848, -72.27204, -72.24834, -72.2437, -72.23047, -72.18329, -72.16818, -72.15993, -72.18535,
  -72.15069, -72.12235, -72.11273, -72.07512, -72.07756, -72.06313, -72.02348, -71.96532, -71.95707, -71.94093,
  -71.94402, -71.93818, -71.92788, -71.93337, -71.94471, -72.0343, -72.00512, -71.96544, -71.94879, -71.9289,
  -71.9222, -69.996, -69.48688, -69.18994, -69.07835, -68.98767, -68.83765, -68.70959, -68.58563, -68.57327,
  -68.41845, -68.4184, -68.43085, -68.43256,
  -68.43132, -68.4169, -68.40648, -68.40073, -68.38279, -68.35404, -68.35138, -68.39131, -68.43372, -68.51783,
  -68.57195, -68.64713,
  -70.62556, -70.82046, -71.97067)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_1, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_union(Geo_0[c(1:14, 90)]))
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### CHILE #####
Geo_0 <- Geometric_Operations(Geo_2, MGeo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_1)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0))
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  -44.75663, -44.75712, -44.76553, -44.75615, -44.75993, -44.7726, -44.7815, -44.80305, -44.8375, -44.83811, 
  -44.84811, -44.86295, -44.87317, -44.90479, -44.8958, -44.90115, -44.9206, -44.9206, -44.94369, -44.94758, 
  -44.95972, -44.93056, -44.9206, -44.94174, -44.92619, -44.95729, -44.95584, -44.97576, -44.96895, -44.97576, 
  -44.97065, -44.9811, -44.97697, -44.98935, -44.99809, -45.02771, -45.06846, -45.09948, -45.11669, -45.14188, 
  -45.15665, -45.18908, -45.24543, -45.26863, -45.29013, -45.32152, -45.32563, -45.33166, -45.33673, -45.34397, 
  -45.36157, -45.39545, -45.38484, -45.39183, -45.42365, -45.43546, -45.44172, -45.4593, -45.48061, -45.4853, 
  -45.49337, -45.50251, -45.51466, -45.51334, -45.52368, -45.51863, -45.52164, -45.50973, -45.51322, -45.50865, 
  -45.51803, -45.51322, -45.53366, -45.54063, -45.54646, -45.56034, -45.57543, -45.57963, -45.57314, -45.57693, 
  -45.57951, -45.59363, -45.59837, -45.6081, -45.61074, -45.6087, -45.62053, -45.61741, -45.61909, -45.62749, 
  -45.63397, -45.63649, -45.63943, -45.64087, -45.64495, -45.64832, -45.65197, -45.65761, -45.65773, -45.66613, 
  -45.67033, -45.67801, -45.68017, -45.69576, -45.70547, -45.70415, -45.71938, -45.72381, -45.73028, -45.73975, 
  -45.77269, -45.78657, -45.80417, -45.8452, -45.855, -45.85488, -45.86665, -45.86474, -45.87484, -45.8746, 
  -45.88954, -45.89694, -45.90859, -45.91731, -45.91892, -45.92465, -45.9283, -45.93409, -45.9345, -45.94322, 
  -45.94579, -45.96088, -45.96291, -45.96852, -45.97902, -45.98343, -45.97645, -45.98516, -45.99124, -46, 
  -46.01413, -46.02701, -46.03964, -46.06132, -46.06966, -46.06966, -46.08871, -46.09538, -46.09061, -46.09847, 
  -46.10847, -46.12156, -46.11751, -46.11918, -46.10942, -46.13964, -46.14511, -46.15938, -46.16414, -46.15677, 
  -46.16842, -46.19338, -46.19053, -46.2017, -46.19029, -46.19789, -46.21571, -46.21761, -46.28836, -46.30235, 
  -46.32275, -46.34408, -46.52415, -46.6202, -46.63388, -46.68784, -46.69632, -46.73892, -46.75327, -46.7963, 
  -46.80382, -46.79806, -46.81627, -46.83307, -46.86817, -46.8785, -46.88601, -46.89011, -46.89821, -46.90466, 
  -46.95565, -46.96842, -46.97768, -46.97533, -46.98517, -46.99255, -46.99817, -46.99524, -47.01245, -47.05913, 
  -47.05866, -47.07655, -47.07983, -47.08625, -47.10811, -47.11921, -47.12446, -47.1324, -47.14385, -47.16474, 
  -47.17968, -47.19823, -47.20336, -47.21222, -47.22377, -47.23332, -47.20569, -47.19811, -47.20569, -47.21351, 
  -47.22132, -47.22703, -47.25022, -47.27434, -47.29472, -47.31974, -47.32905, -47.33184, -47.3401, -47.3422, 
  -47.33591, -47.32754, -47.35104, -47.36348, -47.37778, -47.3951, -47.39765, -47.41647, -47.40648, -47.40265, 
  -47.40631, -47.41479, -47.41514, -47.42124, -47.43215, -47.43285, -47.43593, -47.43709, -47.44608, -47.44603, 
  -47.45009, -47.44835, -47.4534, -47.45502, -47.46831, -47.47703, -47.48173, -47.47917, -47.4924, -47.49269, 
  -47.49686, -47.49791, -47.5051, -47.51229, -47.54729, -47.55343, -47.5609, -47.57202, -47.57648, -47.58482, 
  -47.59009, -47.60994, -47.6314, -47.63557, -47.63892, -47.63533, -47.63747, -47.63499, -47.6517, -47.65921, 
  -47.65725, -47.66106, -47.66661, -47.66852, -47.66991, -47.67736, -47.69077, -47.70215, -47.70544, -47.71099, 
  -47.71572, -47.73443, -47.74043, -47.7473, -47.73859, -47.74563, -47.74672, -47.75959, -47.76023, -47.75463, 
  -47.75261, -47.75642, -47.74014, -47.74159, -47.75521, -47.75775, -47.76179, -47.76255, -47.79808, -47.8119, 
  -47.81295, -47.87044, -47.87424, -47.89013, -47.89922, -47.93466, -47.94409, -47.95133, -47.95616, -47.96155, 
  -47.95891, -47.96155, -47.95672, -47.96454, -47.96534, -47.9696, -47.97166, -47.98741, -47.99568, -48.00406, 
  -48.00923, -48.03472, -48.04379, -48.04884, -48.0579, -48.0649, -48.07224, -48.07201, -48.07935, -48.07591, 
  -48.07694, -48.07213, -48.07637, -48.07396, -48.10206, -48.11696, -48.1346, -48.13987, -48.15923, -48.16598, 
  -48.17388, -48.17652, -48.19677, -48.21554, -48.22594, -48.23178, -48.29017, -48.29326, -48.30182, -48.30137, 
  -48.31004, -48.32226, -48.32602, -48.34953, -48.34907, -48.36379, -48.35797, -48.35387, -48.35968, -48.34621, 
  -48.35317, -48.34963, -48.37176, -48.38464, -48.39194, -48.39274, -48.39958, -48.39901, -48.4112, -48.41599, 
  -48.42237, -48.43296, -48.44993, -48.47156, -48.47952, -48.4967, -48.49579, -48.50512, -48.50705, -48.51353, 
  -48.51831, -48.51478, -48.51388, -48.51945, -48.50091, -48.49101, -48.48191, -48.4843, -48.48305, -48.48692, 
  -48.49374, -48.49625, -48.5615, -48.5774, -48.6076, -48.61566, -48.63166, -48.65831, -48.66738, -48.67849, 
  -48.69447, -48.70671, -48.71192, -48.73978, -48.77158, -48.79804, -48.82314, -48.82924, -48.86697, -48.86607, 
  -48.89683, -48.89768, -48.9005, -48.90422, -48.90479, -48.90654, -48.9049, -48.90778, -48.91229, -48.9159, 
  -48.94511, -48.95396, -48.95971, -48.95988, -48.96382, -48.96917, -48.96005, -48.96021, -48.96698, -48.965, 
  -48.95785, -48.94629, -48.94872, -48.94686, -48.94652, -48.94246, -48.94094, -48.93457, -48.94517, -48.95678, 
  -48.96354, -48.98163, -48.99114, -48.99959, -49.01063, -49.01609, -49.02926, -49.02965, -49.03725, -49.05278, 
  -49.05778, -49.06346, -49.06425, -49.06757, -49.07443, -49.08191, -49.08623, -49.09905, -49.1059, -49.11411, 
  -49.11804, -49.12635, -49.13309, -49.14545, -49.14635, -49.1514, -49.16824, -49.17811, -49.18815, -49.20756, 
  -49.21978, -49.23032, -49.23329, -49.24593, -49.26167, -49.26565, -49.26671, -49.26475, -49.26657, -49.26702, 
  -49.26108, -49.25307, -49.25377, -49.25683, -49.25963, -49.26724, -49.27083, -49.27066, -49.27262, -49.27268, 
  -49.27119, -49.27209, -49.27469, -49.27696, -49.28385,
  -49.28378, -49.28389, -49.20455, -49.21801, -49.24222, -49.26922, -49.27359, -49.27337, -49.28781, -49.29643, 
  -49.29912, -49.29688, -49.30091, -49.3064, -49.31513, -49.31546, -49.31938, -49.3252, -49.33728, -49.34198, 
  -49.35305, -49.36132, -49.37865, -49.38479, -49.38893, -49.39384, -49.39273, -49.39943, -49.40569, -49.41004, 
  -49.41395, -49.41954, -49.42188, -49.42936, -49.43606, -49.43706, -49.44131, -49.44823, -49.4624, -49.46954, 
  -49.47578, -49.48025, -49.48281, -49.48448, -49.50087, -49.49653, -49.50087, -49.49809, -49.50433, -49.52651, 
  -49.5372, -49.54422, -49.55035, -49.55547, -49.56438, -49.57017, -49.57284, -49.57996, -49.59621, -49.61501, 
  -49.62335, -49.63514, -49.64448, -49.65092, -49.66148, -49.66092, -49.66626, -49.68448, -49.69169, -49.70113, 
  -49.70835, -49.71135, -49.71579, -49.71678, -49.73942, -49.75329, -49.75772, -49.76061, -49.76371, -49.77147, 
  -49.77358, -49.783, -49.78932,
  -49.79102, -49.79509, -49.79784, -49.79928, -49.7993, -49.8046, -49.80449, -49.81047, -49.81147, -49.81844,
  -49.82481, -49.82902, -49.83727, -49.84779, -49.85288, -49.85459, -49.85952, -49.86151, -49.86748,
  -49.87954, -49.89149, -49.89652, -49.89857, -49.90365, -49.90658, -49.90929, -49.92344, -49.93902, -49.94239,
  -49.94758, -49.95089, -49.95205, -49.95802, -49.96056, -49.96746, -49.96669, -49.9705, -49.96139, -49.96564,
  -49.97199, -49.9737, -49.97856, -49.98192, -49.98435, -49.99324, -50.00096, -50.01034, -50.01629, -50.03438,
  -50.04011, -50.04678, -50.05009, -50.05373, -50.05467, -50.04959, -50.05489, -50.05973, -50.0713, -50.08419,
  -50.08899, -50.09069, -50.0891, -50.09438, -50.09967, -50.10473, -50.10583, -50.11684, -50.11844, -50.12405,
  -50.12834, -50.13219, -50.13698, -50.14012, -50.14738, -50.15376, -50.15684, -50.15436, -50.16618, -50.16657,
  -50.17245, -50.18548, -50.17982, -50.18218, -50.18636, -50.18922, -50.19537, -50.19817, -50.20004, -50.20268,
  -50.20641, -50.20713, -50.21031, -50.2135, -50.22113, -50.23019, -50.2336, -50.2432, -50.246, -50.24963,
  -50.25215, -50.30141, -50.33577, -50.33615, -50.3436, -50.35516, -50.36283, -50.3816, -50.38002, -50.37049,
  -50.37274, -50.37712, -50.38461, -50.3926, -50.41618, -50.42892, -50.44696, -50.45374, -50.47286, -50.48755,
  -50.49575, -50.49935, -50.50557, -50.51889, -50.52195, -50.53493, -50.53804, -50.54628, -50.54742, -50.55632,
  -50.56243, -50.57104, -50.57284, -50.59002, -50.59579, -50.61105, -50.6068, -50.61519, -50.64372, -50.65166,
  -50.65547, -50.65797, -50.66973, -50.67353, -50.68865, -50.69398, -50.70257, -50.70442, -50.74311, -50.74658,
  -50.75951, -50.75788, -50.76754, -50.81137, -50.82064, -50.81099, -50.80112, -50.78056, -50.77334, -50.78251,
  -50.78913, -50.771, -50.76118, -50.75928, -50.76188, -50.76135, -50.75234, -50.75114, -50.74376, -50.73963,
  -50.74137, -50.73648, -50.72333, -50.71877, -50.71446, -50.70718, -50.70355, -50.70583, -50.69866, -50.68463,
  -50.67016, -50.67147, -50.65177, -50.65482, -50.62685, -50.63088, -50.62642, -50.61553, -50.61476, -50.6262,
  -50.63143, -50.63807, -50.64569, -50.64133, -50.65712, -50.66245, -50.65222, -50.6631, -50.67409, -50.67539,
  -50.68236, -50.67877, -50.67267, -50.65603, -50.64623, -50.61977, -50.62075, -50.61661, -50.61585, -50.603,
  -50.60387, -50.61857, -50.61694, -50.62337, -50.63219, -50.63774, -50.61574, -50.61901, -50.64982, -50.65298,
  -50.65984, -50.68029, -50.70628, -50.70813, -50.71671, -50.71758, -50.72573, -50.72899, -50.7568, -50.791,
  -50.83905, -50.85669, -50.85908, -50.86287, -50.87425, -50.87528, -50.89, -50.89888, -50.90722, -50.91047,
  -50.91847, -50.92297, -50.94325, -50.94877, -50.95293, -50.95715, -50.96207, -51.03495, -51.03441, -51.02837,
  -51.03205, -51.02557, -51.02903, -51.02158, -51.02298, -51.08123, -51.08419, -51.09861, -51.10195, -51.10702,
  -51.12627, -51.13521, -51.16095, -51.16558, -51.18075, -51.18075, -51.20485, -51.21087, -51.20076, -51.22528,
  -51.24441, -51.25494, -51.25999, -51.27235, -51.27353, -51.28609, -51.28738, -51.29822, -51.30123, -51.30756,
  -51.3096, -51.31432, -51.31786, -51.34231, -51.34381, -51.34982, -51.34982, -51.34424, -51.34585, -51.36751,
  -51.39729, -51.40372, -51.40532, -51.42416, -51.45338, -51.47434, -51.47819, -51.4769, -51.49615, -51.52125,
  -51.52253, -51.52595, -51.5141, -51.51335, -51.52008, -51.52371, -51.52852, -51.52926, -51.54507, -51.54635,
  -51.58519, -51.58785, -51.59511, -51.59276, -51.5854, -51.58455, -51.58945, -51.58391, -51.58839, -51.62677,
  -51.63242, -51.63039, -51.63529, -51.63891, -51.63955, -51.64499, -51.64605, -51.65319, -51.66192, -51.66948,
  -51.68757, -51.69896, -51.70577, -51.69907, -51.70651, -51.70237, -51.72236, -51.72194, -51.72704, -51.73501,
  -51.74607, -51.74341, -51.76891, -51.77401, -51.78347, -51.78516, -51.81054, -51.86698, -51.86676, -51.88605,
  -51.89389, -51.90957, -51.91401, -51.92058, -51.91507, -51.96184, -51.98013, -51.97178, -51.99049, -51.99123,
  -52.00022, -52.00076, -52.15184, -52.15037, -52.18553, -52.20363, -52.27763, -52.28541, -52.30682, -52.32508,
  -52.33243, -52.38655, -52.39478, -52.39763,
  -52.397, -52.38776, -52.3848, -52.38317, -52.37848, -52.3667, -52.35611, -52.3441, -52.33854, -52.3366, 
  -52.34038, -52.33986, -52.34305, -52.31908, -52.31998, -52.31494, -52.31536, -52.31184, -52.30843, -52.31835, 
  -52.30654, -52.3098, -52.30549, -52.30728, -52.29936, -52.3002, -52.29621, -52.2897, -52.22845,
  -52.16373, -52.09018, -50.80342, -49.88804, -48.93563, -46.48822, -44.83220, -44.60672)
LONGITUDE_VALUEs <- c(
  -72.01668, -72.02269, -72.02973, -72.06013, -72.06683, -72.06271, -72.07404, -72.03112, -72.05276, -72.06478, 
  -72.07058, -72.03829, -72.0613, -72.0356, -72.02118, -71.98099, -71.97549, -71.94595, -71.93153, -71.88619, 
  -71.87665, -71.85158, -71.81894, -71.77876, -71.75609, -71.74407, -71.70766, -71.65725, -71.63768, -71.62153, 
  -71.60504, -71.581, -71.5597, -71.55799, -71.54356, -71.55764, -71.50409, -71.51474, -71.48417, -71.48524, 
  -71.42376, -71.40658, -71.33071, -71.35235, -71.31972, -71.33448, -71.34856, -71.34925, -71.37158, -71.37158, 
  -71.44303, -71.43788, -71.45539, -71.53297, -71.52095, -71.53624, -71.51066, -71.51134, -71.46892, -71.47803, 
  -71.46773, -71.50311, -71.51341, -71.52956, -71.55973, -71.57605, -71.58601, -71.59838, -71.6116, -71.62328, 
  -71.64762, -71.68368, -71.69238, -71.74585, -71.74448, -71.76369, -71.76389, -71.75032, -71.72834, -71.72662, 
  -71.73211, -71.73211, -71.74507, -71.74095, -71.75023, -71.75383, -71.76094, -71.76996, -71.78005, -71.77721, 
  -71.78159, -71.77378, -71.77464, -71.77215, -71.77979, -71.77773, -71.78502, -71.77876, -71.78554, -71.79644, 
  -71.78571, -71.7791, -71.77421, -71.77224, -71.78401, -71.79208, -71.80169, -71.79603, -71.795, -71.77525, 
  -71.75311, -71.76272, -71.74247, -71.76958, -71.75448, -71.71945, -71.69816, -71.69292, -71.68074, -71.6737, 
  -71.65328, -71.65507, -71.64504, -71.64701, -71.64237, -71.6422, -71.63242, -71.63104, -71.62452, -71.62298, 
  -71.61851, -71.61697, -71.61139, -71.61568, -71.61645, -71.62718, -71.63319, -71.64838, -71.64383, -71.64771, 
  -71.64794, -71.66649, -71.66683, -71.69735, -71.69666, -71.7104, -71.71384, -71.7317, -71.74338, -71.75986, 
  -71.7578, -71.78528, -71.79284, -71.80898, -71.81923, -71.91609, -71.90682, -71.9106, -71.89033, -71.86835, 
  -71.87762, -71.85947, -71.84504, -71.82306, -71.79695, -71.77772, -71.7736, -71.76054, -71.72243, -71.73445, 
  -71.73583, -71.75814, -71.67094, -71.6627, -71.64827, -71.64552, -71.67678, -71.74857, -71.75407, -71.83289, 
  -71.85932, -71.91044, -71.95869, -71.93619, -71.93105, -71.94427, -71.94737, -71.95698, -71.95801, -71.9726, 
  -71.95302, -71.95938, -71.95528, -71.93141, -71.91836, -71.92987, -71.91459, -71.89741, -71.87732, -71.91474, 
  -71.93051, -71.95627, -71.95095, -71.95043, -71.87705, -71.8779, -71.86675, -71.85919, -71.86571, -71.84924, 
  -71.88992, -71.88923, -71.87928, -71.89608, -71.8633, -71.86865, -72.00493, -72.01849, -72.01386, -72.00167, 
  -72.00304, -72.0003, -72.01695, -72.00132, -71.99652, -72.03669, -72.03944, -72.04716, -72.04527, -72.07273, 
  -72.07685, -72.12716, -72.14535, -72.14261, -72.1608, -72.16064, -72.17935, -72.19737, -72.22302, -72.22276, 
  -72.24637, -72.24963, -72.26593, -72.2746, -72.27941, -72.2891, -72.29279, -72.28799, -72.29288, -72.30061, 
  -72.31751, -72.32541, -72.32653, -72.34223, -72.34026, -72.32684, -72.32315, -72.30813, -72.3065, -72.29869, 
  -72.298, -72.29482, -72.29662, -72.29062, -72.3083, -72.30916, -72.32092, -72.32744, -72.32521, -72.32555, 
  -72.30847, -72.33448, -72.34546, -72.34392, -72.35961, -72.36519, -72.37473, -72.38099, -72.40237, -72.39738, 
  -72.40442, -72.42074, -72.41825, -72.42048, -72.41627, -72.41095, -72.41361, -72.43207, -72.44872, -72.44786, 
  -72.45138, -72.43395, -72.44012, -72.44124, -72.46494, -72.46597, -72.46966, -72.47215, -72.48279, -72.48536, 
  -72.49524, -72.4973, -72.5112, -72.52279, -72.52176, -72.51463, -72.51206, -72.50354, -72.49495, -72.4755, 
  -72.46783, -72.47658, -72.4965, -72.50044, -72.52088, -72.52843, -72.52379, -72.50542, -72.50473, -72.49807, 
  -72.49034, -72.47489, -72.45892, -72.45428, -72.42749, -72.42388, -72.428, -72.41994, -72.42612, -72.41822, 
  -72.4268, -72.43109, -72.42697, -72.44002, -72.43848, -72.44399, -72.42922, -72.42338, -72.41669, -72.40174, 
  -72.39402, -72.38406, -72.371, -72.36087, -72.35591, -72.3257, -72.32192, -72.30595, -72.29925, -72.30441, 
  -72.30372, -72.31402, -72.30836, -72.32485, -72.31832, -72.31954, -72.25411, -72.25722, -72.25223, -72.2409, 
  -72.2397, -72.22424, -72.23437, -72.24053, -72.24809, -72.2778, -72.28226, -72.30665, -72.32005, -72.34182, 
  -72.36656, -72.37841, -72.37961, -72.34544, -72.34664, -72.35746, -72.35797, -72.37824, -72.39078, -72.40655, 
  -72.40242, -72.40809, -72.37256, -72.39231, -72.39075, -72.41274, -72.42373, -72.43214, -72.43691, -72.43879, 
  -72.47538, -72.47881, -72.49358, -72.50045, -72.52669, -72.526, -72.53631, -72.554, -72.56379, -72.58543, 
  -72.58989, -72.58199, -72.55761, -72.56568, -72.54869, -72.54989, -72.54131, -72.54165, -72.53426, -72.53993, 
  -72.53598, -72.53976, -72.53701, -72.54251, -72.52929, -72.53135, -72.56516, -72.59127, -72.63897, -72.68929, 
  -72.69677, -72.70381, -72.70398, -72.71033, -72.72287, -72.73041, -72.74002, -72.74749, -72.7487, -72.75599, 
  -72.7657, -72.7808, -72.78329, -72.78894, -72.79426, -72.79572, -72.81264, -72.8189, -72.82612, -72.84939, 
  -72.86105, -72.86309, -72.87572, -72.88499, -72.89607, -72.90397, -72.91384, -72.92249, -72.94551, -72.9504, 
  -72.94783, -72.95916, -72.98816, -72.99306, -72.98665, -72.98974, -72.98116, -73.00622, -73.01378, -73.00245, 
  -73.00665, -73.00417, -73.02493, -73.03051, -73.03017, -73.04742, -73.04596, -73.05602, -73.05431, -73.06306, 
  -73.05859, -73.06031, -73.08348, -73.08176, -73.10253, -73.11059, -73.11548, -73.13995, -73.14639, -73.13986, 
  -73.14776, -73.14441, -73.14656, -73.14638, -73.13531, -73.13509, -73.13174, -73.12054, -73.11535, -73.10351, 
  -73.10042, -73.09029, -73.0842, -73.08166, -73.0808, -73.07011, -73.05737, -73.05295, -73.04741, -73.04432, 
  -73.04338, -73.04196, -73.04188, -73.03986, -73.08664,
  -73.09771, -73.14925, -73.47301, -73.47541, -73.49498, -73.49687, -73.49292, -73.4804, -73.45756, -73.45636, 
  -73.4507, -73.43697, -73.43388, -73.43473, -73.43147, -73.41842, -73.41036, -73.41534, -73.41739, -73.42907, 
  -73.42495, -73.43078, -73.42529, -73.42717, -73.42546, -73.42717, -73.43421, -73.45894, -73.46769, -73.46734, 
  -73.47198, -73.47369, -73.48485, -73.49053, -73.48864, -73.47834, -73.47336, -73.47851, -73.47868, -73.46959, 
  -73.4689, -73.46341, -73.46341, -73.47285, -73.48709, -73.51043, -73.52845, -73.53961, -73.5451, -73.53927, 
  -73.5506, -73.54511, -73.54576, -73.54009, -73.53648, -73.52052, -73.50455, -73.49047, -73.47674, -73.46765, 
  -73.46009, -73.4606, -73.46524, -73.47967, -73.49544, -73.50265, -73.50626, -73.49819, -73.49837, -73.5085, 
  -73.50798, -73.49408, -73.48824, -73.47587, -73.46472, -73.44961, -73.43845, -73.44189, -73.45202, -73.46009, 
  -73.46593, -73.46198, -73.45104,
  -73.44774, -73.44628, -73.44804, -73.45349, -73.45997, -73.46844, -73.47153, -73.48071, -73.48689, -73.4917,
  -73.4899, -73.4935, -73.48252, -73.48921, -73.48904, -73.49505, -73.49728, -73.50097, -73.49874,
  -73.51161, -73.50638, -73.51281, -73.52937, -73.53822, -73.54946, -73.54852, -73.55616, -73.55753, -73.56097,
  -73.55856, -73.55032, -73.52869, -73.52071, -73.51007, -73.50089, -73.49591, -73.47909, -73.45068, -73.44381,
  -73.44716, -73.44441, -73.44475, -73.4414, -73.44835, -73.44278, -73.44209, -73.43488, -73.44852, -73.44647,
  -73.46088, -73.46076, -73.46411, -73.46136, -73.46436, -73.49751, -73.49356, -73.50112, -73.48214, -73.48171,
  -73.47535, -73.4775, -73.48334, -73.49973, -73.50617, -73.50729, -73.51467, -73.51209, -73.51896, -73.52025,
  -73.51407, -73.51613, -73.51596, -73.52076, -73.51793, -73.52239, -73.5072, -73.49981, -73.48446, -73.47784,
  -73.47999, -73.46291, -73.44103, -73.43106, -73.42849, -73.43004, -73.42188, -73.42283, -73.41587, -73.42197,
  -73.423, -73.43167, -73.43261, -73.4442, -73.45021, -73.44918, -73.45493, -73.45158, -73.44515, -73.44043,
  -73.42712, -73.36137, -73.40454, -73.42575, -73.43786, -73.42833, -73.43613, -73.41691, -73.40652, -73.39759,
  -73.36832, -73.37691, -73.37948, -73.3873, -73.37545, -73.35751, -73.35906, -73.36455, -73.35116, -73.36292,
  -73.33717, -73.33785, -73.35948, -73.36438, -73.35966, -73.35768, -73.3497, -73.34893, -73.34266, -73.33889,
  -73.33065, -73.33314, -73.30068, -73.28688, -73.23879, -73.23158, -73.21663, -73.19367, -73.16396, -73.14455,
  -73.14576, -73.15366, -73.15211, -73.16122, -73.16601, -73.17271, -73.17065, -73.18078, -73.19623, -73.18095,
  -73.17546, -73.16635, -73.1497, -73.20044, -73.20018, -73.19134, -73.16946, -73.14397, -73.09367, -73.08475,
  -73.06904, -73.05393, -73.04002, -73.02997, -73.0268, -73.00261, -72.99574, -72.98338, -72.9808, -72.96242,
  -72.95435, -72.95522, -72.94458, -72.95316, -72.94536, -72.94381, -72.93326, -72.9281, -72.90955, -72.90544,
  -72.89393, -72.87831, -72.85119, -72.83779, -72.76914, -72.75505, -72.7408, -72.73273, -72.72809, -72.72193,
  -72.71283, -72.71111, -72.69531, -72.68329, -72.66907, -72.65344, -72.6421, -72.61275, -72.61413, -72.60126,
  -72.59302, -72.57533, -72.58031, -72.58323, -72.56436, -72.5441, -72.52898, -72.52263, -72.507, -72.50014,
  -72.47473, -72.45398, -72.4308, -72.41843, -72.41774, -72.41173, -72.35854, -72.34943, -72.33862, -72.29225,
  -72.28557, -72.29827, -72.30256, -72.31321, -72.31956, -72.33622, -72.33963, -72.34667, -72.34942, -72.29552,
  -72.26033, -72.26815, -72.26592, -72.26798, -72.25639, -72.24746, -72.2557, -72.24609, -72.24884, -72.24772,
  -72.25862, -72.25613, -72.26368, -72.25888, -72.26437, -72.26368, -72.26694, -72.2653, -72.27527, -72.27887,
  -72.29931, -72.33002, -72.35183, -72.36557, -72.37416, -72.37612, -72.39191, -72.40794, -72.40606, -72.41018,
  -72.40171, -72.40171, -72.37751, -72.36206, -72.36, -72.3533, -72.34541, -72.31864, -72.30405, -72.28721,
  -72.25838, -72.25941, -72.26508, -72.26697, -72.26216, -72.27194, -72.29546, -72.31178, -72.30628, -72.30783,
  -72.32396, -72.32774, -72.3588, -72.37014, -72.34988, -72.34954, -72.33804, -72.33118, -72.32567, -72.30868,
  -72.31263, -72.30885, -72.32087, -72.33837, -72.34026, -72.32344, -72.33013, -72.34678, -72.35433, -72.3449,
  -72.35485, -72.36035, -72.3945, -72.40548, -72.40788, -72.39227, -72.39467, -72.40172, -72.41888, -72.42609,
  -72.44206, -72.39957, -72.38913, -72.38002, -72.38191, -72.37453, -72.37281, -72.3376, -72.32387, -72.31891,
  -72.30242, -72.29383, -72.28456, -72.28319, -72.28835, -72.28989, -72.29728, -72.28714, -72.29212, -72.28715,
  -72.30123, -72.29848, -72.27204, -72.24834, -72.2437, -72.23047, -72.18329, -72.16818, -72.15993, -72.18535,
  -72.15069, -72.12235, -72.11273, -72.07512, -72.07756, -72.06313, -72.02348, -71.96532, -71.95707, -71.94093,
  -71.94402, -71.93818, -71.92788, -71.93337, -71.94471, -72.0343, -72.00512, -71.96544, -71.94879, -71.9289,
  -71.9222, -69.996, -69.48688, -69.18994, -69.07835, -68.98767, -68.83765, -68.70959, -68.58563, -68.57327,
  -68.41845, -68.4184, -68.43085, -68.43256,
  -68.43372, -68.43599, -68.43484, -68.43655, -68.43836, -68.44451, -68.45343, -68.47016, -68.48613, -68.50896, 
  -68.53831, -68.5487, -68.55942, -68.63582, -68.64509, -68.6662, -68.68113, -68.69273, -68.75383, -68.7885, 
  -68.82834, -68.85949, -68.87803, -68.89253, -68.90715, -68.92346, -68.93496, -68.97786, -69.0574,
  -69.17794, -72.13717, -73.31667, -73.67093, -73.49996, -72.06616, -72.44774, -72.02253)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_2, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_0 <- st_union(Geo_0)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, st_union(Geo_0[1:149]))
Geo_2 <- st_union(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_1)}
Geo_2 <- Geo_2 %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("ARGENTINA", "CHILE"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, MGeo_1)

AUSTRALIAN INDIAN OCEAN TERRITORIES \(=\) COCOS (KEELING) ISLANDS \(+\) CHRISTMAS ISLAND in GeoDATA.

CORAL SEA ISLANDS are Australian External Territories.

No suitable Geometries in available sources. We create our own Geometries.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "AUSTRALIA")

##### AUSTRALIA #####
LATITUDE_VALUEs <- c(
  -16.52781, -16.55019, -16.54575, -16.51645, -16.50082, -16.48139, -16.46888, -16.45654, -16.45259, -16.41521, 
  -16.38458, -16.38211, -16.40698, -16.45769, -16.49473, -16.50427, -16.52188, -16.53307, -16.52583)
LONGITUDE_VALUEs <- c(
  147.8009, 147.8174, 147.8407, 147.8428, 147.8605, 147.8677, 147.8849, 147.8876, 147.8962, 147.9015, 
  147.8823, 147.8516, 147.8313, 147.8725, 147.8512, 147.8395, 147.8387, 147.8236, 147.8045)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -16.50394, -16.52219, -16.5296, -16.5268, -16.50031, -16.49389, -16.49701, -16.48508, -16.451, -16.44038, 
  -16.41972, -16.41643, -16.4049, -16.4184, -16.42762, -16.49866)
LONGITUDE_VALUEs <- c(
  147.9673, 147.9678, 147.9778, 147.9989, 148.0098, 148.0221, 148.0495, 148.0704, 148.0935, 148.0943, 
  148.0799, 148.0471, 148.0258, 147.9885, 147.9837, 147.971)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-16.75078, -16.7539, -16.76607, -16.77133, -16.76574, -16.75209, -16.73566, -16.73072, -16.74651)
LONGITUDE_VALUEs <- c(147.7025, 147.6999, 147.7109, 147.7632, 147.7677, 147.7589, 147.7547, 147.7344, 147.719)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-15.72109, -15.72398, -15.72848, -15.72857, -15.72522, -15.72113)
LONGITUDE_VALUEs <- c(149.617, 149.6154, 149.6184, 149.6228, 149.6243, 149.6206)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -16.1205, -16.12116, -16.11655, -16.12125, -16.13625, -16.14532, -16.15118, -16.1548, -16.14285, -16.13213, 
  -16.11853, -16.10805, -16.10979, -16.11506)
LONGITUDE_VALUEs <- c(
  149.9681, 149.9708, 149.9831, 150.0181, 150.0292, 150.0294, 150.0248, 150.0302, 150.0377, 150.0342, 
  150.0238, 150.0041, 149.9861, 149.971)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-16.17356, -16.17632, -16.17925, -16.1783, -16.1743)
LONGITUDE_VALUEs <- c(150.0086, 150.0066, 150.0091, 150.0137, 150.0136)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-16.21006, -16.21694, -16.21937, -16.2134, -16.20965)
LONGITUDE_VALUEs <- c(149.9877, 149.9885, 149.9951, 149.9985, 149.9958)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-16.28208, -16.28752, -16.29188, -16.30663, -16.30778, -16.29963, -16.28496, -16.28179)
LONGITUDE_VALUEs <- c(149.9624, 149.9606, 149.9667, 149.9636, 149.9672, 149.972, 149.97, 149.965)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-16.52221, -16.5362, -16.54443, -16.52583, -16.51267)
LONGITUDE_VALUEs <- c(150.2737, 150.2676, 150.2723, 150.3027, 150.2979)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-16.59838, -16.60644, -16.61203, -16.6094, -16.6015, -16.59352)
LONGITUDE_VALUEs <- c(150.3291, 150.3304, 150.3382, 150.3455, 150.3477, 150.3437)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-16.93662, -16.94433, -16.94023, -16.92397, -16.92175)
LONGITUDE_VALUEs <- c(149.9932, 149.9997, 150.0119, 150.0137, 150.0081)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-16.96182, -16.9647, -16.97463, -16.97217, -16.97258, -16.96888, -16.97036)
LONGITUDE_VALUEs <- c(149.9076, 149.9027, 149.9064, 149.9133, 149.9216, 149.9204, 149.9159)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -16.94392, -16.94778, -16.95296, -16.95033, -16.92726, -16.91896, -16.9229, -16.92405, -16.93038, -16.93415, 
  -16.93785, -16.94319)
LONGITUDE_VALUEs <- c(
  149.183, 149.182, 149.2044, 149.2112, 149.213, 149.201, 149.1993, 149.2022, 149.2017, 149.1954, 
  149.1999, 149.1904)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -17.01707, -17.02626, -17.02051, -17.01083, -17.00804, -16.98341, -16.97767, -16.96749, -16.97126, -16.97619, 
  -16.99179, -17.00065, -17.01198)
LONGITUDE_VALUEs <- c(
  149.1353, 149.1564, 149.1672, 149.1627, 149.1531, 149.1475, 149.1406, 149.1367, 149.1289, 149.1325, 
  149.1315, 149.138, 149.1394)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -17.86219, -17.87625, -17.87731, -17.88409, -17.88262, -17.87322, -17.85885, -17.84782, -17.8278, -17.82625, 
  -17.77942, -17.78776, -17.79944, -17.80574, -17.826, -17.82665, -17.84479, -17.851)
LONGITUDE_VALUEs <- c(
  148.4682, 148.4716, 148.4878, 148.5041, 148.5183, 148.5315, 148.5352, 148.531, 148.5178, 148.5085, 
  148.4234, 148.4116, 148.4091, 148.3999, 148.4131, 148.4337, 148.449, 148.461)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -17.34662, -17.35269, -17.35908, -17.36579, -17.37448, -17.37464, -17.38603, -17.38807, -17.39209, -17.4106, 
  -17.41821, -17.41707, -17.44, -17.44098, -17.43705, -17.42952, -17.39987, -17.38103, -17.3744, -17.36579, 
  -17.3508, -17.34367)
LONGITUDE_VALUEs <- c(
  155.8381, 155.8357, 155.8392, 155.8384, 155.8434, 155.8477, 155.8594, 155.8575, 155.8659, 155.8671, 
  155.8614, 155.8527, 155.8545, 155.8598, 155.868, 155.868, 155.883, 155.88, 155.8684, 155.867, 
  155.8511, 155.8512)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-23.24911, -23.25431, -23.25758, -23.25802, -23.25549, -23.24958, -23.24094)
LONGITUDE_VALUEs <- c(155.5334, 155.5317, 155.5365, 155.5496, 155.5616, 155.5644, 155.5589)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -21.01311, -21.02081, -21.02738, -21.02562, -21.00655, -20.94388, -20.93538, -20.92223, -20.925, -20.95959, 
  -20.97289, -20.98587)
LONGITUDE_VALUEs <- c(
  154.3466, 154.3484, 154.3638, 154.3834, 154.4009, 154.4007, 154.4052, 154.4, 154.3965, 154.3705, 
  154.3441, 154.3475)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-21.09852, -21.11902, -21.12639, -21.13744, -21.1416, -21.13471, -21.10028)
LONGITUDE_VALUEs <- c(155.7341, 155.7339, 155.7458, 155.7466, 155.7542, 155.759, 155.7494)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -21.27731, -21.28067, -21.27939, -21.25763, -21.25411, -21.24579, -21.23475, -21.21539, -21.19618, -21.18898, 
  -21.18914, -21.18434, -21.18962, -21.19266, -21.20419, -21.21059, -21.22611, -21.24163, -21.24915, -21.24307, 
  -21.25363, -21.26611, -21.27251, -21.27091)
LONGITUDE_VALUEs <- c(
  155.706, 155.7142, 155.7379, 155.7707, 155.7918, 155.7993, 155.7851, 155.7755, 155.7841, 155.7791, 
  155.7731, 155.7641, 155.7617, 155.7695, 155.7722, 155.7703, 155.7715, 155.7846, 155.7813, 155.766, 
  155.7614, 155.7422, 155.7151, 155.7085)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-22.17755, -22.17954, -22.19718, -22.17819, -22.17564)
LONGITUDE_VALUEs <- c(155.1561, 155.1553, 155.1824, 155.1862, 155.1779)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-22.20799, -22.2153, -22.21864, -22.20711, -22.20235, -22.20695, -22.20497)
LONGITUDE_VALUEs <- c(155.238, 155.2405, 155.2523, 155.2707, 155.2677, 155.2529, 155.2462)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-22.19913, -22.20433, -22.20938, -22.20231, -22.19865)
LONGITUDE_VALUEs <- c(155.2931, 155.2901, 155.2984, 155.3054, 155.3013)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-22.19424, -22.19901, -22.19539, -22.19611, -22.1942, -22.19388, -22.18657, -22.18597)
LONGITUDE_VALUEs <- c(155.329, 155.3357, 155.3441, 155.3537, 155.3594, 155.3657, 155.3657, 155.3497)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-22.19043, -22.1979, -22.20441, -22.20147, -22.19329)
LONGITUDE_VALUEs <- c(155.3871, 155.3843, 155.3914, 155.3995, 155.4003)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-22.1638, -22.17079, -22.17747, -22.17715, -22.18089, -22.18057, -22.17588, -22.16825, -22.16761)
LONGITUDE_VALUEs <- c(155.4567, 155.4496, 155.4546, 155.4654, 155.4698, 155.4796, 155.4834, 155.4707, 155.4628)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -29.44076, -29.45414, -29.46557, -29.48291, -29.48463, -29.4751, -29.45822, -29.43923, -29.42264, -29.42548, 
  -29.44028, -29.45014)
LONGITUDE_VALUEs <- c(
  159.0606, 159.0436, 159.0438, 159.0649, 159.0895, 159.1272, 159.1513, 159.1498, 159.1218, 159.1038, 
  159.1005, 159.0866)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-29.93226, -29.95293, -29.98217, -29.97711, -29.95972, -29.94044, -29.93315, -29.91009, -29.91083, -29.92556)
LONGITUDE_VALUEs <- c(159.0163, 159.0101, 159.1063, 159.1311, 159.13563, 159.128, 159.1047, 159.0822, 159.07, 159.0465)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.65493, -17.66482, -17.66351, -17.65509)
LONGITUDE_VALUEs <- c(150.8271, 150.8235, 150.8324, 150.8336)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.42709, -17.4311, -17.43421, -17.42954, -17.42389)
LONGITUDE_VALUEs <- c(150.8027, 150.8021, 150.81161, 150.8204, 150.814)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.45157, -17.4591, -17.46189, -17.45689, -17.44977)
LONGITUDE_VALUEs <- c(150.9411, 150.9395, 150.9455, 150.9541, 150.9493)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.44226, -17.45078, -17.45322, -17.44819, -17.43719, -17.41557, -17.41262, -17.42376, -17.43817, -17.44472)
LONGITUDE_VALUEs <- c(151.0609, 151.0627, 151.08371, 151.08646, 151.0837, 151.0857, 151.0724, 151.07, 151.0758, 151.0694)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -13.80136, -13.83366, -13.89235, -13.90083, -13.91402, -13.93685, -13.95551, -13.99798, -14.0168, -13.98133, 
  -13.96667, -13.96583, -13.89051, -13.81758, -13.8039)
LONGITUDE_VALUEs <- c(
  146.5464, 146.5683, 146.5528, 146.5625, 146.5673, 146.5942, 146.6014, 146.6634, 146.6804, 146.7075, 
  146.7072, 146.6873, 146.6643, 146.5932, 146.5674)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-15.49306, -15.50585, -15.51794, -15.50927, -15.49113, -15.48184, -15.48061, -15.48447)
LONGITUDE_VALUEs <- c(147.0866, 147.1125, 147.1254, 147.1324, 147.1285, 147.1162, 147.1077, 147.0938)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-15.88668, -15.89485, -15.89028, -15.87406, -15.87022)
LONGITUDE_VALUEs <- c(149.1515, 149.1566, 149.1728, 149.1835, 149.1671)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-15.96438, -15.97217, -15.97898, -15.97709, -15.96839)
LONGITUDE_VALUEs <- c(149.1945, 149.1901, 149.1966, 149.2043, 149.2051)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.3964, -17.41375, -17.41844, -17.40716, -17.39431, -17.38685)
LONGITUDE_VALUEs <- c(148.1755, 148.1855, 148.2009, 148.2071, 148.2033, 148.1844)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.30909, -17.31839, -17.32845, -17.32932, -17.322)
LONGITUDE_VALUEs <- c(148.466, 148.4401, 148.4407, 148.4816, 148.4833)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-18.06821, -18.07498, -18.08623, -18.0796)
LONGITUDE_VALUEs <- c(149.6181, 149.6119, 149.6313, 149.6367)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -19.22661, -19.24843, -19.2881, -19.30279, -19.25827, -19.17386, -19.13145, -19.07579, -19.02741, -18.96196, 
  -18.95389, -18.93063, -18.93138, -18.9767, -18.9992, -19.06051, -19.06725, -19.1217, -19.16409, -19.18679)
LONGITUDE_VALUEs <- c(
  152.1622, 152.1924, 152.213, 152.2517, 152.3547, 152.4076, 152.4063, 152.3863, 152.3856, 152.339, 
  152.3204, 152.3077, 152.2379, 152.2185, 152.1737, 152.137, 152.1396, 152.1969, 152.1969, 152.1536)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-21.91608, -21.91879, -21.92114, -21.91759)
LONGITUDE_VALUEs <- c(153.5557, 153.5536, 153.5587, 153.5604)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-14.12452, -14.24168, -14.21972, -14.09921)
LONGITUDE_VALUEs <- c(146.7498, 146.8342, 146.9042, 146.8246)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-21.85147, -21.85225, -21.85249, -21.85142)
LONGITUDE_VALUEs <- c(153.5165, 153.5164, 153.5176, 153.5175)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-21.65845, -21.65952, -21.66084, -21.66006)
LONGITUDE_VALUEs <- c(153.7667, 153.7656, 153.7672, 153.7678)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.57285, -17.5744, -17.58389, -17.58111)
LONGITUDE_VALUEs <- c(148.332, 148.3303, 148.3353, 148.3384)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.69734, -17.71075, -17.71272, -17.70683, -17.70552, -17.69473)
LONGITUDE_VALUEs <- c(148.3448, 148.3448, 148.3652, 148.3671, 148.3515, 148.3496)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.7083, -17.71043, -17.71222, -17.70552, -17.70209, -17.70863)
LONGITUDE_VALUEs <- c(148.3873, 148.3854, 148.3968, 148.4036, 148.4012, 148.3949)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -17.71525, -17.71738, -17.72244, -17.72931, -17.72244, -17.71525, -17.70078, -17.69996, -17.70994, -17.71239, 
  -17.72048, -17.7168, -17.71762)
LONGITUDE_VALUEs <- c(
  148.4401, 148.439, 148.4507, 148.4593, 148.464, 148.4649, 148.4728, 148.4703, 148.4651, 148.4594, 
  148.4534, 148.4481, 148.4443)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.70536, -17.70838, -17.69775, -17.69489)
LONGITUDE_VALUEs <- c(148.5067, 148.5106, 148.526, 148.523)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -17.6935, -17.69644, -17.69636, -17.6863, -17.6805, -17.66578, -17.62341, -17.58332, -17.53668, -17.5393, 
  -17.5915, -17.63682, -17.67674, -17.69285)
LONGITUDE_VALUEs <- c(
  148.5352, 148.5348, 148.5504, 148.5692, 148.586, 148.5945, 148.5971, 148.5841, 148.5554, 148.5523, 
  148.5849, 148.5937, 148.5825, 148.553)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.65024, -17.65596, -17.65596, -17.65155)
LONGITUDE_VALUEs <- c(151.3549, 151.3526, 151.359, 151.359)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.63699, -17.64288, -17.64975, -17.64713, -17.63731, -17.63355, -17.63862)
LONGITUDE_VALUEs <- c(151.4137, 151.4055, 151.4064, 151.4201, 151.4311, 151.4287, 151.4215)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.61834, -17.62406, -17.6167, -17.61179)
LONGITUDE_VALUEs <- c(151.4543, 151.457, 151.4676, 151.4639)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.59445, -17.59968, -17.60279, -17.58496, -17.58087, -17.59756)
LONGITUDE_VALUEs <- c(151.4901, 151.4869, 151.4961, 151.5605, 151.559, 151.5004)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.5807, -17.58529, -17.58414, -17.57776)
LONGITUDE_VALUEs <- c(151.5693, 151.5705, 151.578, 151.5792)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.57416, -17.58103, -17.58201, -17.57268, -17.5681, -17.57628)
LONGITUDE_VALUEs <- c(151.5895, 151.5878, 151.5995, 151.6106, 151.6079, 151.5978)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.55124, -17.5555, -17.55255, -17.5447, -17.53831, -17.54977)
LONGITUDE_VALUEs <- c(151.6496, 151.6482, 151.6595, 151.6666, 151.6628, 151.6592)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.38062, -17.38586, -17.37554, -17.3744)
LONGITUDE_VALUEs <- c(151.4913, 151.4992, 151.5066, 151.4997)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.35498, -17.35023, -17.35359, -17.35867)
LONGITUDE_VALUEs <- c(151.5538, 151.5529, 151.5351, 151.5373)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.31778, -17.32131, -17.31639, -17.31713, -17.30893)
LONGITUDE_VALUEs <- c(151.6058, 151.6081, 151.6166, 151.6223, 151.6233)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.28959, -17.29541, -17.29402, -17.28558)
LONGITUDE_VALUEs <- c(151.6415, 151.6477, 151.6499, 151.6463)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.2714, -17.2796, -17.26402, -17.26665)
LONGITUDE_VALUEs <- c(151.6666, 151.6712, 151.679, 151.6705)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.2182, -17.22591, -17.20344, -17.1959, -17.19836, -17.20853)
LONGITUDE_VALUEs <- c(151.7274, 151.7279, 151.7476, 151.7445, 151.7389, 151.739)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.15949, -17.16736, -17.16917, -17.15818)
LONGITUDE_VALUEs <- c(151.7874, 151.7856, 151.7946, 151.796)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.14161, -17.14719, -17.13308, -17.1152, -17.11011, -17.12307, -17.13423, -17.1339)
LONGITUDE_VALUEs <- c(151.8108, 151.8208, 151.8254, 151.8546, 151.8491, 151.8269, 151.8208, 151.8137)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.10618, -17.11266, -17.1152, -17.10921, -17.10798, -17.11758, -17.10724, -17.10355)
LONGITUDE_VALUEs <- c(151.8747, 151.8725, 151.8789, 151.8802, 151.9131, 151.9344, 151.9367, 151.903)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.10732, -17.11618, -17.11175, -17.11307, -17.10814)
LONGITUDE_VALUEs <- c(151.9454, 151.945, 151.9569, 151.9879, 151.9871)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.22246, -17.22673, -17.21115, -17.20623)
LONGITUDE_VALUEs <- c(152.1194, 152.1261, 152.1383, 152.1309)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.28615, -17.29894, -17.29951, -17.29353, -17.28615)
LONGITUDE_VALUEs <- c(152.0763, 152.0703, 152.0745, 152.0814, 152.08)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.18245, -17.18475, -17.14538, -17.11832, -17.1088, -17.11848, -17.12307, -17.11438, -17.12193, -17.15047)
LONGITUDE_VALUEs <- c(152.1433, 152.1495, 152.157, 152.1383, 152.1138, 152.0731, 152.0734, 152.1103, 152.1387, 152.1507)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.11553, -17.1193, -17.11668, -17.1129)
LONGITUDE_VALUEs <- c(152.0278, 152.03, 152.0357, 152.0329)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.1175, -17.12242, -17.12455, -17.11864)
LONGITUDE_VALUEs <- c(152.0511, 152.0511, 152.0602, 152.0626)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.11372, -17.12061, -17.12061, -17.11159)
LONGITUDE_VALUEs <- c(151.9996, 152.0015, 152.0089, 152.0051)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.1763, -17.18032, -17.17138, -17.16966)
LONGITUDE_VALUEs <- c(151.762, 151.7645, 151.7732, 151.7669)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-17.25468, -17.25911, -17.25829, -17.25337)
LONGITUDE_VALUEs <- c(152.0935, 152.0939, 152.0983, 152.0991)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -17.52997, -17.53602, -17.48822, -17.47447, -17.44794, -17.44843, -17.43762, -17.43631, -17.41731, -17.42026, 
  -17.38685, -17.39323, -17.38734, -17.38979, -17.36882, -17.35244, -17.34032, -17.31885, -17.32016, -17.32475, 
  -17.34032, -17.36981, -17.38439, -17.38259, -17.38816, -17.38209, -17.41469, -17.40937, -17.41428, -17.41437, 
  -17.43312, -17.43271, -17.44565, -17.44155, -17.4495, -17.45392, -17.46931, -17.47201, -17.47856, -17.4901, 
  -17.53177)
LONGITUDE_VALUEs <- c(
  151.6731, 151.68, 151.7342, 151.7622, 151.7789, 151.7953, 151.8125, 151.8259, 151.8322, 151.8748, 
  151.938, 151.9866, 151.9951, 152.0109, 152.0501, 152.0564, 152.0683, 152.0655, 152.0573, 152.0635, 
  152.064, 152.0417, 152.0123, 151.9945, 151.9814, 151.9346, 151.8786, 151.8559, 151.8467, 151.8288, 
  151.8234, 151.8106, 151.7928, 151.781, 151.7712, 151.7737, 151.7617, 151.755, 151.7499, 151.7264, 
  151.6813)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "AUSTRALIA")
GeoDATA <- rbind(GeoDATA, Geo_1)

BAJO NUEVO BANK is claimed by COLOMBIA, by JAMAICA, by NICARAGUA and by UNITED STATES OF AMERICA.

BAJO NUEVO BANK (also known as PETREL ISLANDS) is a Colombian Territory.

SERRANILLA BANK is claimed by COLOMBIA, by HONDURAS, by JAMAICA and by UNITED STATES OF AMERICA.

SERRANILLA BANK is a Colombian Territory.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "COLOMBIA")
Geo_0 <- st_cast(Geo_1, "POLYGON")
Geo_0 <- st_union(Geo_0)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_union(Geo_0[c(1:4, 7:10)]))

##### COLOMBIA #####
LATITUDE_VALUEs <- c(
  15.87242, 15.82122, 15.79238, 15.79915, 15.82063, 15.84859, 15.83829, 15.8583, 15.86153, 15.89772, 
  15.9036, 15.88036, 15.89949, 15.89831, 15.88125, 15.86717)
LONGITUDE_VALUEs <- c(
  -79.87571, -79.91578, -79.8491, -79.83931, -79.84298, -79.80842, -79.79068, -79.76009, -79.73654, -79.71116, 
  -79.74939, -79.75612, -79.78242, -79.82035, -79.82218, -79.84935)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(15.86966, 15.82662, 15.80982, 15.80142, 15.80912, 15.83012, 15.84517, 15.8791, 15.891, 15.87491)
LONGITUDE_VALUEs <- c(-78.69473, -78.71219, -78.75256, -78.74929, -78.72055, -78.68745, -78.64417, -78.62926, -78.6489, -78.66563)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(15.92353, 15.91729, 15.91833, 15.91397, 15.90481, 15.89109, 15.88131, 15.87881, 15.89816, 15.9175)
LONGITUDE_VALUEs <- c(-78.604, -78.60162, -78.58756, -78.5588, -78.55923, -78.5748, -78.60141, -78.59362, -78.55339, -78.55404)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(12.15698, 12.14322, 12.14238, 12.15916, 12.16856, 12.18853, 12.19843)
LONGITUDE_VALUEs <- c(-81.88695, -81.88455, -81.82963, -81.8226, -81.83306, -81.82895, -81.85675)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(12.46708, 12.42685, 12.39567, 12.39617, 12.38142, 12.38175, 12.39819, 12.43121, 12.46105)
LONGITUDE_VALUEs <- c(-81.48441, -81.50106, -81.48252, -81.47068, -81.45437, -81.44373, -81.44065, -81.46982, -81.46451)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  12.49675, 12.48225, 12.48024, 12.5058, 12.52415, 12.52985, 12.54107, 12.54451, 12.55079, 12.56118, 
  12.56143, 12.5637, 12.56445, 12.56663, 12.56747, 12.57073, 12.57526, 12.58011, 12.5807, 12.57936, 
  12.58179, 12.58883, 12.59209, 12.59503, 12.57861, 12.56705, 12.55515, 12.54711, 12.52985, 12.52474, 
  12.50345)
LONGITUDE_VALUEs <- c(
  -81.73554, -81.734, -81.72739, -81.71546, -81.71297, -81.70697, -81.70782, -81.70353, -81.70439, -81.70353, 
  -81.70765, -81.70757, -81.69984, -81.69993, -81.70353, -81.6995, -81.70353, -81.69606, -81.69152, -81.68971, 
  -81.68688, -81.70044, -81.70053, -81.70645, -81.72275, -81.72309, -81.73297, -81.72997, -81.73597, -81.72902, 
  -81.73014)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  13.33876, 13.33759, 13.33075, 13.32615, 13.31981, 13.32407, 13.32356, 13.33283, 13.33392, 13.34469, 
  13.35396, 13.35689, 13.36231, 13.36098, 13.37083, 13.37785, 13.37927, 13.38611, 13.3872, 13.39438, 
  13.39054, 13.3816, 13.38219, 13.37417, 13.36925, 13.37233, 13.36657, 13.36423, 13.3535, 13.34616)
LONGITUDE_VALUEs <- c(
  -81.39634, -81.39282, -81.39085, -81.39256, -81.38879, -81.38072, -81.376, -81.36768, -81.35953, -81.35515, 
  -81.35643, -81.34948, -81.34957, -81.35386, -81.35841, -81.35351, -81.36235, -81.36416, -81.37145, -81.37085, 
  -81.3808, -81.37703, -81.36991, -81.37008, -81.37548, -81.38081, -81.3887, -81.38878, -81.39368, -81.3932)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  13.57758, 13.57274, 13.52802, 13.50499, 13.49364, 13.48412, 13.49664, 13.52084, 13.5422, 13.55005, 
  13.57258)
LONGITUDE_VALUEs <- c(
  -80.09258, -80.09601, -80.05138, -80.04692, -80.05979, -80.05001, -80.03645, -80.03679, -80.05069, -80.06426, 
  -80.07988)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(14.47325, 14.4759, 14.31495, 14.27437, 14.34223, 14.34822, 14.3981, 14.42271, 14.41007, 14.43668)
LONGITUDE_VALUEs <- c(-80.22982, -80.26758, -80.39321, -80.36712, -80.27925, -80.12616, -80.10076, -80.13234, -80.15911, -80.23188)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  14.48455, 14.42271, 14.34556, 14.3236, 14.22212, 14.18684, 14.18185, 14.15955, 14.13691, 14.13425, 
  14.15522, 14.18018, 14.20848, 14.22512, 14.26771, 14.33824)
LONGITUDE_VALUEs <- c(
  -81.11695, -81.16294, -81.16638, -81.19727, -81.16909, -81.18076, -81.1684, -81.16325, -81.16874, -81.14952, 
  -81.14987, -81.16394, -81.16291, -81.15021, -81.16913, -81.10941)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo) %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "COLOMBIA")
GeoDATA <- rbind(GeoDATA, Geo_1)
#DATA MANIPULATIONs on GeoDATA_from_Natural_Earth
DATA <- GeoDATA_from_Natural_Earth %>% st_drop_geometry() %>% #Drop Geometrie(s)
  select(1, 5, 7, 9, 12:13, 17, 20:23, 25, 28:31) %>% #Remove superfluous columns 
  rename_with(.fn = ~ paste0("NE_", ., recycle0 = TRUE), .cols = c(1, 8:9, 13, 15)) %>% #Rename duplicate columns
  #DATA MANIPULATIONs
  mutate(
    #New Variable => NE_Claimed
    NE_Claimed = ifelse(grepl("(?i)claimed", NOTE_BRK), gsub("(?i).*claimed by\\s*", "", NOTE_BRK), NA),
    #Replace Values in NE_Claimed
    NE_Claimed = sub(";.*", "", NE_Claimed),
    #Replace Values in NE_Claimed
    NE_Claimed = gsub("(?i)the United States", "United States of America", NE_Claimed),
    #Replace Values in NE_Claimed
    NE_Claimed = gsub("(?i)and", "|", NE_Claimed),
    #Replace Values in NE_Claimed
    NE_Claimed = gsub("(?i),", " |", NE_Claimed),
    #Replace Values in NE_Claimed
    NE_Claimed = gsub("(?i)the", "", NE_Claimed),
    #Replace Values in NE_ISO2
    NE_ISO2 = case_when(NE_ISO2 == "-99" ~ NA, TRUE ~ NE_ISO2),
    #Replace Values in NE_ISO3
    NE_ISO3 = case_when(NE_ISO3 == "-99" ~ NA, TRUE ~ NE_ISO3),
    #Replace Values in ISO_NUMERIC
    ISO_NUMERIC = case_when(ISO_NUMERIC == "-99" ~ NA, TRUE ~ ISO_NUMERIC),
    #Replace Values in WB_A3
    WB_A3 = case_when(WB_A3 == "-99" ~ NA, TRUE ~ WB_A3),
    #Replace Values in ADMIN_ISO
    ADMIN_ISO = case_when(ADMIN_ISO == "-99" ~ NA, TRUE ~ ADMIN_ISO),
    #Replace Values in NE_CONTINENT
    NE_CONTINENT = case_when(
      NE_CONTINENT == "Seven seas (open ocean)" ~ "Seven Seas", TRUE ~ NE_CONTINENT),
    #NE_CONTINENT From LOWERCASE TO UPPERCASE
    NE_CONTINENT = toupper(NE_CONTINENT), 
    #REGION From LOWERCASE TO UPPERCASE
    REGION = toupper(REGION), 
    #Replace Values in NE_SIREGION
    NE_SIREGION = case_when(
      NE_SIREGION == "Seven seas (open ocean)" ~ "Seven Seas", TRUE ~ NE_SIREGION),
    #Replace Values in WB_REGION
    WB_REGION = case_when(
      WB_REGION == "East Asia & Pacific" ~ "East Asia and Pacific",
      WB_REGION == "Europe & Central Asia" ~ "Europe and Central Asia",
      WB_REGION == "Latin America & Caribbean" ~ "Latin America and Caribbean",
      WB_REGION == "Middle East & North Africa" ~ "Middle East and North Africa", TRUE ~ WB_REGION))
#Remove superfluous columns
DATA <- DATA %>% select(-7)

#GeoDATA To DATA_from_Fondation
DATA_from_Fondation <- GeoDATA %>% st_drop_geometry()

#Combine DATA_from_Fondation | DATA
DATA_from_Fondation <- left_join(
  DATA_from_Fondation, DATA, by = c("VISUALIZATION_NAME" = "BRK_NAME")) %>% select(1:9, 29, 10:17) #Columns ORDER

#Combine GeoDATA | GeoDATA_from_Natural_Earth
GeoDATA <- left_join(
  GeoDATA, DATA, by = c("VISUALIZATION_NAME" = "BRK_NAME")) %>% select(1:9, 30, 10:18) #Columns ORDER
  
#Table => Countries in GeoDATA (!in GeoDATA_from_Natural_Earth)
DATA <- GeoDATA %>% st_drop_geometry()
datatable(DATA[is.na(DATA$REGION), ][ , c(1, 7, 10)],
          options = list(scrollX = TRUE, autoWidth = TRUE,
                         columnDefs = list(list(targets = "_all", render = JS(
                           "function(data, type, row, meta) {",
                           "  if (type === 'display' && data === null) {",
                           "    return 'NA';", "  }", "  return data;", "}")))),
          style = "bootstrap", rownames = FALSE, caption = "Countries in GeoDATA (!in GeoDATA_from_Natural_Earth)") %>%
  formatStyle(columns = 1, textAlign = "left") %>% formatStyle(columns = c(2:3), textAlign = "center")
GeoDATA <- GeoDATA %>% select(-10)

Numeric Code (M49_CODE) for GUADELOUPE.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "GUADELOUPE")
Geo_2 <- GeoDATA %>% filter(NAME == "ANGUILLA")
Geo_3 <- GeoDATA %>% filter(NAME == "SAINT KITTS AND NEVIS")
Geo_4 <- GeoDATA %>% filter(NAME == "ANTIGUA AND BARBUDA")
Geo_5 <- GeoDATA %>% filter(NAME == "MONTSERRAT")
Geo_6 <- GeoDATA %>% filter(NAME == "DOMINICA")

##### GUADELOUPE #####
LATITUDE_VALUEs <- c(
  16.3124, 16.30548, 16.3042, 16.30165, 16.29998, 16.29792, 16.29654, 16.29534, 16.29436, 16.29254, 
  16.29172, 16.29094, 16.2905, 16.29024, 16.29166, 16.29228, 16.29326, 16.29615, 16.29574, 16.29718, 
  16.29992, 16.29938, 16.30152, 16.30317, 16.30226, 16.30362, 16.30303, 16.30548, 16.30523, 16.30863, 
  16.31483, 16.31479, 16.31804, 16.31909, 16.32125, 16.32772, 16.32788, 16.32696, 16.3272, 16.32943, 
  16.32955, 16.32842, 16.32926, 16.3291, 16.33132, 16.33175, 16.33385, 16.33373, 16.33651, 16.33748, 
  16.3382, 16.33919, 16.33976, 16.34106, 16.3409, 16.34328, 16.34423, 16.34506, 16.34425, 16.34664, 
  16.34695, 16.3488, 16.34969, 16.3488, 16.34932, 16.34858, 16.34921, 16.3487, 16.34481, 16.34355, 
  16.34446, 16.34429, 16.34211, 16.34279, 16.34178, 16.34193, 16.33995, 16.34088, 16.33709, 16.33873, 
  16.33655, 16.33682, 16.33443, 16.33525, 16.33398, 16.33363, 16.33042, 16.33118, 16.33208, 16.33068, 
  16.32747, 16.32776, 16.32615, 16.32669, 16.32457, 16.3237, 16.32228, 16.32135, 16.31991, 16.31853, 
  16.31997, 16.31866, 16.31812, 16.31654, 16.31565, 16.31308, 16.31186, 16.31209, 16.3112)
LONGITUDE_VALUEs <- c(
  -61.08952, -61.09416, -61.09759, -61.09781, -61.09611, -61.0963, -61.09759, -61.0974, -61.09845, -61.09763, 
  -61.09768, -61.09632, -61.09701, -61.09581, -61.09555, -61.09461, -61.09529, -61.0898, -61.08648, -61.0815, 
  -61.07989, -61.07706, -61.0763, -61.07285, -61.07079, -61.06811, -61.06646, -61.05845, -61.05693, -61.0465, 
  -61.03961, -61.03813, -61.03564, -61.03292, -61.03073, -61.01875, -61.01524, -61.015, -61.01313, -61.01384, 
  -61.01251, -61.01176, -61.00992, -61.00869, -61.00764, -61.00459, -61.0032, -61.00137, -61.00343, -61.00301, 
  -61.00449, -61.00399, -61.00523, -61.00504, -61.0068, -61.00645, -61.0051, -61.00647, -61.00729, -61.00735, 
  -61.00856, -61.00755, -61.01083, -61.01328, -61.01422, -61.01437, -61.01598, -61.01727, -61.01789, -61.02104, 
  -61.0222, -61.02435, -61.02472, -61.02572, -61.02656, -61.02742, -61.02888, -61.03066, -61.03182, -61.03461, 
  -61.03645, -61.03746, -61.03898, -61.04096, -61.04222, -61.04398, -61.04611, -61.04748, -61.04879, -61.04892, 
  -61.0512, -61.0542, -61.05482, -61.05621, -61.05746, -61.05943, -61.05963, -61.06353, -61.06454, -61.06988, 
  -61.07364, -61.07445, -61.07581, -61.07628, -61.07729, -61.07735, -61.08018, -61.08334, -61.08619)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  16.17346, 16.17173, 16.16895, 16.16823, 16.16705, 16.16845, 16.16891, 16.16957, 16.17103, 16.17264, 
  16.17194, 16.17449, 16.17402, 16.17435, 16.1724, 16.17315, 16.17262)
LONGITUDE_VALUEs <- c(
  -61.12885, -61.13128, -61.12827, -61.12353, -61.12109, -61.11442, -61.10804, -61.10804, -61.10673, -61.10781, 
  -61.10918, -61.11077, -61.11141, -61.11237, -61.11601, -61.12286, -61.1259)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  16.17874, 16.17925, 16.18057, 16.18092, 16.18041, 16.1807, 16.17959, 16.17973, 16.17916, 16.17917, 
  16.17871, 16.17864, 16.17906, 16.17909, 16.1786, 16.17835, 16.17757, 16.17739, 16.1765, 16.1766, 
  16.17597, 16.17613, 16.17586, 16.17612, 16.1757, 16.17659, 16.17682, 16.17833)
LONGITUDE_VALUEs <- c(
  -61.10495, -61.10369, -61.10334, -61.10407, -61.10465, -61.10574, -61.1061, -61.10648, -61.10733, -61.10836, 
  -61.10955, -61.11025, -61.11053, -61.11113, -61.11122, -61.11176, -61.11231, -61.11394, -61.11375, -61.11207, 
  -61.11027, -61.10925, -61.10766, -61.10668, -61.10609, -61.10567, -61.10525, -61.10484)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  15.87099, 15.87231, 15.87475, 15.87429, 15.87801, 15.87978, 15.88238, 15.88354, 15.887, 15.88878, 
  15.89476, 15.89625, 15.89926, 15.90096, 15.92143, 15.92663, 15.92894, 15.94548, 15.9544, 15.95708, 
  15.96162, 15.96442, 15.96843, 15.96785, 15.97338, 15.97643, 15.97767, 15.98097, 15.98254, 15.98551, 
  15.98584, 15.98889, 15.98749, 15.99153, 15.99219, 16.00135, 16.00325, 16.00263, 16.00419, 16.00395, 
  16.00543, 16.00477, 16.00766, 16.00452, 16.00461, 16.0032, 16.00419, 16.00395, 15.99693, 15.99421, 
  15.99367, 15.99223, 15.99083, 15.98844, 15.98654, 15.98311, 15.98051, 15.97886, 15.97577, 15.9747, 
  15.95283, 15.94148, 15.91297, 15.90455, 15.90042, 15.89675, 15.8953, 15.88721, 15.87995, 15.87908, 
  15.87458, 15.86992, 15.86649, 15.86752, 15.86698, 15.86752, 15.86707, 15.86777, 15.86731, 15.86802, 
  15.86744, 15.86859, 15.86855)
LONGITUDE_VALUEs <- c(
  -61.26333, -61.24874, -61.2444, -61.2423, -61.23827, -61.23316, -61.23222, -61.22831, -61.22548, -61.22175, 
  -61.21866, -61.21419, -61.21042, -61.20389, -61.19596, -61.19707, -61.19523, -61.20046, -61.20969, -61.21788, 
  -61.21853, -61.22462, -61.22329, -61.22711, -61.23119, -61.23008, -61.23214, -61.23042, -61.23325, -61.23231, 
  -61.23978, -61.23935, -61.24355, -61.24261, -61.25213, -61.26321, -61.26896, -61.27153, -61.2714, -61.27363, 
  -61.27428, -61.27574, -61.27599, -61.27848, -61.28046, -61.28187, -61.2838, -61.29015, -61.29685, -61.29788, 
  -61.29895, -61.29877, -61.3004, -61.30053, -61.30645, -61.30516, -61.30667, -61.30624, -61.31933, -61.31821, 
  -61.31932, -61.33701, -61.33219, -61.32901, -61.33211, -61.33014, -61.32709, -61.32366, -61.31456, -61.30795, 
  -61.30263, -61.28245, -61.2801, -61.27735, -61.27649, -61.27473, -61.27345, -61.27267, -61.27117, -61.27018, 
  -61.26829, -61.26739, -61.26512)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  15.83377, 15.83561, 15.83941, 15.84147, 15.84314, 15.83994, 15.83908, 15.83689, 15.836, 15.83474, 
  15.83536, 15.83344, 15.83286, 15.83212, 15.83215, 15.83295)
LONGITUDE_VALUEs <- c(
  -61.58526, -61.58464, -61.58721, -61.59043, -61.59148, -61.59313, -61.59513, -61.59564, -61.59818, -61.59474, 
  -61.59204, -61.58979, -61.58608, -61.58605, -61.58528, -61.58465)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  15.87445, 15.876, 15.87685, 15.87794, 15.87782, 15.87854, 15.87693, 15.87788, 15.8771, 15.8771, 
  15.87842, 15.8775, 15.87604, 15.87588, 15.87505, 15.87396, 15.87309, 15.87204, 15.87174, 15.87205, 
  15.8735)
LONGITUDE_VALUEs <- c(
  -61.59258, -61.59097, -61.59164, -61.59155, -61.59279, -61.59344, -61.59445, -61.59646, -61.59735, -61.59862, 
  -61.59966, -61.60167, -61.60088, -61.59914, -61.59683, -61.59587, -61.59577, -61.5949, -61.59415, -61.59338, 
  -61.59249)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  15.83982, 15.84137, 15.84186, 15.84812, 15.8494, 15.85033, 15.8514, 15.85375, 15.85561, 15.85503, 
  15.85286, 15.85138, 15.85251, 15.85468, 15.85464, 15.8533, 15.85398, 15.85577, 15.85631, 15.85798, 
  15.85914, 15.85881, 15.8616, 15.86434, 15.86585, 15.86793, 15.86787, 15.87134, 15.87088, 15.86428, 
  15.86007, 15.86147, 15.85373, 15.85247, 15.85037, 15.84919, 15.84785, 15.84706, 15.84729)
LONGITUDE_VALUEs <- c(
  -61.63399, -61.63168, -61.62852, -61.62543, -61.62333, -61.62296, -61.62213, -61.62264, -61.62047, -61.61953, 
  -61.61977, -61.61833, -61.61691, -61.61681, -61.61608, -61.61578, -61.61462, -61.6144, -61.61539, -61.61599, 
  -61.62161, -61.62448, -61.6253, -61.62288, -61.62322, -61.63232, -61.63513, -61.63522, -61.6364, -61.6385, 
  -61.64449, -61.64672, -61.64702, -61.64886, -61.64845, -61.65019, -61.65084, -61.65024, -61.64867)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(15.83955, 15.83831, 15.83734, 15.83596, 15.83462, 15.8354, 15.8354, 15.83649)
LONGITUDE_VALUEs <- c(-61.61099, -61.61228, -61.61082, -61.60992, -61.60745, -61.60541, -61.60694, -61.6094)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  15.8572, 15.85664, 15.8579, 15.85765, 15.85534, 15.85398, 15.85326, 15.85332, 15.85264, 15.85394,
  15.85906, 15.85902, 15.85651, 15.85756, 15.8568, 15.85755, 15.8568, 15.85798, 15.85564, 15.85546,
  15.85744, 15.85744, 15.85839, 15.85943, 15.8618, 15.86698, 15.86771, 15.86731, 15.86784, 15.86743,
  15.86859, 15.86894, 15.8695, 15.86976, 15.86936, 15.86989, 15.8696, 15.87069, 15.87168, 15.87227,
  15.87135, 15.87304, 15.87565, 15.87653, 15.87884, 15.87904, 15.87981, 15.87884, 15.88023, 15.88017,
  15.88074, 15.88119, 15.8814, 15.88174, 15.88291, 15.88305, 15.88238, 15.88282, 15.88275, 15.88313,
  15.88337, 15.88383, 15.88387, 15.88231, 15.88209, 15.88145, 15.87474, 15.87398, 15.87393, 15.87298,
  15.87379, 15.87492, 15.87548, 15.87596, 15.87588, 15.87697, 15.87765, 15.87906, 15.87907, 15.88133,
  15.88107, 15.88049, 15.8796, 15.87749, 15.87618, 15.87419, 15.87286, 15.87083, 15.87027, 15.86922,
  15.86784, 15.86688, 15.86648, 15.86659, 15.86566, 15.86531, 15.86416, 15.86368, 15.86447, 15.86419, 
  15.86468, 15.86537, 15.86533, 15.86421, 15.86387, 15.8641, 15.86363, 15.86526, 15.86471, 15.86386, 
  15.86384, 15.86324, 15.86146, 15.86052, 15.85945, 15.85978, 15.85928)
LONGITUDE_VALUEs <- c(
  -61.6067, -61.60569, -61.60363, -61.602, -61.60103, -61.59805, -61.59749, -61.59436, -61.59335, -61.59078,
  -61.58908, -61.58737, -61.58619, -61.58485, -61.58393, -61.58291, -61.58168, -61.57945, -61.57963, -61.57821,
  -61.577, -61.57572, -61.57635, -61.57874, -61.57884, -61.57662, -61.57534, -61.57388, -61.57355, -61.57209,
  -61.57086, -61.57172, -61.57123, -61.56987, -61.56928, -61.5689, -61.56817, -61.56786, -61.56642, -61.56726,
  -61.56996, -61.57198, -61.56902, -61.5702, -61.56828, -61.56911, -61.56865, -61.57066, -61.57039, -61.57108,
  -61.57101, -61.57181, -61.57159, -61.57165, -61.57034, -61.57105, -61.57189, -61.57225, -61.57266, -61.57339,
  -61.573, -61.57298, -61.5738, -61.57399, -61.57434, -61.57418, -61.57583, -61.57698, -61.57766, -61.57848,
  -61.57943, -61.57835, -61.57879, -61.57874, -61.5796, -61.58018, -61.57946, -61.57925, -61.58038, -61.58104,
  -61.58168, -61.58168, -61.58225, -61.58228, -61.58492, -61.58541, -61.58329, -61.5832, -61.58232, -61.58215,
  -61.58306, -61.58294, -61.58366, -61.58445, -61.58458, -61.58391, -61.58481, -61.58608, -61.58744, -61.58856, 
  -61.58942, -61.58947, -61.59004, -61.59008, -61.59192, -61.59447, -61.59806, -61.59897, -61.59988, -61.59963, 
  -61.59896, -61.59878, -61.60004, -61.59994, -61.60122, -61.60391, -61.60543)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  15.87356, 15.87285, 15.87255, 15.87313, 15.87389, 15.87466, 15.87505, 15.87502, 15.87548, 15.87576, 
  15.87607, 15.87579, 15.87452, 15.8738)
LONGITUDE_VALUEs <- c(
  -61.56779, -61.56808, -61.56735, -61.56617, -61.56646, -61.56586, -61.56609, -61.56638, -61.56633, -61.56587, 
  -61.56728, -61.56745, -61.5668, -61.56714)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(16.21415, 16.21304, 16.21572, 16.21531, 16.21902, 16.21712)
LONGITUDE_VALUEs <- c(-61.54345, -61.53513, -61.53689, -61.54058, -61.54251, -61.54375)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(16.35387, 16.34786, 16.34258, 16.34151, 16.34662, 16.3444, 16.34604, 16.35131)
LONGITUDE_VALUEs <- c(-61.59, -61.59236, -61.59725, -61.59558, -61.59172, -61.58408, -61.57971, -61.58108)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(16.36788, 16.36904, 16.37081, 16.37074, 16.36788, 16.36761, 16.36473, 16.36393, 16.36533)
LONGITUDE_VALUEs <- c(-61.77782, -61.78039, -61.7811, -61.78194, -61.78103, -61.78179, -61.78056, -61.77795, -61.77842)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(16.16729, 16.16746, 16.16904, 16.1697, 16.16931, 16.16867, 16.16795, 16.16719, 16.16705, 16.16793)
LONGITUDE_VALUEs <- c(-61.789, -61.78818, -61.78842, -61.79011, -61.79093, -61.79005, -61.79215, -61.79211, -61.79041, -61.7894)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(16.33643, 16.33739, 16.33678, 16.3363)
LONGITUDE_VALUEs <- c(-61.6504, -61.65062, -61.65241, -61.65233)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  15.94828, 15.9495, 15.94663, 15.94696, 15.94816, 15.95071, 15.95232, 15.95244, 15.95414, 15.95566, 
  15.95818, 15.96334, 15.96466, 15.96049, 15.96119, 15.96338, 15.96717, 15.96664, 15.97006, 15.96672, 
  15.96833, 15.96779, 15.96606, 15.96796, 15.96689, 15.97068, 15.97052, 15.97233, 15.97089, 15.97254, 
  15.97184, 15.97489, 15.97708, 15.9819, 15.99106, 15.9923, 15.9949, 15.99515, 16.00055, 16.00096, 
  16.00393, 16.00682, 16.00938, 16.00917, 16.01206, 16.01198, 16.01948, 16.02163, 16.02476, 16.02509, 
  16.02901, 16.03372, 16.04279, 16.04555, 16.04885, 16.05079, 16.05541, 16.06118, 16.07409, 16.07718, 
  16.08184, 16.09376, 16.09636, 16.10213, 16.10345, 16.10704, 16.10881, 16.11487, 16.12316, 16.12946, 
  16.13548, 16.13478, 16.13779, 16.13994, 16.14047, 16.14196, 16.14373, 16.14538, 16.14966, 16.15053, 
  16.15379, 16.1549, 16.16108, 16.16277, 16.169, 16.17387, 16.17634, 16.17912, 16.18028, 16.18326, 
  16.18533, 16.18778, 16.18895, 16.19182, 16.19235, 16.19895, 16.20125, 16.2048, 16.20873, 16.2118, 
  16.21421, 16.21815, 16.23164, 16.23288, 16.23659, 16.23737, 16.23511, 16.23432, 16.23647, 16.23572, 
  16.23634, 16.23572, 16.23354, 16.23346, 16.23305, 16.23344, 16.23303, 16.23224, 16.2321, 16.23113, 
  16.23111, 16.23196, 16.23245, 16.23326, 16.23507, 16.2354, 16.23517, 16.23338, 16.23263, 16.23123, 
  16.23057, 16.22942, 16.22448, 16.22322, 16.22415, 16.22421, 16.22612, 16.22575, 16.2281, 16.2314, 
  16.23313, 16.23214, 16.23522, 16.23914, 16.23984, 16.24233, 16.25041, 16.2528, 16.2435, 16.24053, 
  16.23987, 16.23711, 16.23423, 16.23604, 16.23452, 16.23378, 16.23242, 16.22896, 16.22883, 16.22731, 
  16.22706, 16.22599, 16.2245, 16.22418, 16.22146, 16.21606, 16.21709, 16.21268, 16.21532, 16.21466, 
  16.21663, 16.21276, 16.2067, 16.20452, 16.20526, 16.20172, 16.2018, 16.19858, 16.1992, 16.19648, 
  16.19838, 16.19975, 16.20141, 16.20054, 16.20199, 16.20215, 16.2004, 16.20059, 16.20033, 16.20094, 
  16.20044, 16.20244, 16.20309, 16.20261, 16.20325, 16.20373, 16.20574, 16.20754, 16.20906, 16.20933, 
  16.21003, 16.21058, 16.20951, 16.20793, 16.20762, 16.20904, 16.2097, 16.20844, 16.2084, 16.20984, 
  16.20984, 16.20896, 16.20986, 16.21163, 16.21108, 16.21211, 16.21168, 16.21248, 16.21314, 16.21316, 
  16.21425, 16.21429, 16.21501, 16.21477, 16.21672, 16.21693, 16.21837, 16.21798, 16.21913, 16.21893, 
  16.21963, 16.21699, 16.22222, 16.22385, 16.22346, 16.22371, 16.22218, 16.22241, 16.22482, 16.22861, 
  16.23121, 16.23483, 16.23496, 16.23574, 16.23626, 16.23879, 16.23994, 16.24, 16.2406, 16.24136, 
  16.24211, 16.24182, 16.24116, 16.2418, 16.24101, 16.24373, 16.24417, 16.24046, 16.24009, 16.24108, 
  16.24046, 16.24161, 16.24128, 16.24188, 16.24176, 16.24244, 16.24182, 16.24359, 16.24326, 16.24454, 
  16.24412, 16.24637, 16.24866, 16.24874, 16.25018, 16.25086, 16.25058, 16.25002, 16.25039, 16.25689, 
  16.25273, 16.25352, 16.25076, 16.25121, 16.24952, 16.25043, 16.24536, 16.24507, 16.24157, 16.24264, 
  16.24437, 16.2454, 16.24651, 16.2489, 16.24746, 16.24911, 16.25512, 16.2538, 16.25529, 16.2583, 
  16.25496, 16.25418, 16.25554, 16.25787, 16.25874, 16.25983, 16.26038, 16.26304, 16.26658, 16.26693, 
  16.27365, 16.27526, 16.27643, 16.27861, 16.27847, 16.27944, 16.28868, 16.29537, 16.30027, 16.3055, 
  16.30567, 16.30938, 16.31193, 16.31362, 16.31288, 16.31679, 16.31695, 16.31926, 16.32033, 16.32227, 
  16.32046, 16.32198, 16.32194, 16.3235, 16.32251, 16.32359, 16.32742, 16.32807, 16.32527, 16.32515, 
  16.33195, 16.32987, 16.33049, 16.33271, 16.33376, 16.33302, 16.33216, 16.3314, 16.33072, 16.32989, 
  16.32888, 16.33039, 16.33082, 16.33226, 16.33282, 16.33346, 16.33381, 16.33465, 16.33619, 16.33321, 
  16.3356, 16.33615, 16.33747, 16.33492, 16.33545, 16.33864, 16.34124, 16.34515, 16.34853, 16.35141, 
  16.35262, 16.36065, 16.36398, 16.36827, 16.37872, 16.38087, 16.38527, 16.39215, 16.39515, 16.39779, 
  16.40042, 16.40277, 16.40668, 16.40812, 16.40981, 16.41203, 16.41582, 16.41677, 16.41854, 16.41784, 
  16.42401, 16.42677, 16.42866, 16.4462, 16.44624, 16.45142, 16.45175, 16.45513, 16.45809, 16.46056, 
  16.46044, 16.46665, 16.46986, 16.46945, 16.472, 16.47126, 16.47509, 16.47505, 16.479, 16.48241, 
  16.4834, 16.48711, 16.48859, 16.49081, 16.48883, 16.4992, 16.50052, 16.49752, 16.4999, 16.49822, 
  16.5004, 16.4997, 16.50266, 16.50463, 16.50505, 16.5066, 16.50636, 16.5136, 16.51455, 16.51046, 
  16.51002, 16.50533, 16.50443, 16.49756, 16.49472, 16.49155, 16.48945, 16.48587, 16.48332, 16.47373, 
  16.47159, 16.47134, 16.46706, 16.46352, 16.46159, 16.46138, 16.45768, 16.45414, 16.44731, 16.43816, 
  16.43717, 16.43799, 16.43587, 16.4311, 16.42416, 16.42025, 16.41759, 16.41475, 16.4138, 16.41154, 
  16.4094, 16.39976, 16.39846, 16.39511, 16.38922, 16.38486, 16.38927, 16.38478, 16.38362, 16.37642, 
  16.37218, 16.36988, 16.36829, 16.36696, 16.36582, 16.36502, 16.3651, 16.36426, 16.36078, 16.36037, 
  16.35738, 16.35643, 16.35516, 16.35396, 16.35359, 16.35267, 16.35258, 16.35203, 16.35092, 16.34952, 
  16.34994, 16.34879, 16.34611, 16.34533, 16.34591, 16.34364, 16.34183, 16.34315, 16.34331, 16.34615, 
  16.33765, 16.33287, 16.31565, 16.30305, 16.3019, 16.29597, 16.29555, 16.28814, 16.29333, 16.28641, 
  16.2869, 16.28229, 16.28451, 16.27875, 16.27488, 16.27018, 16.26581, 16.26993, 16.27455, 16.27899, 
  16.26837, 16.26824, 16.2785, 16.27586, 16.28254, 16.28303, 16.29531, 16.30033, 16.30503, 16.30124, 
  16.30478, 16.30511, 16.30898, 16.30906, 16.31261, 16.31631, 16.32142, 16.31846, 16.32735, 16.32521, 
  16.32974, 16.33534, 16.33732, 16.34604, 16.34777, 16.35106, 16.3546, 16.3574, 16.35592, 16.36218, 
  16.35411, 16.35518, 16.35353, 16.35106, 16.34942, 16.34555, 16.34217, 16.33426, 16.32405, 16.31919, 
  16.31696, 16.31219, 16.30823, 16.30535, 16.30337, 16.29339, 16.28577, 16.28157, 16.27786, 16.27247, 
  16.26901, 16.26827, 16.26645, 16.26361, 16.25776, 16.25076, 16.24231, 16.23984, 16.23691, 16.23531, 
  16.22533, 16.21786, 16.21407, 16.20706, 16.20451, 16.19445, 16.18811, 16.17484, 16.17302, 16.14804, 
  16.14071, 16.13543, 16.12793, 16.12611, 16.10599, 16.10311, 16.10162, 16.09181, 16.08966, 16.08612, 
  16.08323, 16.0608, 16.02846, 16.01081, 16.00495, 15.99753, 15.99051, 15.98045, 15.97277, 15.96188, 
  15.95924, 15.95715, 15.95455, 15.9524, 15.95088)
LONGITUDE_VALUEs <- c(
  -61.70728, -61.70469, -61.70003, -61.69632, -61.69561, -61.68025, -61.67862, -61.67609, -61.67514, -61.67316, 
  -61.67338, -61.66776, -61.66214, -61.65986, -61.65802, -61.65776, -61.65317, -61.65209, -61.64892, -61.64489, 
  -61.64094, -61.63669, -61.63407, -61.63227, -61.62995, -61.62978, -61.62849, -61.62652, -61.62433, -61.62107, 
  -61.61858, -61.61862, -61.62102, -61.61442, -61.61398, -61.60836, -61.60626, -61.60433, -61.60265, -61.59854, 
  -61.59785, -61.59201, -61.59051, -61.58875, -61.58845, -61.58493, -61.57914, -61.57261, -61.57176, -61.56931, 
  -61.56974, -61.56479, -61.56436, -61.5608, -61.56024, -61.5562, -61.55509, -61.5611, -61.56088, -61.55912, 
  -61.56105, -61.55856, -61.56123, -61.56067, -61.5626, -61.56255, -61.56771, -61.57131, -61.56865, -61.55968, 
  -61.56341, -61.56672, -61.5744, -61.57406, -61.57578, -61.5756, -61.57835, -61.57543, -61.57612, -61.57418, 
  -61.5759, -61.58183, -61.58191, -61.58423, -61.5853, -61.57956, -61.58061, -61.57999, -61.58641, -61.58638, 
  -61.58887, -61.58902, -61.58992, -61.58984, -61.59057, -61.58849, -61.58505, -61.58291, -61.58754, -61.58754, 
  -61.58533, -61.58864, -61.58441, -61.58475, -61.58141, -61.57907, -61.57778, -61.57435, -61.57188, -61.57027, 
  -61.56836, -61.56634, -61.56658, -61.56604, -61.56576, -61.5649, -61.56435, -61.56441, -61.56312, -61.56264, 
  -61.56224, -61.56213, -61.56281, -61.56294, -61.56181, -61.56055, -61.55894, -61.55772, -61.55579, -61.55538, 
  -61.55454, -61.55469, -61.55235, -61.54763, -61.54572, -61.54362, -61.54441, -61.5451, -61.54699, -61.54167, 
  -61.54321, -61.54935, -61.55101, -61.55016, -61.55081, -61.5483, -61.55347, -61.55077, -61.54118, -61.5417, 
  -61.53887, -61.53951, -61.53702, -61.53423, -61.53458, -61.53316, -61.53483, -61.53393, -61.532, -61.5317, 
  -61.52985, -61.53312, -61.53316, -61.53037, -61.5332, -61.52964, -61.52822, -61.52251, -61.51869, -61.51474, 
  -61.51158, -61.50698, -61.50865, -61.49355, -61.48655, -61.48067, -61.47522, -61.47119, -61.46788, -61.46462, 
  -61.46131, -61.46128, -61.45901, -61.45771, -61.45721, -61.45578, -61.45529, -61.45357, -61.45279, -61.45155, 
  -61.45095, -61.44562, -61.44485, -61.44402, -61.4436, -61.44274, -61.44303, -61.44232, -61.43749, -61.43257, 
  -61.43189, -61.42648, -61.42571, -61.42593, -61.42477, -61.4247, -61.42313, -61.42271, -61.42165, -61.42183, 
  -61.42079, -61.42037, -61.4199, -61.4176, -61.41584, -61.41135, -61.41002, -61.40867, -61.40897, -61.40691, 
  -61.40747, -61.40642, -61.40642, -61.405, -61.40607, -61.40434, -61.40318, -61.40133, -61.40034, -61.39936, 
  -61.39857, -61.3947, -61.39309, -61.39009, -61.3888, -61.38556, -61.38213, -61.37917, -61.37782, -61.37161, 
  -61.37136, -61.36168, -61.35449, -61.35316, -61.34876, -61.34402, -61.34307, -61.3391, -61.33889, -61.33956, 
  -61.33764, -61.33237, -61.33061, -61.32752, -61.32413, -61.32537, -61.32361, -61.31969, -61.3172, -61.31672, 
  -61.31576, -61.31466, -61.31395, -61.31214, -61.30969, -61.30735, -61.30479, -61.30076, -61.29432, -61.29316, 
  -61.2917, -61.28505, -61.28443, -61.28239, -61.2806, -61.27555, -61.27369, -61.27308, -61.26601, -61.25532, 
  -61.22932, -61.2206, -61.21366, -61.20877, -61.20495, -61.19133, -61.18276, -61.17907, -61.17671, -61.17486, 
  -61.17482, -61.17336, -61.17671, -61.17623, -61.18005, -61.18057, -61.18825, -61.19319, -61.19653, -61.19872, 
  -61.19898, -61.20224, -61.20723, -61.20965, -61.21441, -61.21583, -61.2174, -61.21862, -61.23036, -61.23317, 
  -61.24304, -61.24298, -61.24544, -61.24572, -61.2483, -61.24695, -61.25019, -61.25636, -61.25661, -61.26125, 
  -61.26708, -61.26605, -61.27185, -61.27267, -61.27576, -61.27704, -61.28223, -61.28232, -61.28515, -61.28704, 
  -61.28958, -61.29198, -61.29378, -61.29559, -61.29705, -61.29803, -61.29695, -61.29975, -61.30219, -61.3052, 
  -61.31215, -61.31626, -61.32188, -61.3263, -61.33478, -61.34038, -61.34087, -61.34064, -61.34096, -61.34068, 
  -61.3425, -61.34229, -61.34308, -61.34298, -61.34493, -61.34514, -61.34553, -61.34529, -61.34658, -61.35278, 
  -61.35744, -61.36188, -61.36638, -61.36748, -61.36907, -61.36769, -61.37636, -61.38087, -61.38209, -61.38613, 
  -61.38602, -61.39297, -61.39374, -61.39847, -61.4034, -61.4028, -61.40623, -61.40477, -61.40593, -61.40383, 
  -61.40477, -61.40383, -61.40619, -61.40155, -61.40181, -61.40044, -61.40271, -61.40018, -61.4004, -61.39838, 
  -61.39812, -61.39949, -61.39814, -61.40373, -61.40741, -61.4063, -61.40814, -61.40746, -61.40939, -61.40802, 
  -61.41141, -61.40969, -61.41218, -61.41398, -61.41557, -61.4181, -61.41896, -61.4227, -61.42806, -61.42883, 
  -61.43351, -61.43445, -61.43806, -61.44021, -61.44244, -61.44359, -61.44656, -61.45235, -61.45493, -61.45836, 
  -61.45944, -61.46223, -61.46364, -61.46179, -61.46364, -61.46503, -61.4669, -61.46377, -61.46467, -61.46648, 
  -61.47377, -61.47527, -61.47828, -61.48003, -61.48501, -61.48583, -61.49278, -61.49703, -61.50441, -61.50763, 
  -61.51239, -61.51686, -61.52183, -61.52273, -61.52569, -61.52844, -61.53059, -61.53557, -61.53607, -61.54158, 
  -61.54102, -61.53819, -61.53675, -61.53722, -61.53312, -61.53458, -61.5335, -61.53363, -61.53226, -61.53333, 
  -61.52925, -61.52844, -61.52668, -61.52629, -61.5123, -61.50848, -61.50629, -61.50269, -61.49929, -61.49539, 
  -61.49719, -61.49611, -61.49703, -61.49708, -61.49894, -61.49886, -61.50126, -61.50146, -61.49583, -61.49766, 
  -61.49738, -61.50004, -61.4995, -61.49326, -61.49489, -61.49497, -61.4988, -61.50159, -61.50558, -61.50678, 
  -61.51007, -61.51011, -61.50372, -61.50423, -61.50732, -61.50711, -61.50831, -61.51205, -61.52025, -61.52278, 
  -61.52836, -61.53592, -61.53369, -61.53961, -61.54717, -61.54571, -61.54253, -61.54159, -61.54588, -61.55705, 
  -61.5652, -61.57113, -61.57886, -61.57901, -61.58391, -61.58459, -61.59816, -61.60151, -61.59602, -61.60014, 
  -61.60718, -61.61459, -61.61053, -61.62519, -61.62665, -61.61403, -61.60974, -61.60107, -61.60287, -61.62554, 
  -61.62785, -61.63351, -61.63523, -61.64356, -61.64502, -61.64004, -61.65146, -61.66493, -61.67609, -61.68545, 
  -61.68612, -61.69574, -61.71471, -61.71797, -61.72244, -61.72123, -61.72793, -61.72896, -61.733, -61.74468, 
  -61.74923, -61.76005, -61.76595, -61.76741, -61.77531, -61.7784, -61.77763, -61.78922, -61.78655, -61.79204, 
  -61.8002, -61.80269, -61.79462, -61.79462, -61.80166, -61.80305, -61.80181, -61.80426, -61.80228, -61.80971, 
  -61.80829, -61.80572, -61.80761, -61.80542, -61.80632, -61.80275, -61.80168, -61.79739, -61.79619, -61.79181, 
  -61.78542, -61.78484, -61.78227, -61.78261, -61.78544, -61.78767, -61.78226, -61.7845, -61.77608, -61.77514, 
  -61.7802, -61.77111, -61.76973, -61.77454, -61.773, -61.77523, -61.77188, -61.77342, -61.7663, -61.76999, 
  -61.76716, -61.77076, -61.74818, -61.74655, -61.7427, -61.73308, -61.72905, -61.71453, -61.71051, -61.70784, 
  -61.70922, -61.70894, -61.7101, -61.70731, -61.70769)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### ANGUILLA #####
LATITUDE_VALUEs <- c(
  18.5902, 18.58536, 18.58392, 18.58317, 18.58282, 18.58168, 18.58125, 18.58538, 18.58573, 18.5911, 
  18.5924, 18.59313, 18.59364, 18.5949, 18.59525, 18.59441, 18.59291)
LONGITUDE_VALUEs <- c(
  -63.42813, -63.42779, -63.42854, -63.42822, -63.42916, -63.42925, -63.42824, -63.42665, -63.42581, -63.42268, 
  -63.42298, -63.42238, -63.42274, -63.42171, -63.42238, -63.42371, -63.42414)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  18.27932, 18.27482, 18.27388, 18.27143, 18.27192, 18.27335, 18.27518, 18.27561, 18.27651, 18.27685, 
  18.27765, 18.27696, 18.28005, 18.28075, 18.28201, 18.28317, 18.28189, 18.28048, 18.28001, 18.28136, 
  18.28295, 18.28437, 18.2804)
LONGITUDE_VALUEs <- c(
  -63.26269, -63.25987, -63.25379, -63.25156, -63.2498, -63.25053, -63.24882, -63.2462, -63.24605, -63.2445, 
  -63.24401, -63.24204, -63.23978, -63.23605, -63.23498, -63.23547, -63.24109, -63.24223, -63.24536, -63.24751, 
  -63.24661, -63.25701, -63.25909)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  18.2653, 18.26543, 18.26673, 18.26706, 18.26836, 18.26799, 18.26942, 18.26844, 18.26926, 18.26852, 
  18.26677, 18.26677)
LONGITUDE_VALUEs <- c(
  -63.18703, -63.17965, -63.1787, -63.18261, -63.18419, -63.18531, -63.18728, -63.18921, -63.19059, -63.19166, 
  -63.1893, -63.18788)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  18.26624, 18.26485, 18.26377, 18.2621, 18.26112, 18.262, 18.26337, 18.26518, 18.26599, 18.26477, 
  18.26445)
LONGITUDE_VALUEs <- c(
  -63.17719, -63.17805, -63.17427, -63.17494, -63.17127, -63.16796, -63.16886, -63.16897, -63.17086, -63.17243, 
  -63.17427)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  18.23787, 18.24171, 18.24501, 18.24403, 18.24786, 18.25108, 18.25157, 18.25577, 18.25768, 18.26583, 
  18.26551, 18.26673, 18.27023, 18.27557, 18.27602, 18.26909, 18.26726, 18.26274, 18.26323, 18.25613, 
  18.25882, 18.26143, 18.26107, 18.25418, 18.25772, 18.25308, 18.25063, 18.24753, 18.24647, 18.23963, 
  18.23926, 18.23677, 18.2373, 18.23392, 18.23274, 18.22817, 18.22308, 18.22133, 18.21611, 18.21211, 
  18.20877, 18.20363, 18.20339, 18.19992, 18.19544, 18.19454, 18.19593, 18.19197, 18.19271, 18.19132, 
  18.19193, 18.18932, 18.18557, 18.17986, 18.17974, 18.17566, 18.17395, 18.17093, 18.17171, 18.16808, 
  18.16311, 18.1629, 18.16013, 18.15988, 18.16323, 18.16253, 18.16494, 18.16413, 18.16176, 18.16156, 
  18.16527, 18.16439, 18.16184, 18.16153, 18.16473, 18.1702, 18.17046, 18.16965, 18.1683, 18.16849, 
  18.17057, 18.17721, 18.17729, 18.17509, 18.17083, 18.16859, 18.16759, 18.16955, 18.16949, 18.17105, 
  18.17167, 18.17022, 18.17048, 18.17271, 18.17262, 18.17507, 18.17507, 18.17811, 18.18272, 18.18431, 
  18.18875, 18.18887, 18.18551, 18.18736, 18.18932, 18.18785, 18.1904, 18.18997, 18.19213, 18.19487, 
  18.19513, 18.19801, 18.19721, 18.19896, 18.20157, 18.20222, 18.20384, 18.20416, 18.21072, 18.21054, 
  18.2138, 18.21423, 18.21706, 18.21704, 18.22047, 18.22308, 18.22398, 18.22043, 18.22153, 18.22426, 
  18.22381, 18.22532, 18.22826, 18.22923, 18.22863, 18.22988, 18.23145, 18.23247, 18.23359)
LONGITUDE_VALUEs <- c(
  -62.98558, -62.98035, -62.98091, -62.98378, -62.9876, -62.98636, -62.98331, -62.98138, -62.97537, -62.97061, 
  -62.96773, -62.96627, -62.96953, -62.96541, -62.96906, -62.97374, -62.97863, -62.98082, -62.98854, -63.00214, 
  -63.00494, -63.00374, -63.00764, -63.02347, -63.02751, -63.03459, -63.04502, -63.04897, -63.05373, -63.06249, 
  -63.06553, -63.06618, -63.06802, -63.06948, -63.07339, -63.06841, -63.06845, -63.06665, -63.06995, -63.07644, 
  -63.08961, -63.09566, -63.09128, -63.09072, -63.09334, -63.09686, -63.10179, -63.11377, -63.12166, -63.1248, 
  -63.12982, -63.13449, -63.1353, -63.14156, -63.14577, -63.14925, -63.15337, -63.15638, -63.16174, -63.16367, 
  -63.16882, -63.17088, -63.17316, -63.16942, -63.16345, -63.16135, -63.15877, -63.15482, -63.15285, -63.14924, 
  -63.14563, -63.14208, -63.14244, -63.14139, -63.1407, -63.135, -63.1309, -63.12907, -63.12884, -63.12695, 
  -63.12547, -63.11519, -63.10995, -63.10478, -63.10352, -63.10491, -63.10429, -63.09965, -63.09643, -63.09496, 
  -63.09172, -63.08981, -63.08852, -63.08755, -63.08515, -63.0814, -63.07893, -63.07575, -63.07382, -63.07088, 
  -63.07007, -63.06801, -63.06822, -63.06517, -63.06438, -63.06076, -63.05863, -63.05449, -63.0502, -63.0496, 
  -63.04811, -63.04668, -63.04213, -63.0362, -63.035, -63.03644, -63.03503, -63.03039, -63.0153, -63.01326, 
  -63.01284, -63.01449, -63.01365, -63.01239, -63.00869, -63.00891, -63.00647, -63.00247, -62.99767, -62.99595, 
  -62.99178, -62.98929, -62.99097, -62.98917, -62.98629, -62.98528, -62.98591, -62.98505, -62.98586)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  18.28385, 18.28548, 18.28649, 18.28613, 18.28902, 18.28886, 18.29134, 18.29053, 18.29578, 18.29326, 
  18.2953, 18.29505, 18.29652, 18.29485, 18.29167, 18.29065, 18.28735, 18.28564, 18.27965, 18.27871, 
  18.27578, 18.27464, 18.28054, 18.28429)
LONGITUDE_VALUEs <- c(
  -62.94314, -62.94198, -62.93833, -62.93383, -62.93078, -62.92885, -62.92435, -62.92992, -62.93439, -62.94057, 
  -62.94232, -62.94391, -62.94541, -62.9485, -62.94842, -62.95623, -62.9588, -62.9564, -62.95614, -62.9597, 
  -62.96039, -62.95631, -62.94726, -62.94735)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

##### SAINT KITTS AND NEVIS #####
LATITUDE_VALUEs <- c(
  17.22468, 17.22755, 17.22172, 17.22771, 17.23017, 17.22574, 17.2273, 17.23443, 17.23968, 17.25099, 
  17.25197, 17.25574, 17.24984, 17.2505, 17.25378, 17.2623, 17.26271, 17.26927, 17.27033, 17.27394, 
  17.27435, 17.27878, 17.28476, 17.28345, 17.28582, 17.29574, 17.29832, 17.30197, 17.30201, 17.30705, 
  17.3125, 17.32032, 17.33552, 17.35179, 17.35584, 17.35836, 17.35965, 17.36004, 17.36237, 17.36688, 
  17.37065, 17.37186, 17.37661, 17.37667, 17.37994, 17.37966, 17.38771, 17.40405, 17.40294, 17.40953, 
  17.40675, 17.41789, 17.41637, 17.41735, 17.41174, 17.41256, 17.4099, 17.41043, 17.40671, 17.40593, 
  17.39983, 17.39688, 17.39282, 17.39242, 17.38922, 17.38705, 17.38308, 17.36989, 17.36346, 17.36047, 
  17.35961, 17.35222, 17.34892, 17.34462, 17.34038, 17.3379, 17.3321, 17.32268, 17.31782, 17.31231, 
  17.30965, 17.3091, 17.30287, 17.30326, 17.299, 17.29629, 17.2958, 17.29644, 17.29551, 17.2939, 
  17.29482, 17.29267, 17.29322, 17.29275, 17.29056, 17.29066, 17.2897, 17.28984, 17.29086, 17.2908, 
  17.28855, 17.29021, 17.29248, 17.29414, 17.29172, 17.29175, 17.29467, 17.2932, 17.28824, 17.28259, 
  17.28095, 17.27845, 17.26861, 17.25906, 17.2563, 17.25468, 17.25302, 17.25234, 17.24976, 17.24591, 
  17.23987, 17.23825, 17.23516, 17.23124, 17.22758, 17.22746, 17.22648, 17.22491, 17.22356, 17.22325, 
  17.21971, 17.21646, 17.21455, 17.21342, 17.21347, 17.21276, 17.21515, 17.21632, 17.21783, 17.21837, 
  17.21961, 17.22027)
LONGITUDE_VALUEs <- c(
  -62.65249, -62.64623, -62.64168, -62.63868, -62.6319, -62.63001, -62.62555, -62.62941, -62.62091, -62.6264, 
  -62.63147, -62.6361, -62.63851, -62.64314, -62.64271, -62.65103, -62.65584, -62.65842, -62.66176, -62.66408, 
  -62.66803, -62.67455, -62.67772, -62.68056, -62.68359, -62.68294, -62.68522, -62.68393, -62.68784, -62.69234, 
  -62.69076, -62.69818, -62.70522, -62.71985, -62.72174, -62.72463, -62.72452, -62.72615, -62.72621, -62.7325, 
  -62.73418, -62.73868, -62.74014, -62.74366, -62.74703, -62.74935, -62.76357, -62.78015, -62.78259, -62.79508, 
  -62.8013, -62.80978, -62.81442, -62.81932, -62.83081, -62.83721, -62.84129, -62.84357, -62.84571, -62.84962, 
  -62.85244, -62.85884, -62.8594, -62.86115, -62.8618, -62.86369, -62.86287, -62.86416, -62.85326, -62.85249, 
  -62.8506, -62.84656, -62.84766, -62.84049, -62.83798, -62.83381, -62.82787, -62.80549, -62.79699, -62.79371, 
  -62.79378, -62.7918, -62.78884, -62.78528, -62.77541, -62.77558, -62.77431, -62.77305, -62.76914, -62.76741, 
  -62.76264, -62.75953, -62.75732, -62.74427, -62.74376, -62.74228, -62.74185, -62.73996, -62.73902, -62.73605, 
  -62.73532, -62.73211, -62.7322, -62.72511, -62.72445, -62.72116, -62.72011, -62.70893, -62.70902, -62.70194, 
  -62.68687, -62.68641, -62.66601, -62.65868, -62.65941, -62.65862, -62.65872, -62.65756, -62.65668, -62.66007, 
  -62.65694, -62.65849, -62.65897, -62.66472, -62.66438, -62.66233, -62.66036, -62.66, -62.6606, -62.6595, 
  -62.65842, -62.66034, -62.6579, -62.6579, -62.65607, -62.65436, -62.65146, -62.65144, -62.6524, -62.65194, 
  -62.65215, -62.65169)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  17.09621, 17.0958, 17.10008, 17.09969, 17.10179, 17.10138, 17.10343, 17.104, 17.10675, 17.10749, 
  17.10626, 17.11294, 17.12713, 17.12779, 17.14542, 17.15256, 17.16076, 17.16343, 17.16974, 17.17495, 
  17.17605, 17.18032, 17.18643, 17.18991, 17.19073, 17.1943, 17.19598, 17.19553, 17.20512, 17.20771, 
  17.20619, 17.20779, 17.20451, 17.20594, 17.20352, 17.20016, 17.19143, 17.18999, 17.18458, 17.17958, 
  17.17019, 17.15822, 17.14848, 17.14668, 17.14407, 17.13661, 17.13347, 17.13304, 17.12808, 17.12635, 
  17.11959, 17.1184, 17.11282, 17.10901, 17.10798, 17.09637, 17.09432)
LONGITUDE_VALUEs <- c(
  -62.59624, -62.59178, -62.58688, -62.58534, -62.58328, -62.58032, -62.57749, -62.57084, -62.56633, -62.56118, 
  -62.55534, -62.54844, -62.5447, -62.54281, -62.53977, -62.54268, -62.54174, -62.54384, -62.54479, -62.5441, 
  -62.54582, -62.54526, -62.55187, -62.55298, -62.55547, -62.55539, -62.56062, -62.56753, -62.57508, -62.58075, 
  -62.58616, -62.59045, -62.60238, -62.60817, -62.6113, -62.61079, -62.61877, -62.61757, -62.61989, -62.62422, 
  -62.62804, -62.62978, -62.62782, -62.62823, -62.62997, -62.62965, -62.63029, -62.63347, -62.63171, -62.62881, 
  -62.62701, -62.62541, -62.62219, -62.62262, -62.61978, -62.60892, -62.59858)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}

##### ANTIGUA AND BARBUDA #####
LATITUDE_VALUEs <- c(
  17.08649, 17.08862, 17.08825, 17.0848, 17.08444, 17.08591, 17.08464, 17.08062, 17.07898, 17.08046, 
  17.08091, 17.07812, 17.07988, 17.07541, 17.07324, 17.07361, 17.07143, 17.07147, 17.06993, 17.0647, 
  17.05393, 17.05379, 17.05459, 17.05356, 17.05207, 17.05239, 17.05112, 17.05073, 17.04589, 17.0448, 
  17.04111, 17.03744, 17.03295, 17.02776, 17.0264, 17.02638, 17.02443, 17.02476, 17.02287, 17.02382, 
  17.02404, 17.02228, 17.02131, 17.02246, 17.02217, 17.02057, 17.01782, 17.01723, 17.0186, 17.01686, 
  17.01741, 17.01555, 17.01358, 17.01272, 17.01421, 17.0138, 17.01241, 17.01206, 17.01327, 17.01401, 
  17.0161, 17.01666, 17.01411, 17.01255, 17.01089, 17.00658, 17.00502, 17.004, 17.00584, 17.00566, 
  17.00709, 17.00687, 17.00876, 17.00828, 17.0096, 17.00882, 17.01356, 17.01485, 17.01395, 17.01505, 
  17.01413, 17.01226, 17.01212, 17.0106, 17.00857, 17.0067, 17.00683, 17.0096, 17.01068, 17.01272, 
  17.01432, 17.016, 17.01668, 17.01869, 17.01971, 17.02174, 17.02287, 17.02251, 17.02282, 17.02155, 
  17.0219, 17.02165, 17.02077, 17.01969, 17.0187, 17.01792, 17.01639, 17.0146, 17.0123, 17.0114, 
  17.0111, 17.00985, 17.00809, 17.00793, 17.00631, 17.00541, 17.00628, 17.00594, 17.00353, 17.00239, 
  17.00172, 17.00072, 17.00111, 17.00196, 17.00493, 17.00453, 17.00656, 17.00863, 17.00857, 17.00956, 
  17.01095, 17.01109, 17.00962, 17.00976, 17.01185, 17.01259, 17.0122, 17.01085, 17.00871, 17.00876, 
  17.00798, 17.00775, 17.00681, 17.00562, 17.0033, 17.00198, 17.00166, 16.99987, 17.00032, 16.99763, 
  16.99867, 16.9985, 16.99929, 16.99887, 16.99939, 16.99822, 16.99839, 17.00197, 17.00291, 17.00232, 
  17.00375, 17.00492, 17.00411, 17.00552, 17.00733, 17.00569, 17.0067, 17.00397, 17.00189, 17.00233, 
  17.00774, 17.01007, 17.01169, 17.01323, 17.01583, 17.01682, 17.01598, 17.01265, 17.01142, 17.01284, 
  17.01335, 17.01518, 17.017, 17.01716, 17.0208, 17.02225, 17.02432, 17.02363, 17.02595, 17.0258, 
  17.02865, 17.03216, 17.03462, 17.03719, 17.03971, 17.04267, 17.04435, 17.04221, 17.04386, 17.04236, 
  17.03166, 17.03208, 17.03084, 17.03154, 17.03323, 17.03413, 17.03276, 17.03391, 17.03323, 17.03559, 
  17.03532, 17.03813, 17.04012, 17.04039, 17.03912, 17.04066, 17.04355, 17.04544, 17.04583, 17.04404, 
  17.0433, 17.04273, 17.0458, 17.04695, 17.04624, 17.04782, 17.04923, 17.04944, 17.05132, 17.05309, 
  17.05399, 17.05383, 17.05573, 17.05813, 17.05787, 17.05945, 17.06025, 17.0611, 17.06149, 17.06233, 
  17.06387, 17.06474, 17.06396, 17.06515, 17.06601, 17.06646, 17.06743, 17.067, 17.0678, 17.06921, 
  17.07184, 17.07194, 17.0695, 17.06969, 17.06862, 17.06858, 17.06554, 17.06778, 17.06597, 17.06665, 
  17.06926, 17.06768, 17.07014, 17.07104, 17.07309, 17.07486, 17.06815, 17.07157, 17.07123, 17.07709, 
  17.07773, 17.07892, 17.07968, 17.08076, 17.08009, 17.08185, 17.0805, 17.08357, 17.08304, 17.08433, 
  17.08593, 17.08487, 17.08573, 17.08714, 17.08995, 17.09036, 17.08782, 17.08556, 17.08552, 17.08364, 
  17.08306, 17.08425, 17.08296, 17.0832, 17.0854, 17.08958, 17.08987, 17.09307, 17.09305, 17.09184, 
  17.09282, 17.09276, 17.09453, 17.0942, 17.09508, 17.09481, 17.09686, 17.09836, 17.09883, 17.09982, 
  17.09957, 17.10068, 17.10186, 17.10173, 17.10207, 17.10129, 17.10043, 17.09952, 17.09986, 17.09748, 
  17.09745, 17.09863, 17.09734, 17.09783, 17.09663, 17.09741, 17.09919, 17.09962, 17.10031, 17.1003, 
  17.10161, 17.10249, 17.10207, 17.1014, 17.10173, 17.09901, 17.09938, 17.1002, 17.10048, 17.09825, 
  17.09947, 17.10102, 17.1018, 17.10323, 17.10289, 17.10378, 17.10332, 17.10218, 17.10148, 17.09967, 
  17.09976, 17.09836, 17.09853, 17.09563, 17.0973, 17.09264, 17.09506, 17.09582, 17.09459, 17.09766, 
  17.09828, 17.0998, 17.09881, 17.09924, 17.09801, 17.09572, 17.08915, 17.09358, 17.09637, 17.09758, 
  17.0998, 17.09969, 17.1038, 17.1054, 17.1071, 17.1086, 17.11104, 17.10989, 17.1113, 17.10966, 
  17.11089, 17.11475, 17.11881, 17.11807, 17.12709, 17.12984, 17.1318, 17.13119, 17.12614, 17.12668, 
  17.12147, 17.12196, 17.12028, 17.12184, 17.11552, 17.11462, 17.12385, 17.13148, 17.1382, 17.13652, 
  17.13714, 17.13258, 17.12241, 17.12118, 17.12241, 17.1202, 17.11154, 17.11154, 17.1129, 17.11019, 
  17.10683, 17.10765, 17.11191, 17.11921, 17.1202, 17.12508, 17.12266, 17.11966, 17.12032, 17.12319, 
  17.1245, 17.12262, 17.12637, 17.13084, 17.1317, 17.13394, 17.13447, 17.13767, 17.1349, 17.13648, 
  17.14157, 17.14329, 17.14858, 17.15215, 17.15276, 17.15514, 17.15904, 17.15937, 17.16453, 17.17068, 
  17.16744, 17.17364, 17.16933, 17.16872, 17.16732, 17.1674, 17.16605, 17.16236, 17.15715, 17.15375, 
  17.15133, 17.13977, 17.1378, 17.1316, 17.1298, 17.13279, 17.13, 17.12758, 17.12738, 17.12545, 
  17.12258, 17.12049, 17.1191, 17.11717, 17.11889, 17.1175, 17.12131, 17.11922, 17.12053, 17.11951, 
  17.1209, 17.12309, 17.12309, 17.12649, 17.12518, 17.12885, 17.12815, 17.13051, 17.1293, 17.12873, 
  17.12881, 17.12442, 17.12403, 17.12471, 17.12434, 17.12344, 17.12057, 17.12069, 17.11864, 17.11825, 
  17.11708, 17.11589, 17.11505, 17.10662, 17.10584, 17.10279, 17.10043, 17.09871, 17.09893, 17.10111, 
  17.10258, 17.10141, 17.10348, 17.10402, 17.10586, 17.10486, 17.10517, 17.10227, 17.0978, 17.0959, 
  17.09528)
LONGITUDE_VALUEs <- c(
  -61.88239, -61.88732, -61.89174, -61.8941, -61.89784, -61.89959, -61.9029, -61.90629, -61.905, -61.90388, 
  -61.89874, -61.8962, -61.89157, -61.88981, -61.89136, -61.89423, -61.89599, -61.89127, -61.88985, -61.8885, 
  -61.8917, -61.89346, -61.89464, -61.89498, -61.89614, -61.8976, -61.89811, -61.89629, -61.89599, -61.8947, 
  -61.89388, -61.89425, -61.89146, -61.88961, -61.89052, -61.88805, -61.88702, -61.88453, -61.88264, -61.87889, 
  -61.87399, -61.86511, -61.86413, -61.86271, -61.85962, -61.85799, -61.85801, -61.85644, -61.85196, -61.84921, 
  -61.84563, -61.84306, -61.84454, -61.84405, -61.84077, -61.83888, -61.83899, -61.83796, -61.83783, -61.83575, 
  -61.8359, -61.83392, -61.83115, -61.83309, -61.83191, -61.83277, -61.83375, -61.83174, -61.83079, -61.82892, 
  -61.826, -61.82219, -61.82015, -61.8163, -61.81315, -61.81056, -61.80994, -61.80641, -61.80485, -61.80131, 
  -61.79899, -61.79891, -61.79517, -61.78974, -61.78856, -61.7853, -61.78468, -61.78599, -61.78753, -61.78719, 
  -61.78509, -61.78492, -61.78359, -61.78352, -61.78153, -61.78116, -61.77858, -61.7782, -61.777, -61.77489, 
  -61.77128, -61.76865, -61.76854, -61.76767, -61.76774, -61.76942, -61.7691, -61.76953, -61.769, -61.77139, 
  -61.77517, -61.77567, -61.77749, -61.77832, -61.77894, -61.77691, -61.77606, -61.775, -61.7734, -61.77418, 
  -61.77178, -61.77035, -61.76971, -61.76988, -61.76612, -61.76367, -61.76518, -61.76391, -61.7655, -61.7676, 
  -61.76777, -61.76723, -61.76588, -61.76505, -61.76565, -61.76455, -61.76326, -61.76401, -61.76271, -61.7618, 
  -61.76174, -61.76333, -61.76311, -61.75961, -61.75878, -61.75957, -61.76142, -61.76069, -61.75872, -61.75473, 
  -61.75351, -61.75216, -61.75111, -61.74967, -61.74905, -61.7483, -61.74579, -61.74265, -61.74283, -61.74097, 
  -61.73913, -61.74022, -61.74201, -61.74339, -61.74268, -61.74208, -61.7392, -61.7366, -61.73745, -61.73412, 
  -61.73371, -61.73724, -61.73747, -61.73943, -61.73859, -61.73595, -61.73395, -61.73477, -61.73378, -61.73359, 
  -61.73234, -61.7326, -61.73159, -61.73026, -61.73095, -61.7338, -61.73404, -61.73629, -61.73707, -61.73861, 
  -61.74033, -61.74058, -61.74312, -61.74181, -61.74483, -61.74449, -61.7426, -61.73992, -61.73745, -61.73207, 
  -61.71268, -61.69556, -61.69208, -61.69092, -61.69267, -61.6914, -61.69052, -61.68805, -61.68634, -61.68477, 
  -61.6887, -61.68947, -61.68823, -61.68569, -61.68565, -61.68286, -61.68321, -61.68183, -61.68031, -61.67805, 
  -61.67855, -61.67801, -61.67372, -61.67357, -61.67514, -61.67756, -61.67731, -61.67585, -61.67608, -61.67394, 
  -61.67488, -61.67653, -61.67748, -61.67724, -61.6781, -61.67868, -61.67724, -61.6777, -61.67707, -61.67819, 
  -61.67794, -61.67891, -61.67989, -61.67979, -61.67876, -61.67597, -61.67803, -61.67941, -61.67973, -61.67816, 
  -61.67838, -61.68006, -61.6807, -61.6824, -61.68259, -61.68635, -61.68645, -61.68763, -61.69014, -61.69332, 
  -61.69278, -61.69658, -61.69742, -61.69989, -61.69909, -61.70124, -61.71081, -61.71364, -61.70905, -61.70317, 
  -61.70523, -61.70377, -61.70521, -61.70448, -61.70285, -61.69929, -61.69753, -61.69476, -61.69291, -61.69242, 
  -61.69324, -61.69514, -61.69596, -61.69285, -61.69319, -61.69223, -61.69017, -61.69094, -61.68843, -61.69032, 
  -61.68963, -61.68779, -61.68506, -61.68336, -61.68525, -61.68386, -61.68249, -61.68279, -61.68354, -61.68401, 
  -61.68508, -61.68628, -61.68565, -61.68449, -61.68308, -61.68164, -61.68016, -61.68061, -61.67939, -61.67926, 
  -61.67821, -61.67821, -61.67753, -61.67836, -61.67883, -61.67986, -61.67938, -61.67995, -61.68135, -61.68234, 
  -61.68314, -61.68358, -61.68521, -61.68606, -61.68734, -61.68801, -61.68672, -61.68442, -61.68411, -61.6833, 
  -61.68196, -61.68204, -61.6846, -61.68511, -61.68658, -61.68975, -61.69194, -61.69204, -61.69332, -61.6942, 
  -61.69638, -61.69546, -61.69777, -61.69768, -61.70103, -61.70207, -61.70384, -61.70258, -61.70451, -61.70524, 
  -61.70194, -61.70335, -61.70758, -61.70552, -61.7119, -61.71769, -61.72086, -61.7199, -61.71844, -61.7178, 
  -61.71511, -61.71533, -61.71618, -61.71825, -61.71947, -61.72941, -61.73335, -61.73355, -61.73254, -61.73365, 
  -61.73258, -61.73082, -61.73097, -61.72668, -61.72663, -61.73063, -61.72919, -61.73191, -61.7344, -61.73659, 
  -61.74491, -61.74539, -61.73676, -61.73341, -61.71847, -61.71877, -61.72457, -61.72727, -61.72805, -61.73298, 
  -61.73762, -61.74114, -61.74376, -61.74659, -61.74714, -61.75023, -61.75452, -61.74564, -61.74852, -61.75006, 
  -61.75221, -61.75084, -61.76491, -61.76414, -61.76165, -61.76036, -61.76036, -61.76199, -61.76384, -61.77054, 
  -61.77226, -61.77522, -61.77865, -61.77521, -61.77701, -61.77701, -61.78392, -61.78556, -61.78684, -61.78457, 
  -61.78504, -61.78749, -61.78912, -61.78118, -61.78307, -61.78092, -61.78223, -61.7805, -61.77588, -61.77371, 
  -61.77345, -61.78027, -61.78894, -61.78731, -61.78976, -61.79036, -61.78967, -61.79513, -61.80011, -61.80118, 
  -61.82113, -61.83195, -61.83825, -61.8422, -61.84306, -61.84495, -61.84714, -61.84564, -61.84915, -61.85534, 
  -61.85383, -61.85988, -61.85898, -61.86413, -61.86383, -61.86014, -61.85155, -61.85138, -61.85752, -61.85769, 
  -61.84653, -61.84688, -61.84486, -61.84482, -61.84679, -61.8504, -61.85692, -61.86096, -61.86272, -61.86525, 
  -61.86806, -61.86821, -61.86933, -61.87197, -61.87753, -61.87884, -61.88122, -61.88575, -61.88931, -61.88923, 
  -61.88564, -61.88491, -61.88725, -61.88822, -61.89038, -61.89029, -61.89439, -61.89725, -61.89817, -61.89697, 
  -61.89723, -61.89823, -61.89712, -61.90325, -61.90158, -61.90259, -61.90536, -61.90248, -61.89991, -61.89877, 
  -61.89538, -61.89218, -61.88997, -61.88169, -61.87909, -61.87731, -61.87456, -61.87332, -61.87545, -61.87499, 
  -61.87729)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(16.94185, 16.94405, 16.94414, 16.9447, 16.94441, 16.94396, 16.94309, 16.93977, 16.93917, 16.93728, 
  16.93645, 16.93351, 16.93261, 16.9323, 16.93296, 16.93472, 16.93735, 16.9374, 16.93783, 16.93786, 
  16.93816, 16.93814, 16.93951)
LONGITUDE_VALUEs <- c(-62.34291, -62.34532, -62.34705, -62.34723, -62.34772, -62.34756, -62.34785, -62.34733, -62.34758, -62.34747, 
  -62.34791, -62.34826, -62.34763, -62.3464, -62.3448, -62.34335, -62.34284, -62.34192, -62.34192, -62.34136, 
  -62.34149, -62.3425, -62.34304)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(17.0677, 17.06844, 17.07004, 17.07045, 17.06883, 17.06823, 17.06659, 17.06604, 17.06817, 17.06825, 
  17.0678, 17.06827, 17.06946, 17.06872, 17.0709, 17.07194, 17.07363, 17.07219, 17.07196, 17.07047, 
  17.07002, 17.07075, 17.06985, 17.06899)
LONGITUDE_VALUEs <- c(-61.66954, -61.66789, -61.66789, -61.6644, -61.66487, -61.66352, -61.66392, -61.66276, -61.66212, -61.65985, 
  -61.65888, -61.65708, -61.65717, -61.65974, -61.66152, -61.67004, -61.67223, -61.67261, -61.67386, -61.6751, 
  -61.67289, -61.67079, -61.66976, -61.67027)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(17.10681, 17.10517, 17.10628, 17.10451, 17.10529, 17.1063, 17.10615, 17.10796)
LONGITUDE_VALUEs <- c(-61.70943, -61.70924, -61.70688, -61.70377, -61.7, -61.70045, -61.70506, -61.70772)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(17.10165, 17.10117, 17.10161, 17.10328, 17.10336, 17.10417, 17.10379, 17.10233)
LONGITUDE_VALUEs <- c(-61.70699, -61.70692, -61.70481, -61.70534, -61.70616, -61.70709, -61.70752, -61.70623)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(17.09876, 17.09804, 17.09905, 17.1005, 17.10026, 17.09922)
LONGITUDE_VALUEs <- c(-61.72478, -61.72444, -61.72206, -61.72244, -61.72308, -61.7237)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(17.14604, 17.14522, 17.14419, 17.14469, 17.1436, 17.1436, 17.14846, 17.14854, 17.14559, 17.14538)
LONGITUDE_VALUEs <- c(-61.72674, -61.72762, -61.72569, -61.7247, -61.72425, -61.72374, -61.72346, -61.72421, -61.72417, -61.72517)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(17.11395, 17.11298, 17.11442, 17.1159)
LONGITUDE_VALUEs <- c(-61.77132, -61.76986, -61.76668, -61.76928)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(17.10683, 17.10603, 17.10796, 17.10761, 17.11009, 17.11093, 17.112, 17.11235, 17.11011, 17.11036, 
  17.1088, 17.11034, 17.10849, 17.10833, 17.11001, 17.10796)
LONGITUDE_VALUEs <- c(-61.72557, -61.72516, -61.7219, -61.71761, -61.71405, -61.71409, -61.71281, -61.71371, -61.71532, -61.71785, 
  -61.71879, -61.71963, -61.72077, -61.72235, -61.72439, -61.72424)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(17.05438, 17.05196, 17.05237, 17.05207, 17.05428)
LONGITUDE_VALUEs <- c(-61.67006, -61.67098, -61.66961, -61.66815, -61.66755)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(17.15076, 17.14912, 17.14905, 17.15187, 17.15202, 17.14882, 17.1495, 17.15126, 17.153, 17.15473, 
  17.15509, 17.15864, 17.15871, 17.15965, 17.15876, 17.15865, 17.15938, 17.16216, 17.16193, 17.15964, 
  17.15812, 17.15569, 17.15385, 17.15353, 17.15194, 17.15132)
LONGITUDE_VALUEs <- c(-61.76063, -61.75994, -61.75925, -61.75713, -61.755, -61.75409, -61.75354, -61.75406, -61.74968, -61.74861, 
  -61.74576, -61.74704, -61.75092, -61.75282, -61.75412, -61.75561, -61.75723, -61.7583, -61.75889, -61.75837, 
  -61.76059, -61.7601, -61.76086, -61.76181, -61.76248, -61.76222)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(17.14285, 17.14547, 17.14567, 17.14634, 17.14598, 17.1462, 17.14824, 17.1475, 17.14637, 17.14517, 
  17.14455, 17.14283)
LONGITUDE_VALUEs <- c(-61.76275, -61.76208, -61.76167, -61.76167, -61.76268, -61.76325, -61.76488, -61.76489, -61.76399, -61.76466, 
  -61.76389, -61.7642)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(17.57288, 17.57321, 17.56405, 17.5506, 17.54291, 17.55244, 17.55498, 17.55322, 17.54847, 17.54368, 
  17.5454, 17.54954, 17.55481, 17.55657, 17.55944, 17.56488, 17.56717, 17.57151, 17.58263, 17.58529, 
  17.59012, 17.59323, 17.59609, 17.59834, 17.60133, 17.60747, 17.61021, 17.61691, 17.63995, 17.65484, 
  17.67332, 17.67552, 17.67883, 17.68926, 17.69122, 17.6938, 17.69523, 17.70021, 17.70099, 17.69964, 
  17.69784, 17.69797, 17.70443, 17.70287, 17.70357, 17.70144, 17.70945, 17.71383, 17.7292, 17.72691, 
  17.72421, 17.72388, 17.7189, 17.71841, 17.71632, 17.71808, 17.71391, 17.71653, 17.70189, 17.69653, 
  17.68529, 17.67503, 17.66534, 17.65785, 17.64223, 17.63745, 17.62739, 17.61945, 17.61411, 17.6099, 
  17.58489, 17.57989, 17.57944, 17.5848, 17.59331, 17.59135, 17.57912, 17.57576)
LONGITUDE_VALUEs <- c(-61.79324, -61.78552, -61.77161, -61.76628, -61.76684, -61.76173, -61.75744, -61.74495, -61.7371, -61.73375, 
  -61.73139, -61.73676, -61.73697, -61.73577, -61.7389, -61.73959, -61.73671, -61.73586, -61.73809, -61.73457, 
  -61.73461, -61.73191, -61.73272, -61.73131, -61.73221, -61.73169, -61.73483, -61.73444, -61.74134, -61.75146, 
  -61.77301, -61.77345, -61.77796, -61.78392, -61.78744, -61.7886, -61.79087, -61.79362, -61.80105, -61.8034, 
  -61.80388, -61.80594, -61.81272, -61.81748, -61.81933, -61.82096, -61.82761, -61.82984, -61.84465, -61.85396, 
  -61.85503, -61.85255, -61.85414, -61.8556, -61.85607, -61.86113, -61.86367, -61.86886, -61.87963, -61.88731, 
  -61.87212, -61.86586, -61.8644, -61.8562, -61.85122, -61.85217, -61.84959, -61.84976, -61.85232, -61.85281, 
  -61.86101, -61.85899, -61.85453, -61.84993, -61.83178, -61.81981, -61.80097, -61.79882)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_4 <- st_set_geometry(Geo_4, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}

##### MONTSERRAT #####
LATITUDE_VALUEs <- c(
  16.68168, 16.67667, 16.67379, 16.67691, 16.67593, 16.6978, 16.71029, 16.71621, 16.73947, 16.75608, 
  16.76922, 16.78139, 16.78344, 16.8053, 16.80867, 16.81647, 16.82362, 16.82157, 16.81771, 16.81499, 
  16.81278, 16.80867, 16.80563, 16.80242, 16.78906, 16.78454, 16.77961, 16.77217, 16.76991, 16.76342, 
  16.75138, 16.75011, 16.73693, 16.72594, 16.72307, 16.71411, 16.7056, 16.70071, 16.69709, 16.69405, 
  16.68825, 16.68681)
LONGITUDE_VALUEs <- c(
  -62.19667, -62.19461, -62.18337, -62.17907, -62.16113, -62.14302, -62.15118, -62.14706, -62.14981, -62.14697, 
  -62.16723, -62.17075, -62.17452, -62.18208, -62.17727, -62.18122, -62.19993, -62.20465, -62.20525, -62.20457, 
  -62.20654, -62.20474, -62.20783, -62.20517, -62.21496, -62.21612, -62.21994, -62.22007, -62.22204, -62.22307, 
  -62.23221, -62.23505, -62.23263, -62.23612, -62.24166, -62.22668, -62.22316, -62.21827, -62.21698, -62.21196, 
  -62.21033, -62.20531)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_5 <- st_set_geometry(Geo_5, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}

##### DOMINICA #####
LATITUDE_VALUEs <- c(
  15.4325, 15.42741, 15.41889, 15.41306, 15.40565, 15.39365, 15.38558, 15.38066, 15.37822, 15.3723,
  15.36663, 15.36076, 15.35236, 15.33713, 15.33009, 15.32918, 15.32512, 15.32012, 15.31564, 15.29847,
  15.28953, 15.28269, 15.27379, 15.2593, 15.25442, 15.25069, 15.24626, 15.24133, 15.23189, 15.22436,
  15.21301, 15.21282, 15.21398, 15.21541, 15.21556, 15.21419, 15.21297, 15.21233, 15.20966, 15.20759,
  15.20825, 15.2099, 15.20881, 15.21127, 15.21154, 15.21065, 15.21086, 15.21024, 15.21214, 15.21253,
  15.21175, 15.21287, 15.21142, 15.21384, 15.2149, 15.21436, 15.21514, 15.2157, 15.21717, 15.22059,
  15.22394, 15.22659, 15.22908, 15.22943, 15.23483, 15.23661, 15.24291, 15.24527, 15.2445, 15.24187,
  15.24071, 15.24059, 15.24303, 15.24297, 15.24434, 15.24293, 15.24404, 15.24355, 15.24422, 15.24535,
  15.24781, 15.25154, 15.25475, 15.25686, 15.26444, 15.27255, 15.27537, 15.2793, 15.28, 15.28224,
  15.28501, 15.28489, 15.28667, 15.28692, 15.29255, 15.29656, 15.2978, 15.32463, 15.33046, 15.34515,
  15.35103, 15.35256, 15.36618, 15.37685, 15.3764, 15.37901, 15.38149, 15.38289, 15.3867, 15.38869,
  15.39237, 15.3951, 15.39924, 15.40329, 15.40263, 15.4059, 15.4071, 15.41024, 15.40983, 15.41484,
  15.41595, 15.41881, 15.41947, 15.42307, 15.42551, 15.42836, 15.43076, 15.43374, 15.43176, 15.4363,
  15.44962, 15.44954, 15.45086, 15.45376, 15.45467, 15.45765, 15.45955, 15.46079, 15.46468, 15.46575,
  15.46774, 15.46795, 15.47477, 15.4751, 15.4811, 15.4835, 15.48751, 15.48891, 15.49301, 15.49355,
  15.49723, 15.49983, 15.50322, 15.50633, 15.50682, 15.51782, 15.51989, 15.51683, 15.52241, 15.53072,
  15.53825, 15.54176, 15.5411, 15.54213, 15.5416, 15.54437, 15.54577, 15.55073, 15.55111, 15.56715,
  15.56698, 15.57248, 15.57347, 15.58153, 15.58178, 15.58459, 15.58839, 15.58563, 15.58806, 15.59005,
  15.59102, 15.59617, 15.59455, 15.59745, 15.59393, 15.59274, 15.59625, 15.59683, 15.60055, 15.59359, 
  15.59549, 15.59442, 15.5983, 15.60037, 15.60533, 15.6083, 15.61541, 15.61682, 15.62599, 15.6393, 
  15.63748, 15.61641, 15.60946, 15.6069, 15.59946, 15.5907, 15.5897, 15.58259, 15.58193, 15.58491, 
  15.58433, 15.57259, 15.5549, 15.54795, 15.5477, 15.53993, 15.53522, 15.52992, 15.52711, 15.51959, 
  15.51876, 15.50817, 15.50437, 15.4975, 15.4784, 15.46293, 15.45408, 15.45126, 15.44464, 15.43563, 
  15.43579)
LONGITUDE_VALUEs <- c(
  -61.43624, -61.43594, -61.42924, -61.4268, -61.42637, -61.42637, -61.41281, -61.41156, -61.40787, -61.40504,
  -61.40431, -61.39658, -61.39375, -61.39259, -61.39646, -61.395, -61.39568, -61.39435, -61.38886, -61.39105,
  -61.37719, -61.37487, -61.37448, -61.37809, -61.37551, -61.37517, -61.37298, -61.37332, -61.36092, -61.36118,
  -61.36723, -61.36959, -61.37225, -61.37251, -61.37401, -61.37426, -61.37236, -61.36847, -61.36459, -61.35401,
  -61.35, -61.34732, -61.3433, -61.34197, -61.33826, -61.33787, -61.33652, -61.33601, -61.33405, -61.3324,
  -61.33146, -61.33141, -61.33014, -61.3301, -61.33068, -61.33119, -61.33197, -61.33098, -61.33222, -61.3301,
  -61.32534, -61.31576, -61.31426, -61.31506, -61.3127, -61.31364, -61.31062, -61.30534, -61.29304, -61.291,
  -61.29117, -61.2898, -61.28694, -61.28586, -61.28289, -61.2768, -61.27251, -61.27154, -61.27089, -61.26793,
  -61.26587, -61.25985, -61.26008, -61.25766, -61.25782, -61.25679, -61.25443, -61.25482, -61.25229, -61.25504,
  -61.25276, -61.25078, -61.24993, -61.24529, -61.24718, -61.24593, -61.24903, -61.2437, -61.24053, -61.24903,
  -61.2504, -61.24924, -61.25212, -61.25083, -61.24761, -61.24422, -61.2452, -61.25297, -61.25057, -61.25276,
  -61.25147, -61.24009, -61.2428, -61.24177, -61.25281, -61.25517, -61.25212, -61.25225, -61.24761, -61.24701,
  -61.24907, -61.24774, -61.25109, -61.24967, -61.25139, -61.24769, -61.24945, -61.24933, -61.25491, -61.25782,
  -61.25138, -61.24787, -61.2495, -61.24898, -61.24662, -61.24679, -61.24448, -61.24701, -61.24679, -61.2413,
  -61.24151, -61.24546, -61.24387, -61.24782, -61.24804, -61.24593, -61.25044, -61.24834, -61.24911, -61.25181,
  -61.25366, -61.25138, -61.25928, -61.25928, -61.25722, -61.25671, -61.26663, -61.27079, -61.27585, -61.27173,
  -61.27147, -61.27521, -61.27709, -61.2807, -61.28761, -61.28757, -61.29152, -61.29242, -61.29516, -61.29834,
  -61.30168, -61.3037, -61.30645, -61.30482, -61.30276, -61.30263, -61.31713, -61.31924, -61.33083, -61.33044,
  -61.3342, -61.33323, -61.34155, -61.34331, -61.34619, -61.35757, -61.35761, -61.36078, -61.36481, -61.37733, 
  -61.38506, -61.39056, -61.39064, -61.39537, -61.39537, -61.40128, -61.40282, -61.40669, -61.40969, -61.42368, 
  -61.45991, -61.46712, -61.4642, -61.46703, -61.46136, -61.46583, -61.47759, -61.47862, -61.47278, -61.46789, 
  -61.46213, -61.45561, -61.46136, -61.46737, -61.47193, -61.47999, -61.4799, -61.47424, -61.47476, -61.47063, 
  -61.47201, -61.46703, -61.46712, -61.47038, -61.45973, -61.45587, -61.44694, -61.44694, -61.45107, -61.44016, 
  -61.4387)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_6 <- st_set_geometry(Geo_6, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_6) == FALSE) {Geo_6 <- st_make_valid(Geo_6)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% 
  filter(!NAME %in% c("GUADELOUPE", "ANGUILLA", "SAINT KITTS AND NEVIS", "ANTIGUA AND BARBUDA", "MONTSERRAT", "DOMINICA"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3, Geo_4, Geo_5, Geo_6)

Numeric Code (M49_CODE) for FRENCH GUIANA.

Numeric Code (M49_CODE) for MARTINIQUE.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "MARTINIQUE")
Geo_2 <- GeoDATA %>% filter(NAME == "SAINT LUCIA")
Geo_3 <- GeoDATA %>% filter(NAME == "BARBADOS")
Geo_4 <- GeoDATA %>% filter(NAME == "SAINT VINCENT AND THE GRENADINES")
Geo_5 <- GeoDATA %>% filter(NAME == "GRENADA")

##### MARTINIQUE #####
LATITUDE_VALUEs <- c(
  14.83662, 14.83189, 14.83778, 14.84376, 14.84359, 14.85296, 14.85338, 14.86292, 14.8703, 14.86889, 
  14.87495, 14.87495, 14.87777, 14.87694, 14.8786, 14.87686, 14.87752, 14.8742, 14.87503, 14.86806, 
  14.86715, 14.86425, 14.8606, 14.84765, 14.84649, 14.8421, 14.8299, 14.81347, 14.80708, 14.80177, 
  14.79779, 14.78144, 14.77986, 14.76716, 14.74575, 14.70698, 14.65667, 14.65501, 14.64855, 14.64247, 
  14.63483, 14.62586, 14.59937, 14.60236, 14.59712, 14.60128, 14.60227, 14.59613, 14.59363, 14.59795, 
  14.59662, 14.59189, 14.59006, 14.5943, 14.59496, 14.59895, 14.5938, 14.60493, 14.60501, 14.61008, 
  14.60651, 14.6085, 14.61681, 14.61232, 14.61764, 14.61564, 14.60161, 14.60169, 14.59347, 14.59056, 
  14.58367, 14.58342, 14.58724, 14.58824, 14.58408, 14.57877, 14.56631, 14.56506, 14.57519, 14.56431, 
  14.56232, 14.5565, 14.55509, 14.54537, 14.52958, 14.53366, 14.54238, 14.5339, 14.53977, 14.53615, 
  14.54122, 14.54188, 14.54745, 14.54853, 14.55717, 14.5511, 14.55974, 14.56041, 14.5511, 14.5506, 
  14.53972, 14.54088, 14.53208, 14.52593, 14.52568, 14.51828, 14.51322, 14.50781, 14.50565, 14.5084, 
  14.50482, 14.49826, 14.49818, 14.49219, 14.49078, 14.47898, 14.47682, 14.46859, 14.46834, 14.45829, 
  14.45305, 14.45912, 14.47167, 14.48139, 14.471, 14.47998, 14.46834, 14.46917, 14.46593, 14.47723, 
  14.4725, 14.48505, 14.48197, 14.47441, 14.47133, 14.46813, 14.47353, 14.4683, 14.46813, 14.46514, 
  14.46751, 14.46576, 14.46402, 14.46489, 14.46244, 14.46925, 14.46859, 14.46086, 14.45861, 14.45512, 
  14.45151, 14.4493, 14.44785, 14.45296, 14.45595, 14.47157, 14.46875, 14.47033, 14.46675, 14.46501, 
  14.45803, 14.45728, 14.44947, 14.44972, 14.45346, 14.45337, 14.45636, 14.45595, 14.44863, 14.44922, 
  14.44664, 14.45171, 14.44639, 14.43933, 14.42661, 14.42004, 14.41331, 14.4099, 14.4079, 14.40508, 
  14.40475, 14.39992, 14.39718, 14.39643, 14.39435, 14.39726, 14.39569, 14.39777, 14.39706, 14.4062, 
  14.40787, 14.41148, 14.41423, 14.41086, 14.41086, 14.41477, 14.4156, 14.421, 14.41988, 14.42271, 
  14.42192, 14.42773, 14.42724, 14.42237, 14.42354, 14.42653, 14.42898, 14.43243, 14.43335, 14.43571, 
  14.43513, 14.44623, 14.4518, 14.45338, 14.45616, 14.46115, 14.46701, 14.47179, 14.47391, 14.47632, 
  14.47993, 14.48662, 14.49198, 14.49327, 14.50594, 14.50881, 14.51442, 14.50964, 14.51347, 14.51804, 
  14.52319, 14.52942, 14.53324, 14.53789, 14.5364, 14.5457, 14.54595, 14.55119, 14.55094, 14.55642, 
  14.55916, 14.56564, 14.56847, 14.56946, 14.55609, 14.56182, 14.56323, 14.56722, 14.56439, 14.56697, 
  14.57071, 14.56905, 14.57698, 14.57652, 14.57864, 14.5803, 14.58296, 14.5823, 14.58462, 14.58504, 
  14.59015, 14.58985, 14.59152, 14.59264, 14.59567, 14.59226, 14.59218, 14.5874, 14.58961, 14.58877, 
  14.59671, 14.60136, 14.60057, 14.60609, 14.60809, 14.61008, 14.61099, 14.61332, 14.61382, 14.61598, 
  14.61589, 14.61801, 14.61747, 14.61976, 14.61859, 14.62154, 14.61785, 14.62013, 14.61587, 14.62237, 
  14.61959, 14.62113, 14.62063, 14.62308, 14.62403, 14.62902, 14.62831, 14.63151, 14.63034, 14.63433, 
  14.63632, 14.63458, 14.6374, 14.63869, 14.64085, 14.64118, 14.64317, 14.64064, 14.64359, 14.64471, 
  14.64604, 14.64506, 14.64583, 14.64859, 14.64847, 14.64955, 14.64949, 14.6505, 14.65248, 14.65281, 
  14.65364, 14.65154, 14.65198, 14.65461, 14.64893, 14.64851, 14.65266, 14.64982, 14.65129, 14.65034, 
  14.65366, 14.65468, 14.6565, 14.65503, 14.6542, 14.6526, 14.65524, 14.65638, 14.65825, 14.65997, 
  14.658, 14.65847, 14.65974, 14.66043, 14.66151, 14.66468, 14.66622, 14.66562, 14.66186, 14.65943, 
  14.6596, 14.65904, 14.66126, 14.66105, 14.6652, 14.66506, 14.66213, 14.66412, 14.66622, 14.66659, 
  14.6624, 14.66375, 14.6624, 14.66373, 14.66605, 14.66364, 14.66124, 14.66113, 14.65764, 14.65432, 
  14.65559, 14.65326, 14.65364, 14.66223, 14.6651, 14.66539, 14.66726, 14.6675, 14.67232, 14.6729, 
  14.67489, 14.67507, 14.68332, 14.68266, 14.67838, 14.67934, 14.67842, 14.67946, 14.68013, 14.68461, 
  14.68922, 14.68818, 14.69113, 14.69171, 14.68793, 14.68768, 14.69046, 14.69084, 14.69225, 14.69333, 
  14.69441, 14.69611, 14.69515, 14.69764, 14.69897, 14.69964, 14.70287, 14.69947, 14.70445, 14.70732, 
  14.70902, 14.71616, 14.71491, 14.71612, 14.7096, 14.71026, 14.70736, 14.70744, 14.71188, 14.71537, 
  14.71819, 14.72064, 14.71998, 14.72201, 14.72238, 14.72139, 14.72164, 14.71886, 14.71558, 14.7162, 
  14.71944, 14.72164, 14.72226, 14.72633, 14.73355, 14.73322, 14.73774, 14.74388, 14.74322, 14.75077, 
  14.74924, 14.75106, 14.74384, 14.73546, 14.73463, 14.73753, 14.73421, 14.73546, 14.73371, 14.73745, 
  14.73587, 14.73869, 14.7406, 14.74276, 14.74691, 14.74592, 14.74957, 14.74791, 14.75563, 14.75853, 
  14.76227, 14.7616, 14.76517, 14.767, 14.76542, 14.7675, 14.76642, 14.7636, 14.75903, 14.75928, 
  14.75803, 14.76061, 14.76517, 14.77189, 14.77696, 14.77646, 14.78003, 14.78028, 14.77347, 14.7655, 
  14.76642, 14.76243, 14.75828, 14.76293, 14.7499, 14.7362, 14.73828, 14.74708, 14.75272, 14.75969, 
  14.76285, 14.76816, 14.7714, 14.77895, 14.77837, 14.78534, 14.78799, 14.79397, 14.79853, 14.80924, 
  14.80667, 14.81256, 14.82177, 14.82351, 14.82816, 14.83139, 14.82998)
LONGITUDE_VALUEs <- c(
  -61.04323, -61.05155, -61.06262, -61.06468, -61.07266, -61.08365, -61.09052, -61.0991, -61.11507, -61.11756, 
  -61.12905, -61.13472, -61.13987, -61.14441, -61.14819, -61.15421, -61.16562, -61.17523, -61.18055, -61.18837, 
  -61.19369, -61.19541, -61.20845, -61.21472, -61.21952, -61.21918, -61.2269, -61.22931, -61.22639, -61.22759, 
  -61.22158, -61.21497, -61.20485, -61.19849, -61.17601, -61.18502, -61.15669, -61.15249, -61.15091, -61.1385, 
  -61.13721, -61.11078, -61.09069, -61.06855, -61.06605, -61.06417, -61.05859, -61.06159, -61.05764, -61.0531, 
  -61.04829, -61.05104, -61.04671, -61.04568, -61.04267, -61.04233, -61.03658, -61.04001, -61.03736, -61.03573, 
  -61.03238, -61.0274, -61.02182, -61.01289, -61.00671, -61.0055, -61.01289, -61.00233, -61.00791, -61.02414, 
  -61.02345, -61.02088, -61.01813, -61.00963, -61.01066, -61.00199, -61.00516, -61.00035, -60.99237, -60.99109, 
  -60.98577, -60.98749, -60.97667, -60.98912, -60.98826, -61.00569, -61.00767, -61.01634, -61.02013, -61.02793, 
  -61.03238, -61.04122, -61.04414, -61.03813, -61.03762, -61.05024, -61.04938, -61.05307, -61.05402, -61.06097, 
  -61.06647, -61.07778, -61.08895, -61.08843, -61.09375, -61.09727, -61.09658, -61.1013, -61.09564, -61.08988, 
  -61.08396, -61.08396, -61.08954, -61.09005, -61.07975, -61.07898, -61.08224, -61.08105, -61.06859, -61.06619, 
  -61.05734, -61.04704, -61.04535, -61.01882, -61.00757, -61.00525, -60.99786, -60.99409, -60.99048, -60.99014, 
  -60.98516, -60.9832, -60.97891, -60.97573, -60.97891, -60.97411, -60.96445, -60.96081, -60.95746, -60.95622, 
  -60.94733, -60.94184, -60.94154, -60.93712, -60.93463, -60.9172, -60.91111, -60.91201, -60.90807, -60.90579, 
  -60.89944, -60.90107, -60.89926, -60.89231, -60.89292, -60.87565, -60.87204, -60.86663, -60.86294, -60.85959, 
  -60.86835, -60.86045, -60.8638, -60.86526, -60.865, -60.86757, -60.86981, -60.87341, -60.87359, -60.87651, 
  -60.87762, -60.88338, -60.88406, -60.87925, -60.88629, -60.89394, -60.88415, -60.88672, -60.88406, -60.88526, 
  -60.88071, -60.87513, -60.87822, -60.8717, -60.868, -60.86577, -60.86266, -60.85883, -60.85566, -60.85424, 
  -60.85039, -60.84923, -60.84498, -60.84137, -60.83884, -60.83802, -60.84502, -60.84339, -60.84811, -60.84699, 
  -60.84949, -60.84837, -60.84197, -60.84055, -60.83403, -60.83575, -60.83231, -60.83481, -60.83189, -60.82996, 
  -60.82712, -60.82249, -60.82421, -60.82163, -60.82154, -60.81433, -60.81867, -60.81828, -60.81335, -60.81361, 
  -60.81043, -60.81481, -60.81485, -60.82211, -60.82404, -60.82219, -60.82468, -60.83485, -60.83763, -60.83351, 
  -60.83609, -60.82595, -60.83712, -60.83411, -60.82647, -60.83214, -60.83746, -60.83858, -60.83609, -60.83677, 
  -60.83094, -60.82974, -60.82596, -60.83077, -60.84597, -60.84725, -60.84056, -60.84141, -60.84871, -60.84931, 
  -60.84305, -60.85275, -60.85289, -60.84736, -60.84191, -60.85336, -60.8501, -60.84615, -60.84577, -60.85066, 
  -60.84907, -60.85109, -60.85044, -60.85203, -60.8513, -60.85375, -60.85632, -60.85787, -60.86156, -60.86516, 
  -60.87289, -60.87203, -60.86804, -60.8701, -60.87546, -60.87521, -60.8798, -60.88005, -60.87649, -60.87624, 
  -60.87336, -60.8713, -60.86881, -60.8704, -60.87345, -60.87671, -60.88147, -60.88331, -60.88653, -60.88756, 
  -60.89388, -60.89602, -60.89842, -60.89894, -60.89666, -60.89791, -60.89448, -60.8943, -60.89113, -60.89203, 
  -60.891, -60.89533, -60.89353, -60.89452, -60.89331, -60.88863, -60.88994, -60.89453, -60.89842, -60.89848, 
  -60.90213, -60.90425, -60.90696, -60.90558, -60.90384, -60.90286, -60.90187, -60.90176, -60.90374, -60.90247, 
  -60.90228, -60.90097, -60.89936, -60.89878, -60.89798, -60.8961, -60.89554, -60.89419, -60.89161, -60.89021, 
  -60.88908, -60.89043, -60.88955, -60.88792, -60.88846, -60.88569, -60.88552, -60.88474, -60.88633, -60.88524, 
  -60.88393, -60.88298, -60.88373, -60.88294, -60.88361, -60.88217, -60.88453, -60.8911, -60.89183, -60.89084, 
  -60.89249, -60.89444, -60.8947, -60.8994, -60.89704, -60.90058, -60.90105, -60.90395, -60.90333, -60.90657, 
  -60.90595, -60.90771, -60.90899, -60.91063, -60.91043, -60.91599, -60.91633, -60.91755, -60.92006, -60.91987, 
  -60.92251, -60.92489, -60.93, -60.93519, -60.93493, -60.93935, -60.94042, -60.94222, -60.94308, -60.94029, 
  -60.93973, -60.93836, -60.93617, -60.93351, -60.92986, -60.92625, -60.92415, -60.92394, -60.92655, -60.92999, 
  -60.92587, -60.92137, -60.91802, -60.91214, -60.91265, -60.91094, -60.91008, -60.90832, -60.909, -60.90789, 
  -60.90819, -60.90647, -60.90149, -60.90175, -60.90029, -60.90325, -60.90132, -60.90905, -60.91592, -60.91266, 
  -60.91531, -60.91364, -60.91604, -60.91806, -60.92081, -60.92274, -60.92716, -60.93279, -60.93438, -60.92811, 
  -60.92931, -60.92759, -60.92544, -60.9251, -60.92742, -60.92802, -60.93064, -60.93248, -60.93278, -60.93755, 
  -60.93991, -60.93953, -60.94395, -60.94609, -60.94401, -60.93735, -60.94503, -60.94284, -60.94005, -60.93606, 
  -60.93156, -60.92615, -60.91114, -60.91114, -60.9077, -60.90358, -60.89998, -60.898, -60.89568, -60.89577, 
  -60.89114, -60.89217, -60.89045, -60.90015, -60.89826, -60.895, -60.89508, -60.88985, -60.88951, -60.89757, 
  -60.89628, -60.89336, -60.89336, -60.88942, -60.88633, -60.88367, -60.88186, -60.88281, -60.87929, -60.87689, 
  -60.87311, -60.87243, -60.87654, -60.87285, -60.88135, -60.88547, -60.88564, -60.88856, -60.89233, -60.90615, 
  -60.91104, -60.91147, -60.92142, -60.92761, -60.95285, -60.95419, -60.96243, -60.96338, -60.96758, -60.96621, 
  -60.9735, -60.9753, -60.98148, -60.98054, -60.9887, -60.99126, -60.99713, -60.99907, -61.00525, -61.00182, 
  -61.01616, -61.02087, -61.02267, -61.03221, -61.02869, -61.03169, -61.03693)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  14.69731, 14.69573, 14.69287, 14.69017, 14.68934, 14.69241, 14.69117, 14.69291, 14.69109, 14.69333, 
  14.69661, 14.69553, 14.69681, 14.69557)
LONGITUDE_VALUEs <- c(
  -60.89795, -60.89881, -60.89186, -60.89151, -60.88898, -60.88795, -60.8871, -60.88255, -60.87984, -60.87942, 
  -60.88898, -60.89194, -60.8937, -60.89525)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(14.44353, 14.44256, 14.4426, 14.44181, 14.44297, 14.44463)
LONGITUDE_VALUEs <- c(-61.04077, -61.04034, -61.03981, -61.0388, -61.03761, -61.03837)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(14.39128, 14.38862, 14.38895, 14.39303)
LONGITUDE_VALUEs <- c(-60.86887, -60.86775, -60.86651, -60.86763)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(14.43233, 14.43175, 14.43229, 14.43038, 14.42818, 14.43063)
LONGITUDE_VALUEs <- c(-60.82577, -60.82701, -60.82929, -60.83045, -60.82753, -60.82465)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(14.57042, 14.56709, 14.56635, 14.56851)
LONGITUDE_VALUEs <- c(-60.83564, -60.83877, -60.83809, -60.83388)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(14.63508, 14.63379, 14.63238, 14.62976, 14.63217, 14.63308)
LONGITUDE_VALUEs <- c(-60.88851, -60.89014, -60.88825, -60.88851, -60.88452, -60.88726)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(14.62511, 14.62341, 14.62474, 14.62752)
LONGITUDE_VALUEs <- c(-60.85027, -60.84877, -60.8462, -60.84765)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(14.62939, 14.62652, 14.62619, 14.62926)
LONGITUDE_VALUEs <- c(-60.85306, -60.85452, -60.85225, -60.85199)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  14.61303, 14.61079, 14.60966, 14.6085, 14.6096, 14.61147, 14.61126, 14.61029, 14.60991, 14.61085, 
  14.61147, 14.61446, 14.61456, 14.61299)
LONGITUDE_VALUEs <- c(
  -60.85761, -60.85787, -60.86106, -60.86164, -60.85789, -60.85664, -60.85379, -60.85297, -60.8498, -60.84976, 
  -60.85244, -60.85158, -60.8527, -60.85533)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(14.60578, 14.60503, 14.60645, 14.60715)
LONGITUDE_VALUEs <- c(-60.86495, -60.8634, -60.86272, -60.86375)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(14.61915, 14.61824, 14.61868, 14.62009, 14.62108, 14.62205, 14.62037)
LONGITUDE_VALUEs <- c(-60.86458, -60.86426, -60.86038, -60.8607, -60.85812, -60.85876, -60.86127)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(14.68473, 14.68436, 14.68785)
LONGITUDE_VALUEs <- c(-60.91138, -60.90915, -60.90932)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(14.68698, 14.68619, 14.68515, 14.68706, 14.68656)
LONGITUDE_VALUEs <- c(-60.90177, -60.90211, -60.89997, -60.89928, -60.90057)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(14.69023, 14.68642, 14.6859, 14.68781, 14.69036)
LONGITUDE_VALUEs <- c(-60.88469, -60.88394, -60.88222, -60.88248, -60.88428)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(14.77434, 14.77237, 14.77123, 14.77173, 14.77434)
LONGITUDE_VALUEs <- c(-60.96463, -60.96461, -60.96365, -60.96225, -60.96395)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(14.78743, 14.78646, 14.78849, 14.78824, 14.787)
LONGITUDE_VALUEs <- c(-60.98912, -60.98828, -60.98747, -60.99045, -60.99079)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  14.58117, 14.58038, 14.57702, 14.57502, 14.57158, 14.57158, 14.57315, 14.57374, 14.57504, 14.57652, 
  14.57947)
LONGITUDE_VALUEs <- c(
  -61.00917, -61.00982, -61.00643, -61.00939, -61.00712, -61.00488, -61.00536, -61.0072, -61.00545, -61.00561, 
  -61.00458)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(14.5489, 14.5462, 14.54802, 14.55023)
LONGITUDE_VALUEs <- c(-61.02209, -61.02175, -61.01626, -61.0166)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### SAINT LUCIA #####
LATITUDE_VALUEs <- c(
  13.71187, 13.70803, 13.71004, 13.7145, 13.71591, 13.7185, 13.72117, 13.72192, 13.72625, 13.73009,
  13.73209, 13.7353, 13.73972, 13.74685, 13.74718, 13.75297, 13.75948, 13.75981, 13.76156, 13.76323,
  13.76348, 13.7659, 13.76648, 13.7679, 13.76965, 13.76873, 13.76531, 13.76681, 13.76031, 13.7674,
  13.7649, 13.77006, 13.7714, 13.77482, 13.7744, 13.77648, 13.77698, 13.78065, 13.78257, 13.78015,
  13.78124, 13.78432, 13.78574, 13.7879, 13.79791, 13.79832, 13.81641, 13.81841, 13.81966, 13.82833,
  13.82666, 13.83029, 13.83191, 13.83633, 13.83675, 13.83991, 13.84283, 13.84646, 13.84958, 13.85921,
  13.85966, 13.86466, 13.86191, 13.87075, 13.86983, 13.88, 13.88325, 13.89874, 13.90691, 13.91466,
  13.91874, 13.92757, 13.93232, 13.94448, 13.94623, 13.95581, 13.95797, 13.9643, 13.97338, 13.9808,
  13.98804, 13.99146, 14.00878, 14.01536, 14.01952, 14.02843, 14.03068, 14.03384, 14.03917, 14.03959,
  14.05291, 14.06723, 14.06032, 14.07564, 14.07847, 14.08588, 14.08671, 14.09163, 14.09213, 14.10353,
  14.10603, 14.10378, 14.10794, 14.10769, 14.10977, 14.10753, 14.10403, 14.10003, 14.09645, 14.09695,
  14.09188, 14.09462, 14.09071, 14.08996, 14.09263, 14.08938, 14.08039, 14.07127, 14.07256, 14.07085,
  14.06611, 14.06873, 14.06553, 14.06786, 14.06694, 14.06249, 14.06091, 14.05845, 14.05841, 14.05487,
  14.05295, 14.04915, 14.0433, 14.04144, 14.03901, 14.03728, 14.03397, 14.03153, 14.03147, 14.02918,
  14.02622, 14.02152, 14.02112, 14.02329, 14.02485, 14.02456, 14.02368, 14.02385, 14.02148, 14.02081,
  14.01735, 14.01654, 14.01848, 14.01663, 14.01477, 14.01409, 14.01413, 14.01617, 14.0159, 14.01492,
  14.01217, 14.01136, 14.0113, 14.00961, 14.01173, 14.01284, 14.01271, 14.01494, 14.01573, 14.01448,
  14.01488, 14.01398, 14.01238, 14.01211, 14.01042, 14.00838, 14.00884, 14.00996, 14.00782, 14.00734,
  14.00311, 13.99897, 13.99431, 13.99362, 13.989, 13.98731, 13.98298, 13.98267, 13.98142, 13.98725, 
  13.97271, 13.97088, 13.9689, 13.96675, 13.96467, 13.96621, 13.96463, 13.96359, 13.96292, 13.96058, 
  13.95597, 13.9498, 13.94601, 13.94243, 13.94218, 13.93906, 13.93764, 13.93481, 13.93468, 13.93218, 
  13.93056, 13.92723, 13.92427, 13.91985, 13.91623, 13.91423, 13.90977, 13.88182, 13.86436, 13.86382, 
  13.8622, 13.86203, 13.8569, 13.85824, 13.85303, 13.84728, 13.84049, 13.83511, 13.82986, 13.82815, 
  13.8184, 13.81765, 13.80774, 13.79974, 13.79136, 13.77607, 13.7719, 13.76144, 13.75902, 13.75435, 
  13.75293, 13.75068, 13.75197, 13.74993, 13.7521, 13.75081, 13.74668, 13.74447, 13.74064, 13.73868, 
  13.73576, 13.73588, 13.72967, 13.73067, 13.72855, 13.71983, 13.71658, 13.71621, 13.71312, 13.71333, 
  13.71108, 13.70958)
LONGITUDE_VALUEs <- c(
  -60.95211, -60.94743, -60.93924, -60.93937, -60.94374, -60.94563, -60.94559, -60.94739, -60.94615, -60.94224,
  -60.93765, -60.94001, -60.9398, -60.93456, -60.9328, -60.93148, -60.92495, -60.93062, -60.93233, -60.93199,
  -60.92856, -60.92804, -60.92487, -60.92667, -60.92487, -60.92101, -60.92075, -60.91577, -60.91286, -60.90985,
  -60.90513, -60.90487, -60.90711, -60.90512, -60.90212, -60.90332, -60.90092, -60.90409, -60.90238, -60.89903,
  -60.89654, -60.89989, -60.89405, -60.90075, -60.90023, -60.89689, -60.89543, -60.88487, -60.89542, -60.89872,
  -60.88778, -60.88785, -60.89373, -60.89206, -60.88278, -60.88635, -60.88398, -60.88703, -60.88394, -60.88759,
  -60.87857, -60.87693, -60.88561, -60.88501, -60.8972, -60.89514, -60.88363, -60.88036, -60.8917, -60.88199,
  -60.89118, -60.88921, -60.8777, -60.87985, -60.87393, -60.87951, -60.87633, -60.88045, -60.87376, -60.87797,
  -60.87514, -60.882, -60.88732, -60.8838, -60.89067, -60.88672, -60.8972, -60.89067, -60.89471, -60.88784,
  -60.885, -60.90038, -60.913, -60.91127, -60.92003, -60.92166, -60.92819, -60.92776, -60.91685, -60.91907,
  -60.92646, -60.93101, -60.93127, -60.94192, -60.94552, -60.94827, -60.94698, -60.9511, -60.95093, -60.95411,
  -60.95454, -60.96613, -60.96768, -60.96639, -60.96278, -60.95669, -60.95368, -60.95724, -60.96321, -60.96587,
  -60.966, -60.96879, -60.97313, -60.97369, -60.97592, -60.9736, -60.97651, -60.97656, -60.97394, -60.97389,
  -60.97535, -60.9724, -60.97298, -60.97171, -60.97248, -60.97212, -60.97424, -60.97731, -60.97929, -60.97965,
  -60.98171, -60.99088, -60.99624, -60.99682, -60.99929, -61.00195, -61.00261, -61.00489, -61.00521, -61.00251,
  -61.00227, -60.99643, -60.99628, -60.99456, -60.99662, -60.99635, -60.9936, -60.99259, -60.99132, -60.9921,
  -60.98956, -60.99083, -60.99403, -60.99465, -61.00203, -61.00222, -61.00147, -61.00252, -61.00469, -61.00512,
  -61.00662, -61.00729, -61.00641, -61.00737, -61.00739, -61.01001, -61.01195, -61.01315, -61.01315, -61.01463,
  -61.01581, -61.01428, -61.01428, -61.01619, -61.01546, -61.01074, -61.01175, -61.01401, -61.01493, -61.0269, 
  -61.02827, -61.03033, -61.02969, -61.02539, -61.02531, -61.0308, -61.03149, -61.03033, -61.0326, -61.03162, 
  -61.03853, -61.03934, -61.0447, -61.04556, -61.04376, -61.04385, -61.04818, -61.0499, -61.0581, -61.05771, 
  -61.05973, -61.05659, -61.05981, -61.05994, -61.06282, -61.06784, -61.06526, -61.07934, -61.07775, -61.07981, 
  -61.07878, -61.07312, -61.06853, -61.0626, -61.05887, -61.06316, -61.06307, -61.06878, -61.06775, -61.06179, 
  -61.06621, -61.0693, -61.07865, -61.06741, -61.06904, -61.05032, -61.05046, -61.03813, -61.03767, -61.02835, 
  -61.01616, -61.01583, -61.01072, -61.00651, -61.00518, -60.99526, -60.99655, -60.99274, -60.99394, -60.98913, 
  -60.989, -60.97951, -60.97673, -60.96518, -60.95815, -60.95188, -60.95248, -60.95364, -60.95531, -60.95845, 
  -60.95849, -60.9551)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(13.72527, 13.72274, 13.72215, 13.72278, 13.72387, 13.72499, 13.72569, 13.72616)
LONGITUDE_VALUEs <- c(-60.93282, -60.93291, -60.93248, -60.93116, -60.93042, -60.93041, -60.92998, -60.93146)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

##### BARBADOS #####
LATITUDE_VALUEs <- c(
  13.06703, 13.06686, 13.08191, 13.0871, 13.10193, 13.10126, 13.11489, 13.12375, 13.12876, 13.13202, 
  13.13436, 13.14239, 13.14615, 13.14983, 13.15217, 13.15593, 13.15609, 13.16211, 13.16245, 13.16587, 
  13.16378, 13.16556, 13.1651, 13.16823, 13.16882, 13.17074, 13.1727, 13.17525, 13.1745, 13.18373, 
  13.17939, 13.19071, 13.19071, 13.19685, 13.19852, 13.19706, 13.21006, 13.21486, 13.22831, 13.27516, 
  13.2846, 13.28995, 13.29237, 13.29788, 13.30031, 13.30179, 13.30358, 13.30417, 13.30726, 13.31064, 
  13.31148, 13.32722, 13.33486, 13.33332, 13.33403, 13.33148, 13.33165, 13.32981, 13.3306, 13.32839, 
  13.32872, 13.32588, 13.32309, 13.30634, 13.2922, 13.28602, 13.2633, 13.25261, 13.2491, 13.24592, 
  13.24358, 13.23967, 13.23414, 13.23057, 13.22827, 13.22564, 13.22209, 13.21829, 13.20905, 13.20279, 
  13.19811, 13.1946, 13.1923, 13.18841, 13.17797, 13.17467, 13.16898, 13.16702, 13.16096, 13.15724, 
  13.15427, 13.14395, 13.14253, 13.13844, 13.1371, 13.13271, 13.13116, 13.12393, 13.11984, 13.11294, 
  13.11152, 13.10964, 13.11064, 13.10646, 13.10609, 13.10884, 13.1073, 13.10153, 13.10082, 13.09125, 
  13.08331, 13.08004, 13.08013, 13.07854, 13.07822, 13.07753, 13.07797, 13.07551, 13.0755, 13.07393, 
  13.07329, 13.07279, 13.07206, 13.07133, 13.07149, 13.07067, 13.06911, 13.06925, 13.06847, 13.06776, 
  13.06704, 13.06695, 13.06643, 13.06648, 13.06573, 13.06472, 13.06398, 13.06532, 13.06504, 13.06577, 
  13.06478, 13.06415, 13.06243, 13.06191, 13.06116, 13.0603, 13.05963, 13.05591, 13.05357, 13.05171, 
  13.04966, 13.04659, 13.04475, 13.0464, 13.04623, 13.05297, 13.05217)
LONGITUDE_VALUEs <- c(
  -59.49479, -59.48706, -59.46904, -59.45874, -59.44859, -59.44627, -59.43863, -59.42996, -59.42911, -59.42602, 
  -59.42627, -59.42164, -59.42164, -59.41975, -59.42241, -59.42172, -59.42576, -59.42705, -59.43082, -59.43211, 
  -59.43829, -59.44167, -59.44377, -59.44545, -59.44849, -59.44841, -59.45025, -59.44875, -59.45111, -59.45879, 
  -59.46613, -59.48021, -59.48583, -59.4872, -59.49008, -59.49398, -59.50995, -59.52467, -59.53853, -59.56721, 
  -59.56815, -59.57253, -59.57176, -59.5782, -59.57313, -59.57539, -59.57552, -59.57848, -59.57604, -59.57986, 
  -59.58501, -59.60046, -59.61317, -59.61797, -59.6205, -59.62368, -59.62566, -59.62677, -59.62904, -59.63085, 
  -59.63334, -59.63763, -59.63797, -59.65059, -59.6491, -59.65065, -59.64327, -59.6449, -59.64387, -59.6449, 
  -59.64404, -59.64509, -59.64241, -59.64329, -59.64252, -59.64368, -59.6414, -59.64239, -59.63999, -59.64029, 
  -59.64273, -59.64097, -59.64115, -59.63801, -59.63986, -59.63741, -59.63844, -59.63707, -59.63814, -59.63677, 
  -59.63823, -59.63896, -59.63784, -59.6372, -59.63595, -59.63694, -59.6351, -59.63347, -59.62922, -59.6272, 
  -59.63153, -59.63025, -59.62681, -59.62527, -59.62595, -59.62793, -59.63046, -59.62836, -59.62999, -59.61042, 
  -59.60948, -59.61124, -59.61239, -59.61282, -59.61211, -59.61182, -59.61068, -59.60338, -59.60162, -59.59893, 
  -59.58887, -59.58734, -59.58693, -59.58572, -59.58502, -59.58146, -59.5802, -59.57899, -59.57533, -59.57558, 
  -59.57383, -59.57204, -59.5715, -59.56872, -59.56724, -59.56699, -59.56466, -59.55823, -59.55694, -59.55214, 
  -59.55082, -59.54518, -59.54183, -59.54175, -59.54057, -59.54082, -59.53833, -59.53733, -59.53507, -59.53473, 
  -59.53531, -59.5322, -59.52696, -59.52151, -59.51827, -59.506, -59.50413)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}

##### SAINT VINCENT AND THE GRENADINES #####
LATITUDE_VALUEs <- c(12.53259, 12.53332, 12.53926, 12.53866, 12.54043, 12.53896, 12.53598, 12.53475)
LONGITUDE_VALUEs <- c(-61.38055, -61.3792, -61.38154, -61.38329, -61.38568, -61.38894, -61.38691, -61.38141)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  12.58989, 12.58792, 12.58631, 12.58413, 12.58434, 12.58292, 12.58522, 12.58424, 12.58669, 12.58824, 
  12.58702)
LONGITUDE_VALUEs <- c(
  -61.39949, -61.40159, -61.39987, -61.39968, -61.39689, -61.39621, -61.39307, -61.39123, -61.39224, -61.39192, 
  -61.39398)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.57934, 12.57881, 12.58579)
LONGITUDE_VALUEs <- c(-61.43771, -61.4358, -61.43545)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  12.59322, 12.58924, 12.58459, 12.59351, 12.59335, 12.59066, 12.58928, 12.59301, 12.591, 12.59242, 
  12.59209, 12.59661, 12.5982, 12.5977, 12.59967, 12.60101, 12.60227, 12.60096, 12.6034, 12.60516, 
  12.60411, 12.60449, 12.60934, 12.61341, 12.61604, 12.61127, 12.61223, 12.60725, 12.60511, 12.59741)
LONGITUDE_VALUEs <- c(
  -61.46059, -61.46102, -61.44626, -61.43549, -61.43235, -61.43295, -61.43094, -61.42652, -61.4218, -61.41986, 
  -61.4169, -61.41746, -61.41514, -61.4124, -61.41193, -61.40802, -61.40832, -61.41158, -61.41296, -61.41686, 
  -61.41823, -61.43257, -61.43759, -61.43613, -61.44016, -61.44299, -61.45158, -61.45329, -61.44668, -61.44896)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  12.63837, 12.63661, 12.63271, 12.62886, 12.62932, 12.6346, 12.63841, 12.63804, 12.64015, 12.64314, 
  12.64785, 12.65101, 12.65112, 12.6498, 12.6493, 12.64867, 12.64888, 12.64731, 12.64593, 12.64787,
  12.64477, 12.64402, 12.64092)
LONGITUDE_VALUEs <- c(
  -61.39819, -61.39609, -61.3966, -61.39956, -61.3936, -61.39313, -61.38824, -61.38377, -61.38215, -61.38365, 
  -61.38923, -61.38861, -61.3891, -61.38981, -61.39127, -61.39084, -61.38955, -61.38953, -61.39078, -61.39466, 
  -61.39552, -61.39447, -61.39582)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.66191, 12.65991, 12.65991, 12.66068)
LONGITUDE_VALUEs <- c(-61.40185, -61.40275, -61.40005, -61.39971)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.63979, 12.63656, 12.63656, 12.63987)
LONGITUDE_VALUEs <- c(-61.35897, -61.36115, -61.35819, -61.35781)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.63388, 12.63171, 12.63426, 12.63518)
LONGITUDE_VALUEs <- c(-61.36244, -61.3621, -61.35841, -61.35854)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  12.70536, 12.70134, 12.70038, 12.69309, 12.69234, 12.69657, 12.69736, 12.69364, 12.69431, 12.69715, 
  12.6982, 12.70134, 12.70234, 12.70586, 12.71499, 12.71666, 12.71888, 12.718, 12.72018, 12.7198, 
  12.71804, 12.71884, 12.72394, 12.72549, 12.72629, 12.72926, 12.73119, 12.7324, 12.73755, 12.73751, 
  12.73077, 12.73194, 12.73579, 12.73579, 12.73847, 12.73901, 12.73734, 12.73035, 12.72918, 12.72742, 
  12.72621, 12.72143, 12.71277, 12.71235, 12.70619, 12.70226, 12.70188, 12.70477, 12.7005, 12.69933, 
  12.70511)
LONGITUDE_VALUEs <- c(
  -61.35429, -61.35527, -61.34794, -61.34399, -61.34111, -61.33751, -61.33137, -61.32949, -61.32588, -61.32584, 
  -61.32271, -61.32369, -61.32189, -61.32292, -61.32013, -61.32305, -61.32168, -61.32013, -61.3179, -61.31365, 
  -61.31365, -61.30795, -61.30863, -61.31082, -61.30816, -61.31223, -61.30871, -61.31069, -61.31168, -61.31532, 
  -61.32081, -61.32369, -61.32643, -61.32948, -61.32982, -61.33163, -61.33313, -61.33322, -61.33425, -61.33236, 
  -61.33352, -61.32858, -61.32862, -61.32579, -61.32605, -61.33141, -61.33485, -61.33678, -61.33871, -61.34171, 
  -61.35154)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.79451, 12.7915, 12.78991, 12.79363)
LONGITUDE_VALUEs <- c(-61.28088, -61.28187, -61.27865, -61.27728)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.84259, 12.83992, 12.83435, 12.83992, 12.84025, 12.84197, 12.8418)
LONGITUDE_VALUEs <- c(-61.19702, -61.19934, -61.19213, -61.18951, -61.19295, -61.19428, -61.19582)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.8096, 12.80904, 12.80749, 12.80508, 12.80441, 12.80807)
LONGITUDE_VALUEs <- c(-61.21136, -61.21202, -61.21116, -61.21258, -61.2114, -61.20902)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.86721, 12.86588, 12.86597, 12.86566, 12.86637, 12.86611, 12.86765, 12.8672)
LONGITUDE_VALUEs <- c(-61.17623, -61.17649, -61.17537, -61.17476, -61.17432, -61.1737, -61.17368, -61.17495)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  12.86992, 12.86435, 12.86084, 12.86238, 12.85987, 12.86084, 12.85941, 12.85644, 12.8559, 12.85933, 
  12.86105, 12.86644, 12.86665, 12.87184, 12.87527, 12.8815, 12.88138, 12.88334, 12.88268, 12.88644, 
  12.88874, 12.89046, 12.89251, 12.89502, 12.89355, 12.89585, 12.89347, 12.89318, 12.891, 12.89134, 
  12.89401, 12.8923, 12.88954, 12.88627, 12.88293, 12.87858)
LONGITUDE_VALUEs <- c(
  -61.19376, -61.19007, -61.19106, -61.18805, -61.18771, -61.18612, -61.18381, -61.18423, -61.18226, -61.18282, 
  -61.18089, -61.18029, -61.17793, -61.17977, -61.17724, -61.1763, -61.17411, -61.17269, -61.16866, -61.16686, 
  -61.17042, -61.16836, -61.17063, -61.17046, -61.17188, -61.17389, -61.17394, -61.17552, -61.17634, -61.1817, 
  -61.18411, -61.18664, -61.18496, -61.18896, -61.19003, -61.18707)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.95964, 12.95893, 12.96387, 12.9668, 12.96023, 12.95776)
LONGITUDE_VALUEs <- c(-61.13264, -61.12942, -61.12581, -61.13079, -61.13603, -61.13422)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  12.95776, 12.95931, 12.95534, 12.94271, 12.94045, 12.93882, 12.94183, 12.94041, 12.94195, 12.94902, 
  12.94727, 12.94915, 12.95015, 12.95375, 12.95694, 12.95847)
LONGITUDE_VALUEs <- c(
  -61.14551, -61.14727, -61.14946, -61.14409, -61.14581, -61.14431, -61.14113, -61.13671, -61.13607, -61.13998, 
  -61.14358, -61.14465, -61.14302, -61.14405, -61.14170, -61.14221)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.91307, 12.91138, 12.91065, 12.91324)
LONGITUDE_VALUEs <- c(-61.17421, -61.17455, -61.17086, -61.17176)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.90998, 12.90868, 12.90947, 12.91037)
LONGITUDE_VALUEs <- c(-61.17648, -61.17646, -61.17989, -61.17773)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.90998, 12.90901, 12.90809, 12.90912)
LONGITUDE_VALUEs <- c(-61.18015, -61.18002, -61.18189, -61.18227)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.91865, 12.91768, 12.91843, 12.91926)
LONGITUDE_VALUEs <- c(-61.14181, -61.14142, -61.13836, -61.13883)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.97547, 12.97138, 12.97221, 12.97512)
LONGITUDE_VALUEs <- c(-61.24635, -61.24682, -61.23927, -61.24073)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  12.95291, 12.94902, 12.95053, 12.94927, 12.95044, 12.9535, 12.95509, 12.95839, 12.96019, 12.96006, 
  12.96305, 12.96418, 12.96353, 12.96429, 12.96621, 12.96151, 12.96075, 12.95783, 12.95573, 12.95586, 
  12.95214, 12.94879, 12.94879, 12.95302)
LONGITUDE_VALUEs <- c(
  -61.25799, -61.25576, -61.25344, -61.24954, -61.24821, -61.2507, -61.24958, -61.25061, -61.24722, -61.24418, 
  -61.24839, -61.24772, -61.24624, -61.24386, -61.24899, -61.25073, -61.2521, -61.25283, -61.25573, -61.25757, 
  -61.26763, -61.2665, -61.26272, -61.25946)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.949, 12.94732, 12.9465, 12.94618, 12.9455, 12.94544, 12.94611, 12.94594, 12.94928)
LONGITUDE_VALUEs <- c(-61.27601, -61.27532, -61.27579, -61.27477, -61.27469, -61.27386, -61.27346, -61.27262, -61.27505)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  13.01203, 13.00873, 12.99535, 12.99665, 12.99639, 12.99363, 12.99535, 12.99213, 12.99041, 12.98952, 
  12.98983, 12.98875, 12.99019, 12.99155, 12.99034, 12.98946, 12.98657, 12.98781, 12.98565, 12.98459, 
  12.98707, 12.9881, 12.99011, 12.99274, 12.99166, 12.9895, 12.98741, 12.98638, 12.98781, 12.98747, 
  12.98858, 12.98916, 12.99416, 12.99448, 12.99356, 12.99542, 12.99519, 12.99851, 12.99788, 13.00102, 
  13.00194, 13.00342, 13.00528, 13.00794, 13.00823, 13.00932, 13.01221, 13.01465, 13.01494, 13.01674, 
  13.0181, 13.02145, 13.02203, 13.02498, 13.02435, 13.02717, 13.02678, 13.0274, 13.02912, 13.03087, 
  13.03071, 13.02975, 13.03102, 13.03144, 13.03276, 13.0328, 13.03351, 13.03372, 13.03541, 13.03579, 
  13.0385, 13.03919, 13.04141, 13.04231, 13.04641, 13.04622, 13.04829, 13.04501, 13.04375, 13.0397, 
  13.0375, 13.03878, 13.03687, 13.03255, 13.03154, 13.02661, 13.02581, 13.02349, 13.0236, 13.02216, 
  13.02159, 13.01854, 13.01718, 13.01216, 13.0122, 13.01011, 13.01224)
LONGITUDE_VALUEs <- c(
  -61.23622, -61.23622, -61.24716, -61.25098, -61.26484, -61.27081, -61.27424, -61.2757, -61.2863, -61.28638, 
  -61.28396, -61.28183, -61.2802, -61.27344, -61.26812, -61.26821, -61.25653, -61.2563, -61.25087, -61.24282, 
  -61.2422, -61.24033, -61.24085, -61.23699, -61.23285, -61.23233, -61.23396, -61.23239, -61.23173, -61.23012, 
  -61.2304, -61.22896, -61.23031, -61.22894, -61.22836, -61.22724, -61.22533, -61.22332, -61.22218, -61.21819, 
  -61.21975, -61.21868, -61.22051, -61.22021, -61.21606, -61.21576, -61.21731, -61.21645, -61.21521, -61.21557, 
  -61.22273, -61.2223, -61.21885, -61.21762, -61.21472, -61.2128, -61.2111, -61.20988, -61.21041, -61.20878, 
  -61.20629, -61.20498, -61.205, -61.20625, -61.20584, -61.20432, -61.20462, -61.20601, -61.20732, -61.20543, 
  -61.20573, -61.20399, -61.20436, -61.20365, -61.20425, -61.20569, -61.20575, -61.21067, -61.20994, -61.21058, 
  -61.21415, -61.21593, -61.22215, -61.22522, -61.22942, -61.23264, -61.2355, -61.23648, -61.23816, -61.23951, 
  -61.24185, -61.24573, -61.24887, -61.24848, -61.24719, -61.24642, -61.24406)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  13.14687, 13.1452, 13.15535, 13.17934, 13.18803, 13.18828, 13.19709, 13.20278, 13.21059, 13.21326, 
  13.22041, 13.23378, 13.23933, 13.26053, 13.26178, 13.27782, 13.27982, 13.30171, 13.33261, 13.35366, 
  13.35892, 13.36401, 13.36869, 13.36977, 13.37328, 13.37604, 13.37904, 13.37428, 13.38046, 13.38288, 
  13.37871, 13.37946, 13.37094, 13.37195, 13.33862, 13.3327, 13.31808, 13.31215, 13.29603, 13.29077, 
  13.28525, 13.27815, 13.27139, 13.2642, 13.25501, 13.24691, 13.24332, 13.23454, 13.20313, 13.20212, 
  13.1956, 13.19218, 13.18499, 13.18335, 13.18109, 13.1785, 13.17921, 13.1742, 13.17374, 13.17065, 
  13.17186, 13.16413, 13.16237, 13.16024, 13.1564, 13.15556, 13.15393, 13.15844, 13.15335, 13.14812, 
  13.13997, 13.13717, 13.14031, 13.14139, 13.13955, 13.13696, 13.13701, 13.12681, 13.12321, 13.12221, 
  13.12438, 13.12305, 13.12593, 13.1248, 13.12597, 13.12288, 13.1258, 13.13345, 13.13404, 13.13872)
LONGITUDE_VALUEs <- c(
  -61.15649, -61.15177, -61.14404, -61.14246, -61.14014, -61.13825, -61.13679, -61.13164, -61.13023, -61.12615, 
  -61.12675, -61.12267, -61.11473, -61.11888, -61.11553, -61.11905, -61.11596, -61.11579, -61.11948, -61.13166, 
  -61.13106, -61.13509, -61.13072, -61.1387, -61.14308, -61.13991, -61.14257, -61.14994, -61.15569, -61.17088, 
  -61.17955, -61.1859, -61.19508, -61.20177, -61.21646, -61.22153, -61.2259, -61.23526, -61.2332, -61.24041, 
  -61.26212, -61.25903, -61.26452, -61.25946, -61.27294, -61.27096, -61.27645, -61.27388, -61.27834, -61.27028, 
  -61.27208, -61.26664, -61.26913, -61.26535, -61.26604, -61.2629, -61.25814, -61.25703, -61.25385, -61.25466, 
  -61.24912, -61.24483, -61.24878, -61.24526, -61.24715, -61.24269, -61.24153, -61.23548, -61.22504, -61.22359, 
  -61.2287, -61.22458, -61.22098, -61.21286, -61.2096, -61.20977, -61.20668, -61.18926, -61.19377, -61.19145, 
  -61.19004, -61.18767, -61.18407, -61.1802, -61.17724, -61.17153, -61.16698, -61.16613, -61.16312, -61.16291)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_4 <- st_set_geometry(Geo_4, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}

##### GRENADA #####
LATITUDE_VALUEs <- c(
  12.51176, 12.51222, 12.51092, 12.51214, 12.5126, 12.52026, 12.5216, 12.52592, 12.52672, 12.52303, 
  12.51947, 12.51989, 12.51725, 12.5162)
LONGITUDE_VALUEs <- c(
  -61.38859, -61.38542, -61.3837, -61.38215, -61.37911, -61.37816, -61.37958, -61.38099, -61.38524, -61.39044, 
  -61.3925, -61.39477, -61.39409, -61.39095)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(12.50966, 12.5079, 12.50679, 12.50897)
LONGITUDE_VALUEs <- c(-61.40218, -61.40287, -61.40132, -61.40093)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.40909, 12.40758, 12.40343, 12.40172, 12.40603, 12.4111, 12.41127)
LONGITUDE_VALUEs <- c(-61.49086, -61.49438, -61.49069, -61.48639, -61.48506, -61.48871, -61.49064)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.41186, 12.41136, 12.41773, 12.4153, 12.41798)
LONGITUDE_VALUEs <- c(-61.48142, -61.47425, -61.47506, -61.47721, -61.47957)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.43227, 12.43328, 12.43151, 12.42829, 12.43164, 12.43365)
LONGITUDE_VALUEs <- c(-61.47271, -61.47562, -61.4764, -61.47159, -61.46884, -61.47146)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.48488, 12.4884, 12.48747, 12.48542)
LONGITUDE_VALUEs <- c(-61.49198, -61.49153, -61.49393, -61.49457)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  12.509, 12.50666, 12.50222, 12.49744, 12.4873, 12.48068, 12.47825, 12.47498, 12.47154, 12.47297, 
  12.47641, 12.47481, 12.47205, 12.4671, 12.46249, 12.46375, 12.45914, 12.45311, 12.45378, 12.44707, 
  12.4428, 12.43969, 12.43856, 12.43617, 12.43667, 12.44333, 12.44895, 12.44761, 12.44901, 12.44514, 
  12.45502, 12.45863, 12.45528, 12.45829, 12.45523, 12.45779, 12.45825, 12.46362, 12.46462, 12.47837, 
  12.48591, 12.48679, 12.49148, 12.49844, 12.49961, 12.50166, 12.5079, 12.51561, 12.52131, 12.52244, 
  12.52537, 12.525, 12.52814, 12.5237, 12.52336, 12.52043, 12.51842, 12.51679, 12.5123)
LONGITUDE_VALUEs <- c(
  -61.45039, -61.44859, -61.44911, -61.45424, -61.45424, -61.46111, -61.47734, -61.47785, -61.48197, -61.49476, 
  -61.49691, -61.49906, -61.49691, -61.49811, -61.49236, -61.4848, -61.48274, -61.48463, -61.49064, -61.49785, 
  -61.49691, -61.49863, -61.49764, -61.49936, -61.49648, -61.49494, -61.48708, -61.48313, -61.48173, -61.4712, 
  -61.4624, -61.45377, -61.44901, -61.44227, -61.43906, -61.43575, -61.42953, -61.43021, -61.43245, -61.43245, 
  -61.42961, -61.42266, -61.42567, -61.42339, -61.41991, -61.42021, -61.42936, -61.43064, -61.43017, -61.42837, 
  -61.43022, -61.43378, -61.43889, -61.44117, -61.44469, -61.44795, -61.44731, -61.45001, -61.44893)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.33015, 12.3255, 12.32659, 12.33074)
LONGITUDE_VALUEs <- c(-61.58523, -61.58462, -61.58012, -61.58261)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.31849, 12.31388, 12.31418, 12.31568, 12.31602, 12.31816)
LONGITUDE_VALUEs <- c(-61.55497, -61.55639, -61.54934, -61.54969, -61.55244, -61.55274)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.31795, 12.31573, 12.3151, 12.31745)
LONGITUDE_VALUEs <- c(-61.54578, -61.54728, -61.54591, -61.54376)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.28742, 12.28696, 12.29141, 12.28856, 12.28428, 12.28323)
LONGITUDE_VALUEs <- c(-61.57943, -61.57625, -61.57698, -61.58695, -61.58613, -61.58055)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  12.29984, 12.29279, 12.299, 12.30369, 12.30898, 12.31283, 12.31191, 12.31669, 12.31401, 12.31552, 
  12.31812, 12.31761, 12.312)
LONGITUDE_VALUEs <- c(
  -61.59612, -61.58393, -61.58238, -61.57774, -61.58255, -61.58118, -61.57706, -61.57731, -61.57989, -61.5847, 
  -61.58504, -61.58856, -61.58564)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  12.22686, 12.22459, 12.23458, 12.23366, 12.23483, 12.21969, 12.21784, 12.21125, 12.20924, 12.19649, 
  12.19087, 12.18655, 12.18357, 12.17745, 12.16898, 12.16658, 12.16042, 12.14674, 12.14368, 12.13713, 
  12.13017, 12.12799, 12.12564, 12.1227, 12.12098, 12.11615, 12.11347, 12.11141, 12.1081, 12.10969, 
  12.10159, 12.09841, 12.09555, 12.09547, 12.09119, 12.0888, 12.08548, 12.08389, 12.08233, 12.08254, 
  12.07818, 12.07788, 12.07083, 12.0632, 12.06089, 12.05749, 12.04809, 12.04805, 12.05249, 12.05203, 
  12.04901, 12.04662, 12.04653, 12.0428, 12.04288, 12.04528, 12.04544, 12.0347, 12.03294, 12.02765, 
  12.0216, 12.02408, 12.02072, 12.01808, 12.01908, 12.01115, 12.00481, 12.00221, 12.00171, 11.99898, 
  12.00339, 12.00225, 11.99957, 11.9991, 11.99667, 11.99927, 11.99864, 12.00146, 12.0012, 11.9981, 
  11.99663, 12.00649, 12.00649, 12.00183, 12.002, 11.98815, 11.98932, 11.9923, 11.99163, 11.98899, 
  11.99386, 11.99898, 12.00036, 12.00616, 12.00515, 11.99978, 11.99701, 12.00448, 12.00242, 11.99877, 
  11.99646, 12.00024, 12.00137, 12.00309, 12.00477, 12.0041, 12.00536, 12.00779, 12.01296, 12.01589, 
  12.01678, 12.01468, 12.00771, 12.00956, 12.00771, 12.00511, 12.00183, 12.00456, 11.99965, 12.00389, 
  12.00402, 12.01044, 12.00893, 12.01602, 12.01359, 12.01128, 12.01312, 12.00431, 12.00351, 12.00137, 
  11.99734, 11.99427, 11.99364, 11.99889, 11.99944, 12.00204, 12.00389, 12.0051, 12.01543, 12.01669, 
  12.00985, 12.00955, 12.00624, 12.0088, 12.0122, 12.01157, 12.01694, 12.01694, 12.01526, 12.01614, 
  12.01375, 12.01707, 12.01367, 12.01958, 12.01912, 12.02315, 12.01585, 12.02391, 12.02387, 12.01971, 
  12.0224, 12.02806, 12.02592, 12.03184, 12.03079, 12.03402, 12.04039, 12.04174, 12.05466, 12.05575, 
  12.06079, 12.06213, 12.07682, 12.07623, 12.09461, 12.10326, 12.10645, 12.12466, 12.12454, 12.12328, 
  12.12513, 12.12186, 12.12618, 12.12639, 12.13281, 12.15064, 12.16826, 12.16855, 12.18532, 12.1917, 
  12.19413, 12.20278, 12.20752, 12.2157, 12.22382, 12.23017, 12.22976, 12.22514)
LONGITUDE_VALUEs <- c(
  -61.64038, -61.64313, -61.65547, -61.65697, -61.66114, -61.68071, -61.68861, -61.69138, -61.69739, -61.70384, 
  -61.71757, -61.71937, -61.72431, -61.72405, -61.7277, -61.73212, -61.73156, -61.73735, -61.74354, -61.74383, 
  -61.7495, -61.74869, -61.75126, -61.75113, -61.75336, -61.74843, -61.7486, -61.74637, -61.74611, -61.74894, 
  -61.75375, -61.75199, -61.75366, -61.75628, -61.75572, -61.76195, -61.76062, -61.76315, -61.76208, -61.76002, 
  -61.75774, -61.75401, -61.75229, -61.75744, -61.75512, -61.75444, -61.75611, -61.75366, -61.75036, -61.74894, 
  -61.75066, -61.74947, -61.74565, -61.74607, -61.74972, -61.74955, -61.75204, -61.75539, -61.75363, -61.75599, 
  -61.76809, -61.775, -61.77174, -61.77358, -61.77573, -61.78423, -61.80174, -61.80178, -61.78938, -61.78607, 
  -61.7835, -61.77577, -61.77655, -61.77487, -61.77397, -61.77238, -61.77084, -61.77054, -61.76865, -61.76835, 
  -61.76569, -61.76564, -61.76324, -61.7632, -61.75848, -61.76135, -61.75749, -61.75766, -61.755, -61.75406, 
  -61.75268, -61.75406, -61.75247, -61.75294, -61.74741, -61.74848, -61.74749, -61.74204, -61.73831, -61.74234, 
  -61.73633, -61.7356, -61.73753, -61.73547, -61.73753, -61.73942, -61.74071, -61.73762, -61.74058, -61.74088, 
  -61.73981, -61.73951, -61.7314, -61.72959, -61.72784, -61.729, -61.72599, -61.72453, -61.71891, -61.7193, 
  -61.71732, -61.71994, -61.72427, -61.72625, -61.72221, -61.72174, -61.71753, -61.71333, -61.7117, -61.71234, 
  -61.71033, -61.71097, -61.709, -61.70861, -61.70578, -61.70715, -61.70573, -61.70844, -61.71419, -61.71007, 
  -61.70758, -61.70256, -61.70011, -61.69728, -61.70084, -61.70681, -61.70852, -61.70548, -61.70363, -61.69938, 
  -61.69574, -61.69226, -61.68419, -61.6841, -61.68144, -61.67913, -61.67625, -61.67265, -61.67016, -61.66767, 
  -61.6623, -61.66368, -61.65471, -61.65479, -61.65209, -61.64548, -61.64985, -61.63904, -61.63492, -61.63105, 
  -61.63303, -61.62651, -61.62633, -61.61818, -61.6265, -61.62316, -61.62839, -61.62041, -61.6151, -61.61261, 
  -61.60896, -61.60394, -61.60286, -61.6081, -61.61003, -61.60896, -61.60497, -61.60192, -61.60496, -61.60282, 
  -61.60591, -61.60651, -61.61063, -61.60973, -61.60508, -61.61776, -61.62295, -61.63518)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(11.98797, 11.98809, 11.98513, 11.98618)
LONGITUDE_VALUEs <- c(-61.78563, -61.78711, -61.78799, -61.78585)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  11.99907, 11.99672, 11.99534, 11.99441, 11.99173, 11.99139, 11.99403, 11.99487, 11.99676, 11.99823, 
  12.00033)
LONGITUDE_VALUEs <- c(
  -61.72789, -61.72734, -61.72798, -61.72686, -61.72631, -61.72309, -61.72317, -61.7257, -61.72596, -61.72425, 
  -61.72566)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.23107, 12.23144, 12.22956, 12.228)
LONGITUDE_VALUEs <- c(-61.60484, -61.60682, -61.60772, -61.60548)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.22687, 12.22947, 12.23027, 12.23207, 12.23165)
LONGITUDE_VALUEs <- c(-61.59492, -61.59217, -61.59621, -61.596, -61.5975)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.22012, 12.22058, 12.22444, 12.22289)
LONGITUDE_VALUEs <- c(-61.58579, -61.58445, -61.58626, -61.58776)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(12.20869, 12.20749, 12.20667, 12.20862)
LONGITUDE_VALUEs <- c(-61.55073, -61.55105, -61.54967, -61.54869)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_5 <- st_set_geometry(Geo_5, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% 
  filter(!NAME %in% c("MARTINIQUE", "SAINT LUCIA", "BARBADOS", "SAINT VINCENT AND THE GRENADINES", "GRENADA"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3, Geo_4, Geo_5)

Numeric Code (M49_CODE) for TOKELAU.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "TOKELAU")
Geo_2 <- GeoDATA %>% filter(NAME == "AMERICAN SAMOA")
Geo_3 <- GeoDATA %>% filter(NAME == "SAMOA")

##### TOKELAU #####
LATITUDE_VALUEs <- c(
  -8.53145, -8.53426, -8.5511, -8.5657, -8.57376, -8.5859, -8.58722, -8.57852, -8.57826, -8.5761, 
  -8.57674, -8.57432, -8.57062, -8.56388, -8.55836, -8.55728, -8.55541, -8.55533, -8.54941, -8.54296, 
  -8.53222, -8.5315, -8.53298)
LONGITUDE_VALUEs <- c(
  -172.5194, -172.5221, -172.516, -172.5132, -172.5135, -172.5085, -172.5055, -172.4874, -172.4819, -172.4755, 
  -172.4652, -172.463, -172.4649, -172.4661, -172.4639, -172.4647, -172.4644, -172.4661, -172.4769, -172.4847, 
  -172.4933, -172.4956, -172.5039)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  -9.116, -9.1415, -9.1582, -9.17544, -9.18222, -9.2012, -9.21975, -9.23216, -9.23284, -9.22844, 
  -9.21221, -9.17014, -9.15273, -9.14379, -9.13159, -9.10508, -9.10136, -9.10178, -9.11235, -9.11049)
LONGITUDE_VALUEs <- c(
  -171.8639, -171.861, -171.8614, -171.8706, -171.87, -171.8504, -171.836, -171.7981, -171.7843, -171.7744, 
  -171.7637, -171.7804, -171.7848, -171.7847, -171.7877, -171.7792, -171.7803, -171.7854, -171.8162, -171.8479)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -9.43319, -9.44449, -9.44504, -9.43132, -9.42214, -9.41278, -9.38924, -9.37124, -9.36041, -9.35664, 
  -9.33305, -9.32293, -9.33021, -9.36235, -9.37531, -9.37857, -9.37777, -9.40262)
LONGITUDE_VALUEs <- c(
  -171.2092, -171.2083, -171.2035, -171.1938, -171.1921, -171.1946, -171.196, -171.1886, -171.1803, -171.1804, 
  -171.1981, -171.2118, -171.2282, -171.2643, -171.2727, -171.2706, -171.2606, -171.2325)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### AMERICAN SAMOA #####
LATITUDE_VALUEs <- c(-11.05756, -11.06484, -11.06528, -11.0563, -11.05103, -11.04758, -11.05074)
LONGITUDE_VALUEs <- c(-171.0897, -171.0825, -171.0782, -171.066, -171.0671, -171.0729, -171.0895)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  -14.53777, -14.54196, -14.55945, -14.55999, -14.55114, -14.54691, -14.5445, -14.53748, -14.53021, -14.52979, 
  -14.53598)
LONGITUDE_VALUEs <- c(
  -168.1703, -168.1722, -168.1604, -168.1574, -168.1389, -168.1379, -168.1424, -168.1468, -168.1498, -168.1546, 
  -168.1609)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -14.16604, -14.16371, -14.1573, -14.15511, -14.15661, -14.15878, -14.16466, -14.16543, -14.16722, -14.16733, 
  -14.16886, -14.17469, -14.17769, -14.181, -14.18189, -14.18478, -14.19044, -14.19084, -14.18172, -14.18104, 
  -14.17902, -14.17024, -14.16668)
LONGITUDE_VALUEs <- c(
  -169.6096, -169.6104, -169.6097, -169.6129, -169.6163, -169.6168, -169.6206, -169.6241, -169.6259, -169.6288, 
  -169.632, -169.6257, -169.6249, -169.6216, -169.6217, -169.6182, -169.615, -169.612, -169.6083, -169.6069, 
  -169.6064, -169.6105, -169.6101)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -14.21517, -14.21671, -14.21513, -14.21867, -14.21247, -14.21609, -14.21576, -14.21925, -14.22096, -14.22017, 
  -14.22304, -14.2247, -14.23036, -14.23785, -14.23976, -14.2407, -14.24531, -14.26076, -14.26272, -14.27154, 
  -14.27208, -14.26638, -14.26272, -14.25369, -14.24887, -14.24824, -14.25032, -14.25519, -14.25552, -14.25781, 
  -14.25581, -14.21888, -14.21143, -14.21426, -14.21201, -14.2153)
LONGITUDE_VALUEs <- c(
  -169.4814, -169.4841, -169.4885, -169.4999, -169.5068, -169.5078, -169.5099, -169.5104, -169.5142, -169.5182, 
  -169.5186, -169.5167, -169.5165, -169.513, -169.5103, -169.5109, -169.5038, -169.4975, -169.4978, -169.4921, 
  -169.4841, -169.482, -169.4769, -169.471, -169.4612, -169.4516, -169.445, -169.4379, -169.4322, -169.4272, 
  -169.4227, -169.4186, -169.4279, -169.4381, -169.4557, -169.4674)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -14.1649, -14.16438, -14.16438, -14.16509, -14.16697, -14.16848, -14.16976, -14.17016, -14.16938, 
  -14.16954, -14.1677, -14.16467)
LONGITUDE_VALUEs <- c(
  -169.6857, -169.6863, -169.6873, -169.6873, -169.6855, -169.6851, -169.6855, -169.6848, -169.6846, 
  -169.6838, -169.6829, -169.6851)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -14.1751, -14.17884, -14.18467, -14.18569, -14.184, -14.18413, -14.17959, -14.17373, -14.17058, -14.17017, 
  -14.17086, -14.16948, -14.16961, -14.16792, -14.16678, -14.16638, -14.16782, -14.16661, -14.16339, -14.16076, 
  -14.16012, -14.15914, -14.16307, -14.16306, -14.16477, -14.16687, -14.16973, -14.17325, -14.17341)
LONGITUDE_VALUEs <- c(
  -169.6772, -169.6775, -169.6731, -169.669, -169.6648, -169.6635, -169.6557, -169.6499, -169.6433, -169.6397, 
  -169.6383, -169.6359, -169.6338, -169.6326, -169.6352, -169.639, -169.6433, -169.6539, -169.6682, -169.6705, 
  -169.6792, -169.6802, -169.682, -169.681, -169.6803, -169.6815, -169.6793, -169.6785, -169.678)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -14.28747, -14.28957, -14.2881, -14.28571, -14.2851, -14.28404, -14.28435, -14.28244, -14.27953, -14.27992, 
  -14.27812, -14.27907, -14.28103, -14.28593, -14.28691, -14.28862, -14.28857)
LONGITUDE_VALUEs <- c(
  -170.5546, -170.5513, -170.5476, -170.5458, -170.5467, -170.5463, -170.5455, -170.5457, -170.5487, -170.5508, 
  -170.5528, -170.5575, -170.5602, -170.5617, -170.5596, -170.5578, -170.5559)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -14.36194, -14.35815, -14.36605, -14.3572, -14.35529, -14.34776, -14.3473, -14.34572, -14.34439, -14.33982, 
  -14.32705, -14.32556, -14.3256, -14.31749, -14.31728, -14.31346, -14.31346, -14.31113, -14.31366, -14.32028, 
  -14.32069, -14.32223, -14.32206, -14.3115, -14.30992, -14.30614, -14.30556, -14.30131, -14.3014, -14.29865, 
  -14.2999, -14.29474, -14.291, -14.28526, -14.2816, -14.27603, -14.27723, -14.2742, -14.27387, -14.27062, 
  -14.27179, -14.26738, -14.27154, -14.28114, -14.2895, -14.28638, -14.2799, -14.28089, -14.27624, -14.27441, 
  -14.2722, -14.27091, -14.26808, -14.26825, -14.27025, -14.26937, -14.2754, -14.28081, -14.28393, -14.2801, 
  -14.27985, -14.27744, -14.27699, -14.27516, -14.27314, -14.2736, -14.2747, -14.27474, -14.27268, -14.2711, 
  -14.27154, -14.27004, -14.26266, -14.25854, -14.25509, -14.25114, -14.24978, -14.2482, -14.24558, -14.24513, 
  -14.24831, -14.24839, -14.24656, -14.2517, -14.25124, -14.25725, -14.26016, -14.26249, -14.25789, -14.25831, 
  -14.25436, -14.25898, -14.25606, -14.25494, -14.25166, -14.25914, -14.25573, -14.25311, -14.25261, -14.25049, 
  -14.2487, -14.25124, -14.24725, -14.24999, -14.24887, -14.25328, -14.25132, -14.25544, -14.25602, -14.2586, 
  -14.25823, -14.25199, -14.24895, -14.24845, -14.25074, -14.25057, -14.25307, -14.25236, -14.2465, -14.24795, 
  -14.24725, -14.25157, -14.24983, -14.24171, -14.23889, -14.24571, -14.24438, -14.24779, -14.24691, -14.24904, 
  -14.25303, -14.25465, -14.25099, -14.25382, -14.25436, -14.26281, -14.26119, -14.26651, -14.26638, -14.27067, 
  -14.272, -14.28173, -14.28356, -14.28626, -14.28847, -14.28705, -14.28522, -14.28223, -14.28822, -14.2913, 
  -14.29167, -14.29633, -14.29134, -14.29209, -14.28742, -14.29312, -14.292, -14.29537, -14.28742, -14.29108, 
  -14.29134, -14.29329, -14.2893, -14.29342, -14.29296, -14.29562, -14.29504, -14.29807, -14.30069, -14.30423, 
  -14.30078, -14.30743, -14.31126, -14.3177, -14.32157, -14.32369, -14.3236, -14.32498, -14.32481, -14.32733, 
  -14.3298, -14.32886, -14.33213, -14.32685, -14.32541, -14.32714, -14.33082, -14.33248, -14.33146, -14.33336, 
  -14.3313, -14.33132, -14.33332, -14.33485, -14.33363, -14.33461, -14.33679, -14.33633, -14.33768, -14.34011, 
  -14.3418, -14.34627, -14.34689, -14.34907, -14.35043, -14.35196, -14.35309, -14.35577, -14.35762, -14.35795, 
  -14.35882, -14.35868, -14.36219, -14.36225, -14.36331, -14.36354, -14.36533, -14.36535, -14.36356, -14.3618, 
  -14.36234, -14.3666, -14.36683, -14.36797, -14.36901, -14.37308, -14.37344, -14.37071, -14.36715, -14.36391)
LONGITUDE_VALUEs <- c(
  -170.7548, -170.751, -170.7414, -170.7358, -170.7319, -170.7276, -170.7229, -170.7231, -170.7209, -170.7217, 
  -170.6995, -170.7006, -170.7121, -170.7168, -170.7108, -170.7108, -170.7073, -170.7062, -170.7021, -170.7027, 
  -170.7055, -170.7057, -170.7025, -170.698, -170.6949, -170.6941, -170.69, -170.6886, -170.6848, -170.6834, 
  -170.6792, -170.6766, -170.683, -170.675, -170.6821, -170.6815, -170.6896, -170.6946, -170.6994, -170.6994, 
  -170.6865, -170.6788, -170.6643, -170.6654, -170.663, -170.64, -170.638, -170.629, -170.6273, -170.624, 
  -170.624, -170.6172, -170.6148, -170.6118, -170.6108, -170.6084, -170.6034, -170.6064, -170.6021, -170.5959, 
  -170.5909, -170.5896, -170.5875, -170.5872, -170.5833, -170.5807, -170.581, -170.5775, -170.5763, -170.5733, 
  -170.5692, -170.5651, -170.5635, -170.5615, -170.5642, -170.5647, -170.5637, -170.5644, -170.5615, -170.5624, 
  -170.568, -170.5738, -170.5771, -170.5812, -170.5846, -170.5864, -170.5848, -170.5902, -170.5922, -170.5937, 
  -170.6038, -170.6058, -170.6076, -170.6128, -170.6134, -170.6261, -170.632, -170.6302, -170.6267, -170.6257, 
  -170.6283, -170.631, -170.6341, -170.6365, -170.64, -170.6409, -170.6451, -170.6459, -170.65, -170.6507, 
  -170.654, -170.6538, -170.6517, -170.6536, -170.6548, -170.6567, -170.6583, -170.6599, -170.6605, -170.6644, 
  -170.6665, -170.6723, -170.6763, -170.6703, -170.6717, -170.6802, -170.6829, -170.6836, -170.6878, -170.6902, 
  -170.6879, -170.69, -170.6939, -170.6957, -170.7019, -170.7044, -170.7122, -170.7134, -170.7159, -170.7178, 
  -170.7213, -170.7236, -170.7206, -170.7207, -170.7233, -170.7253, -170.725, -170.732, -170.7392, -170.739, 
  -170.7486, -170.7529, -170.7556, -170.761, -170.7613, -170.774, -170.7768, -170.7806, -170.7833, -170.7869, 
  -170.791, -170.7932, -170.7989, -170.8011, -170.8086, -170.8087, -170.8116, -170.8099, -170.8154, -170.8161, 
  -170.8216, -170.8265, -170.8335, -170.8344, -170.8441, -170.8413, -170.8395, -170.8377, -170.8321, -170.8294, 
  -170.8293, -170.8274, -170.8171, -170.8129, -170.8091, -170.8073, -170.8067, -170.804, -170.8017, -170.799, 
  -170.7971, -170.795, -170.7948, -170.7938, -170.7928, -170.7905, -170.7902, -170.7876, -170.7875, -170.7855, 
  -170.7871, -170.7879, -170.7871, -170.7868, -170.7851, -170.7854, -170.785, -170.786, -170.785, -170.7827, 
  -170.7815, -170.7796, -170.7752, -170.7729, -170.7724, -170.77, -170.77, -170.7692, -170.7688, -170.7669, 
  -170.7599, -170.7602, -170.7622, -170.7627, -170.7615, -170.7606, -170.7584, -170.7575, -170.7541, -170.7532)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

##### SAMOA #####
LATITUDE_VALUEs <- c(
  -13.54471, -13.54604, -13.56674, -13.56632, -13.57441, -13.57508, -13.60211, -13.60762, -13.61387, -13.61571,
  -13.62021, -13.61746, -13.6198, -13.62747, -13.63264, -13.63748, -13.64982, -13.6585, -13.68535, -13.7092,
  -13.74105, -13.74622, -13.76556, -13.7774, -13.79591, -13.80357, -13.79691, -13.79791, -13.78574, -13.79441,
  -13.78907, -13.78807, -13.7809, -13.7859, -13.77723, -13.77923, -13.7734, -13.77257, -13.77823, -13.7779,
  -13.76006, -13.75523, -13.76023, -13.75873, -13.77857, -13.78057, -13.79791, -13.79541, -13.80341, -13.80141,
  -13.80291, -13.79341, -13.79074, -13.76573, -13.75072, -13.74414, -13.73547, -13.72063, -13.71412, -13.71379,
  -13.70937, -13.70553, -13.70178, -13.69661, -13.66876, -13.66492, -13.65099, -13.64373, -13.6419, -13.6366,
  -13.63523, -13.6306, -13.62234, -13.62017, -13.61625, -13.615, -13.60666, -13.60219, -13.5936, -13.58413, 
  -13.58217, -13.58271, -13.58059, -13.57754, -13.56991, -13.56548, -13.55864, -13.5548, -13.54346, -13.51692, 
  -13.50866, -13.50665, -13.49789, -13.4938, -13.47878, -13.45182, -13.44731, -13.4499, -13.43946, -13.44965, 
  -13.44572, -13.4514, -13.45023, -13.46676, -13.46926, -13.46651, -13.46968, -13.46058, -13.4686, -13.46784, 
  -13.4726, -13.47252, -13.47786, -13.47302, -13.48896, -13.49631, -13.49147, -13.50115, -13.50282, -13.51049, 
  -13.51033, -13.51784, -13.5175, -13.50615, -13.50565, -13.51517, -13.50882, -13.5155, -13.51951, -13.51283, 
  -13.49864, -13.49681, -13.49009, -13.49155, -13.49656, -13.49769, -13.49176, -13.49351, -13.49247, -13.50119, 
  -13.50053, -13.50795, -13.5153, -13.52761, -13.53595, -13.53791)
LONGITUDE_VALUEs <- c(
  -172.7864, -172.7814, -172.7607, -172.7547, -172.744, -172.737, -172.7186, -172.7088, -172.7039, -172.6966,
  -172.6923, -172.6892, -172.6835, -172.6785, -172.6797, -172.6723, -172.6651, -172.6485, -172.6327, -172.5984,
  -172.5956, -172.5827, -172.5783, -172.5518, -172.5475, -172.529, -172.5108, -172.4911, -172.472, -172.4531,
  -172.448, -172.4294, -172.4135, -172.4045, -172.38, -172.3738, -172.3657, -172.3527, -172.3501, -172.3292,
  -172.3228, -172.3082, -172.3009, -172.2892, -172.2833, -172.2775, -172.2691, -172.2519, -172.2446, -172.2387,
  -172.2272, -172.2203, -172.2137, -172.2129, -172.2236, -172.2172, -172.2199, -172.195, -172.1987, -172.2038,
  -172.2013, -172.2041, -172.1978, -172.1989, -172.1734, -172.1794, -172.188, -172.1886, -172.1918, -172.1929,
  -172.1961, -172.1978, -172.1943, -172.1984, -172.1985, -172.2003, -172.2016, -172.2039, -172.2061, -172.2149, 
  -172.2138, -172.2101, -172.2095, -172.2127, -172.2278, -172.2281, -172.2269, -172.236, -172.2381, -172.2635, 
  -172.2647, -172.2734, -172.2781, -172.2841, -172.2911, -172.3147, -172.325, -172.3308, -172.3552, -172.3634, 
  -172.383, -172.4068, -172.4146, -172.4204, -172.4485, -172.455, -172.4634, -172.4796, -172.4889, -172.4938, 
  -172.4983, -172.5054, -172.5143, -172.5322, -172.5794, -172.5863, -172.613, -172.6263, -172.6362, -172.6366, 
  -172.6311, -172.6376, -172.6489, -172.6592, -172.6635, -172.6776, -172.6826, -172.6872, -172.702, -172.725, 
  -172.7404, -172.7523, -172.7556, -172.761, -172.7619, -172.7653, -172.777, -172.781, -172.7844, -172.789, 
  -172.7928, -172.7946, -172.804, -172.7934, -172.7913, -172.7879)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  -13.82091, -13.82124, -13.82489, -13.82795, -13.8295, -13.8277, -13.8236, -13.82054, -13.81843, -13.81858, 
  -13.81946, -13.81948, -13.81853, -13.81871)
LONGITUDE_VALUEs <- c(
  -172.1557, -172.155, -172.1566, -172.1552, -172.1516, -172.1482, -172.1461, -172.1467, -172.1499, -172.1517, 
  -172.1513, -172.1527, -172.1527, -172.1539)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-13.84446, -13.84646, -13.8465, -13.84971, -13.85125, -13.85575, -13.86008, -13.85491, -13.84979, -13.84037)
LONGITUDE_VALUEs <- c(-172.1227, -172.1228, -172.1196, -172.1171, -172.1181, -172.1161, -172.1062, -172.102, -172.1013, -172.1081)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -13.84914, -13.86064, -13.8655, -13.8655, -13.86616, -13.86725, -13.87454, -13.87695, -13.88625, -13.89363, 
  -13.8956, -13.90352, -13.91327, -13.91185, -13.91693, -13.92068, -13.9211, -13.92435, -13.9251, -13.92901, 
  -13.92835, -13.93168, -13.93493, -13.93634, -13.93434, -13.93618, -13.93934, -13.94043, -13.94792, -13.95209, 
  -13.94542, -13.93643, -13.93318, -13.94917, -13.96317, -13.96933, -13.97974, -13.98815, -13.98649, -14.00289, 
  -14.00573, -14.00098, -14.00306, -14.00165, -13.99032, -13.98999, -13.98307, -13.98349, -13.9899, -13.98799, 
  -13.98957, -13.99398, -14.00872, -14.00797, -14.01031, -14.00872, -14.01172, -14.01164, -14.01664, -14.01755, 
  -14.02754, -14.03129, -14.03745, -14.04361, -14.04278, -14.04536, -14.04328, -14.04478, -14.03887, -14.03504, 
  -14.03396, -14.02896, -14.02888, -14.03929, -14.04053, -14.04328, -14.03421, -14.03687, -14.04095, -14.04312, 
  -14.0462, -14.04411, -14.04345, -14.04478, -14.03929, -14.04212, -14.04253, -14.03978, -14.04836, -14.03112, 
  -14.01922, -14.00723, -14.00356, -13.99831, -13.99482, -13.9914, -13.98815, -13.98974, -13.98749, -13.98565, 
  -13.98232, -13.97583, -13.97583, -13.97391, -13.97449, -13.97874, -13.97974, -13.97716, -13.97824, -13.97424, 
  -13.96567, -13.96642, -13.96192, -13.96125, -13.95417, -13.957, -13.95225, -13.95542, -13.95034, -13.95142, 
  -13.94492, -13.94159, -13.94143, -13.93834, -13.94043, -13.93468, -13.92918, -13.92835, -13.93241, -13.9385, 
  -13.9405, -13.94387, -13.9417, -13.94366, -13.94079, -13.93275, -13.92563, -13.92425, -13.91967, -13.91776, 
  -13.916, -13.91283, -13.91464, -13.91354, -13.91529, -13.91414, -13.91296, -13.91092, -13.91056, -13.90913, 
  -13.90821, -13.90923, -13.90873, -13.91135, -13.91167, -13.90919, -13.90611, -13.90056, -13.90246, -13.90154, 
  -13.90002, -13.89936, -13.89579, -13.89569, -13.89402, -13.8918, -13.89034, -13.88811, -13.88742, -13.89069, 
  -13.89182, -13.89027, -13.89173, -13.8925, -13.89055, -13.88293, -13.87914, -13.87819, -13.87838, -13.87361, 
  -13.87378, -13.87298, -13.87355, -13.87453, -13.87403, -13.87421, -13.87186, -13.87255, -13.87601, -13.87621, 
  -13.87788, -13.87784, -13.87969, -13.88065, -13.88238, -13.88519, -13.88398, -13.88265, -13.87956, -13.879, 
  -13.87792, -13.87756, -13.87552, -13.87486, -13.87379, -13.87384, -13.8729, -13.87359, -13.87288, -13.87191, 
  -13.87593, -13.87582, -13.87446, -13.87057, -13.86657, -13.86636, -13.8618, -13.86174, -13.86253, -13.86205, 
  -13.86478, -13.8634, -13.86347, -13.86128, -13.85961, -13.86047, -13.8613, -13.8622, -13.86397, -13.86355, 
  -13.85963, -13.85505, -13.85472, -13.85222, -13.85307, -13.85088, -13.84424, -13.84484, -13.84178, -13.84257, 
  -13.83948, -13.83535, -13.83142, -13.83124, -13.83207, -13.83211, -13.83142, -13.83042, -13.82826, -13.82911, 
  -13.82678, -13.82515, -13.8244, -13.82503, -13.8244, -13.82751, -13.82661, -13.82774, -13.83324, -13.83178, 
  -13.83065, -13.82798, -13.8295, -13.8209, -13.81656, -13.81431, -13.81642, -13.81725, -13.81942, -13.82042, 
  -13.82144, -13.8234, -13.82361, -13.82442, -13.82699, -13.82677, -13.8283, -13.82922, -13.82945, -13.82786, 
  -13.82859, -13.82673, -13.82727, -13.82615, -13.82671, -13.82563, -13.82494, -13.824, -13.82311, -13.82284, 
  -13.82069, -13.82196, -13.82019, -13.81983, -13.82181, -13.82061, -13.81917, -13.81788, -13.81698, -13.81663, 
  -13.81519, -13.81629, -13.81669, -13.81556, -13.81506, -13.81319, -13.81115, -13.80821, -13.80585, -13.80442, 
  -13.80485, -13.80212, -13.80023, -13.79973, -13.79841, -13.79985, -13.79848, -13.79579, -13.79541, -13.79302, 
  -13.79314, -13.79518, -13.79475, -13.79562, -13.7942, -13.79454, -13.79616, -13.79716, -13.79835, -13.79837, 
  -13.797, -13.79735, -13.79871, -13.79848, -13.7991, -13.79862, -13.7995, -13.79914, -13.79977, -13.79868, 
  -13.79555, -13.79535, -13.79906, -13.79841, -13.80085, -13.79787, -13.79703, -13.79447, -13.79808, -13.79643, 
  -13.79724, -13.79668, -13.79837, -13.7968, -13.80043, -13.80158, -13.80243, -13.80224, -13.80093, -13.80149, 
  -13.79795, -13.79966, -13.79839, -13.80022, -13.80245, -13.80474, -13.80408, -13.80649, -13.80677, -13.80895, 
  -13.81031, -13.80987, -13.81287, -13.81508, -13.81562, -13.81685, -13.81775, -13.81943, -13.82239, -13.82512, 
  -13.82796, -13.82942, -13.82767, -13.82908, -13.82467, -13.82571, -13.82496, -13.82571, -13.83, -13.82921, 
  -13.83808, -13.83929, -13.84362)
LONGITUDE_VALUEs <- c(
  -172.0557, -172.0638, -172.0708, -172.0729, -172.0734, -172.0718, -172.0722, -172.0689, -172.0653, -172.0667, 
  -172.0606, -172.0544, -172.0264, -172.0212, -172.0046, -172.0042, -172.0073, -172.0064, -172.0109, -172.0097, 
  -172.0052, -172.0028, -172.0039, -172.0017, -171.9965, -171.9938, -171.994, -171.9889, -171.9908, -171.9846, 
  -171.9786, -171.9803, -171.9738, -171.9604, -171.9582, -171.9513, -171.9496, -171.9377, -171.9338, -171.9203, 
  -171.9034, -171.9009, -171.898, -171.8893, -171.8697, -171.864, -171.8586, -171.8538, -171.8522, -171.8414, 
  -171.8391, -171.8407, -171.8278, -171.8101, -171.8053, -171.7893, -171.7855, -171.7809, -171.7792, -171.7756, 
  -171.7742, -171.7656, -171.7698, -171.7663, -171.7523, -171.7457, -171.7404, -171.7312, -171.7188, -171.7163, 
  -171.7042, -171.7016, -171.6942, -171.6775, -171.6596, -171.6525, -171.6145, -171.6088, -171.6071, -171.5846, 
  -171.5838, -171.5763, -171.5463, -171.5396, -171.5284, -171.521, -171.5007, -171.4939, -171.4385, -171.4324, 
  -171.4234, -171.4255, -171.4241, -171.4283, -171.4283, -171.4337, -171.434, -171.4367, -171.4387, -171.4372, 
  -171.44, -171.4412, -171.4448, -171.4477, -171.4538, -171.4531, -171.4564, -171.458, -171.4627, -171.4701, 
  -171.4705, -171.4745, -171.4746, -171.4799, -171.4816, -171.487, -171.4879, -171.4923, -171.4959, -171.5168, 
  -171.5152, -171.5075, -171.5139, -171.5143, -171.5198, -171.5249, -171.5225, -171.5267, -171.5303, -171.54, 
  -171.5392, -171.5473, -171.5514, -171.5679, -171.5716, -171.5628, -171.5494, -171.5489, -171.5446, -171.5412, 
  -171.5406, -171.5375, -171.5407, -171.5418, -171.5453, -171.5468, -171.5455, -171.5452, -171.5467, -171.5475, 
  -171.5493, -171.5508, -171.5529, -171.5533, -171.5605, -171.5639, -171.5638, -171.5607, -171.5656, -171.5667, 
  -171.5661, -171.5667, -171.5661, -171.5699, -171.5711, -171.57, -171.5705, -171.5699, -171.571, -171.5735, 
  -171.5756, -171.5774, -171.5788, -171.5818, -171.5871, -171.5865, -171.5829, -171.5843, -171.586, -171.5933, 
  -171.5966, -171.5972, -171.6007, -171.6013, -171.6033, -171.6049, -171.6061, -171.6082, -171.6095, -171.6104, 
  -171.6114, -171.6124, -171.6143, -171.6169, -171.6173, -171.6212, -171.6252, -171.6263, -171.6271, -171.6286, 
  -171.6294, -171.6305, -171.63, -171.6309, -171.6313, -171.6322, -171.6335, -171.6372, -171.6376, -171.6406, 
  -171.6443, -171.6494, -171.6501, -171.6568, -171.6594, -171.663, -171.6658, -171.6739, -171.6769, -171.6817, 
  -171.6859, -171.6882, -171.691, -171.6969, -171.6983, -171.7012, -171.7016, -171.7035, -171.7047, -171.7093, 
  -171.7097, -171.7118, -171.7139, -171.7163, -171.7184, -171.7213, -171.7223, -171.7242, -171.7278, -171.7395, 
  -171.7432, -171.7434, -171.7455, -171.7466, -171.7469, -171.7476, -171.7477, -171.7488, -171.749, -171.7518, 
  -171.7564, -171.7572, -171.759, -171.76, -171.7623, -171.762, -171.761, -171.7588, -171.762, -171.7659, 
  -171.7653, -171.7664, -171.7701, -171.7761, -171.7776, -171.7807, -171.7818, -171.781, -171.7812, -171.78, 
  -171.7804, -171.7788, -171.7769, -171.7759, -171.7768, -171.7778, -171.7782, -171.7779, -171.7808, -171.7835, 
  -171.7855, -171.788, -171.7897, -171.7911, -171.7928, -171.7931, -171.7921, -171.7935, -171.7935, -171.7951, 
  -171.797, -171.7991, -171.7982, -171.7989, -171.8003, -171.8024, -171.8008, -171.8033, -171.8019, -171.8032, 
  -171.8039, -171.8051, -171.808, -171.8079, -171.809, -171.8092, -171.8076, -171.8082, -171.8124, -171.8125, 
  -171.8153, -171.8191, -171.8193, -171.8211, -171.8224, -171.8255, -171.8273, -171.8278, -171.8294, -171.8297, 
  -171.8322, -171.8331, -171.8349, -171.836, -171.8371, -171.8381, -171.8378, -171.84, -171.8398, -171.8412, 
  -171.8429, -171.8435, -171.8431, -171.8438, -171.8465, -171.8479, -171.8479, -171.8494, -171.8503, -171.8508, 
  -171.8507, -171.8546, -171.8552, -171.8575, -171.8603, -171.8609, -171.8641, -171.8657, -171.8698, -171.8734, 
  -171.8749, -171.8763, -171.8792, -171.8825, -171.8867, -171.8865, -171.8902, -171.8947, -171.8959, -171.8994, 
  -171.9026, -171.906, -171.9077, -171.9106, -171.9117, -171.9172, -171.9219, -171.9255, -171.9296, -171.9305, 
  -171.9363, -171.9415, -171.9428, -171.9463, -171.9526, -171.9538, -171.956, -171.9567, -171.9618, -171.9635, 
  -171.9704, -171.9711, -171.9734, -172.0114, -172.0187, -172.023, -172.0257, -172.029, -172.0343, -172.0365, 
  -172.0422, -172.0414, -172.0449)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -14.06149, -14.06299, -14.06449, -14.06811, -14.06865, -14.06665, -14.06532, -14.06415, -14.06469, -14.06124, 
  -14.05966, -14.05837, -14.05887, -14.05816, -14.05916)
LONGITUDE_VALUEs <- c(
  -171.4283, -171.4293, -171.4272, -171.4247, -171.4179, -171.4181, -171.4157, -171.416, -171.4185, -171.4203, 
  -171.4177, -171.4203, -171.4245, -171.426, -171.4289)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-14.07011, -14.07552, -14.07581, -14.07219)
LONGITUDE_VALUEs <- c(-171.4086, -171.4084, -171.4104, -171.4142)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-14.01973, -14.02406, -14.02596, -14.02094, -14.01856, -14.01971)
LONGITUDE_VALUEs <- c(-171.4174, -171.417, -171.4144, -171.4149, -171.4142, -171.4161)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-14.01295, -14.01454, -14.01626, -14.01645, -14.01443, -14.01223, -14.01184)
LONGITUDE_VALUEs <- c(-171.4013, -171.4011, -171.3997, -171.3984, -171.4004, -171.3986, -171.3991)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-13.82867, -13.82974, -13.83048, -13.82971, -13.82821, -13.82845, -13.82789)
LONGITUDE_VALUEs <- c(-171.7479, -171.7479, -171.7465, -171.745, -171.7457, -171.7464, -171.7468)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("TOKELAU", "AMERICAN SAMOA", "SAMOA"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3)

Numeric Code (M49_CODE) for MAYOTTE.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "MAYOTTE")
Geo_2 <- GeoDATA %>% filter(NAME == "COMOROS")

##### MAYOTTE #####
LATITUDE_VALUEs <- c(-12.65114, -12.64821, -12.63623, -12.64176, -12.64293, -12.64746, -12.64712, -12.65139, -12.65499, -12.65608)
LONGITUDE_VALUEs <- c(45.03563, 45.04284, 45.02739, 45.02241, 45.01829, 45.01863, 45.02472, 45.03056, 45.02876, 45.03279)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  -12.79916, -12.79975, -12.79414, -12.79263, -12.79113, -12.78786, -12.78351, -12.78527, -12.78242, -12.78284, 
  -12.78033, -12.78004, -12.77698, -12.77568, -12.76844, -12.76313, -12.75953, -12.75873, -12.77179, -12.77338, 
  -12.7761, -12.77891, -12.78305, -12.78579, -12.78659, -12.78945, -12.78946, -12.78862, -12.78716, -12.78698, 
  -12.78546, -12.78435, -12.78178, -12.78024, -12.78102, -12.78312, -12.78403, -12.7842, -12.78574, -12.78775, 
  -12.78807, -12.78737, -12.78843, -12.78998, -12.79067, -12.791, -12.79411, -12.79942, -12.80138, -12.80485, 
  -12.80573, -12.80725, -12.81136, -12.81335, -12.81328, -12.81381, -12.81804, -12.81719, -12.81101, -12.8031)
LONGITUDE_VALUEs <- c(
  45.28737, 45.29295, 45.29758, 45.29423, 45.29578, 45.29372, 45.29745, 45.29968, 45.29981, 45.29633, 
  45.29535, 45.29809, 45.29685, 45.29402, 45.29363, 45.28719, 45.28599, 45.28479, 45.27518, 45.27694, 
  45.27436, 45.27415, 45.27136, 45.2711, 45.26805, 45.2682, 45.26738, 45.26559, 45.26498, 45.26319, 
  45.26304, 45.25891, 45.25792, 45.25611, 45.25442, 45.25425, 45.25654, 45.25844, 45.26064, 45.26014, 
  45.26098, 45.26293, 45.26403, 45.26773, 45.26703, 45.26801, 45.27191, 45.27363, 45.27662, 45.27865, 
  45.27847, 45.27912, 45.27917, 45.28085, 45.28265, 45.28394, 45.28621, 45.28784, 45.28429, 45.28491)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -12.80734, -12.81128, -12.81379, -12.81416, -12.81709, -12.81404, -12.81027, -12.80931, -12.80784, -12.80692, 
  -12.8045)
LONGITUDE_VALUEs <- c(
  45.23104, 45.23215, 45.23035, 45.23254, 45.23322, 45.23971, 45.23988, 45.23704, 45.23764, 45.23627, 
  45.23593)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-12.78051, -12.78178, -12.78024, -12.77892)
LONGITUDE_VALUEs <- c(45.26555, 45.26667, 45.2695, 45.2669)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -12.83867, -12.83406, -12.82837, -12.82235, -12.81933, -12.81172, -12.80134, -12.79498, -12.78318, -12.78652, 
  -12.78125, -12.78067, -12.76409, -12.76217, -12.75815, -12.75229, -12.751, -12.74367, -12.74459, -12.74157, 
  -12.7414, -12.73328, -12.73554, -12.73002, -12.73128, -12.72843, -12.72977, -12.72659, -12.73069, -12.7255, 
  -12.7229, -12.71729, -12.7201, -12.72265, -12.72428, -12.72634, -12.7278, -12.73128, -12.73714, -12.73433, 
  -12.72897, -12.72788, -12.7291, -12.72931, -12.73178, -12.73333, -12.73052, -12.73165, -12.72935, -12.73086, 
  -12.72709, -12.72742, -12.72307, -12.72223, -12.71926, -12.71767, -12.71478, -12.71076, -12.70482, -12.7021, 
  -12.70432, -12.70021, -12.70139, -12.69502, -12.68899, -12.68836, -12.68602, -12.68581, -12.68269, -12.68347, 
  -12.68005, -12.67909, -12.67706, -12.67633, -12.67654, -12.67545, -12.67543, -12.67292, -12.67176, -12.66902, 
  -12.66749, -12.66751, -12.66513, -12.66241, -12.66266, -12.66196, -12.66074, -12.65839, -12.65793, -12.65667, 
  -12.65452, -12.65268, -12.65154, -12.65128, -12.6507, -12.65158, -12.65238, -12.6534, -12.65671, -12.65879, 
  -12.65791, -12.65906, -12.66061, -12.66475, -12.6667, -12.66988, -12.67156, -12.67336, -12.67493, -12.67867, 
  -12.68158, -12.68372, -12.68286, -12.68324, -12.68085, -12.682, -12.68408, -12.68357, -12.68567, -12.68996, 
  -12.69519, -12.69377, -12.69536, -12.69603, -12.70015, -12.69998, -12.70183, -12.7008, -12.70137, -12.69967, 
  -12.70191, -12.70415, -12.70488, -12.70909, -12.70986, -12.7119, -12.71679, -12.71897, -12.72144, -12.72171, 
  -12.72318, -12.72372, -12.72251, -12.72247, -12.72387, -12.72324, -12.72803, -12.73835, -12.73965, -12.74231, 
  -12.74409, -12.74597, -12.74892, -12.75168, -12.75216, -12.75302, -12.75419, -12.75618, -12.75495, -12.75221, 
  -12.75126, -12.7539, -12.75611, -12.75697, -12.75747, -12.75838, -12.75816, -12.76014, -12.76157, -12.76158, 
  -12.7644, -12.76517, -12.76532, -12.76583, -12.76567, -12.767, -12.76536, -12.76507, -12.76441, -12.76571, 
  -12.77006, -12.77136, -12.77056, -12.76832, -12.76635, -12.7661, -12.76717, -12.76497, -12.76642, -12.76991, 
  -12.77316, -12.77359, -12.77768, -12.77811, -12.78, -12.78481, -12.78778, -12.79151, -12.79249, -12.79205, 
  -12.79285, -12.79266, -12.79299, -12.79247, -12.79513, -12.79659, -12.79665, -12.79795, -12.80387, -12.80542, 
  -12.80733, -12.80856, -12.81086, -12.81078, -12.81408, -12.81961, -12.82086, -12.82478, -12.82641, -12.82946, 
  -12.83036, -12.8336, -12.83568, -12.83559, -12.83653, -12.8362, -12.83702, -12.8367, -12.83819, -12.83819, 
  -12.83921, -12.83959, -12.84392, -12.84375, -12.84474, -12.84344, -12.8457, -12.85103, -12.85103, -12.85035, 
  -12.85114, -12.85146, -12.85327, -12.85375, -12.85514, -12.85581, -12.86074, -12.86108, -12.86323, -12.8632, 
  -12.86392, -12.86365, -12.87703, -12.87703, -12.88, -12.88028, -12.88208, -12.88212, -12.88448, -12.88879, 
  -12.89017, -12.89391, -12.89494, -12.89872, -12.90081, -12.90471, -12.90786, -12.90795, -12.91205, -12.91803, 
  -12.92087, -12.92359, -12.92832, -12.93066, -12.93614, -12.93576, -12.93647, -12.933, -12.92895, -12.92874, 
  -12.92539, -12.92359, -12.91866, -12.91058, -12.90414, -12.90084, -12.89849, -12.89866, -12.89761, -12.89841, 
  -12.89745, -12.89895, -12.89791, -12.89941, -12.90226, -12.90255, -12.90652, -12.91295, -12.91318, -12.91615, 
  -12.9173, -12.91817, -12.92217, -12.92219, -12.92612, -12.92788, -12.92813, -12.93014, -12.92941, -12.9278, 
  -12.92719, -12.92514, -12.92514, -12.92621, -12.93087, -12.93221, -12.93313, -12.93631, -12.93656, -12.93892, 
  -12.94049, -12.94126, -12.94434, -12.94724, -12.95458, -12.95613, -12.96222, -12.96337, -12.96142, -12.96671, 
  -12.96437, -12.9645, -12.96115, -12.95948, -12.95764, -12.95835, -12.95737, -12.9568, -12.95786, -12.95968, 
  -12.96019, -12.9638, -12.96813, -12.96922, -12.97014, -12.97161, -12.97456, -12.97722, -12.97929, -12.98223, 
  -12.98498, -12.9869, -12.98939, -12.99153, -12.99417, -12.99295, -12.99122, -12.98547, -12.98131, -12.98055, 
  -12.98273, -12.98463, -12.98681, -12.99093, -12.99402, -12.99502, -12.99603, -12.99502, -12.99504, -12.99101, 
  -12.99256, -13.00013, -12.99948, -13.00036, -12.99868, -12.99304, -12.98902, -12.97999, -12.97658, -12.97514, 
  -12.97867, -12.9806, -12.98467, -12.98879, -12.99237, -12.99536, -12.99454, -12.99212, -12.98568, -12.98386, 
  -12.98754, -12.98748, -12.98518, -12.98377, -12.98202, -12.98162, -12.98074, -12.98099, -12.97802, -12.97495, 
  -12.97407, -12.97439, -12.976, -12.97351, -12.97069, -12.97, -12.96525, -12.95611, -12.95216, -12.95044, 
  -12.94973, -12.94954, -12.94685, -12.94277, -12.94206, -12.94358, -12.939, -12.93495, -12.92982, -12.92522, 
  -12.92545, -12.92426, -12.92449, -12.92338, -12.92275, -12.92146, -12.91799, -12.91667, -12.91723, -12.91688, 
  -12.91786, -12.91912, -12.92035, -12.92006, -12.92056, -12.92018, -12.91987, -12.91993, -12.91937, -12.9182, 
  -12.917, -12.9158, -12.91552, -12.91498, -12.91511, -12.914, -12.9132, -12.91136, -12.90969, -12.90881, 
  -12.90711, -12.90712, -12.90435, -12.90364, -12.90276, -12.90068, -12.89919, -12.89823, -12.89628, -12.89602, 
  -12.89487, -12.89447, -12.89289, -12.89329, -12.89169, -12.89183, -12.89124, -12.89096, -12.89036, -12.88689, 
  -12.88628, -12.88498, -12.88466, -12.88419, -12.88428, -12.88308, -12.88103, -12.88059, -12.87967, -12.87837, 
  -12.87772, -12.8742, -12.87158, -12.87087, -12.87348, -12.86917, -12.86317, -12.86237, -12.86377, -12.86336, 
  -12.86367, -12.86239, -12.86315, -12.86283, -12.86118, -12.8608, -12.85917, -12.8538, -12.85518, -12.85388, 
  -12.85133, -12.85001, -12.8476, -12.84482, -12.84572, -12.84421, -12.8438, -12.84262, -12.84212, -12.84367, 
  -12.8425, -12.83974)
LONGITUDE_VALUEs <- c(
  45.1854, 45.19639, 45.1915, 45.19553, 45.20532, 45.20437, 45.21621, 45.21639, 45.2339, 45.23724, 
  45.23827, 45.23261, 45.23681, 45.24033, 45.23544, 45.23681, 45.23025, 45.22643, 45.22093, 45.2187, 
  45.21244, 45.21338, 45.20814, 45.20377, 45.19398, 45.19046, 45.18652, 45.18308, 45.17827, 45.16965, 
  45.17025, 45.16608, 45.16347, 45.1675, 45.16385, 45.16523, 45.16141, 45.16209, 45.1548, 45.14991, 
  45.15042, 45.14089, 45.13986, 45.1436, 45.14433, 45.14188, 45.13626, 45.13428, 45.13235, 45.13089, 
  45.12948, 45.12518, 45.12656, 45.13093, 45.12917, 45.13041, 45.12934, 45.12363, 45.12355, 45.12621, 
  45.1308, 45.13037, 45.12694, 45.11338, 45.1111, 45.11398, 45.11222, 45.10887, 45.10799, 45.1025, 
  45.10171, 45.10338, 45.10417, 45.1054, 45.10259, 45.10113, 45.09778, 45.09705, 45.08926, 45.08849, 
  45.0901, 45.09145, 45.09465, 45.10194, 45.10456, 45.1057, 45.10263, 45.10226, 45.10279, 45.10269, 
  45.10379, 45.10722, 45.10622, 45.10524, 45.10499, 45.10463, 45.10367, 45.10357, 45.10012, 45.0963, 
  45.09263, 45.09261, 45.09373, 45.09173, 45.08553, 45.08559, 45.08227, 45.08265, 45.08177, 45.08334, 
  45.08066, 45.07647, 45.07581, 45.07285, 45.06665, 45.06634, 45.06898, 45.07059, 45.07306, 45.07319, 
  45.07019, 45.06757, 45.06819, 45.06926, 45.06581, 45.06407, 45.06203, 45.05939, 45.05585, 45.05223, 
  45.05124, 45.04916, 45.05044, 45.05141, 45.05008, 45.04976, 45.04699, 45.04444, 45.04291, 45.03991, 
  45.03995, 45.04223, 45.04497, 45.04967, 45.05244, 45.05467, 45.05796, 45.05106, 45.04617, 45.04474, 
  45.04253, 45.04236, 45.04354, 45.04712, 45.04997, 45.04976, 45.05077, 45.05147, 45.05379, 45.05474, 
  45.06023, 45.06381, 45.06483, 45.06447, 45.06558, 45.06618, 45.06681, 45.0703, 45.07129, 45.07201, 
  45.07405, 45.07374, 45.07456, 45.07506, 45.07585, 45.07914, 45.07987, 45.08039, 45.0805, 45.08632, 
  45.09173, 45.09184, 45.0949, 45.09531, 45.09413, 45.09566, 45.09677, 45.0987, 45.10211, 45.10196, 
  45.10355, 45.10136, 45.10181, 45.10074, 45.10196, 45.09405, 45.09692, 45.09662, 45.09759, 45.09956, 
  45.10091, 45.10257, 45.1051, 45.10722, 45.10847, 45.10486, 45.10149, 45.10014, 45.09939, 45.10038, 
  45.09952, 45.10091, 45.10138, 45.10342, 45.10531, 45.10583, 45.10317, 45.1034, 45.10246, 45.10226, 
  45.10108, 45.10053, 45.10246, 45.1051, 45.10701, 45.1084, 45.10967, 45.11233, 45.114, 45.1151, 
  45.11628, 45.12087, 45.11482, 45.10782, 45.10598, 45.10233, 45.10146, 45.09697, 45.09462, 45.09379, 
  45.09325, 45.09232, 45.09274, 45.09508, 45.09599, 45.09717, 45.10064, 45.10235, 45.10441, 45.10832, 
  45.10954, 45.1113, 45.11885, 45.11986, 45.12147, 45.1228, 45.12355, 45.12666, 45.13007, 45.13153, 
  45.13724, 45.13849, 45.14038, 45.14021, 45.1457, 45.14396, 45.14626, 45.14866, 45.14883, 45.1536, 
  45.15282, 45.15441, 45.15115, 45.15145, 45.14467, 45.13763, 45.13308, 45.12502, 45.1242, 45.11965, 
  45.1142, 45.10605, 45.10313, 45.10184, 45.10347, 45.09974, 45.09944, 45.09459, 45.09317, 45.08798, 
  45.0854, 45.08017, 45.07802, 45.07141, 45.07154, 45.0742, 45.07785, 45.07909, 45.07984, 45.08092, 
  45.08042, 45.08171, 45.08332, 45.0866, 45.08924, 45.08916, 45.08761, 45.08675, 45.09002, 45.09203, 
  45.09446, 45.09598, 45.09842, 45.10021, 45.10351, 45.1034, 45.10407, 45.10278, 45.10173, 45.10111, 
  45.1016, 45.10104, 45.10126, 45.09986, 45.09338, 45.0881, 45.07843, 45.07935, 45.08321, 45.09199, 
  45.09774, 45.09986, 45.10132, 45.10372, 45.10454, 45.10694, 45.10661, 45.10734, 45.10865, 45.1093, 
  45.11014, 45.11037, 45.11029, 45.10922, 45.10948, 45.1089, 45.10609, 45.10745, 45.10718, 45.10813, 
  45.10694, 45.10535, 45.10573, 45.10802, 45.10868, 45.10965, 45.10947, 45.11126, 45.11518, 45.11958, 
  45.12544, 45.12518, 45.12638, 45.1249, 45.12621, 45.12589, 45.12621, 45.12774, 45.12999, 45.13308, 
  45.13913, 45.14145, 45.14565, 45.14829, 45.1522, 45.15507, 45.15812, 45.15617, 45.16037, 45.16642, 
  45.17196, 45.1719, 45.1743, 45.17404, 45.17546, 45.17539, 45.1796, 45.17752, 45.18003, 45.18466, 
  45.19269, 45.19389, 45.19421, 45.19693, 45.1973, 45.19874, 45.19925, 45.20091, 45.20129, 45.20453, 
  45.20389, 45.19805, 45.19674, 45.1917, 45.19018, 45.18483, 45.17767, 45.17518, 45.17029, 45.17013, 
  45.16964, 45.17065, 45.17033, 45.17329, 45.17526, 45.17945, 45.17973, 45.1761, 45.1773, 45.18093, 
  45.18228, 45.18382, 45.18509, 45.18456, 45.18483, 45.1841, 45.18561, 45.18846, 45.1899, 45.19176, 
  45.19563, 45.19644, 45.20039, 45.20209, 45.20337, 45.20517, 45.20503, 45.20446, 45.20366, 45.20316, 
  45.2014, 45.20114, 45.20047, 45.19989, 45.19866, 45.19716, 45.19712, 45.19629, 45.19627, 45.19657, 
  45.19611, 45.19544, 45.19569, 45.19597, 45.19557, 45.19668, 45.19805, 45.19797, 45.1993, 45.20019, 
  45.20099, 45.20316, 45.20491, 45.20591, 45.21018, 45.21092, 45.21121, 45.21183, 45.21147, 45.21565, 
  45.21731, 45.21756, 45.21794, 45.21778, 45.21669, 45.21577, 45.21631, 45.21712, 45.21689, 45.21773, 
  45.21755, 45.22173, 45.22211, 45.22043, 45.2138, 45.20977, 45.21277, 45.21003, 45.20837, 45.20745, 
  45.20644, 45.20543, 45.20479, 45.20232, 45.20277, 45.20108, 45.20256, 45.20056, 45.19807, 45.19657, 
  45.19672, 45.19498, 45.19458, 45.1958, 45.19419, 45.19425, 45.19318, 45.1929, 45.19016, 45.18741, 
  45.18614, 45.18623)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-12.83837, -12.83858, -12.83703, -12.83687, -12.83461, -12.8331, -12.83046, -12.83113, -12.82908)
LONGITUDE_VALUEs <- c(45.18535, 45.1896, 45.19007, 45.19299, 45.19351, 45.1966, 45.19784, 45.19261, 45.19213)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-12.92144, -12.92259, -12.92075, -12.92035, -12.91788, -12.91725)
LONGITUDE_VALUEs <- c(45.13911, 45.14182, 45.14276, 45.14413, 45.14302, 45.14175)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-12.89502, -12.89929, -12.90192, -12.89837, -12.89544)
LONGITUDE_VALUEs <- c(45.23033, 45.22964, 45.23222, 45.23454, 45.23338)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-12.67632, -12.67551, -12.67664, -12.67572, -12.67479, -12.67498, -12.67335, -12.67544, -12.67593, -12.6758)
LONGITUDE_VALUEs <- c(45.11273, 45.11423, 45.11843, 45.118, 45.1182, 45.11597, 45.11346, 45.11075, 45.1112, 45.11217)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-12.67624, -12.67511, -12.67641, -12.67626, -12.67695, -12.67775, -12.67706, -12.67712)
LONGITUDE_VALUEs <- c(45.05934, 45.06007, 45.05631, 45.05513, 45.05524, 45.05715, 45.05882, 45.05975)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-12.67121, -12.67155, -12.67314)
LONGITUDE_VALUEs <- c(45.0487, 45.0461, 45.04962)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-12.93511, -12.93341, -12.93224, -12.9326)
LONGITUDE_VALUEs <- c(45.20236, 45.20274, 45.19933, 45.19761)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-13.0043, -13.0057, -12.99913)
LONGITUDE_VALUEs <- c(45.13642, 45.13798, 45.13927)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### COMOROS #####
LATITUDE_VALUEs <- c(
  -11.59843, -11.67376, -11.68485, -11.702, -11.73023, -11.75746, -11.75914, -11.76553, -11.7736, -11.78099, 
  -11.79645, -11.83341, -11.8613, -11.85559, -11.86399, -11.87575, -11.90632, -11.908, -11.92446, -11.93924, 
  -11.9379, -11.93202, -11.93185, -11.92513, -11.92547, -11.91304, -11.91069, -11.89406, -11.89036, -11.88869, 
  -11.8776, -11.87088, -11.86382, -11.86265, -11.8571, -11.85366, -11.84417, -11.83803, -11.82846, -11.82409, 
  -11.79805, -11.78477, -11.77746, -11.76586, -11.76108, -11.75872, -11.74872, -11.74612, -11.73603, -11.71805, 
  -11.70998, -11.70738, -11.70208, -11.6946, -11.69057, -11.68166, -11.67451, -11.66846, -11.66384, -11.66375, 
  -11.66047, -11.6598, -11.65703, -11.65392, -11.65182, -11.64492, -11.63652, -11.61104, -11.60516, -11.59725, 
  -11.57186, -11.57001, -11.55176, -11.54024, -11.51384, -11.50635, -11.50568, -11.50299, -11.49491, -11.49113, 
  -11.48566, -11.47044, -11.45084, -11.44974, -11.44276, -11.43637, -11.43376, -11.42349, -11.41348, -11.40869, 
  -11.39918, -11.39287, -11.39051, -11.37646, -11.37158, -11.37394, -11.36645, -11.3667, -11.37209, -11.37116, 
  -11.37369, -11.37276, -11.37596, -11.38084, -11.37747, -11.38816, -11.39666, -11.40145, -11.41525, -11.42446, 
  -11.43031, -11.43216, -11.44066, -11.44541, -11.4468, -11.44936, -11.45698, -11.46236, -11.46657, -11.47077, 
  -11.47498, -11.47927, -11.49146, -11.49617, -11.50282, -11.51165, -11.53663, -11.54117, -11.54907, -11.56244, 
  -11.56328, -11.57935, -11.58624, -11.59044)
LONGITUDE_VALUEs <- c(
  43.25938, 43.26624, 43.25251, 43.25079, 43.22744, 43.23431, 43.24186, 43.2374, 43.24118, 43.23912, 
  43.26349, 43.27345, 43.31465, 43.36204, 43.38573, 43.3864, 43.41799, 43.42623, 43.43448, 43.45885, 
  43.47877, 43.48081, 43.48888, 43.48717, 43.49798, 43.50227, 43.49729, 43.51858, 43.51703, 43.50948, 
  43.51085, 43.49815, 43.49668, 43.49342, 43.49248, 43.48449, 43.48389, 43.47857, 43.47557, 43.46835, 
  43.46089, 43.45239, 43.45763, 43.45522, 43.45591, 43.45299, 43.45531, 43.45248, 43.45102, 43.43909, 
  43.43909, 43.43255, 43.43246, 43.42809, 43.43057, 43.42053, 43.4213, 43.41289, 43.41126, 43.40826, 
  43.4074, 43.40234, 43.40285, 43.39916, 43.39994, 43.39496, 43.40002, 43.39058, 43.39786, 43.39374, 
  43.39769, 43.40311, 43.40568, 43.40294, 43.40757, 43.40302, 43.39959, 43.40096, 43.39805, 43.40071, 
  43.39848, 43.40843, 43.4098, 43.41366, 43.41358, 43.41675, 43.41212, 43.41358, 43.40903, 43.40963, 
  43.39847, 43.39985, 43.39624, 43.39581, 43.38372, 43.37608, 43.35427, 43.34089, 43.3366, 43.32792, 
  43.32697, 43.32328, 43.31419, 43.31419, 43.30338, 43.29273, 43.2784, 43.27772, 43.27128, 43.26948, 
  43.27055, 43.26836, 43.26669, 43.2672, 43.26381, 43.263, 43.26775, 43.26853, 43.27153, 43.27067, 
  43.27187, 43.27059, 43.27668, 43.27539, 43.27831, 43.27651, 43.26475, 43.26681, 43.26509, 43.26707, 
  43.27016, 43.26818, 43.26449, 43.26544)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  -12.38477, -12.38108, -12.37807, -12.3727, -12.36096, -12.34486, -12.33832, -12.32457, -12.28113, -12.27442, 
  -12.26855, -12.2647, -12.26105, -12.2613, -12.26, -12.25987, -12.2587, -12.25878, -12.25551, -12.254, 
  -12.25094, -12.2475, -12.24519, -12.24515, -12.24125, -12.23081, -12.22787, -12.21898, -12.21378, -12.20707, 
  -12.19927, -12.19616, -12.19256, -12.19105, -12.18861, -12.16688, -12.15388, -12.15119, -12.14473, -12.13684, 
  -12.13517, -12.13215, -12.13089, -12.12342, -12.11914, -12.11435, -12.10345, -12.0964, -12.07038, -12.06786, 
  -12.0927, -12.10009, -12.11368, -12.12484, -12.13097, -12.15556, -12.15908, -12.15614, -12.16672, -12.1715, 
  -12.1845, -12.18937, -12.19549, -12.19323, -12.19834, -12.19516, -12.19583, -12.19272, -12.19377, -12.19029, 
  -12.1884, -12.18849, -12.18622, -12.18333, -12.18517, -12.18387, -12.18522, -12.18324, -12.18819, -12.18098, 
  -12.17041, -12.17133, -12.16877, -12.16953, -12.16785, -12.16932, -12.1676, -12.17074, -12.1712, -12.16957, 
  -12.17225, -12.1741, -12.17678, -12.1785, -12.18878, -12.18882, -12.19151, -12.19235, -12.19738, -12.20422, 
  -12.21382, -12.21462, -12.22188, -12.22603, -12.22745, -12.23265, -12.23303, -12.23953, -12.24113, -12.23916, 
  -12.23614, -12.23773, -12.23756, -12.23928, -12.24184, -12.24599, -12.24658, -12.2501, -12.25052, -12.25346, 
  -12.25346, -12.26084, -12.26419, -12.28566, -12.28508, -12.28818, -12.28692, -12.29204, -12.29346, -12.2974, 
  -12.30151, -12.30462, -12.31141, -12.31728, -12.31552, -12.32038, -12.32273, -12.33011, -12.34478, -12.34604, 
  -12.35685, -12.36583, -12.36884, -12.37647)
LONGITUDE_VALUEs <- c(
  44.51147, 44.52743, 44.5264, 44.53172, 44.53035, 44.53636, 44.52846, 44.53206, 44.52365, 44.52932, 
  44.52897, 44.53327, 44.53231, 44.53987, 44.54017, 44.5348, 44.53386, 44.53008, 44.53274, 44.5318, 
  44.53235, 44.53184, 44.5333, 44.53051, 44.53051, 44.52643, 44.5288, 44.52141, 44.52133, 44.51815, 
  44.52107, 44.51738, 44.51953, 44.51738, 44.51772, 44.50416, 44.50004, 44.50167, 44.49815, 44.49944, 
  44.49781, 44.49781, 44.49343, 44.49506, 44.48639, 44.48545, 44.49266, 44.4924, 44.47301, 44.46288, 
  44.42031, 44.4196, 44.43273, 44.43282, 44.42158, 44.41934, 44.41025, 44.40476, 44.3924, 44.3918, 
  44.37351, 44.33394, 44.32708, 44.31146, 44.30717, 44.29944, 44.29442, 44.29228, 44.28975, 44.28691, 
  44.28769, 44.28983, 44.28773, 44.28807, 44.28605, 44.28447, 44.28005, 44.2779, 44.2776, 44.24125, 
  44.23756, 44.23439, 44.23284, 44.22829, 44.224, 44.21808, 44.21228, 44.21091, 44.20817, 44.20533, 
  44.20726, 44.20589, 44.20756, 44.21186, 44.22207, 44.22614, 44.22825, 44.23331, 44.2361, 44.25245, 
  44.26546, 44.27125, 44.2876, 44.29159, 44.29842, 44.30644, 44.30902, 44.32082, 44.32944, 44.33287, 
  44.34047, 44.34228, 44.34412, 44.34519, 44.35725, 44.36227, 44.3681, 44.37145, 44.379, 44.38123, 
  44.38475, 44.38758, 44.39419, 44.40432, 44.40707, 44.41119, 44.41746, 44.42656, 44.42638, 44.4305, 
  44.42947, 44.43342, 44.43454, 44.44423, 44.45204, 44.45394, 44.46286, 44.4711, 44.48037, 44.48655, 
  44.49341, 44.49273, 44.49042, 44.49084)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-12.1654, -12.16693, -12.16639, -12.1631, -12.16142, -12.16352, -12.16224)
LONGITUDE_VALUEs <- c(44.19846, 44.20063, 44.20498, 44.2064, 44.20481, 44.20159, 44.20028)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -12.2524, -12.2498, -12.25827, -12.2571, -12.26398, -12.2722, -12.27278, -12.28369, -12.2862, -12.28872, 
  -12.30893, -12.31488, -12.31606, -12.32075, -12.31991, -12.32386, -12.32017, -12.33207, -12.33702, -12.33819, 
  -12.34926, -12.35027, -12.35714, -12.35907, -12.36025, -12.35974, -12.35563, -12.36486, -12.36217, -12.36419, 
  -12.36016, -12.36125, -12.35848, -12.35949, -12.35882, -12.36142, -12.35857, -12.35924, -12.36754, -12.37073, 
  -12.36025, -12.36217, -12.37114, -12.36746, -12.37064, -12.36712, -12.36553, -12.36142, -12.35874, -12.36318, 
  -12.36175, -12.36628, -12.36754, -12.38087, -12.38087, -12.36913, -12.36846, -12.3745, -12.37458, -12.38037, 
  -12.37685, -12.38322, -12.38238, -12.38439, -12.38447, -12.38682, -12.38515, -12.39168, -12.39051, -12.38548, 
  -12.37441, -12.37039, -12.36637, -12.36544, -12.36234, -12.36184, -12.35698, -12.35605, -12.35195, -12.35069, 
  -12.34767, -12.34817, -12.3418, -12.3423, -12.32931, -12.33006, -12.32696, -12.32486, -12.32184, -12.32503, 
  -12.30885, -12.30933, -12.30593, -12.30589, -12.3009, -12.29851, -12.29365, -12.29445, -12.29264, -12.29373, 
  -12.29327, -12.29168, -12.29197, -12.28715, -12.27891, -12.27461, -12.27117, -12.27344, -12.27163, -12.2601, 
  -12.26052, -12.25763, -12.25478, -12.25771, -12.25687, -12.25851, -12.25599, -12.25297, -12.25226, -12.25054, 
  -12.24958)
LONGITUDE_VALUEs <- c(
  43.65362, 43.64881, 43.64237, 43.63173, 43.62598, 43.62572, 43.6234, 43.62529, 43.62186, 43.62701, 
  43.63645, 43.63671, 43.63945, 43.63739, 43.64083, 43.64452, 43.65036, 43.6646, 43.66383, 43.66821, 
  43.66744, 43.66435, 43.66374, 43.65799, 43.65885, 43.66632, 43.67147, 43.67482, 43.68117, 43.68495, 
  43.68709, 43.69172, 43.69284, 43.69542, 43.70048, 43.70374, 43.70615, 43.71585, 43.71276, 43.72168, 
  43.72091, 43.73507, 43.74434, 43.74537, 43.74752, 43.74889, 43.74383, 43.74323, 43.75258, 43.75224, 
  43.75756, 43.76072, 43.76939, 43.77668, 43.77857, 43.77591, 43.78337, 43.78818, 43.81496, 43.81436, 
  43.81942, 43.83616, 43.83951, 43.84054, 43.84449, 43.84706, 43.85547, 43.86543, 43.87049, 43.86663, 
  43.87049, 43.86937, 43.87057, 43.86895, 43.86895, 43.86457, 43.86388, 43.86054, 43.86045, 43.85788, 
  43.85951, 43.85565, 43.85264, 43.84801, 43.8317, 43.82758, 43.8257, 43.81479, 43.81247, 43.80621, 
  43.78776, 43.78465, 43.77976, 43.77628, 43.77289, 43.77332, 43.76955, 43.7677, 43.7662, 43.76298, 
  43.75671, 43.75607, 43.75401, 43.75126, 43.73806, 43.73697, 43.73315, 43.72462, 43.71388, 43.69569, 
  43.69105, 43.67874, 43.67329, 43.66814, 43.66363, 43.66316, 43.65981, 43.66136, 43.65955, 43.65912, 
  43.65651)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -12.3983, -12.39945, -12.40276, -12.40392, -12.40478, -12.40195, -12.40155, -12.40025, -12.39941, -12.39832, 
  -12.39853, -12.3978)
LONGITUDE_VALUEs <- c(
  43.64004, 43.64062, 43.63818, 43.64114, 43.64144, 43.64402, 43.64552, 43.6458, 43.64665, 43.64498, 
  43.64378, 43.64232)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -12.38914, -12.3886, -12.38948, -12.38923, -12.38759, -12.38292, -12.38137, -12.38204, -12.38305, -12.38474, 
  -12.38641)
LONGITUDE_VALUEs <- c(
  43.73843, 43.74047, 43.74203, 43.7427, 43.74073, 43.73793, 43.73542, 43.73524, 43.73612, 43.73476, 
  43.73533)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -12.41162, -12.41648, -12.41786, -12.41979, -12.41983, -12.41652, -12.41598, -12.41233, -12.40977, -12.40499, 
  -12.40093, -12.40202, -12.40424, -12.40751, -12.4081, -12.41002)
LONGITUDE_VALUEs <- c(
  43.72119, 43.72127, 43.7229, 43.72316, 43.72479, 43.72376, 43.72587, 43.72638, 43.72097, 43.71951, 
  43.71548, 43.71488, 43.71634, 43.71565, 43.71741, 43.71758)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -12.41769, -12.41962, -12.41962, -12.42029, -12.41614, -12.41384, -12.41074, -12.40914, -12.40722, -12.40579, 
  -12.40374, -12.39804, -12.39556, -12.39692, -12.39574, -12.39545, -12.39467, -12.39501, -12.39006, -12.394, 
  -12.39565, -12.39695, -12.39774, -12.39996, -12.40261, -12.41547)
LONGITUDE_VALUEs <- c(
  43.70617, 43.70608, 43.7081, 43.70951, 43.70964, 43.70763, 43.70921, 43.70857, 43.70857, 43.70741, 
  43.70866, 43.70604, 43.70999, 43.71075, 43.71227, 43.71491, 43.71461, 43.71133, 43.70395, 43.69983, 
  43.70123, 43.70127, 43.70235, 43.70273, 43.70651, 43.70406)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -12.40831, -12.41216, -12.41074, -12.40336, -12.40051, -12.4016, -12.41438, -12.41375, -12.41681, -12.42268, 
  -12.42067, -12.41551, -12.41191, -12.40852, -12.40395, -12.39967, -12.39598, -12.39401, -12.39683, -12.39993, 
  -12.40056, -12.4, -12.40551, -12.40802, -12.41071, -12.41203, -12.41297, -12.41203, -12.40878)
LONGITUDE_VALUEs <- c(
  43.65548, 43.65724, 43.65926, 43.66115, 43.66385, 43.66733, 43.66681, 43.66892, 43.67128, 43.67166, 
  43.67407, 43.67171, 43.67299, 43.67012, 43.67218, 43.67218, 43.67583, 43.67441, 43.66843, 43.66487, 
  43.66137, 43.65981, 43.65704, 43.65067, 43.65118, 43.65041, 43.6503, 43.65178, 43.65335)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("MAYOTTE", "COMOROS"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2)

Numeric Code (M49_CODE) for RÉUNION.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "RÉUNION")
Geo_2 <- GeoDATA %>% filter(NAME == "MAURITIUS")

##### RÉUNION #####
LATITUDE_VALUEs <- c(
  -21.36542, -21.35455, -21.34895, -21.332, -21.32241, -21.29374, -21.2879, -21.27702, -21.27086, -21.26135, 
  -21.22607, -21.22031, -21.21398, -21.20854, -21.20766, -21.20126, -21.18582, -21.18654, -21.18326, -21.17645, 
  -21.16557, -21.16445, -21.15996, -21.15204, -21.14372, -21.13859, -21.13987, -21.13603, -21.13259, -21.1246, 
  -21.12572, -21.12316, -21.1051, -21.09946, -21.08957, -21.07595, -21.05909, -21.04928, -21.0454, -21.03915, 
  -21.03919, -21.03118, -21.02757, -21.02116, -21.0194, -21.01784, -20.97303, -20.96423, -20.95852, -20.94409, 
  -20.93078, -20.92533, -20.91307, -20.90994, -20.89551, -20.89791, -20.89286, -20.89166, -20.89551, -20.8939, 
  -20.8911, -20.88741, -20.88171, -20.8862, -20.88452, -20.87145, -20.8769, -20.87409, -20.87393, -20.88195, 
  -20.88885, -20.89206, -20.89551, -20.89807, -20.90681, -20.91162, -20.92213, -20.92878, -20.93543, -20.93287, 
  -20.92774, -20.92934, -20.92309, -20.92605, -20.93391, -20.93712, -20.94802, -20.95467, -20.97671, -20.99875, 
  -21.01093, -21.02014, -21.0175, -21.03889, -21.05403, -21.05771, -21.0783, -21.09135, -21.11049, -21.11321, 
  -21.12026, -21.12394, -21.12688, -21.12708, -21.13064, -21.13172, -21.14964, -21.15412, -21.16341, -21.16549, 
  -21.18326, -21.20366, -21.20758, -21.23047, -21.24007, -21.24479, -21.24687, -21.25279, -21.25875, -21.26524, 
  -21.26968, -21.27256, -21.27796, -21.27864, -21.28176, -21.28096, -21.28768, -21.29603, -21.30975, -21.31387, 
  -21.3197, -21.32606, -21.32858, -21.33138, -21.3349, -21.33543, -21.33688, -21.33818, -21.34152, -21.34216, 
  -21.34474, -21.34408, -21.34642, -21.3481, -21.35011, -21.35167, -21.35193, -21.34986, -21.35069, -21.34984, 
  -21.35004, -21.35101, -21.35055, -21.35139, -21.35443, -21.35397, -21.35845, -21.35819, -21.36131, -21.36131, 
  -21.36362, -21.36312, -21.36402, -21.36524, -21.36558, -21.36654, -21.36662, -21.368, -21.36766, -21.37148, 
  -21.37366, -21.37441, -21.3723, -21.37266, -21.37102, -21.37244, -21.3722, -21.37312, -21.37238, -21.37392, 
  -21.37519, -21.37617, -21.37575, -21.37575, -21.37425, -21.37431, -21.37226, -21.3726, -21.37146, -21.37461, 
  -21.37623, -21.37731, -21.37875, -21.37847, -21.37951, -21.38375, -21.38459, -21.38559, -21.38565, -21.3874, 
  -21.38639, -21.38543, -21.38315, -21.38247, -21.38265, -21.38367, -21.38571, -21.38736, -21.3885, -21.38958, 
  -21.38872, -21.38898, -21.38792, -21.38685, -21.38257, -21.38233, -21.38345, -21.38311, -21.38363, -21.38377, 
  -21.38171, -21.38167, -21.37881, -21.37959, -21.37893, -21.37669, -21.37468, -21.37458, -21.37596, -21.37538, 
  -21.37691, -21.37594, -21.37642, -21.37486, -21.37508, -21.3738, -21.3727, -21.36928, -21.36984, -21.36852, 
  -21.36904, -21.36644, -21.3634, -21.3628, -21.36428, -21.36332, -21.36568, -21.3648)
LONGITUDE_VALUEs <- c(
  55.77443, 55.78936, 55.79845, 55.80944, 55.8048, 55.80519, 55.80879, 55.80296, 55.80416, 55.8015, 
  55.80931, 55.81334, 55.81411, 55.81815, 55.82201, 55.82579, 55.8251, 55.83171, 55.83737, 55.83359, 
  55.83248, 55.8354, 55.83462, 55.8275, 55.82621, 55.81694, 55.81497, 55.80776, 55.80699, 55.79521, 
  55.78598, 55.78096, 55.77006, 55.76143, 55.75693, 55.74255, 55.73032, 55.73268, 55.72646, 55.72392, 
  55.72281, 55.71779, 55.70775, 55.70474, 55.70534, 55.70259, 55.69979, 55.69659, 55.6912, 55.68339, 
  55.66803, 55.6661, 55.64257, 55.61896, 55.59116, 55.5824, 55.57185, 55.55674, 55.55064, 55.53837, 
  55.53768, 55.51727, 55.50387, 55.48781, 55.46987, 55.44945, 55.44009, 55.43391, 55.42122, 55.39461, 
  55.38791, 55.37873, 55.37615, 55.36808, 55.36191, 55.35161, 55.34474, 55.32517, 55.32491, 55.31908, 
  55.31908, 55.30439, 55.2892, 55.28336, 55.28389, 55.28114, 55.28071, 55.27684, 55.28286, 55.27857, 
  55.26544, 55.24749, 55.23521, 55.21565, 55.22398, 55.22166, 55.22012, 55.2305, 55.25497, 55.25264, 
  55.25977, 55.26131, 55.26436, 55.26694, 55.26814, 55.27132, 55.27162, 55.28269, 55.28801, 55.28569, 
  55.28715, 55.2814, 55.28561, 55.29342, 55.31101, 55.31307, 55.3196, 55.32123, 55.33196, 55.3317, 
  55.33466, 55.33191, 55.33504, 55.33779, 55.34032, 55.34294, 55.3798, 55.39779, 55.41015, 55.4107, 
  55.41662, 55.42882, 55.44946, 55.45517, 55.45384, 55.45501, 55.45622, 55.45615, 55.45986, 55.46416, 
  55.46997, 55.47888, 55.48062, 55.47843, 55.48368, 55.48388, 55.48473, 55.48772, 55.49033, 55.49265, 
  55.49572, 55.49649, 55.49997, 55.50353, 55.50602, 55.50802, 55.516, 55.51892, 55.52385, 55.52598, 
  55.5331, 55.53589, 55.53855, 55.53894, 55.54025, 55.54104, 55.54222, 55.54333, 55.54511, 55.55003, 
  55.54956, 55.55108, 55.55246, 55.55383, 55.55389, 55.55726, 55.55889, 55.55994, 55.56387, 55.56743, 
  55.56801, 55.57297, 55.57395, 55.57543, 55.5773, 55.57837, 55.58262, 55.58393, 55.58662, 55.58957, 
  55.5897, 55.59428, 55.59511, 55.59816, 55.59964, 55.60226, 55.60522, 55.60605, 55.60758, 55.61015, 
  55.61191, 55.61983, 55.62314, 55.62903, 55.63749, 55.64073, 55.64373, 55.64285, 55.64506, 55.64644, 
  55.64794, 55.64919, 55.65013, 55.64989, 55.65944, 55.66397, 55.66575, 55.66723, 55.6674, 55.67146, 
  55.67307, 55.67466, 55.67545, 55.67691, 55.67805, 55.67717, 55.68049, 55.6856, 55.69356, 55.69807, 
  55.70103, 55.706, 55.7089, 55.71137, 55.71682, 55.71864, 55.72261, 55.72819, 55.73227, 55.73472, 
  55.74343, 55.75304, 55.75492, 55.75698, 55.7605, 55.76445, 55.76849, 55.7727)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  -21.37585, -21.37638, -21.37682, -21.37729, -21.37804, -21.37816, -21.37754, -21.37746, -21.37766, -21.37709, 
  -21.37682, -21.37657, -21.37636, -21.37606)
LONGITUDE_VALUEs <- c(
  55.56823, 55.56785, 55.56786, 55.5672, 55.56688, 55.56711, 55.56742, 55.56787, 55.56824, 55.56882, 
  55.5685, 55.56892, 55.56886, 55.56902)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### MAURITIUS #####
LATITUDE_VALUEs <- c(
  -10.33711, -10.35079, -10.37181, -10.38135, -10.39038, -10.40271, -10.41512, -10.42533, -10.4334, -10.41623, 
  -10.39857, -10.38532, -10.37375, -10.3583, -10.34285, -10.33702)
LONGITUDE_VALUEs <- c(
  56.58695, 56.58523, 56.59905, 56.60188, 56.60909, 56.61493, 56.62634, 56.63287, 56.64627, 56.64069, 
  56.626, 56.62025, 56.61227, 56.60634, 56.59741, 56.59004)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  -10.44324, -10.44455, -10.45446, -10.46493, -10.47375, -10.47907, -10.48751, -10.49076, -10.49105, -10.48481, 
  -10.47894, -10.47438, -10.47341, -10.46907, -10.46785, -10.46485, -10.46304, -10.46169, -10.45736, -10.45362, 
  -10.45354)
LONGITUDE_VALUEs <- c(
  56.65893, 56.65889, 56.67073, 56.67652, 56.67884, 56.67867, 56.68176, 56.68601, 56.68914, 56.70099, 
  56.70369, 56.70442, 56.70262, 56.70227, 56.70114, 56.69998, 56.69822, 56.6976, 56.69129, 56.68245, 
  56.68059)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -16.41494, -16.42943, -16.5588, -16.61934, -16.63118, -16.68809, -16.72031, -16.70519, -16.70782, -16.76009, 
  -16.80973, -16.80611, -16.82386, -16.83832, -16.80348, -16.75944, -16.67394, -16.57756, -16.55386, -16.51667, 
  -16.48277)
LONGITUDE_VALUEs <- c(
  59.60726, 59.59936, 59.644, 59.63095, 59.66356, 59.64023, 59.59114, 59.57226, 59.55991, 59.55853, 
  59.51904, 59.49982, 59.4655, 59.48335, 59.57911, 59.60556, 59.69412, 59.71987, 59.70786, 59.72296, 
  59.71095)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -19.70222, -19.68985, -19.69042, -19.68444, -19.68484, -19.6804, -19.68072, -19.67838, -19.67967, -19.67684, 
  -19.67708, -19.66738, -19.67369, -19.67288, -19.66827, -19.66989, -19.66868, -19.672, -19.6815, -19.68142, 
  -19.68449, -19.68748, -19.68845, -19.69103, -19.68982, -19.69148, -19.68946, -19.68784, -19.6842, -19.68529, 
  -19.68889, -19.68812, -19.69127, -19.68978, -19.69168, -19.69717, -19.69863, -19.69738, -19.69855, -19.70235, 
  -19.70226, -19.7114, -19.71111, -19.70954, -19.7078, -19.71313, -19.71022, -19.71224, -19.7137, -19.71701, 
  -19.71725, -19.71491, -19.71386, -19.71417, -19.71259, -19.71199, -19.71364, -19.71263, -19.71552, -19.71431, 
  -19.71457, -19.71742, -19.71797, -19.71459, -19.71815, -19.71726, -19.72067, -19.72302, -19.72349, -19.72481, 
  -19.7257, -19.72637, -19.72826, -19.72946, -19.73101, -19.7296, -19.7296, -19.72889, -19.72871, -19.72939, 
  -19.73032, -19.73144, -19.73241, -19.73305, -19.73405, -19.73522, -19.73709, -19.73731, -19.73955, -19.7377, 
  -19.73802, -19.7389, -19.74156, -19.74335, -19.74369, -19.74455, -19.74519, -19.74536, -19.74613, -19.74606, 
  -19.74752, -19.74874, -19.7489, -19.74945, -19.74875, -19.7487, -19.74972, -19.74949, -19.74979, -19.74973, 
  -19.75025, -19.74946, -19.74807, -19.74711, -19.74591, -19.74552, -19.74645, -19.74587, -19.74443, -19.74354, 
  -19.74366, -19.74307, -19.74245, -19.7427, -19.74438, -19.74429, -19.74376, -19.74312, -19.74207, -19.74093, 
  -19.7396, -19.73923, -19.73703, -19.7362, -19.73812, -19.74142, -19.74416, -19.74491, -19.748, -19.748, 
  -19.74735, -19.74729, -19.74493, -19.74588, -19.74752, -19.74758, -19.74889, -19.7521, -19.75479, -19.76381, 
  -19.76404, -19.76516, -19.77146, -19.77009, -19.76953, -19.76815, -19.76799, -19.7652, -19.76585, -19.76331, 
  -19.76234, -19.76319, -19.76201, -19.7631, -19.76177, -19.76375, -19.76226, -19.76294, -19.76125, -19.75987, 
  -19.75765, -19.75551, -19.75321, -19.75212, -19.75058, -19.74905, -19.74776, -19.74824, -19.74513, -19.74558, 
  -19.74432, -19.7459, -19.74323, -19.74723, -19.74404, -19.74412, -19.74299, -19.74319, -19.74178, -19.74287, 
  -19.74126, -19.74505, -19.74481, -19.73904, -19.74174, -19.7354, -19.73249, -19.72805, -19.72792, -19.72871, 
  -19.7257, -19.72612, -19.72481, -19.72489, -19.72294, -19.72258, -19.72049, -19.72084, -19.71997, -19.72021, 
  -19.71864, -19.71827, -19.71302, -19.71163, -19.71084, -19.70431, -19.70431, -19.70296, -19.70351)
LONGITUDE_VALUEs <- c(
  63.4958, 63.49855, 63.50172, 63.49898, 63.4952, 63.49134, 63.48936, 63.48344, 63.4813, 63.47907, 
  63.47538, 63.45607, 63.44929, 63.44689, 63.44749, 63.44457, 63.44122, 63.43728, 63.41788, 63.41377, 
  63.41102, 63.4114, 63.40951, 63.40994, 63.40814, 63.40685, 63.40522, 63.40685, 63.40325, 63.39896, 
  63.4002, 63.39578, 63.39317, 63.38977, 63.38737, 63.39162, 63.38827, 63.38591, 63.38303, 63.3811, 
  63.3784, 63.379, 63.37368, 63.37377, 63.3699, 63.36707, 63.36471, 63.36394, 63.36492, 63.36291, 
  63.36059, 63.35945, 63.36039, 63.36189, 63.36275, 63.36185, 63.36024, 63.357, 63.35562, 63.35421, 
  63.34964, 63.34947, 63.3479, 63.34446, 63.34148, 63.33983, 63.33449, 63.33464, 63.33398, 63.33457, 
  63.33394, 63.33581, 63.33579, 63.33452, 63.33547, 63.33617, 63.33697, 63.33718, 63.33793, 63.33868, 
  63.33819, 63.33862, 63.3384, 63.33641, 63.33818, 63.33704, 63.33803, 63.33936, 63.33874, 63.33408, 
  63.33128, 63.33038, 63.33114, 63.3309, 63.33289, 63.33347, 63.33317, 63.33393, 63.33352, 63.33445, 
  63.33396, 63.33465, 63.33624, 63.3369, 63.33781, 63.33885, 63.34, 63.34102, 63.34135, 63.34246, 
  63.34317, 63.34412, 63.34291, 63.34158, 63.34222, 63.34326, 63.34418, 63.34554, 63.34673, 63.34644, 
  63.34699, 63.34772, 63.34992, 63.35062, 63.351, 63.35173, 63.35184, 63.35341, 63.35378, 63.35552, 
  63.35573, 63.35818, 63.35833, 63.36032, 63.36174, 63.35947, 63.36129, 63.36305, 63.3618, 63.3608, 
  63.36054, 63.3597, 63.35934, 63.35809, 63.35788, 63.35504, 63.35371, 63.35429, 63.3532, 63.35964, 
  63.36488, 63.36481, 63.38186, 63.3819, 63.38005, 63.37993, 63.37679, 63.37722, 63.37881, 63.38031, 
  63.38373, 63.38597, 63.38713, 63.38944, 63.39103, 63.3952, 63.39528, 63.39752, 63.39915, 63.39584, 
  63.39739, 63.3967, 63.39735, 63.39533, 63.39666, 63.39279, 63.39558, 63.39807, 63.40477, 63.40669, 
  63.41017, 63.41318, 63.41949, 63.42284, 63.42494, 63.42961, 63.43171, 63.43515, 63.43781, 63.44009, 
  63.44485, 63.44678, 63.44966, 63.45536, 63.46854, 63.47489, 63.48017, 63.48322, 63.48439, 63.48477, 
  63.48852, 63.48941, 63.49073, 63.4916, 63.49291, 63.49383, 63.49499, 63.49643, 63.49699, 63.49828, 
  63.49952, 63.50072, 63.50188, 63.50128, 63.50212, 63.49978, 63.49853, 63.4978, 63.49694)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -19.77142, -19.77242, -19.77481, -19.77566, -19.77505, -19.77582, -19.77885, -19.7786, -19.77671, -19.77679, 
  -19.77582, -19.77372, -19.77186)
LONGITUDE_VALUEs <- c(
  63.43092, 63.43037, 63.43346, 63.43324, 63.43165, 63.4314, 63.43547, 63.4377, 63.43672, 63.43869, 
  63.43869, 63.43453, 63.43453)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -19.76956, -19.76789, -19.76528, -19.76708, -19.76805, -19.76894, -19.77227, -19.77332, -19.77322, -19.77368, 
  -19.77294, -19.77106)
LONGITUDE_VALUEs <- c(
  63.41724, 63.41752, 63.41012, 63.41098, 63.41314, 63.41353, 63.41838, 63.41784, 63.42106, 63.4243, 
  63.42481, 63.41954)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-19.76779, -19.7701, -19.77187, -19.77389, -19.77474, -19.77201, -19.77102, -19.77014, -19.77149, -19.76935)
LONGITUDE_VALUEs <- c(63.36029, 63.35785, 63.35875, 63.35763, 63.36008, 63.36437, 63.363, 63.36427, 63.36633, 63.36708)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-19.84299, -19.84816, -19.85631, -19.85946, -19.85324, -19.84848, -19.84444, -19.84275)
LONGITUDE_VALUEs <- c(57.78548, 57.78162, 57.78042, 57.78823, 57.79535, 57.79132, 57.79672, 57.79321)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-19.86753, -19.8819, -19.88464, -19.88182, -19.86931)
LONGITUDE_VALUEs <- c(57.65407, 57.64755, 57.65493, 57.66617, 57.66111)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -20.46002, -20.47794, -20.47995, -20.48654, -20.48919, -20.48549, -20.49032, -20.49964, -20.50021, -20.50447, 
  -20.50608, -20.51219, -20.50977, -20.50085, -20.50423, -20.50246, -20.5076, -20.51042, -20.51604, -20.51677, 
  -20.51974, -20.51717, -20.52312, -20.51797, -20.52561, -20.52103, -20.52047, -20.51564, -20.51709, -20.51323, 
  -20.51331, -20.50133, -20.50182, -20.4941, -20.49522, -20.49152, -20.47593, -20.4715, -20.46837, -20.45767, 
  -20.45767, -20.45285, -20.44899, -20.44456, -20.44505, -20.44078, -20.44296, -20.43918, -20.44408, -20.44255, 
  -20.44617, -20.43604, -20.42655, -20.4169, -20.41995, -20.40185, -20.40201, -20.39791, -20.3951, -20.39429, 
  -20.39067, -20.38898, -20.37394, -20.37112, -20.3683, -20.36975, -20.37369, -20.37868, -20.37868, -20.3749, 
  -20.37571, -20.36283, -20.35229, -20.35285, -20.34843, -20.33724, -20.33982, -20.3345, -20.33241, -20.3263, 
  -20.31833, -20.31511, -20.30271, -20.29739, -20.28967, -20.29442, -20.28991, -20.27904, -20.27494, -20.27228, 
  -20.26721, -20.26213, -20.25924, -20.25175, -20.24394, -20.2391, -20.23696, -20.23197, -20.22488, -20.22206, 
  -20.21614, -20.21586, -20.2052, -20.20463, -20.19916, -20.19545, -20.18812, -20.18482, -20.17386, -20.16701, 
  -20.16741, -20.16065, -20.15912, -20.16564, -20.16927, -20.16129, -20.16677, -20.1654, -20.16113, -20.1592, 
  -20.15549, -20.15549, -20.1484, -20.14365, -20.14066, -20.1426, -20.13752, -20.1318, -20.1268, -20.10811, 
  -20.09948, -20.0865, -20.08683, -20.07747, -20.07385, -20.07128, -20.06563, -20.05797, -20.05668, -20.04636, 
  -20.04403, -20.03645, -20.0312, -20.02983, -20.00887, -20.00548, -19.99983, -20.00104, -19.99685, -20.00338, 
  -19.99999, -19.99217, -19.99354, -19.98604, -19.98604, -19.98168, -19.98652, -19.98475, -19.99032, -19.99451, 
  -19.99507, -19.99903, -20.00072, -20.00395, -20.00838, -20.0108, -20.01467, -20.0162, -20.01387, -20.01548, 
  -20.01008, -20.00548, -20.00266, -20.00362, -20.00007, -20.00532, -20.00758, -20.01846, -20.02733, -20.04144, 
  -20.04765, -20.06824, -20.07759, -20.08759, -20.09258, -20.10661, -20.11128, -20.12595, -20.1382, -20.14455, 
  -20.15889, -20.16131, -20.1485, -20.15237, -20.15648, -20.16373, -20.16945, -20.17049, -20.16727, -20.16373, 
  -20.17398, -20.1745, -20.18619, -20.18854, -20.20087, -20.20546, -20.21689, -20.21609, -20.24275, -20.25019, 
  -20.28481, -20.3154, -20.32136, -20.32631, -20.3338, -20.3548, -20.35714, -20.35987, -20.36003, -20.36655, 
  -20.37146, -20.37934, -20.38369, -20.38272, -20.38634, -20.38667, -20.39415, -20.39519, -20.40131, -20.4042, 
  -20.41, -20.41096, -20.41522, -20.41756, -20.41989, -20.44537, -20.44183, -20.43475, -20.43306, -20.4666, 
  -20.46877, -20.46025)
LONGITUDE_VALUEs <- c(
  57.33784, 57.34873, 57.35345, 57.35336, 57.36444, 57.37122, 57.37285, 57.38984, 57.39628, 57.39868, 
  57.40709, 57.41679, 57.43945, 57.44692, 57.44932, 57.45404, 57.45713, 57.4688, 57.47095, 57.4767, 
  57.4828, 57.50202, 57.51369, 57.5209, 57.52683, 57.54279, 57.55205, 57.55489, 57.56631, 57.57524, 
  57.58519, 57.60107, 57.60811, 57.62639, 57.63291, 57.64056, 57.6808, 57.67746, 57.68536, 57.69334, 
  57.69952, 57.69986, 57.70733, 57.70535, 57.69892, 57.69918, 57.70458, 57.70227, 57.71153, 57.71497, 
  57.71728, 57.72745, 57.72831, 57.71525, 57.71225, 57.70933, 57.70023, 57.69963, 57.69302, 57.70143, 
  57.6992, 57.70289, 57.70375, 57.70144, 57.70324, 57.71002, 57.71363, 57.71286, 57.71698, 57.72316, 
  57.72891, 57.74212, 57.74616, 57.76256, 57.76546, 57.76443, 57.77809, 57.7792, 57.76761, 57.77199, 
  57.76933, 57.78092, 57.78109, 57.77212, 57.78101, 57.78865, 57.79268, 57.78933, 57.79483, 57.79002, 
  57.79843, 57.79775, 57.79302, 57.79911, 57.78726, 57.78829, 57.80158, 57.80699, 57.80416, 57.80038, 
  57.79768, 57.79369, 57.79053, 57.78555, 57.78298, 57.77714, 57.7737, 57.77517, 57.77088, 57.77182, 
  57.76641, 57.76306, 57.75346, 57.75878, 57.75732, 57.75054, 57.75019, 57.74573, 57.74719, 57.74152, 
  57.74058, 57.74891, 57.7477, 57.73929, 57.74659, 57.74985, 57.75457, 57.75243, 57.7581, 57.74685, 
  57.70924, 57.71019, 57.70289, 57.70007, 57.69045, 57.69209, 57.68728, 57.68822, 57.68075, 57.68753, 
  57.68359, 57.68651, 57.67869, 57.68341, 57.68178, 57.66324, 57.6623, 57.65766, 57.65432, 57.64985, 
  57.64204, 57.6362, 57.63225, 57.63336, 57.6211, 57.61079, 57.60478, 57.60066, 57.59173, 57.5908, 
  57.58342, 57.58394, 57.58084, 57.58041, 57.57672, 57.58445, 57.58342, 57.57775, 57.57415, 57.569, 
  57.56676, 57.57157, 57.5702, 57.56032, 57.55285, 57.55139, 57.55517, 57.55757, 57.54642, 57.54163, 
  57.52376, 57.51832, 57.51059, 57.51574, 57.50682, 57.51764, 57.50149, 57.496, 57.49824, 57.48454, 
  57.5012, 57.49974, 57.47991, 57.47664, 57.48171, 57.47656, 57.47725, 57.47261, 57.47347, 57.46557, 
  57.44007, 57.43135, 57.42157, 57.4152, 57.40146, 57.40481, 57.40137, 57.39433, 57.38103, 57.38408, 
  57.36295, 57.36641, 57.37929, 57.37812, 57.36473, 57.36095, 57.36378, 57.36507, 57.36979, 57.37211, 
  57.35957, 57.35906, 57.36164, 57.3704, 57.374, 57.37838, 57.37624, 57.36696, 57.37057, 57.36825, 
  57.36919, 57.36627, 57.36765, 57.36404, 57.36421, 57.34432, 57.32121, 57.32464, 57.32147, 57.3073, 
  57.3152, 57.3213)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-19.75386, -19.75443, -19.75842, -19.75871, -19.75665)
LONGITUDE_VALUEs <- c(63.34309, 63.34163, 63.34107, 63.34244, 63.3445)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-19.71538, -19.71652, -19.72571, -19.7287, -19.72859, -19.72163, -19.71753)
LONGITUDE_VALUEs <- c(63.30099, 63.30004, 63.29822, 63.2988, 63.2997, 63.30015, 63.30125)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-19.70553, -19.70543, -19.70369, -19.69924, -19.69829, -19.70328)
LONGITUDE_VALUEs <- c(63.30521, 63.30644, 63.30605, 63.30669, 63.30607, 63.30485)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-16.23375, -16.23943, -16.24908, -16.24207)
LONGITUDE_VALUEs <- c(59.59287, 59.58377, 59.59064, 59.60162)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-16.59371, -16.60037, -16.61188, -16.60942, -16.60415, -16.5979)
LONGITUDE_VALUEs <- c(59.51279, 59.50618, 59.5236, 59.52575, 59.52257, 59.52257)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-16.54394, -16.54278, -16.54945, -16.549925748522803)
LONGITUDE_VALUEs <- c(59.51296, 59.49863, 59.49829, 59.51132850799839)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-16.46557, -16.46821, -16.47208, -16.47088, -16.46533)
LONGITUDE_VALUEs <- c(59.57398, 59.57351, 59.57904, 59.58496, 59.58307)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-16.391, -16.37931, -16.37865, -16.38516, -16.38392, -16.38705, -16.39298)
LONGITUDE_VALUEs <- c(59.64668, 59.6508, 59.64497, 59.6351, 59.62746, 59.62738, 59.64042)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-19.78445, -19.78564, -19.78548, -19.78449, -19.78419, -19.78467, -19.78413)
LONGITUDE_VALUEs <- c(63.43343, 63.43321, 63.43098, 63.42922, 63.43001, 63.43089, 63.43246)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-19.76125, -19.76236, -19.76226, -19.7624, -19.76192, -19.76161, -19.76018, -19.76024, -19.76107)
LONGITUDE_VALUEs <- c(63.40294, 63.40417, 63.40502, 63.40603, 63.40646, 63.40541, 63.40479, 63.40389, 63.40389)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-19.76412, -19.76501, -19.76464, -19.76484, -19.76426, -19.76367, -19.76305, -19.76406)
LONGITUDE_VALUEs <- c(63.39659, 63.39736, 63.39837, 63.39923, 63.39908, 63.39936, 63.39833, 63.39782)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-20.41865, -20.4289, -20.4289, -20.41969, -20.41374, -20.4133)
LONGITUDE_VALUEs <- c(57.34098, 57.3406, 57.34155, 57.34627, 57.35099, 57.34665)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-20.41937, -20.42275, -20.42235, -20.42006, -20.41833, -20.41776)
LONGITUDE_VALUEs <- c(57.73001, 57.73165, 57.73439, 57.73649, 57.73516, 57.73152)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-20.28289, -20.28478, -20.28438, -20.28273)
LONGITUDE_VALUEs <- c(57.79135, 57.79186, 57.79551, 57.79491)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -20.28023, -20.27846, -20.2789, -20.27645, -20.27496, -20.27379, -20.2717, -20.27033, -20.26751, -20.26421, 
  -20.26232, -20.25966, -20.25712, -20.25704, -20.25592, -20.2558, -20.25704, -20.25825, -20.2589, -20.26055, 
  -20.2595, -20.26248, -20.26212, -20.2694, -20.27287, -20.27532, -20.27673, -20.27806)
LONGITUDE_VALUEs <- c(
  57.79869, 57.80079, 57.80362, 57.8056, 57.8101, 57.80676, 57.80843, 57.80577, 57.80611, 57.80474, 
  57.80714, 57.80719, 57.80895, 57.80405, 57.80247, 57.79899, 57.80028, 57.79886, 57.80474, 57.80234, 
  57.80049, 57.80011, 57.80358, 57.79976, 57.80135, 57.79942, 57.80019, 57.79744)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -20.04122, -20.04255, -20.03843, -20.03787, -20.03989, -20.0394, -20.04101, -20.03747, -20.03634, -20.03493, 
  -20.02813, -20.02664, -20.02503, -20.0271, -20.02997, -20.03186, -20.03275, -20.0339, -20.03529, -20.03519, 
  -20.03624, -20.0342, -20.03499, -20.03515, -20.03628, -20.03487, -20.03525, -20.0366, -20.03825, -20.03872)
LONGITUDE_VALUEs <- c(
  57.69063, 57.695, 57.69638, 57.69904, 57.70058, 57.70312, 57.70831, 57.7105, 57.70548, 57.70539, 
  57.69694, 57.69788, 57.69616, 57.69415, 57.69799, 57.69775, 57.70024, 57.69968, 57.70033, 57.69884, 
  57.69771, 57.69597, 57.6949, 57.69286, 57.69127, 57.68947, 57.68867, 57.6902, 57.68981, 57.69224)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-19.88209, -19.88402, -19.88935, -19.88766)
LONGITUDE_VALUEs <- c(57.67291, 57.66836, 57.6711, 57.67531)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-19.81661, -19.82138, -19.82174, -19.81665)
LONGITUDE_VALUEs <- c(57.80332, 57.80328, 57.80697, 57.80796)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -19.93882, -19.94285, -19.94422, -19.94753, -19.94777, -19.94386, -19.94152, -19.9385, -19.9362, -19.93587, 
  -19.93938)
LONGITUDE_VALUEs <- c(
  57.61531, 57.61544, 57.62166, 57.62287, 57.62535, 57.62394, 57.62527, 57.62295, 57.62424, 57.62214, 
  57.62098)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("RÉUNION", "MAURITIUS"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2)

Now in Our World Administrative Boundaries (GeoDATA):

  • Size in R: 10.5MB
  • Areas: 271 Countries/Territories (271 NAME)
  • 250/249 ISO2 | ISO3 from International Organization for Standardization (ISO) (CLIPPERTON ISLAND)
  • 249/249 Numeric Code (M49_CODE) from International Organization for Standardization (ISO)
  • 136/271 Geometries (SOURCE) from World Health Organization (WHO) - Countries
  • 077/271 Geometries (SOURCE) from Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques
  • 049/271 Geometries (SOURCE) from WHO - Countries and Fondation Jean-Jacques Laffont - TSE
  • 002/271 Geometries (SOURCE) from Global Administrative Areas (GADM)
  • 003/271 Geometries (SOURCE) from Fondation Jean-Jacques Laffont - TSE and Global Administrative Areas (GADM)
  • 004/271 Geometries (SOURCE) from WHO - Countries and Fondation - TSE and Global Administrative Areas (GADM)
#Countries/Territories in GeoDATA
DATA <- GeoDATA %>% st_drop_geometry()
datatable(DATA[ , c(1, 5, 17)], options = list(scrollX = TRUE, autoWidth = TRUE), 
          caption = "Countries/Territories in GeoDATA", style = "bootstrap", rownames = FALSE) %>%
  formatStyle(columns = c(1, 3), textAlign = "left") %>% formatStyle(columns = 2, textAlign = "center")

NAME in GeoDATA \(>\) Residence in International Migrant Stock Data (Residences_in_iMIGRANT_Stock) [271 \(>\) 235].

NAME in GeoDATA \(>\) NAME in GeoDATA_from_WHO (271 \(>\) 241):

  • GUANTANAMO BAY NAVAL BASE | BAIKONUR COSMODROME
  • BRAZILIAN ISLAND | SOUTHERN PATAGONIAN ICE FIELD

We will also make a version for our work on Climate Change and Migration Network (CCMN) called CCMN_GeoDATA:

  • GUANTANAMO BAY NAVAL BASE will be included in CUBA (Sovereign Country)
  • BAIKONUR COSMODROME will be included in KAZAKHSTAN (Sovereign Country)

5.5.2 Claimed Areas

We check that all countries/territories in Claimed_Areas_from_Natural_Earth are in GeoDATA.

#New Variable => SOURCE
Claimed_Areas_from_Natural_Earth <- Claimed_Areas_from_Natural_Earth %>% 
  filter(NAME != "Cyprus U.N. Buffer Zone") %>% 
  mutate(SOURCE = "Natural Earth - Claimed Areas") %>% 
  # select(1:32, 34, 33) %>%
  mutate_if(
    is.character, ~case_when(
      . == "Abu Musa I." ~ "Abu Musa",
      . == "Abyei" ~ "Abyei Area",
      . == "Bajo Nuevo Bank (Petrel Is.)" ~ "Bajo Nuevo Bank",
      . == "Bara Hotii Valleys" ~ "Barahoti-Lapthal",
      . == "Baykonur" ~ "Baikonur Cosmodrome",
      . == "Br. Indian Ocean Ter." ~ "British Indian Ocean Territory",
      . == "Bhutan (Chumbi salient)" ~ "Shakhatoe, Dramana, Sinchulungpa, Langmarpo Chu, Bji Gewoj, Charithang Chu, Yak Chu and Doklam Plateau",
      . == "Bhutan (northwest valleys)" ~ "Kula Khari",
      . == "Corner of Artigas" ~ "Rincón de Artigas",
      . == "Courantyne Headwaters" ~ "Tigri Area",
      . == "Diego Garcia NSF" ~ "Diego Garcia",
      . == "Dokdo" ~ "Liancourt Rocks",
      . == "Donetsk People's Republic" ~ "Donetsk Oblast",
      . == "Doumera Island" ~ "Doumeira Islands",
      . == "Dragonja River" ~ "Dragonja River Disputed Area",
      . == "Falkland Is." ~ "Falkland Islands (Malvinas)",
      . == "Gaza" ~ "Gaza Strip",
      . == "Glorioso Is." ~ "Glorioso Islands",
      . == "Guantanamo Bay USNB" ~ "Guantanamo Bay Naval Base",
      . == "Halayib Triangle" ~ "Hala'ib Triangle",
      . == "Ilemi Triange" ~ "Ilemi Triangle",
      . == "Isla Chafarinas" ~ "Chafarinas Islands",
      . == "Isla del Perejil" ~ "Perejil Island",
      . == "Juan De Nova I." ~ "Juan De Nova Island",
      . == "Junagadh and Manavadar" ~ "Junagadh (Princely State)",
      . == "Korean Demilitarized Zone (south)" ~ "Korean Demilitarized Zone (South)",
      . == "Korean Demilitarized Zone (north)" ~ "Korean Demilitarized Zone (North)",
      . == "Korean islands under UN jurisdiction" ~ "Baengnyeong, Daecheong, Socheong and Yeonpyeong Islands",
      . == "Kuril Is." ~ "Kuril Islands",
      . == "Lawa Headwaters" ~ "Litani-Malani Rivers Disputed Area",
      . == "Luhansk People's Republic" ~ "Luhansk Oblast",
      . == "Matthew and Hunter Is." ~ "Matthew Island and Hunter Island",
      . == "Mbane Island" ~ "Mbanié Island",
      . == "N. Cyprus" ~ "Northern Cyprus",
      . == "Navassa I." ~ "Navassa Island",
      . == "Near Om Parvat" ~ "Limpiyadhura-Kalapani-Lipulekh Area",
      . == "Paracel Is." ~ "Paracel Islands",
      . == "Penon de Alhucemas" ~ "Alhucemas Islands",
      . == "Pinnacle Is." ~ "Senkaku Islands",
      . == "Rockall I." ~ "Rockall",
      . == "S. Georgia" ~ "South Georgia",
      . == "S. Sandwich Is." ~ "South Sandwich Islands",
      . == "Samdu Valleys" ~ "Kaurik",
      . == "Shaksam Valley" ~ "Trans-Karakoram Tract",
      . == "Spratly Is." ~ "Spratly Islands",
      . == "Taiwan" ~ "Taiwan (Province of China)",
      . == "Tiran and Sanafir Is." ~ "Tiran and Sanafir Islands",
      . == "Tirpani Valleys" ~ "Jadh Ganga Valley",
      . == "Tromelin I." ~ "Tromelin Island",
      . == "UNDOF Zone" ~ "United Nations Disengagement Observer Force (UNDOF) Zone",
      . == "W. Sahara" ~ "Western Sahara",
      . == "Wake Atoll" ~ "Wake Island", TRUE ~ .))

#Combine Claimed_Areas_from_Natural_Earth | GeoDATA
DATA <- left_join(
  Claimed_Areas_from_Natural_Earth, GeoDATA %>% st_drop_geometry(), by = c("BRK_NAME" = "VISUALIZATION_NAME"))
DATA <- DATA %>% st_drop_geometry()
DATA <- DATA %>% rename(CONTINENT = 41, SOURCE = 49)
datatable(DATA[is.na(DATA$CONTINENT), ][ , c(13, 41, 49)], 
          options = list(scrollX = TRUE, autoWidth = TRUE, 
                         columnDefs = list(list(targets = "_all", render = JS(
                           "function(data, type, row, meta) {",
                           "  if (type === 'display' && data === null) {",
                           "    return 'NA';", "  }", "  return data;", "}")))), 
          style = "bootstrap", rownames = FALSE, 
          caption = "Countries in Claimed_Areas_from_Natural_Earth (!in GeoDATA)") %>% 
  formatStyle(columns = 1, textAlign = "left", `text-transform` = "uppercase") %>% 
  formatStyle(columns = 2:3, textAlign = "center")

GOLAN HEIGHTS is included in ISRAEL in GeoDATA.

GOLAN HEIGHTS is an area claimed by ISRAEL and by SYRIAN ARAB REPUBLIC.

GOLAN HEIGHTS has been annexed by ISRAEL since 1967.

UNITED NATIONS DISENGAGEMENT OBSERVER FORCE (UNDOF) ZONE is included in SYRIAN ARAB REPUBLIC in GeoDATA.

UNDOF ZONE is an area claimed by ISRAEL and by SYRIAN ARAB REPUBLIC.

UNDOF ZONE has been controlled by SYRIAN ARAB REPUBLIC since 1974.

LITANI-MALANI RIVERS DISPUTED AREA is included in FRENCH GUIANA in GeoDATA.

LITANI-MALANI RIVERS DISPUTED AREA is claimed by FRENCH GUIANA and by SURINAME.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "FRENCH GUIANA")
Geo_2 <- GeoDATA %>% filter(NAME == "SURINAME")
Geo_3 <- GeoDATA %>% filter(NAME == "BRAZIL")

##### FRENCH GUIANA #####
LATITUDE_VALUEs <- c(
  2.33755, 2.33858, 2.34167, 2.34132, 2.34853, 2.35196, 2.34956, 2.34921, 2.3547, 2.34218,
  2.33584, 2.33172, 2.33772, 2.33601, 2.34012, 2.36242, 2.39364, 2.40461, 2.40924, 2.41096,
  2.41679, 2.42022, 2.43651, 2.43325, 2.43497, 2.43, 2.43806, 2.43669, 2.46824, 2.47013,
  2.48539, 2.48985, 2.50649, 2.50992, 2.51883, 2.5178, 2.54301, 2.56136, 2.56891, 2.58726,
  2.5912, 2.61024, 2.61401, 2.6303, 2.63167, 2.64471, 2.67317, 2.685, 2.68637, 2.69375,
  2.7265, 2.73319, 2.74004, 2.77537, 2.79183, 2.80383, 2.83092, 2.83795, 2.86298, 2.86795,
  2.88784, 2.91287, 2.92555, 2.92795, 2.9427, 2.96207, 2.96653, 2.9739, 2.9751, 3.00098,
  3.0075, 3.06784, 3.07538, 3.13469, 3.12817, 3.20873, 3.20702, 3.28928, 3.28706, 3.30042,
  3.29185, 3.31173, 3.3275, 3.33436, 3.35526, 3.364, 3.38508, 3.38594, 3.40616, 3.4101,
  3.42723, 3.43957, 3.46065, 3.46459, 3.50742, 3.52644, 3.5345, 3.56756, 3.58435, 3.59515,
  3.60765, 3.61759, 3.6265, 3.64928, 3.65117, 3.64483, 3.63181, 3.63575, 3.63369, 3.63609,
  3.64963, 3.65973, 3.67292, 3.69057, 3.70787, 3.71952, 3.73408, 3.75652, 3.7668, 3.78821,
  3.79985, 3.80465, 3.79934, 3.8079, 3.82144, 3.83925, 3.85141, 3.85826, 3.8968, 3.90776,
  3.92283, 3.93362, 3.97455, 3.98259, 3.98636, 4.01582, 4.04525, 4.04337, 4.04919, 4.09371,
  4.10193, 4.11494, 4.1348, 4.14987, 4.15791, 4.17829, 4.1776, 4.20465, 4.26953, 4.28289,
  4.3048, 4.35324, 4.3671, 4.37617, 4.41588, 4.42102, 4.41588, 4.51018, 4.52541, 4.53842,
  4.56409, 4.58667, 4.59694, 4.61576, 4.63715, 4.67547, 4.69926, 4.72201, 4.72423, 4.73895,
  4.78325, 4.81302, 4.86365, 4.87323, 4.88126, 4.89136, 4.89443, 4.90555, 4.9413, 4.97242,
  4.98439, 4.99162, 5.01723, 5.03174, 5.08612, 5.10937, 5.13741, 5.14733, 5.16203, 5.17571,
  5.24409, 5.29742, 5.30392, 5.38596, 5.40783, 5.44303, 5.45397, 5.4837, 5.49191, 5.55478,
  5.58041, 5.59237, 5.62929,
  5.63307, 5.65801, 5.67902, 5.6891, 5.69576, 5.71745, 5.72599, 5.74547, 5.747, 5.75913,
  5.7774, 5.76887, 5.73915, 5.7359, 5.73641, 5.73368, 5.73146, 5.73351, 5.73112, 5.72668,
  5.72599, 5.71694, 5.69286, 5.6739, 5.66143, 5.65254, 5.6604, 5.66963, 5.69303, 5.71438,
  5.73129, 5.73641, 5.73214, 5.733, 5.7289, 5.72446, 5.72651, 5.70738, 5.70908, 5.69508,
  5.65784, 5.6563, 5.63136, 5.61223, 5.60574, 5.57259, 5.5772, 5.57157, 5.5714, 5.56593,
  5.56798, 5.53808, 5.54013, 5.54423, 5.53722, 5.52526, 5.51501, 5.52133, 5.52014, 5.53569,
  5.54799, 5.54508, 5.55363, 5.56012, 5.56542, 5.56337, 5.55414, 5.52885, 5.494, 5.49502,
  5.48323, 5.48596, 5.48135, 5.48648, 5.48511, 5.47349, 5.47246, 5.47674, 5.46922, 5.47041,
  5.46255, 5.4564, 5.43931, 5.4241, 5.4159, 5.40394, 5.38907, 5.39522, 5.41163, 5.42257,
  5.43214, 5.45862, 5.46495, 5.45828, 5.46375, 5.4535, 5.4564, 5.45298, 5.44564, 5.44974,
  5.44119, 5.42957, 5.43094, 5.42257, 5.41864, 5.41932, 5.40223, 5.40257, 5.393, 5.38719,
  5.37864, 5.37369, 5.36771, 5.36719, 5.35557, 5.35591, 5.34805, 5.34908, 5.33951, 5.32617,
  5.30669, 5.30207, 5.27267, 5.26652, 5.25404, 5.25011, 5.24242, 5.21541, 5.21558, 5.21079,
  5.19951, 5.18994, 5.16378, 5.16361, 5.16002, 5.15762, 5.15933, 5.15282, 5.15008, 5.1482,
  5.15265, 5.15111, 5.14854, 5.14923, 5.14393, 5.14957, 5.14342, 5.14068, 5.14342, 5.14786,
  5.14769, 5.13709, 5.13418, 5.12888, 5.12717, 5.12153, 5.11469, 5.1217, 5.11914, 5.10324,
  5.08802, 5.08751, 5.09144, 5.09058, 5.07366, 5.06955, 5.06083, 5.05963, 5.04664, 5.05297,
  5.04305, 5.03159, 5.02834, 5.02167, 5.02184, 5.01637, 5.01056, 5.0032, 4.97704, 4.97294,
  4.96319, 4.93582, 4.92368, 4.91667, 4.91342, 4.9088, 4.9023, 4.91633, 4.91376, 4.9047,
  4.89187, 4.88999, 4.89649, 4.89478, 4.89666, 4.89495, 4.89922, 4.89854, 4.89461, 4.89666,
  4.8917, 4.89307, 4.88999, 4.89272, 4.88725, 4.88691, 4.89563, 4.9088, 4.91256, 4.9112,
  4.89751, 4.89717, 4.88313, 4.88056, 4.89818, 4.90553, 4.90365, 4.9069, 4.9264, 4.92623,
  4.93307, 4.93683, 4.94247, 4.9447, 4.95171, 4.95, 4.95188, 4.9459, 4.93957, 4.94265,
  4.93871, 4.93444, 4.91306, 4.91357, 4.90895, 4.90878, 4.91049, 4.90622, 4.89835, 4.88672,
  4.87817, 4.86688, 4.8626, 4.85781, 4.85302, 4.85473, 4.83219, 4.80089, 4.77147, 4.75744,
  4.74803, 4.74136, 4.73708, 4.74581, 4.75693, 4.7689, 4.78327, 4.79969, 4.82672, 4.84827,
  4.8404, 4.83921, 4.85682, 4.84998, 4.8534, 4.84844, 4.82159, 4.80636, 4.79713, 4.78447,
  4.79046, 4.76103, 4.75453, 4.74358, 4.74324, 4.75556, 4.76268, 4.76856, 4.76223, 4.75744,
  4.74682, 4.74647, 4.72167, 4.71055, 4.70764, 4.71534, 4.70456, 4.66369, 4.6565, 4.62605,
  4.54098, 4.52509, 4.51049, 4.5033, 4.53633, 4.575, 4.6354, 4.66089, 4.66979, 4.67201,
  4.64635, 4.63472, 4.62513, 4.61059, 4.61213, 4.57209, 4.56456, 4.51425, 4.48567, 4.46941,
  4.44562, 4.44374, 4.43981, 4.43878, 4.43005, 4.4268, 4.41704, 4.41413, 4.39548, 4.39548,
  4.38624, 4.38555, 4.38932, 4.39411, 4.39394, 4.38538, 4.38589, 4.37836, 4.36621, 4.35714,
  4.33266, 4.295, 4.27018, 4.26676, 4.26214, 4.24878, 4.24673, 4.23594, 4.22704, 4.20667,
  4.21078, 4.21608, 4.2178, 4.2267, 4.22396, 4.21386, 4.21061, 4.20479, 4.20136, 4.18989,
  4.18852, 4.18082, 4.16883, 4.15839, 4.13682, 4.10891, 4.07535, 4.06644, 4.05292,
  4.03328, 4.01462, 4.0016, 3.97437, 3.95913, 3.92334, 3.88412, 3.86802, 3.85775, 3.84901, 
  3.84096, 3.83137, 3.80362, 3.80294, 3.79454, 3.80122, 3.79506, 3.78941, 3.78358, 3.77913, 
  3.78238, 3.77365, 3.76817, 3.74487, 3.73836, 3.72431, 3.72003, 3.72277, 3.71969, 3.71318, 
  3.7125, 3.70444, 3.67995, 3.67481, 3.66162, 3.65237, 3.6438, 3.62718, 3.59121, 3.51839, 
  3.51685, 3.50554, 3.48001, 3.46253, 3.45328, 3.42689, 3.42192, 3.35132, 3.34258, 3.30728, 
  3.29837, 3.28963, 3.24095, 3.23873, 3.25038, 3.25329, 3.24507, 3.22536, 3.21679, 3.19948, 
  3.17548, 3.17223, 3.17565, 3.17051, 3.17171, 3.16537, 3.15029, 3.14617, 3.1388, 3.13383, 
  3.13555, 3.12612, 3.11926, 3.12166, 3.11926, 3.10692, 3.09372, 3.07932, 3.02053, 3.01727, 
  2.99756, 2.99001, 2.98196, 2.95007, 2.9463, 2.94133, 2.92813, 2.92435, 2.91715, 2.92093, 
  2.91853, 2.89727, 2.8971, 2.90121, 2.89332, 2.89367, 2.8496, 2.77914, 2.76405, 2.76079, 
  2.75548, 2.75342, 2.72787, 2.72221, 2.7169, 2.70249, 2.69752, 2.68397, 2.68432, 2.67643, 
  2.66254, 2.65877, 2.65534, 2.64985, 2.65431, 2.65002, 2.64573, 2.63836, 2.63047, 2.63099, 
  2.62173, 2.61487, 2.61435, 2.61058, 2.59995, 2.58229, 2.56685, 2.55845, 2.56239, 2.54902, 
  2.53067, 2.53187, 2.52621, 2.51935, 2.51849, 2.49259, 2.48796, 2.48796, 2.47493, 2.47562, 
  2.46293, 2.45401, 2.4444, 2.44595, 2.44097, 2.44595, 2.44492, 2.43943, 2.43205, 2.41765, 
  2.40307, 2.39244, 2.37408, 2.36808, 2.35436, 2.34201, 2.33652, 2.29964, 2.2909, 2.28764, 
  2.28249, 2.27958, 2.26397, 2.25916, 2.23824, 2.23875, 2.21903, 2.21697, 2.18678, 2.19467, 
  2.17854, 2.16757, 2.1782, 2.19055, 2.22006, 2.22417, 2.21371, 2.2156, 2.21079, 2.21474, 
  2.20222, 2.20908, 2.21199, 2.20273, 2.20033, 2.18884, 2.19004, 2.19433, 2.19415, 2.18746, 
  2.19072, 2.19758, 2.19896, 2.21663, 2.21834, 2.22229, 2.22143, 2.23035, 2.24235, 2.24304, 
  2.24853, 2.24664, 2.26174, 2.277, 2.29484, 2.30805, 2.32486, 2.32983, 2.34201, 2.33721, 
  2.33755, 2.34365, 2.35137, 2.34622, 2.34759, 2.32838, 2.32169, 2.31243, 2.30557, 2.28722, 
  2.28705, 2.29871, 2.29562, 2.2831, 2.28276, 2.26664, 2.25171, 2.26235, 2.25669, 2.262, 
  2.2572, 2.26509, 2.26749, 2.25634, 2.26989, 2.26303, 2.28122, 2.27813, 2.2819, 2.27264, 
  2.28259, 2.27624, 2.28602, 2.29597, 2.30437, 2.2958, 2.29905, 2.29425, 2.29408, 2.31089, 
  2.31278, 2.30506, 2.31106, 2.30935, 2.30128, 2.31106, 2.32204, 2.32478, 2.33387, 2.33816, 
  2.35188, 2.34794, 2.36029, 2.35497, 2.36046, 2.36715, 2.37452, 2.36886, 2.37504, 2.36938, 
  2.36972, 2.36063, 2.36132, 2.35394, 2.35325, 2.34022, 2.3337, 2.32736, 2.3229, 2.31243, 
  2.31243, 2.30454, 2.30866, 2.30866, 2.28499, 2.27298, 2.27144, 2.2771, 2.27178, 2.27315, 
  2.28242, 2.28259, 2.28808, 2.28327, 2.27315, 2.26955, 2.25772, 2.25034, 2.24451, 2.2373, 
  2.23147, 2.21535, 2.2195, 2.20557, 2.21243, 2.18121, 2.18842, 2.18996, 2.19807, 2.19614, 
  2.18927, 2.18396, 2.17898, 2.17367, 2.16337, 2.1536, 2.13575, 2.1397, 2.12203, 2.11157, 
  2.11122, 2.1238, 2.11723, 2.12152, 2.12237, 2.13129, 2.14056, 2.15325, 2.15102, 2.17864, 
  2.17915, 2.16972, 2.15325, 2.14279, 2.15806, 2.15325, 2.16252, 2.16938, 2.17367, 2.16972, 
  2.17761, 2.20626, 2.21106, 2.22375, 2.2277, 2.20197, 2.19974, 2.2114, 2.21535, 2.20265, 
  2.21449, 2.22633, 2.23576, 2.24811, 2.25531, 2.25154, 2.26115, 2.26063, 2.26972, 2.27281, 
  2.27178, 2.27864, 2.2759, 2.2807, 2.28876, 2.29048, 2.29974, 2.30225, 2.31037, 2.31278, 
  2.31792, 2.32084, 2.32615, 2.32615, 2.33061, 2.3253, 2.32753, 2.32169, 2.32615, 2.33216, 
  2.33353, 2.3325, 2.33593)
LONGITUDE_VALUEs <- c(
  -54.60191, -54.59848, -54.59745, -54.5923, -54.59367, -54.58887, -54.58578, -54.58097, -54.57239, -54.53172,
  -54.5343, -54.52623, -54.5202, -54.50836, -54.5063, -54.5123, -54.50355, -54.49686, -54.49634, -54.49051,
  -54.48845, -54.48124, -54.47455, -54.45582, -54.44724, -54.43763, -54.4294, -54.41996, -54.3978, -54.38768,
  -54.3863, -54.37343, -54.37325, -54.36072, -54.36141, -54.35231, -54.34322, -54.34613, -54.33052, -54.32845,
  -54.32125, -54.3209, -54.31301, -54.31833, -54.31232, -54.30683, -54.27457, -54.27748, -54.26615, -54.2737,
  -54.26289, -54.2441, -54.24444, -54.20736, -54.21011, -54.1974, -54.20788, -54.18591, -54.17939, -54.19021,
  -54.19518, -54.18419, -54.19157, -54.17887, -54.17097, -54.17561, -54.16033, -54.16307, -54.1775, -54.18519,
  -54.16801, -54.19412, -54.17317, -54.18415, -54.21232, -54.19068, -54.17456, -54.12167, -54.11142, -54.10111,
  -54.08068, -54.06368, -54.06678, -54.06266, -54.0618, -54.05252, -54.06025, -54.04962, -54.0333, -54.02334,
  -54.01184, -54.02026, -54.01545, -54.00927, -54.00824, -53.99931, -54.00909, -54.00257, -53.98404, -53.98507,
  -53.9794, -53.99193, -53.99243, -54.00634, -54.01562, -54.02592, -54.02798, -54.04241, -54.04636, -54.05305,
  -54.04927, -54.05563, -54.08205, -54.08703, -54.07844, -54.08067, -54.09733, -54.10317, -54.1133, -54.11861,
  -54.12978, -54.1679, -54.18851, -54.19967, -54.20104, -54.18883, -54.19502, -54.23623, -54.25337, -54.24788,
  -54.27776, -54.29045, -54.30247, -54.30247, -54.30814, -54.31913, -54.34487, -54.35208, -54.35826, -54.34419,
  -54.34676, -54.34505, -54.32238, -54.32427, -54.3447, -54.36943, -54.38609, -54.3967, -54.38177, -54.39207,
  -54.39379, -54.38675, -54.39704, -54.41833, -54.41439, -54.42332, -54.4398, -54.45267, -54.44872, -54.43568,
  -54.42126, -54.42023, -54.41336, -54.41663, -54.43636, -54.44066, -54.41783, -54.42298, -54.45732, -54.46606,
  -54.46142, -54.46743, -54.46863, -54.4664, -54.47155, -54.46863, -54.47911, -54.47859, -54.44117, -54.43928,
  -54.44443, -54.43632, -54.43859, -54.42724, -54.40629, -54.373, -54.3651, -54.34758, -54.34758, -54.33524,
  -54.29678, -54.22709, -54.20305, -54.13335, -54.12889, -54.09216, -54.08907, -54.0616, -54.04855, -54.00563,
  -54.00495, -54.01628, -54.02558,
  -53.99752, -53.99512, -53.98564, -53.96951, -53.97277, -53.96539, -53.95389, -53.95011, -53.9357, -53.92918,
  -53.9103, -53.87664, -53.85587, -53.85827, -53.87492, -53.88659, -53.87767, -53.87114, -53.85587, -53.84761,
  -53.83972, -53.81586, -53.77948, -53.77588, -53.77691, -53.7733, -53.77382, -53.77159, -53.77416, -53.79871,
  -53.83578, -53.83321, -53.81381, -53.80541, -53.80077, -53.80009, -53.797, -53.76782, -53.76148, -53.73982,
  -53.69435, -53.68505, -53.63683, -53.61109, -53.57435, -53.48526, -53.47719, -53.45933, -53.43839, -53.41197,
  -53.36354, -53.31661, -53.29396, -53.28348, -53.26511, -53.2579, -53.24811, -53.23952, -53.25, -53.25858,
  -53.27953, -53.30512, -53.31869, -53.31869, -53.30134, -53.27507, -53.26545, -53.17224, -53.09672, -53.08917,
  -53.07457, -53.05053, -53.04658, -53.0428, -53.03731, -53.03095, -53.03593, -53.04435, -53.04693, -53.04057,
  -53.03851, -53.01484, -53.00402, -52.98616, -52.96574, -52.96059, -52.96076, -52.95767, -52.95802, -52.96969,
  -52.99046, -53.00728, -52.9975, -52.98462, -52.97054, -52.9671, -52.9556, -52.94412, -52.93931, -52.93811,
  -52.92746, -52.92369, -52.91819, -52.90857, -52.91012, -52.90634, -52.89519, -52.88952, -52.88901, -52.88334,
  -52.88317, -52.87237, -52.86996, -52.86481, -52.85811, -52.85073, -52.8497, -52.84489, -52.84061, -52.82343,
  -52.79235, -52.79116, -52.76455, -52.75393, -52.74294, -52.73383, -52.72971, -52.69212, -52.68732, -52.68337,
  -52.66619, -52.66036, -52.6346, -52.62945, -52.62584, -52.62756, -52.63048, -52.63856, -52.63873, -52.64371,
  -52.66328, -52.67153, -52.67101, -52.66534, -52.64079, -52.63237, -52.62619, -52.61675, -52.60971, -52.61486,
  -52.60713, -52.59992, -52.59356, -52.59359, -52.59067, -52.58964, -52.5747, -52.5826, -52.56972, -52.55873,
  -52.55753, -52.5498, -52.55049, -52.54293, -52.52646, -52.51427, -52.50654, -52.50173, -52.4904, -52.48988,
  -52.47804, -52.47786, -52.47102, -52.46964, -52.46484, -52.46295, -52.45299, -52.44955, -52.41746, -52.41711,
  -52.40476, -52.38278, -52.36922, -52.35651, -52.35737, -52.37746, -52.39394, -52.41214, -52.4245, -52.42948,
  -52.42983, -52.43395, -52.44647, -52.45677, -52.47223, -52.47841, -52.48167, -52.48768, -52.49078, -52.48373,
  -52.47927, -52.46553, -52.45643, -52.4487, -52.43874, -52.42947, -52.42432, -52.42277, -52.41762, -52.40972,
  -52.40096, -52.37933, -52.39204, -52.39049, -52.37352, -52.35875, -52.356, -52.34621, -52.3366, -52.33334,
  -52.33454, -52.33883, -52.33558, -52.31841, -52.31068, -52.30501, -52.30158, -52.29969, -52.29162, -52.28543,
  -52.28253, -52.28476, -52.26072, -52.25849, -52.25728, -52.25969, -52.26072, -52.26381, -52.26244, -52.24597,
  -52.24442, -52.24992, -52.25696, -52.25627, -52.2664, -52.28254, -52.29746, -52.3033, -52.31394, -52.32562,
  -52.32785, -52.33953, -52.33798, -52.32253, -52.31978, -52.30776, -52.30467, -52.29541, -52.2918, -52.27978,
  -52.27137, -52.25334, -52.22638, -52.21971, -52.21026, -52.19859, -52.18743, -52.16563, -52.17078, -52.16254,
  -52.15773, -52.1289, -52.11756, -52.11207, -52.10829, -52.1131, -52.12303, -52.1222, -52.11499, -52.10262,
  -52.09097, -52.0817, -52.0331, -52.02675, -52.01885, -52.01748, -52.0077, -52.00133, -52.00545, -52.00064,
  -51.95732, -51.95394, -51.95483, -51.92737, -51.92926, -51.92565, -51.92634, -51.91157, -51.91209, -51.88017,
  -51.83673, -51.83295, -51.81905, -51.81219, -51.80447, -51.78506, -51.78643, -51.77476, -51.77544, -51.77046,
  -51.7497, -51.7509, -51.74798, -51.75348, -51.75399, -51.75691, -51.75399, -51.74524, -51.73047, -51.72497,
  -51.71742, -51.70833, -51.70112, -51.69906, -51.69186, -51.69254, -51.70061, -51.71039, -51.71262, -51.72051,
  -51.72086, -51.70489, -51.68652, -51.67931, -51.68102, -51.67159, -51.66489, -51.66095, -51.6661, -51.66386,
  -51.6594, -51.65957, -51.66318, -51.66038, -51.65042, -51.64835, -51.64046, -51.63925, -51.63479, -51.63754,
  -51.64389, -51.64698, -51.6487, -51.64217, -51.64028, -51.6511, -51.65419, -51.6602, -51.65831,
  -51.68505, -51.71645, -51.74768, -51.77824, -51.78408, -51.78151, -51.79936, -51.8227, -51.82373, -51.83986, 
  -51.84503, -51.85721, -51.87266, -51.88278, -51.88776, -51.90441, -51.90543, -51.89497, -51.89617, -51.91197, 
  -51.91952, -51.92089, -51.92759, -51.9154, -51.91987, -51.91987, -51.94304, -51.95059, -51.95779, -51.95642, 
  -51.96569, -51.97274, -51.97978, -51.98613, -51.9887, -51.98682, -51.99162, -51.98819, -52.02149, -52.06063, 
  -52.07059, -52.07076, -52.09342, -52.09462, -52.10818, -52.11676, -52.12483, -52.16105, -52.17153, -52.1928, 
  -52.1892, -52.2008, -52.23362, -52.24461, -52.24856, -52.26247, -52.26312, -52.29317, -52.29351, -52.30313, 
  -52.29935, -52.30296, -52.31137, -52.31927, -52.33164, -52.32975, -52.3361, -52.34194, -52.33147, -52.33318, 
  -52.3495, -52.3536, -52.34724, -52.34037, -52.33711, -52.3457, -52.3445, -52.32562, -52.35464, -52.36271, 
  -52.3627, -52.37214, -52.36802, -52.3833, -52.39429, -52.38982, -52.39618, -52.38914, -52.38897, -52.3778, 
  -52.37609, -52.39171, -52.40098, -52.40579, -52.41163, -52.41952, -52.44493, -52.47875, -52.47445, -52.48338, 
  -52.48304, -52.4784, -52.49145, -52.50019, -52.50002, -52.50809, -52.50689, -52.51599, -52.52166, -52.51925, 
  -52.52801, -52.52578, -52.52972, -52.52972, -52.54089, -52.55016, -52.55016, -52.55617, -52.55067, -52.54483, 
  -52.54243, -52.54397, -52.54792, -52.55033, -52.53195, -52.52698, -52.53866, -52.53625, -52.54931, -52.56167, 
  -52.55426, -52.54877, -52.55254, -52.55169, -52.56268, -52.58809, -52.58706, -52.59049, -52.59702, -52.61762, 
  -52.62277, -52.60955, -52.61779, -52.62466, -52.63222, -52.63291, -52.63686, -52.63703, -52.64527, -52.64405, 
  -52.6583, -52.65435, -52.66019, -52.68766, -52.71772, -52.71789, -52.73984, -52.80509, -52.8425, -52.84335, 
  -52.83752, -52.85829, -52.85297, -52.87238, -52.87579, -52.88764, -52.88592, -52.89159, -52.90532, -52.93383, 
  -52.94018, -52.98738, -52.99854, -53.0545, -53.07425, -53.10187, -53.17001, -53.17705, -53.1834, -53.19113, 
  -53.22599, -53.23286, -53.24763, -53.249, -53.25742, -53.26343, -53.27545, -53.27697, -53.27954, -53.2816, 
  -53.28469, -53.28332, -53.27439, -53.27405, -53.27937, -53.2713, -53.26314, -53.25619, -53.25774, -53.24263, 
  -53.2404, -53.23319, -53.22443, -53.24812, -53.25808, -53.28951, -53.30356, -53.3161, -53.31764, -53.3209, 
  -53.33413, -53.33352, -53.34227, -53.34759, -53.35875, -53.35772, -53.37042, -53.37093, -53.39993, -53.40734, 
  -53.42244, -53.4312, -53.43411, -53.43137, -53.44716, -53.44561, -53.46502, -53.48733, -53.49316, -53.50054, 
  -53.51633, -53.52697, -53.54379, -53.55257, -53.57385, -53.58569, -53.59959, -53.60923, -53.6118, -53.61952, 
  -53.63342, -53.64595, -53.67083, -53.65933, -53.66894, -53.67581, -53.68267, -53.68284, -53.69915, -53.69657, 
  -53.7026, -53.70552, -53.71084, -53.73023, -53.73263, -53.74653, -53.74276, -53.73435, -53.73847, -53.72587, 
  -53.72114, -53.72783, -53.73589, -53.74631, -53.75284, -53.73601, -53.73738, -53.74597, -53.76864, -53.7736, 
  -53.78202, -53.78322, -53.79833, -53.79936, -53.81155, -53.8093, -53.83317, -53.83678, -53.85035, -53.84966, 
  -53.8591, -53.86563, -53.87044, -53.88297, -53.88981, -53.88517, -53.89084, -53.89239, -53.90166, -53.91231, 
  -53.91007, -53.91917, -53.92295, -53.93755, -53.94253, -53.9348, -53.93994, -53.9365, -53.94269, -53.93255, 
  -53.94251, -53.94165, -53.96354, -53.97496, -53.98715, -54.01941, -54.03281, -54.05668, -54.05882, -54.06681, 
  -54.06559, -54.07297, -54.0716, -54.08241, -54.08173, -54.08808, -54.08396, -54.09272, -54.10594, -54.10113, 
  -54.10701, -54.12385, -54.14234, -54.14629, -54.15625, -54.15193, -54.16739, -54.16739, -54.18147, -54.18473, 
  -54.18954, -54.19091, -54.25871, -54.26764, -54.31933, -54.33496, -54.34197, -54.3387, -54.34883, -54.3521, 
  -54.36446, -54.35519, -54.36136, -54.35862, -54.37596, -54.39931, -54.41717, -54.41786, -54.4304, -54.44445, 
  -54.47896, -54.4757, -54.49751, -54.49631, -54.50575, -54.5243, -54.5265, -54.53715, -54.54934, -54.54883, 
  -54.53698, -54.52547, -54.51654, -54.51294, -54.51844, -54.52548, -54.52462, -54.53087, -54.52771, -54.53355, 
  -54.53286, -54.53784, -54.53664, -54.55381, -54.55622, -54.56583, -54.57339, -54.58696, -54.59792, -54.59517, 
  -54.59809, -54.60221, -54.60272)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(5.28285, 5.27909, 5.27875, 5.28097, 5.28097, 5.28285, 5.28268, 5.28371)
LONGITUDE_VALUEs <- c(-52.58447, -52.58447, -52.58207, -52.58121, -52.57881, -52.57881, -52.58172, -52.58293)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(5.28679, 5.28491, 5.28508, 5.28901, 5.28781, 5.28969, 5.28952, 5.28696, 5.28559, 5.28559)
LONGITUDE_VALUEs <- c(-52.58842, -52.58619, -52.58464, -52.58636, -52.58842, -52.58996, -52.59271, -52.59391, -52.59339, -52.59013)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(5.29243, 5.29516, 5.29738, 5.29636, 5.29277, 5.29243, 5.2914, 5.29106, 5.2902, 5.29089)
LONGITUDE_VALUEs <- c(-52.58378, -52.57966, -52.58104, -52.58344, -52.5843, -52.58498, -52.58516, -52.58601, -52.58601, -52.58378)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(4.96009, 4.95906, 4.96077, 4.96163)
LONGITUDE_VALUEs <- c(-52.25388, -52.25251, -52.25096, -52.25148)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(4.93145, 4.92581, 4.92581, 4.93128, 4.93162, 4.93436, 4.93197)
LONGITUDE_VALUEs <- c(-52.20685, -52.20393, -52.20102, -52.20085, -52.20479, -52.20599, -52.20617)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(4.89554, 4.89468, 4.89246, 4.88904, 4.89006, 4.89348, 4.89468, 4.89366)
LONGITUDE_VALUEs <- c(-52.18936, -52.19056, -52.18987, -52.18335, -52.17941, -52.17975, -52.18198, -52.18524)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(4.88835, 4.88664, 4.88767, 4.88904)
LONGITUDE_VALUEs <- c(-52.17065, -52.1703, -52.16807, -52.16859)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(4.88972, 4.8887, 4.88972, 4.89109)
LONGITUDE_VALUEs <- c(-52.16619, -52.16601, -52.16344, -52.16395)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(4.82661, 4.82541, 4.82404, 4.82472)
LONGITUDE_VALUEs <- c(-51.93719, -51.93787, -51.93633, -51.9353)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(4.45304, 4.44739, 4.44739, 4.45236, 4.45475, 4.45681, 4.45475)
LONGITUDE_VALUEs <- c(-51.74031, -51.74117, -51.73842, -51.73636, -51.73139, -51.73173, -51.73379)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### SURINAME #####
LATITUDE_VALUEs <- c(
  2.33755, 2.33858, 2.34167, 2.34132, 2.34853, 2.35196, 2.34956, 2.34921, 2.3547, 2.34218,
  2.33584, 2.33172, 2.33772, 2.33601, 2.34012, 2.36242, 2.39364, 2.40461, 2.40924, 2.41096,
  2.41679, 2.42022, 2.43651, 2.43325, 2.43497, 2.43, 2.43806, 2.43669, 2.46824, 2.47013,
  2.48539, 2.48985, 2.50649, 2.50992, 2.51883, 2.5178, 2.54301, 2.56136, 2.56891, 2.58726,
  2.5912, 2.61024, 2.61401, 2.6303, 2.63167, 2.64471, 2.67317, 2.685, 2.68637, 2.69375,
  2.7265, 2.73319, 2.74004, 2.77537, 2.79183, 2.80383, 2.83092, 2.83795, 2.86298, 2.86795,
  2.88784, 2.91287, 2.92555, 2.92795, 2.9427, 2.96207, 2.96653, 2.9739, 2.9751, 3.00098,
  3.0075, 3.06784, 3.07538, 3.13469, 3.12817, 3.20873, 3.20702, 3.28928, 3.28706, 3.30042,
  3.29185, 3.31173, 3.3275, 3.33436, 3.35526, 3.364, 3.38508, 3.38594, 3.40616, 3.4101,
  3.42723, 3.43957, 3.46065, 3.46459, 3.50742, 3.52644, 3.5345, 3.56756, 3.58435, 3.59515,
  3.60765, 3.61759, 3.6265, 3.64928, 3.65117, 3.64483, 3.63181, 3.63575, 3.63369, 3.63609,
  3.64963, 3.65973, 3.67292, 3.69057, 3.70787, 3.71952, 3.73408, 3.75652, 3.7668, 3.78821,
  3.79985, 3.80465, 3.79934, 3.8079, 3.82144, 3.83925, 3.85141, 3.85826, 3.8968, 3.90776,
  3.92283, 3.93362, 3.97455, 3.98259, 3.98636, 4.01582, 4.04525, 4.04337, 4.04919, 4.09371,
  4.10193, 4.11494, 4.1348, 4.14987, 4.15791, 4.17829, 4.1776, 4.20465, 4.26953, 4.28289,
  4.3048, 4.35324, 4.3671, 4.37617, 4.41588, 4.42102, 4.41588, 4.51018, 4.52541, 4.53842,
  4.56409, 4.58667, 4.59694, 4.61576, 4.63715, 4.67547, 4.69926, 4.72201, 4.72423, 4.73895,
  4.78325, 4.81302, 4.86365, 4.87323, 4.88126, 4.89136, 4.89443, 4.90555, 4.9413, 4.97242,
  4.98439, 4.99162, 5.01723, 5.03174, 5.08612, 5.10937, 5.13741, 5.14733, 5.16203, 5.17571,
  5.24409, 5.29742, 5.30392, 5.38596, 5.40783, 5.44303, 5.45397, 5.4837, 5.49191, 5.55478,
  5.58041, 5.59237, 5.62929,
  5.63594, 5.64704, 5.6537, 5.67335, 5.68189, 5.70436, 5.71366, 5.72527, 5.73586, 5.74116,
  5.74013, 5.74782, 5.81409, 5.82262, 5.8409, 5.84773, 5.85678, 5.8549, 5.86344, 5.88547,
  5.90391, 5.91808, 5.92132, 5.92952, 5.92235, 5.94177, 5.97934, 5.99491, 5.99491, 5.98774,
  5.99508, 5.99115, 5.9763, 5.95854, 5.9512, 5.95445, 5.94755, 5.94864, 5.94369, 5.93157,
  5.9034, 5.90322, 5.89469, 5.88137, 5.86719, 5.86668, 5.87812, 5.88871, 5.8923, 5.88991,
  5.88495, 5.86395, 5.84807, 5.82706, 5.81716, 5.81579, 5.81699, 5.82501, 5.83885, 5.85934,
  5.86993, 5.87368, 5.88683, 5.89161, 5.90476, 5.90869, 5.89332, 5.89588, 5.92406, 5.94011,
  5.94267, 5.94728, 5.95257, 5.96247, 5.96247, 5.97015, 5.97067, 5.97596, 5.97442, 5.98091,
  5.98108, 5.98791, 5.98672, 5.99047, 5.99508, 5.99884, 5.99611, 6.00071, 5.9915, 6.00106,
  5.99628, 5.98091, 5.98296, 5.97937, 5.96981, 5.97272, 5.97015, 5.95018, 5.94301, 5.887,
  5.87112, 5.84739, 5.85469, 5.84888, 5.86733, 5.86186, 5.84274, 5.84444, 5.8383, 5.8301,
  5.74539, 5.71533, 5.66408, 5.67433, 5.73343, 5.75769, 5.80551, 5.8079, 5.84274, 5.85059,
  5.86186, 5.89158, 5.87996, 5.90694, 5.90797, 5.91411, 5.91411, 5.9346, 5.93836, 5.96875,
  5.96636, 5.98719, 5.98241, 6.01143, 5.96295, 5.94929, 5.92846, 5.92026, 5.90045,
  5.8908, 5.82574, 5.80695, 5.77621, 5.74598, 5.71489, 5.70669, 5.69576, 5.65955, 5.64981,
  5.60198, 5.55414, 5.50835, 5.48494, 5.46119, 5.44837, 5.40377, 5.38189, 5.35096, 5.33951,
  5.33028, 5.31455, 5.30994, 5.3178, 5.32276, 5.31797, 5.31113, 5.30293, 5.28635, 5.24789,
  5.23575, 5.23438, 5.22242, 5.22002, 5.22857, 5.24891, 5.25131, 5.26515, 5.27678, 5.26276,
  5.25028, 5.23302, 5.2072, 5.1937, 5.17164, 5.15865, 5.1525, 5.13745, 5.13489, 5.16703,
  5.18942, 5.18959, 5.16959, 5.1472, 5.14429, 5.12035, 5.09864, 5.06478, 5.05213, 5.04956,
  5.03452, 5.01673, 5.01571, 5.03298, 5.03828, 5.03417, 5.02101, 5.01383, 5.01827, 5.0181,
  4.99091, 4.99758, 4.99074, 4.99878, 5.00955, 5.01578, 5.00664, 5.00288, 4.99194, 5.0063,
  5.0075, 5.0128, 5.00391, 5.00083, 4.98817, 4.97826, 4.96748, 4.96492, 4.94491, 4.9355,
  4.92473, 4.92113, 4.93396, 4.92815, 4.88026, 4.83818, 4.83579, 4.81526, 4.7778, 4.77301,
  4.76086, 4.74495, 4.74016, 4.7299, 4.72237, 4.71091, 4.70201, 4.68456, 4.67241, 4.65188,
  4.65103, 4.63837, 4.59627, 4.59114, 4.5795, 4.57352, 4.5612, 4.55007, 4.51859, 4.4758,
  4.44945, 4.44756, 4.4171, 4.40461, 4.39605, 4.3601, 4.35617, 4.34624, 4.33272, 4.31611,
  4.30841, 4.27743, 4.24576, 4.24422, 4.23309, 4.22025, 4.19817, 4.1908, 4.17591, 4.16427,
  4.15947, 4.13208, 4.1153, 4.10366, 4.08431, 4.06975, 4.05109, 4.029, 4.01907, 3.99629,
  3.95862, 3.96119, 3.95211, 3.94834, 3.91478, 3.9218, 3.82109, 3.81801, 3.80088, 3.79711,
  3.77724, 3.7632, 3.74675, 3.65905, 3.65699, 3.64774, 3.65082, 3.62136, 3.62753, 3.56516,
  3.52781, 3.51239, 3.50417, 3.48155, 3.47607, 3.46133, 3.46099, 3.4466, 3.42192, 3.42226,
  3.41644, 3.37051, 3.37223, 3.36366, 3.37394, 3.35269, 3.36332, 3.37188, 3.37188, 3.36229,
  3.36434, 3.34858, 3.33997, 3.35094, 3.35197, 3.36191, 3.36362, 3.389, 3.38934, 3.36621,
  3.36895, 3.38011, 3.38234, 3.3945, 3.38954, 3.37565, 3.36709, 3.35955, 3.35218, 3.34978,
  3.32904, 3.31653, 3.30351, 3.29974, 3.2838, 3.27986, 3.26546, 3.25861, 3.25089, 3.25261,
  3.24472, 3.2341, 3.17702, 3.16811, 3.17274, 3.16554, 3.13949, 3.12835, 3.12646, 3.14172,
  3.14669, 3.13366, 3.11532, 3.09475, 3.08481, 3.07658, 3.07452, 3.05515, 3.04847, 3.0507,
  3.04813, 3.04093, 3.02344, 3.01504, 3.02207, 3.0171, 3.00047, 2.98384, 2.97647, 2.9715,
  2.96807, 2.95984, 2.94904, 2.93927, 2.95298, 2.95487, 2.94184, 2.91475, 2.90755, 2.8959,
  2.88578, 2.87944, 2.86984, 2.86146, 2.84926, 2.84703, 2.84978, 2.83572, 2.83023, 2.83126,
  2.82354, 2.81206, 2.80794, 2.8184, 2.82697, 2.81857, 2.80691, 2.80314, 2.78565, 2.77159,
  2.77399, 2.77056, 2.78102, 2.77965, 2.76714, 2.76714, 2.75993, 2.74296, 2.73473, 2.73559,
  2.7181, 2.70112, 2.68706, 2.68054, 2.66391, 2.63682, 2.64879, 2.64453, 2.64796, 2.64556,
  2.63287, 2.61332, 2.60955, 2.59961, 2.59189, 2.58177, 2.56788, 2.56565, 2.55673, 2.5545,
  2.55828, 2.53873, 2.52638, 2.52158, 2.52295, 2.51866, 2.51249, 2.50048, 2.50031, 2.50597,
  2.5046, 2.49534, 2.49414, 2.50854, 2.501, 2.48676, 2.47339, 2.47322, 2.47853, 2.4775,
  2.46618, 2.45595, 2.43497, 2.4372, 2.42965, 2.43103, 2.42142, 2.40084, 2.39192, 2.38575,
  2.38026, 2.3866, 2.3794, 2.38094, 2.37443, 2.36311, 2.33789, 2.33326, 2.32383, 2.31851,
  2.31028, 2.29896, 2.28935, 2.29107, 2.28489, 2.2873, 2.2794, 2.27477, 2.26757, 2.27117,
  2.26122, 2.23772, 2.22023, 2.22006, 2.21028, 2.21285, 2.20548, 2.18901, 2.1909, 2.17666,
  2.16191, 2.15264, 2.12194, 2.11439, 2.10238, 2.08111, 2.06807, 2.04508, 2.02638, 2.02793,
  2.02004, 2.00442, 1.98041, 1.97114, 1.94918,
  1.95227, 1.95622, 1.9485, 1.95176, 1.94661, 1.94575, 1.93872, 1.92842, 1.93014, 1.92135, 
  1.92362, 1.93271, 1.93271, 1.93752, 1.94163, 1.93563, 1.93717, 1.92328, 1.92105, 1.91144, 
  1.90869, 1.91058, 1.90629, 1.89651, 1.88536, 1.87815, 1.89926, 1.902, 1.89411, 1.89617, 
  1.89239, 1.89291, 1.90011, 1.88759, 1.89154, 1.89102, 1.87541, 1.86975, 1.85894, 1.85688, 
  1.85087, 1.85499, 1.84658, 1.85396, 1.85345, 1.84573, 1.84521, 1.85002, 1.85208, 1.8507, 
  1.84727, 1.85002, 1.84144, 1.84281, 1.83132, 1.83492, 1.83526, 1.84178, 1.84041, 1.8483, 
  1.84504, 1.87198, 1.88502, 1.88828, 1.90766, 1.91899, 1.9334, 1.94142, 1.95073, 1.98693, 
  1.99653, 1.99756, 1.99104, 1.9907, 2.01113, 2.01506, 2.02227, 2.02964, 2.04182, 2.04748, 
  2.05743, 2.07562, 2.07905, 2.07888, 2.09209, 2.08848, 2.10324, 2.11319, 2.11645, 2.11542, 
  2.12657, 2.13223, 2.13206, 2.14012, 2.14561, 2.16757, 2.16551, 2.16877, 2.17734, 2.18472, 
  2.18506, 2.18987, 2.19604, 2.21405, 2.21971, 2.2216, 2.22795, 2.23361, 2.2427, 2.2358, 
  2.24973, 2.24647, 2.24041, 2.24956, 2.25899, 2.2662, 2.27083, 2.27838, 2.28661, 2.29879, 
  2.31022, 2.31851, 2.32143, 2.33018, 2.33824, 2.35213, 2.36036, 2.36448, 2.37254, 2.37546, 
  2.3686, 2.371, 2.3547, 2.34287, 2.33429, 2.33258, 2.33995, 2.34235, 2.34767, 2.34698, 
  2.35556, 2.36431, 2.36654, 2.37443, 2.38232, 2.39175, 2.40175, 2.40135, 2.41336, 2.41851, 
  2.42725, 2.43, 2.43857, 2.43617, 2.44577, 2.44549, 2.45281, 2.46944, 2.4792, 2.48949, 
  2.49686, 2.50321, 2.51693, 2.51839, 2.52773, 2.53322, 2.52465, 2.51813, 2.52019, 2.50527, 
  2.50355, 2.48846, 2.47937, 2.46788, 2.45879, 2.45656, 2.46351, 2.45519, 2.44027, 2.43804, 
  2.42981, 2.4106, 2.39876, 2.40013, 2.42174, 2.41351, 2.42054, 2.41557, 2.42003, 2.42723, 
  2.43375, 2.43152, 2.4377, 2.42397, 2.42946, 2.42861, 2.43615, 2.43924, 2.4437, 2.4377, 
  2.4389, 2.41849, 2.44816, 2.47626, 2.51639, 2.50542, 2.55961, 2.56784, 2.51756, 2.59048, 
  2.58362, 2.51777, 2.49993, 2.49822, 2.48518, 2.47798, 2.47009, 2.47489, 2.47249, 2.46152, 
  2.45397, 2.45363, 2.43373, 2.43632, 2.42963, 2.43255, 2.42655, 2.43306, 2.42329, 2.42209, 
  2.43169, 2.43255, 2.44678, 2.44233, 2.45759, 2.45948, 2.47302, 2.47114, 2.47594, 2.4744, 
  2.46273, 2.47217, 2.46325, 2.46668, 2.45948, 2.46273, 2.45725, 2.45159, 2.44678, 2.44833, 
  2.43872, 2.43547, 2.42174, 2.42106, 2.41591, 2.41214, 2.40597, 2.40751, 2.40236, 2.39396, 
  2.37938, 2.37321, 2.36223, 2.3636, 2.35074, 2.35503, 2.34954, 2.35108, 2.35588, 2.35863, 
  2.3564, 2.35057, 2.33959, 2.33908, 2.3281, 2.32244, 2.32655, 2.32141, 2.32861, 2.33976, 
  2.33427, 2.33805)
LONGITUDE_VALUEs <- c(
  -54.60191, -54.59848, -54.59745, -54.5923, -54.59367, -54.58887, -54.58578, -54.58097, -54.57239, -54.53172,
  -54.5343, -54.52623, -54.5202, -54.50836, -54.5063, -54.5123, -54.50355, -54.49686, -54.49634, -54.49051,
  -54.48845, -54.48124, -54.47455, -54.45582, -54.44724, -54.43763, -54.4294, -54.41996, -54.3978, -54.38768,
  -54.3863, -54.37343, -54.37325, -54.36072, -54.36141, -54.35231, -54.34322, -54.34613, -54.33052, -54.32845,
  -54.32125, -54.3209, -54.31301, -54.31833, -54.31232, -54.30683, -54.27457, -54.27748, -54.26615, -54.2737,
  -54.26289, -54.2441, -54.24444, -54.20736, -54.21011, -54.1974, -54.20788, -54.18591, -54.17939, -54.19021,
  -54.19518, -54.18419, -54.19157, -54.17887, -54.17097, -54.17561, -54.16033, -54.16307, -54.1775, -54.18519,
  -54.16801, -54.19412, -54.17317, -54.18415, -54.21232, -54.19068, -54.17456, -54.12167, -54.11142, -54.10111,
  -54.08068, -54.06368, -54.06678, -54.06266, -54.0618, -54.05252, -54.06025, -54.04962, -54.0333, -54.02334,
  -54.01184, -54.02026, -54.01545, -54.00927, -54.00824, -53.99931, -54.00909, -54.00257, -53.98404, -53.98507,
  -53.9794, -53.99193, -53.99243, -54.00634, -54.01562, -54.02592, -54.02798, -54.04241, -54.04636, -54.05305,
  -54.04927, -54.05563, -54.08205, -54.08703, -54.07844, -54.08067, -54.09733, -54.10317, -54.1133, -54.11861,
  -54.12978, -54.1679, -54.18851, -54.19967, -54.20104, -54.18883, -54.19502, -54.23623, -54.25337, -54.24788,
  -54.27776, -54.29045, -54.30247, -54.30247, -54.30814, -54.31913, -54.34487, -54.35208, -54.35826, -54.34419,
  -54.34676, -54.34505, -54.32238, -54.32427, -54.3447, -54.36943, -54.38609, -54.3967, -54.38177, -54.39207,
  -54.39379, -54.38675, -54.39704, -54.41833, -54.41439, -54.42332, -54.4398, -54.45267, -54.44872, -54.43568,
  -54.42126, -54.42023, -54.41336, -54.41663, -54.43636, -54.44066, -54.41783, -54.42298, -54.45732, -54.46606,
  -54.46142, -54.46743, -54.46863, -54.4664, -54.47155, -54.46863, -54.47911, -54.47859, -54.44117, -54.43928,
  -54.44443, -54.43632, -54.43859, -54.42724, -54.40629, -54.373, -54.3651, -54.34758, -54.34758, -54.33524,
  -54.29678, -54.22709, -54.20305, -54.13335, -54.12889, -54.09216, -54.08907, -54.0616, -54.04855, -54.00563,
  -54.00495, -54.01628, -54.02558,
  -54.03142, -54.02987, -54.03313, -54.03142, -54.02112, -54.0121, -54.01477, -54.00927, -53.99606, -53.99417,
  -53.98988, -53.98542, -54.01632, -54.01614, -54.0352, -54.07175, -54.09014, -54.10627, -54.149, -54.20738,
  -54.29356, -54.33166, -54.35911, -54.37885, -54.38382, -54.47705, -54.69979, -54.83154, -54.86088, -54.8602,
  -54.99151, -55.05985, -55.12866, -55.16061, -55.16833, -55.15958, -55.16272, -55.15494, -55.15357, -55.13057,
  -55.10191, -55.06844, -55.04319, -55.02535, -55.01951, -55.02552, -55.03307, -55.05263, -55.0794, -55.09364,
  -55.09553, -55.08818, -55.08886, -55.09977, -55.11591, -55.13755, -55.15506, -55.15438, -55.11522, -55.09995,
  -55.09806, -55.09977, -55.11745, -55.12055, -55.13926, -55.1585, -55.18649, -55.20877, -55.27675, -55.30233,
  -55.31144, -55.31401, -55.33033, -55.33771, -55.3461, -55.37117, -55.38834, -55.3995, -55.41856, -55.4388,
  -55.45889, -55.48224, -55.50491, -55.50817, -55.542, -55.54664, -55.56119, -55.61597, -55.70816, -55.7243,
  -55.77063, -55.80394, -55.82232, -55.84719, -55.87672, -55.8817, -55.89372, -55.90384, -55.91517, -55.95551,
  -55.95585, -55.93696, -55.82994, -55.75129, -55.68947, -55.68535, -55.75232, -55.84437, -55.90616, -55.91887,
  -55.87663, -55.87423, -55.89621, -55.89896, -55.88728, -55.89484, -55.93571, -55.98889, -56.05277, -56.15231,
  -56.19937, -56.25432, -56.28557, -56.39881, -56.42663, -56.44243, -56.462, -56.51592, -56.57115, -56.66765,
  -56.70406, -56.76614, -56.86539, -56.96258, -57.01851, -57.06281, -57.07449, -57.08376, -57.13594,
  -57.13551, -57.15816, -57.16949, -57.17087, -57.18476, -57.17327, -57.16125, -57.15988, -57.16897, -57.16125,
  -57.17207, -57.19783, -57.23472, -57.26356, -57.27214, -57.26888, -57.26923, -57.28089, -57.32742, -57.33291,
  -57.34097, -57.33994, -57.32913, -57.29893, -57.29275, -57.28881, -57.29034, -57.28897, -57.29686, -57.29669,
  -57.29016, -57.28535, -57.27986, -57.25961, -57.25103, -57.26013, -57.26544, -57.26871, -57.25292, -57.22786,
  -57.21757, -57.21722, -57.20039, -57.18477, -57.18202, -57.18854, -57.21377, -57.21463, -57.22938, -57.23487,
  -57.25566, -57.28273, -57.30248, -57.3028, -57.29885, -57.30847, -57.32271, -57.32683, -57.31105, -57.29903,
  -57.28632, -57.2877, -57.30487, -57.31088, -57.3229, -57.33801, -57.33853, -57.35707, -57.36477, -57.3816,
  -57.41457, -57.44683, -57.47723, -57.51378, -57.51721, -57.53693, -57.55273, -57.58502, -57.61575, -57.64117,
  -57.66277, -57.67256, -57.68596, -57.70124, -57.71306, -57.73161, -57.74003, -57.7517, -57.75634, -57.75135,
  -57.75736, -57.8063, -57.81746, -57.83701, -57.88441, -57.90911, -57.92027, -57.92885, -57.9158, -57.88626,
  -57.87203, -57.87255, -57.86877, -57.86791, -57.871, -57.85692, -57.85624, -57.83976, -57.85075, -57.8492,
  -57.84405, -57.83564, -57.85813, -57.86603, -57.86998, -57.87633, -57.87788, -57.88887, -57.8904, -57.91238,
  -57.9189, -57.92749, -57.95478, -57.95598, -57.96302, -57.95976, -57.95203, -57.95426, -57.94602, -57.96422,
  -57.991, -57.98791, -58.01005, -58.02087, -58.02705, -58.02276, -58.04611, -58.04336, -58.05847, -58.06036,
  -58.0662, -58.07116, -58.06464, -58.04867, -58.04954, -58.02876, -58.02842, -58.03495, -58.031, -58.04096,
  -58.0298, -58.01125, -58.01074, -57.99649, -57.96885, -57.94395, -57.88253, -57.87188, -57.86433, -57.85677,
  -57.85883, -57.842, -57.84853, -57.83273, -57.82346, -57.81831, -57.80423, -57.76233, -57.74344, -57.71325,
  -57.65246, -57.65833, -57.6463, -57.64596, -57.63154, -57.62673, -57.64424, -57.64802, -57.68443, -57.69404,
  -57.69885, -57.65627, -57.63017, -57.60991, -57.59205, -57.5711, -57.53229, -57.53092, -57.51272, -57.50928,
  -57.4952, -57.49554, -57.48532, -57.46265, -57.44067, -57.44033, -57.42934, -57.42761, -57.4204, -57.41044,
  -57.33488, -57.32551, -57.31728, -57.31659, -57.30458, -57.30406, -57.29308, -57.29754, -57.296, -57.28828,
  -57.28227, -57.28861, -57.28535, -57.29445, -57.3008, -57.29445, -57.29256, -57.27987, -57.2821, -57.28999,
  -57.29102, -57.28329, -57.30338, -57.29428, -57.28004, -57.27317, -57.29325, -57.28654, -57.26612, -57.25806,
  -57.24673, -57.23369, -57.25703, -57.26183, -57.2232, -57.22217, -57.20536, -57.20999, -57.20484, -57.19987,
  -57.19472, -57.20038, -57.19181, -57.2021, -57.22784, -57.23213, -57.20416, -57.21171, -57.22664, -57.2251,
  -57.2148, -57.22029, -57.22076, -57.2132, -57.19586, -57.17989, -57.17285, -57.18744, -57.2144, -57.22402,
  -57.20994, -57.21252, -57.20875, -57.19483, -57.189, -57.19192, -57.19776, -57.20549, -57.19948, -57.17681,
  -57.16754, -57.17579, -57.17166, -57.14986, -57.12066, -57.11534, -57.12066, -57.12925, -57.13801, -57.13303,
  -57.12582, -57.1186, -57.11276, -57.10693, -57.10677, -57.08926, -57.08634, -57.10403, -57.09887, -57.09218,
  -57.09149, -57.06831, -57.06745, -57.05199, -57.06094, -57.04875, -57.04132, -57.03227, -57.02419, -57.01527,
  -57.02128, -57.02283, -57.02952, -57.03038, -57.01527, -57.02317, -57.01905, -57.00172, -57.00172, -56.99708,
  -56.98815, -56.98455, -56.99262, -56.99193, -56.98283, -56.97991, -56.99228, -56.99125, -56.9703, -56.96069,
  -56.9545, -56.95691, -56.94987, -56.94077, -56.93561, -56.94042, -56.93785, -56.94746, -56.95107, -56.95365,
  -56.95038, -56.93749, -56.93558, -56.91395, -56.91549, -56.92305, -56.91704, -56.93335, -56.92545, -56.92563,
  -56.92082, -56.91051, -56.91034, -56.90485, -56.90366, -56.87876, -56.86657, -56.8743, -56.87533, -56.87825,
  -56.87671, -56.87808, -56.8731, -56.86159, -56.86177, -56.84889, -56.84445, -56.82779, -56.8259, -56.81869,
  -56.80375, -56.81062, -56.80804, -56.81302, -56.81491, -56.80804, -56.79963, -56.79997, -56.79053, -56.79054,
  -56.77749, -56.78075, -56.75414, -56.73817, -56.73405, -56.71208, -56.70745, -56.6865, -56.68633, -56.58179,
  -56.55225, -56.53356, -56.51416, -56.48307, -56.46901,
  -56.45465, -56.45139, -56.44435, -56.43749, -56.43234, -56.42256, -56.42239, -56.41192, -56.40368, -56.395, 
  -56.38961, -56.38892, -56.37223, -56.36949, -56.35782, -56.33929, -56.335, -56.3211, -56.30891, -56.30291, 
  -56.29587, -56.29072, -56.28987, -56.27183, -56.26273, -56.2442, -56.23408, -56.21537, -56.20919, -56.20061, 
  -56.1989, -56.18239, -56.17106, -56.16917, -56.16076, -56.15253, -56.1412, -56.13228, -56.1297, -56.11992, 
  -56.11786, -56.11323, -56.09864, -56.09092, -56.08577, -56.08148, -56.07719, -56.07544, -56.06652, -56.05056, 
  -56.04369, -56.03666, -56.02869, -56.02423, -55.99864, -55.99555, -55.98321, -55.97944, -55.97583, -55.97033, 
  -55.95643, -55.93412, -55.91523, -55.9039, -55.90218, -55.9209, -55.92209, -55.92835, -55.9226, -55.93669, 
  -55.93548, -55.9293, -55.92209, -55.91333, -55.90427, -55.91144, -55.91041, -55.902, -55.9032, -55.90887, 
  -55.93291, -55.92621, -55.92913, -55.9384, -55.94922, -55.96708, -55.9729, -55.96947, -55.97324, -55.97805, 
  -55.97565, -55.98252, -55.99179, -55.99471, -55.98595, -56.00328, -56.01462, -56.03539, -56.04604, -56.05033, 
  -56.05514, -56.05652, -56.04656, -56.03572, -56.03761, -56.04311, -56.04345, -56.05788, -56.06921, -56.07478, 
  -56.0881, -56.09566, -56.09557, -56.12073, -56.12328, -56.13873, -56.1377, -56.12534, -56.12843, -56.114, 
  -56.11232, -56.10765, -56.09322, -56.09204, -56.09565, -56.08861, -56.09221, -56.08912, -56.0905, -56.08122, 
  -56.08088, -56.07435, -56.06062, -56.0601, -56.0498, -56.02936, -56.02988, -56.02146, -56.02215, -56.02765, 
  -56.02679, -56.03314, -56.03984, -56.03657, -56.02421, -56.0232, -56.01221, -56.00672, -56.00105, -55.98834, 
  -55.98955, -55.98439, -55.9911, -55.99574, -56.00398, -56.01014, -56.01171, -55.98921, -55.98818, -55.97771, 
  -55.97839, -55.99333, -55.98973, -55.97954, -55.97822, -55.92828, -55.92175, -55.92415, -55.90406, -55.89754, 
  -55.8862, -55.88125, -55.85378, -55.85, -55.82888, -55.78393, -55.78087, -55.76659, -55.76076, -55.76848, 
  -55.75628, -55.74701, -55.71679, -55.70425, -55.69875, -55.67403, -55.6572, -55.64179, -55.61689, -55.61225, 
  -55.59388, -55.58976, -55.57448, -55.57087, -55.55232, -55.52725, -55.52433, -55.50377, -55.50034, -55.48162, 
  -55.42976, -55.38532, -55.34531, -55.35627, -55.31987, -55.23263, -55.17295, -55.12315, -55.11048, -54.99951, 
  -54.95359, -54.9364, -54.91991, -54.91064, -54.91236, -54.88522, -54.88042, -54.87114, -54.86531, -54.87252, 
  -54.87114, -54.87904, -54.87733, -54.87155, -54.86932, -54.86451, -54.85764, -54.83858, -54.84013, -54.81643, 
  -54.81437, -54.79428, -54.79926, -54.78123, -54.77075, -54.78071, -54.77781, -54.77335, -54.76991, -54.76511, 
  -54.76219, -54.74055, -54.73008, -54.72149, -54.71548, -54.69659, -54.69162, -54.69437, -54.69076, -54.68475, 
  -54.69196, -54.70433, -54.69815, -54.69282, -54.69334, -54.68492, -54.70004, -54.7148, -54.72047, -54.71034, 
  -54.7191, -54.70897, -54.70793, -54.693, -54.69387, -54.6815, -54.67944, -54.67292, -54.67498, -54.6712, 
  -54.66364, -54.66862, -54.66725, -54.65987, -54.66296, -54.63359, -54.62535, -54.61539, -54.61832, -54.61334, 
  -54.60939, -54.60561)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

##### BRAZIL #####
Geo_0 <- Geometric_Operations(Geo_3, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0))
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(
  0.75392, 0.74207, 0.75546, 0.7498, 0.7673, 0.83819, 0.84643, 0.85124, 0.85742, 0.85107, 
  0.85673, 0.87801, 0.87338, 0.88351, 0.89775, 0.89518, 0.91063, 0.90393, 0.8823, 0.91698, 
  0.94307, 0.94135, 0.95577, 0.94307, 0.95628, 0.94581, 0.95148, 0.9604, 0.96538, 0.9858, 
  0.99061, 1.00142, 1.01498, 1.10011, 1.11847, 1.12019, 1.16756, 1.18815, 1.21596, 1.21802, 
  1.20394, 1.20291, 1.18781, 1.18644, 1.20944, 1.23209, 1.21253, 1.22969, 1.22591, 1.24994, 
  1.25749, 1.32202, 1.41812, 1.65664, 1.67346, 1.68616, 1.70641, 1.76577, 1.81416, 1.80798, 
  1.81313, 1.80759, 1.81587, 1.80043, 1.80318, 1.8097, 1.81502, 1.84075, 1.88613, 1.92997, 
  1.94146, 1.95038, 1.98984, 2.03959, 2.06498, 2.0902, 2.10204, 2.11319, 2.10958, 2.11988, 
  2.13377, 2.1511, 2.16774, 2.19295, 2.23155, 2.23961, 2.24579, 2.25899, 2.28678, 2.31405, 
  2.35973, 2.37065, 2.39089, 2.41044, 2.44097, 2.45658, 2.47087, 2.49928, 2.50391, 2.49568, 
  2.49585, 2.48282, 2.49774, 2.50614, 2.50769, 2.52912, 2.5413, 2.5545, 2.57868, 2.57954, 
  2.59515, 2.60012, 2.64008, 2.64608, 2.65739, 2.682, 2.68535, 2.71158, 2.71535, 2.74623, 
  2.75976, 2.78377, 2.80571, 2.80931, 2.804, 2.82029, 2.83898, 2.84738, 2.86384, 2.87361, 
  2.87875, 2.88424, 2.89521, 2.93104, 2.9379, 2.9415, 2.96464, 2.98024, 3.01504, 3.0507, 
  3.06612, 3.06767, 3.07847, 3.08344, 3.13383, 3.16708, 3.1784, 3.21799, 3.28858, 3.38283, 
  3.45515, 3.46663, 3.48222, 3.49455, 3.50158, 3.52145, 3.55846, 3.63128, 3.64824, 3.73783, 
  3.88701, 3.90157, 3.91151, 3.90637, 3.90911, 3.85995, 3.79641, 3.76661, 3.74331, 3.72412, 
  3.69278, 3.66365, 3.66314, 3.7022, 3.72789, 3.75376, 3.84608, 3.8646, 3.8956, 3.92951, 
  3.95742, 3.96359, 4.0141, 4.09116, 4.12557, 4.17197, 4.25021, 4.36558, 4.43644, 4.46006, 
  4.44363, 4.42172, 4.41453, 4.40426, 4.34333, 4.29437, 4.22111, 4.14235, 4.10297, 3.96496, 
  3.95091, 3.97557, 4.0427, 4.09784, 4.14543, 4.16803, 4.19029, 4.23035, 4.24713, 4.23035, 
  4.17351, 4.13187, 4.09574, 4.07657, 4.06698,
  4.05292, 4.03328, 4.01462, 4.0016, 3.97437, 3.95913, 3.92334, 3.88412, 3.86802, 3.85775, 
  3.84901, 3.84096, 3.83137, 3.80362, 3.80294, 3.79454, 3.80122, 3.79506, 3.78941, 3.78358, 
  3.77913, 3.78238, 3.77365, 3.76817, 3.74487, 3.73836, 3.72431, 3.72003, 3.72277, 3.71969, 
  3.71318, 3.7125, 3.70444, 3.67995, 3.67481, 3.66162, 3.65237, 3.6438, 3.62718, 3.59121, 
  3.51839, 3.51685, 3.50554, 3.48001, 3.46253, 3.45328, 3.42689, 3.42192, 3.35132, 3.34258, 
  3.30728, 3.29837, 3.28963, 3.24095, 3.23873, 3.25038, 3.25329, 3.24507, 3.22536, 3.21679, 
  3.19948, 3.17548, 3.17223, 3.17565, 3.17051, 3.17171, 3.16537, 3.15029, 3.14617, 3.1388, 
  3.13383, 3.13555, 3.12612, 3.11926, 3.12166, 3.11926, 3.10692, 3.09372, 3.07932, 3.02053, 
  3.01727, 2.99756, 2.99001, 2.98196, 2.95007, 2.9463, 2.94133, 2.92813, 2.92435, 2.91715, 
  2.92093, 2.91853, 2.89727, 2.8971, 2.90121, 2.89332, 2.89367, 2.8496, 2.77914, 2.76405, 
  2.76079, 2.75548, 2.75342, 2.72787, 2.72221, 2.7169, 2.70249, 2.69752, 2.68397, 2.68432, 
  2.67643, 2.66254, 2.65877, 2.65534, 2.64985, 2.65431, 2.65002, 2.64573, 2.63836, 2.63047, 
  2.63099, 2.62173, 2.61487, 2.61435, 2.61058, 2.59995, 2.58229, 2.56685, 2.55845, 2.56239, 
  2.54902, 2.53067, 2.53187, 2.52621, 2.51935, 2.51849, 2.49259, 2.48796, 2.48796, 2.47493, 
  2.47562, 2.46293, 2.45401, 2.4444, 2.44595, 2.44097, 2.44595, 2.44492, 2.43943, 2.43205, 
  2.41765, 2.40307, 2.39244, 2.37408, 2.36808, 2.35436, 2.34201, 2.33652, 2.29964, 2.2909, 
  2.28764, 2.28249, 2.27958, 2.26397, 2.25916, 2.23824, 2.23875, 2.21903, 2.21697, 2.18678, 
  2.19467, 2.17854, 2.16757, 2.1782, 2.19055, 2.22006, 2.22417, 2.21371, 2.2156, 2.21079, 
  2.21474, 2.20222, 2.20908, 2.21199, 2.20273, 2.20033, 2.18884, 2.19004, 2.19433, 2.19415, 
  2.18746, 2.19072, 2.19758, 2.19896, 2.21663, 2.21834, 2.22229, 2.22143, 2.23035, 2.24235, 
  2.24304, 2.24853, 2.24664, 2.26174, 2.277, 2.29484, 2.30805, 2.32486, 2.32983, 2.34201, 
  2.33721, 2.33755, 2.34365, 2.35137, 2.34622, 2.34759, 2.32838, 2.32169, 2.31243, 2.30557, 
  2.28722, 2.28705, 2.29871, 2.29562, 2.2831, 2.28276, 2.26664, 2.25171, 2.26235, 2.25669, 
  2.262, 2.2572, 2.26509, 2.26749, 2.25634, 2.26989, 2.26303, 2.28122, 2.27813, 2.2819, 
  2.27264, 2.28259, 2.27624, 2.28602, 2.29597, 2.30437, 2.2958, 2.29905, 2.29425, 2.29408, 
  2.31089, 2.31278, 2.30506, 2.31106, 2.30935, 2.30128, 2.31106, 2.32204, 2.32478, 2.33387, 
  2.33816, 2.35188, 2.34794, 2.36029, 2.35497, 2.36046, 2.36715, 2.37452, 2.36886, 2.37504, 
  2.36938, 2.36972, 2.36063, 2.36132, 2.35394, 2.35325, 2.34022, 2.3337, 2.32736, 2.3229, 
  2.31243, 2.31243, 2.30454, 2.30866, 2.30866, 2.28499, 2.27298, 2.27144, 2.2771, 2.27178, 
  2.27315, 2.28242, 2.28259, 2.28808, 2.28327, 2.27315, 2.26955, 2.25772, 2.25034, 2.24451, 
  2.2373, 2.23147, 2.21535, 2.2195, 2.20557, 2.21243, 2.18121, 2.18842, 2.18996, 2.19807, 
  2.19614, 2.18927, 2.18396, 2.17898, 2.17367, 2.16337, 2.1536, 2.13575, 2.1397, 2.12203, 
  2.11157, 2.11122, 2.1238, 2.11723, 2.12152, 2.12237, 2.13129, 2.14056, 2.15325, 2.15102, 
  2.17864, 2.17915, 2.16972, 2.15325, 2.14279, 2.15806, 2.15325, 2.16252, 2.16938, 2.17367, 
  2.16972, 2.17761, 2.20626, 2.21106, 2.22375, 2.2277, 2.20197, 2.19974, 2.2114, 2.21535, 
  2.20265, 2.21449, 2.22633, 2.23576, 2.24811, 2.25531, 2.25154, 2.26115, 2.26063, 2.26972, 
  2.27281, 2.27178, 2.27864, 2.2759, 2.2807, 2.28876, 2.29048, 2.29974, 2.30225, 2.31037, 
  2.31278, 2.31792, 2.32084, 2.32615, 2.32615, 2.33061, 2.3253, 2.32753, 2.32169, 2.32615, 
  2.33216, 2.33353, 2.3325, 2.33593, 2.3375,
  2.33805, 2.33427, 2.33976, 2.32861, 2.32141, 2.32655, 2.32244, 2.3281, 2.33908, 2.33959,
  2.35057, 2.3564, 2.35863, 2.35588, 2.35108, 2.34954, 2.35503, 2.35074, 2.3636, 2.36223,
  2.37321, 2.37938, 2.39396, 2.40236, 2.40751, 2.40597, 2.41214, 2.41591, 2.42106, 2.42174,
  2.43547, 2.43872, 2.44833, 2.44678, 2.45159, 2.45725, 2.46273, 2.45948, 2.46668, 2.46325,
  2.47217, 2.46273, 2.4744, 2.47594, 2.47114, 2.47302, 2.45948, 2.45759, 2.44233, 2.44678,
  2.43255, 2.43169, 2.42209, 2.42329, 2.43306, 2.42655, 2.43255, 2.42963, 2.43632, 2.43373,
  2.45363, 2.45397, 2.46152, 2.47249, 2.47489, 2.47009, 2.47798, 2.48518, 2.49822, 2.49993,
  2.51777, 2.58362, 2.59048, 2.51756, 2.56784, 2.55961, 2.50542, 2.51639, 2.47626, 2.44816,
  2.41849, 2.4389, 2.4377, 2.4437, 2.43924, 2.43615, 2.42861, 2.42946, 2.42397, 2.4377,
  2.43152, 2.43375, 2.42723, 2.42003, 2.41557, 2.42054, 2.41351, 2.42174, 2.40013, 2.39876,
  2.4106, 2.42981, 2.43804, 2.44027, 2.45519, 2.46351, 2.45656, 2.45879, 2.46788, 2.47937,
  2.48846, 2.50355, 2.50527, 2.52019, 2.51813, 2.52465, 2.53322, 2.52773, 2.51839, 2.51693,
  2.50321, 2.49686, 2.48949, 2.4792, 2.46944, 2.45281, 2.44549, 2.44577, 2.43617, 2.43857,
  2.43, 2.42725, 2.41851, 2.41336, 2.40135, 2.40175, 2.39175, 2.38232, 2.37443, 2.36654,
  2.36431, 2.35556, 2.34698, 2.34767, 2.34235, 2.33995, 2.33258, 2.33429, 2.34287, 2.3547,
  2.371, 2.3686, 2.37546, 2.37254, 2.36448, 2.36036, 2.35213, 2.33824, 2.33018, 2.32143,
  2.31851, 2.31022, 2.29879, 2.28661, 2.27838, 2.27083, 2.2662, 2.25899, 2.24956, 2.24041,
  2.24647, 2.24973, 2.2358, 2.2427, 2.23361, 2.22795, 2.2216, 2.21971, 2.21405, 2.19604,
  2.18987, 2.18506, 2.18472, 2.17734, 2.16877, 2.16551, 2.16757, 2.14561, 2.14012, 2.13206,
  2.13223, 2.12657, 2.11542, 2.11645, 2.11319, 2.10324, 2.08848, 2.09209, 2.07888, 2.07905,
  2.07562, 2.05743, 2.04748, 2.04182, 2.02964, 2.02227, 2.01506, 2.01113, 1.9907, 1.99104,
  1.99756, 1.99653, 1.98693, 1.95073, 1.94142, 1.9334, 1.91899, 1.90766, 1.88828, 1.88502,
  1.87198, 1.84504, 1.8483, 1.84041, 1.84178, 1.83526, 1.83492, 1.83132, 1.84281, 1.84144,
  1.85002, 1.84727, 1.8507, 1.85208, 1.85002, 1.84521, 1.84573, 1.85345, 1.85396, 1.84658,
  1.85499, 1.85087, 1.85688, 1.85894, 1.86975, 1.87541, 1.89102, 1.89154, 1.88759, 1.90011,
  1.89291, 1.89239, 1.89617, 1.89411, 1.902, 1.89926, 1.87815, 1.88536, 1.89651, 1.90629,
  1.91058, 1.90869, 1.91144, 1.92105, 1.92328, 1.93717, 1.93563, 1.94163, 1.93752, 1.93271,
  1.93271, 1.92362, 1.92135, 1.93014, 1.92842, 1.93872, 1.94575, 1.94661, 1.95176, 1.9485,
  1.95622, 1.95227, 1.94918,
  1.95391, 1.93761, 1.93178, 1.92457, 1.91565, 1.91737, 1.91136, 1.90604, 1.922, 1.93658,
  1.93334, 1.94602, 1.93161, 1.93109, 1.91702, 1.91342, 1.9208, 1.91188, 1.92783, 1.88597,
  1.87036, 1.86487, 1.85354, 1.85389, 1.87276, 1.893, 1.88923, 1.89935, 1.93041, 1.91977,
  1.92492, 1.90227, 1.92269, 1.9431, 1.96094, 2.00109, 2.00795, 2.01944, 2.02682, 2.01824,
  2.02957, 2.00915, 2.0016, 1.98908, 1.99508, 1.99097, 1.97373, 1.97879, 1.95099, 1.93744,
  1.95014, 1.95921, 1.96163, 1.97467, 1.98239, 1.99526, 1.97638, 1.97896, 1.97038, 1.96146,
  1.9558, 1.94482, 1.92251, 1.92577, 1.91085, 1.90896, 1.85663, 1.8417, 1.82695, 1.81786,
  1.80567, 1.78766, 1.76124, 1.75351, 1.72143, 1.72778, 1.71817, 1.70358, 1.689, 1.7065,
  1.69295, 1.69929, 1.68179, 1.70719, 1.70993, 1.72263, 1.73069, 1.72846, 1.71903, 1.71559,
  1.72486, 1.71868, 1.7228, 1.72775, 1.71971, 1.72675, 1.70338, 1.7017, 1.69123, 1.68505,
  1.68866, 1.68368, 1.68728, 1.66892, 1.6799, 1.66944, 1.6751, 1.64662, 1.64524, 1.65983,
  1.6461, 1.63289, 1.58536, 1.57232, 1.55464, 1.54229, 1.52839, 1.50316, 1.52701, 1.50694,
  1.50797, 1.51394, 1.5138, 1.5011, 1.4987, 1.51054, 1.51569, 1.53027, 1.5603, 1.56957,
  1.56545, 1.5464, 1.5706, 1.56734, 1.57214, 1.5612, 1.56888, 1.59377, 1.59737, 1.57575,
  1.56013, 1.5392, 1.53525, 1.52255, 1.51123, 1.50539, 1.48703, 1.48806, 1.48102, 1.46953,
  1.47227, 1.46438, 1.45453, 1.46592, 1.46112, 1.46798, 1.46318, 1.44533, 1.43606, 1.40294,
  1.38956, 1.38372, 1.37085, 1.37531, 1.37188, 1.34803, 1.31624, 1.30028, 1.29479, 1.26733,
  1.27746, 1.26596, 1.25755, 1.25789, 1.27111, 1.2663, 1.29084, 1.2917, 1.28157, 1.27471,
  1.26218, 1.27076, 1.27402, 1.28689, 1.28775, 1.27969, 1.28483, 1.29771, 1.29153, 1.24639,
  1.23712, 1.19954, 1.20846, 1.18529, 1.19302, 1.17534, 1.18118, 1.17019, 1.18856, 1.18238,
  1.20417, 1.20332, 1.22199, 1.22923, 1.22734, 1.23901, 0.27074)
LONGITUDE_VALUEs <- c(
  -50.32463, -50.25321, -50.16359, -50.15381, -50.09701, -50.03297, -50.03452, -50.02439, -50.02594, -50.03469, 
  -50.03623, -50.01221, -49.9911, -49.98698, -49.99572, -50.00585, -50.0237, -50.0352, -50.0352, -50.0606, 
  -50.01873, -50.005, -49.99176, -49.99004, -49.97975, -49.9758, -49.95452, -49.95727, -49.93959, -49.93014, 
  -49.91589, -49.91401, -49.88724, -49.88689, -49.89616, -49.9288, -49.87561, -49.89826, -49.89723, -49.94701, 
  -49.97962, -50.01806, -50.06988, -50.13543, -50.16049, -50.14574, -50.12343, -50.06302, -50.01909, -49.96967, 
  -49.92849, -49.88507, -49.8813, -49.91048, -49.92421, -49.91837, -49.93555, -50.04265, -50.17208, -50.21978, 
  -50.26443, -50.28827, -50.32659, -50.37673, -50.42344, -50.42943, -50.44523, -50.47803, -50.50964, -50.52523, 
  -50.53466, -50.55235, -50.58359, -50.6011, -50.5987, -50.61742, -50.63579, -50.64455, -50.66633, -50.65774, 
  -50.68041, -50.68608, -50.67973, -50.6871, -50.71028, -50.7278, -50.72419, -50.72556, -50.72093, -50.74392, 
  -50.74842, -50.75903, -50.75714, -50.77019, -50.76641, -50.77121, -50.78584, -50.7925, -50.81567, -50.82632, 
  -50.85019, -50.85431, -50.85757, -50.85139, -50.82804, -50.82512, -50.83405, -50.83147, -50.83783, -50.84178, 
  -50.84968, -50.84435, -50.8471, -50.86067, -50.85739, -50.87045, -50.88297, -50.8864, -50.88366, -50.88576, 
  -50.9077, -50.90632, -50.92538, -50.93706, -50.94805, -50.94513, -50.95421, -50.95009, -50.95284, -50.94975, 
  -50.95163, -50.95146, -50.96159, -50.97756, -50.98529, -50.98494, -50.99233, -50.9925, -51.0004, -51.02271, 
  -51.02236, -51.01584, -51.01962, -51.01309, -51.04674, -51.04262, -51.03489, -51.03369, -51.06613, -51.096, 
  -51.10973, -51.0979, -51.09017, -51.08983, -51.08399, -51.0857, -51.08055, -51.08896, -51.08656, -51.09085, 
  -51.08021, -51.08518, -51.10201, -51.1221, -51.12467, -51.15179, -51.16604, -51.1681, -51.17462, -51.18475, 
  -51.18561, -51.19471, -51.20261, -51.19677, -51.19745, -51.18474, -51.17771, -51.17943, -51.17685, -51.18114, 
  -51.17754, -51.18046, -51.17531, -51.19282, -51.20397, -51.23093, -51.28376, -51.394, -51.48427, -51.53922, 
  -51.55742, -51.56017, -51.54987, -51.55945, -51.5725, -51.56702, -51.5392, -51.53302, -51.50624, -51.44959, 
  -51.45302, -51.4568, -51.49491, -51.52033, -51.54503, -51.5495, -51.55911, -51.56769, -51.59345, -51.60821, 
  -51.60168, -51.62352, -51.63228, -51.64429, -51.6424,
  -51.65831, -51.68505, -51.71645, -51.74768, -51.77824, -51.78408, -51.78151, -51.79936, -51.8227, -51.82373, 
  -51.83986, -51.84503, -51.85721, -51.87266, -51.88278, -51.88776, -51.90441, -51.90543, -51.89497, -51.89617, 
  -51.91197, -51.91952, -51.92089, -51.92759, -51.9154, -51.91987, -51.91987, -51.94304, -51.95059, -51.95779, 
  -51.95642, -51.96569, -51.97274, -51.97978, -51.98613, -51.9887, -51.98682, -51.99162, -51.98819, -52.02149, 
  -52.06063, -52.07059, -52.07076, -52.09342, -52.09462, -52.10818, -52.11676, -52.12483, -52.16105, -52.17153, 
  -52.1928, -52.1892, -52.2008, -52.23362, -52.24461, -52.24856, -52.26247, -52.26312, -52.29317, -52.29351, 
  -52.30313, -52.29935, -52.30296, -52.31137, -52.31927, -52.33164, -52.32975, -52.3361, -52.34194, -52.33147, 
  -52.33318, -52.3495, -52.3536, -52.34724, -52.34037, -52.33711, -52.3457, -52.3445, -52.32562, -52.35464, 
  -52.36271, -52.3627, -52.37214, -52.36802, -52.3833, -52.39429, -52.38982, -52.39618, -52.38914, -52.38897, 
  -52.3778, -52.37609, -52.39171, -52.40098, -52.40579, -52.41163, -52.41952, -52.44493, -52.47875, -52.47445, 
  -52.48338, -52.48304, -52.4784, -52.49145, -52.50019, -52.50002, -52.50809, -52.50689, -52.51599, -52.52166, 
  -52.51925, -52.52801, -52.52578, -52.52972, -52.52972, -52.54089, -52.55016, -52.55016, -52.55617, -52.55067, 
  -52.54483, -52.54243, -52.54397, -52.54792, -52.55033, -52.53195, -52.52698, -52.53866, -52.53625, -52.54931, 
  -52.56167, -52.55426, -52.54877, -52.55254, -52.55169, -52.56268, -52.58809, -52.58706, -52.59049, -52.59702, 
  -52.61762, -52.62277, -52.60955, -52.61779, -52.62466, -52.63222, -52.63291, -52.63686, -52.63703, -52.64527, 
  -52.64405, -52.6583, -52.65435, -52.66019, -52.68766, -52.71772, -52.71789, -52.73984, -52.80509, -52.8425, 
  -52.84335, -52.83752, -52.85829, -52.85297, -52.87238, -52.87579, -52.88764, -52.88592, -52.89159, -52.90532, 
  -52.93383, -52.94018, -52.98738, -52.99854, -53.0545, -53.07425, -53.10187, -53.17001, -53.17705, -53.1834, 
  -53.19113, -53.22599, -53.23286, -53.24763, -53.249, -53.25742, -53.26343, -53.27545, -53.27697, -53.27954, 
  -53.2816, -53.28469, -53.28332, -53.27439, -53.27405, -53.27937, -53.2713, -53.26314, -53.25619, -53.25774, 
  -53.24263, -53.2404, -53.23319, -53.22443, -53.24812, -53.25808, -53.28951, -53.30356, -53.3161, -53.31764, 
  -53.3209, -53.33413, -53.33352, -53.34227, -53.34759, -53.35875, -53.35772, -53.37042, -53.37093, -53.39993, 
  -53.40734, -53.42244, -53.4312, -53.43411, -53.43137, -53.44716, -53.44561, -53.46502, -53.48733, -53.49316, 
  -53.50054, -53.51633, -53.52697, -53.54379, -53.55257, -53.57385, -53.58569, -53.59959, -53.60923, -53.6118, 
  -53.61952, -53.63342, -53.64595, -53.67083, -53.65933, -53.66894, -53.67581, -53.68267, -53.68284, -53.69915, 
  -53.69657, -53.7026, -53.70552, -53.71084, -53.73023, -53.73263, -53.74653, -53.74276, -53.73435, -53.73847, 
  -53.72587, -53.72114, -53.72783, -53.73589, -53.74631, -53.75284, -53.73601, -53.73738, -53.74597, -53.76864, 
  -53.7736, -53.78202, -53.78322, -53.79833, -53.79936, -53.81155, -53.8093, -53.83317, -53.83678, -53.85035, 
  -53.84966, -53.8591, -53.86563, -53.87044, -53.88297, -53.88981, -53.88517, -53.89084, -53.89239, -53.90166, 
  -53.91231, -53.91007, -53.91917, -53.92295, -53.93755, -53.94253, -53.9348, -53.93994, -53.9365, -53.94269, 
  -53.93255, -53.94251, -53.94165, -53.96354, -53.97496, -53.98715, -54.01941, -54.03281, -54.05668, -54.05882, 
  -54.06681, -54.06559, -54.07297, -54.0716, -54.08241, -54.08173, -54.08808, -54.08396, -54.09272, -54.10594, 
  -54.10113, -54.10701, -54.12385, -54.14234, -54.14629, -54.15625, -54.15193, -54.16739, -54.16739, -54.18147, 
  -54.18473, -54.18954, -54.19091, -54.25871, -54.26764, -54.31933, -54.33496, -54.34197, -54.3387, -54.34883, 
  -54.3521, -54.36446, -54.35519, -54.36136, -54.35862, -54.37596, -54.39931, -54.41717, -54.41786, -54.4304, 
  -54.44445, -54.47896, -54.4757, -54.49751, -54.49631, -54.50575, -54.5243, -54.5265, -54.53715, -54.54934, 
  -54.54883, -54.53698, -54.52547, -54.51654, -54.51294, -54.51844, -54.52548, -54.52462, -54.53087, -54.52771, 
  -54.53355, -54.53286, -54.53784, -54.53664, -54.55381, -54.55622, -54.56583, -54.57339, -54.58696, -54.59792, 
  -54.59517, -54.59809, -54.60221, -54.60272, -54.60191,
  -54.60561, -54.60939, -54.61334, -54.61832, -54.61539, -54.62535, -54.63359, -54.66296, -54.65987, -54.66725,
  -54.66862, -54.66364, -54.6712, -54.67498, -54.67292, -54.67944, -54.6815, -54.69387, -54.693, -54.70793,
  -54.70897, -54.7191, -54.71034, -54.72047, -54.7148, -54.70004, -54.68492, -54.69334, -54.69282, -54.69815,
  -54.70433, -54.69196, -54.68475, -54.69076, -54.69437, -54.69162, -54.69659, -54.71548, -54.72149, -54.73008,
  -54.74055, -54.76219, -54.76511, -54.76991, -54.77335, -54.77781, -54.78071, -54.77075, -54.78123, -54.79926,
  -54.79428, -54.81437, -54.81643, -54.84013, -54.83858, -54.85764, -54.86451, -54.86932, -54.87155, -54.87733,
  -54.87904, -54.87114, -54.87252, -54.86531, -54.87114, -54.88042, -54.88522, -54.91236, -54.91064, -54.91991,
  -54.9364, -54.95359, -54.99951, -55.11048, -55.12315, -55.17295, -55.23263, -55.31987, -55.35627, -55.34531,
  -55.38532, -55.42976, -55.48162, -55.50034, -55.50377, -55.52433, -55.52725, -55.55232, -55.57087, -55.57448,
  -55.58976, -55.59388, -55.61225, -55.61689, -55.64179, -55.6572, -55.67403, -55.69875, -55.70425, -55.71679,
  -55.74701, -55.75628, -55.76848, -55.76076, -55.76659, -55.78087, -55.78393, -55.82888, -55.85, -55.85378,
  -55.88125, -55.8862, -55.89754, -55.90406, -55.92415, -55.92175, -55.92828, -55.97822, -55.97954, -55.98973,
  -55.99333, -55.97839, -55.97771, -55.98818, -55.98921, -56.01171, -56.01014, -56.00398, -55.99574, -55.9911,
  -55.98439, -55.98955, -55.98834, -56.00105, -56.00672, -56.01221, -56.0232, -56.02421, -56.03657, -56.03984,
  -56.03314, -56.02679, -56.02765, -56.02215, -56.02146, -56.02988, -56.02936, -56.0498, -56.0601, -56.06062,
  -56.07435, -56.08088, -56.08122, -56.0905, -56.08912, -56.09221, -56.08861, -56.09565, -56.09204, -56.09322,
  -56.10765, -56.11232, -56.114, -56.12843, -56.12534, -56.1377, -56.13873, -56.12328, -56.12073, -56.09557,
  -56.09566, -56.0881, -56.07478, -56.06921, -56.05788, -56.04345, -56.04311, -56.03761, -56.03572, -56.04656,
  -56.05652, -56.05514, -56.05033, -56.04604, -56.03539, -56.01462, -56.00328, -55.98595, -55.99471, -55.99179,
  -55.98252, -55.97565, -55.97805, -55.97324, -55.96947, -55.9729, -55.96708, -55.94922, -55.9384, -55.92913,
  -55.92621, -55.93291, -55.90887, -55.9032, -55.902, -55.91041, -55.91144, -55.90427, -55.91333, -55.92209,
  -55.9293, -55.93548, -55.93669, -55.9226, -55.92835, -55.92209, -55.9209, -55.90218, -55.9039, -55.91523,
  -55.93412, -55.95643, -55.97033, -55.97583, -55.97944, -55.98321, -55.99555, -55.99864, -56.02423, -56.02869,
  -56.03666, -56.04369, -56.05056, -56.06652, -56.07544, -56.07719, -56.08148, -56.08577, -56.09092, -56.09864,
  -56.11323, -56.11786, -56.11992, -56.1297, -56.13228, -56.1412, -56.15253, -56.16076, -56.16917, -56.17106,
  -56.18239, -56.1989, -56.20061, -56.20919, -56.21537, -56.23408, -56.2442, -56.26273, -56.27183, -56.28987,
  -56.29072, -56.29587, -56.30291, -56.30891, -56.3211, -56.335, -56.33929, -56.35782, -56.36949, -56.37223,
  -56.38892, -56.38961, -56.395, -56.40368, -56.41192, -56.42239, -56.42256, -56.43234, -56.43749, -56.44435,
  -56.45139, -56.45465, -56.46901,
  -56.48274, -56.49579, -56.51895, -56.52497, -56.54642, -56.55586, -56.56135, -56.58057, -56.59558, -56.59859,
  -56.60854, -56.62244, -56.6417, -56.65045, -56.6501, -56.67344, -56.67962, -56.68271, -56.71583, -56.76597,
  -56.77043, -56.78794, -56.78759, -56.79789, -56.79926, -56.84579, -56.85678, -56.89504, -56.91995, -56.94861,
  -56.96028, -56.9754, -57.025, -57.02501, -57.0698, -57.07119, -57.08475, -57.08114, -57.08784, -57.09676,
  -57.11426, -57.11924, -57.14037, -57.14775, -57.16388, -57.17898, -57.18546, -57.2006, -57.22945, -57.22911,
  -57.25571, -57.2579, -57.26172, -57.27338, -57.26741, -57.30784, -57.31402, -57.34888, -57.35711, -57.35436,
  -57.36981, -57.35762, -57.36878, -57.39265, -57.40604, -57.43214, -57.43265, -57.44501, -57.43813, -57.44775,
  -57.45118, -57.5015, -57.49804, -57.51212, -57.51727, -57.52792, -57.54131, -57.53271, -57.57633, -57.57822,
  -57.60927, -57.62816, -57.64946, -57.6745, -57.69614, -57.69786, -57.70524, -57.71194, -57.70816, -57.71778,
  -57.71984, -57.73098, -57.76772, -57.77756, -57.7806, -57.79314, -57.79589, -57.80379, -57.79571, -57.79984,
  -57.80928, -57.81973, -57.84428, -57.8551, -57.87691, -57.88086, -57.89597, -57.91329, -57.93716, -57.98675,
  -58.00324, -57.98041, -57.98418, -57.97817, -57.995, -57.98916, -58.00256, -58.00531, -58.05974, -58.07156,
  -58.08547, -58.08431, -58.09869, -58.11174, -58.13011, -58.15003, -58.1466, -58.1555, -58.15928, -58.19225,
  -58.21268, -58.23638, -58.26159, -58.27275, -58.28769, -58.29473, -58.31705, -58.31429, -58.32287, -58.34468,
  -58.36099, -58.36012, -58.39034, -58.3955, -58.38382, -58.3924, -58.38588, -58.37609, -58.37266, -58.38674,
  -58.41662, -58.44028, -58.44669, -58.4626, -58.48252, -58.4942, -58.50965, -58.50793, -58.49865, -58.50604,
  -58.47875, -58.48424, -58.46999, -58.46484, -58.45763, -58.47497, -58.47101, -58.4832, -58.49522, -58.49677,
  -58.51325, -58.51994, -58.51857, -58.52252, -58.52819, -58.5378, -58.54088, -58.56526, -58.57831, -58.57779,
  -58.58517, -58.58826, -58.60799, -58.62018, -58.6523, -58.665, -58.67599, -58.68114, -58.71017, -58.7225,
  -58.71477, -58.74001, -58.75134, -58.77247, -58.78998, -58.80112, -58.8061, -58.82516, -58.82585, -58.85504,
  -58.85966, -58.86705, -58.87367, -58.88216, -58.89538, -58.9122, -58.92005)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_3, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_3 <- st_set_geometry(Geo_3, st_union(Geo_0[c(1:17, 21:60, 124)]))
Geo_3 <- st_union(Geo_3, Geo)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(4.13722, 4.12711, 4.12677, 4.14287, 4.15451, 4.1718, 4.18259, 4.17043, 4.15262)
LONGITUDE_VALUEs <- c(-51.63457, -51.63474, -51.63302, -51.62805, -51.62084, -51.61913, -51.62496, -51.62976, -51.63045)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(1.86117, 1.85671, 1.84607, 1.84641, 1.85328, 1.85739)
LONGITUDE_VALUEs <- c(-50.22643, -50.23054, -50.22643, -50.21579, -50.20154, -50.20515)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  2.10181, 2.11639, 2.11279, 2.11759, 2.11605, 2.1284, 2.15602, 2.15619, 2.16665, 2.16957, 
  2.1814, 2.18278, 2.18861, 2.19513, 2.18741, 2.16871, 2.14984, 2.14915, 2.13852, 2.10078, 
  2.0958, 2.10507)
LONGITUDE_VALUEs <- c(
  -50.47242, -50.45818, -50.44857, -50.43824, -50.42005, -50.41473, -50.42657, -50.43086, -50.43756, -50.44391, 
  -50.45198, -50.45799, -50.46022, -50.4748, -50.51753, -50.54262, -50.55343, -50.54313, -50.52889, -50.51085, 
  -50.4949, -50.48563)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  2.09443, 2.07711, 2.05618, 2.01878, 2.00111, 1.98944, 1.93986, 1.88307, 1.86574, 1.88101,
  1.93746, 1.96851, 1.98721, 1.99613, 2.02701, 2.03816, 2.05669, 2.09014, 2.11141, 2.11296, 
  2.10874, 2.11277, 2.09802, 2.10179, 2.09218)
LONGITUDE_VALUEs <- c(
  -50.50605, -50.51205, -50.51223, -50.52064, -50.52132, -50.50621, -50.47274, -50.45283, -50.42864, -50.37798,
  -50.31859, -50.31791, -50.327, -50.34176, -50.36134, -50.36186, -50.35963, -50.38984, -50.40443, -50.43738, 
  -50.44616, -50.45782, -50.4712, -50.4851, -50.49387)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("FRENCH GUIANA", "SURINAME", "BRAZIL"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3)

TIGRI AREA (also know as NEW RIVER TRIANGLE) is included in GUYANA in GeoDATA.

TIGRI AREA is claimed by GUYANA and by SURINAME.

TIGRI AREA has been controlled by GUYANA since 1969.

WEST OF ESSEQUIBO RIVER (also know as GUYANA ESEQUIBA) is included in GUYANA in GeoDATA.

WEST OF ESSEQUIBO RIVER is claimed by GUYANA and by VENEZUELA.

WEST OF ESSEQUIBO RIVER has been controlled by GUYANA since 1966.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "GUYANA")
Geo_2 <- GeoDATA %>% filter(NAME == "VENEZUELA")
Geo_3 <- GeoDATA %>% filter(NAME == "BRAZIL")
Geo_4 <- GeoDATA %>% filter(NAME == "TRINIDAD AND TOBAGO")

##### GUYANA #####
LATITUDE_VALUEs <- c(
  1.95391, 1.93761, 1.93178, 1.92457, 1.91565, 1.91737, 1.91136, 1.90604, 1.922, 1.93658,
  1.93334, 1.94602, 1.93161, 1.93109, 1.91702, 1.91342, 1.9208, 1.91188, 1.92783, 1.88597,
  1.87036, 1.86487, 1.85354, 1.85389, 1.87276, 1.893, 1.88923, 1.89935, 1.93041, 1.91977,
  1.92492, 1.90227, 1.92269, 1.9431, 1.96094, 2.00109, 2.00795, 2.01944, 2.02682, 2.01824,
  2.02957, 2.00915, 2.0016, 1.98908, 1.99508, 1.99097, 1.97373, 1.97879, 1.95099, 1.93744,
  1.95014, 1.95921, 1.96163, 1.97467, 1.98239, 1.99526, 1.97638, 1.97896, 1.97038, 1.96146,
  1.9558, 1.94482, 1.92251, 1.92577, 1.91085, 1.90896, 1.85663, 1.8417, 1.82695, 1.81786,
  1.80567, 1.78766, 1.76124, 1.75351, 1.72143, 1.72778, 1.71817, 1.70358, 1.689, 1.7065,
  1.69295, 1.69929, 1.68179, 1.70719, 1.70993, 1.72263, 1.73069, 1.72846, 1.71903, 1.71559,
  1.72486, 1.71868, 1.7228, 1.72775, 1.71971, 1.72675, 1.70338, 1.7017, 1.69123, 1.68505,
  1.68866, 1.68368, 1.68728, 1.66892, 1.6799, 1.66944, 1.6751, 1.64662, 1.64524, 1.65983,
  1.6461, 1.63289, 1.58536, 1.57232, 1.55464, 1.54229, 1.52839, 1.50316, 1.52701, 1.50694,
  1.50797, 1.51394, 1.5138, 1.5011, 1.4987, 1.51054, 1.51569, 1.53027, 1.5603, 1.56957,
  1.56545, 1.5464, 1.5706, 1.56734, 1.57214, 1.5612, 1.56888, 1.59377, 1.59737, 1.57575,
  1.56013, 1.5392, 1.53525, 1.52255, 1.51123, 1.50539, 1.48703, 1.48806, 1.48102, 1.46953,
  1.47227, 1.46438, 1.45453, 1.46592, 1.46112, 1.46798, 1.46318, 1.44533, 1.43606, 1.40294,
  1.38956, 1.38372, 1.37085, 1.37531, 1.37188, 1.34803, 1.31624, 1.30028, 1.29479, 1.26733,
  1.27746, 1.26596, 1.25755, 1.25789, 1.27111, 1.2663, 1.29084, 1.2917, 1.28157, 1.27471,
  1.26218, 1.27076, 1.27402, 1.28689, 1.28775, 1.27969, 1.28483, 1.29771, 1.29153, 1.24639,
  1.23712, 1.19954, 1.20846, 1.18529, 1.19302, 1.17534, 1.18118, 1.17019, 1.18856, 1.18238,
  1.20417, 1.20332, 1.22199, 1.22923, 1.22734, 1.23901, 1.24176, 1.25137, 1.26132, 1.2802,
  1.28535, 1.29359, 1.30646, 1.31676, 1.31247, 1.302, 1.32705, 1.32345, 1.33134, 1.32328,
  1.33666, 1.32997, 1.34936, 1.3437, 1.35348, 1.34679, 1.35949, 1.3576, 1.37871, 1.37339,
  1.40857, 1.42024, 1.44272, 1.45078, 1.46743, 1.46125, 1.46537, 1.48373, 1.5057, 1.51479,
  1.51668, 1.5057, 1.50707, 1.51891, 1.54002, 1.55615, 1.55117, 1.56559, 1.58721, 1.61809,
  1.61586, 1.62736, 1.64812, 1.67455, 1.67729, 1.66768, 1.68175, 1.69222, 1.70372, 1.70852,
  1.71796, 1.72293, 1.72465, 1.73615, 1.7183, 1.74198, 1.74335, 1.73735, 1.75564, 1.75725,
  1.80718, 1.8161, 1.8276, 1.84475, 1.86809, 1.84493, 1.85556, 1.84836, 1.85419, 1.87152,
  1.87838, 1.90103, 1.91441, 1.92265, 1.93088, 1.94032, 1.95267, 1.95799, 1.96605, 1.97497,
  1.98492, 2.00328, 2.00911, 2.01615, 2.02421, 2.0297, 2.02987, 2.0743, 2.09094, 2.10021,
  2.11976, 2.12388, 2.1316, 2.1491, 2.15613, 2.16299, 2.17483, 2.181, 2.2069, 2.23178,
  2.23761, 2.26608, 2.27758, 2.29353, 2.28718, 2.29447, 2.28306, 2.30039, 2.30708, 2.32166,
  2.32938, 2.32955, 2.32063, 2.3208, 2.33006, 2.33092, 2.33915, 2.34996, 2.35888, 2.36231,
  2.35116, 2.36334, 2.39644, 2.40313, 2.42405, 2.42474, 2.43914, 2.46418, 2.4719, 2.48048,
  2.50774, 2.52815, 2.55403, 2.57015, 2.59741, 2.60993, 2.60839, 2.64406, 2.65778, 2.6895,
  2.84334, 2.87022, 2.88308, 2.89816, 2.91119, 2.93485, 2.95457, 2.96279, 3.00342, 3.01577,
  3.05091, 3.08159, 3.08814, 3.1001, 3.11107, 3.10782, 3.12204, 3.12153, 3.10953, 3.11227,
  3.12581, 3.12821, 3.13935, 3.13957, 3.14638, 3.14484, 3.15015, 3.14981, 3.15855, 3.19095,
  3.21631, 3.21509, 3.22623, 3.2408, 3.24579, 3.25773, 3.28018, 3.27744, 3.29663, 3.30503,
  3.30966, 3.32114, 3.33142, 3.35284, 3.35799, 3.35113, 3.36964, 3.37718, 3.41659, 3.41968,
  3.4279, 3.43098, 3.4219, 3.42567, 3.44452, 3.45684, 3.47329, 3.46866, 3.4798, 3.47569,
  3.48151, 3.49179, 3.51013, 3.52452, 3.52161, 3.54611, 3.55313, 3.55981, 3.5641, 3.57129,
  3.57558, 3.57558, 3.57935, 3.58003, 3.58928, 3.59545, 3.60453, 3.60573, 3.61447, 3.60899,
  3.62081, 3.61584, 3.61978, 3.61601, 3.62629, 3.62646, 3.6327, 3.63228, 3.64976, 3.66141,
  3.66449, 3.67665, 3.67922, 3.69019, 3.68779, 3.69978, 3.69601, 3.70286, 3.70972, 3.71623,
  3.7265, 3.73541, 3.74398, 3.74476, 3.7546, 3.75665, 3.76624, 3.78286, 3.78594, 3.7993,
  3.78389, 3.80444, 3.79228, 3.80598, 3.81352, 3.8154, 3.82345, 3.81455, 3.81489, 3.83304,
  3.83485, 3.88743, 3.89154, 3.92032, 3.91908, 3.93158, 3.92336, 3.9398, 3.94494, 3.97011,
  3.97148, 3.9797, 3.97902, 3.9645, 3.97032, 3.96758, 3.9758, 3.98676, 4.0032, 3.99352,
  4.0016, 4.0076, 4.01873, 4.0064, 4.03037, 4.03773, 4.05297, 4.05349, 4.06753, 4.06958,
  4.13311, 4.14646, 4.14663, 4.18122, 4.19012, 4.21306, 4.2283, 4.2348, 4.269, 4.2752,
  4.26681, 4.27435, 4.27845, 4.28616, 4.29746, 4.30687, 4.30601, 4.32005, 4.34658, 4.36473,
  4.37448, 4.38544, 4.37979, 4.39913, 4.41162, 4.41111, 4.42429, 4.42069, 4.43952, 4.44038,
  4.44602, 4.45099, 4.44551, 4.44979, 4.46536, 4.46639, 4.44688, 4.4515, 4.45886, 4.45236,
  4.46417, 4.47221, 4.47991, 4.48624, 4.48727, 4.4847, 4.47421, 4.47871, 4.45961, 4.46622,
  4.47837, 4.48145, 4.49035, 4.51003, 4.48077, 4.49617, 4.48949, 4.49514, 4.49018, 4.49685,
  4.52492, 4.52458, 4.5167, 4.51739, 4.53125, 4.53416, 4.52731, 4.52902, 4.52167, 4.51773,
  4.50917, 4.50164, 4.50798, 4.51482, 4.51171, 4.5191, 4.54905, 4.55694, 4.57694, 4.5641,
  4.5819, 4.5754, 4.59781, 4.60603, 4.60243, 4.60859, 4.60312, 4.618, 4.63563, 4.63871,
  4.65086, 4.64897, 4.65616, 4.68542, 4.70749, 4.72441, 4.73554, 4.73623, 4.78378, 4.7908,
  4.80688, 4.81167, 4.81834, 4.83408, 4.8404, 5.0181, 5.01571, 5.05418, 5.06102, 5.07846,
  5.08581, 5.08188, 5.09214, 5.10834, 5.10599, 5.13813, 5.13831, 5.19712, 5.21507, 5.23368,
  5.23932, 5.24719, 5.2265, 5.22787, 5.23898, 5.25129, 5.27095, 5.24838, 5.25163, 5.2265,
  5.22701, 5.20188, 5.20718, 5.2024, 5.21795, 5.20753, 5.21129, 5.1865, 5.17829, 5.20257,
  5.19402, 5.20428, 5.19949, 5.1865, 5.19231, 5.20565, 5.21676, 5.21214, 5.21642, 5.21231,
  5.22941, 5.22548, 5.23266, 5.22924, 5.2212, 5.21864, 5.21094, 5.20154,
  5.22515, 5.93878, 5.95312, 5.955, 5.9608, 5.96183, 5.96866, 5.96951, 5.98761, 5.99887,
  6.01151, 6.02995, 6.05299, 6.05367, 6.06136, 6.08406, 6.09498, 6.09276, 6.10591, 6.11239,
  6.10761, 6.12622, 6.12519, 6.11188, 6.11495, 6.13236, 6.13168, 6.14004, 6.14858, 6.15984,
  6.16735, 6.18817, 6.17674, 6.1892, 6.188, 6.19585, 6.19585, 6.20165, 6.20848, 6.20524,
  6.21889, 6.23254, 6.24005, 6.25541, 6.27094, 6.27571, 6.27162, 6.27776, 6.2868, 6.29175,
  6.288, 6.29977, 6.31683, 6.33202, 6.33577, 6.34123, 6.36802, 6.37945, 6.38559, 6.39088,
  6.39685, 6.41647, 6.41254, 6.45399, 6.45877, 6.4661, 6.45638, 6.47173, 6.48146, 6.48299,
  6.49971, 6.50994, 6.51932, 6.52205, 6.53075, 6.52614, 6.53709, 6.53535, 6.52375, 6.52665,
  6.53893, 6.53808, 6.5524, 6.5524, 6.56434, 6.5698, 6.5773, 6.59248, 6.59146, 6.62624,
  6.63153, 6.65316, 6.65555, 6.67618, 6.67976, 6.69085, 6.6888, 6.71113, 6.72256, 6.71795,
  6.72102, 6.71812, 6.7038, 6.70414, 6.73091, 6.72051, 6.72307, 6.71608, 6.71846, 6.73102,
  6.73023, 6.71557, 6.71574, 6.72409, 6.74114, 6.75034, 6.76704, 6.77233, 6.79841, 6.81546,
  6.81375, 6.79347, 6.77898, 6.79586, 6.79381, 6.75443, 6.75631, 6.83012, 6.85602, 6.85364,
  6.86216, 6.87903, 6.87903, 6.88892, 6.90904, 6.91857, 6.92726, 6.93714, 6.94737, 6.92879,
  6.93237, 6.95962, 6.97086, 6.98671, 7.01142, 7.0138, 7.01772, 7.01738, 7.02164, 7.02317,
  7.03101, 7.03833, 7.0615, 7.07207, 7.0908, 7.09489, 7.13543, 7.15809, 7.15281, 7.1712,
  7.16916, 7.185, 7.17495, 7.20135, 7.19794, 7.20492, 7.20356, 7.18483, 7.18687, 7.17188,
  7.16405, 7.15587, 7.14736, 7.13901, 7.13271, 7.12589, 7.12402, 7.15485, 7.15775, 7.17478,
  7.18261, 7.2039, 7.20612, 7.25976, 7.28581, 7.2996, 7.31561, 7.33979, 7.35272, 7.36771,
  7.39576, 7.41755, 7.44819, 7.46078, 7.45431, 7.46282, 7.4761, 7.47542, 7.54145, 7.54452,
  7.56017, 7.55745, 7.57787, 7.57889, 7.56426, 7.57072, 7.56596, 7.57923, 7.59439, 7.61634,
  7.62315, 7.63455, 7.64459, 7.63846, 7.64067, 7.63183, 7.63183, 7.65735, 7.66115, 7.66829,
  7.6802, 7.67833, 7.69806, 7.70504, 7.73583, 7.74331, 7.77019, 7.76945, 7.78311, 7.79468,
  7.81611, 7.83651, 7.82971, 7.83855, 7.82087, 7.83685, 7.82495, 7.91915, 7.93106, 7.93548,
  7.945, 7.95792, 7.95962, 7.9671, 7.96098, 7.99532, 8.02965, 8.02863, 8.03781, 8.0232,
  8.03611, 8.03271, 8.04699, 8.05753, 8.07351, 8.07589, 8.11192, 8.13639, 8.15644, 8.16935,
  8.18906, 8.19416, 8.20401, 8.21353, 8.21013, 8.21965, 8.22848, 8.27197, 8.29779, 8.30866,
  8.54571, 8.5503,
  8.54628, 8.52625, 8.52166, 8.51657, 8.46411, 8.41996, 8.39381, 8.36986, 8.35916, 8.35933, 
  8.33844, 8.34897, 8.35407, 8.35084, 8.36171, 8.39415, 8.4023, 8.40247, 8.40824, 8.40587, 
  8.39024, 8.36375, 8.23063, 8.06852, 8.01345, 7.91961, 7.90532, 7.81792, 7.79411, 7.78425, 
  7.74989, 7.73492, 7.62672, 7.62196, 7.63149, 7.60528, 7.53211, 7.51952, 7.49025, 7.47323, 
  7.38063, 7.35883, 7.30606, 7.19026, 7.14257, 7.01617, 6.97868, 6.95892, 6.92688, 6.80622, 
  6.78747, 6.75201, 6.7111, 6.68757, 6.677, 6.66978, 6.6633, 6.65904, 6.62306, 6.61829, 
  6.61505, 6.58043, 6.57429, 6.57276, 6.56713, 6.56167, 6.54035, 6.51204, 6.50061, 6.46974, 
  6.46718, 6.45576, 6.44655, 6.43699, 6.43273, 6.42829, 6.42028, 6.41294, 6.41192, 6.39912, 
  6.39281, 6.39946, 6.40697, 6.41192, 6.40816, 6.39571, 6.37507, 6.37558, 6.39008, 6.41072, 
  6.43239, 6.46207, 6.48492, 6.49158, 6.49806, 6.50096, 6.51682, 6.52944, 6.5467, 6.56184, 
  6.56815, 6.58179, 6.63227, 6.68223, 6.70251, 6.70814, 6.73832, 6.7511, 6.78076, 6.83173, 
  6.84042, 6.86616, 6.86547, 6.87382, 6.87434, 6.87723, 6.87791, 6.88235, 6.88388, 6.88218, 
  6.88286, 6.87297, 6.87468, 6.84383, 6.81911, 6.8198, 6.80855, 6.82747, 6.82474, 6.82627, 
  6.82491, 6.82747, 6.82252, 6.82389, 6.814, 6.80446, 6.80019, 6.74341, 6.74392, 6.7383, 
  6.73591, 6.72432, 6.70642, 6.70778, 6.70403, 6.6551, 6.60582, 6.59746, 6.59525, 6.57973, 
  6.57649, 6.55671, 6.54443, 6.54511, 6.52703, 6.52004, 6.47007, 6.43834, 6.42009, 6.41087, 
  6.40064, 6.39552, 6.38614, 6.38358, 6.36976, 6.32199, 6.29111, 6.27183, 6.25169, 6.23275, 
  6.19845, 6.18957, 6.18411, 6.19589, 6.22592, 6.31227, 6.3174, 6.3273, 6.34027, 6.33481, 
  6.31075, 6.26502, 6.20956, 6.14897, 6.10244, 6.02744, 6.01729, 5.98723, 5.92698,
  5.90045, 5.8908, 5.82574, 5.80695, 5.77621, 5.74598, 5.71489, 5.70669, 5.69576, 5.65955,
  5.64981, 5.60198, 5.55414, 5.50835, 5.48494, 5.46119, 5.44837, 5.40377, 5.38189, 5.35096,
  5.33951, 5.33028, 5.31455, 5.30994, 5.3178, 5.32276, 5.31797, 5.31113, 5.30293, 5.28635,
  5.24789, 5.23575, 5.23438, 5.22242, 5.22002, 5.22857, 5.24891, 5.25131, 5.26515, 5.27678,
  5.26276, 5.25028, 5.23302, 5.2072, 5.1937, 5.17164, 5.15865, 5.1525, 5.13745, 5.13489,
  5.16703, 5.18942, 5.18959, 5.16959, 5.1472, 5.14429, 5.12035, 5.09864, 5.06478, 5.05213,
  5.04956, 5.03452, 5.01673, 5.01571, 5.03298, 5.03828, 5.03417, 5.02101, 5.01383, 5.01827,
  5.0181, 4.99091, 4.99758, 4.99074, 4.99878, 5.00955, 5.01578, 5.00664, 5.00288, 4.99194,
  5.0063, 5.0075, 5.0128, 5.00391, 5.00083, 4.98817, 4.97826, 4.96748, 4.96492, 4.94491,
  4.9355, 4.92473, 4.92113, 4.93396, 4.92815, 4.88026, 4.83818, 4.83579, 4.81526, 4.7778,
  4.77301, 4.76086, 4.74495, 4.74016, 4.7299, 4.72237, 4.71091, 4.70201, 4.68456, 4.67241,
  4.65188, 4.65103, 4.63837, 4.59627, 4.59114, 4.5795, 4.57352, 4.5612, 4.55007, 4.51859,
  4.4758, 4.44945, 4.44756, 4.4171, 4.40461, 4.39605, 4.3601, 4.35617, 4.34624, 4.33272,
  4.31611, 4.30841, 4.27743, 4.24576, 4.24422, 4.23309, 4.22025, 4.19817, 4.1908, 4.17591,
  4.16427, 4.15947, 4.13208, 4.1153, 4.10366, 4.08431, 4.06975, 4.05109, 4.029, 4.01907,
  3.99629, 3.95862, 3.96119, 3.95211, 3.94834, 3.91478, 3.9218, 3.82109, 3.81801, 3.80088,
  3.79711, 3.77724, 3.7632, 3.74675, 3.65905, 3.65699, 3.64774, 3.65082, 3.62136, 3.62753,
  3.56516, 3.52781, 3.51239, 3.50417, 3.48155, 3.47607, 3.46133, 3.46099, 3.4466, 3.42192,
  3.42226, 3.41644, 3.37051, 3.37223, 3.36366, 3.37394, 3.35269, 3.36332, 3.37188, 3.37188,
  3.36229, 3.36434, 3.34858, 3.33997, 3.35094, 3.35197, 3.36191, 3.36362, 3.389, 3.38934,
  3.36621, 3.36895, 3.38011, 3.38234, 3.3945, 3.38954, 3.37565, 3.36709, 3.35955, 3.35218,
  3.34978, 3.32904, 3.31653, 3.30351, 3.29974, 3.2838, 3.27986, 3.26546, 3.25861, 3.25089,
  3.25261, 3.24472, 3.2341, 3.17702, 3.16811, 3.17274, 3.16554, 3.13949, 3.12835, 3.12646,
  3.14172, 3.14669, 3.13366, 3.11532, 3.09475, 3.08481, 3.07658, 3.07452, 3.05515, 3.04847,
  3.0507, 3.04813, 3.04093, 3.02344, 3.01504, 3.02207, 3.0171, 3.00047, 2.98384, 2.97647,
  2.9715, 2.96807, 2.95984, 2.94904, 2.93927, 2.95298, 2.95487, 2.94184, 2.91475, 2.90755,
  2.8959, 2.88578, 2.87944, 2.86984, 2.86146, 2.84926, 2.84703, 2.84978, 2.83572, 2.83023,
  2.83126, 2.82354, 2.81206, 2.80794, 2.8184, 2.82697, 2.81857, 2.80691, 2.80314, 2.78565,
  2.77159, 2.77399, 2.77056, 2.78102, 2.77965, 2.76714, 2.76714, 2.75993, 2.74296, 2.73473,
  2.73559, 2.7181, 2.70112, 2.68706, 2.68054, 2.66391, 2.63682, 2.64879, 2.64453, 2.64796,
  2.64556, 2.63287, 2.61332, 2.60955, 2.59961, 2.59189, 2.58177, 2.56788, 2.56565, 2.55673,
  2.5545, 2.55828, 2.53873, 2.52638, 2.52158, 2.52295, 2.51866, 2.51249, 2.50048, 2.50031,
  2.50597, 2.5046, 2.49534, 2.49414, 2.50854, 2.501, 2.48676, 2.47339, 2.47322, 2.47853,
  2.4775, 2.46618, 2.45595, 2.43497, 2.4372, 2.42965, 2.43103, 2.42142, 2.40084, 2.39192,
  2.38575, 2.38026, 2.3866, 2.3794, 2.38094, 2.37443, 2.36311, 2.33789, 2.33326, 2.32383,
  2.31851, 2.31028, 2.29896, 2.28935, 2.29107, 2.28489, 2.2873, 2.2794, 2.27477, 2.26757,
  2.27117, 2.26122, 2.23772, 2.22023, 2.22006, 2.21028, 2.21285, 2.20548, 2.18901, 2.1909,
  2.17666, 2.16191, 2.15264, 2.12194, 2.11439, 2.10238, 2.08111, 2.06807, 2.04508, 2.02638,
  2.02793, 2.02004, 2.00442, 1.98041, 1.97114, 1.94918)
LONGITUDE_VALUEs <- c(
  -56.48274, -56.49579, -56.51895, -56.52497, -56.54642, -56.55586, -56.56135, -56.58057, -56.59558, -56.59859,
  -56.60854, -56.62244, -56.6417, -56.65045, -56.6501, -56.67344, -56.67962, -56.68271, -56.71583, -56.76597,
  -56.77043, -56.78794, -56.78759, -56.79789, -56.79926, -56.84579, -56.85678, -56.89504, -56.91995, -56.94861,
  -56.96028, -56.9754, -57.025, -57.02501, -57.0698, -57.07119, -57.08475, -57.08114, -57.08784, -57.09676,
  -57.11426, -57.11924, -57.14037, -57.14775, -57.16388, -57.17898, -57.18546, -57.2006, -57.22945, -57.22911,
  -57.25571, -57.2579, -57.26172, -57.27338, -57.26741, -57.30784, -57.31402, -57.34888, -57.35711, -57.35436,
  -57.36981, -57.35762, -57.36878, -57.39265, -57.40604, -57.43214, -57.43265, -57.44501, -57.43813, -57.44775,
  -57.45118, -57.5015, -57.49804, -57.51212, -57.51727, -57.52792, -57.54131, -57.53271, -57.57633, -57.57822,
  -57.60927, -57.62816, -57.64946, -57.6745, -57.69614, -57.69786, -57.70524, -57.71194, -57.70816, -57.71778,
  -57.71984, -57.73098, -57.76772, -57.77756, -57.7806, -57.79314, -57.79589, -57.80379, -57.79571, -57.79984,
  -57.80928, -57.81973, -57.84428, -57.8551, -57.87691, -57.88086, -57.89597, -57.91329, -57.93716, -57.98675,
  -58.00324, -57.98041, -57.98418, -57.97817, -57.995, -57.98916, -58.00256, -58.00531, -58.05974, -58.07156,
  -58.08547, -58.08431, -58.09869, -58.11174, -58.13011, -58.15003, -58.1466, -58.1555, -58.15928, -58.19225,
  -58.21268, -58.23638, -58.26159, -58.27275, -58.28769, -58.29473, -58.31705, -58.31429, -58.32287, -58.34468,
  -58.36099, -58.36012, -58.39034, -58.3955, -58.38382, -58.3924, -58.38588, -58.37609, -58.37266, -58.38674,
  -58.41662, -58.44028, -58.44669, -58.4626, -58.48252, -58.4942, -58.50965, -58.50793, -58.49865, -58.50604,
  -58.47875, -58.48424, -58.46999, -58.46484, -58.45763, -58.47497, -58.47101, -58.4832, -58.49522, -58.49677,
  -58.51325, -58.51994, -58.51857, -58.52252, -58.52819, -58.5378, -58.54088, -58.56526, -58.57831, -58.57779,
  -58.58517, -58.58826, -58.60799, -58.62018, -58.6523, -58.665, -58.67599, -58.68114, -58.71017, -58.7225,
  -58.71477, -58.74001, -58.75134, -58.77247, -58.78998, -58.80112, -58.8061, -58.82516, -58.82585, -58.85504,
  -58.85966, -58.86705, -58.87367, -58.88216, -58.89538, -58.9122, -58.90387, -58.90404, -58.88585, -58.8989,
  -58.9188, -58.92395, -58.91469, -58.91692, -58.97012, -58.97872, -58.99107, -59.00892, -59.0242, -59.05166,
  -59.06024, -59.07397, -59.09716, -59.11861, -59.13148, -59.14967, -59.16102, -59.17149, -59.19157, -59.21388,
  -59.28032, -59.27466, -59.28856, -59.28393, -59.30435, -59.31499, -59.32907, -59.32169, -59.33233, -59.32907,
  -59.35619, -59.35894, -59.38279, -59.37766, -59.39654, -59.39654, -59.41473, -59.43276, -59.42761, -59.44615,
  -59.464, -59.48425, -59.49387, -59.4925, -59.50228, -59.51017, -59.51343, -59.5266, -59.52589, -59.53379,
  -59.53293, -59.53894, -59.55612, -59.56608, -59.62, -59.63525, -59.65311, -59.66204, -59.66768, -59.69003,
  -59.67885, -59.65447, -59.65756, -59.64846, -59.66615, -59.67559, -59.70874, -59.72815, -59.75196, -59.75367,
  -59.74784, -59.76003, -59.7554, -59.75798, -59.74716, -59.74836, -59.73823, -59.74166, -59.73634, -59.74082,
  -59.73446, -59.73446, -59.73051, -59.73412, -59.72176, -59.72176, -59.73017, -59.74271, -59.73446, -59.72227,
  -59.72245, -59.72949, -59.72571, -59.74065, -59.7379, -59.7422, -59.73738, -59.74064, -59.72554, -59.73155,
  -59.71885, -59.72932, -59.72228, -59.74392, -59.75027, -59.77057, -59.78565, -59.80536, -59.80502, -59.82751,
  -59.82803, -59.83198, -59.83782, -59.84434, -59.84349, -59.85602, -59.85499, -59.8694, -59.86923, -59.87369,
  -59.88194, -59.89842, -59.9094, -59.89669, -59.89858, -59.89171, -59.90116, -59.89309, -59.90098, -59.89686,
  -59.92073, -59.91987, -59.9391, -59.92828, -59.97361, -59.9669, -59.95762, -59.97841, -59.97118, -59.99196,
  -59.99136, -59.98234, -59.99024, -59.97702, -59.98647, -59.98149, -59.959, -59.96587, -59.94715, -59.96295,
  -59.94989, -59.95694, -59.93933, -59.94046, -59.92914, -59.9233, -59.92227, -59.91746, -59.91592, -59.90699,
  -59.90853, -59.91918, -59.91729, -59.90737, -59.90819, -59.92176, -59.92107, -59.90012, -59.89995, -59.91472,
  -59.90424, -59.88743, -59.87283, -59.88915, -59.87903, -59.88245, -59.86939, -59.8584, -59.8512, -59.85292,
  -59.84021, -59.84158, -59.82647, -59.83437, -59.82699, -59.80758, -59.80277, -59.81153, -59.82252, -59.81445,
  -59.81102, -59.81531, -59.83352, -59.84227, -59.84004, -59.82734, -59.82339, -59.80983, -59.81343, -59.82545,
  -59.82837, -59.80107, -59.80518, -59.82305, -59.83352, -59.84623, -59.84261, -59.87112, -59.87249, -59.85858,
  -59.85978, -59.86717, -59.867, -59.85875, -59.85721, -59.85052, -59.85103, -59.83558, -59.82115, -59.81634,
  -59.81668, -59.80861, -59.7959, -59.78886, -59.77414, -59.76349, -59.76887, -59.75885, -59.75507, -59.74015,
  -59.71971, -59.71885, -59.70992, -59.70459, -59.69154, -59.68744, -59.68092, -59.66855, -59.66735, -59.66134,
  -59.67267, -59.66323, -59.67026, -59.67542, -59.67232, -59.6804, -59.66889, -59.66511, -59.63835, -59.63045,
  -59.63045, -59.60795, -59.59868, -59.59284, -59.59852, -59.59028, -59.58427, -59.58203, -59.57723, -59.57791,
  -59.58633, -59.59337, -59.56658, -59.56401, -59.54529, -59.53928, -59.52571, -59.52453, -59.51543, -59.52694,
  -59.5436, -59.5448, -59.55665, -59.56665, -59.57215, -59.58485, -59.58725, -59.57146, -59.58296, -59.58606,
  -59.5981, -59.59072, -59.59484, -59.60617, -59.60171, -59.6199, -59.61732, -59.63227, -59.64342, -59.65475,
  -59.61956, -59.64428, -59.68598, -59.73131, -59.72565, -59.73887, -59.73424, -59.74041, -59.7101, -59.71895,
  -59.72942, -59.7344, -59.7277, -59.73251, -59.71878, -59.71432, -59.70316, -59.70488, -59.67467, -59.68377,
  -59.66815, -59.68428, -59.69509, -59.72066, -59.7198, -59.72926, -59.73595, -59.75363, -59.76839, -59.78177,
  -59.778, -59.78383, -59.78984, -59.7962, -59.79414, -59.80513, -59.81039, -59.83134, -59.83117, -59.86277,
  -59.87202, -59.86223, -59.87425, -59.87236, -59.87546, -59.87872, -59.87784, -59.89864, -59.90674, -59.91805,
  -59.91032, -59.93162, -59.9247, -59.97227, -59.97416, -60.00623, -60.01808, -60.02495, -60.03646, -60.07218,
  -60.06497, -60.07819, -60.08231, -60.08867, -60.08197, -60.0907, -60.09465, -60.10513, -60.10547, -60.0974,
  -60.10049, -60.12162, -60.12419, -60.14257, -60.15274, -60.16283, -60.15371, -60.16133, -60.15405, -60.13843,
  -60.13825, -60.12366, -60.13156, -60.12074, -60.11267, -60.10597, -60.09876, -60.06956, -60.07578, -60.06839,
  -60.07166, -60.07664, -60.07629, -60.05193, -60.02445, -60.03943, -60.03355, -60.02875, -60.0217, -60.03647,
  -60.03321, -60.0217, -60.02823, -60.02462, -60.01312, -59.98411, -59.97707, -59.97741, -59.96968, -59.97381,
  -59.99234, -60.00041, -60.02359, -60.03679, -60.04592, -60.06531, -60.08969, -60.10066, -60.11937, -60.12315,
  -60.13414, -60.13432, -60.16042, -60.18361, -60.19408, -60.19009, -60.21035, -60.24882, -60.25982, -60.28022,
  -60.30289, -60.31474, -60.35471, -60.3688, -60.3767, -60.40727, -60.41517, -60.41909, -60.44983, -60.45241,
  -60.49256, -60.50956, -60.53738, -60.54322, -60.57345, -60.59097, -60.59005, -60.60792, -60.61444, -60.62818,
  -60.65137, -60.66476, -60.67764, -60.70117, -60.70147, -60.72156, -60.73341, -60.73754,
  -60.74824, -61.3827, -61.37824, -61.37429, -61.37549, -61.36897, -61.36588, -61.35541, -61.34974, -61.33103,
  -61.33618, -61.31918, -61.31163, -61.30219, -61.30373, -61.27867, -61.27936, -61.27404, -61.27455, -61.25996,
  -61.2452, -61.23232, -61.22271, -61.21619, -61.20658, -61.20469, -61.19079, -61.19147, -61.18341, -61.18409,
  -61.18993, -61.17877, -61.135, -61.13449, -61.12505, -61.1247, -61.13105, -61.13208, -61.12625, -61.13449,
  -61.14255, -61.13344, -61.13567, -61.13224, -61.11354, -61.12006, -61.13722, -61.1434, -61.14169, -61.14872,
  -61.15627, -61.16426, -61.16701, -61.18436, -61.17113, -61.17543, -61.15808, -61.16873, -61.15671, -61.16925,
  -61.1562, -61.15723, -61.14744, -61.15604, -61.15157, -61.15604, -61.16325, -61.18386, -61.17646, -61.18711,
  -61.17234, -61.17629, -61.17216, -61.18247, -61.18127, -61.19587, -61.19578, -61.206, -61.20651, -61.22317,
  -61.22163, -61.21115, -61.21201, -61.22591, -61.21956, -61.23209, -61.2211, -61.22333, -61.20788, -61.19895,
  -61.18143, -61.19089, -61.18522, -61.1811, -61.16135, -61.16616, -61.15018, -61.15121, -61.13733, -61.11243,
  -61.10985, -61.10178, -61.09405, -61.08547, -61.07791, -61.05787, -61.05117, -61.04138, -61.02283, -61.01343,
  -60.99862, -60.98539, -60.95242, -60.94147, -60.93632, -60.90197, -60.90365, -60.92052, -60.92739, -60.91622,
  -60.89836, -60.87586, -60.84363, -60.82147, -60.81154, -60.73134, -60.71434, -60.66527, -60.57442, -60.56986,
  -60.54272, -60.53602, -60.50734, -60.49087, -60.48107, -60.46374, -60.46254, -60.45395, -60.39916, -60.38135,
  -60.37483, -60.37223, -60.36416, -60.36777, -60.35249, -60.33497, -60.33325, -60.32638, -60.32501, -60.31762,
  -60.3202, -60.30648, -60.30391, -60.28948, -60.28931, -60.29584, -60.29481, -60.33326, -60.34357, -60.34906,
  -60.35576, -60.36243, -60.41962, -60.43061, -60.44143, -60.44968, -60.4605, -60.48295, -60.50167, -60.50527,
  -60.52142, -60.52054, -60.52844, -60.52707, -60.53926, -60.53737, -60.54664, -60.55968, -60.56689, -60.57892,
  -60.59935, -60.59968, -60.62269, -60.63814, -60.61273, -60.61582, -60.58731, -60.5971, -60.59246, -60.6117,
  -60.60906, -60.64376, -60.6386, -60.66502, -60.67326, -60.68288, -60.68425, -60.6973, -60.71757, -60.71105,
  -60.70831, -60.68804, -60.6925, -60.68495, -60.67945, -60.66674, -60.66125, -60.63514, -60.6438, -60.61873,
  -60.62628, -60.62492, -60.61496, -60.60517, -60.59915, -60.59503, -60.58937, -60.59177, -60.58731, -60.59298,
  -60.5892, -60.58216, -60.5789, -60.56825, -60.58448, -60.56835, -60.55908, -60.55125, -60.55153, -60.53162,
  -60.54088, -60.50244, -60.49351, -60.44203, -60.40805, -60.37887, -60.35995, -60.24325, -60.24425, -60.23258,
  -60.23498, -60.21885, -60.19928, -60.19242, -60.18933, -60.13441, -60.12033, -60.10901, -60.09425, -60.05409,
  -60.04202, -60.03276, -60.0235, -60.00668, -60.00874, -60.00016, -59.99878, -59.98127, -59.99672, -59.98299,
  -59.9775, -59.95001, -59.94554, -59.92117, -59.91191, -59.90538, -59.83948, -59.80447, -59.81923, -59.81751,
  -59.99738, -59.99206,
  -59.99267, -59.97533, -59.97464, -59.96606, -59.91663, -59.89002, -59.87783, -59.85552, -59.8399, -59.81673, 
  -59.77587, -59.78308, -59.77878, -59.76127, -59.76848, -59.82033, -59.80248, -59.78309, -59.78137, -59.77021, 
  -59.73227, -59.70018, -59.44795, -59.18016, -59.11766, -59.04043, -59.0078, -58.93398, -58.91064, -58.89382, 
  -58.86739, -58.83203, -58.77091, -58.74894, -58.74791, -58.68853, -58.63495, -58.61779, -58.59891, -58.57795, 
  -58.51615, -58.49007, -58.47496, -58.48938, -58.4729, -58.48595, -58.50106, -58.53401, -58.55771, -58.5941, 
  -58.60406, -58.59808, -58.60289, -58.60049, -58.61045, -58.61039, -58.61469, -58.6128, -58.62156, -58.62001, 
  -58.62172, -58.61537, -58.61108, -58.61417, -58.61382, -58.62052, -58.62035, -58.60559, -58.61503, -58.61641, 
  -58.62036, -58.62121, -58.63014, -58.63289, -58.63718, -58.63718, -58.64474, -58.6468, -58.65143, -58.65624, 
  -58.64936, -58.63391, -58.63494, -58.63047, -58.61639, -58.62102, -58.61502, -58.59974, -58.5927, -58.58806, 
  -58.59511, -58.58292, -58.58636, -58.58, -58.58103, -58.57691, -58.57468, -58.57812, -58.58471, -58.57846, 
  -58.58052, -58.57331, -58.57297, -58.55856, -58.54431, -58.53658, -58.52233, -58.5079, -58.50088, -58.46157, 
  -58.4468, -58.42001, -58.40902, -58.38518, -58.36681, -58.36715, -58.35753, -58.35547, -58.33143, -58.3258, 
  -58.31241, -58.28544, -58.28184, -58.22671, -58.19962, -58.19618, -58.16887, -58.16544, -58.1562, -58.14229, 
  -58.13542, -58.121, -58.10039, -58.09129, -58.05453, -58.04389, -58.02331, -57.95294, -57.95071, -57.94521, 
  -57.94521, -57.93233, -57.92136, -57.9181, -57.90676, -57.85165, -57.8022, -57.79911, -57.79276, -57.77854, 
  -57.77081, -57.74951, -57.74144, -57.73818, -57.71844, -57.70488, -57.65422, -57.62076, -57.60858, -57.59845, 
  -57.5921, -57.58385, -57.58025, -57.57286, -57.56602, -57.5576, -57.53546, -57.53357, -57.53958, -57.53958, 
  -57.53203, -57.53426, -57.53271, -57.52498, -57.52688, -57.5164, -57.50851, -57.50508, -57.4855, -57.45598, 
  -57.40706, -57.33701, -57.26369, -57.20432, -57.17468, -57.15848, -57.15654, -57.14316, -57.14288,
  -57.13594, -57.13551, -57.15816, -57.16949, -57.17087, -57.18476, -57.17327, -57.16125, -57.15988, -57.16897,
  -57.16125, -57.17207, -57.19783, -57.23472, -57.26356, -57.27214, -57.26888, -57.26923, -57.28089, -57.32742,
  -57.33291, -57.34097, -57.33994, -57.32913, -57.29893, -57.29275, -57.28881, -57.29034, -57.28897, -57.29686,
  -57.29669, -57.29016, -57.28535, -57.27986, -57.25961, -57.25103, -57.26013, -57.26544, -57.26871, -57.25292,
  -57.22786, -57.21757, -57.21722, -57.20039, -57.18477, -57.18202, -57.18854, -57.21377, -57.21463, -57.22938,
  -57.23487, -57.25566, -57.28273, -57.30248, -57.3028, -57.29885, -57.30847, -57.32271, -57.32683, -57.31105,
  -57.29903, -57.28632, -57.2877, -57.30487, -57.31088, -57.3229, -57.33801, -57.33853, -57.35707, -57.36477,
  -57.3816, -57.41457, -57.44683, -57.47723, -57.51378, -57.51721, -57.53693, -57.55273, -57.58502, -57.61575,
  -57.64117, -57.66277, -57.67256, -57.68596, -57.70124, -57.71306, -57.73161, -57.74003, -57.7517, -57.75634,
  -57.75135, -57.75736, -57.8063, -57.81746, -57.83701, -57.88441, -57.90911, -57.92027, -57.92885, -57.9158,
  -57.88626, -57.87203, -57.87255, -57.86877, -57.86791, -57.871, -57.85692, -57.85624, -57.83976, -57.85075,
  -57.8492, -57.84405, -57.83564, -57.85813, -57.86603, -57.86998, -57.87633, -57.87788, -57.88887, -57.8904,
  -57.91238, -57.9189, -57.92749, -57.95478, -57.95598, -57.96302, -57.95976, -57.95203, -57.95426, -57.94602,
  -57.96422, -57.991, -57.98791, -58.01005, -58.02087, -58.02705, -58.02276, -58.04611, -58.04336, -58.05847,
  -58.06036, -58.0662, -58.07116, -58.06464, -58.04867, -58.04954, -58.02876, -58.02842, -58.03495, -58.031,
  -58.04096, -58.0298, -58.01125, -58.01074, -57.99649, -57.96885, -57.94395, -57.88253, -57.87188, -57.86433,
  -57.85677, -57.85883, -57.842, -57.84853, -57.83273, -57.82346, -57.81831, -57.80423, -57.76233, -57.74344,
  -57.71325, -57.65246, -57.65833, -57.6463, -57.64596, -57.63154, -57.62673, -57.64424, -57.64802, -57.68443,
  -57.69404, -57.69885, -57.65627, -57.63017, -57.60991, -57.59205, -57.5711, -57.53229, -57.53092, -57.51272,
  -57.50928, -57.4952, -57.49554, -57.48532, -57.46265, -57.44067, -57.44033, -57.42934, -57.42761, -57.4204,
  -57.41044, -57.33488, -57.32551, -57.31728, -57.31659, -57.30458, -57.30406, -57.29308, -57.29754, -57.296,
  -57.28828, -57.28227, -57.28861, -57.28535, -57.29445, -57.3008, -57.29445, -57.29256, -57.27987, -57.2821,
  -57.28999, -57.29102, -57.28329, -57.30338, -57.29428, -57.28004, -57.27317, -57.29325, -57.28654, -57.26612,
  -57.25806, -57.24673, -57.23369, -57.25703, -57.26183, -57.2232, -57.22217, -57.20536, -57.20999, -57.20484,
  -57.19987, -57.19472, -57.20038, -57.19181, -57.2021, -57.22784, -57.23213, -57.20416, -57.21171, -57.22664,
  -57.2251, -57.2148, -57.22029, -57.22076, -57.2132, -57.19586, -57.17989, -57.17285, -57.18744, -57.2144,
  -57.22402, -57.20994, -57.21252, -57.20875, -57.19483, -57.189, -57.19192, -57.19776, -57.20549, -57.19948,
  -57.17681, -57.16754, -57.17579, -57.17166, -57.14986, -57.12066, -57.11534, -57.12066, -57.12925, -57.13801,
  -57.13303, -57.12582, -57.1186, -57.11276, -57.10693, -57.10677, -57.08926, -57.08634, -57.10403, -57.09887,
  -57.09218, -57.09149, -57.06831, -57.06745, -57.05199, -57.06094, -57.04875, -57.04132, -57.03227, -57.02419,
  -57.01527, -57.02128, -57.02283, -57.02952, -57.03038, -57.01527, -57.02317, -57.01905, -57.00172, -57.00172,
  -56.99708, -56.98815, -56.98455, -56.99262, -56.99193, -56.98283, -56.97991, -56.99228, -56.99125, -56.9703,
  -56.96069, -56.9545, -56.95691, -56.94987, -56.94077, -56.93561, -56.94042, -56.93785, -56.94746, -56.95107,
  -56.95365, -56.95038, -56.93749, -56.93558, -56.91395, -56.91549, -56.92305, -56.91704, -56.93335, -56.92545,
  -56.92563, -56.92082, -56.91051, -56.91034, -56.90485, -56.90366, -56.87876, -56.86657, -56.8743, -56.87533,
  -56.87825, -56.87671, -56.87808, -56.8731, -56.86159, -56.86177, -56.84889, -56.84445, -56.82779, -56.8259,
  -56.81869, -56.80375, -56.81062, -56.80804, -56.81302, -56.81491, -56.80804, -56.79963, -56.79997, -56.79053,
  -56.79054, -56.77749, -56.78075, -56.75414, -56.73817, -56.73405, -56.71208, -56.70745, -56.6865, -56.68633,
  -56.58179, -56.55225, -56.53356, -56.51416, -56.48307, -56.46901)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(6.43703, 6.42816, 6.42543, 6.42714, 6.43925)
LONGITUDE_VALUEs <- c(-58.62291, -58.62703, -58.62686, -58.62034, -58.62)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.56315, 6.56042, 6.55684, 6.55957)
LONGITUDE_VALUEs <- c(-58.58324, -58.58565, -58.58547, -58.58221)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.55906, 6.54951, 6.53808, 6.53637, 6.54661, 6.54848, 6.55974)
LONGITUDE_VALUEs <- c(-58.61465, -58.61671, -58.61654, -58.61328, -58.61482, -58.61293, -58.61311)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.60324, 6.59506, 6.59455, 6.60358)
LONGITUDE_VALUEs <- c(-58.59942, -58.60062, -58.59804, -58.59753)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.64602, 6.63068, 6.63051, 6.63596, 6.64636, 6.65114)
LONGITUDE_VALUEs <- c(-58.59158, -58.5902, -58.58591, -58.58523, -58.589, -58.58866)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.64841, 6.63682, 6.64091, 6.65455, 6.66768, 6.66563, 6.65762)
LONGITUDE_VALUEs <- c(-58.58832, -58.58437, -58.58128, -58.57836, -58.58179, -58.58385, -58.58368)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.70443, 6.7092, 6.73716, 6.73563, 6.71755)
LONGITUDE_VALUEs <- c(-58.54481, -58.53812, -58.5249, -58.52799, -58.53966)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.71858, 6.70051, 6.70034, 6.7242, 6.7317, 6.73852)
LONGITUDE_VALUEs <- c(-58.55545, -58.55888, -58.55579, -58.54515, -58.54035, -58.53812)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.75233, 6.75898, 6.75097, 6.74244, 6.736367401373774)
LONGITUDE_VALUEs <- c(-58.51083, -58.51151, -58.52181, -58.52782, -58.528925973643126)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.76478, 6.75813, 6.75932, 6.76563)
LONGITUDE_VALUEs <- c(-58.51752, -58.51889, -58.51495, -58.51323)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  6.72148, 6.72812, 6.7346, 6.7537, 6.76955, 6.78438, 6.79444, 6.79324, 6.775, 6.75182, 
  6.74875)
LONGITUDE_VALUEs <- c(
  -58.55476, -58.54841, -58.54515, -58.5285, -58.51941, -58.50602, -58.50551, -58.51443, -58.52181, -58.53795, 
  -58.54378)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.77722, 6.75711, 6.75506, 6.76836, 6.77739)
LONGITUDE_VALUEs <- c(-58.54, -58.54755, -58.5467, -58.53623, -58.53485)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  6.79061, 6.75754, 6.74459, 6.72651, 6.71629, 6.71458, 6.78243, 6.79709, 6.85299, 6.87617, 
  6.89083, 6.88367, 6.85606, 6.83834, 6.81175)
LONGITUDE_VALUEs <- c(
  -58.56478, -58.56512, -58.56855, -58.56889, -58.57198, -58.56924, -58.54727, -58.52908, -58.50058, -58.47896, 
  -58.48342, -58.52633, -58.5452, -58.54246, -58.55104)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  6.91844, 6.87004, 6.9031, 6.91298, 6.91332, 6.91878, 6.92287, 6.94059, 6.93854, 6.94604, 
  6.9641, 6.96138, 6.93309)
LONGITUDE_VALUEs <- c(
  -58.46142, -58.47515, -58.43053, -58.40994, -58.39827, -58.39175, -58.3763, -58.36223, -58.3533, -58.34918, 
  -58.39106, -58.40891, -58.43293)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  6.89482, 6.89159, 6.89482, 6.93146, 6.95038, 6.9727, 6.98803, 6.99792, 7.0245, 7.01785, 
  6.98531, 6.95549, 6.9318)
LONGITUDE_VALUEs <- c(
  -58.51889, -58.51889, -58.49915, -58.46464, -58.44009, -58.42551, -58.39975, -58.4061, -58.4394, -58.44678, 
  -58.45469, -58.47632, -58.48765)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(7.09315, 7.07339, 7.0538, 7.01274, 7.01496, 7.0262, 7.04681, 7.05976, 7.06981, 7.07015)
LONGITUDE_VALUEs <- c(-58.46946, -58.47289, -58.47358, -58.48216, -58.47701, -58.46997, -58.46534, -58.46585, -58.46448, -58.46087)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.95685, 6.94612, 6.95481)
LONGITUDE_VALUEs <- c(-58.52301, -58.52627, -58.5146)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.94595, 6.9543, 6.95362, 6.93658, 6.91544, 6.91493, 6.93896)
LONGITUDE_VALUEs <- c(-58.52816, -58.52627, -58.53314, -58.54601, -58.55528, -58.55339, -58.53589)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.94118, 6.94629, 6.9468, 6.94288)
LONGITUDE_VALUEs <- c(-58.52181, -58.51838, -58.51237, -58.51426)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.78029, 6.77517, 6.78046)
LONGITUDE_VALUEs <- c(-58.53331, -58.53228, -58.52971)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.80279, 6.78591, 6.7675, 6.75199, 6.75353, 6.78591, 6.79716)
LONGITUDE_VALUEs <- c(-58.57657, -58.58172, -58.58223, -58.57726, -58.57434, -58.57176, -58.57417)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.78643, 6.75148, 6.75335, 6.77279, 6.79239)
LONGITUDE_VALUEs <- c(-58.60008, -58.59442, -58.5915, -58.58927, -58.59407)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.80279, 6.79375, 6.79478, 6.81387)
LONGITUDE_VALUEs <- c(-58.58841, -58.58807, -58.58464, -58.58343)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.8062, 6.79716, 6.81608, 6.84642, 6.84676, 6.82478)
LONGITUDE_VALUEs <- c(-58.57073, -58.56901, -58.55374, -58.54756, -58.55185, -58.56386)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.81949, 6.81523, 6.83909, 6.8546, 6.85852, 6.84676, 6.83654)
LONGITUDE_VALUEs <- c(-58.57795, -58.57709, -58.56474, -58.55581, -58.5565, -58.56336, -58.57263)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.94305, 6.93862, 6.9059, 6.84489, 6.84915, 6.86636, 6.88255, 6.89926, 6.92414)
LONGITUDE_VALUEs <- c(-58.50364, -58.52097, -58.55032, -58.5704, -58.56371, -58.55702, -58.54312, -58.53489, -58.50964)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.75906, 6.74201, 6.74423, 6.75377)
LONGITUDE_VALUEs <- c(-58.58395, -58.58704, -58.58172, -58.58104)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.7415, 6.72803, 6.7149, 6.71848, 6.73229)
LONGITUDE_VALUEs <- c(-58.57709, -58.58052, -58.58069, -58.57709, -58.57366)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.73144, 6.72257, 6.7149, 6.72581)
LONGITUDE_VALUEs <- c(-58.58258, -58.5879, -58.5867, -58.58138)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.74729, 6.74184, 6.74371, 6.75104)
LONGITUDE_VALUEs <- c(-58.59236, -58.59339, -58.58927, -58.58945)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.74013, 6.73366, 6.73383, 6.74167)
LONGITUDE_VALUEs <- c(-58.59253, -58.59305, -58.59099, -58.58979)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(6.70604, 6.70604, 6.71763, 6.71644)
LONGITUDE_VALUEs <- c(-58.59476, -58.59236, -58.5915, -58.59373)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### VENEZUELA #####
Geo_0 <- Geometric_Operations(Geo_2, Geo_1)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0))
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  2.21199, 2.23549, 2.24218, 2.25196, 2.27443, 2.29107, 2.30239, 2.31302, 2.32726, 2.34098, 
  2.35659, 2.38523, 2.38935, 2.42348, 2.43051, 2.45418, 2.43154, 2.41782, 2.41216, 2.40376, 
  2.4017, 2.43343, 2.42725, 2.43703, 2.42554, 2.43103, 2.42194, 2.42828, 2.42228, 2.43394, 
  2.4408, 2.44698, 2.45161, 2.44698, 2.44698, 2.45812, 2.448, 2.44852, 2.442, 2.44938, 
  2.44029, 2.44646, 2.4396, 2.4456, 2.44303, 2.45829, 2.45932, 2.44286, 2.45418, 2.45229, 
  2.44629, 2.44149, 2.44715, 2.44183, 2.45538, 2.45555, 2.4643, 2.47922, 2.48608, 2.47476, 
  2.48796, 2.48659, 2.49551, 2.48042, 2.4691, 2.46584, 2.47339, 2.4715, 2.45692, 2.46293, 
  2.45932, 2.4751, 2.46447, 2.48196, 2.4631, 2.47459, 2.47407, 2.48453, 2.48522, 2.49654, 
  2.49654, 2.50323, 2.52981, 2.56754, 2.5804, 2.57697, 2.59137, 2.59395, 2.59978, 2.60441, 
  2.61864, 2.6219, 2.62773, 2.63733, 2.65808, 2.67077, 2.68877, 2.691, 2.70112, 2.70489, 
  2.70884, 2.71004, 2.71655, 2.71638, 2.72941, 2.73867, 2.74519, 2.75908, 2.76165, 2.77348, 
  2.77382, 2.78874, 2.79543, 2.81103, 2.81463, 2.82492, 2.83092, 2.83555, 2.86898, 2.87104, 
  2.88012, 2.89058, 2.90292, 2.9019, 2.92195, 2.93481, 2.94081, 2.96001, 2.97424, 2.98041, 
  2.9787, 2.98879, 2.97971, 2.99274, 2.98279, 2.99771, 3.00474, 3.03388, 3.04245, 3.04845, 
  3.05239, 3.06405, 3.06679, 3.08102, 3.08188, 3.09045, 3.09147, 3.10142, 3.1405, 3.14118, 
  3.15455, 3.15489, 3.16364, 3.15901, 3.16741, 3.20443, 3.20631, 3.22791, 3.24471, 3.2495, 
  3.26596, 3.28001, 3.29355, 3.31463, 3.32148, 3.33485, 3.3489, 3.36381, 3.36261, 3.37118, 
  3.37444, 3.38043, 3.39329, 3.41505, 3.41676, 3.44726, 3.46508, 3.48633, 3.49353, 3.50329, 
  3.50723, 3.52368, 3.52677, 3.53842, 3.57166, 3.58193, 3.60506, 3.61036, 3.60744, 3.61036, 
  3.61807, 3.61824, 3.62937, 3.63246, 3.6256, 3.64119, 3.63982, 3.65044, 3.66226, 3.6513, 
  3.65387, 3.67083, 3.6734, 3.68522, 3.71434, 3.708, 3.73044, 3.73061, 3.74466, 3.7558, 
  3.76642, 3.76761, 3.77943, 3.7731, 3.78406, 3.81146, 3.82277, 3.82671, 3.83116, 3.82328, 
  3.82003, 3.82893, 3.8375, 3.84144, 3.84983, 3.8524, 3.8613, 3.90344, 3.9257, 3.94129, 
  3.94848, 3.96286, 3.96252, 3.97108, 3.9704, 3.97862, 3.99557, 3.99026, 4.00585, 4.01201, 
  4.01578, 4.00636, 4.01081, 4.02341, 4.03187, 4.02246, 4.04557, 4.04626, 4.05379, 4.05225, 
  4.05585, 4.06133, 4.07362, 4.08029, 4.09776, 4.11026, 4.12498, 4.13851, 4.14758, 4.15409, 
  4.15238, 4.16813, 4.18251, 4.18576, 4.19398, 4.20049, 4.19552, 4.21709, 4.22017, 4.23079, 
  4.2349, 4.24157, 4.24928, 4.24962, 4.25835, 4.26879, 4.27495, 4.28283, 4.29207, 4.28694, 
  4.28026, 4.27906, 4.27153, 4.27872, 4.26503, 4.24945, 4.24209, 4.22463, 4.2099, 4.20186, 
  4.19244, 4.1917, 4.18125, 4.178, 4.16807, 4.15489, 4.1578, 4.11568, 4.11654, 4.10986, 
  4.11448, 4.10815, 4.11482, 4.10061, 4.10952, 4.10438, 4.11996, 4.11808, 4.11037, 4.10592, 
  4.11345, 4.11106, 4.13263, 4.13897, 4.11431, 4.14273, 4.13246, 4.14581, 4.12493, 4.16174, 
  4.14787, 4.14051, 4.12904, 4.11825, 4.1227, 4.09239, 4.09941, 4.0965, 4.10746, 4.10575, 
  4.07082, 4.06945, 4.06209, 4.06192, 4.04428, 4.01774, 3.96585, 3.97698, 3.97287, 3.89786, 
  3.89923, 3.8708, 3.87988, 3.8833, 3.89221, 3.88878, 3.89906, 3.90043, 3.91464, 3.93314, 
  3.93759, 3.94239, 3.9292, 3.95078, 3.93228, 3.9417, 3.9328, 3.91362, 3.9143, 3.90745, 
  3.91636, 3.91704, 3.92406, 3.92578, 3.93828, 3.93776, 3.94924, 4.0102, 4.01603, 4.02082, 
  4.00661, 3.98452, 3.98417, 3.91893, 3.90505, 3.90317, 3.89563, 3.89255, 3.88416, 3.88827, 
  3.88313, 3.88998, 3.86635, 3.85641, 3.84871, 3.85008, 3.84186, 3.84186, 3.85727, 3.86327, 
  3.86926, 3.86738, 3.87662, 3.88347, 3.8732, 3.86703, 3.87525, 3.86172, 3.85676, 3.8744, 
  3.8833, 3.90865, 3.93828, 3.93348, 3.94958, 3.95489, 3.96174, 3.96568, 3.97715, 3.97476, 
  3.98058, 3.95455, 3.96585, 3.96243, 3.98161, 3.97047, 3.96003, 3.95521, 3.96498, 3.95196, 
  3.94631, 3.88962, 3.88174, 3.85537, 3.85126, 3.84218, 3.8307, 3.83105, 3.81477, 3.80998, 
  3.79953, 3.80467, 3.78018, 3.77024, 3.76613, 3.73924, 3.73667, 3.71834, 3.71388, 3.70755, 
  3.6947, 3.69333, 3.68459, 3.68288, 3.67226, 3.66301, 3.64707, 3.64622, 3.63885, 3.6111, 
  3.61504, 3.62429, 3.63423, 3.67483, 3.67089, 3.73547, 3.72211, 3.70104, 3.69162, 3.67979, 
  3.67808, 3.69093, 3.68665, 3.71012, 3.7615, 3.76339, 3.77915, 3.78805, 3.79508, 3.80501, 
  3.83653, 3.84766, 3.86085, 3.87455, 3.88174, 3.89219, 3.93449, 3.93946, 3.97696, 3.98415, 
  4.01155, 4.02131, 4.03182, 4.03969, 4.03147, 4.03969, 4.03421, 4.04757, 4.03969, 4.04346, 
  4.02582, 4.01504, 4.01692, 4.03644, 4.04569, 4.03952, 4.05237, 4.05973, 4.07891, 4.07754, 
  4.10082, 4.1099, 4.1152, 4.13644, 4.13763, 4.12788, 4.14414, 4.13164, 4.13781, 4.14123, 
  4.15082, 4.15904, 4.16434, 4.17941, 4.1741, 4.18455, 4.17325, 4.16332, 4.16777, 4.15099, 
  4.13267, 4.1426, 4.13678, 4.14243, 4.12976, 4.13096, 4.12719, 4.12805, 4.11675, 4.12017, 
  4.10836, 4.11384, 4.09688, 4.08969, 4.07497, 4.08524, 4.09209, 4.11774, 4.11517, 4.12818, 
  4.11962, 4.1246, 4.14378, 4.15748, 4.15114, 4.15867, 4.15046, 4.16535, 4.17545, 4.18144, 
  4.16176, 4.15987, 4.13145, 4.13111, 4.11793, 4.12135, 4.15833, 4.1609, 4.15302, 4.15611, 
  4.171, 4.17511, 4.1585, 4.16535, 4.19908, 4.2013, 4.23007, 4.223, 4.23109, 4.2489, 
  4.25711, 4.26276, 4.2691, 4.26019, 4.25506, 4.24393, 4.25557, 4.25181, 4.25711, 4.25318, 
  4.26379, 4.26208, 4.23777, 4.26191, 4.24256, 4.25592, 4.26636, 4.28981, 4.29512, 4.30025, 
  4.32182, 4.32661, 4.35143, 4.3552, 4.38258, 4.39148, 4.40603, 4.41716, 4.43855, 4.43479, 
  4.42366, 4.4317, 4.42195, 4.42691, 4.41647, 4.42828, 4.43016, 4.44334, 4.45977, 4.45532, 
  4.47757, 4.47808, 4.49297, 4.49349, 4.5041, 4.50153, 4.51128, 4.51488, 4.53353, 4.53644, 
  4.52634, 4.53593, 4.5349, 4.5248, 4.53353, 4.52121, 4.53062, 4.5183, 4.52155, 4.50102, 
  4.50256, 4.49571, 4.49468, 4.47945, 4.50684, 4.51642, 4.52361, 4.52275, 4.51813, 4.51762, 
  4.52429, 4.51899, 4.52412, 4.52172, 4.51779, 4.51625, 4.54329, 4.54465, 4.58281, 4.58093, 
  4.59428, 4.59924, 4.61669, 4.63432, 4.63722, 4.6557, 4.65639, 4.66306, 4.66306, 4.6889, 
  4.69762, 4.71764, 4.70378, 4.72859, 4.72551, 4.74792, 4.7486, 4.7539, 4.75237, 4.75938, 
  4.75254, 4.77135, 4.7758, 4.79017, 4.80914, 4.81188, 4.84455, 4.84728, 4.86319, 4.86644, 
  4.88235, 4.88851, 4.90492, 4.90715, 4.92015, 4.92887, 4.95828, 4.97504, 4.99745, 5.00754, 
  5.0378, 5.05148, 5.11424, 5.11355, 5.1551, 5.17527, 5.19442, 5.20092,
  5.20154, 5.22515, 5.93878, 5.95312, 5.955, 5.9608, 5.96183, 5.96866, 5.96951, 5.98761, 
  5.99887, 6.01151, 6.02995, 6.05299, 6.05367, 6.06136, 6.08406, 6.09498, 6.09276, 6.10591, 
  6.11239, 6.10761, 6.12622, 6.12519, 6.11188, 6.11495, 6.13236, 6.13168, 6.14004, 6.14858, 
  6.15984, 6.16735, 6.18817, 6.17674, 6.1892, 6.188, 6.19585, 6.19585, 6.20165, 6.20848, 
  6.20524, 6.21889, 6.23254, 6.24005, 6.25541, 6.27094, 6.27571, 6.27162, 6.27776, 6.2868, 
  6.29175, 6.288, 6.29977, 6.31683, 6.33202, 6.33577, 6.34123, 6.36802, 6.37945, 6.38559, 
  6.39088, 6.39685, 6.41647, 6.41254, 6.45399, 6.45877, 6.4661, 6.45638, 6.47173, 6.48146, 
  6.48299, 6.49971, 6.50994, 6.51932, 6.52205, 6.53075, 6.52614, 6.53709, 6.53535, 6.52375, 
  6.52665, 6.53893, 6.53808, 6.5524, 6.5524, 6.56434, 6.5698, 6.5773, 6.59248, 6.59146, 
  6.62624, 6.63153, 6.65316, 6.65555, 6.67618, 6.67976, 6.69085, 6.6888, 6.71113, 6.72256, 
  6.71795, 6.72102, 6.71812, 6.7038, 6.70414, 6.73091, 6.72051, 6.72307, 6.71608, 6.71846, 
  6.73102, 6.73023, 6.71557, 6.71574, 6.72409, 6.74114, 6.75034, 6.76704, 6.77233, 6.79841, 
  6.81546, 6.81375, 6.79347, 6.77898, 6.79586, 6.79381, 6.75443, 6.75631, 6.83012, 6.85602, 
  6.85364, 6.86216, 6.87903, 6.87903, 6.88892, 6.90904, 6.91857, 6.92726, 6.93714, 6.94737, 
  6.92879, 6.93237, 6.95962, 6.97086, 6.98671, 7.01142, 7.0138, 7.01772, 7.01738, 7.02164, 
  7.02317, 7.03101, 7.03833, 7.0615, 7.07207, 7.0908, 7.09489, 7.13543, 7.15809, 7.15281, 
  7.1712, 7.16916, 7.185, 7.17495, 7.20135, 7.19794, 7.20492, 7.20356, 7.18483, 7.18687, 
  7.17188, 7.16405, 7.15587, 7.14736, 7.13901, 7.13271, 7.12589, 7.12402, 7.15485, 7.15775, 
  7.17478, 7.18261, 7.2039, 7.20612, 7.25976, 7.28581, 7.2996, 7.31561, 7.33979, 7.35272, 
  7.36771, 7.39576, 7.41755, 7.44819, 7.46078, 7.45431, 7.46282, 7.4761, 7.47542, 7.54145, 
  7.54452, 7.56017, 7.55745, 7.57787, 7.57889, 7.56426, 7.57072, 7.56596, 7.57923, 7.59439, 
  7.61634, 7.62315, 7.63455, 7.64459, 7.63846, 7.64067, 7.63183, 7.63183, 7.65735, 7.66115, 
  7.66829, 7.6802, 7.67833, 7.69806, 7.70504, 7.73583, 7.74331, 7.77019, 7.76945, 7.78311, 
  7.79468, 7.81611, 7.83651, 7.82971, 7.83855, 7.82087, 7.83685, 7.82495, 7.91915, 7.93106, 
  7.93548, 7.945, 7.95792, 7.95962, 7.9671, 7.96098, 7.99532, 8.02965, 8.02863, 8.03781, 
  8.0232, 8.03611, 8.03271, 8.04699, 8.05753, 8.07351, 8.07589, 8.11192, 8.13639, 8.15644, 
  8.16935, 8.18906, 8.19416, 8.20401, 8.21353, 8.21013, 8.21965, 8.22848, 8.27197, 8.29779, 
  8.30866, 8.54571, 8.5503,
  8.55216, 8.55488, 8.56252, 8.5649, 8.57219, 8.57202, 8.57864, 8.57542, 8.6002, 8.61055, 
  8.63109, 8.63449, 8.62447, 8.62617, 8.60954, 8.59171, 8.57729, 8.56812, 8.5598, 8.56048, 
  8.54436, 8.54317, 8.52466, 8.52246, 8.53044, 8.52348, 8.53807, 8.54011, 8.53757, 8.55166, 
  8.58017, 8.60835, 8.58628, 8.5907, 8.58662, 8.59766, 8.59494, 8.57355, 8.57321, 8.56065, 
  8.57372, 8.62821, 8.62634, 8.63364, 8.62651, 8.63075, 8.61565, 8.62804, 8.61836, 8.62634, 
  8.62277, 8.62617, 8.62057, 8.62311, 8.63873, 8.64314, 8.63228, 8.64144, 8.63822, 8.65197, 
  8.66554, 8.67488, 8.67029, 8.67725, 8.67589, 8.68489, 8.6781, 8.69744, 8.69303, 8.69863, 
  8.70474, 8.7083, 8.72035, 8.75378, 8.77668, 8.78381, 8.76837, 8.76022, 8.74784, 8.72765, 
  8.73969, 8.74478, 8.74241, 8.76311, 8.78075, 8.78381, 8.79365, 8.79721, 8.80298, 8.82791, 
  8.82791, 8.83707, 8.84674, 8.8447, 8.85183, 8.8598, 8.85115, 8.85505, 8.84216, 8.80671, 
  8.81655, 8.82469, 8.85268, 8.85827, 8.8581, 8.87218, 8.881, 8.89084, 8.89033, 8.87914, 
  8.88202, 8.87032, 8.86794, 8.87252, 8.86947, 8.89135, 8.89542, 8.88592, 8.89423, 8.89847, 
  8.90288, 8.90542, 8.91645, 8.91662, 8.9295, 8.92374, 8.92476, 8.91967, 8.92391, 8.9256, 
  8.93239, 8.94577, 8.96408, 8.96883, 8.98816, 8.96696, 8.98087, 8.97408, 8.98036, 8.97476, 
  8.99019, 8.99799, 8.98782, 9.00477, 9.00935, 9.03003, 9.04122, 9.04851, 9.06055, 9.06529, 
  9.06241, 9.07292, 9.07241, 9.07631, 9.06852, 9.07241, 9.07106, 9.08208, 9.08428, 9.11869, 
  9.11004, 9.10852, 9.11225, 9.11547, 9.11276, 9.13835, 9.15225, 9.18072, 9.18021, 9.17512, 
  9.17885, 9.19377, 9.23274, 9.23511, 9.21732, 9.20207, 9.19004, 9.19834, 9.19444, 9.17648, 
  9.17546, 9.18817, 9.17326, 9.15784, 9.14411, 9.17512, 9.18394, 9.18461, 9.19139, 9.22088, 
  9.22681, 9.23594, 9.23848, 9.26982, 9.26877, 9.30333, 9.2891, 9.32501, 9.38132, 9.46904, 
  9.50426, 9.49478, 9.50392, 9.54015, 9.56005, 9.59898, 9.5939, 9.63689, 9.6968, 9.823, 
  9.83654, 9.87205, 9.86732, 9.84702, 9.8159, 9.81015, 9.80068, 9.75636, 9.86529, 9.90317, 
  9.87645, 9.86732, 9.85548, 9.83011, 9.8044, 9.8274, 9.82673, 9.79459, 9.79628, 9.83349, 
  9.82943, 9.80541, 9.79932, 9.81049, 9.88355, 9.9752, 10.0148, 10.02054, 9.98166, 9.96355, 
  9.96254, 9.9742, 9.96085, 9.94563, 9.95239, 9.93498, 9.95053, 9.94326, 9.94512, 9.92416, 
  9.88515, 9.87686, 9.886, 9.90223, 9.92032, 9.92371, 9.93301, 9.92929, 9.93334, 9.93098,
  9.93622, 9.93554, 9.9418, 9.96107, 9.96006, 9.96429, 9.96716, 9.96682, 9.97054, 9.97595, 
  9.98626, 9.98711, 10.003, 10.01416, 10.01162, 10.04475, 10.05202, 10.04273, 10.05354, 10.05642, 
  10.06115, 10.15545, 10.19397, 10.21509, 10.23046, 10.2303, 10.19516, 10.16812, 10.16626, 10.18789,
  10.14120, 1.91711, 2.20303)
LONGITUDE_VALUEs <- c(
  -63.37174, -63.38633, -63.36745, -63.36882, -63.36059, -63.36728, -63.36059, -63.36711, -63.36059, -63.37638, 
  -63.37603, -63.35354, -63.36556, -63.36882, -63.40452, -63.41516, -63.44245, -63.44144, -63.45517, -63.45465, 
  -63.46564, -63.47988, -63.48658, -63.49207, -63.49876, -63.50511, -63.52176, -63.54476, -63.55643, -63.55387, 
  -63.55713, -63.55508, -63.56125, -63.56263, -63.57395, -63.60073, -63.6045, -63.61258, -63.61704, -63.62082, 
  -63.63541, -63.64399, -63.65429, -63.6675, -63.68552, -63.69204, -63.70288, -63.72004, -63.73017, -63.73669, 
  -63.73531, -63.74882, -63.75827, -63.77046, -63.7763, -63.78746, -63.79863, -63.79708, -63.80338, -63.81317, 
  -63.8185, -63.83773, -63.84546, -63.87431, -63.88221, -63.89458, -63.90694, -63.92618, -63.93283, -63.94416, 
  -63.95636, -63.96099, -63.97679, -64.00908, -64.02145, -64.02741, -64.03291, -64.03308, -64.03943, -64.0439, 
  -64.05712, -64.06245, -64.04527, -64.04819, -64.04184, -64.02724, -64.02587, -64.01849, -64.01849, -64.0111, 
  -64.01213, -64.00664, -64.00887, -63.99238, -63.98673, -63.99137, -63.98604, -63.99841, -64.00165, -64.00835, 
  -64.00732, -63.99719, -63.99375, -63.98259, -63.98276, -64.00371, -64.00269, -64.00715, -63.99771, -64.00028, 
  -64.01712, -64.01522, -64.01951, -64.01471, -64.02107, -64.02484, -64.04408, -64.04218, -64.06193, -64.07722, 
  -64.08168, -64.06657, -64.07085, -64.07926, -64.0693, -64.09558, -64.09349, -64.11032, -64.10396, -64.1086, 
  -64.11633, -64.12182, -64.13711, -64.139, -64.15892, -64.15891, -64.15049, -64.14311, -64.15891, -64.15839, 
  -64.18055, -64.17418, -64.18621, -64.19995, -64.20888, -64.21317, -64.2197, -64.21556, -64.2305, -64.22346, 
  -64.22054, -64.20817, -64.20062, -64.19186, -64.18089, -64.16939, -64.15822, -64.15342, -64.15908, -64.15015, 
  -64.14398, -64.11684, -64.12302, -64.11547, -64.11908, -64.11479, -64.13694, -64.13248, -64.14604, -64.14862, 
  -64.13539, -64.14895, -64.13453, -64.13607, -64.11821, -64.13006, -64.11787, -64.13161, -64.16167, -64.16267, 
  -64.17676, -64.1771, -64.18912, -64.17332, -64.1704, -64.2008, -64.1917, -64.20903, -64.21401, -64.22208, 
  -64.21847, -64.22689, -64.22277, -64.23616, -64.24441, -64.2516, -64.2425, -64.2358, -64.24799, -64.26225, 
  -64.29437, -64.31083, -64.30225, -64.30328, -64.31874, -64.33437, -64.34739, -64.35426, -64.36405, -64.38551, 
  -64.39288, -64.40902, -64.41417, -64.43976, -64.45814, -64.4643, -64.47254, -64.47185, -64.4758, -64.48027, 
  -64.49057, -64.50655, -64.50414, -64.51373, -64.51562, -64.52679, -64.5218, -64.5673, -64.55047, -64.58911, 
  -64.58548, -64.59665, -64.60248, -64.61245, -64.62722, -64.64095, -64.64729, -64.67065, -64.68164, -64.67906, 
  -64.68816, -64.70018, -64.70551, -64.70824, -64.71786, -64.73469, -64.74495, -64.75972, -64.76728, -64.77192, 
  -64.77381, -64.76058, -64.77243, -64.76744, -64.77259, -64.7671, -64.78049, -64.77585, -64.78529, -64.78529, 
  -64.79663, -64.80246, -64.79765, -64.80452, -64.8083, -64.80332, -64.82187, -64.82391, -64.82735, -64.82065, 
  -64.82753, -64.81482, -64.81619, -64.80881, -64.80606, -64.81259, -64.79731, -64.79748, -64.78837, -64.77671, 
  -64.77671, -64.75816, -64.74631, -64.73481, -64.72676, -64.72676, -64.71458, -64.70857, -64.70857, -64.68728, 
  -64.68814, -64.67935, -64.67884, -64.67009, -64.66717, -64.64794, -64.63953, -64.63284, -64.61875, -64.61034, 
  -64.60382, -64.59198, -64.58477, -64.56555, -64.54856, -64.54427, -64.53757, -64.51904, -64.51662, -64.50135, 
  -64.49362, -64.48693, -64.48865, -64.4713, -64.43938, -64.4205, -64.4114, -64.33947, -64.31493, -64.29399, 
  -64.26273, -64.26702, -64.24075, -64.23268, -64.22239, -64.16884, -64.16026, -64.14721, -64.13863, -64.13366, 
  -64.12233, -64.10583, -64.10635, -64.09914, -64.0988, -64.07476, -64.04593, -64.037, -64.01984, -63.99238, 
  -63.97623, -63.96542, -63.95488, -63.96038, -63.95918, -63.94939, -63.94614, -63.93841, -63.93772, -63.91849, 
  -63.92141, -63.91299, -63.89324, -63.84761, -63.79625, -63.75835, -63.73843, -63.74306, -63.69738, -63.68089, 
  -63.67677, -63.66801, -63.66475, -63.67694, -63.68089, -63.69532, -63.70099, -63.68588, -63.69052, -63.67832, 
  -63.656, -63.64504, -63.63972, -63.58924, -63.59525, -63.58306, -63.58478, -63.59474, -63.592, -63.58186, 
  -63.57207, -63.55524, -63.55438, -63.51973, -63.52128, -63.50238, -63.50084, -63.49689, -63.4962, -63.5053, 
  -63.50135, -63.49311, -63.49329, -63.48419, -63.48281, -63.47216, -63.46392, -63.46134, -63.45224, -63.43387, 
  -63.4385, -63.4126, -63.42102, -63.44523, -63.44196, -63.45398, -63.44934, -63.43749, -63.42959, -63.41328, 
  -63.39181, -63.3479, -63.32471, -63.31819, -63.31046, -63.28556, -63.28418, -63.26431, -63.25126, -63.2504, 
  -63.20849, -63.22344, -63.23563, -63.22619, -63.23289, -63.22808, -63.22894, -63.21812, -63.214, -63.1759, 
  -63.1479, -63.12128, -63.08971, -63.09108, -63.07803, -63.06928, -63.06258, -63.06258, -63.06963, -63.06361, 
  -63.0686, -63.07907, -63.0734, -63.05915, -63.05436, -63.02877, -63.02516, -63.01607, -63.01659, -62.99169, 
  -62.94772, -62.94381, -62.92939, -62.92012, -62.90105, -62.83515, -62.79651, -62.78555, -62.7706, -62.76786, 
  -62.74587, -62.74553, -62.73763, -62.73145, -62.74004, -62.75052, -62.73403, -62.74245, -62.73025, -62.73025, 
  -62.77557, -62.75496, -62.75736, -62.77814, -62.77607, -62.78878, -62.78329, -62.7632, -62.74243, -62.7639, 
  -62.76802, -62.7493, -62.75343, -62.73385, -62.69435, -62.67912, -62.6604, -62.64941, -62.62742, -62.60819, 
  -62.58039, -62.57936, -62.55583, -62.56167, -62.54622, -62.53334, -62.53403, -62.5433, -62.53935, -62.55704, 
  -62.54622, -62.55292, -62.52115, -62.53145, -62.51892, -62.50964, -62.50504, -62.47619, -62.47344, -62.46245, 
  -62.46382, -62.45386, -62.47155, -62.46331, -62.45095, -62.43755, -62.38092, -62.37319, -62.35584, -62.3514, 
  -62.32238, -62.31928, -62.30778, -62.2906, -62.27793, -62.26762, -62.25715, -62.25028, -62.24358, -62.23396, 
  -62.21645, -62.19484, -62.19123, -62.15846, -62.14421, -62.13768, -62.11106, -62.11776, -62.10145, -62.09372, 
  -62.07912, -62.07035, -62.07945, -62.0707, -62.0489, -62.03466, -62.02573, -61.99876, -61.99601, -61.98228, 
  -61.98091, -61.96632, -61.95036, -61.9392, -61.93319, -61.92581, -61.92221, -61.89372, -61.88771, -61.86952, 
  -61.87483, -61.85235, -61.83931, -61.81579, -61.82026, -61.80925, -61.79672, -61.78289, -61.76465, -61.77477, 
  -61.73546, -61.73597, -61.72241, -61.72156, -61.72859, -61.72465, -61.70268, -61.6929, -61.68586, -61.67934, 
  -61.66955, -61.6548, -61.6371, -61.61101, -61.58767, -61.55384, -61.55332, -61.51951, -61.52724, -61.51711, 
  -61.50595, -61.52157, -61.52518, -61.51636, -61.52323, -61.51292, -61.51361, -61.47566, -61.45762, -61.4362, 
  -61.4441, -61.40924, -61.39447, -61.373, -61.34178, -61.3368, -61.31911, -61.32598, -61.30522, -61.28839, 
  -61.2774, -61.29389, -61.29646, -61.30417, -61.31138, -61.32203, -61.32151, -61.32942, -61.32409, -61.28373, 
  -61.27583, -61.26849, -61.25578, -61.25338, -61.24548, -61.22264, -61.21611, -61.20306, -61.18898, -61.16926, 
  -61.1648, -61.16394, -61.15158, -61.14763, -61.12255, -61.09748, -61.09284, -61.08837, -61.08739, -61.07331, 
  -61.06335, -61.01887, -61.01028, -61.00066, -61.00255, -60.99603, -60.98538, -60.95743, -60.95589, -60.93596, 
  -60.93529, -60.94474, -60.93289, -60.93838, -60.95092, -60.94766, -60.93359, -60.93118, -60.91864, -60.91023, 
  -60.91366, -60.90181, -60.85081, -60.83174, -60.8165, -60.80791, -60.79248, -60.78767, -60.77513, -60.76191, 
  -60.75178, -60.73666, -60.72121, -60.72687, -60.70664, -60.6929, -60.67041, -60.65908, -60.6565, -60.64946, 
  -60.65238, -60.62595, -60.62544, -60.62046, -60.61273, -60.59006, -60.58303, -60.5947, -60.59624, -60.61702, 
  -60.60964, -60.64708, -60.64277, -60.6584, -60.65942, -60.67917, -60.68226, -60.7159,
  -60.73754, -60.74824, -61.3827, -61.37824, -61.37429, -61.37549, -61.36897, -61.36588, -61.35541, -61.34974, 
  -61.33103, -61.33618, -61.31918, -61.31163, -61.30219, -61.30373, -61.27867, -61.27936, -61.27404, -61.27455, 
  -61.25996, -61.2452, -61.23232, -61.22271, -61.21619, -61.20658, -61.20469, -61.19079, -61.19147, -61.18341, 
  -61.18409, -61.18993, -61.17877, -61.135, -61.13449, -61.12505, -61.1247, -61.13105, -61.13208, -61.12625, 
  -61.13449, -61.14255, -61.13344, -61.13567, -61.13224, -61.11354, -61.12006, -61.13722, -61.1434, -61.14169, 
  -61.14872, -61.15627, -61.16426, -61.16701, -61.18436, -61.17113, -61.17543, -61.15808, -61.16873, -61.15671, 
  -61.16925, -61.1562, -61.15723, -61.14744, -61.15604, -61.15157, -61.15604, -61.16325, -61.18386, -61.17646, 
  -61.18711, -61.17234, -61.17629, -61.17216, -61.18247, -61.18127, -61.19587, -61.19578, -61.206, -61.20651, 
  -61.22317, -61.22163, -61.21115, -61.21201, -61.22591, -61.21956, -61.23209, -61.2211, -61.22333, -61.20788, 
  -61.19895, -61.18143, -61.19089, -61.18522, -61.1811, -61.16135, -61.16616, -61.15018, -61.15121, -61.13733, 
  -61.11243, -61.10985, -61.10178, -61.09405, -61.08547, -61.07791, -61.05787, -61.05117, -61.04138, -61.02283, 
  -61.01343, -60.99862, -60.98539, -60.95242, -60.94147, -60.93632, -60.90197, -60.90365, -60.92052, -60.92739, 
  -60.91622, -60.89836, -60.87586, -60.84363, -60.82147, -60.81154, -60.73134, -60.71434, -60.66527, -60.57442, 
  -60.56986, -60.54272, -60.53602, -60.50734, -60.49087, -60.48107, -60.46374, -60.46254, -60.45395, -60.39916, 
  -60.38135, -60.37483, -60.37223, -60.36416, -60.36777, -60.35249, -60.33497, -60.33325, -60.32638, -60.32501, 
  -60.31762, -60.3202, -60.30648, -60.30391, -60.28948, -60.28931, -60.29584, -60.29481, -60.33326, -60.34357, 
  -60.34906, -60.35576, -60.36243, -60.41962, -60.43061, -60.44143, -60.44968, -60.4605, -60.48295, -60.50167, 
  -60.50527, -60.52142, -60.52054, -60.52844, -60.52707, -60.53926, -60.53737, -60.54664, -60.55968, -60.56689, 
  -60.57892, -60.59935, -60.59968, -60.62269, -60.63814, -60.61273, -60.61582, -60.58731, -60.5971, -60.59246, 
  -60.6117, -60.60906, -60.64376, -60.6386, -60.66502, -60.67326, -60.68288, -60.68425, -60.6973, -60.71757, 
  -60.71105, -60.70831, -60.68804, -60.6925, -60.68495, -60.67945, -60.66674, -60.66125, -60.63514, -60.6438, 
  -60.61873, -60.62628, -60.62492, -60.61496, -60.60517, -60.59915, -60.59503, -60.58937, -60.59177, -60.58731, 
  -60.59298, -60.5892, -60.58216, -60.5789, -60.56825, -60.58448, -60.56835, -60.55908, -60.55125, -60.55153, 
  -60.53162, -60.54088, -60.50244, -60.49351, -60.44203, -60.40805, -60.37887, -60.35995, -60.24325, -60.24425, 
  -60.23258, -60.23498, -60.21885, -60.19928, -60.19242, -60.18933, -60.13441, -60.12033, -60.10901, -60.09425, 
  -60.05409, -60.04202, -60.03276, -60.0235, -60.00668, -60.00874, -60.00016, -59.99878, -59.98127, -59.99672, 
  -59.98299, -59.9775, -59.95001, -59.94554, -59.92117, -59.91191, -59.90538, -59.83948, -59.80447, -59.81923, 
  -59.81751, -59.99738, -59.99206,
  -59.99551, -59.99362, -60.00838, -60.00391, -60.02279, -60.00786, -60.03172, -60.03893, -60.09953, -60.1481, 
  -60.19875, -60.30003, -60.3711, -60.40955, -60.41075, -60.42174, -60.40183, -60.43014, -60.4317, -60.43839, 
  -60.44165, -60.44937, -60.45881, -60.47169, -60.48267, -60.49349, -60.53691, -60.57915, -60.59048, -60.63338, 
  -60.66515, -60.71939, -60.78532, -60.81621, -60.86375, -60.88763, -60.90925, -60.95183, -60.9841, -61.00143, 
  -61.00212, -60.96796, -60.96024, -60.93896, -60.91819, -60.91064, -60.88144, -60.82979, -60.81365, -60.79235, 
  -60.77175, -60.74593, -60.73854, -60.73013, -60.74558, -60.66766, -60.62507, -60.60549, -60.59639, -60.57909, 
  -60.57394, -60.59417, -60.60207, -60.60722, -60.61839, -60.63728, -60.66355, -60.68657, -60.71091, -60.70713, 
  -60.71675, -60.6946, -60.69494, -60.67624, -60.65855, -60.66233, -60.68344, -60.68344, -60.69752, -60.75331, 
  -60.76911, -60.75743, -60.7461, -60.71555, -60.71538, -60.6836, -60.68652, -60.697, -60.69391, -60.71366, 
  -60.72483, -60.71555, -60.72311, -60.71263, -60.70868, -60.71521, -60.73135, -60.73633, -60.76259, -60.79211, 
  -60.79709, -60.78713, -60.78489, -60.77478, -60.76774, -60.75263, -60.73047, -60.73425, -60.74352, -60.75984, 
  -60.76637, -60.77925, -60.81462, -60.81445, -60.8342, -60.81274, -60.81462, -60.83163, -60.84601, -60.84378, 
  -60.85048, -60.84464, -60.84927, -60.83468, -60.82317, -60.81802, -60.81359, -60.7971, -60.78611, -60.77374, 
  -60.76602, -60.7825, -60.77787, -60.77048, -60.78628, -60.80929, -60.81032, -60.83092, -60.83384, -60.85016, 
  -60.84449, -60.83556, -60.81684, -60.80517, -60.79572, -60.77649, -60.77769, -60.76156, -60.75692, -60.76998, 
  -60.7899, -60.78543, -60.79297, -60.79537, -60.81065, -60.81134, -60.81993, -60.80945, -60.81787, -60.80928, 
  -60.80001, -60.78524, -60.79091, -60.78249, -60.77511, -60.75261, -60.76223, -60.77254, -60.75124, -60.73888, 
  -60.73132, -60.73563, -60.76685, -60.77475, -60.79571, -60.83899, -60.84809, -60.86234, -60.88171, -60.92104, 
  -60.94938, -60.95024, -60.99107, -61.00567, -61.03656, -60.99843, -60.99775, -60.99125, -60.98438, -60.92616, 
  -60.92496, -60.90766, -60.89203, -60.84721, -60.82228, -60.81953, -60.80648, -60.77969, -60.80098, -60.87586, 
  -60.92768, -60.96409, -60.96477, -61.00908, -61.11205, -61.19758, -61.21578, -61.24046, -61.32251, -61.44406, 
  -61.48867, -61.54123, -61.54397, -61.51512, -61.48696, -61.46738, -61.4698, -61.42068, -61.56731, -61.66829, 
  -61.66348, -61.6257, -61.63806, -61.59961, -61.58724, -61.61987, -61.65319, -61.61094, -61.66928, -61.78671, 
  -61.82724, -61.82071, -61.8317, -61.86674, -61.92986, -62.0531, -62.1687, -62.20078, -62.24144, -62.24556, 
  -62.25089, -62.2502, -62.26669, -62.26461, -62.27629, -62.30135, -62.31303, -62.32745, -62.3381, -62.34959, 
  -62.35113, -62.36316, -62.36796, -62.39407, -62.40487, -62.41276, -62.41499, -62.40417, -62.40606, -62.39627,
  -62.39699, -62.39133, -62.38394, -62.38721, -62.3915, -62.38755, -62.39236, -62.38514, -62.38257, -62.37089, 
  -62.37467, -62.38017, -62.38738, -62.39887, -62.40574, -62.41879, -62.43974, -62.45022, -62.45845, -62.46789, 
  -62.45948, -62.48882, -62.51355, -62.54856, -62.59733, -62.62189, -62.61963, -62.61036, -62.63079, -62.65878, 
  -63.11696, -66.09252, -63.39552)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_2, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_0 <- st_union(Geo_0)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, st_union(Geo_0[1:9]))
Geo_2 <- st_union(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(9.97172, 9.96006, 9.96953, 9.98948, 9.98948, 9.97713, 9.991, 9.99201, 9.96885)
LONGITUDE_VALUEs <- c(-62.33228, -62.3297, -62.30978, -62.31098, -62.31459, -62.31837, -62.32163, -62.33726, -62.3443)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(9.9609, 9.95279, 9.9445, 9.94839, 9.95313, 9.95769)
LONGITUDE_VALUEs <- c(-62.3072, -62.31081, -62.3048, -62.30102, -62.30343, -62.30137)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  9.96175, 9.95786, 9.96648, 9.97071, 9.98153, 9.98779, 9.97815, 10.0172, 10.02701, 10.0412, 
  10.04171, 10.0505, 10.04712, 10.05371, 10.05828, 10.05523, 10.05929, 10.05574, 10.0554, 10.01788, 
  9.97257)
LONGITUDE_VALUEs <- c(
  -62.30619, -62.29984, -62.29503, -62.2861, -62.29159, -62.28524, -62.2727, -62.22945, -62.22602, -62.23409, 
  -62.23976, -62.24079, -62.23615, -62.23769, -62.24456, -62.2492, -62.25298, -62.25796, -62.27977, -62.29674, 
  -62.30327)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(9.89936, 9.88633, 9.88853, 9.89885)
LONGITUDE_VALUEs <- c(-62.35563, -62.35718, -62.35288, -62.35426)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(9.28481, 9.26448, 9.24991, 9.26312)
LONGITUDE_VALUEs <- c(-60.78477, -60.79541, -60.76794, -60.75901)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(9.235, 9.22822, 9.23296, 9.24347)
LONGITUDE_VALUEs <- c(-60.81256, -60.80913, -60.79298, -60.79505)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(9.21602, 9.2272, 9.20721, 9.19908, 9.20314, 9.20382, 9.20992)
LONGITUDE_VALUEs <- c(-60.82733, -60.84107, -60.88365, -60.88709, -60.86992, -60.84519, -60.84175)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(9.18891, 9.18043, 9.17942, 9.19365, 9.1923, 9.19636)
LONGITUDE_VALUEs <- c(-60.93689, -60.94032, -60.92555, -60.89945, -60.9101, -60.91765)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(9.24177, 9.23195, 9.2228, 9.22856)
LONGITUDE_VALUEs <- c(-60.87541, -60.9101, -60.91731, -60.8864)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(9.24415, 9.23805, 9.24482, 9.26346)
LONGITUDE_VALUEs <- c(-60.87026, -60.85652, -60.85034, -60.84897)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(9.08616, 9.10566, 9.11227, 9.09244, 9.0843)
LONGITUDE_VALUEs <- c(-60.74681, -60.74321, -60.74939, -60.76021, -60.75334)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  9.10447, 9.08447, 9.07362, 9.08362, 9.10023, 9.09616, 9.10566, 9.13142, 9.15887, 9.16023, 
  9.15006, 9.13227, 9.11905)
LONGITUDE_VALUEs <- c(
  -60.74012, -60.74441, -60.73496, -60.70612, -60.70182, -60.69461, -60.68362, -60.68311, -60.70252, -60.71625, 
  -60.72707, -60.73171, -60.74424)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(8.99426, 8.98714, 8.98612, 8.99239)
LONGITUDE_VALUEs <- c(-60.83799, -60.83335, -60.82459, -60.82923)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(8.98697, 8.97883, 8.98527, 8.99155)
LONGITUDE_VALUEs <- c(-60.80227, -60.80244, -60.79162, -60.79574)
 Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(9.01325, 9.00342, 9.01088, 9.02444)
LONGITUDE_VALUEs <- c(-60.72761, -60.71834, -60.70649, -60.7149)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(9.03478, 9.02749, 9.03275, 9.04309, 9.05275, 9.07462, 9.08767, 9.08767, 9.07258, 9.04478)
LONGITUDE_VALUEs <- c(-60.72332, -60.72264, -60.69756, -60.69671, -60.6828, -60.67387, -60.67816, -60.68572, -60.70134, -60.71491)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(8.93881, 8.93406, 8.93576, 8.92525, 8.92592, 8.93915, 8.94509, 8.94577, 8.94102)
LONGITUDE_VALUEs <- c(-60.70427, -60.70221, -60.6883, -60.68384, -60.67851, -60.6658, -60.66855, -60.68744, -60.68727)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(8.83739, 8.834, 8.84028, 8.84418)
LONGITUDE_VALUEs <- c(-60.61739, -60.61516, -60.60674, -60.60743)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(8.78955, 8.77208, 8.76818, 8.79651, 8.81042, 8.80754, 8.80126, 8.79447)
LONGITUDE_VALUEs <- c(-60.65036, -60.6519, -60.63851, -60.62975, -60.63782, -60.64349, -60.64108, -60.64349)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(8.61393, 8.61206, 8.61105, 8.60867, 8.61206, 8.61817, 8.61987)
LONGITUDE_VALUEs <- c(-60.86528, -60.86476, -60.84416, -60.84055, -60.833, -60.83643, -60.85377)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  8.60154, 8.58677, 8.58643, 8.57506, 8.58151, 8.58576, 8.58711, 8.59594, 8.59933, 8.60205, 
  8.60426)
LONGITUDE_VALUEs <- c(
  -60.96399, -60.97653, -60.96399, -60.95403, -60.9427, -60.94613, -60.93068, -60.93085, -60.93686, -60.92759, 
  -60.94631)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

##### BRAZIL #####
Geo_0 <- Geometric_Operations(Geo_3, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0))
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(
  1.25137, 1.26132, 1.2802, 1.28535, 1.29359, 1.30646, 1.31676, 1.31247, 1.302, 1.32705, 
  1.32345, 1.33134, 1.32328, 1.33666, 1.32997, 1.34936, 1.3437, 1.35348, 1.34679, 1.35949, 
  1.3576, 1.37871, 1.37339, 1.40857, 1.42024, 1.44272, 1.45078, 1.46743, 1.46125, 1.46537, 
  1.48373, 1.5057, 1.51479, 1.51668, 1.5057, 1.50707, 1.51891, 1.54002, 1.55615, 1.55117, 
  1.56559, 1.58721, 1.61809, 1.61586, 1.62736, 1.64812, 1.67455, 1.67729, 1.66768, 1.68175, 
  1.69222, 1.70372, 1.70852, 1.71796, 1.72293, 1.72465, 1.73615, 1.7183, 1.74198, 1.74335, 
  1.73735, 1.75564, 1.75725, 1.80718, 1.8161, 1.8276, 1.84475, 1.86809, 1.84493, 1.85556, 
  1.84836, 1.85419, 1.87152, 1.87838, 1.90103, 1.91441, 1.92265, 1.93088, 1.94032, 1.95267, 
  1.95799, 1.96605, 1.97497, 1.98492, 2.00328, 2.00911, 2.01615, 2.02421, 2.0297, 2.02987, 
  2.0743, 2.09094, 2.10021, 2.11976, 2.12388, 2.1316, 2.1491, 2.15613, 2.16299, 2.17483, 
  2.181, 2.2069, 2.23178, 2.23761, 2.26608, 2.27758, 2.29353, 2.28718, 2.29447, 2.28306, 
  2.30039, 2.30708, 2.32166, 2.32938, 2.32955, 2.32063, 2.3208, 2.33006, 2.33092, 2.33915, 
  2.34996, 2.35888, 2.36231, 2.35116, 2.36334, 2.39644, 2.40313, 2.42405, 2.42474, 2.43914, 
  2.46418, 2.4719, 2.48048, 2.50774, 2.52815, 2.55403, 2.57015, 2.59741, 2.60993, 2.60839, 
  2.64406, 2.65778, 2.6895, 2.84334, 2.87022, 2.88308, 2.89816, 2.91119, 2.93485, 2.95457, 
  2.96279, 3.00342, 3.01577, 3.05091, 3.08159, 3.08814, 3.1001, 3.11107, 3.10782, 3.12204, 
  3.12153, 3.10953, 3.11227, 3.12581, 3.12821, 3.13935, 3.13957, 3.14638, 3.14484, 3.15015, 
  3.14981, 3.15855, 3.19095, 3.21631, 3.21509, 3.22623, 3.2408, 3.24579, 3.25773, 3.28018, 
  3.27744, 3.29663, 3.30503, 3.30966, 3.32114, 3.33142, 3.35284, 3.35799, 3.35113, 3.36964, 
  3.37718, 3.41659, 3.41968, 3.4279, 3.43098, 3.4219, 3.42567, 3.44452, 3.45684, 3.47329, 
  3.46866, 3.4798, 3.47569, 3.48151, 3.49179, 3.51013, 3.52452, 3.52161, 3.54611, 3.55313, 
  3.55981, 3.5641, 3.57129, 3.57558, 3.57558, 3.57935, 3.58003, 3.58928, 3.59545, 3.60453, 
  3.60573, 3.61447, 3.60899, 3.62081, 3.61584, 3.61978, 3.61601, 3.62629, 3.62646, 3.6327, 
  3.63228, 3.64976, 3.66141, 3.66449, 3.67665, 3.67922, 3.69019, 3.68779, 3.69978, 3.69601, 
  3.70286, 3.70972, 3.71623, 3.7265, 3.73541, 3.74398, 3.74476, 3.7546, 3.75665, 3.76624, 
  3.78286, 3.78594, 3.7993, 3.78389, 3.80444, 3.79228, 3.80598, 3.81352, 3.8154, 3.82345, 
  3.81455, 3.81489, 3.83304, 3.83485, 3.88743, 3.89154, 3.92032, 3.91908, 3.93158, 3.92336, 
  3.9398, 3.94494, 3.97011, 3.97148, 3.9797, 3.97902, 3.9645, 3.97032, 3.96758, 3.9758, 
  3.98676, 4.0032, 3.99352, 4.0016, 4.0076, 4.01873, 4.0064, 4.03037, 4.03773, 4.05297, 
  4.05349, 4.06753, 4.06958, 4.13311, 4.14646, 4.14663, 4.18122, 4.19012, 4.21306, 4.2283, 
  4.2348, 4.269, 4.2752, 4.26681, 4.27435, 4.27845, 4.28616, 4.29746, 4.30687, 4.30601, 
  4.32005, 4.34658, 4.36473, 4.37448, 4.38544, 4.37979, 4.39913, 4.41162, 4.41111, 4.42429, 
  4.42069, 4.43952, 4.44038, 4.44602, 4.45099, 4.44551, 4.44979, 4.46536, 4.46639, 4.44688, 
  4.4515, 4.45886, 4.45236, 4.46417, 4.47221, 4.47991, 4.48624, 4.48727, 4.4847, 4.47421, 
  4.47871, 4.45961, 4.46622, 4.47837, 4.48145, 4.49035, 4.51003, 4.48077, 4.49617, 4.48949, 
  4.49514, 4.49018, 4.49685, 4.52492, 4.52458, 4.5167, 4.51739, 4.53125, 4.53416, 4.52731, 
  4.52902, 4.52167, 4.51773, 4.50917, 4.50164, 4.50798, 4.51482, 4.51171, 4.5191, 4.54905, 
  4.55694, 4.57694, 4.5641, 4.5819, 4.5754, 4.59781, 4.60603, 4.60243, 4.60859, 4.60312, 
  4.618, 4.63563, 4.63871, 4.65086, 4.64897, 4.65616, 4.68542, 4.70749, 4.72441, 4.73554, 
  4.73623, 4.78378, 4.7908, 4.80688, 4.81167, 4.81834, 4.83408, 4.8404, 5.0181, 5.01571, 
  5.05418, 5.06102, 5.07846, 5.08581, 5.08188, 5.09214, 5.10834, 5.10599, 5.13813, 5.13831, 
  5.19712, 5.21507, 5.23368, 5.23932, 5.24719, 5.2265, 5.22787, 5.23898, 5.25129, 5.27095, 
  5.24838, 5.25163, 5.2265, 5.22701, 5.20188, 5.20718, 5.2024, 5.21795, 5.20753, 5.21129, 
  5.1865, 5.17829, 5.20257, 5.19402, 5.20428, 5.19949, 5.1865, 5.19231, 5.20565, 5.21676, 
  5.21214, 5.21642, 5.21231, 5.22941, 5.22548, 5.23266, 5.22924, 5.2212, 5.21864, 5.21094, 
  5.20154,
  5.20092, 5.19442, 5.17527, 5.1551, 5.11355, 5.11424, 5.05148, 5.0378, 5.00754, 4.99745, 
  4.97504, 4.95828, 4.92887, 4.92015, 4.90715, 4.90492, 4.88851, 4.88235, 4.86644, 4.86319, 
  4.84728, 4.84455, 4.81188, 4.80914, 4.79017, 4.7758, 4.77135, 4.75254, 4.75938, 4.75237, 
  4.7539, 4.7486, 4.74792, 4.72551, 4.72859, 4.70378, 4.71764, 4.69762, 4.6889, 4.66306, 
  4.66306, 4.65639, 4.6557, 4.63722, 4.63432, 4.61669, 4.59924, 4.59428, 4.58093, 4.58281, 
  4.54465, 4.54329, 4.51625, 4.51779, 4.52172, 4.52412, 4.51899, 4.52429, 4.51762, 4.51813, 
  4.52275, 4.52361, 4.51642, 4.50684, 4.47945, 4.49468, 4.49571, 4.50256, 4.50102, 4.52155, 
  4.5183, 4.53062, 4.52121, 4.53353, 4.5248, 4.5349, 4.53593, 4.52634, 4.53644, 4.53353, 
  4.51488, 4.51128, 4.50153, 4.5041, 4.49349, 4.49297, 4.47808, 4.47757, 4.45532, 4.45977, 
  4.44334, 4.43016, 4.42828, 4.41647, 4.42691, 4.42195, 4.4317, 4.42366, 4.43479, 4.43855, 
  4.41716, 4.40603, 4.39148, 4.38258, 4.3552, 4.35143, 4.32661, 4.32182, 4.30025, 4.29512, 
  4.28981, 4.26636, 4.25592, 4.24256, 4.26191, 4.23777, 4.26208, 4.26379, 4.25318, 4.25711, 
  4.25181, 4.25557, 4.24393, 4.25506, 4.26019, 4.2691, 4.26276, 4.25711, 4.2489, 4.23109, 
  4.223, 4.23007, 4.2013, 4.19908, 4.16535, 4.1585, 4.17511, 4.171, 4.15611, 4.15302, 
  4.1609, 4.15833, 4.12135, 4.11793, 4.13111, 4.13145, 4.15987, 4.16176, 4.18144, 4.17545, 
  4.16535, 4.15046, 4.15867, 4.15114, 4.15748, 4.14378, 4.1246, 4.11962, 4.12818, 4.11517, 
  4.11774, 4.09209, 4.08524, 4.07497, 4.08969, 4.09688, 4.11384, 4.10836, 4.12017, 4.11675, 
  4.12805, 4.12719, 4.13096, 4.12976, 4.14243, 4.13678, 4.1426, 4.13267, 4.15099, 4.16777, 
  4.16332, 4.17325, 4.18455, 4.1741, 4.17941, 4.16434, 4.15904, 4.15082, 4.14123, 4.13781, 
  4.13164, 4.14414, 4.12788, 4.13763, 4.13644, 4.1152, 4.1099, 4.10082, 4.07754, 4.07891, 
  4.05973, 4.05237, 4.03952, 4.04569, 4.03644, 4.01692, 4.01504, 4.02582, 4.04346, 4.03969, 
  4.04757, 4.03421, 4.03969, 4.03147, 4.03969, 4.03182, 4.02131, 4.01155, 3.98415, 3.97696, 
  3.93946, 3.93449, 3.89219, 3.88174, 3.87455, 3.86085, 3.84766, 3.83653, 3.80501, 3.79508, 
  3.78805, 3.77915, 3.76339, 3.7615, 3.71012, 3.68665, 3.69093, 3.67808, 3.67979, 3.69162, 
  3.70104, 3.72211, 3.73547, 3.67089, 3.67483, 3.63423, 3.62429, 3.61504, 3.6111, 3.63885, 
  3.64622, 3.64707, 3.66301, 3.67226, 3.68288, 3.68459, 3.69333, 3.6947, 3.70755, 3.71388, 
  3.71834, 3.73667, 3.73924, 3.76613, 3.77024, 3.78018, 3.80467, 3.79953, 3.80998, 3.81477, 
  3.83105, 3.8307, 3.84218, 3.85126, 3.85537, 3.88174, 3.88962, 3.94631, 3.95196, 3.96498, 
  3.95521, 3.96003, 3.97047, 3.98161, 3.96243, 3.96585, 3.95455, 3.98058, 3.97476, 3.97715, 
  3.96568, 3.96174, 3.95489, 3.94958, 3.93348, 3.93828, 3.90865, 3.8833, 3.8744, 3.85676, 
  3.86172, 3.87525, 3.86703, 3.8732, 3.88347, 3.87662, 3.86738, 3.86926, 3.86327, 3.85727, 
  3.84186, 3.84186, 3.85008, 3.84871, 3.85641, 3.86635, 3.88998, 3.88313, 3.88827, 3.88416, 
  3.89255, 3.89563, 3.90317, 3.90505, 3.91893, 3.98417, 3.98452, 4.00661, 4.02082, 4.01603, 
  4.0102, 3.94924, 3.93776, 3.93828, 3.92578, 3.92406, 3.91704, 3.91636, 3.90745, 3.9143, 
  3.91362, 3.9328, 3.9417, 3.93228, 3.95078, 3.9292, 3.94239, 3.93759, 3.93314, 3.91464, 
  3.90043, 3.89906, 3.88878, 3.89221, 3.8833, 3.87988, 3.8708, 3.89923, 3.89786, 3.97287, 
  3.97698, 3.96585, 4.01774, 4.04428, 4.06192, 4.06209, 4.06945, 4.07082, 4.10575, 4.10746, 
  4.0965, 4.09941, 4.09239, 4.1227, 4.11825, 4.12904, 4.14051, 4.14787, 4.16174, 4.12493, 
  4.14581, 4.13246, 4.14273, 4.11431, 4.13897, 4.13263, 4.11106, 4.11345, 4.10592, 4.11037, 
  4.11808, 4.11996, 4.10438, 4.10952, 4.10061, 4.11482, 4.10815, 4.11448, 4.10986, 4.11654, 
  4.11568, 4.1578, 4.15489, 4.16807, 4.178, 4.18125, 4.1917, 4.19244, 4.20186, 4.2099, 
  4.22463, 4.24209, 4.24945, 4.26503, 4.27872, 4.27153, 4.27906, 4.28026, 4.28694, 4.29207, 
  4.28283, 4.27495, 4.26879, 4.25835, 4.24962, 4.24928, 4.24157, 4.2349, 4.23079, 4.22017, 
  4.21709, 4.19552, 4.20049, 4.19398, 4.18576, 4.18251, 4.16813, 4.15238, 4.15409, 4.14758, 
  4.13851, 4.12498, 4.11026, 4.09776, 4.08029, 4.07362, 4.06133, 4.05585, 4.05225, 4.05379, 
  4.04626, 4.04557, 4.02246, 4.03187, 4.02341, 4.01081, 4.00636, 4.01578, 4.01201, 4.00585, 
  3.99026, 3.99557, 3.97862, 3.9704, 3.97108, 3.96252, 3.96286, 3.94848, 3.94129, 3.9257, 
  3.90344, 3.8613, 3.8524, 3.84983, 3.84144, 3.8375, 3.82893, 3.82003, 3.82328, 3.83116, 
  3.82671, 3.82277, 3.81146, 3.78406, 3.7731, 3.77943, 3.76761, 3.76642, 3.7558, 3.74466, 
  3.73061, 3.73044, 3.708, 3.71434, 3.68522, 3.6734, 3.67083, 3.65387, 3.6513, 3.66226, 
  3.65044, 3.63982, 3.64119, 3.6256, 3.63246, 3.62937, 3.61824, 3.61807, 3.61036, 3.60744, 
  3.61036, 3.60506, 3.58193, 3.57166, 3.53842, 3.52677, 3.52368, 3.50723, 3.50329, 3.49353, 
  3.48633, 3.46508, 3.44726, 3.41676, 3.41505, 3.39329, 3.38043, 3.37444, 3.37118, 3.36261, 
  3.36381, 3.3489, 3.33485, 3.32148, 3.31463, 3.29355, 3.28001, 3.26596, 3.2495, 3.24471, 
  3.22791, 3.20631, 3.20443, 3.16741, 3.15901, 3.16364, 3.15489, 3.15455, 3.14118, 3.1405, 
  3.10142, 3.09147, 3.09045, 3.08188, 3.08102, 3.06679, 3.06405, 3.05239, 3.04845, 3.04245, 
  3.03388, 3.00474, 2.99771, 2.98279, 2.99274, 2.97971, 2.98879, 2.9787, 2.98041, 2.97424, 
  2.96001, 2.94081, 2.93481, 2.92195, 2.9019, 2.90292, 2.89058, 2.88012, 2.87104, 2.86898, 
  2.83555, 2.83092, 2.82492, 2.81463, 2.81103, 2.79543, 2.78874, 2.77382, 2.77348, 2.76165, 
  2.75908, 2.74519, 2.73867, 2.72941, 2.71638, 2.71655, 2.71004, 2.70884, 2.70489, 2.70112, 
  2.691, 2.68877, 2.67077, 2.65808, 2.63733, 2.62773, 2.6219, 2.61864, 2.60441, 2.59978, 
  2.59395, 2.59137, 2.57697, 2.5804, 2.56754, 2.52981, 2.50323, 2.49654, 2.49654, 2.48522, 
  2.48453, 2.47407, 2.47459, 2.4631, 2.48196, 2.46447, 2.4751, 2.45932, 2.46293, 2.45692, 
  2.4715, 2.47339, 2.46584, 2.4691, 2.48042, 2.49551, 2.48659, 2.48796, 2.47476, 2.48608, 
  2.47922, 2.4643, 2.45555, 2.45538, 2.44183, 2.44715, 2.44149, 2.44629, 2.45229, 2.45418, 
  2.44286, 2.45932, 2.45829, 2.44303, 2.4456, 2.4396, 2.44646, 2.44029, 2.44938, 2.442, 
  2.44852, 2.448, 2.45812, 2.44698, 2.44698, 2.45161, 2.44698, 2.4408, 2.43394, 2.42228, 
  2.42828, 2.42194, 2.43103, 2.42554, 2.43703, 2.42725, 2.43343, 2.4017, 2.40376, 2.41216, 
  2.41782, 2.43154, 2.45418, 2.43051, 2.42348, 2.38935, 2.38523, 2.35659, 2.34098, 2.32726, 
  2.31302, 2.30239, 2.29107, 2.27443, 2.25196, 2.24218, 2.23549, 2.21199)
LONGITUDE_VALUEs <- c(
  -58.90404, -58.88585, -58.8989, -58.9188, -58.92395, -58.91469, -58.91692, -58.97012, -58.97872, -58.99107, 
  -59.00892, -59.0242, -59.05166, -59.06024, -59.07397, -59.09716, -59.11861, -59.13148, -59.14967, -59.16102, 
  -59.17149, -59.19157, -59.21388, -59.28032, -59.27466, -59.28856, -59.28393, -59.30435, -59.31499, -59.32907, 
  -59.32169, -59.33233, -59.32907, -59.35619, -59.35894, -59.38279, -59.37766, -59.39654, -59.39654, -59.41473, 
  -59.43276, -59.42761, -59.44615, -59.464, -59.48425, -59.49387, -59.4925, -59.50228, -59.51017, -59.51343, 
  -59.5266, -59.52589, -59.53379, -59.53293, -59.53894, -59.55612, -59.56608, -59.62, -59.63525, -59.65311, 
  -59.66204, -59.66768, -59.69003, -59.67885, -59.65447, -59.65756, -59.64846, -59.66615, -59.67559, -59.70874, 
  -59.72815, -59.75196, -59.75367, -59.74784, -59.76003, -59.7554, -59.75798, -59.74716, -59.74836, -59.73823, 
  -59.74166, -59.73634, -59.74082, -59.73446, -59.73446, -59.73051, -59.73412, -59.72176, -59.72176, -59.73017, 
  -59.74271, -59.73446, -59.72227, -59.72245, -59.72949, -59.72571, -59.74065, -59.7379, -59.7422, -59.73738, 
  -59.74064, -59.72554, -59.73155, -59.71885, -59.72932, -59.72228, -59.74392, -59.75027, -59.77057, -59.78565, 
  -59.80536, -59.80502, -59.82751, -59.82803, -59.83198, -59.83782, -59.84434, -59.84349, -59.85602, -59.85499, 
  -59.8694, -59.86923, -59.87369, -59.88194, -59.89842, -59.9094, -59.89669, -59.89858, -59.89171, -59.90116, 
  -59.89309, -59.90098, -59.89686, -59.92073, -59.91987, -59.9391, -59.92828, -59.97361, -59.9669, -59.95762, 
  -59.97841, -59.97118, -59.99196, -59.99136, -59.98234, -59.99024, -59.97702, -59.98647, -59.98149, -59.959, 
  -59.96587, -59.94715, -59.96295, -59.94989, -59.95694, -59.93933, -59.94046, -59.92914, -59.9233, -59.92227, 
  -59.91746, -59.91592, -59.90699, -59.90853, -59.91918, -59.91729, -59.90737, -59.90819, -59.92176, -59.92107, 
  -59.90012, -59.89995, -59.91472, -59.90424, -59.88743, -59.87283, -59.88915, -59.87903, -59.88245, -59.86939, 
  -59.8584, -59.8512, -59.85292, -59.84021, -59.84158, -59.82647, -59.83437, -59.82699, -59.80758, -59.80277, 
  -59.81153, -59.82252, -59.81445, -59.81102, -59.81531, -59.83352, -59.84227, -59.84004, -59.82734, -59.82339, 
  -59.80983, -59.81343, -59.82545, -59.82837, -59.80107, -59.80518, -59.82305, -59.83352, -59.84623, -59.84261, 
  -59.87112, -59.87249, -59.85858, -59.85978, -59.86717, -59.867, -59.85875, -59.85721, -59.85052, -59.85103, 
  -59.83558, -59.82115, -59.81634, -59.81668, -59.80861, -59.7959, -59.78886, -59.77414, -59.76349, -59.76887, 
  -59.75885, -59.75507, -59.74015, -59.71971, -59.71885, -59.70992, -59.70459, -59.69154, -59.68744, -59.68092, 
  -59.66855, -59.66735, -59.66134, -59.67267, -59.66323, -59.67026, -59.67542, -59.67232, -59.6804, -59.66889, 
  -59.66511, -59.63835, -59.63045, -59.63045, -59.60795, -59.59868, -59.59284, -59.59852, -59.59028, -59.58427, 
  -59.58203, -59.57723, -59.57791, -59.58633, -59.59337, -59.56658, -59.56401, -59.54529, -59.53928, -59.52571, 
  -59.52453, -59.51543, -59.52694, -59.5436, -59.5448, -59.55665, -59.56665, -59.57215, -59.58485, -59.58725, 
  -59.57146, -59.58296, -59.58606, -59.5981, -59.59072, -59.59484, -59.60617, -59.60171, -59.6199, -59.61732, 
  -59.63227, -59.64342, -59.65475, -59.61956, -59.64428, -59.68598, -59.73131, -59.72565, -59.73887, -59.73424, 
  -59.74041, -59.7101, -59.71895, -59.72942, -59.7344, -59.7277, -59.73251, -59.71878, -59.71432, -59.70316, 
  -59.70488, -59.67467, -59.68377, -59.66815, -59.68428, -59.69509, -59.72066, -59.7198, -59.72926, -59.73595, 
  -59.75363, -59.76839, -59.78177, -59.778, -59.78383, -59.78984, -59.7962, -59.79414, -59.80513, -59.81039, 
  -59.83134, -59.83117, -59.86277, -59.87202, -59.86223, -59.87425, -59.87236, -59.87546, -59.87872, -59.87784, 
  -59.89864, -59.90674, -59.91805, -59.91032, -59.93162, -59.9247, -59.97227, -59.97416, -60.00623, -60.01808, 
  -60.02495, -60.03646, -60.07218, -60.06497, -60.07819, -60.08231, -60.08867, -60.08197, -60.0907, -60.09465, 
  -60.10513, -60.10547, -60.0974, -60.10049, -60.12162, -60.12419, -60.14257, -60.15274, -60.16283, -60.15371, 
  -60.16133, -60.15405, -60.13843, -60.13825, -60.12366, -60.13156, -60.12074, -60.11267, -60.10597, -60.09876, 
  -60.06956, -60.07578, -60.06839, -60.07166, -60.07664, -60.07629, -60.05193, -60.02445, -60.03943, -60.03355, 
  -60.02875, -60.0217, -60.03647, -60.03321, -60.0217, -60.02823, -60.02462, -60.01312, -59.98411, -59.97707, 
  -59.97741, -59.96968, -59.97381, -59.99234, -60.00041, -60.02359, -60.03679, -60.04592, -60.06531, -60.08969, 
  -60.10066, -60.11937, -60.12315, -60.13414, -60.13432, -60.16042, -60.18361, -60.19408, -60.19009, -60.21035, 
  -60.24882, -60.25982, -60.28022, -60.30289, -60.31474, -60.35471, -60.3688, -60.3767, -60.40727, -60.41517, 
  -60.41909, -60.44983, -60.45241, -60.49256, -60.50956, -60.53738, -60.54322, -60.57345, -60.59097, -60.59005, 
  -60.60792, -60.61444, -60.62818, -60.65137, -60.66476, -60.67764, -60.70117, -60.70147, -60.72156, -60.73341, 
  -60.73754,
  -60.7159, -60.68226, -60.67917, -60.65942, -60.6584, -60.64277, -60.64708, -60.60964, -60.61702, -60.59624, 
  -60.5947, -60.58303, -60.59006, -60.61273, -60.62046, -60.62544, -60.62595, -60.65238, -60.64946, -60.6565, 
  -60.65908, -60.67041, -60.6929, -60.70664, -60.72687, -60.72121, -60.73666, -60.75178, -60.76191, -60.77513, 
  -60.78767, -60.79248, -60.80791, -60.8165, -60.83174, -60.85081, -60.90181, -60.91366, -60.91023, -60.91864, 
  -60.93118, -60.93359, -60.94766, -60.95092, -60.93838, -60.93289, -60.94474, -60.93529, -60.93596, -60.95589, 
  -60.95743, -60.98538, -60.99603, -61.00255, -61.00066, -61.01028, -61.01887, -61.06335, -61.07331, -61.08739, 
  -61.08837, -61.09284, -61.09748, -61.12255, -61.14763, -61.15158, -61.16394, -61.1648, -61.16926, -61.18898, 
  -61.20306, -61.21611, -61.22264, -61.24548, -61.25338, -61.25578, -61.26849, -61.27583, -61.28373, -61.32409, 
  -61.32942, -61.32151, -61.32203, -61.31138, -61.30417, -61.29646, -61.29389, -61.2774, -61.28839, -61.30522, 
  -61.32598, -61.31911, -61.3368, -61.34178, -61.373, -61.39447, -61.40924, -61.4441, -61.4362, -61.45762, 
  -61.47566, -61.51361, -61.51292, -61.52323, -61.51636, -61.52518, -61.52157, -61.50595, -61.51711, -61.52724, 
  -61.51951, -61.55332, -61.55384, -61.58767, -61.61101, -61.6371, -61.6548, -61.66955, -61.67934, -61.68586, 
  -61.6929, -61.70268, -61.72465, -61.72859, -61.72156, -61.72241, -61.73597, -61.73546, -61.77477, -61.76465, 
  -61.78289, -61.79672, -61.80925, -61.82026, -61.81579, -61.83931, -61.85235, -61.87483, -61.86952, -61.88771, 
  -61.89372, -61.92221, -61.92581, -61.93319, -61.9392, -61.95036, -61.96632, -61.98091, -61.98228, -61.99601, 
  -61.99876, -62.02573, -62.03466, -62.0489, -62.0707, -62.07945, -62.07035, -62.07912, -62.09372, -62.10145, 
  -62.11776, -62.11106, -62.13768, -62.14421, -62.15846, -62.19123, -62.19484, -62.21645, -62.23396, -62.24358, 
  -62.25028, -62.25715, -62.26762, -62.27793, -62.2906, -62.30778, -62.31928, -62.32238, -62.3514, -62.35584, 
  -62.37319, -62.38092, -62.43755, -62.45095, -62.46331, -62.47155, -62.45386, -62.46382, -62.46245, -62.47344, 
  -62.47619, -62.50504, -62.50964, -62.51892, -62.53145, -62.52115, -62.55292, -62.54622, -62.55704, -62.53935, 
  -62.5433, -62.53403, -62.53334, -62.54622, -62.56167, -62.55583, -62.57936, -62.58039, -62.60819, -62.62742, 
  -62.64941, -62.6604, -62.67912, -62.69435, -62.73385, -62.75343, -62.7493, -62.76802, -62.7639, -62.74243, 
  -62.7632, -62.78329, -62.78878, -62.77607, -62.77814, -62.75736, -62.75496, -62.77557, -62.73025, -62.73025, 
  -62.74245, -62.73403, -62.75052, -62.74004, -62.73145, -62.73763, -62.74553, -62.74587, -62.76786, -62.7706, 
  -62.78555, -62.79651, -62.83515, -62.90105, -62.92012, -62.92939, -62.94381, -62.94772, -62.99169, -63.01659, 
  -63.01607, -63.02516, -63.02877, -63.05436, -63.05915, -63.0734, -63.07907, -63.0686, -63.06361, -63.06963, 
  -63.06258, -63.06258, -63.06928, -63.07803, -63.09108, -63.08971, -63.12128, -63.1479, -63.1759, -63.214, 
  -63.21812, -63.22894, -63.22808, -63.23289, -63.22619, -63.23563, -63.22344, -63.20849, -63.2504, -63.25126, 
  -63.26431, -63.28418, -63.28556, -63.31046, -63.31819, -63.32471, -63.3479, -63.39181, -63.41328, -63.42959, 
  -63.43749, -63.44934, -63.45398, -63.44196, -63.44523, -63.42102, -63.4126, -63.4385, -63.43387, -63.45224, 
  -63.46134, -63.46392, -63.47216, -63.48281, -63.48419, -63.49329, -63.49311, -63.50135, -63.5053, -63.4962, 
  -63.49689, -63.50084, -63.50238, -63.52128, -63.51973, -63.55438, -63.55524, -63.57207, -63.58186, -63.592, 
  -63.59474, -63.58478, -63.58306, -63.59525, -63.58924, -63.63972, -63.64504, -63.656, -63.67832, -63.69052, 
  -63.68588, -63.70099, -63.69532, -63.68089, -63.67694, -63.66475, -63.66801, -63.67677, -63.68089, -63.69738, 
  -63.74306, -63.73843, -63.75835, -63.79625, -63.84761, -63.89324, -63.91299, -63.92141, -63.91849, -63.93772, 
  -63.93841, -63.94614, -63.94939, -63.95918, -63.96038, -63.95488, -63.96542, -63.97623, -63.99238, -64.01984, 
  -64.037, -64.04593, -64.07476, -64.0988, -64.09914, -64.10635, -64.10583, -64.12233, -64.13366, -64.13863, 
  -64.14721, -64.16026, -64.16884, -64.22239, -64.23268, -64.24075, -64.26702, -64.26273, -64.29399, -64.31493, 
  -64.33947, -64.4114, -64.4205, -64.43938, -64.4713, -64.48865, -64.48693, -64.49362, -64.50135, -64.51662, 
  -64.51904, -64.53757, -64.54427, -64.54856, -64.56555, -64.58477, -64.59198, -64.60382, -64.61034, -64.61875, 
  -64.63284, -64.63953, -64.64794, -64.66717, -64.67009, -64.67884, -64.67935, -64.68814, -64.68728, -64.70857, 
  -64.70857, -64.71458, -64.72676, -64.72676, -64.73481, -64.74631, -64.75816, -64.77671, -64.77671, -64.78837, 
  -64.79748, -64.79731, -64.81259, -64.80606, -64.80881, -64.81619, -64.81482, -64.82753, -64.82065, -64.82735, 
  -64.82391, -64.82187, -64.80332, -64.8083, -64.80452, -64.79765, -64.80246, -64.79663, -64.78529, -64.78529, 
  -64.77585, -64.78049, -64.7671, -64.77259, -64.76744, -64.77243, -64.76058, -64.77381, -64.77192, -64.76728, 
  -64.75972, -64.74495, -64.73469, -64.71786, -64.70824, -64.70551, -64.70018, -64.68816, -64.67906, -64.68164, 
  -64.67065, -64.64729, -64.64095, -64.62722, -64.61245, -64.60248, -64.59665, -64.58548, -64.58911, -64.55047, 
  -64.5673, -64.5218, -64.52679, -64.51562, -64.51373, -64.50414, -64.50655, -64.49057, -64.48027, -64.4758, 
  -64.47185, -64.47254, -64.4643, -64.45814, -64.43976, -64.41417, -64.40902, -64.39288, -64.38551, -64.36405, 
  -64.35426, -64.34739, -64.33437, -64.31874, -64.30328, -64.30225, -64.31083, -64.29437, -64.26225, -64.24799, 
  -64.2358, -64.2425, -64.2516, -64.24441, -64.23616, -64.22277, -64.22689, -64.21847, -64.22208, -64.21401, 
  -64.20903, -64.1917, -64.2008, -64.1704, -64.17332, -64.18912, -64.1771, -64.17676, -64.16267, -64.16167, 
  -64.13161, -64.11787, -64.13006, -64.11821, -64.13607, -64.13453, -64.14895, -64.13539, -64.14862, -64.14604, 
  -64.13248, -64.13694, -64.11479, -64.11908, -64.11547, -64.12302, -64.11684, -64.14398, -64.15015, -64.15908, 
  -64.15342, -64.15822, -64.16939, -64.18089, -64.19186, -64.20062, -64.20817, -64.22054, -64.22346, -64.2305, 
  -64.21556, -64.2197, -64.21317, -64.20888, -64.19995, -64.18621, -64.17418, -64.18055, -64.15839, -64.15891, 
  -64.14311, -64.15049, -64.15891, -64.15892, -64.139, -64.13711, -64.12182, -64.11633, -64.1086, -64.10396, 
  -64.11032, -64.09349, -64.09558, -64.0693, -64.07926, -64.07085, -64.06657, -64.08168, -64.07722, -64.06193, 
  -64.04218, -64.04408, -64.02484, -64.02107, -64.01471, -64.01951, -64.01522, -64.01712, -64.00028, -63.99771, 
  -64.00715, -64.00269, -64.00371, -63.98276, -63.98259, -63.99375, -63.99719, -64.00732, -64.00835, -64.00165, 
  -63.99841, -63.98604, -63.99137, -63.98673, -63.99238, -64.00887, -64.00664, -64.01213, -64.0111, -64.01849, 
  -64.01849, -64.02587, -64.02724, -64.04184, -64.04819, -64.04527, -64.06245, -64.05712, -64.0439, -64.03943, 
  -64.03308, -64.03291, -64.02741, -64.02145, -64.00908, -63.97679, -63.96099, -63.95636, -63.94416, -63.93283, 
  -63.92618, -63.90694, -63.89458, -63.88221, -63.87431, -63.84546, -63.83773, -63.8185, -63.81317, -63.80338, 
  -63.79708, -63.79863, -63.78746, -63.7763, -63.77046, -63.75827, -63.74882, -63.73531, -63.73669, -63.73017, 
  -63.72004, -63.70288, -63.69204, -63.68552, -63.6675, -63.65429, -63.64399, -63.63541, -63.62082, -63.61704, 
  -63.61258, -63.6045, -63.60073, -63.57395, -63.56263, -63.56125, -63.55508, -63.55713, -63.55387, -63.55643, 
  -63.54476, -63.52176, -63.50511, -63.49876, -63.49207, -63.48658, -63.47988, -63.46564, -63.45465, -63.45517, 
  -63.44144, -63.44245, -63.41516, -63.40452, -63.36882, -63.36556, -63.35354, -63.37603, -63.37638, -63.36059, 
  -63.36711, -63.36059, -63.36728, -63.36059, -63.36882, -63.36745, -63.38633, -63.37174)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_3, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_3 <- st_set_geometry(Geo_3, st_union(Geo_0))
Geo_3 <- st_union(Geo_3, Geo)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}

##### TRINIDAD AND TOBAGO #####
LATITUDE_VALUEs <- c(
  11.16946, 11.15834, 11.15194, 11.14638, 11.14403, 11.14857, 11.1479, 11.14285, 11.13476, 11.13476, 
  11.14588, 11.14672, 11.1415, 11.14234, 11.14773, 11.16036, 11.16609, 11.16508, 11.1831, 11.17182, 
  11.17114, 11.16811, 11.17653, 11.17737, 11.17451, 11.17451, 11.18057, 11.18091, 11.18866, 11.19455, 
  11.19068, 11.19354, 11.1932, 11.18647, 11.19068, 11.18798, 11.19825, 11.21122, 11.21088, 11.21745, 
  11.22435, 11.222, 11.2326, 11.24001, 11.24119, 11.24826, 11.24961, 11.24641, 11.24641, 11.2422, 
  11.24372, 11.25584, 11.26308, 11.26813, 11.25769, 11.255, 11.26089, 11.26106, 11.26796, 11.27099, 
  11.28126, 11.28513, 11.29237, 11.29405, 11.30281, 11.30786, 11.31274, 11.31223, 11.31846, 11.32082, 
  11.32435, 11.32991, 11.33041, 11.33731, 11.33731, 11.34657, 11.3395, 11.34102, 11.33647, 11.33799, 
  11.33664, 11.33193, 11.3321, 11.322, 11.31981, 11.32149, 11.31745, 11.31476, 11.32755, 11.32806, 
  11.32065, 11.32368, 11.31644, 11.3156, 11.30803, 11.30298, 11.30281, 11.30516, 11.30584, 11.2991, 
  11.2986, 11.29557, 11.28968, 11.29136, 11.2885, 11.29203, 11.28783, 11.28867, 11.28631, 11.27823, 
  11.26493, 11.26072, 11.26072, 11.25399, 11.24826, 11.23109, 11.22301, 11.21745, 11.21038, 11.20768, 
  11.20448, 11.19825, 11.18798, 11.18411, 11.17889, 11.17232, 11.17333, 11.17013, 11.17148, 11.16693, 
  11.16693, 11.17299)
LONGITUDE_VALUEs <- c(
  -60.84191, -60.83797, -60.84552, -60.84535, -60.84054, -60.82835, -60.81428, -60.79969, -60.79987, -60.78373, 
  -60.78305, -60.77824, -60.77876, -60.7712, -60.77464, -60.76949, -60.76245, -60.75559, -60.73945, -60.72519, 
  -60.71901, -60.71644, -60.71146, -60.70545, -60.70511, -60.70151, -60.70168, -60.6991, -60.69756, -60.69018, 
  -60.6804, -60.67113, -60.66341, -60.66015, -60.65378, -60.65051, -60.63473, -60.62631, -60.62133, -60.61824, 
  -60.60022, -60.59507, -60.59748, -60.59283, -60.58751, -60.58202, -60.5731, -60.56949, -60.56297, -60.56022, 
  -60.55319, -60.55244, -60.55571, -60.54746, -60.54334, -60.53493, -60.53493, -60.53132, -60.53166, -60.52565, 
  -60.52808, -60.52378, -60.52344, -60.53426, -60.53391, -60.52636, -60.52756, -60.52138, -60.52242, -60.51692, 
  -60.52139, -60.51915, -60.52259, -60.52018, -60.52826, -60.53134, -60.53632, -60.5401, -60.55401, -60.55641, 
  -60.55745, -60.55504, -60.54955, -60.54851, -60.55315, -60.55659, -60.55951, -60.56981, -60.57805, -60.59056, 
  -60.60001, -60.61048, -60.61649, -60.62302, -60.63195, -60.62884, -60.63709, -60.63846, -60.64602, -60.65117, 
  -60.66474, -60.67126, -60.66972, -60.67724, -60.67913, -60.68308, -60.68874, -60.69235, -60.69819, -60.69578, 
  -60.71587, -60.71725, -60.72309, -60.72721, -60.74559, -60.7612, -60.78129, -60.77665, -60.78043, -60.78575, 
  -60.78438, -60.79674, -60.79554, -60.81116, -60.80618, -60.8127, -60.82386, -60.82507, -60.81854, -60.81579, 
  -60.83486, -60.83778)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  11.35674, 11.35338, 11.35439, 11.35388, 11.35523, 11.35641, 11.35573, 11.35792, 11.35876, 11.35523, 
  11.35708)
LONGITUDE_VALUEs <- c(
  -60.52872, -60.527, -60.52511, -60.5234, -60.52031, -60.52031, -60.51825, -60.51705, -60.51893, -60.52374, 
  -60.527)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  11.30791, 11.30404, 11.30034, 11.29798, 11.29563, 11.29563, 11.29478, 11.2968, 11.29361, 11.29394, 
  11.29546, 11.29613, 11.29765, 11.29647, 11.29899, 11.29798, 11.30034, 11.30202, 11.30387, 11.30169, 
  11.30505)
LONGITUDE_VALUEs <- c(
  -60.50632, -60.50804, -60.50461, -60.5077, -60.5077, -60.50529, -60.50289, -60.50169, -60.49723, -60.49448, 
  -60.49448, -60.49259, -60.49311, -60.49637, -60.49637, -60.49912, -60.49843, -60.49603, -60.49963, -60.50323, 
  -60.50323)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(10.77152, 10.76916, 10.76831, 10.77219)
LONGITUDE_VALUEs <- c(-61.51362, -61.51344, -61.51018, -61.5095)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  10.67125, 10.67193, 10.67615, 10.67294, 10.67935, 10.67969, 10.68677, 10.68644, 10.68846, 10.68762, 
  10.69099, 10.68492, 10.68087, 10.6834, 10.68458, 10.68863, 10.70061, 10.69892, 10.68964, 10.68711, 
  10.68458, 10.68171, 10.67817)
LONGITUDE_VALUEs <- c(
  -61.7653, -61.75964, -61.75638, -61.74196, -61.74883, -61.75569, -61.75518, -61.7526, -61.75174, -61.74865, 
  -61.74711, -61.74059, -61.73063, -61.73115, -61.73424, -61.73441, -61.75089, -61.75827, -61.75706, -61.76084, 
  -61.75603, -61.75809, -61.75827)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  10.70583, 10.70381, 10.70499, 10.70381, 10.70229, 10.69976, 10.7001, 10.69808, 10.69521, 10.69318, 
  10.69116, 10.68593, 10.68576, 10.69116, 10.69015, 10.69302, 10.69369, 10.69841, 10.70145, 10.7033, 
  10.70786)
LONGITUDE_VALUEs <- c(
  -61.73011, -61.7296, -61.726, -61.72205, -61.72239, -61.72085, -61.71896, -61.71707, -61.7169, -61.71879, 
  -61.71793, -61.72033, -61.7181, -61.71621, -61.71261, -61.71106, -61.71312, -61.71175, -61.71862, -61.71896, 
  -61.72685)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  10.70246, 10.70449, 10.70061, 10.70145, 10.6947, 10.68998, 10.68205, 10.68154, 10.68576, 10.68138, 
  10.68391, 10.6802, 10.68154, 10.67969, 10.68087, 10.68374, 10.68914, 10.68576, 10.68795, 10.68441, 
  10.68762, 10.68627, 10.69993, 10.69639, 10.70077, 10.70583)
LONGITUDE_VALUEs <- c(
  -61.68067, -61.68702, -61.68977, -61.69389, -61.69715, -61.69578, -61.70401, -61.70178, -61.69749, -61.69663, 
  -61.69337, -61.69166, -61.68805, -61.68685, -61.68273, -61.68805, -61.68857, -61.68411, -61.68222, -61.67947, 
  -61.67827, -61.67587, -61.67964, -61.67467, -61.67518, -61.67879)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(10.66668, 10.66449, 10.66364, 10.66078, 10.6655, 10.66516, 10.67073, 10.66887, 10.67039)
LONGITUDE_VALUEs <- c(-61.66593, -61.66593, -61.65666, -61.65065, -61.64876, -61.64602, -61.64636, -61.65443, -61.65992)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(10.65993, 10.6574, 10.65791, 10.66044)
LONGITUDE_VALUEs <- c(-61.63074, -61.63142, -61.62902, -61.62902)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(10.66145, 10.66044, 10.66213, 10.66364, 10.66314)
LONGITUDE_VALUEs <- c(-61.62576, -61.62507, -61.62164, -61.62284, -61.62473)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  10.64188, 10.6348, 10.63834, 10.63766, 10.62349, 10.61911, 10.5425, 10.52528, 10.51482, 10.50807, 
  10.49794, 10.49169, 10.48477, 10.48224, 10.42535, 10.41809, 10.40627, 10.38652, 10.38432, 10.37909, 
  10.36406, 10.3313, 10.32286, 10.31948, 10.31222, 10.30225, 10.27979, 10.27101, 10.25344, 10.23046, 
  10.22945, 10.23587, 10.24009, 10.2504, 10.24736, 10.24922, 10.2428, 10.23705, 10.21796, 10.19685, 
  10.18671, 10.18705, 10.18333, 10.16711, 10.15308, 10.14818, 10.14379, 10.14193, 10.1372, 10.13416, 
  10.11844, 10.11456, 10.10509, 10.09377, 10.09309, 10.08836, 10.08802, 10.0789, 10.05895, 10.05033, 
  10.04323, 10.0434, 10.06521, 10.06521, 10.07061, 10.07197, 10.08549, 10.08667, 10.07518, 10.08481, 
  10.08329, 10.08735, 10.08447, 10.08735, 10.08211, 10.08109, 10.05946, 10.06047, 10.05608, 10.06876, 
  10.06521, 10.07264, 10.07399, 10.07078, 10.07501, 10.07399, 10.0696, 10.07315, 10.06707, 10.07416, 
  10.0723, 10.07704, 10.07011, 10.07281, 10.07129, 10.07416, 10.07399, 10.07957, 10.0794, 10.08616, 
  10.08616, 10.08059, 10.08414, 10.07197, 10.08008, 10.07484, 10.08954, 10.09698, 10.09833, 10.10797, 
  10.11456, 10.12858, 10.15224, 10.15494, 10.15106, 10.14227, 10.13805, 10.13821, 10.13669, 10.15765, 
  10.21256, 10.26864, 10.30141, 10.3313, 10.32725, 10.34126, 10.33839, 10.33991, 10.33502, 10.33721, 
  10.3622, 10.43683, 10.47819, 10.50672, 10.51549, 10.51532, 10.52444, 10.52241, 10.56577, 10.56948, 
  10.6093, 10.66042, 10.68825, 10.68977, 10.70411, 10.7036, 10.70782, 10.70242, 10.70479, 10.71609, 
  10.72216, 10.72081, 10.72924, 10.73143, 10.73801, 10.74307, 10.74931, 10.76567, 10.77275, 10.77613, 
  10.78371, 10.78557, 10.79113, 10.79349, 10.80462, 10.80564, 10.80985, 10.81019, 10.81558, 10.8171, 
  10.82495, 10.82873, 10.83042, 10.8343, 10.83598, 10.83565, 10.84391, 10.84037, 10.84003, 10.83346, 
  10.83312, 10.83615, 10.8343, 10.837, 10.83413, 10.83835, 10.83733, 10.8434, 10.84104, 10.84391, 
  10.84003, 10.84037, 10.82873, 10.83362, 10.82029, 10.82214, 10.81169, 10.80983, 10.79769, 10.79938, 
  10.79533, 10.79668, 10.79398, 10.79533, 10.7928, 10.79803, 10.79617, 10.80646, 10.81287, 10.81186, 
  10.80208, 10.79196, 10.78707, 10.78117, 10.77779, 10.77931, 10.78504, 10.78589, 10.77881, 10.77644, 
  10.77223, 10.76666, 10.76363, 10.7611, 10.75739, 10.76059, 10.76481, 10.76565, 10.77105, 10.77375, 
  10.77611, 10.77273, 10.7643, 10.76346, 10.77004, 10.77155, 10.77459, 10.77594, 10.77206, 10.76616, 
  10.75402, 10.75368, 10.76177, 10.75435, 10.76363, 10.75064, 10.75452, 10.7471, 10.7503, 10.74828, 
  10.75165, 10.74373, 10.74708, 10.7454, 10.74809, 10.74034, 10.73916, 10.73612, 10.73696, 10.73106, 
  10.73123, 10.72785, 10.72735, 10.71875, 10.71858, 10.71588, 10.71757, 10.71386, 10.71386, 10.71031, 
  10.70357, 10.70154, 10.70121, 10.70255, 10.70508, 10.70542, 10.69969, 10.69193, 10.68906, 10.68906, 
  10.68518, 10.68231, 10.68164, 10.67826, 10.68087, 10.68079, 10.67877, 10.66966, 10.66595, 10.67152, 
  10.67185, 10.6754, 10.67455, 10.67692, 10.67911, 10.6781, 10.68046, 10.68366, 10.68164, 10.68872, 
  10.6894, 10.69159, 10.69159, 10.68333, 10.68484, 10.68063, 10.67725, 10.67945, 10.6727, 10.67742, 
  10.66983, 10.66308, 10.65752, 10.65414, 10.65785, 10.64604, 10.64199, 10.63963, 10.64149)
LONGITUDE_VALUEs <- c(
  -61.49684, -61.49684, -61.50131, -61.50337, -61.50268, -61.48946, -61.46286, -61.46526, -61.47556, -61.47281, 
  -61.47556, -61.47075, -61.47109, -61.47418, -61.49426, -61.50268, -61.49101, -61.49049, -61.48569, -61.49409, 
  -61.46818, -61.45942, -61.46749, -61.46166, -61.46869, -61.45479, -61.47178, -61.47127, -61.48758, -61.53375, 
  -61.56054, -61.58182, -61.58525, -61.61923, -61.6261, -61.62884, -61.63779, -61.63882, -61.6311, -61.65461, 
  -61.68602, -61.69734, -61.69923, -61.69597, -61.73563, -61.7878, -61.79298, -61.80036, -61.8007, -61.8261, 
  -61.8249, -61.83067, -61.83462, -61.85967, -61.882, -61.88921, -61.90844, -61.90862, -61.92991, -61.9311, 
  -61.92132, -61.89882, -61.86447, -61.85729, -61.84973, -61.84372, -61.82002, -61.79975, -61.77983, -61.75567, 
  -61.74692, -61.72854, -61.71669, -61.69093, -61.68681, -61.66894, -61.64871, -61.63463, -61.6281, -61.60268, 
  -61.59873, -61.58264, -61.56323, -61.55773, -61.53798, -61.52476, -61.52184, -61.50587, -61.49625, -61.452, 
  -61.43551, -61.40958, -61.38365, -61.377, -61.35897, -61.34437, -61.33303, -61.32359, -61.31071, -61.29302, 
  -61.26588, -61.26382, -61.24974, -61.21252, -61.1902, -61.16924, -61.12585, -61.11984, -61.10764, -61.09545, 
  -61.0611, -61.0558, -61.02437, -61.00823, -61.00033, -60.99844, -61.0029, -60.99724, -60.99054, -60.99706, 
  -61.00462, -60.99828, -60.99793, -60.98455, -60.97253, -60.96738, -60.97373, -60.97906, -60.98301, -60.99211, 
  -61.00807, -61.03347, -61.04188, -61.04394, -61.0405, -61.02865, -61.0235, -61.01165, -61.02214, -61.02025, 
  -61.02609, -61.03708, -61.03776, -61.03295, -61.02677, -61.02231, -61.01715, -61.00908, -60.99689, -60.99569, 
  -60.9895, -60.98624, -60.9842, -60.97991, -60.98128, -60.96995, -60.96943, -60.94796, -60.94833, -60.94455, 
  -60.94593, -60.94438, -60.94472, -60.94129, -60.93734, -60.92619, -60.9243, -60.92069, -60.91692, -60.9109, 
  -60.91647, -60.914, -60.91503, -60.90884, -60.91159, -60.92344, -60.9389, -60.94044, -60.94474, -60.9468, 
  -60.95913, -60.96549, -60.9715, -60.9806, -60.99039, -60.99881, -61.00224, -61.00653, -61.00997, -61.02062, 
  -61.03504, -61.04363, -61.04844, -61.06129, -61.10851, -61.142, -61.15637, -61.17286, -61.18917, -61.19707, 
  -61.20703, -61.2182, -61.22417, -61.23379, -61.25508, -61.2872, -61.30231, -61.34624, -61.35294, -61.36582, 
  -61.36427, -61.37405, -61.39295, -61.39192, -61.40136, -61.40806, -61.4096, -61.41424, -61.4206, -61.41922, 
  -61.42747, -61.42747, -61.4242, -61.42472, -61.43227, -61.44395, -61.44395, -61.44103, -61.4443, -61.44052, 
  -61.44275, -61.45095, -61.45233, -61.46023, -61.46435, -61.46126, -61.46143, -61.47448, -61.47671, -61.47105, 
  -61.48135, -61.48977, -61.49166, -61.50041, -61.50986, -61.52017, -61.53283, -61.54606, -61.55224, -61.55808, 
  -61.56289, -61.57835, -61.58451, -61.58897, -61.61199, -61.62092, -61.61886, -61.62057, -61.62504, -61.63157, 
  -61.63655, -61.63705, -61.63996, -61.6446, -61.65026, -61.65232, -61.65524, -61.66211, -61.66726, -61.67053, 
  -61.66829, -61.66898, -61.66709, -61.664, -61.664, -61.6628, -61.66211, -61.66829, -61.66743, -61.66331, 
  -61.66091, -61.66589, -61.65662, -61.65353, -61.65085, -61.63051, -61.63343, -61.63549, -61.62845, -61.6221, 
  -61.61471, -61.61385, -61.61712, -61.61695, -61.61918, -61.62347, -61.62467, -61.62193, -61.61643, -61.60956, 
  -61.60595, -61.60595, -61.60252, -61.59891, -61.59309, -61.57626, -61.57283, -61.56527, -61.56115, -61.55033, 
  -61.53783, -61.53645, -61.53817, -61.53233, -61.52958, -61.50812, -61.50898, -61.50469, -61.50417)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_4 <- st_set_geometry(Geo_4, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("GUYANA", "VENEZUELA", "BRAZIL", "TRINIDAD AND TOBAGO"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3, Geo_4)

KOREAN DEMILITARIZED ZONE (NORTH) is included in DEM. PEOPLE’S REPUBLIC OF KOREA in GeoDATA.

KOREAN DEMILITARIZED ZONE (SOUTH) is included in REPUBLIC OF KOREA in GeoDATA.

BAENGNYEONG ISLAND is included in REPUBLIC OF KOREA in GeoDATA.

4 islands have been controlled by REPUBLIC OF KOREA since 1953:

  • BAENGNYEONG, DAECHEONG, SOCHEONG AND YEONPYEONG ISLANDS
################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "REPUBLIC OF KOREA")

##### REPUBLIC OF KOREA #####
LATITUDE_VALUEs <- c(
  37.96868, 37.97842, 37.97477, 37.97545, 37.97951, 37.96949, 37.9607, 37.9588, 37.95366, 37.94134, 
  37.9232, 37.92414, 37.9213, 37.92333, 37.91954, 37.9232, 37.92211, 37.91819, 37.91819, 37.91426, 
  37.91751, 37.91629, 37.91873, 37.91995, 37.92414, 37.93267, 37.93552, 37.94323, 37.94432, 37.95312, 
  37.95474, 37.95082, 37.95217, 37.95691, 37.95731, 37.96029, 37.96259, 37.96137, 37.95826, 37.95691, 
  37.95758, 37.96137, 37.96246, 37.96137, 37.96449, 37.96895, 37.97802, 37.97978, 37.9837, 37.98275, 
  37.98465, 37.98262, 37.97951, 37.98181, 37.98492, 37.98451, 37.98045, 37.97937, 37.98262, 37.98181, 
  37.97856, 37.97639, 37.97315, 37.97409)
LONGITUDE_VALUEs <- c(
  124.64, 124.6214, 124.6202, 124.6173, 124.6178, 124.6091, 124.6113, 124.6192, 124.6262, 124.6283, 
  124.6377, 124.6559, 124.6571, 124.6657, 124.6717, 124.6748, 124.682, 124.6844, 124.6882, 124.689, 
  124.692, 124.6959, 124.697, 124.7006, 124.6975, 124.7047, 124.7028, 124.7066, 124.7116, 124.7212, 
  124.7291, 124.7315, 124.7356, 124.7356, 124.7291, 124.7294, 124.7349, 124.7371, 124.7371, 124.7407, 
  124.7457, 124.7464, 124.7433, 124.74, 124.7342, 124.7315, 124.7299, 124.7237, 124.7181, 124.7097, 
  124.7047, 124.696, 124.6936, 124.6853, 124.6855, 124.6833, 124.6821, 124.6759, 124.6745, 124.6704, 
  124.6696, 124.6606, 124.6575, 124.6519)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_1, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_union(Geo_0[1:89]))
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
LATITUDE_VALUEs <- c(
  37.84895, 37.84584, 37.84163, 37.84082, 37.83838, 37.8396, 37.83662, 37.83255, 37.8316, 37.82848, 
  37.82726, 37.82523, 37.82021, 37.81967, 37.82265, 37.82292, 37.82102, 37.81953, 37.81777, 37.81763, 
  37.81343, 37.81546, 37.81262, 37.80977, 37.80923, 37.80773, 37.80529, 37.80299, 37.79892, 37.80041, 
  37.80353, 37.80462, 37.80773, 37.80746, 37.80963, 37.80475, 37.80679, 37.80733, 37.81126, 37.8118, 
  37.82048, 37.8278, 37.83513, 37.83974, 37.84299, 37.84326, 37.84746, 37.84529, 37.85017)
LONGITUDE_VALUEs <- c(
  124.7019, 124.7038, 124.7026, 124.6966, 124.6956, 124.6935, 124.6872, 124.6867, 124.6829, 124.6832, 
  124.6805, 124.6819, 124.6774, 124.6714, 124.6678, 124.6626, 124.6626, 124.6681, 124.6683, 124.6728, 
  124.6767, 124.6817, 124.6851, 124.6851, 124.6824, 124.6843, 124.6839, 124.6795, 124.6813, 124.6872, 
  124.6836, 124.687, 124.6896, 124.6951, 124.6971, 124.7014, 124.7044, 124.711, 124.7141, 124.7164, 
  124.7205, 124.7143, 124.7152, 124.7287, 124.7282, 124.7222, 124.72, 124.7081, 124.7054)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  37.76174, 37.75821, 37.76066, 37.76269, 37.76704, 37.7669, 37.76853, 37.76744, 37.76934, 37.7688, 
  37.77151, 37.76812, 37.76948, 37.76758, 37.76771, 37.76595, 37.76785, 37.76948, 37.77056, 37.77477, 
  37.77613, 37.77993, 37.77762, 37.77776, 37.77545, 37.77599, 37.77857, 37.77735, 37.77436, 37.77192, 
  37.77179, 37.77002, 37.76568)
LONGITUDE_VALUEs <- c(
  124.727, 124.7297, 124.731, 124.7383, 124.74, 124.7423, 124.7435, 124.7457, 124.7466, 124.75, 
  124.7538, 124.7552, 124.7608, 124.7615, 124.7641, 124.7641, 124.7685, 124.7663, 124.7684, 124.7677, 
  124.7709, 124.7709, 124.7569, 124.751, 124.7466, 124.7433, 124.7414, 124.7395, 124.7423, 124.7406, 
  124.7337, 124.7342, 124.7339)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  37.67959, 37.67674, 37.67525, 37.67375, 37.67497, 37.66981, 37.66424, 37.66261, 37.65717, 37.65242, 
  37.65133, 37.6535, 37.65527, 37.65704, 37.65812, 37.66016, 37.66601, 37.67063, 37.67334, 37.67837, 
  37.68041, 37.6815, 37.67864, 37.68122, 37.67824, 37.67864, 37.67688, 37.67783, 37.68136)
LONGITUDE_VALUEs <- c(
  125.677, 125.678, 125.6765, 125.6772, 125.6791, 125.6852, 125.6861, 125.6818, 125.6839, 125.6823, 
  125.6931, 125.6921, 125.6971, 125.6971, 125.7012, 125.7017, 125.7101, 125.711, 125.717, 125.7147, 
  125.7156, 125.7134, 125.7096, 125.7069, 125.6988, 125.6962, 125.6924, 125.6857, 125.6821)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(37.65513, 37.65255, 37.65595)
LONGITUDE_VALUEs <- c(125.7091, 125.7123, 125.7127)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(37.66234, 37.65867, 37.6588, 37.66288)
LONGITUDE_VALUEs <- c(125.7101, 125.7101, 125.7134, 125.7129)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(37.63929, 37.63644, 37.63861)
LONGITUDE_VALUEs <- c(125.6803, 125.6808, 125.6839)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  37.60911, 37.61414, 37.61591, 37.61129, 37.60843, 37.60639, 37.60299, 37.60585, 37.60489, 37.60653, 
  37.60598, 37.60367, 37.60381)
LONGITUDE_VALUEs <- c(
  125.7192, 125.7211, 125.7139, 125.7065, 125.7087, 125.7051, 125.7062, 125.7075, 125.7099, 125.7113, 
  125.7146, 125.7166, 125.7199)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "REPUBLIC OF KOREA")
GeoDATA <- rbind(GeoDATA, Geo_1)

ABKHAZIA (also known as REPUBLIC OF ABKHAZIA) is included in GEORGIA in GeoDATA.

ABKHAZIA is an Autonomous Republic of GEORGIA.

ABKHAZIA declared independence from GEORGIA in 1992. ABKHAZIA has no official codes (ISO 3166-1).

ABKHAZIA is not a United Nations Member State (Recognized by 5/193 United Nations Member States).

SOUTH OSSETIA (also known as REPUBLIC OF SOUTH OSSETIA) is included in GEORGIA in GeoDATA.

SOUTH OSSETIA (also known as STATE OF ALANIA) is considered by United Nations in GEORGIA.

SOUTH OSSETIA declared independence from CYPRUS in 1990. SOUTH OSSETIA has no official codes (ISO 3166-1).

SOUTH OSSETIA is not a United Nations Member State (Recognized by 5/193 United Nations Member States).

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "GEORGIA")
Geo_2 <- GeoDATA %>% filter(NAME == "RUSSIAN FEDERATION")
Geo_3 <- GeoDATA %>% filter(NAME == "AZERBAIJAN")
Geo_4 <- GeoDATA %>% filter(NAME == "ARMENIA")
Geo_5 <- GeoDATA %>% filter(NAME == "TÜRKIYE")
Geo_6 <- GeoDATA %>% filter(NAME == "IRAN")

##### GEORGIA #####
LATITUDE_VALUEs <- c(
  43.38581, 43.39036, 43.39597, 43.4047, 43.41667, 43.42428, 43.43064, 43.43188, 43.4451, 43.44971,
  43.45432, 43.4608, 43.4684, 43.47475, 43.50576, 43.52991, 43.55592, 43.56214, 43.56599, 43.56935,
  43.56525, 43.57457, 43.57271, 43.57669, 43.57383, 43.5752, 43.58676, 43.5844, 43.58676, 43.57719,
  43.57905, 43.56997, 43.57706, 43.57855, 43.56574, 43.56587, 43.56263, 43.56437, 43.55442, 43.55604,
  43.55144, 43.5548, 43.55305, 43.55728, 43.55679, 43.54982, 43.54596, 43.5497, 43.53738, 43.53377,
  43.52456, 43.5258, 43.52008, 43.52219, 43.51945, 43.51945, 43.52294, 43.52356, 43.53078, 43.53066,
  43.54721, 43.55057, 43.5487, 43.56276, 43.55666, 43.55106, 43.54845, 43.5375, 43.52643, 43.52095,
  43.52008, 43.51298, 43.51323, 43.50813, 43.49443, 43.48758, 43.48907, 43.48571, 43.48746, 43.48447,
  43.48932, 43.48746, 43.48272, 43.47737, 43.47251, 43.46852, 43.45756, 43.45457, 43.45432, 43.45133,
  43.44746, 43.44323, 43.43176, 43.4254, 43.42341, 43.41929, 43.41942, 43.42303, 43.42577, 43.43113,
  43.43051, 43.43276, 43.42528, 43.41954, 43.41792, 43.40882, 43.40744, 43.39934, 43.39859, 43.39485,
  43.39697, 43.38711, 43.39081, 43.38487, 43.38898, 43.39185, 43.39984, 43.40408, 43.39834, 43.39834,
  43.4052, 43.40046, 43.39011, 43.38287, 43.38637, 43.38113, 43.381, 43.37027, 43.36727, 43.36128,
  43.35779, 43.3649, 43.36004, 43.35529, 43.35355, 43.34793, 43.33707, 43.34056, 43.33956, 43.34818,
  43.34643, 43.34665, 43.35527, 43.35876, 43.36999, 43.36525, 43.36637, 43.35377, 43.33267, 43.33017,
  43.3238, 43.30532, 43.30982, 43.27746, 43.26921, 43.24908, 43.25333, 43.23432, 43.2362, 43.22169,
  43.22282, 43.23057, 43.23782, 43.22494, 43.21719, 43.21969, 43.24333, 43.23695, 43.22557, 43.21856,
  43.22169, 43.20155, 43.21447, 43.21143, 43.23457, 43.2427, 43.24608, 43.25245, 43.24995, 43.24508,
  43.23645, 43.23095, 43.22519, 43.22432, 43.20267, 43.21581, 43.21281, 43.21844, 43.20355, 43.2008,
  43.18791, 43.18753, 43.19642, 43.19654, 43.21481, 43.20805, 43.21118, 43.21018, 43.21769, 43.22257,
  43.21519, 43.21869, 43.22757, 43.2307, 43.22719, 43.22869, 43.21143, 43.21256, 43.20993, 43.22144,
  43.21931, 43.24645, 43.24445, 43.24958, 43.25758, 43.25058, 43.24083, 43.2367, 43.22719, 43.21231,
  43.21118, 43.20518, 43.20468, 43.19917, 43.19954, 43.17326, 43.17439, 43.17013, 43.16187, 43.1655,
  43.13507, 43.13782, 43.14396, 43.15811, 43.17439, 43.17226, 43.17852, 43.18227, 43.17727, 43.18816,
  43.18791, 43.18177, 43.17339, 43.17251, 43.16663, 43.17401, 43.17902, 43.1695, 43.16337, 43.15448,
  43.15874, 43.1521, 43.14859, 43.13532, 43.12316, 43.12379, 43.11665, 43.11865, 43.08782, 43.07089,
  43.05459, 43.04844, 43.04079, 43.02987, 42.99912, 42.99963, 42.99084, 42.99045, 42.98505, 42.98002,
  42.97638, 42.96935, 42.96382, 42.93731, 42.93568, 42.93015, 42.93203, 42.92336, 42.91833, 42.90714,
  42.91506, 42.89997, 42.89042, 42.89029, 42.90022, 42.89155, 42.89343, 42.88752, 42.89067, 42.87016,
  42.86513, 42.86777, 42.85116, 42.84449, 42.83392, 42.81327, 42.81252, 42.79589, 42.80194, 42.79665,
  42.78644, 42.77019, 42.76565, 42.75998, 42.75986, 42.74448, 42.74082, 42.72558, 42.72115, 42.69832,
  42.67662, 42.67434, 42.65289, 42.63963, 42.63028, 42.62952, 42.61765, 42.61702, 42.59895, 42.58834,
  42.59023, 42.59668, 42.59946, 42.59327, 42.59327, 42.59958, 42.58783, 42.58012, 42.57494, 42.56735,
  42.56141, 42.55054, 42.5522, 42.54714, 42.55207, 42.56117, 42.56724, 42.59113, 42.60503, 42.60036,
  42.61729, 42.60453, 42.63333, 42.62891, 42.68079, 42.70868, 42.72041, 42.72306, 42.71158, 42.71688,
  42.71498, 42.70489, 42.70918, 42.70792, 42.71877, 42.69644, 42.70035, 42.71574, 42.72142, 42.73617,
  42.74147, 42.75395, 42.75369, 42.7663, 42.74386, 42.74941, 42.74575, 42.75483, 42.74184, 42.74159,
  42.72835, 42.72722, 42.71284, 42.70023, 42.68786, 42.67726, 42.66552, 42.65694, 42.64078, 42.64078,
  42.61489, 42.61602, 42.64255, 42.64419, 42.67549, 42.67499, 42.69581, 42.70477, 42.7112, 42.7252,
  42.73403, 42.74701, 42.75092, 42.74512, 42.73541, 42.73138, 42.72293, 42.70212, 42.69253, 42.69215,
  42.69631, 42.7054, 42.71171, 42.70325, 42.70994, 42.70729, 42.66615, 42.66148, 42.62057, 42.60491,
  42.6068, 42.58873, 42.58494, 42.57344, 42.56889, 42.57369, 42.56446, 42.54676, 42.52184, 42.52171,
  42.5398, 42.54878, 42.5503, 42.54031, 42.54473, 42.53841, 42.54005, 42.53436, 42.54473, 42.53714,
  42.5479, 42.53284, 42.51488, 42.50488, 42.50982, 42.49868, 42.50678, 42.48045, 42.47488, 42.48856,
  42.46121, 42.44727, 42.42726, 42.37731, 42.36235, 42.33342, 42.32555, 42.30804, 42.30296, 42.29356,
  42.29001, 42.29687, 42.28569, 42.28309, 42.29331, 42.2519, 42.24326, 42.23284, 42.21047, 42.21047,
  42.18554, 42.18656, 42.16493, 42.15373, 42.15014, 42.13207, 42.1257, 42.11551, 42.10125, 42.1173,
  42.10609, 42.11348, 42.10303, 42.10711, 42.08163, 42.06354, 42.05156, 42.03167, 42.03601, 42.02223,
  42.04544, 42.03652, 42.04213, 42.02453, 42.0207, 42.04136, 42.02147, 42.00897, 41.98499, 42.00693,
  42.00955, 41.98881, 42.01688, 42.00004, 41.98065, 41.98295, 41.97069, 41.95895, 41.94491, 41.93035,
  41.94644, 41.94108, 41.93188, 41.93929, 41.9219, 41.92106, 41.91607, 41.91288, 41.90841,
  41.89873, 41.8894, 41.87317, 41.85757, 41.8444, 41.80974, 41.79515, 41.78939, 41.77544, 41.7698,
  41.75546, 41.7634, 41.77288, 41.76916, 41.7488, 41.73945, 41.71178, 41.70691, 41.69909, 41.69666,
  41.67833, 41.66243, 41.65781, 41.65127, 41.64845, 41.6378, 41.62599, 41.62869, 41.61432, 41.61303,
  41.607, 41.6043, 41.59545, 41.59699, 41.61201, 41.60803, 41.62266, 41.62112, 41.63498, 41.62317,
  41.6129, 41.60764, 41.59917, 41.60058, 41.59686, 41.6088, 41.6088, 41.59699, 41.59801, 41.59162,
  41.5758, 41.57105, 41.56694, 41.58081, 41.57644, 41.56977, 41.56784, 41.57721, 41.574, 41.55872,
  41.55384, 41.54061, 41.53662, 41.53405, 41.52853, 41.52686, 41.52172, 41.5001, 41.50102, 41.49254,
  41.49511, 41.48803, 41.49022, 41.48289, 41.48302, 41.47993, 41.47826, 41.47247, 41.47003, 41.48173,
  41.46951, 41.45601, 41.45292, 41.46012, 41.45627, 41.44842, 41.43532, 41.43532, 41.42863, 41.4294,
  41.42374, 41.4155, 41.41086, 41.40649, 41.39876, 41.39387, 41.38228, 41.37815, 41.39078, 41.38846,
  41.37815, 41.38099, 41.37197, 41.36218, 41.35368, 41.37094, 41.36991, 41.34801, 41.34955, 41.33692,
  41.34053, 41.32713, 41.3297, 41.32197, 41.32042, 41.30521, 41.29515, 41.28741, 41.26057, 41.25515,
  41.23295, 41.23295, 41.20222, 41.17277, 41.16036, 41.13296, 41.09856, 41.0983, 41.11175, 41.11278,
  41.05456, 41.06411, 41.09956, 41.10474, 41.10034, 41.10474, 41.12026, 41.17532, 41.19005, 41.18308,
  41.20529, 41.17222, 41.17403, 41.18333, 41.19057, 41.17687, 41.19341, 41.21304, 41.22182, 41.25254,
  41.25771, 41.27784, 41.29718, 41.34463, 41.33792, 41.3521, 41.36164, 41.35545, 41.35597, 41.37967,
  41.37349, 41.38972, 41.40955, 41.42062, 41.45768, 41.42989, 41.42731, 41.45356, 41.47286, 41.46231,
  41.46797, 41.44764, 41.41727, 41.42422, 41.42036, 41.41264, 41.33921, 41.34643, 41.33844, 41.32813,
  41.32555, 41.30982, 41.30516, 41.29665,
  41.29432, 41.2849, 41.28232, 41.27084, 41.26607, 41.25548, 41.25884, 41.25432, 41.26, 41.25716,
  41.2751, 41.2729, 41.26749, 41.26929, 41.276, 41.27471, 41.28271, 41.30115, 41.30115, 41.2889,
  41.26865, 41.25819, 41.23161, 41.22851, 41.21792, 41.22141, 41.21211, 41.20423, 41.20836, 41.21766,
  41.21379, 41.23006, 41.2205, 41.22076, 41.20462, 41.20449, 41.2258, 41.21598, 41.22605, 41.24129,
  41.23303, 41.24219, 41.23974, 41.23587, 41.23199, 41.22076, 41.19403, 41.19596, 41.2125, 41.20178,
  41.19467, 41.1979, 41.21198, 41.21521, 41.22515, 41.22574, 41.21366, 41.21056, 41.1939, 41.18537,
  41.18163, 41.18098, 41.19157, 41.19209, 41.20191, 41.20823, 41.22154, 41.22593, 41.23212, 41.22528,
  41.20307, 41.20501, 41.21547, 41.21443, 41.20849, 41.21288, 41.23896, 41.23277, 41.24697, 41.24464,
  41.23315, 41.18912, 41.18912, 41.2032, 41.19015, 41.18744, 41.16483, 41.16651, 41.17646, 41.16328,
  41.16276, 41.13031, 41.10885, 41.13691, 41.12863, 41.13135, 41.1285, 41.13988, 41.14544, 41.13445,
  41.13406, 41.12514, 41.12592, 41.12333,
  41.17682, 41.18715, 41.20394, 41.2011, 41.17268, 41.18483, 41.23442, 41.25378, 41.25533, 41.24423, 
  41.25558, 41.29068, 41.30538, 41.30564, 41.30899, 41.30332, 41.30873, 41.31621, 41.31879, 41.35539, 
  41.36673, 41.37317, 41.37678, 41.37085, 41.37601, 41.37961, 41.40691, 41.41181, 41.42597, 41.4324, 
  41.44244, 41.45248, 41.45659, 41.47306, 41.4782, 41.50135, 41.50366, 41.49415, 41.46972, 41.49646, 
  41.50829, 41.5178, 41.54325, 41.55455, 41.55918, 41.59051, 41.59205, 41.58666, 41.58974, 41.57613, 
  41.58615, 41.58563, 41.59642, 41.59488, 41.6013, 41.59231, 41.58512, 41.57331, 41.56457, 41.54222, 
  41.52552, 41.50906, 41.50752, 41.49955, 41.49029, 41.47898, 41.47254, 41.45275, 41.44696, 41.4449, 
  41.43589, 41.44567, 41.43795, 41.43589, 41.444, 41.45918, 41.45867, 41.46716, 41.46355, 41.46819, 
  41.46458, 41.47204, 41.46754, 41.48105, 41.48285, 41.49352, 41.49416, 41.49108, 41.49545, 41.49391, 
  41.49854, 41.49121, 41.50779, 41.50895, 41.5146, 41.50561, 41.50792, 41.50522, 41.51203, 41.50625, 
  41.51113, 41.49339, 41.50008, 41.50483, 41.52203, 41.52129, 41.5254, 41.50831, 41.50805, 41.48105, 
  41.4759, 41.4696, 41.4606, 41.44889, 41.44091, 41.43164, 41.43551, 41.44091, 41.44736, 41.44839, 
  41.46164, 41.46344, 41.46048, 41.47129, 41.4745, 41.48006, 41.49112, 41.49729, 41.48662, 41.48842, 
  41.48238, 41.48765, 41.50141, 41.50925, 41.51542, 41.5203, 41.51799, 41.52069,
  41.52542, 41.53518, 41.54764, 41.58515, 41.60659, 41.61159, 41.61737, 41.6438, 41.65739, 41.65778,
  41.64675, 41.64726, 41.6515, 41.64983, 41.65355, 41.65406, 41.66765, 41.66765, 41.68022, 41.69586,
  41.69586, 41.71534, 41.75812, 41.76068, 41.76939, 41.77157, 41.80638, 41.8578, 41.96485, 42.00951,
  42.07631, 42.13337, 42.15653, 42.19393, 42.20156, 42.20919, 42.2425, 42.27934, 42.28721, 42.30423,
  42.35601, 42.38137, 42.38873, 42.4118, 42.48071, 42.55257, 42.63143, 42.70086, 42.72936, 42.74134,
  42.74046, 42.75508, 42.76264, 42.76655, 42.77222, 42.77398, 42.77298, 42.77625, 42.78658, 42.79187,
  42.7925, 42.80208, 42.80283, 42.79124, 42.79603, 42.7954, 42.81266, 42.81442, 42.8192, 42.82374,
  42.83129, 42.84237, 42.91558, 42.94989, 42.95353, 42.97012, 42.97275, 42.98443, 42.99285, 42.99824,
  42.999, 42.99448, 42.99561, 42.98192, 42.98192, 42.99398, 43.01105, 43.02021, 43.03013, 43.04179,
  43.06462, 43.07516, 43.07779, 43.08243, 43.08456, 43.0818, 43.08619, 43.08795, 43.08544, 43.08795,
  43.08594, 43.09108, 43.0976, 43.10136, 43.09735, 43.09095, 43.09095, 43.09371, 43.10199, 43.10374,
  43.13081, 43.13832, 43.14433, 43.14408, 43.14133, 43.14396, 43.1397, 43.14972, 43.1536, 43.15172,
  43.16087, 43.16099, 43.17251, 43.17389, 43.1685, 43.1541, 43.14772, 43.14559, 43.17201, 43.17339,
  43.18327, 43.1839, 43.2033, 43.24545, 43.26683, 43.30557, 43.31605, 43.32092, 43.32454, 43.33003,
  43.33915, 43.35925, 43.35875, 43.37759, 43.37909, 43.37796, 43.38595)
LONGITUDE_VALUEs <- c(
  40.00871, 40.00637, 40.00929, 40.00792, 40.01598, 40.01049, 40.01478, 40.0208, 40.03607, 40.0359,
  40.04242, 40.0419, 40.04448, 40.04396, 40.06439, 40.09632, 40.09014, 40.09821, 40.09821, 40.10953,
  40.13081, 40.15707, 40.1631, 40.17186, 40.17683, 40.21339, 40.24274, 40.2484, 40.25973, 40.27159,
  40.28223, 40.29853, 40.30608, 40.31415, 40.32874, 40.33356, 40.34437, 40.35467, 40.38951, 40.40032,
  40.41285, 40.42128, 40.42677, 40.43141, 40.43896, 40.44857, 40.46659, 40.47946, 40.49406, 40.49303,
  40.50521, 40.515, 40.52393, 40.53148, 40.53955, 40.56701, 40.56941, 40.57507, 40.58726, 40.59395,
  40.60787, 40.62064, 40.62975, 40.66255, 40.67556, 40.6759, 40.69119, 40.6881, 40.74099, 40.7446,
  40.75642, 40.75762, 40.76689, 40.77153, 40.81752, 40.82731, 40.83847, 40.85496, 40.87196, 40.87625,
  40.89051, 40.8936, 40.89016, 40.89841, 40.89755, 40.89944, 40.89257, 40.89754, 40.90492, 40.90836,
  40.92467, 40.92931, 40.92588, 40.93324, 40.94663, 40.9499, 40.9578, 40.96157, 40.98133, 40.98442,
  40.98969, 41.00343, 41.01321, 41.01373, 41.01853, 41.02987, 41.03639, 41.03828, 41.04378, 41.0467,
  41.05305, 41.07418, 41.08023, 41.09839, 41.09822, 41.10423, 41.09839, 41.10612, 41.11471, 41.12959,
  41.15054, 41.15535, 41.15449, 41.17132, 41.18145, 41.19571, 41.22078, 41.22901, 41.23949, 41.23811,
  41.24945, 41.25786, 41.27641, 41.2762, 41.2805, 41.275, 41.2896, 41.30265, 41.31725, 41.32378,
  41.33975, 41.3388, 41.34652, 41.35819, 41.36437, 41.3781, 41.39355, 41.41551, 41.40882, 41.41638,
  41.41347, 41.44007, 41.46049, 41.50479, 41.54495, 41.56194, 41.57738, 41.58615, 41.59267, 41.61996,
  41.63987, 41.64262, 41.66012, 41.67953, 41.68314, 41.70356, 41.72588, 41.74545, 41.75936, 41.77498,
  41.78236, 41.80433, 41.82601, 41.84775, 41.86527, 41.86167, 41.87969, 41.8826, 41.89084, 41.8917,
  41.90286, 41.89856, 41.91198, 41.94304, 41.95505, 41.97942, 41.99744, 42.01941, 42.02955, 42.03625,
  42.03848, 42.05066, 42.05633, 42.06894, 42.09522, 42.10891, 42.1187, 42.1302, 42.13673, 42.16661,
  42.18001, 42.19323, 42.19714, 42.21518, 42.23046, 42.24798, 42.25536, 42.28624, 42.29311, 42.30187,
  42.33913, 42.35851, 42.38994, 42.40986, 42.41346, 42.44266, 42.44658, 42.4531, 42.44211, 42.45721,
  42.467, 42.47696, 42.48881, 42.49448, 42.51079, 42.55335, 42.57637, 42.59766, 42.6011, 42.61381,
  42.67009, 42.6792, 42.67095, 42.68023, 42.68005, 42.70272, 42.71093, 42.73308, 42.74012, 42.74854,
  42.77653, 42.79508, 42.79594, 42.80636, 42.81014, 42.82422, 42.8596, 42.87746, 42.8742, 42.88227,
  42.8967, 42.90731, 42.93273, 42.92225, 42.92981, 42.96725, 42.98473, 42.99023, 43.0433, 43.0153,
  43.02731, 43.02611, 43.0383, 43.03573, 43.08997, 43.11333, 43.11742, 43.11794, 43.13408, 43.13237,
  43.14216, 43.14301, 43.17373, 43.18729, 43.19844, 43.20394, 43.23279, 43.23829, 43.29101, 43.2999,
  43.31656, 43.33442, 43.33219, 43.36258, 43.38869, 43.41337, 43.44909, 43.46043, 43.47674, 43.49697,
  43.54316, 43.56171, 43.58777, 43.58932, 43.61249, 43.60785, 43.63825, 43.64769, 43.68496, 43.692,
  43.68908, 43.72527, 43.75756, 43.76477, 43.77422, 43.79534, 43.80805, 43.80511, 43.80768, 43.78742,
  43.77781, 43.77094, 43.75807, 43.71531, 43.71514, 43.72887, 43.74467, 43.75515, 43.75291, 43.76972,
  43.78621, 43.78913, 43.80939, 43.81644, 43.82897, 43.8379, 43.87002, 43.87448, 43.91034, 43.91429,
  43.94623, 43.94331, 43.958, 43.96298, 43.97396, 43.97362, 43.99113, 44.00983, 44.05188, 44.0646,
  44.11866, 44.15747, 44.19694, 44.23283, 44.24759, 44.30475, 44.30939, 44.31711, 44.35349, 44.3631,
  44.38627, 44.39144, 44.40123, 44.40946, 44.41616, 44.51795, 44.52155, 44.51022, 44.51211, 44.49958,
  44.50816, 44.51108, 44.53426, 44.55297, 44.57992, 44.60205, 44.64532, 44.68256, 44.69975, 44.71348,
  44.72824, 44.74112, 44.75347, 44.74403, 44.74713, 44.75674, 44.75502, 44.76481, 44.76601, 44.77425,
  44.80205, 44.82968, 44.8211, 44.83029, 44.83732, 44.85363, 44.87029, 44.86425, 44.87095, 44.86769,
  44.87954, 44.88538, 44.94528, 44.98049, 44.98355, 44.99317, 44.99557, 45.03267, 45.03265, 45.05103,
  45.067, 45.07129, 45.08675, 45.10732, 45.1324, 45.15816, 45.19093, 45.21721, 45.2517, 45.25547,
  45.28226, 45.28278, 45.29205, 45.29514, 45.30989, 45.31401, 45.32621, 45.32569, 45.33753, 45.35539,
  45.39798, 45.40241, 45.42027, 45.43195, 45.45325, 45.46613, 45.47328, 45.50025, 45.52498, 45.54232,
  45.57581, 45.59711, 45.59745, 45.61475, 45.63433, 45.64927, 45.68431, 45.6991, 45.7228, 45.77498,
  45.7743, 45.78117, 45.77431, 45.73412, 45.74304, 45.74167, 45.75678, 45.75335, 45.74476, 45.7403,
  45.72072, 45.70286, 45.68774, 45.66899, 45.65305, 45.61876, 45.62185, 45.6088, 45.60708, 45.62082,
  45.64966, 45.67336, 45.72007, 45.72316, 45.74755, 45.73724, 45.76913, 45.76948, 45.78768, 45.80383,
  45.82375, 45.85672, 45.88172, 45.89546, 45.92157, 45.91057, 45.9346, 45.9267, 45.94112, 45.95521,
  45.98406, 46.00364, 46.02253, 46.0239, 46.04554, 46.07371, 46.08498, 46.08395, 46.10696, 46.12792,
  46.14877, 46.15643, 46.23405, 46.25836, 46.24222, 46.2697, 46.26558, 46.28241, 46.28035, 46.32323,
  46.33456, 46.35414, 46.35655, 46.39776, 46.40448, 46.42156, 46.42087, 46.42654, 46.42207,
  46.41792, 46.40745, 46.4174, 46.40247, 46.39989, 46.33776, 46.32316, 46.30394, 46.30394, 46.25226,
  46.24145, 46.21571, 46.20352, 46.20061, 46.19889, 46.18223, 46.17828, 46.18395, 46.18258, 46.18824,
  46.1891, 46.20815, 46.20472, 46.20798, 46.19442, 46.20094, 46.19322, 46.20781, 46.20386, 46.22171,
  46.22171, 46.23716, 46.2375, 46.24969, 46.24814, 46.25552, 46.25175, 46.26651, 46.26377, 46.27664,
  46.27938, 46.26703, 46.28145, 46.2878, 46.3005, 46.30445, 46.32435, 46.32212, 46.33259, 46.34031,
  46.33723, 46.34522, 46.33852, 46.32169, 46.31001, 46.31379, 46.30503, 46.30469, 46.2973, 46.30538,
  46.3004, 46.30984, 46.30383, 46.32598, 46.31997, 46.33457, 46.32495, 46.33102, 46.34161, 46.34487,
  46.35741, 46.35844, 46.38417, 46.38641, 46.40461, 46.40444, 46.39345, 46.39207, 46.40186, 46.40976,
  46.43089, 46.42436, 46.43808, 46.44546, 46.45062, 46.44117, 46.46642, 46.47879, 46.47295, 46.48566,
  46.48532, 46.52138, 46.52207, 46.57016, 46.56913, 46.61447, 46.60966, 46.62065, 46.62855, 46.63404,
  46.6258, 46.6392, 46.64366, 46.6234, 46.64847, 46.65053, 46.66152, 46.655, 46.67041, 46.6656,
  46.68724, 46.68552, 46.70304, 46.70235, 46.68724, 46.7037, 46.6982, 46.73736, 46.69648, 46.70544,
  46.69307, 46.67727, 46.65735, 46.66697, 46.65083, 46.65839, 46.6371, 46.60447, 46.58215, 46.54917,
  46.49496, 46.46784, 46.45788, 46.42696, 46.39296, 46.36891, 46.36857, 46.28966, 46.27832, 46.25016,
  46.13681, 46.10116, 46.08158, 46.08261, 46.06372, 45.95355, 45.90718, 45.88657, 45.80997, 45.7582,
  45.74137, 45.72797, 45.7005, 45.73931, 45.75546, 45.76026, 45.71115, 45.70153, 45.6792, 45.64348,
  45.57753, 45.58139, 45.56216, 45.51613, 45.45842, 45.42717, 45.38664, 45.36508, 45.30978, 45.28814,
  45.25929, 45.25105, 45.1965, 45.17589, 45.17108, 45.17417, 45.09247, 45.08148, 45.07289, 45.07255,
  45.054, 45.04438, 45.02222, 45.01518,
  45.00289, 44.99363, 44.97766, 44.97234, 44.96307, 44.96135, 44.94368, 44.93836, 44.93029, 44.91107,
  44.89715, 44.89097, 44.89097, 44.8805, 44.87312, 44.84704, 44.84807, 44.82471, 44.81647, 44.80686,
  44.80875, 44.80188, 44.8211, 44.85423, 44.86796, 44.89045, 44.89937, 44.88393, 44.85252, 44.84256,
  44.81356, 44.79571, 44.79159, 44.74969, 44.73373, 44.72395, 44.7267, 44.69426, 44.6783, 44.68808,
  44.64619, 44.61495, 44.60637, 44.61099, 44.60395, 44.60704, 44.59588, 44.5837, 44.58868, 44.55555,
  44.55005, 44.53364, 44.54291, 44.53587, 44.54755, 44.53117, 44.52763, 44.5175, 44.50978, 44.47818,
  44.47612, 44.46256, 44.455, 44.43786, 44.41124, 44.40763, 44.38602, 44.36249, 44.35682, 44.3436,
  44.34635, 44.3235, 44.3132, 44.2919, 44.28606, 44.2705, 44.24061, 44.21245, 44.17947, 44.17776,
  44.18359, 44.16388, 44.08883, 44.08729, 44.0535, 44.01572, 43.96321, 43.94999, 43.94827, 43.8779,
  43.8487, 43.77782, 43.75051, 43.67189, 43.63156, 43.61319, 43.59739, 43.59103, 43.56446, 43.52942,
  43.50812, 43.49301, 43.48133, 43.47395,
  43.44779, 43.41038, 43.37502, 43.33242, 43.23047, 43.23837, 43.20059, 43.19647, 43.17725, 43.15357, 
  43.12817, 43.21295, 43.21295, 43.20368, 43.19853, 43.18858, 43.16524, 43.1594, 43.13366, 43.10345, 
  43.05811, 43.05639, 43.0382, 43.03168, 43.01829, 43.02207, 43.00285, 42.98912, 42.98912, 42.96681, 
  42.97159, 42.96645, 42.94276, 42.9256, 42.89883, 42.89814, 42.87755, 42.86313, 42.85729, 42.7996, 
  42.80372, 42.79652, 42.81848, 42.81848, 42.83084, 42.83839, 42.82466, 42.8226, 42.7924, 42.77729, 
  42.76871, 42.74992, 42.73893, 42.71626, 42.69084, 42.65764, 42.60062, 42.59032, 42.57452, 42.58001, 
  42.56456, 42.57384, 42.5601, 42.55563, 42.53159, 42.52609, 42.51201, 42.52126, 42.52075, 42.52453, 
  42.52023, 42.49327, 42.48348, 42.46854, 42.4335, 42.4162, 42.41105, 42.40109, 42.38357, 42.38202, 
  42.36794, 42.34527, 42.32827, 42.31492, 42.30153, 42.28401, 42.27115, 42.26549, 42.25278, 42.24264, 
  42.22599, 42.20246, 42.19563, 42.1867, 42.17795, 42.15442, 42.1369, 42.12419, 42.11131, 42.10135, 
  42.08641, 42.03958, 42.02584, 41.99304, 41.98684, 41.97089, 41.96092, 41.93417, 41.92438, 41.89296, 
  41.89555, 41.88456, 41.88319, 41.84747, 41.84506, 41.82276, 41.81211, 41.81143, 41.80308, 41.78944, 
  41.78621, 41.77591, 41.77419, 41.75049, 41.70704, 41.71376, 41.71651, 41.70758, 41.68697, 41.68078, 
  41.67048, 41.63012, 41.61986, 41.58242, 41.58105, 41.57109, 41.5546, 41.54725,
  41.54873, 41.54907, 41.56263, 41.56658, 41.5743, 41.58255, 41.58461, 41.6131, 41.63438, 41.64262,
  41.64537, 41.65892, 41.65636, 41.66494, 41.6646, 41.67215, 41.68365, 41.68605, 41.69756, 41.70717,
  41.71112, 41.72331, 41.74167, 41.74837, 41.75163, 41.75523, 41.76997, 41.77855, 41.76105, 41.75624,
  41.71059, 41.65908, 41.65359, 41.63128, 41.63058, 41.62715, 41.63985, 41.63367, 41.62852, 41.62371,
  41.60037, 41.5808, 41.55884, 41.54922, 41.53618, 41.52416, 41.49877, 41.46701, 41.44916, 41.43595,
  41.42016, 41.40598, 41.3895, 41.35618, 41.34106, 41.32822, 41.32186, 41.30572, 41.29095, 41.26917,
  41.25817, 41.22572, 41.20597, 41.17849, 41.15741, 41.1502, 41.13955, 41.13234, 41.12995, 41.12428,
  41.11999, 41.10642, 41.08925, 41.07929, 41.07535, 41.06677, 41.06179, 41.05612, 41.04719, 41.03587,
  41.0247, 41.01698, 40.99448, 40.97971, 40.96563, 40.95913, 40.93372, 40.93082, 40.92034, 40.90093,
  40.88172, 40.86626, 40.84413, 40.82884, 40.80377, 40.79415, 40.77529, 40.74283, 40.72411, 40.69904,
  40.69269, 40.67111, 40.66012, 40.64037, 40.63384, 40.5976, 40.58114, 40.57461, 40.56791, 40.56293,
  40.53875, 40.52655, 40.5135, 40.50045, 40.49255, 40.48018, 40.47039, 40.45996, 40.44673, 40.44227,
  40.42458, 40.41925, 40.40397, 40.38202, 40.36673, 40.34802, 40.34802, 40.34218, 40.30852, 40.29891,
  40.28605, 40.28056, 40.27404, 40.27043, 40.267, 40.25326, 40.24486, 40.23679, 40.22013, 40.21069,
  40.16383, 40.12502, 40.11763, 40.0804, 40.06271, 40.05498, 40.016)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### RUSSIAN FEDERATION #####
Geo_0 <- Geometric_Operations(Geo_2, Geo_1)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0))
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  47.11932, 47.12726, 47.12668, 47.13988, 47.13789, 47.14058, 47.13591, 47.13894, 47.13626, 47.13883, 
  47.13918, 47.14875, 47.15132, 47.14396, 47.14583, 47.1282, 47.12271, 47.11442, 47.11885, 47.12248, 
  47.12388, 47.12014, 47.11792, 47.11979, 47.13614, 47.14315, 47.14361, 47.14081, 47.14665, 47.15645, 
  47.15984, 47.17081, 47.16848, 47.17595, 47.1756, 47.19543, 47.19916, 47.19858, 47.20604, 47.21257, 
  47.22843, 47.24346, 47.25069, 47.26945, 47.27247, 47.26292, 47.284, 47.28924, 47.28575, 47.28715, 
  47.28459, 47.26385, 47.26129, 47.25978, 47.26187, 47.25733, 47.24591, 47.24241, 47.18656, 47.17536, 
  47.17746, 47.17338, 47.17408, 47.16824, 47.16241, 47.13731, 47.1046, 47.09958, 47.0942, 47.08847, 
  47.08427, 47.08251, 47.07644, 47.07421, 47.06264, 47.06264, 47.05703, 47.06007, 47.05352, 47.03152, 
  47.01982, 47.0183, 47.03503, 47.02942, 47.02626, 47.02895, 47.03656, 47.04217, 47.02895, 47.02755, 
  47.00156, 46.97381, 46.95565, 46.958, 46.96842, 46.96444, 46.95554, 46.94745, 46.9369, 46.92846, 
  46.91216, 46.90442, 46.90654, 46.88354, 46.88554, 46.86946, 46.87287, 46.87075, 46.85643, 46.85573, 
  46.88049, 46.86571, 46.8569, 46.8245, 46.80429, 46.74598, 46.72927, 46.72068, 46.73857, 46.75033, 
  46.75539, 46.75327, 46.75645, 46.74726, 46.75173, 46.75067, 46.73549, 46.72373, 46.69148, 46.68123, 
  46.6645, 46.66498, 46.66062, 46.66403, 46.65767, 46.65567, 46.64235, 46.64129, 46.64589, 46.65508, 
  46.65508, 46.66333, 46.67652, 46.70737, 46.72785, 46.73644, 46.74114, 46.74244, 46.72726, 46.73055, 
  46.72455, 46.70913, 46.69842, 46.69571, 46.68877, 46.66898, 46.64388, 46.63516, 46.63281, 46.64082, 
  46.64919, 46.68335, 46.68217, 46.65885, 46.61017, 46.50924, 46.43499, 46.39973, 46.36301, 46.36444, 
  46.37889, 46.37675, 46.38362, 46.38102, 46.38765, 46.39167, 46.40067, 46.39996, 46.40825, 46.40919, 
  46.40162, 46.40351, 46.39712, 46.36559, 46.33028, 46.32368, 46.32392, 46.27708, 46.25939, 46.24337, 
  46.22723, 46.20645, 46.17793, 46.15808, 46.14797, 46.1394, 46.14024, 46.12239, 46.11299, 46.08835, 
  46.07978, 46.04333, 46.04214, 46.04035, 46.0388, 46.03892, 46.04565, 46.04929, 46.05382, 46.04333, 
  46.03964, 46.06823, 46.09073, 46.09038, 46.12406, 46.1375, 46.15094, 46.14559, 46.14678, 46.15261, 
  46.15165, 46.15724, 46.15261, 46.15819, 46.162, 46.16604, 46.17161, 46.17947, 46.1935, 46.19469, 
  46.2011, 46.20514, 46.21417, 46.2131, 46.22498, 46.22866, 46.22617, 46.22795, 46.23139, 46.24065, 
  46.24849, 46.25561, 46.26178, 46.26356, 46.25905, 46.23341, 46.21524, 46.16247, 46.1488, 46.1212, 
  46.10466, 46.07859, 46.05525, 46.03535, 46.01234, 46.00078, 45.99303, 45.98981, 45.9848, 45.96022, 
  45.95616, 45.95019, 45.94817, 45.96619, 45.96547, 45.97024, 45.97132, 45.97537, 45.97991, 45.9873, 
  45.99148, 46.00197, 46.00626, 46.00865, 46.01449, 46.01413, 46.01818, 46.02283, 46.02152, 46.02534, 
  46.02534, 46.03368, 46.05346, 46.05977, 46.04905, 46.04059, 46.04297, 46.0338, 46.00841, 45.97561, 
  45.91486, 45.83191, 45.75435, 45.74668, 45.74477, 45.71529, 45.68244, 45.65965, 45.61044, 45.47626, 
  45.47759, 45.46784, 45.4411, 45.43472, 45.41002, 45.37892, 45.34599, 45.34804, 45.34648, 45.35227, 
  45.35178, 45.34925, 45.34865, 45.33791, 45.33875, 45.34117, 45.33405, 45.33622, 45.33091, 45.32934, 
  45.33236, 45.332, 45.335, 45.35032, 45.37191, 45.3894, 45.41627, 45.42904, 45.43314, 45.43784, 
  45.44579, 45.45133, 45.45121, 45.44434, 45.44446, 45.44229, 45.44242, 45.41663, 45.3695, 45.35213, 
  45.34465, 45.34308, 45.34151, 45.33777, 45.33379, 45.33391, 45.32897, 45.31955, 45.31436, 45.30905, 
  45.30531, 45.30591, 45.31122, 45.31726, 45.3169, 45.32607, 45.33005, 45.32595, 45.34719, 45.35237, 
  45.34658, 45.34646, 45.35551, 45.35334, 45.36202, 45.35997, 45.36793, 45.37239, 45.37517, 45.38783, 
  45.41483, 45.41049, 45.40037, 45.39205, 45.39265, 45.38903, 45.38168, 45.38156, 45.37927, 45.373, 
  45.37336, 45.3701, 45.35454, 45.35479, 45.36322, 45.37588, 45.37009, 45.37588, 45.37455, 45.35948, 
  45.35212, 45.33836, 45.31676, 45.30843, 45.30952, 45.3071, 45.30396, 45.3135, 45.32473, 45.33004, 
  45.32823, 45.32352, 45.32654, 45.32557, 45.31978, 45.31821, 45.30952, 45.29563, 45.28754, 45.27909, 
  45.27885, 45.26918, 45.25976, 45.25287, 45.24888, 45.24719, 45.23921, 45.24066, 45.23958, 45.2345, 
  45.22664, 45.22555, 45.21987, 45.2183, 45.22011, 45.21866, 45.2264, 45.22386, 45.21757, 45.21636, 
  45.21769, 45.2108, 45.21007, 45.21503, 45.20923, 45.20475, 45.19532, 45.19193, 45.17995, 45.16676, 
  45.16253, 45.15747, 45.14056, 45.11779, 45.10955, 45.10907, 45.11343, 45.11925, 45.11319, 45.0978, 
  45.07368, 45.05137, 45.02396, 44.98767, 44.95962, 44.92669, 44.91186, 44.90031, 44.89666, 44.89824, 
  44.89727, 44.89399, 44.89228, 44.88924, 44.8581, 44.84483, 44.82998, 44.78212, 44.76189, 44.75884, 
  44.75104, 44.74495, 44.73982, 44.72421, 44.71543, 44.71311, 44.70714, 44.70762, 44.70335, 44.69372, 
  44.69518, 44.67626, 44.67809, 44.67114, 44.66576, 44.6704, 44.66845, 44.65795, 44.65709, 44.65221, 
  44.65368, 44.64928, 44.65465, 44.6538, 44.65648, 44.66637, 44.67175, 44.67577, 44.67992, 44.69762, 
  44.70799, 44.71189, 44.71812, 44.72312, 44.73178, 44.73482, 44.73165, 44.7269, 44.72153, 44.72568, 
  44.71397, 44.71494, 44.70628, 44.70506, 44.6798, 44.66723, 44.64903, 44.64391, 44.63609, 44.63194, 
  44.60395, 44.59613, 44.57388, 44.57706, 44.57425, 44.56728, 44.56911, 44.56397, 44.56287, 44.56116, 
  44.55884, 44.56569, 44.57021, 44.57327, 44.57608, 44.58207, 44.58623, 44.58427, 44.57681, 44.56459, 
  44.557, 44.55541, 44.55676, 44.55162, 44.52764, 44.50426, 44.50304, 44.49495, 44.48565, 44.47622, 
  44.46691, 44.46188, 44.45711, 44.44939, 44.4337, 44.41703, 44.40991, 44.41396, 44.41016, 44.40427, 
  44.39201, 44.38845, 44.3806, 44.37078, 44.36808, 44.37164, 44.3714, 44.37532, 44.37508, 44.36956, 
  44.36698, 44.35483, 44.35814, 44.35716, 44.35421, 44.34954, 44.34131, 44.331, 44.33296, 44.32903, 
  44.32203, 44.31835, 44.32056, 44.31344, 44.31172, 44.30656, 44.31049, 44.30865, 44.30103, 44.29919, 
  44.30164, 44.29943, 44.29353, 44.28837, 44.28075, 44.26846, 44.25273, 44.23982, 44.24018, 44.23256, 
  44.22875, 44.22284, 44.21977, 44.21927, 44.21472, 44.20771, 44.20069, 44.19442, 44.19442, 44.19011, 
  44.18728, 44.18556, 44.18752, 44.17952, 44.17718, 44.1666, 44.17017, 44.16783, 44.16216, 44.16155, 
  44.15674, 44.1512, 44.12471, 44.11005, 44.10278, 44.0955, 44.0976, 44.09476, 44.09291, 44.08687, 
  44.08502, 44.06134, 44.04347, 44.02051, 44.01767, 44.01372, 44.00792, 44.00113, 43.99854, 43.98866, 
  43.9789, 43.97643, 43.95357, 43.95011, 43.93923, 43.89781, 43.89793, 43.89472, 43.8524, 43.83209, 
  43.82441, 43.78564, 43.76506, 43.72649, 43.70193, 43.66692, 43.66431, 43.65661, 43.65711, 43.63798, 
  43.62282, 43.58379, 43.57981, 43.57894, 43.56849, 43.56078, 43.54909, 43.5247, 43.51163, 43.51312, 
  43.49594, 43.44199, 43.41313, 43.41288, 43.39866, 43.39928, 43.39629, 43.3893, 43.38444, 43.38681, 
  43.38581, 43.39036, 43.39597, 43.4047, 43.41667, 43.42428, 43.43064, 43.43188, 43.4451, 43.44971,
  43.45432, 43.4608, 43.4684, 43.47475, 43.50576, 43.52991, 43.55592, 43.56214, 43.56599, 43.56935,
  43.56525, 43.57457, 43.57271, 43.57669, 43.57383, 43.5752, 43.58676, 43.5844, 43.58676, 43.57719,
  43.57905, 43.56997, 43.57706, 43.57855, 43.56574, 43.56587, 43.56263, 43.56437, 43.55442, 43.55604,
  43.55144, 43.5548, 43.55305, 43.55728, 43.55679, 43.54982, 43.54596, 43.5497, 43.53738, 43.53377,
  43.52456, 43.5258, 43.52008, 43.52219, 43.51945, 43.51945, 43.52294, 43.52356, 43.53078, 43.53066,
  43.54721, 43.55057, 43.5487, 43.56276, 43.55666, 43.55106, 43.54845, 43.5375, 43.52643, 43.52095,
  43.52008, 43.51298, 43.51323, 43.50813, 43.49443, 43.48758, 43.48907, 43.48571, 43.48746, 43.48447,
  43.48932, 43.48746, 43.48272, 43.47737, 43.47251, 43.46852, 43.45756, 43.45457, 43.45432, 43.45133,
  43.44746, 43.44323, 43.43176, 43.4254, 43.42341, 43.41929, 43.41942, 43.42303, 43.42577, 43.43113,
  43.43051, 43.43276, 43.42528, 43.41954, 43.41792, 43.40882, 43.40744, 43.39934, 43.39859, 43.39485,
  43.39697, 43.38711, 43.39081, 43.38487, 43.38898, 43.39185, 43.39984, 43.40408, 43.39834, 43.39834,
  43.4052, 43.40046, 43.39011, 43.38287, 43.38637, 43.38113, 43.381, 43.37027, 43.36727, 43.36128,
  43.35779, 43.3649, 43.36004, 43.35529, 43.35355, 43.34793, 43.33707, 43.34056, 43.33956, 43.34818,
  43.34643, 43.34665, 43.35527, 43.35876, 43.36999, 43.36525, 43.36637, 43.35377, 43.33267, 43.33017,
  43.3238, 43.30532, 43.30982, 43.27746, 43.26921, 43.24908, 43.25333, 43.23432, 43.2362, 43.22169,
  43.22282, 43.23057, 43.23782, 43.22494, 43.21719, 43.21969, 43.24333, 43.23695, 43.22557, 43.21856,
  43.22169, 43.20155, 43.21447, 43.21143, 43.23457, 43.2427, 43.24608, 43.25245, 43.24995, 43.24508,
  43.23645, 43.23095, 43.22519, 43.22432, 43.20267, 43.21581, 43.21281, 43.21844, 43.20355, 43.2008,
  43.18791, 43.18753, 43.19642, 43.19654, 43.21481, 43.20805, 43.21118, 43.21018, 43.21769, 43.22257,
  43.21519, 43.21869, 43.22757, 43.2307, 43.22719, 43.22869, 43.21143, 43.21256, 43.20993, 43.22144,
  43.21931, 43.24645, 43.24445, 43.24958, 43.25758, 43.25058, 43.24083, 43.2367, 43.22719, 43.21231,
  43.21118, 43.20518, 43.20468, 43.19917, 43.19954, 43.17326, 43.17439, 43.17013, 43.16187, 43.1655,
  43.13507, 43.13782, 43.14396, 43.15811, 43.17439, 43.17226, 43.17852, 43.18227, 43.17727, 43.18816,
  43.18791, 43.18177, 43.17339, 43.17251, 43.16663, 43.17401, 43.17902, 43.1695, 43.16337, 43.15448,
  43.15874, 43.1521, 43.14859, 43.13532, 43.12316, 43.12379, 43.11665, 43.11865, 43.08782, 43.07089,
  43.05459, 43.04844, 43.04079, 43.02987, 42.99912, 42.99963, 42.99084, 42.99045, 42.98505, 42.98002,
  42.97638, 42.96935, 42.96382, 42.93731, 42.93568, 42.93015, 42.93203, 42.92336, 42.91833, 42.90714,
  42.91506, 42.89997, 42.89042, 42.89029, 42.90022, 42.89155, 42.89343, 42.88752, 42.89067, 42.87016,
  42.86513, 42.86777, 42.85116, 42.84449, 42.83392, 42.81327, 42.81252, 42.79589, 42.80194, 42.79665,
  42.78644, 42.77019, 42.76565, 42.75998, 42.75986, 42.74448, 42.74082, 42.72558, 42.72115, 42.69832,
  42.67662, 42.67434, 42.65289, 42.63963, 42.63028, 42.62952, 42.61765, 42.61702, 42.59895, 42.58834,
  42.59023, 42.59668, 42.59946, 42.59327, 42.59327, 42.59958, 42.58783, 42.58012, 42.57494, 42.56735,
  42.56141, 42.55054, 42.5522, 42.54714, 42.55207, 42.56117, 42.56724, 42.59113, 42.60503, 42.60036,
  42.61729, 42.60453, 42.63333, 42.62891, 42.68079, 42.70868, 42.72041, 42.72306, 42.71158, 42.71688,
  42.71498, 42.70489, 42.70918, 42.70792, 42.71877, 42.69644, 42.70035, 42.71574, 42.72142, 42.73617,
  42.74147, 42.75395, 42.75369, 42.7663, 42.74386, 42.74941, 42.74575, 42.75483, 42.74184, 42.74159,
  42.72835, 42.72722, 42.71284, 42.70023, 42.68786, 42.67726, 42.66552, 42.65694, 42.64078, 42.64078,
  42.61489, 42.61602, 42.64255, 42.64419, 42.67549, 42.67499, 42.69581, 42.70477, 42.7112, 42.7252,
  42.73403, 42.74701, 42.75092, 42.74512, 42.73541, 42.73138, 42.72293, 42.70212, 42.69253, 42.69215,
  42.69631, 42.7054, 42.71171, 42.70325, 42.70994, 42.70729, 42.66615, 42.66148, 42.62057, 42.60491,
  42.6068, 42.58873, 42.58494, 42.57344, 42.56889, 42.57369, 42.56446, 42.54676, 42.52184, 42.52171,
  42.5398, 42.54878, 42.5503, 42.54031, 42.54473, 42.53841, 42.54005, 42.53436, 42.54473, 42.53714,
  42.5479, 42.53284, 42.51488, 42.50488, 42.50982, 42.49868, 42.50678, 42.48045, 42.47488, 42.48856,
  42.46121, 42.44727, 42.42726, 42.37731, 42.36235, 42.33342, 42.32555, 42.30804, 42.30296, 42.29356,
  42.29001, 42.29687, 42.28569, 42.28309, 42.29331, 42.2519, 42.24326, 42.23284, 42.21047, 42.21047,
  42.18554, 42.18656, 42.16493, 42.15373, 42.15014, 42.13207, 42.1257, 42.11551, 42.10125, 42.1173,
  42.10609, 42.11348, 42.10303, 42.10711, 42.08163, 42.06354, 42.05156, 42.03167, 42.03601, 42.02223,
  42.04544, 42.03652, 42.04213, 42.02453, 42.0207, 42.04136, 42.02147, 42.00897, 41.98499, 42.00693,
  42.00955, 41.98881, 42.01688, 42.00004, 41.98065, 41.98295, 41.97069, 41.95895, 41.94491, 41.93035,
  41.94644, 41.94108, 41.93188, 41.93929, 41.9219, 41.92106, 41.91607, 41.91288, 41.90841,
  41.89451, 41.89336, 41.87905,41.86959, 41.86269, 41.86928, 
  41.86988, 44.39425, 47.60744)
LONGITUDE_VALUEs <- c(
  38.22932, 38.26089, 38.27977, 38.31101, 38.32201, 38.32322, 38.34364, 38.37693, 38.39684, 38.39926, 
  38.41333, 38.42912, 38.45435, 38.47513, 38.48251, 38.50894, 38.53933, 38.57108, 38.58687, 38.58704, 
  38.58103, 38.57932, 38.56936, 38.56078, 38.55838, 38.57245, 38.59513, 38.63615, 38.64833, 38.69367, 
  38.73125, 38.75854, 38.77725, 38.80041, 38.86652, 38.88025, 38.8933, 38.94514, 38.95424, 38.94222, 
  38.93484, 38.94119, 38.93724, 38.95355, 38.99113, 39.03887, 39.06822, 39.09739, 39.11682, 39.16092, 
  39.19765, 39.22761, 39.22262, 39.22742, 39.24305, 39.23721, 39.24357, 39.23086, 39.21385, 39.22689, 
  39.23548, 39.23702, 39.24389, 39.23737, 39.24801, 39.23033, 39.26587, 39.25436, 39.25454, 39.23204, 
  39.23822, 39.25728, 39.259, 39.26948, 39.27549, 39.28269, 39.28905, 39.30931, 39.30553, 39.30244, 
  39.29403, 39.23892, 39.18911, 39.16546, 39.11943, 39.10707, 39.10398, 39.10741, 39.0856, 39.07375, 
  39.0204, 38.9754, 38.92303, 38.91153, 38.90517, 38.89556, 38.8865, 38.87121, 38.86452, 38.86453, 
  38.84994, 38.82881, 38.81902, 38.76323, 38.75172, 38.70574, 38.64133, 38.6283, 38.5715, 38.55175, 
  38.49937, 38.48087, 38.45632, 38.42181, 38.41139, 38.39456, 38.39417, 38.40018, 38.39829, 38.40276, 
  38.41272, 38.43024, 38.44982, 38.47656, 38.49803, 38.51022, 38.53903, 38.58352, 38.6005, 38.60153, 
  38.59209, 38.58556, 38.57199, 38.55396, 38.54331, 38.52975, 38.50678, 38.48446, 38.45443, 38.42592, 
  38.39278, 38.33478, 38.30971, 38.28757, 38.28705, 38.28878, 38.29341, 38.29187, 38.27383, 38.26439, 
  38.26799, 38.24518, 38.21684, 38.15725, 38.12827, 38.09805, 38.05291, 37.99985, 37.92726, 37.84829, 
  37.80693, 37.73721, 37.73463, 37.7561, 37.77877, 37.83185, 37.88334, 37.92798, 37.99118, 38.01007, 
  38.01659, 38.00629, 37.99976, 37.99324, 37.99118, 37.98431, 37.98705, 37.97332, 37.98499, 38.01041, 
  38.02552, 38.06289, 38.1017, 38.16143, 38.21224, 38.21924, 38.2225, 38.2759, 38.29015, 38.29187, 
  38.32081, 38.34999, 38.42088, 38.46242, 38.4765, 38.50946, 38.51993, 38.5419, 38.57023, 38.58224, 
  38.57693, 38.58516, 38.57555, 38.58173, 38.58121, 38.56937, 38.55391, 38.53607, 38.52389, 38.50209, 
  38.47307, 38.40166, 38.37642, 38.36355, 38.32665, 38.3002, 38.28253, 38.28407, 38.27789, 38.27326, 
  38.27927, 38.27377, 38.26245, 38.26262, 38.26828, 38.25746, 38.25388, 38.26724, 38.26175, 38.25214, 
  38.25472, 38.25197, 38.25523, 38.25884, 38.25952, 38.2693, 38.27548, 38.2784, 38.27566, 38.28407, 
  38.28441, 38.28767, 38.28612, 38.27814, 38.26835, 38.25324, 38.2493, 38.24569, 38.23676, 38.18989, 
  38.18098, 38.1796, 38.16621, 38.14801, 38.15505, 38.15282, 38.14526, 38.12826, 38.12399, 38.11626, 
  38.10973, 38.10698, 38.09513, 38.08895, 38.06989, 38.06525, 38.07143, 38.06989, 38.08603, 38.0833, 
  38.07403, 38.07197, 38.0754, 38.07214, 38.07678, 38.08777, 38.07849, 38.0857, 38.09292, 38.09773, 
  38.10185, 38.11902, 38.11781, 38.09926, 38.02168, 37.99231, 37.98613, 37.97, 37.94735, 37.92778, 
  37.90478, 37.87617, 37.83462, 37.81851, 37.78348, 37.75462, 37.64265, 37.61182, 37.60083, 37.59877, 
  37.60437, 37.60403, 37.5896, 37.58994, 37.57261, 37.52881, 37.45106, 37.42496, 37.42083, 37.41414, 
  37.39044, 37.38837, 37.38391, 37.3937, 37.38391, 37.38185, 37.3702, 37.35973, 37.34049, 37.30722, 
  37.2557, 37.23492, 37.20251, 37.13386, 37.05108, 37.00304, 36.94912, 36.92614, 36.92322, 36.89093, 
  36.86483, 36.85607, 36.84164, 36.8109, 36.79859, 36.79224, 36.78537, 36.76099, 36.72134, 36.6961, 
  36.67997, 36.66761, 36.67413, 36.6719, 36.66314, 36.65713, 36.65902, 36.63961, 36.63569, 36.62487, 
  36.62161, 36.62899, 36.63464, 36.64357, 36.65215, 36.65851, 36.66607, 36.66847, 36.69182, 36.69987, 
  36.69832, 36.7021, 36.70622, 36.71206, 36.71756, 36.72168, 36.72408, 36.73473, 36.72769, 36.74125, 
  36.76271, 36.77233, 36.78384, 36.7871, 36.80321, 36.81592, 36.81437, 36.84975, 36.85782, 36.85008, 
  36.84733, 36.84373, 36.80886, 36.79907, 36.79016, 36.78294, 36.77212, 36.76732, 36.76525, 36.77144, 
  36.77814, 36.77968, 36.79307, 36.7965, 36.80131, 36.80354, 36.80337, 36.83085, 36.8947, 36.93953, 
  36.96352, 36.99306, 36.99066, 37.00148, 37.0001, 36.99169, 36.98757, 36.99392, 36.99186, 36.97795, 
  36.96097, 36.90739, 36.89918, 36.88132, 36.86226, 36.82482, 36.78192, 36.76852, 36.76302, 36.76234, 
  36.75461, 36.75034, 36.73866, 36.72922, 36.71909, 36.70792, 36.68577, 36.67151, 36.66005, 36.64975, 
  36.64219, 36.61969, 36.61301, 36.60649, 36.60271, 36.60271, 36.59773, 36.60511, 36.61541, 36.61627, 
  36.62057, 36.62175, 36.63382, 36.72462, 36.73268, 36.74487, 36.74573, 36.81097, 36.86503, 36.92753, 
  37.00219, 37.08769, 37.16116, 37.23908, 37.282, 37.31359, 37.31908, 37.31616, 37.31136, 37.30398, 
  37.29935, 37.29883, 37.29591, 37.2966, 37.33196, 37.34192, 37.34003, 37.38294, 37.38586, 37.38311, 
  37.40336, 37.40835, 37.40784, 37.43924, 37.44456, 37.4511, 37.45642, 37.46191, 37.47427, 37.48251, 
  37.49349, 37.54808, 37.56164, 37.57709, 37.61896, 37.6317, 37.66276, 37.6861, 37.69125, 37.69863, 
  37.7079, 37.72506, 37.75666, 37.76237, 37.76477, 37.79877, 37.80084, 37.79809, 37.80805, 37.78847, 
  37.7895, 37.78504, 37.7859, 37.77559, 37.78143, 37.7938, 37.8053, 37.80547, 37.8175, 37.82042, 
  37.83725, 37.84274, 37.84528, 37.85026, 37.88203, 37.91344, 37.93164, 37.93078, 37.90813, 37.90452, 
  37.93079, 37.94656, 37.97524, 37.9785, 37.98451, 37.98417, 37.99344, 38.00667, 38.02024, 38.02075, 
  38.02934, 38.03312, 38.0271, 38.02848, 38.02384, 38.02298, 38.03535, 38.05284, 38.06572, 38.07636, 
  38.07465, 38.06726, 38.06091, 38.04768, 38.09214, 38.11943, 38.12699, 38.13265, 38.13317, 38.14278, 
  38.14346, 38.15188, 38.15239, 38.17316, 38.19171, 38.2039, 38.2343, 38.2547, 38.28355, 38.30279, 
  38.3213, 38.33762, 38.34311, 38.36836, 38.38842, 38.39323, 38.40096, 38.40834, 38.41882, 38.43599, 
  38.47459, 38.5189, 38.52526, 38.53436, 38.53745, 38.56851, 38.59203, 38.60869, 38.61762, 38.62755, 
  38.6327, 38.65073, 38.65829, 38.66533, 38.67649, 38.69212, 38.69676, 38.70346, 38.7105, 38.73191, 
  38.74531, 38.75372, 38.75785, 38.77587, 38.7927, 38.80831, 38.81982, 38.82514, 38.83441, 38.84145, 
  38.83956, 38.84814, 38.84832, 38.85141, 38.85106, 38.86034, 38.8624, 38.87149, 38.88265, 38.88523, 
  38.88419, 38.9024, 38.90858, 38.93741, 38.93723, 38.96076, 38.97158, 38.98257, 38.99233, 38.99869, 
  39.00281, 39.01226, 39.03113, 39.03319, 39.03079, 39.03834, 39.06256, 39.06634, 39.07733, 39.07784, 
  39.08572, 39.11028, 39.13338, 39.15209, 39.16238, 39.16428, 39.17904, 39.1847, 39.19826, 39.21732, 
  39.22899, 39.24255, 39.26813, 39.28186, 39.29868, 39.33404, 39.34057, 39.35001, 39.40391, 39.41901, 
  39.43189, 39.46399, 39.49936, 39.54964, 39.58381, 39.60716, 39.61986, 39.62896, 39.63565, 39.68166, 
  39.69866, 39.71342, 39.70793, 39.71857, 39.73161, 39.75547, 39.77333, 39.83769, 39.84972, 39.86139, 
  39.88335, 39.90396, 39.92563, 39.93113, 39.94966, 39.95773, 39.97026, 39.98108, 39.99258, 40.00099, 
  40.00871, 40.00637, 40.00929, 40.00792, 40.01598, 40.01049, 40.01478, 40.0208, 40.03607, 40.0359,
  40.04242, 40.0419, 40.04448, 40.04396, 40.06439, 40.09632, 40.09014, 40.09821, 40.09821, 40.10953,
  40.13081, 40.15707, 40.1631, 40.17186, 40.17683, 40.21339, 40.24274, 40.2484, 40.25973, 40.27159,
  40.28223, 40.29853, 40.30608, 40.31415, 40.32874, 40.33356, 40.34437, 40.35467, 40.38951, 40.40032,
  40.41285, 40.42128, 40.42677, 40.43141, 40.43896, 40.44857, 40.46659, 40.47946, 40.49406, 40.49303,
  40.50521, 40.515, 40.52393, 40.53148, 40.53955, 40.56701, 40.56941, 40.57507, 40.58726, 40.59395,
  40.60787, 40.62064, 40.62975, 40.66255, 40.67556, 40.6759, 40.69119, 40.6881, 40.74099, 40.7446,
  40.75642, 40.75762, 40.76689, 40.77153, 40.81752, 40.82731, 40.83847, 40.85496, 40.87196, 40.87625,
  40.89051, 40.8936, 40.89016, 40.89841, 40.89755, 40.89944, 40.89257, 40.89754, 40.90492, 40.90836,
  40.92467, 40.92931, 40.92588, 40.93324, 40.94663, 40.9499, 40.9578, 40.96157, 40.98133, 40.98442,
  40.98969, 41.00343, 41.01321, 41.01373, 41.01853, 41.02987, 41.03639, 41.03828, 41.04378, 41.0467,
  41.05305, 41.07418, 41.08023, 41.09839, 41.09822, 41.10423, 41.09839, 41.10612, 41.11471, 41.12959,
  41.15054, 41.15535, 41.15449, 41.17132, 41.18145, 41.19571, 41.22078, 41.22901, 41.23949, 41.23811,
  41.24945, 41.25786, 41.27641, 41.2762, 41.2805, 41.275, 41.2896, 41.30265, 41.31725, 41.32378,
  41.33975, 41.3388, 41.34652, 41.35819, 41.36437, 41.3781, 41.39355, 41.41551, 41.40882, 41.41638,
  41.41347, 41.44007, 41.46049, 41.50479, 41.54495, 41.56194, 41.57738, 41.58615, 41.59267, 41.61996,
  41.63987, 41.64262, 41.66012, 41.67953, 41.68314, 41.70356, 41.72588, 41.74545, 41.75936, 41.77498,
  41.78236, 41.80433, 41.82601, 41.84775, 41.86527, 41.86167, 41.87969, 41.8826, 41.89084, 41.8917,
  41.90286, 41.89856, 41.91198, 41.94304, 41.95505, 41.97942, 41.99744, 42.01941, 42.02955, 42.03625,
  42.03848, 42.05066, 42.05633, 42.06894, 42.09522, 42.10891, 42.1187, 42.1302, 42.13673, 42.16661,
  42.18001, 42.19323, 42.19714, 42.21518, 42.23046, 42.24798, 42.25536, 42.28624, 42.29311, 42.30187,
  42.33913, 42.35851, 42.38994, 42.40986, 42.41346, 42.44266, 42.44658, 42.4531, 42.44211, 42.45721,
  42.467, 42.47696, 42.48881, 42.49448, 42.51079, 42.55335, 42.57637, 42.59766, 42.6011, 42.61381,
  42.67009, 42.6792, 42.67095, 42.68023, 42.68005, 42.70272, 42.71093, 42.73308, 42.74012, 42.74854,
  42.77653, 42.79508, 42.79594, 42.80636, 42.81014, 42.82422, 42.8596, 42.87746, 42.8742, 42.88227,
  42.8967, 42.90731, 42.93273, 42.92225, 42.92981, 42.96725, 42.98473, 42.99023, 43.0433, 43.0153,
  43.02731, 43.02611, 43.0383, 43.03573, 43.08997, 43.11333, 43.11742, 43.11794, 43.13408, 43.13237,
  43.14216, 43.14301, 43.17373, 43.18729, 43.19844, 43.20394, 43.23279, 43.23829, 43.29101, 43.2999,
  43.31656, 43.33442, 43.33219, 43.36258, 43.38869, 43.41337, 43.44909, 43.46043, 43.47674, 43.49697,
  43.54316, 43.56171, 43.58777, 43.58932, 43.61249, 43.60785, 43.63825, 43.64769, 43.68496, 43.692,
  43.68908, 43.72527, 43.75756, 43.76477, 43.77422, 43.79534, 43.80805, 43.80511, 43.80768, 43.78742,
  43.77781, 43.77094, 43.75807, 43.71531, 43.71514, 43.72887, 43.74467, 43.75515, 43.75291, 43.76972,
  43.78621, 43.78913, 43.80939, 43.81644, 43.82897, 43.8379, 43.87002, 43.87448, 43.91034, 43.91429,
  43.94623, 43.94331, 43.958, 43.96298, 43.97396, 43.97362, 43.99113, 44.00983, 44.05188, 44.0646,
  44.11866, 44.15747, 44.19694, 44.23283, 44.24759, 44.30475, 44.30939, 44.31711, 44.35349, 44.3631,
  44.38627, 44.39144, 44.40123, 44.40946, 44.41616, 44.51795, 44.52155, 44.51022, 44.51211, 44.49958,
  44.50816, 44.51108, 44.53426, 44.55297, 44.57992, 44.60205, 44.64532, 44.68256, 44.69975, 44.71348,
  44.72824, 44.74112, 44.75347, 44.74403, 44.74713, 44.75674, 44.75502, 44.76481, 44.76601, 44.77425,
  44.80205, 44.82968, 44.8211, 44.83029, 44.83732, 44.85363, 44.87029, 44.86425, 44.87095, 44.86769,
  44.87954, 44.88538, 44.94528, 44.98049, 44.98355, 44.99317, 44.99557, 45.03267, 45.03265, 45.05103,
  45.067, 45.07129, 45.08675, 45.10732, 45.1324, 45.15816, 45.19093, 45.21721, 45.2517, 45.25547,
  45.28226, 45.28278, 45.29205, 45.29514, 45.30989, 45.31401, 45.32621, 45.32569, 45.33753, 45.35539,
  45.39798, 45.40241, 45.42027, 45.43195, 45.45325, 45.46613, 45.47328, 45.50025, 45.52498, 45.54232,
  45.57581, 45.59711, 45.59745, 45.61475, 45.63433, 45.64927, 45.68431, 45.6991, 45.7228, 45.77498,
  45.7743, 45.78117, 45.77431, 45.73412, 45.74304, 45.74167, 45.75678, 45.75335, 45.74476, 45.7403,
  45.72072, 45.70286, 45.68774, 45.66899, 45.65305, 45.61876, 45.62185, 45.6088, 45.60708, 45.62082,
  45.64966, 45.67336, 45.72007, 45.72316, 45.74755, 45.73724, 45.76913, 45.76948, 45.78768, 45.80383,
  45.82375, 45.85672, 45.88172, 45.89546, 45.92157, 45.91057, 45.9346, 45.9267, 45.94112, 45.95521,
  45.98406, 46.00364, 46.02253, 46.0239, 46.04554, 46.07371, 46.08498, 46.08395, 46.10696, 46.12792,
  46.14877, 46.15643, 46.23405, 46.25836, 46.24222, 46.2697, 46.26558, 46.28241, 46.28035, 46.32323,
  46.33456, 46.35414, 46.35655, 46.39776, 46.40448, 46.42156, 46.42087, 46.42654, 46.42207,
  46.42341, 46.43131, 46.44144, 46.43714, 46.4459, 46.45968, 
  46.46168, 46.55929, 38.52365)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_2, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, st_union(Geo_0[c(1:236, 274)]))
Geo_2 <- st_union(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(46.76138, 46.75892, 46.76115, 46.76009, 46.76715, 46.76785, 46.76938, 46.76973, 46.77067, 46.77185)
LONGITUDE_VALUEs <- c(38.3239, 38.32218, 38.33437, 38.34432, 38.34364, 38.34896, 38.35101, 38.35719, 38.34878, 38.34003)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(46.22452, 46.22024, 46.22024, 46.22463, 46.22642)
LONGITUDE_VALUEs <- c(38.27242, 38.27173, 38.28065, 38.28357, 38.27842)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

##### AZERBAIJAN #####
Geo_0 <- Geometric_Operations(Geo_3, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0))
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(
  41.86928, 41.86269, 41.86959, 41.87905, 41.89336, 41.89451, 41.90841,
  41.89873, 41.8894, 41.87317, 41.85757, 41.8444, 41.80974, 41.79515, 41.78939, 41.77544, 41.7698,
  41.75546, 41.7634, 41.77288, 41.76916, 41.7488, 41.73945, 41.71178, 41.70691, 41.69909, 41.69666,
  41.67833, 41.66243, 41.65781, 41.65127, 41.64845, 41.6378, 41.62599, 41.62869, 41.61432, 41.61303,
  41.607, 41.6043, 41.59545, 41.59699, 41.61201, 41.60803, 41.62266, 41.62112, 41.63498, 41.62317,
  41.6129, 41.60764, 41.59917, 41.60058, 41.59686, 41.6088, 41.6088, 41.59699, 41.59801, 41.59162,
  41.5758, 41.57105, 41.56694, 41.58081, 41.57644, 41.56977, 41.56784, 41.57721, 41.574, 41.55872,
  41.55384, 41.54061, 41.53662, 41.53405, 41.52853, 41.52686, 41.52172, 41.5001, 41.50102, 41.49254,
  41.49511, 41.48803, 41.49022, 41.48289, 41.48302, 41.47993, 41.47826, 41.47247, 41.47003, 41.48173,
  41.46951, 41.45601, 41.45292, 41.46012, 41.45627, 41.44842, 41.43532, 41.43532, 41.42863, 41.4294,
  41.42374, 41.4155, 41.41086, 41.40649, 41.39876, 41.39387, 41.38228, 41.37815, 41.39078, 41.38846,
  41.37815, 41.38099, 41.37197, 41.36218, 41.35368, 41.37094, 41.36991, 41.34801, 41.34955, 41.33692,
  41.34053, 41.32713, 41.3297, 41.32197, 41.32042, 41.30521, 41.29515, 41.28741, 41.26057, 41.25515,
  41.23295, 41.23295, 41.20222, 41.17277, 41.16036, 41.13296, 41.09856, 41.0983, 41.11175, 41.11278,
  41.05456, 41.06411, 41.09956, 41.10474, 41.10034, 41.10474, 41.12026, 41.17532, 41.19005, 41.18308,
  41.20529, 41.17222, 41.17403, 41.18333, 41.19057, 41.17687, 41.19341, 41.21304, 41.22182, 41.25254,
  41.25771, 41.27784, 41.29718, 41.34463, 41.33792, 41.3521, 41.36164, 41.35545, 41.35597, 41.37967,
  41.37349, 41.38972, 41.40955, 41.42062, 41.45768, 41.42989, 41.42731, 41.45356, 41.47286, 41.46231,
  41.46797, 41.44764, 41.41727, 41.42422, 41.42036, 41.41264, 41.33921, 41.34643, 41.33844, 41.32813,
  41.32555, 41.30982, 41.30516, 41.29665,
  41.27556, 41.26601, 41.25749, 41.24962, 41.24704, 41.24188, 41.21476, 41.21825, 41.20689, 41.19474, 
  41.20534, 41.19668, 41.18635, 41.1879, 41.17924, 41.17911, 41.19061, 41.20043, 41.19681, 41.20559, 
  41.2034, 41.19526, 41.19216, 41.18441, 41.17834, 41.16787, 41.16412, 41.14021, 41.13052, 41.11914, 
  41.1234, 41.1137, 41.11409, 41.11164, 41.11526, 41.11164, 41.12069, 41.11241, 41.10607, 41.10336, 
  41.09818, 41.10064, 41.08525, 41.0802, 41.07231, 41.06907, 41.05082, 41.05496, 41.05354, 41.0582, 
  41.0648, 41.06247, 41.05626, 41.05004, 41.04732, 41.04538, 41.04965, 41.05613, 41.06014, 41.05833, 
  41.06454, 41.07269, 41.08356, 41.09353, 41.08576, 41.07852, 41.07062, 41.06907, 41.06687, 41.05613, 
  41.04849, 41.05056, 41.0459, 41.04681, 41.05263, 41.04953, 41.04409, 41.03878, 41.02466, 41.02661, 
  41.01301, 41.01469, 41.00692, 41.00433, 41.02454, 41.04059, 41.02402, 41.01197, 40.99992, 41.00575, 
  40.99954, 41.00018, 40.9963, 41.00912, 41.01379, 41.01327, 41.02479, 41.02121, 41.02207, 41.01651, 
  41.01184, 41.00511, 40.9871, 40.97932, 40.96131, 40.95975, 40.96532, 40.96494, 40.97116, 40.95456, 
  40.93952, 40.93174, 40.92254, 40.92215, 40.92694, 40.92098, 40.91644, 40.90632, 40.90632, 40.89789, 
  40.89983, 40.89841, 40.89931, 40.89205, 40.88673, 40.88361, 40.88439, 40.89205, 40.88308, 40.87464, 
  40.8675, 40.85114, 40.84166, 40.83816, 40.83244, 40.8266, 40.82153, 40.81841, 40.81101, 40.80529, 
  40.80126, 40.7741, 40.77124, 40.75369, 40.75096, 40.75642, 40.74875, 40.74562, 40.73158, 40.73119, 
  40.72325, 40.71584, 40.70998, 40.70035, 40.69593, 40.70777, 40.69202, 40.68994, 40.68473, 40.67757, 
  40.67223, 40.66663, 40.65426, 40.62821, 40.61675, 40.59811, 40.60137, 40.57973, 40.56332, 40.55208, 
  40.54752, 40.54752, 40.54074, 40.53526, 40.52012, 40.5132, 40.49911, 40.49023, 40.49036, 40.45576, 
  40.45732, 40.44674, 40.42662, 40.43159, 40.42336, 40.41329, 40.3963, 40.38354, 40.37858, 40.36654, 
  40.36602, 40.35111, 40.35163, 40.32729, 40.30635, 40.29637, 40.29245, 40.29768, 40.28511, 40.27621, 
  40.25106, 40.25866, 40.25053, 40.22904, 40.19103, 40.1766, 40.16663, 40.15325, 40.13672, 40.1207, 
  40.11545, 40.10285, 40.10442, 40.08972, 40.08683, 40.02008, 40.02323, 40.01561, 39.98905, 40.02875, 
  40.02271, 40.03086, 40.02428, 40.03243, 40.01903, 40.02008, 40.01324, 39.99431, 39.99247, 39.97326, 
  39.97563, 39.96984, 39.96905, 39.94616, 39.94747, 39.93457, 39.91693, 39.90561, 39.89534, 39.88243, 
  39.8632, 39.84053, 39.82497, 39.82234, 39.81179, 39.80256, 39.78673, 39.79201, 39.76172, 39.75143, 
  39.74456, 39.7245, 39.71598, 39.70013, 39.69458, 39.69418, 39.69009, 39.68903, 39.67648, 39.68533, 
  39.68692, 39.68177, 39.65534, 39.65098, 39.63816, 39.63353, 39.61978, 39.61436, 39.5797, 39.57957, 
  39.60298, 39.60087, 39.60629, 39.60854, 39.62123, 39.63591, 39.63366, 39.63855, 39.63406, 39.61899, 
  39.61793, 39.63194, 39.63062, 39.59531, 39.58063, 39.56819, 39.57899, 39.57282, 39.58751, 39.58367, 
  39.57904, 39.56965, 39.57203, 39.54953, 39.54212, 39.52848, 39.52901, 39.54198, 39.54635, 39.53603, 
  39.51855, 39.50968, 39.50398, 39.48676, 39.48583, 39.47245, 39.46728, 39.47431, 39.47404, 39.48424, 
  39.48133, 39.48371, 39.47364, 39.44581, 39.45933, 39.4531, 39.45748, 39.4531, 39.44223, 39.44104, 
  39.43547, 39.4177, 39.39847, 39.39224, 39.38839, 39.38003, 39.36862, 39.36636, 39.36185, 39.36119, 
  39.34247, 39.33849, 39.33782, 39.33158, 39.33185, 39.34074, 39.34486, 39.34035, 39.32747, 39.32083, 
  39.31538, 39.30941, 39.3033, 39.30117, 39.25506, 39.25519, 39.23592, 39.23525, 39.23073, 39.22249, 
  39.21717, 39.20892, 39.20373, 39.19894, 39.20227, 39.19682, 39.1879, 39.17845, 39.16461, 39.15876, 
  39.19535, 39.19801, 39.21318, 39.19535, 39.1895, 39.18458, 39.17872, 39.17726, 39.18364, 39.20067, 
  39.20094, 39.18777, 39.17167, 39.1702, 39.15463, 39.15996, 39.1517, 39.14664, 39.1521, 39.15104, 
  39.14052, 39.13732, 39.13333, 39.13293, 39.12413, 39.12493, 39.10455, 39.10335, 39.09949, 39.09576, 
  39.08363, 39.07057, 39.0723, 39.06484, 39.06084, 39.06324, 39.05991, 39.04778, 39.04498, 39.02564, 
  39.00164, 38.9955, 38.99563, 38.98402, 38.97081, 38.96054, 38.94585, 38.92863, 38.92369, 38.90539, 
  38.89844, 38.89497, 38.87626, 38.87305, 38.86731, 38.87106, 38.87742, 
  38.88072, 40.38068, 41.28499)
LONGITUDE_VALUEs <- c(
  46.45968, 46.4459, 46.43714, 46.44144, 46.43131, 46.42341, 46.42207,
  46.41792, 46.40745, 46.4174, 46.40247, 46.39989, 46.33776, 46.32316, 46.30394, 46.30394, 46.25226,
  46.24145, 46.21571, 46.20352, 46.20061, 46.19889, 46.18223, 46.17828, 46.18395, 46.18258, 46.18824,
  46.1891, 46.20815, 46.20472, 46.20798, 46.19442, 46.20094, 46.19322, 46.20781, 46.20386, 46.22171,
  46.22171, 46.23716, 46.2375, 46.24969, 46.24814, 46.25552, 46.25175, 46.26651, 46.26377, 46.27664,
  46.27938, 46.26703, 46.28145, 46.2878, 46.3005, 46.30445, 46.32435, 46.32212, 46.33259, 46.34031,
  46.33723, 46.34522, 46.33852, 46.32169, 46.31001, 46.31379, 46.30503, 46.30469, 46.2973, 46.30538,
  46.3004, 46.30984, 46.30383, 46.32598, 46.31997, 46.33457, 46.32495, 46.33102, 46.34161, 46.34487,
  46.35741, 46.35844, 46.38417, 46.38641, 46.40461, 46.40444, 46.39345, 46.39207, 46.40186, 46.40976,
  46.43089, 46.42436, 46.43808, 46.44546, 46.45062, 46.44117, 46.46642, 46.47879, 46.47295, 46.48566,
  46.48532, 46.52138, 46.52207, 46.57016, 46.56913, 46.61447, 46.60966, 46.62065, 46.62855, 46.63404,
  46.6258, 46.6392, 46.64366, 46.6234, 46.64847, 46.65053, 46.66152, 46.655, 46.67041, 46.6656,
  46.68724, 46.68552, 46.70304, 46.70235, 46.68724, 46.7037, 46.6982, 46.73736, 46.69648, 46.70544,
  46.69307, 46.67727, 46.65735, 46.66697, 46.65083, 46.65839, 46.6371, 46.60447, 46.58215, 46.54917,
  46.49496, 46.46784, 46.45788, 46.42696, 46.39296, 46.36891, 46.36857, 46.28966, 46.27832, 46.25016,
  46.13681, 46.10116, 46.08158, 46.08261, 46.06372, 45.95355, 45.90718, 45.88657, 45.80997, 45.7582,
  45.74137, 45.72797, 45.7005, 45.73931, 45.75546, 45.76026, 45.71115, 45.70153, 45.6792, 45.64348,
  45.57753, 45.58139, 45.56216, 45.51613, 45.45842, 45.42717, 45.38664, 45.36508, 45.30978, 45.28814,
  45.25929, 45.25105, 45.1965, 45.17589, 45.17108, 45.17417, 45.09247, 45.08148, 45.07289, 45.07255,
  45.054, 45.04438, 45.02222, 45.01518,
  45.02344, 45.04369, 45.04147, 45.04747, 45.06344, 45.05417, 45.04575, 45.03048, 45.02241, 45.0255, 
  45.0509, 45.04867, 45.06636, 45.0758, 45.07717, 45.09399, 45.09914, 45.11288, 45.11734, 45.11923, 
  45.12884, 45.13056, 45.1424, 45.14481, 45.1606, 45.16111, 45.20007, 45.20557, 45.18463, 45.17657, 
  45.15666, 45.14911, 45.1309, 45.12506, 45.11854, 45.10601, 45.09829, 45.09022, 45.09005, 45.07872, 
  45.07546, 45.07117, 45.07803, 45.07391, 45.07597, 45.06756, 45.06069, 45.0818, 45.09296, 45.09262, 
  45.09982, 45.11124, 45.10093, 45.10694, 45.10042, 45.10196, 45.11536, 45.11158, 45.11965, 45.12343, 
  45.1315, 45.12927, 45.13286, 45.132, 45.15879, 45.16446, 45.1624, 45.16634, 45.15912, 45.16427, 
  45.16479, 45.17733, 45.17922, 45.18368, 45.18265, 45.19347, 45.19605, 45.21371, 45.21852, 45.22917, 
  45.23329, 45.24995, 45.25132, 45.26025, 45.26008, 45.28752, 45.30107, 45.30382, 45.31635, 45.33748, 
  45.34023, 45.35362, 45.36324, 45.36874, 45.3833, 45.39446, 45.39601, 45.40563, 45.42417, 45.43963, 
  45.43928, 45.42572, 45.407, 45.41695, 45.42004, 45.42931, 45.43344, 45.44512, 45.45387, 45.46416, 
  45.48374, 45.47327, 45.48237, 45.49216, 45.50075, 45.51739, 45.5167, 45.52649, 45.53113, 45.54244, 
  45.54622, 45.55309, 45.55704, 45.56081, 45.55618, 45.56116, 45.57043, 45.58056, 45.60235, 45.60218, 
  45.59686, 45.60922, 45.59891, 45.60046, 45.59359, 45.59514, 45.59223, 45.58622, 45.58227, 45.57265, 
  45.57231, 45.54416, 45.50637, 45.48971, 45.4746, 45.4667, 45.46124, 45.42844, 45.41934, 45.40371, 
  45.4046, 45.39584, 45.40718, 45.40495, 45.39258, 45.3773, 45.38039, 45.37283, 45.37919, 45.37593, 
  45.37662, 45.36717, 45.36357, 45.39791, 45.38864, 45.4046, 45.42487, 45.46142, 45.43701, 45.4506, 
  45.44923, 45.43617, 45.43033, 45.43618, 45.43807, 45.44974, 45.45369, 45.46725, 45.48442, 45.51241, 
  45.52065, 45.52406, 45.56442, 45.58812, 45.59993, 45.60423, 45.63634, 45.63649, 45.64645, 45.64851, 
  45.69557, 45.72437, 45.7467, 45.78964, 45.87997, 45.87991, 45.89845, 45.92765, 45.93521, 45.95994, 
  45.95546, 45.9352, 45.93348, 45.9771, 45.97845, 45.96849, 45.97433, 45.95958, 45.95375, 45.96233, 
  45.92214, 45.91321, 45.90257, 45.90464, 45.91666, 45.88096, 45.87168, 45.85248, 45.83599, 45.79065, 
  45.77725, 45.73947, 45.71405, 45.67833, 45.66081, 45.62897, 45.60836, 45.60012, 45.61282, 45.61075, 
  45.65678, 45.66537, 45.69868, 45.73193, 45.77933, 45.80131, 45.80543, 45.78792, 45.79271, 45.81126, 
  45.81126, 45.82463, 45.82532, 45.86276, 45.87341, 45.90741, 45.9373, 45.97089, 46.00247, 46.00521, 
  46.02823, 46.03475, 46.0541, 46.06903, 46.0656, 46.05753, 46.05702, 46.06405, 46.07675, 46.07898, 
  46.09546, 46.10423, 46.12997, 46.15554, 46.16104, 46.17168, 46.16276, 46.17271, 46.17581, 46.18199, 
  46.19727, 46.25081, 46.25684, 46.2764, 46.29305, 46.34093, 46.34917, 46.35981, 46.37595, 46.37183, 
  46.39107, 46.40754, 46.41286, 46.42059, 46.41166, 46.43449, 46.4414, 46.45869, 46.48634, 46.52444, 
  46.52427, 46.55741, 46.56531, 46.58195, 46.58058, 46.58985, 46.58161, 46.57372, 46.54317, 46.54471, 
  46.49767, 46.50968, 46.50694, 46.52135, 46.53156, 46.53929, 46.53328, 46.524, 46.51439, 46.50236, 
  46.49549, 46.48158, 46.4835, 46.45104, 46.42373, 46.40862, 46.39488, 46.38801, 46.3944, 46.38479, 
  46.37981, 46.39148, 46.38531, 46.39492, 46.38737, 46.40317, 46.40437, 46.4126, 46.40727, 46.41929, 
  46.45021, 46.45021, 46.46201, 46.46785, 46.48124, 46.48605, 46.49773, 46.5101, 46.51388, 46.5283, 
  46.52796, 46.53792, 46.53466, 46.5192, 46.55199, 46.57535, 46.58682, 46.61224, 46.63405, 46.61774, 
  46.5736, 46.57035, 46.5877, 46.58512, 46.57156, 46.56675, 46.56829, 46.54546, 46.54409, 46.53653, 
  46.53036, 46.51902, 46.51507, 46.49738, 46.51026, 46.50391, 46.51061, 46.50683, 46.50013, 46.46338, 
  46.44878, 46.43178, 46.43576, 46.43971, 46.43971, 46.45843, 46.4574, 46.46942, 46.48333, 46.49724, 
  46.49656, 46.48316, 46.48365, 46.49224, 46.49482, 46.50478, 46.50237, 46.51403, 46.51523, 46.52914, 
  46.53704, 46.52897, 46.52364, 46.51437, 46.51798, 46.52931, 46.55421, 46.5494, 46.53892, 46.53566, 
  46.54768, 46.53583, 46.51745, 46.51747, 46.52486, 46.50751, 46.50752, 46.51885, 46.52967, 46.53739, 
  46.53722, 46.53206, 46.53464, 46.53258, 46.53378, 46.54075, 46.54346, 
  46.54825, 47.12974, 46.75118)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_3, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_0 <- st_union(Geo_0)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_3 <- st_set_geometry(Geo_3, st_union(Geo_0[c(1, 5:7)]))
Geo_3 <- st_union(Geo_3, Geo)
LATITUDE_VALUEs <- c(
  38.84452, 38.84679, 38.84679, 38.85094, 38.85869, 38.86511, 38.87045, 38.88769, 38.88783, 38.8762,
  38.87206, 38.875, 38.87139, 38.87567, 38.87633, 38.89063, 38.88849, 38.89651, 38.87273, 38.87673,
  38.88542, 38.89277, 38.90185, 38.91054, 38.90185, 38.91414, 38.92469, 38.92363, 38.92937, 38.92763,
  38.93805, 38.94512, 38.94366, 38.9522, 38.94593, 38.94633, 38.95233, 38.95193, 38.94646, 38.94255,
  38.95781, 38.95687, 38.96208, 38.96795, 38.97863, 38.97623, 38.96915, 38.96355, 38.98743, 38.99237,
  39.00985, 39.03119, 39.03932, 39.05039, 39.05572, 39.05185, 39.07824, 39.09183, 39.10702, 39.11155,
  39.12899, 39.14697, 39.17146, 39.16534, 39.1708, 39.1833, 39.19355, 39.20313, 39.18809, 39.18344,
  39.18583, 39.18557, 39.19382, 39.19421, 39.20885, 39.20379, 39.20472, 39.2135, 39.2155, 39.22095,
  39.22294, 39.21603, 39.20592, 39.2295, 39.24063, 39.25033, 39.26403, 39.26974, 39.2817, 39.28914,
  39.28595, 39.2902, 39.29459, 39.30404, 39.3096, 39.3339, 39.32885, 39.33443, 39.3493, 39.36018,
  39.36417, 39.38155, 39.38288, 39.37903, 39.38221, 39.39123, 39.38991, 39.4053, 39.40463, 39.41047,
  39.40861, 39.41736, 39.42134, 39.43169, 39.4407, 39.44561, 39.45144, 39.4521, 39.46072, 39.47158,
  39.4802, 39.48311, 39.48656, 39.49026, 39.48761, 39.49305, 39.50378, 39.51199, 39.51146, 39.52589,
  39.53344, 39.53966, 39.54919, 39.55844, 39.56691, 39.57736, 39.58028, 39.5853, 39.59853, 39.60647,
  39.60237, 39.59694, 39.59316, 39.60091, 39.60845, 39.61639, 39.61401, 39.60409, 39.60237, 39.61242,
  39.61017, 39.6189, 39.62749, 39.63901, 39.64218, 39.65632, 39.65513, 39.65923, 39.67231, 39.66967,
  39.68434, 39.68513, 39.69134, 39.69477, 39.70256, 39.7019, 39.70468, 39.71287, 39.71485,
  39.71868, 39.73227, 39.73148, 39.73637, 39.7365, 39.74877, 39.74125, 39.72805, 39.72673, 39.74759, 
  39.75009, 39.76619, 39.76844, 39.78255, 39.78348, 39.7906, 39.791, 39.79416, 39.78757, 39.78743, 
  39.77899, 39.7753, 39.77134, 39.7596, 39.74745, 39.74508, 39.73359, 39.73214, 39.71009, 39.69622, 
  39.68711, 39.68394, 39.67628, 39.66703, 39.65143, 39.64905, 39.62645, 39.61018, 39.60489, 39.59206, 
  39.58055, 39.58783, 39.60238, 39.61349, 39.61204, 39.58227, 39.57434, 39.56084, 39.55925, 39.54919, 
  39.54019, 39.53741, 39.52483, 39.52404, 39.50179, 39.5047, 39.48987, 39.51278, 39.5202, 39.52583, 
  39.52708, 39.54509, 39.54787, 39.54204, 39.56812, 39.56997, 39.56124, 39.56865, 39.56798, 39.58307, 
  39.58532, 39.59206, 39.60344, 39.60013, 39.60304, 39.59167, 39.59484, 39.58532, 39.58479, 39.57725, 
  39.56891, 39.57195, 39.56216, 39.55316, 39.53926, 39.52775, 39.52682, 39.51397, 39.5051, 39.4855, 
  39.46814, 39.45873, 39.45223, 39.4289, 39.4297, 39.36934, 39.35779, 39.35979, 39.3408, 39.33244, 
  39.31703, 39.3088, 39.29485, 39.29552, 39.29166, 39.25577, 39.2454, 39.22359, 39.21296, 39.16479, 
  39.14975, 39.14096, 39.12339, 39.1158, 39.10621, 39.10288, 39.09168, 39.07716, 39.06102, 39.05356, 
  39.02849, 39.02636, 39.01595, 38.98554, 38.97726, 38.95217, 38.94683, 38.94042, 38.93588, 38.92797, 
  38.91505, 38.91213, 38.89034, 38.87314, 38.86696, 38.85977, 38.85213)
LONGITUDE_VALUEs <- c(
  46.14083, 46.13637, 46.12762, 46.12848, 46.112, 46.11338, 46.08127, 46.06514, 46.05724, 46.05278,
  46.03956, 46.03339, 46.00593, 45.99972, 45.98222, 45.96557, 45.9575, 45.94274, 45.91923, 45.89381,
  45.8916, 45.86086, 45.86378, 45.8437, 45.83083, 45.80009, 45.80009, 45.77263, 45.76182, 45.73676,
  45.71443, 45.70928, 45.6983, 45.69332, 45.6765, 45.66775, 45.66089, 45.6463, 45.64372, 45.61657,
  45.61504, 45.60543, 45.60114, 45.58346, 45.58328, 45.56715, 45.56663, 45.54483, 45.48407, 45.44888,
  45.43583, 45.45145, 45.45007, 45.45856, 45.45049, 45.43813, 45.39931, 45.40277, 45.38422, 45.36945,
  45.35108, 45.36345, 45.34868, 45.30488, 45.30388, 45.32827, 45.32449, 45.30354, 45.29701, 45.28413,
  45.27211, 45.24721, 45.23625, 45.23076, 45.21633, 45.20345, 45.19915, 45.19692, 45.1899, 45.18441,
  45.17084, 45.16844, 45.14955, 45.14736, 45.15315, 45.14613, 45.14905, 45.13376, 45.14355, 45.136,
  45.11882, 45.11676, 45.12982, 45.1263, 45.10767, 45.1015, 45.08827, 45.07952, 45.0893, 45.07422,
  45.05635, 45.0591, 45.0524, 45.04571, 45.04193, 45.04038, 45.03368, 45.01825, 45.0088, 45.00571,
  44.99815, 44.98751, 44.96363, 44.96555, 44.95936, 44.97843, 44.97602, 44.94803, 44.93858, 44.94871,
  44.93602, 44.95079, 44.93774, 44.93894, 44.95113, 44.95165, 44.93981, 44.93689, 44.92882, 44.90838,
  44.92006, 44.90632, 44.91113, 44.90753, 44.91578, 44.90393, 44.88778, 44.88778, 44.90135, 44.89568,
  44.89122, 44.89345, 44.87324, 44.8725, 44.88143, 44.87507, 44.86649, 44.86683, 44.85446, 44.83712,
  44.82132, 44.81207, 44.80915, 44.80738, 44.8151, 44.81699, 44.8036, 44.79691, 44.80686, 44.79381,
  44.80205, 44.78403, 44.78815, 44.7794, 44.78026, 44.76411, 44.76308, 44.77012, 44.76566,
  44.7734, 44.83364, 44.84137, 44.85081, 44.87689, 44.88564, 44.90332, 44.90538, 44.94574, 44.98746, 
  45.00617, 45.01235, 45.03431, 45.03981, 45.04719, 45.04787, 45.05577, 45.06023, 45.07001, 45.07997, 
  45.0894, 45.10176, 45.09987, 45.121, 45.12615, 45.13473, 45.13267, 45.13697, 45.14709, 45.16873, 
  45.17285, 45.18589, 45.18709, 45.17233, 45.1749, 45.18658, 45.17285, 45.17439, 45.17971, 45.17199, 
  45.21077, 45.22605, 45.22347, 45.25145, 45.30845, 45.29815, 45.3088, 45.3124, 45.32991, 45.34261, 
  45.34192, 45.39555, 45.42028, 45.43728, 45.44654, 45.46509, 45.47316, 45.49184, 45.51606, 45.51819, 
  45.52808, 45.53648, 45.54799, 45.56156, 45.57598, 45.60312, 45.61836, 45.62609, 45.63365, 45.65629, 
  45.67501, 45.67758, 45.69544, 45.71331, 45.7279, 45.73529, 45.74937, 45.75964, 45.78214, 45.77905, 
  45.78677, 45.79862, 45.80566, 45.80429, 45.81612, 45.81664, 45.82042, 45.8187, 45.8266, 45.81218, 
  45.83846, 45.84172, 45.82747, 45.81613, 45.80428, 45.79003, 45.82521, 45.8532, 45.8913, 45.89422, 
  45.9387, 45.93938, 45.9749, 45.98537, 45.99946, 46.0053, 45.98641, 45.99122, 45.98659, 46.00736, 
  46.00341, 46.02193, 46.02657, 46.01609, 46.02021, 46.02725, 46.03155, 46.07036, 46.07194, 46.07641, 
  46.07641, 46.09221, 46.10182, 46.10148, 46.11247, 46.10937, 46.12208, 46.12105, 46.12723, 46.12484, 
  46.12874, 46.13797, 46.15024, 46.14375, 46.14505, 46.14288, 46.1475)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_3 <- st_union(Geo_3, Geo) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}

##### ARMENIA #####
LATITUDE_VALUEs <- c(
  41.29665, 41.27556, 41.26601, 41.25749, 41.24962, 41.24704, 41.24188, 41.21476, 41.21825, 41.20689, 
  41.19474, 41.20534, 41.19668, 41.18635, 41.1879, 41.17924, 41.17911, 41.19061, 41.20043, 41.19681, 
  41.20559, 41.2034, 41.19526, 41.19216, 41.18441, 41.17834, 41.16787, 41.16412, 41.14021, 41.13052, 
  41.11914, 41.1234, 41.1137, 41.11409, 41.11164, 41.11526, 41.11164, 41.12069, 41.11241, 41.10607, 
  41.10336, 41.09818, 41.10064, 41.08525, 41.0802, 41.07231, 41.06907, 41.05082, 41.05496, 41.05354, 
  41.0582, 41.0648, 41.06247, 41.05626, 41.05004, 41.04732, 41.04538, 41.04965, 41.05613, 41.06014, 
  41.05833, 41.06454, 41.07269, 41.08356, 41.09353, 41.08576, 41.07852, 41.07062, 41.06907, 41.06687, 
  41.05613, 41.04849, 41.05056, 41.0459, 41.04681, 41.05263, 41.04953, 41.04409, 41.03878, 41.02466, 
  41.02661, 41.01301, 41.01469, 41.00692, 41.00433, 41.02454, 41.04059, 41.02402, 41.01197, 40.99992, 
  41.00575, 40.99954, 41.00018, 40.9963, 41.00912, 41.01379, 41.01327, 41.02479, 41.02121, 41.02207, 
  41.01651, 41.01184, 41.00511, 40.9871, 40.97932, 40.96131, 40.95975, 40.96532, 40.96494, 40.97116, 
  40.95456, 40.93952, 40.93174, 40.92254, 40.92215, 40.92694, 40.92098, 40.91644, 40.90632, 40.90632, 
  40.89789, 40.89983, 40.89841, 40.89931, 40.89205, 40.88673, 40.88361, 40.88439, 40.89205, 40.88308, 
  40.87464, 40.8675, 40.85114, 40.84166, 40.83816, 40.83244, 40.8266, 40.82153, 40.81841, 40.81101, 
  40.80529, 40.80126, 40.7741, 40.77124, 40.75369, 40.75096, 40.75642, 40.74875, 40.74562, 40.73158, 
  40.73119, 40.72325, 40.71584, 40.70998, 40.70035, 40.69593, 40.70777, 40.69202, 40.68994, 40.68473, 
  40.67757, 40.67223, 40.66663, 40.65426, 40.62821, 40.61675, 40.59811, 40.60137, 40.57973, 40.56332, 
  40.55208, 40.54752, 40.54752, 40.54074, 40.53526, 40.52012, 40.5132, 40.49911, 40.49023, 40.49036, 
  40.45576, 40.45732, 40.44674, 40.42662, 40.43159, 40.42336, 40.41329, 40.3963, 40.38354, 40.37858, 
  40.36654, 40.36602, 40.35111, 40.35163, 40.32729, 40.30635, 40.29637, 40.29245, 40.29768, 40.28511, 
  40.27621, 40.25106, 40.25866, 40.25053, 40.22904, 40.19103, 40.1766, 40.16663, 40.15325, 40.13672, 
  40.1207, 40.11545, 40.10285, 40.10442, 40.08972, 40.08683, 40.02008, 40.02323, 40.01561, 39.98905, 
  40.02875, 40.02271, 40.03086, 40.02428, 40.03243, 40.01903, 40.02008, 40.01324, 39.99431, 39.99247, 
  39.97326, 39.97563, 39.96984, 39.96905, 39.94616, 39.94747, 39.93457, 39.91693, 39.90561, 39.89534, 
  39.88243, 39.8632, 39.84053, 39.82497, 39.82234, 39.81179, 39.80256, 39.78673, 39.79201, 39.76172, 
  39.75143, 39.74456, 39.7245, 39.71598, 39.70013, 39.69458, 39.69418, 39.69009, 39.68903, 39.67648, 
  39.68533, 39.68692, 39.68177, 39.65534, 39.65098, 39.63816, 39.63353, 39.61978, 39.61436, 39.5797, 
  39.57957, 39.60298, 39.60087, 39.60629, 39.60854, 39.62123, 39.63591, 39.63366, 39.63855, 39.63406, 
  39.61899, 39.61793, 39.63194, 39.63062, 39.59531, 39.58063, 39.56819, 39.57899, 39.57282, 39.58751, 
  39.58367, 39.57904, 39.56965, 39.57203, 39.54953, 39.54212, 39.52848, 39.52901, 39.54198, 39.54635, 
  39.53603, 39.51855, 39.50968, 39.50398, 39.48676, 39.48583, 39.47245, 39.46728, 39.47431, 39.47404, 
  39.48424, 39.48133, 39.48371, 39.47364, 39.44581, 39.45933, 39.4531, 39.45748, 39.4531, 39.44223, 
  39.44104, 39.43547, 39.4177, 39.39847, 39.39224, 39.38839, 39.38003, 39.36862, 39.36636, 39.36185, 
  39.36119, 39.34247, 39.33849, 39.33782, 39.33158, 39.33185, 39.34074, 39.34486, 39.34035, 39.32747, 
  39.32083, 39.31538, 39.30941, 39.3033, 39.30117, 39.25506, 39.25519, 39.23592, 39.23525, 39.23073, 
  39.22249, 39.21717, 39.20892, 39.20373, 39.19894, 39.20227, 39.19682, 39.1879, 39.17845, 39.16461, 
  39.15876, 39.19535, 39.19801, 39.21318, 39.19535, 39.1895, 39.18458, 39.17872, 39.17726, 39.18364, 
  39.20067, 39.20094, 39.18777, 39.17167, 39.1702, 39.15463, 39.15996, 39.1517, 39.14664, 39.1521, 
  39.15104, 39.14052, 39.13732, 39.13333, 39.13293, 39.12413, 39.12493, 39.10455, 39.10335, 39.09949, 
  39.09576, 39.08363, 39.07057, 39.0723, 39.06484, 39.06084, 39.06324, 39.05991, 39.04778, 39.04498, 
  39.02564, 39.00164, 38.9955, 38.99563, 38.98402, 38.97081, 38.96054, 38.94585, 38.92863, 38.92369, 
  38.90539, 38.89844, 38.89497, 38.87626, 38.87305, 38.86731,
  38.86925, 38.87727, 38.88823, 38.88956, 38.88529, 38.8901, 38.88542, 38.88863, 38.89891, 38.89397, 
  38.88302, 38.88382, 38.89277, 38.90573, 38.9084, 38.91668, 38.91668, 38.91054, 38.90119, 38.90629, 
  38.90119, 38.90076, 38.89261, 38.88633, 38.87056, 38.86468, 38.85452, 38.85198, 38.84101, 38.84061,
  38.84329, 38.84128, 38.84342, 38.84155, 38.84208,
  38.84452, 38.85213, 38.85977, 38.86696, 38.87314, 38.89034, 38.91213, 38.91505, 38.92797, 38.93588, 
  38.94042, 38.94683, 38.95217, 38.97726, 38.98554, 39.01595, 39.02636, 39.02849, 39.05356, 39.06102, 
  39.07716, 39.09168, 39.10288, 39.10621, 39.1158, 39.12339, 39.14096, 39.14975, 39.16479, 39.21296, 
  39.22359, 39.2454, 39.25577, 39.29166, 39.29552, 39.29485, 39.3088, 39.31703, 39.33244, 39.3408, 
  39.35979, 39.35779, 39.36934, 39.4297, 39.4289, 39.45223, 39.45873, 39.46814, 39.4855, 39.5051, 
  39.51397, 39.52682, 39.52775, 39.53926, 39.55316, 39.56216, 39.57195, 39.56891, 39.57725, 39.58479, 
  39.58532, 39.59484, 39.59167, 39.60304, 39.60013, 39.60344, 39.59206, 39.58532, 39.58307, 39.56798, 
  39.56865, 39.56124, 39.56997, 39.56812, 39.54204, 39.54787, 39.54509, 39.52708, 39.52583, 39.5202, 
  39.51278, 39.48987, 39.5047, 39.50179, 39.52404, 39.52483, 39.53741, 39.54019, 39.54919, 39.55925, 
  39.56084, 39.57434, 39.58227, 39.61204, 39.61349, 39.60238, 39.58783, 39.58055, 39.59206, 39.60489, 
  39.61018, 39.62645, 39.64905, 39.65143, 39.66703, 39.67628, 39.68394, 39.68711, 39.69622, 39.71009, 
  39.73214, 39.73359, 39.74508, 39.74745, 39.7596, 39.77134, 39.7753, 39.77899, 39.78743, 39.78757, 
  39.79416, 39.791, 39.7906, 39.78348, 39.78255, 39.76844, 39.76619, 39.75009, 39.74759, 39.72673, 
  39.72805, 39.74125, 39.74877, 39.7365, 39.73637, 39.73148, 39.73227, 39.71868, 39.71485,
  39.71439, 39.71584, 39.71347, 39.71664, 39.72377, 39.7338, 39.74317, 39.74634, 39.7408, 39.74119, 
  39.77181, 39.77102, 39.78368, 39.78843, 39.79186, 39.79714, 39.7883, 39.79265, 39.79186, 39.80399, 
  39.8061, 39.81507, 39.81309, 39.81771, 39.81955, 39.82601, 39.82944, 39.82404, 39.82219, 39.83406, 
  39.84407, 39.85857, 39.86424, 39.86173, 39.86674, 39.87043, 39.87649, 39.88334, 39.90283, 39.91086, 
  39.92284, 39.91995, 39.93022, 39.93443, 39.94575, 39.94969, 39.9572, 39.96891, 39.96956, 39.97338, 
  39.97009, 39.97364, 39.98074, 39.99192, 40.00087, 40.00534, 40.00323, 40.01862, 40.02756, 40.0265, 
  40.03308, 40.03058, 40.04004, 40.03518, 40.04504, 40.0428, 40.05029, 40.04651, 40.0494, 40.04559, 
  40.04796, 40.04217, 40.04401, 40.03508, 40.03442, 40.03902, 40.03928, 40.03153, 40.02732, 40.03219, 
  40.02982, 40.03363, 40.02732, 40.036, 40.02995, 40.03468, 40.02837, 40.02851, 40.02522, 40.03048, 
  40.02969, 40.03179, 40.01733, 40.01641, 40.02402, 40.02166, 40.02586, 40.02113, 40.02889, 40.03086, 
  40.03611, 40.03519, 40.04413, 40.04374, 40.04873, 40.04768, 40.05964, 40.06213, 40.07015, 40.06883, 
  40.08512, 40.07882, 40.08171, 40.07829, 40.08079, 40.08525, 40.08604, 40.09234, 40.09891, 40.10416, 
  40.106, 40.10915, 40.11007, 40.13238, 40.14196, 40.14616, 40.156, 40.16309, 40.17398, 40.17817, 
  40.19444, 40.2061, 40.22773, 40.2259, 40.23232, 40.25656, 40.27071, 40.27123, 40.28001, 40.28328, 
  40.29297, 40.30056, 40.30397, 40.31614, 40.32138, 40.34611, 40.35605, 40.36115, 40.37214, 40.37397, 
  40.38456, 40.39541, 40.41345, 40.41842, 40.43737, 40.4405, 40.4469, 40.44481, 40.46036, 40.45944, 
  40.46532, 40.46754, 40.47394, 40.47786, 40.4806, 40.49574, 40.49444, 40.50436, 40.50775, 40.5165, 
  40.51284, 40.52628, 40.51911, 40.52237, 40.5375, 40.54076, 40.52954, 40.53346, 40.5602, 40.5662, 
  40.5632, 40.56828, 40.57467, 40.57898, 40.57598, 40.59879, 40.61195, 40.62837, 40.63567, 40.65742, 
  40.67044, 40.67721, 40.67656, 40.69153, 40.70181, 40.71664, 40.72991, 40.82338, 40.84572, 40.86364, 
  40.87194, 40.88778, 40.90465, 40.91334, 40.93197, 40.93742, 40.98646, 40.98646, 40.99424, 40.99268, 
  41.01522, 41.01237, 41.01704, 41.01626, 41.03085, 41.06865, 41.0737, 41.08418, 41.0878, 41.09893, 
  41.11122, 41.1204,
  41.12333, 41.12592, 41.12514, 41.13406, 41.13445, 41.14544, 41.13988, 41.1285, 41.13135, 41.12863, 
  41.13691, 41.10885, 41.13031, 41.16276, 41.16328, 41.17646, 41.16651, 41.16483, 41.18744, 41.19015, 
  41.2032, 41.18912, 41.18912, 41.23315, 41.24464, 41.24697, 41.23277, 41.23896, 41.21288, 41.20849, 
  41.21443, 41.21547, 41.20501, 41.20307, 41.22528, 41.23212, 41.22593, 41.22154, 41.20823, 41.20191, 
  41.19209, 41.19157, 41.18098, 41.18163, 41.18537, 41.1939, 41.21056, 41.21366, 41.22574, 41.22515, 
  41.21521, 41.21198, 41.1979, 41.19467, 41.20178, 41.2125, 41.19596, 41.19403, 41.22076, 41.23199, 
  41.23587, 41.23974, 41.24219, 41.23303, 41.24129, 41.22605, 41.21598, 41.2258, 41.20449, 41.20462, 
  41.22076, 41.2205, 41.23006, 41.21379, 41.21766, 41.20836, 41.20423, 41.21211, 41.22141, 41.21792, 
  41.22851, 41.23161, 41.25819, 41.26865, 41.2889, 41.30115, 41.30115, 41.28271, 41.27471, 41.276, 
  41.26929, 41.26749, 41.2729, 41.2751, 41.25716, 41.26, 41.25432, 41.25884, 41.25548, 41.26607, 
  41.27084, 41.28232, 41.2849, 41.29432)
LONGITUDE_VALUEs <- c(
  45.01518, 45.02344, 45.04369, 45.04147, 45.04747, 45.06344, 45.05417, 45.04575, 45.03048, 45.02241, 
  45.0255, 45.0509, 45.04867, 45.06636, 45.0758, 45.07717, 45.09399, 45.09914, 45.11288, 45.11734, 
  45.11923, 45.12884, 45.13056, 45.1424, 45.14481, 45.1606, 45.16111, 45.20007, 45.20557, 45.18463, 
  45.17657, 45.15666, 45.14911, 45.1309, 45.12506, 45.11854, 45.10601, 45.09829, 45.09022, 45.09005, 
  45.07872, 45.07546, 45.07117, 45.07803, 45.07391, 45.07597, 45.06756, 45.06069, 45.0818, 45.09296, 
  45.09262, 45.09982, 45.11124, 45.10093, 45.10694, 45.10042, 45.10196, 45.11536, 45.11158, 45.11965, 
  45.12343, 45.1315, 45.12927, 45.13286, 45.132, 45.15879, 45.16446, 45.1624, 45.16634, 45.15912, 
  45.16427, 45.16479, 45.17733, 45.17922, 45.18368, 45.18265, 45.19347, 45.19605, 45.21371, 45.21852, 
  45.22917, 45.23329, 45.24995, 45.25132, 45.26025, 45.26008, 45.28752, 45.30107, 45.30382, 45.31635, 
  45.33748, 45.34023, 45.35362, 45.36324, 45.36874, 45.3833, 45.39446, 45.39601, 45.40563, 45.42417, 
  45.43963, 45.43928, 45.42572, 45.407, 45.41695, 45.42004, 45.42931, 45.43344, 45.44512, 45.45387, 
  45.46416, 45.48374, 45.47327, 45.48237, 45.49216, 45.50075, 45.51739, 45.5167, 45.52649, 45.53113, 
  45.54244, 45.54622, 45.55309, 45.55704, 45.56081, 45.55618, 45.56116, 45.57043, 45.58056, 45.60235, 
  45.60218, 45.59686, 45.60922, 45.59891, 45.60046, 45.59359, 45.59514, 45.59223, 45.58622, 45.58227, 
  45.57265, 45.57231, 45.54416, 45.50637, 45.48971, 45.4746, 45.4667, 45.46124, 45.42844, 45.41934, 
  45.40371, 45.4046, 45.39584, 45.40718, 45.40495, 45.39258, 45.3773, 45.38039, 45.37283, 45.37919, 
  45.37593, 45.37662, 45.36717, 45.36357, 45.39791, 45.38864, 45.4046, 45.42487, 45.46142, 45.43701, 
  45.4506, 45.44923, 45.43617, 45.43033, 45.43618, 45.43807, 45.44974, 45.45369, 45.46725, 45.48442, 
  45.51241, 45.52065, 45.52406, 45.56442, 45.58812, 45.59993, 45.60423, 45.63634, 45.63649, 45.64645, 
  45.64851, 45.69557, 45.72437, 45.7467, 45.78964, 45.87997, 45.87991, 45.89845, 45.92765, 45.93521, 
  45.95994, 45.95546, 45.9352, 45.93348, 45.9771, 45.97845, 45.96849, 45.97433, 45.95958, 45.95375, 
  45.96233, 45.92214, 45.91321, 45.90257, 45.90464, 45.91666, 45.88096, 45.87168, 45.85248, 45.83599, 
  45.79065, 45.77725, 45.73947, 45.71405, 45.67833, 45.66081, 45.62897, 45.60836, 45.60012, 45.61282, 
  45.61075, 45.65678, 45.66537, 45.69868, 45.73193, 45.77933, 45.80131, 45.80543, 45.78792, 45.79271, 
  45.81126, 45.81126, 45.82463, 45.82532, 45.86276, 45.87341, 45.90741, 45.9373, 45.97089, 46.00247, 
  46.00521, 46.02823, 46.03475, 46.0541, 46.06903, 46.0656, 46.05753, 46.05702, 46.06405, 46.07675, 
  46.07898, 46.09546, 46.10423, 46.12997, 46.15554, 46.16104, 46.17168, 46.16276, 46.17271, 46.17581, 
  46.18199, 46.19727, 46.25081, 46.25684, 46.2764, 46.29305, 46.34093, 46.34917, 46.35981, 46.37595, 
  46.37183, 46.39107, 46.40754, 46.41286, 46.42059, 46.41166, 46.43449, 46.4414, 46.45869, 46.48634, 
  46.52444, 46.52427, 46.55741, 46.56531, 46.58195, 46.58058, 46.58985, 46.58161, 46.57372, 46.54317, 
  46.54471, 46.49767, 46.50968, 46.50694, 46.52135, 46.53156, 46.53929, 46.53328, 46.524, 46.51439, 
  46.50236, 46.49549, 46.48158, 46.4835, 46.45104, 46.42373, 46.40862, 46.39488, 46.38801, 46.3944, 
  46.38479, 46.37981, 46.39148, 46.38531, 46.39492, 46.38737, 46.40317, 46.40437, 46.4126, 46.40727, 
  46.41929, 46.45021, 46.45021, 46.46201, 46.46785, 46.48124, 46.48605, 46.49773, 46.5101, 46.51388, 
  46.5283, 46.52796, 46.53792, 46.53466, 46.5192, 46.55199, 46.57535, 46.58682, 46.61224, 46.63405, 
  46.61774, 46.5736, 46.57035, 46.5877, 46.58512, 46.57156, 46.56675, 46.56829, 46.54546, 46.54409, 
  46.53653, 46.53036, 46.51902, 46.51507, 46.49738, 46.51026, 46.50391, 46.51061, 46.50683, 46.50013, 
  46.46338, 46.44878, 46.43178, 46.43576, 46.43971, 46.43971, 46.45843, 46.4574, 46.46942, 46.48333, 
  46.49724, 46.49656, 46.48316, 46.48365, 46.49224, 46.49482, 46.50478, 46.50237, 46.51403, 46.51523, 
  46.52914, 46.53704, 46.52897, 46.52364, 46.51437, 46.51798, 46.52931, 46.55421, 46.5494, 46.53892, 
  46.53566, 46.54768, 46.53583, 46.51745, 46.51747, 46.52486, 46.50751, 46.50752, 46.51885, 46.52967, 
  46.53739, 46.53722, 46.53206, 46.53464, 46.53258, 46.53378,
  46.52964, 46.52346, 46.52535, 46.51436, 46.50458, 46.49446, 46.48485, 46.46408, 46.45201, 46.42873, 
  46.42255, 46.41637, 46.41603, 46.38837, 46.36984, 46.36297, 46.33671, 46.33551, 46.31423, 46.30370, 
  46.29865, 46.28332, 46.26633, 46.2665, 46.23989, 46.21552, 46.2138, 46.19252, 46.18497, 46.17328, 
  46.16624, 46.15955, 46.15406, 46.14857, 46.1446, 
  46.14083, 46.1475, 46.14288, 46.14505, 46.14375, 46.15024, 46.13797, 46.12874, 46.12484, 46.12723, 
  46.12105, 46.12208, 46.10937, 46.11247, 46.10148, 46.10182, 46.09221, 46.07641, 46.07641, 46.07194, 
  46.07036, 46.03155, 46.02725, 46.02021, 46.01609, 46.02657, 46.02193, 46.00341, 46.00736, 45.98659, 
  45.99122, 45.98641, 46.0053, 45.99946, 45.98537, 45.9749, 45.93938, 45.9387, 45.89422, 45.8913, 
  45.8532, 45.82521, 45.79003, 45.80428, 45.81613, 45.82747, 45.84172, 45.83846, 45.81218, 45.8266, 
  45.8187, 45.82042, 45.81664, 45.81612, 45.80429, 45.80566, 45.79862, 45.78677, 45.77905, 45.78214, 
  45.75964, 45.74937, 45.73529, 45.7279, 45.71331, 45.69544, 45.67758, 45.67501, 45.65629, 45.63365, 
  45.62609, 45.61836, 45.60312, 45.57598, 45.56156, 45.54799, 45.53648, 45.52808, 45.51819, 45.51606, 
  45.49184, 45.47316, 45.46509, 45.44654, 45.43728, 45.42028, 45.39555, 45.34192, 45.34261, 45.32991, 
  45.3124, 45.3088, 45.29815, 45.30845, 45.25145, 45.22347, 45.22605, 45.21077, 45.17199, 45.17971, 
  45.17439, 45.17285, 45.18658, 45.1749, 45.17233, 45.18709, 45.18589, 45.17285, 45.16873, 45.14709, 
  45.13697, 45.13267, 45.13473, 45.12615, 45.121, 45.09987, 45.10176, 45.0894, 45.07997, 45.07001, 
  45.06023, 45.05577, 45.04787, 45.04719, 45.03981, 45.03431, 45.01235, 45.00617, 44.98746, 44.94574, 
  44.90538, 44.90332, 44.88564, 44.87689, 44.85081, 44.84137, 44.83364, 44.7734, 44.76566,
  44.76427, 44.76066, 44.7538, 44.74642, 44.74848, 44.74178, 44.74521, 44.7356, 44.72977, 44.72153, 
  44.70916, 44.68685, 44.68616, 44.698, 44.69663, 44.68479, 44.67707, 44.66883, 44.6563, 44.64479, 
  44.63243, 44.62728, 44.61304, 44.61046, 44.6187, 44.62007, 44.61218, 44.60634, 44.59725, 44.58712, 
  44.59569, 44.59243, 44.58299, 44.5775, 44.57407, 44.56412, 44.56343, 44.54987, 44.5545, 44.53956, 
  44.53527, 44.52069, 44.51468, 44.50249, 44.50094, 44.49219, 44.49185, 44.47656, 44.47056, 44.46455, 
  44.45734, 44.45036, 44.45139, 44.4241, 44.41946, 44.38958, 44.38099, 44.35768, 44.3539, 44.34084, 
  44.33552, 44.32607, 44.31354, 44.29619, 44.29362, 44.28537, 44.27665, 44.26239, 44.24625, 44.24178, 
  44.23491, 44.22959, 44.22152, 44.21863, 44.2097, 44.20626, 44.18806, 44.1896, 44.16917, 44.16607, 
  44.15732, 44.14375, 44.13104, 44.11512, 44.10946, 44.08782, 44.05982, 44.0332, 44.01826, 44.01551, 
  43.99856, 43.98465, 43.96885, 43.95476, 43.94738, 43.92557, 43.9187, 43.89745, 43.88938, 43.8777, 
  43.87427, 43.86362, 43.85606, 43.84576, 43.83356, 43.8236, 43.82414, 43.80782, 43.7958, 43.78481, 
  43.76283, 43.75343, 43.74484, 43.73316, 43.71358, 43.70843, 43.7007, 43.69864, 43.67752, 43.67789, 
  43.67325, 43.67033, 43.65796, 43.64972, 43.6542, 43.65111, 43.66519, 43.715, 43.71122, 43.70056, 
  43.6937, 43.67292, 43.65334, 43.68322, 43.67653, 43.68254, 43.66468, 43.64046, 43.63962, 43.63155, 
  43.63704, 43.62485, 43.62828, 43.61214, 43.61164, 43.59017, 43.59858, 43.59463, 43.60047, 43.60665, 
  43.60682, 43.62022, 43.6118, 43.62056, 43.60734, 43.59652, 43.59223, 43.58467, 43.57179, 43.55788, 
  43.55499, 43.54727, 43.54864, 43.54091, 43.55894, 43.55946, 43.56994, 43.57114, 43.58998, 43.60544, 
  43.60939, 43.6209, 43.62845, 43.64048, 43.62639, 43.63653, 43.64614, 43.65336, 43.63962, 43.65679, 
  43.66383, 43.67293, 43.66709, 43.67376, 43.67943, 43.6887, 43.70586, 43.70758, 43.72029, 43.71874, 
  43.74433, 43.74055, 43.75034, 43.73987, 43.74708, 43.73643, 43.74896, 43.70622, 43.67703, 43.6815, 
  43.67566, 43.67394, 43.68012, 43.66913, 43.67583, 43.67138, 43.59243, 43.58694, 43.57766, 43.56324, 
  43.51962, 43.50588, 43.4942, 43.48389, 43.46795, 43.47156, 43.45868, 43.4573, 43.44923, 43.44701, 
  43.458, 43.45868,
  43.47395, 43.48133, 43.49301, 43.50812, 43.52942, 43.56446, 43.59103, 43.59739, 43.61319, 43.63156, 
  43.67189, 43.75051, 43.77782, 43.8487, 43.8779, 43.94827, 43.94999, 43.96321, 44.01572, 44.0535, 
  44.08729, 44.08883, 44.16388, 44.18359, 44.17776, 44.17947, 44.21245, 44.24061, 44.2705, 44.28606, 
  44.2919, 44.3132, 44.3235, 44.34635, 44.3436, 44.35682, 44.36249, 44.38602, 44.40763, 44.41124, 
  44.43786, 44.455, 44.46256, 44.47612, 44.47818, 44.50978, 44.5175, 44.52763, 44.53117, 44.54755, 
  44.53587, 44.54291, 44.53364, 44.55005, 44.55555, 44.58868, 44.5837, 44.59588, 44.60704, 44.60395, 
  44.61099, 44.60637, 44.61495, 44.64619, 44.68808, 44.6783, 44.69426, 44.7267, 44.72395, 44.73373, 
  44.74969, 44.79159, 44.79571, 44.81356, 44.84256, 44.85252, 44.88393, 44.89937, 44.89045, 44.86796, 
  44.85423, 44.8211, 44.80188, 44.80875, 44.80686, 44.81647, 44.82471, 44.84807, 44.84704, 44.87312, 
  44.8805, 44.89097, 44.89097, 44.89715, 44.91107, 44.93029, 44.93836, 44.94368, 44.96135, 44.96307, 
  44.97234, 44.97766, 44.99363, 45.00289)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_4 <- st_set_geometry(Geo_4, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}

##### TÜRKIYE #####
Geo_0 <- Geometric_Operations(Geo_5, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_3)
Geo_0 <- Geometric_Operations(Geo_0, Geo_4)
Geo_5 <- st_set_geometry(Geo_5, st_geometry(Geo_0))
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}
LATITUDE_VALUEs <- c(
  37.15909, 37.17071, 37.18302, 37.19369, 37.20723, 37.22404, 37.228, 37.23525, 37.23853, 37.24399, 
  37.25739, 37.25766, 37.27118, 37.27515, 37.28266, 37.30301, 37.30956, 37.32826, 37.33359, 37.35433, 
  37.37575, 37.38557, 37.38162, 37.38721, 37.40003, 37.41707, 37.42798, 37.43657, 37.43834, 37.44761, 
  37.45156, 37.47527, 37.48235, 37.5085, 37.51395, 37.52375, 37.54675, 37.5537, 37.56009, 37.56145, 
  37.56445, 37.57071, 37.57166, 37.57683, 37.57642, 37.58173, 37.58825, 37.60281, 37.61695, 37.61654, 
  37.63639, 37.63979, 37.65732, 37.66643, 37.67051, 37.67594, 37.68042, 37.70583, 37.70949, 37.72728, 
  37.74724, 37.76298, 37.77031, 37.77886, 37.78293, 37.77546, 37.77519, 37.77044, 37.77207, 37.76295, 
  37.77299, 37.78452, 37.80514, 37.79809, 37.81803, 37.81965, 37.8282, 37.83782, 37.83999, 37.84989, 
  37.86358, 37.86195, 37.8755, 37.87726, 37.86845, 37.86656, 37.87333, 37.8671, 37.87509, 37.87428, 
  37.88322, 37.88742, 37.90056, 37.90774, 37.91221, 37.9179, 37.91925, 37.92792, 37.92995, 37.94403, 
  37.95107, 37.95256, 37.96217, 37.99153, 38.01358, 38.03184, 38.04374, 38.0555, 38.06266, 38.06942, 
  38.06725, 38.07307, 38.07347, 38.07807, 38.07807, 38.09063, 38.0986, 38.09806, 38.10563, 38.10292, 
  38.10549, 38.11292, 38.12291, 38.13102, 38.1348, 38.13898, 38.14492, 38.14654, 38.16517, 38.18055, 
  38.19755, 38.21846, 38.2333, 38.23857, 38.24679, 38.25259, 38.25421, 38.26809, 38.26903, 38.28318, 
  38.29518, 38.30312, 38.30245, 38.30851, 38.33356, 38.33558, 38.34595, 38.34608, 38.34326, 38.34676, 
  38.35093, 38.35887, 38.35645, 38.35901, 38.38565, 38.38444, 38.36762, 38.36547, 38.35766, 38.35955, 
  38.36856, 38.37004, 38.37516, 38.37583, 38.36937, 38.37193, 38.36803, 38.37233, 38.3948, 38.39453, 
  38.40193, 38.40799, 38.42951, 38.44766, 38.45129, 38.45935, 38.46285, 38.47642, 38.48355, 38.49429, 
  38.49994, 38.52922, 38.54936, 38.55768, 38.57446, 38.57714, 38.586, 38.58868, 38.60735, 38.61016, 
  38.62384, 38.63712, 38.64248, 38.65321, 38.65951, 38.66916, 38.67559, 38.68417, 38.69047, 38.69757, 
  38.70413, 38.70386, 38.71271, 38.72007, 38.719, 38.734, 38.74244, 38.76345, 38.78567, 38.79116, 
  38.80427, 38.80641, 38.82379, 38.82647, 38.84024, 38.84679, 38.85441, 38.84746, 38.85655, 38.87099, 
  38.89023, 38.89811, 38.90439, 38.92029, 38.92136, 38.9299, 38.93404, 38.94779, 38.95687, 38.9801, 
  38.98103, 38.98997, 39.01025, 39.01198, 39.00918, 39.02092, 39.04065, 39.05518, 39.07518, 39.08677, 
  39.0921, 39.09916, 39.11421, 39.13006, 39.17426, 39.18597, 39.18197, 39.18889, 39.20087, 39.20725, 
  39.24475, 39.24635, 39.25725, 39.26283, 39.27585, 39.27718, 39.28994, 39.29419, 39.3335, 39.34306, 
  39.3574, 39.35872, 39.37677, 39.38898, 39.40543, 39.40543, 39.41259, 39.40782, 39.41339, 39.40171, 
  39.40463, 39.39826, 39.38977, 39.39004, 39.40145, 39.40198, 39.41551, 39.41763, 39.39826, 39.40012, 
  39.38314, 39.38447, 39.37624, 39.3919, 39.38765, 39.39455, 39.39296, 39.41286, 39.41153, 39.44282, 
  39.44547, 39.46509, 39.47039, 39.5051, 39.53238, 39.54456, 39.55541, 39.56865, 39.57315, 39.60013, 
  39.61071, 39.6406, 39.66941, 39.68341, 39.78269, 39.7658, 39.75577, 39.74679, 39.71485, 39.7159, 
  39.71009, 39.71485, 39.69504, 39.68843, 39.67073, 39.6517, 39.64905, 39.64271, 39.62975,
  39.62749, 39.63901, 39.64218, 39.65632, 39.65513, 39.65923, 39.67231, 39.66967, 39.68434, 39.68513, 
  39.69134, 39.69477, 39.70256, 39.7019, 39.70468, 39.71287, 39.71485,
  39.71439, 39.71584, 39.71347, 39.71664, 39.72377, 39.7338, 39.74317, 39.74634, 39.7408, 39.74119, 
  39.77181, 39.77102, 39.78368, 39.78843, 39.79186, 39.79714, 39.7883, 39.79265, 39.79186, 39.80399, 
  39.8061, 39.81507, 39.81309, 39.81771, 39.81955, 39.82601, 39.82944, 39.82404, 39.82219, 39.83406, 
  39.84407, 39.85857, 39.86424, 39.86173, 39.86674, 39.87043, 39.87649, 39.88334, 39.90283, 39.91086, 
  39.92284, 39.91995, 39.93022, 39.93443, 39.94575, 39.94969, 39.9572, 39.96891, 39.96956, 39.97338, 
  39.97009, 39.97364, 39.98074, 39.99192, 40.00087, 40.00534, 40.00323, 40.01862, 40.02756, 40.0265, 
  40.03308, 40.03058, 40.04004, 40.03518, 40.04504, 40.0428, 40.05029, 40.04651, 40.0494, 40.04559, 
  40.04796, 40.04217, 40.04401, 40.03508, 40.03442, 40.03902, 40.03928, 40.03153, 40.02732, 40.03219, 
  40.02982, 40.03363, 40.02732, 40.036, 40.02995, 40.03468, 40.02837, 40.02851, 40.02522, 40.03048, 
  40.02969, 40.03179, 40.01733, 40.01641, 40.02402, 40.02166, 40.02586, 40.02113, 40.02889, 40.03086, 
  40.03611, 40.03519, 40.04413, 40.04374, 40.04873, 40.04768, 40.05964, 40.06213, 40.07015, 40.06883, 
  40.08512, 40.07882, 40.08171, 40.07829, 40.08079, 40.08525, 40.08604, 40.09234, 40.09891, 40.10416, 
  40.106, 40.10915, 40.11007, 40.13238, 40.14196, 40.14616, 40.156, 40.16309, 40.17398, 40.17817, 
  40.19444, 40.2061, 40.22773, 40.2259, 40.23232, 40.25656, 40.27071, 40.27123, 40.28001, 40.28328, 
  40.29297, 40.30056, 40.30397, 40.31614, 40.32138, 40.34611, 40.35605, 40.36115, 40.37214, 40.37397, 
  40.38456, 40.39541, 40.41345, 40.41842, 40.43737, 40.4405, 40.4469, 40.44481, 40.46036, 40.45944, 
  40.46532, 40.46754, 40.47394, 40.47786, 40.4806, 40.49574, 40.49444, 40.50436, 40.50775, 40.5165, 
  40.51284, 40.52628, 40.51911, 40.52237, 40.5375, 40.54076, 40.52954, 40.53346, 40.5602, 40.5662, 
  40.5632, 40.56828, 40.57467, 40.57898, 40.57598, 40.59879, 40.61195, 40.62837, 40.63567, 40.65742, 
  40.67044, 40.67721, 40.67656, 40.69153, 40.70181, 40.71664, 40.72991, 40.82338, 40.84572, 40.86364, 
  40.87194, 40.88778, 40.90465, 40.91334, 40.93197, 40.93742, 40.98646, 40.98646, 40.99424, 40.99268, 
  41.01522, 41.01237, 41.01704, 41.01626, 41.03085, 41.06865, 41.0737, 41.08418, 41.0878, 41.09893, 
  41.11122, 41.1204, 41.12333,
  41.17682, 41.18715, 41.20394, 41.2011, 41.17268, 41.18483, 41.23442, 41.25378, 41.25533, 41.24423, 
  41.25558, 41.29068, 41.30538, 41.30564, 41.30899, 41.30332, 41.30873, 41.31621, 41.31879, 41.35539, 
  41.36673, 41.37317, 41.37678, 41.37085, 41.37601, 41.37961, 41.40691, 41.41181, 41.42597, 41.4324, 
  41.44244, 41.45248, 41.45659, 41.47306, 41.4782, 41.50135, 41.50366, 41.49415, 41.46972, 41.49646, 
  41.50829, 41.5178, 41.54325, 41.55455, 41.55918, 41.59051, 41.59205, 41.58666, 41.58974, 41.57613, 
  41.58615, 41.58563, 41.59642, 41.59488, 41.6013, 41.59231, 41.58512, 41.57331, 41.56457, 41.54222, 
  41.52552, 41.50906, 41.50752, 41.49955, 41.49029, 41.47898, 41.47254, 41.45275, 41.44696, 41.4449, 
  41.43589, 41.44567, 41.43795, 41.43589, 41.444, 41.45918, 41.45867, 41.46716, 41.46355, 41.46819, 
  41.46458, 41.47204, 41.46754, 41.48105, 41.48285, 41.49352, 41.49416, 41.49108, 41.49545, 41.49391, 
  41.49854, 41.49121, 41.50779, 41.50895, 41.5146, 41.50561, 41.50792, 41.50522, 41.51203, 41.50625, 
  41.51113, 41.49339, 41.50008, 41.50483, 41.52203, 41.52129, 41.5254, 41.50831, 41.50805, 41.48105, 
  41.4759, 41.4696, 41.4606, 41.44889, 41.44091, 41.43164, 41.43551, 41.44091, 41.44736, 41.44839, 
  41.46164, 41.46344, 41.46048, 41.47129, 41.4745, 41.48006, 41.49112, 41.49729, 41.48662, 41.48842, 
  41.48238, 41.48765, 41.50141, 41.50925, 41.51542, 41.5203, 41.51799, 41.52069,
  41.51805, 41.51753, 41.51111, 41.51123, 41.48153, 41.47819, 41.47163, 41.47009, 41.46173, 41.46147, 
  41.45246, 41.45092, 41.41733, 41.39505, 41.38115, 41.37702, 41.37857, 41.37406, 41.37303, 41.36427, 
  41.34984, 41.34816, 41.33811, 41.32496,
  37.15763, 37.15862)
LONGITUDE_VALUEs <- c(
  44.78564, 44.78324, 44.76624, 44.76762, 44.76092, 44.76161, 44.7568, 44.76023, 44.76659, 44.76676, 
  44.78701, 44.8004, 44.80315, 44.8138, 44.81483, 44.80057, 44.79954, 44.77174, 44.743, 44.72412, 
  44.72189, 44.686, 44.68257, 44.65202, 44.65734, 44.63468, 44.63503, 44.62095, 44.59041, 44.57907, 
  44.58662, 44.58679, 44.5825, 44.58542, 44.60121, 44.60138, 44.61392, 44.60104, 44.60362, 44.61357, 
  44.61409, 44.60774, 44.61323, 44.60602, 44.60173, 44.59812, 44.61202, 44.61494, 44.60034, 44.59296, 
  44.58232, 44.56722, 44.57495, 44.57375, 44.58885, 44.59142, 44.60412, 44.6309, 44.62283, 44.62094, 
  44.59417, 44.58866, 44.56515, 44.55949, 44.52534, 44.51435, 44.50062, 44.49221, 44.47917, 44.47185, 
  44.44129, 44.44987, 44.44936, 44.42446, 44.41349, 44.39546, 44.39254, 44.39563, 44.40453, 44.40471, 
  44.38827, 44.35925, 44.33314, 44.31769, 44.30721, 44.29261, 44.28682, 44.26484, 44.25178, 44.2444, 
  44.2401, 44.22242, 44.23256, 44.22363, 44.23135, 44.22912, 44.23427, 44.23477, 44.24474, 44.25006, 
  44.24903, 44.24079, 44.24096, 44.26688, 44.27117, 44.30035, 44.30773, 44.30241, 44.32061, 44.32026, 
  44.31116, 44.31047, 44.31614, 44.32026, 44.32816, 44.33125, 44.32798, 44.33605, 44.35408, 44.36387, 
  44.36593, 44.35803, 44.35974, 44.34875, 44.35081, 44.38138, 44.38533, 44.39289, 44.39134, 44.40009, 
  44.39838, 44.41177, 44.40627, 44.39683, 44.4025, 44.40129, 44.40954, 44.41981, 44.43441, 44.44884, 
  44.47305, 44.47732, 44.49261, 44.49914, 44.49604, 44.51184, 44.50978, 44.49982, 44.49552, 44.49312, 
  44.49896, 44.48834, 44.47443, 44.46327, 44.45056, 44.44008, 44.41572, 44.39064, 44.38446, 44.3757, 
  44.37007, 44.36423, 44.36337, 44.35685, 44.35049, 44.33864, 44.33435, 44.31889, 44.3, 44.31168, 
  44.31117, 44.31804, 44.31753, 44.30156, 44.31014, 44.30929, 44.3146, 44.31031, 44.32285, 44.31924, 
  44.3249, 44.3086, 44.31684, 44.31255, 44.31683, 44.32577, 44.32147, 44.3225, 44.31735, 44.32233, 
  44.32113, 44.30518, 44.2753, 44.26894, 44.28165, 44.27958, 44.28216, 44.2722, 44.27323, 44.26928, 
  44.27065, 44.26104, 44.26121, 44.25365, 44.26327, 44.2813, 44.27563, 44.29263, 44.28748, 44.30053, 
  44.30259, 44.31478, 44.30362, 44.29486, 44.30138, 44.28352, 44.27755, 44.25454, 44.24131, 44.24561, 
  44.21023, 44.21006, 44.22072, 44.21694, 44.19891, 44.19719, 44.19135, 44.20148, 44.18121, 44.18929, 
  44.18929, 44.17022, 44.18036, 44.18706, 44.19169, 44.21281, 44.19221, 44.20561, 44.18981, 44.1977, 
  44.22226, 44.22535, 44.20766, 44.21298, 44.17302, 44.1452, 44.13558, 44.11225, 44.1095, 44.09542, 
  44.10194, 44.08923, 44.08339, 44.09266, 44.09301, 44.10365, 44.10262, 44.07928, 44.07722, 44.05695, 
  44.05762, 44.03976, 44.03117, 44.05625, 44.05178, 44.05865, 44.06793, 44.08407, 44.09463, 44.11625, 
  44.13101, 44.13239, 44.12346, 44.13376, 44.14989, 44.19043, 44.19901, 44.23505, 44.24363, 44.26697, 
  44.27693, 44.28345, 44.29375, 44.31812, 44.33562, 44.34386, 44.3521, 44.37856, 44.42283, 44.4321, 
  44.42455, 44.42009, 44.4067, 44.44034, 44.42386, 44.4273, 44.41494, 44.42558, 44.44274, 44.46574, 
  44.48085, 44.48703, 44.48394, 44.46574, 44.61544, 44.62128, 44.6326, 44.6278, 44.66693, 44.68684, 
  44.70022, 44.71638, 44.73148, 44.7507, 44.7562, 44.78743, 44.79842, 44.80253, 44.80459,
  44.80915, 44.80738, 44.8151, 44.81699, 44.8036, 44.79691, 44.80686, 44.79381, 44.80205, 44.78403, 
  44.78815, 44.7794, 44.78026, 44.76411, 44.76308, 44.77012, 44.76566,
  44.76427, 44.76066, 44.7538, 44.74642, 44.74848, 44.74178, 44.74521, 44.7356, 44.72977, 44.72153, 
  44.70916, 44.68685, 44.68616, 44.698, 44.69663, 44.68479, 44.67707, 44.66883, 44.6563, 44.64479, 
  44.63243, 44.62728, 44.61304, 44.61046, 44.6187, 44.62007, 44.61218, 44.60634, 44.59725, 44.58712, 
  44.59569, 44.59243, 44.58299, 44.5775, 44.57407, 44.56412, 44.56343, 44.54987, 44.5545, 44.53956, 
  44.53527, 44.52069, 44.51468, 44.50249, 44.50094, 44.49219, 44.49185, 44.47656, 44.47056, 44.46455, 
  44.45734, 44.45036, 44.45139, 44.4241, 44.41946, 44.38958, 44.38099, 44.35768, 44.3539, 44.34084, 
  44.33552, 44.32607, 44.31354, 44.29619, 44.29362, 44.28537, 44.27665, 44.26239, 44.24625, 44.24178, 
  44.23491, 44.22959, 44.22152, 44.21863, 44.2097, 44.20626, 44.18806, 44.1896, 44.16917, 44.16607, 
  44.15732, 44.14375, 44.13104, 44.11512, 44.10946, 44.08782, 44.05982, 44.0332, 44.01826, 44.01551, 
  43.99856, 43.98465, 43.96885, 43.95476, 43.94738, 43.92557, 43.9187, 43.89745, 43.88938, 43.8777, 
  43.87427, 43.86362, 43.85606, 43.84576, 43.83356, 43.8236, 43.82414, 43.80782, 43.7958, 43.78481, 
  43.76283, 43.75343, 43.74484, 43.73316, 43.71358, 43.70843, 43.7007, 43.69864, 43.67752, 43.67789, 
  43.67325, 43.67033, 43.65796, 43.64972, 43.6542, 43.65111, 43.66519, 43.715, 43.71122, 43.70056, 
  43.6937, 43.67292, 43.65334, 43.68322, 43.67653, 43.68254, 43.66468, 43.64046, 43.63962, 43.63155, 
  43.63704, 43.62485, 43.62828, 43.61214, 43.61164, 43.59017, 43.59858, 43.59463, 43.60047, 43.60665, 
  43.60682, 43.62022, 43.6118, 43.62056, 43.60734, 43.59652, 43.59223, 43.58467, 43.57179, 43.55788, 
  43.55499, 43.54727, 43.54864, 43.54091, 43.55894, 43.55946, 43.56994, 43.57114, 43.58998, 43.60544, 
  43.60939, 43.6209, 43.62845, 43.64048, 43.62639, 43.63653, 43.64614, 43.65336, 43.63962, 43.65679, 
  43.66383, 43.67293, 43.66709, 43.67376, 43.67943, 43.6887, 43.70586, 43.70758, 43.72029, 43.71874, 
  43.74433, 43.74055, 43.75034, 43.73987, 43.74708, 43.73643, 43.74896, 43.70622, 43.67703, 43.6815, 
  43.67566, 43.67394, 43.68012, 43.66913, 43.67583, 43.67138, 43.59243, 43.58694, 43.57766, 43.56324, 
  43.51962, 43.50588, 43.4942, 43.48389, 43.46795, 43.47156, 43.45868, 43.4573, 43.44923, 43.44701, 
  43.458, 43.45868, 43.47395,
  43.44779, 43.41038, 43.37502, 43.33242, 43.23047, 43.23837, 43.20059, 43.19647, 43.17725, 43.15357, 
  43.12817, 43.21295, 43.21295, 43.20368, 43.19853, 43.18858, 43.16524, 43.1594, 43.13366, 43.10345, 
  43.05811, 43.05639, 43.0382, 43.03168, 43.01829, 43.02207, 43.00285, 42.98912, 42.98912, 42.96681, 
  42.97159, 42.96645, 42.94276, 42.9256, 42.89883, 42.89814, 42.87755, 42.86313, 42.85729, 42.7996, 
  42.80372, 42.79652, 42.81848, 42.81848, 42.83084, 42.83839, 42.82466, 42.8226, 42.7924, 42.77729, 
  42.76871, 42.74992, 42.73893, 42.71626, 42.69084, 42.65764, 42.60062, 42.59032, 42.57452, 42.58001, 
  42.56456, 42.57384, 42.5601, 42.55563, 42.53159, 42.52609, 42.51201, 42.52126, 42.52075, 42.52453, 
  42.52023, 42.49327, 42.48348, 42.46854, 42.4335, 42.4162, 42.41105, 42.40109, 42.38357, 42.38202, 
  42.36794, 42.34527, 42.32827, 42.31492, 42.30153, 42.28401, 42.27115, 42.26549, 42.25278, 42.24264, 
  42.22599, 42.20246, 42.19563, 42.1867, 42.17795, 42.15442, 42.1369, 42.12419, 42.11131, 42.10135, 
  42.08641, 42.03958, 42.02584, 41.99304, 41.98684, 41.97089, 41.96092, 41.93417, 41.92438, 41.89296, 
  41.89555, 41.88456, 41.88319, 41.84747, 41.84506, 41.82276, 41.81211, 41.81143, 41.80308, 41.78944, 
  41.78621, 41.77591, 41.77419, 41.75049, 41.70704, 41.71376, 41.71651, 41.70758, 41.68697, 41.68078, 
  41.67048, 41.63012, 41.61986, 41.58242, 41.58105, 41.57109, 41.5546, 41.54725,
  41.54639, 41.54364, 41.54227, 41.53832, 41.52201, 41.51051, 41.50279, 41.49112, 41.47979, 41.47258, 
  41.47067, 41.46295, 41.43635, 41.41918, 41.40133, 41.37885, 41.36323, 41.35018, 41.34092, 41.32906, 
  41.29439, 41.2786, 41.25816, 41.24872,
  44.78326, 44.79552)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_5, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_5 <- st_set_geometry(Geo_5, st_union(Geo_0[c(1:5, 48)]))
Geo_5 <- st_union(Geo_5, Geo) %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}

##### IRAN #####
Geo_0 <- Geometric_Operations(Geo_6, Geo_3)
Geo_0 <- Geometric_Operations(Geo_0, Geo_4)
Geo_0 <- Geometric_Operations(Geo_0, Geo_5)
Geo_6 <- st_set_geometry(Geo_6, st_geometry(Geo_0))
if (st_is_valid(Geo_6) == FALSE) {Geo_6 <- st_make_valid(Geo_6)}
LATITUDE_VALUEs <- c(
  38.86925, 38.87727, 38.88823, 38.88956, 38.88529, 38.8901, 38.88542, 38.88863, 38.89891, 38.89397, 
  38.88302, 38.88382, 38.89277, 38.90573, 38.9084, 38.91668, 38.91668, 38.91054, 38.90119, 38.90629, 
  38.90119, 38.90076, 38.89261, 38.88633, 38.87056, 38.86468, 38.85452, 38.85198, 38.84101, 38.84061,
  38.84329, 38.84128, 38.84342, 38.84155, 38.8420,
  38.84452, 38.84679, 38.84679, 38.85094, 38.85869, 38.86511, 38.87045, 38.88769, 38.88783, 38.8762,
  38.87206, 38.875, 38.87139, 38.87567, 38.87633, 38.89063, 38.88849, 38.89651, 38.87273, 38.87673,
  38.88542, 38.89277, 38.90185, 38.91054, 38.90185, 38.91414, 38.92469, 38.92363, 38.92937, 38.92763,
  38.93805, 38.94512, 38.94366, 38.9522, 38.94593, 38.94633, 38.95233, 38.95193, 38.94646, 38.94255,
  38.95781, 38.95687, 38.96208, 38.96795, 38.97863, 38.97623, 38.96915, 38.96355, 38.98743, 38.99237,
  39.00985, 39.03119, 39.03932, 39.05039, 39.05572, 39.05185, 39.07824, 39.09183, 39.10702, 39.11155,
  39.12899, 39.14697, 39.17146, 39.16534, 39.1708, 39.1833, 39.19355, 39.20313, 39.18809, 39.18344,
  39.18583, 39.18557, 39.19382, 39.19421, 39.20885, 39.20379, 39.20472, 39.2135, 39.2155, 39.22095,
  39.22294, 39.21603, 39.20592, 39.2295, 39.24063, 39.25033, 39.26403, 39.26974, 39.2817, 39.28914,
  39.28595, 39.2902, 39.29459, 39.30404, 39.3096, 39.3339, 39.32885, 39.33443, 39.3493, 39.36018,
  39.36417, 39.38155, 39.38288, 39.37903, 39.38221, 39.39123, 39.38991, 39.4053, 39.40463, 39.41047,
  39.40861, 39.41736, 39.42134, 39.43169, 39.4407, 39.44561, 39.45144, 39.4521, 39.46072, 39.47158,
  39.4802, 39.48311, 39.48656, 39.49026, 39.48761, 39.49305, 39.50378, 39.51199, 39.51146, 39.52589,
  39.53344, 39.53966, 39.54919, 39.55844, 39.56691, 39.57736, 39.58028, 39.5853, 39.59853, 39.60647,
  39.60237, 39.59694, 39.59316, 39.60091, 39.60845, 39.61639, 39.61401, 39.60409, 39.60237, 39.61242,
  39.61017, 39.6189, 39.62749,
  39.62975, 39.64271, 39.64905, 39.6517, 39.67073, 39.68843, 39.69504, 39.71485, 39.71009, 39.7159, 
  39.71485, 39.74679, 39.75577, 39.7658, 39.78269, 39.68341, 39.66941, 39.6406, 39.61071, 39.60013, 
  39.57315, 39.56865, 39.55541, 39.54456, 39.53238, 39.5051, 39.47039, 39.46509, 39.44547, 39.44282, 
  39.41153, 39.41286, 39.39296, 39.39455, 39.38765, 39.3919, 39.37624, 39.38447, 39.38314, 39.40012, 
  39.39826, 39.41763, 39.41551, 39.40198, 39.40145, 39.39004, 39.38977, 39.39826, 39.40463, 39.40171, 
  39.41339, 39.40782, 39.41259, 39.40543, 39.40543, 39.38898, 39.37677, 39.35872, 39.3574, 39.34306, 
  39.3335, 39.29419, 39.28994, 39.27718, 39.27585, 39.26283, 39.25725, 39.24635, 39.24475, 39.20725, 
  39.20087, 39.18889, 39.18197, 39.18597, 39.17426, 39.13006, 39.11421, 39.09916, 39.0921, 39.08677, 
  39.07518, 39.05518, 39.04065, 39.02092, 39.00918, 39.01198, 39.01025, 38.98997, 38.98103, 38.9801, 
  38.95687, 38.94779, 38.93404, 38.9299, 38.92136, 38.92029, 38.90439, 38.89811, 38.89023, 38.87099, 
  38.85655, 38.84746, 38.85441, 38.84679, 38.84024, 38.82647, 38.82379, 38.80641, 38.80427, 38.79116, 
  38.78567, 38.76345, 38.74244, 38.734, 38.719, 38.72007, 38.71271, 38.70386, 38.70413, 38.69757, 
  38.69047, 38.68417, 38.67559, 38.66916, 38.65951, 38.65321, 38.64248, 38.63712, 38.62384, 38.61016, 
  38.60735, 38.58868, 38.586, 38.57714, 38.57446, 38.55768, 38.54936, 38.52922, 38.49994, 38.49429, 
  38.48355, 38.47642, 38.46285, 38.45935, 38.45129, 38.44766, 38.42951, 38.40799, 38.40193, 38.39453, 
  38.3948, 38.37233, 38.36803, 38.37193, 38.36937, 38.37583, 38.37516, 38.37004, 38.36856, 38.35955, 
  38.35766, 38.36547, 38.36762, 38.38444, 38.38565, 38.35901, 38.35645, 38.35887, 38.35093, 38.34676, 
  38.34326, 38.34608, 38.34595, 38.33558, 38.33356, 38.30851, 38.30245, 38.30312, 38.29518, 38.28318, 
  38.26903, 38.26809, 38.25421, 38.25259, 38.24679, 38.23857, 38.2333, 38.21846, 38.19755, 38.18055, 
  38.16517, 38.14654, 38.14492, 38.13898, 38.1348, 38.13102, 38.12291, 38.11292, 38.10549, 38.10292, 
  38.10563, 38.09806, 38.0986, 38.09063, 38.07807, 38.07807, 38.07347, 38.07307, 38.06725, 38.06942, 
  38.06266, 38.0555, 38.04374, 38.03184, 38.01358, 37.99153, 37.96217, 37.95256, 37.95107, 37.94403, 
  37.92995, 37.92792, 37.91925, 37.9179, 37.91221, 37.90774, 37.90056, 37.88742, 37.88322, 37.87428, 
  37.87509, 37.8671, 37.87333, 37.86656, 37.86845, 37.87726, 37.8755, 37.86195, 37.86358, 37.84989, 
  37.83999, 37.83782, 37.8282, 37.81965, 37.81803, 37.79809, 37.80514, 37.78452, 37.77299, 37.76295, 
  37.77207, 37.77044, 37.77519, 37.77546, 37.78293, 37.77886, 37.77031, 37.76298, 37.74724, 37.72728, 
  37.70949, 37.70583, 37.68042, 37.67594, 37.67051, 37.66643, 37.65732, 37.63979, 37.63639, 37.61654, 
  37.61695, 37.60281, 37.58825, 37.58173, 37.57642, 37.57683, 37.57166, 37.57071, 37.56445, 37.56145, 
  37.56009, 37.5537, 37.54675, 37.52375, 37.51395, 37.5085, 37.48235, 37.47527, 37.45156, 37.44761, 
  37.43834, 37.43657, 37.42798, 37.41707, 37.40003, 37.38721, 37.38162, 37.38557, 37.37575, 37.35433, 
  37.33359, 37.32826, 37.30956, 37.30301, 37.28266, 37.27515, 37.27118, 37.25766, 37.25739, 37.24399, 
  37.23853, 37.23525, 37.228, 37.22404, 37.20723, 37.19369, 37.18302, 37.17071, 37.15909, 37.15862)
LONGITUDE_VALUEs <- c(
  46.52964, 46.52346, 46.52535, 46.51436, 46.50458, 46.49446, 46.48485, 46.46408, 46.45201, 46.42873, 
  46.42255, 46.41637, 46.41603, 46.38837, 46.36984, 46.36297, 46.33671, 46.33551, 46.31423, 46.30370, 
  46.29865, 46.28332, 46.26633, 46.2665, 46.23989, 46.21552, 46.2138, 46.19252, 46.18497, 46.17328, 
  46.16624, 46.15955, 46.15406, 46.14857, 46.1446,
  46.14083, 46.13637, 46.12762, 46.12848, 46.112, 46.11338, 46.08127, 46.06514, 46.05724, 46.05278,
  46.03956, 46.03339, 46.00593, 45.99972, 45.98222, 45.96557, 45.9575, 45.94274, 45.91923, 45.89381,
  45.8916, 45.86086, 45.86378, 45.8437, 45.83083, 45.80009, 45.80009, 45.77263, 45.76182, 45.73676,
  45.71443, 45.70928, 45.6983, 45.69332, 45.6765, 45.66775, 45.66089, 45.6463, 45.64372, 45.61657,
  45.61504, 45.60543, 45.60114, 45.58346, 45.58328, 45.56715, 45.56663, 45.54483, 45.48407, 45.44888,
  45.43583, 45.45145, 45.45007, 45.45856, 45.45049, 45.43813, 45.39931, 45.40277, 45.38422, 45.36945,
  45.35108, 45.36345, 45.34868, 45.30488, 45.30388, 45.32827, 45.32449, 45.30354, 45.29701, 45.28413,
  45.27211, 45.24721, 45.23625, 45.23076, 45.21633, 45.20345, 45.19915, 45.19692, 45.1899, 45.18441,
  45.17084, 45.16844, 45.14955, 45.14736, 45.15315, 45.14613, 45.14905, 45.13376, 45.14355, 45.136,
  45.11882, 45.11676, 45.12982, 45.1263, 45.10767, 45.1015, 45.08827, 45.07952, 45.0893, 45.07422,
  45.05635, 45.0591, 45.0524, 45.04571, 45.04193, 45.04038, 45.03368, 45.01825, 45.0088, 45.00571,
  44.99815, 44.98751, 44.96363, 44.96555, 44.95936, 44.97843, 44.97602, 44.94803, 44.93858, 44.94871,
  44.93602, 44.95079, 44.93774, 44.93894, 44.95113, 44.95165, 44.93981, 44.93689, 44.92882, 44.90838,
  44.92006, 44.90632, 44.91113, 44.90753, 44.91578, 44.90393, 44.88778, 44.88778, 44.90135, 44.89568,
  44.89122, 44.89345, 44.87324, 44.8725, 44.88143, 44.87507, 44.86649, 44.86683, 44.85446, 44.83712,
  44.82132, 44.81207, 44.80915,
  44.80459, 44.80253, 44.79842, 44.78743, 44.7562, 44.7507, 44.73148, 44.71638, 44.70022, 44.68684, 
  44.66693, 44.6278, 44.6326, 44.62128, 44.61544, 44.46574, 44.48394, 44.48703, 44.48085, 44.46574, 
  44.44274, 44.42558, 44.41494, 44.4273, 44.42386, 44.44034, 44.4067, 44.42009, 44.42455, 44.4321, 
  44.42283, 44.37856, 44.3521, 44.34386, 44.33562, 44.31812, 44.29375, 44.28345, 44.27693, 44.26697, 
  44.24363, 44.23505, 44.19901, 44.19043, 44.14989, 44.13376, 44.12346, 44.13239, 44.13101, 44.11625, 
  44.09463, 44.08407, 44.06793, 44.05865, 44.05178, 44.05625, 44.03117, 44.03976, 44.05762, 44.05695, 
  44.07722, 44.07928, 44.10262, 44.10365, 44.09301, 44.09266, 44.08339, 44.08923, 44.10194, 44.09542, 
  44.1095, 44.11225, 44.13558, 44.1452, 44.17302, 44.21298, 44.20766, 44.22535, 44.22226, 44.1977, 
  44.18981, 44.20561, 44.19221, 44.21281, 44.19169, 44.18706, 44.18036, 44.17022, 44.18929, 44.18929, 
  44.18121, 44.20148, 44.19135, 44.19719, 44.19891, 44.21694, 44.22072, 44.21006, 44.21023, 44.24561, 
  44.24131, 44.25454, 44.27755, 44.28352, 44.30138, 44.29486, 44.30362, 44.31478, 44.30259, 44.30053, 
  44.28748, 44.29263, 44.27563, 44.2813, 44.26327, 44.25365, 44.26121, 44.26104, 44.27065, 44.26928, 
  44.27323, 44.2722, 44.28216, 44.27958, 44.28165, 44.26894, 44.2753, 44.30518, 44.32113, 44.32233, 
  44.31735, 44.3225, 44.32147, 44.32577, 44.31683, 44.31255, 44.31684, 44.3086, 44.3249, 44.31924, 
  44.32285, 44.31031, 44.3146, 44.30929, 44.31014, 44.30156, 44.31753, 44.31804, 44.31117, 44.31168, 
  44.3, 44.31889, 44.33435, 44.33864, 44.35049, 44.35685, 44.36337, 44.36423, 44.37007, 44.3757, 
  44.38446, 44.39064, 44.41572, 44.44008, 44.45056, 44.46327, 44.47443, 44.48834, 44.49896, 44.49312, 
  44.49552, 44.49982, 44.50978, 44.51184, 44.49604, 44.49914, 44.49261, 44.47732, 44.47305, 44.44884, 
  44.43441, 44.41981, 44.40954, 44.40129, 44.4025, 44.39683, 44.40627, 44.41177, 44.39838, 44.40009, 
  44.39134, 44.39289, 44.38533, 44.38138, 44.35081, 44.34875, 44.35974, 44.35803, 44.36593, 44.36387, 
  44.35408, 44.33605, 44.32798, 44.33125, 44.32816, 44.32026, 44.31614, 44.31047, 44.31116, 44.32026, 
  44.32061, 44.30241, 44.30773, 44.30035, 44.27117, 44.26688, 44.24096, 44.24079, 44.24903, 44.25006, 
  44.24474, 44.23477, 44.23427, 44.22912, 44.23135, 44.22363, 44.23256, 44.22242, 44.2401, 44.2444, 
  44.25178, 44.26484, 44.28682, 44.29261, 44.30721, 44.31769, 44.33314, 44.35925, 44.38827, 44.40471, 
  44.40453, 44.39563, 44.39254, 44.39546, 44.41349, 44.42446, 44.44936, 44.44987, 44.44129, 44.47185, 
  44.47917, 44.49221, 44.50062, 44.51435, 44.52534, 44.55949, 44.56515, 44.58866, 44.59417, 44.62094, 
  44.62283, 44.6309, 44.60412, 44.59142, 44.58885, 44.57375, 44.57495, 44.56722, 44.58232, 44.59296, 
  44.60034, 44.61494, 44.61202, 44.59812, 44.60173, 44.60602, 44.61323, 44.60774, 44.61409, 44.61357, 
  44.60362, 44.60104, 44.61392, 44.60138, 44.60121, 44.58542, 44.5825, 44.58679, 44.58662, 44.57907, 
  44.59041, 44.62095, 44.63503, 44.63468, 44.65734, 44.65202, 44.68257, 44.686, 44.72189, 44.72412, 
  44.743, 44.77174, 44.79954, 44.80057, 44.81483, 44.8138, 44.80315, 44.8004, 44.78701, 44.76676, 
  44.76659, 44.76023, 44.7568, 44.76161, 44.76092, 44.76762, 44.76624, 44.78324, 44.78564, 44.79552)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_6, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_0 <- st_union(Geo_0)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_6 <- st_set_geometry(Geo_6, st_union(Geo_0[1:12]))
Geo_6 <- st_union(Geo_6, Geo)
if (st_is_valid(Geo_6) == FALSE) {Geo_6 <- st_make_valid(Geo_6)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% 
  filter(!NAME %in% c("GEORGIA", "RUSSIAN FEDERATION", "AZERBAIJAN", "ARMENIA", "TÜRKIYE", "IRAN"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3, Geo_4, Geo_5, Geo_6)

CEUTA and MELILLA are included in SPAIN in GeoDATA.

CEUTA and MELILLA are Autonomous Cities (in North Africa) of Spain (Claimed by MOROCCO).

OLIVENZA is included in SPAIN in GeoDATA.

OLIVENZA is a Spanish Town (Claimed by PORTUGAL).

Plazas de soberanía are Spanish Overseas Territories (Claimed by MOROCCO):

  • ALHUCEMAS ISLANDS (is included in MOROCCO in GeoDATA)
  • CHAFARINAS ISLANDS
  • PEÑÓN DE VÉLEZ DE LA GOMERA
  • PEREJIL ISLAND (is included in MOROCCO in GeoDATA)
################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "SPAIN")
Geo_2 <- GeoDATA %>% filter(NAME == "MOROCCO")
Geo_3 <- GeoDATA %>% filter(NAME == "PORTUGAL")
Geo_4 <- GeoDATA %>% filter(NAME == "GIBRALTAR")

##### SPAIN #####
LATITUDE_VALUEs <- c(
  39.66588, 39.6676, 39.6643, 39.66099, 39.66205, 39.65861, 39.65637, 39.64553, 39.64289, 39.63495,
  39.61777, 39.60653, 39.59793, 39.5896, 39.57332, 39.53931, 39.53931, 39.53256, 39.53454, 39.53136,
  39.53322, 39.53017, 39.49852, 39.4972, 39.49057, 39.48329, 39.48845, 39.47759, 39.47931, 39.46288,
  39.45599, 39.44605, 39.42868, 39.42285, 39.40096, 39.38663, 39.37828, 39.37788, 39.3666, 39.36155,
  39.35532, 39.33859, 39.30951, 39.30353, 39.27816, 39.25317, 39.23815, 39.22818, 39.21794, 39.20796,
  39.18614, 39.18694, 39.18029, 39.18109, 39.17217, 39.17151, 39.16046, 39.14994, 39.14595, 39.12065,
  39.10853, 39.09947, 39.10626, 39.10893, 39.11785, 39.11759, 39.09241, 39.05456, 39.03963, 39.0235,
  38.93863, 38.9238, 38.90711, 38.89415, 38.88266, 38.88373, 38.87758, 38.87598, 38.86395, 38.85553,
  38.83012, 38.82197, 38.81541, 38.81742, 38.81528, 38.79187, 38.78023, 38.76644, 38.76069, 38.74958,
  38.73672, 38.73686, 38.72427, 38.71382, 38.69922, 38.67885, 38.63837, 38.62671, 38.62831, 38.62416,
  38.61209, 38.58794, 38.58566, 38.57479, 38.57667, 38.5717, 38.56325, 38.55358, 38.54311, 38.52713,
  38.51921, 38.51477, 38.49583, 38.48092, 38.47406, 38.47406, 38.48172, 38.4832, 38.47931, 38.46546,
  38.45982, 38.45457, 38.44812, 38.44463, 38.43481, 38.44073, 38.42594, 38.41988, 38.4137, 38.39445,
  38.34128, 38.34115, 38.32714, 38.32028, 38.27973, 38.27851, 38.2676, 38.26989, 38.23551, 38.2049,
  38.18723, 38.18723, 38.17927, 38.17846, 38.16901, 38.17657, 38.17859, 38.18574, 38.18628, 38.17778,
  38.18048, 38.18696, 38.18237, 38.19681, 38.19559, 38.20449, 38.20315, 38.21164, 38.20234, 38.21852,
  38.21191, 38.22055, 38.20652, 38.20895, 38.20031, 38.18318, 38.16779, 38.1682, 38.16604, 38.16334,
  38.16024, 38.15511, 38.15673, 38.15416, 38.15038, 38.15106, 38.14512, 38.13931, 38.1381, 38.1327,
  38.1331, 38.10474, 38.10285, 38.09069, 38.07448, 38.06691, 38.05488, 38.04973, 38.0431, 38.0354,
  38.03012, 38.02255, 38.02066, 38.02445, 38.0143, 38.01898, 38.01795, 38.02783, 38.02877, 38.03405,
  38.03378, 38.04432, 38.02837, 38.02363, 38.0212, 38.01944, 38.01038, 38.00484, 37.99942, 38.00281,
  37.99415, 37.99577, 37.99266, 37.99848, 37.99631, 38.00281, 38.00064, 38.00348, 38.00037, 37.9978,
  37.99564, 37.98806, 37.99131, 37.99131, 37.9863, 37.97872, 37.96682, 37.93636, 37.93311, 37.92214,
  37.92309, 37.90684, 37.904, 37.89871, 37.89763, 37.87595, 37.86121, 37.85698, 37.83977, 37.8361,
  37.81468, 37.81336, 37.79844, 37.79328, 37.79274, 37.78663, 37.78311, 37.77483, 37.77185, 37.7633,
  37.76764, 37.7599, 37.75814, 37.7441, 37.74043, 37.73392, 37.69549, 37.68788, 37.67756, 37.66438,
  37.6622, 37.65859, 37.65424, 37.64595, 37.65017, 37.64024, 37.63372, 37.62379, 37.62529, 37.61781,
  37.60299, 37.60748, 37.60476, 37.59279, 37.58599, 37.57783, 37.57157, 37.56585, 37.56762, 37.55619,
  37.56109, 37.55782, 37.54707, 37.53945, 37.52407, 37.52203, 37.50868, 37.49588, 37.49329, 37.48553,
  37.47926, 37.46291, 37.45201, 37.4347, 37.42448, 37.42107, 37.41466, 37.41466, 37.4073, 37.40171,
  37.38807, 37.3567, 37.34564, 37.3249, 37.30988, 37.27191, 37.25525, 37.24541, 37.23885, 37.22272,
  37.20987, 37.17965,
  37.17059, 37.17497, 37.17374, 37.18058, 37.18276, 37.18878, 37.19699, 37.203, 37.20834, 37.20478,
  37.2097, 37.19931, 37.16635, 37.16635, 37.15199, 37.1394, 37.12872, 37.13228, 37.14186, 37.14145,
  37.14679, 37.15582, 37.16019, 37.14774, 37.14884, 37.13529, 37.12831, 37.12694, 37.11107, 37.053,
  37.01326, 36.97569, 36.93811, 36.90449, 36.85423, 36.80545, 36.79693, 36.79693, 36.79404, 36.78882,
  36.76187, 36.76091, 36.7488, 36.74303, 36.74894, 36.74206, 36.73739, 36.73078, 36.72033, 36.66155,
  36.65962, 36.64158, 36.634, 36.62849, 36.61968, 36.6143, 36.62381, 36.62684, 36.62505, 36.62023,
  36.62505, 36.62285, 36.61527, 36.6194, 36.60574, 36.59058, 36.58025, 36.58066, 36.57694, 36.58355,
  36.58521, 36.57749, 36.58025, 36.5757, 36.56646, 36.55143, 36.52578, 36.52895, 36.52881, 36.52564,
  36.52481, 36.5204, 36.51791, 36.5146, 36.50798, 36.50357, 36.51143, 36.50839, 36.52095, 36.52219,
  36.52895, 36.52454, 36.5244, 36.51557, 36.49915, 36.49197, 36.49087, 36.48632, 36.4848, 36.4801,
  36.48107, 36.47251, 36.46644, 36.46671, 36.4623, 36.46809, 36.49004, 36.49142, 36.49653, 36.49915,
  36.50274, 36.50839, 36.50867, 36.52509, 36.52619, 36.53626, 36.54081, 36.53998, 36.53323, 36.52923,
  36.53598, 36.53088, 36.5335, 36.54288, 36.54343, 36.53654, 36.53792, 36.53378, 36.53116, 36.52785,
  36.5284, 36.52178, 36.51017, 36.4874, 36.46421, 36.44889, 36.43908, 36.4011, 36.3917, 36.38562,
  36.37719, 36.37111, 36.34291, 36.30764, 36.29491, 36.29685, 36.29325, 36.28357, 36.26461, 36.24412,
  36.20091, 36.19953, 36.19052, 36.18166, 36.18096, 36.18664, 36.18512, 36.17611, 36.1811, 36.1811,
  36.18664, 36.18637, 36.18152, 36.18664, 36.18415, 36.15519, 36.12358, 36.10222, 36.10222, 36.08932,
  36.08918, 36.07739, 36.08058, 36.08821, 36.0878, 36.07156, 36.06699, 36.05977, 36.0606, 36.05838,
  36.0631, 36.06726, 36.06782, 36.05602, 36.05588, 36.04936, 36.02979, 36.01049, 36.00702, 36.00396,
  35.99952, 36.00313, 36.00591, 36.00855, 36.00757, 36.01188, 36.01325, 36.032, 36.0431, 36.04824,
  36.05476, 36.05004, 36.05365, 36.0567, 36.06197, 36.06975, 36.07072, 36.07557, 36.07654, 36.08293,
  36.08792, 36.09985, 36.10595, 36.10595, 36.10914, 36.11025, 36.11358, 36.12024, 36.12024, 36.13285,
  36.13341, 36.12828, 36.12745, 36.13022, 36.13327, 36.13493, 36.14824, 36.14852, 36.1305, 36.13077,
  36.13743, 36.13812, 36.15697, 36.16695, 36.17707, 36.17513, 36.17721, 36.17527, 36.18206, 36.17928,
  36.18136, 36.17942, 36.17554, 36.17305, 36.17139, 36.17, 36.16404, 36.1682, 36.16376, 36.16127,
  36.15489, 36.15492, 36.15492, 36.15285,
  36.17828, 36.20779, 36.2294, 36.24449, 36.24393, 36.28283, 36.28324, 36.28712, 36.28836, 36.29362,
  36.3004, 36.30123, 36.30497, 36.31188, 36.31008, 36.36235, 36.37977, 36.38005, 36.39304, 36.39373,
  36.41031, 36.41652, 36.415, 36.41708, 36.41321, 36.41611, 36.41459, 36.4226, 36.42868, 36.4273,
  36.42854, 36.42854, 36.45078, 36.45243, 36.44926, 36.46168, 36.46154, 36.45823, 36.47852, 36.47797,
  36.48142, 36.48639, 36.50047, 36.49964, 36.50571, 36.50737, 36.50557, 36.50764, 36.50668, 36.50737,
  36.4846, 36.48501, 36.48363, 36.48694, 36.48639, 36.48819, 36.48722, 36.49053, 36.48998, 36.50323,
  36.50433, 36.50682, 36.5053, 36.50751, 36.50626, 36.52461, 36.53827, 36.53827, 36.54544, 36.56295,
  36.5635, 36.57302, 36.58143, 36.57894, 36.58129, 36.58625, 36.59562, 36.59397, 36.601, 36.63379,
  36.66175, 36.66368, 36.70332, 36.70649, 36.70098, 36.70126, 36.70786, 36.71172, 36.7186, 36.72011,
  36.72273, 36.71186, 36.71433, 36.71007, 36.71254, 36.71557, 36.71433, 36.71984, 36.72465, 36.72919,
  36.7391, 36.74708, 36.74914, 36.7468, 36.74818, 36.7446, 36.74391, 36.74144, 36.74446, 36.73965,
  36.72589, 36.72878, 36.74089, 36.74405, 36.74102, 36.75189, 36.7501, 36.75382, 36.75395, 36.75079,
  36.75285, 36.74845, 36.74556, 36.74639, 36.73937, 36.73827, 36.72988, 36.72961, 36.73538, 36.7391,
  36.72849, 36.72519, 36.72189, 36.71968, 36.71982, 36.72326, 36.72395, 36.72959, 36.73344, 36.73124,
  36.73386, 36.72835, 36.73069, 36.72973, 36.73578, 36.74651, 36.74156, 36.7428, 36.74101, 36.74472,
  36.7234, 36.72367, 36.7139, 36.7223, 36.71886, 36.7245, 36.71748, 36.69739, 36.6967, 36.69326,
  36.69656, 36.69422, 36.70303, 36.70097, 36.70757, 36.70606, 36.71157, 36.71363, 36.73358, 36.73908,
  36.73812, 36.74225, 36.73798, 36.75353, 36.75463, 36.7494, 36.75201, 36.74472, 36.75091, 36.74885,
  36.75022, 36.74789, 36.74899, 36.74348, 36.74789, 36.7439, 36.75119, 36.75064, 36.74569, 36.74734,
  36.74706, 36.7406, 36.74747, 36.7417, 36.74472, 36.73824, 36.75145, 36.75255, 36.73824, 36.69889,
  36.69944, 36.6949, 36.69531, 36.69861, 36.70426, 36.7066, 36.69971, 36.69338, 36.69393, 36.68843,
  36.68925, 36.68168, 36.67989, 36.6843, 36.68512, 36.68265, 36.68912, 36.68912, 36.69448, 36.69971,
  36.73425, 36.76988, 36.7773, 36.81414, 36.81387, 36.81758, 36.81895, 36.82266, 36.82513, 36.82445,
  36.82843, 36.82761, 36.83434, 36.83049, 36.82994, 36.83461, 36.83654, 36.82774, 36.81428, 36.8107,
  36.81084, 36.81606, 36.81936, 36.82706, 36.84093, 36.84162, 36.83613, 36.83709, 36.83283, 36.81785,
  36.79641, 36.76561, 36.73081, 36.72875, 36.72655, 36.7271, 36.72337, 36.72089, 36.72199, 36.71938,
  36.72433, 36.72282, 36.72653, 36.73149, 36.72873, 36.73259, 36.7319, 36.73671, 36.73754, 36.7396,
  36.73836, 36.74167, 36.74689, 36.74978, 36.74758, 36.75239, 36.75597, 36.76381, 36.76147, 36.76505,
  36.76331, 36.76592, 36.76812, 36.76908, 36.77513, 36.77554, 36.77898, 36.78022, 36.78531, 36.80647,
  36.8139, 36.81307, 36.81747, 36.81857, 36.82187, 36.82942, 36.83149, 36.83561, 36.83616, 36.83423,
  36.83629, 36.8422, 36.84577, 36.85017, 36.85319, 36.85649, 36.8602, 36.86816, 36.88176, 36.88533,
  36.88491, 36.89411, 36.89535, 36.90125, 36.90359, 36.89782, 36.89919, 36.90688, 36.90921, 36.91278,
  36.91319, 36.91553, 36.91525, 36.91827, 36.91964, 36.92266, 36.93666, 36.93982, 36.93419, 36.93762,
  36.93625, 36.94434, 36.9486, 36.95134, 36.96657, 36.96862, 36.96986, 36.97699, 36.98138, 36.98837,
  36.99523, 36.99509, 37.00798, 37.00921, 37.01332, 37.01428, 37.02429, 37.03909, 37.04155, 37.05251,
  37.06772, 37.09415, 37.11414, 37.11852, 37.15164, 37.16928, 37.179, 37.18392, 37.20183, 37.22289,
  37.23464, 37.23396, 37.23792, 37.23942, 37.24448, 37.25364, 37.26416, 37.26798, 37.27549, 37.30622,
  37.30991, 37.33967, 37.35072, 37.35782, 37.35768, 37.35359, 37.35645, 37.36218, 37.3731, 37.37542,
  37.37351, 37.37405, 37.37828, 37.38115, 37.38033, 37.38428, 37.38387, 37.38865, 37.39588, 37.39369,
  37.39969, 37.40324, 37.40024, 37.40119, 37.40569, 37.40842, 37.40624, 37.40365, 37.4046, 37.40706,
  37.41251, 37.41115, 37.41933, 37.42233, 37.4286, 37.42969, 37.43242, 37.43174, 37.42219, 37.42287,
  37.42151, 37.42915, 37.43351, 37.43378, 37.44957, 37.48146, 37.48105, 37.48731, 37.49944, 37.5008,
  37.50407, 37.50257, 37.50679, 37.50679, 37.50992, 37.52476, 37.5328, 37.53674, 37.54872, 37.5577,
  37.55607, 37.55702, 37.56002, 37.56328, 37.56328, 37.56056, 37.56247, 37.55866, 37.56015, 37.55729,
  37.55784, 37.56192, 37.56287, 37.57063, 37.57145, 37.57607, 37.57798, 37.57594, 37.5758, 37.57335,
  37.5758, 37.57253, 37.57417, 37.56369, 37.55661, 37.5524, 37.55144, 37.54314, 37.54001, 37.54219,
  37.53879, 37.54055, 37.53756, 37.53879, 37.53388, 37.53525, 37.54423, 37.54763, 37.55362, 37.55701,
  37.56014, 37.55932, 37.56313, 37.56449, 37.56966, 37.5683, 37.57592, 37.57783, 37.58177, 37.58136,
  37.5849, 37.58, 37.58, 37.58381, 37.57946, 37.57946, 37.57374, 37.57442, 37.57513, 37.58234)
LONGITUDE_VALUEs <- c(
  -7.51998, -7.53114, -7.54212, -7.538, -7.53165, -7.53234, -7.52736, -7.52719, -7.52496, -7.52753,
  -7.5095, -7.50779, -7.49955, -7.49989, -7.46144, -7.43878, -7.43449, -7.42763, -7.42213, -7.41149,
  -7.39794, -7.39159, -7.38711, -7.37904, -7.38178, -7.36016, -7.349, -7.34403, -7.33817, -7.30025,
  -7.29424, -7.30574, -7.30831, -7.30094, -7.30866, -7.32222, -7.32291, -7.31827, -7.31003, -7.31106,
  -7.30574, -7.31003, -7.2685, -7.27107, -7.23176, -7.24892, -7.24137, -7.24566, -7.23982, -7.24154,
  -7.20566, -7.1946, -7.17829, -7.16352, -7.14897, -7.13454, -7.13282, -7.14038, -7.1359, -7.14912,
  -7.1438, -7.10447, -7.09932, -7.07857, -7.05213, -7.03152, -6.98536, -6.95943, -6.96767, -6.95136,
  -7.02174, -7.02638, -7.05231, -7.03925, -7.04063, -7.03599, -7.03238, -7.03616, -7.03976, -7.06759,
  -7.08628, -7.088, -7.09813, -7.10638, -7.12647, -7.15667, -7.16165, -7.19617, -7.19579, -7.20592,
  -7.22859, -7.23873, -7.26071, -7.25776, -7.26738, -7.2667, -7.27254, -7.26533, -7.24729, -7.24283,
  -7.26069, -7.26275, -7.26945, -7.27494, -7.28353, -7.28662, -7.28611, -7.29296, -7.30378, -7.30069,
  -7.30378, -7.31443, -7.31545, -7.32232, -7.31975, -7.31322, -7.30824, -7.29914, -7.29536, -7.30069,
  -7.31512, -7.31237, -7.31477, -7.33092, -7.33641, -7.31683, -7.2976, -7.2794, -7.28077, -7.27203,
  -7.21778, -7.2147, -7.20062, -7.19907, -7.16869, -7.15409, -7.15273, -7.14775, -7.14088, -7.11308,
  -7.1069, -7.10295, -7.09883, -7.0887, -7.08544, -7.07513, -7.0662, -7.06603, -7.05624, -7.05847,
  -7.04748, -7.04353, -7.02722, -7.01472, -7.01042, -7.01042, -6.99806, -6.98174, -6.97247, -6.95169,
  -6.94671, -6.93777, -6.93743, -6.93163, -6.93455, -6.95687, -6.96526, -6.96749, -6.96955, -6.96835,
  -6.96938, -6.96251, -6.95856, -6.95135, -6.95323, -6.9589, -6.95839, -6.96199, -6.95788, -6.95943,
  -6.96406, -6.97505, -6.98776, -6.98981, -6.98758, -6.99118, -6.98964, -7.00063, -7.00269, -6.99909,
  -7.00218, -7.00252, -7.01162, -7.02519, -7.04733, -7.05235, -7.06296, -7.06279, -7.06897, -7.0676,
  -7.08031, -7.09903, -7.1287, -7.12492, -7.13248, -7.12767, -7.13007, -7.12063, -7.1366, -7.14656,
  -7.15549, -7.16545, -7.17318, -7.17816, -7.184, -7.18658, -7.19465, -7.20198, -7.20713, -7.2049,
  -7.21692, -7.22568, -7.23049, -7.24698, -7.24851, -7.26294, -7.24954, -7.25349, -7.25812, -7.25469,
  -7.26156, -7.26893, -7.2746, -7.27357, -7.28267, -7.28009, -7.28902, -7.29761, -7.30139, -7.31048,
  -7.32439, -7.33193, -7.357, -7.36044, -7.36697, -7.36867, -7.37846, -7.38207, -7.39083, -7.39735,
  -7.40714, -7.41212, -7.42312, -7.41794, -7.42996, -7.42635, -7.44661, -7.44352, -7.45228, -7.44352,
  -7.45691, -7.45165, -7.45508, -7.45302, -7.46761, -7.46384, -7.47225, -7.46985, -7.4822, -7.48015,
  -7.49045, -7.49645, -7.50503, -7.49594, -7.5016, -7.50195, -7.51568, -7.51516, -7.50744, -7.50641,
  -7.51293, -7.5234, -7.52099, -7.51224, -7.5131, -7.49165, -7.49182, -7.48221, -7.46899, -7.46298,
  -7.46984, -7.46796, -7.45577, -7.46075, -7.4544, -7.44478, -7.44684, -7.46143, -7.46349, -7.44821,
  -7.43877, -7.43637, -7.44581, -7.4386, -7.44272, -7.42178, -7.43414, -7.43225, -7.41972, -7.41286,
  -7.4144, -7.40616,
  -7.37572, -7.36113, -7.35375, -7.34122, -7.33041, -7.32783, -7.30172, -7.26465, -7.13917, -7.06089,
  -7.0566, -7.01421, -6.94742, -6.93849, -6.90776, -6.87498, -6.85233, -6.85301, -6.87412, -6.87789,
  -6.89043, -6.90262, -6.89507, -6.87516, -6.87121, -6.83414, -6.83173, -6.81131, -6.77129, -6.65406,
  -6.57921, -6.51964, -6.47672, -6.44738, -6.41922, -6.39604, -6.3866, -6.34662, -6.34181, -6.35451,
  -6.39639, -6.40892, -6.4151, -6.42471, -6.42866, -6.43586, -6.44376, -6.44016, -6.44068, -6.40429,
  -6.39897, -6.39204, -6.39478, -6.38774, -6.36473, -6.35752, -6.35236, -6.34292, -6.33536, -6.33729,
  -6.32887, -6.31462, -6.30878, -6.30311, -6.28182, -6.27102, -6.26792, -6.26209, -6.25315, -6.24869,
  -6.23993, -6.23581, -6.2322, -6.2262, -6.22431, -6.22637, -6.23479, -6.24114, -6.25626, -6.25505,
  -6.25865, -6.25573, -6.24783, -6.25041, -6.24594, -6.2322, -6.21572, -6.20696, -6.1958, -6.20404,
  -6.20181, -6.19069, -6.17798, -6.17283, -6.19377, -6.18931, -6.1924, -6.1936, -6.20185, -6.20631,
  -6.21438, -6.21006, -6.21642, -6.22827, -6.22844, -6.25351, -6.26743, -6.26193, -6.26243, -6.25642,
  -6.26346, -6.26106, -6.26862, -6.27566, -6.2815, -6.26999, -6.27257, -6.27686, -6.27566, -6.2827,
  -6.28133, -6.28974, -6.2918, -6.27909, -6.28648, -6.29283, -6.30382, -6.30845, -6.3057, -6.30759,
  -6.29437, -6.28698, -6.28304, -6.26775, -6.2554, -6.2499, -6.23513, -6.21729, -6.21712, -6.20735,
  -6.1991, -6.18313, -6.16597, -6.1519, -6.1416, -6.13112, -6.11326, -6.10125, -6.08785, -6.08014,
  -6.05112, -6.04649, -6.03876, -6.03567, -6.03034, -6.02794, -6.00973, -5.98002, -5.96394, -5.95741,
  -5.94676, -5.94178, -5.93165, -5.92134, -5.91224, -5.87036, -5.83843, -5.8247, -5.81972, -5.8113,
  -5.80529, -5.79739, -5.78763, -5.78386, -5.77252, -5.75019, -5.73302, -5.71928, -5.71602, -5.71052,
  -5.70039, -5.69592, -5.68682, -5.66659, -5.65989, -5.64546, -5.62506, -5.60925, -5.60891, -5.61355,
  -5.61132, -5.60548, -5.60805, -5.60668, -5.60256, -5.60015, -5.5792, -5.53803, -5.50402, -5.4999,
  -5.48479, -5.46504, -5.45873, -5.44808, -5.44808, -5.43589, -5.43039, -5.42885, -5.42541, -5.42679,
  -5.44276, -5.44259, -5.43555, -5.43022, -5.43228, -5.43657, -5.43846, -5.43416, -5.42111, -5.42334,
  -5.43056, -5.43159, -5.44224, -5.43725, -5.43914, -5.43622, -5.43571, -5.44138, -5.44309, -5.44464,
  -5.44344, -5.44687, -5.44395, -5.43761, -5.42576, -5.42387, -5.42129, -5.41752, -5.41099, -5.40309,
  -5.39175, -5.38162, -5.37939, -5.38265, -5.37681, -5.38197, -5.37321, -5.36977, -5.35915, -5.35795,
  -5.36069, -5.35183, -5.34565, -5.33827,
  -5.33564, -5.32517, -5.3171, -5.30594, -5.2977, -5.27847, -5.27607, -5.2747, -5.26904, -5.27109,
  -5.26852, -5.26474, -5.26423, -5.25427, -5.24706, -5.22681, -5.21754, -5.21119, -5.20174, -5.19779,
  -5.18389, -5.17239, -5.17068, -5.16553, -5.16278, -5.15609, -5.15437, -5.14715, -5.13497, -5.12965,
  -5.12622, -5.12124, -5.08107, -5.06837, -5.06133, -5.03267, -5.01394, -5.00828, -4.9767, -4.97172,
  -4.96879, -4.95214, -4.93583, -4.92537, -4.91232, -4.89344, -4.88795, -4.87628, -4.86976, -4.85895,
  -4.74909, -4.74611, -4.7413, -4.73048, -4.71949, -4.71554, -4.71159, -4.70421, -4.69442, -4.67862,
  -4.66625, -4.6623, -4.65268, -4.64667, -4.63895, -4.62644, -4.62095, -4.61562, -4.61717, -4.60447,
  -4.59914, -4.58798, -4.5502, -4.54251, -4.53393, -4.53255, -4.51847, -4.50988, -4.5092, -4.48619,
  -4.46148, -4.45444, -4.43298, -4.42629, -4.42646, -4.41942, -4.41907, -4.4232, -4.41461, -4.40465,
  -4.39022, -4.32329, -4.28533, -4.24813, -4.23353, -4.1942, -4.17703, -4.16277, -4.11284, -4.09962,
  -4.09137, -4.08004, -4.07179, -4.06767, -4.0608, -4.05033, -4.0383, -4.03195, -4.02443, -3.99747,
  -3.95608, -3.95146, -3.91939, -3.89741, -3.88229, -3.86254, -3.84932, -3.84503, -3.83438, -3.82854,
  -3.8236, -3.80316, -3.79887, -3.79131, -3.78444, -3.77757, -3.76916, -3.76297, -3.76212, -3.75095,
  -3.735, -3.73689, -3.735, -3.73586, -3.72899, -3.72848, -3.72556, -3.72676, -3.71491, -3.71062,
  -3.70289, -3.69413, -3.69087, -3.67489, -3.67133, -3.65914, -3.63218, -3.62874, -3.62222, -3.60109,
  -3.57966, -3.57503, -3.5515, -3.53432, -3.52694, -3.52917, -3.50684, -3.48302, -3.47426, -3.46911,
  -3.45846, -3.4181, -3.41329, -3.40797, -3.40247, -3.39595, -3.38758, -3.36645, -3.34722, -3.33623,
  -3.33129, -3.31755, -3.30484, -3.25812, -3.2437, -3.23305, -3.22979, -3.21004, -3.20025, -3.19171,
  -3.18605, -3.18038, -3.17506, -3.16475, -3.15479, -3.14345, -3.13332, -3.10915, -3.07103, -3.06055,
  -3.03033, -3.01933, -3.02225, -3.008, -2.99031, -2.97766, -2.94125, -2.92391, -2.89661, -2.85817,
  -2.85353, -2.84976, -2.84409, -2.84272, -2.83327, -2.81506, -2.79549, -2.7936, -2.78638, -2.77988,
  -2.77662, -2.76906, -2.75584, -2.7399, -2.71362, -2.70091, -2.69009, -2.68219, -2.67378, -2.64994,
  -2.61286, -2.60256, -2.59827, -2.56599, -2.55912, -2.55379, -2.5325, -2.53064, -2.52326, -2.50282,
  -2.49509, -2.49131, -2.48393, -2.47877, -2.47105, -2.4762, -2.47362, -2.45267, -2.43296, -2.4309,
  -2.42437, -2.42334, -2.41046, -2.40531, -2.37013, -2.3569, -2.33406, -2.33097, -2.3164, -2.28755,
  -2.26181, -2.23195, -2.20156, -2.20259, -2.20104, -2.19641, -2.19332, -2.19349, -2.18731, -2.18439,
  -2.17941, -2.16687, -2.16483, -2.15057, -2.13735, -2.12928, -2.12412, -2.11863, -2.11451, -2.11537,
  -2.1188, -2.12206, -2.12139, -2.11847, -2.11401, -2.10679, -2.11057, -2.10645, -2.10165, -2.09443,
  -2.09089, -2.08008, -2.08042, -2.07493, -2.07081, -2.06377, -2.0612, -2.06377, -2.06171, -2.0624,
  -2.05571, -2.05021, -2.05056, -2.04077, -2.04249, -2.03408, -2.02516, -2.02516, -2.01759, -2.00935,
  -2.00283, -1.9994, -2.0018, -1.99528, -1.99974, -1.99871, -2.00695, -2.00214, -2.00455, -1.99905,
  -1.99476, -1.99236, -1.98824, -1.98464, -1.97743, -1.97297, -1.96627, -1.96541, -1.95872, -1.96027,
  -1.95785, -1.9582, -1.95494, -1.95597, -1.95253, -1.95562, -1.94018, -1.9316, -1.91478, -1.91323,
  -1.90431, -1.90353, -1.8958, -1.89822, -1.90011, -1.89754, -1.90149, -1.89891, -1.90183, -1.90097,
  -1.89444, -1.88981, -1.8881, -1.88226, -1.88003, -1.87676, -1.88003, -1.87385, -1.86528, -1.86202,
  -1.85034, -1.84999, -1.8414, -1.83316, -1.82321, -1.82441, -1.82132, -1.81514, -1.81136, -1.80228,
  -1.79283, -1.7851, -1.78184, -1.77394, -1.77497, -1.76451, -1.7585, -1.7482, -1.74511, -1.70596,
  -1.70631, -1.68828, -1.67935, -1.66922, -1.65651, -1.65531, -1.64998, -1.64984, -1.64417, -1.63558,
  -1.63404, -1.62614, -1.62803, -1.62511, -1.62219, -1.61978, -1.61137, -1.61137, -1.60261, -1.59763,
  -1.5954, -1.58458, -1.58389, -1.57702, -1.57839, -1.57052, -1.5654, -1.56609, -1.5575, -1.56179,
  -1.55904, -1.54771, -1.54015, -1.53053, -1.52504, -1.52006, -1.51783, -1.50048, -1.4979, -1.49395,
  -1.48966, -1.47712, -1.47661, -1.48382, -1.48212, -1.46478, -1.46101, -1.45997, -1.43834, -1.4294,
  -1.4282, -1.42116, -1.41584, -1.40158, -1.40196, -1.39148, -1.37139, -1.37139, -1.35922, -1.33998,
  -1.33844, -1.3314, -1.33174, -1.32556, -1.31886, -1.31886, -1.31388, -1.28317, -1.26703, -1.26136,
  -1.25414, -1.2538, -1.25827, -1.25518, -1.24899, -1.2471, -1.23594, -1.2346, -1.22567, -1.22533,
  -1.21674, -1.20833, -1.20266, -1.1738, -1.16762, -1.17055, -1.17468, -1.17073, -1.15286, -1.14737,
  -1.14325, -1.13741, -1.12934, -1.12281, -1.11955, -1.10632, -1.11749, -1.12693, -1.12693, -1.1218,
  -1.12283, -1.11905, -1.11956, -1.11407, -1.10874, -1.09535, -1.09212, -1.08181, -1.07958, -1.07614,
  -1.07408, -1.06601, -1.05931, -1.05691, -1.04334, -1.03098, -1.02273, -1.01913, -1.01175, -1.01244)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_1, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_union(Geo_0[c(1:2, 7:8, 11:21, 161)]))
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
LATITUDE_VALUEs <- c(
  35.91246, 35.91333, 35.91325, 35.91516, 35.91606, 35.91637, 35.91606, 35.9162, 35.91688, 35.91639,
  35.91674, 35.91773, 35.91752, 35.91671, 35.91537, 35.91479, 35.91323, 35.91252, 35.91015, 35.9089,
  35.90803, 35.90767, 35.90493, 35.9039, 35.90181, 35.89969, 35.89939, 35.8972, 35.89698, 35.8963,
  35.89551, 35.8943, 35.89392, 35.89563, 35.90079, 35.89872, 35.89684, 35.89263, 35.89183, 35.89112,
  35.88983, 35.891, 35.88989, 35.89015, 35.89136, 35.89242, 35.89338, 35.89303, 35.89282, 35.89484,
  35.89687, 35.89969, 35.90211, 35.90405, 35.90716, 35.90687, 35.9035, 35.90324, 35.90214, 35.90073,
  35.89999, 35.90077, 35.90016, 35.89873, 35.89856, 35.89806, 35.89792, 35.89753, 35.8967, 35.89606,
  35.89519, 35.89402, 35.89515, 35.89409, 35.89423, 35.8934, 35.89328, 35.89199, 35.89173, 35.89103,
  35.89034, 35.8907, 35.88928, 35.88867, 35.88989, 35.88888, 35.88716, 35.88627, 35.88618, 35.88439,
  35.88498, 35.8862, 35.88629, 35.88695, 35.88693, 35.88653, 35.88744, 35.8874, 35.88676, 35.88681,
  35.88558, 35.8846, 35.88384, 35.88333, 35.88213, 35.88156, 35.88006, 35.87972, 35.87878, 35.87848,
  35.87881, 35.87888, 35.87982, 35.87914, 35.87655, 35.87318, 35.87292, 
  35.87095, 35.87231, 35.87459, 35.8757, 35.87563, 35.87307, 35.87361, 35.87306, 35.87318, 35.87443, 
  35.87455, 35.87565, 35.87565, 35.87754, 35.87852, 35.87918, 35.879, 35.87978, 35.87977, 35.88114, 
  35.88121, 35.88417, 35.88589, 35.88632, 35.88743, 35.88802, 35.88921, 35.89239, 35.89317, 35.89385,
  35.89416, 35.89449, 35.89561, 35.89693, 35.89791, 35.89866, 35.90126, 35.90268, 35.90274, 35.90587, 
  35.90652, 35.9085, 35.90899, 35.91051, 35.9116, 35.91162)
LONGITUDE_VALUEs <- c(
  -5.38203, -5.3819, -5.38123, -5.37919, -5.37945, -5.37728, -5.37696, -5.37484, -5.37293, -5.37106,
  -5.36919, -5.36724, -5.36561, -5.3642, -5.36338, -5.36145, -5.35988, -5.35789, -5.35456, -5.35046,
  -5.34973, -5.34793, -5.34698, -5.34586, -5.34554, -5.3434, -5.34126, -5.3394, -5.33991, -5.33973,
  -5.33757, -5.33617, -5.33355, -5.33296, -5.32501, -5.32286, -5.32471, -5.31887, -5.31954, -5.31671,
  -5.31785, -5.31491, -5.31182, -5.30967, -5.30706, -5.30766, -5.30523, -5.30489, -5.30212, -5.30173,
  -5.29918, -5.29969, -5.29696, -5.29037, -5.28855, -5.28767, -5.28598, -5.28385, -5.28443, -5.28366,
  -5.28145, -5.27921, -5.2784, -5.27936, -5.27853, -5.27891, -5.27821, -5.27894, -5.27926, -5.28052,
  -5.28012, -5.28087, -5.28301, -5.28331, -5.28391, -5.28415, -5.2852, -5.28544, -5.28683, -5.2867,
  -5.28881, -5.29025, -5.29179, -5.29415, -5.29681, -5.29868, -5.30012, -5.30022, -5.30203, -5.30713,
  -5.31074, -5.31256, -5.31363, -5.31454, -5.31666, -5.3175, -5.31801, -5.31879, -5.31887, -5.31998,
  -5.32189, -5.3229, -5.32314, -5.32417, -5.32475, -5.32462, -5.32647, -5.32747, -5.32799, -5.329,
  -5.32999, -5.33185, -5.33361, -5.33666, -5.34035, -5.34219, -5.34271, 
  -5.34337, -5.34807, -5.3485, -5.34973, -5.35067, -5.35168, -5.35393, -5.35528, -5.35623, -5.35659, 
  -5.35844, -5.35857, -5.35981, -5.35975, -5.36226, -5.36294, -5.3644, -5.36606, -5.36859, -5.36925, 
  -5.37084, -5.37322, -5.37305, -5.37432, -5.37445, -5.3751, -5.37545, -5.37462, -5.37509, -5.3749, 
  -5.3754, -5.37543, -5.37779, -5.3771, -5.37735, -5.3765, -5.37765, -5.3775, -5.37658, -5.37713, 
  -5.37837, -5.37825, -5.37985, -5.37975, -5.38062, -5.38129)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  35.31995, 35.31982, 35.31966, 35.31952, 35.31593, 35.3028, 35.29371, 35.28863, 35.28851, 35.28705,
  35.28621, 35.28486, 35.2828, 35.28197, 35.28178, 35.28038, 35.28012, 35.27679, 35.27285, 35.26559,
  35.26614, 35.26586, 35.26649, 35.26747, 35.2719,
  35.2723, 35.273, 35.27838, 35.27845, 35.2744, 35.27473, 35.27568, 35.27646, 35.27668, 35.27749, 
  35.2818, 35.28304, 35.2831, 35.2846, 35.28647, 35.2876, 35.28704, 35.2877, 35.28786, 35.28958, 
  35.28951, 35.28822, 35.28822, 35.28975, 35.28985, 35.29043, 35.2912, 35.29107, 35.29139, 35.29137, 
  35.29212, 35.29282, 35.29272, 35.29148, 35.2914, 35.29089, 35.29107, 35.2908, 35.29099, 35.29144, 
  35.29146, 35.29302, 35.29289, 35.29254, 35.29266, 35.29062, 35.29141, 35.2912, 35.29127, 35.28857, 
  35.28885, 35.28941, 35.28953, 35.29062, 35.29262, 35.29326, 35.29361, 35.29363, 35.2945, 35.29455, 
  35.29487, 35.29493, 35.29459, 35.29456, 35.29537, 35.29592, 35.29605, 35.29597, 35.29565, 35.29538, 
  35.29534, 35.29551, 35.29538, 35.29493, 35.29467, 35.29451, 35.29479, 35.2951, 35.29547, 35.29578, 
  35.29613, 35.29702, 35.2973, 35.29818, 35.29878, 35.29958, 35.30233, 35.30384, 35.30363, 35.30326, 
  35.303, 35.30316, 35.30304, 35.30493, 35.3057, 35.30704, 35.30895, 35.31014, 35.31115, 35.31169, 
  35.31233, 35.31341, 35.31428, 35.31465, 35.31507, 35.3152, 35.31596, 35.31583, 35.31666, 35.31858, 
  35.31962, 35.3199, 35.32008, 35.32015, 35.31997)
LONGITUDE_VALUEs <- c(
  -2.95245, -2.95306, -2.95327, -2.95325, -2.96008, -2.96715, -2.96988, -2.97018, -2.96518, -2.96473,
  -2.96762, -2.96827, -2.96809, -2.96835, -2.96653, -2.96574, -2.96494, -2.9612, -2.9541, -2.95063,
  -2.94693, -2.94565, -2.9447, -2.93872, -2.92945,
  -2.92945, -2.92792, -2.92496, -2.92529, -2.92752, -2.93079, -2.93288, -2.93347, -2.93328, -2.93482, 
  -2.93716, -2.93689, -2.93729, -2.93746, -2.937, -2.93612, -2.93419, -2.93402, -2.93551, -2.93541, 
  -2.93349, -2.9336, -2.93317, -2.93305, -2.93545, -2.93601, -2.93604, -2.93558, -2.93488, -2.93579, 
  -2.93575, -2.93483, -2.93403, -2.93372, -2.93447, -2.93437, -2.93251, -2.93248, -2.93093, -2.93102, 
  -2.93132, -2.93158, -2.92965, -2.92965, -2.92926, -2.92852, -2.92548, -2.92539, -2.92516, -2.92413, 
  -2.92307, -2.92331, -2.92319, -2.92331, -2.92409, -2.92495, -2.93002, -2.93215, -2.93191, -2.93247, 
  -2.93261, -2.93302, -2.93289, -2.93333, -2.93365, -2.93333, -2.93368, -2.93403, -2.93432, -2.93413, 
  -2.93434, -2.93451, -2.93464, -2.93465, -2.93438, -2.9349, -2.9357, -2.93511, -2.93512, -2.93491, 
  -2.93516, -2.93527, -2.93586, -2.93659, -2.93671, -2.93575, -2.9375, -2.93902, -2.93947, -2.93933, 
  -2.94025, -2.94073, -2.94155, -2.94374, -2.94417, -2.94579, -2.9473, -2.94743, -2.94688, -2.94614, 
  -2.94625, -2.9455, -2.94438, -2.94474, -2.9446, -2.945, -2.94555, -2.9483, -2.94979, -2.95055, 
  -2.95219, -2.95218, -2.95198, -2.95205, -2.95233)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(35.93941, 35.93783, 35.93766, 35.93995, 35.94032, 35.94085, 35.94132, 35.94167, 35.94145, 35.94082)
LONGITUDE_VALUEs <- c(-3.03717, -3.03629, -3.03508, -3.03348, -3.03234, -3.0323, -3.03103, -3.03131, -3.03253, -3.03272)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(35.21494, 35.21431, 35.21483, 35.21524, 35.21585, 35.21609, 35.21583, 35.216, 35.21551, 35.21531)
LONGITUDE_VALUEs <- c(-3.90355, -3.90282, -3.90243, -3.9015, -3.90168, -3.90221, -3.90237, -3.90282, -3.90279, -3.9033)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(35.21729, 35.21691, 35.21731, 35.21727, 35.21694, 35.21736, 35.21793, 35.21774, 35.21776)
LONGITUDE_VALUEs <- c(-3.90226, -3.90187, -3.901, -3.90045, -3.89975, -3.89941, -3.90053, -3.90075, -3.90165)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  35.21379, 35.21335, 35.21304, 35.21314, 35.213, 35.21306, 35.21315, 35.21326, 35.2133, 35.21342, 
  35.21341, 35.21328, 35.21323, 35.21336, 35.21341, 35.21351, 35.21345, 35.2135, 35.21344, 35.21345, 
  35.21378, 35.21389, 35.2137)
LONGITUDE_VALUEs <- c(
  -3.89001, -3.89053, -3.88964, -3.88898, -3.88872, -3.88852, -3.88865, -3.88862, -3.88872, -3.88866, 
  -3.88854, -3.88857, -3.88836, -3.88838, -3.88827, -3.88837, -3.88852, -3.88865, -3.88874, -3.88886, 
  -3.88887, -3.88925, -3.88978)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(35.17879, 35.17679, 35.17693, 35.17536, 35.17781, 35.17827, 35.18037, 35.18262, 35.18304)
LONGITUDE_VALUEs <- c(-2.44457, -2.44328, -2.44045, -2.43861, -2.43818, -2.43963, -2.44036, -2.43938, -2.44084)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(35.18402, 35.1829, 35.18263, 35.18109, 35.18018, 35.18021, 35.18246, 35.18332, 35.18354, 35.18411)
LONGITUDE_VALUEs <- c(-2.43215, -2.43218, -2.43132, -2.43145, -2.43059, -2.42896, -2.42645, -2.42741, -2.42982, -2.43046)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  35.18491, 35.18309, 35.18142, 35.17983, 35.17895, 35.17809, 35.17877, 35.18033, 35.17965, 35.18039, 
  35.18023, 35.18167, 35.18125, 35.18195, 35.18216, 35.18274, 35.18458)
LONGITUDE_VALUEs <- c(
  -2.42379, -2.42484, -2.42391, -2.42372, -2.42112, -2.42065, -2.4187, -2.4193, -2.42061, -2.42093, 
  -2.42226, -2.42194, -2.42312, -2.42374, -2.42316, -2.42344, -2.42295)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  35.17097, 35.17119, 
  35.1715, 35.17148, 35.17159, 35.17195, 35.17183, 35.1719, 35.17181, 35.1716, 35.17155, 35.17164, 
  35.1716, 35.17169, 35.17208, 35.17235, 35.17243, 35.17258, 35.17262, 35.17276, 35.1728, 35.17289, 
  35.17307, 35.17323, 35.17323, 35.17301, 35.17268, 35.17242, 35.17204, 35.17205, 35.17185, 35.17165, 
  35.17162, 35.17116 )
LONGITUDE_VALUEs <- c(
  -4.29796, -4.29717, 
  -4.29724, -4.29707, -4.29654, -4.29647, -4.29722, -4.29779, -4.29787, -4.29762, -4.29808, -4.29813, 
  -4.29825, -4.29838, -4.29816, -4.29841, -4.29928, -4.29936, -4.29953, -4.29959, -4.29981, -4.29968, 
  -4.29988, -4.30039, -4.30109, -4.3013, -4.30087, -4.30133, -4.30108, -4.30042, -4.29991, -4.2998, 
  -4.29934, -4.29813)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(35.91347, 35.91225, 35.91236, 35.91359, 35.91427, 35.91509, 35.9163, 35.9166, 35.91476, 35.91389)
LONGITUDE_VALUEs <- c(-5.42165, -5.42088, -5.41609, -5.41611, -5.41783, -5.41676, -5.41693, -5.41787, -5.42021, -5.42004)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### MOROCCO #####
Geo_0 <- Geometric_Operations(Geo_2, Geo_1)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0))
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  35.08577, 35.08563, 35.09096, 35.10094, 35.11428, 35.11428, 35.12453, 35.12425, 35.13014, 35.13899, 
  35.1432, 35.14755, 35.14769, 35.11877, 35.10108, 35.09883, 35.09433, 35.0845, 35.08169, 35.08731, 
  35.08534, 35.0897, 35.09855, 35.09841, 35.11371, 35.11877, 35.11877, 35.122, 35.12186, 35.1352, 
  35.14923, 35.15302, 35.19329, 35.19358, 35.19652, 35.2062, 35.20017, 35.19764, 35.19484, 35.19301, 
  35.18923, 35.18867, 35.17604, 35.17071, 35.16411, 35.1512, 35.13913, 35.13688, 35.12439, 35.12411, 
  35.11245, 35.09785, 35.10304, 35.1022, 35.10515, 35.10515, 35.1088, 35.11863, 35.11989, 35.12481, 
  35.12326, 35.13253, 35.14601, 35.15078, 35.16004, 35.16622, 35.18474, 35.19764, 35.20031, 35.20339, 
  35.2048, 35.21111, 35.20536, 35.20929, 35.2156, 35.21924, 35.21714, 35.22317, 35.22541, 35.23186, 
  35.23943, 35.25121, 35.25794, 35.25149, 35.24715, 35.24378, 35.23579, 35.2327, 35.2184, 35.20985, 
  35.20971, 35.20578, 35.20985, 35.20999, 35.23523, 35.26411, 35.27686, 35.27966, 35.27784, 35.27182, 
  35.26803, 35.27222, 35.27118, 
  35.2719, 35.26747, 35.26649, 35.26586, 35.26614, 35.26559, 35.27285, 35.27679, 35.28012, 35.28038, 
  35.28178, 35.28197, 35.2828, 35.28486, 35.28621, 35.28705, 35.28851, 35.28863, 35.29371, 35.3028, 
  35.31593, 35.31952, 35.31966, 35.31982, 35.31995, 
  35.32298, 35.3227, 35.32439, 35.32453, 35.33097, 35.34749, 35.34749, 35.35785, 35.35855, 35.36583, 
  35.37491, 35.37983, 35.38389, 35.3906, 35.40502, 35.40404, 35.40838, 35.41327, 35.41439, 35.41957, 
  35.41999, 35.42348, 35.42418, 35.4268, 35.43579, 35.43677, 35.43971, 35.43593, 35.43621, 35.44013, 
  35.43384, 35.43481, 35.41495, 35.41089, 35.40894, 35.40754, 35.40446, 35.40278, 35.39984, 35.39956, 
  35.39312, 35.39578, 35.39312, 35.39046, 35.38739, 35.38319, 35.35421, 35.35113, 35.30001, 35.29875, 
  35.29497, 35.27997, 35.27874, 35.27458, 35.27199, 35.27829, 35.28348, 35.28292, 35.28516, 35.28306, 
  35.2804, 35.27353, 35.26876, 35.25671, 35.26147, 35.25769, 35.24858, 35.24353, 35.2469, 35.22741, 
  35.22278, 35.22727, 35.22727, 35.22166, 35.2225, 35.21843, 35.21759, 35.21198, 35.20581, 35.19038, 
  35.18561, 35.18519, 35.1894, 35.18884, 35.19216, 35.19178, 35.19838, 35.20469, 35.20413, 35.20623, 
  35.20385, 35.1981, 35.19992, 35.21829, 35.22194, 35.21955, 35.22895, 35.27143, 35.27535, 35.27829, 
  35.28628, 35.28404, 35.28866, 35.28278, 35.28572, 35.28082, 35.27409, 35.27367, 35.26288, 35.23161, 
  35.22727, 35.22208, 35.20735, 35.20006, 35.19641, 35.20553, 35.20876, 35.21002, 35.21329, 35.21365, 
  35.2194, 35.22024, 35.22585, 35.22781, 35.23118, 35.23258, 35.2356, 35.23791, 35.23917, 35.24127, 
  35.24225, 35.24548, 35.2459, 35.25123, 35.25459, 35.263, 35.25894, 35.25123, 35.23609, 35.23426, 
  35.23665, 35.23188, 35.23579, 35.2407, 35.23327, 35.23621, 35.23228, 35.2278, 35.2299, 35.22387, 
  35.22317, 35.21952, 35.22107, 35.20396, 35.20592, 35.20087, 35.20311, 35.19961, 35.19947, 35.19694, 
  35.20227, 35.19778, 35.19778, 35.18375, 35.18516, 35.18474, 35.18867, 35.18404, 35.18432, 35.17772, 
  35.18207, 35.17141, 35.17159, 35.17063, 35.17062, 35.17088, 35.17119, 35.17097,
  35.17036, 35.16901, 35.16713, 35.16726, 35.16627, 35.1665, 35.16843, 35.16866, 35.16603, 35.16697, 
  35.16451, 35.16431, 35.16194, 35.15723, 35.15667, 35.15078, 35.1505, 35.14713, 35.14839, 35.14741, 
  35.15092, 35.14741, 35.14923, 35.15372, 35.15443, 35.15218, 35.15921, 35.15388, 35.16399, 35.16966, 
  35.1769, 35.17718, 35.17493, 35.19247, 35.18714, 35.19485, 35.21407, 35.20986, 35.21337, 35.2079, 
  35.20453, 35.21814, 35.22529, 35.22361, 35.23482, 35.23707, 35.25277, 35.25725, 35.27912, 35.30224, 
  35.29944, 35.31779, 35.33991, 35.35252, 35.36591, 35.37743, 35.38807, 35.38863, 35.4036, 35.39969, 
  35.40388, 35.40528, 35.42053, 35.47717, 35.47633, 35.48807, 35.50386, 35.51993, 35.52356, 35.53251, 
  35.53656, 35.53474, 35.54131, 35.54131, 35.53726, 35.53823, 35.55052, 35.54661, 35.55038, 35.57273, 
  35.57901, 35.58208, 35.61377, 35.66608, 35.67626, 35.68254, 35.68644, 35.68574, 35.68756, 35.68212, 
  35.68323, 35.70192, 35.74303, 35.75055, 35.75404, 35.75863, 35.78899, 35.84885, 35.85441,
  35.87095, 35.87231, 35.87459, 35.8757, 35.87563, 35.87307, 35.87361, 35.87306, 35.87318, 35.87443, 
  35.87455, 35.87565, 35.87565, 35.87754, 35.87852, 35.87918, 35.879, 35.87978, 35.87977, 35.88114, 
  35.88121, 35.88417, 35.88589, 35.88632, 35.88743, 35.88802, 35.88921, 35.89239, 35.89317, 35.89385,
  35.89416, 35.89449, 35.89561, 35.89693, 35.89791, 35.89866, 35.90126, 35.90268, 35.90274, 35.90587, 
  35.90652, 35.9085, 35.90899, 35.91051, 35.9116, 35.91162, 35.91246,
  35.91134, 35.9087, 35.91009, 35.91357, 35.91691, 35.91955, 35.92302, 35.91301, 35.90954, 35.90982, 
  35.90759, 35.90703, 35.90995, 35.9087, 35.90398, 35.90481, 35.90731, 35.91315, 35.91482, 35.91343, 
  35.91468, 35.90606, 35.90537, 35.90912, 35.90648, 35.90147, 35.89855, 35.88757, 35.89077, 35.89522, 
  35.89647, 35.89077, 35.88437, 35.88228, 35.88298, 35.87867, 35.87672, 35.87839, 35.85947, 35.85418, 
  35.84486, 35.8443, 35.84848, 35.84138, 35.84166, 35.83623, 35.82989, 35.83317, 35.8322, 35.83581, 
  35.83526, 35.82705, 35.83053, 35.83053, 35.83303, 35.83373, 35.83734, 35.83874, 35.83178, 35.83206, 
  35.82886, 35.83066, 35.82412, 35.81869, 35.81939, 35.81758, 35.80505, 35.79043, 35.78082, 35.77665, 
  35.77776, 35.7811, 35.78821, 35.78723, 35.79196, 35.79085, 35.79531, 35.79364, 35.7967, 35.79753, 
  35.80088, 35.79712, 35.79795, 35.79545, 35.79865, 35.79684, 35.8006, 35.80074, 35.7967, 35.78904, 
  35.77762, 35.77275, 35.75534, 35.69569, 35.62916, 35.57668, 35.56956, 35.56509, 35.52389, 35.49077, 
  35.47456, 35.47344, 35.4705, 35.46952, 35.45303, 35.44589, 35.43558, 35.42547, 35.39288, 35.35242, 
  35.28167, 35.22308, 35.20372, 35.2033, 35.19867, 35.19685, 35.19839, 35.20036, 35.2005, 35.19629, 
  35.19741, 35.19404, 35.19559, 35.19418, 35.14395, 35.13047, 35.12724, 35.07865, 35.04296, 35.00191,
  34.20346)
LONGITUDE_VALUEs <- c(
  -2.21468, -2.21726, -2.23923, -2.2715, -2.29862, -2.30618, -2.3405, -2.35148, -2.38154, -2.41072, 
  -2.4205, -2.42084, -2.42719, -2.45981, -2.48797, -2.50135, -2.50616, -2.53842, -2.56847, -2.60057, 
  -2.6064, -2.64692, -2.67181, -2.68143, -2.71644, -2.72451, -2.72914, -2.73412, -2.74064, -2.76555, 
  -2.7846, -2.78614, -2.84056, -2.84365, -2.84434, -2.8567, -2.86064, -2.85378, -2.85258, -2.84486, 
  -2.84159, -2.83627, -2.82665, -2.81653, -2.81327, -2.78821, -2.78494, -2.77395, -2.76434, -2.75714, 
  -2.74409, -2.75448, -2.78952, -2.81167, -2.81576, -2.81988, -2.83121, -2.84976, -2.85526, -2.85938, 
  -2.86488, -2.88325, -2.90074, -2.90418, -2.90263, -2.91156, -2.92444, -2.92615, -2.9186, -2.91791, 
  -2.91156, -2.91087, -2.90417, -2.8985, -2.89936, -2.9119, -2.91739, -2.92083, -2.92478, -2.92409, 
  -2.93199, -2.92855, -2.92237, -2.91533, -2.91567, -2.90434, -2.90417, -2.89249, -2.87725, -2.87518, 
  -2.86694, -2.8611, -2.85835, -2.86282, -2.89268, -2.92256, -2.91379, -2.91757, -2.92238, -2.9198, 
  -2.92341, -2.92777, -2.92932, 
  -2.92945, -2.93872, -2.9447, -2.94565, -2.94693, -2.95063, -2.9541, -2.9612, -2.96494, -2.96574, 
  -2.96653, -2.96835, -2.96809, -2.96827, -2.96762, -2.96473, -2.96518, -2.97018, -2.96988, -2.96715, 
  -2.96008, -2.95325, -2.95327, -2.95306, -2.95245, 
  -2.95323, -2.95529, -2.95512, -2.95718, -2.96215, -2.95701, -2.95975, -2.96387, -2.96936, -2.97177, 
  -2.96609, -2.96576, -2.9589, -2.9637, -2.9553, -2.95976, -2.9637, -2.96439, -2.96131, -2.96131, 
  -2.95564, -2.95444, -2.94998, -2.95007, -2.95547, -2.96131, -2.96388, -2.96611, -2.97126, -2.97401, 
  -2.98379, -2.99426, -2.99632, -3.00541, -3.00335, -3.00747, -3.00473, -3.00953, -3.00987, -3.00387, 
  -3.0049, -3.01108, -3.01159, -3.00696, -3.01056, -3.0097, -3.02841, -3.02721, -3.06257, -3.06601, 
  -3.06721, -3.08523, -3.08928, -3.09685, -3.1096, -3.12124, -3.12313, -3.12845, -3.13412, -3.13567, 
  -3.13378, -3.14249, -3.14249, -3.15606, -3.16293, -3.16688, -3.15486, -3.15623, -3.16379, -3.19125, 
  -3.20826, -3.20997, -3.21822, -3.22594, -3.23848, -3.23865, -3.24978, -3.26077, -3.30113, -3.32256, 
  -3.33475, -3.34867, -3.36206, -3.38714, -3.40515, -3.42337, -3.44566, -3.44806, -3.44995, -3.45167, 
  -3.4539, -3.47554, -3.4908, -3.53889, -3.55999, -3.56651, -3.59448, -3.66953, -3.67054, -3.67552, 
  -3.67775, -3.68719, -3.70849, -3.71622, -3.72051, -3.73473, -3.73988, -3.75035, -3.75946, -3.76443, 
  -3.77061, -3.77113, -3.79189, -3.81834, -3.84375, -3.88892, -3.8923, -3.9002, -3.90259, -3.90679, 
  -3.90988, -3.91486, -3.91434, -3.91864, -3.91829, -3.9231, -3.92183, -3.92447, -3.91829, -3.91984, 
  -3.92654, -3.92602, -3.91932, -3.92087, -3.914, -3.92842, -3.94165, -3.95006, -3.97995, -3.99245, 
  -3.99503, -4.00688, -4.01804, -4.01633, -4.03625, -4.04415, -4.04484, -4.05428, -4.06252, -4.06987, 
  -4.07897, -4.08481, -4.08944, -4.11641, -4.12276, -4.1286, -4.13307, -4.13665, -4.14919, -4.15331, 
  -4.16396, -4.17736, -4.1911, -4.21838, -4.22749, -4.24054, -4.2493, -4.26008, -4.26506, -4.28413, 
  -4.28653, -4.29114, -4.29269, -4.29477, -4.29597, -4.29679, -4.29717, -4.29796,
  -4.29773, -4.29958, -4.29996, -4.30134, -4.30194, -4.30339, -4.30541, -4.30958, -4.31107, -4.31454, 
  -4.31473, -4.31983, -4.32033, -4.32652, -4.34163, -4.34678, -4.35245, -4.3552, -4.3607, -4.36379, 
  -4.36808, -4.37323, -4.37701, -4.37598, -4.37907, -4.3844, -4.40674, -4.42614, -4.4651, -4.47507, 
  -4.49428, -4.50803, -4.52004, -4.59195, -4.60345, -4.63128, -4.65153, -4.65754, -4.66355, -4.66647, 
  -4.67728, -4.7267, -4.73649, -4.74919, -4.76723, -4.78336, -4.79761, -4.81581, -4.84567, -4.86833, 
  -4.88, -4.92722, -4.94542, -4.96069, -4.97274, -4.99313, -5.00138, -5.00481, -5.01751, -5.0309, 
  -5.04257, -5.06026, -5.07227, -5.10592, -5.11089, -5.12309, -5.15244, -5.16239, -5.16926, -5.17492, 
  -5.18556, -5.19311, -5.19931, -5.20429, -5.21046, -5.21407, -5.22642, -5.23518, -5.2417, -5.2532, 
  -5.25286, -5.25732, -5.26882, -5.28473, -5.28026, -5.27305, -5.27391, -5.28249, -5.28954, -5.30705, 
  -5.31942, -5.33072, -5.34154, -5.34257, -5.33759, -5.34429, -5.34875, -5.35321, -5.346,
  -5.34337, -5.34807, -5.3485, -5.34973, -5.35067, -5.35168, -5.35393, -5.35528, -5.35623, -5.35659, 
  -5.35844, -5.35857, -5.35981, -5.35975, -5.36226, -5.36294, -5.3644, -5.36606, -5.36859, -5.36925, 
  -5.37084, -5.37322, -5.37305, -5.37432, -5.37445, -5.3751, -5.37545, -5.37462, -5.37509, -5.3749, 
  -5.3754, -5.37543, -5.37779, -5.3771, -5.37735, -5.3765, -5.37765, -5.3775, -5.37658, -5.37713, 
  -5.37837, -5.37825, -5.37985, -5.37975, -5.38062, -5.38129, -5.38203, 
  -5.38533, -5.39031, -5.39632, -5.39941, -5.39683, -5.40044, -5.40215, -5.41056, -5.41588, -5.42378, 
  -5.42687, -5.43322, -5.43716, -5.4394, -5.44128, -5.44798, -5.45141, -5.45124, -5.45982, -5.46222, 
  -5.46565, -5.47286, -5.47973, -5.48299, -5.48267, -5.48696, -5.48696, -5.50069, -5.50378, -5.50086, 
  -5.50258, -5.50704, -5.50721, -5.51098, -5.51528, -5.51425, -5.5206, -5.52266, -5.54326, -5.54051, 
  -5.5539, -5.55888, -5.56179, -5.56797, -5.57655, -5.58136, -5.60174, -5.61105, -5.61757, -5.62255, 
  -5.62909, -5.65449, -5.66027, -5.66765, -5.67229, -5.67676, -5.67916, -5.68964, -5.69874, -5.70403, 
  -5.70867, -5.71983, -5.72309, -5.73889, -5.74353, -5.75109, -5.748, -5.75846, -5.77117, -5.78319, 
  -5.79573, -5.79951, -5.79693, -5.80223, -5.80377, -5.81476, -5.82816, -5.83486, -5.83778, -5.84413, 
  -5.84739, -5.85169, -5.85976, -5.86337, -5.87024, -5.87556, -5.89097, -5.90917, -5.91278, -5.92961, 
  -5.93097, -5.93492, -5.93801, -5.95998, -5.98058, -5.99706, -5.9938, -6.00015, -6.00925, -6.02384, 
  -6.02933, -6.03225, -6.03122, -6.03843, -6.05233, -6.05388, -6.05979, -6.06058, -6.08118, -6.09371, 
  -6.12014, -6.14263, -6.15155, -6.14451, -6.14194, -6.14468, -6.14692, -6.14692, -6.15344, -6.15585, 
  -6.15962, -6.16117, -6.16598, -6.16959, -6.18812, -6.19534, -6.19464, -6.21679, -6.22623, -6.24323, 
  -4.0065)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_2, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, Geo_0[40])
Geo_2 <- st_union(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

##### PORTUGAL #####
Geo_0 <- Geometric_Operations(Geo_3, Geo_1)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0))
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(39.6643, 39.66099, 39.66205, 39.65861, 39.65637, 39.64553, 39.64289, 39.63495,
  39.61777, 39.60653, 39.59793, 39.5896, 39.57332, 39.53931, 39.53931, 39.53256, 39.53454, 39.53136,
  39.53322, 39.53017, 39.49852, 39.4972, 39.49057, 39.48329, 39.48845, 39.47759, 39.47931, 39.46288,
  39.45599, 39.44605, 39.42868, 39.42285, 39.40096, 39.38663, 39.37828, 39.37788, 39.3666, 39.36155,
  39.35532, 39.33859, 39.30951, 39.30353, 39.27816, 39.25317, 39.23815, 39.22818, 39.21794, 39.20796,
  39.18614, 39.18694, 39.18029, 39.18109, 39.17217, 39.17151, 39.16046, 39.14994, 39.14595, 39.12065,
  39.10853, 39.09947, 39.10626, 39.10893, 39.11785, 39.11759, 39.09241, 39.05456, 39.03963, 39.0235,
  38.93863, 38.9238, 38.90711, 38.89415, 38.88266, 38.88373, 38.87758, 38.87598, 38.86395, 38.85553,
  38.83012, 38.82197, 38.81541, 38.81742, 38.81528, 38.79187, 38.78023, 38.76644, 38.76069, 38.74958,
  38.73672, 38.73686, 38.72427, 38.71382, 38.69922, 38.67885, 38.63837, 38.62671, 38.62831, 38.62416,
  38.61209, 38.58794, 38.58566, 38.57479, 38.57667, 38.5717, 38.56325, 38.55358, 38.54311, 38.52713,
  38.51921, 38.51477, 38.49583, 38.48092, 38.47406, 38.47406, 38.48172, 38.4832, 38.47931, 38.46546,
  38.45982, 38.45457, 38.44812, 38.44463, 38.43481, 38.44073, 38.42594, 38.41988, 38.4137, 38.39445,
  38.34128, 38.34115, 38.32714, 38.32028, 38.27973, 38.27851, 38.2676, 38.26989, 38.23551, 38.2049,
  38.18723, 38.18723, 38.17927, 38.17846, 38.16901, 38.17657, 38.17859, 38.18574, 38.18628, 38.17778,
  38.18048, 38.18696, 38.18237, 38.19681, 38.19559, 38.20449, 38.20315, 38.21164, 38.20234, 38.21852,
  38.21191, 38.22055, 38.20652, 38.20895, 38.20031, 38.18318, 38.16779, 38.1682, 38.16604, 38.16334,
  38.16024, 38.15511, 38.15673, 38.15416, 38.15038, 38.15106, 38.14512, 38.13931, 38.1381, 38.1327,
  38.1331, 38.10474, 38.10285, 38.09069, 38.07448, 38.06691, 38.05488, 38.04973, 38.0431, 38.0354,
  38.03012, 38.02255, 38.02066, 38.02445, 38.0143, 38.01898, 38.01795, 38.02783, 38.02877, 38.03405,
  38.03378, 38.04432, 38.02837, 38.02363, 38.0212, 38.01944, 38.01038, 38.00484, 37.99942, 38.00281,
  37.99415, 37.99577, 37.99266, 37.99848, 37.99631, 38.00281, 38.00064, 38.00348, 38.00037, 37.9978,
  37.99564, 37.98806, 37.99131, 37.99131, 37.9863, 37.97872, 37.96682, 37.93636, 37.93311, 37.92214,
  37.92309, 37.90684, 37.904, 37.89871, 37.89763, 37.87595, 37.86121, 37.85698, 37.83977, 37.8361,
  37.81468, 37.81336, 37.79844, 37.79328, 37.79274, 37.78663, 37.78311, 37.77483, 37.77185, 37.7633,
  37.76764, 37.7599, 37.75814, 37.7441, 37.74043, 37.73392, 37.69549, 37.68788, 37.67756, 37.66438,
  37.6622, 37.65859, 37.65424, 37.64595, 37.65017, 37.64024, 37.63372, 37.62379, 37.62529, 37.61781,
  37.60299, 37.60748, 37.60476, 37.59279, 37.58599, 37.57783, 37.57157, 37.56585, 37.56762, 37.55619,
  37.56109, 37.55782, 37.54707, 37.53945, 37.52407, 37.52203, 37.50868, 37.49588, 37.49329, 37.48553,
  37.47926, 37.46291, 37.45201, 37.4347, 37.42448, 37.42107, 37.41466, 37.41466, 37.4073, 37.40171,
  37.38807, 37.3567, 37.34564, 37.3249, 37.30988, 37.27191, 37.25525, 37.24541, 37.23885, 37.22272,
  37.20987, 37.17965,
  37.17982, 37.16833, 37.17284, 37.17708, 37.17599, 37.16737, 37.15437, 37.13426, 37.11647, 37.1114, 
  37.10634, 37.08361, 37.06786, 37.05471, 37.05334, 37.0495, 37.03963, 37.01455, 37.00235, 36.9726, 
  36.96423, 36.95971, 36.97562, 36.98727, 37.00935, 37.03347, 37.05991, 37.0721, 37.07265, 37.09059, 
  37.08826, 37.08949, 37.08771, 37.08771, 37.08456, 37.08634, 37.08251, 37.08634, 37.08634, 37.08306, 
  37.08251, 37.0795, 37.07799, 37.07457, 37.07443, 37.07265, 37.07361, 37.07251, 37.07511, 37.07525, 
  37.07813, 37.08977, 37.09853, 37.10209, 37.09552, 37.09251, 37.09292, 37.08991, 37.091, 37.08949, 
  37.08949, 37.0858, 37.08758, 37.08566, 37.0873, 37.09155, 37.09251, 37.09593, 37.09579, 37.09826, 
  37.0999, 37.10141, 37.10017, 37.1036, 37.10346, 37.1062, 37.10524, 37.11414, 37.1192, 37.11304, 
  37.11715, 37.11975, 37.11523, 37.11647, 37.11551, 37.11852, 37.12262, 37.12235, 37.12043, 37.12112, 
  37.11852, 37.11167, 37.10168, 37.09525, 37.08977, 37.08498, 37.08169, 37.07909, 37.07922, 37.0821, 
  37.08141, 37.08388, 37.08429, 37.08539, 37.08361, 37.08703, 37.07333, 37.07114, 37.06881, 37.06868, 
  37.06347, 37.06224, 37.06525, 37.06649, 37.06443, 37.06608, 37.05457, 37.04868, 37.04827, 37.04484, 
  37.04196, 37.04676, 37.04429, 37.04607, 37.04237, 37.04196, 37.03662, 37.02962, 37.02276, 37.02427, 
  37.02208, 37.02249, 37.01824, 37.01577, 37.01331, 37.00906, 37.00947, 37.00138, 37.00577, 37.00467, 
  36.99973, 36.99357, 36.99343, 36.99919, 37.00426, 37.00906, 37.00919, 37.01413, 37.01509, 37.02208, 
  37.02235, 37.02496, 37.02701, 37.02413, 37.02687, 37.02619, 37.02413, 37.02153, 37.01838, 37.02427, 
  37.02002, 37.02359, 37.03153, 37.03386, 37.03839, 37.04606, 37.04894, 37.05017, 37.05565, 37.07209, 
  37.08482, 37.09167, 37.09455, 37.09427, 37.09783, 37.09811, 37.12891, 37.13397, 37.13739, 37.14505, 
  37.15463, 37.15846, 37.1653, 37.17064, 37.17515, 37.18076, 37.18418, 37.18951, 37.19484, 37.19717, 
  37.1969, 37.19922, 37.19785, 37.22053, 37.2685, 37.28134, 37.29377, 37.29581, 37.30128, 37.30687, 
  37.31111, 37.32121, 37.32121, 37.34428, 37.34987, 37.34878, 37.35615, 37.35888, 37.37552, 37.3773, 
  37.41575, 37.42966, 37.44356, 37.44615, 37.45774, 37.46196, 37.46496, 37.47245, 37.47627, 37.47967, 
  37.48253, 37.4903, 37.49207, 37.49874, 37.50501, 37.51059, 37.51889, 37.52148, 37.5238, 37.52788, 
  37.53264, 37.55537, 37.55891, 37.56776, 37.57646, 37.58095, 37.58708, 37.5932, 37.6019, 37.60231, 
  37.60639, 37.60925, 37.61863, 37.6223, 37.6291, 37.63154, 37.64351, 37.65533, 37.66281, 37.67408, 
  37.68183, 37.69378, 37.70427, 37.70549, 37.71609, 37.72057, 37.72423, 37.73116, 37.73659, 37.7427,
  37.74731, 37.75288, 37.75695, 37.75993, 37.76455, 37.76998, 37.77432, 37.77852, 37.79562, 37.8142, 
  37.83332, 37.83793, 37.85081, 37.86775, 37.87926, 37.88577, 37.90934, 37.92789, 37.93371, 37.93777, 
  37.93466, 37.93114, 37.92897, 37.93859, 37.94075, 37.94833, 37.95172, 37.94901, 37.95267, 37.95551, 
  37.95808, 37.96796, 37.9685, 37.99299, 38.03884, 38.0552, 38.0606)
LONGITUDE_VALUEs <- c(-7.54212, -7.538, -7.53165, -7.53234, -7.52736, -7.52719, -7.52496, -7.52753,
  -7.5095, -7.50779, -7.49955, -7.49989, -7.46144, -7.43878, -7.43449, -7.42763, -7.42213, -7.41149,
  -7.39794, -7.39159, -7.38711, -7.37904, -7.38178, -7.36016, -7.349, -7.34403, -7.33817, -7.30025,
  -7.29424, -7.30574, -7.30831, -7.30094, -7.30866, -7.32222, -7.32291, -7.31827, -7.31003, -7.31106,
  -7.30574, -7.31003, -7.2685, -7.27107, -7.23176, -7.24892, -7.24137, -7.24566, -7.23982, -7.24154,
  -7.20566, -7.1946, -7.17829, -7.16352, -7.14897, -7.13454, -7.13282, -7.14038, -7.1359, -7.14912,
  -7.1438, -7.10447, -7.09932, -7.07857, -7.05213, -7.03152, -6.98536, -6.95943, -6.96767, -6.95136,
  -7.02174, -7.02638, -7.05231, -7.03925, -7.04063, -7.03599, -7.03238, -7.03616, -7.03976, -7.06759,
  -7.08628, -7.088, -7.09813, -7.10638, -7.12647, -7.15667, -7.16165, -7.19617, -7.19579, -7.20592,
  -7.22859, -7.23873, -7.26071, -7.25776, -7.26738, -7.2667, -7.27254, -7.26533, -7.24729, -7.24283,
  -7.26069, -7.26275, -7.26945, -7.27494, -7.28353, -7.28662, -7.28611, -7.29296, -7.30378, -7.30069,
  -7.30378, -7.31443, -7.31545, -7.32232, -7.31975, -7.31322, -7.30824, -7.29914, -7.29536, -7.30069,
  -7.31512, -7.31237, -7.31477, -7.33092, -7.33641, -7.31683, -7.2976, -7.2794, -7.28077, -7.27203,
  -7.21778, -7.2147, -7.20062, -7.19907, -7.16869, -7.15409, -7.15273, -7.14775, -7.14088, -7.11308,
  -7.1069, -7.10295, -7.09883, -7.0887, -7.08544, -7.07513, -7.0662, -7.06603, -7.05624, -7.05847,
  -7.04748, -7.04353, -7.02722, -7.01472, -7.01042, -7.01042, -6.99806, -6.98174, -6.97247, -6.95169,
  -6.94671, -6.93777, -6.93743, -6.93163, -6.93455, -6.95687, -6.96526, -6.96749, -6.96955, -6.96835,
  -6.96938, -6.96251, -6.95856, -6.95135, -6.95323, -6.9589, -6.95839, -6.96199, -6.95788, -6.95943,
  -6.96406, -6.97505, -6.98776, -6.98981, -6.98758, -6.99118, -6.98964, -7.00063, -7.00269, -6.99909,
  -7.00218, -7.00252, -7.01162, -7.02519, -7.04733, -7.05235, -7.06296, -7.06279, -7.06897, -7.0676,
  -7.08031, -7.09903, -7.1287, -7.12492, -7.13248, -7.12767, -7.13007, -7.12063, -7.1366, -7.14656,
  -7.15549, -7.16545, -7.17318, -7.17816, -7.184, -7.18658, -7.19465, -7.20198, -7.20713, -7.2049,
  -7.21692, -7.22568, -7.23049, -7.24698, -7.24851, -7.26294, -7.24954, -7.25349, -7.25812, -7.25469,
  -7.26156, -7.26893, -7.2746, -7.27357, -7.28267, -7.28009, -7.28902, -7.29761, -7.30139, -7.31048,
  -7.32439, -7.33193, -7.357, -7.36044, -7.36697, -7.36867, -7.37846, -7.38207, -7.39083, -7.39735,
  -7.40714, -7.41212, -7.42312, -7.41794, -7.42996, -7.42635, -7.44661, -7.44352, -7.45228, -7.44352,
  -7.45691, -7.45165, -7.45508, -7.45302, -7.46761, -7.46384, -7.47225, -7.46985, -7.4822, -7.48015,
  -7.49045, -7.49645, -7.50503, -7.49594, -7.5016, -7.50195, -7.51568, -7.51516, -7.50744, -7.50641,
  -7.51293, -7.5234, -7.52099, -7.51224, -7.5131, -7.49165, -7.49182, -7.48221, -7.46899, -7.46298,
  -7.46984, -7.46796, -7.45577, -7.46075, -7.4544, -7.44478, -7.44684, -7.46143, -7.46349, -7.44821,
  -7.43877, -7.43637, -7.44581, -7.4386, -7.44272, -7.42178, -7.43414, -7.43225, -7.41972, -7.41286,
  -7.4144, -7.40616,
  -7.40956, -7.40287, -7.41729, -7.44252, -7.46637, -7.50672, -7.54121, -7.58963, -7.61761, -7.61607, 
  -7.62774, -7.66481, -7.69967, -7.72146, -7.72884, -7.73159, -7.75115, -7.79218, -7.80112, -7.86687, 
  -7.87116, -7.89141, -7.94496, -7.96677, -7.99767, -8.04093, -8.08572, -8.11921, -8.1259, -8.18374, 
  -8.1968, -8.20452, -8.20933, -8.21568, -8.21842, -8.22769, -8.23181, -8.24485, -8.25601, -8.25669, 
  -8.2615, -8.26133, -8.27524, -8.27885, -8.28177, -8.28623, -8.29532, -8.30116, -8.30528, -8.30854, 
  -8.31249, -8.33131, -8.3514, -8.3684, -8.39105, -8.39123, -8.39535, -8.39621, -8.40119, -8.40359, 
  -8.41475, -8.41716, -8.42403, -8.42901, -8.44996, -8.45477, -8.46589, -8.4731, -8.47602, -8.47809, 
  -8.49268, -8.49474, -8.50419, -8.50797, -8.51175, -8.51449, -8.52068, -8.51776, -8.52512, -8.52959, 
  -8.53852, -8.5648, -8.5672, -8.57026, -8.57335, -8.5785, -8.59568, -8.61285, -8.61835, -8.62436, 
  -8.64201, -8.65678, -8.66863, -8.66657, -8.66949, -8.66675, -8.66847, -8.66726, -8.67001, -8.67207, 
  -8.67568, -8.67774, -8.68238, -8.6865, -8.70934, -8.72647, -8.75584, -8.77748, -8.77817, -8.78435, 
  -8.78624, -8.79173, -8.79397, -8.80905, -8.81214, -8.81918, -8.85593, -8.85628, -8.85902, -8.85902, 
  -8.86555, -8.87036, -8.87549, -8.87892, -8.8815, -8.89386, -8.89558, -8.90417, -8.90589, -8.91035, 
  -8.91224, -8.9198, -8.92753, -8.92785, -8.93077, -8.92956, -8.92441, -8.93128, -8.93557, -8.94244, 
  -8.94725, -8.94657, -8.95017, -8.95137, -8.94725, -8.94914, -8.95275, -8.95344, -8.9567, -8.96048, 
  -8.96391, -8.96322, -8.96769, -8.97301, -8.97679, -8.98469, -8.98572, -8.98349, -8.98658, -8.98847, 
  -8.99259, -8.99565, -8.98706, -8.98964, -8.98311, -8.97865, -8.98363, -8.97951, -8.97934, -8.96079, 
  -8.96114, -8.95701, -8.95822, -8.95289, -8.95272, -8.94671, -8.92303, -8.92371, -8.91925, -8.91925, 
  -8.90929, -8.91032, -8.90277, -8.9026, -8.91067, -8.9093, -8.91428, -8.90878, -8.91788, -8.91788, 
  -8.91393, -8.91136, -8.90466, -8.88474, -8.85985, -8.86672, -8.86448, -8.87633, -8.87324, -8.87548, 
  -8.87221, -8.87873, -8.87187, -8.85092, -8.8504, -8.84491, -8.84473, -8.84097, -8.8329, -8.82878, 
  -8.80818, -8.80801, -8.79822, -8.80131, -8.7984, -8.80029, -8.79702, -8.80029, -8.79754, -8.79926, 
  -8.7941, -8.79823, -8.79307, -8.79685, -8.7905, -8.79428, -8.78861, -8.7905, -8.78758, -8.79067, 
  -8.78587, -8.79582, -8.79222, -8.80149, -8.80406, -8.81231, -8.81197, -8.81695, -8.81883, -8.81523, 
  -8.8166, -8.81145, -8.81231, -8.80956, -8.81214, -8.80887, -8.80698, -8.80114, -8.80252, -8.796, 
  -8.796, -8.79222, -8.79566, -8.79222, -8.78655, -8.79257, -8.79188, -8.79617, -8.79686, -8.81146,
  -8.81136, -8.80809, -8.8093, -8.80655, -8.80741, -8.80449, -8.80707, -8.80261, -8.80209, -8.79385, 
  -8.79316, -8.79025, -8.79763, -8.79282, -8.79643, -8.79626, -8.80055, -8.81016, -8.82081, -8.83986, 
  -8.84312, -8.83814, -8.8402, -8.85857, -8.8541, -8.86183, -8.87418, -8.87968, -8.88809, -8.88654, 
  -8.88911, -8.87779, -8.87281, -8.85513, -8.83042, -8.82252, -8.80261)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_3, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_3 <- st_set_geometry(Geo_3, st_union(Geo_0[c(1:20, 22)]))
Geo_3 <- st_union(Geo_3, Geo)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}

##### GIBRALTAR #####
LATITUDE_VALUEs <- c(
  36.15492, 36.15285, 36.14619, 36.14494, 36.13995, 36.13968, 36.13427, 36.12817, 36.12637, 36.11985, 
  36.11722, 36.11569, 36.11319, 36.11111, 36.10959, 36.10876, 36.10987, 36.11208, 36.11476, 36.11565, 
  36.11928, 36.12019, 36.12222, 36.12232, 36.12595, 36.12817, 36.13718, 36.14065, 36.14287, 36.14758, 
  36.14758, 36.1498, 36.14952, 36.15146, 36.15146, 36.15492)
LONGITUDE_VALUEs <- c(
  -5.34565, -5.33827, -5.34016, -5.33776, -5.33844, -5.34102, -5.34033, -5.34205, -5.33964, -5.34256, 
  -5.3417, -5.34325, -5.34342, -5.34497, -5.34479, -5.34617, -5.3496, -5.35029, -5.34935, -5.35041, 
  -5.35112, -5.35257, -5.35257, -5.35424, -5.35681, -5.35406, -5.35887, -5.3587, -5.36196, -5.36161, 
  -5.36608, -5.36608, -5.36007, -5.3599, -5.35183, -5.35183)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_4 <- st_set_geometry(Geo_4, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("SPAIN", "MOROCCO", "PORTUGAL", "GIBRALTAR"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3, Geo_4)

ARTSAKH (also know as NAGORNO-KARABAKH REPUBLIC [NKR]) is included in AZERBAIJAN in GeoDATA.

ARTSAKH (also know as REPUBLIC OF ARTSAKH) is an Azerbaijani Territory.

ARTSAKH declared independence from AZERBAIJAN in 1991. ARTSAKH was dissolved in 2024.

DRAGONJA RIVER DISPUTED AREA (Near St. Odric Canal) is included in CROATIA in GeoDATA.

DRAGONJA RIVER DISPUTED AREA is claimed by CROATIA and by SLOVENIA.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "CROATIA")
Geo_2 <- GeoDATA %>% filter(NAME == "SLOVENIA")
Geo_3 <- GeoDATA %>% filter(NAME == "ITALY")

##### CROATIA ##### 
LATITUDE_VALUEs <- c(
  46.47583, 46.4724, 46.47524, 46.47134, 46.47288, 46.47772, 46.4763, 46.48091, 46.47914, 46.48103, 
  46.49155, 46.49793, 46.5029, 46.50821, 46.51187, 46.51814, 46.51341, 46.52144, 46.51672, 46.51566, 
  46.52735, 46.52699, 46.53361, 46.52794, 46.53396, 46.5277, 46.52657, 46.53349, 46.53869, 46.53963, 
  46.53632, 46.53585, 46.54211, 46.54069, 46.54506, 46.54766, 46.5473, 46.55226, 46.55285, 46.55533, 
  46.55262, 46.54719, 46.54483, 46.54943, 46.54612, 46.54246, 46.53821, 46.53857, 46.54329, 46.54246, 
  46.53869, 46.53514, 46.53007, 46.52676, 46.53018, 46.52912, 46.5244, 46.52097, 46.51955, 46.51412, 
  46.51199, 46.51589, 46.51518, 46.50479, 46.50112, 46.49817, 46.48493, 46.48162, 46.46933, 46.4607, 
  46.45277, 46.44757, 46.42829, 46.4232, 46.41941, 46.4148, 46.4148, 46.40829, 46.40781, 46.40142, 
  46.39728, 46.38875, 46.38579, 46.37821, 46.37845, 46.37632, 46.38058, 46.37893, 46.38745, 46.38698, 
  46.38141, 46.37879, 46.38568, 46.3775, 46.38745, 46.38496, 46.39148, 46.40509, 46.40497, 46.38852, 
  46.39337, 46.3884, 46.38674, 46.38165, 46.36519, 46.34469, 46.34007, 46.34267, 46.33462, 46.33782, 
  46.32193, 46.31553, 46.3064, 46.3147, 46.30889, 46.3115, 46.29691, 46.28469, 46.28932, 46.28754, 
  46.28363, 46.27698, 46.26678, 46.25942, 46.24292, 46.23473, 46.22713, 46.22404, 46.2188, 46.20966, 
  46.20787, 46.21975, 46.22201, 46.21595, 46.21809, 46.22284, 46.22248, 46.22759, 46.22248, 46.21714, 
  46.20716, 46.20478, 46.19778, 46.19195, 46.18649, 46.18565, 46.17971, 46.16782, 46.16521, 46.162, 
  46.15427, 46.14725, 46.13334, 46.11192, 46.10621, 46.09942, 46.09942, 46.09121, 46.08288, 46.08776, 
  46.08026, 46.07073, 46.07359, 46.06168, 46.05894, 46.04333, 46.03535, 46.0189, 46.01592, 46.00734, 
  45.99708, 45.96201, 45.92166, 45.90422, 45.88117, 45.86826, 45.8624, 45.86049, 45.84662, 45.84459, 
  45.84961, 45.84291, 45.84088, 45.83071, 45.81995, 45.83215, 45.83538, 45.84076, 45.84674, 45.8471, 
  45.8532, 45.84853, 45.84387, 45.83442, 45.83944, 45.84626, 45.84662, 45.83562, 45.82376, 45.82328, 
  45.82089, 45.82304, 45.82113, 45.8228, 45.82879, 45.82891, 45.83202, 45.82687, 45.81946, 45.81766, 
  45.81838, 45.79768, 45.79337, 45.79504, 45.7954, 45.79157, 45.79241, 45.779, 45.78056, 45.77637, 
  45.77685, 45.77374, 45.77314, 45.7602, 45.75326, 45.74727, 45.7426, 45.73661, 45.7245, 45.71875, 
  45.71923, 45.70593, 45.71072, 45.70029, 45.69202, 45.68626, 45.69106, 45.69873, 45.69753, 45.68782, 
  45.67823, 45.67487, 45.67511, 45.69562, 45.70317, 45.70856, 45.71504, 45.71252, 45.71408, 45.69765, 
  45.69837, 45.68518, 45.68542, 45.67019, 45.6732, 45.67656, 45.67752, 45.68436, 45.69359, 45.69239, 
  45.68544, 45.66637, 45.65149, 45.65034, 45.64794, 45.64662, 45.6417, 45.63702, 45.64086, 45.64134, 
  45.64614, 45.64398, 45.64746, 45.64554, 45.64122, 45.6411, 45.63582, 45.6327, 45.63546, 45.63078, 
  45.61325, 45.61253, 45.60436, 45.58166, 45.53647, 45.5319, 45.53202, 45.52288, 45.5212, 45.51133, 
  45.49473, 45.49774, 45.48787, 45.47547, 45.45597, 45.45729, 45.45212, 45.46657, 45.45344, 45.4367, 
  45.42646, 45.42562, 45.43718, 45.43345, 45.42887, 45.42128, 45.42538, 45.44489, 45.44634, 45.46259, 
  45.46681, 45.48342, 45.48233, 45.48799, 45.48811, 45.49425, 45.49401, 45.48859, 45.48594, 45.4981, 
  45.49557, 45.52986, 45.52697, 45.52168, 45.51951, 45.50351, 45.50014, 45.49377, 45.48847, 45.47957, 
  45.47547, 45.47668, 45.47174, 45.46608, 45.46669, 45.45984, 45.47174, 45.4792, 45.48655, 45.49052, 
  45.49581, 45.50315, 45.4999, 45.50712, 45.50688, 45.51242, 45.51085, 45.52973, 45.52889, 45.53418, 
  45.53406, 45.52577, 45.52697, 45.53527, 45.54933, 45.55486, 45.55979, 45.57722, 45.58911, 45.59163, 
  45.60376, 45.60376, 45.61325, 45.62718, 45.63534, 45.64266, 45.64686, 45.66522, 45.66882, 45.66498, 
  45.67242, 45.67266, 45.6507, 45.61133, 45.61025, 45.60689, 45.60773, 45.59007, 45.57517, 45.56724, 
  45.56015, 45.54897, 45.53695, 45.53334, 45.51939, 45.51699, 45.5082, 45.50953, 45.50532, 45.50375, 
  45.49461, 45.49341, 45.48739, 45.48438, 45.48594, 45.4697, 45.48282, 45.48029, 45.48509, 45.49038, 
  45.49014, 45.48196, 45.5053, 45.50579, 45.50145, 45.49363, 45.49087, 45.48232, 45.46896, 45.47955, 
  45.48112, 45.47426, 45.48256, 45.48328, 45.49857, 45.49809, 45.51998, 45.51974, 45.51565, 45.50783, 
  45.51, 45.51541, 45.50615, 45.49628, 45.49448, 45.4828, 45.48172, 45.47185, 45.46932, 45.45728, 
  45.44825, 45.45535, 45.45668, 45.45439, 45.45258, 45.42645, 45.42693, 45.43331, 45.43548, 45.43392, 
  45.44235, 45.44379, 45.45728, 45.46535, 45.46535, 45.46776, 45.46246, 45.45945, 45.45584, 45.45271, 
  45.45788, 45.44295, 45.45981, 45.46535, 45.47209,
  45.47554, 45.47867, 45.49143, 45.50141, 45.50153, 45.50575, 45.5031, 45.49913, 45.49817, 45.49191,
  45.49071, 45.48565, 45.47614, 45.47386, 45.46627, 45.46386, 45.45893, 45.45435, 45.45134, 45.4464,
  45.44183, 45.43882, 45.42858, 45.42496, 45.42195, 45.41508, 45.4011, 45.39544, 45.39242, 45.38736,
  45.37759, 45.3753, 45.37217, 45.36831, 45.36143, 45.35987, 45.35697, 45.35094, 45.34032, 45.33839,
  45.3332, 45.33043, 45.32693, 45.32632, 45.32077, 45.32367, 45.32198, 45.31872, 45.31691, 45.31377,
  45.31618, 45.31305, 45.31546, 45.31522, 45.32186, 45.32198, 45.31715, 45.31775, 45.31546, 45.3122,
  45.31196, 45.30689, 45.30496, 45.29699, 45.30061, 45.2982, 45.28382, 45.28346, 45.27984, 45.27573,
  45.2767, 45.27175, 45.26498, 45.26462, 45.2558, 45.25507, 45.25338, 45.2558, 45.25302, 45.24927,
  45.24335, 45.23718, 45.23126, 45.22739, 45.22933, 45.228, 45.22594, 45.21808, 45.21421, 45.21421,
  45.20938, 45.20938, 45.20647, 45.20853, 45.20357, 45.20321, 45.20599, 45.20442, 45.19946, 45.19849,
  45.19414, 45.19038, 45.19063, 45.18555, 45.18615, 45.17816, 45.17671, 45.17381, 45.17151, 45.16739,
  45.15904, 45.15154, 45.14912, 45.14597, 45.14343, 45.14088, 45.13773, 45.13216, 45.13107, 45.13773,
  45.13265, 45.13616, 45.13749, 45.13519, 45.13543, 45.12877, 45.13325, 45.13422, 45.12902, 45.13071,
  45.12478, 45.12246, 45.11665, 45.12089, 45.11653, 45.11822, 45.11471, 45.11192, 45.10562, 45.10381,
  45.09896, 45.10041, 45.09338, 45.09714, 45.08696, 45.08333, 45.07933, 45.07436, 45.06951, 45.06975,
  45.06551, 45.06247, 45.0672, 45.05932, 45.05665, 45.05023, 45.04695, 45.03749, 45.0233, 45.02233,
  45.00898, 45.00461, 44.99757, 44.99223, 44.98579, 44.9864, 44.96697, 44.95604, 44.95191, 44.94547,
  44.94024, 44.92979, 44.91983, 44.91338, 44.9118, 44.90937, 44.90804, 44.90585, 44.8988, 44.8988,
  44.89576, 44.8943, 44.8904, 44.88967, 44.89332, 44.88286, 44.88282, 44.87824, 44.87812, 44.88505,
  44.88384, 44.87873, 44.87398, 44.87117, 44.86777, 44.86436, 44.86399, 44.86655, 44.86412, 44.86412,
  44.86643, 44.86962, 44.87302, 44.87631, 44.87242, 44.86658, 44.86159, 44.85988, 44.85733, 44.85368,
  44.8611, 44.85952, 44.85331, 44.84978, 44.84625, 44.84273, 44.83615, 44.83226, 44.8364, 44.82751,
  44.82532, 44.82106, 44.82106, 44.81728, 44.81485, 44.80778, 44.809, 44.80449, 44.809, 44.80742,
  44.78659, 44.78586, 44.77928, 44.77379, 44.76904, 44.76636, 44.77062, 44.77209, 44.77574, 44.77599,
  44.77964, 44.79134, 44.80364, 44.80705, 44.81436, 44.81485, 44.8174, 44.81631, 44.82118, 44.82446,
  44.82386, 44.82057, 44.81984, 44.81728, 44.81825, 44.82434, 44.82264, 44.82982, 44.82252, 44.81972,
  44.82106, 44.81728, 44.81594, 44.81972, 44.81667, 44.81338, 44.80559, 44.80644, 44.8129, 44.81375,
  44.80985, 44.80364, 44.80498, 44.80303, 44.80559, 44.80254, 44.80498, 44.80194, 44.80498, 44.80729,
  44.81217, 44.8157, 44.82069, 44.82142, 44.8185, 44.81789, 44.823, 44.82933, 44.84114, 44.84613,
  44.85222, 44.85526, 44.86143, 44.86366, 44.86694, 44.87108, 44.87509, 44.88057, 44.88069, 44.8875,
  44.8864, 44.88993, 44.89407, 44.89808, 44.90221, 44.9027, 44.89176, 44.89309, 44.8999, 44.89686,
  44.9117, 44.91619, 44.91984, 44.92531, 44.91632, 44.93916, 44.95216, 44.94718, 44.962, 44.96662,
  44.97804, 44.97549, 44.97779, 44.9818, 44.99333, 45.00171, 45.01409, 45.03108, 45.03338, 45.01518,
  45.00377, 44.99952, 44.98471, 44.98435, 44.97634, 44.97342, 44.97074, 44.97061, 44.96248, 44.96017,
  44.94523, 44.94668, 44.9592, 44.97159, 44.96891, 44.96454, 44.96126, 44.9677, 44.95665, 44.95689,
  44.97074, 44.98336, 45.01917, 45.02888, 45.03288, 45.05314, 45.05556, 45.04028, 45.04404, 45.05326,
  45.05847, 45.06732, 45.06963, 45.07969, 45.07811, 45.07387, 45.07254, 45.10429, 45.11689, 45.12125,
  45.12646, 45.13385, 45.13276, 45.12658, 45.12258, 45.11616, 45.13482, 45.13699, 45.14487, 45.14874,
  45.15346, 45.16868, 45.17623, 45.18806, 45.20122, 45.22691, 45.23788, 
  45.38968, 45.33758, 46.47240)
LONGITUDE_VALUEs <- c(
  16.59642, 16.59573, 16.58853, 16.58389, 16.56381, 16.56175, 16.5379, 16.53548, 16.52312, 16.51489, 
  16.51849, 16.49172, 16.48553, 16.48827, 16.47111, 16.47025, 16.4627, 16.46408, 16.45807, 16.4385, 
  16.43988, 16.43164, 16.42872, 16.4222, 16.41001, 16.4119, 16.40739, 16.40212, 16.40434, 16.40039, 
  16.39593, 16.387, 16.38494, 16.37739, 16.36864, 16.37122, 16.38014, 16.38186, 16.37396, 16.36778, 
  16.36504, 16.36675, 16.35749, 16.35354, 16.35131, 16.35869, 16.3592, 16.35525, 16.35525, 16.34393, 
  16.3453, 16.34032, 16.34172, 16.33434, 16.33211, 16.32356, 16.31257, 16.31498, 16.30931, 16.30776, 
  16.29952, 16.28818, 16.26551, 16.26691, 16.25953, 16.24012, 16.2415, 16.2518, 16.26038, 16.25935, 
  16.26622, 16.2633, 16.27343, 16.2736, 16.27549, 16.27206, 16.2827, 16.29112, 16.29782, 16.30125, 
  16.30829, 16.30314, 16.30486, 16.30142, 16.27207, 16.26623, 16.24459, 16.2384, 16.23342, 16.22467, 
  16.22432, 16.21938, 16.21505, 16.18946, 16.18929, 16.1752, 16.1728, 16.14863, 16.1373, 16.08784, 
  16.05812, 16.05369, 16.05558, 16.05077, 16.07241, 16.07773, 16.06967, 16.06314, 16.05198, 16.03773, 
  16.01965, 16.02333, 16.00393, 15.99019, 15.98744, 15.97714, 15.96357, 15.91534, 15.9131, 15.89937, 
  15.8973, 15.86759, 15.86519, 15.79173, 15.8012, 15.79261, 15.79416, 15.78849, 15.78935, 15.77029, 
  15.75122, 15.75431, 15.74092, 15.73182, 15.72615, 15.72872, 15.69975, 15.67656, 15.66935, 15.64736, 
  15.64135, 15.6484, 15.64616, 15.64891, 15.64513, 15.63689, 15.63758, 15.60789, 15.60926, 15.60342, 
  15.61424, 15.59604, 15.61303, 15.60496, 15.61321, 15.61355, 15.6254, 15.62008, 15.63639, 15.64361, 
  15.65803, 15.65784, 15.67209, 15.69373, 15.71469, 15.73235, 15.7162, 15.71295, 15.70591, 15.71329, 
  15.69973, 15.7102, 15.70694, 15.67964, 15.68737, 15.67878, 15.68444, 15.69578, 15.70952, 15.70419, 
  15.69543, 15.69354, 15.66435, 15.65081, 15.64343, 15.62917, 15.6134, 15.60876, 15.59124, 15.58197, 
  15.57184, 15.57012, 15.56187, 15.56119, 15.55191, 15.55054, 15.53732, 15.53921, 15.52843, 15.52242, 
  15.52019, 15.51366, 15.51057, 15.50147, 15.50284, 15.49717, 15.49288, 15.47759, 15.4788, 15.47229, 
  15.46594, 15.47504, 15.46285, 15.4589, 15.41734, 15.40809, 15.40054, 15.38233, 15.37461, 15.3698, 
  15.36087, 15.35934, 15.35299, 15.32396, 15.29683, 15.29461, 15.27848, 15.27539, 15.25839, 15.25667, 
  15.26474, 15.27143, 15.28362, 15.28981, 15.28654, 15.30097, 15.29754, 15.302, 15.31042, 15.30681, 
  15.31745, 15.3178, 15.32621, 15.3178, 15.33531, 15.33444, 15.34062, 15.34474, 15.35883, 15.3576, 
  15.36464, 15.36069, 15.35073, 15.34782, 15.35503, 15.354, 15.36344, 15.36344, 15.3686, 15.37169, 
  15.36842, 15.3916, 15.39641, 15.40582, 15.40668, 15.40084, 15.3993, 15.38934, 15.38162, 15.3727, 
  15.36961, 15.36497, 15.3497, 15.34163, 15.34232, 15.35124, 15.35227, 15.3399, 15.32755, 15.30129, 
  15.30815, 15.29254, 15.27605, 15.30025, 15.30008, 15.30695, 15.31485, 15.31382, 15.326, 15.32892, 
  15.36376, 15.37011, 15.38608, 15.35794, 15.34557, 15.33957, 15.32858, 15.27348, 15.24411, 15.22815, 
  15.22764, 15.20258, 15.19314, 15.18782, 15.18988, 15.17684, 15.15384, 15.13735, 15.12396, 15.10371, 
  15.08483, 15.08567, 15.07743, 15.06954, 15.05965, 15.05484, 15.04865, 15.04453, 15.02598, 15.01139, 
  14.98721, 14.93139, 14.91992, 14.92009, 14.91236, 14.91545, 14.90978, 14.91665, 14.90997, 14.91168, 
  14.90292, 14.89228, 14.87459, 14.87046, 14.86085, 14.81662, 14.8164, 14.80575, 14.80558, 14.79837, 
  14.80403, 14.79579, 14.78772, 14.78566, 14.7678, 14.76886, 14.75907, 14.73383, 14.72954, 14.7206, 
  14.70292, 14.70223, 14.689, 14.68525, 14.69092, 14.68955, 14.69916, 14.69299, 14.67719, 14.65074, 
  14.64078, 14.63047, 14.62724, 14.59529, 14.60199, 14.60096, 14.60543, 14.60784, 14.59633, 14.58362, 
  14.57401, 14.56902, 14.56593, 14.53177, 14.52149, 14.51531, 14.50071, 14.50844, 14.49901, 14.5009, 
  14.49626, 14.49918, 14.48939, 14.47428, 14.45659, 14.44165, 14.43512, 14.41537, 14.40888, 14.39927, 
  14.39669, 14.38604, 14.3778, 14.36028, 14.35032, 14.32305, 14.31549, 14.30502, 14.29095, 14.28545, 
  14.27841, 14.26639, 14.24441, 14.23293, 14.22314, 14.22073, 14.21146, 14.20667, 14.20787, 14.17627, 
  14.15171, 14.14106, 14.10865, 14.07602, 14.0496, 14.0429, 14.01096, 14.00083, 13.99653, 14.00134, 
  13.98434, 13.97678, 13.9615, 13.96493, 13.97627, 13.99242, 13.98693, 13.99654, 13.98538, 13.98675, 
  13.97027, 13.95739, 13.94588, 13.94416, 13.91054, 13.8853, 13.85438, 13.84992, 13.82781, 13.81407, 
  13.81355, 13.80325, 13.80737, 13.79193, 13.77063, 13.76634, 13.75878, 13.72495, 13.72495, 13.7075, 
  13.70716, 13.6759, 13.64207, 13.60791, 13.59314,
  13.58303, 13.58028, 13.55316, 13.52398, 13.5178, 13.51042, 13.5027, 13.5051, 13.49721, 13.49892,
  13.49069, 13.49069, 13.50424, 13.51145, 13.50819, 13.51454, 13.51008, 13.51746, 13.51162, 13.51677,
  13.5075, 13.52467, 13.51849, 13.52467, 13.51746, 13.51489, 13.53497, 13.53222, 13.54012, 13.53171,
  13.54492, 13.53462, 13.54509, 13.54063, 13.54217, 13.55608, 13.55608, 13.53891, 13.54475, 13.54012,
  13.54424, 13.53858, 13.54115, 13.55196, 13.55179, 13.55934, 13.56398, 13.5638, 13.55574, 13.56329,
  13.57015, 13.58121, 13.58481, 13.59185, 13.59099, 13.60129, 13.59717, 13.6061, 13.6037, 13.61434,
  13.60541, 13.5982, 13.58858, 13.5891, 13.57502, 13.56746, 13.58704, 13.59803, 13.5958, 13.60353,
  13.58189, 13.58257, 13.57381, 13.58257, 13.5764, 13.58258, 13.58412, 13.59305, 13.597, 13.58979,
  13.60078, 13.59477, 13.59889, 13.59769, 13.59288, 13.5879, 13.59425, 13.59219, 13.59477, 13.5879,
  13.59185, 13.5867, 13.5903, 13.5958, 13.59975, 13.59133, 13.58773, 13.58498, 13.59082, 13.57914,
  13.58497, 13.58514, 13.59098, 13.58926, 13.59682, 13.60523, 13.5896, 13.58909, 13.59939, 13.5963,
  13.61039, 13.59717, 13.60369, 13.59614, 13.60026, 13.59631, 13.60215, 13.60301, 13.61297, 13.62362,
  13.68576, 13.69126, 13.71478, 13.72128, 13.72763, 13.74017, 13.72712, 13.70376, 13.6847, 13.62515,
  13.62068, 13.62687, 13.6236, 13.61742, 13.61467, 13.60746, 13.60694, 13.61244, 13.61244, 13.62102,
  13.62291, 13.62909, 13.63064, 13.64094, 13.64077, 13.62789, 13.63837, 13.63493, 13.63716, 13.62514,
  13.62909, 13.62841, 13.65039, 13.67235, 13.66977, 13.68969, 13.68059, 13.69107, 13.68918, 13.71442,
  13.71064, 13.72266, 13.72403, 13.73605, 13.73416, 13.76113, 13.76968, 13.78565, 13.78169, 13.78891,
  13.78925, 13.80299, 13.8011, 13.80471, 13.8102, 13.80917, 13.81329, 13.81037, 13.80848, 13.80505,
  13.80179, 13.79663, 13.79371, 13.79835, 13.80522, 13.80453, 13.81114, 13.81209, 13.83132, 13.83562,
  13.84781, 13.84523, 13.84781, 13.84057, 13.84109, 13.83593, 13.83147, 13.82855, 13.82597, 13.81584,
  13.8155, 13.8067, 13.8067, 13.79469, 13.79211, 13.79675, 13.79675, 13.81391, 13.80842, 13.81734,
  13.81614, 13.8218, 13.82575, 13.83571, 13.83005, 13.8352, 13.82559, 13.83348, 13.84446, 13.83794,
  13.84498, 13.84962, 13.85717, 13.85254, 13.86249, 13.86627, 13.87416, 13.87519, 13.88549, 13.90385,
  13.90163, 13.90609, 13.90317, 13.90627, 13.90558, 13.92583, 13.92446, 13.9176, 13.92206, 13.91227,
  13.92051, 13.91382, 13.9248, 13.91845, 13.91485, 13.90078, 13.897, 13.88962, 13.88224, 13.88378,
  13.89254, 13.89322, 13.89826, 13.89912, 13.9041, 13.90066, 13.90977, 13.90977, 13.92763, 13.92711,
  13.9223, 13.9211, 13.92557, 13.93141, 13.93398, 13.92746, 13.92711, 13.93072, 13.93072, 13.93467,
  13.94274, 13.94549, 13.95923, 13.96455, 13.97257, 13.98253, 13.99043, 13.99988, 14.00348, 13.99679,
  14.00125, 13.98974, 13.99112, 13.98476, 13.98373, 13.97497, 13.97704, 13.99026, 13.97739, 13.9822,
  13.98134, 13.99164, 13.99274, 14.00229, 13.99491, 13.9968, 13.99233, 13.99474, 14.00143, 14.00367,
  13.98907, 13.99165, 13.98151, 13.98375, 13.98031, 13.98392, 13.99422, 14.00762, 14.01037, 14.01724,
  14.02978, 14.02119, 14.02686, 14.02806, 14.03699, 14.04932, 14.03334, 14.05447, 14.05447, 14.06443,
  14.0651, 14.07283, 14.07781, 14.07163, 14.06991, 14.03472, 14.04725, 14.03764, 14.04829, 14.05997,
  14.05275, 14.0768, 14.08142, 14.08743, 14.08812, 14.09997, 14.09808, 14.07524, 14.07283, 14.06803,
  14.067, 14.0773, 14.08228, 14.10959, 14.12024, 14.11886, 14.12316, 14.13655, 14.14273, 14.1484,
  14.15798, 14.17241, 14.16451, 14.15507, 14.16159, 14.14219, 14.14339, 14.16246, 14.16366, 14.15627,
  14.15919, 14.15061, 14.15456, 14.15216, 14.15869, 14.16126, 14.16641, 14.19851, 14.19714, 14.18752,
  14.18787, 14.17498, 14.18323, 14.19199, 14.19285, 14.20865, 14.2174, 14.22479, 14.22477, 14.22889,
  14.22597, 14.23674, 14.23595, 14.24541, 14.24286, 14.25429, 14.25472, 
  14.13646, 16.08956, 16.60239)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_1, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_union(Geo_0[c(1:100, 194)]))
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
LATITUDE_VALUEs <- c(45.22679, 45.22546, 45.22231, 45.22207, 45.22413, 45.22534)
LONGITUDE_VALUEs <- c(13.5839, 13.58201, 13.5839, 13.58819, 13.58802, 13.58458)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(45.17768, 45.17635, 45.17816, 45.17877)
LONGITUDE_VALUEs <- c(13.58252, 13.5863, 13.58699, 13.58424)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(45.16146, 45.15747, 45.15747, 45.16074)
LONGITUDE_VALUEs <- c(13.6014, 13.60089, 13.60312, 13.60346)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(45.15069, 45.14669, 45.149, 45.15117)
LONGITUDE_VALUEs <- c(13.59042, 13.59694, 13.59728, 13.59385)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(45.1358, 45.13374, 45.13241, 45.13386)
LONGITUDE_VALUEs <- c(13.59763, 13.59608, 13.59728, 13.60106)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(45.09619, 45.09352, 45.09352, 45.09473)
LONGITUDE_VALUEs <- c(13.62046, 13.61978, 13.62166, 13.62201)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(45.07885, 45.07643, 45.07607, 45.07788, 45.07946, 45.07813)
LONGITUDE_VALUEs <- c(13.62596, 13.6251, 13.62767, 13.63334, 13.63265, 13.62956)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(45.05994, 45.05837, 45.05824, 45.06031)
LONGITUDE_VALUEs <- c(13.61926, 13.61943, 13.63008, 13.62922)
 Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(45.05618, 45.05473, 45.05509, 45.05715)
LONGITUDE_VALUEs <- c(13.62201, 13.62098, 13.62784, 13.62681)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(45.04733, 45.04563, 45.04672, 45.04575, 45.04636, 45.04781)
LONGITUDE_VALUEs <- c(13.61823, 13.61995, 13.62338, 13.62475, 13.62716, 13.62681)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(44.79823, 44.79713, 44.80042, 44.80091)
LONGITUDE_VALUEs <- c(13.98156, 13.98362, 13.98722, 13.98533)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(44.79409, 44.7908, 44.78982, 44.79396)
LONGITUDE_VALUEs <- c(13.94706, 13.94568, 13.95015, 13.94963)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(44.78812, 44.78592, 44.78361, 44.78361, 44.78678)
LONGITUDE_VALUEs <- c(13.93419, 13.92989, 13.93058, 13.93504, 13.93659)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(44.77496, 44.76935, 44.7696, 44.77203, 44.77532)
LONGITUDE_VALUEs <- c(13.94431, 13.94483, 13.94826, 13.94998, 13.9462)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(44.82215, 44.8174, 44.81911, 44.82252)
LONGITUDE_VALUEs <- c(13.84278, 13.84913, 13.85016, 13.8457)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(44.87315, 44.87071, 44.86998, 44.87229)
LONGITUDE_VALUEs <- c(13.82493, 13.82373, 13.82613, 13.82699)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(44.87497, 44.87217, 44.87132, 44.87521)
LONGITUDE_VALUEs <- c(13.83505, 13.83334, 13.83797, 13.83866)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(44.90012, 44.89927, 44.90194, 44.90267)
LONGITUDE_VALUEs <- c(13.79555, 13.7971, 13.8007, 13.79864)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(44.89951, 44.89744, 44.89902, 44.90109)
LONGITUDE_VALUEs <- c(13.78371, 13.78371, 13.79126, 13.78972)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(44.90156, 44.89998, 44.90084, 44.90266)
LONGITUDE_VALUEs <- c(13.73755, 13.73858, 13.74167, 13.7403)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(44.91968, 44.91798, 44.91664, 44.91871)
LONGITUDE_VALUEs <- c(13.72794, 13.72708, 13.73, 13.73017)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(44.91299, 44.91056, 44.91044, 44.90728, 44.90594, 44.90983, 44.91068, 44.91202, 44.91421)
LONGITUDE_VALUEs <- c(13.72571, 13.72657, 13.72931, 13.72966, 13.73155, 13.73309, 13.72983, 13.72914, 13.73017)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(44.93973, 44.93803, 44.93694, 44.93694, 44.939)
LONGITUDE_VALUEs <- c(13.71799, 13.71713, 13.71799, 13.7197, 13.7197)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(44.93925, 44.93742, 44.93742, 44.939)
LONGITUDE_VALUEs <- c(13.72279, 13.72279, 13.72537, 13.72537)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  44.93672, 44.93672, 44.93478, 44.9338, 44.93101, 44.93077, 44.93393, 44.9338, 44.93721, 44.93623, 
  44.93052, 44.92821, 44.92979, 44.92919, 44.93077, 44.93271, 44.93721, 44.94049, 44.93867, 44.94122, 
  44.94061)
LONGITUDE_VALUEs <- c(
  13.73422, 13.72941, 13.72907, 13.73181, 13.72941, 13.73645, 13.7337, 13.73816, 13.73851, 13.74331, 
  13.73954, 13.74572, 13.74675, 13.74966, 13.75018, 13.74623, 13.74692, 13.74091, 13.73799, 13.73662, 
  13.73301)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  44.9179, 44.9089, 44.90586, 44.89869, 44.89844, 44.89516, 44.89516, 44.89042, 44.89163, 44.88774, 
  44.88799, 44.89188, 44.89382, 44.89273, 44.90598, 44.9072, 44.90136, 44.90221, 44.90477, 44.90756, 
  44.90379, 44.90416, 44.91024, 44.91036, 44.91401, 44.91863, 44.91607, 44.92179, 44.92252, 44.91996, 
  44.92069, 44.92288, 44.92252, 44.92422, 44.92738, 44.92616, 44.92154, 44.92264, 44.91935, 44.92154, 
  44.91741)
LONGITUDE_VALUEs <- c(
  13.75489, 13.7554, 13.74562, 13.74974, 13.75386, 13.75386, 13.74717, 13.74648, 13.75232, 13.7506, 
  13.75472, 13.75335, 13.75489, 13.75935, 13.75764, 13.76553, 13.76364, 13.77034, 13.76931, 13.77343, 
  13.77652, 13.78047, 13.78218, 13.77326, 13.78064, 13.776, 13.76862, 13.76725, 13.76313, 13.75952, 
  13.75506, 13.7554, 13.76089, 13.75969, 13.74733, 13.73378, 13.73789, 13.74287, 13.74442, 13.74888, 
  13.75008)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### SLOVENIA ##### 
Geo_0 <- Geometric_Operations(Geo_2, Geo_1)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0))
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  45.81965, 45.80793, 45.80362, 45.8029, 45.80003, 45.79608, 45.80123, 45.798, 45.80063, 45.79058, 
  45.79429, 45.76819, 45.76699, 45.76196, 45.76124, 45.75921, 45.75957, 45.75537, 45.75609, 45.75058, 
  45.74807, 45.741, 45.72327, 45.71488, 45.70697, 45.69773, 45.69486, 45.68694, 45.68071, 45.66547, 
  45.64411, 45.64267, 45.63343, 45.63091, 45.62935, 45.61146, 45.60954, 45.59609, 45.59273, 45.58468, 
  45.58216, 45.58083, 45.58408, 45.59789, 45.59465,
  45.59225, 45.59068, 45.59369, 45.59297, 45.58996, 45.58744, 45.58432, 45.58228, 45.57999, 45.58083, 
  45.57447, 45.57398, 45.56858, 45.56786, 45.56413, 45.56341, 45.55968, 45.55932, 45.55776, 45.5574, 
  45.55403, 45.55307, 45.55031, 45.54995, 45.54682, 45.54273, 45.54682, 45.54875, 45.54538, 45.54213, 
  45.53865, 45.53985, 45.54213, 45.54177, 45.53552, 45.53384, 45.53167, 45.53348, 45.53263, 45.5342, 
  45.54009, 45.54009, 45.5372, 45.53841, 45.53696, 45.53516, 45.53107, 45.52806, 45.52578, 45.52686, 
  45.5253, 45.52903, 45.53095, 45.52999, 45.52674, 45.52205, 45.51339, 45.51604, 45.51243, 45.51351, 
  45.51099, 45.50942, 45.50581, 45.50305, 45.50305, 45.49799, 45.49486, 45.49234, 45.49173, 45.48415, 
  45.4791, 45.48006, 45.4785,
  45.47209, 45.46535, 45.45981, 45.44295, 45.45788, 45.45271, 45.45584, 45.45945, 45.46246, 45.46776, 
  45.46535, 45.46535, 45.45728, 45.44379, 45.44235, 45.43392, 45.43548, 45.43331, 45.42693, 45.42645, 
  45.45258, 45.45439, 45.45668, 45.45535, 45.44825, 45.45728, 45.46932, 45.47185, 45.48172, 45.4828, 
  45.49448, 45.49628, 45.50615, 45.51541, 45.51, 45.50783, 45.51565, 45.51974, 45.51998, 45.49809, 
  45.49857, 45.48328, 45.48256, 45.47426, 45.48112, 45.47955, 45.46896, 45.48232, 45.49087, 45.49363, 
  45.50145, 45.50579, 45.5053, 45.48196, 45.49014, 45.49038, 45.48509, 45.48029, 45.48282, 45.4697, 
  45.48594, 45.48438, 45.48739, 45.49341, 45.49461, 45.50375, 45.50532, 45.50953, 45.5082, 45.51699, 
  45.51939, 45.53334, 45.53695, 45.54897, 45.56015, 45.56724, 45.57517, 45.59007, 45.60773, 45.60689, 
  45.61025, 45.61133, 45.6507, 45.67266, 45.67242, 45.66498, 45.66882, 45.66522, 45.64686, 45.64266, 
  45.63534, 45.62718, 45.61325, 45.60376, 45.60376, 45.59163, 45.58911, 45.57722, 45.55979, 45.55486, 
  45.54933, 45.53527, 45.52697, 45.52577, 45.53406, 45.53418, 45.52889, 45.52973, 45.51085, 45.51242, 
  45.50688, 45.50712, 45.4999, 45.50315, 45.49581, 45.49052, 45.48655, 45.4792, 45.47174, 45.45984, 
  45.46669, 45.46608, 45.47174, 45.47668, 45.47547, 45.47957, 45.48847, 45.49377, 45.50014, 45.50351, 
  45.51951, 45.52168, 45.52697, 45.52986, 45.49557, 45.4981, 45.48594, 45.48859, 45.49401, 45.49425, 
  45.48811, 45.48799, 45.48233, 45.48342, 45.46681, 45.46259, 45.44634, 45.44489, 45.42538, 45.42128, 
  45.42887, 45.43345, 45.43718, 45.42562, 45.42646, 45.4367, 45.45344, 45.46657, 45.45212, 45.45729, 
  45.45597, 45.47547, 45.48787, 45.49774, 45.49473, 45.51133, 45.5212, 45.52288, 45.53202, 45.5319, 
  45.53647, 45.58166, 45.60436, 45.61253, 45.61325, 45.63078, 45.63546, 45.6327, 45.63582, 45.6411, 
  45.64122, 45.64554, 45.64746, 45.64398, 45.64614, 45.64134, 45.64086, 45.63702, 45.6417, 45.64662, 
  45.64794, 45.65034, 45.65149, 45.66637, 45.68544, 45.69239, 45.69359, 45.68436, 45.67752, 45.67656, 
  45.6732, 45.67019, 45.68542, 45.68518, 45.69837, 45.69765, 45.71408, 45.71252, 45.71504, 45.70856, 
  45.70317, 45.69562, 45.67511, 45.67487, 45.67823, 45.68782, 45.69753, 45.69873, 45.69106, 45.68626, 
  45.69202, 45.70029, 45.71072, 45.70593, 45.71923, 45.71875, 45.7245, 45.73661, 45.7426, 45.74727, 
  45.75326, 45.7602, 45.77314, 45.77374, 45.77685, 45.77637, 45.78056, 45.779, 45.79241, 45.79157, 
  45.7954, 45.79504, 45.79337, 45.79768, 45.81838, 45.81766, 45.81946, 45.82687, 45.83202, 45.82891, 
  45.82879, 45.8228, 45.82113, 45.82304, 45.82089, 45.82328, 45.82376, 45.83562, 45.84662, 45.84626, 
  45.83944, 45.83442, 45.84387, 45.84853, 45.8532, 45.8471, 45.84674, 45.84076, 45.83538, 45.83215, 
  45.81995, 45.83071, 45.84088, 45.84291, 45.84961, 45.84459, 45.84662, 45.86049, 45.8624, 45.86826, 
  45.88117, 45.90422, 45.92166, 45.96201, 45.99708, 46.00734, 46.01592, 46.0189, 46.03535, 46.04333, 
  46.05894, 46.06168, 46.07359, 46.07073, 46.08026, 46.08776, 46.08288, 46.09121, 46.09942, 46.09942, 
  46.10621, 46.11192, 46.13334, 46.14725, 46.15427, 46.162, 46.16521, 46.16782, 46.17971, 46.18565, 
  46.18649, 46.19195, 46.19778, 46.20478, 46.20716, 46.21714, 46.22248, 46.22759, 46.22248, 46.22284, 
  46.21809, 46.21595, 46.22201, 46.21975, 46.20787, 46.20966, 46.2188, 46.22404, 46.22713, 46.23473, 
  46.24292, 46.25942, 46.26678, 46.27698, 46.28363, 46.28754, 46.28932, 46.28469, 46.29691, 46.3115, 
  46.30889, 46.3147, 46.3064, 46.31553, 46.32193, 46.33782, 46.33462, 46.34267, 46.34007, 46.34469, 
  46.36519, 46.38165, 46.38674, 46.3884, 46.39337, 46.38852, 46.40497, 46.40509, 46.39148, 46.38496, 
  46.38745, 46.3775, 46.38568, 46.37879, 46.38141, 46.38698, 46.38745, 46.37893, 46.38058, 46.37632, 
  46.37845, 46.37821, 46.38579, 46.38875, 46.39728, 46.40142, 46.40781, 46.40829, 46.4148, 46.4148, 
  46.41941, 46.4232, 46.42829, 46.44757, 46.45277, 46.4607, 46.46933, 46.48162, 46.48493, 46.49817, 
  46.50112, 46.50479, 46.51518, 46.51589, 46.51199, 46.51412, 46.51955, 46.52097, 46.5244, 46.52912, 
  46.53018, 46.52676, 46.53007, 46.53514, 46.53869, 46.54246, 46.54329, 46.53857, 46.53821, 46.54246, 
  46.54612, 46.54943, 46.54483, 46.54719, 46.55262, 46.55533, 46.55285, 46.55226, 46.5473, 46.54766, 
  46.54506, 46.54069, 46.54211, 46.53585, 46.53632, 46.53963, 46.53869, 46.53349, 46.52657, 46.5277, 
  46.53396, 46.52794, 46.53361, 46.52699, 46.52735, 46.51566, 46.51672, 46.52144, 46.51341, 46.51814, 
  46.51187, 46.50821, 46.5029, 46.49793, 46.49155, 46.48103, 46.47914, 46.48091, 46.4763, 46.47772, 
  46.47288, 46.47134, 46.47524, 46.4724, 46.47583, 46.49766, 46.62526)
LONGITUDE_VALUEs <- c(
  13.59703, 13.59617, 13.60493, 13.61436, 13.62346, 13.62363, 13.63719, 13.63702, 13.66894, 13.67445, 
  13.67857, 13.72182, 13.72955, 13.73693, 13.73402, 13.73487, 13.73848, 13.74551, 13.76336, 13.76559, 
  13.78533, 13.79975, 13.80954, 13.8267, 13.83408, 13.83546, 13.83117, 13.83323, 13.84559, 13.85812, 
  13.894, 13.90292, 13.91854, 13.91837, 13.91253, 13.87907, 13.86826, 13.86551, 13.85298, 13.85006, 
  13.83873, 13.80938, 13.78003, 13.74706, 13.7232, 
  13.72336, 13.7189, 13.71135, 13.70431, 13.70346, 13.70912, 13.71169, 13.72285, 13.7256, 13.72971, 
  13.73383, 13.74224, 13.74173, 13.74723, 13.74671, 13.73401, 13.73247, 13.745, 13.74431, 13.73333, 
  13.72801, 13.73865, 13.73418, 13.72423, 13.72457, 13.71908, 13.71067, 13.69214, 13.67805, 13.67564, 
  13.66861, 13.66449, 13.66397, 13.65522, 13.65779, 13.64698, 13.64406, 13.63943, 13.63531, 13.62656, 
  13.61609, 13.61266, 13.61163, 13.60459, 13.60133, 13.60219, 13.59979, 13.60355, 13.60183, 13.59291, 
  13.58055, 13.5727, 13.56412, 13.56274, 13.56858, 13.56549, 13.57185, 13.57717, 13.58576, 13.59366, 
  13.59434, 13.59331, 13.59555, 13.59366, 13.58919, 13.58421, 13.58885, 13.58816, 13.59057, 13.59297, 
  13.58988, 13.58833, 13.58559, 
  13.59314, 13.60791, 13.64207, 13.6759, 13.70716, 13.7075, 13.72495, 13.72495, 13.75878, 13.76634, 
  13.77063, 13.79193, 13.80737, 13.80325, 13.81355, 13.81407, 13.82781, 13.84992, 13.85438, 13.8853, 
  13.91054, 13.94416, 13.94588, 13.95739, 13.97027, 13.98675, 13.98538, 13.99654, 13.98693, 13.99242, 
  13.97627, 13.96493, 13.9615, 13.97678, 13.98434, 14.00134, 13.99653, 14.00083, 14.01096, 14.0429, 
  14.0496, 14.07602, 14.10865, 14.14106, 14.15171, 14.17627, 14.20787, 14.20667, 14.21146, 14.22073, 
  14.22314, 14.23293, 14.24441, 14.26639, 14.27841, 14.28545, 14.29095, 14.30502, 14.31549, 14.32305, 
  14.35032, 14.36028, 14.3778, 14.38604, 14.39669, 14.39927, 14.40888, 14.41537, 14.43512, 14.44165, 
  14.45659, 14.47428, 14.48939, 14.49918, 14.49626, 14.5009, 14.49901, 14.50844, 14.50071, 14.51531, 
  14.52149, 14.53177, 14.56593, 14.56902, 14.57401, 14.58362, 14.59633, 14.60784, 14.60543, 14.60096, 
  14.60199, 14.59529, 14.62724, 14.63047, 14.64078, 14.65074, 14.67719, 14.69299, 14.69916, 14.68955, 
  14.69092, 14.68525, 14.689, 14.70223, 14.70292, 14.7206, 14.72954, 14.73383, 14.75907, 14.76886, 
  14.7678, 14.78566, 14.78772, 14.79579, 14.80403, 14.79837, 14.80558, 14.80575, 14.8164, 14.81662, 
  14.86085, 14.87046, 14.87459, 14.89228, 14.90292, 14.91168, 14.90997, 14.91665, 14.90978, 14.91545, 
  14.91236, 14.92009, 14.91992, 14.93139, 14.98721, 15.01139, 15.02598, 15.04453, 15.04865, 15.05484, 
  15.05965, 15.06954, 15.07743, 15.08567, 15.08483, 15.10371, 15.12396, 15.13735, 15.15384, 15.17684, 
  15.18988, 15.18782, 15.19314, 15.20258, 15.22764, 15.22815, 15.24411, 15.27348, 15.32858, 15.33957, 
  15.34557, 15.35794, 15.38608, 15.37011, 15.36376, 15.32892, 15.326, 15.31382, 15.31485, 15.30695, 
  15.30008, 15.30025, 15.27605, 15.29254, 15.30815, 15.30129, 15.32755, 15.3399, 15.35227, 15.35124, 
  15.34232, 15.34163, 15.3497, 15.36497, 15.36961, 15.3727, 15.38162, 15.38934, 15.3993, 15.40084, 
  15.40668, 15.40582, 15.39641, 15.3916, 15.36842, 15.37169, 15.3686, 15.36344, 15.36344, 15.354, 
  15.35503, 15.34782, 15.35073, 15.36069, 15.36464, 15.3576, 15.35883, 15.34474, 15.34062, 15.33444, 
  15.33531, 15.3178, 15.32621, 15.3178, 15.31745, 15.30681, 15.31042, 15.302, 15.29754, 15.30097, 
  15.28654, 15.28981, 15.28362, 15.27143, 15.26474, 15.25667, 15.25839, 15.27539, 15.27848, 15.29461, 
  15.29683, 15.32396, 15.35299, 15.35934, 15.36087, 15.3698, 15.37461, 15.38233, 15.40054, 15.40809, 
  15.41734, 15.4589, 15.46285, 15.47504, 15.46594, 15.47229, 15.4788, 15.47759, 15.49288, 15.49717, 
  15.50284, 15.50147, 15.51057, 15.51366, 15.52019, 15.52242, 15.52843, 15.53921, 15.53732, 15.55054, 
  15.55191, 15.56119, 15.56187, 15.57012, 15.57184, 15.58197, 15.59124, 15.60876, 15.6134, 15.62917, 
  15.64343, 15.65081, 15.66435, 15.69354, 15.69543, 15.70419, 15.70952, 15.69578, 15.68444, 15.67878, 
  15.68737, 15.67964, 15.70694, 15.7102, 15.69973, 15.71329, 15.70591, 15.71295, 15.7162, 15.73235, 
  15.71469, 15.69373, 15.67209, 15.65784, 15.65803, 15.64361, 15.63639, 15.62008, 15.6254, 15.61355, 
  15.61321, 15.60496, 15.61303, 15.59604, 15.61424, 15.60342, 15.60926, 15.60789, 15.63758, 15.63689, 
  15.64513, 15.64891, 15.64616, 15.6484, 15.64135, 15.64736, 15.66935, 15.67656, 15.69975, 15.72872, 
  15.72615, 15.73182, 15.74092, 15.75431, 15.75122, 15.77029, 15.78935, 15.78849, 15.79416, 15.79261, 
  15.8012, 15.79173, 15.86519, 15.86759, 15.8973, 15.89937, 15.9131, 15.91534, 15.96357, 15.97714, 
  15.98744, 15.99019, 16.00393, 16.02333, 16.01965, 16.03773, 16.05198, 16.06314, 16.06967, 16.07773, 
  16.07241, 16.05077, 16.05558, 16.05369, 16.05812, 16.08784, 16.1373, 16.14863, 16.1728, 16.1752, 
  16.18929, 16.18946, 16.21505, 16.21938, 16.22432, 16.22467, 16.23342, 16.2384, 16.24459, 16.26623, 
  16.27207, 16.30142, 16.30486, 16.30314, 16.30829, 16.30125, 16.29782, 16.29112, 16.2827, 16.27206, 
  16.27549, 16.2736, 16.27343, 16.2633, 16.26622, 16.25935, 16.26038, 16.2518, 16.2415, 16.24012, 
  16.25953, 16.26691, 16.26551, 16.28818, 16.29952, 16.30776, 16.30931, 16.31498, 16.31257, 16.32356, 
  16.33211, 16.33434, 16.34172, 16.34032, 16.3453, 16.34393, 16.35525, 16.35525, 16.3592, 16.35869, 
  16.35131, 16.35354, 16.35749, 16.36675, 16.36504, 16.36778, 16.37396, 16.38186, 16.38014, 16.37122, 
  16.36864, 16.37739, 16.38494, 16.387, 16.39593, 16.40039, 16.40434, 16.40212, 16.40739, 16.4119, 
  16.41001, 16.4222, 16.42872, 16.43164, 16.43988, 16.4385, 16.45807, 16.46408, 16.4627, 16.47025, 
  16.47111, 16.48827, 16.48553, 16.49172, 16.51849, 16.51489, 16.52312, 16.53548, 16.5379, 16.56175, 
  16.56381, 16.58389, 16.58853, 16.59573, 16.59642, 16.53005, 16.31477)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_2, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_0 <- st_union(Geo_0)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, Geo_0[1])
Geo_2 <- st_union(Geo_2, Geo) %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

##### ITALY ##### 
Geo_0 <- Geometric_Operations(Geo_3, Geo_2)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0))
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(
  45.81965, 45.80793, 45.80362, 45.8029, 45.80003, 45.79608, 45.80123, 45.798, 45.80063, 45.79058, 
  45.79429, 45.76819, 45.76699, 45.76196, 45.76124, 45.75921, 45.75957, 45.75537, 45.75609, 45.75058, 
  45.74807, 45.741, 45.72327, 45.71488, 45.70697, 45.69773, 45.69486, 45.68694, 45.68071, 45.66547, 
  45.64411, 45.64267, 45.63343, 45.63091, 45.62935, 45.61146, 45.60954, 45.59609, 45.59273, 45.58468, 
  45.58216, 45.58083, 45.58408, 45.59789, 45.59465,
  45.59672, 45.599, 45.60152, 45.60548, 45.60609, 45.61101, 45.60873, 45.60957, 45.6032, 45.59948, 
  45.59804, 45.60116, 45.60344, 45.60657, 45.61269, 45.61425, 45.60993, 45.61509, 45.62254, 45.62602, 
  45.63298, 45.63622, 45.63058, 45.62806, 45.63154, 45.63538, 45.6397, 45.64486, 45.64846, 45.64582, 
  45.65254, 45.67522, 45.68085, 45.69728, 45.70316, 45.70987, 45.73899, 45.75887, 45.76762, 45.77229, 
  45.77145, 45.78091, 45.77432, 45.77875, 45.78366, 45.7821, 45.79599, 45.78953, 45.79252, 45.78725, 
  45.78988, 45.78905, 45.78222, 45.78617, 45.78689, 45.78546, 45.77013, 45.76163, 45.75193, 45.74821, 
  45.7445, 45.73647, 45.73767, 45.72988, 45.73084, 45.72797, 45.72773, 45.72341, 45.72353, 45.70447, 
  45.70423, 45.70088, 45.69344, 45.68169, 45.6763, 45.67749, 45.67438, 45.67881, 45.68253, 45.67893, 
  45.68469, 45.70507, 45.70735, 45.71466, 45.71083, 45.71203, 45.70352, 45.70184, 45.69392, 45.66322, 
  45.64594, 45.64498, 45.63946, 45.6355, 45.63586, 45.78502)
LONGITUDE_VALUEs <- c(
  13.59703, 13.59617, 13.60493, 13.61436, 13.62346, 13.62363, 13.63719, 13.63702, 13.66894, 13.67445, 
  13.67857, 13.72182, 13.72955, 13.73693, 13.73402, 13.73487, 13.73848, 13.74551, 13.76336, 13.76559, 
  13.78533, 13.79975, 13.80954, 13.8267, 13.83408, 13.83546, 13.83117, 13.83323, 13.84559, 13.85812, 
  13.894, 13.90292, 13.91854, 13.91837, 13.91253, 13.87907, 13.86826, 13.86551, 13.85298, 13.85006, 
  13.83873, 13.80938, 13.78003, 13.74706, 13.7232,
  13.72358, 13.71946, 13.72066, 13.71826, 13.72838, 13.73319, 13.74246, 13.75293, 13.77695, 13.77884, 
  13.78607, 13.78625, 13.79757, 13.79654, 13.81285, 13.81147, 13.7998, 13.77955, 13.77594, 13.77045, 
  13.77732, 13.76753, 13.76633, 13.75621, 13.75483, 13.76324, 13.74557, 13.74864, 13.75414, 13.75757, 
  13.76941, 13.75224, 13.7531, 13.73199, 13.71156, 13.71345, 13.67328, 13.63998, 13.6314, 13.61046, 
  13.60239, 13.58077, 13.57974, 13.55844, 13.56393, 13.55673, 13.54506, 13.54626, 13.53991, 13.53733, 
  13.53201, 13.52983, 13.53721, 13.54099, 13.54614, 13.54717, 13.5245, 13.5204, 13.52108, 13.52538, 
  13.51593, 13.52658, 13.53087, 13.54959, 13.55818, 13.55628, 13.55267, 13.5525, 13.53034, 13.48623, 
  13.47112, 13.46236, 13.46098, 13.43318, 13.4337, 13.41017, 13.38424, 13.3808, 13.3647, 13.35096, 
  13.32866, 13.28555, 13.25966, 13.2442, 13.18976, 13.17842, 13.17413, 13.15318, 13.15373, 13.10839, 
  13.10173, 13.09744, 13.10121, 13.09726, 13.06618, 12.99050)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_3, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_3 <- st_set_geometry(Geo_3, st_union(Geo_0[c(1:21, 23)]))
Geo_3 <- st_union(Geo_3, Geo) %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
Geo_0 <- Geometric_Operations(Geo_2, Geo_3)
Geo_2 <- st_set_geometry(Geo_2, Geo_0)

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("CROATIA", "SLOVENIA", "ITALY"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3)

LIMPIYADHURA-KALAPANI-LIPULEKH AREA is included in INDIA in GeoDATA.

LIMPIYADHURA-KALAPANI-LIPULEKH AREA is an Indian Territory (claimed by NEPAL):

  • Passes: LIMPIYADHURA | LIPULEKH
  • Village(s): KUTHI | NABI | GUNJI | KALAPANI

TRANSNISTRIA is also known as:

  • LEFT BANK OF THE DNIESTER
  • PRIDNESTROVIAN MOLDAVIAN REPUBLIC [PMR]
  • PRIDNESTROVIE

TRANSNISTRIA is included in REPUBLIC OF MOLDOVA in GeoDATA.

TRANSNISTRIA is an Autonomous Territorial Unit(s) of REPUBLIC OF MOLDOVA since 2005.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "REPUBLIC OF MOLDOVA")
Geo_2 <- GeoDATA %>% filter(NAME == "UKRAINE")
Geo_3 <- GeoDATA %>% filter(NAME == "ROMANIA")

##### REPUBLIC OF MOLDOVA #####
LATITUDE_VALUEs <- c(
  48.25952, 48.27426, 48.29505, 48.30544, 48.31743, 48.3253, 48.32713, 48.3447, 48.35554, 48.35999,
  48.3188, 48.31286, 48.32313, 48.30213, 48.29116, 48.29516, 48.30578, 48.31172, 48.31332, 48.31925,
  48.32861, 48.3447, 48.35166, 48.34299, 48.35303, 48.35371, 48.36158, 48.40536, 48.41209, 48.39864,
  48.41881, 48.41813, 48.41311, 48.41949, 48.39807, 48.38371, 48.36295, 48.37242, 48.35919, 48.38063,
  48.38268, 48.37436, 48.3877, 48.39123, 48.40263, 48.40696, 48.41095, 48.41847, 48.41733, 48.42109,
  48.4253, 48.42724, 48.42291, 48.42587, 48.42075, 48.43225, 48.43487, 48.41277, 48.37801, 48.37447,
  48.38074, 48.39488, 48.38872, 48.39112, 48.37276, 48.38017, 48.37116, 48.40969, 48.42268, 48.42826,
  48.44375, 48.44113, 48.44227, 48.44387, 48.4474, 48.43988, 48.44649, 48.44899, 48.44125, 48.44182,
  48.41435, 48.40957, 48.41299, 48.41002, 48.4139, 48.40877, 48.43482, 48.44826, 48.45896, 48.45554,
  48.49242, 48.49151, 48.48536, 48.46328, 48.44165, 48.43983, 48.44962, 48.45919, 48.44666, 48.41773,
  48.40816, 48.39289, 48.37693, 48.35389, 48.32377, 48.32628, 48.3192, 48.29385, 48.25021, 48.2358,
  48.231, 48.24815, 48.26347, 48.25569, 48.21568, 48.20401, 48.24198, 48.23146, 48.24792, 48.24495,
  48.21659, 48.18204, 48.1612, 48.14104, 48.13165, 48.13715, 48.17402, 48.17859, 48.17013, 48.14219,
  48.12615, 48.11033, 48.09887, 48.07525, 48.07158, 48.06493, 48.06722, 48.07617, 48.08947, 48.09933,
  48.12661, 48.13875, 48.15158, 48.15341, 48.17059, 48.17521, 48.18242, 48.17692, 48.1744, 48.16628,
  48.17326, 48.157, 48.15952, 48.15196, 48.14349, 48.14669, 48.14257, 48.12435, 48.12985, 48.12596,
  48.13352, 48.13638, 48.12458, 48.12584, 48.12997, 48.12985, 48.13455, 48.12413, 48.12905, 48.1239,
  48.12562, 48.10281, 48.07884, 48.07849, 48.07287, 48.07126, 48.07505, 48.07057, 48.06564, 48.06059,
  48.0342, 48.0272, 48.0195, 48.021, 48.01032, 48.01388, 48.01192, 48.01009, 48.00974, 48.01158,
  48.00825, 48.00607, 48.00032, 47.96011, 47.97907, 47.94275, 47.94803, 47.9424, 47.94654, 47.97218,
  47.96758, 47.95953, 47.95953, 47.9724, 47.977, 47.98286, 47.98275, 47.99343, 47.99366, 47.96424,
  47.96493, 47.8843, 47.88568, 47.89684, 47.89132, 47.88637, 47.89017, 47.87935, 47.879, 47.8744,
  47.86564, 47.85839, 47.85724, 47.84042, 47.83961, 47.81933, 47.79823, 47.79731, 47.81149, 47.80342,
  47.75116, 47.73881, 47.71883, 47.68347, 47.68185, 47.65804, 47.65792, 47.64231, 47.64243, 47.63479,
  47.62693, 47.62589, 47.62832, 47.61235, 47.60263, 47.59765, 47.59383, 47.59209, 47.58468, 47.5819,
  47.57831, 47.57183, 47.56778, 47.57113, 47.55445, 47.50647, 47.51888, 47.51354, 47.51146, 47.50531,
  47.4929, 47.48849, 47.47828, 47.47515, 47.45949, 47.45275, 47.46807, 47.46215, 47.4596, 47.44881,
  47.43894, 47.4358, 47.42477, 47.46192, 47.41525, 47.42326, 47.43708, 47.43662, 47.44033, 47.44312,
  47.44672, 47.44927, 47.37051, 47.37934, 47.35353, 47.34539, 47.30036, 47.30478, 47.29197, 47.29442,
  47.29977, 47.30575, 47.33205, 47.33461, 47.34043, 47.35578, 47.36555, 47.37089, 47.2573, 47.25171,
  47.13576, 47.12852, 47.13179, 47.10937, 47.11217, 47.07547, 47.07594, 47.09394, 47.10072, 47.0446,
  47.04203, 46.96359, 46.95867, 46.93992, 46.95516, 46.91929, 46.92867, 46.91812, 46.91929, 46.8611,
  46.87495, 46.88152, 46.88575, 46.85336, 46.8503, 46.82024, 46.82846, 46.83481, 46.84185, 46.81766,
  46.81695, 46.80591, 46.77135, 46.75536, 46.75348, 46.70947, 46.68616, 46.67886, 46.66025, 46.64917,
  46.63197, 46.61971, 46.59706, 46.58432, 46.58716, 46.56875, 46.56828, 46.55978, 46.56072, 46.55506,
  46.54585, 46.53782, 46.52577, 46.52341, 46.51254, 46.51254, 46.50309, 46.5012, 46.49577, 46.49246,
  46.50876, 46.49057, 46.50687, 46.47733, 46.46905, 46.46196, 46.45321, 46.45581, 46.44043, 46.44398,
  46.42789, 46.42387, 46.43807, 46.4118, 46.43026, 46.41298, 46.39157, 46.37511, 46.39737, 46.39855,
  46.3834, 46.39015, 46.38446, 46.40057, 46.37167, 46.35236, 46.38529, 46.39595, 46.41607, 46.41442,
  46.41986, 46.42211, 46.45476, 46.45322, 46.47048, 46.47297, 46.4667, 46.4434, 46.44033, 46.43441,
  46.42649, 46.44163, 46.43619, 46.36137, 46.35379, 46.3635, 46.36101, 46.41643, 46.42353, 46.43252,
  46.44766, 46.46126, 46.49873, 46.4466, 46.42589, 46.42483, 46.45878, 46.45961, 46.50429, 46.49602,
  46.48253, 46.4791, 46.4739, 46.46527, 46.44765, 46.4441, 46.41464, 46.40848, 46.41748, 46.40671,
  46.40174, 46.39925, 46.39369, 46.37616, 46.38575, 46.41724, 46.4286, 46.45829, 46.46361, 46.48584,
  46.50049, 46.49919, 46.55824, 46.54467, 46.51526, 46.51278, 46.50676, 46.50581, 46.49116, 46.48903,
  46.48158, 46.47768, 46.48076, 46.46208, 46.45794, 46.45214, 46.43085, 46.37486, 46.34275, 46.34583,
  46.32094, 46.31739, 46.31525, 46.31822, 46.26033, 46.19585, 46.09345, 46.04914, 46.00311, 45.97093,
  45.96055, 45.95697, 45.93464, 45.9295, 45.92855, 45.83211, 45.81775, 45.7797, 45.76617, 45.77323,
  45.77, 45.75491, 45.73742, 45.72915, 45.72604, 45.73634, 45.73311, 45.73814, 45.73634, 45.69835,
  45.6842, 45.67388, 45.66081, 45.66525, 45.57977, 45.57099, 45.49993, 45.48441, 45.51328, 45.54708,
  45.51617, 45.47056, 45.46707,
  45.47373, 45.50093, 45.49997, 45.50815, 45.5096, 45.51501, 45.52439, 45.52655, 45.53353, 45.54507, 
  45.55421, 45.57584, 45.56575, 45.578, 45.57127, 45.58593, 45.59843, 45.61019, 45.62796, 45.61764, 
  45.6258, 45.621, 45.63757, 45.64069, 45.64789, 45.64981, 45.68052, 45.70402, 45.70834, 45.72467, 
  45.7371, 45.74501, 45.78309, 45.77854, 45.79362, 45.8099, 45.81851, 45.86061, 45.86443, 45.88403, 
  45.88379, 45.92847, 46.01604, 46.05405, 46.05322, 46.06037, 46.06025, 46.06442, 46.0693, 46.08085, 
  46.07776, 46.10288, 46.10276, 46.11025, 46.11382, 46.12656, 46.12763, 46.14797, 46.16794, 46.17662, 
  46.18946, 46.19576, 46.19124, 46.20811, 46.20811, 46.24445, 46.2511, 46.25941, 46.28599, 46.28955, 
  46.32109, 46.33247, 46.44164, 46.51068, 46.52675, 46.54328, 46.61903, 46.71397, 46.72268, 46.7361, 
  46.74998, 46.77961, 46.82215, 46.85855, 46.87146, 46.8792, 46.90313, 46.91932, 46.93667, 46.94932, 
  46.96292, 46.97861, 47.01116, 47.02263, 47.03059, 47.02193, 47.05071, 47.05866, 47.0776, 47.10729, 
  47.11967, 47.13182, 47.1421, 47.16498, 47.17198, 47.19018, 47.18901, 47.2191, 47.24381, 47.27713, 
  47.27574, 47.29181, 47.30042, 47.28971, 47.28715, 47.30997, 47.30135, 47.32509, 47.31834, 47.33021, 
  47.33626, 47.34929, 47.36929, 47.37255, 47.41322, 47.4325, 47.46196, 47.46405, 47.48958, 47.47449, 
  47.49143, 47.48494, 47.57094, 47.58345, 47.59711, 47.62211, 47.62697, 47.64316, 47.65958, 47.66305, 
  47.68039, 47.68478, 47.70142, 47.70003, 47.71274, 47.71759, 47.73353, 47.72224, 47.72868, 47.73422, 
  47.75199, 47.75038, 47.75592, 47.76469, 47.75823, 47.78084, 47.79906, 47.80599, 47.81268, 47.81729, 
  47.81372, 47.82294, 47.83193, 47.82409, 47.83112, 47.83688, 47.84011, 47.85059, 47.84944, 47.87489, 
  47.89147, 47.9077, 47.91759, 47.91357, 47.92036, 47.92231, 47.94807, 47.96463, 47.99245, 47.99647, 
  47.9905, 47.9998, 48.01233, 48.01463, 48.00337, 48.02106, 48.03116, 48.03575, 48.0509, 48.08738, 
  48.10435, 48.13919, 48.12177, 48.13575, 48.15178, 48.14453, 48.16026, 48.16278, 48.19025, 48.20055, 
  48.18018, 48.18773, 48.20238, 48.20192, 48.23418, 48.22457, 48.24538, 48.25338, 48.24309, 48.24881, 
  48.24447, 48.25818, 48.24492, 48.25224, 48.26641, 48.2639, 48.2527, 48.24675, 48.2623, 48.26435, 
  48.25453, 48.25178, 48.26298)
LONGITUDE_VALUEs <- c(
  26.62985, 26.6163, 26.64874, 26.64857, 26.67586, 26.67535, 26.69595, 26.68942, 26.68256, 26.6944,
  26.73492, 26.73595, 26.7586, 26.76632, 26.79654, 26.81816, 26.82504, 26.82246, 26.83207, 26.82246,
  26.82641, 26.824, 26.80787, 26.79552, 26.77268, 26.7641, 26.7605, 26.70899, 26.72409, 26.75361,
  26.77712, 26.81113, 26.85095, 26.8736, 26.90211, 26.89387, 26.93336, 26.93027, 26.99736, 27.00148,
  27.02761, 27.04563, 27.04975, 27.04598, 27.04477, 27.03671, 27.03997, 27.02656, 27.02296, 27.01232,
  27.01352, 27.02852, 27.03728, 27.05153, 27.06303, 27.0675, 27.08484, 27.0869, 27.12619, 27.13922,
  27.16825, 27.19057, 27.20001, 27.21375, 27.2359, 27.26489, 27.28704, 27.29699, 27.31416, 27.31159,
  27.32, 27.33803, 27.33871, 27.33528, 27.33837, 27.354, 27.35022, 27.35297, 27.36653, 27.37392,
  27.37837, 27.38747, 27.39795, 27.40756, 27.41821, 27.44462, 27.46324, 27.4653, 27.49072, 27.50446,
  27.58208, 27.602, 27.60543, 27.58826, 27.64212, 27.68161, 27.706, 27.74721, 27.78733, 27.82614,
  27.87078, 27.88107, 27.87832, 27.90511, 27.96624, 28.04139, 28.07368, 28.09394, 28.07744, 28.08225,
  28.10663, 28.14029, 28.14269, 28.18562, 28.18356, 28.21447, 28.3075, 28.32123, 28.34459, 28.35936,
  28.37206, 28.35626, 28.30577, 28.3044, 28.32294, 28.35694, 28.37824, 28.40679, 28.43422, 28.44006,
  28.41808, 28.43555, 28.4352, 28.45856, 28.48191, 28.49187, 28.50252, 28.49015, 28.49805, 28.49496,
  28.49734, 28.51966, 28.50249, 28.52825, 28.54714, 28.56745, 28.57724, 28.57673, 28.57037, 28.57913,
  28.59184, 28.61123, 28.61449, 28.64952, 28.64763, 28.68146, 28.67786, 28.68676, 28.70908, 28.7223,
  28.73484, 28.75562, 28.77279, 28.79456, 28.79473, 28.79954, 28.80589, 28.81362, 28.8332, 28.83715,
  28.84127, 28.85809, 28.84779, 28.83988, 28.83335, 28.83662, 28.84263, 28.84967, 28.844, 28.8519,
  28.84005, 28.85602, 28.85636, 28.8646, 28.88212, 28.88847, 28.90187, 28.90118, 28.89345, 28.88985,
  28.88418, 28.88761, 28.87817, 28.92537, 28.9621, 29.03369, 29.0373, 29.05567, 29.08744, 29.07851,
  29.09136, 29.09531, 29.09858, 29.09703, 29.08398, 29.09377, 29.13189, 29.12382, 29.1753, 29.18011,
  29.18543, 29.20019, 29.21273, 29.21668, 29.22389, 29.21616, 29.28039, 29.27436, 29.26887, 29.26698,
  29.23814, 29.23471, 29.22767, 29.21462, 29.20964, 29.19796, 29.21908, 29.23264, 29.24774, 29.27692,
  29.24843, 29.21479, 29.20448, 29.23109, 29.21958, 29.21943, 29.21015, 29.20912, 29.23454, 29.22321,
  29.21908, 29.21393, 29.20947, 29.21754, 29.20053, 29.20346, 29.19934, 29.19179, 29.18578, 29.18938,
  29.18493, 29.18493, 29.17102, 29.16621, 29.11712, 29.15145, 29.18494, 29.18992, 29.18511, 29.18545,
  29.18184, 29.19283, 29.18356, 29.18767, 29.15779, 29.16174, 29.18835, 29.18835, 29.19333, 29.18166,
  29.18853, 29.18337, 29.19024, 29.24242, 29.24379, 29.25375, 29.27778, 29.29049, 29.29049, 29.30491,
  29.30869, 29.31762, 29.33718, 29.3911, 29.39813, 29.38336, 29.39846, 29.42302, 29.42679, 29.44603,
  29.44516, 29.48536, 29.48227, 29.49428, 29.48776, 29.48879, 29.51833, 29.57496, 29.59831, 29.55198,
  29.57941, 29.50528, 29.49498, 29.49908, 29.51556, 29.53203, 29.55022, 29.54747, 29.6144, 29.62884,
  29.60241, 29.5952, 29.5571, 29.57254, 29.63878, 29.64805, 29.71841, 29.72115, 29.72939, 29.75004,
  29.84854, 29.84717, 29.88499, 29.89185, 29.88327, 29.90455, 29.93029, 29.92514, 29.95226, 29.98143,
  29.95843, 29.93543, 29.96668, 29.96496, 29.97594, 29.96599, 29.97148, 29.95672, 29.95569, 29.94368,
  29.95535, 29.95329, 29.96851, 29.96267, 29.93623, 29.93657, 29.94722, 29.93932, 29.94825, 29.94516,
  29.87683, 29.89949, 29.89503, 29.9122, 29.90464, 29.928, 29.92283, 29.94446, 29.93451, 29.93794,
  29.96507, 29.95339, 29.98946, 29.99152, 30.02346, 29.99358, 30.00763, 30.0224, 30.02343, 30.05983,
  30.05537, 30.07735, 30.09452, 30.14054, 30.15634, 30.16183, 30.10643, 30.09784, 30.07019, 30.05714,
  30.02111, 29.99793, 29.98711, 29.93869, 29.8867, 29.8915, 29.80516, 29.82285, 29.7971, 29.79435,
  29.78662, 29.78971, 29.77632, 29.76773, 29.7497, 29.74163, 29.72618, 29.74232, 29.73084, 29.73444,
  29.68602, 29.67932, 29.65992, 29.67899, 29.60395, 29.60085, 29.58012, 29.5657, 29.5051, 29.49136,
  29.48398, 29.50235, 29.44843, 29.38682, 29.39919, 29.39592, 29.37617, 29.37927, 29.3518, 29.33171,
  29.33823, 29.33274, 29.33617, 29.30818, 29.31936, 29.30596, 29.32451, 29.30201, 29.29634, 29.26391,
  29.26768, 29.26322, 29.26786, 29.24089, 29.20604, 29.24725, 29.23027, 29.22958, 29.21945, 29.25515,
  29.24966, 29.24038, 29.23542, 29.16123, 29.16349, 29.0629, 29.06324, 29.03886, 29.03748, 28.98083,
  28.97706, 28.98495, 29.02273, 29.02548, 28.9312, 28.93738, 28.94118, 28.96762, 28.98735, 28.99044,
  28.99731, 29.00418, 29.00195, 28.98512, 28.95079, 29.06769, 28.95062, 29.00589, 28.97872, 28.77674,
  28.77966, 28.75648, 28.76334, 28.76179, 28.75424, 28.786, 28.69655, 28.70961, 28.62412, 28.58634,
  28.58016, 28.59065, 28.59529, 28.58843, 28.5625, 28.55461, 28.5316, 28.52233, 28.51855, 28.50466,
  28.48388, 28.48079, 28.48543, 28.51565, 28.54414, 28.49125, 28.51496, 28.4207, 28.41968, 28.30448,
  28.25591, 28.21437, 28.21368,
  28.18608, 28.17338, 28.16205, 28.16377, 28.15382, 28.16583, 28.15759, 28.16686, 28.16236, 28.16648, 
  28.15447, 28.15653, 28.14657, 28.13834, 28.12186, 28.11361, 28.09095, 28.08858, 28.11773, 28.12803, 
  28.13523, 28.14381, 28.15823, 28.17298, 28.17333, 28.15926, 28.16921, 28.16099, 28.17094, 28.16109, 
  28.16717, 28.14966, 28.15137, 28.13284, 28.11396, 28.12185, 28.1095, 28.10914, 28.12802, 28.13043, 
  28.11327, 28.12219, 28.08772, 28.103, 28.09167, 28.08858, 28.09956, 28.10042, 28.08807, 28.09767, 
  28.10917, 28.10625, 28.1223, 28.11525, 28.12469, 28.12538, 28.13396, 28.12297, 28.14152, 28.1276, 
  28.14169, 28.134, 28.11682, 28.1285, 28.11064, 28.1103, 28.14705, 28.12885, 28.1419, 28.18071, 
  28.20818, 28.18515, 28.25932, 28.2133, 28.23151, 28.21914, 28.25382, 28.20815, 28.18583, 28.19373, 
  28.1721, 28.1745, 28.11476, 28.11991, 28.09999, 28.11819, 28.08284, 28.11272, 28.08422, 28.09726, 
  28.07871, 28.09726, 28.03306, 28.04989, 28.02826, 28.01967, 27.94446, 27.95819, 27.89745, 27.87169, 
  27.82601, 27.85074, 27.78239, 27.81162, 27.79445, 27.80338, 27.78586, 27.78517, 27.74568, 27.74844, 
  27.7371, 27.73642, 27.70413, 27.70516, 27.68147, 27.67769, 27.63579, 27.62381, 27.59461, 27.58294, 
  27.61453, 27.59461, 27.59942, 27.56819, 27.57574, 27.55101, 27.57437, 27.55685, 27.53521, 27.51804, 
  27.51564, 27.47477, 27.41711, 27.42913, 27.37212, 27.35912, 27.33268, 27.31414, 27.31002, 27.29216, 
  27.29731, 27.27636, 27.28323, 27.26777, 27.26916, 27.24993, 27.26264, 27.29236, 27.29527, 27.27981, 
  27.29664, 27.27741, 27.28703, 27.27879, 27.26677, 27.26368, 27.23105, 27.2305, 27.24252, 27.23909, 
  27.21865, 27.21299, 27.2238, 27.23084, 27.24956, 27.24561, 27.2032, 27.19532, 27.21421, 27.19687, 
  27.20769, 27.19343, 27.15754, 27.14398, 27.14054, 27.15634, 27.17746, 27.14226, 27.16699, 27.16253, 
  27.13007, 27.11513, 27.12818, 27.11582, 27.09042, 27.08905, 27.1117, 27.08047, 27.08253, 27.02416, 
  27.04166, 27.02518, 26.99841, 26.9531, 26.95242, 26.98766, 26.98433, 26.93217, 26.95171, 26.92803, 
  26.9143, 26.89165, 26.90949, 26.88372, 26.84837, 26.83086, 26.82571, 26.80169, 26.78316, 26.76668, 
  26.73614, 26.73271, 26.72721, 26.70662, 26.70216, 26.69461, 26.69152, 26.66406, 26.66676, 26.66024, 
  26.65338, 26.64583, 26.63656)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### UKRAINE #####
Geo_0 <- Geometric_Operations(Geo_2, Geo_1)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0))
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  47.95418, 47.96016, 47.95901, 47.96797, 47.99854, 48.0029, 48.01955, 48.00233, 47.99635, 47.99176, 
  48.00049, 48.0083, 48.00543, 48.01622, 48.01795, 48.03631, 48.04412, 48.05399, 48.06684, 48.08072, 
  48.08725, 48.09964, 48.11339, 48.11523, 48.11992, 48.11878, 48.09734, 48.09218, 48.10204, 48.10021, 
  48.08439, 48.08175, 48.07189, 48.05973, 48.04412, 48.04309, 48.03677, 48.03873, 48.0354, 48.03402, 
  48.02392, 48.01818, 48.02082, 48.0091, 48.00302, 48.00428, 47.99877, 47.99291, 47.98692, 47.99038, 
  47.98291, 47.97372, 47.97384, 47.96774, 47.9697, 47.97751, 47.99693, 48.02254, 48.0106, 48.00945, 
  48.00256, 48.00428, 48.00348, 48.0091, 48.00589, 48.00887, 48.00325, 48.0021, 47.99096, 47.98728, 
  47.98291, 47.99394, 47.99038, 47.99544, 47.99256, 47.99854, 47.99164, 47.99564, 47.99256, 47.98625, 
  47.98337, 47.9774, 47.95832, 47.94981, 47.93946, 47.93923, 47.93107, 47.94395, 47.94234, 47.94717, 
  47.94533, 47.94878, 47.94751, 47.96303, 47.96234, 47.96786, 47.96786, 47.95993, 47.96154, 47.96797, 
  47.95544, 47.94868, 47.95429, 47.93452, 47.92934, 47.91427, 47.916, 47.91151, 47.91772, 47.91485, 
  47.92014, 47.91496, 47.9168, 47.90357, 47.89655, 47.89943, 47.90771, 47.90553, 47.92543, 47.91393, 
  47.9267, 47.93647, 47.95613, 47.96016, 47.97119, 47.96326, 47.96223, 47.95131, 47.96234, 47.95832, 
  47.96901, 47.9674, 47.96096, 47.95429, 47.94625, 47.94475, 47.95223, 47.95095, 47.92403, 47.91886, 
  47.91, 47.90862, 47.89585, 47.88618, 47.86442, 47.85163, 47.83988, 47.8423, 47.83023, 47.83884, 
  47.83688, 47.82363, 47.82098, 47.80542, 47.79469, 47.7797, 47.7737, 47.76528, 47.75305, 47.73181, 
  47.72442, 47.73031, 47.72453, 47.73423, 47.72546, 47.74601, 47.74, 47.75559, 47.76851, 47.79193, 
  47.78791, 47.797, 47.80899, 47.81545, 47.82766, 47.83631, 47.8514, 47.859, 47.89159, 47.89585, 
  47.89239, 47.91483, 47.91368, 47.91598, 47.93301, 47.93853, 47.94899, 47.94865, 47.94382, 47.94554, 
  47.94048, 47.94554, 47.94117, 47.93967, 47.95369, 47.96404, 47.9714, 47.96105, 47.96439, 47.97806, 
  47.97611, 47.97071, 47.9884, 47.97806, 47.98243, 47.98817, 47.98404, 47.99438, 48.00954, 48.05279, 
  48.08009, 48.13076, 48.16191, 48.17634, 48.18481, 48.18229, 48.19236, 48.19145, 48.18412, 48.19053, 
  48.19671, 48.199, 48.19442, 48.19099, 48.18595, 48.19167, 48.20197, 48.20586, 48.21616, 48.2173, 
  48.21341, 48.21845, 48.20952, 48.21504, 48.21664, 48.2243, 48.22613, 48.21881, 48.23254, 48.24271, 
  48.2466, 48.23757, 48.2418, 48.25026, 48.253, 48.24614, 48.24763,
  48.25952, 48.27426, 48.29505, 48.30544, 48.31743, 48.3253, 48.32713, 48.3447, 48.35554, 48.35999,
  48.3188, 48.31286, 48.32313, 48.30213, 48.29116, 48.29516, 48.30578, 48.31172, 48.31332, 48.31925,
  48.32861, 48.3447, 48.35166, 48.34299, 48.35303, 48.35371, 48.36158, 48.40536, 48.41209, 48.39864,
  48.41881, 48.41813, 48.41311, 48.41949, 48.39807, 48.38371, 48.36295, 48.37242, 48.35919, 48.38063,
  48.38268, 48.37436, 48.3877, 48.39123, 48.40263, 48.40696, 48.41095, 48.41847, 48.41733, 48.42109,
  48.4253, 48.42724, 48.42291, 48.42587, 48.42075, 48.43225, 48.43487, 48.41277, 48.37801, 48.37447,
  48.38074, 48.39488, 48.38872, 48.39112, 48.37276, 48.38017, 48.37116, 48.40969, 48.42268, 48.42826,
  48.44375, 48.44113, 48.44227, 48.44387, 48.4474, 48.43988, 48.44649, 48.44899, 48.44125, 48.44182,
  48.41435, 48.40957, 48.41299, 48.41002, 48.4139, 48.40877, 48.43482, 48.44826, 48.45896, 48.45554,
  48.49242, 48.49151, 48.48536, 48.46328, 48.44165, 48.43983, 48.44962, 48.45919, 48.44666, 48.41773,
  48.40816, 48.39289, 48.37693, 48.35389, 48.32377, 48.32628, 48.3192, 48.29385, 48.25021, 48.2358,
  48.231, 48.24815, 48.26347, 48.25569, 48.21568, 48.20401, 48.24198, 48.23146, 48.24792, 48.24495,
  48.21659, 48.18204, 48.1612, 48.14104, 48.13165, 48.13715, 48.17402, 48.17859, 48.17013, 48.14219,
  48.12615, 48.11033, 48.09887, 48.07525, 48.07158, 48.06493, 48.06722, 48.07617, 48.08947, 48.09933,
  48.12661, 48.13875, 48.15158, 48.15341, 48.17059, 48.17521, 48.18242, 48.17692, 48.1744, 48.16628,
  48.17326, 48.157, 48.15952, 48.15196, 48.14349, 48.14669, 48.14257, 48.12435, 48.12985, 48.12596,
  48.13352, 48.13638, 48.12458, 48.12584, 48.12997, 48.12985, 48.13455, 48.12413, 48.12905, 48.1239,
  48.12562, 48.10281, 48.07884, 48.07849, 48.07287, 48.07126, 48.07505, 48.07057, 48.06564, 48.06059,
  48.0342, 48.0272, 48.0195, 48.021, 48.01032, 48.01388, 48.01192, 48.01009, 48.00974, 48.01158,
  48.00825, 48.00607, 48.00032, 47.96011, 47.97907, 47.94275, 47.94803, 47.9424, 47.94654, 47.97218,
  47.96758, 47.95953, 47.95953, 47.9724, 47.977, 47.98286, 47.98275, 47.99343, 47.99366, 47.96424,
  47.96493, 47.8843, 47.88568, 47.89684, 47.89132, 47.88637, 47.89017, 47.87935, 47.879, 47.8744,
  47.86564, 47.85839, 47.85724, 47.84042, 47.83961, 47.81933, 47.79823, 47.79731, 47.81149, 47.80342,
  47.75116, 47.73881, 47.71883, 47.68347, 47.68185, 47.65804, 47.65792, 47.64231, 47.64243, 47.63479,
  47.62693, 47.62589, 47.62832, 47.61235, 47.60263, 47.59765, 47.59383, 47.59209, 47.58468, 47.5819,
  47.57831, 47.57183, 47.56778, 47.57113, 47.55445, 47.50647, 47.51888, 47.51354, 47.51146, 47.50531,
  47.4929, 47.48849, 47.47828, 47.47515, 47.45949, 47.45275, 47.46807, 47.46215, 47.4596, 47.44881,
  47.43894, 47.4358, 47.42477, 47.46192, 47.41525, 47.42326, 47.43708, 47.43662, 47.44033, 47.44312,
  47.44672, 47.44927, 47.37051, 47.37934, 47.35353, 47.34539, 47.30036, 47.30478, 47.29197, 47.29442,
  47.29977, 47.30575, 47.33205, 47.33461, 47.34043, 47.35578, 47.36555, 47.37089, 47.2573, 47.25171,
  47.13576, 47.12852, 47.13179, 47.10937, 47.11217, 47.07547, 47.07594, 47.09394, 47.10072, 47.0446,
  47.04203, 46.96359, 46.95867, 46.93992, 46.95516, 46.91929, 46.92867, 46.91812, 46.91929, 46.8611,
  46.87495, 46.88152, 46.88575, 46.85336, 46.8503, 46.82024, 46.82846, 46.83481, 46.84185, 46.81766,
  46.81695, 46.80591, 46.77135, 46.75536, 46.75348, 46.70947, 46.68616, 46.67886, 46.66025, 46.64917,
  46.63197, 46.61971, 46.59706, 46.58432, 46.58716, 46.56875, 46.56828, 46.55978, 46.56072, 46.55506,
  46.54585, 46.53782, 46.52577, 46.52341, 46.51254, 46.51254, 46.50309, 46.5012, 46.49577, 46.49246,
  46.50876, 46.49057, 46.50687, 46.47733, 46.46905, 46.46196, 46.45321, 46.45581, 46.44043, 46.44398,
  46.42789, 46.42387, 46.43807, 46.4118, 46.43026, 46.41298, 46.39157, 46.37511, 46.39737, 46.39855,
  46.3834, 46.39015, 46.38446, 46.40057, 46.37167, 46.35236, 46.38529, 46.39595, 46.41607, 46.41442,
  46.41986, 46.42211, 46.45476, 46.45322, 46.47048, 46.47297, 46.4667, 46.4434, 46.44033, 46.43441,
  46.42649, 46.44163, 46.43619, 46.36137, 46.35379, 46.3635, 46.36101, 46.41643, 46.42353, 46.43252,
  46.44766, 46.46126, 46.49873, 46.4466, 46.42589, 46.42483, 46.45878, 46.45961, 46.50429, 46.49602,
  46.48253, 46.4791, 46.4739, 46.46527, 46.44765, 46.4441, 46.41464, 46.40848, 46.41748, 46.40671,
  46.40174, 46.39925, 46.39369, 46.37616, 46.38575, 46.41724, 46.4286, 46.45829, 46.46361, 46.48584,
  46.50049, 46.49919, 46.55824, 46.54467, 46.51526, 46.51278, 46.50676, 46.50581, 46.49116, 46.48903,
  46.48158, 46.47768, 46.48076, 46.46208, 46.45794, 46.45214, 46.43085, 46.37486, 46.34275, 46.34583,
  46.32094, 46.31739, 46.31525, 46.31822, 46.26033, 46.19585, 46.09345, 46.04914, 46.00311, 45.97093,
  45.96055, 45.95697, 45.93464, 45.9295, 45.92855, 45.83211, 45.81775, 45.7797, 45.76617, 45.77323,
  45.77, 45.75491, 45.73742, 45.72915, 45.72604, 45.73634, 45.73311, 45.73814, 45.73634, 45.69835,
  45.6842, 45.67388, 45.66081, 45.66525, 45.57977, 45.57099, 45.49993, 45.48441, 45.51328, 45.54708,
  45.51617, 45.47056, 45.46707,
  45.45788, 45.43669, 45.40078, 45.31948, 45.24605, 45.24194, 45.22163, 45.24266, 45.25862, 45.26103, 
  45.28688, 45.29292, 45.31128, 45.32552, 45.33928, 45.31466, 45.31731, 45.27988, 45.28278, 45.31176, 
  45.33276, 45.33252, 45.36075, 45.36003, 45.37402, 45.3745, 45.38342, 45.39789, 45.41375, 45.42078, 
  45.43548, 45.42585, 45.44969, 45.43476, 45.44247, 45.42127, 45.4097, 45.38752, 45.3359, 45.26651, 
  45.25781, 45.23855, 45.22985, 45.21994, 45.20341,
  45.20537, 45.20452, 45.21214, 45.2119, 45.21831, 45.21638, 45.20912, 45.2096, 45.22121, 45.22653, 
  45.23995, 45.2501, 45.23874, 45.22641, 45.21964, 45.22399, 45.24467, 45.28224, 45.32112, 45.34019, 
  45.34055, 45.36021, 45.38361, 45.43447, 45.46036, 45.46156, 45.46614, 45.46879, 45.4683, 45.47131, 
  45.47095, 45.46265, 45.46541, 45.46963, 45.47613, 45.48949, 45.48949, 45.46987, 45.46602, 45.45747, 
  45.46578, 45.46698, 45.46433, 45.45819, 45.46445, 45.46927, 45.47709, 45.47372, 45.47974, 45.48407, 
  45.49563, 45.50609, 45.56742, 45.61018, 45.65698, 45.68025, 45.72462, 45.78499, 45.83429, 45.86059, 
  45.89967, 45.94708, 45.97369, 46.01006, 46.04844, 46.06417, 46.07167, 46.07703, 46.07977, 46.09286, 
  46.1081, 46.1181, 46.12845, 46.14593, 46.1665, 46.19158, 46.23803, 46.28502, 46.28965, 46.29772, 
  46.31586, 46.3174, 46.32926, 46.359, 46.3757, 46.37452, 46.38056, 46.40116, 46.41856, 46.42258, 
  46.42708, 46.43489, 46.44979, 46.45204, 46.45677, 46.46256, 46.47734, 46.48053, 46.48597, 46.48692, 
  46.49318, 46.48632, 46.49542, 46.49773, 46.51114, 46.51256, 46.51669, 46.53689, 46.55094, 46.55778, 
  46.55778, 46.55283, 46.54822, 46.54999, 46.54917, 46.55483, 46.55401, 46.5723, 46.57407, 46.57879, 
  46.58504, 46.59495, 46.60121, 46.60073, 46.61618, 46.61665, 46.62267, 46.62703, 46.62715, 
  49.91575, 48.12394)
LONGITUDE_VALUEs <- c(
  22.89787, 22.91229, 22.92825, 22.9473, 22.9365, 22.92174, 22.925, 22.99622, 22.99762, 23.02405, 
  23.03006, 23.07313, 23.09252, 23.09443, 23.08808, 23.11022, 23.09718, 23.11263, 23.10525, 23.12516, 
  23.11297, 23.14678, 23.15038, 23.16669, 23.16754, 23.18041, 23.18899, 23.24668, 23.25183, 23.26848, 
  23.26882, 23.28001, 23.29082, 23.27554, 23.29202, 23.32085, 23.32566, 23.3351, 23.33785, 23.33321, 
  23.32789, 23.34059, 23.34746, 23.37543, 23.37629, 23.38814, 23.40307, 23.40238, 23.41753, 23.4343, 
  23.4369, 23.46229, 23.48023, 23.49174, 23.50376, 23.50253, 23.52142, 23.52931, 23.53979, 23.55353, 
  23.56673, 23.57583, 23.58613, 23.59351, 23.60107, 23.61704, 23.61652, 23.6416, 23.64589, 23.66028, 
  23.66406, 23.70783, 23.71247, 23.71882, 23.72964, 23.75265, 23.75677, 23.76493, 23.78116, 23.7882, 
  23.82062, 23.82095, 23.84156, 23.8407, 23.84774, 23.85306, 23.86319, 23.88397, 23.89067, 23.90715, 
  23.91848, 23.92999, 23.94012, 23.95178, 23.96551, 23.96895, 23.97925, 23.97942, 23.99624, 24.0074, 
  24.0273, 24.03236, 24.06164, 24.09976, 24.09819, 24.11038, 24.1315, 24.14146, 24.15194, 24.16344, 
  24.16479, 24.18093, 24.19587, 24.2182, 24.21871, 24.23895, 24.25921, 24.27793, 24.32498, 24.34522, 
  24.3818, 24.38024, 24.39724, 24.41802, 24.43553, 24.44958, 24.47345, 24.50711, 24.53561, 24.55344, 
  24.56186, 24.5804, 24.58384, 24.59689, 24.5962, 24.60239, 24.61046, 24.62605, 24.63508, 24.65301, 
  24.65249, 24.66125, 24.67379, 24.66777, 24.66915, 24.7045, 24.70502, 24.73713, 24.75234, 24.76237, 
  24.77869, 24.78191, 24.82811, 24.82141, 24.83703, 24.83617, 24.85283, 24.85574, 24.87772, 24.88613, 
  24.88321, 24.98483, 24.99565, 25.00784, 25.04064, 25.05472, 25.06292, 25.11633, 25.11616, 25.14776, 
  25.15791, 25.17143, 25.16679, 25.17932, 25.18087, 25.20061, 25.20095, 25.22362, 25.22585, 25.23821, 
  25.27084, 25.3115, 25.34086, 25.34721, 25.49964, 25.59268, 25.62496, 25.66254, 25.68435, 25.69826, 
  25.71406, 25.73123, 25.73965, 25.77584, 25.81842, 25.82597, 25.86135, 25.88862, 25.90803, 25.91472, 
  25.94014, 25.95078, 26.06185, 26.10131, 26.11813, 26.12586, 26.13754, 26.18474, 26.20106, 26.21243, 
  26.27009, 26.29413, 26.33603, 26.32675, 26.33259, 26.35114, 26.34908, 26.35389, 26.35629, 26.37312, 
  26.37106, 26.37621, 26.3872, 26.37827, 26.37999, 26.40952, 26.42498, 26.46031, 26.46168, 26.47542, 
  26.47989, 26.49671, 26.53037, 26.53939, 26.55106, 26.5466, 26.55364, 26.57236, 26.56892, 26.57544, 
  26.58918, 26.59673, 26.62404, 26.61391, 26.61871, 26.6261, 26.63056,
  26.62985, 26.6163, 26.64874, 26.64857, 26.67586, 26.67535, 26.69595, 26.68942, 26.68256, 26.6944,
  26.73492, 26.73595, 26.7586, 26.76632, 26.79654, 26.81816, 26.82504, 26.82246, 26.83207, 26.82246,
  26.82641, 26.824, 26.80787, 26.79552, 26.77268, 26.7641, 26.7605, 26.70899, 26.72409, 26.75361,
  26.77712, 26.81113, 26.85095, 26.8736, 26.90211, 26.89387, 26.93336, 26.93027, 26.99736, 27.00148,
  27.02761, 27.04563, 27.04975, 27.04598, 27.04477, 27.03671, 27.03997, 27.02656, 27.02296, 27.01232,
  27.01352, 27.02852, 27.03728, 27.05153, 27.06303, 27.0675, 27.08484, 27.0869, 27.12619, 27.13922,
  27.16825, 27.19057, 27.20001, 27.21375, 27.2359, 27.26489, 27.28704, 27.29699, 27.31416, 27.31159,
  27.32, 27.33803, 27.33871, 27.33528, 27.33837, 27.354, 27.35022, 27.35297, 27.36653, 27.37392,
  27.37837, 27.38747, 27.39795, 27.40756, 27.41821, 27.44462, 27.46324, 27.4653, 27.49072, 27.50446,
  27.58208, 27.602, 27.60543, 27.58826, 27.64212, 27.68161, 27.706, 27.74721, 27.78733, 27.82614,
  27.87078, 27.88107, 27.87832, 27.90511, 27.96624, 28.04139, 28.07368, 28.09394, 28.07744, 28.08225,
  28.10663, 28.14029, 28.14269, 28.18562, 28.18356, 28.21447, 28.3075, 28.32123, 28.34459, 28.35936,
  28.37206, 28.35626, 28.30577, 28.3044, 28.32294, 28.35694, 28.37824, 28.40679, 28.43422, 28.44006,
  28.41808, 28.43555, 28.4352, 28.45856, 28.48191, 28.49187, 28.50252, 28.49015, 28.49805, 28.49496,
  28.49734, 28.51966, 28.50249, 28.52825, 28.54714, 28.56745, 28.57724, 28.57673, 28.57037, 28.57913,
  28.59184, 28.61123, 28.61449, 28.64952, 28.64763, 28.68146, 28.67786, 28.68676, 28.70908, 28.7223,
  28.73484, 28.75562, 28.77279, 28.79456, 28.79473, 28.79954, 28.80589, 28.81362, 28.8332, 28.83715,
  28.84127, 28.85809, 28.84779, 28.83988, 28.83335, 28.83662, 28.84263, 28.84967, 28.844, 28.8519,
  28.84005, 28.85602, 28.85636, 28.8646, 28.88212, 28.88847, 28.90187, 28.90118, 28.89345, 28.88985,
  28.88418, 28.88761, 28.87817, 28.92537, 28.9621, 29.03369, 29.0373, 29.05567, 29.08744, 29.07851,
  29.09136, 29.09531, 29.09858, 29.09703, 29.08398, 29.09377, 29.13189, 29.12382, 29.1753, 29.18011,
  29.18543, 29.20019, 29.21273, 29.21668, 29.22389, 29.21616, 29.28039, 29.27436, 29.26887, 29.26698,
  29.23814, 29.23471, 29.22767, 29.21462, 29.20964, 29.19796, 29.21908, 29.23264, 29.24774, 29.27692,
  29.24843, 29.21479, 29.20448, 29.23109, 29.21958, 29.21943, 29.21015, 29.20912, 29.23454, 29.22321,
  29.21908, 29.21393, 29.20947, 29.21754, 29.20053, 29.20346, 29.19934, 29.19179, 29.18578, 29.18938,
  29.18493, 29.18493, 29.17102, 29.16621, 29.11712, 29.15145, 29.18494, 29.18992, 29.18511, 29.18545,
  29.18184, 29.19283, 29.18356, 29.18767, 29.15779, 29.16174, 29.18835, 29.18835, 29.19333, 29.18166,
  29.18853, 29.18337, 29.19024, 29.24242, 29.24379, 29.25375, 29.27778, 29.29049, 29.29049, 29.30491,
  29.30869, 29.31762, 29.33718, 29.3911, 29.39813, 29.38336, 29.39846, 29.42302, 29.42679, 29.44603,
  29.44516, 29.48536, 29.48227, 29.49428, 29.48776, 29.48879, 29.51833, 29.57496, 29.59831, 29.55198,
  29.57941, 29.50528, 29.49498, 29.49908, 29.51556, 29.53203, 29.55022, 29.54747, 29.6144, 29.62884,
  29.60241, 29.5952, 29.5571, 29.57254, 29.63878, 29.64805, 29.71841, 29.72115, 29.72939, 29.75004,
  29.84854, 29.84717, 29.88499, 29.89185, 29.88327, 29.90455, 29.93029, 29.92514, 29.95226, 29.98143,
  29.95843, 29.93543, 29.96668, 29.96496, 29.97594, 29.96599, 29.97148, 29.95672, 29.95569, 29.94368,
  29.95535, 29.95329, 29.96851, 29.96267, 29.93623, 29.93657, 29.94722, 29.93932, 29.94825, 29.94516,
  29.87683, 29.89949, 29.89503, 29.9122, 29.90464, 29.928, 29.92283, 29.94446, 29.93451, 29.93794,
  29.96507, 29.95339, 29.98946, 29.99152, 30.02346, 29.99358, 30.00763, 30.0224, 30.02343, 30.05983,
  30.05537, 30.07735, 30.09452, 30.14054, 30.15634, 30.16183, 30.10643, 30.09784, 30.07019, 30.05714,
  30.02111, 29.99793, 29.98711, 29.93869, 29.8867, 29.8915, 29.80516, 29.82285, 29.7971, 29.79435,
  29.78662, 29.78971, 29.77632, 29.76773, 29.7497, 29.74163, 29.72618, 29.74232, 29.73084, 29.73444,
  29.68602, 29.67932, 29.65992, 29.67899, 29.60395, 29.60085, 29.58012, 29.5657, 29.5051, 29.49136,
  29.48398, 29.50235, 29.44843, 29.38682, 29.39919, 29.39592, 29.37617, 29.37927, 29.3518, 29.33171,
  29.33823, 29.33274, 29.33617, 29.30818, 29.31936, 29.30596, 29.32451, 29.30201, 29.29634, 29.26391,
  29.26768, 29.26322, 29.26786, 29.24089, 29.20604, 29.24725, 29.23027, 29.22958, 29.21945, 29.25515,
  29.24966, 29.24038, 29.23542, 29.16123, 29.16349, 29.0629, 29.06324, 29.03886, 29.03748, 28.98083,
  28.97706, 28.98495, 29.02273, 29.02548, 28.9312, 28.93738, 28.94118, 28.96762, 28.98735, 28.99044,
  28.99731, 29.00418, 29.00195, 28.98512, 28.95079, 29.06769, 28.95062, 29.00589, 28.97872, 28.77674,
  28.77966, 28.75648, 28.76334, 28.76179, 28.75424, 28.786, 28.69655, 28.70961, 28.62412, 28.58634,
  28.58016, 28.59065, 28.59529, 28.58843, 28.5625, 28.55461, 28.5316, 28.52233, 28.51855, 28.50466,
  28.48388, 28.48079, 28.48543, 28.51565, 28.54414, 28.49125, 28.51496, 28.4207, 28.41968, 28.30448,
  28.25591, 28.21437, 28.21368,
  28.26012, 28.28758, 28.2828, 28.34768, 28.577, 28.65532, 28.70817, 28.79363, 28.78986, 28.76583, 
  28.74936, 28.79398, 28.8077, 28.77647, 28.81354, 28.84786, 28.87257, 28.92549, 28.95363, 28.94848, 
  28.9677, 28.99069, 29.04324, 29.05903, 29.08442, 29.10742, 29.12252, 29.1799, 29.19069, 29.2252, 
  29.23859, 29.29144, 29.32748, 29.35874, 29.43047, 29.47721, 29.54997, 29.59259, 29.65574, 29.6793, 
  29.65871, 29.66227, 29.66776, 29.67051, 29.68911,
  29.691, 29.69632, 29.69769, 29.70284, 29.70559, 29.7152, 29.7164, 29.72223, 29.72875, 29.72533, 
  29.70336, 29.69477, 29.71605, 29.73632, 29.75674, 29.75811, 29.74164, 29.74318, 29.7667, 29.75863, 
  29.76824, 29.75537, 29.75468, 29.77425, 29.78043, 29.77751, 29.78025, 29.77751, 29.77253, 29.76687, 
  29.75572, 29.74799, 29.74353, 29.74988, 29.74439, 29.75314, 29.74319, 29.70782, 29.71193, 29.70421, 
  29.69924, 29.68894, 29.68208, 29.68242, 29.66972, 29.67813, 29.66371, 29.6517, 29.63214, 29.63263, 
  29.62371, 29.62583, 29.69571, 29.76538, 29.86188, 29.89654, 29.97688, 30.07198, 30.16588, 30.21394, 
  30.26459, 30.31368, 30.34165, 30.38596, 30.43316, 30.45599, 30.47093, 30.47281, 30.48089, 30.4874, 
  30.50355, 30.50715, 30.5183, 30.54886, 30.56637, 30.5789, 30.62302, 30.65324, 30.66285, 30.6637, 
  30.68036, 30.67589, 30.68448, 30.71434, 30.74491, 30.75229, 30.74953, 30.7552, 30.76464, 30.76911, 
  30.7667, 30.77323, 30.77185, 30.76825, 30.76842, 30.76206, 30.7667, 30.76292, 30.76069, 30.76515, 
  30.76206, 30.75021, 30.74283, 30.73087, 30.72841, 30.7358, 30.73288, 30.74181, 30.76138, 30.78969, 
  30.8103, 30.81854, 30.82009, 30.82696, 30.83125, 30.84619, 30.85048, 30.89956, 30.91622, 30.92583, 
  30.96908, 31.00755, 31.01421, 31.02881, 31.10746, 31.13112, 31.14022, 31.1634, 31.17714, 
  28.58244, 22.91497)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_2, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, st_union(Geo_0[c(1:3, 64)]))
Geo_2 <- st_union(Geo_2, Geo) %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

##### ROMANIA #####
Geo_0 <- Geometric_Operations(Geo_3, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0))
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(
  47.95418, 47.96016, 47.95901, 47.96797, 47.99854, 48.0029, 48.01955, 48.00233, 47.99635, 47.99176, 
  48.00049, 48.0083, 48.00543, 48.01622, 48.01795, 48.03631, 48.04412, 48.05399, 48.06684, 48.08072, 
  48.08725, 48.09964, 48.11339, 48.11523, 48.11992, 48.11878, 48.09734, 48.09218, 48.10204, 48.10021, 
  48.08439, 48.08175, 48.07189, 48.05973, 48.04412, 48.04309, 48.03677, 48.03873, 48.0354, 48.03402, 
  48.02392, 48.01818, 48.02082, 48.0091, 48.00302, 48.00428, 47.99877, 47.99291, 47.98692, 47.99038, 
  47.98291, 47.97372, 47.97384, 47.96774, 47.9697, 47.97751, 47.99693, 48.02254, 48.0106, 48.00945, 
  48.00256, 48.00428, 48.00348, 48.0091, 48.00589, 48.00887, 48.00325, 48.0021, 47.99096, 47.98728, 
  47.98291, 47.99394, 47.99038, 47.99544, 47.99256, 47.99854, 47.99164, 47.99564, 47.99256, 47.98625, 
  47.98337, 47.9774, 47.95832, 47.94981, 47.93946, 47.93923, 47.93107, 47.94395, 47.94234, 47.94717, 
  47.94533, 47.94878, 47.94751, 47.96303, 47.96234, 47.96786, 47.96786, 47.95993, 47.96154, 47.96797, 
  47.95544, 47.94868, 47.95429, 47.93452, 47.92934, 47.91427, 47.916, 47.91151, 47.91772, 47.91485, 
  47.92014, 47.91496, 47.9168, 47.90357, 47.89655, 47.89943, 47.90771, 47.90553, 47.92543, 47.91393, 
  47.9267, 47.93647, 47.95613, 47.96016, 47.97119, 47.96326, 47.96223, 47.95131, 47.96234, 47.95832, 
  47.96901, 47.9674, 47.96096, 47.95429, 47.94625, 47.94475, 47.95223, 47.95095, 47.92403, 47.91886, 
  47.91, 47.90862, 47.89585, 47.88618, 47.86442, 47.85163, 47.83988, 47.8423, 47.83023, 47.83884, 
  47.83688, 47.82363, 47.82098, 47.80542, 47.79469, 47.7797, 47.7737, 47.76528, 47.75305, 47.73181, 
  47.72442, 47.73031, 47.72453, 47.73423, 47.72546, 47.74601, 47.74, 47.75559, 47.76851, 47.79193, 
  47.78791, 47.797, 47.80899, 47.81545, 47.82766, 47.83631, 47.8514, 47.859, 47.89159, 47.89585, 
  47.89239, 47.91483, 47.91368, 47.91598, 47.93301, 47.93853, 47.94899, 47.94865, 47.94382, 47.94554, 
  47.94048, 47.94554, 47.94117, 47.93967, 47.95369, 47.96404, 47.9714, 47.96105, 47.96439, 47.97806, 
  47.97611, 47.97071, 47.9884, 47.97806, 47.98243, 47.98817, 47.98404, 47.99438, 48.00954, 48.05279, 
  48.08009, 48.13076, 48.16191, 48.17634, 48.18481, 48.18229, 48.19236, 48.19145, 48.18412, 48.19053, 
  48.19671, 48.199, 48.19442, 48.19099, 48.18595, 48.19167, 48.20197, 48.20586, 48.21616, 48.2173, 
  48.21341, 48.21845, 48.20952, 48.21504, 48.21664, 48.2243, 48.22613, 48.21881, 48.23254, 48.24271, 
  48.2466, 48.23757, 48.2418, 48.25026, 48.253, 48.24614, 48.24763,
  48.25952, 48.26298, 48.25178, 48.25453, 48.26435, 48.2623, 48.24675, 48.2527, 48.2639, 48.26641, 
  48.25224, 48.24492, 48.25818, 48.24447, 48.24881, 48.24309, 48.25338, 48.24538, 48.22457, 48.23418, 
  48.20192, 48.20238, 48.18773, 48.18018, 48.20055, 48.19025, 48.16278, 48.16026, 48.14453, 48.15178, 
  48.13575, 48.12177, 48.13919, 48.10435, 48.08738, 48.0509, 48.03575, 48.03116, 48.02106, 48.00337, 
  48.01463, 48.01233, 47.9998, 47.9905, 47.99647, 47.99245, 47.96463, 47.94807, 47.92231, 47.92036, 
  47.91357, 47.91759, 47.9077, 47.89147, 47.87489, 47.84944, 47.85059, 47.84011, 47.83688, 47.83112, 
  47.82409, 47.83193, 47.82294, 47.81372, 47.81729, 47.81268, 47.80599, 47.79906, 47.78084, 47.75823, 
  47.76469, 47.75592, 47.75038, 47.75199, 47.73422, 47.72868, 47.72224, 47.73353, 47.71759, 47.71274, 
  47.70003, 47.70142, 47.68478, 47.68039, 47.66305, 47.65958, 47.64316, 47.62697, 47.62211, 47.59711, 
  47.58345, 47.57094, 47.48494, 47.49143, 47.47449, 47.48958, 47.46405, 47.46196, 47.4325, 47.41322, 
  47.37255, 47.36929, 47.34929, 47.33626, 47.33021, 47.31834, 47.32509, 47.30135, 47.30997, 47.28715, 
  47.28971, 47.30042, 47.29181, 47.27574, 47.27713, 47.24381, 47.2191, 47.18901, 47.19018, 47.17198, 
  47.16498, 47.1421, 47.13182, 47.11967, 47.10729, 47.0776, 47.05866, 47.05071, 47.02193, 47.03059, 
  47.02263, 47.01116, 46.97861, 46.96292, 46.94932, 46.93667, 46.91932, 46.90313, 46.8792, 46.87146, 
  46.85855, 46.82215, 46.77961, 46.74998, 46.7361, 46.72268, 46.71397, 46.61903, 46.54328, 46.52675, 
  46.51068, 46.44164, 46.33247, 46.32109, 46.28955, 46.28599, 46.25941, 46.2511, 46.24445, 46.20811, 
  46.20811, 46.19124, 46.19576, 46.18946, 46.17662, 46.16794, 46.14797, 46.12763, 46.12656, 46.11382, 
  46.11025, 46.10276, 46.10288, 46.07776, 46.08085, 46.0693, 46.06442, 46.06025, 46.06037, 46.05322, 
  46.05405, 46.01604, 45.92847, 45.88379, 45.88403, 45.86443, 45.86061, 45.81851, 45.8099, 45.79362, 
  45.77854, 45.78309, 45.74501, 45.7371, 45.72467, 45.70834, 45.70402, 45.68052, 45.64981, 45.64789, 
  45.64069, 45.63757, 45.621, 45.6258, 45.61764, 45.62796, 45.61019, 45.59843, 45.58593, 45.57127, 
  45.578, 45.56575, 45.57584, 45.55421, 45.54507, 45.53353, 45.52655, 45.52439, 45.51501, 45.5096, 
  45.50815, 45.49997, 45.50093, 45.47373, 45.46707,
  45.45788, 45.43669, 45.40078, 45.31948, 45.24605, 45.24194, 45.22163, 45.24266, 45.25862, 45.26103, 
  45.28688, 45.29292, 45.31128, 45.32552, 45.33928, 45.31466, 45.31731, 45.27988, 45.28278, 45.31176, 
  45.33276, 45.33252, 45.36075, 45.36003, 45.37402, 45.3745, 45.38342, 45.39789, 45.41375, 45.42078, 
  45.43548, 45.42585, 45.44969, 45.43476, 45.44247, 45.42127, 45.4097, 45.38752, 45.3359, 45.26651, 
  45.25781, 45.23855, 45.22985, 45.21994, 45.20341,
  45.1985, 45.19862, 45.20262, 45.20237, 45.20528, 45.21108, 45.21108, 45.21205, 45.21084, 45.20637, 
  45.20612, 45.1668, 45.16196, 45.16668, 45.16305, 45.16668, 45.16293, 45.16075, 45.13739, 45.1048, 
  45.05377, 44.8632, 44.83788, 44.83423, 44.82425, 44.80525, 44.77869, 44.74676, 44.67967, 44.61445, 
  44.5193, 44.46297, 44.40561, 44.36463, 44.33738, 44.3418, 44.32854, 44.32535, 44.29192, 44.27005, 
  44.24558, 44.22283, 44.21803, 44.21901, 44.21569, 44.21089, 44.20474, 44.20031, 44.18086, 44.17175, 
  44.16781, 44.15501, 44.14663, 44.13949, 44.13788, 44.13061, 44.1284, 44.10227, 44.10178, 44.10831, 
  44.10769, 44.08859, 44.08304, 44.07712, 44.07403, 44.05566, 44.02184, 44.01419, 44.00826, 44.00295, 
  43.98579, 43.9785, 43.96862, 43.95589, 43.94019, 43.93451, 43.92363, 43.91176, 43.90929, 43.90112, 
  43.90026, 43.88653, 43.87836, 43.87316, 43.8692, 43.85138, 43.84779, 43.84506, 43.84222, 43.83565, 
  43.82847, 43.82191, 43.81881, 43.81262, 43.80903, 43.79936, 43.79032, 43.78871, 43.77433, 43.7571)
LONGITUDE_VALUEs <- c(
  22.89787, 22.91229, 22.92825, 22.9473, 22.9365, 22.92174, 22.925, 22.99622, 22.99762, 23.02405, 
  23.03006, 23.07313, 23.09252, 23.09443, 23.08808, 23.11022, 23.09718, 23.11263, 23.10525, 23.12516, 
  23.11297, 23.14678, 23.15038, 23.16669, 23.16754, 23.18041, 23.18899, 23.24668, 23.25183, 23.26848, 
  23.26882, 23.28001, 23.29082, 23.27554, 23.29202, 23.32085, 23.32566, 23.3351, 23.33785, 23.33321, 
  23.32789, 23.34059, 23.34746, 23.37543, 23.37629, 23.38814, 23.40307, 23.40238, 23.41753, 23.4343, 
  23.4369, 23.46229, 23.48023, 23.49174, 23.50376, 23.50253, 23.52142, 23.52931, 23.53979, 23.55353, 
  23.56673, 23.57583, 23.58613, 23.59351, 23.60107, 23.61704, 23.61652, 23.6416, 23.64589, 23.66028, 
  23.66406, 23.70783, 23.71247, 23.71882, 23.72964, 23.75265, 23.75677, 23.76493, 23.78116, 23.7882, 
  23.82062, 23.82095, 23.84156, 23.8407, 23.84774, 23.85306, 23.86319, 23.88397, 23.89067, 23.90715, 
  23.91848, 23.92999, 23.94012, 23.95178, 23.96551, 23.96895, 23.97925, 23.97942, 23.99624, 24.0074, 
  24.0273, 24.03236, 24.06164, 24.09976, 24.09819, 24.11038, 24.1315, 24.14146, 24.15194, 24.16344, 
  24.16479, 24.18093, 24.19587, 24.2182, 24.21871, 24.23895, 24.25921, 24.27793, 24.32498, 24.34522, 
  24.3818, 24.38024, 24.39724, 24.41802, 24.43553, 24.44958, 24.47345, 24.50711, 24.53561, 24.55344, 
  24.56186, 24.5804, 24.58384, 24.59689, 24.5962, 24.60239, 24.61046, 24.62605, 24.63508, 24.65301, 
  24.65249, 24.66125, 24.67379, 24.66777, 24.66915, 24.7045, 24.70502, 24.73713, 24.75234, 24.76237, 
  24.77869, 24.78191, 24.82811, 24.82141, 24.83703, 24.83617, 24.85283, 24.85574, 24.87772, 24.88613, 
  24.88321, 24.98483, 24.99565, 25.00784, 25.04064, 25.05472, 25.06292, 25.11633, 25.11616, 25.14776, 
  25.15791, 25.17143, 25.16679, 25.17932, 25.18087, 25.20061, 25.20095, 25.22362, 25.22585, 25.23821, 
  25.27084, 25.3115, 25.34086, 25.34721, 25.49964, 25.59268, 25.62496, 25.66254, 25.68435, 25.69826, 
  25.71406, 25.73123, 25.73965, 25.77584, 25.81842, 25.82597, 25.86135, 25.88862, 25.90803, 25.91472, 
  25.94014, 25.95078, 26.06185, 26.10131, 26.11813, 26.12586, 26.13754, 26.18474, 26.20106, 26.21243, 
  26.27009, 26.29413, 26.33603, 26.32675, 26.33259, 26.35114, 26.34908, 26.35389, 26.35629, 26.37312, 
  26.37106, 26.37621, 26.3872, 26.37827, 26.37999, 26.40952, 26.42498, 26.46031, 26.46168, 26.47542, 
  26.47989, 26.49671, 26.53037, 26.53939, 26.55106, 26.5466, 26.55364, 26.57236, 26.56892, 26.57544, 
  26.58918, 26.59673, 26.62404, 26.61391, 26.61871, 26.6261, 26.63056,
  26.62985, 26.63656, 26.64583, 26.65338, 26.66024, 26.66676, 26.66406, 26.69152, 26.69461, 26.70216, 
  26.70662, 26.72721, 26.73271, 26.73614, 26.76668, 26.78316, 26.80169, 26.82571, 26.83086, 26.84837, 
  26.88372, 26.90949, 26.89165, 26.9143, 26.92803, 26.95171, 26.93217, 26.98433, 26.98766, 26.95242, 
  26.9531, 26.99841, 27.02518, 27.04166, 27.02416, 27.08253, 27.08047, 27.1117, 27.08905, 27.09042, 
  27.11582, 27.12818, 27.11513, 27.13007, 27.16253, 27.16699, 27.14226, 27.17746, 27.15634, 27.14054, 
  27.14398, 27.15754, 27.19343, 27.20769, 27.19687, 27.21421, 27.19532, 27.2032, 27.24561, 27.24956, 
  27.23084, 27.2238, 27.21299, 27.21865, 27.23909, 27.24252, 27.2305, 27.23105, 27.26368, 27.26677, 
  27.27879, 27.28703, 27.27741, 27.29664, 27.27981, 27.29527, 27.29236, 27.26264, 27.24993, 27.26916, 
  27.26777, 27.28323, 27.27636, 27.29731, 27.29216, 27.31002, 27.31414, 27.33268, 27.35912, 27.37212, 
  27.42913, 27.41711, 27.47477, 27.51564, 27.51804, 27.53521, 27.55685, 27.57437, 27.55101, 27.57574, 
  27.56819, 27.59942, 27.59461, 27.61453, 27.58294, 27.59461, 27.62381, 27.63579, 27.67769, 27.68147, 
  27.70516, 27.70413, 27.73642, 27.7371, 27.74844, 27.74568, 27.78517, 27.78586, 27.80338, 27.79445, 
  27.81162, 27.78239, 27.85074, 27.82601, 27.87169, 27.89745, 27.95819, 27.94446, 28.01967, 28.02826, 
  28.04989, 28.03306, 28.09726, 28.07871, 28.09726, 28.08422, 28.11272, 28.08284, 28.11819, 28.09999, 
  28.11991, 28.11476, 28.1745, 28.1721, 28.19373, 28.18583, 28.20815, 28.25382, 28.21914, 28.23151, 
  28.2133, 28.25932, 28.18515, 28.20818, 28.18071, 28.1419, 28.12885, 28.14705, 28.1103, 28.11064, 
  28.1285, 28.11682, 28.134, 28.14169, 28.1276, 28.14152, 28.12297, 28.13396, 28.12538, 28.12469, 
  28.11525, 28.1223, 28.10625, 28.10917, 28.09767, 28.08807, 28.10042, 28.09956, 28.08858, 28.09167, 
  28.103, 28.08772, 28.12219, 28.11327, 28.13043, 28.12802, 28.10914, 28.1095, 28.12185, 28.11396, 
  28.13284, 28.15137, 28.14966, 28.16717, 28.16109, 28.17094, 28.16099, 28.16921, 28.15926, 28.17333, 
  28.17298, 28.15823, 28.14381, 28.13523, 28.12803, 28.11773, 28.08858, 28.09095, 28.11361, 28.12186, 
  28.13834, 28.14657, 28.15653, 28.15447, 28.16648, 28.16236, 28.16686, 28.15759, 28.16583, 28.15382, 
  28.16377, 28.16205, 28.17338, 28.18608, 28.21368,
  28.26012, 28.28758, 28.2828, 28.34768, 28.577, 28.65532, 28.70817, 28.79363, 28.78986, 28.76583, 
  28.74936, 28.79398, 28.8077, 28.77647, 28.81354, 28.84786, 28.87257, 28.92549, 28.95363, 28.94848, 
  28.9677, 28.99069, 29.04324, 29.05903, 29.08442, 29.10742, 29.12252, 29.1799, 29.19069, 29.2252, 
  29.23859, 29.29144, 29.32748, 29.35874, 29.43047, 29.47721, 29.54997, 29.59259, 29.65574, 29.6793, 
  29.65871, 29.66227, 29.66776, 29.67051, 29.68911,
  29.68917, 29.68659, 29.68694, 29.67715, 29.67475, 29.65433, 29.64613, 29.63563, 29.6322, 29.63322, 
  29.62996, 29.64351, 29.66222, 29.67766, 29.68556, 29.71095, 29.72608, 29.70651, 29.67631, 29.65672, 
  29.64555, 29.61636, 29.60296, 29.57206, 29.55662, 29.30461, 29.16218, 29.0794, 28.99322, 28.93176, 
  28.86483, 28.80783, 28.74019, 28.70071, 28.69007, 28.66502, 28.65815, 28.63825, 28.62418, 28.62314, 
  28.62623, 28.63447, 28.64082, 28.64546, 28.64563, 28.65369, 28.65301, 28.65936, 28.6561, 28.66708, 
  28.6513, 28.64323, 28.66682, 28.64708, 28.65772, 28.65927, 28.64501, 28.64175, 28.65171, 28.6524, 
  28.66596, 28.66991, 28.64209, 28.63779, 28.64073, 28.64158, 28.66047, 28.66167, 28.66493, 28.66218, 
  28.66802, 28.65567, 28.65549, 28.6409, 28.63884, 28.63249, 28.63644, 28.62974, 28.6227, 28.61893, 
  28.61464, 28.61052, 28.60605, 28.60743, 28.60605, 28.6088, 28.60108, 28.60142, 28.59215, 28.5906, 
  28.59284, 28.58837, 28.58871, 28.58614, 28.5894, 28.57653, 28.58958, 28.57979, 28.58047, 28.57446)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_3, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_3 <- st_set_geometry(Geo_3, Geo_0[5])
Geo_3 <- st_union(Geo_3, Geo) %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("REPUBLIC OF MOLDOVA", "UKRAINE", "ROMANIA"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3)

DONETSK OBLAST (incl. DONETSK PEOPLE’S REPUBLIC [DPR]) is included in UKRAINE in GeoDATA.

DONETSK OBLAST is a Ukrainian Territory (Claimed by RUSSIAN FEDERATION).

DONETSK OBLAST is controlled by RUSSIAN FEDERATION (60%) and by UKRAINE (40%).

DONETSK PEOPLE’S REPUBLIC (DPR) declared independence from UKRAINE in 2014.

DONETSK PEOPLE’S REPUBLIC (DPR) has been annexed by RUSSIAN FEDERATION since 2022.

LUHANSK OBLAST (incl. LUHANSK PEOPLE’S REPUBLIC [LPR]) is included in UKRAINE in GeoDATA.

LUHANSK OBLAST is a Ukrainian Territory (Claimed by RUSSIAN FEDERATION).

LUHANSK OBLAST is controlled by RUSSIAN FEDERATION (98.5%) and by UKRAINE (1.5%).

LUHANSK PEOPLE’S REPUBLIC (DPR) declared independence from UKRAINE in 2014.

LUHANSK PEOPLE’S REPUBLIC (DPR) has been annexed by RUSSIAN FEDERATION since 2022.

DONBAS REGION \(=\) DONETSK OBLAST \(+\) LUHANSK OBLAST

CRIMEA \(=\) AUTONOMOUS REPUBLIC OF CRIMEA \(+\) AUTONOMOUS CITY OF SEVASTOPOL (UKRAINE)

CRIMEA \(=\) REPUBLIC OF CRIMEA \(+\) SEVASTOPOL (RUSSIAN FEDERATION)

CRIMEA is included in UKRAINE in GeoDATA.

CRIMEA is a Ukrainian Territory (Claimed by RUSSIAN FEDERATION).

CRIMEA has been controlled by RUSSIAN FEDERATION since 2014.

##### DONETSK OBLAST #####
LATITUDE_VALUEs <- c(
  47.11933, 47.1184, 47.10835, 47.09386, 47.06756, 47.04745, 47.04534, 47.05061, 47.05376, 47.0699,
  47.09141, 47.10754, 47.11186, 47.10882, 47.08966, 47.09912, 47.09901, 47.09468, 47.08977, 47.08662,
  47.11174, 47.10742, 47.10765, 47.08522, 47.0886, 47.07902, 47.09515, 47.0851, 47.08779, 47.08054,
  47.08966, 47.0858, 47.08066, 47.06861, 47.04324, 47.04242, 46.97687, 46.95485, 46.88919, 46.87182,
  46.86725, 46.86819, 46.87077, 46.86877, 46.87499, 46.89048, 46.91347, 46.93293, 46.94711, 46.95168,
  46.94465, 46.93457, 46.93422, 46.91358, 46.90831, 46.89095, 46.88426,
  46.92037, 46.92811, 46.96831, 46.96022, 46.98224, 47.00753, 47.03948, 47.05913, 47.04767, 47.08018,
  47.08509, 47.09046, 47.09257, 47.09876, 47.09724, 47.10203, 47.10612, 47.1143, 47.11325, 47.12656,
  47.12983, 47.12364, 47.12575, 47.12423, 47.12726, 47.12983, 47.13602, 47.14023, 47.15961, 47.15716,
  47.16533, 47.15984, 47.17116, 47.16474, 47.17361, 47.17069, 47.17711, 47.1749, 47.18166, 47.18983,
  47.19904, 47.20021, 47.20593, 47.20686, 47.20068, 47.20173, 47.22889, 47.22866, 47.31986, 47.32079,
  47.31078, 47.31474, 47.3003, 47.31462, 47.32253, 47.32603, 47.3301, 47.34057, 47.37592, 47.38103,
  47.34127, 47.3558, 47.37336, 47.43773, 47.4368, 47.45734, 47.4599, 47.46976, 47.46965, 47.47939,
  47.4838, 47.45479, 47.49598, 47.49134, 47.5529, 47.53911, 47.56066, 47.55348, 47.57606, 47.54479,
  47.62433, 47.60038, 47.60778, 47.60697, 47.62155, 47.62329, 47.63428, 47.63104, 47.65891, 47.6618,
  47.66758, 47.66539, 47.68527, 47.67903, 47.73263, 47.7309, 47.79367, 47.78352, 47.81673, 47.81753,
  47.84058, 47.85084, 47.84773, 47.88043, 47.87733, 47.90622, 47.91082, 47.92152, 47.91772, 47.92037,
  47.96188, 47.95671, 47.99877, 48.00072, 48.0137, 48.02036, 48.04251, 48.05261, 48.06191, 48.06466,
  48.07946, 48.08565, 48.09104, 48.08301, 48.08909, 48.08794, 48.09356, 48.09184, 48.09539, 48.09597,
  48.10055, 48.09838, 48.09528, 48.08794, 48.0915, 48.08552, 48.0869, 48.07898, 48.08541, 48.07979,
  48.07073, 48.06396, 48.05271, 48.04916, 48.0557, 48.04766, 48.05225, 48.04032, 48.03538, 48.03871,
  48.03458, 48.05202, 48.05145, 48.06281, 48.06166, 48.0635, 48.07795, 48.1845, 48.17729, 48.19103,
  48.19618, 48.30933, 48.3055, 48.31721, 48.31264, 48.34791, 48.34871, 48.3689, 48.36536, 48.37072,
  48.40538, 48.40549, 48.41506, 48.42099, 48.41575, 48.44365, 48.4432, 48.48463, 48.48736, 48.51773,
  48.52125, 48.51943, 48.52069, 48.54342, 48.54183, 48.55103, 48.55001, 48.5691, 48.56683, 48.57023,
  48.56694, 48.60065, 48.59634, 48.6263, 48.6465, 48.65466, 48.6584, 48.66419, 48.66793, 48.67745,
  48.68754, 48.69297, 48.69377, 48.70396, 48.71452, 48.74351, 48.74487, 48.76728, 48.77045, 48.77633,
  48.78413, 48.80619, 48.79691, 48.80211, 48.78798, 48.7856, 48.78063, 48.7778, 48.77079, 48.77316,
  48.78323, 48.783, 48.77859, 48.80053, 48.79771, 48.7925, 48.79544, 48.7925, 48.76558, 48.76354,
  48.74566, 48.76626, 48.76773, 48.77508, 48.78741, 48.79782, 48.80358, 48.80178, 48.81817, 48.81353,
  48.81783, 48.81772, 48.85105, 48.84111, 48.83207, 48.83241, 48.8245, 48.81466, 48.84935, 48.86934,
  48.88244, 48.88808, 48.90874, 48.90648, 48.90885, 48.90659, 48.9225, 48.92318, 48.91912, 48.9234,
  48.92204, 48.93412, 48.94235, 48.94753, 48.95509, 48.9614, 48.96771, 48.96748, 48.98123, 48.97774,
  48.98292, 48.98258, 48.98574, 48.98619, 48.99081, 48.99328, 49.00365, 48.9988, 48.99159, 48.99182,
  48.99723, 49.00353, 49.02628, 49.0247, 49.0337, 49.03911, 49.04664, 49.05452, 49.06149, 49.05891,
  49.05328, 49.05823, 49.05565, 49.07072, 49.08005, 49.10152, 49.1122, 49.12624, 49.13601, 49.13354,
  49.13702, 49.1377, 49.14533, 49.14747, 49.13927, 49.13994, 49.14432, 49.14758, 49.16745, 49.17957,
  49.18204, 49.18686, 49.20066, 49.21367, 49.23127, 49.23027, 49.23329, 49.21962, 49.20201, 49.20907,
  49.20616, 49.20268, 49.20111, 49.22612, 49.23273, 49.23385,
  49.22304, 49.219, 49.21172, 49.22035, 49.21407, 49.20701, 49.19141, 49.17627, 49.16684, 49.16067,
  49.13872, 49.14293, 49.13596, 49.12664, 49.15056, 49.14663, 49.1345, 49.09574, 49.06324, 49.05931,
  49.03951, 48.99357, 48.98591, 48.9645, 48.97453, 48.94647, 48.94162, 48.9317, 48.93531, 48.92685,
  48.92437, 48.93564, 48.94015, 48.93621, 48.93982, 48.93463, 48.93204, 48.92707, 48.9264, 48.92369,
  48.93339, 48.92741, 48.93632, 48.86037, 48.83948, 48.84275, 48.83213, 48.82524, 48.82874, 48.80602,
  48.8024, 48.77277, 48.77311, 48.75037, 48.73735, 48.73452, 48.72908, 48.71413, 48.71278, 48.70983,
  48.70462, 48.69544, 48.68762, 48.6866, 48.68388, 48.68196, 48.66461, 48.66371, 48.65668, 48.65407,
  48.63388, 48.63694, 48.54611, 48.54543, 48.53565, 48.53645, 48.50837, 48.50837, 48.502, 48.49858,
  48.49278, 48.49324, 48.48971, 48.48732, 48.48357, 48.47458, 48.47708, 48.47663, 48.46433, 48.4558,
  48.43724, 48.44168, 48.44077, 48.44316, 48.44236, 48.42949, 48.43428, 48.43986, 48.44794, 48.43382,
  48.41924, 48.39531, 48.37593, 48.38106, 48.37844, 48.36783, 48.36521, 48.36156, 48.3603, 48.3489,
  48.35186, 48.34251, 48.33954, 48.31569, 48.30644, 48.2989, 48.28737, 48.28383, 48.27823, 48.26989,
  48.25846, 48.22737, 48.20335, 48.17348, 48.16306, 48.165, 48.1618, 48.15058, 48.14153, 48.12732,
  48.13076, 48.12457, 48.11563, 48.08858, 48.08399, 48.07447, 48.06621, 48.07814, 48.05807, 48.049,
  48.03844, 48.03489, 48.02961, 48.02042, 48.01468, 48.00719, 47.98824, 47.95617, 47.9541, 47.94651,
  47.95272, 47.94042, 47.94111, 47.89567, 47.86965,
  47.86961, 47.87307, 47.87502, 47.87237, 47.87514, 47.86754, 47.86581, 47.85153, 47.84899, 47.83551, 
  47.82676, 47.81534, 47.81558, 47.79586, 47.79159, 47.78433, 47.78467, 47.77833, 47.77533, 47.76645, 
  47.73667, 47.7354, 47.72131, 47.71923, 47.68469, 47.68561, 47.68053, 47.68056, 47.68712, 47.69093, 
  47.69971, 47.69856, 47.66955, 47.66932, 47.65475, 47.64469, 47.64434, 47.61739, 47.61681, 47.5756, 
  47.5756, 47.55452, 47.54502, 47.54455, 47.50839, 47.50491, 47.4773, 47.47452, 47.39207, 47.39184, 
  47.37324, 47.37324, 47.36441, 47.35208, 47.33626, 47.30531, 47.30647, 47.28086, 47.27178, 47.25663, 
  47.25663, 47.23915, 47.23915, 47.23379, 47.23076, 47.2149, 47.20441, 47.14023, 47.12294)
LONGITUDE_VALUEs <- c(
  38.23005, 38.22473, 38.21133, 38.18353, 38.16345, 38.13306, 38.12242, 38.12466, 38.13667, 38.13272,
  38.11488, 38.09051, 38.06252, 38.05273, 38.0354, 37.99714, 37.98032, 37.97122, 37.98478, 37.98324,
  37.89569, 37.87797, 37.86579, 37.80007, 37.76626, 37.70633, 37.62721, 37.61312, 37.59355, 37.58291,
  37.58, 37.57382, 37.53432, 37.51648, 37.4969, 37.4878, 37.42961, 37.39837, 37.33553, 37.31202,
  37.29554, 37.28473, 37.28593, 37.2904, 37.31185, 37.32695, 37.31802, 37.29176, 37.25778, 37.23427,
  37.22172, 37.21132, 37.19123, 37.16273, 37.12497, 37.08547, 37.06177,
  37.03093, 37.02149, 37.09205, 37.10251, 37.14147, 37.08929, 37.12478, 37.09801, 37.0805, 36.98441,
  37.0098, 37.01239, 37.00844, 37.01119, 37.00484, 37.00158, 37.01016, 37.00964, 36.99917, 37.00329,
  36.99746, 36.99197, 36.98818, 36.98355, 36.97823, 36.9808, 36.96999, 36.97394, 36.94304, 36.94012,
  36.93566, 36.92364, 36.9221, 36.90923, 36.89928, 36.88812, 36.88604, 36.87918, 36.87472, 36.85893,
  36.85653, 36.8917, 36.89428, 36.93049, 36.93117, 36.96227, 36.95608, 36.94922, 36.92656, 36.94424,
  36.94647, 37.02617, 37.03682, 37.0837, 37.08318, 37.09537, 37.0928, 37.12233, 37.10636, 37.1462,
  37.16146, 37.2037, 37.19442, 37.23168, 37.23666, 37.24816, 37.24009, 37.2449, 37.1896, 37.19561,
  37.17999, 37.15752, 37.08387, 37.07597, 37.02173, 37.00044, 36.98052, 36.96592, 36.94414, 36.89265,
  36.82964, 36.76336, 36.76319, 36.74807, 36.74533, 36.76542, 36.76593, 36.72474, 36.71823, 36.75412,
  36.75772, 36.77421, 36.79121, 36.71307, 36.70021, 36.68527, 36.6712, 36.58757, 36.58879, 36.59875,
  36.60837, 36.60441, 36.58432, 36.57677, 36.54914, 36.5421, 36.59241, 36.59, 36.61868, 36.64014,
  36.62898, 36.58485, 36.57592, 36.58673, 36.57162, 36.59154, 36.5761, 36.58726, 36.57782, 36.58709,
  36.58365, 36.60546, 36.60151, 36.62847, 36.63239, 36.65094, 36.64939, 36.63892, 36.6372, 36.64939,
  36.65128, 36.65867, 36.65506, 36.6633, 36.67412, 36.68439, 36.69298, 36.71255, 36.71616, 36.7244,
  36.7268, 36.74775, 36.74003, 36.75153, 36.76424, 36.77609, 36.80477, 36.81177, 36.83513, 36.84131,
  36.85436, 36.85848, 36.86621, 36.86947, 36.88166, 36.88113, 36.89607, 36.87221, 36.88955, 36.89368,
  36.93676, 36.91187, 36.87432, 36.87065, 36.81676, 36.80903, 36.81625, 36.81213, 36.82174, 36.82861,
  36.82054, 36.83617, 36.82501, 36.84046, 36.85197, 36.84544, 36.83651, 36.82999, 36.85729, 36.85025,
  36.88851, 36.88885, 36.90723, 36.90173, 36.88439, 36.88268, 36.871, 36.85847, 36.82533, 36.82361,
  36.78827, 36.779, 36.74517, 36.73867, 36.73403, 36.72201, 36.73059, 36.72046, 36.7263, 36.71565,
  36.7196, 36.71171, 36.72836, 36.73575, 36.72562, 36.71291, 36.71789, 36.70948, 36.69145, 36.68853,
  36.70294, 36.7208, 36.76698, 36.79085, 36.78347, 36.79171, 36.78862, 36.81642, 36.82123, 36.84081,
  36.83566, 36.83833, 36.8409, 36.85411, 36.91986, 36.92724, 36.94835, 36.9722, 37.00176, 37.01308,
  37.03573, 37.04328, 37.02321, 37.02321, 36.99454, 37.0057, 37.00793, 37.01925, 37.02406, 37.06525,
  37.06782, 37.07812, 37.09908, 37.14558, 37.1384, 37.15195, 37.1571, 37.19177, 37.19504, 37.19006,
  37.19367, 37.21409, 37.22508, 37.24395, 37.24533, 37.2666, 37.27004, 37.29839, 37.29856, 37.31383,
  37.32882, 37.33236, 37.31005, 37.30611, 37.32121, 37.30491, 37.30885, 37.29375, 37.30748, 37.31606,
  37.31675, 37.32344, 37.32361, 37.31115, 37.3108, 37.33605, 37.34463, 37.35957, 37.35751, 37.36541,
  37.37297, 37.37005, 37.37501, 37.39184, 37.38497, 37.38823, 37.38325, 37.41295, 37.41708, 37.4497,
  37.45002, 37.46668, 37.47166, 37.50652, 37.5065, 37.48589, 37.547, 37.5853, 37.57104, 37.5604,
  37.56417, 37.55748, 37.54168, 37.55233, 37.56126, 37.56572, 37.56194, 37.56435, 37.55353, 37.51011,
  37.512, 37.50221, 37.51509, 37.54889, 37.564, 37.59749, 37.61483, 37.71662, 37.79833, 37.79833,
  37.8246, 37.82426, 37.84366, 37.85345, 37.86149, 37.87455,
  37.87311, 37.88924, 37.88958, 37.93368, 37.94295, 37.92116, 37.93421, 37.89268, 37.9028, 37.89267,
  37.94363, 37.95737, 37.95926, 38.03994, 38.04408, 38.08286, 38.08423, 38.06725, 38.06193, 38.05232,
  38.07361, 38.0997, 38.04959, 38.05422, 38.02917, 38.00545, 38.01609, 38.02261, 38.03634, 38.0317,
  38.03874, 38.0444, 38.0559, 38.06362, 38.09059, 38.09488, 38.11479, 38.11685, 38.12766, 38.13435,
  38.14276, 38.19703, 38.22912, 38.22913, 38.22072, 38.26019, 38.27084, 38.27205, 38.31426, 38.31803,
  38.2777, 38.28319, 38.27486, 38.26387, 38.28482, 38.32002, 38.32344, 38.32481, 38.30438, 38.30421,
  38.31485, 38.31416, 38.30678, 38.31434, 38.31485, 38.28411, 38.28772, 38.26661, 38.26472, 38.2254,
  38.22918, 38.26249, 38.27949, 38.274, 38.28121, 38.28499, 38.32053, 38.314, 38.3104, 38.31658,
  38.31176, 38.30919, 38.29957, 38.30266, 38.30163, 38.30472, 38.30009, 38.28841, 38.31898, 38.3109,
  38.34233, 38.35057, 38.35658, 38.36294, 38.37478, 38.38025, 38.40309, 38.40051, 38.43314, 38.43279,
  38.4388, 38.43657, 38.45031, 38.45357, 38.46937, 38.47278, 38.48395, 38.48721, 38.47124, 38.47072,
  38.46351, 38.4551, 38.43363, 38.43965, 38.42574, 38.43399, 38.42541, 38.42901, 38.42729, 38.56892,
  38.58832, 38.58917, 38.61251, 38.59843, 38.63843, 38.66934, 38.67174, 38.6623, 38.71639, 38.77388,
  38.78041, 38.78144, 38.82008, 38.80701, 38.81714, 38.79894, 38.81662, 38.82813, 38.82983, 38.81215,
  38.82537, 38.82125, 38.82537, 38.85422, 38.86143, 39.03978, 39.04304, 39.03806, 39.05231, 39.05712,
  39.07326, 39.08425, 39.09129, 39.06485, 39.07412,
  38.9541, 38.94328, 38.91306, 38.90705, 38.87872, 38.8782, 38.84304, 38.84304, 38.82707, 38.82451, 
  38.83206, 38.82811, 38.78965, 38.78982, 38.78364, 38.78604, 38.79222, 38.78913, 38.79703, 38.78897, 
  38.78965, 38.77695, 38.77076, 38.77248, 38.77214, 38.74759, 38.74347, 38.73518, 38.73935, 38.72921, 
  38.73677, 38.66519, 38.66536, 38.6293, 38.62983, 38.61524, 38.4568, 38.45646, 38.35037, 38.34987, 
  38.31072, 38.3114, 38.30522, 38.28496, 38.28496, 38.29459, 38.28738, 38.30387, 38.30284, 38.28739, 
  38.28636, 38.25751, 38.24406, 38.24955, 38.22449, 38.22105, 38.33675, 38.32268, 38.33332, 38.32645, 
  38.28835, 38.28869, 38.26088, 38.25367, 38.23307, 38.24234, 38.23479, 38.23616, 38.22758)
MGeo_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- MGeo_1 %>% 
  mutate(NAME = "DONETSK OBLAST", VISUALIZATION_NAME = "Donetsk Oblast", 
         ISO2 = NA, ISO3 = NA, M49_CODE = NA, SOVRN = "Ukraine", Claimed = "Russian Federation", COUNTRY = "Ukraine",
         CONTINENT = "EUROPE",  CONTINENT_CODE = "150", SREGION = "Eastern Europe", SREGION_CODE = "151", 
         IREGION = NA, IREGION_CODE = NA, SIREGION = SREGION, SIREGION_CODE = "151",
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

##### LUHANSK OBLAST #####
LATITUDE_VALUEs <- c(
  49.24646, 49.25273, 49.2562, 49.25968, 49.27032, 49.27894, 49.28297, 49.30436, 49.31309, 49.33065,
  49.40392, 49.41777, 49.44658, 49.44591, 49.48696, 49.49231, 49.52085, 49.51907, 49.54558, 49.54937,
  49.57364, 49.56897, 49.58967, 49.61281, 49.61125, 49.62415, 49.6286, 49.64483, 49.65639, 49.67817,
  49.69505, 49.6986, 49.7066, 49.71459, 49.71126, 49.7319, 49.7685, 49.75276, 49.75497, 49.76673,
  49.7838, 49.79245, 49.8115, 49.8383, 49.83565, 49.84649, 49.88367, 49.89457, 49.89955, 49.90043,
  49.92343, 49.94254, 49.93083, 49.92199, 49.94177, 49.95193, 49.96242, 49.97009, 49.97959, 50.02174, 
  50.0806, 50.07156, 50.08897, 50.08522, 50.05966, 50.03166, 50.00718, 49.98299, 50.00166, 49.99526, 
  49.98312, 49.98091, 49.96369, 49.96369, 49.95927, 49.97774, 49.97605, 49.95596, 49.9723, 49.9734, 
  50.00563, 50.00762, 49.98466, 49.9628, 49.93453, 49.92723, 49.89871, 49.89628, 49.87836, 49.88279, 
  49.87792, 49.86487, 49.8704, 49.85734, 49.84561, 49.83675, 49.82014, 49.7971, 49.8002, 49.79754, 
  49.82324, 49.81549, 49.84317, 49.86155, 49.88942, 49.84052, 49.8053, 49.76917, 49.76828, 49.75453, 
  49.73856, 49.76096, 49.75719, 49.73789, 49.73412, 49.71858, 49.6157, 49.61259, 49.6048, 49.60658, 
  49.59724, 49.55783, 49.56385, 49.55872, 49.57387, 49.59768, 49.6068, 49.59946, 49.61726, 49.59657, 
  49.56897, 49.52018, 49.49789, 49.45327, 49.43787, 49.40884, 49.38515, 49.37577, 49.35766, 49.34692, 
  49.28269, 49.26141, 49.24101, 49.23967, 49.18696, 49.18023, 49.08274, 49.0562, 49.06474, 49.05844, 
  49.03977, 49.05102, 49.04089, 49.03459, 48.99969, 48.98933, 49.00127, 48.97491, 48.9891, 48.97761, 
  48.95169, 48.94177, 48.93455, 48.92102, 48.90568, 48.89755, 48.88627, 48.90252, 48.90229, 48.89123, 
  48.89597, 48.8743, 48.86798, 48.90162, 48.90207, 48.90974, 48.91493, 48.91042, 48.90387, 48.86843, 
  48.79204, 48.84268, 48.80875, 48.79789, 48.76428, 48.77301, 48.75128, 48.74517, 48.72094, 48.68038, 
  48.6695, 48.65522, 48.64841, 48.63525, 48.6087, 48.586, 48.58895, 48.581, 48.59372, 48.56691, 
  48.50281, 48.50235, 48.46753, 48.44795, 48.44044, 48.42654, 48.4213, 48.40376, 48.3976, 48.39053, 
  48.37389, 48.38718, 48.38529, 48.37184, 48.35769, 48.35404, 48.34492, 48.34994, 48.34697, 48.34172, 
  48.33396, 48.33328, 48.30931, 48.30885, 48.30474, 48.2867, 48.2723, 48.27116, 48.29241, 48.29309, 
  48.30337, 48.30451, 48.31387, 48.31776, 48.29949, 48.25333, 48.24144, 48.22315, 48.22864, 48.18079, 
  48.18102, 48.14163, 48.11665, 48.07974, 48.06666, 48.0483, 48.04142, 48.04027, 48.01088, 48.00192, 
  47.94952, 47.95044, 47.92698, 47.91961, 47.86828, 47.87058, 47.84755, 47.82704, 47.83833, 47.82542, 
  47.83257, 47.82542, 47.85953, 47.85077, 47.83879, 47.83026, 47.87173, 47.87289, 47.86667, 47.86759, 
  47.85354, 47.85377, 47.84617, 47.85239, 47.851, 47.84225, 47.84294, 47.85193, 47.85193, 47.86943,
  47.86965, 47.89567, 47.94111, 47.94042, 47.95272, 47.94651, 47.9541, 47.95617, 47.98824, 48.00719, 
  48.01468, 48.02042, 48.02961, 48.03489, 48.03844, 48.049, 48.05807, 48.07814, 48.06621, 48.07447, 
  48.08399, 48.08858, 48.11563, 48.12457, 48.13076, 48.12732, 48.14153, 48.15058, 48.1618, 48.165, 
  48.16306, 48.17348, 48.20335, 48.22737, 48.25846, 48.26989, 48.27823, 48.28383, 48.28737, 48.2989, 
  48.30644, 48.31569, 48.33954, 48.34251, 48.35186, 48.3489, 48.3603, 48.36156, 48.36521, 48.36783, 
  48.37844, 48.38106, 48.37593, 48.39531, 48.41924, 48.43382, 48.44794, 48.43986, 48.43428, 48.42949, 
  48.44236, 48.44316, 48.44077, 48.44168, 48.43724, 48.4558, 48.46433, 48.47663, 48.47708, 48.47458, 
  48.48357, 48.48732, 48.48971, 48.49324, 48.49278, 48.49858, 48.502, 48.50837, 48.50837, 48.53645, 
  48.53565, 48.54543, 48.54611, 48.63694, 48.63388, 48.65407, 48.65668, 48.66371, 48.66461, 48.68196, 
  48.68388, 48.6866, 48.68762, 48.69544, 48.70462, 48.70983, 48.71278, 48.71413, 48.72908, 48.73452, 
  48.73735, 48.75037, 48.77311, 48.77277, 48.8024, 48.80602, 48.82874, 48.82524, 48.83213, 48.84275, 
  48.83948, 48.86037, 48.93632, 48.92741, 48.93339, 48.92369, 48.9264, 48.92707, 48.93204, 48.93463, 
  48.93982, 48.93621, 48.94015, 48.93564, 48.92437, 48.92685, 48.93531, 48.9317, 48.94162, 48.94647, 
  48.97453, 48.9645, 48.98591, 48.99357, 49.03951, 49.05931, 49.06324, 49.09574, 49.1345, 49.14663, 
  49.15056, 49.12664, 49.13596, 49.14293, 49.13872, 49.16067, 49.16684, 49.17627, 49.19141, 49.20701, 
  49.21407, 49.22035, 49.21172, 49.219, 49.22304, 49.23385)
LONGITUDE_VALUEs <- c(
  37.86605, 37.89834, 37.8961, 37.91139, 37.89884, 37.91722, 37.95688, 37.94623, 37.88269, 37.87788,
  37.89863, 37.87699, 37.87632, 37.84335, 37.8516, 37.8382, 37.84747, 37.88766, 37.9299, 37.88525,
  37.89864, 37.95496, 37.93367, 37.94912, 37.97454, 37.97591, 37.99721, 37.98823, 38.04627, 38.01193,
  38.01433, 37.99819, 38.01811, 38.01536, 37.97003, 37.95011, 37.97552, 37.98548, 38.00746, 38.01021,
  38.05073, 38.05348, 38.00952, 38.02053, 38.07514, 38.09334, 38.04423, 38.03892, 38.03205, 38.03326,
  38.05528, 38.12514, 38.12875, 38.12531, 38.17116, 38.16326, 38.19864, 38.19572, 38.22113, 38.18679, 
  38.17958, 38.26784, 38.31283, 38.32959, 38.33337, 38.35397, 38.34985, 38.41676, 38.43296, 38.46765, 
  38.46417, 38.48272, 38.48787, 38.50985, 38.52565, 38.5839, 38.61254, 38.64826, 38.66706, 38.68217, 
  38.67601, 38.68665, 38.71997, 38.68495, 38.69285, 38.72444, 38.73956, 38.76802, 38.7852, 38.79893, 
  38.82984, 38.83774, 38.90094, 38.91464, 38.90365, 38.9143, 38.90674, 38.92906, 38.93731, 38.95139, 
  39.03134, 39.06672, 39.11787, 39.12811, 39.18167, 39.22596, 39.22768, 39.25995, 39.27608, 39.2881, 
  39.38011, 39.43676, 39.47521, 39.54662, 39.61323, 39.59126, 39.6534, 39.68773, 39.69528, 39.71657, 
  39.75159, 39.80549, 39.83879, 39.88995, 39.93561, 39.95106, 40.05783, 40.06367, 40.13611, 40.13817, 
  40.17044, 40.0362, 40.04307, 40.02796, 40.05852, 40.07843, 40.11551, 40.1543, 40.16701, 40.19997, 
  40.18074, 40.22743, 40.21061, 40.13439, 40.07637, 40.02865, 39.93767, 39.94076, 39.87587, 39.80068, 
  39.76635, 39.69185, 39.67091, 39.68601, 39.66541, 39.67743, 39.70009, 39.72618, 39.74987, 39.74987, 
  39.77459, 39.76978, 39.78283, 39.77425, 39.82162, 39.81922, 39.83089, 39.83467, 39.84669, 39.8539, 
  39.92496, 39.95037, 39.99294, 40.00393, 40.02144, 40.02007, 40.03792, 40.05817, 40.05852, 40.07706, 
  39.97372, 39.79965, 39.7794, 39.78626, 39.76601, 39.74747, 39.72721, 39.73991, 39.70627, 39.71931, 
  39.70112, 39.71451, 39.68945, 39.69425, 39.6582, 39.68739, 39.75021, 39.75124, 39.78764, 39.85355, 
  39.86763, 39.84634, 39.84634, 39.8975, 39.88857, 39.89578, 39.91226, 39.90471, 39.9205, 39.90471, 
  39.9284, 39.93668, 39.94453, 39.93458, 39.93389, 39.94591, 39.94144, 39.9308, 39.9181, 39.91879, 
  39.87827, 39.8436, 39.84085, 39.88754, 39.88651, 39.91501, 39.91261, 39.92565, 39.93767, 39.94968, 
  39.95037, 39.96891, 39.97337, 39.99157, 39.99363, 40.02041, 40.00668, 40.00942, 39.9435, 39.93698, 
  39.91089, 39.9054, 39.87072, 39.86969, 39.83227, 39.88411, 39.88411, 39.77562, 39.79176, 39.81338, 
  39.82368, 39.80652, 39.80206, 39.79313, 39.79382, 39.76257, 39.7636, 39.73373, 39.56757, 39.54147, 
  39.53564, 39.52087, 39.4759, 39.43676, 39.43676, 39.41032, 39.38698, 39.34887, 39.35059, 39.23489, 
  39.23351, 39.1803, 39.17068, 39.16107, 39.15043, 39.14906, 39.10889, 39.10923, 39.08348, 39.08348,
  39.07412, 39.06485, 39.09129, 39.08425, 39.07326, 39.05712, 39.05231, 39.03806, 39.04304, 39.03978, 
  38.86143, 38.85422, 38.82537, 38.82125, 38.82537, 38.81215, 38.82983, 38.82813, 38.81662, 38.79894, 
  38.81714, 38.80701, 38.82008, 38.78144, 38.78041, 38.77388, 38.71639, 38.6623, 38.67174, 38.66934, 
  38.63843, 38.59843, 38.61251, 38.58917, 38.58832, 38.56892, 38.42729, 38.42901, 38.42541, 38.43399, 
  38.42574, 38.43965, 38.43363, 38.4551, 38.46351, 38.47072, 38.47124, 38.48721, 38.48395, 38.47278, 
  38.46937, 38.45357, 38.45031, 38.43657, 38.4388, 38.43279, 38.43314, 38.40051, 38.40309, 38.38025, 
  38.37478, 38.36294, 38.35658, 38.35057, 38.34233, 38.3109, 38.31898, 38.28841, 38.30009, 38.30472, 
  38.30163, 38.30266, 38.29957, 38.30919, 38.31176, 38.31658, 38.3104, 38.314, 38.32053, 38.28499, 
  38.28121, 38.274, 38.27949, 38.26249, 38.22918, 38.2254, 38.26472, 38.26661, 38.28772, 38.28411, 
  38.31485, 38.31434, 38.30678, 38.31416, 38.31485, 38.30421, 38.30438, 38.32481, 38.32344, 38.32002, 
  38.28482, 38.26387, 38.27486, 38.28319, 38.2777, 38.31803, 38.31426, 38.27205, 38.27084, 38.26019, 
  38.22072, 38.22913, 38.22912, 38.19703, 38.14276, 38.13435, 38.12766, 38.11685, 38.11479, 38.09488, 
  38.09059, 38.06362, 38.0559, 38.0444, 38.03874, 38.0317, 38.03634, 38.02261, 38.01609, 38.00545, 
  38.02917, 38.05422, 38.04959, 38.0997, 38.07361, 38.05232, 38.06193, 38.06725, 38.08423, 38.08286, 
  38.04408, 38.03994, 37.95926, 37.95737, 37.94363, 37.89267, 37.9028, 37.89268, 37.93421, 37.92116, 
  37.94295, 37.93368, 37.88958, 37.88924, 37.87311, 37.87455)
MGeo_2 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_2 <- MGeo_2 %>% 
  mutate(NAME = "LUHANSK OBLAST", VISUALIZATION_NAME = "Luhansk Oblast", 
         ISO2 = NA, ISO3 = NA, M49_CODE = NA, SOVRN = "Ukraine", Claimed = "Russian Federation", COUNTRY = "Ukraine",
         CONTINENT = "EUROPE",  CONTINENT_CODE = "150", SREGION = "Eastern Europe", SREGION_CODE = "151", 
         IREGION = NA, IREGION_CODE = NA, SIREGION = SREGION, SIREGION_CODE = "151",
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

##### CRIMEA #####
LATITUDE_VALUEs <- c(
  45.76212, 45.75649, 45.76534, 45.79096, 45.81035, 45.90097, 45.90862, 45.97639, 45.99548, 45.995,
  45.95444, 45.9425, 45.94489, 45.98928, 46.01074, 46.06889, 46.05221, 46.08318, 46.10556, 46.11841,
  46.10889, 46.17027, 46.19974, 46.20402, 46.18453, 46.22873, 46.2273, 46.14058, 46.13475,
  46.11635, 46.08374, 46.07135, 46.05182, 45.96263, 45.94688, 45.94197, 45.94974, 45.95643, 45.94998, 
  45.92945, 45.92754, 45.90651, 45.90854, 45.9126, 45.91236, 45.90352, 45.87843, 45.86696, 45.8568, 
  45.84281, 45.84304, 45.8501, 45.86552, 45.87317, 45.87365, 45.88106, 45.88393, 45.8893, 45.89038, 
  45.88154, 45.86708, 45.86743, 45.87042, 45.8703, 45.84412, 45.83718, 45.83467, 45.83814, 45.83934, 
  45.8458, 45.84783, 45.83898, 45.85512, 45.84269, 45.83025, 45.79651, 45.77149, 45.75197, 45.75113, 
  45.76143, 45.77484, 45.78909, 45.76095, 45.74634, 45.73184, 45.71878, 45.71878, 45.71111, 45.71458, 
  45.70607, 45.70559, 45.69432, 45.68713, 45.6788, 45.67873, 45.6389, 45.5982, 45.59027, 45.58402, 
  45.58378, 45.58138, 45.57225, 45.56227, 45.55518, 45.55891, 45.55374, 45.55434, 45.5592, 45.56191, 
  45.55687, 45.55639, 45.54064, 45.53126, 45.52873, 45.52597, 45.52452, 45.5214, 45.51971, 45.51394, 
  45.51406, 45.50925, 45.50973, 45.51779, 45.52007, 45.52284, 45.52284, 45.51743, 45.51803, 45.47363, 
  45.45942, 45.45605, 45.45665, 45.45304, 45.44931, 45.44401, 45.43666, 45.42341, 45.40991, 45.40638, 
  45.40437, 45.39003, 45.38388, 45.38448, 45.37483, 45.36193, 45.34733, 45.34118, 45.34082, 45.33853, 
  45.33853, 45.33466, 45.33503, 45.32899, 45.32839, 45.32585, 45.32573, 45.31837, 45.32042, 45.31535, 
  45.32441, 45.33032, 45.33539, 45.33623, 45.34129, 45.34273, 45.35649, 45.35613, 45.36553, 45.36843, 
  45.36674, 45.36891, 45.35938, 45.33863, 45.3221, 45.29252, 45.27126, 45.26268, 45.25482, 45.24927, 
  45.24746, 45.23126, 45.22703, 45.21712, 45.20381, 45.18881, 45.18385, 45.18421, 45.17224, 45.14875, 
  45.14706, 45.15469, 45.15965, 45.16957, 45.17466, 45.17478, 45.17272, 45.17357, 45.17332, 45.17792, 
  45.1824, 45.1853, 45.19268, 45.19776, 45.19704, 45.18397, 45.15892, 45.13192, 45.09534, 45.06455, 
  45.02283, 44.99576, 44.97925, 44.97658, 44.93686, 44.90744, 44.87193, 44.8454, 44.84601, 44.8364, 
  44.84053, 44.83932, 44.83226, 44.81959, 44.80485, 44.80253, 44.79108, 44.75745, 44.72378, 44.71061, 
  44.69145, 44.66289, 44.63883, 44.63749, 44.63187, 44.62906, 44.62625, 44.62637, 44.62967, 44.62771, 
  44.63003, 44.62686, 44.62674, 44.62319, 44.62405, 44.62645, 44.62327, 44.62511, 44.62083, 44.62046, 
  44.61717, 44.61729, 44.6157, 44.61142, 44.61717, 44.61374, 44.61875, 44.6157, 44.60971, 44.61448, 
  44.60996, 44.61179, 44.59468, 44.6113, 44.608, 44.59541, 44.59957, 44.60531, 44.60384, 44.59712, 
  44.5992, 44.59468, 44.59346, 44.58294, 44.57952, 44.57426, 44.57389, 44.57952, 44.58808, 44.56325, 
  44.57732, 44.57047, 44.5915, 44.5915, 44.58686, 44.58392, 44.56301, 44.55922, 44.53756, 44.52215, 
  44.51737, 44.51713, 44.50844, 44.50378, 44.49705, 44.50403, 44.50097, 44.48713, 44.4924, 44.48995, 
  44.49411, 44.48088, 44.45369, 44.44082, 44.42709, 44.41716, 44.42108, 44.41238, 44.41226, 44.39239, 
  44.38699, 44.39153, 44.38662, 44.39447, 44.39325, 44.39644, 44.39533, 44.40058, 44.40036, 44.40502, 
  44.40478, 44.40698, 44.4038, 44.40281, 44.39251, 44.39251, 44.39055, 44.39325, 44.40122, 44.40073, 
  44.4076, 44.40465, 44.41544, 44.42366, 44.42158, 44.42844, 44.42599, 44.42979, 44.42758, 44.42942, 
  44.44842, 44.49534, 44.50085, 44.49901, 44.50452, 44.50305, 44.5066, 44.52251, 44.54136, 44.54625, 
  44.55053, 44.55445, 44.54711, 44.54858, 44.55836, 44.56374, 44.569, 44.5871, 44.59236, 44.59064, 
  44.59138, 44.61167, 44.63158, 44.64013, 44.65271, 44.67444, 44.71191, 44.73642, 44.73789, 44.75337, 
  44.75971, 44.77312, 44.77956, 44.78724, 44.7876, 44.80283, 44.81245, 44.81038, 44.81696, 44.82061, 
  44.81659, 44.8217, 44.82207, 44.81659, 44.81623, 44.8211, 44.82146, 44.82816, 44.83169, 44.83084, 
  44.83619, 44.83607, 44.83826, 44.8379, 44.84167, 44.83558, 44.82901, 44.83571, 44.83242, 44.83388, 
  44.82864, 44.81476, 44.80173, 44.79735, 44.79162, 44.80259, 44.80259, 44.80758, 44.80758, 44.8133, 
  44.81939, 44.82402, 44.8295, 44.86321, 44.86698, 44.87574, 44.89666, 44.90274, 44.90165, 44.90894, 
  44.91259, 44.91101, 44.91842, 44.92997, 44.93799, 44.94832, 44.95804, 44.96945, 44.96557, 44.97043, 
  44.96836, 44.96569, 44.96689, 44.96616, 44.96738, 44.9641, 44.95912, 44.95827, 44.95644, 44.95608, 
  44.95474, 44.95426, 44.95171, 44.95171, 44.94782, 44.94709, 44.95061, 44.95426, 44.95608, 44.95389, 
  44.96312, 44.9664, 44.97381, 44.97527, 44.98255, 44.99457, 45.01108, 45.01472, 45.01533, 45.0237, 
  45.02491, 45.03474, 45.04833, 45.06724, 45.09137, 45.1093, 45.12262, 45.12977, 45.12916, 45.12069, 
  45.11124, 45.09209, 45.07137, 45.0385, 45.03268, 45.022, 45.02176, 45.01302, 45.00793, 45.00441, 
  44.99858, 45.00453, 45.01108, 45.01521, 45.018, 45.02103, 45.01278, 45.02576, 45.03741, 45.04966, 
  45.05027, 45.04323, 45.03331, 45.02773, 45.04035, 45.04957, 45.05927, 45.05927, 45.06715, 45.0863, 
  45.09794, 45.10605, 45.1109, 45.11599, 45.11684, 45.12725, 45.13391, 45.13585, 45.1476, 45.15353, 
  45.15946, 45.1643, 45.16721, 45.17507, 45.19383, 45.20096, 45.21257, 45.22587, 45.23712, 45.24074, 
  45.24775, 45.25815, 45.27301, 45.27748, 45.27675, 45.26612, 45.25718, 45.26153, 45.2654, 45.26576, 
  45.27301, 45.28279, 45.29064, 45.29777, 45.30658, 45.31189, 45.31781, 45.32191, 45.33145, 45.34146, 
  45.35015, 45.35196, 45.35666, 45.36209, 45.36426, 45.35714, 45.35172, 45.35232, 45.34496, 45.34882, 
  45.34701, 45.35714, 45.36173, 45.36909, 45.37487, 45.38151, 45.39019, 45.38958, 45.39561, 45.41152, 
  45.42056, 45.42911, 45.43778, 45.44104, 45.43586, 45.42911, 45.42333, 45.42658, 45.45549, 45.45766, 
  45.45489, 45.45874, 45.45513, 45.45332, 45.45031, 45.4473, 45.44489, 45.44682, 45.45922, 45.46873, 
  45.47006, 45.48053, 45.48402, 45.48197, 45.47824, 45.47331, 45.46994, 45.47355, 45.48089, 45.48017, 
  45.48113, 45.47511, 45.47475, 45.47025, 45.47162, 45.46536, 45.44573, 45.4373, 45.42128, 45.41586, 
  45.41104, 45.40103, 45.38669, 45.37463, 45.36957, 45.37439, 45.38705, 45.40754, 45.42995, 45.44513, 
  45.45127, 45.45741, 45.46632, 45.47246, 45.47331, 45.46632, 45.45874, 45.44838, 45.44959, 45.44345, 
  45.43321, 45.42526, 45.42261, 45.40357, 45.39621, 45.38777, 45.38187, 45.36945, 45.35582, 45.35184, 
  45.34665, 45.3446, 45.33627, 45.33229, 45.33398, 45.32974, 45.32443, 45.32166, 45.312, 45.29159, 
  45.28326, 45.28737, 45.30439, 45.34217, 45.39222, 45.44355, 45.49062, 45.51974, 45.55833, 45.60687, 
  45.65877, 45.72232)
LONGITUDE_VALUEs <- c(
  34.97518, 34.95921, 34.94382, 34.87547, 34.79854, 34.80134, 34.75291, 34.65717, 34.59878, 34.55757,
  34.52323, 34.49713, 34.46622, 34.41058, 34.40508, 34.32207, 34.24857, 34.14485, 34.12905, 34.07422,
  34.05087, 33.89426, 33.85381, 33.78993, 33.7391, 33.64294, 33.61684, 33.63916, 33.61477,
  33.61792, 33.64471, 33.62616, 33.61414, 33.63303, 33.61688, 33.63736, 33.63715, 33.65913, 33.75186, 
  33.76113, 33.72507, 33.69804, 33.68928, 33.69134, 33.68705, 33.67606, 33.68138, 33.68052, 33.68688, 
  33.68414, 33.67761, 33.68259, 33.65632, 33.65753, 33.63967, 33.63469, 33.62421, 33.62061, 33.61391, 
  33.59178, 33.58045, 33.57512, 33.57787, 33.5674, 33.54904, 33.54715, 33.53891, 33.54131, 33.53444, 
  33.53513, 33.52551, 33.50508, 33.49152, 33.44673, 33.41753, 33.3772, 33.3197, 33.25292, 33.22768, 
  33.19782, 33.17859, 33.16843, 33.16277, 33.16036, 33.15453, 33.13873, 33.12603, 33.1159, 33.0953, 
  33.07831, 33.06904, 33.05016, 33.02166, 33.00859, 32.99917, 32.91042, 32.83918, 32.82579, 32.82082, 
  32.83833, 32.84382, 32.84588, 32.84004, 32.82597, 32.81755, 32.80966, 32.79799, 32.7992, 32.78975, 
  32.78185, 32.77275, 32.73481, 32.7252, 32.71009, 32.70906, 32.71353, 32.70992, 32.71473, 32.70872, 
  32.69945, 32.69653, 32.6895, 32.69722, 32.69413, 32.69516, 32.69138, 32.68366, 32.67679, 32.57122, 
  32.5477, 32.54753, 32.54272, 32.53757, 32.54015, 32.53071, 32.5247, 32.50153, 32.49002, 32.49145, 
  32.48281, 32.47955, 32.49689, 32.50685, 32.51423, 32.5144, 32.49243, 32.51715, 32.53054, 32.53757, 
  32.54942, 32.55011, 32.57036, 32.57912, 32.60263, 32.60469, 32.61602, 32.62375, 32.63268, 32.65448, 
  32.67748, 32.67817, 32.68589, 32.6955, 32.70048, 32.71061, 32.72932, 32.73396, 32.7537, 32.83936, 
  32.84845, 32.85583, 32.91523, 32.96415, 32.99402, 33.03522, 33.07127, 33.07779, 33.09053, 33.09341, 
  33.09874, 33.11127, 33.12397, 33.14079, 33.14629, 33.17993, 33.18628, 33.20276, 33.23195, 33.25718, 
  33.2831, 33.28688, 33.29632, 33.29855, 33.30765, 33.32447, 33.33237, 33.33855, 33.34352, 33.35863, 
  33.36035, 33.377, 33.37511, 33.38335, 33.40206, 33.43742, 33.47794, 33.51519, 33.55244, 33.57441, 
  33.59484, 33.60462, 33.60548, 33.59741, 33.61166, 33.61406, 33.60823, 33.59535, 33.58694, 33.57338, 
  33.5605, 33.55295, 33.54969, 33.55261, 33.54797, 33.54214, 33.53476, 33.54197, 33.54918, 33.54643, 
  33.54883, 33.54488, 33.53184, 33.51965, 33.51107, 33.51313, 33.51038, 33.51278, 33.5157, 33.51982, 
  33.52205, 33.52789, 33.53647, 33.53579, 33.54815, 33.55105, 33.55311, 33.56375, 33.56495, 33.57782, 
  33.58211, 33.58469, 33.59035, 33.59035, 33.55002, 33.52909, 33.52806, 33.50232, 33.49992, 33.49477, 
  33.48238, 33.47432, 33.46848, 33.46711, 33.44806, 33.44686, 33.43948, 33.44068, 33.43365, 33.43193, 
  33.42541, 33.42146, 33.42694, 33.42591, 33.4302, 33.43089, 33.42642, 33.42591, 33.41493, 33.41252, 
  33.40875, 33.40189, 33.40257, 33.39794, 33.39441, 33.37735, 33.40137, 33.40086, 33.44359, 33.4678, 
  33.46917, 33.47329, 33.48255, 33.48255, 33.48856, 33.4992, 33.52254, 33.55438, 33.57688, 33.58632, 
  33.59817, 33.63041, 33.64312, 33.64244, 33.64828, 33.67026, 33.70804, 33.71008, 33.7173, 33.72691, 
  33.73945, 33.75779, 33.77925, 33.80106, 33.80518, 33.81274, 33.82012, 33.82591, 33.83455, 33.8397, 
  33.85529, 33.86267, 33.87143, 33.89788, 33.94304, 33.94851, 33.96104, 33.97907, 33.9832, 34.00088, 
  34.02046, 34.03295, 34.04549, 34.06867, 34.07382, 34.09426, 34.10439, 34.11091, 34.12036, 34.12912, 
  34.13631, 34.16738, 34.19159, 34.19967, 34.21443, 34.22366, 34.25045, 34.27003, 34.27741, 34.29527, 
  34.29991, 34.31245, 34.33649, 34.34799, 34.34676, 34.34882, 34.34607, 34.35208, 34.36325, 34.36685, 
  34.37149, 34.37578, 34.389, 34.39998, 34.4029, 34.41697, 34.4587, 34.51414, 34.53252, 34.55139, 
  34.58676, 34.60256, 34.63479, 34.6487, 34.67171, 34.70056, 34.73096, 34.7495, 34.76029, 34.81284, 
  34.84718, 34.86638, 34.88338, 34.88733, 34.89695, 34.90553, 34.91927, 34.91549, 34.92047, 34.93369, 
  34.94106, 34.94604, 34.94982, 34.96063, 34.96475, 34.98811, 34.9888, 35.00219, 35.00906, 35.01658, 
  35.03547, 35.05144, 35.04817, 35.07393, 35.08097, 35.0899, 35.0966, 35.10175, 35.10931, 35.11034, 
  35.11718, 35.13178, 35.12766, 35.13693, 35.14276, 35.14397, 35.15959, 35.17058, 35.17556, 35.1869, 
  35.20576, 35.21486, 35.24131, 35.2468, 35.25281, 35.2468, 35.24886, 35.26979, 35.29641, 35.3153, 
  35.32577, 35.32697, 35.33022, 35.33314, 35.33657, 35.35323, 35.35563, 35.35289, 35.35306, 35.35975, 
  35.36096, 35.36783, 35.36903, 35.37538, 35.37879, 35.3836, 35.3836, 35.38944, 35.38429, 35.37141, 
  35.36454, 35.36454, 35.3575, 35.3527, 35.35424, 35.363, 35.42479, 35.42496, 35.41946, 35.41311, 
  35.38941, 35.38239, 35.38514, 35.4023, 35.43475, 35.47201, 35.51749, 35.55647, 35.60203, 35.64281, 
  35.68144, 35.73019, 35.77276, 35.815, 35.81671, 35.81224, 35.8198, 35.83474, 35.83628, 35.8301, 
  35.83903, 35.86819, 35.87815, 35.9015, 35.90202, 35.92812, 35.95336, 35.98595, 35.99179, 36.02577, 
  36.05222, 36.11902, 36.20452, 36.221, 36.2471, 36.24813, 36.30514, 36.37383, 36.3876, 36.44251, 
  36.45419, 36.45281, 36.442, 36.4384, 36.43188, 36.4238, 36.42466, 36.4202, 36.41797, 36.419, 
  36.41608, 36.41625, 36.40939, 36.4051, 36.40647, 36.40321, 36.40149, 36.40938, 36.42105, 36.41934, 
  36.42346, 36.43375, 36.4377, 36.42894, 36.42706, 36.43461, 36.43049, 36.4226, 36.42139, 36.43032, 
  36.41556, 36.41659, 36.42277, 36.43735, 36.48338, 36.4803, 36.49608, 36.47806, 36.47103, 36.47016, 
  36.47462, 36.4796, 36.47668, 36.48337, 36.49916, 36.51838, 36.51906, 36.53399, 36.54429, 36.56582, 
  36.60377, 36.60995, 36.62404, 36.63039, 36.6285, 36.64703, 36.64085, 36.63776, 36.62455, 36.60515, 
  36.61545, 36.60257, 36.59742, 36.57973, 36.56582, 36.56874, 36.55535, 36.52993, 36.48069, 36.4685, 
  36.46043, 36.44652, 36.44291, 36.44377, 36.43536, 36.4345, 36.42419, 36.40805, 36.38147, 36.36979, 
  36.35708, 36.34369, 36.34438, 36.33974, 36.34249, 36.33768, 36.32377, 36.30783, 36.29547, 36.29032, 
  36.28482, 36.25271, 36.23574, 36.19911, 36.18972, 36.13614, 36.07899, 36.06989, 36.07607, 36.07111, 
  36.07351, 36.0687, 36.05153, 36.02457, 35.9916, 35.95592, 35.91951, 35.88417, 35.85703, 35.84606, 
  35.84588, 35.86804, 35.87319, 35.86271, 35.84382, 35.82614, 35.81875, 35.82081, 35.82648, 35.82854, 
  35.82184, 35.80966, 35.80056, 35.77206, 35.75334, 35.74784, 35.76416, 35.75954, 35.74013, 35.72777, 
  35.72605, 35.72966, 35.72365, 35.71593, 35.70717, 35.68231, 35.66325, 35.638, 35.59919, 35.54599, 
  35.52744, 35.50547, 35.46203, 35.39389, 35.32574, 35.26927, 35.22361, 35.19872, 35.15459, 35.09692, 
  35.05099, 35.00259)
MGeo_3 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(45.28105, 45.27477, 45.268, 45.26208, 45.24951, 45.25181, 45.26401, 45.268, 45.27754, 45.28165)
LONGITUDE_VALUEs <- c(36.53484, 36.53827, 36.54788, 36.54925, 36.57225, 36.57465, 36.56023, 36.55303, 36.54496, 36.53707)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_3 <- st_union(MGeo_3, MGeo)
MGeo_3 <- MGeo_3 %>% 
  mutate(NAME = "CRIMEA", VISUALIZATION_NAME = "Crimea", 
         ISO2 = NA, ISO3 = NA, M49_CODE = NA, SOVRN = "Ukraine", Claimed = "Russian Federation", COUNTRY = "Ukraine",
         CONTINENT = "EUROPE",  CONTINENT_CODE = "150", SREGION = "Eastern Europe", SREGION_CODE = "151", 
         IREGION = NA, IREGION_CODE = NA, SIREGION = SREGION, SIREGION_CODE = "151",
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "UKRAINE")
Geo_2 <- GeoDATA %>% filter(NAME == "RUSSIAN FEDERATION")

##### UKRAINE #####
Geo_0 <- Geometric_Operations(Geo_1, MGeo_1)
Geo_0 <- Geometric_Operations(Geo_0, MGeo_2)
Geo_0 <- Geometric_Operations(Geo_0, MGeo_3)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
LATITUDE_VALUEs <- c(
  52.10608, 52.11304, 52.10872, 52.10218, 52.09828, 52.11009, 52.11083, 52.10798, 52.10397, 52.0986, 
  52.09111, 52.08046, 52.08214, 52.07465, 52.06811, 52.06136, 52.05661, 52.05925, 52.0565, 52.05735, 
  52.05291, 52.05091, 52.04679, 52.04742, 52.04225, 52.04225, 52.04542, 52.04362, 52.04848, 52.04584, 
  52.05323, 52.04806, 52.03919, 52.03317, 52.04531, 52.04542, 52.0527, 52.05471, 52.07075, 52.07128, 
  52.06716, 52.06779, 52.07423, 52.07592, 52.07908, 52.08183, 52.08098, 52.08731, 52.08837, 52.10503, 
  52.10851, 52.11072, 52.12031, 52.12158, 52.13686, 52.13349, 52.14107, 52.14097, 52.14792, 52.15624, 
  52.15698, 52.14961, 52.1514, 52.15856, 52.16235, 52.18751, 52.21444, 52.22496, 52.24451, 52.23968, 
  52.24136, 52.24693, 52.24683, 52.2546, 52.25797, 52.26448, 52.27005, 52.27835, 52.2795, 52.27393, 
  52.27877, 52.30239, 52.31677, 52.32789, 52.33765, 52.33765, 52.33366, 52.33849, 52.32128, 52.32726, 
  52.3238, 52.32443, 52.31457, 52.32139, 52.32758, 52.32705, 52.30932, 52.30019, 52.30522, 52.30071, 
  52.29704, 52.28696, 52.27709, 52.26574, 52.25576, 52.25492, 52.24809, 52.25881, 52.25702, 52.26721, 
  52.25702, 52.26574, 52.25912, 52.2795, 52.27457, 52.27404, 52.26921, 52.25902, 52.24536, 52.24557, 
  52.25061, 52.27372, 52.27278, 52.28864, 52.29336, 52.30019, 52.30785, 52.31457, 52.31908, 52.326, 
  52.33135, 52.32632, 52.31518, 52.31529, 52.30731, 52.30311, 52.31015, 52.3261, 52.32463, 52.33837, 
  52.34173, 52.34634, 52.33868, 52.34099, 52.35756, 52.36615, 52.37276, 52.37391, 52.37946, 52.37926, 
  52.3736, 52.37475, 52.35714, 52.35001, 52.35578, 52.35116, 52.36364, 52.3607, 52.36154, 52.37045, 
  52.37213, 52.36804, 52.36102, 52.3606, 52.35011, 52.34204, 52.34917, 52.35295, 52.35724, 52.35756, 
  52.36521, 52.3562, 52.35798, 52.35483, 52.34676, 52.34288, 52.33365, 52.33071, 52.32284, 52.3156, 
  52.30994, 52.31172, 52.30574, 52.30752, 52.30437, 52.30238, 52.31172, 52.32137, 52.32379, 52.32232, 
  52.31046, 52.31078, 52.31875, 52.33479, 52.34213, 52.35021, 52.35556, 52.36384, 52.35335, 52.36656, 
  52.36635, 52.3609, 52.34759, 52.3329, 52.32031, 52.30636, 52.30804, 52.30174, 52.30867, 52.30478, 
  52.2947, 52.28494, 52.25794, 52.25006, 52.24754, 52.24397, 52.2345, 52.23083, 52.23472, 52.22599, 
  52.21032, 52.20159, 52.20127, 52.18117, 52.17128, 52.15485, 52.15485, 52.14137, 52.13842, 52.12293, 
  52.11681, 52.11239, 52.10996, 52.10553, 52.10184, 52.0932, 52.09098, 52.08486, 52.08497, 52.07305, 
  52.06978, 52.0703, 52.05563, 52.0417, 52.03589, 52.00483, 52.00663, 51.99923, 51.98285, 51.96783, 
  51.97101, 51.95895, 51.94583, 51.94011, 51.92805, 51.92043, 51.91301, 51.91609, 51.91047, 51.8948, 
  51.88908, 51.88155, 51.87827, 51.88802, 51.88728, 51.87106, 51.85908, 51.84477, 51.84371, 51.83597, 
  51.83586, 51.82557, 51.81719, 51.81029, 51.78683, 51.76399, 51.74869, 51.74284, 51.72977, 51.72934, 
  51.72201, 51.72233, 51.71531, 51.71786, 51.71222, 51.71531, 51.71339, 51.71711, 51.71967, 51.71988, 
  51.70414, 51.70605, 51.70084, 51.70318, 51.69648, 51.70414, 51.6935, 51.69733, 51.68594, 51.6902, 
  51.68786, 51.69094, 51.68871, 51.68945, 51.68435, 51.68488, 51.67966, 51.67817, 51.67211, 51.67136, 
  51.66572, 51.66114, 51.66657, 51.64964, 51.64879, 51.6425, 51.64463, 51.62513, 51.59688, 51.60083, 
  51.57382, 51.58385, 51.57766, 51.56913, 51.56144, 51.55376, 51.54522, 51.53326, 51.53412, 51.52429, 
  51.5213, 51.51254, 51.51105, 51.49267, 51.47385, 51.47685, 51.45182, 51.44241, 51.43748, 51.43149, 
  51.42871, 51.39982, 51.40186, 51.38365, 51.3904, 51.38815, 51.37508, 51.37283, 51.37979, 51.37261, 
  51.36576, 51.36104, 51.35879, 51.35107, 51.34314, 51.33713, 51.33563, 51.3322, 51.3293, 51.3307, 
  51.33477, 51.33627, 51.33381, 51.33981, 51.33466, 51.32276, 51.31847, 51.31042, 51.31096, 51.31321, 
  51.31503, 51.29818, 51.30216, 51.29207, 51.28455, 51.28208, 51.27489, 51.27682, 51.27381, 51.2693, 
  51.26533, 51.26339, 51.24792, 51.23836, 51.23997, 51.27403, 51.26683, 51.26264, 51.25652, 51.26168, 
  51.2448, 51.24211, 51.25253, 51.25285, 51.23394, 51.24609, 51.25382, 51.24995, 51.25114, 51.24673, 
  51.19771, 51.18081, 51.17177, 51.18243, 51.17909, 51.18071, 51.17715, 51.17457, 51.17791, 51.18533, 
  51.17533, 51.17662, 51.17285, 51.16876, 51.16941, 51.18329, 51.199, 51.19071, 51.19641, 51.19297, 
  51.20556, 51.20599, 51.21825, 51.21889, 51.22792, 51.23523, 51.23158, 51.22857, 51.23222, 51.21954, 
  51.21943, 51.20405, 51.2161, 51.2233, 51.23416, 51.22975, 51.23287, 51.22964, 51.23136, 51.22362, 
  51.22093, 51.21792, 51.20889, 51.20652, 51.20276, 51.19383, 51.1735, 51.17037, 51.16499, 51.15852, 
  51.1526, 51.14765, 51.13903, 51.13321, 51.12772, 51.12147, 51.11953, 51.10822, 51.10628, 51.10078, 
  51.10229, 51.09819, 51.0873, 51.09097, 51.08245, 51.08223, 51.07598, 51.06992, 51.06129, 51.05654, 
  51.05341, 51.05179, 51.04585, 51.06506, 51.05956, 51.06344, 51.05794, 51.05848, 51.06528, 51.07153, 
  51.07876, 51.07757, 51.0711, 51.06215, 51.06722, 51.06571, 51.05265, 51.05524, 51.04823, 51.0438, 
  51.04359, 51.03906, 51.03819, 51.03193, 51.02729, 51.01811, 51.01282, 51.00504, 51.00913, 51.01486, 
  51.01378, 51.00838, 51.00276, 50.99855, 50.99628, 50.99217, 50.98656, 50.9724, 50.96872, 50.96353, 
  50.96332, 50.95553, 50.94537, 50.93466, 50.93476, 50.93141, 50.93249, 50.92568, 50.92308, 50.92427, 
  50.91908, 50.91626, 50.91063, 50.90804, 50.90262, 50.89569, 50.88519, 50.87956, 50.87534, 50.87014, 
  50.86504, 50.86429, 50.8412, 50.82483, 50.80563, 50.79902, 50.79413, 50.78165, 50.78404, 50.77699, 
  50.75494, 50.75321, 50.74615, 50.73996, 50.73474, 50.72529, 50.71648, 50.70801, 50.70801, 50.70474, 
  50.70311, 50.69757, 50.69398, 50.6893, 50.68411, 50.6803, 50.68193, 50.67921, 50.67062, 50.65832, 
  50.65615, 50.66594, 50.65473, 50.65647, 50.64189, 50.63155, 50.6139, 50.61608, 50.60867, 50.60301, 
  50.5895, 50.57882, 50.5629, 50.54108, 50.53628, 50.52974, 50.52952, 50.52232, 50.51337, 50.50463, 
  50.50452, 50.48727, 50.48214, 50.47722, 50.46345, 50.45941, 50.45744, 50.45143, 50.45701, 50.45744, 
  50.45996, 50.46477, 50.45318, 50.44826, 50.4311, 50.43022, 50.3927, 50.3927, 50.38307, 50.37508, 
  50.3673, 50.35197, 50.35449, 50.35099, 50.35537, 50.35438, 50.36851, 50.39303, 50.41043, 50.4113, 
  50.41644, 50.43372, 50.42475, 50.42935, 50.42268, 50.43864, 50.4382, 50.43449, 50.437, 50.43033, 
  50.43372, 50.4358, 50.44083, 50.44302, 50.44586, 50.44575, 50.44968, 50.44892, 50.45132, 50.44662, 
  50.44892, 50.43897, 50.43766, 50.43175, 50.40944, 50.40156, 50.40638, 50.39544, 50.38635, 50.37125, 
  50.3638, 50.35394, 50.33598, 50.3248, 50.32316, 50.31592, 50.30507, 50.2986, 50.29937, 50.29147, 
  50.28752, 50.29257, 50.30003, 50.31, 50.3282, 50.33072, 50.3111, 50.31296, 50.29948, 50.29334, 
  50.28632, 50.28116, 50.28489, 50.28632, 50.27557, 50.27546, 50.26262, 50.26053, 50.25845, 50.25516, 
  50.25757, 50.25011, 50.22376, 50.2276, 50.21761, 50.22189, 50.23979, 50.25823, 50.26734, 50.26986, 
  50.26416, 50.26481, 50.2692, 50.27743, 50.27732, 50.28303, 50.27995, 50.28972, 50.28994, 50.29224, 
  50.30222, 50.30638, 50.31252, 50.31351, 50.32787, 50.33631, 50.33773, 50.35077, 50.34847, 50.34452, 
  50.34715, 50.3466, 50.35175, 50.35832, 50.36095, 50.35581, 50.37639, 50.37989, 50.40616, 50.42858, 
  50.437, 50.43766, 50.43077, 50.43471, 50.44476, 50.45416, 50.45952, 50.45744, 50.4452, 50.43127, 
  50.43109, 50.41807, 50.40724, 50.37824, 50.37539, 50.36839, 50.36685, 50.35612, 50.35196, 50.33564, 
  50.32972, 50.30593, 50.31591, 50.31438, 50.30232, 50.29332, 50.24022, 50.21737, 50.19122, 50.17617, 
  50.17067, 50.15175, 50.149, 50.14328, 50.1336, 50.128, 50.07877, 50.08428, 50.06764, 50.05453, 
  50.05067, 50.03403, 49.97842, 49.97632, 49.96352, 49.96727, 49.93292, 49.92585, 49.92021, 49.9096,
  49.90043, 49.89955, 49.89457, 49.88367, 49.84649, 49.83565, 49.8383, 49.8115, 49.79245, 49.7838, 
  49.76673, 49.75497, 49.75276, 49.7685, 49.7319, 49.71126, 49.71459, 49.7066, 49.6986, 49.69505, 
  49.67817, 49.65639, 49.64483, 49.6286, 49.62415, 49.61125, 49.61281, 49.58967, 49.56897, 49.57364, 
  49.54937, 49.54558, 49.51907, 49.52085, 49.49231, 49.48696, 49.44591, 49.44658, 49.41777, 49.40392, 
  49.33065, 49.31309, 49.30436, 49.28297, 49.27894, 49.27032, 49.25968, 49.2562, 49.25273, 49.24646,
  49.23385, 49.23273, 49.22612, 49.20111, 49.20268, 49.20616, 49.20907, 49.20201, 49.21962, 49.23329, 
  49.23027, 49.23127, 49.21367, 49.20066, 49.18686, 49.18204, 49.17957, 49.16745, 49.14758, 49.14432, 
  49.13994, 49.13927, 49.14747, 49.14533, 49.1377, 49.13702, 49.13354, 49.13601, 49.12624, 49.1122, 
  49.10152, 49.08005, 49.07072, 49.05565, 49.05823, 49.05328, 49.05891, 49.06149, 49.05452, 49.04664, 
  49.03911, 49.0337, 49.0247, 49.02628, 49.00353, 48.99723, 48.99182, 48.99159, 48.9988, 49.00365, 
  48.99328, 48.99081, 48.98619, 48.98574, 48.98258, 48.98292, 48.97774, 48.98123, 48.96748, 48.96771, 
  48.9614, 48.95509, 48.94753, 48.94235, 48.93412, 48.92204, 48.9234, 48.91912, 48.92318, 48.9225, 
  48.90659, 48.90885, 48.90648, 48.90874, 48.88808, 48.88244, 48.86934, 48.84935, 48.81466, 48.8245, 
  48.83241, 48.83207, 48.84111, 48.85105, 48.81772, 48.81783, 48.81353, 48.81817, 48.80178, 48.80358, 
  48.79782, 48.78741, 48.77508, 48.76773, 48.76626, 48.74566, 48.76354, 48.76558, 48.7925, 48.79544, 
  48.7925, 48.79771, 48.80053, 48.77859, 48.783, 48.78323, 48.77316, 48.77079, 48.7778, 48.78063, 
  48.7856, 48.78798, 48.80211, 48.79691, 48.80619, 48.78413, 48.77633, 48.77045, 48.76728, 48.74487, 
  48.74351, 48.71452, 48.70396, 48.69377, 48.69297, 48.68754, 48.67745, 48.66793, 48.66419, 48.6584, 
  48.65466, 48.6465, 48.6263, 48.59634, 48.60065, 48.56694, 48.57023, 48.56683, 48.5691, 48.55001, 
  48.55103, 48.54183, 48.54342, 48.52069, 48.51943, 48.52125, 48.51773, 48.48736, 48.48463, 48.4432, 
  48.44365, 48.41575, 48.42099, 48.41506, 48.40549, 48.40538, 48.37072, 48.36536, 48.3689, 48.34871, 
  48.34791, 48.31264, 48.31721, 48.3055, 48.30933, 48.19618, 48.19103, 48.17729, 48.1845, 48.07795, 
  48.0635, 48.06166, 48.06281, 48.05145, 48.05202, 48.03458, 48.03871, 48.03538, 48.04032, 48.05225, 
  48.04766, 48.0557, 48.04916, 48.05271, 48.06396, 48.07073, 48.07979, 48.08541, 48.07898, 48.0869, 
  48.08552, 48.0915, 48.08794, 48.09528, 48.09838, 48.10055, 48.09597, 48.09539, 48.09184, 48.09356, 
  48.08794, 48.08909, 48.08301, 48.09104, 48.08565, 48.07946, 48.06466, 48.06191, 48.05261, 48.04251, 
  48.02036, 48.0137, 48.00072, 47.99877, 47.95671, 47.96188, 47.92037, 47.91772, 47.92152, 47.91082, 
  47.90622, 47.87733, 47.88043, 47.84773, 47.85084, 47.84058, 47.81753, 47.81673, 47.78352, 47.79367, 
  47.7309, 47.73263, 47.67903, 47.68527, 47.66539, 47.66758, 47.6618, 47.65891, 47.63104, 47.63428, 
  47.62329, 47.62155, 47.60697, 47.60778, 47.60038, 47.62433, 47.54479, 47.57606, 47.55348, 47.56066, 
  47.53911, 47.5529, 47.49134, 47.49598, 47.45479, 47.4838, 47.47939, 47.46965, 47.46976, 47.4599, 
  47.45734, 47.4368, 47.43773, 47.37336, 47.3558, 47.34127, 47.38103, 47.37592, 47.34057, 47.3301, 
  47.32603, 47.32253, 47.31462, 47.3003, 47.31474, 47.31078, 47.32079, 47.31986, 47.22866, 47.22889, 
  47.20173, 47.20068, 47.20686, 47.20593, 47.20021, 47.19904, 47.18983, 47.18166, 47.1749, 47.17711, 
  47.17069, 47.17361, 47.16474, 47.17116, 47.15984, 47.16533, 47.15716, 47.15961, 47.14023, 47.13602, 
  47.12983, 47.12726, 47.12423, 47.12575, 47.12364, 47.12983, 47.12656, 47.11325, 47.1143, 47.10612, 
  47.10203, 47.09724, 47.09876, 47.09257, 47.09046, 47.08509, 47.08018, 47.04767, 47.05913, 47.03948, 
  47.00753, 46.98224, 46.96022, 46.96831, 46.92811, 46.92037, 46.88426,
  46.87972, 46.86998, 46.87116, 46.86412, 46.81774, 46.79506, 46.76273, 46.73391, 46.69896, 46.67776, 
  46.6522, 46.63228, 46.6304, 46.63381, 46.64477, 46.64277, 46.65291, 46.64678, 46.65055, 46.64678, 
  46.65809, 46.65939, 46.66445, 46.66422, 46.66905, 46.67282, 46.66775, 46.67423, 46.6727, 46.67859, 
  46.68212, 46.68707, 46.70214, 46.70814, 46.71391, 46.72309, 46.73627, 46.75109, 46.75073, 46.75814, 
  46.77613, 46.78084, 46.7786, 46.78166, 46.78048, 46.76144, 46.76061, 46.75267, 46.72514, 46.69548, 
  46.65897, 46.62314, 46.54645, 46.49779, 46.50228, 46.50322, 46.52, 46.54338, 46.52402, 46.5285, 
  46.54881, 46.56439, 46.56982, 46.59649, 46.61347, 46.62785, 46.65237, 46.67145, 46.67122, 46.65826, 
  46.66957, 46.66297, 46.64601, 46.62903, 46.58729, 46.50464, 46.47415, 46.47273, 46.45902, 46.44837, 
  46.42897, 46.35414, 46.29084, 46.22983, 46.18255, 46.14403, 46.11262, 46.07619, 46.09882, 46.10548, 
  46.11381, 46.12428, 46.12595, 46.13951, 46.14807, 46.16092, 46.17257, 46.18683, 46.20323, 46.22176, 
  46.23363, 46.29795, 46.30365, 46.31479, 46.31527, 46.35225, 46.36172, 46.36504, 46.35864, 46.33305, 
  46.35675, 46.35533, 46.37546, 46.3821, 46.36196, 46.35462, 46.34253, 46.30988, 46.28348, 46.25999, 
  46.24099, 46.20703, 46.18944, 46.16686, 46.15949, 46.13761, 46.11072, 46.0078, 45.93216, 45.83297,
  45.76212, 45.75649, 45.76534, 45.79096, 45.81035, 45.90097, 45.90862, 45.97639, 45.99548, 45.995,
  45.95444, 45.9425, 45.94489, 45.98928, 46.01074, 46.06889, 46.05221, 46.08318, 46.10556, 46.11841,
  46.10889, 46.17027, 46.19974, 46.20402, 46.18453, 46.22873, 46.2273, 46.14058, 46.13475,
  46.1461, 46.16025, 46.15609, 46.13683, 46.13742, 46.12683, 46.12374, 46.11732, 46.11648, 46.12148, 
  46.12338, 46.11624, 46.09875, 46.08673, 46.0872, 46.07446, 46.07351, 46.08303, 46.07934, 46.06672, 
  46.05231, 46.04802, 46.0305, 46.03241, 46.03122, 46.02883, 46.02848, 46.03682, 46.05052, 46.04563, 
  46.04075, 46.03956, 46.03479, 46.03181, 46.02955, 46.03574, 46.05671, 46.07756, 46.08482, 46.09042, 
  46.09149, 46.08946, 46.09375, 46.09994, 46.11041, 46.11565, 46.10482, 46.09625, 46.08994, 46.07946, 
  46.07637, 46.07446, 46.07875, 46.08827, 46.09661, 46.0978, 46.09196, 46.09137, 46.09744, 46.11422, 
  46.12338, 46.13359, 46.13397, 46.13992, 46.13433, 46.13243, 46.1266, 46.1191, 46.10577, 46.10708, 
  46.11196, 46.1172, 46.12148, 46.1279, 46.13326, 46.14396, 46.15407, 46.16489, 46.17416, 46.1832, 
  46.18866, 46.19639, 46.20221, 46.20185, 46.20696, 46.21575, 46.2135, 46.2034, 46.20114, 46.19271, 
  46.18866, 46.19556, 46.18498, 46.1832, 46.17298, 46.16608, 46.15586, 46.14753, 46.14432, 46.13683, 
  46.1304, 46.12743, 46.12541, 46.12469, 46.13361, 46.13254, 46.13623, 46.15407, 46.15716, 46.15169, 
  46.14456, 46.14242, 46.13671, 46.13052, 46.1266, 46.12695, 46.1235, 46.11494, 46.11517, 46.11839, 
  46.11767, 46.11089, 46.10958, 46.11208, 46.10565, 46.1079, 46.10445, 46.10814, 46.11552, 46.11385, 
  46.1154, 46.11314, 46.10981, 46.11611, 46.11706, 46.11314, 46.12289, 46.11647, 46.10814, 46.10838, 
  46.09909, 46.10754, 46.10326, 46.09874, 46.09945, 46.08112, 46.07481, 46.06897, 46.06766, 46.0654, 
  46.08457, 46.10504, 46.12492, 46.13217, 46.14704, 46.16238, 46.16749, 46.17379, 46.16987, 46.16642, 
  46.16631, 46.169, 46.18291, 46.19051, 46.18837, 46.18184, 46.18267, 46.17625, 46.20145, 46.2018, 
  46.2075, 46.22188, 46.2258, 46.22793, 46.23696, 46.24396, 46.24931, 46.24966, 46.24491, 46.25251, 
  46.25797, 46.25512, 46.25263, 46.25014, 46.25287, 46.24883, 46.25726, 46.25204, 46.25643, 46.25868, 
  46.27126, 46.28835, 46.29534, 46.29807, 46.29819, 46.30448, 46.30934, 46.31171, 46.31574, 46.31645, 
  46.31159, 46.31195, 46.29333, 46.29096, 46.29606, 46.29096, 46.2658, 46.26628, 46.27328, 46.27067, 
  46.27506, 46.27257, 46.27506, 46.26746, 46.27553, 46.27328, 46.27874, 46.27423, 46.26889, 46.26533, 
  46.26557, 46.26794, 46.27162, 46.27755, 46.28253, 46.28574, 46.28953, 46.29285, 46.29724, 46.2976, 
  46.29546, 46.29629, 46.29772, 46.3021, 46.30851, 46.30827, 46.31159, 46.31159, 46.32463, 46.33542, 
  46.33234, 46.33921, 46.33732, 46.34407, 46.34253, 46.35924, 46.38293, 46.37795, 46.37819, 46.38328, 
  46.38648, 46.39062, 46.40116, 46.41643, 46.43299, 46.44743, 46.45358, 46.45298, 46.44778, 46.43985, 
  46.44234, 46.44104, 46.44411, 46.46363, 46.48585, 46.48857, 46.48408, 46.47474, 46.46576, 46.44731, 
  46.43844, 46.43536, 46.44151, 46.43406, 46.42743, 46.42708, 46.43477, 46.45736, 46.48325, 46.50488, 
  46.5272, 46.5396, 46.55507, 46.56298, 46.57089, 46.57679, 46.57891, 46.57525, 46.57053, 46.56357, 
  46.55165, 46.54208, 46.53653, 46.53959, 46.53617, 46.5449, 46.54361, 46.54514, 46.54679, 46.54065, 
  46.53676, 46.53357, 46.53286, 46.52873, 46.52636, 46.52034, 46.52117, 46.51656, 46.51668, 46.51302, 
  46.51821, 46.5181, 46.52341, 46.52436, 46.51172, 46.51207, 46.50794, 46.50983, 46.49494, 46.49624, 
  46.49222, 46.48773, 46.48915, 46.48832, 46.4908, 46.49837, 46.49718, 46.49872, 46.49754, 46.49234, 
  46.49553, 46.50616, 46.50676, 46.49364, 46.49033, 46.47816, 46.48052, 46.47875, 46.48052, 46.47733, 
  46.47758, 46.47108, 46.47013, 46.46682, 46.46268, 46.4641, 46.46954, 46.47167, 46.47663, 46.47947, 
  46.48313, 46.48514, 46.48609, 46.48833, 46.49448, 46.49401, 46.49602, 46.49046, 46.49117, 46.48833, 
  46.4894, 46.48857, 46.48975, 46.48231, 46.48313, 46.47309, 46.47285, 46.47545, 46.47214, 46.46812, 
  46.46765, 46.47249, 46.47498, 46.47805, 46.48432, 46.48916, 46.49152, 46.48999, 46.49436, 46.49968, 
  46.5024, 46.50712, 46.50996, 46.51244, 46.51492, 46.51728, 46.52484, 46.52319, 46.53335, 46.53441, 
  46.53701, 46.5389, 46.54397, 46.5448, 46.54267, 46.54421, 46.54917, 46.56321, 46.57797, 46.5782, 
  46.58351, 46.59283, 46.59142, 46.57714, 46.57655, 46.55708, 46.60333, 46.61453, 46.61807, 46.61359, 
  46.63068, 46.65484, 46.68135, 46.71043, 46.7282, 46.73832, 46.74361, 46.74702, 46.75549, 46.76137, 
  46.76419, 46.77525, 46.77525, 46.768, 46.76831, 46.77454, 46.7783, 46.78148, 46.78559, 46.78665, 
  46.79264, 46.79382, 46.80345, 46.81744, 46.82425, 46.83223, 46.83247, 46.83634, 46.83881, 46.83764, 
  46.84057, 46.83858, 46.84116, 46.84245, 46.84997, 46.84668, 46.85865, 46.85807, 46.86581, 46.86581, 
  46.87778, 46.89292, 46.92024, 46.93771, 46.94744, 46.94744, 46.94228, 46.94615, 46.9424, 46.94216, 
  46.93747, 46.93783, 46.94205, 46.93982, 46.9465, 46.96021, 46.97216, 46.97977, 46.98715, 46.9786, 
  46.98106, 46.98609, 46.99277, 46.99804, 47.0005, 47.01277, 47.02108, 47.02495, 47.02296, 47.00657, 
  47.00599, 47.00798, 46.98913, 46.98842, 46.99709, 47.00446, 47.00505, 47.00201, 46.98608, 46.97976, 
  46.97554, 46.97308, 46.9623, 46.94285, 46.92855, 46.92234, 46.92293, 46.92211, 46.92621, 46.9309, 
  46.93125, 46.91624, 46.89279, 46.86357, 46.86146, 46.8503, 46.84056, 46.83457, 46.83246, 46.80297, 
  46.79157, 46.76747, 46.74442, 46.72925, 46.7296, 46.7256, 46.71124, 46.68922, 46.6778, 46.66697, 
  46.65836, 46.64434, 46.63232, 46.62313, 46.61829, 46.60945, 46.61782, 46.62548, 46.62737, 46.62643, 
  46.64387, 46.64953, 46.64953, 46.64352, 46.63279, 46.62914, 46.61935, 46.60296, 46.60107, 46.60945, 
  46.62006, 46.62607, 46.62761, 46.62607, 46.62419, 46.62713, 46.61794, 46.62348, 46.62442, 46.62171, 
  46.61464, 46.60037, 46.60579, 46.61299, 46.60945, 46.61086, 46.62171, 46.62619, 46.62737, 46.62607, 
  46.62301)
LONGITUDE_VALUEs <- c(
  31.78564, 31.7865, 31.79302, 31.79645, 31.82031, 31.84626, 31.86685, 31.87372, 31.89963, 31.90769, 
  31.93069, 31.94169, 31.95302, 31.96039, 31.95799, 31.94392, 31.9422, 31.92882, 31.92727, 31.92247, 
  31.91646, 31.92865, 31.92796, 31.91595, 31.91492, 31.91887, 31.91989, 31.92539, 31.93997, 31.9525, 
  31.96262, 32.02856, 32.044, 32.09583, 32.096, 32.13225, 32.13105, 32.14477, 32.14838, 32.19042, 
  32.19351, 32.2014, 32.20158, 32.20846, 32.20812, 32.21739, 32.22219, 32.22442, 32.24982, 32.29186, 
  32.29085, 32.29777, 32.29297, 32.3189, 32.3201, 32.32971, 32.33433, 32.36129, 32.36954, 32.36559, 
  32.33416, 32.32661, 32.32334, 32.32884, 32.32609, 32.34739, 32.32421, 32.32455, 32.34618, 32.35975, 
  32.38757, 32.39461, 32.40216, 32.38927, 32.38944, 32.38274, 32.38257, 32.39339, 32.38223, 32.37193, 
  32.3685, 32.36318, 32.35184, 32.3551, 32.37622, 32.38721, 32.39442, 32.40129, 32.43563, 32.46036, 
  32.46668, 32.47183, 32.49004, 32.49965, 32.50103, 32.55031, 32.57243, 32.57672, 32.60814, 32.61241, 
  32.62512, 32.63869, 32.66719, 32.68556, 32.69003, 32.69965, 32.7005, 32.7175, 32.72678, 32.75456, 
  32.76348, 32.79714, 32.81723, 32.83389, 32.85685, 32.88485, 32.88588, 32.87935, 32.88691, 32.907, 
  32.91078, 32.9621, 32.9961, 32.99867, 33.0191, 33.02442, 33.04503, 33.04279, 33.0584, 33.05394, 
  33.05944, 33.07283, 33.07249, 33.0615, 33.06064, 33.06768, 33.08279, 33.10443, 33.11009, 33.12913, 
  33.12896, 33.13669, 33.15541, 33.17035, 33.17067, 33.17479, 33.16843, 33.18904, 33.18904, 33.19539, 
  33.1966, 33.21428, 33.29152, 33.30663, 33.31333, 33.34613, 33.3609, 33.36399, 33.3712, 33.37395, 
  33.38421, 33.40516, 33.40104, 33.41701, 33.41529, 33.44688, 33.44723, 33.43967, 33.44293, 33.45221, 
  33.45427, 33.49287, 33.5085, 33.51931, 33.51485, 33.52017, 33.51159, 33.48927, 33.48876, 33.47914, 
  33.48858, 33.49854, 33.50438, 33.52464, 33.53306, 33.56002, 33.5662, 33.54439, 33.54491, 33.55367, 
  33.57908, 33.58234, 33.57754, 33.60788, 33.65888, 33.68206, 33.67776, 33.71571, 33.72513, 33.78506, 
  33.80478, 33.83826, 33.83826, 33.8556, 33.8386, 33.87448, 33.89629, 33.90625, 33.90882, 33.9229, 
  33.92565, 33.94452, 33.94332, 33.938, 33.96101, 33.95671, 33.96393, 33.97473, 33.98228, 34.00272, 
  33.99843, 34.01646, 34.05303, 34.06382, 34.0537, 34.07568, 34.09044, 34.11687, 34.11292, 34.11103, 
  34.1021, 34.0997, 34.08579, 34.08854, 34.08682, 34.10005, 34.09558, 34.09369, 34.08477, 34.0621, 
  34.06254, 34.08004, 34.0833, 34.10133, 34.0912, 34.09601, 34.12537, 34.14115, 34.12931, 34.14373, 
  34.18783, 34.19059, 34.20346, 34.2026, 34.2256, 34.21873, 34.23248, 34.24913, 34.26079, 34.25307, 
  34.25942, 34.24467, 34.2632, 34.27538, 34.30232, 34.32844, 34.36293, 34.36911, 34.38712, 34.38869, 
  34.39916, 34.41495, 34.41117, 34.41787, 34.4062, 34.43607, 34.43504, 34.44105, 34.43314, 34.42388, 
  34.42336, 34.41427, 34.39951, 34.39179, 34.36468, 34.34782, 34.33959, 34.31505, 34.31213, 34.30818, 
  34.29068, 34.27972, 34.25963, 34.25039, 34.23477, 34.2157, 34.20248, 34.19218, 34.15869, 34.15595, 
  34.14739, 34.14361, 34.13606, 34.12799, 34.12593, 34.11545, 34.11185, 34.10034, 34.09656, 34.08832, 
  34.07973, 34.08935, 34.10532, 34.10842, 34.12954, 34.12902, 34.168, 34.17984, 34.1819, 34.2116, 
  34.21655, 34.23681, 34.24987, 34.24334, 34.25742, 34.25055, 34.25983, 34.25914, 34.2962, 34.29448, 
  34.30857, 34.30685, 34.29002, 34.29792, 34.28349, 34.26701, 34.24504, 34.25603, 34.24538, 34.24676, 
  34.2234, 34.22721, 34.2473, 34.27151, 34.27855, 34.29298, 34.28471, 34.29776, 34.30428, 34.30772, 
  34.33828, 34.33004, 34.33949, 34.33417, 34.3158, 34.31957, 34.31219, 34.31734, 34.31562, 34.3103, 
  34.31116, 34.30549, 34.29897, 34.28832, 34.28128, 34.28969, 34.28128, 34.28162, 34.27784, 34.27784, 
  34.27252, 34.26635, 34.25828, 34.23785, 34.243, 34.25536, 34.25159, 34.2454, 34.23029, 34.2339, 
  34.22892, 34.24489, 34.28661, 34.30585, 34.33109, 34.38445, 34.4145, 34.41278, 34.43871, 34.44558, 
  34.48437, 34.51322, 34.52297, 34.541, 34.57964, 34.60059, 34.60231, 34.61927, 34.63129, 34.66357, 
  34.66821, 34.68828, 34.71696, 34.73121, 34.73739, 34.75439, 34.7592, 34.77174, 34.77998, 34.78307, 
  34.80039, 34.80915, 34.80794, 34.81876, 34.83508, 34.83387, 34.86322, 34.87455, 34.88382, 34.89911, 
  34.90855, 34.93428, 34.94149, 34.95265, 34.95076, 34.97994, 34.98286, 34.99402, 35.00879, 35.0268, 
  35.03779, 35.03865, 35.06372, 35.06149, 35.073, 35.08399, 35.10528, 35.11744, 35.12019, 35.15007, 
  35.15041, 35.13856, 35.13616, 35.14371, 35.14337, 35.13015, 35.13049, 35.13547, 35.12259, 35.12774, 
  35.14234, 35.13375, 35.14405, 35.14113, 35.1667, 35.17426, 35.16722, 35.1619, 35.16533, 35.16464, 
  35.17151, 35.17718, 35.17323, 35.15555, 35.1473, 35.16551, 35.16654, 35.17786, 35.18284, 35.19022, 
  35.19039, 35.20258, 35.21151, 35.24809, 35.25942, 35.26492, 35.26629, 35.27642, 35.27778, 35.30199, 
  35.30336, 35.32826, 35.32551, 35.35056, 35.36155, 35.37632, 35.38714, 35.39555, 35.40583, 35.40549, 
  35.4091, 35.41064, 35.40429, 35.40085, 35.40995, 35.38265, 35.38283, 35.35896, 35.33254, 35.32499, 
  35.32224, 35.32945, 35.33134, 35.33735, 35.3298, 35.33219, 35.3449, 35.35125, 35.34335, 35.34284, 
  35.33562, 35.33477, 35.32636, 35.33322, 35.34439, 35.34885, 35.37238, 35.36653, 35.37374, 35.39332, 
  35.39195, 35.39949, 35.4012, 35.39605, 35.40395, 35.37991, 35.38849, 35.4024, 35.3866, 35.38248, 
  35.39175, 35.40549, 35.42026, 35.4194, 35.40961, 35.41425, 35.43365, 35.45132, 35.47571, 35.48945, 
  35.47296, 35.47656, 35.46969, 35.47416, 35.46369, 35.47296, 35.46729, 35.46678, 35.46248, 35.45905, 
  35.46129, 35.45991, 35.46403, 35.45957, 35.46437, 35.47227, 35.47725, 35.49614, 35.48704, 35.48892, 
  35.48568, 35.46234, 35.42613, 35.39985, 35.39076, 35.40277, 35.41135, 35.42113, 35.4189, 35.42559, 
  35.39933, 35.39144, 35.428, 35.43984, 35.4347, 35.43538, 35.44602, 35.44431, 35.45821, 35.45821, 
  35.46388, 35.47727, 35.50335, 35.50766, 35.537, 35.53683, 35.5533, 35.56274, 35.57201, 35.5612, 
  35.5612, 35.56875, 35.57939, 35.58745, 35.58712, 35.58318, 35.58352, 35.5945, 35.59656, 35.61184, 
  35.60139, 35.62696, 35.62868, 35.65888, 35.67209, 35.73854, 35.75638, 35.79827, 35.80788, 35.79536, 
  35.79278, 35.83129, 35.83542, 35.85482, 35.87319, 35.88813, 35.90612, 35.91283, 35.92243, 35.9348, 
  35.93875, 35.96931, 35.9767, 35.99864, 36.00379, 36.02268, 36.04054, 36.04621, 36.06853, 36.06922, 
  36.08656, 36.11144, 36.13531, 36.16107, 36.17015, 36.17685, 36.1844, 36.20552, 36.21031, 36.23212, 
  36.23263, 36.2582, 36.28396, 36.27314, 36.28053, 36.27623, 36.28602, 36.28568, 36.29907, 36.29529, 
  36.36329, 36.37973, 36.3751, 36.40618, 36.4242, 36.43348, 36.43966, 36.48671, 36.49819, 36.52618, 
  36.52223, 36.55622, 36.56085, 36.58438, 36.59399, 36.57493, 36.58008, 36.57424, 36.57836, 36.57424, 
  36.56961, 36.56033, 36.61115, 36.61974, 36.64979, 36.6649, 36.68119, 36.68343, 36.68841, 36.69459, 
  36.69905, 36.70541, 36.70592, 36.71964, 36.72943, 36.73922, 36.75004, 36.75141, 36.77167, 36.76429, 
  36.76892, 36.80065, 36.80941, 36.83414, 36.85198, 36.87001, 36.88581, 36.93423, 37.03894, 37.0446, 
  37.05989, 37.07083, 37.10569, 37.10277, 37.14004, 37.14914, 37.22466, 37.2226, 37.30056, 37.31204, 
  37.33076, 37.35171, 37.39461, 37.42295, 37.43461, 37.47187, 37.47599, 37.4911, 37.48441, 37.48379, 
  37.465, 37.46157, 37.46672, 37.4662, 37.47169, 37.47117, 37.47701, 37.48457, 37.50515, 37.52112, 
  37.55564, 37.57692, 37.58825, 37.63359, 37.63788, 37.62483, 37.62687, 37.61211, 37.64335, 37.63923, 
  37.65176, 37.66979, 37.68042, 37.68711, 37.71047, 37.707, 37.75545, 37.79787, 37.8253, 37.86548, 
  37.89296, 37.9271, 37.96539, 37.98116, 37.99937, 38.00624, 38.0447, 38.02014, 38.02495, 38.02134,
  38.03326, 38.03205, 38.03892, 38.04423, 38.09334, 38.07514, 38.02053, 38.00952, 38.05348, 38.05073, 
  38.01021, 38.00746, 37.98548, 37.97552, 37.95011, 37.97003, 38.01536, 38.01811, 37.99819, 38.01433, 
  38.01193, 38.04627, 37.98823, 37.99721, 37.97591, 37.97454, 37.94912, 37.93367, 37.95496, 37.89864, 
  37.88525, 37.9299, 37.88766, 37.84747, 37.8382, 37.8516, 37.84335, 37.87632, 37.87699, 37.89863, 
  37.87788, 37.88269, 37.94623, 37.95688, 37.91722, 37.89884, 37.91139, 37.8961, 37.89834, 37.86605,
  37.87455, 37.86149, 37.85345, 37.84366, 37.82426, 37.8246, 37.79833, 37.79833, 37.71662, 37.61483, 
  37.59749, 37.564, 37.54889, 37.51509, 37.50221, 37.512, 37.51011, 37.55353, 37.56435, 37.56194, 
  37.56572, 37.56126, 37.55233, 37.54168, 37.55748, 37.56417, 37.5604, 37.57104, 37.5853, 37.547, 
  37.48589, 37.5065, 37.50652, 37.47166, 37.46668, 37.45002, 37.4497, 37.41708, 37.41295, 37.38325, 
  37.38823, 37.38497, 37.39184, 37.37501, 37.37005, 37.37297, 37.36541, 37.35751, 37.35957, 37.34463, 
  37.33605, 37.3108, 37.31115, 37.32361, 37.32344, 37.31675, 37.31606, 37.30748, 37.29375, 37.30885, 
  37.30491, 37.32121, 37.30611, 37.31005, 37.33236, 37.32882, 37.31383, 37.29856, 37.29839, 37.27004, 
  37.2666, 37.24533, 37.24395, 37.22508, 37.21409, 37.19367, 37.19006, 37.19504, 37.19177, 37.1571, 
  37.15195, 37.1384, 37.14558, 37.09908, 37.07812, 37.06782, 37.06525, 37.02406, 37.01925, 37.00793, 
  37.0057, 36.99454, 37.02321, 37.02321, 37.04328, 37.03573, 37.01308, 37.00176, 36.9722, 36.94835, 
  36.92724, 36.91986, 36.85411, 36.8409, 36.83833, 36.83566, 36.84081, 36.82123, 36.81642, 36.78862, 
  36.79171, 36.78347, 36.79085, 36.76698, 36.7208, 36.70294, 36.68853, 36.69145, 36.70948, 36.71789, 
  36.71291, 36.72562, 36.73575, 36.72836, 36.71171, 36.7196, 36.71565, 36.7263, 36.72046, 36.73059, 
  36.72201, 36.73403, 36.73867, 36.74517, 36.779, 36.78827, 36.82361, 36.82533, 36.85847, 36.871, 
  36.88268, 36.88439, 36.90173, 36.90723, 36.88885, 36.88851, 36.85025, 36.85729, 36.82999, 36.83651, 
  36.84544, 36.85197, 36.84046, 36.82501, 36.83617, 36.82054, 36.82861, 36.82174, 36.81213, 36.81625, 
  36.80903, 36.81676, 36.87065, 36.87432, 36.91187, 36.93676, 36.89368, 36.88955, 36.87221, 36.89607, 
  36.88113, 36.88166, 36.86947, 36.86621, 36.85848, 36.85436, 36.84131, 36.83513, 36.81177, 36.80477, 
  36.77609, 36.76424, 36.75153, 36.74003, 36.74775, 36.7268, 36.7244, 36.71616, 36.71255, 36.69298, 
  36.68439, 36.67412, 36.6633, 36.65506, 36.65867, 36.65128, 36.64939, 36.6372, 36.63892, 36.64939, 
  36.65094, 36.63239, 36.62847, 36.60151, 36.60546, 36.58365, 36.58709, 36.57782, 36.58726, 36.5761, 
  36.59154, 36.57162, 36.58673, 36.57592, 36.58485, 36.62898, 36.64014, 36.61868, 36.59, 36.59241, 
  36.5421, 36.54914, 36.57677, 36.58432, 36.60441, 36.60837, 36.59875, 36.58879, 36.58757, 36.6712, 
  36.68527, 36.70021, 36.71307, 36.79121, 36.77421, 36.75772, 36.75412, 36.71823, 36.72474, 36.76593, 
  36.76542, 36.74533, 36.74807, 36.76319, 36.76336, 36.82964, 36.89265, 36.94414, 36.96592, 36.98052, 
  37.00044, 37.02173, 37.07597, 37.08387, 37.15752, 37.17999, 37.19561, 37.1896, 37.2449, 37.24009, 
  37.24816, 37.23666, 37.23168, 37.19442, 37.2037, 37.16146, 37.1462, 37.10636, 37.12233, 37.0928, 
  37.09537, 37.08318, 37.0837, 37.03682, 37.02617, 36.94647, 36.94424, 36.92656, 36.94922, 36.95608, 
  36.96227, 36.93117, 36.93049, 36.89428, 36.8917, 36.85653, 36.85893, 36.87472, 36.87918, 36.88604, 
  36.88812, 36.89928, 36.90923, 36.9221, 36.92364, 36.93566, 36.94012, 36.94304, 36.97394, 36.96999, 
  36.9808, 36.97823, 36.98355, 36.98818, 36.99197, 36.99746, 37.00329, 36.99917, 37.00964, 37.01016, 
  37.00158, 37.00484, 37.01119, 37.00844, 37.01239, 37.0098, 36.98441, 37.0805, 37.09801, 37.12478, 
  37.08929, 37.14147, 37.10251, 37.09205, 37.02149, 37.03093, 37.06177,
  37.05075, 37.03361, 37.01472, 36.98725, 36.90724, 36.88665, 36.86347, 36.84768, 36.82999, 36.81574, 
  36.79342, 36.7699, 36.75753, 36.74879, 36.75119, 36.75789, 36.76029, 36.76441, 36.76991, 36.77712, 
  36.77987, 36.78811, 36.79395, 36.79859, 36.79069, 36.79429, 36.8003, 36.80459, 36.81009, 36.81369, 
  36.81095, 36.82108, 36.82949, 36.82898, 36.82314, 36.81919, 36.80597, 36.78452, 36.77301, 36.77301, 
  36.73183, 36.70624, 36.67825, 36.66056, 36.62367, 36.5658, 36.55069, 36.51285, 36.41085, 36.35353, 
  36.31266, 36.28451, 36.22238, 36.16811, 36.15712, 36.1451, 36.15401, 36.15332, 36.16878, 36.18835, 
  36.21137, 36.21961, 36.23712, 36.25841, 36.26288, 36.2567, 36.23335, 36.19527, 36.15406, 36.10602, 
  36.05072, 35.93538, 35.86944, 35.8399, 35.72593, 35.62565, 35.56351, 35.54703, 35.51744, 35.47, 
  35.43637, 35.35706, 35.29972, 35.24515, 35.21391, 35.17821, 35.11775, 34.98115, 34.99282, 34.99077, 
  35.01102, 35.01822, 35.03058, 35.02852, 35.03779, 35.13461, 35.16138, 35.21218, 35.2235, 35.22179, 
  35.24719, 35.29936, 35.29352, 35.30006, 35.31791, 35.34708, 35.35943, 35.35429, 35.33335, 35.31894, 
  35.30212, 35.26608, 35.26093, 35.20122, 35.17685, 35.14248, 35.1267, 35.11118, 35.08414, 35.03363, 
  34.89669, 34.83487, 34.82252, 34.82011, 34.8081, 34.82561, 34.83076, 34.84861, 34.87643, 34.92897,
  34.97518, 34.95921, 34.94382, 34.87547, 34.79854, 34.80134, 34.75291, 34.65717, 34.59878, 34.55757,
  34.52323, 34.49713, 34.46622, 34.41058, 34.40508, 34.32207, 34.24857, 34.14485, 34.12905, 34.07422,
  34.05087, 33.89426, 33.85381, 33.78993, 33.7391, 33.64294, 33.61684, 33.63916, 33.61477,
  33.61081, 33.59039, 33.5734, 33.5631, 33.54628, 33.53942, 33.54508, 33.53614, 33.52156, 33.51847, 
  33.51195, 33.50954, 33.51384, 33.54251, 33.54697, 33.56327, 33.55109, 33.51934, 33.50129, 33.48945, 
  33.49151, 33.50027, 33.51073, 33.51451, 33.51811, 33.51434, 33.49786, 33.47864, 33.46576, 33.45203, 
  33.44654, 33.42286, 33.42166, 33.4311, 33.42406, 33.41377, 33.39177, 33.36363, 33.37169, 33.37118, 
  33.36466, 33.36019, 33.35247, 33.33823, 33.33617, 33.32947, 33.31282, 33.31196, 33.30681, 33.30767, 
  33.31522, 33.29208, 33.28212, 33.28126, 33.27886, 33.28246, 33.28813, 33.30066, 33.30994, 33.31183, 
  33.30617, 33.2817, 33.27079, 33.25431, 33.23527, 33.21879, 33.2078, 33.20625, 33.21244, 33.20333, 
  33.19835, 33.19784, 33.20471, 33.20608, 33.20436, 33.20934, 33.22806, 33.21914, 33.20455, 33.21279, 
  33.20781, 33.21125, 33.21795, 33.22275, 33.22104, 33.22516, 33.21949, 33.21537, 33.20747, 33.20644, 
  33.19906, 33.18686, 33.18498, 33.19339, 33.19665, 33.18652, 33.18464, 33.1654, 33.16729, 33.14583, 
  33.14378, 33.13742, 33.13674, 33.12832, 33.10308, 33.09449, 33.08058, 33.06791, 33.03099, 33.02034, 
  33.02258, 33.02962, 33.02894, 33.02345, 33.02431, 33.01933, 33.01435, 33.01606, 33.02173, 33.02207, 
  33.02671, 33.02705, 32.98996, 32.96644, 32.93537, 32.91891, 32.91016, 32.90758, 32.86602, 32.86053, 
  32.85435, 32.83511, 32.82928, 32.81248, 32.79857, 32.79324, 32.77092, 32.74191, 32.73762, 32.70499, 
  32.67531, 32.65041, 32.62261, 32.61694, 32.60252, 32.54518, 32.53934, 32.53866, 32.54467, 32.5445, 
  32.44218, 32.34639, 32.25783, 32.22469, 32.23894, 32.23483, 32.22933, 32.23569, 32.24307, 32.23672, 
  32.24753, 32.24801, 32.24097, 32.21746, 32.20373, 32.20305, 32.19309, 32.19206, 32.15995, 32.1373, 
  32.11755, 32.09095, 32.08958, 32.08494, 32.08323, 32.08494, 32.07532, 32.06777, 32.0652, 32.06176, 
  32.04511, 32.04288, 32.04666, 32.03859, 32.0331, 32.02864, 32.02418, 32.00685, 31.99601, 31.9713, 
  31.95173, 31.94606, 31.92941, 31.90728, 31.89767, 31.89405, 31.90108, 31.89731, 31.89748, 31.89268, 
  31.8901, 31.87757, 31.87706, 31.88444, 31.88942, 31.89508, 31.87431, 31.8714, 31.86385, 31.85062, 
  31.84255, 31.83758, 31.82714, 31.81735, 31.80808, 31.80138, 31.79022, 31.79008, 31.78321, 31.78424, 
  31.77806, 31.77789, 31.78407, 31.78356, 31.77531, 31.77669, 31.77188, 31.77583, 31.77119, 31.76106, 
  31.75883, 31.75694, 31.75694, 31.76295, 31.76278, 31.76827, 31.7705, 31.78029, 31.79093, 31.83867, 
  31.86889, 31.90799, 31.9231, 31.95556, 31.95933, 32.00707, 32.02388, 32.03367, 32.04105, 32.0541, 
  32.05376, 32.06217, 32.05685, 32.03728, 32.03436, 32.02234, 32.00895, 31.99452, 31.9892, 31.97014, 
  31.95505, 31.94732, 31.94114, 31.87848, 31.77478, 31.74647, 31.72431, 31.70508, 31.69772, 31.69497, 
  31.71008, 31.70819, 31.69549, 31.70562, 31.71111, 31.71008, 31.70201, 31.67333, 31.64227, 31.60879, 
  31.56949, 31.54888, 31.52967, 31.52143, 31.5173, 31.51198, 31.51318, 31.51404, 31.51885, 31.52297, 
  31.53808, 31.56006, 31.58187, 31.63025, 31.66099, 31.70958, 31.7192, 31.72862, 31.75404, 31.77395, 
  31.77464, 31.78285, 31.79127, 31.79504, 31.8172, 31.83214, 31.84467, 31.85515, 31.8682, 31.87215, 
  31.88808, 31.8977, 31.8977, 31.90645, 31.90353, 31.91504, 31.91487, 31.92139, 31.96656, 31.97342, 
  31.97686, 32.01203, 32.02731, 32.0462, 32.0505, 32.08068, 32.09081, 32.09871, 32.12721, 32.15554, 
  32.15966, 32.1497, 32.15399, 32.17237, 32.16207, 32.2115, 32.22232, 32.23022, 32.23898, 32.24602, 
  32.25955, 32.282, 32.29195, 32.30225, 32.35373, 32.37162, 32.38501, 32.40234, 32.41006, 32.4195, 
  32.41589, 32.42533, 32.42087, 32.42825, 32.42739, 32.41383, 32.40457, 32.39513, 32.38483, 32.37917, 
  32.37557, 32.37317, 32.36699, 32.35463, 32.33936, 32.34073, 32.33644, 32.33524, 32.32715, 32.32715, 
  32.31977, 32.32149, 32.31857, 32.32269, 32.29282, 32.28595, 32.30569, 32.31821, 32.31066, 32.3165, 
  32.28218, 32.29024, 32.28612, 32.29144, 32.28492, 32.29385, 32.29642, 32.28767, 32.28664, 32.28956, 
  32.28853, 32.2947, 32.2872, 32.29339, 32.29665, 32.30472, 32.30163, 32.30592, 32.28961, 32.28085, 
  32.27862, 32.25355, 32.24086, 32.20892, 32.18299, 32.13922, 32.11554, 32.10009, 32.07742, 32.05819, 
  32.01512, 31.9844, 31.97014, 31.97685, 31.96552, 31.94955, 31.95212, 31.93547, 31.94079, 31.94027, 
  31.94371, 31.94405, 31.93289, 31.92961, 31.92499, 31.92963, 31.93753, 31.93375, 31.93307, 31.92293, 
  31.92757, 31.94011, 31.94955, 31.95402, 31.94732, 31.94698, 31.95453, 31.9499, 31.95127, 31.95917, 
  31.9602, 31.96827, 31.97531, 31.96672, 31.97496, 31.9796, 31.98338, 31.99007, 31.9942, 32.00158, 
  32.01479, 32.01118, 32.02612, 32.02148, 32.01015, 31.98731, 31.98405, 31.97512, 31.97357, 31.96636, 
  31.96447, 31.95504, 31.94989, 31.93959, 31.93169, 31.93873, 31.95693, 31.96328, 31.97942, 31.98732, 
  31.99041, 31.99041, 31.99625, 31.99402, 31.98921, 31.98663, 31.97599, 31.96002, 31.94165, 31.91555, 
  31.90593, 31.88584, 31.88208, 31.90046, 31.93068, 31.94201, 31.95386, 31.95815, 31.95369, 31.93668, 
  31.93393, 31.92775, 31.91453, 31.90302, 31.91847, 31.94096, 31.95333, 31.96329, 31.976, 31.98149, 
  31.98699, 31.99471, 31.98938, 31.96242, 31.9547, 31.94165, 31.91126, 31.91246, 31.90664, 31.87847, 
  31.87367, 31.87264, 31.88758, 31.90714, 31.92311, 31.91659, 31.90903, 31.90663, 31.89942, 31.89993, 
  31.90457, 31.89667, 31.87607, 31.82971, 31.81291, 31.7959, 31.78835, 31.76997, 31.74905, 31.73789, 
  31.68208, 31.65276, 31.62666, 31.59609, 31.58545, 31.57394, 31.56348, 31.55558, 31.54819, 31.53617, 
  31.5161, 31.48759, 31.45705, 31.43336, 31.42872, 31.41859, 31.40811, 31.39609, 31.37757, 31.36143, 
  31.35387, 31.35199, 31.33053, 31.27611, 31.25911, 31.23713, 31.20985, 31.18873, 31.17637, 31.15751, 
  31.14171)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_1, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, Geo_0[262])
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
LATITUDE_VALUEs <- c(46.4878, 46.4943, 46.49701, 46.4917)
LONGITUDE_VALUEs <- c(36.11561, 36.12385, 36.11252, 36.10171)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  46.01132, 46.01335, 46.00643, 46.01311, 46.01228, 46.01597, 46.01764, 46.01418, 46.01454, 46.01931, 
  46.02253, 46.02885, 46.02491, 46.03087, 46.0292, 46.03278, 46.04624, 46.03683, 46.03552, 46.04136, 
  46.03063, 46.02777, 46.02992, 46.03004, 46.03254, 46.03051, 46.03206, 46.03123, 46.0298, 46.01585, 
  46.01383)
LONGITUDE_VALUEs <- c(
  32.92494, 32.96012, 33.0317, 33.06191, 33.07941, 33.08404, 33.07941, 33.07563, 33.06602, 33.06173, 
  33.04714, 33.03238, 33.01779, 32.9984, 32.98073, 32.96597, 32.9421, 32.93215, 32.91687, 32.89661, 
  32.8676, 32.81043, 32.81146, 32.79533, 32.79568, 32.78555, 32.78178, 32.76565, 32.76734, 32.87567, 
  32.90295)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(46.27618, 46.27321, 46.2706, 46.27214, 46.27179, 46.2706, 46.27179, 46.27274, 46.27309)
LONGITUDE_VALUEs <- c(31.73244, 31.72952, 31.73329, 31.73432, 31.73587, 31.73638, 31.73964, 31.73741, 31.73467)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  46.36099, 46.36999, 46.3694, 46.35992, 46.34239, 46.31809, 46.29947, 46.27634, 46.25355, 46.23931, 
  46.23088, 46.22423, 46.22601, 46.22933, 46.23432, 46.24227, 46.24584, 46.24999, 46.24916, 46.24429, 
  46.24667, 46.25284, 46.26732, 46.28761, 46.31073, 46.34404)
LONGITUDE_VALUEs <- c(
  31.53457, 31.53457, 31.52359, 31.51501, 31.51123, 31.51483, 31.52565, 31.54814, 31.58486, 31.62058, 
  31.65319, 31.68613, 31.68631, 31.67481, 31.6513, 31.66245, 31.67944, 31.67893, 31.66606, 31.63929, 
  31.61266, 31.59207, 31.56496, 31.54419, 31.53303, 31.53663)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(46.42433, 46.42255, 46.41344, 46.38669, 46.37437, 46.37248, 46.39663, 46.41522, 46.42125)
LONGITUDE_VALUEs <- c(31.73095, 31.72804, 31.73456, 31.75018, 31.76373, 31.77626, 31.75979, 31.73439, 31.73301)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(46.59853, 46.59676, 46.5944, 46.59547, 46.59877, 46.59936, 46.60231, 46.60183, 46.59983)
LONGITUDE_VALUEs <- c(31.4109, 31.41055, 31.41244, 31.41416, 31.41484, 31.41278, 31.41175, 31.40746, 31.40695)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(46.57461, 46.57142, 46.56953, 46.5693, 46.57083, 46.57107, 46.57414)
LONGITUDE_VALUEs <- c(31.55851, 31.55799, 31.56005, 31.56194, 31.56228, 31.55971, 31.5604)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  46.50525, 46.50879, 46.51163, 46.51328, 46.51576, 46.50962, 46.50985, 46.50548, 46.50489, 46.50324, 
  46.50099, 46.4978, 46.50146, 46.50052, 46.50229)
LONGITUDE_VALUEs <- c(
  32.10237, 32.11404, 32.11473, 32.11782, 32.1173, 32.10889, 32.10649, 32.09534, 32.08538, 32.09242, 
  32.08212, 32.08984, 32.08967, 32.09413, 32.10083)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(46.4926, 46.49107, 46.48823, 46.48527, 46.49, 46.49473)
LONGITUDE_VALUEs <- c(32.2519, 32.26305, 32.26202, 32.26546, 32.27078, 32.25739)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(46.49969, 46.49816, 46.49497, 46.49213, 46.49166, 46.49378, 46.49816, 46.50016, 46.49768)
LONGITUDE_VALUEs <- c(32.25808, 32.25739, 32.267, 32.27112, 32.27953, 32.28004, 32.27404, 32.26614, 32.26597)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(46.48823, 46.48646, 46.48587, 46.48326, 46.48622, 46.48693)
LONGITUDE_VALUEs <- c(32.27112, 32.267, 32.27352, 32.28021, 32.27713, 32.27987)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### RUSSIAN FEDERATION #####
Geo_0 <- Geometric_Operations(Geo_2, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, MGeo_1)
Geo_0 <- Geometric_Operations(Geo_0, MGeo_2)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0))
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  55.76112, 52.11304, 52.10872, 52.10218, 52.09828, 52.11009, 52.11083, 52.10798, 52.10397, 52.0986, 
  52.09111, 52.08046, 52.08214, 52.07465, 52.06811, 52.06136, 52.05661, 52.05925, 52.0565, 52.05735, 
  52.05291, 52.05091, 52.04679, 52.04742, 52.04225, 52.04225, 52.04542, 52.04362, 52.04848, 52.04584, 
  52.05323, 52.04806, 52.03919, 52.03317, 52.04531, 52.04542, 52.0527, 52.05471, 52.07075, 52.07128, 
  52.06716, 52.06779, 52.07423, 52.07592, 52.07908, 52.08183, 52.08098, 52.08731, 52.08837, 52.10503, 
  52.10851, 52.11072, 52.12031, 52.12158, 52.13686, 52.13349, 52.14107, 52.14097, 52.14792, 52.15624, 
  52.15698, 52.14961, 52.1514, 52.15856, 52.16235, 52.18751, 52.21444, 52.22496, 52.24451, 52.23968, 
  52.24136, 52.24693, 52.24683, 52.2546, 52.25797, 52.26448, 52.27005, 52.27835, 52.2795, 52.27393, 
  52.27877, 52.30239, 52.31677, 52.32789, 52.33765, 52.33765, 52.33366, 52.33849, 52.32128, 52.32726, 
  52.3238, 52.32443, 52.31457, 52.32139, 52.32758, 52.32705, 52.30932, 52.30019, 52.30522, 52.30071, 
  52.29704, 52.28696, 52.27709, 52.26574, 52.25576, 52.25492, 52.24809, 52.25881, 52.25702, 52.26721, 
  52.25702, 52.26574, 52.25912, 52.2795, 52.27457, 52.27404, 52.26921, 52.25902, 52.24536, 52.24557, 
  52.25061, 52.27372, 52.27278, 52.28864, 52.29336, 52.30019, 52.30785, 52.31457, 52.31908, 52.326, 
  52.33135, 52.32632, 52.31518, 52.31529, 52.30731, 52.30311, 52.31015, 52.3261, 52.32463, 52.33837, 
  52.34173, 52.34634, 52.33868, 52.34099, 52.35756, 52.36615, 52.37276, 52.37391, 52.37946, 52.37926, 
  52.3736, 52.37475, 52.35714, 52.35001, 52.35578, 52.35116, 52.36364, 52.3607, 52.36154, 52.37045, 
  52.37213, 52.36804, 52.36102, 52.3606, 52.35011, 52.34204, 52.34917, 52.35295, 52.35724, 52.35756, 
  52.36521, 52.3562, 52.35798, 52.35483, 52.34676, 52.34288, 52.33365, 52.33071, 52.32284, 52.3156, 
  52.30994, 52.31172, 52.30574, 52.30752, 52.30437, 52.30238, 52.31172, 52.32137, 52.32379, 52.32232, 
  52.31046, 52.31078, 52.31875, 52.33479, 52.34213, 52.35021, 52.35556, 52.36384, 52.35335, 52.36656, 
  52.36635, 52.3609, 52.34759, 52.3329, 52.32031, 52.30636, 52.30804, 52.30174, 52.30867, 52.30478, 
  52.2947, 52.28494, 52.25794, 52.25006, 52.24754, 52.24397, 52.2345, 52.23083, 52.23472, 52.22599, 
  52.21032, 52.20159, 52.20127, 52.18117, 52.17128, 52.15485, 52.15485, 52.14137, 52.13842, 52.12293, 
  52.11681, 52.11239, 52.10996, 52.10553, 52.10184, 52.0932, 52.09098, 52.08486, 52.08497, 52.07305, 
  52.06978, 52.0703, 52.05563, 52.0417, 52.03589, 52.00483, 52.00663, 51.99923, 51.98285, 51.96783, 
  51.97101, 51.95895, 51.94583, 51.94011, 51.92805, 51.92043, 51.91301, 51.91609, 51.91047, 51.8948, 
  51.88908, 51.88155, 51.87827, 51.88802, 51.88728, 51.87106, 51.85908, 51.84477, 51.84371, 51.83597, 
  51.83586, 51.82557, 51.81719, 51.81029, 51.78683, 51.76399, 51.74869, 51.74284, 51.72977, 51.72934, 
  51.72201, 51.72233, 51.71531, 51.71786, 51.71222, 51.71531, 51.71339, 51.71711, 51.71967, 51.71988, 
  51.70414, 51.70605, 51.70084, 51.70318, 51.69648, 51.70414, 51.6935, 51.69733, 51.68594, 51.6902, 
  51.68786, 51.69094, 51.68871, 51.68945, 51.68435, 51.68488, 51.67966, 51.67817, 51.67211, 51.67136, 
  51.66572, 51.66114, 51.66657, 51.64964, 51.64879, 51.6425, 51.64463, 51.62513, 51.59688, 51.60083, 
  51.57382, 51.58385, 51.57766, 51.56913, 51.56144, 51.55376, 51.54522, 51.53326, 51.53412, 51.52429, 
  51.5213, 51.51254, 51.51105, 51.49267, 51.47385, 51.47685, 51.45182, 51.44241, 51.43748, 51.43149, 
  51.42871, 51.39982, 51.40186, 51.38365, 51.3904, 51.38815, 51.37508, 51.37283, 51.37979, 51.37261, 
  51.36576, 51.36104, 51.35879, 51.35107, 51.34314, 51.33713, 51.33563, 51.3322, 51.3293, 51.3307, 
  51.33477, 51.33627, 51.33381, 51.33981, 51.33466, 51.32276, 51.31847, 51.31042, 51.31096, 51.31321, 
  51.31503, 51.29818, 51.30216, 51.29207, 51.28455, 51.28208, 51.27489, 51.27682, 51.27381, 51.2693, 
  51.26533, 51.26339, 51.24792, 51.23836, 51.23997, 51.27403, 51.26683, 51.26264, 51.25652, 51.26168, 
  51.2448, 51.24211, 51.25253, 51.25285, 51.23394, 51.24609, 51.25382, 51.24995, 51.25114, 51.24673, 
  51.19771, 51.18081, 51.17177, 51.18243, 51.17909, 51.18071, 51.17715, 51.17457, 51.17791, 51.18533, 
  51.17533, 51.17662, 51.17285, 51.16876, 51.16941, 51.18329, 51.199, 51.19071, 51.19641, 51.19297, 
  51.20556, 51.20599, 51.21825, 51.21889, 51.22792, 51.23523, 51.23158, 51.22857, 51.23222, 51.21954, 
  51.21943, 51.20405, 51.2161, 51.2233, 51.23416, 51.22975, 51.23287, 51.22964, 51.23136, 51.22362, 
  51.22093, 51.21792, 51.20889, 51.20652, 51.20276, 51.19383, 51.1735, 51.17037, 51.16499, 51.15852, 
  51.1526, 51.14765, 51.13903, 51.13321, 51.12772, 51.12147, 51.11953, 51.10822, 51.10628, 51.10078, 
  51.10229, 51.09819, 51.0873, 51.09097, 51.08245, 51.08223, 51.07598, 51.06992, 51.06129, 51.05654, 
  51.05341, 51.05179, 51.04585, 51.06506, 51.05956, 51.06344, 51.05794, 51.05848, 51.06528, 51.07153, 
  51.07876, 51.07757, 51.0711, 51.06215, 51.06722, 51.06571, 51.05265, 51.05524, 51.04823, 51.0438, 
  51.04359, 51.03906, 51.03819, 51.03193, 51.02729, 51.01811, 51.01282, 51.00504, 51.00913, 51.01486, 
  51.01378, 51.00838, 51.00276, 50.99855, 50.99628, 50.99217, 50.98656, 50.9724, 50.96872, 50.96353, 
  50.96332, 50.95553, 50.94537, 50.93466, 50.93476, 50.93141, 50.93249, 50.92568, 50.92308, 50.92427, 
  50.91908, 50.91626, 50.91063, 50.90804, 50.90262, 50.89569, 50.88519, 50.87956, 50.87534, 50.87014, 
  50.86504, 50.86429, 50.8412, 50.82483, 50.80563, 50.79902, 50.79413, 50.78165, 50.78404, 50.77699, 
  50.75494, 50.75321, 50.74615, 50.73996, 50.73474, 50.72529, 50.71648, 50.70801, 50.70801, 50.70474, 
  50.70311, 50.69757, 50.69398, 50.6893, 50.68411, 50.6803, 50.68193, 50.67921, 50.67062, 50.65832, 
  50.65615, 50.66594, 50.65473, 50.65647, 50.64189, 50.63155, 50.6139, 50.61608, 50.60867, 50.60301, 
  50.5895, 50.57882, 50.5629, 50.54108, 50.53628, 50.52974, 50.52952, 50.52232, 50.51337, 50.50463, 
  50.50452, 50.48727, 50.48214, 50.47722, 50.46345, 50.45941, 50.45744, 50.45143, 50.45701, 50.45744, 
  50.45996, 50.46477, 50.45318, 50.44826, 50.4311, 50.43022, 50.3927, 50.3927, 50.38307, 50.37508, 
  50.3673, 50.35197, 50.35449, 50.35099, 50.35537, 50.35438, 50.36851, 50.39303, 50.41043, 50.4113, 
  50.41644, 50.43372, 50.42475, 50.42935, 50.42268, 50.43864, 50.4382, 50.43449, 50.437, 50.43033, 
  50.43372, 50.4358, 50.44083, 50.44302, 50.44586, 50.44575, 50.44968, 50.44892, 50.45132, 50.44662, 
  50.44892, 50.43897, 50.43766, 50.43175, 50.40944, 50.40156, 50.40638, 50.39544, 50.38635, 50.37125, 
  50.3638, 50.35394, 50.33598, 50.3248, 50.32316, 50.31592, 50.30507, 50.2986, 50.29937, 50.29147, 
  50.28752, 50.29257, 50.30003, 50.31, 50.3282, 50.33072, 50.3111, 50.31296, 50.29948, 50.29334, 
  50.28632, 50.28116, 50.28489, 50.28632, 50.27557, 50.27546, 50.26262, 50.26053, 50.25845, 50.25516, 
  50.25757, 50.25011, 50.22376, 50.2276, 50.21761, 50.22189, 50.23979, 50.25823, 50.26734, 50.26986, 
  50.26416, 50.26481, 50.2692, 50.27743, 50.27732, 50.28303, 50.27995, 50.28972, 50.28994, 50.29224, 
  50.30222, 50.30638, 50.31252, 50.31351, 50.32787, 50.33631, 50.33773, 50.35077, 50.34847, 50.34452, 
  50.34715, 50.3466, 50.35175, 50.35832, 50.36095, 50.35581, 50.37639, 50.37989, 50.40616, 50.42858, 
  50.437, 50.43766, 50.43077, 50.43471, 50.44476, 50.45416, 50.45952, 50.45744, 50.4452, 50.43127, 
  50.43109, 50.41807, 50.40724, 50.37824, 50.37539, 50.36839, 50.36685, 50.35612, 50.35196, 50.33564, 
  50.32972, 50.30593, 50.31591, 50.31438, 50.30232, 50.29332, 50.24022, 50.21737, 50.19122, 50.17617, 
  50.17067, 50.15175, 50.149, 50.14328, 50.1336, 50.128, 50.07877, 50.08428, 50.06764, 50.05453, 
  50.05067, 50.03403, 49.97842, 49.97632, 49.96352, 49.96727, 49.93292, 49.92585, 49.92021, 49.9096,
  49.90043,
  49.92343, 49.94254, 49.93083, 49.92199, 49.94177, 49.95193, 49.96242, 49.97009, 49.97959, 50.02174,
  50.0806, 50.07156, 50.08897, 50.08522, 50.05966, 50.03166, 50.00718, 49.98299, 50.00166, 49.99526,
  49.98312, 49.98091, 49.96369, 49.96369, 49.95927, 49.97774, 49.97605, 49.95596, 49.9723, 49.9734,
  50.00563, 50.00762, 49.98466, 49.9628, 49.93453, 49.92723, 49.89871, 49.89628, 49.87836, 49.88279,
  49.87792, 49.86487, 49.8704, 49.85734, 49.84561, 49.83675, 49.82014, 49.7971, 49.8002, 49.79754,
  49.82324, 49.81549, 49.84317, 49.86155, 49.88942, 49.84052, 49.8053, 49.76917, 49.76828, 49.75453,
  49.73856, 49.76096, 49.75719, 49.73789, 49.73412, 49.71858, 49.6157, 49.61259, 49.6048, 49.60658,
  49.59724, 49.55783, 49.56385, 49.55872, 49.57387, 49.59768, 49.6068, 49.59946, 49.61726, 49.59657,
  49.56897, 49.52018, 49.49789, 49.45327, 49.43787, 49.40884, 49.38515, 49.37577, 49.35766, 49.34692,
  49.28269, 49.26141, 49.24101, 49.23967, 49.18696, 49.18023, 49.08274, 49.0562, 49.06474, 49.05844,
  49.03977, 49.05102, 49.04089, 49.03459, 48.99969, 48.98933, 49.00127, 48.97491, 48.9891, 48.97761,
  48.95169, 48.94177, 48.93455, 48.92102, 48.90568, 48.89755, 48.88627, 48.90252, 48.90229, 48.89123,
  48.89597, 48.8743, 48.86798, 48.90162, 48.90207, 48.90974, 48.91493, 48.91042, 48.90387, 48.86843,
  48.79204, 48.84268, 48.80875, 48.79789, 48.76428, 48.77301, 48.75128, 48.74517, 48.72094, 48.68038,
  48.6695, 48.65522, 48.64841, 48.63525, 48.6087, 48.586, 48.58895, 48.581, 48.59372, 48.56691,
  48.50281, 48.50235, 48.46753, 48.44795, 48.44044, 48.42654, 48.4213, 48.40376, 48.3976, 48.39053,
  48.37389, 48.38718, 48.38529, 48.37184, 48.35769, 48.35404, 48.34492, 48.34994, 48.34697, 48.34172,
  48.33396, 48.33328, 48.30931, 48.30885, 48.30474, 48.2867, 48.2723, 48.27116, 48.29241, 48.29309,
  48.30337, 48.30451, 48.31387, 48.31776, 48.29949, 48.25333, 48.24144, 48.22315, 48.22864, 48.18079,
  48.18102, 48.14163, 48.11665, 48.07974, 48.06666, 48.0483, 48.04142, 48.04027, 48.01088, 48.00192,
  47.94952, 47.95044, 47.92698, 47.91961, 47.86828, 47.87058, 47.84755, 47.82704, 47.83833, 47.82542,
  47.83257, 47.82542, 47.85953, 47.85077, 47.83879, 47.83026, 47.87173, 47.87289, 47.86667, 47.86759,
  47.85354, 47.85377, 47.84617, 47.85239, 47.851, 47.84225, 47.84294, 47.85193, 47.85193, 47.86943,
  47.86965, 47.86961, 47.87307, 47.87502, 47.87237, 47.87514, 47.86754, 47.86581, 47.85153, 47.84899, 
  47.83551, 47.82676, 47.81534, 47.81558, 47.79586, 47.79159, 47.78433, 47.78467, 47.77833, 47.77533, 
  47.76645, 47.73667, 47.7354, 47.72131, 47.71923, 47.68469, 47.68561, 47.68053, 47.68056, 47.68712, 
  47.69093, 47.69971, 47.69856, 47.66955, 47.66932, 47.65475, 47.64469, 47.64434, 47.61739, 47.61681, 
  47.5756, 47.5756, 47.55452, 47.54502, 47.54455, 47.50839, 47.50491, 47.4773, 47.47452, 47.39207, 
  47.39184, 47.37324, 47.37324, 47.36441, 47.35208, 47.33626, 47.30531, 47.30647, 47.28086, 47.27178, 
  47.25663, 47.25663, 47.23915, 47.23915, 47.23379, 47.23076, 47.2149, 47.20441, 47.14023, 47.12294, 
  47.11933, 48.35152)
LONGITUDE_VALUEs <- c(
  37.61147, 31.7865, 31.79302, 31.79645, 31.82031, 31.84626, 31.86685, 31.87372, 31.89963, 31.90769, 
  31.93069, 31.94169, 31.95302, 31.96039, 31.95799, 31.94392, 31.9422, 31.92882, 31.92727, 31.92247, 
  31.91646, 31.92865, 31.92796, 31.91595, 31.91492, 31.91887, 31.91989, 31.92539, 31.93997, 31.9525, 
  31.96262, 32.02856, 32.044, 32.09583, 32.096, 32.13225, 32.13105, 32.14477, 32.14838, 32.19042, 
  32.19351, 32.2014, 32.20158, 32.20846, 32.20812, 32.21739, 32.22219, 32.22442, 32.24982, 32.29186, 
  32.29085, 32.29777, 32.29297, 32.3189, 32.3201, 32.32971, 32.33433, 32.36129, 32.36954, 32.36559, 
  32.33416, 32.32661, 32.32334, 32.32884, 32.32609, 32.34739, 32.32421, 32.32455, 32.34618, 32.35975, 
  32.38757, 32.39461, 32.40216, 32.38927, 32.38944, 32.38274, 32.38257, 32.39339, 32.38223, 32.37193, 
  32.3685, 32.36318, 32.35184, 32.3551, 32.37622, 32.38721, 32.39442, 32.40129, 32.43563, 32.46036, 
  32.46668, 32.47183, 32.49004, 32.49965, 32.50103, 32.55031, 32.57243, 32.57672, 32.60814, 32.61241, 
  32.62512, 32.63869, 32.66719, 32.68556, 32.69003, 32.69965, 32.7005, 32.7175, 32.72678, 32.75456, 
  32.76348, 32.79714, 32.81723, 32.83389, 32.85685, 32.88485, 32.88588, 32.87935, 32.88691, 32.907, 
  32.91078, 32.9621, 32.9961, 32.99867, 33.0191, 33.02442, 33.04503, 33.04279, 33.0584, 33.05394, 
  33.05944, 33.07283, 33.07249, 33.0615, 33.06064, 33.06768, 33.08279, 33.10443, 33.11009, 33.12913, 
  33.12896, 33.13669, 33.15541, 33.17035, 33.17067, 33.17479, 33.16843, 33.18904, 33.18904, 33.19539, 
  33.1966, 33.21428, 33.29152, 33.30663, 33.31333, 33.34613, 33.3609, 33.36399, 33.3712, 33.37395, 
  33.38421, 33.40516, 33.40104, 33.41701, 33.41529, 33.44688, 33.44723, 33.43967, 33.44293, 33.45221, 
  33.45427, 33.49287, 33.5085, 33.51931, 33.51485, 33.52017, 33.51159, 33.48927, 33.48876, 33.47914, 
  33.48858, 33.49854, 33.50438, 33.52464, 33.53306, 33.56002, 33.5662, 33.54439, 33.54491, 33.55367, 
  33.57908, 33.58234, 33.57754, 33.60788, 33.65888, 33.68206, 33.67776, 33.71571, 33.72513, 33.78506, 
  33.80478, 33.83826, 33.83826, 33.8556, 33.8386, 33.87448, 33.89629, 33.90625, 33.90882, 33.9229, 
  33.92565, 33.94452, 33.94332, 33.938, 33.96101, 33.95671, 33.96393, 33.97473, 33.98228, 34.00272, 
  33.99843, 34.01646, 34.05303, 34.06382, 34.0537, 34.07568, 34.09044, 34.11687, 34.11292, 34.11103, 
  34.1021, 34.0997, 34.08579, 34.08854, 34.08682, 34.10005, 34.09558, 34.09369, 34.08477, 34.0621, 
  34.06254, 34.08004, 34.0833, 34.10133, 34.0912, 34.09601, 34.12537, 34.14115, 34.12931, 34.14373, 
  34.18783, 34.19059, 34.20346, 34.2026, 34.2256, 34.21873, 34.23248, 34.24913, 34.26079, 34.25307, 
  34.25942, 34.24467, 34.2632, 34.27538, 34.30232, 34.32844, 34.36293, 34.36911, 34.38712, 34.38869, 
  34.39916, 34.41495, 34.41117, 34.41787, 34.4062, 34.43607, 34.43504, 34.44105, 34.43314, 34.42388, 
  34.42336, 34.41427, 34.39951, 34.39179, 34.36468, 34.34782, 34.33959, 34.31505, 34.31213, 34.30818, 
  34.29068, 34.27972, 34.25963, 34.25039, 34.23477, 34.2157, 34.20248, 34.19218, 34.15869, 34.15595, 
  34.14739, 34.14361, 34.13606, 34.12799, 34.12593, 34.11545, 34.11185, 34.10034, 34.09656, 34.08832, 
  34.07973, 34.08935, 34.10532, 34.10842, 34.12954, 34.12902, 34.168, 34.17984, 34.1819, 34.2116, 
  34.21655, 34.23681, 34.24987, 34.24334, 34.25742, 34.25055, 34.25983, 34.25914, 34.2962, 34.29448, 
  34.30857, 34.30685, 34.29002, 34.29792, 34.28349, 34.26701, 34.24504, 34.25603, 34.24538, 34.24676, 
  34.2234, 34.22721, 34.2473, 34.27151, 34.27855, 34.29298, 34.28471, 34.29776, 34.30428, 34.30772, 
  34.33828, 34.33004, 34.33949, 34.33417, 34.3158, 34.31957, 34.31219, 34.31734, 34.31562, 34.3103, 
  34.31116, 34.30549, 34.29897, 34.28832, 34.28128, 34.28969, 34.28128, 34.28162, 34.27784, 34.27784, 
  34.27252, 34.26635, 34.25828, 34.23785, 34.243, 34.25536, 34.25159, 34.2454, 34.23029, 34.2339, 
  34.22892, 34.24489, 34.28661, 34.30585, 34.33109, 34.38445, 34.4145, 34.41278, 34.43871, 34.44558, 
  34.48437, 34.51322, 34.52297, 34.541, 34.57964, 34.60059, 34.60231, 34.61927, 34.63129, 34.66357, 
  34.66821, 34.68828, 34.71696, 34.73121, 34.73739, 34.75439, 34.7592, 34.77174, 34.77998, 34.78307, 
  34.80039, 34.80915, 34.80794, 34.81876, 34.83508, 34.83387, 34.86322, 34.87455, 34.88382, 34.89911, 
  34.90855, 34.93428, 34.94149, 34.95265, 34.95076, 34.97994, 34.98286, 34.99402, 35.00879, 35.0268, 
  35.03779, 35.03865, 35.06372, 35.06149, 35.073, 35.08399, 35.10528, 35.11744, 35.12019, 35.15007, 
  35.15041, 35.13856, 35.13616, 35.14371, 35.14337, 35.13015, 35.13049, 35.13547, 35.12259, 35.12774, 
  35.14234, 35.13375, 35.14405, 35.14113, 35.1667, 35.17426, 35.16722, 35.1619, 35.16533, 35.16464, 
  35.17151, 35.17718, 35.17323, 35.15555, 35.1473, 35.16551, 35.16654, 35.17786, 35.18284, 35.19022, 
  35.19039, 35.20258, 35.21151, 35.24809, 35.25942, 35.26492, 35.26629, 35.27642, 35.27778, 35.30199, 
  35.30336, 35.32826, 35.32551, 35.35056, 35.36155, 35.37632, 35.38714, 35.39555, 35.40583, 35.40549, 
  35.4091, 35.41064, 35.40429, 35.40085, 35.40995, 35.38265, 35.38283, 35.35896, 35.33254, 35.32499, 
  35.32224, 35.32945, 35.33134, 35.33735, 35.3298, 35.33219, 35.3449, 35.35125, 35.34335, 35.34284, 
  35.33562, 35.33477, 35.32636, 35.33322, 35.34439, 35.34885, 35.37238, 35.36653, 35.37374, 35.39332, 
  35.39195, 35.39949, 35.4012, 35.39605, 35.40395, 35.37991, 35.38849, 35.4024, 35.3866, 35.38248, 
  35.39175, 35.40549, 35.42026, 35.4194, 35.40961, 35.41425, 35.43365, 35.45132, 35.47571, 35.48945, 
  35.47296, 35.47656, 35.46969, 35.47416, 35.46369, 35.47296, 35.46729, 35.46678, 35.46248, 35.45905, 
  35.46129, 35.45991, 35.46403, 35.45957, 35.46437, 35.47227, 35.47725, 35.49614, 35.48704, 35.48892, 
  35.48568, 35.46234, 35.42613, 35.39985, 35.39076, 35.40277, 35.41135, 35.42113, 35.4189, 35.42559, 
  35.39933, 35.39144, 35.428, 35.43984, 35.4347, 35.43538, 35.44602, 35.44431, 35.45821, 35.45821, 
  35.46388, 35.47727, 35.50335, 35.50766, 35.537, 35.53683, 35.5533, 35.56274, 35.57201, 35.5612, 
  35.5612, 35.56875, 35.57939, 35.58745, 35.58712, 35.58318, 35.58352, 35.5945, 35.59656, 35.61184, 
  35.60139, 35.62696, 35.62868, 35.65888, 35.67209, 35.73854, 35.75638, 35.79827, 35.80788, 35.79536, 
  35.79278, 35.83129, 35.83542, 35.85482, 35.87319, 35.88813, 35.90612, 35.91283, 35.92243, 35.9348, 
  35.93875, 35.96931, 35.9767, 35.99864, 36.00379, 36.02268, 36.04054, 36.04621, 36.06853, 36.06922, 
  36.08656, 36.11144, 36.13531, 36.16107, 36.17015, 36.17685, 36.1844, 36.20552, 36.21031, 36.23212, 
  36.23263, 36.2582, 36.28396, 36.27314, 36.28053, 36.27623, 36.28602, 36.28568, 36.29907, 36.29529, 
  36.36329, 36.37973, 36.3751, 36.40618, 36.4242, 36.43348, 36.43966, 36.48671, 36.49819, 36.52618, 
  36.52223, 36.55622, 36.56085, 36.58438, 36.59399, 36.57493, 36.58008, 36.57424, 36.57836, 36.57424, 
  36.56961, 36.56033, 36.61115, 36.61974, 36.64979, 36.6649, 36.68119, 36.68343, 36.68841, 36.69459, 
  36.69905, 36.70541, 36.70592, 36.71964, 36.72943, 36.73922, 36.75004, 36.75141, 36.77167, 36.76429, 
  36.76892, 36.80065, 36.80941, 36.83414, 36.85198, 36.87001, 36.88581, 36.93423, 37.03894, 37.0446, 
  37.05989, 37.07083, 37.10569, 37.10277, 37.14004, 37.14914, 37.22466, 37.2226, 37.30056, 37.31204, 
  37.33076, 37.35171, 37.39461, 37.42295, 37.43461, 37.47187, 37.47599, 37.4911, 37.48441, 37.48379, 
  37.465, 37.46157, 37.46672, 37.4662, 37.47169, 37.47117, 37.47701, 37.48457, 37.50515, 37.52112, 
  37.55564, 37.57692, 37.58825, 37.63359, 37.63788, 37.62483, 37.62687, 37.61211, 37.64335, 37.63923, 
  37.65176, 37.66979, 37.68042, 37.68711, 37.71047, 37.707, 37.75545, 37.79787, 37.8253, 37.86548, 
  37.89296, 37.9271, 37.96539, 37.98116, 37.99937, 38.00624, 38.0447, 38.02014, 38.02495, 38.02134,
  38.03326,
  38.05528, 38.12514, 38.12875, 38.12531, 38.17116, 38.16326, 38.19864, 38.19572, 38.22113, 38.18679,
  38.17958, 38.26784, 38.31283, 38.32959, 38.33337, 38.35397, 38.34985, 38.41676, 38.43296, 38.46765,
  38.46417, 38.48272, 38.48787, 38.50985, 38.52565, 38.5839, 38.61254, 38.64826, 38.66706, 38.68217,
  38.67601, 38.68665, 38.71997, 38.68495, 38.69285, 38.72444, 38.73956, 38.76802, 38.7852, 38.79893,
  38.82984, 38.83774, 38.90094, 38.91464, 38.90365, 38.9143, 38.90674, 38.92906, 38.93731, 38.95139,
  39.03134, 39.06672, 39.11787, 39.12811, 39.18167, 39.22596, 39.22768, 39.25995, 39.27608, 39.2881,
  39.38011, 39.43676, 39.47521, 39.54662, 39.61323, 39.59126, 39.6534, 39.68773, 39.69528, 39.71657,
  39.75159, 39.80549, 39.83879, 39.88995, 39.93561, 39.95106, 40.05783, 40.06367, 40.13611, 40.13817,
  40.17044, 40.0362, 40.04307, 40.02796, 40.05852, 40.07843, 40.11551, 40.1543, 40.16701, 40.19997,
  40.18074, 40.22743, 40.21061, 40.13439, 40.07637, 40.02865, 39.93767, 39.94076, 39.87587, 39.80068,
  39.76635, 39.69185, 39.67091, 39.68601, 39.66541, 39.67743, 39.70009, 39.72618, 39.74987, 39.74987,
  39.77459, 39.76978, 39.78283, 39.77425, 39.82162, 39.81922, 39.83089, 39.83467, 39.84669, 39.8539,
  39.92496, 39.95037, 39.99294, 40.00393, 40.02144, 40.02007, 40.03792, 40.05817, 40.05852, 40.07706,
  39.97372, 39.79965, 39.7794, 39.78626, 39.76601, 39.74747, 39.72721, 39.73991, 39.70627, 39.71931,
  39.70112, 39.71451, 39.68945, 39.69425, 39.6582, 39.68739, 39.75021, 39.75124, 39.78764, 39.85355,
  39.86763, 39.84634, 39.84634, 39.8975, 39.88857, 39.89578, 39.91226, 39.90471, 39.9205, 39.90471,
  39.9284, 39.93668, 39.94453, 39.93458, 39.93389, 39.94591, 39.94144, 39.9308, 39.9181, 39.91879,
  39.87827, 39.8436, 39.84085, 39.88754, 39.88651, 39.91501, 39.91261, 39.92565, 39.93767, 39.94968,
  39.95037, 39.96891, 39.97337, 39.99157, 39.99363, 40.02041, 40.00668, 40.00942, 39.9435, 39.93698,
  39.91089, 39.9054, 39.87072, 39.86969, 39.83227, 39.88411, 39.88411, 39.77562, 39.79176, 39.81338,
  39.82368, 39.80652, 39.80206, 39.79313, 39.79382, 39.76257, 39.7636, 39.73373, 39.56757, 39.54147,
  39.53564, 39.52087, 39.4759, 39.43676, 39.43676, 39.41032, 39.38698, 39.34887, 39.35059, 39.23489,
  39.23351, 39.1803, 39.17068, 39.16107, 39.15043, 39.14906, 39.10889, 39.10923, 39.08348, 39.08348,
  39.07412, 38.9541, 38.94328, 38.91306, 38.90705, 38.87872, 38.8782, 38.84304, 38.84304, 38.82707, 
  38.82451, 38.83206, 38.82811, 38.78965, 38.78982, 38.78364, 38.78604, 38.79222, 38.78913, 38.79703, 
  38.78897, 38.78965, 38.77695, 38.77076, 38.77248, 38.77214, 38.74759, 38.74347, 38.73518, 38.73935, 
  38.72921, 38.73677, 38.66519, 38.66536, 38.6293, 38.62983, 38.61524, 38.4568, 38.45646, 38.35037, 
  38.34987, 38.31072, 38.3114, 38.30522, 38.28496, 38.28496, 38.29459, 38.28738, 38.30387, 38.30284, 
  38.28739, 38.28636, 38.25751, 38.24406, 38.24955, 38.22449, 38.22105, 38.33675, 38.32268, 38.33332, 
  38.32645, 38.28835, 38.28869, 38.26088, 38.25367, 38.23307, 38.24234, 38.23479, 38.23616, 38.22758, 
  38.23005, 41.81794)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_2, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_0 <- st_union(Geo_0)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, st_union(Geo_0[c(1:239)]))
Geo_2 <- st_union(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("UKRAINE", "RUSSIAN FEDERATION"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, MGeo_1, MGeo_2, MGeo_3)

KULA KHARI (also known as KULA KANGRI) is included in CHINA in GeoDATA.

KULA KHARI is a Chinese Territory.

5 Areas are included in BHUTAN/CHINA in GeoDATA:

  • SHAKHATOE | DRAMANA
  • SINCHULUNGPA | LANGMARPO CHU
  • BJI GEWOJ
  • CHARITHANG CHU | YAK CHU
  • DOKLAM PLATEAU

5 Areas are Bhutanese Territories (Claimed by CHINA):

  • SHAKHATOE | DRAMANA
  • SINCHULUNGPA | LANGMARPO CHU
  • BJI GEWOJ
  • CHARITHANG CHU | YAK CHU
  • DOKLAM PLATEAU
################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "BHUTAN")
Geo_2 <- GeoDATA %>% filter(NAME == "CHINA")
Geo_3 <- GeoDATA %>% filter(NAME == "INDIA")

##### BHUTAN #####
LATITUDE_VALUEs <- c(
  26.71502, 26.70213, 26.73464, 26.7236, 26.73709, 26.73403, 26.74047, 26.71701, 26.72636, 26.72222, 
  26.72835, 26.74001, 26.74583, 26.77495, 26.78323, 26.78016, 26.79932, 26.81311, 26.81296, 26.803, 
  26.80315, 26.81862, 26.83027, 26.84053, 26.83701, 26.84206, 26.86258, 26.84482, 26.85248, 26.83134, 
  26.82644, 26.82919, 26.81541, 26.82138, 26.81081, 26.81878, 26.80621, 26.8246, 26.84329, 26.86151, 
  26.87223, 26.8903, 26.90362, 26.89826, 26.91265, 26.92198, 26.9229, 26.9402, 26.91755, 26.93331, 
  26.94892, 26.96973, 26.99359, 26.94509, 26.95795, 26.98656, 26.99329, 27.03274, 27.03978, 27.04146, 
  27.0595, 27.10978, 27.1081, 27.12674, 27.13942, 27.13469, 27.13591, 27.14385, 27.14966, 27.15348, 
  27.15852, 27.16524, 27.17867, 27.18463, 27.1828, 27.18982, 27.19288, 27.21898, 27.24829, 27.25714, 
  27.26416, 27.26538, 27.26294, 27.27072, 27.27041, 27.27453, 27.27255, 27.27392, 27.27865, 27.2814, 
  27.29086, 27.29879, 27.30123, 27.30474, 27.30718, 27.31664, 27.31847, 27.32472, 27.3264,
  27.3274, 27.33061, 27.33357, 27.33617, 27.33545, 27.3369, 27.33474, 27.31995, 27.31771, 27.31225, 
  27.30502, 27.31589, 27.32696, 27.34688, 27.35542, 27.3633, 27.3878, 27.39858, 27.4017, 27.41787, 
  27.41981, 27.42735, 27.43134, 27.44157, 27.44383, 27.45043, 27.46039, 27.47325, 27.48747, 27.49253, 
  27.5009, 27.49755, 27.50335, 27.51761, 27.52947, 27.54838, 27.55965, 27.56691, 27.58111, 27.58762, 
  27.59081, 27.60027, 27.60124, 27.60957, 27.6108, 27.60513, 27.6132, 27.61519, 27.61793, 27.61563, 
  27.61664, 27.61478, 27.61453, 27.62698, 27.63276, 27.63763, 27.64827, 27.65952, 27.66591, 27.66652, 
  27.67275, 27.67458, 27.68263, 27.6878, 27.69495, 27.70163, 27.72184, 27.72245, 27.73279, 27.73932, 
  27.74707, 27.76059, 27.78428, 27.78459, 27.80357, 27.8022, 27.81298, 27.82801, 27.82801, 27.83818, 
  27.84152, 27.85154, 27.85655, 27.85351, 27.85989)
LONGITUDE_VALUEs <- c(
  89.82639, 89.77263, 89.75274, 89.72853, 89.6983, 89.69006, 89.67464, 89.65712, 89.63548, 89.62604, 
  89.61762, 89.62173, 89.63771, 89.65162, 89.63221, 89.62675, 89.56561, 89.55977, 89.51104, 89.49971, 
  89.4657, 89.44904, 89.45076, 89.43925, 89.42745, 89.39018, 89.38159, 89.32667, 89.32084, 89.28116, 
  89.27859, 89.27515, 89.26227, 89.23896, 89.19414, 89.1761, 89.13217, 89.11483, 89.10024, 89.10384, 
  89.09285, 89.09649, 89.07038, 89.04702, 89.05064, 89.04549, 89.03003, 89.02213, 88.98051, 88.9443, 
  88.95374, 88.95236, 88.92095, 88.87889, 88.87185, 88.87426, 88.87065, 88.87718, 88.88095, 88.87632, 
  88.87907, 88.8705, 88.85125, 88.81143, 88.80387, 88.78859, 88.76542, 88.7462, 88.75032, 88.76079, 
  88.75667, 88.75718, 88.76474, 88.78019, 88.78791, 88.79014, 88.7886, 88.80319, 88.802, 88.8262, 
  88.83084, 88.86413, 88.87769, 88.89537, 88.89811, 88.89948, 88.90326, 88.90584, 88.90944, 88.90859, 
  88.91373, 88.91099, 88.90704, 88.90738, 88.91305, 88.91562, 88.9194, 88.91957, 88.92129,
  88.92094, 88.92707, 88.92626, 88.92979, 88.93321, 88.9361, 88.94118, 88.95227, 88.95669, 88.95881, 
  88.97253, 88.98117, 89.00486, 88.99618, 88.97747, 88.98019, 88.97489, 88.96979, 88.96445, 88.97465, 
  88.9795, 88.97865, 88.97453, 88.97865, 88.98521, 88.98624, 88.99196, 88.98849, 88.97797, 88.98814, 
  88.99412, 89.00569, 89.00742, 88.99566, 89.00154, 89.04063, 89.03107, 89.0378, 89.0334, 89.03716, 
  89.04703, 89.05251, 89.06217, 89.07305, 89.08553, 89.10547, 89.1096, 89.11759, 89.11959, 89.12187, 
  89.12432, 89.12555, 89.12744, 89.13333, 89.12921, 89.1438, 89.14002, 89.15977, 89.16303, 89.17127, 
  89.17436, 89.18139, 89.17659, 89.18534, 89.1838, 89.19324, 89.19736, 89.21761, 89.22962, 89.22018, 
  89.22672, 89.22054, 89.22586, 89.23135, 89.23667, 89.24492, 89.26757, 89.26774, 89.27409, 89.28182, 
  89.28886, 89.29572, 89.30842, 89.32919, 89.33434)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_1, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, Geo_0[26])
Geo_1 <- st_union(Geo_1, Geo) %>%
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
                                                         
##### CHINA #####
Geo_0 <- Geometric_Operations(Geo_2, Geo_1)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0))
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  27.88115, 27.88145, 27.88828, 27.9209, 27.92666, 27.93273, 27.93803, 27.9488, 27.96594, 27.95881, 
  27.95896, 27.94941, 27.94971, 27.94304, 27.94349, 27.94016, 27.95835, 27.96442, 27.96184, 27.97048, 
  27.94228, 27.94637, 27.95684, 27.95471, 27.9673, 27.96563, 27.97245, 27.977, 27.98049, 27.97533, 
  27.98473, 27.99095, 27.97685, 27.9814, 27.99792, 28.01581, 28.01717, 28.03763, 28.04672, 28.05535, 
  28.04232, 28.04369, 28.03672, 28.03399, 28.03914, 28.04793, 28.07459, 28.08125, 28.09125, 28.08352, 
  28.08928, 28.08943, 28.11033, 28.11502, 28.12274, 28.10155, 28.08928, 28.07595, 28.07186, 28.07913, 
  28.07807, 28.07217, 28.08034, 28.05399, 28.04914, 28.02611, 28.01656, 27.98686, 27.96988, 27.95578, 
  27.92939, 27.92772, 27.92014, 27.90209, 27.89268, 27.87113, 27.85748, 27.84867, 27.83243, 27.81755, 
  27.79432, 27.78248, 27.75422, 27.75392, 27.74283, 27.73949, 27.71639, 27.71259, 27.70484, 27.70393, 
  27.69451, 27.68377, 27.67566, 27.66638, 27.64373, 27.6489, 27.62472, 27.61863, 27.60875, 27.59673, 
  27.58654, 27.57512, 27.56767, 27.55747, 27.53068, 27.53129, 27.48135, 27.47557, 27.47008, 27.45211, 
  27.44723, 27.42773, 27.4288, 27.42271, 27.42347, 27.40488, 27.40549, 27.39406, 27.37973, 27.38552, 
  27.38613, 27.36936, 27.35961, 27.35259, 27.35091, 27.34497, 27.3285, 27.3314,
  27.3274, 27.33061, 27.33357, 27.33617, 27.33545, 27.3369, 27.33474, 27.31995, 27.31771, 27.31225, 
  27.30502, 27.31589, 27.32696, 27.34688, 27.35542, 27.3633, 27.3878, 27.39858, 27.4017, 27.41787, 
  27.41981, 27.42735, 27.43134, 27.44157, 27.44383, 27.45043, 27.46039, 27.47325, 27.48747, 27.49253, 
  27.5009, 27.49755, 27.50335, 27.51761, 27.52947, 27.54838, 27.55965, 27.56691, 27.58111, 27.58762, 
  27.59081, 27.60027, 27.60124, 27.60957, 27.6108, 27.60513, 27.6132, 27.61519, 27.61793, 27.61563, 
  27.61664, 27.61478, 27.61453, 27.62698, 27.63276, 27.63763, 27.64827, 27.65952, 27.66591, 27.66652, 
  27.67275, 27.67458, 27.68263, 27.6878, 27.69495, 27.70163, 27.72184, 27.72245, 27.73279, 27.73932, 
  27.74707, 27.76059, 27.78428, 27.78459, 27.80357, 27.8022, 27.81298, 27.82801, 27.82801, 27.83818, 
  27.84152, 27.85154, 27.85655, 27.85351, 27.85989, 28.26939, 27.99978)
LONGITUDE_VALUEs <- c(
  88.12665, 88.13456, 88.13817, 88.1167, 88.13044, 88.12975, 88.13714, 88.13109, 88.1438, 88.15359, 
  88.16355, 88.17283, 88.17901, 88.18554, 88.19653, 88.207, 88.20511, 88.21164, 88.22349, 88.23706, 
  88.25022, 88.26259, 88.26328, 88.27994, 88.28612, 88.30261, 88.31463, 88.31514, 88.3213, 88.33108, 
  88.33555, 88.37454, 88.38948, 88.41369, 88.41469, 88.45677, 88.46897, 88.47459, 88.49057, 88.49692, 
  88.50963, 88.52028, 88.52371, 88.54501, 88.55325, 88.54999, 88.55736, 88.55444, 88.56694, 88.58274, 
  88.59099, 88.60164, 88.61005, 88.62465, 88.6365, 88.64509, 88.66446, 88.66653, 88.67923, 88.68507, 
  88.71461, 88.73024, 88.75528, 88.77744, 88.79169, 88.80747, 88.83478, 88.84284, 88.84009, 88.84336, 
  88.83339, 88.85984, 88.86842, 88.87048, 88.8813, 88.87855, 88.88825, 88.8807, 88.88275, 88.85804, 
  88.86079, 88.85478, 88.85581, 88.86216, 88.86748, 88.8589, 88.85632, 88.84071, 88.83779, 88.84294, 
  88.84843, 88.84244, 88.84843, 88.84809, 88.82543, 88.81582, 88.80449, 88.81135, 88.80638, 88.80757, 
  88.788, 88.79281, 88.76226, 88.77238, 88.77736, 88.79247, 88.78097, 88.78269, 88.77685, 88.78389, 
  88.79247, 88.79487, 88.79899, 88.80071, 88.80672, 88.80603, 88.82045, 88.82114, 88.83848, 88.84518, 
  88.8632, 88.86303, 88.88242, 88.8807, 88.88499, 88.88174, 88.90663, 88.91624,
  88.92094, 88.92707, 88.92626, 88.92979, 88.93321, 88.9361, 88.94118, 88.95227, 88.95669, 88.95881, 
  88.97253, 88.98117, 89.00486, 88.99618, 88.97747, 88.98019, 88.97489, 88.96979, 88.96445, 88.97465, 
  88.9795, 88.97865, 88.97453, 88.97865, 88.98521, 88.98624, 88.99196, 88.98849, 88.97797, 88.98814, 
  88.99412, 89.00569, 89.00742, 88.99566, 89.00154, 89.04063, 89.03107, 89.0378, 89.0334, 89.03716, 
  89.04703, 89.05251, 89.06217, 89.07305, 89.08553, 89.10547, 89.1096, 89.11759, 89.11959, 89.12187, 
  89.12432, 89.12555, 89.12744, 89.13333, 89.12921, 89.1438, 89.14002, 89.15977, 89.16303, 89.17127, 
  89.17436, 89.18139, 89.17659, 89.18534, 89.1838, 89.19324, 89.19736, 89.21761, 89.22962, 89.22018, 
  89.22672, 89.22054, 89.22586, 89.23135, 89.23667, 89.24492, 89.26757, 89.26774, 89.27409, 89.28182, 
  89.28886, 89.29572, 89.30842, 89.32919, 89.33434, 89.12261, 87.94106)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_2, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, st_union(Geo_0[c(1:138, 159)]))
Geo_2 <- st_union(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

##### INDIA #####
Geo_0 <- Geometric_Operations(Geo_3, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0))
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(
  27.88828, 27.9209, 27.92666, 27.93273, 27.93803, 27.9488, 27.96594, 27.95881, 27.95896, 27.94941, 
  27.94971, 27.94304, 27.94349, 27.94016, 27.95835, 27.96442, 27.96184, 27.97048, 27.94228, 27.94637, 
  27.95684, 27.95471, 27.9673, 27.96563, 27.97245, 27.977, 27.98049, 27.97533, 27.98473, 27.99095, 
  27.97685, 27.9814, 27.99792, 28.01581, 28.01717, 28.03763, 28.04672, 28.05535, 28.04232, 28.04369, 
  28.03672, 28.03399, 28.03914, 28.04793, 28.07459, 28.08125, 28.09125, 28.08352, 28.08928, 28.08943, 
  28.11033, 28.11502, 28.12274, 28.10155, 28.08928, 28.07595, 28.07186, 28.07913, 28.07807, 28.07217, 
  28.08034, 28.05399, 28.04914, 28.02611, 28.01656, 27.98686, 27.96988, 27.95578, 27.92939, 27.92772, 
  27.92014, 27.90209, 27.89268, 27.87113, 27.85748, 27.84867, 27.83243, 27.81755, 27.79432, 27.78248, 
  27.75422, 27.75392, 27.74283, 27.73949, 27.71639, 27.71259, 27.70484, 27.70393, 27.69451, 27.68377, 
  27.67566, 27.66638, 27.64373, 27.6489, 27.62472, 27.61863, 27.60875, 27.59673, 27.58654, 27.57512, 
  27.56767, 27.55747, 27.53068, 27.53129, 27.48135, 27.47557, 27.47008, 27.45211, 27.44723, 27.42773, 
  27.4288, 27.42271, 27.42347, 27.40488, 27.40549, 27.39406, 27.37973, 27.38552, 27.38613, 27.36936, 
  27.35961, 27.35259, 27.35091, 27.34497, 27.3285, 27.3314, 27.3274,
  27.3264, 27.32472, 27.31847, 27.31664, 27.30718, 27.30474, 27.30123, 27.29879, 27.29086, 27.2814, 
  27.27865, 27.27392, 27.27255, 27.27453, 27.27041, 27.27072, 27.26294, 27.26538, 27.26416, 27.25714, 
  27.24829, 27.21898, 27.19288, 27.18982, 27.1828, 27.18463, 27.17867, 27.16524, 27.15852, 27.15348, 
  27.14966, 27.14385, 27.13591, 27.13469, 27.13942, 27.12674, 27.1081, 27.10978, 27.0595, 27.04146, 
  27.03978, 27.03274, 26.99329, 26.98656, 26.95795, 26.94509, 26.99359, 26.96973, 26.94892, 26.93331, 
  26.91755, 26.9402, 26.9229, 26.92198, 26.91265, 26.89826, 26.90362, 26.8903, 26.87223, 26.86151, 
  26.84329, 26.8246, 26.80621, 26.81878, 26.81081, 26.82138, 26.81541, 26.82919, 26.82644, 26.83134, 
  26.85248, 26.84482, 26.86258, 26.84206, 26.83701, 26.84053, 26.83027, 26.81862, 26.80315, 26.803, 
  26.81296, 26.81311, 26.79932, 26.78016, 26.78323, 26.77495, 26.74583, 26.74001, 26.72835, 26.72222, 
  26.72636, 26.71701, 26.74047, 26.73403, 26.73709, 26.7236, 26.73464, 26.70213, 
  26.33919, 27.05935, 27.86307)
LONGITUDE_VALUEs <- c(
  88.13817, 88.1167, 88.13044, 88.12975, 88.13714, 88.13109, 88.1438, 88.15359, 88.16355, 88.17283, 
  88.17901, 88.18554, 88.19653, 88.207, 88.20511, 88.21164, 88.22349, 88.23706, 88.25022, 88.26259, 
  88.26328, 88.27994, 88.28612, 88.30261, 88.31463, 88.31514, 88.3213, 88.33108, 88.33555, 88.37454, 
  88.38948, 88.41369, 88.41469, 88.45677, 88.46897, 88.47459, 88.49057, 88.49692, 88.50963, 88.52028, 
  88.52371, 88.54501, 88.55325, 88.54999, 88.55736, 88.55444, 88.56694, 88.58274, 88.59099, 88.60164, 
  88.61005, 88.62465, 88.6365, 88.64509, 88.66446, 88.66653, 88.67923, 88.68507, 88.71461, 88.73024, 
  88.75528, 88.77744, 88.79169, 88.80747, 88.83478, 88.84284, 88.84009, 88.84336, 88.83339, 88.85984, 
  88.86842, 88.87048, 88.8813, 88.87855, 88.88825, 88.8807, 88.88275, 88.85804, 88.86079, 88.85478, 
  88.85581, 88.86216, 88.86748, 88.8589, 88.85632, 88.84071, 88.83779, 88.84294, 88.84843, 88.84244, 
  88.84843, 88.84809, 88.82543, 88.81582, 88.80449, 88.81135, 88.80638, 88.80757, 88.788, 88.79281, 
  88.76226, 88.77238, 88.77736, 88.79247, 88.78097, 88.78269, 88.77685, 88.78389, 88.79247, 88.79487, 
  88.79899, 88.80071, 88.80672, 88.80603, 88.82045, 88.82114, 88.83848, 88.84518, 88.8632, 88.86303, 
  88.88242, 88.8807, 88.88499, 88.88174, 88.90663, 88.91624, 88.92094,
  88.92129, 88.91957, 88.9194, 88.91562, 88.91305, 88.90738, 88.90704, 88.91099, 88.91373, 88.90859, 
  88.90944, 88.90584, 88.90326, 88.89948, 88.89811, 88.89537, 88.87769, 88.86413, 88.83084, 88.8262, 
  88.802, 88.80319, 88.7886, 88.79014, 88.78791, 88.78019, 88.76474, 88.75718, 88.75667, 88.76079, 
  88.75032, 88.7462, 88.76542, 88.78859, 88.80387, 88.81143, 88.85125, 88.8705, 88.87907, 88.87632, 
  88.88095, 88.87718, 88.87065, 88.87426, 88.87185, 88.87889, 88.92095, 88.95236, 88.95374, 88.9443, 
  88.98051, 89.02213, 89.03003, 89.04549, 89.05064, 89.04702, 89.07038, 89.09649, 89.09285, 89.10384, 
  89.10024, 89.11483, 89.13217, 89.1761, 89.19414, 89.23896, 89.26227, 89.27515, 89.27859, 89.28116, 
  89.32084, 89.32667, 89.38159, 89.39018, 89.42745, 89.43925, 89.45076, 89.44904, 89.4657, 89.49971, 
  89.51104, 89.55977, 89.56561, 89.62675, 89.63221, 89.65162, 89.63771, 89.62173, 89.61762, 89.62604, 
  89.63548, 89.65712, 89.67464, 89.69006, 89.6983, 89.72853, 89.75274, 89.77263, 
  89.44745, 88.45546, 88.54901)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_3, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_3 <- st_set_geometry(Geo_3, st_union(Geo_0[1:40]))
Geo_3 <- st_union(Geo_3, Geo)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("BHUTAN", "CHINA", "INDIA"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3)

SHEBAA FARMS (also known as SHEBA’A FARMS | MOUNT DOV) is included in ISRAEL in GeoDATA.

SHEBAA FARMS is an area claimed by ISRAEL and by LEBANON.

SHEBAA FARMS has been controlled by ISRAEL since 1967.

RINCÓN DE ARTIGAS is included in BRAZIL in GeoDATA.

RINCÓN DE ARTIGAS is an area claimed by BRAZIL and by URUGUAY.

RINCÓN DE ARTIGAS has been controlled by BRAZIL since 1861.

ŠARENGRAD ISLAND is included in SERBIA in GeoDATA.

ŠARENGRAD ISLAND is claimed by CROATIA and SERBIA.

ŠARENGRAD ISLAND has been controlled by SERBIA since 1991.

VUKOVAR ISLAND is included in CROATIA in GeoDATA.

VUKOVAR ISLAND is claimed by CROATIA and SERBIA.

VUKOVAR ISLAND has been controlled by SERBIA since 1991.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "SERBIA")
Geo_2 <- GeoDATA %>% filter(NAME == "CROATIA")
Geo_3 <- GeoDATA %>% filter(NAME == "BOSNIA AND HERZEGOVINA")
Geo_4 <- GeoDATA %>% filter(NAME == "HUNGARY")

##### SERBIA #####
LATITUDE_VALUEs <- c(
  46.12632, 46.11585, 46.11977, 46.12644, 46.12965, 46.1237, 46.12965, 46.13548, 46.14428, 46.15986, 
  46.14297, 46.16533, 46.17603, 46.17722, 46.14452, 46.14844, 46.14416, 46.14654, 46.17317, 46.17638, 
  46.17603, 46.16378, 46.15998, 46.15118, 46.14975, 46.14059, 46.1281, 46.13155, 46.135, 46.1394, 
  46.13964, 46.1444, 46.14606, 46.16996, 46.1683, 46.17175, 46.17591, 46.18803, 46.17959, 46.18969, 
  46.16901, 46.17876, 46.16343, 46.14832, 46.15189, 46.14202, 46.1375, 46.13358, 46.12073, 46.09371, 
  46.08157, 46.05656, 46.04571, 46.04178, 46.03594, 46.05203, 46.01461, 45.99136, 45.98754, 45.99684, 
  45.99517, 45.99982, 45.99887, 45.99255, 45.99613, 46.01163, 46.0369, 46.03928, 45.9997, 45.96332, 
  45.96523, 45.96344, 45.95915, 45.94626, 45.92345, 45.92369, 45.93229, 45.92608, 45.93551, 45.92214, 
  45.91545, 45.92011, 45.91103, 45.90518, 45.91462,
  45.90922, 45.90336, 45.89488, 45.87827, 45.86728, 45.86333, 45.85699, 45.84049, 45.81478, 45.80281, 
  45.78881, 45.78378, 45.77684, 45.76833, 45.7578, 45.73659, 45.71131, 45.68937, 45.68145, 45.6709, 
  45.66298, 45.65566, 45.64258, 45.63166, 45.62878, 45.61905, 45.61197, 45.60669, 45.60212, 45.59564, 
  45.57257, 45.56115, 45.55238, 45.54336, 45.54096, 45.5341, 45.5323, 45.53795, 45.54577, 45.55202, 
  45.55755, 45.55622, 45.53434, 45.53134, 45.51823, 45.50415, 45.49236, 45.48755, 45.48731, 45.4843, 
  45.48899, 45.49513, 45.4973, 45.49224, 45.479, 45.46131, 45.45589, 45.44493, 45.42, 45.40975, 
  45.40083, 45.40059, 45.3942, 45.38287, 45.37202, 45.34331, 45.34162, 45.33523, 45.32437, 45.31193, 
  45.29974, 45.27885, 45.27401, 45.26689, 45.26435, 45.24308, 45.23111, 45.23341, 45.22483, 45.19556, 
  45.19338, 45.19338, 45.18951, 45.18745, 45.17269, 45.16579, 45.17366, 45.17148, 45.17112, 45.1756, 
  45.16446, 45.1647, 45.17366, 45.17729, 45.18177, 45.19762, 45.20766, 45.20499, 45.19471, 45.19302, 
  45.1716, 45.17124, 45.17584, 45.17306, 45.1779, 45.17548, 45.18455, 45.18637, 45.20137, 45.20004, 
  45.20245, 45.18963, 45.18044, 45.16604, 45.12984, 45.13382, 45.13806, 45.1452, 45.13782, 45.12825, 
  45.11335, 45.10305, 45.09142, 45.07857, 45.05942, 45.05081, 45.03625, 45.01041, 45.00555, 44.99499, 
  44.99366, 44.98686, 44.97957, 44.97083, 44.97484, 44.96925, 44.97581, 44.98152, 44.97593, 44.95698, 
  44.95771, 44.95237, 44.94678, 44.9401, 44.93876, 44.92381, 44.90935, 44.9012, 44.9232, 44.91786, 
  44.9046, 44.89317, 44.88089, 44.85534, 
  44.85633, 44.86156, 45.28089)
LONGITUDE_VALUEs <- c(
  20.26272, 20.25482, 20.24916, 20.25174, 20.24762, 20.2332, 20.22942, 20.20984, 20.20778, 20.18221, 
  20.14222, 20.10462, 20.10479, 20.09466, 20.0636, 20.05914, 20.04129, 20.03219, 20.02308, 20.01587, 
  19.9345, 19.9158, 19.89673, 19.87356, 19.85366, 19.84336, 19.81742, 19.81244, 19.8006, 19.79734, 
  19.7903, 19.78121, 19.75924, 19.73537, 19.72524, 19.71769, 19.71752, 19.69709, 19.68319, 19.66105, 
  19.63084, 19.56732, 19.55616, 19.52595, 19.51634, 19.50209, 19.5093, 19.50741, 19.52715, 19.46501, 
  19.46638, 19.42336, 19.4158, 19.39502, 19.38025, 19.36411, 19.28121, 19.30302, 19.29651, 19.28466, 
  19.23571, 19.23231, 19.20019, 19.20466, 19.1473, 19.14509, 19.1341, 19.10353, 19.06544, 19.07986, 
  19.04431, 19.01821, 19.00533, 18.99794, 19.00861, 18.99401, 18.98783, 18.96211, 18.9051, 18.89018, 
  18.87558, 18.86407, 18.86802, 18.82801, 18.82114,
  18.81506, 18.82347, 18.82879, 18.82827, 18.83359, 18.85059, 18.85694, 18.85746, 18.84836, 18.84699, 
  18.85488, 18.87771, 18.8887, 18.89144, 18.89179, 18.89917, 18.90243, 18.92612, 18.94963, 18.96679, 
  18.96628, 18.95993, 18.93882, 18.93419, 18.92904, 18.90192, 18.89694, 18.90003, 18.91393, 18.91427, 
  18.88767, 18.89145, 18.92234, 18.92715, 18.93419, 18.94483, 18.95942, 18.98929, 19.00079, 19.00371, 
  19.01143, 19.0243, 19.03254, 19.06533, 19.09828, 19.10206, 19.09228, 19.08181, 19.06036, 19.04732, 
  19.02604, 19.01663, 19.00444, 18.99826, 18.99087, 18.99191, 18.98865, 18.99037, 19.02988, 19.03022, 
  19.0194, 18.99604, 18.97423, 18.96875, 18.97545, 19.0297, 19.07382, 19.09357, 19.09855, 19.09787, 
  19.10333, 19.14558, 19.1696, 19.18282, 19.19656, 19.25526, 19.34231, 19.42092, 19.42246, 19.44737, 
  19.44153, 19.43586, 19.43431, 19.42779, 19.43569, 19.41886, 19.38794, 19.38365, 19.36991, 19.36338, 
  19.35342, 19.34896, 19.3469, 19.32974, 19.33283, 19.32255, 19.32014, 19.28322, 19.28872, 19.28047, 
  19.298, 19.27791, 19.2719, 19.25009, 19.24751, 19.23755, 19.22832, 19.21733, 19.18865, 19.17903, 
  19.17474, 19.16477, 19.19483, 19.18746, 19.14145, 19.11983, 19.11451, 19.08634, 19.0872, 19.07724, 
  19.07603, 19.09373, 19.09201, 19.10626, 19.09545, 19.1061, 19.09407, 19.10232, 19.09545, 19.09322, 
  19.08549, 19.07948, 19.04942, 19.07501, 19.08429, 19.11005, 19.11863, 19.13684, 19.14731, 19.14663, 
  19.154, 19.15538, 19.14249, 19.14181, 19.12292, 19.08548, 19.08565, 19.06711, 19.0307, 18.99999, 
  18.98985, 18.99295, 19.00618, 19.02215, 
  19.02998, 19.05075, 19.82661)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_1, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, Geo_0[34])
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}                                             

##### CROATIA #####
Geo_0 <- Geometric_Operations(Geo_2, Geo_1)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0))
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  45.98921, 45.98396, 45.98253, 45.99064, 45.99171, 45.98432, 45.97144, 45.96642, 45.96953, 45.98205, 
  45.99195, 45.99648, 45.9749, 45.97501, 45.99183, 45.99136, 45.9836, 45.97561, 45.96893, 45.96905, 
  45.96225, 45.96117, 45.96642, 45.96325, 45.95545, 45.95938, 45.95294, 45.95318, 45.96094, 45.95903, 
  45.94387, 45.941, 45.94817, 45.94482, 45.93494, 45.92987, 45.9399, 45.93047, 45.92773, 45.93405, 
  45.94205, 45.94718, 45.95077, 45.94325, 45.93954, 45.93393, 45.93752, 45.90133, 45.87277, 45.84229, 
  45.83463, 45.83918, 45.83726, 45.83212, 45.82865, 45.81214, 45.81214, 45.81777, 45.81657, 45.80748, 
  45.80377, 45.81095, 45.80784, 45.79192, 45.78593, 45.78426, 45.77097, 45.76642, 45.77684, 45.79264, 
  45.78569, 45.79336, 45.78821, 45.79479, 45.79551, 45.77755, 45.77348, 45.7639, 45.76965, 45.78845, 
  45.78833, 45.77528, 45.78689, 45.78749, 45.78139, 45.77935, 45.76115, 45.76211, 45.75516, 45.76115, 
  45.75432, 45.74654, 45.7669, 45.76534, 45.77265, 45.76426, 45.76462, 45.73899, 45.74151, 45.73767, 
  45.75804, 45.76031, 45.76977, 45.76654, 45.76654, 45.79419, 45.79515, 45.78546, 45.78534, 45.79395, 
  45.79479, 45.80365, 45.80042, 45.8137, 45.81741, 45.82805, 45.8338, 45.83942, 45.85245, 45.85436, 
  45.87708, 45.86883, 45.87421, 45.88915, 45.89512, 45.91734, 45.91089, 45.91495, 45.91829, 45.90695, 
  45.89727, 45.88915, 45.88831, 45.87803, 45.87959, 45.89416, 45.90324,
  45.90922, 45.90336, 45.89488, 45.87827, 45.86728, 45.86333, 45.85699, 45.84049, 45.81478, 45.80281,
  45.78881, 45.78378, 45.77684, 45.76833, 45.7578, 45.73659, 45.71131, 45.68937, 45.68145, 45.6709,
  45.66298, 45.65566, 45.64258, 45.63166, 45.62878, 45.61905, 45.61197, 45.60669, 45.60212, 45.59564,
  45.57257, 45.56115, 45.55238, 45.54336, 45.54096, 45.5341, 45.5323, 45.53795, 45.54577, 45.55202,
  45.55755, 45.55622, 45.53434, 45.53134, 45.51823, 45.50415, 45.49236, 45.48755, 45.48731, 45.4843,
  45.48899, 45.49513, 45.4973, 45.49224, 45.479, 45.46131, 45.45589, 45.44493, 45.42, 45.40975,
  45.40083, 45.40059, 45.3942, 45.38287, 45.37202, 45.34331, 45.34162, 45.33523, 45.32437, 45.31193,
  45.29974, 45.27885, 45.27401, 45.26689, 45.26435, 45.24308, 45.23111, 45.23341, 45.22483, 45.19556,
  45.19338, 45.19338, 45.18951, 45.18745, 45.17269, 45.16579, 45.17366, 45.17148, 45.17112, 45.1756,
  45.16446, 45.1647, 45.17366, 45.17729, 45.18177, 45.19762, 45.20766, 45.20499, 45.19471, 45.19302,
  45.1716, 45.17124, 45.17584, 45.17306, 45.1779, 45.17548, 45.18455, 45.18637, 45.20137, 45.20004,
  45.20245, 45.18963, 45.18044, 45.16604, 45.12984, 45.13382, 45.13806, 45.1452, 45.13782, 45.12825,
  45.11335, 45.10305, 45.09142, 45.07857, 45.05942, 45.05081, 45.03625, 45.01041, 45.00555, 44.99499,
  44.99366, 44.98686, 44.97957, 44.97083, 44.97484, 44.96925, 44.97581, 44.98152, 44.97593, 44.95698,
  44.95771, 44.95237, 44.94678, 44.9401, 44.93876, 44.92381, 44.90935, 44.9012, 44.9232, 44.91786,
  44.9046, 44.89317, 44.88089, 44.85534,
  44.85511, 44.84988, 44.85256, 44.85645, 44.87786, 44.88431, 44.9045, 44.91082, 44.91823, 44.92188, 
  44.9265, 44.93853, 44.94533, 44.93367, 44.93646, 44.94485, 44.95578, 44.97546, 44.98529, 44.99403, 
  45.00023, 44.99173, 44.99331, 44.99877, 45.01297, 45.01794, 45.02353, 45.03736, 45.03833, 45.0604, 
  45.06586, 45.07277, 45.08101, 45.09361, 45.09458, 45.07858, 45.06392, 45.05664, 45.05628, 45.06234, 
  45.06088, 45.06501, 45.07119, 45.08501, 45.09277, 45.09664, 45.08355, 45.07968, 45.08392, 45.09313, 
  45.09531, 45.09034, 45.08113, 45.0701, 45.0661, 45.08052, 45.09519, 45.08949, 45.08574, 45.07858, 
  45.07143, 45.06258, 45.0473, 45.04269, 45.04633, 45.05519, 45.06113, 45.057, 45.06185, 45.06113, 
  45.06816, 45.07616, 45.08416, 45.1004, 45.10888, 45.11094, 45.10101, 45.11639, 45.11312, 45.11676, 
  45.12947, 45.13734, 45.14001, 45.13686, 45.12511, 45.11518, 45.10609, 45.09967, 45.08537, 45.07713, 
  45.07701, 45.08671, 45.0798, 45.08343, 45.09919, 45.10525, 45.11046, 45.11736, 45.14146, 45.14376, 
  45.14025, 45.12632, 45.12572, 45.13613, 45.14643, 45.15199, 45.14945, 45.14013, 45.13371, 45.12475, 
  45.11348, 45.11094, 45.11239, 45.10779, 45.09773, 45.08246, 45.07313, 45.06161, 45.04439, 45.04585, 
  45.06282, 45.08428, 45.08489, 45.09592, 45.10173, 45.11361, 45.11627, 45.13226, 45.13408, 45.12124, 
  45.11348, 45.11348, 45.1067, 45.10622, 45.11591, 45.11663, 45.10924, 45.109, 45.12027, 45.12972, 
  45.12996, 45.12536, 45.11748, 45.1084, 45.10864, 45.11486, 45.10924, 45.11554, 45.1233, 45.13588, 
  45.13782, 45.12813, 45.12522, 45.12898, 45.14096, 45.1584, 45.16118, 45.15816, 45.1475, 45.13358, 
  45.13745, 45.13733, 45.14278, 45.15489, 45.16457, 45.16518, 45.17716, 45.17546, 45.18962, 45.18901, 
  45.1538, 45.1452, 45.14714, 45.14581, 45.14956, 45.14593, 45.15053, 45.16227, 45.16711, 45.17619, 
  45.18018, 45.19169, 45.19895, 45.2004, 45.20814, 45.22471, 45.22628, 45.21322, 45.21503, 45.22906, 
  45.23498, 45.23921, 45.23607, 45.22773, 45.22132, 45.22313, 45.23099, 45.24163, 45.25239, 45.24501, 
  45.23583, 45.227, 45.23281, 45.22616, 45.24465, 45.25456, 45.26568, 45.2751, 45.2751, 45.25384, 
  45.24973, 45.25819, 45.25734, 45.2548, 45.25396, 45.24804, 45.2461, 45.2403, 45.24175, 45.22519, 
  45.22591, 45.23208, 45.23208, 45.22301, 45.22362, 45.21902, 45.21999, 45.20366, 45.20705, 45.21346, 
  45.22072, 45.21721, 45.20354, 45.19217, 45.1837, 45.20753, 45.19641, 45.20221, 45.20161, 45.20826, 
  45.20741, 45.21419, 45.21407, 45.22362, 45.23172, 45.22168, 45.22241, 45.21842, 45.22253, 45.22616, 
  45.22749, 45.20923, 45.19169, 45.18189, 45.16059, 45.15732, 45.1411, 45.13262, 45.1256, 45.12099, 
  45.11324, 45.10367, 45.09919, 45.07943, 45.06634, 45.06355, 45.05349, 45.05058, 45.03056, 45.02353, 
  45.01685, 45.01103, 45.00605, 45.00314, 44.99986, 45.00253, 45.00253, 44.9978, 45.00108, 44.9984, 
  44.99938, 44.99513, 45.00252, 45.00822, 45.00883, 45.00592, 45.01635, 45.01757, 45.01089, 45.01441, 
  45.01575, 45.02485, 45.02545, 45.03322, 45.03116, 45.04705, 45.05153, 45.0622, 45.06705, 45.07166, 
  45.07433, 45.08269, 45.0839, 45.09106, 45.08645, 45.09336, 45.09239, 45.0999, 45.10717, 45.13382, 
  45.16259, 45.17179, 45.17252, 45.18026, 45.18123, 45.20155, 45.20155, 45.21824, 45.21728, 45.23082, 
  45.21389, 45.21316, 45.22381, 45.23058, 45.22405, 45.22961, 45.22526, 45.22163, 45.21703, 45.22115, 
  45.21703, 45.22598, 45.21703, 45.21316, 45.20700, 45.32464)
LONGITUDE_VALUEs <- c(
  17.29424, 17.29836, 17.30815, 17.31227, 17.32103, 17.32549, 17.30677, 17.3121, 17.32859, 17.33683, 
  17.32652, 17.33717, 17.34985, 17.36067, 17.36222, 17.37355, 17.37579, 17.36634, 17.3763, 17.35879, 
  17.3581, 17.37802, 17.38472, 17.39157, 17.38798, 17.35999, 17.35535, 17.34951, 17.3502, 17.34039, 
  17.34365, 17.36134, 17.37765, 17.38865, 17.38533, 17.3938, 17.41114, 17.41028, 17.43548, 17.43703, 
  17.4269, 17.42724, 17.44287, 17.46966, 17.515, 17.5308, 17.56649, 17.62555, 17.64443, 17.65557, 
  17.67257, 17.68717, 17.70176, 17.70554, 17.7457, 17.75738, 17.76391, 17.77112, 17.78658, 17.79564, 
  17.81368, 17.81969, 17.83051, 17.83274, 17.83961, 17.8521, 17.85365, 17.86739, 17.87134, 17.9038, 
  17.92887, 17.94875, 17.97125, 17.98739, 17.99787, 18.0238, 18.05365, 18.08233, 18.10689, 18.12058, 
  18.14892, 18.16919, 18.18464, 18.19254, 18.20354, 18.23148, 18.24124, 18.25755, 18.27557, 18.29153, 
  18.33342, 18.3408, 18.35676, 18.36552, 18.36432, 18.38011, 18.38767, 18.40586, 18.42749, 18.44705, 
  18.44877, 18.44499, 18.45582, 18.46286, 18.48122, 18.48843, 18.50319, 18.50645, 18.51983, 18.53238, 
  18.55435, 18.55898, 18.57477, 18.57202, 18.58678, 18.60343, 18.60018, 18.62317, 18.61528, 18.62335, 
  18.63056, 18.63691, 18.65476, 18.63965, 18.66094, 18.66008, 18.66935, 18.67519, 18.70438, 18.71673, 
  18.75672, 18.75895, 18.77354, 18.79003, 18.80925, 18.81286, 18.80719,
  18.81506, 18.82347, 18.82879, 18.82827, 18.83359, 18.85059, 18.85694, 18.85746, 18.84836, 18.84699,
  18.85488, 18.87771, 18.8887, 18.89144, 18.89179, 18.89917, 18.90243, 18.92612, 18.94963, 18.96679,
  18.96628, 18.95993, 18.93882, 18.93419, 18.92904, 18.90192, 18.89694, 18.90003, 18.91393, 18.91427,
  18.88767, 18.89145, 18.92234, 18.92715, 18.93419, 18.94483, 18.95942, 18.98929, 19.00079, 19.00371,
  19.01143, 19.0243, 19.03254, 19.06533, 19.09828, 19.10206, 19.09228, 19.08181, 19.06036, 19.04732,
  19.02604, 19.01663, 19.00444, 18.99826, 18.99087, 18.99191, 18.98865, 18.99037, 19.02988, 19.03022,
  19.0194, 18.99604, 18.97423, 18.96875, 18.97545, 19.0297, 19.07382, 19.09357, 19.09855, 19.09787,
  19.10333, 19.14558, 19.1696, 19.18282, 19.19656, 19.25526, 19.34231, 19.42092, 19.42246, 19.44737,
  19.44153, 19.43586, 19.43431, 19.42779, 19.43569, 19.41886, 19.38794, 19.38365, 19.36991, 19.36338,
  19.35342, 19.34896, 19.3469, 19.32974, 19.33283, 19.32255, 19.32014, 19.28322, 19.28872, 19.28047,
  19.298, 19.27791, 19.2719, 19.25009, 19.24751, 19.23755, 19.22832, 19.21733, 19.18865, 19.17903,
  19.17474, 19.16477, 19.19483, 19.18746, 19.14145, 19.11983, 19.11451, 19.08634, 19.0872, 19.07724,
  19.07603, 19.09373, 19.09201, 19.10626, 19.09545, 19.1061, 19.09407, 19.10232, 19.09545, 19.09322,
  19.08549, 19.07948, 19.04942, 19.07501, 19.08429, 19.11005, 19.11863, 19.13684, 19.14731, 19.14663,
  19.154, 19.15538, 19.14249, 19.14181, 19.12292, 19.08548, 19.08565, 19.06711, 19.0307, 18.99999,
  18.98985, 18.99295, 19.00618, 19.02215,
  19.00474, 18.98003, 18.85952, 18.84442, 18.82107, 18.80013, 18.76407, 18.76219, 18.77334, 18.77145, 
  18.75909, 18.74999, 18.75703, 18.785, 18.80234, 18.80594, 18.78948, 18.78347, 18.79531, 18.79583, 
  18.75842, 18.74091, 18.72872, 18.72701, 18.73901, 18.73764, 18.72253, 18.71601, 18.69525, 18.66846, 
  18.66794, 18.68579, 18.68802, 18.67789, 18.66639, 18.65283, 18.66124, 18.65867, 18.65095, 18.64134, 
  18.61645, 18.60598, 18.60632, 18.63756, 18.63584, 18.6228, 18.61937, 18.60856, 18.59568, 18.58401, 
  18.56958, 18.56725, 18.58305, 18.58202, 18.57189, 18.56759, 18.54338, 18.52981, 18.52998, 18.54973, 
  18.55093, 18.53617, 18.53772, 18.53308, 18.52861, 18.53102, 18.52707, 18.50663, 18.49306, 18.47847, 
  18.46734, 18.46047, 18.44329, 18.43678, 18.42356, 18.40741, 18.31917, 18.3068, 18.2883, 18.27834, 
  18.2792, 18.27198, 18.25481, 18.23798, 18.21173, 18.2083, 18.21294, 18.2229, 18.21053, 18.19284, 
  18.17206, 18.14407, 18.12264, 18.10855, 18.09312, 18.07302, 18.07079, 18.08676, 18.07149, 18.06033, 
  18.04436, 18.04092, 18.03337, 18.02598, 18.02306, 18.01293, 17.99578, 17.98101, 17.97585, 17.97499, 
  17.96538, 17.95301, 17.94137, 17.93192, 17.92917, 17.93913, 17.91871, 17.90497, 17.86392, 17.83988, 
  17.80627, 17.78325, 17.75869, 17.74157, 17.72869, 17.71289, 17.69245, 17.67616, 17.65967, 17.6279, 
  17.62515, 17.61107, 17.6042, 17.59252, 17.58136, 17.57311, 17.56509, 17.55392, 17.55719, 17.55289, 
  17.54328, 17.53915, 17.54104, 17.53143, 17.51442, 17.50336, 17.48506, 17.4787, 17.49296, 17.49368, 
  17.48681, 17.47702, 17.46036, 17.44731, 17.45521, 17.45298, 17.44559, 17.43684, 17.43477, 17.41451, 
  17.38586, 17.36491, 17.34138, 17.32716, 17.33128, 17.31221, 17.30964, 17.28544, 17.27514, 17.26913, 
  17.2554, 17.24458, 17.23479, 17.21933, 17.20388, 17.1852, 17.16596, 17.14484, 17.12786, 17.11258, 
  17.09645, 17.06892, 17.06445, 17.05261, 17.04249, 17.03939, 17.03544, 17.02068, 17.00729, 17.01347, 
  17.02445, 17.00901, 17.00283, 17.00661, 17.00146, 16.98738, 16.98172, 16.98635, 16.974, 16.95975, 
  16.97743, 16.97571, 16.95598, 16.93779, 16.93538, 16.95596, 16.94, 16.93863, 16.91941, 16.9122, 
  16.90036, 16.89126, 16.88199, 16.88251, 16.89161, 16.89504, 16.87683, 16.87048, 16.88266, 16.88301, 
  16.87563, 16.87597, 16.86482, 16.86585, 16.87975, 16.87889, 16.8655, 16.85503, 16.84937, 16.85572, 
  16.84182, 16.83324, 16.8446, 16.84222, 16.81646, 16.73045, 16.69647, 16.67879, 16.6702, 16.6568, 
  16.64856, 16.63675, 16.62799, 16.61889, 16.59759, 16.58062, 16.56619, 16.55262, 16.53957, 16.54094, 
  16.53133, 16.49131, 16.48568, 16.47349, 16.47881, 16.47211, 16.46267, 16.44174, 16.43659, 16.41014, 
  16.39434, 16.39142, 16.40242, 16.38542, 16.38748, 16.38336, 16.38336, 16.37306, 16.35538, 16.35881, 
  16.35624, 16.3583, 16.35367, 16.3547, 16.33186, 16.3274, 16.32087, 16.31177, 16.30765, 16.29957, 
  16.2927, 16.28894, 16.28504, 16.28469, 16.28023, 16.27405, 16.27234, 16.26187, 16.25792, 16.25276, 
  16.23045, 16.22925, 16.22015, 16.20694, 16.19218, 16.18599, 16.17603, 16.17483, 16.16934, 16.17397, 
  16.16521, 16.15491, 16.14668, 16.13792, 16.13106, 16.12265, 16.10823, 16.10221, 16.08608, 16.08471, 
  16.05315, 16.05143, 16.0456, 16.048, 16.0147, 16.03083, 16.0219, 16.01504, 16.00303, 15.97728, 
  15.94502, 15.92305, 15.92648, 15.91927, 15.91172, 15.89284, 15.88632, 15.89559, 15.89079, 15.87019, 
  15.85646, 15.84376, 15.8266, 15.83246, 15.82670, 15.69068)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_2, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_0 <- st_union(Geo_0)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, st_union(Geo_0[1:127]))
Geo_2 <- st_union(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

##### BOSNIA AND HERZEGOVINA #####
Geo_0 <- Geometric_Operations(Geo_3, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0))
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
LATITUDE_VALUEs <- c(44.85633, 44.85534,
  44.85511, 44.84988, 44.85256, 44.85645, 44.87786, 44.88431, 44.9045, 44.91082, 44.91823, 44.92188, 
  44.9265, 44.93853, 44.94533, 44.93367, 44.93646, 44.94485, 44.95578, 44.97546, 44.98529, 44.99403, 
  45.00023, 44.99173, 44.99331, 44.99877, 45.01297, 45.01794, 45.02353, 45.03736, 45.03833, 45.0604, 
  45.06586, 45.07277, 45.08101, 45.09361, 45.09458, 45.07858, 45.06392, 45.05664, 45.05628, 45.06234, 
  45.06088, 45.06501, 45.07119, 45.08501, 45.09277, 45.09664, 45.08355, 45.07968, 45.08392, 45.09313, 
  45.09531, 45.09034, 45.08113, 45.0701, 45.0661, 45.08052, 45.09519, 45.08949, 45.08574, 45.07858, 
  45.07143, 45.06258, 45.0473, 45.04269, 45.04633, 45.05519, 45.06113, 45.057, 45.06185, 45.06113, 
  45.06816, 45.07616, 45.08416, 45.1004, 45.10888, 45.11094, 45.10101, 45.11639, 45.11312, 45.11676, 
  45.12947, 45.13734, 45.14001, 45.13686, 45.12511, 45.11518, 45.10609, 45.09967, 45.08537, 45.07713, 
  45.07701, 45.08671, 45.0798, 45.08343, 45.09919, 45.10525, 45.11046, 45.11736, 45.14146, 45.14376, 
  45.14025, 45.12632, 45.12572, 45.13613, 45.14643, 45.15199, 45.14945, 45.14013, 45.13371, 45.12475, 
  45.11348, 45.11094, 45.11239, 45.10779, 45.09773, 45.08246, 45.07313, 45.06161, 45.04439, 45.04585, 
  45.06282, 45.08428, 45.08489, 45.09592, 45.10173, 45.11361, 45.11627, 45.13226, 45.13408, 45.12124, 
  45.11348, 45.11348, 45.1067, 45.10622, 45.11591, 45.11663, 45.10924, 45.109, 45.12027, 45.12972, 
  45.12996, 45.12536, 45.11748, 45.1084, 45.10864, 45.11486, 45.10924, 45.11554, 45.1233, 45.13588, 
  45.13782, 45.12813, 45.12522, 45.12898, 45.14096, 45.1584, 45.16118, 45.15816, 45.1475, 45.13358, 
  45.13745, 45.13733, 45.14278, 45.15489, 45.16457, 45.16518, 45.17716, 45.17546, 45.18962, 45.18901, 
  45.1538, 45.1452, 45.14714, 45.14581, 45.14956, 45.14593, 45.15053, 45.16227, 45.16711, 45.17619, 
  45.18018, 45.19169, 45.19895, 45.2004, 45.20814, 45.22471, 45.22628, 45.21322, 45.21503, 45.22906, 
  45.23498, 45.23921, 45.23607, 45.22773, 45.22132, 45.22313, 45.23099, 45.24163, 45.25239, 45.24501, 
  45.23583, 45.227, 45.23281, 45.22616, 45.24465, 45.25456, 45.26568, 45.2751, 45.2751, 45.25384, 
  45.24973, 45.25819, 45.25734, 45.2548, 45.25396, 45.24804, 45.2461, 45.2403, 45.24175, 45.22519, 
  45.22591, 45.23208, 45.23208, 45.22301, 45.22362, 45.21902, 45.21999, 45.20366, 45.20705, 45.21346, 
  45.22072, 45.21721, 45.20354, 45.19217, 45.1837, 45.20753, 45.19641, 45.20221, 45.20161, 45.20826, 
  45.20741, 45.21419, 45.21407, 45.22362, 45.23172, 45.22168, 45.22241, 45.21842, 45.22253, 45.22616, 
  45.22749, 45.20923, 45.19169, 45.18189, 45.16059, 45.15732, 45.1411, 45.13262, 45.1256, 45.12099, 
  45.11324, 45.10367, 45.09919, 45.07943, 45.06634, 45.06355, 45.05349, 45.05058, 45.03056, 45.02353, 
  45.01685, 45.01103, 45.00605, 45.00314, 44.99986, 45.00253, 45.00253, 44.9978, 45.00108, 44.9984, 
  44.99938, 44.99513, 45.00252, 45.00822, 45.00883, 45.00592, 45.01635, 45.01757, 45.01089, 45.01441, 
  45.01575, 45.02485, 45.02545, 45.03322, 45.03116, 45.04705, 45.05153, 45.0622, 45.06705, 45.07166, 
  45.07433, 45.08269, 45.0839, 45.09106, 45.08645, 45.09336, 45.09239, 45.0999, 45.10717, 45.13382, 
  45.16259, 45.17179, 45.17252, 45.18026, 45.18123, 45.20155, 45.20155, 45.21824, 45.21728, 45.23082, 
  45.21389, 45.21316, 45.22381, 45.23058, 45.22405, 45.22961, 45.22526, 45.22163, 45.21703, 45.22115, 
  45.21703, 45.22598, 45.21703, 45.21316, 45.20700, 43.34252)
LONGITUDE_VALUEs <- c(19.02998, 19.02215,
  19.00474, 18.98003, 18.85952, 18.84442, 18.82107, 18.80013, 18.76407, 18.76219, 18.77334, 18.77145, 
  18.75909, 18.74999, 18.75703, 18.785, 18.80234, 18.80594, 18.78948, 18.78347, 18.79531, 18.79583, 
  18.75842, 18.74091, 18.72872, 18.72701, 18.73901, 18.73764, 18.72253, 18.71601, 18.69525, 18.66846, 
  18.66794, 18.68579, 18.68802, 18.67789, 18.66639, 18.65283, 18.66124, 18.65867, 18.65095, 18.64134, 
  18.61645, 18.60598, 18.60632, 18.63756, 18.63584, 18.6228, 18.61937, 18.60856, 18.59568, 18.58401, 
  18.56958, 18.56725, 18.58305, 18.58202, 18.57189, 18.56759, 18.54338, 18.52981, 18.52998, 18.54973, 
  18.55093, 18.53617, 18.53772, 18.53308, 18.52861, 18.53102, 18.52707, 18.50663, 18.49306, 18.47847, 
  18.46734, 18.46047, 18.44329, 18.43678, 18.42356, 18.40741, 18.31917, 18.3068, 18.2883, 18.27834, 
  18.2792, 18.27198, 18.25481, 18.23798, 18.21173, 18.2083, 18.21294, 18.2229, 18.21053, 18.19284, 
  18.17206, 18.14407, 18.12264, 18.10855, 18.09312, 18.07302, 18.07079, 18.08676, 18.07149, 18.06033, 
  18.04436, 18.04092, 18.03337, 18.02598, 18.02306, 18.01293, 17.99578, 17.98101, 17.97585, 17.97499, 
  17.96538, 17.95301, 17.94137, 17.93192, 17.92917, 17.93913, 17.91871, 17.90497, 17.86392, 17.83988, 
  17.80627, 17.78325, 17.75869, 17.74157, 17.72869, 17.71289, 17.69245, 17.67616, 17.65967, 17.6279, 
  17.62515, 17.61107, 17.6042, 17.59252, 17.58136, 17.57311, 17.56509, 17.55392, 17.55719, 17.55289, 
  17.54328, 17.53915, 17.54104, 17.53143, 17.51442, 17.50336, 17.48506, 17.4787, 17.49296, 17.49368, 
  17.48681, 17.47702, 17.46036, 17.44731, 17.45521, 17.45298, 17.44559, 17.43684, 17.43477, 17.41451, 
  17.38586, 17.36491, 17.34138, 17.32716, 17.33128, 17.31221, 17.30964, 17.28544, 17.27514, 17.26913, 
  17.2554, 17.24458, 17.23479, 17.21933, 17.20388, 17.1852, 17.16596, 17.14484, 17.12786, 17.11258, 
  17.09645, 17.06892, 17.06445, 17.05261, 17.04249, 17.03939, 17.03544, 17.02068, 17.00729, 17.01347, 
  17.02445, 17.00901, 17.00283, 17.00661, 17.00146, 16.98738, 16.98172, 16.98635, 16.974, 16.95975, 
  16.97743, 16.97571, 16.95598, 16.93779, 16.93538, 16.95596, 16.94, 16.93863, 16.91941, 16.9122, 
  16.90036, 16.89126, 16.88199, 16.88251, 16.89161, 16.89504, 16.87683, 16.87048, 16.88266, 16.88301, 
  16.87563, 16.87597, 16.86482, 16.86585, 16.87975, 16.87889, 16.8655, 16.85503, 16.84937, 16.85572, 
  16.84182, 16.83324, 16.8446, 16.84222, 16.81646, 16.73045, 16.69647, 16.67879, 16.6702, 16.6568, 
  16.64856, 16.63675, 16.62799, 16.61889, 16.59759, 16.58062, 16.56619, 16.55262, 16.53957, 16.54094, 
  16.53133, 16.49131, 16.48568, 16.47349, 16.47881, 16.47211, 16.46267, 16.44174, 16.43659, 16.41014, 
  16.39434, 16.39142, 16.40242, 16.38542, 16.38748, 16.38336, 16.38336, 16.37306, 16.35538, 16.35881, 
  16.35624, 16.3583, 16.35367, 16.3547, 16.33186, 16.3274, 16.32087, 16.31177, 16.30765, 16.29957, 
  16.2927, 16.28894, 16.28504, 16.28469, 16.28023, 16.27405, 16.27234, 16.26187, 16.25792, 16.25276, 
  16.23045, 16.22925, 16.22015, 16.20694, 16.19218, 16.18599, 16.17603, 16.17483, 16.16934, 16.17397, 
  16.16521, 16.15491, 16.14668, 16.13792, 16.13106, 16.12265, 16.10823, 16.10221, 16.08608, 16.08471, 
  16.05315, 16.05143, 16.0456, 16.048, 16.0147, 16.03083, 16.0219, 16.01504, 16.00303, 15.97728, 
  15.94502, 15.92305, 15.92648, 15.91927, 15.91172, 15.89284, 15.88632, 15.89559, 15.89079, 15.87019, 
  15.85646, 15.84376, 15.8266, 15.83246, 15.82670, 17.79935)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_3, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_3 <- st_set_geometry(Geo_3, st_union(Geo_0[1:3]))
Geo_3 <- st_union(Geo_3, Geo)
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}

##### HUNGARY #####
Geo_0 <- Geometric_Operations(Geo_4, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_4 <- st_set_geometry(Geo_4, st_geometry(Geo_0))
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
LATITUDE_VALUEs <- c(
  45.98921, 45.98396, 45.98253, 45.99064, 45.99171, 45.98432, 45.97144, 45.96642, 45.96953, 45.98205, 
  45.99195, 45.99648, 45.9749, 45.97501, 45.99183, 45.99136, 45.9836, 45.97561, 45.96893, 45.96905, 
  45.96225, 45.96117, 45.96642, 45.96325, 45.95545, 45.95938, 45.95294, 45.95318, 45.96094, 45.95903, 
  45.94387, 45.941, 45.94817, 45.94482, 45.93494, 45.92987, 45.9399, 45.93047, 45.92773, 45.93405, 
  45.94205, 45.94718, 45.95077, 45.94325, 45.93954, 45.93393, 45.93752, 45.90133, 45.87277, 45.84229, 
  45.83463, 45.83918, 45.83726, 45.83212, 45.82865, 45.81214, 45.81214, 45.81777, 45.81657, 45.80748, 
  45.80377, 45.81095, 45.80784, 45.79192, 45.78593, 45.78426, 45.77097, 45.76642, 45.77684, 45.79264, 
  45.78569, 45.79336, 45.78821, 45.79479, 45.79551, 45.77755, 45.77348, 45.7639, 45.76965, 45.78845, 
  45.78833, 45.77528, 45.78689, 45.78749, 45.78139, 45.77935, 45.76115, 45.76211, 45.75516, 45.76115, 
  45.75432, 45.74654, 45.7669, 45.76534, 45.77265, 45.76426, 45.76462, 45.73899, 45.74151, 45.73767, 
  45.75804, 45.76031, 45.76977, 45.76654, 45.76654, 45.79419, 45.79515, 45.78546, 45.78534, 45.79395, 
  45.79479, 45.80365, 45.80042, 45.8137, 45.81741, 45.82805, 45.8338, 45.83942, 45.85245, 45.85436, 
  45.87708, 45.86883, 45.87421, 45.88915, 45.89512, 45.91734, 45.91089, 45.91495, 45.91829, 45.90695, 
  45.89727, 45.88915, 45.88831, 45.87803, 45.87959, 45.89416, 45.90324, 45.90922,
  45.91462, 45.90518, 45.91103, 45.92011, 45.91545, 45.92214, 45.93551, 45.92608, 45.93229, 45.92369, 
  45.92345, 45.94626, 45.95915, 45.96344, 45.96523, 45.96332, 45.9997, 46.03928, 46.0369, 46.01163, 
  45.99613, 45.99255, 45.99887, 45.99982, 45.99517, 45.99684, 45.98754, 45.99136, 46.01461, 46.05203, 
  46.03594, 46.04178, 46.04571, 46.05656, 46.08157, 46.09371, 46.12073, 46.13358, 46.1375, 46.14202, 
  46.15189, 46.14832, 46.16343, 46.17876, 46.16901, 46.18969, 46.17959, 46.18803, 46.17591, 46.17175, 
  46.1683, 46.16996, 46.14606, 46.1444, 46.13964, 46.1394, 46.135, 46.13155, 46.1281, 46.14059, 
  46.14975, 46.15118, 46.15998, 46.16378, 46.17603, 46.17638, 46.17317, 46.14654, 46.14416, 46.14844, 
  46.14452, 46.17722, 46.17603, 46.16533, 46.14297, 46.15986, 46.14428, 46.13548, 46.12965, 46.1237, 
  46.12965, 46.12644, 46.11977, 46.11585, 46.12632, 47.50667)
LONGITUDE_VALUEs <- c(
  17.29424, 17.29836, 17.30815, 17.31227, 17.32103, 17.32549, 17.30677, 17.3121, 17.32859, 17.33683, 
  17.32652, 17.33717, 17.34985, 17.36067, 17.36222, 17.37355, 17.37579, 17.36634, 17.3763, 17.35879, 
  17.3581, 17.37802, 17.38472, 17.39157, 17.38798, 17.35999, 17.35535, 17.34951, 17.3502, 17.34039, 
  17.34365, 17.36134, 17.37765, 17.38865, 17.38533, 17.3938, 17.41114, 17.41028, 17.43548, 17.43703, 
  17.4269, 17.42724, 17.44287, 17.46966, 17.515, 17.5308, 17.56649, 17.62555, 17.64443, 17.65557, 
  17.67257, 17.68717, 17.70176, 17.70554, 17.7457, 17.75738, 17.76391, 17.77112, 17.78658, 17.79564, 
  17.81368, 17.81969, 17.83051, 17.83274, 17.83961, 17.8521, 17.85365, 17.86739, 17.87134, 17.9038, 
  17.92887, 17.94875, 17.97125, 17.98739, 17.99787, 18.0238, 18.05365, 18.08233, 18.10689, 18.12058, 
  18.14892, 18.16919, 18.18464, 18.19254, 18.20354, 18.23148, 18.24124, 18.25755, 18.27557, 18.29153, 
  18.33342, 18.3408, 18.35676, 18.36552, 18.36432, 18.38011, 18.38767, 18.40586, 18.42749, 18.44705, 
  18.44877, 18.44499, 18.45582, 18.46286, 18.48122, 18.48843, 18.50319, 18.50645, 18.51983, 18.53238, 
  18.55435, 18.55898, 18.57477, 18.57202, 18.58678, 18.60343, 18.60018, 18.62317, 18.61528, 18.62335, 
  18.63056, 18.63691, 18.65476, 18.63965, 18.66094, 18.66008, 18.66935, 18.67519, 18.70438, 18.71673, 
  18.75672, 18.75895, 18.77354, 18.79003, 18.80925, 18.81286, 18.80719, 18.81506, 
  18.82114, 18.82801, 18.86802, 18.86407, 18.87558, 18.89018, 18.9051, 18.96211, 18.98783, 18.99401, 
  19.00861, 18.99794, 19.00533, 19.01821, 19.04431, 19.07986, 19.06544, 19.10353, 19.1341, 19.14509, 
  19.1473, 19.20466, 19.20019, 19.23231, 19.23571, 19.28466, 19.29651, 19.30302, 19.28121, 19.36411, 
  19.38025, 19.39502, 19.4158, 19.42336, 19.46638, 19.46501, 19.52715, 19.50741, 19.5093, 19.50209, 
  19.51634, 19.52595, 19.55616, 19.56732, 19.63084, 19.66105, 19.68319, 19.69709, 19.71752, 19.71769, 
  19.72524, 19.73537, 19.75924, 19.78121, 19.7903, 19.79734, 19.8006, 19.81244, 19.81742, 19.84336, 
  19.85366, 19.87356, 19.89673, 19.9158, 19.9345, 20.01587, 20.02308, 20.03219, 20.04129, 20.05914, 
  20.0636, 20.09466, 20.10479, 20.10462, 20.14222, 20.18221, 20.20778, 20.20984, 20.22942, 20.2332, 
  20.24762, 20.25174, 20.24916, 20.25482, 20.26272, 19.01405)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_4, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_4 <- st_set_geometry(Geo_4, Geo_0)
Geo_4 <- st_union(Geo_4, Geo) %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("SERBIA", "CROATIA", "BOSNIA AND HERZEGOVINA", "HUNGARY"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3, Geo_4)

EAST JERUSALEM is included in ISRAEL in GeoDATA.

EAST JERUSALEM is an area claimed by ISRAEL and by STATE OF PALESTINE.

EAST JERUSALEM has been annexed by ISRAEL since 1967.

NO MAN’S LAND (FORT LATRUN) is included in ISREAL in GeoDATA.

NO MAN’S LAND (FORT LATRUN) is an area claimed by ISRAEL and by STATE OF PALESTINE.

NO MAN’S LAND (FORT LATRUN) has been annexed by ISRAEL since 1967.

NO MAN’S LAND (JERUSALEM) is included in ISREAL in GeoDATA.

NO MAN’S LAND (JERUSALEM) is an area claimed by ISRAEL and by STATE OF PALESTINE.

NO MAN’S LAND (JERUSALEM) has been annexed by ISRAEL since 1967.

MOUNT SCOPUS is included in ISREAL (EAST JERUSALEM) in GeoDATA.

JUNAGADH (PRINCELY STATE) [1730-1948] is included in INDIA in GeoDATA.

JUNAGADH (PRINCELY STATE) is an area claimed by INDIA and by PAKISTAN.

JUNAGADH (PRINCELY STATE) has been annexed by INDIA since 1948.

NORTH BORNEO are included in MALAYSIA in GeoDATA.

NORTH BORNEO is now a MALAYSIAN State, called SABAH, since 1963.

TIRAN AND SANAFIR ISLANDS are included in SAUDI ARABIA in GeoDATA.

TIRAN AND SANAFIR ISLANDS have been controlled by SAUDI ARABIA since 2017 (Ceded by EGYPT).

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "SAUDI ARABIA")

##### SAUDI ARABIA #####
LATITUDE_VALUEs <- c(
  28.00016, 28.00092, 27.99076, 27.96757, 27.95711, 27.95013, 27.94725, 27.94558, 27.93755, 27.93815, 
  27.92526, 27.9201, 27.91131, 27.91555, 27.91222, 27.91828, 27.91919, 27.92511, 27.93209, 27.93648, 
  27.94119, 27.94634, 27.94953, 27.9518, 27.95438, 27.95817, 27.95953, 27.96454, 27.96378, 27.96863, 
  27.96666, 27.96787, 27.9706, 27.96863, 27.96514, 27.96272, 27.96408, 27.96818, 27.97591, 27.98273, 
  27.99243, 27.99258, 27.99031, 27.98955, 27.98349, 27.99455, 27.99289, 27.99076, 27.9938, 27.99501, 
  27.99834, 28.00213, 28.00592, 28.01077, 28.01077, 28.01198, 28.01441, 28.01198, 28.00895)
LONGITUDE_VALUEs <- c(
  34.50408, 34.49464, 34.49859, 34.50014, 34.50597, 34.50237, 34.50305, 34.50237, 34.51506, 34.52725, 
  34.53188, 34.54391, 34.55386, 34.58715, 34.59402, 34.60568, 34.62027, 34.62302, 34.61993, 34.60894, 
  34.60328, 34.58938, 34.58869, 34.58578, 34.58698, 34.58338, 34.58646, 34.58681, 34.59042, 34.5887, 
  34.5839, 34.57274, 34.57188, 34.56056, 34.55833, 34.54855, 34.53379, 34.51749, 34.51199, 34.50153, 
  34.50203, 34.50512, 34.50512, 34.50855, 34.51507, 34.53927, 34.54596, 34.54716, 34.5518, 34.55077, 
  34.55231, 34.55135, 34.54362, 34.54293, 34.54002, 34.5395, 34.51529, 34.51529, 34.50584)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_1, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_union(Geo_0[c(1:5, 7)]))
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
LATITUDE_VALUEs <- c(
  27.94725, 27.94573, 27.94179, 27.93815, 27.93421, 27.933, 27.9286, 27.92435, 27.92086, 27.92299, 
  27.92117, 27.9245, 27.92663, 27.92981, 27.93375, 27.93588, 27.9424, 27.94361, 27.9424, 27.94407, 
  27.94285, 27.93997, 27.92905, 27.9242, 27.92192, 27.9154, 27.91677, 27.91313, 27.911, 27.90509, 
  27.90311, 27.90524, 27.90842, 27.90721, 27.91024, 27.91479, 27.91373, 27.92223, 27.92845, 27.93512, 
  27.93557, 27.94134, 27.93982, 27.9468, 27.94452, 27.94543, 27.94968, 27.9518, 27.95514, 27.95832, 
  27.95771, 27.94983)
LONGITUDE_VALUEs <- c(
  34.65875, 34.66064, 34.65704, 34.66853, 34.66648, 34.66356, 34.6615, 34.65189, 34.65704, 34.66339, 
  34.66888, 34.6675, 34.67334, 34.67197, 34.67248, 34.67059, 34.67059, 34.67557, 34.68209, 34.68209, 
  34.68638, 34.68535, 34.69822, 34.69719, 34.69153, 34.69582, 34.69959, 34.70303, 34.70251, 34.70371, 
  34.70697, 34.70594, 34.71332, 34.71693, 34.7195, 34.72962, 34.73391, 34.73992, 34.73546, 34.73563, 
  34.73254, 34.72877, 34.72431, 34.72482, 34.72173, 34.71864, 34.7207, 34.71778, 34.71641, 34.70526, 
  34.68569, 34.67339)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo) %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "SAUDI ARABIA")
GeoDATA <- rbind(GeoDATA, Geo_1)

DIEGO GARCIA is included in BRITISH INDIAN OCEAN TERRITORY (BIOT) in GeoDATA.

DIEGO GARCIA is claimed by MAURITIUS.

Numeric Code (M49_CODE) for FALKLAND ISLANDS (MALVINAS).

FALKLAND ISLANDS (MALVINAS) are claimed by ARGENTINA.

No suitable Geometries in available sources. We create our own Geometries.

SWAINS ISLAND is included in AMERICAN SAMOA in GeoDATA.

SWAINS ISLAND is claimed by AMERICAN SAMOA and TOKELAU.

SWAINS ISLAND has been controlled by AMERICAN SAMOA since 1925.

ROCKALL is claimed by IRELAND and UNITED KINGDOM OF GREAT BRITAIN AND NORTHERN IRELAND.

ROCKALL has been controlled by UNITED KINGDOM OF GREAT BRITAIN AND NORTHERN IRELAND since 1972.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "UNITED KINGDOM OF GREAT BRITAIN AND NORTHERN IRELAND")

##### UNITED KINGDOM OF GREAT BRITAIN AND NORTHERN IRELAND #####
LATITUDE_VALUEs <- c(57.59642, 57.59634, 57.59625, 57.59619, 57.59622, 57.59641)
LONGITUDE_VALUEs <- c(-13.6874, -13.68751, -13.68744, -13.68724, -13.68716, -13.68717)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo) %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "UNITED KINGDOM OF GREAT BRITAIN AND NORTHERN IRELAND")
GeoDATA <- rbind(GeoDATA, Geo_1)

ABU MUSA is included in IRAN in GeoDATA.

ABU MUSA is claimed by IRAN and by UNITED ARAB EMIRATES.

ABU MUSA has been controlled by IRAN since 1971.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "IRAN")

##### IRAN #####
LATITUDE_VALUEs <- c(
  25.86, 25.87065, 25.8739, 25.88286, 25.88641, 25.88919, 25.89521, 25.89753, 25.90015, 25.89506, 
  25.89475, 25.89243, 25.89181, 25.88193, 25.88316, 25.87668, 25.86942, 25.86571, 25.86417, 25.86123, 
  25.86339, 25.86463, 25.86046, 25.85567, 25.85953, 25.85922)
LONGITUDE_VALUEs <- c(
  55.05654, 55.05173, 55.0519, 55.04881, 55.05053, 55.04607, 55.04624, 55.04041, 55.03938, 55.03526, 
  55.032, 55.0308, 55.02719, 55.01844, 55.01295, 55.009, 55.01878, 55.01844, 55.01586, 55.01861, 
  55.01912, 55.02238, 55.03234, 55.03422, 55.03903, 55.05464)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  25.91343, 25.90864, 25.90401, 25.89969, 25.89845, 25.9, 25.89567, 25.89243, 25.89243, 25.89567, 
  25.90525, 25.91065, 25.91621, 25.9176, 25.92486, 25.92825, 25.93072, 25.93273, 25.93288, 25.9298, 
  25.92269, 25.91745, 25.9193, 25.91729, 25.91698, 25.91405)
LONGITUDE_VALUEs <- c(
  54.49556, 54.49659, 54.49436, 54.4971, 54.51238, 54.52027, 54.54103, 54.54515, 54.54807, 54.55202, 
  54.55202, 54.55476, 54.55339, 54.55013, 54.54721, 54.54773, 54.54446, 54.54446, 54.54138, 54.54035, 
  54.51769, 54.50997, 54.50277, 54.50139, 54.49865, 54.4983)
Geoo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo <- st_union(Geo, Geoo)
LATITUDE_VALUEs <- c(26.124, 26.1129, 26.11506, 26.11429, 26.11814, 26.12061, 26.12323)
LONGITUDE_VALUEs <- c(54.43735, 54.43632, 54.4413, 54.44508, 54.44713, 54.44336, 54.44336)
Geoo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo <- st_union(Geo, Geoo)
LATITUDE_VALUEs <- c(
  26.29526, 26.26094, 26.25293, 26.25247, 26.24908, 26.25509, 26.28264, 26.30326, 26.31327, 26.31757, 
  26.30927)
LONGITUDE_VALUEs <- c(
  54.48389, 54.5062, 54.50723, 54.51084, 54.51392, 54.52817, 54.5407, 54.53573, 54.52852, 54.51375, 
  54.49144)
Geoo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo <- st_union(Geo, Geoo)
LATITUDE_VALUEs <- c(
  26.23831, 26.23446, 26.23692, 26.24231, 26.24385, 26.24724, 26.24631, 26.24878, 26.24677, 26.24616, 
  26.24292, 26.24154, 26.23892)
LONGITUDE_VALUEs <- c(
  55.14411, 55.14411, 55.15354, 55.15475, 55.14994, 55.14685, 55.14256, 55.14153, 55.13776, 55.14033, 
  55.14067, 55.1417, 55.14188)
Geoo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo <- st_union(Geo, Geoo)
LATITUDE_VALUEs <- c(
  26.25755, 26.25755, 26.24878, 26.24862, 26.24754, 26.24924, 26.24785, 26.24878, 26.2574, 26.26186, 
  26.27233, 26.28172, 26.28233, 26.27602, 26.27464, 26.27033, 26.27002, 26.26463, 26.26248)
LONGITUDE_VALUEs <- c(
  55.28554, 55.28949, 55.29378, 55.30082, 55.30716, 55.31266, 55.31592, 55.32278, 55.32072, 55.32261, 
  55.32227, 55.31643, 55.30665, 55.3015, 55.29206, 55.29121, 55.28863, 55.28812, 55.28503)
Geoo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo <- st_union(Geo, Geoo)
Geo_0 <- Geometric_Operations(Geo_1, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_union(Geo_0[c(1, 3:9)]))
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "IRAN")
GeoDATA <- rbind(GeoDATA, Geo_1)

SAPODILLA CAYES is claimed by BELIZE, by GUATEMALA and by HONDURAS.

SAPODILLA CAYES has been controlled by BELIZE since 1996.

HANS ISLAND is claimed by CANADA and by DENMARK (GREENLAND).

HANS ISLAND has been controlled by CANADA and DENMARK (GREENLAND) since 2022.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "CANADA")
Geo_2 <- GeoDATA %>% filter(NAME == "GREENLAND")

##### CANADA #####
LATITUDE_VALUEs <- c(
  80.83188, 80.8258, 80.82192, 80.82129, 80.82263, 80.82424, 80.82712, 80.829, 80.83095, 80.83215, 
  80.8322)
LONGITUDE_VALUEs <- c(
  -66.45649, -66.46352, -66.45048, -66.45082, -66.47433, -66.48961, -66.49252, -66.48755, -66.47656, -66.46232, 
  -66.45769)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
Geo_1 <- st_union(Geo_1, Geo) %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### GREENLAND #####
LATITUDE_VALUEs <- c(80.61522, 80.60356, 80.59998, 80.60737, 80.60894, 80.62305, 80.66947, 80.67504, 80.67304, 80.62215)
LONGITUDE_VALUEs <- c(-66.84949, -66.84811, -66.77124, -66.7328, -66.59002, -66.59826, -66.81929, -66.93872, -66.97716, -66.9195)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_2, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_2 <- st_set_geometry(Geo_2, st_union(Geo_0[1:48]))
Geo_2 <- st_union(Geo_2, Geo)
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
LATITUDE_VALUEs <- c(
  80.83188, 80.8258, 80.82192, 80.82129, 
  80.82131, 80.82298, 80.82509, 80.82791, 80.82824, 80.82928, 80.82966, 80.8321, 80.83237)
LONGITUDE_VALUEs <- c(
  -66.45649, -66.46352, -66.45048, -66.45082,
  -66.43984, -66.41839, -66.4153, -66.41959, -66.42577, -66.4304, -66.43795, -66.44447, -66.44979)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo)
LATITUDE_VALUEs <- c(
  80.50406, 80.50054, 80.4921, 80.4875, 80.48591, 80.48342, 80.48194, 80.48342, 80.49425, 80.50428, 
  80.50779)
LONGITUDE_VALUEs <- c(
  -67.28038, -67.28896, -67.24949, -67.24022, -67.21723, -67.2141, -67.19008, -67.15988, -67.16674, -67.19626, 
  -67.2395)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_union(Geo_2, Geo) %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("CANADA", "GREENLAND"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2)

MBANIÉ ISLAND is claimed by EQUATORIAL GUINEA and by GABON.

MBANIÉ ISLAND has been controlled by GABON since 1974.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "GABON")

##### GABON #####
LATITUDE_VALUEs <- c(0.80023, 0.79998, 0.79984, 0.80014, 0.80038)
LONGITUDE_VALUEs <- c(9.3622, 9.36218, 9.36233, 9.36277, 9.36265)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(0.8064, 0.80658, 0.80647, 0.80465, 0.80431, 0.80476, 0.8058)
LONGITUDE_VALUEs <- c(9.41102, 9.41031, 9.40998, 9.41201, 9.41306, 9.41329, 9.4117)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(0.81062, 0.81041, 0.81035, 0.81058, 0.81084)
LONGITUDE_VALUEs <- c(9.37544, 9.37545, 9.37559, 9.37584, 9.37563)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  0.81111, 0.81061, 0.80973, 0.80962, 0.80928, 0.80933, 0.80982, 0.81018, 0.81085, 0.81095, 
  0.81139, 0.81105, 0.81064, 0.81114, 0.81089, 0.811, 0.81088, 0.81107)
LONGITUDE_VALUEs <- c(
  9.37732, 9.37688, 9.37772, 9.37829, 9.3787, 9.37924, 9.37978, 9.38157, 9.38262, 9.38491, 
  9.38473, 9.38238, 9.38177, 9.38142, 9.37849, 9.37827, 9.37793, 9.37772)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo) %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "GABON")
GeoDATA <- rbind(GeoDATA, Geo_1)

MATTHEW ISLAND AND HUNTER ISLAND are included in NEW CALEDONIA in GeoDATA.

MATTHEW ISLAND AND HUNTER ISLAND are claimed by NEW CALEDONIA and by VANUATU.

MATTHEW ISLAND AND HUNTER ISLAND have been annexed by FRANCE (NEW CALEDONIA) since 1929.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "NEW CALEDONIA")

##### NEW CALEDONIA #####
LATITUDE_VALUEs <- c(
  -22.34166, -22.34176, -22.34281, -22.3439, -22.34486, -22.34511, -22.34654, -22.34664, -22.34579, -22.34605, 
  -22.34664, -22.3468, -22.34557, -22.34535, -22.34561, -22.34539, -22.3445, -22.34398, -22.34319, -22.34228, 
  -22.34263, -22.34128, -22.34045, -22.34033, -22.34109, -22.34101, -22.34049, -22.33954, -22.34015, -22.33958, 
  -22.33974, -22.34067)
LONGITUDE_VALUEs <- c(
  171.351, 171.3504, 171.3502, 171.3508, 171.3507, 171.3511, 171.3518, 171.3552, 171.3569, 171.3577, 
  171.3574, 171.3587, 171.359, 171.3605, 171.3607, 171.3616, 171.3618, 171.3625, 171.3623, 171.3614, 
  171.36, 171.3587, 171.3587, 171.3581, 171.3581, 171.3568, 171.3567, 171.3539, 171.3527, 171.3523, 
  171.3514, 171.3508)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- Geometric_Operations(Geo_1, Geo)
Geo_0 <- st_cast(Geo_0, "POLYGON")
Geo_1 <- st_set_geometry(Geo_1, st_union(Geo_0[c(1:3, 5:17)]))
Geo_1 <- st_union(Geo_1, Geo)
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
LATITUDE_VALUEs <- c(-22.39089, -22.39096, -22.3914, -22.39165, -22.39137, -22.39118)
LONGITUDE_VALUEs <- c(172.0893, 172.0888, 172.0885, 172.0892, 172.0895, 172.0893)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(
  -22.39095, -22.39042, -22.39048, -22.39165, -22.39119, -22.39194, -22.39171, -22.39216, -22.39331, -22.39399, 
  -22.3943, -22.39593, -22.39667, -22.39803, -22.39901, -22.39895, -22.39958, -22.39976, -22.39911, -22.39944, 
  -22.39879, -22.3979, -22.39742, -22.39536, -22.39488, -22.39403, -22.39375, -22.39264, -22.39181, -22.39155, 
  -22.39071, -22.3899, -22.39034)
LONGITUDE_VALUEs <- c(
  172.0871, 172.0864, 172.0855, 172.0849, 172.0841, 172.0838, 172.0829, 172.0826, 172.0839, 172.0839, 
  172.0836, 172.0835, 172.084, 172.0833, 172.0838, 172.0844, 172.0844, 172.0868, 172.0869, 172.0885, 
  172.0894, 172.0896, 172.0893, 172.09, 172.0895, 172.0896, 172.089, 172.0884, 172.0884, 172.0877, 
  172.0883, 172.088, 172.0874)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo)
LATITUDE_VALUEs <- c(-22.58295, -22.59642, -22.60149, -22.60323, -22.60783, -22.61068, -22.60688, -22.58818, -22.58073)
LONGITUDE_VALUEs <- c(168.9508, 168.9515, 168.9491, 168.9426, 168.9414, 168.9433, 168.9488, 168.9585, 168.9555)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_union(Geo_1, Geo) %>%
  mutate(SOURCE = paste(SOURCE, "and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques"))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "NEW CALEDONIA")
GeoDATA <- rbind(GeoDATA, Geo_1)

DOUMEIRA ISLANDS are claimed by DJIBOUTI and by ERITREA.

DOUMEIRA ISLANDS have been a demilitarized neutral zone without sovereignty since 1900.

##### DOUMEIRA ISLANDS #####
LATITUDE_VALUEs <- c(
  12.71364, 12.71402, 12.71207, 12.71187, 12.71354, 12.71693, 12.71796, 12.71902, 12.72041, 12.72139,
  12.72009, 12.71951, 12.71871, 12.71927, 12.719, 12.71992, 12.71948, 12.71971, 12.71911, 12.71886,
  12.71768, 12.71706, 12.7157)
LONGITUDE_VALUEs <- c(
  43.14319, 43.14602, 43.14748, 43.15087, 43.15012, 43.15242, 43.15222, 43.15072, 43.15104, 43.14999,
  43.1489, 43.14686, 43.14613, 43.14497, 43.14407, 43.14354, 43.14109, 43.13985, 43.1398, 43.14079,
  43.14081, 43.14225, 43.14205)
MGeo_1 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  12.71818, 12.7181, 12.71767, 12.71742, 12.71714, 12.71676, 12.7164, 12.71645, 12.71721, 12.71878, 
  12.71894, 12.71903, 12.71937, 12.71946, 12.71967, 12.71991, 12.72012, 12.71996, 12.71971, 12.71937, 
  12.71926, 12.71862)
LONGITUDE_VALUEs <- c(
  43.15579, 43.15704, 43.15718, 43.1576, 43.15764, 43.15812, 43.15828, 43.1586, 43.15849, 43.15664, 
  43.15616, 43.15638, 43.15619, 43.15583, 43.15576, 43.1554, 43.15412, 43.15363, 43.15359, 43.15431, 
  43.15541, 43.1558)
MGeo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
MGeo_1 <- st_union(MGeo_1, MGeo)
MGeo_1 <- MGeo_1 %>%
  mutate(NAME = "DOUMEIRA ISLANDS", VISUALIZATION_NAME = "Doumeira Islands",
         ISO2 = NA, ISO3 = NA, M49_CODE = NA, SOVRN = NA, Claimed = "Djibouti | Eritrea", COUNTRY = NA,
         CONTINENT = "AFRICA",  CONTINENT_CODE = "002", SREGION = "Sub-Saharan Africa", SREGION_CODE = "202",
         IREGION = "Eastern Africa", IREGION_CODE = "014", SIREGION = IREGION, SIREGION_CODE = "014",
         SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques") %>% select(-1)

#New GEOMETRIE(s) in GeoDATA
GeoDATA <- rbind(GeoDATA, MGeo_1)
#DATA MANIPULATIONs on Claimed_Areas_from_Natural_Earth
DATA <- Claimed_Areas_from_Natural_Earth %>% st_drop_geometry() %>% #Drop Geometrie(s)
  select(1, 5, 7, 9, 12:13, 17, 20:23, 25, 28:31) %>% #Remove superfluous columns 
  rename_with(.fn = ~ paste0("NE_", ., recycle0 = TRUE), .cols = c(1, 8:9, 13, 15)) %>% #Rename duplicate columns
  #DATA MANIPULATIONs
  mutate(
    #New Variable => NE_Claimed
    NE_Claimed = ifelse(grepl("(?i)claimed", NOTE_BRK), gsub("(?i).*claimed by\\s*", "", NOTE_BRK), NA),
    #Replace Values in NE_Claimed
    NE_Claimed = sub(";.*", "", NE_Claimed),
    #Replace Values in NE_Claimed
    NE_Claimed = gsub("(?i)the Seychelles", "Seychelles", NE_Claimed),
    NE_Claimed = gsub("(?i)the United States", "United States of America", NE_Claimed),
    #Replace Values in NE_Claimed
    NE_Claimed = gsub("(?i)and", "|", NE_Claimed),
    #Replace Values in NE_Claimed
    NE_Claimed = gsub("(?i),", " |", NE_Claimed),
    #Replace Values in NE_Claimed
    NE_Claimed = gsub("(?i)the", "", NE_Claimed),
    #Replace Values in NE_Claimed
    NE_Claimed = case_when(
      NE_Claimed == "Azer." ~ "Azerbaijan", 
      NE_Claimed == "Irel| | Denmark | | Icel|" ~ "Ireland | Denmark | | Iceland", 
      NE_Claimed == "Marshall Isl|s" ~ "Marshall Islands", 
      NE_Claimed == "multiple" ~ NA, 
      NE_Claimed == "UAE" ~ "United Arab Emirates", TRUE ~ NE_Claimed),
    #Replace Values in NE_ISO2
    NE_ISO2 = case_when(NE_ISO2 == "-99" ~ NA, TRUE ~ NE_ISO2),
    #Replace Values in NE_ISO3
    NE_ISO3 = case_when(NE_ISO3 == "-99" ~ NA, TRUE ~ NE_ISO3),
    #Replace Values in ISO_NUMERIC
    ISO_NUMERIC = case_when(ISO_NUMERIC == "-99" ~ NA, TRUE ~ ISO_NUMERIC),
    #Replace Values in WB_A3
    WB_A3 = case_when(WB_A3 == "-99" ~ NA, TRUE ~ WB_A3),
    #Replace Values in ADMIN_ISO
    ADMIN_ISO = case_when(ADMIN_ISO == "-99" ~ NA, TRUE ~ ADMIN_ISO),
    #Replace Values in NE_CONTINENT
    NE_CONTINENT = case_when(
      NE_CONTINENT == "Seven seas (open ocean)" ~ "Seven Seas", TRUE ~ NE_CONTINENT),
    #NE_CONTINENT From LOWERCASE TO UPPERCASE
    NE_CONTINENT = toupper(NE_CONTINENT), 
    #REGION From LOWERCASE TO UPPERCASE
    REGION = toupper(REGION), 
    #Replace Values in NE_SIREGION
    NE_SIREGION = case_when(
      NE_SIREGION == "Seven seas (open ocean)" ~ "Seven Seas", TRUE ~ NE_SIREGION),
    #Replace Values in WB_REGION
    WB_REGION = case_when(
      WB_REGION == "East Asia & Pacific" ~ "East Asia and Pacific",
      WB_REGION == "Europe & Central Asia" ~ "Europe and Central Asia",
      WB_REGION == "Latin America & Caribbean" ~ "Latin America and Caribbean",
      WB_REGION == "Middle East & North Africa" ~ "Middle East and North Africa", TRUE ~ WB_REGION))
#Remove superfluous columns
DATA <- DATA %>% select(-7)

#GeoDATA To DATA_from_Fondation
DATA_from_Fondation <- GeoDATA %>% st_drop_geometry()

#Combine DATA_from_Fondation | DATA
DATA_from_Fondation <- left_join(
  DATA_from_Fondation, DATA, by = c("VISUALIZATION_NAME" = "BRK_NAME")) %>% select(1:9, 29, 10:17) #Columns ORDER
DATA_from_Fondation <- DATA_from_Fondation %>% distinct(NAME, .keep_all = TRUE) #Remove duplicate rows

#Combine GeoDATA | Claimed_Areas_from_Natural_Earth
GeoDATA <- left_join(
  GeoDATA, DATA, by = c("VISUALIZATION_NAME" = "BRK_NAME")) %>% select(1:9, 30, 10:18) #Columns ORDER
Geo_1 <- GeoDATA %>% filter(NAME == "ILEMI TRIANGLE")
Geo_2 <- GeoDATA %>% filter(NAME == "WESTERN SAHARA")
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("ILEMI TRIANGLE", "WESTERN SAHARA"))
GeoDATA <- rbind(GeoDATA, Geo_1[1, ], Geo_2[1, ])

#Table => Countries in GeoDATA (!in Claimed_Areas_from_Natural_Earth)
DATA <- GeoDATA %>% st_drop_geometry()
# datatable(DATA[is.na(DATA$REGION), ][ , c(1, 7, 10)],
#           options = list(scrollX = TRUE, autoWidth = TRUE,
#                          columnDefs = list(list(targets = "_all", render = JS(
#                            "function(data, type, row, meta) {",
#                            "  if (type === 'display' && data === null) {",
#                            "    return 'NA';", "  }", "  return data;", "}")))),
#           style = "bootstrap", rownames = FALSE, caption = "Countries in GeoDATA (!in Claimed_Areas_from_Natural_Earth)") %>%
#   formatStyle(columns = 1, textAlign = "left") %>% formatStyle(columns = c(2:3), textAlign = "center")
GeoDATA <- GeoDATA %>% select(-10)

No New Countries/Territories.

Now in Our World Administrative Boundaries (GeoDATA):

  • Size in R: 10.90MB
  • Areas: 275 Countries/Territories (275 NAME)
  • 250/249 ISO2 | ISO3 from International Organization for Standardization (ISO) (CLIPPERTON ISLAND)
  • 249/249 Numeric Code (M49_CODE) from International Organization for Standardization (ISO)
  • 116/275 Geometries (SOURCE) from World Health Organization (WHO) - Countries
  • 091/275 Geometries (SOURCE) from Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques
  • 058/275 Geometries (SOURCE) from WHO - Countries and Fondation Jean-Jacques Laffont - TSE
  • 002/275 Geometries (SOURCE) from Global Administrative Areas (GADM)
  • 003/275 Geometries (SOURCE) from Fondation Jean-Jacques Laffont - TSE and Global Administrative Areas (GADM)
  • 004/275 Geometries (SOURCE) from WHO - Countries and Fondation - TSE and Global Administrative Areas (GADM)
#Countries/Territories in GeoDATA
DATA <- GeoDATA %>% st_drop_geometry()
datatable(DATA[ , c(1, 5, 17)], options = list(scrollX = TRUE, autoWidth = TRUE), 
          caption = "Countries/Territories in GeoDATA", style = "bootstrap", rownames = FALSE) %>%
  formatStyle(columns = c(1, 3), textAlign = "left") %>% formatStyle(columns = 2, textAlign = "center")

NAME in GeoDATA \(>\) Residence in International Migrant Stock Data (Residences_in_iMIGRANT_Stock) [275 \(>\) 235].

NAME in GeoDATA \(>\) NAME in GeoDATA_from_WHO (275 \(>\) 241):

  • DONETSK OBLAST | LUHANSK OBLAST | CRIMEA | DOUMEIRA ISLANDS

We will also make a version for our work on Climate Change and Migration Network (CCMN) called CCMN_GeoDATA:

  • DONETSK OBLAST | LUHANSK OBLAST | CRIMEA will be included in UKRAINE (Sovereign Country)

5.6 From World Bank

We check that all countries/territories in GeoDATA_from_World_Bank are in GeoDATA.

#New Variable => SOURCE
GeoDATA_from_World_Bank <- GeoDATA_from_World_Bank %>% 
  mutate(SOURCE = "World Bank Official Boundaries") %>%
  mutate_if(
    is.character, ~case_when(
      . == "American Samoa (US)" ~ "American Samoa",
      . == "Anguilla (UK)" ~ "Anguilla",
      . == "Aruba (Neth.)" ~ "Aruba",
      . == "Bahamas, The" ~ "Bahamas",
      . == "Baker Island (US)" ~ "Baker Island",
      . == "Bermuda (UK)" ~ "Bermuda",
      . == "Bonaire (Neth.)" ~ "Bonaire",
      . == "British Indian Ocean Territory (UK)" ~ "British Indian Ocean Territory",
      . == "British Virgin Islands (UK)" ~ "British Virgin Islands",
      . == "Cayman Islands (UK)" ~ "Cayman Islands", 
      . == "Christmas Island (Aus.)" ~ "Christmas Island",
      . == "Clipperton Island (Fr.)" ~ "Clipperton Island",
      . == "Cocos (Keeling) Islands (Aus.)" ~ "Cocos (Keeling) Islands",
      . == "Congo, Democratic Republic of" ~ "Democratic Republic of the Congo",
      . == "Congo, Rep. of" ~ "Congo",
      . == "Cook Islands (NZ)" ~ "Cook Islands",
      . == "Curaçao (Neth.)" ~ "Curaçao",
      . == "Czech Republic" ~ "Czechia",
      . == "Egypt, Arab Republic of" ~ "Egypt",
      . == "eSwatini" ~ "Eswatini", 
      . == "Falkland Islands (UK)/Islas Malvinas" ~ "Falkland Islands (Malvinas)",
      . == "Faroe Islands (Den.)" ~ "Faroe Islands",
      . == "French Polynesia (Fr.)" ~ "French Polynesia",
      . == "French Southern and Antarctic Lands (Fr.)" ~ "French Southern Territories",
      . == "Gambia, The" ~ "Gambia",
      . == "Gibraltar (UK)" ~ "Gibraltar",
      . == "Greenland (Den.)" ~ "Greenland",
      . == "Guam (US)" ~ "Guam",
      . == "Guantanamo Bay (US)" ~ "Guantanamo Bay Naval Base",
      . == "Guernsey (UK)" ~ "Guernsey", 
      . == "Heard Island and McDonald Islands (Aus.)" ~ "Heard Island and McDonald Islands",
      . == "Hong Kong (SAR, China)" ~ "Hong Kong SAR",
      . == "Howland Island (US)" ~ "Howland Island",
      . == "Iran, Islamic Republic of" ~ "Iran",
      . == "Isle of Man (UK)" ~ "Isle of Man",
      . == "Jarvis Island (US)" ~ "Jarvis Island",
      . == "Jersey (UK)" ~ "Jersey",
      . == "Johnston Atoll (US)" ~ "Johnston Atoll",
      . == "Kingman Reef (US)" ~ "Kingman Reef",
      . == "Korea, Democratic People's Republic of" ~ "Dem. People's Republic of Korea", 
      . == "Korea, Republic of" ~ "Republic of Korea",
      . == "Kyrgyz Republic" ~ "Kyrgyzstan",
      . == "Macau (SAR, China)" ~ "Macao SAR",
      . == "Micronesia, Federated States of" ~ "Micronesia",
      . == "Midway Islands (US)" ~ "Midway Atoll",
      . == "Moldova" ~ "Republic of Moldova",
      . == "Montserrat (UK)" ~ "Montserrat",
      . == "Navassa Island (US)" ~ "Navassa Island",
      . == "New Caledonia (Fr.)" ~ "New Caledonia",
      . == "Niue (NZ)" ~ "Niue", 
      . == "Norfolk Island (Aus.)" ~ "Norfolk Island",
      . == "Northern Mariana Islands (US)" ~ "Northern Mariana Islands",
      . == "Palmyra Atoll (US)" ~ "Palmyra Atoll",
      . == "Pitcairn Islands (UK)" ~ "Pitcairn",
      . == "Puerto Rico (US)" ~ "Puerto Rico",
      . == "Saba (Neth.)" ~ "Saba",
      . == "Saint Helena, Ascension and Tristan da Cunha (UK)" ~ "Saint Helena, Ascension and Tristan da Cunha",
      . == "Saint-Barthélemy (Fr.)" ~ "Saint Barthélemy",
      . == "Saint-Martin (Fr.)" ~ "Saint Martin",
      . == "Saint-Pierre-et-Miquelon (Fr.)" ~ "Saint Pierre and Miquelon", 
      . == "Sint Eustatius (Neth.)" ~ "Sint Eustatius",
      . == "Sint Maarten (Neth.)" ~ "Sint Maarten",
      . == "Slovak Republic" ~ "Slovakia",
      . == "South Georgia and South Sandwich Islands (UK)" ~ "South Georgia and the South Sandwich Islands",
      . == "São Tomé and Príncipe" ~ "Sao Tome and Principe",
      . == "Tanzania" ~ "United Republic of Tanzania",
      . == "Tokelau (NZ)" ~ "Tokelau",
      . == "Turkey" ~ "Türkiye",
      . == "Turks and Caicos Islands (UK)" ~ "Turks and Caicos Islands",
      . == "U.S. Virgin Islands (US)" ~ "United States Virgin Islands", 
      . == "United Kingdom" ~ "United Kingdom of Great Britain and Northern Ireland",
      . == "Vatican City" ~ "Holy See",
      . == "Venezuela, Republica Bolivariana de" ~ "Venezuela",
      . == "Vietnam" ~ "Viet Nam",
      . == "Wake Island (US)" ~ "Wake Island",
      . == "Wallis-et-Futuna (Fr.)" ~ "Wallis and Futuna Islands",
      . == "West Bank and Gaza" ~ "State of Palestine",
      . == "Yemen, Republic of" ~ "Yemen", TRUE ~ .))

#Combine GeoDATA_from_World_Bank | GeoDATA
DATA <- left_join(
  GeoDATA_from_World_Bank, GeoDATA %>% st_drop_geometry(), by = c("WB_NAME" = "VISUALIZATION_NAME"))
DATA <- DATA %>% st_drop_geometry()
# DATA <- DATA %>% rename(CONTINENT = 24)
# datatable(DATA[is.na(DATA$CONTINENT), ][ , c(14, 24)],
#           options = list(scrollX = TRUE, autoWidth = TRUE,
#                          columnDefs = list(list(targets = "_all", render = JS(
#                            "function(data, type, row, meta) {",
#                            "  if (type === 'display' && data === null) {",
#                            "    return 'NA';", "  }", "  return data;", "}")))),
#           style = "bootstrap", rownames = FALSE,
#           caption = "Countries in GeoDATA_from_World_Bank (!in GeoDATA)") %>%
#   formatStyle(columns = 1, textAlign = "left", `text-transform` = "uppercase") %>%
#   formatStyle(columns = 2, textAlign = "center")

No New Countries/Territories.

#DATA MANIPULATIONs on GeoDATA_from_World_Bank
DATA <- GeoDATA_from_World_Bank %>% st_drop_geometry() %>% #Drop Geometrie(s)
  select(3:12, 14) %>% #Remove superfluous columns 
  rename_with(.fn = ~ paste0("WB_", ., recycle0 = TRUE), .cols = c(1:2, 4, 7, 9)) %>% #Rename duplicate columns
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in WB_ISO2
    WB_ISO2 = case_when(WB_ISO2 == "-99" ~ NA, TRUE ~ WB_ISO2),
    #Replace Values in WB_ISO3
    WB_ISO3 = case_when(WB_ISO3 == "-99" ~ NA, TRUE ~ WB_ISO3),
    #Replace Values in ISO_NUMERIC
    ISO_NUMERIC = case_when(ISO_NUMERIC == "-99" ~ NA, TRUE ~ ISO_NUMERIC),
    #Replace Values in WB_M49_CODE
    WB_M49_CODE = case_when(WB_M49_CODE == "-99" ~ NA, WB_M49_CODE == "-099" ~ NA, TRUE ~ WB_M49_CODE),
    #Replace Values in WB_A2
    WB_A2 = case_when(WB_A2 == "-99" ~ NA, TRUE ~ WB_A2),
    #Replace Values in WB_CONTINENT
    WB_CONTINENT = case_when(
      WB_CONTINENT == "Seven seas (open ocean)" ~ "Seven Seas", TRUE ~ WB_CONTINENT),
    #WB_CONTINENT From LOWERCASE TO UPPERCASE
    WB_CONTINENT = toupper(WB_CONTINENT), 
     #Replace Values in REGION
    REGION = case_when(
      REGION == "Seven seas (open ocean)" ~ "Seven Seas", TRUE ~ REGION),
    #REGION From LOWERCASE TO UPPERCASE
    REGION = toupper(REGION), 
    #Replace Values in WB_SIREGION
    WB_SIREGION = case_when(
      WB_SIREGION == "Seven seas (open ocean)" ~ "Seven Seas", TRUE ~ WB_SIREGION),
    #Replace Values in WB_REGION
    WB_REGION = case_when(
      WB_REGION == "East Asia & Pacific" ~ "East Asia and Pacific",
      WB_REGION == "Europe & Central Asia" ~ "Europe and Central Asia",
      WB_REGION == "Latin America & Caribbean" ~ "Latin America and Caribbean",
      WB_REGION == "Middle East & North Africa" ~ "Middle East and North Africa", TRUE ~ WB_REGION))

#GeoDATA To DATA_from_Fondation
DATA_from_Fondation <- GeoDATA %>% st_drop_geometry()

#Combine DATA_from_Fondation | DATA
DATA_from_Fondation <- left_join(
  DATA_from_Fondation, DATA, by = c("VISUALIZATION_NAME" = "WB_NAME")) %>% select(1:9, 25, 10:17) #Columns ORDER

#Combine GeoDATA | GeoDATA_from_World_Bank
GeoDATA <- left_join(
  GeoDATA, DATA, by = c("VISUALIZATION_NAME" = "WB_NAME")) %>% select(1:9, 26, 10:18) #Columns ORDER

#Table => Countries in GeoDATA (!in GeoDATA_from_World_Bank)
DATA <- GeoDATA %>% st_drop_geometry()
# datatable(DATA[is.na(DATA$REGION), ][ , c(1, 7, 10)],
#           options = list(scrollX = TRUE, autoWidth = TRUE,
#                          columnDefs = list(list(targets = "_all", render = JS(
#                            "function(data, type, row, meta) {",
#                            "  if (type === 'display' && data === null) {",
#                            "    return 'NA';", "  }", "  return data;", "}")))),
#           style = "bootstrap", rownames = FALSE, caption = "Countries in GeoDATA (!in GeoDATA_from_World_Bank)") %>%
#   formatStyle(columns = 1, textAlign = "left") %>% formatStyle(columns = c(2:3), textAlign = "center")
GeoDATA <- GeoDATA %>% select(-10)

No New Countries/Territories.

6 Retrieve Information For Our DEA

To be able to represent the whole stock table (see section 3) in our Data Exploration Application (DEA), we require additional information. We obtain this from two sources:

6.1 From UN | Statistics Division

There are 3 Development Levels from OHRLLS in International Migrant Stock Data (see section 3):

  • Least Developed Countries (LDC)
  • Land-Locked Developing Countries (LLDC)
  • Small Island Developing States (SIDS)

We have found method. data from UNSD which lists countries as LDC | LLDC | SIDS. There are 3 variables (LDC | LLDC | SIDS), with a small cross (x) if an area is in one level (an area can be in 2 levels at once).

#######################################
##### Load Classification File(s) #####
#######################################

##### United Nations Statistic Division (UNSD) #####
Methodo_from_ONU <- read_excel("../Données/REGIONs/ONU/methodo.xlsx") %>% select(3:15) %>% 
  rename(CONTINENT_CODE = 1, CONTINENT = 2, SREGION_CODE = 3, SREGION = 4, 
         IREGION_CODE = 5, IREGION = 6, AREA = 7, M49_CODE = 8, ISO2 = 9, ISO3 = 10, LDC = 11, LLDC = 12, SIDS = 13)

We check that all countries/territories in Methodo_from_ONU are in GeoDATA.

#DATA MANIPULATIONs on Methodo_from_ONU
Methodo_from_ONU <- Methodo_from_ONU %>%
  mutate_if(
    is.character, ~case_when(
      . == "Bolivia (Plurinational State of)" ~ "Bolivia",
      . == "China, Hong Kong Special Administrative Region" ~ "Hong Kong SAR",
      . == "China, Macao Special Administrative Region" ~ "Macao SAR",
      . == "Côte d’Ivoire" ~ "Côte d'Ivoire",
      . == "Democratic People's Republic of Korea" ~ "Dem. People's Republic of Korea",
      . == "Iran (Islamic Republic of)" ~ "Iran",
      . == "Micronesia (Federated States of)" ~ "Micronesia",
      . == "Netherlands (Kingdom of the)" ~ "Netherlands",
      . == "Saint Helena" ~ "Saint Helena, Ascension and Tristan da Cunha",
      . == "Saint Martin (French Part)" ~ "Saint Martin",
      . == "Sint Maarten (Dutch part)" ~ "Sint Maarten",
      . == "Svalbard and Jan Mayen Islands" ~ "Svalbard and Jan Mayen",
      . == "Venezuela (Bolivarian Republic of)" ~ "Venezuela", TRUE ~ .))

#Combine Methodo_from_ONU | GeoDATA
DATA <- left_join(
  Methodo_from_ONU, GeoDATA %>% st_drop_geometry(), by = c("AREA" = "VISUALIZATION_NAME"))
DATA <- DATA %>% rename(CONTINENT = 21)
# datatable(DATA[is.na(DATA$CONTINENT), ][ , c(7, 21)],
#           options = list(scrollX = TRUE, autoWidth = TRUE,
#                          columnDefs = list(list(targets = "_all", render = JS(
#                            "function(data, type, row, meta) {",
#                            "  if (type === 'display' && data === null) {",
#                            "    return 'NA';", "  }", "  return data;", "}")))),
#           style = "bootstrap", rownames = FALSE,
#           caption = "Countries in Methodo_from_ONU (!in GeoDATA)") %>%
#   formatStyle(columns = 1, textAlign = "left", `text-transform` = "uppercase") %>%
#   formatStyle(columns = 2, textAlign = "center")

No New Countries/Territories.

#DATA MANIPULATIONs on Methodo_from_ONU
DATA <- Methodo_from_ONU %>%
  rename_with(.fn = ~ paste0("ONU_", ., recycle0 = TRUE), .cols = c(1:6, 8:10)) %>% #Rename duplicate columns
  #DATA MANIPULATIONs
  mutate(
    #ONU_CONTINENT_CODE From NUMERIC TO CHARACTER
    ONU_CONTINENT_CODE = case_when(
      nchar(ONU_CONTINENT_CODE) == 1 ~ paste0("00", ONU_CONTINENT_CODE), 
      nchar(ONU_CONTINENT_CODE) == 2 ~ paste0("0", ONU_CONTINENT_CODE), TRUE ~ as.character(ONU_CONTINENT_CODE)),
    #ONU_CONTINENT From LOWERCASE TO UPPERCASE
    ONU_CONTINENT = toupper(ONU_CONTINENT),
    #ONU_IREGION_CODE From NUMERIC TO CHARACTER
    ONU_IREGION_CODE = case_when(
      nchar(ONU_IREGION_CODE) == 1 ~ paste0("00", ONU_IREGION_CODE), 
      nchar(ONU_IREGION_CODE) == 2 ~ paste0("0", ONU_IREGION_CODE), TRUE ~ as.character(ONU_IREGION_CODE)),
    #Replace Values in ONU_SREGION
    ONU_SREGION = case_when(ONU_SREGION == "South-eastern Asia" ~ "South-Eastern Asia", TRUE ~ ONU_SREGION),
    #ONU_SREGION_CODE From NUMERIC TO CHARACTER
    ONU_SREGION_CODE = case_when(
      nchar(ONU_SREGION_CODE) == 1 ~ paste0("00", ONU_SREGION_CODE), 
      nchar(ONU_SREGION_CODE) == 2 ~ paste0("0", ONU_SREGION_CODE), TRUE ~ as.character(ONU_SREGION_CODE)),
    #ONU_M49_CODE From NUMERIC TO CHARACTER
    ONU_M49_CODE = case_when(
      nchar(ONU_M49_CODE) == 1 ~ paste0("00", ONU_M49_CODE), 
      nchar(ONU_M49_CODE) == 2 ~ paste0("0", ONU_M49_CODE), TRUE ~ as.character(ONU_M49_CODE)))
    
#GeoDATA To DATA_from_Fondation
DATA_from_Fondation <- GeoDATA %>% st_drop_geometry()

#Combine DATA_from_Fondation | DATA
DATA_from_Fondation <- left_join(
  DATA_from_Fondation, DATA, by = c("VISUALIZATION_NAME" = "AREA")) %>% select(1:9, 19, 10:16, 27:29, 17) #Columns ORDER

#Combine GeoDATA | Methodo_from_ONU
GeoDATA <- left_join(
  GeoDATA, DATA, by = c("VISUALIZATION_NAME" = "AREA")) %>% select(1:9, 20, 10:16, 28:30, 17:18) #Columns ORDER

#Table => Countries in GeoDATA (!in Methodo_from_ONU)
DATA <- GeoDATA %>% st_drop_geometry()
# datatable(DATA[is.na(DATA$ONU_CONTINENT), ][ , c(1, 7, 10)],
#           options = list(scrollX = TRUE, autoWidth = TRUE,
#                          columnDefs = list(list(targets = "_all", render = JS(
#                            "function(data, type, row, meta) {",
#                            "  if (type === 'display' && data === null) {",
#                            "    return 'NA';", "  }", "  return data;", "}")))),
#           style = "bootstrap", rownames = FALSE, caption = "Countries in GeoDATA (!in Methodo_from_ONU)") %>%
#   formatStyle(columns = 1, textAlign = "left") %>% formatStyle(columns = c(2:3), textAlign = "center")
GeoDATA <- GeoDATA %>% select(-10)

No New Countries/Territories.

We have method. data from UNSD (2023) with LDC (46) | LLDC (32) | SIDS (53), and we know LDC (47) | LLDC (32) | SIDS (58) in method. from UN | Population Division (2020):

  • VANUATU ceased to be a LDC in December 2020 (46 To 47) (Sources: 1 | 2)
  • BERMUDA, CAYMAN ISLANDS, GUADELOUPE, MARTINIQUE and TURKS AND CAICOS ISLANDS (53 To 58) were not included in method. data from UNSD (Source)
  • BAHRAIN is also a SIDS since we need it to retrieve the correct data thanks to countries data (58 To 59) (see CCMN_IMS_from_ONU.html file)

Remarks:

  • 59 countries in SIDS, as BONAIRE, SABA AND SINT EUSTATIUS are also in SIDS
  • BHUTAN ceased to be a LDC in December 2023
#########################################
##### DATA MANIPULATIONs on GeoDATA #####
#########################################

#Replace Values in LDC
GeoDATA[which(GeoDATA$NAME == "VANUATU"), "LDC"] <- "x"
#Replace Values in SIDS
GeoDATA[
  GeoDATA$NAME %in% 
    c("BAHRAIN", "BERMUDA", "CAYMAN ISLANDS", "GUADELOUPE", "MARTINIQUE", "TURKS AND CAICOS ISLANDS"), "SIDS"] <- "x"

6.2 From World Bank

There are 3/4 Income Levels from World Bank (see section 3):

  • High-Income Countries (HIGH)
  • Middle-Income Countries
    • Upper-Middle-Income Countries (UPPER-MIDDLE)
    • Lower-Middle-Income Countries (LOWER-MIDDLE)
  • Low-Income Countries (LOW)

We found that World Bank DATA (2020-07-01) was used in method. from UN | Population Division (2020):

  • World Bank (2020-07-01) \(=\) Bank’s Fiscal Year (FY) 2021 (FY2021) \(=\) DATA for Calendar Year 2019

There is a variable (IncomeLevel) which indicates countries’ income level (HIGH | UPPER-MIDDLE | LOWER-MIDDLE | LOW).

#######################################
##### Load Classification File(s) #####
#######################################

##### World Bank (2020-07-01) #####
World_Bank <- read_excel("../Données/REGIONs/World Bank/world_bank.xlsx", sheet = 3, skip = 10) %>%
  select(1:2, 35) %>% rename(ISO= 1, NAME = 2, IncomeLevel = 3) %>% slice(1:(n() - 11))

We check that all countries/territories in World_Bank are in GeoDATA.

#DATA MANIPULATIONs on World_Bank
World_Bank <- World_Bank %>%
  mutate_if(
    is.character, ~case_when(
      . == "Bahamas, The" ~ "Bahamas",
      . == "Congo, Dem. Rep." ~ "Democratic Republic of the Congo",
      . == "Congo, Rep." ~ "Congo",
      . == "Czech Republic" ~ "Czechia",
      . == "Egypt, Arab Rep." ~ "Egypt",
      . == "Faeroe Islands" ~ "Faroe Islands",
      . == "Gambia, The" ~ "Gambia",
      . == "Hong Kong SAR, China" ~ "Hong Kong SAR",
      . == "Iran, Islamic Rep." ~ "Iran",
      . == "Korea, Dem. Rep." ~ "Dem. People's Republic of Korea",
      . == "Korea, Rep." ~ "Republic of Korea",
      . == "Kyrgyz Republic" ~ "Kyrgyzstan",
      . == "Lao PDR" ~ "Lao People's Democratic Republic",
      . == "Macao SAR, China" ~ "Macao SAR",
      . == "Micronesia, Fed. Sts." ~ "Micronesia",
      . == "Moldova" ~ "Republic of Moldova",
      . == "Sint Maarten (Dutch part)" ~ "Sint Maarten",
      . == "Slovak Republic" ~ "Slovakia",
      . == "St. Kitts and Nevis" ~ "Saint Kitts and Nevis",
      . == "St. Lucia" ~ "Saint Lucia",
      . == "St. Martin (French part)" ~ "Saint Martin",
      . == "St. Vincent and the Grenadines" ~ "Saint Vincent and the Grenadines",
      . == "São Tomé and Príncipe" ~ "Sao Tome and Principe",
      . == "Taiwan, China" ~ "Taiwan (Province of China)",
      . == "Tanzania" ~ "United Republic of Tanzania",
      . == "United Kingdom" ~ "United Kingdom of Great Britain and Northern Ireland",
      . == "United States" ~ "United States of America",
      . == "Venezuela, RB" ~ "Venezuela",
      . == "Vietnam" ~ "Viet Nam",
      . == "Virgin Islands (U.S.)" ~ "United States Virgin Islands",
      . == "West Bank and Gaza" ~ "State of Palestine",
      . == "Yemen, Rep." ~ "Yemen", TRUE ~ .))

#Combine World_Bank | GeoDATA
DATA <- left_join(
  World_Bank, GeoDATA %>% st_drop_geometry(), by = c("NAME" = "VISUALIZATION_NAME"))
# datatable(DATA[is.na(DATA$CONTINENT), ][ , c(2, 11)],
#           options = list(scrollX = TRUE, autoWidth = TRUE,
#                          columnDefs = list(list(targets = "_all", render = JS(
#                            "function(data, type, row, meta) {",
#                            "  if (type === 'display' && data === null) {",
#                            "    return 'NA';", "  }", "  return data;", "}")))),
#           style = "bootstrap", rownames = FALSE,
#           caption = "Countries in World_Bank (!in GeoDATA)") %>%
#   formatStyle(columns = 1, textAlign = "left", `text-transform` = "uppercase") %>%
#   formatStyle(columns = 2, textAlign = "center")

No New Countries/Territories.

#GeoDATA To DATA_from_Fondation
DATA_from_Fondation <- GeoDATA %>% st_drop_geometry()

#Combine DATA_from_Fondation | World_Bank
DATA_from_Fondation <- left_join(
  DATA_from_Fondation, World_Bank, by = c("VISUALIZATION_NAME" = "NAME")) %>% select(1:19, 22, 20) #Columns ORDER

#Combine GeoDATA | World_Bank
GeoDATA <- left_join(
  GeoDATA, World_Bank, by = c("VISUALIZATION_NAME" = "NAME")) %>%
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in IncomeLevel
    IncomeLevel = case_when(
      IncomeLevel == "H" ~ "HIGH", 
      IncomeLevel == "UM" ~ "UPPER-MIDDLE",
      IncomeLevel == "LM" ~ "LOWER-MIDDLE",
      IncomeLevel == "L" ~ "LOW")) %>% 
  select(1:19, 23, 20:21) #Columns ORDER

#Table => Countries in GeoDATA (!in World_Bank)
DATA <- GeoDATA %>% st_drop_geometry()
# datatable(DATA[is.na(DATA$IncomeLevel), ][ , c(1, 20)],
#           options = list(scrollX = TRUE, autoWidth = TRUE,
#                          columnDefs = list(list(targets = "_all", render = JS(
#                            "function(data, type, row, meta) {",
#                            "  if (type === 'display' && data === null) {",
#                            "    return 'NA';", "  }", "  return data;", "}")))),
#           style = "bootstrap", rownames = FALSE, caption = "Countries in GeoDATA (!in World_Bank)") %>%
#   formatStyle(columns = 1, textAlign = "left") %>% formatStyle(columns = c(2:3), textAlign = "center")

No New Countries/Territories.

CHANNEL ISLANDS in World_Bank \(=\) JERSEY \(+\) GUERNSEY in GeoDATA.

IncomeLevel \(=\) HIGH for CHANNEL ISLANDS, which implies IncomeLevel \(=\) HIGH for JERSEY | GUERNSEY.

#########################################
##### DATA MANIPULATIONs on GeoDATA #####
#########################################

#Replace Values in IncomeLevel
GeoDATA[GeoDATA$NAME %in% c("GUERNSEY", "JERSEY"), "IncomeLevel"] <- "HIGH"

6.3 Classification Variables

There are several classifications in International Migrant Stock Data (see section 3), we construct new variables to capture these classifications:

  • ContinentalREGION from CONTINENT and SREGION.
  • GeoREGION from CONTINENT and SREGION.
  • 3 development level variables:
    • MoreLess from NAME | CONTINENT | SREGION | GeoREGION
    • MoreLessLeast from MoreLess and LDC
    • DevLevel from LDC | LLDC | SIDS
#DATA MANIPULATIONs on GeoDATA
GeoDATA <- GeoDATA %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => ContinentalREGION
    ContinentalREGION = case_when(
      CONTINENT == "AFRICA" ~ "Africa", 
      CONTINENT == "ASIA" ~ "Asia",
      CONTINENT == "EUROPE" ~ "Europe",
      CONTINENT == "AMERICAS" & SREGION == "Latin America and the Caribbean" ~ "Latin America and the Caribbean",
      CONTINENT == "AMERICAS" & SREGION == "Northern America" ~ "Northern America",
      CONTINENT == "OCEANIA" ~ "Oceania"),
    #New Variable => GeoREGION
    GeoREGION = case_when(
      SREGION == "Australia and New Zealand" ~ "Australia and New Zealand",
      SREGION %in% c("Central Asia", "Southern Asia") ~ "Central and Southern Asia",
      CONTINENT == "EUROPE" ~ "Europe and Northern America",
      SREGION %in% c("Eastern Asia", "South-Eastern Asia") ~ "Eastern and South-Eastern Asia",
      SREGION == "Northern America" ~ "Europe and Northern America",
      SREGION == "Latin America and the Caribbean" ~ "Latin America and the Caribbean",
      SREGION %in% c("Northern Africa", "Western Asia") ~ "Northern Africa and Western Asia",
      SREGION %in% c("Melanesia", "Micronesia", "Polynesia") ~ "Oceania*",
      SREGION == "Sub-Saharan Africa" ~ "Sub-Saharan Africa"),
    #New Variable => MoreLess
    MoreLess = case_when(
      CONTINENT == "AFRICA" ~ "Less Developed",
      CONTINENT == "ASIA" & !(NAME == "JAPAN")  ~ "Less Developed",
      CONTINENT == "OCEANIA" & !(NAME %in% c("AUSTRALIA", "NEW ZEALAND"))  ~ "Less Developed",
      SREGION == "Latin America and the Caribbean" ~ "Less Developed",
      NAME %in% c("AUSTRALIA", "JAPAN", "NEW ZEALAND") ~ "More Developed",
      GeoREGION == "Europe and Northern America" ~ "More Developed"),
    #New Variable => MoreLessLeast
    MoreLessLeast = case_when(
      LDC == "x" ~ "Least Developed",
      MoreLess == "Less Developed" ~ "Less Developed*", 
      MoreLess == "More Developed" ~ "More Developed"),
    #New Variable => DevLevel
    DevLevel = case_when(
      LDC == 'x' & is.na(LLDC) & is.na(SIDS) ~ 'LDC*',
      LDC == 'x' & LLDC == 'x' & is.na(SIDS) ~ 'LDC | LLDC',
      LDC == 'x' & is.na(LLDC) & SIDS == 'x' ~ 'LDC | SIDS',
      is.na(LDC) & LLDC == 'x' & is.na(SIDS) ~ 'LLDC*',
      is.na(LDC) & is.na(LLDC) & SIDS == 'x' ~ 'SIDS*')) %>% 
  select(1:20, 23:27, 21:22) #Columns ORDER

6.4 Variables For Our DEA

We require additional information to build our Data Exploration Application (DEA), we create new variables:

  • Label | CLRCode | AREA | BBOX_AREA
  • Centroid | Centroid_of_LARGEST_POLYGON | BBOX_Centroid

We attribute a color code (CLRCode) to all countries derived from Continental Regions colors:

  • Territories (M49_CODE \(=\) NA) \(\Rightarrow\) CLRCode \(=\) #999999
#DATA MANIPULATIONs on GeoDATA
GeoDATA <- GeoDATA %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => Label
    Label = paste0("<b>Name: </b>", NAME, "<br>",
                   "<b>Alpha-2 Code (ISO2): </b>", ISO2, "<br>",
                   "<b>Alpha-3 Code (ISO3): </b>", ISO3, "<br>",
                   "<b>Numeric Code (M49 Code): </b>", M49_CODE)) %>%
  select(1:25, 28, 26:27) #Columns ORDER

##### New Variable => CLRCode #####
ContinentalREGIONs <- na.omit(unique(GeoDATA$ContinentalREGION))
ColorCodes <- data.frame(NAME = character(), CLRCode = character())
for (ContinentalREGION in ContinentalREGIONs) {
  if (ContinentalREGION == "Africa") {
    Color_0 <- "#CCFF33"
    Color_1 <- "#336600"}
  else if (ContinentalREGION == "Asia") {
    Color_0 <- c("#FF9900", "#FFCC99")
    Color_1 <- c("#E16A2D", "#996600") 
    LENGTH_0 <- c(1, 26)
    LENGTH_1 <- c(25, 51)}
  else if (ContinentalREGION == "Europe") {
    Color_0 <- "#33CCFF"
    Color_1 <- "#003366"}
  else if (ContinentalREGION == "Latin America and the Caribbean") {
    Color_0 <- "#FF0000"
    Color_1 <- "#660000"}
  else if (ContinentalREGION == "Northern America") {
    Color_0 <- "#CC99FF"
    Color_1 <- "#663399"}
  else if (ContinentalREGION == "Oceania") {
    Color_0 <- "#F1C40F"
    Color_1 <- "#FFFFCC"}
  #COUNTRIEs in GeoDATA
  Countries <- GeoDATA$NAME[which(GeoDATA$ContinentalREGION == ContinentalREGION)]
  #COUNTRIEs in GeoDATA (Remove Territories => M49_CODE == NA)
  Countries <- Countries[!is.na(GeoDATA$M49_CODE[which(GeoDATA$ContinentalREGION == ContinentalREGION)])]
  #ORDER Countries
  Countries <- sort(Countries)
  #CREATE ColorPalette
  if (ContinentalREGION == "Asia") {
    COLORCodes <- unlist(
      sapply(1:2, function(i) colorRampPalette(
        c(Color_0[i], Color_1[i]))(length(Countries[LENGTH_0[i]:LENGTH_1[i]]))))
    } else {COLORCodes <- colorRampPalette(c(Color_0, Color_1))(length(Countries))}
  #STORE all CLRCode
  ColorCodes <- rbind(ColorCodes, data.frame(NAME = Countries, CLRCode = COLORCodes))}

#DATA MANIPULATIONs on GeoDATA
GeoDATA <- left_join(
  GeoDATA, ColorCodes, by = c("NAME" = "NAME")) %>%
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in CLRCode
    CLRCode = case_when(
      M49_CODE == "010" ~ "#F9F9F9",
      is.na(M49_CODE) ~ "#999999", TRUE ~ CLRCode)) %>%
  select(1:26, 29, 27:28) #Columns ORDER

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "ANGOLA")
Geo_2 <- GeoDATA %>% filter(NAME == "KIRIBATI")
Geo_3 <- GeoDATA %>% filter(NAME == "NIGERIA")
Geo_4 <- GeoDATA %>% filter(NAME == "NORWAY")
Geo_5 <- GeoDATA %>% filter(NAME == "SIERRA LEONE")

##### ANGOLA #####
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# st_is_valid(Geo_1)

##### KIRIBATI #####
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
# st_is_valid(Geo_2)

##### NIGERIA #####
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
# st_is_valid(Geo_3)

##### NORWAY #####
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
# st_is_valid(Geo_4)

##### SIERRA LEONE #####
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}
# st_is_valid(Geo_5)

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% 
  filter(!NAME %in% c("ANGOLA", "KIRIBATI", "NIGERIA", "NORWAY", "SIERRA LEONE"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3, Geo_4, Geo_5)

#DATA MANIPULATIONs on GeoDATA
GeoDATA <- GeoDATA %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => AREA
    AREA = round(as.numeric(gsub("\\[m\\^2\\]", "", st_area(geometry) / 1e6)), 5),
    #New Variable => BBOX_AREA
    BBOX_AREA = round(
      as.numeric(gsub("\\[m\\^2\\]", "", st_area(st_as_sfc(st_bbox(geometry))) / 1e6)), 5)) %>% ungroup() %>%
  select(1:27, 30:31, 28:29) #Columns ORDER

#DATA MANIPULATIONs on GeoDATA
GeoDATA <- GeoDATA %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => Centroid_X | Centroid_Y
    Centroid_X = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 1],
    Centroid_Y = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 2],
    #New Variable(s) => Centroid_of_LARGEST_POLYGON_X, Centroid_of_LARGEST_POLYGON_Y
    Centroid_of_LARGEST_POLYGON_X = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 1],
    Centroid_of_LARGEST_POLYGON_Y = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 2]) %>%
  select(1:29, 32:35, 30:31) #Columns ORDER

#DATA MANIPULATIONs on GeoDATA
GeoDATA <- GeoDATA %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => BBOX_Centroid_X | BBOX_Centroid_Y
    BBOX_Centroid_X = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 1],
    BBOX_Centroid_Y = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 2]) %>% ungroup() %>%
  select(1:33, 36:37, 34:35) #Columns ORDER

7 Geometries’ Accuracy

We want to have the best possible Geometries’ Accuracy for all countries/territories.

We check all small countries’s/territories’ Geometries without modifications:

  • AREA \(<\) Quantile(0.25) (1495km\(^2\))
  • SOURCE \(=\) World Health Organization (WHO) - Countries
#Countries/Territories in GeoDATA
DATA <- GeoDATA %>% st_drop_geometry() %>% filter(SOURCE == "World Health OrGanization (WHO) - Countries")
DATA <- DATA %>% filter(AREA < quantile(GeoDATA$AREA, probs = 0.25)) %>% arrange(AREA)
datatable(DATA[ , c(1, 28, 36)], options = list(scrollX = TRUE, autoWidth = TRUE), 
          caption = "Countries/Territories in GeoDATA", style = "bootstrap", rownames = FALSE) %>%
  formatStyle(columns = c(1, 3), textAlign = "left") %>% formatStyle(columns = 2, textAlign = "center")

We create our own Geometries for these countries/territories.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "HOLY SEE")
Geo_2 <- GeoDATA %>% filter(NAME == "SAN MARINO")
Geo_3 <- GeoDATA %>% filter(NAME == "ITALY")

##### ITALY #####
Geo_0 <- st_union(Geo_3, Geo_1)
Geo_0 <- st_union(Geo_0, Geo_2)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0))
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}

##### HOLY SEE #####
LATITUDE_VALUEs <- c(
  41.90196, 41.90164, 41.90179, 41.901, 41.90086, 41.90069, 41.90082, 41.90099, 41.90083, 41.90059,
  41.90036, 41.90028, 41.9005, 41.9002, 41.9004, 41.90074, 41.90142, 41.90167, 41.9013, 41.90116,
  41.90131, 41.90174, 41.90247, 41.90307, 41.90326, 41.90582, 41.9063, 41.90738, 41.90699, 41.90681,
  41.90666, 41.90638, 41.90658, 41.9065, 41.90599, 41.90585, 41.90504, 41.90518, 41.90505, 41.90473,
  41.90468, 41.90362, 41.90371, 41.90335, 41.90313, 41.90299, 41.90219, 41.90236)
LONGITUDE_VALUEs <- c(
  12.4458, 12.44654, 12.44672, 12.44796, 12.4478, 12.44794, 12.44877, 12.44876, 12.45088, 12.45085,
  12.45181, 12.45279, 12.45282, 12.4545, 12.45459, 12.45433, 12.45431, 12.45628, 12.45666, 12.4573,
  12.45793, 12.45831, 12.45836, 12.45801, 12.45755, 12.45766, 12.45565, 12.4554, 12.45383, 12.45387,
  12.45258, 12.45145, 12.45137, 12.45052, 12.45032, 12.45051, 12.44944, 12.44926, 12.44894, 12.44888,
  12.4491, 12.44862, 12.44837, 12.44781, 12.44763, 12.44787, 12.44685, 12.44661)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

##### SAN MARINO #####
LATITUDE_VALUEs <- c(
  43.95668, 43.95779, 43.95297, 43.9526, 43.95551, 43.95291, 43.94778, 43.94185, 43.93789, 43.92906,
  43.92473, 43.92046, 43.90927, 43.90284, 43.90024, 43.90092, 43.90321, 43.90371, 43.90179, 43.90142,
  43.90352, 43.90321, 43.90439, 43.9063, 43.90204, 43.89925, 43.89486, 43.89375, 43.89468, 43.89381,
  43.89666, 43.89666, 43.90241, 43.90952, 43.91032, 43.91848, 43.92281, 43.92362, 43.92708, 43.93406,
  43.94068, 43.95025, 43.95823, 43.96292, 43.96434, 43.97126, 43.97243, 43.9812, 43.98448, 43.98472,
  43.99121, 43.99084, 43.9922, 43.99065, 43.98676, 43.98621, 43.98275, 43.98349, 43.98102, 43.98114,
  43.97762, 43.96836, 43.9657, 43.96595, 43.96138, 43.96094)
LONGITUDE_VALUEs <- c(
  12.43658, 12.41994, 12.41616, 12.41135, 12.40406, 12.40217, 12.40518, 12.40509, 12.41222, 12.41565,
  12.40913, 12.40775, 12.41256, 12.40852, 12.41136, 12.42337, 12.425, 12.42792, 12.42998, 12.43324,
  12.43478, 12.43787, 12.43787, 12.44173, 12.44834, 12.44808, 12.45221, 12.4577, 12.46002, 12.46225,
  12.46997, 12.48766, 12.4892, 12.49555, 12.49349, 12.49264, 12.49727, 12.50388, 12.50397, 12.50817,
  12.51658, 12.51367, 12.50628, 12.50954, 12.50731, 12.50628, 12.51263, 12.51006, 12.5128, 12.51615,
  12.51435, 12.50941, 12.50941, 12.50451, 12.50228, 12.49575, 12.49258, 12.49017, 12.48453, 12.48015,
  12.46958, 12.4507, 12.44864, 12.44632, 12.44238, 12.43997)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_2 <- st_set_geometry(Geo_2, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}

##### ITALY #####
Geo_0 <- Geometric_Operations(Geo_3, Geo_1)
Geo_0 <- Geometric_Operations(Geo_0, Geo_2)
Geo_3 <- st_set_geometry(Geo_3, st_geometry(Geo_0))
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(!NAME %in% c("HOLY SEE", "SAN MARINO", "ITALY"))
GeoDATA <- rbind(GeoDATA, Geo_1, Geo_2, Geo_3)

# ################################
# ##### Geometric Operations #####
# ################################
# 
# ##### COUNTRIE(s) #####
# Geo_1 <- GeoDATA %>% filter(NAME == "COUNTRY")
# 
# ##### COUNTRY #####
# LATITUDE_VALUEs <- c(
#   43.72958, 43.73092, 43.73164, 43.73156, 43.73169, 43.73295, 43.73342, 43.73401, 43.73435, 43.73639,
#   43.74007, 43.74136, 43.74169, 43.74086, 43.7416, 43.74143, 43.74272, 43.7432, 43.74389, 43.74456,
#   43.74539, 43.7457, 43.74658, 43.74683, 43.74807, 43.74823, 43.74902, 43.74887, 43.74927, 43.75006,
#   43.7512, 43.7516, 43.75194, 43.75173, 43.75124, 43.75078, 43.75046, 43.74987, 43.74944, 43.74903,
#   43.74659, 43.7462, 43.7463, 43.74765, 43.74734, 43.7467, 43.74679, 43.74614, 43.74543, 43.74451,
#   43.74427, 43.74271, 43.74196, 43.74129, 43.73983, 43.73996, 43.73968, 43.73977, 43.7402, 43.74033,
#   43.73978, 43.73858, 43.73827, 43.73749, 43.7367, 43.73565, 43.73541, 43.73345, 43.73306, 43.73275,
#   43.73362, 43.73456, 43.73385, 43.73282, 43.73211, 43.7316, 43.73123, 43.73051, 43.7307, 43.73048,
#   43.73013, 43.72981, 43.72977, 43.72943, 43.72939, 43.72955, 43.72951, 43.73008, 43.73023, 43.72986,
#   43.72989, 43.73073, 43.73093, 43.73031, 43.73001, 43.73009, 43.72907, 43.7291, 43.72866, 43.72875,
#   43.72834, 43.7278, 43.7275, 43.7281, 43.72796, 43.72653, 43.72477)
# LONGITUDE_VALUEs <- c(
#   7.40901, 7.41022, 7.4118, 7.41246, 7.41293, 7.4131, 7.41266, 7.4128, 7.41232, 7.41512,
#   7.4211, 7.42214, 7.42301, 7.42451, 7.42501, 7.42531, 7.42673, 7.42692, 7.42807, 7.42814,
#   7.4287, 7.42857, 7.42876, 7.42928, 7.42979, 7.43044, 7.43064, 7.43191, 7.43243, 7.4361,
#   7.43757, 7.43676, 7.43689, 7.43796, 7.43872, 7.43867, 7.43843, 7.43865, 7.43834, 7.43917,
#   7.43989, 7.43883, 7.43779, 7.43669, 7.43595, 7.43606, 7.43511, 7.43353, 7.43288, 7.43301,
#   7.43278, 7.43378, 7.43356, 7.43248, 7.43171, 7.43133, 7.43119, 7.43088, 7.43105, 7.43045,
#   7.43055, 7.42989, 7.43007, 7.42928, 7.42222, 7.42176, 7.42231, 7.42278, 7.42338, 7.4235,
#   7.42771, 7.42755, 7.42945, 7.42826, 7.42817, 7.42764, 7.42762, 7.42676, 7.42603, 7.42588,
#   7.4251, 7.42497, 7.42457, 7.42427, 7.42283, 7.42244, 7.42203, 7.42169, 7.42125, 7.42064,
#   7.42032, 7.41961, 7.41855, 7.41754, 7.41768, 7.41859, 7.41867, 7.41926, 7.41932, 7.42143,
#   7.42149, 7.42188, 7.42246, 7.4238, 7.42399, 7.42094, 7.41852)
# Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
# Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
#   mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
# if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# 
# #Replace GEOMETRIE(s)
# GeoDATA <- GeoDATA %>% filter(NAME != "COUNTRY")
# GeoDATA <- rbind(GeoDATA, Geo_1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "NAURU")

##### NAURU #####
LATITUDE_VALUEs <- c(
  -0.54312, -0.53991, -0.53676, -0.53592, -0.53534, -0.52923, -0.52562, -0.52511, -0.52118, -0.51895,
  -0.51421, -0.51122, -0.50659, -0.50421, -0.50294, -0.5032, -0.50253, -0.50286, -0.50449, -0.5054,
  -0.51539, -0.52285, -0.52549, -0.52541, -0.52812, -0.53004, -0.53173, -0.53812, -0.54329, -0.5473,
  -0.55149, -0.55419, -0.55328, -0.55394, -0.55268, -0.54792, -0.54819, -0.5453)
LONGITUDE_VALUEs <- c(
  166.9508, 166.9502, 166.9503, 166.9508, 166.9505, 166.9523, 166.9543, 166.9555, 166.9585, 166.959,
  166.958, 166.9566, 166.9523, 166.9484, 166.9446, 166.9417, 166.9368, 166.9345, 166.9319, 166.9314,
  166.9217, 166.9127, 166.9112, 166.9107, 166.9091, 166.91, 166.9096, 166.91, 166.9121, 166.9156,
  166.9225, 166.9258, 166.9277, 166.9328, 166.9375, 166.9451, 166.9457, 166.9499)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "NAURU")
GeoDATA <- rbind(GeoDATA, Geo_1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "BERMUDA")

##### BERMUDA #####
LATITUDE_VALUEs <- c(
  32.32925, 32.32968, 32.3293, 32.32584, 32.32506, 32.32292, 32.32252, 32.32038, 32.31871, 32.31713,
  32.31581, 32.31453, 32.31286, 32.31236, 32.31225, 32.31201, 32.31244, 32.31246, 32.31219, 32.31226,
  32.3126, 32.31254, 32.31288, 32.31301, 32.31288, 32.31304, 32.31245, 32.31294, 32.31344, 32.31376,
  32.31464, 32.31525, 32.31623, 32.31681, 32.31711, 32.31749, 32.31818, 32.31858, 32.31927, 32.31977,
  32.32046, 32.32051, 32.32333, 32.32381, 32.32576, 32.32623, 32.32665, 32.32635, 32.32665, 32.32555,
  32.32612, 32.32694, 32.32678, 32.32722, 32.32811, 32.32953, 32.3301, 32.33016)
LONGITUDE_VALUEs <- c(
  -64.83418, -64.83472, -64.83596, -64.83751, -64.83959, -64.83948, -64.84086, -64.84187, -64.84466, -64.84556,
  -64.84727, -64.84739, -64.84968, -64.84938, -64.84824, -64.84761, -64.84711, -64.84639, -64.84607, -64.84557,
  -64.84579, -64.84643, -64.84643, -64.84472, -64.84426, -64.84255, -64.84218, -64.84168, -64.84194, -64.8419,
  -64.84291, -64.84244, -64.84264, -64.84231, -64.8424, -64.84187, -64.842, -64.84121, -64.84162, -64.84046,
  -64.84107, -64.83977, -64.8349, -64.83515, -64.83389, -64.83489, -64.83421, -64.83364, -64.83266, -64.83183,
  -64.83148, -64.83213, -64.83268, -64.83257, -64.83178, -64.83175, -64.83211, -64.83293)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(32.31968, 32.31908, 32.3187, 32.31946, 32.32051, 32.32069)
LONGITUDE_VALUEs <- c(-64.83907, -64.83717, -64.83696, -64.8356, -64.83646, -64.83724)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  32.3102, 32.31092, 32.31143, 32.31215, 32.31219, 32.31266, 32.31266, 32.31223, 32.31197, 32.31092,
  32.31081, 32.31005, 32.30936, 32.30813, 32.30784, 32.30671, 32.30664, 32.30813, 32.30893, 32.3098)
LONGITUDE_VALUEs <- c(
  -64.85016, -64.8502, -64.85059, -64.85046, -64.85098, -64.85068, -64.85119, -64.85158, -64.85115, -64.85158,
  -64.85243, -64.85286, -64.85449, -64.85505, -64.85445, -64.85479, -64.85274, -64.85183, -64.85055, -64.85153)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(32.30566, 32.30512, 32.30577, 32.30642, 32.30639, 32.30751, 32.30751, 32.307, 32.30689, 32.30599)
LONGITUDE_VALUEs <- c(-64.85776, -64.85737, -64.85583, -64.85595, -64.85514, -64.85557, -64.85608, -64.85604, -64.85681, -64.85728)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  32.30671, 32.30809, 32.30958, 32.30951, 32.30991, 32.3103, 32.31001, 32.30849, 32.30726, 32.30446,
  32.30363, 32.30374, 32.30497, 32.30577, 32.30483, 32.30396, 32.30385, 32.30265, 32.30109, 32.29979,
  32.29656, 32.29514, 32.29438, 32.2938, 32.29333, 32.28992, 32.28985, 32.28556, 32.28317, 32.28201,
  32.28201, 32.28136, 32.28059, 32.27932, 32.27069, 32.25962, 32.25744, 32.25581, 32.24808, 32.24833,
  32.24768, 32.24935, 32.24844, 32.2488, 32.24764, 32.24851, 32.24746, 32.24757, 32.24906, 32.2491,
  32.24768, 32.24804, 32.24924, 32.25058, 32.25011, 32.25225, 32.25262, 32.26506, 32.27094, 32.28001,
  32.28212, 32.28484, 32.28658, 32.28807, 32.29696, 32.29735, 32.30305, 32.30211, 32.30457, 32.30552,
  32.30697, 32.31059, 32.31201, 32.31255, 32.31433, 32.31495, 32.32068, 32.32829, 32.33025, 32.33141,
  32.33112, 32.33206, 32.33225, 32.33301, 32.335, 32.33529, 32.33776, 32.33823, 32.33932, 32.33852,
  32.33859, 32.3358, 32.33544, 32.33652, 32.33478, 32.33507, 32.33377, 32.33384, 32.33453, 32.3337,
  32.33801, 32.33787, 32.3416, 32.342, 32.34327, 32.34359, 32.34573, 32.34704, 32.34802, 32.34921,
  32.35041, 32.35128, 32.35298, 32.35396, 32.35378, 32.35694, 32.35375, 32.3532, 32.35222, 32.35124,
  32.34932, 32.34947, 32.34784, 32.34537, 32.34537, 32.34388, 32.34196, 32.34102, 32.33961, 32.33917,
  32.33283, 32.33351, 32.33196, 32.32909, 32.32506, 32.32481, 32.32202, 32.32111, 32.31817, 32.31153,
  32.3078, 32.30584, 32.30624, 32.30508, 32.30606, 32.30711, 32.30631, 32.30758, 32.30747, 32.30805,
  32.30733, 32.3078, 32.30696, 32.30725, 32.30718, 32.30682, 32.30653, 32.30689, 32.30591, 32.30555,
  32.30624, 32.30526, 32.30464, 32.30424, 32.30374, 32.30286, 32.30374, 32.30265, 32.30272, 32.30109,
  32.29924, 32.29931, 32.30315, 32.30222, 32.30156, 32.3, 32.30022, 32.29924, 32.29673, 32.29637,
  32.29441, 32.29205, 32.29118, 32.29173, 32.29195, 32.29249, 32.29224, 32.29376, 32.29351, 32.2906,
  32.29187, 32.29129, 32.29104, 32.2902, 32.28991, 32.291, 32.29089, 32.29173, 32.29235, 32.29195,
  32.29358, 32.2934, 32.29231, 32.29297, 32.29213, 32.29039, 32.28905, 32.2901, 32.2881, 32.2869,
  32.28636, 32.2844, 32.28498, 32.28306, 32.28419, 32.28299, 32.28473, 32.2827, 32.2827, 32.28103,
  32.28157, 32.27403, 32.2729, 32.27116, 32.27072, 32.26811, 32.26775, 32.26666, 32.2659, 32.26434,
  32.26398, 32.26347, 32.2622, 32.2618, 32.26267, 32.26281, 32.26383, 32.26361, 32.26492, 32.26427,
  32.26383, 32.26303, 32.26339, 32.26205, 32.26205, 32.25973, 32.25987, 32.25882, 32.25759, 32.25701,
  32.25723, 32.25599, 32.25715, 32.25545, 32.25436, 32.2549, 32.25392, 32.2545, 32.25356, 32.25487,
  32.25316, 32.25385, 32.25654, 32.25723, 32.25871, 32.25991, 32.26089, 32.26427, 32.26528, 32.26775,
  32.27029, 32.27123, 32.27189, 32.2708, 32.27141, 32.27112, 32.26949, 32.26884, 32.26993, 32.27174,
  32.27261, 32.27116, 32.2716, 32.27207, 32.27359, 32.27435, 32.27392, 32.27512, 32.27493, 32.27842,
  32.28099, 32.28255, 32.28295, 32.28346, 32.2839, 32.28527, 32.28629, 32.29166, 32.29351, 32.2934,
  32.29511, 32.29706, 32.29652, 32.29717, 32.29739, 32.30138, 32.30432, 32.30519, 32.3033, 32.30541)
LONGITUDE_VALUEs <- c(
  -64.86578, -64.86763, -64.86728, -64.86578, -64.86475, -64.86501, -64.8675, -64.86981, -64.86921, -64.87132,
  -64.87312, -64.87526, -64.87882, -64.87985, -64.8811, -64.88067, -64.87925, -64.87895, -64.87741, -64.87745,
  -64.87531, -64.87587, -64.87557, -64.87604, -64.87466, -64.87595, -64.87668, -64.87973, -64.88646, -64.88578,
  -64.88707, -64.88655, -64.8869, -64.88557, -64.88145, -64.87814, -64.87514, -64.87415, -64.86231, -64.8611,
  -64.85896, -64.84849, -64.84488, -64.84098, -64.83848, -64.83677, -64.83694, -64.83479, -64.83458, -64.83325,
  -64.83385, -64.83105, -64.83075, -64.82568, -64.82315, -64.8213, -64.81856, -64.79452, -64.77895, -64.76843,
  -64.76787, -64.76423, -64.76054, -64.76011, -64.74886, -64.74573, -64.74204, -64.73792, -64.73702, -64.73423,
  -64.73346, -64.72405, -64.72355, -64.72127, -64.72106, -64.71522, -64.7117, -64.69801, -64.6902, -64.68921,
  -64.68633, -64.68617, -64.68458, -64.68484, -64.68063, -64.67685, -64.67655, -64.67402, -64.67445, -64.67599,
  -64.67707, -64.67913, -64.68097, -64.68209, -64.68381, -64.68647, -64.68673, -64.68875, -64.68939, -64.69167,
  -64.69218, -64.69548, -64.70273, -64.7063, -64.70621, -64.70797, -64.70814, -64.70681, -64.7093, -64.70882,
  -64.7105, -64.70955, -64.71058, -64.71208, -64.71354, -64.71762, -64.71839, -64.72003, -64.72037, -64.72329,
  -64.72191, -64.72281, -64.7268, -64.73101, -64.73307, -64.73728, -64.73689, -64.7374, -64.73774, -64.73942,
  -64.74208, -64.73981, -64.73877, -64.74161, -64.74315, -64.74238, -64.7426, -64.7444, -64.74655, -64.75959,
  -64.77212, -64.78457, -64.78542, -64.79251, -64.80337, -64.80363, -64.80517, -64.80539, -64.80642, -64.80689,
  -64.81139, -64.81207, -64.81392, -64.81521, -64.81654, -64.81654, -64.81568, -64.81478, -64.81444, -64.8159,
  -64.81697, -64.81706, -64.81624, -64.81757, -64.81732, -64.81495, -64.81418, -64.8141, -64.81328, -64.81234,
  -64.81401, -64.81268, -64.80954, -64.80877, -64.80924, -64.80886, -64.8065, -64.80697, -64.80632, -64.80774,
  -64.80675, -64.8071, -64.80431, -64.80413, -64.80293, -64.80229, -64.8007, -64.80023, -64.79851, -64.79564,
  -64.7953, -64.79276, -64.79431, -64.79384, -64.79023, -64.7898, -64.78645, -64.7862, -64.78242, -64.77955,
  -64.7753, -64.77019, -64.77105, -64.77178, -64.77512, -64.77422, -64.77646, -64.77723, -64.78118, -64.78122,
  -64.78223, -64.78343, -64.78484, -64.78965, -64.79132, -64.79145, -64.79334, -64.79351, -64.79214, -64.79398,
  -64.79527, -64.80626, -64.81209, -64.81312, -64.8157, -64.82102, -64.8266, -64.83157, -64.82952, -64.83123,
  -64.8296, -64.8308, -64.8317, -64.83068, -64.82999, -64.82754, -64.82754, -64.8266, -64.82591, -64.8248,
  -64.82578, -64.82578, -64.8233, -64.82355, -64.82527, -64.82802, -64.83063, -64.83205, -64.82827, -64.83008,
  -64.83218, -64.83737, -64.83866, -64.839, -64.84497, -64.84583, -64.84806, -64.84909, -64.85067, -64.85514,
  -64.85634, -64.85783, -64.85933, -64.86388, -64.86324, -64.86593, -64.86435, -64.86477, -64.86362, -64.86495,
  -64.86426, -64.86593, -64.86508, -64.86267, -64.86216, -64.85992, -64.85653, -64.85187, -64.84753, -64.84933,
  -64.85581, -64.85873, -64.8601, -64.86375, -64.86461, -64.86826, -64.87049, -64.87161, -64.87255, -64.87624,
  -64.86903, -64.86924, -64.87049, -64.86937, -64.87139, -64.87032, -64.87079, -64.86791, -64.86804, -64.86602,
  -64.86242, -64.86212, -64.85915, -64.85903, -64.86019, -64.86117, -64.8589, -64.86027, -64.86525, -64.86637)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(32.28791, 32.28748, 32.28784, 32.28737, 32.28766, 32.28882)
LONGITUDE_VALUEs <- c(-64.7861, -64.78575, -64.78537, -64.78451, -64.78399, -64.78442)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(32.25733, 32.25683, 32.25683, 32.2561, 32.25668, 32.25773)
LONGITUDE_VALUEs <- c(-64.8601, -64.85989, -64.85877, -64.85813, -64.85778, -64.85886)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(32.26038, 32.2614, 32.2606, 32.2606, 32.2598, 32.25926, 32.26013, 32.25991)
LONGITUDE_VALUEs <- c(-64.82903, -64.8301, -64.83173, -64.83306, -64.83371, -64.83336, -64.83272, -64.83156)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(32.2585, 32.25777, 32.25893, 32.25828, 32.25799, 32.25911, 32.25897, 32.25973)
LONGITUDE_VALUEs <- c(-64.8365, -64.83628, -64.83478, -64.83465, -64.83341, -64.83324, -64.83426, -64.83482)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(32.2748, 32.27403, 32.27313, 32.27233, 32.27378, 32.27472)
LONGITUDE_VALUEs <- c(-64.83522, -64.83522, -64.83569, -64.83539, -64.83406, -64.83436)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(32.27501, 32.27469, 32.27581, 32.27589, 32.27665, 32.27654, 32.27574)
LONGITUDE_VALUEs <- c(-64.8266, -64.82419, -64.82406, -64.82492, -64.82591, -64.8266, -64.82621)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  32.27335, 32.27313, 32.27367, 32.27458, 32.27414, 32.27545, 32.27585, 32.2753, 32.27592, 32.27625,
  32.27679, 32.27708, 32.27603, 32.27639, 32.27545)
LONGITUDE_VALUEs <- c(
  -64.82432, -64.822, -64.82209, -64.82093, -64.8202, -64.81891, -64.81763, -64.8172, -64.81664, -64.81775,
  -64.81763, -64.81818, -64.81887, -64.8196, -64.8223)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(32.28118, 32.2826, 32.28409, 32.28347, 32.28434, 32.2798)
LONGITUDE_VALUEs <- c(-64.80226, -64.79986, -64.80127, -64.80333, -64.80617, -64.80218)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(32.2901, 32.29075, 32.29166, 32.291, 32.29075)
LONGITUDE_VALUEs <- c(-64.8001, -64.7995, -64.80079, -64.80169, -64.80079)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(32.28534, 32.28603, 32.28748, 32.28716)
LONGITUDE_VALUEs <- c(-64.80963, -64.80881, -64.81096, -64.81134)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(32.28857, 32.28723, 32.28763, 32.28698, 32.28454, 32.28396, 32.28632, 32.28832, 32.28774)
LONGITUDE_VALUEs <- c(-64.83031, -64.83121, -64.83023, -64.8292, -64.8304, -64.82928, -64.82645, -64.82812, -64.82941)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(32.28571, 32.28386, 32.28288, 32.28248, 32.2836, 32.28625)
LONGITUDE_VALUEs <- c(-64.82546, -64.82473, -64.82542, -64.82495, -64.82332, -64.82439)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(32.28378, 32.28277, 32.282, 32.2815, 32.28251, 32.28222, 32.28331, 32.28451, 32.28404, 32.28418)
LONGITUDE_VALUEs <- c(-64.82285, -64.82212, -64.82225, -64.82109, -64.82019, -64.81924, -64.8192, -64.82019, -64.82143, -64.82207)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  32.2865, 32.28712, 32.28665, 32.2865, 32.28542, 32.28632, 32.28571, 32.28647, 32.2881, 32.28792,
  32.28705)
LONGITUDE_VALUEs <- c(
  -64.82023, -64.82521, -64.82503, -64.82323, -64.8192, -64.81877, -64.81821, -64.81577, -64.81542, -64.81607,
  -64.81671)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  32.28473, 32.28407, 32.28266, 32.28298, 32.28451, 32.28447, 32.28404, 32.28415, 32.28378, 32.28295,
  32.28211, 32.28367, 32.28447, 32.284, 32.28458, 32.28454, 32.28509, 32.28505, 32.28567, 32.28502)
LONGITUDE_VALUEs <- c(
  -64.8131, -64.81323, -64.81272, -64.8113, -64.8119, -64.81135, -64.81092, -64.81032, -64.8101, -64.81057,
  -64.80941, -64.80761, -64.8083, -64.80976, -64.81027, -64.811, -64.811, -64.8122, -64.81461, -64.81469)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(32.29555, 32.29254, 32.29254, 32.2933, 32.29374, 32.29526)
LONGITUDE_VALUEs <- c(-64.80943, -64.81033, -64.80926, -64.80917, -64.80861, -64.80896)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  32.35934, 32.36006, 32.35916, 32.35912, 32.35803, 32.3572, 32.35767, 32.3572, 32.35781, 32.35832,
  32.35905, 32.35955)
LONGITUDE_VALUEs <- c(
  -64.7147, -64.71564, -64.71581, -64.71659, -64.71684, -64.71624, -64.71581, -64.71556, -64.7141, -64.71418,
  -64.7135, -64.71418)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  32.36661, 32.36588, 32.3653, 32.36527, 32.36411, 32.36385, 32.36189, 32.3616, 32.36244, 32.36273,
  32.36385, 32.36454, 32.36541, 32.36537, 32.36646, 32.36592, 32.36711, 32.36704, 32.36809, 32.36798,
  32.36925, 32.3711, 32.36951, 32.3707, 32.37146, 32.37103, 32.37194, 32.37179, 32.3731, 32.37244,
  32.37165, 32.37172, 32.37259, 32.3732, 32.37436, 32.37436, 32.37465, 32.37364, 32.37483, 32.37625,
  32.37639, 32.37719, 32.37683, 32.37813, 32.37773, 32.37668, 32.37668, 32.37581, 32.37538, 32.3765,
  32.37744, 32.37813, 32.37947, 32.38009, 32.38111, 32.38179, 32.37962, 32.3785, 32.37886, 32.38111,
  32.38063, 32.38451, 32.38904, 32.391, 32.3894, 32.38795, 32.38723, 32.38132, 32.37487, 32.37125,
  32.36846)
LONGITUDE_VALUEs <- c(
  -64.71363, -64.71358, -64.7144, -64.71302, -64.71234, -64.71504, -64.71616, -64.71556, -64.71496, -64.71225,
  -64.712, -64.71097, -64.71131, -64.70929, -64.70886, -64.70655, -64.70616, -64.70483, -64.70414, -64.70187,
  -64.69848, -64.69835, -64.6974, -64.69419, -64.69436, -64.69294, -64.69277, -64.6917, -64.6917, -64.69015,
  -64.68998, -64.68891, -64.68805, -64.68887, -64.68878, -64.68994, -64.69058, -64.69187, -64.6959, -64.69534,
  -64.6941, -64.69358, -64.692, -64.69225, -64.69024, -64.69114, -64.69187, -64.69251, -64.68917, -64.68625,
  -64.68741, -64.68215, -64.67894, -64.67894, -64.67495, -64.67447, -64.66765, -64.66662, -64.66249, -64.66408,
  -64.66533, -64.66851, -64.67417, -64.67404, -64.67902, -64.6788, -64.68129, -64.6876, -64.69932, -64.70434,
  -64.71052)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  32.37404, 32.37426, 32.37197, 32.36972, 32.37096, 32.37201, 32.3719, 32.37299, 32.37255, 32.37382,
  32.37226, 32.37302, 32.37295)
LONGITUDE_VALUEs <- c(
  -64.66938, -64.67041, -64.67015, -64.66226, -64.65827, -64.65895, -64.66063, -64.66123, -64.66294, -64.66719,
  -64.66681, -64.66762, -64.66942)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(32.37661, 32.37527, 32.37498, 32.37397, 32.37397, 32.37313, 32.37349, 32.37552, 32.37726, 32.37614)
LONGITUDE_VALUEs <- c(-64.66354, -64.66389, -64.66157, -64.6605, -64.65925, -64.6584, -64.65702, -64.65814, -64.66136, -64.66251)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(32.37792, 32.37683, 32.37719, 32.37817)
LONGITUDE_VALUEs <- c(-64.66367, -64.66346, -64.66213, -64.66196)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  32.36414, 32.36222, 32.35845, 32.35838, 32.3595, 32.3586, 32.36305, 32.36342, 32.3645, 32.36407,
  32.36218, 32.35381, 32.35392, 32.36262, 32.36334, 32.362, 32.35744, 32.35519, 32.35508, 32.34899,
  32.35026, 32.34928, 32.34765, 32.34866, 32.3462, 32.34757, 32.34783, 32.34859, 32.34899, 32.34939,
  32.35051, 32.35145, 32.35218, 32.35251, 32.35323, 32.35417, 32.35388, 32.35682, 32.36131, 32.36146,
  32.36081, 32.36175, 32.35986, 32.36367, 32.36577, 32.36708, 32.36759, 32.3686, 32.3698, 32.36965,
  32.37146, 32.37201, 32.37212, 32.37143, 32.37023, 32.3702, 32.36904, 32.36849, 32.36791, 32.369,
  32.3694, 32.36849, 32.36711, 32.36686, 32.36479, 32.36577, 32.36577, 32.36711, 32.36697, 32.36846,
  32.36998, 32.36914, 32.3702, 32.36954, 32.37103, 32.3702, 32.37081, 32.3715, 32.36947, 32.37041,
  32.36614)
LONGITUDE_VALUEs <- c(
  -64.70689, -64.70723, -64.70487, -64.70277, -64.70028, -64.69822, -64.69324, -64.69565, -64.69341, -64.68912,
  -64.68711, -64.68655, -64.68419, -64.68432, -64.68092, -64.67174, -64.66372, -64.66359, -64.6623, -64.65917,
  -64.65831, -64.65603, -64.65749, -64.6541, -64.65299, -64.65226, -64.65307, -64.65307, -64.6538, -64.65385,
  -64.65655, -64.65612, -64.65689, -64.65582, -64.65621, -64.65552, -64.65715, -64.66093, -64.65942, -64.65766,
  -64.65749, -64.65397, -64.65187, -64.64913, -64.64968, -64.64883, -64.64707, -64.64853, -64.64844, -64.65011,
  -64.64891, -64.64983, -64.65374, -64.65666, -64.65632, -64.65507, -64.65752, -64.65632, -64.65606, -64.65468,
  -64.65219, -64.65219, -64.65597, -64.66027, -64.65984, -64.66168, -64.66645, -64.66615, -64.66465, -64.66383,
  -64.66473, -64.66585, -64.66847, -64.67207, -64.67306, -64.67778, -64.67846, -64.68615, -64.68795, -64.69238,
  -64.70027)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(32.34801, 32.34627, 32.34689, 32.34721, 32.34533, 32.34544, 32.34852, 32.34834, 32.34884, 32.34801)
LONGITUDE_VALUEs <- c(-64.66457, -64.66578, -64.66436, -64.66187, -64.662, -64.66131, -64.66119, -64.66213, -64.66264, -64.66346)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(32.33891, 32.33916, 32.33844, 32.33782, 32.3384)
LONGITUDE_VALUEs <- c(-64.66985, -64.67088, -64.67234, -64.67015, -64.6705)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(32.34116, 32.33996, 32.3404, 32.34112)
LONGITUDE_VALUEs <- c(-64.67251, -64.67333, -64.67067, -64.67144)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>%
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "BERMUDA")
GeoDATA <- rbind(GeoDATA, Geo_1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "TUVALU")

##### TUVALU #####
LATITUDE_VALUEs <- c(-10.78842, -10.78694, -10.78644, -10.78732, -10.78884, -10.79179, -10.79061)
LONGITUDE_VALUEs <- c(179.4779, 179.4772, 179.4729, 179.4688, 179.4682, 179.4727, 179.4766)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  -9.3539, -9.37203, -9.38151, -9.38439, -9.40793, -9.42571, -9.43706, -9.43435, -9.40996, -9.39099,
  -9.36796, -9.35255, -9.34611, -9.34594)
LONGITUDE_VALUEs <- c(
  179.807, 179.8017, 179.8093, 179.8175, 179.8371, 179.8381, 179.8606, 179.8673, 179.8728, 179.8661,
  179.8429, 179.8424, 179.8326, 179.8182)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -8.64143, -8.64622, -8.63651, -8.63354, -8.61521, -8.60732, -8.59816, -8.58568, -8.58254, -8.56938, 
  -8.5654, -8.55878, -8.55224, -8.54723, -8.54078, -8.53985, -8.52126, -8.48875, -8.47703, -8.46676, 
  -8.46218, -8.44494, -8.44087, -8.43195, -8.42558, -8.42652, -8.42363, -8.42686, -8.43297, -8.43509, 
  -8.43959, -8.44571, -8.45173, -8.46642, -8.48238, -8.49223, -8.49987, -8.50343, -8.51201, -8.51863, 
  -8.53153, -8.53891, -8.54825, -8.55547, -8.58305, -8.59043, -8.6063, -8.61063, -8.62412)
LONGITUDE_VALUEs <- c(
  179.0711, 179.0809, 179.0959, 179.1052, 179.0968, 179.102, 179.1009, 179.1086, 179.1177, 179.1242, 
  179.1371, 179.148, 179.1558, 179.1658, 179.1724, 179.1807, 179.2041, 179.1929, 179.1932, 179.1876, 
  179.1868, 179.178, 179.1738, 179.1699, 179.1496, 179.1378, 179.1226, 179.1098, 179.1027, 179.085, 
  179.0765, 179.0767, 179.0714, 179.0747, 179.0653, 179.0481, 179.0405, 179.0346, 179.0335, 179.0432, 
  179.0497, 179.0487, 179.0506, 179.0466, 179.065, 179.0659, 179.0728, 179.0732, 179.0774)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -8.05598, -8.07519, -8.07366, -8.05513, -8.04629, -8.03813, -8.02641, -8.01213, -7.97269, -7.95535,
  -7.946, -7.93784, -7.92883, -7.92883, -7.95535, -7.97048, -7.98527, -8.00023, -8.02744, -8.03304,
  -8.04265, -8.04078)
LONGITUDE_VALUEs <- c(
  178.3574, 178.3764, 178.3819, 178.3811, 178.3876, 178.3876, 178.396, 178.402, 178.4386, 178.4283,
  178.4142, 178.3924, 178.3805, 178.3728, 178.3452, 178.3452, 178.3313, 178.327, 178.3053, 178.3044,
  178.3261, 178.3323)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -7.49829, -7.49906, -7.48995, -7.48357, -7.47778, -7.47957, -7.47515, -7.47149, -7.46187, -7.45898,
  -7.45778, -7.46042, -7.46417, -7.4657, -7.48893, -7.49344, -7.49583)
LONGITUDE_VALUEs <- c(
  178.6812, 178.6876, 178.6962, 178.6956, 178.6883, 178.6853, 178.6789, 178.681, 178.6708, 178.6701,
  178.6659, 178.6628, 178.6627, 178.6645, 178.6782, 178.679, 178.6811)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-7.18534, -7.19181, -7.21923, -7.24545, -7.25263, -7.2562, -7.25382, -7.23653, -7.19881, -7.18561)
LONGITUDE_VALUEs <- c(177.1402, 177.1371, 177.1429, 177.1395, 177.1456, 177.1591, 177.1656, 177.168, 177.1625, 177.1482)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-6.10392, -6.10392, -6.10247, -6.10546, -6.11485, -6.11203)
LONGITUDE_VALUEs <- c(177.3511, 177.3429, 177.3354, 177.3302, 177.3384, 177.3539)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-6.29233, -6.28209, -6.2739, -6.2751, -6.28661, -6.2919, -6.30018, -6.30154)
LONGITUDE_VALUEs <- c(176.3267, 176.3265, 176.3236, 176.3193, 176.3132, 176.3132, 176.3182, 176.3226)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(-5.63884, -5.6508, -5.65182, -5.67198, -5.69333, -5.7099, -5.70409, -5.68957, -5.673, -5.65336)
LONGITUDE_VALUEs <- c(176.0551, 176.0585, 176.0649, 176.1079, 176.1279, 176.1388, 176.1444, 176.1344, 176.1313, 176.1174)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>%
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "TUVALU")
GeoDATA <- rbind(GeoDATA, Geo_1)

# ################################
# ##### Geometric Operations #####
# ################################
# 
# ##### COUNTRIE(s) #####
# Geo_1 <- GeoDATA %>% filter(NAME == "COUNTRY")
# 
# ##### COUNTRY #####
# 
# Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
# Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
#   mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
# if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# 
# #Replace GEOMETRIE(s)
# GeoDATA <- GeoDATA %>% filter(NAME != "COUNTRY")
# GeoDATA <- rbind(GeoDATA, Geo_1)

# ################################
# ##### Geometric Operations #####
# ################################
# 
# ##### COUNTRIE(s) #####
# Geo_1 <- GeoDATA %>% filter(NAME == "COUNTRY")
# 
# ##### COUNTRY #####
# LATITUDE_VALUEs <- c(
#   47.05712, 47.05625, 47.05701, 47.0602, 47.06494, 47.05821, 47.05283, 47.04833, 47.05342, 47.05272,
#   47.06166, 47.06073, 47.06469, 47.06677, 47.06963, 47.0756, 47.07943, 47.07811, 47.08264, 47.08328,
#   47.08626, 47.09071, 47.0962, 47.10119, 47.10593, 47.10765, 47.10744, 47.10826, 47.11054, 47.11413,
#   47.1191, 47.12511, 47.12707, 47.12821, 47.12803, 47.13294, 47.13837, 47.14123, 47.14596, 47.14622,
#   47.15037, 47.15139, 47.1518, 47.14771, 47.14756, 47.14929, 47.15174, 47.15261, 47.1555, 47.15673,
#   47.15886, 47.16148, 47.16291, 47.16478, 47.17114, 47.16957, 47.17018, 47.17336, 47.17566, 47.1773,
#   47.17814, 47.17881, 47.18619, 47.1908, 47.19453, 47.1957, 47.1959, 47.19908, 47.20538, 47.20935,
#   47.21144, 47.21389, 47.2199, 47.22095, 47.2231, 47.22404, 47.22249, 47.22404, 47.22377, 47.234,
#   47.24094, 47.24304, 47.25079, 47.25093, 47.253, 47.25306, 47.25728, 47.25856, 47.25941, 47.26148,
#   47.26334, 47.26602, 47.26587, 47.27068, 47.26217, 47.24248, 47.2207, 47.21143, 47.19661, 47.18168,
#   47.16313, 47.14953, 47.14194, 47.13044, 47.10252, 47.09551, 47.0868, 47.07365, 47.06681, 47.06412,
#   47.06131, 47.05166, 47.05207, 47.05476, 47.05634, 47.05283, 47.0488, 47.05681, 47.05389)
# LONGITUDE_VALUEs <- c(
#   9.49984, 9.50293, 9.51387, 9.51678, 9.5396, 9.55333, 9.55333, 9.55745, 9.57626, 9.58192,
#   9.60372, 9.60723, 9.61181, 9.61108, 9.61378, 9.61078, 9.61168, 9.6188, 9.62382, 9.63361,
#   9.63297, 9.63546, 9.63584, 9.6343, 9.62803, 9.62859, 9.62584, 9.62224, 9.62078, 9.62469,
#   9.62503, 9.63301, 9.63374, 9.63507, 9.63383, 9.6246, 9.62498, 9.62254, 9.62597, 9.62413,
#   9.62134, 9.62177, 9.62061, 9.61499, 9.60907, 9.6052, 9.60267, 9.60348, 9.6022, 9.6001,
#   9.60117, 9.59771, 9.59681, 9.59067, 9.57951, 9.57436, 9.56496, 9.56702, 9.5732, 9.57338,
#   9.57432, 9.57351, 9.57355, 9.57256, 9.57879, 9.57904, 9.58055, 9.5805, 9.58488, 9.57775,
#   9.57758, 9.57557, 9.56827, 9.56376, 9.56183, 9.55861, 9.55552, 9.55509, 9.55178, 9.55943,
#   9.56754, 9.56668, 9.55942, 9.55719, 9.55548, 9.55437, 9.54831, 9.54359, 9.54329, 9.53956,
#   9.54046, 9.53891, 9.5363, 9.53076, 9.53016, 9.5196, 9.50136, 9.49973, 9.48969, 9.48574,
#   9.49098, 9.49981, 9.50779, 9.51243, 9.51929, 9.51887, 9.515, 9.49174, 9.47448, 9.47157,
#   9.47174, 9.47552, 9.47715, 9.47647, 9.48239, 9.48128, 9.4854, 9.49192, 9.49896)
# Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
# Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
#   mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
# if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# 
# #Replace GEOMETRIE(s)
# GeoDATA <- GeoDATA %>% filter(NAME != "COUNTRY")
# GeoDATA <- rbind(GeoDATA, Geo_1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "BRITISH VIRGIN ISLANDS")

##### BRITISH VIRGIN ISLANDS #####
LATITUDE_VALUEs <- c(
  18.74393, 18.74669, 18.74084, 18.73409, 18.73116, 18.72856, 18.72267, 18.72747, 18.72564, 18.72539, 
  18.72255, 18.72434, 18.72438, 18.72515, 18.72515, 18.72186, 18.72251, 18.71706, 18.71844, 18.71641, 
  18.71291, 18.70925, 18.70706, 18.69966, 18.69852, 18.69502, 18.68844, 18.69072, 18.69551, 18.70446, 
  18.72437, 18.7277, 18.73169, 18.73169, 18.73892, 18.739, 18.74307, 18.75006, 18.74778, 18.74095,
  18.7451, 18.74209, 18.74827, 18.749, 18.74494, 18.74575)
LONGITUDE_VALUEs <- c(
  -64.40571, -64.41121, -64.41691, -64.40799, -64.40687, -64.4025, -64.39971, -64.38915, -64.38554, -64.38297,
  -64.38155, -64.37966, -64.37614, -64.37499, -64.36941, -64.36662, -64.36057, -64.34803, -64.33868, -64.32023,
  -64.31062, -64.31156, -64.30254, -64.29198, -64.28735, -64.28606, -64.27611, -64.27096, -64.27053, -64.27267, 
  -64.28881, -64.2931, -64.29576, -64.30048, -64.30537, -64.3106, -64.31396, -64.33498, -64.34047, -64.34614, 
  -64.36039, -64.36803, -64.38021, -64.38939, -64.3948, -64.40209)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(18.42818, 18.42793, 18.43042, 18.43286, 18.43213, 18.43111, 18.43131, 18.43005, 18.42842, 18.42744)
LONGITUDE_VALUEs <- c(-64.84633, -64.8456, -64.84354, -64.84354, -64.8456, -64.84612, -64.84818, -64.85002, -64.85002, -64.84693)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c( 
  18.45049, 18.44825, 18.44666, 18.44576, 18.44462, 18.43974, 18.43917, 18.44096, 18.44124, 18.44658, 
  18.44735, 18.4515, 18.45277, 18.45138)
LONGITUDE_VALUEs <- c(
  -64.83063, -64.82891, -64.82912, -64.82711, -64.82835, -64.82848, -64.82316, -64.82183, -64.81913, -64.82136, 
  -64.8232, -64.82445, -64.82681, -64.82745)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  18.47361, 18.47593, 18.47292, 18.46795, 18.46539, 18.46343, 18.4649, 18.47129, 18.47271, 18.47458,
  18.47552, 18.47865, 18.47988, 18.47776, 18.48248, 18.47900, 18.4815, 18.48541, 18.48712, 18.48846, 
  18.49066, 18.48643, 18.48618, 18.4811, 18.47857, 18.47817, 18.47544, 18.47458)
LONGITUDE_VALUEs <- c(
  -64.58078, -64.57739, -64.57361, -64.57288, -64.56953, -64.57018, -64.56696, -64.5634, -64.55756, -64.55773,
  -64.55932, -64.55898, -64.56065, -64.56263, -64.56713, -64.57075, -64.57524, -64.57559, -64.57735, -64.57692, 
  -64.57996, -64.584, -64.57906, -64.57773, -64.57872, -64.58078, -64.58309, -64.58146)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  18.38611, 18.38721, 18.38725, 18.38896, 18.38847, 18.39043, 18.39014, 18.38619, 18.38241, 18.3833, 
  18.38656, 18.38701, 18.39112, 18.39291, 18.39283, 18.39185, 18.39275, 18.40159, 18.40137, 18.39939, 
  18.39703, 18.39642, 18.39841, 18.4011, 18.40208, 18.40358, 18.40505, 18.40733, 18.40993, 18.40989, 
  18.40615, 18.4068, 18.40574, 18.40651, 18.40554, 18.41315, 18.41401, 18.41254, 18.41393, 18.41429, 
  18.41678, 18.41865, 18.4228, 18.42423, 18.42284, 18.42467, 18.42818, 18.425, 18.42866, 18.42423, 
  18.42378, 18.41857, 18.41673, 18.41397, 18.41327, 18.41152, 18.41299, 18.416, 18.41653, 18.41262, 
  18.41445, 18.41364, 18.41621, 18.41922, 18.42064, 18.42561, 18.42643, 18.42423, 18.42789, 18.43184, 
  18.43099, 18.43453, 18.43738, 18.43994, 18.4397, 18.43835, 18.43713, 18.43599, 18.43791, 18.4419, 
  18.44686, 18.44951, 18.45228, 18.45382, 18.45594, 18.45794, 18.45895, 18.45851, 18.45969, 18.45842, 
  18.45696, 18.45676, 18.4535, 18.44918, 18.45159, 18.4467, 18.44548, 18.44735, 18.44637, 18.44703, 
  18.45028, 18.45093, 18.45492, 18.45509, 18.44955, 18.44865, 18.45008, 18.44861, 18.45057, 18.44931, 
  18.45106, 18.45073, 18.45285, 18.45382, 18.4513, 18.44817, 18.44939, 18.44877, 18.44922, 18.44849, 
  18.44756, 18.4478, 18.44731, 18.44503, 18.43974, 18.4399, 18.44088, 18.44442, 18.44336, 18.44063, 
  18.43799, 18.4375, 18.4351, 18.43286, 18.42911, 18.43046, 18.42858, 18.42553, 18.42259, 18.42206, 
  18.41852, 18.41893, 18.41592, 18.41331, 18.40785, 18.40737, 18.40126, 18.3982, 18.39837, 18.39735, 
  18.39771, 18.39759, 18.39938, 18.39951, 18.39743, 18.39596, 18.3936, 18.39291, 18.39433, 18.39222, 
  18.38961, 18.38876, 18.38933, 18.38656, 18.38823, 18.38802, 18.3857, 18.38261, 18.38151, 18.38065, 
  18.38228, 18.38456, 18.38489, 18.38639)
LONGITUDE_VALUEs <- c(
  -64.69824, -64.6979, -64.69566, -64.69133, -64.68828, -64.68331, -64.67812, -64.6761, -64.6715, -64.66365,
  -64.66275, -64.65858, -64.65283, -64.65283, -64.65026, -64.64944, -64.64142, -64.63499, -64.63452, -64.63473,
  -64.63593, -64.63455, -64.63254, -64.63271, -64.63391, -64.63331, -64.63327, -64.63524, -64.63391, -64.63125,
  -64.63176, -64.62627, -64.6246, -64.62133, -64.61738, -64.61108, -64.61305, -64.61365, -64.61468, -64.61623,
  -64.61657, -64.61863, -64.61331, -64.61516, -64.61704, -64.6194, -64.61584, -64.61314, -64.61181, -64.6079,
  -64.60417, -64.60297, -64.59743, -64.59583, -64.59231, -64.59124, -64.58699, -64.5875, -64.58368, -64.58295,
  -64.58025, -64.57788, -64.57501, -64.57213, -64.56904, -64.56854, -64.56695, -64.56695, -64.56368, -64.56446,
  -64.56781, -64.56858, -64.5672, -64.56347, -64.55703, -64.55651, -64.55969, -64.56008, -64.55497, -64.55334,
  -64.55536, -64.55794, -64.55691, -64.55871, -64.55767, -64.55849, -64.56055, -64.56188, -64.56424, -64.57056,
  -64.57159, -64.57476, -64.57532, -64.58364, -64.58802, -64.58913, -64.59227, -64.59351, -64.59549, -64.59901,
  -64.60017, -64.60313, -64.60283, -64.60416, -64.60622, -64.61257, -64.6148, -64.61939, -64.62351, -64.62664,
  -64.63385, -64.63591, -64.63664, -64.64411, -64.64334, -64.64497, -64.64956, -64.65063, -64.65274, -64.65287,
  -64.65064, -64.64961, -64.64827, -64.64724, -64.64827, -64.65213, -64.65256, -64.65978, -64.66034, -64.65913,
  -64.6618, -64.66433, -64.66389, -64.66445, -64.6617, -64.65895, -64.65749, -64.65745, -64.65904, -64.66123,
  -64.66651, -64.66973, -64.67205, -64.67093, -64.67248, -64.67424, -64.67776, -64.68342, -64.68509, -64.68591,
  -64.6911, -64.69613, -64.69754, -64.69935, -64.70158, -64.70059, -64.70136, -64.70475, -64.70617, -64.70716,
  -64.71672, -64.71715, -64.71312, -64.70569, -64.70187, -64.69959, -64.69972, -64.70758, -64.70711, -64.70007,
  -64.69406, -64.69316, -64.69517, -64.69711)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(18.38338, 18.38269, 18.3829, 18.38139, 18.38127, 18.38061, 18.38013, 18.38114)
LONGITUDE_VALUEs <- c(-64.71232, -64.71502, -64.71708, -64.71884, -64.72047, -64.72043, -64.7127, -64.71142)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  18.38428, 18.38632, 18.38623, 18.38766, 18.38762, 18.38913, 18.3888, 18.39088, 18.39145, 18.39023, 
  18.38876, 18.38909, 18.38489, 18.38294, 18.38208, 18.38318, 18.38314, 18.3811, 18.38224)
LONGITUDE_VALUEs <- c(
  -64.73729, -64.73601, -64.73433, -64.733, -64.72978, -64.72584, -64.72335, -64.72429, -64.72665, -64.72764, 
  -64.73493, -64.74094, -64.75102, -64.75282, -64.74935, -64.7466, -64.73974, -64.73845, -64.7354)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(18.42862, 18.42618, 18.42349, 18.42219, 18.42264, 18.42235, 18.42353, 18.42504, 18.42854)
LONGITUDE_VALUEs <- c(-64.56177, -64.55979, -64.56014, -64.55846, -64.55735, -64.5558, -64.55503, -64.55774, -64.56031)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  18.44841, 18.44564, 18.44719, 18.45049, 18.45191, 18.4513, 18.45138, 18.44707, 18.44756, 18.44568, 
  18.44499, 18.44418, 18.44438, 18.44283, 18.4432, 18.44108, 18.43905, 18.43819, 18.44051, 18.4388, 
  18.44104, 18.43823, 18.43701, 18.43375, 18.42687, 18.43176, 18.43176, 18.43436, 18.44218, 18.45012, 
  18.44955, 18.448, 18.44499, 18.44458, 18.44642, 18.44861, 18.44975, 18.44751)
LONGITUDE_VALUEs <- c(
  -64.5425, -64.54555, -64.54962, -64.54812, -64.54919, -64.55087, -64.55366, -64.5543, -64.55233, -64.5519, 
  -64.55366, -64.55331, -64.55267, -64.55052, -64.54911, -64.54533, -64.54486, -64.54156, -64.54023, -64.53851, 
  -64.53405, -64.52744, -64.52752, -64.52392, -64.52314, -64.5183, -64.51671, -64.51482, -64.51709, -64.52773, 
  -64.52932, -64.52778, -64.53057, -64.53301, -64.53584, -64.53465, -64.53525, -64.54001)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  18.42602, 18.42895, 18.43107, 18.42976, 18.43229, 18.43546, 18.43526, 18.44063, 18.44601, 18.4592, 
  18.464, 18.46689, 18.46917, 18.46762, 18.46848, 18.46746, 18.46848, 18.46815, 18.46889, 18.46758, 
  18.46746, 18.4732, 18.4734, 18.47202, 18.47182, 18.47511, 18.47727, 18.47845, 18.47914, 18.48472, 
  18.4857, 18.48443, 18.48077, 18.48557, 18.48578, 18.4837, 18.48399, 18.48586, 18.4861, 18.48981, 
  18.49286, 18.49506, 18.49375, 18.49404, 18.49245, 18.49416, 18.49489, 18.49677, 18.49579, 18.4975, 
  18.4977, 18.4999, 18.50071, 18.50295, 18.50279, 18.50369, 18.50364, 18.50425, 18.50369, 18.50324, 
  18.50059, 18.50088, 18.5021, 18.50255, 18.50173, 18.50108, 18.49823, 18.49782, 18.49522, 18.49664, 
  18.50071, 18.50307, 18.50149, 18.49599, 18.49555, 18.49396, 18.49298, 18.49196, 18.49253, 18.49152, 
  18.49225, 18.49005, 18.48948, 18.49107, 18.49046, 18.48916, 18.49001, 18.48883, 18.49233, 18.49607, 
  18.49754, 18.49721, 18.49884, 18.49754, 18.49766, 18.49689, 18.4986, 18.49982, 18.50031, 18.50255, 
  18.50271, 18.50572, 18.50409, 18.50434, 18.50307, 18.50401, 18.50405, 18.50278, 18.50324, 18.50267, 
  18.50385, 18.50145, 18.50023, 18.49876, 18.49713, 18.49363, 18.48948, 18.48655, 18.48439, 18.48289, 
  18.48065, 18.4754, 18.47194, 18.46974, 18.46567, 18.46351, 18.46587, 18.46347, 18.46302, 18.46111, 
  18.45936, 18.46041, 18.46229, 18.46188, 18.45976, 18.45846, 18.45679, 18.45256, 18.44458, 18.44307, 
  18.43937, 18.43648, 18.43517, 18.43387, 18.4331, 18.43131, 18.43029, 18.42915, 18.4274, 18.42793, 
  18.42679, 18.42528, 18.4265)
LONGITUDE_VALUEs <- c(
  -64.44053, -64.43941, -64.435, -64.42762, -64.42302, -64.42526, -64.42727, -64.42946, -64.42714, -64.42577, 
  -64.41371, -64.41174, -64.40706, -64.40156, -64.39847, -64.39671, -64.39504, -64.39358, -64.39101, -64.38899, 
  -64.38693, -64.38723, -64.38886, -64.38796, -64.38951, -64.39054, -64.39036, -64.38835, -64.38949, -64.38736, 
  -64.3853, -64.37938, -64.37513, -64.37011, -64.36848, -64.3671, -64.36384, -64.36114, -64.35569, -64.35616, 
  -64.3523, -64.34449, -64.34217, -64.34123, -64.34028, -64.33848, -64.33518, -64.33179, -64.32775, -64.32775, 
  -64.32608, -64.32668, -64.32318, -64.32202, -64.32052, -64.31996, -64.32074, -64.32155, -64.32228, -64.32773, 
  -64.32846, -64.33211, -64.33259, -64.33675, -64.33812, -64.34225, -64.34362, -64.34614, -64.34988, -64.35129, 
  -64.34743, -64.34859, -64.35816, -64.35735, -64.35859, -64.35808, -64.3543, -64.35469, -64.36413, -64.36456, 
  -64.36692, -64.36761, -64.36954, -64.37203, -64.37717, -64.38031, -64.3819, -64.38293, -64.38293, -64.37962, 
  -64.38133, -64.38361, -64.38401, -64.38601, -64.38854, -64.39026, -64.39241, -64.39236, -64.39387, -64.39365, 
  -64.39717, -64.39734, -64.39889, -64.40104, -64.40155, -64.40301, -64.40614, -64.40852, -64.41108, -64.41237, 
  -64.41597, -64.41559, -64.41048, -64.41026, -64.41146, -64.41129, -64.41468, -64.41331, -64.41408, -64.41369, 
  -64.41541, -64.41253, -64.41528, -64.41382, -64.41743, -64.42189, -64.42782, -64.42872, -64.43048, -64.42983, 
  -64.43399, -64.43558, -64.43506, -64.43889, -64.4406, -64.44369, -64.43974, -64.43683, -64.43961, -64.44352, 
  -64.44313, -64.44421, -64.44382, -64.44515, -64.44356, -64.44468, -64.44468, -64.44605, -64.44554, -64.44691, 
  -64.44691, -64.44365, -64.44159)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  18.45671, 18.45277, 18.45179, 18.44983, 18.44853, 18.44914, 18.44825, 18.44495, 18.44617, 18.44409,
  18.441, 18.44088, 18.4399, 18.44067, 18.44019, 18.44287, 18.44263, 18.44096, 18.43913, 18.43762,
  18.43864, 18.44295, 18.4454, 18.44442, 18.44279, 18.43945, 18.43713, 18.4366, 18.43498, 18.43607, 
  18.43726, 18.43783, 18.43888, 18.43852, 18.44006, 18.44096, 18.44096, 18.43937, 18.43685, 18.43738, 
  18.43937, 18.44116, 18.44466, 18.44401, 18.44589, 18.44703, 18.44825, 18.44837, 18.44988, 18.45134, 
  18.45228, 18.45423, 18.45448, 18.45541, 18.45541, 18.45684, 18.45521, 18.45798, 18.45724, 18.45859, 
  18.457)
LONGITUDE_VALUEs <- c(
  -64.75823, -64.75789, -64.76158, -64.76137, -64.76587, -64.76922, -64.77029, -64.76991, -64.77737, -64.78153,
  -64.7781, -64.77673, -64.77617, -64.77188, -64.76858, -64.7657, -64.76034, -64.75794, -64.75858, -64.75618,
  -64.75343, -64.75407, -64.75257, -64.74867, -64.74918, -64.74691, -64.74339, -64.7406, -64.73661, -64.73124, 
  -64.73017, -64.73094, -64.73098, -64.73192, -64.73321, -64.73296, -64.72781, -64.72733, -64.7239, -64.72094, 
  -64.7218, -64.72081, -64.72206, -64.72562, -64.72648, -64.72862, -64.72785, -64.72523, -64.72699, -64.72703, 
  -64.72884, -64.72815, -64.7308, -64.73136, -64.73342, -64.7362, -64.74239, -64.74921, -64.7523, -64.75436,
  -64.75504)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  18.45207, 18.45077, 18.45338, 18.4537, 18.45285, 18.45391, 18.45696, 18.45818, 18.45879, 18.45965, 
  18.45932, 18.45826, 18.45794, 18.45643, 18.45614, 18.45509, 18.45211, 18.45248, 18.45142)
LONGITUDE_VALUEs <- c(
  -64.7206, -64.7191, -64.71656, -64.71343, -64.71154, -64.71099, -64.72034, -64.72043, -64.71931, -64.72004, 
  -64.72133, -64.72163, -64.72356, -64.72296, -64.72665, -64.7248, -64.72596, -64.72356, -64.72206)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(18.45517, 18.4535, 18.45325, 18.45252, 18.45171, 18.45281, 18.45346, 18.45537)
LONGITUDE_VALUEs <- c(-64.7097, -64.70996, -64.70923, -64.70935, -64.7085, -64.70708, -64.70807, -64.70807)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  18.4579, 18.45667, 18.45586, 18.45553, 18.45749, 18.45785, 18.45912, 18.46058, 18.46058, 18.46225, 
  18.46066, 18.46083, 18.46026, 18.46038, 18.45944, 18.45822)
LONGITUDE_VALUEs <- c(
  -64.54503, -64.54319, -64.54315, -64.54139, -64.54165, -64.54079, -64.54182, -64.54169, -64.54237, -64.5428, 
  -64.5431, -64.54392, -64.54461, -64.54589, -64.54422, -64.54358)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  18.46107, 18.46205, 18.46205, 18.46408, 18.46628, 18.4699, 18.47011, 18.4719, 18.47845, 18.47951, 
  18.48745, 18.48651, 18.48912, 18.48944, 18.49266, 18.49327, 18.49473, 18.49599, 18.49538, 18.49282, 
  18.49404, 18.49107, 18.48623, 18.48439, 18.48301, 18.48211, 18.47975, 18.47654, 18.47483, 18.47393, 
  18.47214, 18.47214, 18.47039, 18.46978, 18.46522, 18.466, 18.46453, 18.46221, 18.46164, 18.46054, 
  18.4594, 18.45851, 18.45692, 18.45659, 18.45928)
LONGITUDE_VALUEs <- c(
  -64.53345, -64.53242, -64.52899, -64.52804, -64.52603, -64.5277, -64.53105, -64.53143, -64.52985, -64.5286, 
  -64.52667, -64.52864, -64.53032, -64.53169, -64.53246, -64.53014, -64.53027, -64.52989, -64.53401, -64.53654, 
  -64.53842, -64.53928, -64.53568, -64.53817, -64.53791, -64.53898, -64.5392, -64.53409, -64.53426, -64.53753, 
  -64.53727, -64.53353, -64.53323, -64.53465, -64.53628, -64.53958, -64.54001, -64.53864, -64.53937, -64.5386, 
  -64.53924, -64.5383, -64.53855, -64.53589, -64.53289)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  18.47129, 18.46868, 18.46657, 18.46551, 18.46514, 18.46722, 18.46559, 18.46657, 18.47023, 18.47186, 
  18.46986, 18.47096, 18.47047, 18.47125, 18.4675, 18.4684, 18.46925)
LONGITUDE_VALUEs <- c(
  -64.5231, -64.52546, -64.52366, -64.52405, -64.5228, -64.51976, -64.51203, -64.50556, -64.50054, -64.50152, 
  -64.50405, -64.5089, -64.51113, -64.51349, -64.51808, -64.51886, -64.52186)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(18.52749, 18.52476, 18.52334, 18.5242, 18.52712, 18.52794, 18.52965, 18.52957, 18.52769)
LONGITUDE_VALUEs <- c(-64.36106, -64.3608, -64.3584, -64.35707, -64.35608, -64.35308, -64.35518, -64.35883, -64.35986)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(18.5093, 18.50853, 18.51146, 18.51219, 18.51068)
LONGITUDE_VALUEs <- c(-64.36059, -64.35835, -64.35535, -64.35715, -64.36016)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(18.51349, 18.51178, 18.50625, 18.5023, 18.50438, 18.50633, 18.50694, 18.51329, 18.51199)
LONGITUDE_VALUEs <- c(-64.37462, -64.3747, -64.36904, -64.36878, -64.35917, -64.35977, -64.36629, -64.36912, -64.37058)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  18.51125, 18.50902, 18.50832, 18.50714, 18.50869, 18.51203, 18.51305, 18.51557, 18.51451, 18.51536, 
  18.51357, 18.51378, 18.51182)
LONGITUDE_VALUEs <- c(
  -64.40024, -64.3999, -64.39754, -64.39702, -64.39209, -64.3911, -64.38994, -64.38994, -64.3911, -64.39355, 
  -64.39316, -64.39449, -64.39539)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(18.49082, 18.49266, 18.49408, 18.49371, 18.49445, 18.49408, 18.49514, 18.49461, 18.4938, 18.49245)
LONGITUDE_VALUEs <- c(-64.4574, -64.4544, -64.45427, -64.45569, -64.45633, -64.45736, -64.45762, -64.46062, -64.46105, -64.45766)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(18.48545, 18.48317, 18.48281, 18.48159, 18.48244, 18.48513)
LONGITUDE_VALUEs <- c(-64.47311, -64.47362, -64.47452, -64.47388, -64.47088, -64.47174)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(18.48114, 18.48102, 18.47947, 18.47878, 18.4813, 18.48069, 18.48354, 18.48244, 18.48529, 18.4846)
LONGITUDE_VALUEs <- c(-64.46066, -64.46195, -64.46268, -64.46186, -64.45912, -64.45067, -64.45071, -64.45367, -64.45938, -64.46092)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(18.41466, 18.41405, 18.41669, 18.42056, 18.42068)
LONGITUDE_VALUEs <- c(-64.45363, -64.45255, -64.44959, -64.44916, -64.45208)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(18.39778, 18.39656, 18.39806, 18.39786, 18.39965, 18.39969)
LONGITUDE_VALUEs <- c(-64.4595, -64.45813, -64.45745, -64.45594, -64.4559, -64.45706)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  18.38699, 18.38564, 18.38804, 18.3865, 18.38381, 18.38214, 18.38442, 18.38686, 18.3898, 18.3887, 
  18.39041, 18.39122, 18.39342, 18.39269, 18.39273, 18.38837)
LONGITUDE_VALUEs <- c(
  -64.4895, -64.4892, -64.48058, -64.47929, -64.47929, -64.47268, -64.47139, -64.47646, -64.47603, -64.47071, 
  -64.47054, -64.46873, -64.47054, -64.47388, -64.47809, -64.48512)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  18.38998, 18.38864, 18.38819, 18.38448, 18.38017, 18.37943, 18.3774, 18.37577, 18.37341, 18.36872, 
  18.37072, 18.36974, 18.36632, 18.36819, 18.37088, 18.37446, 18.37316, 18.37565, 18.37862, 18.38049, 
  18.3833, 18.38725, 18.38937)
LONGITUDE_VALUEs <- c(
  -64.51392, -64.51409, -64.51306, -64.51276, -64.5155, -64.5131, -64.51254, -64.5092, -64.50954, -64.50838, 
  -64.50671, -64.50375, -64.50023, -64.49851, -64.49795, -64.50049, -64.50392, -64.50877, -64.50709, -64.50868, 
  -64.50448, -64.51198, -64.51139)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  18.37323, 18.37184, 18.37082, 18.3683, 18.36817, 18.36984, 18.36907, 18.37017, 18.37013, 18.36708, 
  18.36345, 18.36349, 18.36679, 18.36834, 18.36781, 18.36679, 18.36736, 18.37054, 18.37355, 18.37453, 
  18.37616, 18.37612, 18.37453, 18.37265)
LONGITUDE_VALUEs <- c(
  -64.53419, -64.53444, -64.53324, -64.53414, -64.53273, -64.53213, -64.5311, -64.53015, -64.52788, -64.5259, 
  -64.52505, -64.52256, -64.5223, -64.52316, -64.52367, -64.5232, -64.52496, -64.52556, -64.52423, -64.5205, 
  -64.52033, -64.52766, -64.52784, -64.53084)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(18.36748, 18.36618, 18.36593, 18.36317, 18.36443, 18.36475, 18.36642)
LONGITUDE_VALUEs <- c(-64.56376, -64.56453, -64.56543, -64.56517, -64.56298, -64.56058, -64.5611)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  18.3384, 18.33445, 18.33184, 18.332, 18.33066, 18.33046, 18.3294, 18.32996, 18.33429, 18.34145, 
  18.34683, 18.35213, 18.35388, 18.35445, 18.3582, 18.3549, 18.35445, 18.35657, 18.35816, 18.35958, 
  18.35897, 18.35811, 18.35685, 18.35665, 18.3584, 18.3593, 18.36072, 18.36044, 18.36194, 18.36325, 
  18.36264, 18.35828, 18.3575, 18.35543, 18.35404, 18.35571, 18.35653, 18.35811, 18.35689, 18.35669, 
  18.35563, 18.35514, 18.35388, 18.35253, 18.35339, 18.35217, 18.35066, 18.34952, 18.3472, 18.34785, 
  18.34985, 18.35078, 18.34777, 18.34557, 18.34936, 18.34981, 18.35126, 18.3505, 18.352, 18.35095, 
  18.35225, 18.35217, 18.3507, 18.34907, 18.34496)
LONGITUDE_VALUEs <- c(
  -64.57028, -64.57345, -64.57242, -64.57101, -64.56994, -64.56745, -64.56509, -64.56386, -64.56629, -64.56543, 
  -64.56766, -64.56698, -64.56758, -64.56577, -64.56749, -64.56891, -64.57079, -64.5741, -64.57358, -64.5747, 
  -64.57684, -64.57573, -64.57556, -64.57757, -64.57753, -64.57903, -64.57938, -64.58024, -64.58264, -64.58341, 
  -64.58457, -64.5814, -64.57869, -64.57882, -64.58929, -64.58989, -64.59131, -64.59204, -64.59598, -64.60148, 
  -64.60066, -64.59895, -64.59903, -64.60315, -64.60808, -64.61207, -64.6101, -64.60645, -64.60444, -64.60336, 
  -64.60435, -64.60302, -64.59606, -64.59516, -64.5937, -64.59095, -64.59028, -64.58635, -64.58554, -64.58146, 
  -64.5797, -64.57725, -64.57661, -64.57331, -64.57434)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  18.3186, 18.3162, 18.31616, 18.3129, 18.31375, 18.31571, 18.31717, 18.31481, 18.31066, 18.30996, 
  18.30703, 18.30809, 18.30626, 18.3065, 18.30911, 18.30915, 18.30742, 18.31013, 18.31074, 18.30817, 
  18.31009, 18.31326, 18.31563, 18.31493, 18.31787, 18.31628, 18.31864, 18.32056, 18.31937, 18.31742, 
  18.3173, 18.31893, 18.3184, 18.31734, 18.31758, 18.31628, 18.31665, 18.31901, 18.3199, 18.32304, 
  18.32361, 18.32232, 18.3228, 18.32219, 18.32357, 18.32349, 18.32483, 18.32349, 18.32267, 18.32039, 
  18.32109, 18.3206, 18.32296, 18.32255, 18.32125, 18.32064, 18.32394, 18.32418, 18.32361, 18.32324, 
  18.32186, 18.32084, 18.3197, 18.32019, 18.31889)
LONGITUDE_VALUEs <- c(
  -64.61328, -64.61392, -64.61543, -64.61787, -64.621, -64.62203, -64.62435, -64.62349, -64.62358, -64.6274, 
  -64.62504, -64.62238, -64.62113, -64.62015, -64.62075, -64.61787, -64.61612, -64.61603, -64.61362, -64.61088, 
  -64.60869, -64.61191, -64.61075, -64.60903, -64.60775, -64.60526, -64.60448, -64.60058, -64.59714, -64.5986, 
  -64.5959, -64.59474, -64.59328, -64.59311, -64.59191, -64.59144, -64.59054, -64.5911, -64.59024, -64.59097, 
  -64.59436, -64.59594, -64.5977, -64.59865, -64.60053, -64.60311, -64.60543, -64.60538, -64.6041, -64.60551, 
  -64.60753, -64.60993, -64.61105, -64.61305, -64.61292, -64.61614, -64.61876, -64.62207, -64.62215, -64.61984, 
  -64.61945, -64.62039, -64.61988, -64.61838, -64.61567)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>%
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "BRITISH VIRGIN ISLANDS")
GeoDATA <- rbind(GeoDATA, Geo_1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "SAINT PIERRE AND MIQUELON")

##### SAINT PIERRE AND MIQUELON #####
LATITUDE_VALUEs <- c(
  46.79246, 46.79046, 46.79211, 46.79698, 46.80427, 46.81379, 46.8189, 46.82219, 46.8297, 46.83428,
  46.83916, 46.84368, 46.84943, 46.85307, 46.85777, 46.86475, 46.86692, 46.8705, 46.8715, 46.87467,
  46.87602, 46.87983, 46.88282, 46.88646, 46.88734, 46.88487, 46.88833, 46.8898, 46.89127, 46.89514,
  46.8932, 46.89455, 46.89039, 46.90024, 46.901, 46.90786, 46.92311, 46.93055, 46.94807, 46.9619,
  46.97309, 46.97717, 46.97831, 46.97948, 46.981, 46.98657, 46.98985, 46.99066, 46.98961, 46.99031,
  46.99342, 46.99953, 47.01033, 47.01648, 47.02271, 47.02692, 47.0307, 47.03359, 47.03462, 47.03927,
  47.04102, 47.04321, 47.04582, 47.04734, 47.05076, 47.05324, 47.05748, 47.06003, 47.0607, 47.06295,
  47.06736, 47.06728, 47.07099, 47.07496, 47.07917, 47.08376, 47.09083, 47.09086, 47.09352, 47.09612,
  47.09822, 47.09892, 47.09714, 47.09659, 47.09454, 47.09577, 47.09609, 47.10301, 47.10894, 47.11411,
  47.11736, 47.11832, 47.11995, 47.12212, 47.12433, 47.12912, 47.12918, 47.13052, 47.13324, 47.13473,
  47.13704, 47.1399, 47.14422, 47.14252, 47.1389, 47.13727, 47.13517, 47.13426, 47.13309, 47.13134,
  47.13301, 47.13187, 47.13204, 47.1305, 47.13038, 47.12836, 47.12874, 47.12536, 47.12261, 47.12016, 
  47.11876, 47.11814, 47.11613, 47.11184, 47.10632, 47.10474, 47.10202, 47.10269, 47.10012, 47.09264, 
  47.07285, 47.0656, 47.05455, 47.03852, 47.03232, 47.02255, 47.01852, 47.0095, 47.00997, 47.00506, 
  46.9807, 46.96301, 46.94245, 46.92627, 46.90627, 46.89724, 46.89425, 46.8949, 46.88845, 46.87667, 
  46.87159, 46.86828, 46.86605, 46.86294, 46.86344, 46.85651, 46.8539, 46.85322, 46.84908, 46.84536, 
  46.84178, 46.84125, 46.83966, 46.83925, 46.83749, 46.83761, 46.83461, 46.82921, 46.82865, 46.82809, 
  46.82545, 46.82448, 46.8234, 46.82169, 46.82111, 46.82281, 46.82416, 46.82604, 46.82683, 46.82883, 
  46.82836, 46.82889, 46.82833, 46.82851, 46.82413, 46.81937, 46.81605, 46.81482, 46.81162, 46.80454, 
  46.8041, 46.80243, 46.79925, 46.79676, 46.79731, 46.79535, 46.79329, 46.79476, 46.79479, 46.79649, 
  46.80022, 46.79925, 46.7979, 46.79861, 46.7969, 46.7967, 46.79467, 46.79646, 46.79373, 46.79211, 
  46.79144, 46.79015, 46.79035, 46.78586, 46.78556, 46.78286, 46.78777, 46.78941, 46.79044)
LONGITUDE_VALUEs <- c(
  -56.33435, -56.33255, -56.32818, -56.3262, -56.31667, -56.29505, -56.29118, -56.27659, -56.26638, -56.25625,
  -56.25067, -56.24337, -56.24166, -56.23763, -56.24089, -56.23754, -56.24037, -56.23874, -56.24114, -56.242,
  -56.24724, -56.24664, -56.24861, -56.24621, -56.24809, -56.25582, -56.26303, -56.26312, -56.26724, -56.2705,
  -56.27513, -56.27933, -56.28989, -56.30457, -56.31392, -56.31959, -56.32517, -56.32543, -56.32148, -56.31676,
  -56.30843, -56.30359, -56.30368, -56.30093, -56.29986, -56.29166, -56.28505, -56.28025, -56.28008, -56.2781,
  -56.27703, -56.26975, -56.26589, -56.26289, -56.25894, -56.25757, -56.25516, -56.25233, -56.25323, -56.25001,
  -56.25212, -56.25263, -56.25177, -56.25259, -56.25203, -56.25293, -56.25315, -56.25443, -56.25731, -56.26074,
  -56.27182, -56.27409, -56.29276, -56.30478, -56.31508, -56.32267, -56.33083, -56.33255, -56.33928, -56.34216,
  -56.34649, -56.35203, -56.35405, -56.35876, -56.36254, -56.36649, -56.3695, -56.37821, -56.38121, -56.3816,
  -56.37954, -56.37005, -56.3682, -56.36147, -56.36091, -56.3555, -56.35224, -56.35082, -56.34219, -56.34353,
  -56.34254, -56.34417, -56.34366, -56.35018, -56.35366, -56.3616, -56.36143, -56.36589, -56.36658, -56.37319,
  -56.37748, -56.3797, -56.3825, -56.38263, -56.38504, -56.3853, -56.38838, -56.39229, -56.39147, -56.39464, 
  -56.39327, -56.39507, -56.39464, -56.401, -56.39954, -56.40164, -56.39705, -56.39408, -56.39026, -56.38752, 
  -56.38341, -56.38342, -56.38968, -56.38419, -56.38582, -56.38256, -56.38282, -56.37037, -56.36736, -56.35903, 
  -56.34514, -56.33698, -56.33055, -56.32797, -56.32797, -56.33029, -56.33389, -56.33767, -56.34214, -56.34198, 
  -56.34632, -56.34799, -56.35405, -56.35697, -56.36152, -56.3825, -56.38275, -56.3843, -56.38778, -56.39452, 
  -56.39644, -56.39859, -56.39855, -56.40297, -56.40241, -56.40512, -56.40563, -56.40086, -56.40138, -56.40065, 
  -56.40215, -56.40172, -56.40314, -56.40353, -56.40211, -56.40048, -56.40142, -56.40048, -56.39464, -56.3894, 
  -56.38684, -56.3843, -56.38314, -56.37851, -56.37018, -56.37001, -56.37203, -56.37009, -56.37318, -56.37327, 
  -56.37533, -56.3764, -56.37262, -56.37503, -56.37228, -56.37331, -56.3716, -56.37074, -56.36958, -56.36949, 
  -56.36464, -56.36194, -56.36228, -56.35988, -56.36035, -56.35919, -56.35957, -56.35494, -56.34945, -56.35164, 
  -56.35078, -56.35267, -56.3485, -56.35023, -56.34877, -56.34941, -56.33953, -56.33885, -56.33614)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  46.76237, 46.7602, 46.75741, 46.75614, 46.75773, 46.7587, 46.75838, 46.76179, 46.76246, 46.76111,
  46.7597, 46.76073, 46.75814, 46.76073, 46.76002, 46.76108, 46.7612, 46.76261, 46.76205, 46.76508,
  46.76684, 46.76819, 46.76896, 46.76852, 46.76958, 46.76964, 46.77205, 46.77546, 46.77513, 46.77631,
  46.77466, 46.7751, 46.77443, 46.77525, 46.77484, 46.77607, 46.77854, 46.77851, 46.77992, 46.78127,
  46.78307, 46.78395, 46.78521, 46.78589, 46.78709, 46.79165, 46.79276, 46.79397, 46.79394, 46.79494,
  46.79696, 46.80402, 46.80419, 46.80763, 46.80883, 46.81054, 46.81242, 46.81386, 46.81579, 46.81374,
  46.81391, 46.81013, 46.80836, 46.80754, 46.8061, 46.80466, 46.80425, 46.8019, 46.80219, 46.80075,
  46.79626, 46.79508, 46.79279, 46.79188, 46.79053, 46.78936, 46.78771, 46.78507, 46.78207, 46.77451, 
  46.77299, 46.77219, 46.76896, 46.76843, 46.76661, 46.7657, 46.76625, 46.7657, 46.76458, 46.76249, 
  46.76229, 46.7627, 46.76164, 46.76343, 46.7619, 46.75943, 46.75982, 46.75791, 46.75744, 46.75658, 
  46.75532, 46.75244, 46.75153, 46.75061, 46.75141, 46.75273, 46.75461, 46.75732, 46.76029, 46.76061, 
  46.76199, 46.7614, 46.76046, 46.76096, 46.76061, 46.76273, 46.76705, 46.76658, 46.76352)
LONGITUDE_VALUEs <- c(
  -56.19313, -56.19128, -56.1915, -56.18729, -56.18459, -56.17875, -56.17622, -56.17493, -56.17278, -56.16811,
  -56.16802, -56.17227, -56.16837, -56.16601, -56.16184, -56.16219, -56.16081, -56.15918, -56.15528, -56.15065,
  -56.15141, -56.15064, -56.15287, -56.15523, -56.15716, -56.15927, -56.16068, -56.15772, -56.16124, -56.16244,
  -56.16716, -56.16987, -56.1715, -56.17248, -56.17695, -56.17729, -56.17313, -56.17107, -56.1709, -56.16854,
  -56.16884, -56.16596, -56.16742, -56.16369, -56.16952, -56.16433, -56.1612, -56.16068, -56.15858, -56.15841,
  -56.15416, -56.1544, -56.15586, -56.15479, -56.15625, -56.15659, -56.1614, -56.16213, -56.16646, -56.16913,
  -56.17758, -56.19351, -56.1959, -56.1956, -56.19684, -56.19637, -56.19822, -56.19946, -56.20165, -56.20543,
  -56.20805, -56.21346, -56.21272, -56.21568, -56.21568, -56.21783, -56.21856, -56.22204, -56.22165, -56.22925, 
  -56.22895, -56.23118, -56.23255, -56.23496, -56.23392, -56.238, -56.23938, -56.242, -56.24075, -56.24079, 
  -56.23839, -56.23732, -56.2356, -56.23148, -56.22736, -56.22869, -56.22628, -56.22572, -56.22753, -56.22723, 
  -56.22804, -56.22259, -56.22367, -56.22259, -56.22032, -56.22053, -56.21654, -56.21808, -56.21689, -56.215, 
  -56.21393, -56.20757, -56.20684, -56.20444, -56.20139, -56.20075, -56.1953, -56.19049, -56.19088)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  46.82449, 46.82531, 46.82217, 46.82126, 46.82014, 46.82084, 46.82082, 46.82167, 46.82275, 46.82284, 
  46.82452, 46.8254)
LONGITUDE_VALUEs <- c(
  -56.16588, -56.16729, -56.17386, -56.17416, -56.16961, -56.16347, -56.16159, -56.15931, -56.16038, -56.15691, 
  -56.15863, -56.16176)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(46.79605, 46.79482, 46.79564, 46.79629, 46.79679, 46.79767, 46.79676)
LONGITUDE_VALUEs <- c(-56.13266, -56.13279, -56.13146, -56.13137, -56.12966, -56.13077, -56.1333)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  46.79065, 46.79344, 46.79297, 46.79118, 46.78877, 46.78903, 46.78871, 46.78774, 46.7888, 46.78847, 
  46.78968)
LONGITUDE_VALUEs <- c(
  -56.12622, -56.12764, -56.12991, -56.12914, -56.13146, -56.13245, -56.13296, -56.13189, -56.12884, -56.12751, 
  -56.12781)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  46.78177, 46.7806, 46.78092, 46.78421, 46.7848, 46.78615, 46.78603, 46.78718, 46.78859, 46.79015, 
  46.7903, 46.7925, 46.792, 46.7905, 46.78965, 46.79106, 46.79068, 46.78844, 46.78745, 46.78683, 
  46.78371, 46.78139, 46.78183, 46.78154)
LONGITUDE_VALUEs <- c(
  -56.15133, -56.15013, -56.14858, -56.14794, -56.14635, -56.14511, -56.14772, -56.14785, -56.14369, -56.14275, 
  -56.1397, -56.13893, -56.14468, -56.14339, -56.14502, -56.14661, -56.14854, -56.14807, -56.14944, -56.14944, 
  -56.1563, -56.15497, -56.15313, -56.15227)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(46.75749, 46.75638, 46.75426, 46.75455, 46.75738)
LONGITUDE_VALUEs <- c(-56.17699, -56.17746, -56.17536, -56.17463, -56.17498)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>%
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "SAINT PIERRE AND MIQUELON")
GeoDATA <- rbind(GeoDATA, Geo_1)

# ################################
# ##### Geometric Operations #####
# ################################
# 
# ##### COUNTRIE(s) #####
# Geo_1 <- GeoDATA %>% filter(NAME == "COUNTRY")
# 
# ##### COUNTRY #####
# 
# Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
# Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
#   mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
# if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# 
# #Replace GEOMETRIE(s)
# GeoDATA <- GeoDATA %>% filter(NAME != "COUNTRY")
# GeoDATA <- rbind(GeoDATA, Geo_1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "NIUE")

##### NIUE #####
LATITUDE_VALUEs <- c(
  -19.13855, -19.13701, -19.14187, -19.15314, -19.15565, -19.14844, -19.14609, -19.12541, -19.09792, -19.0705,
  -19.06093, -19.05533, -19.04746, -19.04276, -19.03935, -19.03359, -19.02182, -19.01079, -18.99699, -18.98587,
  -18.97702, -18.9668, -18.96038, -18.95746, -18.95722, -18.953, -18.95292, -18.95665, -18.95633, -18.95892,
  -18.95884, -18.97345, -18.99131, -19.00738, -19.01363, -19.03967, -19.04787, -19.05647, -19.05752, -19.07147,
  -19.07634, -19.08981, -19.09516, -19.10692, -19.11365, -19.12606, -19.13352, -19.13538)
LONGITUDE_VALUEs <- c(
  -169.9157, -169.9061, -169.8946, -169.8833, -169.878, -169.8618, -169.8426, -169.8295, -169.7976, -169.7779,
  -169.7745, -169.7757, -169.7826, -169.7837, -169.7869, -169.7886, -169.7955, -169.7928, -169.7996, -169.8031,
  -169.8021, -169.8051, -169.8117, -169.8202, -169.8268, -169.8419, -169.8515, -169.8601, -169.8631, -169.873,
  -169.8777, -169.8958, -169.9048, -169.9218, -169.9238, -169.9171, -169.9182, -169.9222, -169.9254, -169.9479,
  -169.9501, -169.9385, -169.9296, -169.9161, -169.9125, -169.9126, -169.9222, -169.9229)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>%
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "NIUE")
GeoDATA <- rbind(GeoDATA, Geo_1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "CAYMAN ISLANDS")

##### CAYMAN ISLANDS #####
LATITUDE_VALUEs <- c(
  19.38578, 19.3836, 19.37303, 19.37052, 19.37072, 19.36655, 19.35926, 19.34983, 19.34157, 19.33469, 
  19.32703, 19.3231, 19.31699, 19.31444, 19.30788, 19.30727, 19.30338, 19.30285, 19.29795, 19.29658, 
  19.29435, 19.29192, 19.28803, 19.28118, 19.27422, 19.27389, 19.27029, 19.26806, 19.26688, 19.26498, 
  19.2758, 19.27762, 19.27932, 19.28005, 19.27932, 19.27551, 19.27223, 19.27324, 19.27369, 19.27227, 
  19.27195, 19.2732, 19.27207, 19.27292, 19.27243, 19.27008, 19.26534, 19.26737, 19.26725, 19.26603, 
  19.26279, 19.26559, 19.27029, 19.28394, 19.2922, 19.2924, 19.29609, 19.29637, 19.29508, 19.29427, 
  19.30123, 19.30184, 19.30111, 19.29384, 19.29489, 19.29384, 19.29448, 19.29213, 19.29392, 19.29303, 
  19.29983, 19.30291, 19.30963, 19.31384, 19.3166, 19.32745, 19.34187, 19.34665, 19.34802, 19.35086, 
  19.35377, 19.3528, 19.35515, 19.35288, 19.35329, 19.34754, 19.3477, 19.34632, 19.3528, 19.35248, 
  19.34851, 19.34956, 19.36114, 19.37288, 19.36365, 19.36114, 19.35053, 19.34486, 19.34608, 19.34195, 
  19.34735, 19.34559, 19.34041, 19.3328, 19.32996, 19.32607, 19.32607, 19.33045, 19.3264, 19.32607, 
  19.32381, 19.3213, 19.32259, 19.3217, 19.3247, 19.3345, 19.33158, 19.33288, 19.32648, 19.32221, 
  19.32071, 19.31533, 19.31347, 19.31164, 19.31083, 19.30861, 19.30743, 19.31213, 19.31091, 19.30354, 
  19.30403, 19.30217, 19.3018, 19.30427, 19.29985, 19.29815, 19.29353, 19.29633, 19.29463, 19.29856, 
  19.29442, 19.29203, 19.29483, 19.30217, 19.3037, 19.30649, 19.31289, 19.31229, 19.31532, 19.31682, 
  19.32079, 19.32314, 19.32144, 19.32176, 19.32521, 19.32796, 19.32994, 19.33051, 19.33322, 19.33011, 
  19.33035, 19.33703, 19.33598, 19.33796, 19.33893, 19.3382, 19.33893, 19.34067, 19.34065, 19.34476, 
  19.35509, 19.36088, 19.3759, 19.37995, 19.38278, 19.38262, 19.38319, 19.38201, 19.38133, 19.37987, 
  19.38157, 19.38792, 19.39213, 19.39493, 19.39695, 19.39315, 19.38695)
LONGITUDE_VALUEs <- c(
  -81.41483, -81.41646, -81.42041, -81.41655, -81.40591, -81.3965, -81.38869, -81.38402, -81.38178, -81.38191, 
  -81.38277, -81.3841, -81.38496, -81.38638, -81.38633, -81.3847, -81.38264, -81.38341, -81.3823, -81.38427, 
  -81.38307, -81.38736, -81.39011, -81.3932, -81.39105, -81.39174, -81.39178, -81.38882, -81.38402, -81.38153, 
  -81.36041, -81.35423, -81.35101, -81.34603, -81.34114, -81.34097, -81.33831, -81.33634, -81.33183, -81.3311, 
  -81.32788, -81.32466, -81.31969, -81.31831, -81.31226, -81.30523, -81.30033, -81.29655, -81.29351, -81.29261, 
  -81.28647, -81.26422, -81.25663, -81.24255, -81.22792, -81.22539, -81.21543, -81.20444, -81.20311, -81.19697, 
  -81.17981, -81.17178, -81.16508, -81.15616, -81.15152, -81.14937, -81.14474, -81.14001, -81.12765, -81.12009, 
  -81.09958, -81.09761, -81.09014, -81.08945, -81.08722, -81.08439, -81.08585, -81.08911, -81.09229, -81.09375, 
  -81.09864, -81.10251, -81.13237, -81.13658, -81.15229, -81.17101, -81.17408, -81.18627, -81.20929, -81.2177, 
  -81.2285, -81.2376, -81.25648, -81.27108, -81.27657, -81.26902, -81.26738, -81.27254, -81.26618, -81.26335, 
  -81.26148, -81.25734, -81.26008, -81.2588, -81.26352, -81.26309, -81.27022, -81.27279, -81.27254, -81.27546, 
  -81.27554, -81.28078, -81.28267, -81.2855, -81.2898, -81.28585, -81.29022, -81.29409, -81.29512, -81.29323, 
  -81.29409, -81.29431, -81.29641, -81.29624, -81.29835, -81.29847, -81.29689, -81.29341, -81.29019, -81.29431, 
  -81.29813, -81.30006, -81.30401, -81.30676, -81.31087, -81.31435, -81.3213, -81.32632, -81.33472, -81.33744, 
  -81.3401, -81.34679, -81.34697, -81.35473, -81.3598, -81.35864, -81.36284, -81.3652, -81.36791, -81.36486, 
  -81.36465, -81.36731, -81.36769, -81.36963, -81.36967, -81.36731, -81.36829, -81.36649, -81.36563, -81.36537, 
  -81.36452, -81.36271, -81.36537, -81.36593, -81.36387, -81.36293, -81.36172, -81.36203, -81.36325, -81.36164, 
  -81.36907, -81.37126, -81.38143, -81.38121, -81.37902, -81.37705, -81.37387, -81.36743, -81.36739, -81.36163, 
  -81.36112, -81.36576, -81.37542, -81.37829, -81.38765, -81.39816, -81.41057)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  19.65978, 19.65768, 19.65898, 19.65943, 19.66266, 19.66654, 19.67135, 19.67628, 19.67672, 19.67737, 
  19.67689, 19.67458, 19.67486, 19.67288, 19.67458, 19.68036, 19.68606, 19.6859, 19.68868, 19.69559, 
  19.69838, 19.69858, 19.69677, 19.70052, 19.70254, 19.70614, 19.70796, 19.71353, 19.71155, 19.70638, 
  19.704, 19.70299, 19.70048, 19.70073, 19.69535, 19.69264, 19.68804, 19.68351, 19.67967, 19.67515, 
  19.67466, 19.66646, 19.66177, 19.65846, 19.65753, 19.65951)
LONGITUDE_VALUEs <- c(
  -80.09471, -80.08621, -80.08308, -80.08051, -80.07707, -80.06699, -80.06634, -80.0596, -80.05557, -80.05463, 
  -80.05325, -80.05149, -80.04853, -80.04557, -80.04171, -80.03394, -80.02158, -80.01974, -80.01463, -79.99854, 
  -79.98682, -79.98223, -79.97073, -79.96262, -79.96339, -79.96193, -79.963, -79.97575, -79.98553, -79.99678, 
  -80.00914, -80.01163, -80.02467, -80.03982, -80.06196, -80.0666, -80.06905, -80.07428, -80.08612, -80.09385, 
  -80.0966, -80.10501, -80.11054, -80.10904, -80.10522, -80.09802)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  19.68903, 19.68507, 19.68314, 19.68265, 19.68443, 19.68394, 19.68596, 19.68613, 19.68831, 19.68831, 
  19.69283, 19.69518, 19.71045, 19.72249, 19.74406, 19.7523, 19.75391, 19.75706, 19.75262, 19.74042, 
  19.73348, 19.72887, 19.72176, 19.70722, 19.70051, 19.69211)
LONGITUDE_VALUEs <- c(
  -79.89018, -79.89387, -79.89352, -79.88837, -79.88597, -79.88391, -79.87765, -79.86665, -79.86073, -79.85472, 
  -79.84769, -79.83653, -79.80083, -79.7507, -79.72598, -79.72272, -79.73233, -79.73808, -79.76048, -79.77336, 
  -79.79044, -79.81395, -79.82409, -79.84485, -79.87069, -79.88288)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>%
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "CAYMAN ISLANDS")
GeoDATA <- rbind(GeoDATA, Geo_1)

# ################################
# ##### Geometric Operations #####
# ################################
# 
# ##### COUNTRIE(s) #####
# Geo_1 <- GeoDATA %>% filter(NAME == "COUNTRY")
# 
# ##### COUNTRY #####
# 
# Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
# Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
#   mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
# if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# 
# #Replace GEOMETRIE(s)
# GeoDATA <- GeoDATA %>% filter(NAME != "COUNTRY")
# GeoDATA <- rbind(GeoDATA, Geo_1)

# ################################
# ##### Geometric Operations #####
# ################################
# 
# ##### COUNTRIE(s) #####
# Geo_1 <- GeoDATA %>% filter(NAME == "COUNTRY")
# 
# ##### COUNTRY #####
# 
# Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
# Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
#   mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
# if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# 
# #Replace GEOMETRIE(s)
# GeoDATA <- GeoDATA %>% filter(NAME != "COUNTRY")
# GeoDATA <- rbind(GeoDATA, Geo_1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "SAINT HELENA, ASCENSION AND TRISTAN DA CUNHA")

##### SAINT HELENA, ASCENSION AND TRISTAN DA CUNHA #####
LATITUDE_VALUEs <- c(
  -7.96744, -7.97509, -7.98393, -7.98682, -7.98988, -7.9909, -7.99277, -7.98886, -7.98869, -7.98393,
  -7.98699, -7.98172, -7.9824, -7.97934, -7.98495, -7.97475, -7.96948, -7.97169, -7.96642, -7.95384,
  -7.95265, -7.95758, -7.95112, -7.94313, -7.94398, -7.94007, -7.94007, -7.93514, -7.9268, -7.91762,
  -7.91762, -7.91218, -7.91558, -7.90436, -7.89875, -7.90096, -7.89722, -7.89586, -7.89127, -7.88957,
  -7.89501, -7.89212, -7.90606, -7.91167, -7.91728, -7.92153, -7.92527, -7.92425, -7.93208, -7.93718,
  -7.9416)
LONGITUDE_VALUEs <- c(
  -14.41047, -14.41597, -14.40841, -14.40103, -14.40224, -14.39726, -14.39434, -14.38885, -14.37993, -14.3746,
  -14.36568, -14.36122, -14.35607, -14.35315, -14.34406, -14.33565, -14.32207, -14.31984, -14.3128, -14.31091,
  -14.30456, -14.30285, -14.29444, -14.29907, -14.30353, -14.30628, -14.31126, -14.31795, -14.31932, -14.32688,
  -14.32997, -14.33461, -14.34147, -14.35245, -14.35091, -14.35434, -14.35571, -14.3655, -14.37219, -14.38043,
  -14.38111, -14.39124, -14.40583, -14.40291, -14.40789, -14.406, -14.41065, -14.41322, -14.42043, -14.4194,
  -14.42026)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  -16.00843, -16.01685, -16.02724, -16.01355, -16.01305, -16.00926, -16.00926, -16.00332, -16.002, -16.00744,
  -16.00134, -16.00084, -15.99127, -15.9888, -15.98979, -15.98599, -15.98154, -15.9751, -15.97362, -15.96454,
  -15.9619, -15.95909, -15.95332, -15.951, -15.94754, -15.94737, -15.93945, -15.94061, -15.93532, -15.92905,
  -15.92294, -15.91898, -15.91122, -15.91056, -15.91601, -15.91238, -15.9137, -15.90858, -15.90363, -15.90561,
  -15.91073, -15.91386, -15.91964, -15.91915, -15.92476, -15.92839, -15.94127, -15.93978, -15.94902, -15.95447,
  -15.95992, -15.96668, -15.96751, -15.97064, -15.97659, -15.98269, -15.98467, -15.98896, -15.99705, -15.99655,
  -15.99936, -15.9987, -16.00101, -16.00134, -16.00464, -16.00282, -16.00579)
LONGITUDE_VALUEs <- c(
  -5.75825, -5.7579, -5.74519, -5.72906, -5.72288, -5.72168, -5.7143, -5.7143, -5.7004, -5.68804,
  -5.68667, -5.67208, -5.67225, -5.66297, -5.65799, -5.65696, -5.6501, -5.65078, -5.63568, -5.64083,
  -5.63877, -5.64117, -5.63911, -5.63448, -5.63517, -5.64014, -5.64152, -5.64839, -5.65285, -5.64959,
  -5.65594, -5.65165, -5.65817, -5.66435, -5.67431, -5.67877, -5.68683, -5.69645, -5.69748, -5.70571,
  -5.70623, -5.71189, -5.71103, -5.71704, -5.71841, -5.72905, -5.74141, -5.74433, -5.75997, -5.76117,
  -5.76615, -5.76471, -5.76745, -5.76711, -5.77518, -5.77604, -5.78068, -5.7824, -5.79047, -5.78532,
  -5.78514, -5.78205, -5.77965, -5.7757, -5.7757, -5.77055, -5.76763)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -37.09572, -37.10859, -37.1116, -37.11625, -37.11913, -37.12186, -37.12761, -37.16155, -37.15785, -37.15813,
  -37.16305, -37.16743, -37.17017, -37.16852, -37.16333, -37.15963, -37.15498, -37.15361, -37.1439, -37.13911,
  -37.13336, -37.11926, -37.11078, -37.08777, -37.07942, -37.076, -37.07011, -37.06874, -37.06244, -37.06394,
  -37.06134, -37.06422, -37.06408, -37.06627, -37.07723, -37.08599, -37.09175)
LONGITUDE_VALUEs <- c(
  -12.34281, -12.34298, -12.3483, -12.34848, -12.35139, -12.34625, -12.34556, -12.31586, -12.31277, -12.30471,
  -12.29338, -12.29046, -12.28377, -12.27193, -12.26712, -12.27004, -12.26386, -12.25785, -12.25253, -12.23966,
  -12.23707, -12.21784, -12.21716, -12.22814, -12.23622, -12.24309, -12.24841, -12.25493, -12.26179, -12.27449,
  -12.28101, -12.28599, -12.31585, -12.31894, -12.31997, -12.33645, -12.33835)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -37.29304, -37.29263, -37.29468, -37.30338, -37.3056, -37.30963, -37.31103, -37.31215, -37.31273, -37.31468,
  -37.31471, -37.31587, -37.31669, -37.31762, -37.3182, -37.31721, -37.31789, -37.31632, -37.31765, -37.31697,
  -37.31898, -37.32144, -37.32352, -37.32267, -37.32086, -37.31553, -37.30973, -37.30492, -37.30495, -37.30335,
  -37.30086, -37.29628, -37.2955, -37.29191, -37.29294, -37.29109, -37.28812, -37.28676, -37.28182, -37.28235, 
  -37.28515, -37.28597, -37.28853, -37.29085)
LONGITUDE_VALUEs <- c(
  -12.69831, -12.7023, -12.70621, -12.70488, -12.70586, -12.70286, -12.70325, -12.7029, -12.70411, -12.7017,
  -12.69956, -12.69883, -12.69617, -12.69874, -12.69651, -12.69544, -12.69437, -12.69162, -12.69029, -12.68793,
  -12.68527, -12.68715, -12.68282, -12.68123, -12.68316, -12.67703, -12.66102, -12.65209, -12.64939, -12.64381,
  -12.64209, -12.64445, -12.64789, -12.65076, -12.65321, -12.66295, -12.66475, -12.67003, -12.67721, -12.68539, 
  -12.68763, -12.6896, -12.69093, -12.69599)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -37.42623, -37.42821, -37.43083, -37.43244, -37.43025, -37.4306, -37.42947, -37.42957, -37.42869, -37.42964,
  -37.42933, -37.43203, -37.43247, -37.43022, -37.42739, -37.4276, -37.42674, -37.42702, -37.42548, -37.42562,
  -37.42337, -37.42276, -37.42208, -37.42238, -37.42136, -37.4216, -37.42051, -37.4202, -37.41686, -37.4172,
  -37.41574, -37.41516, -37.41608, -37.41717, -37.41952, -37.41908, -37.41962, -37.41856, -37.419230, -37.41931,
  -37.42017, -37.41993, -37.41884, -37.41921, -37.42034, -37.4202, -37.42126, -37.4218, -37.423, -37.42347, 
  -37.42436)
LONGITUDE_VALUEs <- c(
  -12.49262, -12.49343, -12.49249, -12.49056, -12.48678, -12.48554, -12.48421, -12.48296, -12.48163, -12.48155,
  -12.48035, -12.4806, -12.47996, -12.47391, -12.47301, -12.47215, -12.47103, -12.47022, -12.47022, -12.47138,
  -12.47318, -12.47108, -12.47159, -12.47305, -12.47206, -12.47395, -12.47352, -12.47249, -12.47412, -12.47481,
  -12.4755, -12.47803, -12.47841, -12.48159, -12.48378, -12.48476, -12.48631, -12.48738, -12.48819, -12.48987, 
  -12.49086, -12.49163, -12.49163, -12.49335, -12.49266, -12.49399, -12.49343, -12.49459, -12.49412, -12.4948, 
  -12.49352)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -37.4004, -37.40132, -37.40203, -37.40248, -37.40302, -37.40278, -37.40312, -37.40377, -37.40432, -37.40428,
  -37.4035, -37.40401, -37.40398, -37.40353, -37.40271, -37.40319, -37.40234, -37.40261, -37.40217, -37.40183,
  -37.40145)
LONGITUDE_VALUEs <- c(
  -12.49142, -12.49309, -12.4918, -12.49197, -12.49125, -12.49086, -12.48957, -12.48901, -12.48931, -12.48738,
  -12.48653, -12.48593, -12.48502, -12.48447, -12.48571, -12.48635, -12.48674, -12.48717, -12.48777, -12.48953,
  -12.48953)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -37.41096, -37.41086599967549, -37.40957, -37.4097, -37.40892, -37.41028, -37.41134, -37.41212, -37.41257, -37.41311, 
  -37.4124, -37.4124, -37.41175)
LONGITUDE_VALUEs <- c(
  -12.47575, -12.477380145753528, -12.47751, -12.47944, -12.47987, -12.48283, -12.4821, -12.48004, -12.48017, -12.47876, 
  -12.47764, -12.47627, -12.47627)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(
  -40.2757, -40.2795, -40.2774, -40.28002, -40.27845, -40.28133, -40.28238, -40.28552, -40.28775, -40.29429,
  -40.30189, -40.30542, -40.31066, -40.31498, -40.31341, -40.31799, -40.31589, -40.31616, -40.32231, -40.32178,
  -40.32506, -40.33526, -40.34063, -40.34769, -40.34743, -40.35306, -40.3558, -40.35633, -40.35934, -40.3647,
  -40.36326, -40.36705, -40.36431, -40.36718, -40.36679, -40.37111, -40.37019, -40.36731, -40.36313, -40.35188,
  -40.34678, -40.34377, -40.33997, -40.3384, -40.33448, -40.3333, -40.32898, -40.32702, -40.31898, -40.31552,
  -40.30321, -40.30216, -40.29345, -40.28737, -40.28102, -40.27748, -40.27951)
LONGITUDE_VALUEs <- c(
  -9.95658, -9.96447, -9.97357, -9.9849, -9.99416, -9.99691, -10.00223, -10.00034, -10.00257, -10.0024,
  -10.0115, -10.0115, -10.01905, -10.01733, -10.01184, -10.00704, -10.00343, -9.99468, -9.9854, -9.98128,
  -9.96893, -9.96206, -9.96189, -9.9473, -9.94129, -9.93134, -9.93168, -9.92808, -9.92636, -9.9291,
  -9.92327, -9.92224, -9.91881, -9.90817, -9.89976, -9.89564, -9.89135, -9.89203, -9.88431, -9.88328,
  -9.8759, -9.87916, -9.87745, -9.87951, -9.87968, -9.88483, -9.8898, -9.89787, -9.89888, -9.90471,
  -9.90583, -9.91059, -9.91959, -9.9209, -9.92459, -9.9324, -9.95078)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>%
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "SAINT HELENA, ASCENSION AND TRISTAN DA CUNHA")
GeoDATA <- rbind(GeoDATA, Geo_1)

# ################################
# ##### Geometric Operations #####
# ################################
# 
# ##### COUNTRIE(s) #####
# Geo_1 <- GeoDATA %>% filter(NAME == "COUNTRY")
# 
# ##### COUNTRY #####
# 
# Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
# Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
#   mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
# if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# 
# #Replace GEOMETRIE(s)
# GeoDATA <- GeoDATA %>% filter(NAME != "COUNTRY")
# GeoDATA <- rbind(GeoDATA, Geo_1)

# ################################
# ##### Geometric Operations #####
# ################################
# 
# ##### COUNTRIE(s) #####
# Geo_1 <- GeoDATA %>% filter(NAME == "COUNTRY")
# 
# ##### COUNTRY #####
# LATITUDE_VALUEs <- c(
#   42.51013, 42.49519, 42.49279, 42.48481, 42.48342, 42.48431, 42.48228, 42.48241, 42.47519, 42.46405,
#   42.46012, 42.45392, 42.44708, 42.44176, 42.43568, 42.43618, 42.43238, 42.43327, 42.42833, 42.43124,
#   42.4334, 42.44074, 42.44518, 42.45911, 42.45835, 42.45911, 42.44986, 42.4505, 42.46202, 42.46785,
#   42.46418, 42.46582, 42.46304, 42.4681, 42.46709, 42.46937, 42.46683, 42.46899, 42.47215, 42.47418,
#   42.47924, 42.48076, 42.48431, 42.49329, 42.49532, 42.4895, 42.50165, 42.51828, 42.5198, 42.55168,
#   42.56508, 42.56558, 42.57367, 42.58278, 42.58, 42.58834, 42.58808, 42.60047, 42.61159, 42.61841,
#   42.61437, 42.61664, 42.61386, 42.62321, 42.62195, 42.62548, 42.61891, 42.63003, 42.62574, 42.63357,
#   42.63407, 42.64847, 42.64771, 42.65453, 42.65251, 42.65629, 42.64973, 42.65175, 42.64518, 42.64544,
#   42.65402, 42.6515, 42.64114, 42.63357, 42.61361, 42.60249, 42.60401, 42.59238, 42.58606, 42.57367,
#   42.57292, 42.56609, 42.55774, 42.53422, 42.54358, 42.53953, 42.53194)
# LONGITUDE_VALUEs <- c(
#   1.46829, 1.44324, 1.41681, 1.40703, 1.41097, 1.41475, 1.41646, 1.43208, 1.44118, 1.44015,
#   1.4477, 1.4405, 1.44616, 1.44256, 1.45629, 1.47482, 1.48341, 1.49782, 1.51516, 1.51962,
#   1.55274, 1.55291, 1.56064, 1.56115, 1.56338, 1.56733, 1.57745, 1.5814, 1.58623, 1.59859,
#   1.60631, 1.6233, 1.63103, 1.63515, 1.64098, 1.64613, 1.65059, 1.65866, 1.65866, 1.66261,
#   1.66037, 1.66381, 1.66158, 1.66261, 1.68682, 1.70433, 1.72681, 1.72328, 1.73084, 1.7353,
#   1.74973, 1.77079, 1.78728, 1.78213, 1.76564, 1.73988, 1.72511, 1.72751, 1.73851, 1.73473,
#   1.73129, 1.72408, 1.71378, 1.70042, 1.69252, 1.68393, 1.66229, 1.6434, 1.60115, 1.59291,
#   1.58226, 1.57405, 1.56821, 1.56237, 1.55756, 1.54897, 1.5342, 1.5263, 1.51806, 1.49848,
#   1.49436, 1.47787, 1.47753, 1.46653, 1.47759, 1.45526, 1.44358, 1.44015, 1.42503, 1.4319,
#   1.44325, 1.44565, 1.42401, 1.41165, 1.43878, 1.45286, 1.45115)
# Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
# Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
#   mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
# if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# 
# #Replace GEOMETRIE(s)
# GeoDATA <- GeoDATA %>% filter(NAME != "COUNTRY")
# GeoDATA <- rbind(GeoDATA, Geo_1)

# ################################
# ##### Geometric Operations #####
# ################################
# 
# ##### COUNTRIE(s) #####
# Geo_1 <- GeoDATA %>% filter(NAME == "COUNTRY")
# 
# ##### COUNTRY #####
# 
# Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
# Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
#   mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
# if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# 
# #Replace GEOMETRIE(s)
# GeoDATA <- GeoDATA %>% filter(NAME != "COUNTRY")
# GeoDATA <- rbind(GeoDATA, Geo_1)

# ################################
# ##### Geometric Operations #####
# ################################
# 
# ##### COUNTRIE(s) #####
# Geo_1 <- GeoDATA %>% filter(NAME == "COUNTRY")
# 
# ##### COUNTRY #####
# 
# Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
# Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
#   mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
# if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# 
# #Replace GEOMETRIE(s)
# GeoDATA <- GeoDATA %>% filter(NAME != "COUNTRY")
# GeoDATA <- rbind(GeoDATA, Geo_1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "ISLE OF MAN")

##### ISLE OF MAN #####
LATITUDE_VALUEs <- c(
  54.06247, 54.06103, 54.06063, 54.06171, 54.06161, 54.06025, 54.05912, 54.05632, 54.05544, 54.05658, 
  54.05599, 54.05954, 54.06123, 54.06055, 54.06103, 54.05975, 54.06085, 54.06083, 54.06211, 54.06453, 
  54.06466, 54.06838, 54.06899, 54.07032, 54.07045, 54.06889, 54.06765, 54.06755, 54.06812, 54.06844, 
  54.06912, 54.06997, 54.06992, 54.0704, 54.07073, 54.07269, 54.07173, 54.07229, 54.07332, 54.07433, 
  54.07501, 54.07788, 54.07894, 54.07727, 54.07788, 54.07982, 54.0809, 54.08228, 54.08425, 54.08485, 
  54.08352, 54.0846, 54.08397, 54.0844, 54.08412, 54.08447, 54.08319, 54.08173, 54.07989, 54.07836, 
  54.07956, 54.07778, 54.07773, 54.07566, 54.07544, 54.07392, 54.07335, 54.06927, 54.06871, 54.0668, 
  54.06332, 54.06184, 54.0635, 54.06652, 54.06826, 54.07178, 54.07309, 54.07551, 54.07707, 54.07687, 
  54.07327, 54.06718, 54.06458, 54.06108, 54.05831, 54.05622, 54.05488, 54.05428, 54.05504, 54.0539, 
  54.05524, 54.06164, 54.063, 54.06352, 54.06441, 54.06514, 54.06617, 54.06682, 54.0676, 54.06796, 
  54.06851, 54.06889, 54.06949, 54.07002, 54.07068, 54.07163, 54.07216, 54.07294, 54.07073, 54.07068, 
  54.07244, 54.07614, 54.07926, 54.08067, 54.08019, 54.07972, 54.07951, 54.08271, 54.08468, 54.08682, 
  54.08926, 54.08953, 54.09145, 54.09099, 54.09298, 54.09537, 54.09484, 54.09917, 54.09937, 54.10056, 
  54.10043, 54.1031, 54.10043, 54.10199, 54.10058, 54.10154, 54.10096, 54.10134, 54.10086, 54.10456, 
  54.11225, 54.11235, 54.1161, 54.11605, 54.11761, 54.11812, 54.11942, 54.12063, 54.12325, 54.1244, 
  54.12619, 54.12704, 54.12561, 54.1276, 54.12659, 54.12807, 54.12722, 54.12724, 54.12548, 54.12767, 
  54.12745, 54.13049, 54.1316, 54.13431, 54.13889, 54.14361, 54.14414, 54.14753, 54.14479, 54.14701, 
  54.14683, 54.14861, 54.15045, 54.1555, 54.16083, 54.16681, 54.16605, 54.16987, 54.16749, 54.16837, 
  54.16811, 54.1706, 54.17055, 54.17344, 54.17558, 54.17537, 54.17726, 54.17844, 54.17789, 54.18221, 
  54.18359, 54.18952, 54.19007, 54.1969, 54.19901, 54.20247, 54.20438, 54.20759, 54.20995, 54.21416, 
  54.21768, 54.21868, 54.22039, 54.22365, 54.22515, 54.22485, 54.23313, 54.23779, 54.2401, 54.24281, 
  54.24727, 54.24888, 54.25114, 54.25434, 54.26347, 54.26362, 54.27074, 54.2773, 54.28061, 54.28236, 
  54.28557, 54.29243, 54.29018, 54.29043, 54.29454, 54.29519, 54.29729, 54.2997, 54.30355, 54.30791, 
  54.30691, 54.31172, 54.30926, 54.31417, 54.32638, 54.34075, 54.35085, 54.36626, 54.37796, 54.39375, 
  54.41613, 54.41843, 54.40275, 54.40095, 54.38845, 54.37156, 54.35536, 54.33404, 54.32613, 54.3025, 
  54.30081, 54.28489, 54.26926, 54.26655, 54.25051, 54.2501, 54.24138, 54.23566, 54.2352, 54.23204, 
  54.23128, 54.22792, 54.22386, 54.22562, 54.22807, 54.22632, 54.22501, 54.2207, 54.21357, 54.21176, 
  54.2094, 54.20614, 54.20057, 54.19685, 54.19168, 54.19038, 54.18751, 54.18656, 54.1844, 54.18435, 
  54.18098, 54.18028, 54.17882, 54.17335, 54.17169, 54.17074, 54.16516, 54.1641, 54.15837, 54.15667, 
  54.15511, 54.14591, 54.14299, 54.13424, 54.13173, 54.1267, 54.1184, 54.10708, 54.10688, 54.10949, 
  54.10869, 54.10934, 54.10728, 54.10814, 54.10547, 54.10426, 54.1028, 54.10064, 54.09998, 54.09712, 
  54.09631, 54.0949, 54.09248, 54.09067, 54.09097, 54.08926, 54.08815, 54.08393, 54.08544, 54.08413, 
  54.08242, 54.0795, 54.07511, 54.07552, 54.07345, 54.07013, 54.06776, 54.06857, 54.06484, 54.06227)
LONGITUDE_VALUEs <- c(
  -4.78952, -4.78956, -4.7878, -4.78574, -4.78407, -4.78394, -4.78175, -4.78162, -4.77832, -4.77409, 
  -4.77102, -4.77154, -4.76806, -4.76261, -4.76017, -4.75935, -4.75755, -4.75536, -4.75274, -4.7536, 
  -4.75059, -4.75047, -4.74884, -4.74862, -4.74652, -4.74227, -4.74219, -4.73622, -4.73578, -4.73318, 
  -4.73489, -4.73382, -4.73176, -4.73206, -4.73425, -4.73579, -4.73682, -4.73798, -4.73738, -4.73793, 
  -4.73665, -4.73781, -4.7351, -4.73171, -4.72888, -4.72995, -4.72948, -4.73073, -4.72665, -4.71914, 
  -4.71236, -4.70862, -4.70536, -4.70359, -4.70166, -4.69886, -4.69269, -4.69088, -4.69252, -4.69076, 
  -4.68973, -4.68754, -4.68548, -4.68569, -4.68411, -4.68484, -4.68063, -4.68333, -4.68136, -4.68131, 
  -4.67647, -4.66668, -4.66222, -4.66183, -4.6632, -4.65544, -4.64973, -4.64862, -4.63934, -4.63363, 
  -4.62441, -4.62097, -4.62389, -4.62368, -4.62673, -4.6272, -4.63351, -4.63325, -4.62737, -4.62467, 
  -4.62192, -4.6166, -4.61686, -4.61458, -4.61454, -4.61338, -4.61445, -4.61243, -4.61265, -4.61149, 
  -4.61196, -4.61085, -4.61106, -4.60935, -4.60935, -4.6072, -4.60995, -4.6102, -4.61398, -4.61737, 
  -4.6205, -4.62338, -4.62188, -4.61883, -4.61561, -4.61557, -4.61402, -4.61402, -4.60548, -4.6066, 
  -4.60479, -4.60308, -4.60402, -4.60149, -4.59573, -4.59643, -4.59274, -4.58467, -4.58187, -4.58076, 
  -4.57655, -4.57785, -4.5693, -4.56209, -4.5602, -4.5575, -4.55639, -4.55382, -4.55043, -4.54334, 
  -4.54158, -4.53824, -4.53175, -4.52913, -4.53094, -4.52931, -4.52991, -4.52918, -4.53128, -4.52674, 
  -4.5248, -4.52171, -4.52077, -4.51746, -4.51347, -4.51059, -4.50956, -4.50712, -4.50188, -4.50056, 
  -4.4991, -4.49588, -4.48974, -4.4882, -4.47188, -4.46464, -4.467, -4.46391, -4.46957, -4.47657, 
  -4.47305, -4.47236, -4.47739, -4.47777, -4.47317, -4.46206, -4.44811, -4.44497, -4.43678, -4.43473, 
  -4.43292, -4.42541, -4.42365, -4.42034, -4.42206, -4.41974, -4.41666, -4.41151, -4.40979, -4.40197, 
  -4.40239, -4.39655, -4.39277, -4.38642, -4.39002, -4.39251, -4.40282, -4.40119, -4.4023, -4.40204, 
  -4.39955, -4.39732, -4.39784, -4.39371, -4.38976, -4.38564, -4.369, -4.36831, -4.36505, -4.36926, 
  -4.36634, -4.36179, -4.36351, -4.35432, -4.34599, -4.34179, -4.3417, -4.32806, -4.32669, -4.32231, 
  -4.32505, -4.32591, -4.31956, -4.31526, -4.31484, -4.30849, -4.31029, -4.30943, -4.31553, -4.34102, 
  -4.34497, -4.35167, -4.35433, -4.37116, -4.3811, -4.38453, -4.38278, -4.37574, -4.36801, -4.36183, 
  -4.36132, -4.36561, -4.43259, -4.45539, -4.48989, -4.52954, -4.54912, -4.55752, -4.56885, -4.58602, 
  -4.58588, -4.59563, -4.61125, -4.61727, -4.63906, -4.64267, -4.65641, -4.66053, -4.66392, -4.67182, 
  -4.67989, -4.68255, -4.6926, -4.69799, -4.69748, -4.70177, -4.69911, -4.70959, -4.71335, -4.71954, 
  -4.71945, -4.71541, -4.71421, -4.71945, -4.71748, -4.72073, -4.72013, -4.72177, -4.72142, -4.72348, 
  -4.72623, -4.72864, -4.72829, -4.74049, -4.73928, -4.74177, -4.74117, -4.7428, -4.73413, -4.73396, 
  -4.73121, -4.73456, -4.73018, -4.73336, -4.73739, -4.73687, -4.74743, -4.75103, -4.75309, -4.75473, 
  -4.75902, -4.76082, -4.7634, -4.76606, -4.76889, -4.76838, -4.77216, -4.77224, -4.77516, -4.77602, 
  -4.77937, -4.77851, -4.77988, -4.77559, -4.76236, -4.76279, -4.75953, -4.7615, -4.76812, -4.77181, 
  -4.7718, -4.77627, -4.77893, -4.78245, -4.78795, -4.78803, -4.79069, -4.79189, -4.79472, -4.79369)
Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
LATITUDE_VALUEs <- c(
  54.05392, 54.04636, 54.04439, 54.04491, 54.04728, 54.04514, 54.04688, 54.04471, 54.04423, 54.0438, 
  54.04297, 54.04312, 54.04406, 54.04496, 54.0461, 54.046, 54.05081, 54.05136, 54.05265, 54.05335, 
  54.05565, 54.0568, 54.0592, 54.0601, 54.06031, 54.06179, 54.06106, 54.06169, 54.06078, 54.05887, 
  54.0601, 54.05864, 54.0589, 54.05849, 54.0589, 54.05834, 54.05804, 54.05691, 54.05635)
LONGITUDE_VALUEs <- c(
  -4.83132, -4.82454, -4.82548, -4.82201, -4.81974, -4.81858, -4.81669, -4.81407, -4.81472, -4.81386, 
  -4.8142, -4.81227, -4.81317, -4.81154, -4.81279, -4.81141, -4.80609, -4.80412, -4.80339, -4.80103, 
  -4.80077, -4.79952, -4.80038, -4.80004, -4.80266, -4.803, -4.80527, -4.80665, -4.81081, -4.81343, 
  -4.81536, -4.819, -4.82059, -4.8212, -4.82244, -4.82274, -4.8245, -4.82566, -4.82755)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(54.07369, 54.07286, 54.07379, 54.07397, 54.0745, 54.07525, 54.07571, 54.07478)
LONGITUDE_VALUEs <- c(-4.60916, -4.60512, -4.60542, -4.60375, -4.60461, -4.60388, -4.60495, -4.6077)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
LATITUDE_VALUEs <- c(54.07218, 54.07085, 54.07148, 54.0708, 54.07261, 54.07337, 54.07258)
LONGITUDE_VALUEs <- c(-4.71323, -4.71374, -4.71211, -4.71125, -4.70876, -4.71009, -4.7113)
Geo <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
Geo_0 <- st_union(Geo_0, Geo)
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>%
  mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
GeoDATA <- GeoDATA %>% filter(NAME != "ISLE OF MAN")
GeoDATA <- rbind(GeoDATA, Geo_1)

# ################################
# ##### Geometric Operations #####
# ################################
# 
# ##### COUNTRIE(s) #####
# Geo_1 <- GeoDATA %>% filter(NAME == "COUNTRY")
# 
# ##### COUNTRY #####
# 
# Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
# Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
#   mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
# if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# 
# #Replace GEOMETRIE(s)
# GeoDATA <- GeoDATA %>% filter(NAME != "COUNTRY")
# GeoDATA <- rbind(GeoDATA, Geo_1)

# ################################
# ##### Geometric Operations #####
# ################################
# 
# ##### COUNTRIE(s) #####
# Geo_1 <- GeoDATA %>% filter(NAME == "COUNTRY")
# 
# ##### COUNTRY #####
# 
# Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
# Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
#   mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
# if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# 
# #Replace GEOMETRIE(s)
# GeoDATA <- GeoDATA %>% filter(NAME != "COUNTRY")
# GeoDATA <- rbind(GeoDATA, Geo_1)

# ################################
# ##### Geometric Operations #####
# ################################
# 
# ##### COUNTRIE(s) #####
# Geo_1 <- GeoDATA %>% filter(NAME == "COUNTRY")
# 
# ##### COUNTRY #####
# 
# Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
# Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
#   mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
# if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# 
# #Replace GEOMETRIE(s)
# GeoDATA <- GeoDATA %>% filter(NAME != "COUNTRY")
# GeoDATA <- rbind(GeoDATA, Geo_1)

# ################################
# ##### Geometric Operations #####
# ################################
# 
# ##### COUNTRIE(s) #####
# Geo_1 <- GeoDATA %>% filter(NAME == "COUNTRY")
# 
# ##### COUNTRY #####
# 
# Geo_0 <- POLYGON(LATITUDE_VALUEs, LONGITUDE_VALUEs, EPSG_4326)
# Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>% 
#   mutate(SOURCE = "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques")
# if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# 
# #Replace GEOMETRIE(s)
# GeoDATA <- GeoDATA %>% filter(NAME != "COUNTRY")
# GeoDATA <- rbind(GeoDATA, Geo_1)
#DATA MANIPULATIONs on GeoDATA
GeoDATA <- GeoDATA %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => AREA
    AREA = round(as.numeric(gsub("\\[m\\^2\\]", "", st_area(geometry) / 1e6)), 5),
    #New Variable => BBOX_AREA
    BBOX_AREA = round(
      as.numeric(gsub("\\[m\\^2\\]", "", st_area(st_as_sfc(st_bbox(geometry))) / 1e6)), 5)) %>% ungroup()

#DATA MANIPULATIONs on GeoDATA
GeoDATA <- GeoDATA %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => Centroid_X | Centroid_Y
    Centroid_X = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 1],
    Centroid_Y = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 2],
    #New Variable(s) => Centroid_of_LARGEST_POLYGON_X, Centroid_of_LARGEST_POLYGON_Y
    Centroid_of_LARGEST_POLYGON_X = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 1],
    Centroid_of_LARGEST_POLYGON_Y = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 2])

#DATA MANIPULATIONs on GeoDATA
GeoDATA <- GeoDATA %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => BBOX_Centroid_X | BBOX_Centroid_Y
    BBOX_Centroid_X = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 1],
    BBOX_Centroid_Y = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 2]) %>% ungroup()

Now in Our World Administrative Boundaries (GeoDATA):

  • Size in R: 11MB
  • Areas: 275 Countries/Territories (275 NAME)
  • 250/249 ISO2 | ISO3 from International Organization for Standardization (ISO) (CLIPPERTON ISLAND)
  • 249/249 Numeric Code (M49_CODE) from International Organization for Standardization (ISO)
  • 105/275 Geometries (SOURCE) from World Health Organization (WHO) - Countries
  • 102/275 Geometries (SOURCE) from Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques
  • 059/275 Geometries (SOURCE) from WHO - Countries and Fondation Jean-Jacques Laffont - TSE
  • 002/275 Geometries (SOURCE) from Global Administrative Areas (GADM)
  • 003/275 Geometries (SOURCE) from Fondation Jean-Jacques Laffont - TSE and Global Administrative Areas (GADM)
  • 004/275 Geometries (SOURCE) from WHO - Countries and Fondation - TSE and Global Administrative Areas (GADM)

8 GeoDATA Versions

We save our world administrative boundaries called GeoDATA (Areas: 275 Countries/Territories | Size in R: 11MB).

################################
##### Save GeoDATA File(s) #####
################################

##### GeoDATA #####
# st_write( #Save GeoDATA as a GeoJSON File
#   GeoDATA, "UI_and_SERVER/CLIMINET/Données/Geo/COUNTRIEs/GeoDATA.geojson", driver = "GeoJSON")
# DATA <- GeoDATA %>% st_drop_geometry() #Remove GEOMETRY Column
# write.xlsx(DATA, "UI_and_SERVER/CLIMINET/Données/Geo/COUNTRIEs/DATA.xlsx") #Save XLSX File

We make a version for our work on Climate Change and Migration Network (CCMN) called CCMN_GeoDATA.

We combine certain territories with their sovereign country:

  • AKSAI CHIN and TRANS-KARAKORAM TRACT will be included in CHINA
  • AZAD KASHMIR and GILGIT-BALTISTAN will be included in PAKISTAN
  • BAIKONUR COSMODROME will be included in KAZAKHSTAN
  • CRIMEA | DONETSK OBLAST | LUHANSK OBLAST will be included in UKRAINE
  • GUANTANAMO BAY NAVAL BASE will be included in CUBA
  • JAMMU AND KASHMIR and LADAKH will be included in INDIA
  • KOSOVO will be included in SERBIA
################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- GeoDATA %>% filter(NAME == "CHINA")
Geo_2 <- GeoDATA %>% filter(NAME == "AKSAI CHIN")
Geo_3 <- GeoDATA %>% filter(NAME == "TRANS-KARAKORAM TRACT")

##### CHINA #####
Geo_0 <- st_union(Geo_1, st_geometry(Geo_2))
if (st_is_valid(Geo_0) == FALSE) {Geo_0 <- st_make_valid(Geo_0)}
Geo_0 <- st_union(Geo_0, st_geometry(Geo_3))
if (st_is_valid(Geo_0) == FALSE) {Geo_0 <- st_make_valid(Geo_0)}
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)  (GeoDATA To CCMN_GeoDATA)
CCMN_GeoDATA <- GeoDATA %>% filter(!NAME %in% c("CHINA", "AKSAI CHIN", "TRANS-KARAKORAM TRACT"))
CCMN_GeoDATA <- rbind(CCMN_GeoDATA, Geo_1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- CCMN_GeoDATA %>% filter(NAME == "PAKISTAN")
Geo_2 <- CCMN_GeoDATA %>% filter(NAME == "AZAD KASHMIR")
Geo_3 <- CCMN_GeoDATA %>% filter(NAME == "GILGIT-BALTISTAN")

##### PAKISTAN #####
Geo_0 <- st_union(Geo_1, st_geometry(Geo_2))
if (st_is_valid(Geo_0) == FALSE) {Geo_0 <- st_make_valid(Geo_0)}
Geo_0 <- st_union(Geo_0, st_geometry(Geo_3))
if (st_is_valid(Geo_0) == FALSE) {Geo_0 <- st_make_valid(Geo_0)}
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
CCMN_GeoDATA <- CCMN_GeoDATA %>% filter(!NAME %in% c("PAKISTAN", "AZAD KASHMIR", "GILGIT-BALTISTAN"))
CCMN_GeoDATA <- rbind(CCMN_GeoDATA, Geo_1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- CCMN_GeoDATA %>% filter(NAME == "KAZAKHSTAN")
Geo_2 <- CCMN_GeoDATA %>% filter(NAME == "BAIKONUR COSMODROME")

##### KAZAKHSTAN #####
Geo_0 <- st_union(Geo_1, st_geometry(Geo_2))
if (st_is_valid(Geo_0) == FALSE) {Geo_0 <- st_make_valid(Geo_0)}
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
CCMN_GeoDATA <- CCMN_GeoDATA %>% filter(!NAME %in% c("KAZAKHSTAN", "BAIKONUR COSMODROME"))
CCMN_GeoDATA <- rbind(CCMN_GeoDATA, Geo_1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- CCMN_GeoDATA %>% filter(NAME == "UKRAINE")
Geo_2 <- CCMN_GeoDATA %>% filter(NAME == "CRIMEA")
Geo_3 <- CCMN_GeoDATA %>% filter(NAME == "DONETSK OBLAST")
Geo_4 <- CCMN_GeoDATA %>% filter(NAME == "LUHANSK OBLAST")

##### UKRAINE #####
Geo_0 <- st_union(Geo_1, st_geometry(Geo_2))
if (st_is_valid(Geo_0) == FALSE) {Geo_0 <- st_make_valid(Geo_0)}
Geo_0 <- st_union(Geo_0, st_geometry(Geo_3))
if (st_is_valid(Geo_0) == FALSE) {Geo_0 <- st_make_valid(Geo_0)}
Geo_0 <- st_union(Geo_0, st_geometry(Geo_4))
if (st_is_valid(Geo_0) == FALSE) {Geo_0 <- st_make_valid(Geo_0)}
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
CCMN_GeoDATA <- CCMN_GeoDATA %>% 
  filter(!NAME %in% c("UKRAINE", "CRIMEA", "DONETSK OBLAST", "LUHANSK OBLAST"))
CCMN_GeoDATA <- rbind(CCMN_GeoDATA, Geo_1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- CCMN_GeoDATA %>% filter(NAME == "CUBA")
Geo_2 <- CCMN_GeoDATA %>% filter(NAME == "GUANTANAMO BAY NAVAL BASE")

##### CUBA #####
Geo_0 <- st_union(Geo_1, st_geometry(Geo_2))
if (st_is_valid(Geo_0) == FALSE) {Geo_0 <- st_make_valid(Geo_0)}
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
CCMN_GeoDATA <- CCMN_GeoDATA %>% filter(!NAME %in% c("CUBA", "GUANTANAMO BAY NAVAL BASE"))
CCMN_GeoDATA <- rbind(CCMN_GeoDATA, Geo_1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- CCMN_GeoDATA %>% filter(NAME == "INDIA")
Geo_2 <- CCMN_GeoDATA %>% filter(NAME == "JAMMU AND KASHMIR")
Geo_3 <- CCMN_GeoDATA %>% filter(NAME == "LADAKH")

##### INDIA #####
Geo_0 <- st_union(Geo_1, st_geometry(Geo_2))
if (st_is_valid(Geo_0) == FALSE) {Geo_0 <- st_make_valid(Geo_0)}
Geo_0 <- st_union(Geo_0, st_geometry(Geo_3))
if (st_is_valid(Geo_0) == FALSE) {Geo_0 <- st_make_valid(Geo_0)}
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
CCMN_GeoDATA <- CCMN_GeoDATA %>% filter(!NAME %in% c("INDIA", "JAMMU AND KASHMIR", "LADAKH"))
CCMN_GeoDATA <- rbind(CCMN_GeoDATA, Geo_1)

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- CCMN_GeoDATA %>% filter(NAME == "SERBIA")
Geo_2 <- CCMN_GeoDATA %>% filter(NAME == "KOSOVO")

##### SERBIA #####
Geo_0 <- st_union(Geo_1, st_geometry(Geo_2))
if (st_is_valid(Geo_0) == FALSE) {Geo_0 <- st_make_valid(Geo_0)}
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
CCMN_GeoDATA <- CCMN_GeoDATA %>% filter(!NAME %in% c("SERBIA", "KOSOVO"))
CCMN_GeoDATA <- rbind(CCMN_GeoDATA, Geo_1)

We combine JERSEY and GUERNSEY to form CHANNEL ISLANDS.

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- CCMN_GeoDATA %>% filter(NAME == "JERSEY")
Geo_2 <- CCMN_GeoDATA %>% filter(NAME == "GUERNSEY")

##### CHANNEL ISLANDS #####
Geo_0 <- st_union(Geo_1, st_geometry(Geo_2))
if (st_is_valid(Geo_0) == FALSE) {Geo_0 <- st_make_valid(Geo_0)}
Geo_1 <- st_set_geometry(Geo_1, st_geometry(Geo_0)) %>%
  mutate(
    NAME = "CHANNEL ISLANDS", VISUALIZATION_NAME = "Channel Islands", 
    ISO2 = NA, ISO3 = "CHA", M49_CODE = "830", COUNTRY = "Channel Islands", 
    Label = paste0("<b>Name: </b>", NAME, "<br>",
                   "<b>Alpha-2 Code (ISO2): </b>", ISO2, "<br>",
                   "<b>Alpha-3 Code (ISO3): </b>", ISO3, "<br>",
                   "<b>Numeric Code (M49 Code): </b>", M49_CODE))
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}

#Replace GEOMETRIE(s)
CCMN_GeoDATA <- CCMN_GeoDATA %>% filter(!NAME %in% c("JERSEY", "GUERNSEY"))
CCMN_GeoDATA <- rbind(CCMN_GeoDATA, Geo_1)
#DATA MANIPULATIONs on CCMN_GeoDATA
CCMN_GeoDATA <- CCMN_GeoDATA %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => AREA
    AREA = round(as.numeric(gsub("\\[m\\^2\\]", "", st_area(geometry) / 1e6)), 5),
    #New Variable => BBOX_AREA
    BBOX_AREA = round(
      as.numeric(gsub("\\[m\\^2\\]", "", st_area(st_as_sfc(st_bbox(geometry))) / 1e6)), 5)) %>% ungroup()

#DATA MANIPULATIONs on CCMN_GeoDATA
CCMN_GeoDATA <- CCMN_GeoDATA %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => Centroid_X | Centroid_Y
    Centroid_X = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 1],
    Centroid_Y = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 2],
    #New Variable(s) => Centroid_of_LARGEST_POLYGON_X, Centroid_of_LARGEST_POLYGON_Y
    Centroid_of_LARGEST_POLYGON_X = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 1],
    Centroid_of_LARGEST_POLYGON_Y = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 2])

#DATA MANIPULATIONs on CCMN_GeoDATA
CCMN_GeoDATA <- CCMN_GeoDATA %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => BBOX_Centroid_X | BBOX_Centroid_Y
    BBOX_Centroid_X = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 1],
    BBOX_Centroid_Y = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 2]) %>% ungroup()
################################
##### Save GeoDATA File(s) #####
################################

##### CCMN_GeoDATA #####
# st_write( #Save CCMN_GeoDATA as a GeoJSON File
#   CCMN_GeoDATA, "UI_and_SERVER/CLIMINET/Données/Geo/COUNTRIEs/CCMN_GeoDATA.geojson", driver = "GeoJSON")
# CCMN_DATA <- CCMN_GeoDATA %>% st_drop_geometry() #Remove GEOMETRY Column
# write.xlsx(CCMN_DATA, "UI_and_SERVER/CLIMINET/Données/Geo/COUNTRIEs/CCMN_DATA.xlsx") #Save XLSX File

We also make versions without ANTARCTICA.

#DATA MANIPULATIONs on GeoDATA
GeoDATA_without_Antarctica <- GeoDATA %>% filter(NAME != "ANTARCTICA")

#DATA MANIPULATIONs on CCMN_GeoDATA
CCMN_GeoDATA_without_Antarctica <- CCMN_GeoDATA %>% filter(NAME != "ANTARCTICA")

################################
##### Save GeoDATA File(s) #####
################################

##### GeoDATA_without_Antarctica #####
# st_write( #Save GeoDATA_without_Antarctica as a GeoJSON File
#   GeoDATA_without_Antarctica, 
#   "UI_and_SERVER/CLIMINET/Données/Geo/COUNTRIEs/GeoDATA_without_Antarctica.geojson", driver = "GeoJSON")
# DATA_without_Antarctica <- GeoDATA_without_Antarctica %>% st_drop_geometry() #Remove GEOMETRY Column
# write.xlsx(
#   DATA_without_Antarctica, "UI_and_SERVER/CLIMINET/Données/Geo/COUNTRIEs/DATA_without_Antarctica.xlsx") #Save XLSX File

##### CCMN_GeoDATA_without_Antarctica #####
# st_write( #Save CCMN_GeoDATA_without_Antarctica as a GeoJSON File
#   CCMN_GeoDATA_without_Antarctica, 
#   "UI_and_SERVER/CLIMINET/Données/Geo/COUNTRIEs/CCMN_GeoDATA_without_Antarctica.geojson", driver = "GeoJSON")
# CCMN_DATA_without_Antarctica <- CCMN_GeoDATA_without_Antarctica %>% st_drop_geometry() #Remove GEOMETRY Column
# write.xlsx(
#   CCMN_DATA_without_Antarctica, "UI_and_SERVER/CLIMINET/Données/Geo/COUNTRIEs/CCMN_DATA_without_Antarctica.xlsx") #Save XLSX File

We also make versions in World Winkel-Tripel (Winkel III) - (1921) [ESRI:54042].

########################################################
##### COORDINATE REFERENCE SYSTEM (CRS) CONVERSION #####
########################################################

##### GeoDATA #####
GeoDATA_WinkelTripel <- st_transform(GeoDATA, crs = ESRI_54042)

#DATA MANIPULATIONs on GeoDATA_WinkelTripel
GeoDATA_WinkelTripel <- GeoDATA_WinkelTripel %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => AREA
    AREA = round(as.numeric(gsub("\\[m\\^2\\]", "", st_area(geometry) / 1e6)), 5),
    #New Variable => BBOX_AREA
    BBOX_AREA = round(
      as.numeric(gsub("\\[m\\^2\\]", "", st_area(st_as_sfc(st_bbox(geometry))) / 1e6)), 5)) %>% ungroup()

#DATA MANIPULATIONs on GeoDATA_WinkelTripel
GeoDATA_WinkelTripel <- GeoDATA_WinkelTripel %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => Centroid_X | Centroid_Y
    Centroid_X = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 1],
    Centroid_Y = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 2],
    #New Variable(s) => Centroid_of_LARGEST_POLYGON_X, Centroid_of_LARGEST_POLYGON_Y
    Centroid_of_LARGEST_POLYGON_X = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 1],
    Centroid_of_LARGEST_POLYGON_Y = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 2])

#DATA MANIPULATIONs on GeoDATA_WinkelTripel
GeoDATA_WinkelTripel <- GeoDATA_WinkelTripel %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => BBOX_Centroid_X | BBOX_Centroid_Y
    BBOX_Centroid_X = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 1],
    BBOX_Centroid_Y = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 2]) %>% ungroup()

##### CCMN_GeoDATA #####
CCMN_GeoDATA_WinkelTripel <- st_transform(CCMN_GeoDATA, crs = ESRI_54042)

#DATA MANIPULATIONs on CCMN_GeoDATA_WinkelTripel
CCMN_GeoDATA_WinkelTripel <- CCMN_GeoDATA_WinkelTripel %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => AREA
    AREA = round(as.numeric(gsub("\\[m\\^2\\]", "", st_area(geometry) / 1e6)), 5),
    #New Variable => BBOX_AREA
    BBOX_AREA = round(
      as.numeric(gsub("\\[m\\^2\\]", "", st_area(st_as_sfc(st_bbox(geometry))) / 1e6)), 5)) %>% ungroup()

#DATA MANIPULATIONs on CCMN_GeoDATA_WinkelTripel
CCMN_GeoDATA_WinkelTripel <- CCMN_GeoDATA_WinkelTripel %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => Centroid_X | Centroid_Y
    Centroid_X = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 1],
    Centroid_Y = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 2],
    #New Variable(s) => Centroid_of_LARGEST_POLYGON_X, Centroid_of_LARGEST_POLYGON_Y
    Centroid_of_LARGEST_POLYGON_X = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 1],
    Centroid_of_LARGEST_POLYGON_Y = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 2])

#DATA MANIPULATIONs on CCMN_GeoDATA_WinkelTripel
CCMN_GeoDATA_WinkelTripel <- CCMN_GeoDATA_WinkelTripel %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => BBOX_Centroid_X | BBOX_Centroid_Y
    BBOX_Centroid_X = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 1],
    BBOX_Centroid_Y = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 2]) %>% ungroup()

##### GeoDATA_without_Antarctica #####
GeoDATA_without_Antarctica_WinkelTripel <- st_transform(GeoDATA_without_Antarctica, crs = ESRI_54042)

#DATA MANIPULATIONs on GeoDATA_without_Antarctica_WinkelTripel
GeoDATA_without_Antarctica_WinkelTripel <- GeoDATA_without_Antarctica_WinkelTripel %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => AREA
    AREA = round(as.numeric(gsub("\\[m\\^2\\]", "", st_area(geometry) / 1e6)), 5),
    #New Variable => BBOX_AREA
    BBOX_AREA = round(
      as.numeric(gsub("\\[m\\^2\\]", "", st_area(st_as_sfc(st_bbox(geometry))) / 1e6)), 5)) %>% ungroup()

#DATA MANIPULATIONs on GeoDATA_without_Antarctica_WinkelTripel
GeoDATA_without_Antarctica_WinkelTripel <- GeoDATA_without_Antarctica_WinkelTripel %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => Centroid_X | Centroid_Y
    Centroid_X = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 1],
    Centroid_Y = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 2],
    #New Variable(s) => Centroid_of_LARGEST_POLYGON_X, Centroid_of_LARGEST_POLYGON_Y
    Centroid_of_LARGEST_POLYGON_X = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 1],
    Centroid_of_LARGEST_POLYGON_Y = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 2])

#DATA MANIPULATIONs on GeoDATA_without_Antarctica_WinkelTripel
GeoDATA_without_Antarctica_WinkelTripel <- GeoDATA_without_Antarctica_WinkelTripel %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => BBOX_Centroid_X | BBOX_Centroid_Y
    BBOX_Centroid_X = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 1],
    BBOX_Centroid_Y = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 2]) %>% ungroup()

##### CCMN_GeoDATA_without_Antarctica #####
CCMN_GeoDATA_without_Antarctica_WinkelTripel <- st_transform(CCMN_GeoDATA_without_Antarctica, crs = ESRI_54042)

#DATA MANIPULATIONs on CCMN_GeoDATA_without_Antarctica_WinkelTripel
CCMN_GeoDATA_without_Antarctica_WinkelTripel <- CCMN_GeoDATA_without_Antarctica_WinkelTripel %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => AREA
    AREA = round(as.numeric(gsub("\\[m\\^2\\]", "", st_area(geometry) / 1e6)), 5),
    #New Variable => BBOX_AREA
    BBOX_AREA = round(
      as.numeric(gsub("\\[m\\^2\\]", "", st_area(st_as_sfc(st_bbox(geometry))) / 1e6)), 5)) %>% ungroup()

#DATA MANIPULATIONs on CCMN_GeoDATA_without_Antarctica_WinkelTripel
CCMN_GeoDATA_without_Antarctica_WinkelTripel <- CCMN_GeoDATA_without_Antarctica_WinkelTripel %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => Centroid_X | Centroid_Y
    Centroid_X = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 1],
    Centroid_Y = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 2],
    #New Variable(s) => Centroid_of_LARGEST_POLYGON_X, Centroid_of_LARGEST_POLYGON_Y
    Centroid_of_LARGEST_POLYGON_X = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 1],
    Centroid_of_LARGEST_POLYGON_Y = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 2])

#DATA MANIPULATIONs on CCMN_GeoDATA_without_Antarctica_WinkelTripel
CCMN_GeoDATA_without_Antarctica_WinkelTripel <- CCMN_GeoDATA_without_Antarctica_WinkelTripel %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => BBOX_Centroid_X | BBOX_Centroid_Y
    BBOX_Centroid_X = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 1],
    BBOX_Centroid_Y = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 2]) %>% ungroup()

################################
##### Save GeoDATA File(s) #####
################################

##### GeoDATA_WinkelTripel #####
# st_write( #Save GeoDATA_WinkelTripel as a GeoJSON File
#   GeoDATA_WinkelTripel,
#   "UI_and_SERVER/CLIMINET/Données/Geo/COUNTRIEs/World_Winkel_Tripel/GeoDATA_WinkelTripel.geojson", driver = "GeoJSON")
# DATA_WinkelTripel <- GeoDATA_WinkelTripel %>% st_drop_geometry() #Remove GEOMETRY Column
# write.xlsx(
#   DATA_WinkelTripel, "UI_and_SERVER/CLIMINET/Données/Geo/COUNTRIEs/World_Winkel_Tripel/DATA_WinkelTripel.xlsx") #Save XLSX File

##### CCMN_GeoDATA_WinkelTripel #####
# st_write( #Save CCMN_GeoDATA_WinkelTripel as a GeoJSON File
#   CCMN_GeoDATA_WinkelTripel,
#   "UI_and_SERVER/CLIMINET/Données/Geo/COUNTRIEs/World_Winkel_Tripel/CCMN_GeoDATA_WinkelTripel.geojson", driver = "GeoJSON")
# CCMN_DATA_WinkelTripel <- CCMN_GeoDATA_WinkelTripel %>% st_drop_geometry() #Remove GEOMETRY Column
# write.xlsx(
#   CCMN_DATA_WinkelTripel, "UI_and_SERVER/CLIMINET/Données/Geo/COUNTRIEs/World_Winkel_Tripel/CCMN_DATA_WinkelTripel.xlsx") #Save XLSX File

##### GeoDATA_without_Antarctica_WinkelTripel #####
# st_write( #Save GeoDATA_without_Antarctica_WinkelTripel as a GeoJSON File
#   GeoDATA_without_Antarctica_WinkelTripel,
#   "UI_and_SERVER/CLIMINET/Données/Geo/COUNTRIEs/World_Winkel_Tripel/GeoDATA_without_Antarctica_WinkelTripel.geojson", driver = "GeoJSON")
# DATA_without_Antarctica_WinkelTripel <- GeoDATA_without_Antarctica_WinkelTripel %>% st_drop_geometry() #Remove GEOMETRY Column
# write.xlsx(
#   DATA_without_Antarctica_WinkelTripel,
#   "UI_and_SERVER/CLIMINET/Données/Geo/COUNTRIEs/World_Winkel_Tripel/DATA_without_Antarctica_WinkelTripel.xlsx") #Save XLSX File

##### CCMN_GeoDATA_without_Antarctica_WinkelTripel #####
# st_write( #Save CCMN_GeoDATA_without_Antarctica_WinkelTripel as a GeoJSON File
#   CCMN_GeoDATA_without_Antarctica_WinkelTripel,
#   "UI_and_SERVER/CLIMINET/Données/Geo/COUNTRIEs/World_Winkel_Tripel/CCMN_GeoDATA_without_Antarctica_WinkelTripel.geojson", 
#   driver = "GeoJSON")
# CCMN_DATA_without_Antarctica_WinkelTripel <- CCMN_GeoDATA_without_Antarctica_WinkelTripel %>% st_drop_geometry() #Remove GEOMETRY Column
# write.xlsx(
#   CCMN_DATA_without_Antarctica_WinkelTripel, 
#   "UI_and_SERVER/CLIMINET/Données/Geo/COUNTRIEs/World_Winkel_Tripel/CCMN_DATA_without_Antarctica_WinkelTripel.xlsx") #Save XLSX File

8 World Administrative Boundaries Files:

  • GeoDATA | GeoDATA_WinkelTripel:
    • Areas: 275 Countries/Territories | Size in R: 11MB
  • GeoDATA_without_Antarctica | GeoDATA_without_Antarctica_WinkelTripel:
    • Areas: 274 Countries/Territories | Size in R: 10.75MB
  • CCMN_GeoDATA | CCMN_GeoDATA_WinkelTripel:
    • Areas: 262 Countries/Territories | Size in R: 11MB
  • CCMN_GeoDATA_without_Antarctica | CCMN_GeoDATA_without_Antarctica_WinkelTripel:
    • Areas: 261 Countries/Territories | Size in R: 10.75MB

World Winkel-Tripel (Winkel III) - (1921) is not supported in Leaflet. We make versions in World Robinson (1963) [ESRI:54030].

########################################################
##### COORDINATE REFERENCE SYSTEM (CRS) CONVERSION #####
########################################################

##### COORDINATE REFERENCE SYSTEM (CRS) #####

#WORLD ROBINSON (1963) [PROJ4]
ESRI_54030 <- "+proj=robin +lon_0=0 +x_0=0 +y_0=0 +datum=WGS84 +units=m +no_defs +type=crs"

##### GeoDATA #####
GeoDATA_Robinson <- st_transform(GeoDATA, crs = ESRI_54030)

#DATA MANIPULATIONs on GeoDATA_Robinson
GeoDATA_Robinson <- GeoDATA_Robinson %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => AREA
    AREA = round(as.numeric(gsub("\\[m\\^2\\]", "", st_area(geometry) / 1e6)), 5),
    #New Variable => BBOX_AREA
    BBOX_AREA = round(
      as.numeric(gsub("\\[m\\^2\\]", "", st_area(st_as_sfc(st_bbox(geometry))) / 1e6)), 5)) %>% ungroup()

#DATA MANIPULATIONs on GeoDATA_Robinson
GeoDATA_Robinson <- GeoDATA_Robinson %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => Centroid_X | Centroid_Y
    Centroid_X = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 1],
    Centroid_Y = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 2],
    #New Variable(s) => Centroid_of_LARGEST_POLYGON_X, Centroid_of_LARGEST_POLYGON_Y
    Centroid_of_LARGEST_POLYGON_X = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 1],
    Centroid_of_LARGEST_POLYGON_Y = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 2])

#DATA MANIPULATIONs on GeoDATA_Robinson
GeoDATA_Robinson <- GeoDATA_Robinson %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => BBOX_Centroid_X | BBOX_Centroid_Y
    BBOX_Centroid_X = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 1],
    BBOX_Centroid_Y = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 2]) %>% ungroup()

################################
##### Save GeoDATA File(s) #####
################################

##### GeoDATA_Robinson #####
# st_write( #Save GeoDATA_Robinson as a GeoJSON File
#   GeoDATA_Robinson,
#   "UI_and_SERVER/CLIMINET/Données/Geo/COUNTRIEs/World_Robinson/GeoDATA_Robinson.geojson", driver = "GeoJSON")
# DATA_Robinson <- GeoDATA_Robinson %>% st_drop_geometry() #Remove GEOMETRY Column
# write.xlsx(
#   DATA_Robinson, "UI_and_SERVER/CLIMINET/Données/Geo/COUNTRIEs/World_Robinson/DATA_Robinson.xlsx") #Save XLSX File

9 GeoRDATA Versions

We combine countries/territories into areas for our application:

  • 6 Continental Regions
  • 22 Continental Sub-Regions and Intermediate Regions
  • 8 Geographic Regions
  • 3 Development Level Classifications:
    • More Developed Countries | Less Developed Countries
    • More Developed Countries | Less Developed Countries* | Least Developed Countries
    • LDC* | LLDC* | SIDS* | LDC/LLDC | LDC/SIDS
  • 4 Income Levels

We attribute a color code (CLRCode) to all regions:

  • Continental Sub-Regions and Intermediate Regions colors derived from Continental Regions colors
  • Geographic Regions colors come from United Nations Statistic Division (UNSD)
  • Developement Levels (LDC* | LLDC* | SIDS* | LDC/LLDC | LDC/SIDS) colors come from UNSD
  • Income Levels colors come from World Bank

We also make versions without ANTARCTICA.

We also make versions in World Winkel-Tripel (Winkel III) - (1921) [ESRI:54042].

####################
##### GeoRDATA #####
####################

##### Continental REGIONs #####
CCMN_GeoRDATA_ContinentalREGIONs <- CCMN_GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in ContinentalREGION
    ContinentalREGION = case_when(is.na(ContinentalREGION) ~ "Antarctica", TRUE ~ ContinentalREGION)) %>%
  #DATA MANIPULATIONs
  group_by(ContinentalREGION) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => CONTINENT
    CONTINENT = as.character(Mode(CONTINENT)),
    #New Variable => CONTINENT_CODE
    CONTINENT_CODE = as.character(Mode(CONTINENT_CODE)),
    #New Variable => AREA
    AREA = sum(AREA, na.rm = TRUE),
    #New Variable => GEOMETRY+
    geometry = st_combine(geometry)) %>%
  #Rename Column(s)
  rename(VISUALIZATION_NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => NAME
    NAME = toupper(VISUALIZATION_NAME),
    #New Variable => CODE
    CODE = case_when(
      NAME == "AFRICA" ~ 903, 
      NAME == "ASIA" ~ 935, 
      NAME == "EUROPE" ~ 908,
      NAME == "LATIN AMERICA AND THE CARIBBEAN" ~ 904,
      NAME == "NORTHERN AMERICA" ~ 905,
      NAME == "OCEANIA" ~ 909),
    #Replace Values in CONTINENT
    CONTINENT = case_when(is.na(CONTINENT) ~ "ANTARCTICA", TRUE ~ CONTINENT),
    #Replace Values in CONTINENT_CODE
    CONTINENT_CODE = case_when(is.na(CONTINENT_CODE) ~ "010", TRUE ~ CONTINENT_CODE),
    #New Variable => LabelR
    LabelR = paste0("<b>Continental REGION: </b>", NAME, "<br>",
                    "<b>Continent: </b>", CONTINENT, "<br>",
                    "<b>Numeric Code (M49 Code): </b>", CONTINENT_CODE),
    #New Variable => CLRCode
    CLRCode = c(
      "#339900", "#FAFAFA", "#FF9900", "#003366", "#FF0000", "#663399", "#FFCC00"),
    #New Variable => SOURCE
    SOURCE = case_when(
      NAME == "ANTARCTICA" ~ "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques",
      NAME %in% c("AFRICA", "EUROPE") ~ "World Health OrGanization (WHO) - Countries and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques",
      TRUE ~ "World Health OrGanization (WHO) - Countries and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques and Global Administrative Areas (GADM)")) %>% 
      select(6, 1, 7, 2:3, 8:9, 4, 10, 5) #Columns ORDER

#DATA MANIPULATIONs on CCMN_GeoRDATA_ContinentalREGIONs
CCMN_GeoRDATA_ContinentalREGIONs <- CCMN_GeoRDATA_ContinentalREGIONs %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => AREA
    # AREA = round(as.numeric(gsub("\\[m\\^2\\]", "", st_area(geometry) / 1e6)), 5),
    #New Variable => BBOX_AREA
    BBOX_AREA = round(
      as.numeric(gsub("\\[m\\^2\\]", "", st_area(st_as_sfc(st_bbox(geometry))) / 1e6)), 5)) %>% ungroup() %>%
  select(1:8, 11, 9:10) #Columns ORDER

#DATA MANIPULATIONs on CCMN_GeoDATA
X <- CCMN_GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in ContinentalREGION
    ContinentalREGION = case_when(is.na(ContinentalREGION) ~ "Antarctica", TRUE ~ ContinentalREGION)) %>%
  #DATA MANIPULATIONs
  group_by(ContinentalREGION) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => GEOMETRY+
    geometry = st_union(geometry)) %>%
  #Rename Column(s)
  rename(VISUALIZATION_NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => NAME
    NAME = toupper(VISUALIZATION_NAME)) %>% 
      select(3, 1, 2) #Columns ORDER
X <- X[c(1:4, 6:8), ]

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- X %>% filter(NAME == "AFRICA")
Geo_2 <- X %>% filter(NAME == "ASIA")
Geo_3 <- X %>% filter(NAME == "EUROPE")
Geo_4 <- X %>% filter(NAME == "LATIN AMERICA AND THE CARIBBEAN")

##### AFRICA #####
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# st_is_valid(Geo_1)

##### ASIA #####
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
# st_is_valid(Geo_2)

##### EUROPE #####
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
# st_is_valid(Geo_3)

##### LATIN AMERICA AND THE CARIBBEAN #####
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
# st_is_valid(Geo_4)

#Replace GEOMETRIE(s)
X <- X %>% 
  filter(!NAME %in% c("AFRICA", "ASIA", "EUROPE", "LATIN AMERICA AND THE CARIBBEAN"))
X <- rbind(X, Geo_1, Geo_2, Geo_3, Geo_4)

#DATA MANIPULATIONs on X
X <- X %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => Centroid_X | Centroid_Y
    Centroid_X = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 1],
    Centroid_Y = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 2],
    #New Variable(s) => Centroid_of_LARGEST_POLYGON_X, Centroid_of_LARGEST_POLYGON_Y
    Centroid_of_LARGEST_POLYGON_X = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 1],
    Centroid_of_LARGEST_POLYGON_Y = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 2]) %>%
  select(1:2, 4:7, 3) #Columns ORDER
X <- X %>% st_drop_geometry()

#DATA MANIPULATIONs on CCMN_GeoRDATA_ContinentalREGIONs
CCMN_GeoRDATA_ContinentalREGIONs <- left_join(
  CCMN_GeoRDATA_ContinentalREGIONs, X, by = c("NAME" = "NAME")) %>%
  #Rename Column(s)
  rename(VISUALIZATION_NAME = 2) %>%
  select(1:9, 13:16, 10:11) #Columns ORDER

#DATA MANIPULATIONs on CCMN_GeoRDATA_ContinentalREGIONs
CCMN_GeoRDATA_ContinentalREGIONs <- CCMN_GeoRDATA_ContinentalREGIONs %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => BBOX_Centroid_X | BBOX_Centroid_Y
    BBOX_Centroid_X = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 1],
    BBOX_Centroid_Y = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 2]) %>% ungroup() %>%
  select(1:13, 16:17, 14:15) #Columns ORDER

################################
##### Save GeoDATA File(s) #####
################################

##### CCMN_GeoRDATA_ContinentalREGIONs #####
# st_write( #Save CCMN_GeoRDATA_ContinentalREGIONs as a GeoJSON File
#   CCMN_GeoRDATA_ContinentalREGIONs, 
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/ContinentalREGIONs/CCMN_GeoRDATA_ContinentalREGIONs.geojson", driver = "GeoJSON")
# CCMN_RDATA_ContinentalREGIONs <- CCMN_GeoRDATA_ContinentalREGIONs %>% st_drop_geometry() #Remove GEOMETRY Column
# write.xlsx( #Save XLSX File
#   CCMN_RDATA_ContinentalREGIONs, 
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/ContinentalREGIONs/CCMN_RDATA_ContinentalREGIONs.xlsx")

#DATA MANIPULATIONs on CCMN_GeoDATA
CCMN_GeoRDATA_ContinentalREGIONs_without_Antarctica <- CCMN_GeoRDATA_ContinentalREGIONs %>% filter(NAME != "ANTARCTICA")

################################
##### Save GeoDATA File(s) #####
################################

##### CCMN_GeoRDATA_ContinentalREGIONs_without_Antarctica #####
# st_write( #Save CCMN_GeoRDATA_ContinentalREGIONs_without_Antarctica as a GeoJSON File
#   CCMN_GeoRDATA_ContinentalREGIONs_without_Antarctica,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/ContinentalREGIONs/CCMN_GeoRDATA_ContinentalREGIONs_without_Antarctica.geojson", 
#   driver = "GeoJSON")
#Remove GEOMETRY Column
# CCMN_RDATA_ContinentalREGIONs_without_Antarctica <- CCMN_GeoRDATA_ContinentalREGIONs_without_Antarctica %>% st_drop_geometry()
# write.xlsx( #Save XLSX File
#   CCMN_RDATA_ContinentalREGIONs_without_Antarctica,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/ContinentalREGIONs/CCMN_RDATA_ContinentalREGIONs_without_Antarctica.xlsx")

########################################################
##### COORDINATE REFERENCE SYSTEM (CRS) CONVERSION #####
########################################################

##### CCMN_GeoRDATA_ContinentalREGIONs #####
CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel <- st_transform(CCMN_GeoRDATA_ContinentalREGIONs, crs = ESRI_54042)

#DATA MANIPULATIONs on CCMN_GeoDATA_WinkelTripel
X <- CCMN_GeoDATA_WinkelTripel %>% 
  #Remove GEOMETRY Column
  st_drop_geometry() %>%
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in ContinentalREGION
    ContinentalREGION = case_when(is.na(ContinentalREGION) ~ "Antarctica", TRUE ~ ContinentalREGION)) %>%
  #DATA MANIPULATIONs
  group_by(ContinentalREGION) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => AREA
    AREA = sum(AREA, na.rm = TRUE)) %>%
  #Rename Column(s)
  rename(VISUALIZATION_NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => NAME
    NAME = toupper(VISUALIZATION_NAME)) %>% 
      select(3, 1, 2) #Columns ORDER

#DATA MANIPULATIONs on CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel
CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel <- left_join(
  CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel, X, by = c("NAME" = "NAME")) %>%
  #Rename Column(s)
  rename(VISUALIZATION_NAME = 2, AREA = 19) %>%
  select(1:7, 19, 9:17) #Columns ORDER

#DATA MANIPULATIONs on CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel
CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel <- CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => AREA
    # AREA = round(as.numeric(gsub("\\[m\\^2\\]", "", st_area(geometry) / 1e6)), 5),
    #New Variable => BBOX_AREA
    BBOX_AREA = round(
      as.numeric(gsub("\\[m\\^2\\]", "", st_area(st_as_sfc(st_bbox(geometry))) / 1e6)), 5)) %>% ungroup()

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- CCMN_GeoDATA_WinkelTripel %>% filter(NAME == "ANTARCTICA")
Geo_2 <- CCMN_GeoDATA_WinkelTripel %>% filter(NAME == "ARGENTINA")
Geo_3 <- CCMN_GeoDATA_WinkelTripel %>% filter(NAME == "CHILE")
Geo_4 <- CCMN_GeoDATA_WinkelTripel %>% filter(NAME == "ROMANIA")
Geo_5 <- CCMN_GeoDATA_WinkelTripel %>% filter(NAME == "SERBIA")

##### ANTARCTICA #####
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# st_is_valid(Geo_1)

##### ARGENTINA #####
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
# st_is_valid(Geo_2)

##### CHILE #####
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
# st_is_valid(Geo_3)

##### ROMANIA #####
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
# st_is_valid(Geo_4)

##### SERBIA #####
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}
# st_is_valid(Geo_5)

#Replace GEOMETRIE(s)
CCMN_GeoDATA_WinkelTripel <- CCMN_GeoDATA_WinkelTripel %>% 
  filter(!NAME %in% c("ANTARCTICA", "ARGENTINA", "CHILE", "ROMANIA", "SERBIA"))
CCMN_GeoDATA_WinkelTripel <- rbind(CCMN_GeoDATA_WinkelTripel, Geo_1, Geo_2, Geo_3, Geo_4, Geo_5)

#DATA MANIPULATIONs on CCMN_GeoDATA_WinkelTripel
X <- CCMN_GeoDATA_WinkelTripel %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in ContinentalREGION
    ContinentalREGION = case_when(is.na(ContinentalREGION) ~ "Antarctica", TRUE ~ ContinentalREGION)) %>%
  #DATA MANIPULATIONs
  group_by(ContinentalREGION) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => GEOMETRY+
    geometry = st_union(geometry)) %>%
  #Rename Column(s)
  rename(VISUALIZATION_NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => NAME
    NAME = toupper(VISUALIZATION_NAME)) %>% 
  select(3, 1, 2) #Columns ORDER

#DATA MANIPULATIONs on X
X <- X %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => Centroid_X | Centroid_Y
    Centroid_X = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 1],
    Centroid_Y = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 2],
    #New Variable(s) => Centroid_of_LARGEST_POLYGON_X, Centroid_of_LARGEST_POLYGON_Y
    Centroid_of_LARGEST_POLYGON_X = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 1],
    Centroid_of_LARGEST_POLYGON_Y = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 2]) %>%
  select(1:2, 4:7, 3) #Columns ORDER
X <- X %>% st_drop_geometry()

#DATA MANIPULATIONs on CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel
CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel <- left_join(
  CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel, X, by = c("NAME" = "NAME")) %>%
  #Rename Column(s)
  rename(
    VISUALIZATION_NAME = 2, Centroid_X = 19, Centroid_Y = 20, 
    Centroid_of_LARGEST_POLYGON_X = 21, Centroid_of_LARGEST_POLYGON_Y = 22) %>%
  select(1:9, 19:22, 14:17) #Columns ORDER

#DATA MANIPULATIONs on CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel
CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel <- CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => BBOX_Centroid_X | BBOX_Centroid_Y
    BBOX_Centroid_X = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 1],
    BBOX_Centroid_Y = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 2]) %>% ungroup()

#DATA MANIPULATIONs on CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel
CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel_without_Antarctica <- CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel %>% 
  filter(NAME != "ANTARCTICA")

################################
##### Save GeoDATA File(s) #####
################################

##### CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel #####
# st_write( #Save CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel as a GeoJSON File
#   CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/ContinentalREGIONs/World_Winkel_Tripel/CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel.geojson", 
#   driver = "GeoJSON")
#Remove GEOMETRY Column
# CCMN_RDATA_ContinentalREGIONs_WinkelTripel <- CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel %>% st_drop_geometry()
# write.xlsx( #Save XLSX File
#   CCMN_RDATA_ContinentalREGIONs_WinkelTripel,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/ContinentalREGIONs/World_Winkel_Tripel/CCMN_RDATA_ContinentalREGIONs_WinkelTripel.xlsx")

##### CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel_without_Antarctica #####
# st_write( #Save CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel_without_Antarctica as a GeoJSON File
#   CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel_without_Antarctica,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/ContinentalREGIONs/World_Winkel_Tripel/CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel_without_Antarctica.geojson", 
#   driver = "GeoJSON")
#Remove GEOMETRY Column
# CCMN_RDATA_ContinentalREGIONs_WinkelTripel_without_Antarctica <- CCMN_GeoRDATA_ContinentalREGIONs_WinkelTripel_without_Antarctica %>%
#   st_drop_geometry() #Remove GEOMETRY Column
# write.xlsx( #Save XLSX File
#   CCMN_RDATA_ContinentalREGIONs_WinkelTripel_without_Antarctica,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/ContinentalREGIONs/World_Winkel_Tripel/CCMN_RDATA_ContinentalREGIONs_WinkelTripel_without_Antarctica.xlsx")
####################
##### GeoRDATA #####
####################

##### Continental SIREGIONs #####
CCMN_GeoRDATA_ContinentalSIREGIONs <- CCMN_GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in SIREGION
    SIREGION = case_when(is.na(SIREGION) ~ "Other Countries/Territories", TRUE ~ SIREGION)) %>%
  #DATA MANIPULATIONs
  group_by(SIREGION) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => SIREGION_CODE
    SIREGION_CODE = as.character(Mode(SIREGION_CODE)),
    #New Variable => CONTINENT
    CONTINENT = as.character(Mode(CONTINENT)),
    #New Variable => CONTINENT_CODE
    CONTINENT_CODE = as.character(Mode(CONTINENT_CODE)),
    #New Variable => AREA
    AREA = sum(AREA, na.rm = TRUE),
    #New Variable => GEOMETRY+
    geometry = st_combine(geometry)) %>%
  #Rename Column(s)
  rename(NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => CODE
    CODE = case_when(
      NAME == "Australia and New Zealand" ~ 927, 
      NAME == "Caribbean" ~ 915, 
      NAME == "Central America" ~ 916,
      NAME == "Central Asia" ~ 5500,
      NAME == "Eastern Africa" ~ 910,
      NAME == "Eastern Asia" ~ 906,
      NAME == "Eastern Europe" ~ 923, 
      NAME == "Melanesia" ~ 928, 
      NAME == "Micronesia" ~ 954,
      NAME == "Middle Africa" ~ 911,
      NAME == "Northern Africa" ~ 912,
      NAME == "Northern America" ~ 905,
      NAME == "Northern Europe" ~ 923, 
      NAME == "Polynesia" ~ 957, 
      NAME == "South America" ~ 931,
      NAME == "South-Eastern Asia" ~ 920,
      NAME == "Southern Africa" ~ 913,
      NAME == "Southern Asia" ~ 5501,
      NAME == "Southern Europe" ~ 925, 
      NAME == "Western Africa" ~ 914, 
      NAME == "Western Asia" ~ 922,
      NAME == "Western Europe" ~ 926),
    #New Variable => LabelR
    LabelR = paste0("<b>Continental Sub-REGION/Intermediate REGION: </b>", NAME, "<br>",
                    "<b>Numeric Code (M49 Code): </b>", SIREGION_CODE),
    #New Variable => CLRCode => colorRampPalette(c("#CCFF33", "#336600"))(5)
    CLRCode = c(
      "#F1C40F", "#FF0000", "#B20000", "#FFCC99", "#CCFF33", "#FFB24C", "#33CCFF", 
      "#F5D74E", "#FAEB8D", "#A5D826", "#7FB219", "#663399", "#2299CC", "#999999", "#FFFFCC", 
      "#660000", "#FF9900", "#598C0C", "#F08116", "#116699", "#336600", "#E16A2D", "#003366"),
    #New Variable => SOURCE
    SOURCE = case_when(
      NAME %in% c("Central America", "Southern Africa") ~ "World Health OrGanization (WHO) - Countries",
      NAME == "Other Countries/Territories" ~ "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques",
      NAME %in% c(
        "Australia and New Zealand", "Central Asia", "Eastern Africa", "Eastern Europe", "Melanesia", 
        "Middle Africa", "Northern Africa", "Northern Europe", "South America", "Southern Asia", "Southern Europe", 
        "Western Africa", "Western Asia", "Western Europe") ~ "World Health OrGanization (WHO) - Countries and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques",
      TRUE ~ "World Health OrGanization (WHO) - Countries and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques and Global Administrative Areas (GADM)")) %>% 
      select(1:2, 7, 3:4, 8:9, 5, 10, 6) #Columns ORDER

#DATA MANIPULATIONs on CCMN_GeoRDATA_ContinentalSIREGIONs
CCMN_GeoRDATA_ContinentalSIREGIONs <- CCMN_GeoRDATA_ContinentalSIREGIONs %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => AREA
    # AREA = round(as.numeric(gsub("\\[m\\^2\\]", "", st_area(geometry) / 1e6)), 5),
    #New Variable => BBOX_AREA
    BBOX_AREA = round(
      as.numeric(gsub("\\[m\\^2\\]", "", st_area(st_as_sfc(st_bbox(geometry))) / 1e6)), 5)) %>% ungroup() %>%
  select(1:8, 11, 9:10) #Columns ORDER

#DATA MANIPULATIONs on CCMN_GeoDATA
X <- CCMN_GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in SIREGION
    SIREGION = case_when(is.na(SIREGION) ~ "Other Countries/Territories", TRUE ~ SIREGION)) %>%
  #DATA MANIPULATIONs
  group_by(SIREGION) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => GEOMETRY+
    geometry = st_union(geometry)) %>%
  #Rename Column(s)
  rename(NAME = 1)
X <- X[c(1:15, 17:24), ]

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- X %>% filter(NAME == "Eastern Africa")
Geo_2 <- X %>% filter(NAME == "Eastern Asia")
Geo_3 <- X %>% filter(NAME == "Eastern Europe")
Geo_4 <- X %>% filter(NAME == "Middle Africa")
Geo_5 <- X %>% filter(NAME == "Northern Africa")
Geo_6 <- X %>% filter(NAME == "Northern Europe")
Geo_7 <- X %>% filter(NAME == "South America")
Geo_8 <- X %>% filter(NAME == "South-Eastern Asia")
Geo_9 <- X %>% filter(NAME == "Southern Asia")
Geo_10 <- X %>% filter(NAME == "Southern Europe")
Geo_11 <- X %>% filter(NAME == "Western Asia")
Geo_12 <- X %>% filter(NAME == "Western Europe")

##### EASTERN AFRICA #####
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# st_is_valid(Geo_1)

##### EASTERN ASIA #####
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
# st_is_valid(Geo_2)

##### EASTERN EUROPE #####
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
# st_is_valid(Geo_3)

##### MIDDLE AFRICA #####
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
# st_is_valid(Geo_4)

##### NORTHERN AFRICA #####
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}
# st_is_valid(Geo_5)

##### NORTHERN EUROPE #####
if (st_is_valid(Geo_6) == FALSE) {Geo_6 <- st_make_valid(Geo_6)}
# st_is_valid(Geo_6)

##### SOUTH AMERICA #####
if (st_is_valid(Geo_7) == FALSE) {Geo_7 <- st_make_valid(Geo_7)}
# st_is_valid(Geo_7)

##### SOUTH-EASTERN ASIA #####
if (st_is_valid(Geo_8) == FALSE) {Geo_8 <- st_make_valid(Geo_8)}
# st_is_valid(Geo_8)

##### SOUTHERN ASIA #####
if (st_is_valid(Geo_9) == FALSE) {Geo_9 <- st_make_valid(Geo_9)}
# st_is_valid(Geo_9)

##### SOUTHERN EUROPE #####
if (st_is_valid(Geo_10) == FALSE) {Geo_10 <- st_make_valid(Geo_10)}
# st_is_valid(Geo_10)

##### WESTERN ASIA #####
if (st_is_valid(Geo_11) == FALSE) {Geo_11 <- st_make_valid(Geo_11)}
# st_is_valid(Geo_11)

##### WESTERN EUROPE #####
if (st_is_valid(Geo_12) == FALSE) {Geo_12 <- st_make_valid(Geo_12)}
# st_is_valid(Geo_12)

#Replace GEOMETRIE(s)
X <- X %>% 
  filter(!NAME %in% c(
    "Eastern Africa", "Eastern Asia", "Eastern Europe", "Middle Africa", "Northern Africa", "Northern Europe", 
    "South America", "South-Eastern Asia", "Southern Asia", "Southern Europe", "Western Asia", "Western Europe"))
X <- rbind(
  X, Geo_1, Geo_2, Geo_3, Geo_4, Geo_5, Geo_6, Geo_7, Geo_8, Geo_9, Geo_10, Geo_11, Geo_12)

#DATA MANIPULATIONs on X
X <- X %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => Centroid_X | Centroid_Y
    Centroid_X = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 1],
    Centroid_Y = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 2],
    #New Variable(s) => Centroid_of_LARGEST_POLYGON_X, Centroid_of_LARGEST_POLYGON_Y
    Centroid_of_LARGEST_POLYGON_X = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 1],
    Centroid_of_LARGEST_POLYGON_Y = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 2]) %>%
  select(1, 3:6, 2) #Columns ORDER
X <- X %>% st_drop_geometry()

#DATA MANIPULATIONs on CCMN_GeoRDATA_ContinentalSIREGIONs
CCMN_GeoRDATA_ContinentalSIREGIONs <- left_join(
  CCMN_GeoRDATA_ContinentalSIREGIONs, X, by = c("NAME" = "NAME")) %>%
  select(1:9, 12:15, 10:11) #Columns ORDER

#DATA MANIPULATIONs on CCMN_GeoRDATA_ContinentalSIREGIONs
CCMN_GeoRDATA_ContinentalSIREGIONs <- CCMN_GeoRDATA_ContinentalSIREGIONs %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => BBOX_Centroid_X | BBOX_Centroid_Y
    BBOX_Centroid_X = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 1],
    BBOX_Centroid_Y = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 2]) %>% ungroup() %>%
  select(1:13, 16:17, 14:15) #Columns ORDER

################################
##### Save GeoDATA File(s) #####
################################

##### CCMN_GeoRDATA_ContinentalSIREGIONs #####
# st_write( #Save CCMN_GeoRDATA_ContinentalSIREGIONs as a GeoJSON File
#   CCMN_GeoRDATA_ContinentalSIREGIONs,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/ContinentalSIREGIONs/CCMN_GeoRDATA_ContinentalSIREGIONs.geojson", driver = "GeoJSON")
# CCMN_RDATA_ContinentalSIREGIONs <- CCMN_GeoRDATA_ContinentalSIREGIONs %>% st_drop_geometry() #Remove GEOMETRY Column
# write.xlsx( #Save XLSX File
#   CCMN_RDATA_ContinentalSIREGIONs,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/ContinentalSIREGIONs/CCMN_RDATA_ContinentalSIREGIONs.xlsx")
####################
##### GeoRDATA #####
####################

##### Geo. REGIONs #####
CCMN_GeoRDATA_GeoREGIONs <- CCMN_GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in GeoREGION
    GeoREGION = case_when(is.na(GeoREGION) ~ "Other Countries/Territories", TRUE ~ GeoREGION)) %>%
  #DATA MANIPULATIONs
  group_by(GeoREGION) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => AREA
    AREA = sum(AREA, na.rm = TRUE),
    #New Variable => GEOMETRY+
    geometry = st_combine(geometry)) %>%
  #Rename Column(s)
  rename(NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => CODE
    CODE = case_when(
      NAME == "Australia and New Zealand" ~ 927,
      NAME == "Central and Southern Asia" ~ 921,
      NAME == "Eastern and South-Eastern Asia" ~ 1832,
      NAME == "Europe and Northern America" ~ 1829,
      NAME == "Latin America and the Caribbean" ~ 1830,
      NAME == "Northern Africa and Western Asia" ~ 1833,
      NAME == "Oceania*" ~ 1835,
      NAME == "Sub-Saharan Africa" ~ 947),
    #New Variable => LabelR
    LabelR = paste0("<b>Geo. REGION: </b>", NAME),
    #New Variable => CLRCode
    CLRCode = c(
      "#FF0000", "#FF6600", "#339900", "#003366", "#33CCFF", "#FF9900", "#CC0000", "#999999", "#FF3399"),
    #New Variable => SOURCE
    SOURCE = case_when(
      NAME == "Other Countries/Territories" ~ "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques",
      NAME %in% c(
        "Central and Southern Asia", "Northern Africa and Western Asia", "Sub-Saharan Africa") ~ "World Health OrGanization (WHO) - Countries and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques",
      TRUE ~ "World Health OrGanization (WHO) - Countries and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques and Global Administrative Areas (GADM)")) %>%
      select(1, 4:6, 2, 7, 3) #Columns ORDER

#DATA MANIPULATIONs on CCMN_GeoRDATA_GeoREGIONs
CCMN_GeoRDATA_GeoREGIONs <- CCMN_GeoRDATA_GeoREGIONs %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => AREA
    # AREA = round(as.numeric(gsub("\\[m\\^2\\]", "", st_area(geometry) / 1e6)), 5),
    #New Variable => BBOX_AREA
    BBOX_AREA = round(
      as.numeric(gsub("\\[m\\^2\\]", "", st_area(st_as_sfc(st_bbox(geometry))) / 1e6)), 5)) %>% ungroup() %>%
  select(1:5, 8, 6:7) #Columns ORDER

#DATA MANIPULATIONs on CCMN_GeoDATA
X <- CCMN_GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in GeoREGION
    GeoREGION = case_when(is.na(GeoREGION) ~ "Other Countries/Territories", TRUE ~ GeoREGION)) %>%
  #DATA MANIPULATIONs
  group_by(GeoREGION) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => GEOMETRY+
    geometry = st_union(geometry)) %>%
  #Rename Column(s)
  rename(NAME = 1)
X <- X[c(1:4, 6:10), ]

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- X %>% filter(NAME == "Central and Southern Asia")
Geo_2 <- X %>% filter(NAME == "Eastern and South-Eastern Asia")
Geo_3 <- X %>% filter(NAME == "Europe and Northern America")
Geo_4 <- X %>% filter(NAME == "Latin America and the Caribbean")
Geo_5 <- X %>% filter(NAME == "Northern Africa and Western Asia")
Geo_6 <- X %>% filter(NAME == "Sub-Saharan Africa")

##### CENTRAL AND SOUTHERN ASIA #####
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# st_is_valid(Geo_1)

##### EASTERN AND SOUTH-EASTERN ASIA #####
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
# st_is_valid(Geo_2)

##### EUROPE AND NORTHERN AMERICA #####
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
# st_is_valid(Geo_3)

##### LATIN AMERICA AND THE CARIBBEAN #####
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
# st_is_valid(Geo_4)

##### NORTHERN AFRICA AND WESTERN ASIA #####
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}
# st_is_valid(Geo_5)

##### SUB-SAHARAN AFRICA #####
if (st_is_valid(Geo_6) == FALSE) {Geo_6 <- st_make_valid(Geo_6)}
# st_is_valid(Geo_6)

#Replace GEOMETRIE(s)
X <- X %>% 
  filter(!NAME %in% c(
    "Central and Southern Asia", "Eastern and South-Eastern Asia", "Europe and Northern America", 
    "Latin America and the Caribbean", "Northern Africa and Western Asia", "Sub-Saharan Africa"))
X <- rbind(X, Geo_1, Geo_2, Geo_3, Geo_4, Geo_5, Geo_6)

#DATA MANIPULATIONs on X
X <- X %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => Centroid_X | Centroid_Y
    Centroid_X = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 1],
    Centroid_Y = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 2],
    #New Variable(s) => Centroid_of_LARGEST_POLYGON_X, Centroid_of_LARGEST_POLYGON_Y
    Centroid_of_LARGEST_POLYGON_X = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 1],
    Centroid_of_LARGEST_POLYGON_Y = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 2]) %>%
  select(1, 3:6, 2) #Columns ORDER
X <- X %>% st_drop_geometry()

#DATA MANIPULATIONs on CCMN_GeoRDATA_GeoREGIONs
CCMN_GeoRDATA_GeoREGIONs <- left_join(
  CCMN_GeoRDATA_GeoREGIONs, X, by = c("NAME" = "NAME")) %>% select(1:6, 9:12, 7:8) #Columns ORDER

#DATA MANIPULATIONs on CCMN_GeoRDATA_GeoREGIONs
CCMN_GeoRDATA_GeoREGIONs <- CCMN_GeoRDATA_GeoREGIONs %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => BBOX_Centroid_X | BBOX_Centroid_Y
    BBOX_Centroid_X = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 1],
    BBOX_Centroid_Y = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 2]) %>% ungroup() %>%
  select(1:10, 13:14, 11:12) #Columns ORDER

################################
##### Save GeoDATA File(s) #####
################################

##### CCMN_GeoRDATA_GeoREGIONs #####
# st_write( #Save CCMN_GeoRDATA_GeoREGIONs as a GeoJSON File
#   CCMN_GeoRDATA_GeoREGIONs,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/GeoREGIONs/CCMN_GeoRDATA_GeoREGIONs.geojson", driver = "GeoJSON")
# CCMN_RDATA_GeoREGIONs <- CCMN_GeoRDATA_GeoREGIONs %>% st_drop_geometry() #Remove GEOMETRY Column
# write.xlsx( #Save XLSX File
#   CCMN_RDATA_GeoREGIONs,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/GeoREGIONs/CCMN_RDATA_GeoREGIONs.xlsx")
####################
##### GeoRDATA #####
####################

##### MoreLess #####
CCMN_GeoRDATA_MoreLess <- CCMN_GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in MoreLess
    MoreLess = case_when(is.na(MoreLess) ~ "Other Countries/Territories", TRUE ~ MoreLess)) %>%
  #DATA MANIPULATIONs
  group_by(MoreLess) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => AREA
    AREA = sum(AREA, na.rm = TRUE),
    #New Variable => GEOMETRY+
    geometry = st_combine(geometry)) %>%
  #Rename Column(s)
  rename(NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in NAME
    NAME = case_when(
      NAME == "More Developed" ~ "More Developed Countries",
      NAME == "Less Developed" ~ "Less Developed Countries",
      NAME == "Other Countries/Territories" ~ "Other Countries/Territories"),
    #New Variable => CODE
    CODE = case_when(
      NAME == "More Developed Countries" ~ 901, 
      NAME == "Less Developed Countries" ~ 902),
    #New Variable => LabelR
    LabelR = paste0("<b>Development Level: </b>", NAME),
    #New Variable => CLRCode
    CLRCode = c("#FFCC00", "#339900", "#999999"),
    #New Variable => SOURCE
    SOURCE = case_when(
      NAME == "Other Countries/Territories" ~ "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques",
      TRUE ~ "World Health OrGanization (WHO) - Countries and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques and Global Administrative Areas (GADM)")) %>% 
      select(1, 4:6, 2, 7, 3) #Columns ORDER

#DATA MANIPULATIONs on CCMN_GeoRDATA_MoreLess
CCMN_GeoRDATA_MoreLess <- CCMN_GeoRDATA_MoreLess %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => AREA
    # AREA = round(as.numeric(gsub("\\[m\\^2\\]", "", st_area(geometry) / 1e6)), 5),
    #New Variable => BBOX_AREA
    BBOX_AREA = round(
      as.numeric(gsub("\\[m\\^2\\]", "", st_area(st_as_sfc(st_bbox(geometry))) / 1e6)), 5)) %>% ungroup() %>%
  select(1:5, 8, 6:7) #Columns ORDER

#DATA MANIPULATIONs on CCMN_GeoDATA
X <- CCMN_GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in MoreLess
    MoreLess = case_when(is.na(MoreLess) ~ "Other Countries/Territories", TRUE ~ MoreLess)) %>%
  #DATA MANIPULATIONs
  group_by(MoreLess) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => GEOMETRY+
    geometry = st_union(geometry)) %>%
  #Rename Column(s)
  rename(NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in NAME
    NAME = case_when(
      NAME == "More Developed" ~ "More Developed Countries",
      NAME == "Less Developed" ~ "Less Developed Countries",
      NAME == "Other Countries/Territories" ~ "Other Countries/Territories"))
X <- X[2:4, ]

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- X %>% filter(NAME == "Less Developed Countries")
Geo_2 <- X %>% filter(NAME == "More Developed Countries")

##### LESS DEVELOPED COUNTRIES #####
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# st_is_valid(Geo_1)

##### MORE DEVELOPED COUNTRIES #####
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
# st_is_valid(Geo_2)

#Replace GEOMETRIE(s)
X <- X %>% 
  filter(!NAME %in% c("Less Developed Countries", "More Developed Countries"))
X <- rbind(X, Geo_1, Geo_2)

#DATA MANIPULATIONs on X
X <- X %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => Centroid_X | Centroid_Y
    Centroid_X = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 1],
    Centroid_Y = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 2],
    #New Variable(s) => Centroid_of_LARGEST_POLYGON_X, Centroid_of_LARGEST_POLYGON_Y
    Centroid_of_LARGEST_POLYGON_X = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 1],
    Centroid_of_LARGEST_POLYGON_Y = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 2]) %>%
  select(1, 3:6, 2) #Columns ORDER
X <- X %>% st_drop_geometry()

#DATA MANIPULATIONs on CCMN_GeoRDATA_MoreLess
CCMN_GeoRDATA_MoreLess <- left_join(
  CCMN_GeoRDATA_MoreLess, X, by = c("NAME" = "NAME")) %>% select(1:6, 9:12, 7:8) #Columns ORDER

#DATA MANIPULATIONs on CCMN_GeoRDATA_MoreLess
CCMN_GeoRDATA_MoreLess <- CCMN_GeoRDATA_MoreLess %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => BBOX_Centroid_X | BBOX_Centroid_Y
    BBOX_Centroid_X = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 1],
    BBOX_Centroid_Y = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 2]) %>% ungroup() %>%
  select(1:10, 13:14, 11:12) #Columns ORDER

################################
##### Save GeoDATA File(s) #####
################################

##### CCMN_GeoRDATA_MoreLess #####
# st_write( #Save CCMN_GeoRDATA_MoreLess as a GeoJSON File
#   CCMN_GeoRDATA_MoreLess,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/DevLevels/MoreLess/CCMN_GeoRDATA_MoreLess.geojson", driver = "GeoJSON")
# CCMN_RDATA_MoreLess <- CCMN_GeoRDATA_MoreLess %>% st_drop_geometry() #Remove GEOMETRY Column
# write.xlsx( #Save XLSX File
#   CCMN_RDATA_MoreLess,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/DevLevels/MoreLess/CCMN_RDATA_MoreLess.xlsx")

#DATA MANIPULATIONs on CCMN_GeoRDATA_MoreLess
CCMN_GeoRDATA_MoreLess_without_Antarctica <- CCMN_GeoRDATA_MoreLess %>% filter(NAME != "Other Countries/Territories")

################################
##### Save GeoDATA File(s) #####
################################

##### CCMN_GeoRDATA_MoreLess_without_Antarctica #####
# st_write( #Save CCMN_GeoRDATA_MoreLess_without_Antarctica as a GeoJSON File
#   CCMN_GeoRDATA_MoreLess_without_Antarctica,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/DevLevels/MoreLess/CCMN_GeoRDATA_MoreLess_without_Antarctica.geojson",
#   driver = "GeoJSON")
#Remove GEOMETRY Column
# CCMN_RDATA_MoreLess_without_Antarctica <- CCMN_GeoRDATA_MoreLess_without_Antarctica %>% st_drop_geometry()
# write.xlsx( #Save XLSX File
#   CCMN_RDATA_MoreLess_without_Antarctica,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/DevLevels/MoreLess/CCMN_RDATA_MoreLess_without_Antarctica.xlsx")
####################
##### GeoRDATA #####
####################

##### MoreLessLeast #####
CCMN_GeoRDATA_MoreLessLeast <- CCMN_GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in MoreLessLeast
    MoreLessLeast = case_when(is.na(MoreLessLeast) ~ "Other Countries/Territories", TRUE ~ MoreLessLeast)) %>%
  #DATA MANIPULATIONs
  group_by(MoreLessLeast) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => AREA
    AREA = sum(AREA, na.rm = TRUE),
    #New Variable => GEOMETRY+
    geometry = st_combine(geometry)) %>%
  #Rename Column(s)
  rename(NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in NAME
    NAME = case_when(
      NAME == "More Developed" ~ "More Developed Countries",
      NAME == "Less Developed*" ~ "Less Developed Countries*",
      NAME == "Least Developed" ~ "Least Developed Countries",
      NAME == "Other Countries/Territories" ~ "Other Countries/Territories"),
    #New Variable => CODE
    CODE = case_when(
      NAME == "More Developed Countries" ~ 901, 
      NAME == "Less Developed Countries*" ~ 934, 
      NAME == "Least Developed Countries" ~ 941),
    #New Variable => LabelR
    LabelR = paste0("<b>Development Level: </b>", NAME),
    #New Variable => CLRCode
    CLRCode = c("#FF9900", "#FFCC00", "#339900", "#999999"),
    #New Variable => SOURCE
    SOURCE = case_when(
      NAME == "Other Countries/Territories" ~ "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques",
      NAME == "Least Developed Countries" ~ "World Health OrGanization (WHO) - Countries and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques",
      TRUE ~ "World Health OrGanization (WHO) - Countries and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques and Global Administrative Areas (GADM)")) %>% 
      select(1, 4:6, 2, 7, 3) #Columns ORDER

#DATA MANIPULATIONs on CCMN_GeoRDATA_MoreLessLeast
CCMN_GeoRDATA_MoreLessLeast <- CCMN_GeoRDATA_MoreLessLeast %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => AREA
    # AREA = round(as.numeric(gsub("\\[m\\^2\\]", "", st_area(geometry) / 1e6)), 5),
    #New Variable => BBOX_AREA
    BBOX_AREA = round(
      as.numeric(gsub("\\[m\\^2\\]", "", st_area(st_as_sfc(st_bbox(geometry))) / 1e6)), 5)) %>% ungroup() %>%
  select(1:5, 8, 6:7) #Columns ORDER

#DATA MANIPULATIONs on CCMN_GeoDATA
X <- CCMN_GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in MoreLessLeast
    MoreLessLeast = case_when(is.na(MoreLessLeast) ~ "Other Countries/Territories", TRUE ~ MoreLessLeast)) %>%
  #DATA MANIPULATIONs
  group_by(MoreLessLeast) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => GEOMETRY+
    geometry = st_union(geometry)) %>%
  #Rename Column(s)
  rename(NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in NAME
    NAME = case_when(
      NAME == "More Developed" ~ "More Developed Countries",
      NAME == "Less Developed*" ~ "Less Developed Countries*",
      NAME == "Least Developed" ~ "Least Developed Countries",
      NAME == "Other Countries/Territories" ~ "Other Countries/Territories"))
X <- X[c(1, 3:5), ]

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- X %>% filter(NAME == "Least Developed Countries")
Geo_2 <- X %>% filter(NAME == "Less Developed Countries*")
Geo_3 <- X %>% filter(NAME == "More Developed Countries")

##### LEAST DEVELOPED COUNTRIES #####
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# st_is_valid(Geo_1)

##### LESS DEVELOPED COUNTRIES* #####
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
# st_is_valid(Geo_2)

##### MORE DEVELOPED COUNTRIES #####
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
# st_is_valid(Geo_3)

#Replace GEOMETRIE(s)
X <- X %>% 
  filter(!NAME %in% c("Least Developed Countries", "Less Developed Countries*", "More Developed Countries"))
X <- rbind(X, Geo_1, Geo_2, Geo_3)

#DATA MANIPULATIONs on X
X <- X %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => Centroid_X | Centroid_Y
    Centroid_X = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 1],
    Centroid_Y = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 2],
    #New Variable(s) => Centroid_of_LARGEST_POLYGON_X, Centroid_of_LARGEST_POLYGON_Y
    Centroid_of_LARGEST_POLYGON_X = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 1],
    Centroid_of_LARGEST_POLYGON_Y = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 2]) %>%
  select(1, 3:6, 2) #Columns ORDER
X <- X %>% st_drop_geometry()

#DATA MANIPULATIONs on CCMN_GeoRDATA_MoreLessLeast
CCMN_GeoRDATA_MoreLessLeast <- left_join(
  CCMN_GeoRDATA_MoreLessLeast, X, by = c("NAME" = "NAME")) %>% select(1:6, 9:12, 7:8) #Columns ORDER

#DATA MANIPULATIONs on CCMN_GeoRDATA_MoreLessLeast
CCMN_GeoRDATA_MoreLessLeast <- CCMN_GeoRDATA_MoreLessLeast %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => BBOX_Centroid_X | BBOX_Centroid_Y
    BBOX_Centroid_X = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 1],
    BBOX_Centroid_Y = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 2]) %>% ungroup() %>%
  select(1:10, 13:14, 11:12) #Columns ORDER

################################
##### Save GeoDATA File(s) #####
################################

##### CCMN_GeoRDATA_MoreLessLeast #####
# st_write( #Save CCMN_GeoRDATA_MoreLessLeast as a GeoJSON File
#   CCMN_GeoRDATA_MoreLessLeast,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/DevLevels/MoreLessLeast/CCMN_GeoRDATA_MoreLessLeast.geojson", driver = "GeoJSON")
# CCMN_RDATA_MoreLessLeast <- CCMN_GeoRDATA_MoreLessLeast %>% st_drop_geometry() #Remove GEOMETRY Column
# write.xlsx( #Save XLSX File
#   CCMN_RDATA_MoreLessLeast,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/DevLevels/MoreLessLeast/CCMN_RDATA_MoreLessLeast.xlsx")

#DATA MANIPULATIONs on CCMN_GeoRDATA_MoreLessLeast
CCMN_GeoRDATA_MoreLessLeast_without_Antarctica <- CCMN_GeoRDATA_MoreLessLeast %>% filter(NAME != "Other Countries/Territories")

################################
##### Save GeoDATA File(s) #####
################################

##### CCMN_GeoRDATA_MoreLessLeast_without_Antarctica #####
# st_write( #Save CCMN_GeoRDATA_MoreLessLeast_without_Antarctica as a GeoJSON File
#   CCMN_GeoRDATA_MoreLessLeast_without_Antarctica,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/DevLevels/MoreLessLeast/CCMN_GeoRDATA_MoreLessLeast_without_Antarctica.geojson",
#   driver = "GeoJSON")
#Remove GEOMETRY Column
# CCMN_RDATA_MoreLessLeast_without_Antarctica <- CCMN_GeoRDATA_MoreLessLeast_without_Antarctica %>% st_drop_geometry()
# write.xlsx( #Save XLSX File
#   CCMN_RDATA_MoreLessLeast_without_Antarctica,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/DevLevels/MoreLessLeast/CCMN_RDATA_MoreLessLeast_without_Antarctica.xlsx")
####################
##### GeoRDATA #####
####################

##### LDC_LLDC_SIDS #####
CCMN_GeoRDATA_LDC_LLDC_SIDS <- CCMN_GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in DevLevel
    DevLevel = case_when(is.na(DevLevel) ~ "Other Countries/Territories", TRUE ~ DevLevel)) %>%
  #DATA MANIPULATIONs
  group_by(DevLevel) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => AREA
    AREA = sum(AREA, na.rm = TRUE),
    #New Variable => GEOMETRY+
    geometry = st_combine(geometry)) %>%
  #Rename Column(s)
  rename(NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in NAME
    NAME = case_when(
      NAME == "LDC*" ~ "Least Developed Countries* (LDC*)",
      NAME == "LLDC*" ~ "Land Locked Developing Countries* (LLDC*)",
      NAME == "SIDS*" ~ "Small Island Developing States* (SIDS*)",
      NAME == "LDC | LLDC" ~ "LDC | LLDC",
      NAME == "LDC | SIDS" ~ "LDC | SIDS",
      NAME == "Other Countries/Territories" ~ "Other Countries/Territories"),
    #New Variable => CODE
    CODE = case_when(
      NAME == "Least Developed Countries* (LDC*)" ~ 942, 
      NAME == "Land Locked Developing Countries* (LLDC*)" ~ 1638, 
      NAME == "Small Island Developing States* (SIDS*)" ~ 1639,
      NAME == "LDC | LLDC" ~ 1640, 
      NAME == "LDC | SIDS" ~ 1641),
    #New Variable => LabelR
    LabelR = paste0("<b>Development Level: </b>", NAME),
    #New Variable => CLRCode
    CLRCode = c("#FF9900", "#72C02C", "#F1C40F", "#E74C3C", "#999999", "#5B92E5"),
    #New Variable => SOURCE
    SOURCE = case_when(
      NAME %in% c(
        "Least Developed Countries* (LDC*)", "Land Locked Developing Countries* (LLDC*)", 
        "LDC | LLDC", "LDC | SIDS") ~ "World Health OrGanization (WHO) - Countries and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques",
      TRUE ~ "World Health OrGanization (WHO) - Countries and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques and Global Administrative Areas (GADM)")) %>% 
      select(1, 4:6, 2, 7, 3) #Columns ORDER

#DATA MANIPULATIONs on CCMN_GeoRDATA_LDC_LLDC_SIDS
CCMN_GeoRDATA_LDC_LLDC_SIDS <- CCMN_GeoRDATA_LDC_LLDC_SIDS %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => AREA
    # AREA = round(as.numeric(gsub("\\[m\\^2\\]", "", st_area(geometry) / 1e6)), 5),
    #New Variable => BBOX_AREA
    BBOX_AREA = round(
      as.numeric(gsub("\\[m\\^2\\]", "", st_area(st_as_sfc(st_bbox(geometry))) / 1e6)), 5)) %>% ungroup() %>%
  select(1:5, 8, 6:7) #Columns ORDER

#DATA MANIPULATIONs on CCMN_GeoDATA
X <- CCMN_GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in DevLevel
    DevLevel = case_when(is.na(DevLevel) ~ "Other Countries/Territories", TRUE ~ DevLevel)) %>%
  #DATA MANIPULATIONs
  group_by(DevLevel) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => GEOMETRY+
    geometry = st_union(geometry)) %>%
  #Rename Column(s)
  rename(NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in NAME
    NAME = case_when(
      NAME == "LDC*" ~ "Least Developed Countries* (LDC*)",
      NAME == "LLDC*" ~ "Land Locked Developing Countries* (LLDC*)",
      NAME == "SIDS*" ~ "Small Island Developing States* (SIDS*)",
      NAME == "LDC | LLDC" ~ "LDC | LLDC",
      NAME == "LDC | SIDS" ~ "LDC | SIDS",
      NAME == "Other Countries/Territories" ~ "Other Countries/Territories"))
X <- X[c(1:2, 4:5, 7:8), ]

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- X %>% filter(NAME == "Least Developed Countries* (LDC*)")
Geo_2 <- X %>% filter(NAME == "Land Locked Developing Countries* (LLDC*)")
Geo_3 <- X %>% filter(NAME == "Small Island Developing States* (SIDS*)")
Geo_4 <- X %>% filter(NAME == "LDC | LLDC")
Geo_5 <- X %>% filter(NAME == "Other Countries/Territories")

##### LEAST DEVELOPED COUNTRIES* #####
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# st_is_valid(Geo_1)

##### LAND LOCKED DEVELOPING COUNTRIES* #####
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
# st_is_valid(Geo_2)

##### SMALL ISLANDS DEVELOPING STATES #####
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
# st_is_valid(Geo_3)

##### LDC | LLDC #####
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
# st_is_valid(Geo_4)

##### OTHER COUNTRIES/TERRITORIES #####
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}
# st_is_valid(Geo_5)

#Replace GEOMETRIE(s)
X <- X %>% 
  filter(!NAME %in% c(
    "Least Developed Countries* (LDC*)", "Land Locked Developing Countries* (LLDC*)", 
    "Small Island Developing States* (SIDS*)", "LDC | LLDC", "Other Countries/Territories"))
X <- rbind(X, Geo_1, Geo_2, Geo_3, Geo_4, Geo_5)

#DATA MANIPULATIONs on X
X <- X %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => Centroid_X | Centroid_Y
    Centroid_X = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 1],
    Centroid_Y = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 2],
    #New Variable(s) => Centroid_of_LARGEST_POLYGON_X, Centroid_of_LARGEST_POLYGON_Y
    Centroid_of_LARGEST_POLYGON_X = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 1],
    Centroid_of_LARGEST_POLYGON_Y = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 2]) %>%
  select(1, 3:6, 2) #Columns ORDER
X <- X %>% st_drop_geometry()

#DATA MANIPULATIONs on CCMN_GeoRDATA_LDC_LLDC_SIDS
CCMN_GeoRDATA_LDC_LLDC_SIDS <- left_join(
  CCMN_GeoRDATA_LDC_LLDC_SIDS, X, by = c("NAME" = "NAME")) %>% select(1:6, 9:12, 7:8) #Columns ORDER

#DATA MANIPULATIONs on CCMN_GeoRDATA_LDC_LLDC_SIDS
CCMN_GeoRDATA_LDC_LLDC_SIDS <- CCMN_GeoRDATA_LDC_LLDC_SIDS %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => BBOX_Centroid_X | BBOX_Centroid_Y
    BBOX_Centroid_X = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 1],
    BBOX_Centroid_Y = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 2]) %>% ungroup() %>%
  select(1:10, 13:14, 11:12) #Columns ORDER

################################
##### Save GeoDATA File(s) #####
################################

##### CCMN_GeoRDATA_LDC_LLDC_SIDS #####
# st_write( #Save CCMN_GeoRDATA_LDC_LLDC_SIDS as a GeoJSON File
#   CCMN_GeoRDATA_LDC_LLDC_SIDS,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/DevLevels/LDC_LLDC_SIDS/CCMN_GeoRDATA_LDC_LLDC_SIDS.geojson", 
#   driver = "GeoJSON")
# CCMN_RDATA_LDC_LLDC_SIDS <- CCMN_GeoRDATA_LDC_LLDC_SIDS %>% st_drop_geometry() #Remove GEOMETRY Column
# write.xlsx( #Save XLSX File
#   CCMN_RDATA_LDC_LLDC_SIDS,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/DevLevels/LDC_LLDC_SIDS/CCMN_RDATA_LDC_LLDC_SIDS.xlsx")
####################
##### GeoRDATA #####
####################

##### IncomeLevels #####
CCMN_GeoRDATA_IncomeLevels <- CCMN_GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in IncomeLevel
    IncomeLevel = case_when(is.na(IncomeLevel) ~ "Other Countries/Territories", TRUE ~ IncomeLevel)) %>%
  #DATA MANIPULATIONs
  group_by(IncomeLevel) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => AREA
    AREA = sum(AREA, na.rm = TRUE),
    #New Variable => GEOMETRY+
    geometry = st_combine(geometry)) %>%
  #Rename Column(s)
  rename(NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in NAME
    NAME = case_when(
      NAME == "HIGH" ~ "High-Income Countries",
      NAME == "UPPER-MIDDLE" ~ "Upper-Middle-Income Countries",
      NAME == "LOWER-MIDDLE" ~ "Lower-Middle-Income Countries",
      NAME == "LOW" ~ "Low Income Countries",
      NAME == "Other Countries/Territories" ~ "Other Countries/Territories"),
    #New Variable => CODE
    CODE = case_when(
      NAME == "High-Income Countries" ~ 1503, 
      NAME == "Upper-Middle-Income Countries" ~ 1502, 
      NAME == "Lower-Middle-Income Countries" ~ 1501,
      NAME == "Low Income Countries" ~ 1500),
    #New Variable => LabelR
    LabelR = paste0("<b>Income Level (2020): </b>", NAME),
    #New Variable => CLRCode
    CLRCode = c("#0F8554", "#7B3294", "#A885B7", "#999999", "#8DCE92"),
    #New Variable => SOURCE
    SOURCE = case_when(
      TRUE ~ "World Health OrGanization (WHO) - Countries and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques and Global Administrative Areas (GADM)")) %>% 
      select(1, 4:6, 2, 7, 3) #Columns ORDER

#DATA MANIPULATIONs on CCMN_GeoRDATA_IncomeLevels
CCMN_GeoRDATA_IncomeLevels <- CCMN_GeoRDATA_IncomeLevels %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => AREA
    # AREA = round(as.numeric(gsub("\\[m\\^2\\]", "", st_area(geometry) / 1e6)), 5),
    #New Variable => BBOX_AREA
    BBOX_AREA = round(
      as.numeric(gsub("\\[m\\^2\\]", "", st_area(st_as_sfc(st_bbox(geometry))) / 1e6)), 5)) %>% ungroup() %>%
  select(1:5, 8, 6:7) #Columns ORDER

#DATA MANIPULATIONs on CCMN_GeoDATA
X <- CCMN_GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in IncomeLevel
    IncomeLevel = case_when(is.na(IncomeLevel) ~ "Other Countries/Territories", TRUE ~ IncomeLevel)) %>%
  #DATA MANIPULATIONs
  group_by(IncomeLevel) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => GEOMETRY+
    geometry = st_union(geometry)) %>%
  #Rename Column(s)
  rename(NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in NAME
    NAME = case_when(
      NAME == "HIGH" ~ "High-Income Countries",
      NAME == "UPPER-MIDDLE" ~ "Upper-Middle-Income Countries",
      NAME == "LOWER-MIDDLE" ~ "Lower-Middle-Income Countries",
      NAME == "LOW" ~ "Low Income Countries",
      NAME == "Other Countries/Territories" ~ "Other Countries/Territories"))
X <- X[c(1:3, 5:6), ]

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- X %>% filter(NAME == "High-Income Countries")
Geo_2 <- X %>% filter(NAME == "Upper-Middle-Income Countries")
Geo_3 <- X %>% filter(NAME == "Lower-Middle-Income Countries")
Geo_4 <- X %>% filter(NAME == "Low Income Countries")

##### HIGH-INCOME COUNTRIES #####
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# st_is_valid(Geo_1)

##### UPPER-MIDDLE-INCOME COUNTRIES #####
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
# st_is_valid(Geo_2)

##### LOWER-MIDDLE-INCOME COUNTRIES #####
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
# st_is_valid(Geo_3)

##### LOW-INCOME COUNTRIES #####
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
# st_is_valid(Geo_4)

#Replace GEOMETRIE(s)
X <- X %>% 
  filter(!NAME %in% c(
    "High-Income Countries", "Upper-Middle-Income Countries", "Lower-Middle-Income Countries", "Low Income Countries"))
X <- rbind(X, Geo_1, Geo_2, Geo_3, Geo_4)

#DATA MANIPULATIONs on X
X <- X %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => Centroid_X | Centroid_Y
    Centroid_X = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 1],
    Centroid_Y = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 2],
    #New Variable(s) => Centroid_of_LARGEST_POLYGON_X, Centroid_of_LARGEST_POLYGON_Y
    Centroid_of_LARGEST_POLYGON_X = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 1],
    Centroid_of_LARGEST_POLYGON_Y = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 2]) %>%
  select(1, 3:6, 2) #Columns ORDER
X <- X %>% st_drop_geometry()

#DATA MANIPULATIONs on CCMN_GeoRDATA_IncomeLevels
CCMN_GeoRDATA_IncomeLevels <- left_join(
  CCMN_GeoRDATA_IncomeLevels, X, by = c("NAME" = "NAME")) %>% select(1:6, 9:12, 7:8) #Columns ORDER

#DATA MANIPULATIONs on CCMN_GeoRDATA_IncomeLevels
CCMN_GeoRDATA_IncomeLevels <- CCMN_GeoRDATA_IncomeLevels %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => BBOX_Centroid_X | BBOX_Centroid_Y
    BBOX_Centroid_X = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 1],
    BBOX_Centroid_Y = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 2]) %>% ungroup() %>%
  select(1:10, 13:14, 11:12) #Columns ORDER

################################
##### Save GeoDATA File(s) #####
################################

##### CCMN_GeoRDATA_IncomeLevels #####
# st_write( #Save CCMN_GeoRDATA_IncomeLevels as a GeoJSON File
#   CCMN_GeoRDATA_IncomeLevels,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/IncomeLevels/CCMN_GeoRDATA_IncomeLevels.geojson",
#   driver = "GeoJSON")
# CCMN_RDATA_IncomeLevels <- CCMN_GeoRDATA_IncomeLevels %>% st_drop_geometry() #Remove GEOMETRY Column
# write.xlsx( #Save XLSX File
#   CCMN_RDATA_IncomeLevels,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/IncomeLevels/CCMN_RDATA_IncomeLevels.xlsx")
#```{r, fig.width=8}
#Interactive WorldM+
leaflet() %>%
  addTiles(options = tileOptions(minZoom = 1, maxZoom = 10, maxNativeZoom = 18)) %>%
  addScaleBar(position = "bottomleft") %>%
  addPolygons(data = CCMN_GeoDATA, group = "262 Countries/Territories",
              stroke = TRUE, color = "#0000FF", weight = 1.5, opacity = 0.75,
              fill = TRUE, fillOpacity = 0.25, label = ~lapply(Label, htmltools::HTML),
              highlightOptions = highlightOptions(
                stroke = TRUE, color = "#99FF66", weight = 1.5, opacity = 0.75,
                fill = TRUE, fillColor = "#99FF66", fillOpacity = 0.25)) %>%
  addPolygons(data = CCMN_GeoRDATA_ContinentalREGIONs, group = "7 Continental REGIONs",
              stroke = TRUE, color = "#CCCCCC", weight = 0.5, opacity = 0.5,
              fill = TRUE, fillColor = ~CLRCode, fillOpacity = 0.75, label = ~lapply(LabelR, htmltools::HTML),
              highlightOptions = highlightOptions(
                stroke = TRUE, color = "#99FF66", weight = 1.5, opacity = 0.75,
                fill = TRUE, fillColor = NULL, fillOpacity = 1)) %>%
  addPolygons(data = CCMN_GeoRDATA_ContinentalSIREGIONs, group = "22 Continental Sub-REGIONs/Intermediate REGIONs",
              stroke = TRUE, color = "#CCCCCC", weight = 0.5, opacity = 0.5,
              fill = TRUE, fillColor = ~CLRCode, fillOpacity = 0.75, label = ~lapply(LabelR, htmltools::HTML),
              highlightOptions = highlightOptions(
                stroke = TRUE, color = "#99FF66", weight = 1.5, opacity = 0.75,
                fill = TRUE, fillColor = NULL, fillOpacity = 1)) %>%
  addPolygons(data = CCMN_GeoRDATA_GeoREGIONs, group = "8 Geo. REGIONs",
              stroke = TRUE, color = "#CCCCCC", weight = 0.5, opacity = 0.5,
              fill = TRUE, fillColor = ~CLRCode, fillOpacity = 0.75, label = ~lapply(LabelR, htmltools::HTML),
              highlightOptions = highlightOptions(
                stroke = TRUE, color = "#99FF66", weight = 1.5, opacity = 0.75,
                fill = TRUE, fillColor = NULL, fillOpacity = 1)) %>%
  addPolygons(data = CCMN_GeoRDATA_MoreLess, group = "2 Development Levels (MoreLess)",
              stroke = TRUE, color = "#CCCCCC", weight = 0.5, opacity = 0.5,
              fill = TRUE, fillColor = ~CLRCode, fillOpacity = 0.75, label = ~lapply(LabelR, htmltools::HTML),
              highlightOptions = highlightOptions(
                stroke = TRUE, color = "#99FF66", weight = 1.5, opacity = 0.75,
                fill = TRUE, fillColor = NULL, fillOpacity = 1)) %>%
  addPolygons(data = CCMN_GeoRDATA_MoreLessLeast, group = "3 Development Levels (MoreLessLeast)",
              stroke = TRUE, color = "#CCCCCC", weight = 0.5, opacity = 0.5,
              fill = TRUE, fillColor = ~CLRCode, fillOpacity = 0.75, label = ~lapply(LabelR, htmltools::HTML),
              highlightOptions = highlightOptions(
                stroke = TRUE, color = "#99FF66", weight = 1.5, opacity = 0.75,
                fill = TRUE, fillColor = NULL, fillOpacity = 1)) %>%
  addPolygons(data = CCMN_GeoRDATA_LDC_LLDC_SIDS, group = "5 Development Levels (DevLevel)",
              stroke = TRUE, color = "#CCCCCC", weight = 0.5, opacity = 0.5,
              fill = TRUE, fillColor = ~CLRCode, fillOpacity = 0.75, label = ~lapply(LabelR, htmltools::HTML),
              highlightOptions = highlightOptions(
                stroke = TRUE, color = "#99FF66", weight = 1.5, opacity = 0.75,
                fill = TRUE, fillColor = NULL, fillOpacity = 1)) %>%
  addPolygons(data = CCMN_GeoRDATA_IncomeLevels, group = "4 Income Levels",
              stroke = TRUE, color = "#CCCCCC", weight = 0.5, opacity = 0.5,
              fill = TRUE, fillColor = ~CLRCode, fillOpacity = 0.75, label = ~lapply(LabelR, htmltools::HTML),
              highlightOptions = highlightOptions(
                stroke = TRUE, color = "#99FF66", weight = 1.5, opacity = 0.75,
                fill = TRUE, fillColor = NULL, fillOpacity = 1)) %>%
  addLayersControl(overlayGroups = c(
    "262 Countries/Territories",
    "7 Continental REGIONs", "22 Continental Sub-REGIONs/Intermediate REGIONs",
    "8 Geo. REGIONs",
    "2 Development Levels (MoreLess)", "3 Development Levels (MoreLessLeast)",
    "5 Development Levels (DevLevel)",
    "4 Income Levels"),
    position = "bottomright", options = layersControlOptions(collapsed = TRUE)) %>%
  hideGroup(c("7 Continental REGIONs", "22 Continental Sub-REGIONs/Intermediate REGIONs",
              "8 Geo. REGIONs",
              "2 Development Levels (MoreLess)", "3 Development Levels (MoreLessLeast)",
              "5 Development Levels (DevLevel)",
              "4 Income Levels"))
####################
##### GeoRDATA #####
####################

##### Continental REGIONs #####
GeoRDATA_ContinentalREGIONs <- GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in ContinentalREGION
    ContinentalREGION = case_when(is.na(ContinentalREGION) ~ "Antarctica", TRUE ~ ContinentalREGION)) %>%
  #DATA MANIPULATIONs
  group_by(ContinentalREGION) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => CONTINENT
    CONTINENT = as.character(Mode(CONTINENT)),
    #New Variable => CONTINENT_CODE
    CONTINENT_CODE = as.character(Mode(CONTINENT_CODE)),
    #New Variable => AREA
    AREA = sum(AREA, na.rm = TRUE),
    #New Variable => GEOMETRY+
    geometry = st_combine(geometry)) %>%
  #Rename Column(s)
  rename(VISUALIZATION_NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => NAME
    NAME = toupper(VISUALIZATION_NAME),
    #New Variable => CODE
    CODE = case_when(
      NAME == "AFRICA" ~ 903, 
      NAME == "ASIA" ~ 935, 
      NAME == "EUROPE" ~ 908,
      NAME == "LATIN AMERICA AND THE CARIBBEAN" ~ 904,
      NAME == "NORTHERN AMERICA" ~ 905,
      NAME == "OCEANIA" ~ 909),
    #Replace Values in CONTINENT
    CONTINENT = case_when(is.na(CONTINENT) ~ "ANTARCTICA", TRUE ~ CONTINENT),
    #Replace Values in CONTINENT_CODE
    CONTINENT_CODE = case_when(is.na(CONTINENT_CODE) ~ "010", TRUE ~ CONTINENT_CODE),
    #New Variable => LabelR
    LabelR = paste0("<b>Continental REGION: </b>", NAME, "<br>",
                    "<b>Continent: </b>", CONTINENT, "<br>",
                    "<b>Numeric Code (M49 Code): </b>", CONTINENT_CODE),
    #New Variable => CLRCode
    CLRCode = c(
      "#339900", "#FAFAFA", "#FF9900", "#003366", "#FF0000", "#663399", "#FFCC00"),
    #New Variable => SOURCE
    SOURCE = case_when(
      NAME == "ANTARCTICA" ~ "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques",
      NAME %in% c("AFRICA", "EUROPE") ~ "World Health OrGanization (WHO) - Countries and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques",
      TRUE ~ "World Health OrGanization (WHO) - Countries and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques and Global Administrative Areas (GADM)")) %>% 
      select(6, 1, 7, 2:3, 8:9, 4, 10, 5) #Columns ORDER

#DATA MANIPULATIONs on GeoRDATA_ContinentalREGIONs
GeoRDATA_ContinentalREGIONs <- GeoRDATA_ContinentalREGIONs %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => AREA
    # AREA = round(as.numeric(gsub("\\[m\\^2\\]", "", st_area(geometry) / 1e6)), 5),
    #New Variable => BBOX_AREA
    BBOX_AREA = round(
      as.numeric(gsub("\\[m\\^2\\]", "", st_area(st_as_sfc(st_bbox(geometry))) / 1e6)), 5)) %>% ungroup() %>%
  select(1:8, 11, 9:10) #Columns ORDER

#DATA MANIPULATIONs on GeoDATA
X <- GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in ContinentalREGION
    ContinentalREGION = case_when(is.na(ContinentalREGION) ~ "Antarctica", TRUE ~ ContinentalREGION)) %>%
  #DATA MANIPULATIONs
  group_by(ContinentalREGION) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => GEOMETRY+
    geometry = st_union(geometry)) %>%
  #Rename Column(s)
  rename(VISUALIZATION_NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => NAME
    NAME = toupper(VISUALIZATION_NAME)) %>% 
      select(3, 1, 2) #Columns ORDER
X <- X[c(1:4, 6:8), ]

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- X %>% filter(NAME == "AFRICA")
Geo_2 <- X %>% filter(NAME == "ASIA")
Geo_3 <- X %>% filter(NAME == "EUROPE")
Geo_4 <- X %>% filter(NAME == "LATIN AMERICA AND THE CARIBBEAN")
Geo_5 <- X %>% filter(NAME == "NORTHERN AMERICA")

##### AFRICA #####
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# st_is_valid(Geo_1)

##### ASIA #####
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
# st_is_valid(Geo_2)

##### EUROPE #####
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
# st_is_valid(Geo_3)

##### LATIN AMERICA AND THE CARIBBEAN #####
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
# st_is_valid(Geo_4)

##### NORTHERN AMERICA #####
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}
# st_is_valid(Geo_5)

#Replace GEOMETRIE(s)
X <- X %>% 
  filter(!NAME %in% c("AFRICA", "ASIA", "EUROPE", "LATIN AMERICA AND THE CARIBBEAN", "NORTHERN AMERICA"))
X <- rbind(X, Geo_1, Geo_2, Geo_3, Geo_4, Geo_5)

#DATA MANIPULATIONs on X
X <- X %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => Centroid_X | Centroid_Y
    Centroid_X = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 1],
    Centroid_Y = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 2],
    #New Variable(s) => Centroid_of_LARGEST_POLYGON_X, Centroid_of_LARGEST_POLYGON_Y
    Centroid_of_LARGEST_POLYGON_X = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 1],
    Centroid_of_LARGEST_POLYGON_Y = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 2]) %>%
  select(1:2, 4:7, 3) #Columns ORDER
X <- X %>% st_drop_geometry()

#DATA MANIPULATIONs on GeoRDATA_ContinentalREGIONs
GeoRDATA_ContinentalREGIONs <- left_join(
  GeoRDATA_ContinentalREGIONs, X, by = c("NAME" = "NAME")) %>%
  #Rename Column(s)
  rename(VISUALIZATION_NAME = 2) %>%
  select(1:9, 13:16, 10:11) #Columns ORDER

#DATA MANIPULATIONs on GeoRDATA_ContinentalREGIONs
GeoRDATA_ContinentalREGIONs <- GeoRDATA_ContinentalREGIONs %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => BBOX_Centroid_X | BBOX_Centroid_Y
    BBOX_Centroid_X = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 1],
    BBOX_Centroid_Y = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 2]) %>% ungroup() %>%
  select(1:13, 16:17, 14:15) #Columns ORDER

################################
##### Save GeoDATA File(s) #####
################################

##### GeoRDATA_ContinentalREGIONs #####
# st_write( #Save GeoRDATA_ContinentalREGIONs as a GeoJSON File
#   GeoRDATA_ContinentalREGIONs,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/ContinentalREGIONs/GeoRDATA_ContinentalREGIONs.geojson", driver = "GeoJSON")
# RDATA_ContinentalREGIONs <- GeoRDATA_ContinentalREGIONs %>% st_drop_geometry() #Remove GEOMETRY Column
# write.xlsx( #Save XLSX File
#   RDATA_ContinentalREGIONs,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/ContinentalREGIONs/RDATA_ContinentalREGIONs.xlsx")
####################
##### GeoRDATA #####
####################

##### Continental SIREGIONs #####
GeoRDATA_ContinentalSIREGIONs <- GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in SIREGION
    SIREGION = case_when(is.na(SIREGION) ~ "Other Countries/Territories", TRUE ~ SIREGION)) %>%
  #DATA MANIPULATIONs
  group_by(SIREGION) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => SIREGION_CODE
    SIREGION_CODE = as.character(Mode(SIREGION_CODE)),
    #New Variable => CONTINENT
    CONTINENT = as.character(Mode(CONTINENT)),
    #New Variable => CONTINENT_CODE
    CONTINENT_CODE = as.character(Mode(CONTINENT_CODE)),
    #New Variable => AREA
    AREA = sum(AREA, na.rm = TRUE),
    #New Variable => GEOMETRY+
    geometry = st_combine(geometry)) %>%
  #Rename Column(s)
  rename(NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => CODE
    CODE = case_when(
      NAME == "Australia and New Zealand" ~ 927, 
      NAME == "Caribbean" ~ 915, 
      NAME == "Central America" ~ 916,
      NAME == "Central Asia" ~ 5500,
      NAME == "Eastern Africa" ~ 910,
      NAME == "Eastern Asia" ~ 906,
      NAME == "Eastern Europe" ~ 923, 
      NAME == "Melanesia" ~ 928, 
      NAME == "Micronesia" ~ 954,
      NAME == "Middle Africa" ~ 911,
      NAME == "Northern Africa" ~ 912,
      NAME == "Northern America" ~ 905,
      NAME == "Northern Europe" ~ 923, 
      NAME == "Polynesia" ~ 957, 
      NAME == "South America" ~ 931,
      NAME == "South-Eastern Asia" ~ 920,
      NAME == "Southern Africa" ~ 913,
      NAME == "Southern Asia" ~ 5501,
      NAME == "Southern Europe" ~ 925, 
      NAME == "Western Africa" ~ 914, 
      NAME == "Western Asia" ~ 922,
      NAME == "Western Europe" ~ 926),
    #New Variable => LabelR
    LabelR = paste0("<b>Continental Sub-REGION/Intermediate REGION: </b>", NAME, "<br>",
                    "<b>Numeric Code (M49 Code): </b>", SIREGION_CODE),
    #New Variable => CLRCode => colorRampPalette(c("#CCFF33", "#336600"))(5)
    CLRCode = c(
      "#F1C40F", "#FF0000", "#B20000", "#FFCC99", "#CCFF33", "#FFB24C", "#33CCFF", 
      "#F5D74E", "#FAEB8D", "#A5D826", "#7FB219", "#663399", "#2299CC", "#999999", "#FFFFCC", 
      "#660000", "#FF9900", "#598C0C", "#F08116", "#116699", "#336600", "#E16A2D", "#003366"),
    #New Variable => SOURCE
    SOURCE = case_when(
      NAME %in% c("Central America", "Southern Africa") ~ "World Health OrGanization (WHO) - Countries",
      NAME == "Other Countries/Territories" ~ "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques",
      NAME %in% c(
        "Central Asia", "Eastern Africa", "Eastern Europe", "Melanesia", "Middle Africa", 
        "Northern Africa", "Northern Europe", "South America", "Southern Asia", "Southern Europe", 
        "Western Africa", "Western Asia", "Western Europe") ~ "World Health OrGanization (WHO) - Countries and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques",
      TRUE ~ "World Health OrGanization (WHO) - Countries and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques and Global Administrative Areas (GADM)")) %>% 
      select(1:2, 7, 3:4, 8:9, 5, 10, 6) #Columns ORDER

#DATA MANIPULATIONs on GeoRDATA_ContinentalSIREGIONs
GeoRDATA_ContinentalSIREGIONs <- GeoRDATA_ContinentalSIREGIONs %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => AREA
    # AREA = round(as.numeric(gsub("\\[m\\^2\\]", "", st_area(geometry) / 1e6)), 5),
    #New Variable => BBOX_AREA
    BBOX_AREA = round(
      as.numeric(gsub("\\[m\\^2\\]", "", st_area(st_as_sfc(st_bbox(geometry))) / 1e6)), 5)) %>% ungroup() %>%
  select(1:8, 11, 9:10) #Columns ORDER

#DATA MANIPULATIONs on GeoDATA
X <- GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in SIREGION
    SIREGION = case_when(is.na(SIREGION) ~ "Other Countries/Territories", TRUE ~ SIREGION)) %>%
  #DATA MANIPULATIONs
  group_by(SIREGION) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => GEOMETRY+
    geometry = st_union(geometry)) %>%
  #Rename Column(s)
  rename(NAME = 1)
X <- X[c(1:15, 17:24), ]

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- X %>% filter(NAME == "Eastern Africa")
Geo_2 <- X %>% filter(NAME == "Eastern Asia")
Geo_3 <- X %>% filter(NAME == "Eastern Europe")
Geo_4 <- X %>% filter(NAME == "Middle Africa")
Geo_5 <- X %>% filter(NAME == "Northern Africa")
Geo_6 <- X %>% filter(NAME == "Northern Europe")
Geo_7 <- X %>% filter(NAME == "South America")
Geo_8 <- X %>% filter(NAME == "South-Eastern Asia")
Geo_9 <- X %>% filter(NAME == "Southern Asia")
Geo_10 <- X %>% filter(NAME == "Southern Europe")
Geo_11 <- X %>% filter(NAME == "Western Asia")
Geo_12 <- X %>% filter(NAME == "Western Europe")

##### EASTERN AFRICA #####
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# st_is_valid(Geo_1)

##### EASTERN ASIA #####
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
# st_is_valid(Geo_2)

##### EASTERN EUROPE #####
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
# st_is_valid(Geo_3)

##### MIDDLE AFRICA #####
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
# st_is_valid(Geo_4)

##### NORTHERN AFRICA #####
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}
# st_is_valid(Geo_5)

##### NORTHERN EUROPE #####
if (st_is_valid(Geo_6) == FALSE) {Geo_6 <- st_make_valid(Geo_6)}
# st_is_valid(Geo_6)

##### SOUTH AMERICA #####
if (st_is_valid(Geo_7) == FALSE) {Geo_7 <- st_make_valid(Geo_7)}
# st_is_valid(Geo_7)

##### SOUTH-EASTERN ASIA #####
if (st_is_valid(Geo_8) == FALSE) {Geo_8 <- st_make_valid(Geo_8)}
# st_is_valid(Geo_8)

##### SOUTHERN ASIA #####
if (st_is_valid(Geo_9) == FALSE) {Geo_9 <- st_make_valid(Geo_9)}
# st_is_valid(Geo_9)

##### SOUTHERN EUROPE #####
if (st_is_valid(Geo_10) == FALSE) {Geo_10 <- st_make_valid(Geo_10)}
# st_is_valid(Geo_10)

##### WESTERN ASIA #####
if (st_is_valid(Geo_11) == FALSE) {Geo_11 <- st_make_valid(Geo_11)}
# st_is_valid(Geo_11)

##### WESTERN EUROPE #####
if (st_is_valid(Geo_12) == FALSE) {Geo_12 <- st_make_valid(Geo_12)}
# st_is_valid(Geo_12)

#Replace GEOMETRIE(s)
X <- X %>% 
  filter(!NAME %in% c(
    "Eastern Africa", "Eastern Asia", "Eastern Europe", "Middle Africa", "Northern Africa", "Northern Europe", 
    "South America", "South-Eastern Asia", "Southern Asia", "Southern Europe", "Western Asia", "Western Europe"))
X <- rbind(
  X, Geo_1, Geo_2, Geo_3, Geo_4, Geo_5, Geo_6, Geo_7, Geo_8, Geo_9, Geo_10, Geo_11, Geo_12)

#DATA MANIPULATIONs on X
X <- X %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => Centroid_X | Centroid_Y
    Centroid_X = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 1],
    Centroid_Y = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 2],
    #New Variable(s) => Centroid_of_LARGEST_POLYGON_X, Centroid_of_LARGEST_POLYGON_Y
    Centroid_of_LARGEST_POLYGON_X = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 1],
    Centroid_of_LARGEST_POLYGON_Y = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 2]) %>%
  select(1, 3:6, 2) #Columns ORDER
X <- X %>% st_drop_geometry()

#DATA MANIPULATIONs on GeoRDATA_ContinentalSIREGIONs
GeoRDATA_ContinentalSIREGIONs <- left_join(
  GeoRDATA_ContinentalSIREGIONs, X, by = c("NAME" = "NAME")) %>%
  select(1:9, 12:15, 10:11) #Columns ORDER

#DATA MANIPULATIONs on GeoRDATA_ContinentalSIREGIONs
GeoRDATA_ContinentalSIREGIONs <- GeoRDATA_ContinentalSIREGIONs %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => BBOX_Centroid_X | BBOX_Centroid_Y
    BBOX_Centroid_X = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 1],
    BBOX_Centroid_Y = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 2]) %>% ungroup() %>%
  select(1:13, 16:17, 14:15) #Columns ORDER

################################
##### Save GeoDATA File(s) #####
################################

##### GeoRDATA_ContinentalSIREGIONs #####
# st_write( #Save GeoRDATA_ContinentalSIREGIONs as a GeoJSON File
#   GeoRDATA_ContinentalSIREGIONs,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/ContinentalSIREGIONs/GeoRDATA_ContinentalSIREGIONs.geojson", driver = "GeoJSON")
# RDATA_ContinentalSIREGIONs <- GeoRDATA_ContinentalSIREGIONs %>% st_drop_geometry() #Remove GEOMETRY Column
# write.xlsx( #Save XLSX File
#   RDATA_ContinentalSIREGIONs,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/ContinentalSIREGIONs/RDATA_ContinentalSIREGIONs.xlsx")
####################
##### GeoRDATA #####
####################

##### Geo. REGIONs #####
GeoRDATA_GeoREGIONs <- GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in GeoREGION
    GeoREGION = case_when(is.na(GeoREGION) ~ "Other Countries/Territories", TRUE ~ GeoREGION)) %>%
  #DATA MANIPULATIONs
  group_by(GeoREGION) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => AREA
    AREA = sum(AREA, na.rm = TRUE),
    #New Variable => GEOMETRY+
    geometry = st_combine(geometry)) %>%
  #Rename Column(s)
  rename(NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => CODE
    CODE = case_when(
      NAME == "Australia and New Zealand" ~ 927,
      NAME == "Central and Southern Asia" ~ 921,
      NAME == "Eastern and South-Eastern Asia" ~ 1832,
      NAME == "Europe and Northern America" ~ 1829,
      NAME == "Latin America and the Caribbean" ~ 1830,
      NAME == "Northern Africa and Western Asia" ~ 1833,
      NAME == "Oceania*" ~ 1835,
      NAME == "Sub-Saharan Africa" ~ 947),
    #New Variable => LabelR
    LabelR = paste0("<b>Geo. REGION: </b>", NAME),
    #New Variable => CLRCode
    CLRCode = c(
      "#FF0000", "#FF6600", "#339900", "#003366", "#33CCFF", "#FF9900", "#CC0000", "#999999", "#FF3399"),
    #New Variable => SOURCE
    SOURCE = case_when(
      NAME == "Other Countries/Territories" ~ "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques",
      NAME %in% c(
        "Central and Southern Asia", "Northern Africa and Western Asia", "Sub-Saharan Africa") ~ "World Health OrGanization (WHO) - Countries and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques",
      TRUE ~ "World Health OrGanization (WHO) - Countries and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques and Global Administrative Areas (GADM)")) %>%
      select(1, 4:6, 2, 7, 3) #Columns ORDER

#DATA MANIPULATIONs on GeoRDATA_GeoREGIONs
GeoRDATA_GeoREGIONs <- GeoRDATA_GeoREGIONs %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => AREA
    # AREA = round(as.numeric(gsub("\\[m\\^2\\]", "", st_area(geometry) / 1e6)), 5),
    #New Variable => BBOX_AREA
    BBOX_AREA = round(
      as.numeric(gsub("\\[m\\^2\\]", "", st_area(st_as_sfc(st_bbox(geometry))) / 1e6)), 5)) %>% ungroup() %>%
  select(1:5, 8, 6:7) #Columns ORDER

#DATA MANIPULATIONs on GeoDATA
X <- GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in GeoREGION
    GeoREGION = case_when(is.na(GeoREGION) ~ "Other Countries/Territories", TRUE ~ GeoREGION)) %>%
  #DATA MANIPULATIONs
  group_by(GeoREGION) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => GEOMETRY+
    geometry = st_union(geometry)) %>%
  #Rename Column(s)
  rename(NAME = 1)
X <- X[c(1:4, 6:10), ]

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- X %>% filter(NAME == "Central and Southern Asia")
Geo_2 <- X %>% filter(NAME == "Eastern and South-Eastern Asia")
Geo_3 <- X %>% filter(NAME == "Europe and Northern America")
Geo_4 <- X %>% filter(NAME == "Latin America and the Caribbean")
Geo_5 <- X %>% filter(NAME == "Northern Africa and Western Asia")
Geo_6 <- X %>% filter(NAME == "Sub-Saharan Africa")

##### CENTRAL AND SOUTHERN ASIA #####
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# st_is_valid(Geo_1)

##### EASTERN AND SOUTH-EASTERN ASIA #####
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
# st_is_valid(Geo_2)

##### EUROPE AND NORTHERN AMERICA #####
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
# st_is_valid(Geo_3)

##### LATIN AMERICA AND THE CARIBBEAN #####
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
# st_is_valid(Geo_4)

##### NORTHERN AFRICA AND WESTERN ASIA #####
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}
# st_is_valid(Geo_5)

##### SUB-SAHARAN AFRICA #####
if (st_is_valid(Geo_6) == FALSE) {Geo_6 <- st_make_valid(Geo_6)}
# st_is_valid(Geo_6)

#Replace GEOMETRIE(s)
X <- X %>% 
  filter(!NAME %in% c(
    "Central and Southern Asia", "Eastern and South-Eastern Asia", "Europe and Northern America", 
    "Latin America and the Caribbean", "Northern Africa and Western Asia", "Sub-Saharan Africa"))
X <- rbind(X, Geo_1, Geo_2, Geo_3, Geo_4, Geo_5, Geo_6)

#DATA MANIPULATIONs on X
X <- X %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => Centroid_X | Centroid_Y
    Centroid_X = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 1],
    Centroid_Y = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 2],
    #New Variable(s) => Centroid_of_LARGEST_POLYGON_X, Centroid_of_LARGEST_POLYGON_Y
    Centroid_of_LARGEST_POLYGON_X = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 1],
    Centroid_of_LARGEST_POLYGON_Y = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 2]) %>%
  select(1, 3:6, 2) #Columns ORDER
X <- X %>% st_drop_geometry()

#DATA MANIPULATIONs on GeoRDATA_GeoREGIONs
GeoRDATA_GeoREGIONs <- left_join(
  GeoRDATA_GeoREGIONs, X, by = c("NAME" = "NAME")) %>% select(1:6, 9:12, 7:8) #Columns ORDER

#DATA MANIPULATIONs on GeoRDATA_GeoREGIONs
GeoRDATA_GeoREGIONs <- GeoRDATA_GeoREGIONs %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => BBOX_Centroid_X | BBOX_Centroid_Y
    BBOX_Centroid_X = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 1],
    BBOX_Centroid_Y = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 2]) %>% ungroup() %>%
  select(1:10, 13:14, 11:12) #Columns ORDER

################################
##### Save GeoDATA File(s) #####
################################

##### GeoRDATA_GeoREGIONs #####
# st_write( #Save GeoRDATA_GeoREGIONs as a GeoJSON File
#   GeoRDATA_GeoREGIONs,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/GeoREGIONs/GeoRDATA_GeoREGIONs.geojson", driver = "GeoJSON")
# RDATA_GeoREGIONs <- GeoRDATA_GeoREGIONs %>% st_drop_geometry() #Remove GEOMETRY Column
# write.xlsx( #Save XLSX File
#   RDATA_GeoREGIONs,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/GeoREGIONs/RDATA_GeoREGIONs.xlsx")
####################
##### GeoRDATA #####
####################

##### MoreLess #####
GeoRDATA_MoreLess <- GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in MoreLess
    MoreLess = case_when(is.na(MoreLess) ~ "Other Countries/Territories", TRUE ~ MoreLess)) %>%
  #DATA MANIPULATIONs
  group_by(MoreLess) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => AREA
    AREA = sum(AREA, na.rm = TRUE),
    #New Variable => GEOMETRY+
    geometry = st_combine(geometry)) %>%
  #Rename Column(s)
  rename(NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in NAME
    NAME = case_when(
      NAME == "More Developed" ~ "More Developed Countries",
      NAME == "Less Developed" ~ "Less Developed Countries",
      NAME == "Other Countries/Territories" ~ "Other Countries/Territories"),
    #New Variable => CODE
    CODE = case_when(
      NAME == "More Developed Countries" ~ 901, 
      NAME == "Less Developed Countries" ~ 902),
    #New Variable => LabelR
    LabelR = paste0("<b>Development Level: </b>", NAME),
    #New Variable => CLRCode
    CLRCode = c("#FFCC00", "#339900", "#999999"),
    #New Variable => SOURCE
    SOURCE = case_when(
      NAME == "Other Countries/Territories" ~ "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques",
      TRUE ~ "World Health OrGanization (WHO) - Countries and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques and Global Administrative Areas (GADM)")) %>% 
      select(1, 4:6, 2, 7, 3) #Columns ORDER

#DATA MANIPULATIONs on GeoRDATA_MoreLess
GeoRDATA_MoreLess <- GeoRDATA_MoreLess %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => AREA
    # AREA = round(as.numeric(gsub("\\[m\\^2\\]", "", st_area(geometry) / 1e6)), 5),
    #New Variable => BBOX_AREA
    BBOX_AREA = round(
      as.numeric(gsub("\\[m\\^2\\]", "", st_area(st_as_sfc(st_bbox(geometry))) / 1e6)), 5)) %>% ungroup() %>%
  select(1:5, 8, 6:7) #Columns ORDER

#DATA MANIPULATIONs on GeoDATA
X <- GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in MoreLess
    MoreLess = case_when(is.na(MoreLess) ~ "Other Countries/Territories", TRUE ~ MoreLess)) %>%
  #DATA MANIPULATIONs
  group_by(MoreLess) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => GEOMETRY+
    geometry = st_union(geometry)) %>%
  #Rename Column(s)
  rename(NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in NAME
    NAME = case_when(
      NAME == "More Developed" ~ "More Developed Countries",
      NAME == "Less Developed" ~ "Less Developed Countries",
      NAME == "Other Countries/Territories" ~ "Other Countries/Territories"))
X <- X[2:4, ]

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- X %>% filter(NAME == "Less Developed Countries")
Geo_2 <- X %>% filter(NAME == "More Developed Countries")

##### LESS DEVELOPED COUNTRIES #####
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# st_is_valid(Geo_1)

##### MORE DEVELOPED COUNTRIES #####
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
# st_is_valid(Geo_2)

#Replace GEOMETRIE(s)
X <- X %>% 
  filter(!NAME %in% c("Less Developed Countries", "More Developed Countries"))
X <- rbind(X, Geo_1, Geo_2)

#DATA MANIPULATIONs on X
X <- X %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => Centroid_X | Centroid_Y
    Centroid_X = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 1],
    Centroid_Y = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 2],
    #New Variable(s) => Centroid_of_LARGEST_POLYGON_X, Centroid_of_LARGEST_POLYGON_Y
    Centroid_of_LARGEST_POLYGON_X = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 1],
    Centroid_of_LARGEST_POLYGON_Y = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 2]) %>%
  select(1, 3:6, 2) #Columns ORDER
X <- X %>% st_drop_geometry()

#DATA MANIPULATIONs on GeoRDATA_MoreLess
GeoRDATA_MoreLess <- left_join(
  GeoRDATA_MoreLess, X, by = c("NAME" = "NAME")) %>% select(1:6, 9:12, 7:8) #Columns ORDER

#DATA MANIPULATIONs on GeoRDATA_MoreLess
GeoRDATA_MoreLess <- GeoRDATA_MoreLess %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => BBOX_Centroid_X | BBOX_Centroid_Y
    BBOX_Centroid_X = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 1],
    BBOX_Centroid_Y = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 2]) %>% ungroup() %>%
  select(1:10, 13:14, 11:12) #Columns ORDER

################################
##### Save GeoDATA File(s) #####
################################

##### GeoRDATA_MoreLess #####
# st_write( #Save GeoRDATA_MoreLess as a GeoJSON File
#   GeoRDATA_MoreLess,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/DevLevels/MoreLess/GeoRDATA_MoreLess.geojson", driver = "GeoJSON")
# RDATA_MoreLess <- GeoRDATA_MoreLess %>% st_drop_geometry() #Remove GEOMETRY Column
# write.xlsx( #Save XLSX File
#   RDATA_MoreLess,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/DevLevels/MoreLess/RDATA_MoreLess.xlsx")
####################
##### GeoRDATA #####
####################

##### MoreLessLeast #####
GeoRDATA_MoreLessLeast <- GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in MoreLessLeast
    MoreLessLeast = case_when(is.na(MoreLessLeast) ~ "Other Countries/Territories", TRUE ~ MoreLessLeast)) %>%
  #DATA MANIPULATIONs
  group_by(MoreLessLeast) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => AREA
    AREA = sum(AREA, na.rm = TRUE),
    #New Variable => GEOMETRY+
    geometry = st_combine(geometry)) %>%
  #Rename Column(s)
  rename(NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in NAME
    NAME = case_when(
      NAME == "More Developed" ~ "More Developed Countries",
      NAME == "Less Developed*" ~ "Less Developed Countries*",
      NAME == "Least Developed" ~ "Least Developed Countries",
      NAME == "Other Countries/Territories" ~ "Other Countries/Territories"),
    #New Variable => CODE
    CODE = case_when(
      NAME == "More Developed Countries" ~ 901, 
      NAME == "Less Developed Countries*" ~ 934, 
      NAME == "Least Developed Countries" ~ 941),
    #New Variable => LabelR
    LabelR = paste0("<b>Development Level: </b>", NAME),
    #New Variable => CLRCode
    CLRCode = c("#FF9900", "#FFCC00", "#339900", "#999999"),
    #New Variable => SOURCE
    SOURCE = case_when(
      NAME == "Other Countries/Territories" ~ "Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques",
      NAME == "Least Developed Countries" ~ "World Health OrGanization (WHO) - Countries and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques",
      TRUE ~ "World Health OrGanization (WHO) - Countries and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques and Global Administrative Areas (GADM)")) %>% 
      select(1, 4:6, 2, 7, 3) #Columns ORDER

#DATA MANIPULATIONs on GeoRDATA_MoreLessLeast
GeoRDATA_MoreLessLeast <- GeoRDATA_MoreLessLeast %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => AREA
    # AREA = round(as.numeric(gsub("\\[m\\^2\\]", "", st_area(geometry) / 1e6)), 5),
    #New Variable => BBOX_AREA
    BBOX_AREA = round(
      as.numeric(gsub("\\[m\\^2\\]", "", st_area(st_as_sfc(st_bbox(geometry))) / 1e6)), 5)) %>% ungroup() %>%
  select(1:5, 8, 6:7) #Columns ORDER

#DATA MANIPULATIONs on GeoDATA
X <- GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in MoreLessLeast
    MoreLessLeast = case_when(is.na(MoreLessLeast) ~ "Other Countries/Territories", TRUE ~ MoreLessLeast)) %>%
  #DATA MANIPULATIONs
  group_by(MoreLessLeast) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => GEOMETRY+
    geometry = st_union(geometry)) %>%
  #Rename Column(s)
  rename(NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in NAME
    NAME = case_when(
      NAME == "More Developed" ~ "More Developed Countries",
      NAME == "Less Developed*" ~ "Less Developed Countries*",
      NAME == "Least Developed" ~ "Least Developed Countries",
      NAME == "Other Countries/Territories" ~ "Other Countries/Territories"))
X <- X[c(1, 3:5), ]

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- X %>% filter(NAME == "Least Developed Countries")
Geo_2 <- X %>% filter(NAME == "Less Developed Countries*")
Geo_3 <- X %>% filter(NAME == "More Developed Countries")

##### LEAST DEVELOPED COUNTRIES #####
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# st_is_valid(Geo_1)

##### LESS DEVELOPED COUNTRIES* #####
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
# st_is_valid(Geo_2)

##### MORE DEVELOPED COUNTRIES #####
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
# st_is_valid(Geo_3)

#Replace GEOMETRIE(s)
X <- X %>% 
  filter(!NAME %in% c("Least Developed Countries", "Less Developed Countries*", "More Developed Countries"))
X <- rbind(X, Geo_1, Geo_2, Geo_3)

#DATA MANIPULATIONs on X
X <- X %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => Centroid_X | Centroid_Y
    Centroid_X = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 1],
    Centroid_Y = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 2],
    #New Variable(s) => Centroid_of_LARGEST_POLYGON_X, Centroid_of_LARGEST_POLYGON_Y
    Centroid_of_LARGEST_POLYGON_X = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 1],
    Centroid_of_LARGEST_POLYGON_Y = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 2]) %>%
  select(1, 3:6, 2) #Columns ORDER
X <- X %>% st_drop_geometry()

#DATA MANIPULATIONs on GeoRDATA_MoreLessLeast
GeoRDATA_MoreLessLeast <- left_join(
  GeoRDATA_MoreLessLeast, X, by = c("NAME" = "NAME")) %>% select(1:6, 9:12, 7:8) #Columns ORDER

#DATA MANIPULATIONs on GeoRDATA_MoreLessLeast
GeoRDATA_MoreLessLeast <- GeoRDATA_MoreLessLeast %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => BBOX_Centroid_X | BBOX_Centroid_Y
    BBOX_Centroid_X = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 1],
    BBOX_Centroid_Y = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 2]) %>% ungroup() %>%
  select(1:10, 13:14, 11:12) #Columns ORDER

################################
##### Save GeoDATA File(s) #####
################################

##### GeoRDATA_MoreLessLeast #####
# st_write( #Save GeoRDATA_MoreLessLeast as a GeoJSON File
#   GeoRDATA_MoreLessLeast,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/DevLevels/MoreLessLeast/GeoRDATA_MoreLessLeast.geojson", driver = "GeoJSON")
# RDATA_MoreLessLeast <- GeoRDATA_MoreLessLeast %>% st_drop_geometry() #Remove GEOMETRY Column
# write.xlsx( #Save XLSX File
#   RDATA_MoreLessLeast,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/DevLevels/MoreLessLeast/RDATA_MoreLessLeast.xlsx")
####################
##### GeoRDATA #####
####################

##### LDC_LLDC_SIDS #####
GeoRDATA_LDC_LLDC_SIDS <- GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in DevLevel
    DevLevel = case_when(is.na(DevLevel) ~ "Other Countries/Territories", TRUE ~ DevLevel)) %>%
  #DATA MANIPULATIONs
  group_by(DevLevel) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => AREA
    AREA = sum(AREA, na.rm = TRUE),
    #New Variable => GEOMETRY+
    geometry = st_combine(geometry)) %>%
  #Rename Column(s)
  rename(NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in NAME
    NAME = case_when(
      NAME == "LDC*" ~ "Least Developed Countries* (LDC*)",
      NAME == "LLDC*" ~ "Land Locked Developing Countries* (LLDC*)",
      NAME == "SIDS*" ~ "Small Island Developing States* (SIDS*)",
      NAME == "LDC | LLDC" ~ "LDC | LLDC",
      NAME == "LDC | SIDS" ~ "LDC | SIDS",
      NAME == "Other Countries/Territories" ~ "Other Countries/Territories"),
    #New Variable => CODE
    CODE = case_when(
      NAME == "Least Developed Countries* (LDC*)" ~ 942, 
      NAME == "Land Locked Developing Countries* (LLDC*)" ~ 1638, 
      NAME == "Small Island Developing States* (SIDS*)" ~ 1639,
      NAME == "LDC | LLDC" ~ 1640, 
      NAME == "LDC | SIDS" ~ 1641),
    #New Variable => LabelR
    LabelR = paste0("<b>Development Level: </b>", NAME),
    #New Variable => CLRCode
    CLRCode = c("#FF9900", "#72C02C", "#F1C40F", "#E74C3C", "#999999", "#5B92E5"),
    #New Variable => SOURCE
    SOURCE = case_when(
      NAME %in% c(
        "Least Developed Countries* (LDC*)", "Land Locked Developing Countries* (LLDC*)", 
        "LDC | LLDC", "LDC | SIDS") ~ "World Health OrGanization (WHO) - Countries and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques",
      TRUE ~ "World Health OrGanization (WHO) - Countries and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques and Global Administrative Areas (GADM)")) %>% 
      select(1, 4:6, 2, 7, 3) #Columns ORDER

#DATA MANIPULATIONs on GeoRDATA_LDC_LLDC_SIDS
GeoRDATA_LDC_LLDC_SIDS <- GeoRDATA_LDC_LLDC_SIDS %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => AREA
    # AREA = round(as.numeric(gsub("\\[m\\^2\\]", "", st_area(geometry) / 1e6)), 5),
    #New Variable => BBOX_AREA
    BBOX_AREA = round(
      as.numeric(gsub("\\[m\\^2\\]", "", st_area(st_as_sfc(st_bbox(geometry))) / 1e6)), 5)) %>% ungroup() %>%
  select(1:5, 8, 6:7) #Columns ORDER

#DATA MANIPULATIONs on GeoDATA
X <- GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in DevLevel
    DevLevel = case_when(is.na(DevLevel) ~ "Other Countries/Territories", TRUE ~ DevLevel)) %>%
  #DATA MANIPULATIONs
  group_by(DevLevel) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => GEOMETRY+
    geometry = st_union(geometry)) %>%
  #Rename Column(s)
  rename(NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in NAME
    NAME = case_when(
      NAME == "LDC*" ~ "Least Developed Countries* (LDC*)",
      NAME == "LLDC*" ~ "Land Locked Developing Countries* (LLDC*)",
      NAME == "SIDS*" ~ "Small Island Developing States* (SIDS*)",
      NAME == "LDC | LLDC" ~ "LDC | LLDC",
      NAME == "LDC | SIDS" ~ "LDC | SIDS",
      NAME == "Other Countries/Territories" ~ "Other Countries/Territories"))
X <- X[c(1:2, 4:5, 7:8), ]

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- X %>% filter(NAME == "Least Developed Countries* (LDC*)")
Geo_2 <- X %>% filter(NAME == "Land Locked Developing Countries* (LLDC*)")
Geo_3 <- X %>% filter(NAME == "Small Island Developing States* (SIDS*)")
Geo_4 <- X %>% filter(NAME == "LDC | LLDC")
Geo_5 <- X %>% filter(NAME == "Other Countries/Territories")

##### LEAST DEVELOPED COUNTRIES* #####
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# st_is_valid(Geo_1)

##### LAND LOCKED DEVELOPING COUNTRIES* #####
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
# st_is_valid(Geo_2)

##### SMALL ISLANDS DEVELOPING STATES #####
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
# st_is_valid(Geo_3)

##### LDC | LLDC #####
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
# st_is_valid(Geo_4)

##### OTHER COUNTRIES/TERRITORIES #####
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}
# st_is_valid(Geo_5)

#Replace GEOMETRIE(s)
X <- X %>% 
  filter(!NAME %in% c(
    "Least Developed Countries* (LDC*)", "Land Locked Developing Countries* (LLDC*)", 
    "Small Island Developing States* (SIDS*)", "LDC | LLDC", "Other Countries/Territories"))
X <- rbind(X, Geo_1, Geo_2, Geo_3, Geo_4, Geo_5)

#DATA MANIPULATIONs on X
X <- X %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => Centroid_X | Centroid_Y
    Centroid_X = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 1],
    Centroid_Y = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 2],
    #New Variable(s) => Centroid_of_LARGEST_POLYGON_X, Centroid_of_LARGEST_POLYGON_Y
    Centroid_of_LARGEST_POLYGON_X = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 1],
    Centroid_of_LARGEST_POLYGON_Y = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 2]) %>%
  select(1, 3:6, 2) #Columns ORDER
X <- X %>% st_drop_geometry()

#DATA MANIPULATIONs on GeoRDATA_LDC_LLDC_SIDS
GeoRDATA_LDC_LLDC_SIDS <- left_join(
  GeoRDATA_LDC_LLDC_SIDS, X, by = c("NAME" = "NAME")) %>% select(1:6, 9:12, 7:8) #Columns ORDER

#DATA MANIPULATIONs on GeoRDATA_LDC_LLDC_SIDS
GeoRDATA_LDC_LLDC_SIDS <- GeoRDATA_LDC_LLDC_SIDS %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => BBOX_Centroid_X | BBOX_Centroid_Y
    BBOX_Centroid_X = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 1],
    BBOX_Centroid_Y = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 2]) %>% ungroup() %>%
  select(1:10, 13:14, 11:12) #Columns ORDER

################################
##### Save GeoDATA File(s) #####
################################

##### GeoRDATA_LDC_LLDC_SIDS #####
# st_write( #Save GeoRDATA_LDC_LLDC_SIDS as a GeoJSON File
#   GeoRDATA_LDC_LLDC_SIDS,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/DevLevels/LDC_LLDC_SIDS/GeoRDATA_LDC_LLDC_SIDS.geojson",
#   driver = "GeoJSON")
# RDATA_LDC_LLDC_SIDS <- GeoRDATA_LDC_LLDC_SIDS %>% st_drop_geometry() #Remove GEOMETRY Column
# write.xlsx( #Save XLSX File
#   RDATA_LDC_LLDC_SIDS,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/DevLevels/LDC_LLDC_SIDS/RDATA_LDC_LLDC_SIDS.xlsx")
####################
##### GeoRDATA #####
####################

##### IncomeLevels #####
GeoRDATA_IncomeLevels <- GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in IncomeLevel
    IncomeLevel = case_when(is.na(IncomeLevel) ~ "Other Countries/Territories", TRUE ~ IncomeLevel)) %>%
  #DATA MANIPULATIONs
  group_by(IncomeLevel) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => AREA
    AREA = sum(AREA, na.rm = TRUE),
    #New Variable => GEOMETRY+
    geometry = st_combine(geometry)) %>%
  #Rename Column(s)
  rename(NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in NAME
    NAME = case_when(
      NAME == "HIGH" ~ "High-Income Countries",
      NAME == "UPPER-MIDDLE" ~ "Upper-Middle-Income Countries",
      NAME == "LOWER-MIDDLE" ~ "Lower-Middle-Income Countries",
      NAME == "LOW" ~ "Low Income Countries",
      NAME == "Other Countries/Territories" ~ "Other Countries/Territories"),
    #New Variable => CODE
    CODE = case_when(
      NAME == "High-Income Countries" ~ 1503, 
      NAME == "Upper-Middle-Income Countries" ~ 1502, 
      NAME == "Lower-Middle-Income Countries" ~ 1501,
      NAME == "Low Income Countries" ~ 1500),
    #New Variable => LabelR
    LabelR = paste0("<b>Income Level (2020): </b>", NAME),
    #New Variable => CLRCode
    CLRCode = c("#0F8554", "#7B3294", "#A885B7", "#999999", "#8DCE92"),
    #New Variable => SOURCE
    SOURCE = case_when(
      TRUE ~ "World Health OrGanization (WHO) - Countries and Fondation Jean-Jacques Laffont - Toulouse Sciences Economiques and Global Administrative Areas (GADM)")) %>% 
      select(1, 4:6, 2, 7, 3) #Columns ORDER

#DATA MANIPULATIONs on GeoRDATA_IncomeLevels
GeoRDATA_IncomeLevels <- GeoRDATA_IncomeLevels %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable => AREA
    # AREA = round(as.numeric(gsub("\\[m\\^2\\]", "", st_area(geometry) / 1e6)), 5),
    #New Variable => BBOX_AREA
    BBOX_AREA = round(
      as.numeric(gsub("\\[m\\^2\\]", "", st_area(st_as_sfc(st_bbox(geometry))) / 1e6)), 5)) %>% ungroup() %>%
  select(1:5, 8, 6:7) #Columns ORDER

#DATA MANIPULATIONs on GeoDATA
X <- GeoDATA %>% 
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in IncomeLevel
    IncomeLevel = case_when(is.na(IncomeLevel) ~ "Other Countries/Territories", TRUE ~ IncomeLevel)) %>%
  #DATA MANIPULATIONs
  group_by(IncomeLevel) %>%
  #DATA MANIPULATIONs
  summarize(
    #New Variable => GEOMETRY+
    geometry = st_union(geometry)) %>%
  #Rename Column(s)
  rename(NAME = 1) %>%
  #DATA MANIPULATIONs
  mutate(
    #Replace Values in NAME
    NAME = case_when(
      NAME == "HIGH" ~ "High-Income Countries",
      NAME == "UPPER-MIDDLE" ~ "Upper-Middle-Income Countries",
      NAME == "LOWER-MIDDLE" ~ "Lower-Middle-Income Countries",
      NAME == "LOW" ~ "Low Income Countries",
      NAME == "Other Countries/Territories" ~ "Other Countries/Territories"))
X <- X[c(1:3, 5:6), ]

################################
##### Geometric Operations #####
################################

##### COUNTRIE(s) #####
Geo_1 <- X %>% filter(NAME == "High-Income Countries")
Geo_2 <- X %>% filter(NAME == "Upper-Middle-Income Countries")
Geo_3 <- X %>% filter(NAME == "Lower-Middle-Income Countries")
Geo_4 <- X %>% filter(NAME == "Low Income Countries")
Geo_5 <- X %>% filter(NAME == "Other Countries/Territories")

##### HIGH-INCOME COUNTRIES #####
if (st_is_valid(Geo_1) == FALSE) {Geo_1 <- st_make_valid(Geo_1)}
# st_is_valid(Geo_1)

##### UPPER-MIDDLE-INCOME COUNTRIES #####
if (st_is_valid(Geo_2) == FALSE) {Geo_2 <- st_make_valid(Geo_2)}
# st_is_valid(Geo_2)

##### LOWER-MIDDLE-INCOME COUNTRIES #####
if (st_is_valid(Geo_3) == FALSE) {Geo_3 <- st_make_valid(Geo_3)}
# st_is_valid(Geo_3)

##### LOW-INCOME COUNTRIES #####
if (st_is_valid(Geo_4) == FALSE) {Geo_4 <- st_make_valid(Geo_4)}
# st_is_valid(Geo_4)

##### OTHER COUNTRIES/TERRITORIES #####
if (st_is_valid(Geo_5) == FALSE) {Geo_5 <- st_make_valid(Geo_5)}
# st_is_valid(Geo_5)

#Replace GEOMETRIE(s)
X <- X %>% 
  filter(!NAME %in% c(
    "High-Income Countries", "Upper-Middle-Income Countries", "Lower-Middle-Income Countries", "Low Income Countries", "Other Countries/Territories"))
X <- rbind(X, Geo_1, Geo_2, Geo_3, Geo_4, Geo_5)

#DATA MANIPULATIONs on X
X <- X %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => Centroid_X | Centroid_Y
    Centroid_X = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 1],
    Centroid_Y = st_coordinates(st_sfc(st_centroid(geometry, of_largest_polygon = FALSE)))[, 2],
    #New Variable(s) => Centroid_of_LARGEST_POLYGON_X, Centroid_of_LARGEST_POLYGON_Y
    Centroid_of_LARGEST_POLYGON_X = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 1],
    Centroid_of_LARGEST_POLYGON_Y = st_coordinates(
      st_sfc(st_centroid(geometry, of_largest_polygon = TRUE)))[, 2]) %>%
  select(1, 3:6, 2) #Columns ORDER
X <- X %>% st_drop_geometry()

#DATA MANIPULATIONs on GeoRDATA_IncomeLevels
GeoRDATA_IncomeLevels <- left_join(
  GeoRDATA_IncomeLevels, X, by = c("NAME" = "NAME")) %>% select(1:6, 9:12, 7:8) #Columns ORDER

#DATA MANIPULATIONs on GeoRDATA_IncomeLevels
GeoRDATA_IncomeLevels <- GeoRDATA_IncomeLevels %>% rowwise() %>%
  #DATA MANIPULATIONs
  mutate(
    #New Variable(s) => BBOX_Centroid_X | BBOX_Centroid_Y
    BBOX_Centroid_X = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 1],
    BBOX_Centroid_Y = st_coordinates(
      st_sfc(st_centroid(st_as_sfc(st_bbox(geometry)), of_largest_polygon = FALSE)))[, 2]) %>% ungroup() %>%
  select(1:10, 13:14, 11:12) #Columns ORDER

################################
##### Save GeoDATA File(s) #####
################################

##### GeoRDATA_IncomeLevels #####
# st_write( #Save GeoRDATA_IncomeLevels as a GeoJSON File
#   GeoRDATA_IncomeLevels,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/IncomeLevels/GeoRDATA_IncomeLevels.geojson",
#   driver = "GeoJSON")
# RDATA_IncomeLevels <- GeoRDATA_IncomeLevels %>% st_drop_geometry() #Remove GEOMETRY Column
# write.xlsx( #Save XLSX File
#   RDATA_IncomeLevels,
#   "UI_and_SERVER/CLIMINET/Données/Geo/REGIONs/IncomeLevels/RDATA_IncomeLevels.xlsx")
#```{r, fig.width=8}
#Interactive WorldM+
leaflet() %>%
  addTiles(options = tileOptions(minZoom = 1, maxZoom = 10, maxNativeZoom = 18)) %>%
  addScaleBar(position = "bottomleft") %>%
  addPolygons(data = GeoDATA, group = "275 Countries/Territories",
              stroke = TRUE, color = "#0000FF", weight = 1.5, opacity = 0.75,
              fill = TRUE, fillOpacity = 0.25, label = ~lapply(Label, htmltools::HTML),
              highlightOptions = highlightOptions(
                stroke = TRUE, color = "#99FF66", weight = 1.5, opacity = 0.75,
                fill = TRUE, fillColor = "#99FF66", fillOpacity = 0.25)) %>%
  addPolygons(data = GeoRDATA_ContinentalREGIONs, group = "7 Continental REGIONs",
              stroke = TRUE, color = "#CCCCCC", weight = 0.5, opacity = 0.5,
              fill = TRUE, fillColor = ~CLRCode, fillOpacity = 0.75, label = ~lapply(LabelR, htmltools::HTML),
              highlightOptions = highlightOptions(
                stroke = TRUE, color = "#99FF66", weight = 1.5, opacity = 0.75,
                fill = TRUE, fillColor = NULL, fillOpacity = 1)) %>%
  addPolygons(data = GeoRDATA_ContinentalSIREGIONs, group = "22 Continental Sub-REGIONs/Intermediate REGIONs",
              stroke = TRUE, color = "#CCCCCC", weight = 0.5, opacity = 0.5,
              fill = TRUE, fillColor = ~CLRCode, fillOpacity = 0.75, label = ~lapply(LabelR, htmltools::HTML),
              highlightOptions = highlightOptions(
                stroke = TRUE, color = "#99FF66", weight = 1.5, opacity = 0.75,
                fill = TRUE, fillColor = NULL, fillOpacity = 1)) %>%
  addPolygons(data = GeoRDATA_GeoREGIONs, group = "8 Geo. REGIONs",
              stroke = TRUE, color = "#CCCCCC", weight = 0.5, opacity = 0.5,
              fill = TRUE, fillColor = ~CLRCode, fillOpacity = 0.75, label = ~lapply(LabelR, htmltools::HTML),
              highlightOptions = highlightOptions(
                stroke = TRUE, color = "#99FF66", weight = 1.5, opacity = 0.75,
                fill = TRUE, fillColor = NULL, fillOpacity = 1)) %>%
  addPolygons(data = GeoRDATA_MoreLess, group = "2 Development Levels (MoreLess)",
              stroke = TRUE, color = "#CCCCCC", weight = 0.5, opacity = 0.5,
              fill = TRUE, fillColor = ~CLRCode, fillOpacity = 0.75, label = ~lapply(LabelR, htmltools::HTML),
              highlightOptions = highlightOptions(
                stroke = TRUE, color = "#99FF66", weight = 1.5, opacity = 0.75,
                fill = TRUE, fillColor = NULL, fillOpacity = 1)) %>%
  addPolygons(data = GeoRDATA_MoreLessLeast, group = "3 Development Levels (MoreLessLeast)",
              stroke = TRUE, color = "#CCCCCC", weight = 0.5, opacity = 0.5,
              fill = TRUE, fillColor = ~CLRCode, fillOpacity = 0.75, label = ~lapply(LabelR, htmltools::HTML),
              highlightOptions = highlightOptions(
                stroke = TRUE, color = "#99FF66", weight = 1.5, opacity = 0.75,
                fill = TRUE, fillColor = NULL, fillOpacity = 1)) %>%
  addPolygons(data = GeoRDATA_LDC_LLDC_SIDS, group = "5 Development Levels (DevLevel)",
              stroke = TRUE, color = "#CCCCCC", weight = 0.5, opacity = 0.5,
              fill = TRUE, fillColor = ~CLRCode, fillOpacity = 0.75, label = ~lapply(LabelR, htmltools::HTML),
              highlightOptions = highlightOptions(
                stroke = TRUE, color = "#99FF66", weight = 1.5, opacity = 0.75,
                fill = TRUE, fillColor = NULL, fillOpacity = 1)) %>%
  addPolygons(data = GeoRDATA_IncomeLevels, group = "4 Income Levels",
              stroke = TRUE, color = "#CCCCCC", weight = 0.5, opacity = 0.5,
              fill = TRUE, fillColor = ~CLRCode, fillOpacity = 0.75, label = ~lapply(LabelR, htmltools::HTML),
              highlightOptions = highlightOptions(
                stroke = TRUE, color = "#99FF66", weight = 1.5, opacity = 0.75,
                fill = TRUE, fillColor = NULL, fillOpacity = 1)) %>%
  addLayersControl(overlayGroups = c(
    "275 Countries/Territories",
    "7 Continental REGIONs", "22 Continental Sub-REGIONs/Intermediate REGIONs",
    "8 Geo. REGIONs",
    "2 Development Levels (MoreLess)", "3 Development Levels (MoreLessLeast)",
    "5 Development Levels (DevLevel)",
    "4 Income Levels"),
    position = "bottomright", options = layersControlOptions(collapsed = TRUE)) %>%
  hideGroup(c("7 Continental REGIONs", "22 Continental Sub-REGIONs/Intermediate REGIONs",
              "8 Geo. REGIONs",
              "2 Development Levels (MoreLess)", "3 Development Levels (MoreLessLeast)",
              "5 Development Levels (DevLevel)",
              "4 Income Levels"))

10 Geometries’ Sizes Comparison

We compare Geospatial Databases’ Sizes with the barplot below.

GeoDATA_NAMEs <- list(
  GeoHUB = GeoDATA_from_GeoHUB, WHO = GeoDATA_from_WHO, GADM = GeoDATA_from_GADM_level_0_low_resolution,
  NaturalEarth = GeoDATA_from_Natural_Earth, WorldBank = GeoDATA_from_World_Bank, GeoDATA = GeoDATA, CCMN_GeoDATA = CCMN_GeoDATA)

GeoDATA_NAMEs_ <- c("GeoHUB", "WHO", "GADM", "NaturalEarth", "WorldBank", "GeoDATA", "CCMN_GeoDATA")

All_GeoDATA <- data.frame(
  NAME = GeoDATA_NAMEs_, AREAs = sapply(GeoDATA_NAMEs, nrow),
  SIZE_in_MB = sapply(GeoDATA_NAMEs, function(x) round(as.numeric(object.size(x) / 1024^2), 3)))

All_GeoDATA$NAME <- factor(All_GeoDATA$NAME, levels = All_GeoDATA$NAME)

ggplot(All_GeoDATA, aes(x = NAME, y = SIZE_in_MB)) +
  geom_bar(stat = "identity", fill = "#337AB7") +
  geom_text(aes(label = paste(AREAs, "Countries")), vjust = -0.5, size = 3.05) +
  labs(title = "Sizes Comparison - Geospatial Databases", x = "Geospatial Database", y = "Size") +
  scale_y_continuous(labels = scales::label_number(suffix = " MB")) +
  theme_minimal() +
  theme(plot.title = element_text(hjust = 0.5), axis.text.x = element_text(hjust = 0.5))

Our Geospatial Databases’ Sizes (GeoDATA | CCMN_GeoDATA) are slightly larger than all except GADM, but these databases contain more countries. Moreover, Our Geospatial Databases’ Sizes (GeoDATA | CCMN_GeoDATA) are much smaller than that of GADM.

We compare Geometries’ Sizes. Are Geometries’ Sizes smaller or larger than those in Other Geospatial Databases?

We compute the relative size of Geometries from CCMN_GeoDATA in comparison to the Geometries from Other Geospatial Databases.

Interpretation(s):

  • RSIZE \(=\) 0.5, Geo’ Size from CCMN_GeoDATA is 0.5 \(\times\) Geo’s Size from Other Geospatial Database
  • RSIZE \(=\) 2, Geo’ Size from CCMN_GeoDATA is 2 \(\times\) Geo’s Size from Other Geospatial Database

We compute the difference (%) in size between Geometries from CCMN_GeoDATA and Geometries from Other Geospatial Databases.

Interpretation(s):

  • DSIZE \(=\) 0.5, Geo’ Size from CCMN_GeoDATA is 0.5% \(<\) Geo’s Size from Other Geospatial Database
  • DSIZE \(=\) 2, Geo’ Size from CCMN_GeoDATA is 2% \(>\) Geo’s Size from Other Geospatial Database

In the plot below, a value of \(0\) is assigned if the relative size is \(>\) than \(1\), a value of \(1\) if the relative size is \(<\) than or \(=\) to \(1\), and a value of \(x\) if there is no correspondence between the two databases. So, the more \(1\) values there are, the more Geometries in CCMN_GeoDATA are \(<\) than or \(=\) to those in Other Geospatial Databases.

CCMN_DATA <- CCMN_GeoDATA %>% st_drop_geometry()
N <- 0
X <- data.frame()
for (VNAME in CCMN_DATA$VISUALIZATION_NAME) {
  
  N <- N + 1
  # print(paste0("PROGRESSION: ", N, "/", length(CCMN_DATA$NAME)))
  
  CCMN_Geo <- CCMN_GeoDATA %>% filter(VISUALIZATION_NAME == VNAME)
  CCMN_SIZE <- object.size(st_geometry(CCMN_Geo)) #SIZE in KB
  
  if(VNAME %in% GeoDATA_from_WHO$VISUALIZATION_NAME) {
    WHO_Geo <-  GeoDATA_from_WHO %>% filter(VISUALIZATION_NAME == VNAME)
    WHO_SIZE <- object.size(st_geometry(WHO_Geo)) #SIZE in KB 
  } else {WHO_SIZE <- NA}
  
  if(VNAME %in% GeoDATA_from_GADM_level_0_low_resolution$NAME) {
    GADM_Geo <-  GeoDATA_from_GADM_level_0_low_resolution %>% filter(NAME == VNAME)
    GADM_SIZE <- object.size(st_geometry(GADM_Geo)) #SIZE in KB 
  } else {GADM_SIZE <- NA}
  
  if(VNAME %in% GeoDATA_from_Natural_Earth$BRK_NAME) {
    NE_Geo <-  GeoDATA_from_Natural_Earth %>% filter(BRK_NAME == VNAME)
    NE_SIZE <- object.size(st_geometry(NE_Geo)) #SIZE in KB 
  } else {NE_SIZE <- NA}
  
  x <- data.frame(
    NAME = CCMN_Geo$NAME, ISO3 = CCMN_Geo$ISO3, CCMN_SIZE = CCMN_SIZE,
    WHO_SIZE = WHO_SIZE, 
    RSIZE_TO_WHO =  round((CCMN_SIZE / WHO_SIZE), 2), 
    DSIZE_TO_WHO = round(((CCMN_SIZE - WHO_SIZE) / WHO_SIZE) * 100, 0),
    GADM_SIZE = GADM_SIZE, 
    RSIZE_TO_GADM =  round((CCMN_SIZE / GADM_SIZE), 2), 
    DSIZE_TO_GADM = round(((CCMN_SIZE - GADM_SIZE) / GADM_SIZE) * 100, 0),
    NE_SIZE = NE_SIZE, 
    RSIZE_TO_NE =  round((CCMN_SIZE / NE_SIZE), 2),
    DSIZE_TO_NE = round(((CCMN_SIZE - NE_SIZE) / NE_SIZE) * 100, 0))
  X <- rbind(X, x)
  
}

X <- X %>% mutate(
  CCMN_WHO = case_when(is.na(RSIZE_TO_WHO) ~ "x", RSIZE_TO_WHO > 1 ~ "0", RSIZE_TO_WHO <= 1 ~ "1"),
  CCMN_GADM = case_when(is.na(RSIZE_TO_GADM) ~ "x", RSIZE_TO_GADM > 1 ~ "0", RSIZE_TO_GADM <= 1 ~ "1"),
  CCMN_NE = case_when(is.na(RSIZE_TO_NE) ~ "x", RSIZE_TO_NE > 1 ~ "0", RSIZE_TO_NE <= 1 ~ "1"))

COUNTs <- X %>% select(13:15) %>%
  pivot_longer(cols = everything(), names_to = "Column", values_to = "Value") %>% 
  group_by(Column, Value) %>%
  summarize(N = n(), .groups = "drop")

ggplot(COUNTs, aes(x = Value, y = N, fill = Column)) +
  geom_bar(stat = "identity", position = "dodge") +
  labs(title = "Counts of 0, 1, and x Relative Size Indicators", y = "Frequence") +
  theme_minimal() +
  theme(plot.title = element_text(hjust = 0.5), legend.title = element_blank())

CCMN_GeoDATA contains more smaller Geometries than larger Geometries compared with GADM. But, this is not the case with Other Geospatial Databases.

# SIZEs <- X %>% select(1, 3:4, 7, 10) %>%
#   pivot_longer(cols = -NAME, names_to = "Variable", values_to = "Value")
# 
# ggplot(SIZEs, aes(x = NAME, y = Value, fill = Variable)) +
#   geom_bar(stat = "identity", position = "dodge") +
#   labs(title = "...", x = "COUNTRY", y = "SIZE in KB") +
#   theme_minimal() +
#   theme(
#     plot.title = element_text(hjust = 0.5), 
#     legend.title = element_blank(), 
#     axis.text.x = element_text(angle = 90, hjust = 0.5, size = 2))

We look at the distribution of the relative size of Geometries from CCMN_GeoDATA in comparison to the Geometries from Other Geospatial Databases. The vertical red line indicates a relative value equal to \(1\).

ggplot(X, aes(x = RSIZE_TO_WHO)) +
  geom_histogram(binwidth = 0.20, fill = "#007BC2", color = "#FAFAFA", boundary = 0.0) +
  geom_vline(xintercept = 1, color = "red", linetype = "dashed") +
  labs(title = "Distribution of Relative Size - WHO (Bin = 0.20)", x = "Relative Size To WHO", y = "Frequence") +
  theme_minimal() +
  theme(plot.title = element_text(hjust = 0.5))

ggplot(X, aes(x = RSIZE_TO_GADM)) +
  geom_histogram(binwidth = 0.10, fill = "#007BC2", color = "#FAFAFA", boundary = 0.0) +
  geom_vline(xintercept = 1, color = "red", linetype = "dashed") +
  labs(title = "Distribution of Relative Size - GADM (Bin = 0.10)", x = "Relative Size To GADM", y = "Frequence") +
  theme_minimal() +
  theme(plot.title = element_text(hjust = 0.5))

ggplot(X, aes(x = RSIZE_TO_NE)) +
  geom_histogram(binwidth = 0.20, fill = "#007BC2", color = "#FAFAFA", boundary = 0.0) +
  geom_vline(xintercept = 1, color = "red", linetype = "dashed") +
  labs(title = "Distribution of Relative Size - Natural Earth (Bin = 0.20)", x = "Relative Size To Natural Earth", y = "Frequence") +
  theme_minimal() +
  theme(plot.title = element_text(hjust = 0.5))

Compared with GADM, most of the relative values are \(<\) than \(1\), with the rest of the values no \(>\) than \(2\). Whereas for the Other Two Geospatial Databases, the number of values \(<\) than \(1\) compared to the number of values \(>\) than \(1\) is not clear, and there are still many values \(>\) than \(1\), with values of up to \(5\) or more.

We look at the distribution of the difference in size between Geometries from CCMN_GeoDATA and Geometries from Other Geospatial Databases. The vertical red line indicates a difference in size value equal to 100%.

ggplot(X, aes(x = DSIZE_TO_WHO)) +
  geom_histogram(binwidth = 20, fill = "#007BC2", color = "#FAFAFA", boundary = -40) +
  geom_vline(xintercept = 0, color = "red", linetype = "dashed") +
  labs(title = "Distribution of Difference in Size - WHO (Bin = 20)", x = "Difference in Size with WHO (%)", y = "Frequence") +
  theme_minimal() +
  theme(plot.title = element_text(hjust = 0.5))

ggplot(X, aes(x = DSIZE_TO_GADM)) +
  geom_histogram(binwidth = 10, fill = "#007BC2", color = "#FAFAFA", boundary = -100) +
  geom_vline(xintercept = 0, color = "red", linetype = "dashed") +
  labs(title = "Distribution of Difference in Size - GADM (Bin = 10)", x = "Difference in Size with GADM (%)", y = "Frequence") +
  theme_minimal() +
  theme(plot.title = element_text(hjust = 0.5))

ggplot(X, aes(x = DSIZE_TO_NE)) +
  geom_histogram(binwidth = 20, fill = "#007BC2", color = "#FAFAFA", boundary = -80) +
  geom_vline(xintercept = 0, color = "red", linetype = "dashed") +
  labs(title = "Distribution of Difference in Size - Natural Earth (Bin = 20)", x = "Difference in Size with Natural Earth (%)", y = "Frequence") +
  theme_minimal() +
  theme(plot.title = element_text(hjust = 0.5))

Compared with GADM, most of the difference in size values are \(<\) than 100%, with the rest of the values no \(>\) than 200%. Whereas for the Other Two Geospatial Databases, the number of values \(<\) than 100% compared to the number of values \(>\) than 100% is not clear, and there are still many values \(>\) than 100%, with values of up to 500% or more.

Remarks :

  • GeoDATA | CCMN_GeoDATA is not as precise/accurate as GeoDATA_from_GADM
  • CCMN_GeoDATA Sizes \(<\) GeoDATA_from_GADM Size \(\Rightarrow\) BETTER FLUIDITY in DEA
  • GeoDATA is a more comprehensive Geospatial Database

11 Climate Data (No. Obs.)

We will use Geospatial Data to retrieve Climate Data for our Data Exploration Application (DEA).

Climate Data is available on a Grid of Spatial Points spaced every 0.5 degrees in latitude (from -90° to 90°) and every 0.625 degrees in longitude (from -180° to 180°).

In the plot below, a value of \(0\) is assigned if there is \(0\) Spatial Points in the country’s/territory’s Geometries, a value of \(0 < . < 10\) if there is are one or more Spatial Points and the number of Spatial Points is less than \(10\), and a value of \(10+\) if there are \(10\) or more Spatial Points.

SpatialGrid <- expand.grid(
  LONGITUDEs = seq(-179.5, 179.5, by = 0.625), LATITUDEs = seq(-89.5, 89.5, by = 0.5)) %>%
  st_as_sf(coords = c("LONGITUDEs", "LATITUDEs"), crs = EPSG_4326)

INTERSECTIONs <- st_intersects(CCMN_GeoDATA, SpatialGrid)
CCMN_GeoDATA$CCMN_sPOINTs <- sapply(INTERSECTIONs, length)
X <- CCMN_GeoDATA %>% st_drop_geometry() %>% select(1, 36:37)

# INTERSECTIONs <- st_intersects(GeoDATA_from_WHO, SpatialGrid)
# GeoDATA_from_WHO$WHO_sPOINTs <- sapply(INTERSECTIONs, length)

# INTERSECTIONs <- st_intersects(GeoDATA_from_GADM_level_0_low_resolution, SpatialGrid)
# GeoDATA_from_GADM_level_0_low_resolution$GADM_sPOINTs <- sapply(INTERSECTIONs, length)
 
# INTERSECTIONs <- st_intersects(GeoDATA_from_Natural_Earth, SpatialGrid)
# GeoDATA_from_Natural_Earth$NE_sPOINTs <- sapply(INTERSECTIONs, length)
X <- X %>% mutate(
  TEN_sPOINTs = case_when(
    CCMN_sPOINTs == 0 ~ "0", 
    CCMN_sPOINTs > 0 & CCMN_sPOINTs < 10 ~ "0 < . < 10", 
    CCMN_sPOINTs >= 10 ~ "10+"))

COUNTs <- X %>% select(4) %>%
  pivot_longer(cols = everything(), names_to = "Column", values_to = "Value") %>% 
  group_by(Column, Value) %>%
  summarize(N = n(), .groups = "drop")

ggplot(COUNTs, aes(x = Value, y = N)) +
  geom_bar(stat = "identity", fill = "#337AB7") +
  geom_text(aes(label = N), vjust = -0.5, size = 4.5) +
  labs(title = "Counts of 0, 0 < . < 10, and 10+ Number of Spatial Points Indicators", x = "Number of Spatial Points", y = "Frequence") +
  theme_minimal() +
  theme(plot.title = element_text(hjust = 0.5))

There are 144/262 countries with \(10\) or more climate observations, 66/262 countries with no climate observations.

Remarks:

  • No. Obs. in GeoDATA | WHO | GADM | Natural Earth
  • Climate Data Calculation: NASA From 2:00 To 2:00 | Fondation From 0:00 To 0:00

12 Oceans and Seas Boundaries

Oceans and Seas Boundaries are available on Marine Regions (Sources | Files):

  • Flanders Marine Institute (2018) - IHO Sea Areas:
    • File: Shapefile (Version 3)
    • License: Creative Commons Attribution 4.0
    • Size in R: 186.85GB
    • Oceans/Seas: 101 Geometries
  • Flanders Marine Institute (2021) - Global Oceans and Seas:
    • File: GeoPackage (Version 1 - 2021-12-14)
    • License: Creative Commons Attribution 4.0
    • Size in R: 160GB
    • Oceans/Seas: 10 Geometries
  • British Oceanographic Data Centre (BODC - 2023) - SeaVoX Sea Areas:
    • File: Shapefile (Version 19)
    • License: Creative Commons Attribution 4.0
    • Size in R: 210GB
    • Oceans/Seas: 249 Geometries
################################
##### Load GeoDATA File(s) #####
################################

##### IHO Sea Areas #####
# GeoDATA_from_IHO_Sea_Areas <- st_read(
#   "../Données/Geo/Marine REGIONs/IHO Sea Areas/World_IHO_Seas_Areas.shp") %>% select(1)

##### Global Oceans and Seas #####
# GeoDATA_from_Global_Oceans_and_Seas <- st_read(
#   "../Données/Geo/Marine REGIONs/Global Oceans and Seas/Global_Oceans_and_Seas_Areas.gpkg") %>% 
#   select(1) %>% rename(NAME = 1)

##### SeaVoX Sea Areas #####
# GeoDATA_from_SeaVoX_Sea_Areas <- st_read(
#   "../Données/Geo/Marine REGIONs/SeaVoX Sea Areas/SeaVoX_Sea_Areas.shp") %>% 
#   select(1:6) %>% rename(SIREGION = 6)